home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / ditto.msg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  743 b   |  22 lines
  1. 100 print"[147]":poke53280,6:poke53281,6
  2. 110 a$="[212]he "+chr$(34)+"[196][201][212][212][207]"+chr$(34)
  3. 120 a$=a$+" program cannot be run":gosub290
  4. 130 a$="from the [199]azette [205]enu because it":gosub290
  5. 140 a$="writes a program file to disk.":gosub290:print
  6. 150 a$="[215]e suggest, instead, that you copy":gosub290
  7. 160 a$=chr$(34)+"[196][201][212][212][207]"+chr$(34)
  8. 170 a$=a$+"to another disk before":gosub290
  9. 180 a$="running it.":gosub290:print
  10. 190 a$="[198]or more information about this":gosub290
  11. 200 a$="program, please check the [206]ovember '90":gosub290
  12. 210 a$="[195]ompute's [199]azette [205]agazine.":gosub290:print:print
  13. 220 a$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":gosub290
  14. 230 a$=" [208]ress any key to reload menu":gosub290
  15. 240 get a$:if a$="" then 240
  16. 250 print"[147]load";chr$(34);"mn";chr$(34);",8"
  17. 260 print"run"
  18. 270 poke198,4:poke631,19:poke632,13:poke633,13
  19. 280 end
  20. 290 for x=1 to int(20-(len(a$)/2)):printchr$(32);:next
  21. 300 printa$:return
  22.