home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 January / 1990-01.d64 / geos.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  27 lines
  1. 10 printchr$(14):poke 53280,11:poke 53281,11:poke 646,15
  2. 20 print"[147][211]creen [199]rabber cannot be run from the"
  3. 30 print"menu. [212]his program requires [199][197][207][211] in"
  4. 40 print"order to run. [198]or your convenience,"
  5. 50 print"this disk has been converted to [199][197][207][211]"
  6. 80 print"format. [212]o use [211]creen [199]rabber, first"
  7. 115 print"boot [199][197][207][211] then select [211]creen [199]rabber"
  8. 116 print"from the desk accessory menu."
  9. 117 print"[198]or more information about this program"
  10. 118 print"please refer to the corresponding"
  11. 119 print"article in [195][207][205][208][213][212][197]!'s [199]azette."
  12. 140 print"article before attempting to use it."
  13. 170 print"[155][206][207][212][197]: [144][196]o not attempt to use the"
  14. 180 print"[199]eoconverter program on [211]creen [199]rabber[144]"
  15. 190 print"[201]t has already been converted to [199][197][207][211]"
  16. 195 print"format."
  17. 200 ford=1to40:print"[155][164]";:next
  18. 210 print"    [208]ress any key to reload the menu    [146]"
  19. 220 getdh$:ifdh$=""then220
  20. 221 v=peek(772)+256*peek(773)
  21. 222 ifv=17165 then goto270
  22. 230 print"[147]"chr$(142):s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  23. 240 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  24. 250 poke53281,0:poke53280,0
  25. 260 printchr$(142)"[145]          reloading the menu[144]":end
  26. 270 print"[147]":sys65341
  27.