home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 November / 1987-11.d64 / geopuzzle.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  941b  |  26 lines
  1. 10 poke 53280,14:poke 53281,14:poke 646,0
  2. 20 printchr$(14)"[147][212]he disk file [151][199][197][207][208][213][218][218][204][197].[211][210][195][144] is the"
  3. 30 print"source code for last month's [199]eo[208]uzzle"
  4. 40 print"game. [201]t is saved in [208][193][204] format and is"
  5. 50 print"included for programmers who wish to"
  6. 60 print"study and learn how to write [199][197][207][211]"
  7. 70 print"applications."
  8. 80 print"[208]lease consult the article for"
  9. 90 print"more detailed information about [199][197][207][211]"
  10. 100 print"applications.[151]"
  11. 110 ford=1to39:print"[164]";:next:print
  12. 120 print"[151]    [208][210][197][211][211] [210][197][212][213][210][206] [212][207] [210][197][204][207][193][196] [212][200][197] [205][197][206][213]    [146]"
  13. 130 ford=1to39:print"[164]";:next:print
  14. 140 print"[151]  [208][210][197][211][211] [193] [203][197][217] [212][207] [204][207][193][196] [199]eo[208]uzzle [211][207][213][210][195][197] [146]"
  15. 150 poke198,0:wait198,1:getdh$
  16. 160 if dh$=chr$(13)then180
  17. 170 if dh$<>chr$(13)then220
  18. 180 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  19. 190 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  20. 200 poke53281,15:poke53280,15
  21. 210 printchr$(142)"[145]          reloading the menu[155]":end
  22. 220 print"[147][154]load"chr$(34)"geopuzzle.src"chr$(34)",8"
  23. 230 print"poke646,0:list"
  24. 240 printchr$(142)"[144]just a moment...loading geopuzzle.src[146][154]";
  25. 250 fori=1to2:poke630+i,13:next:poke198,i
  26.