home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 November / 1988-11.d64 / font.note (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  712 b   |  19 lines
  1. 10 poke 53280,11:poke 53281,11:poke 646,15
  2. 20 print"[147]the font grabber[146] programs write to "
  3. 30 print"disk and cannot be run from this menu."
  4. 40 print"we suggest that you copy the programs"
  5. 50 print"to a geos format work disk. for more"
  6. 80 print"information on using font grabber[146]"
  7. 90 print"refer to the corresponding article in"
  8. 95 print"this issue of compute!'s gazette."
  9. 100 print"the filenames are: [144]font grabber"
  10. 110 print"[144]                   font idx[155]"
  11. 130 print""
  12. 200 ford=1to40:print"[155][164]";:next
  13. 210 print"    press any key to reload the menu    [146]"
  14. 220 poke198,0:wait198,1:getdh$
  15. 230 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  16. 240 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  17. 250 poke53281,15:poke53280,15
  18. 260 printchr$(142)"[145]          reloading the menu[155]":end
  19.