home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 July / 1987-07.d64 / noteprinter.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  498b  |  13 lines
  1. 10 poke 53280,13:poke 53281,13:poke 646,11
  2. 20 print"[147]the notepad printer program is written"
  3. 25 print"to work with geos. copy the file named"
  4. 30 print"[144]note printer[151] to a geos work disk and"
  5. 40 print"consult the article before using this"
  6. 50 print"program."
  7. 140 print"[144]   press any key to reload the menu    [146]"
  8. 150 poke198,0:wait198,1:getdh$
  9. 160 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  10. 170 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  11. 180 poke53281,15:poke53280,15
  12. 190 printchr$(142)"[145]          reloading the menu[155]":end
  13.