home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 January / 1988-01.d64 / font.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  862b  |  24 lines
  1. 10 poke 53280,3:poke 53281,3
  2. 20 print"[147]there are three programs included"
  3. 30 print"on this disk for condensed font."
  4. 40 print"program one is the part that is common"
  5. 50 print"to all machines. to use condensed font"
  6. 60 print"you must first load and run program one.";
  7. 70 print"then you must load and run the program"
  8. 80 print"that corresponds to your machine."
  9. 90 print"program two is for the 64 and program"
  10. 100 print"three is for the 128. the filenames on"
  11. 110 print"disk are:  condensed font 1"
  12. 120 printtab(11)"condensed font 2"
  13. 130 printtab(11)"condensed font 3[144]"
  14. 140 ford=1to40:print"[164]";:next
  15. 150 print"[144]    press any key to reload the menu    [146]"
  16. 160 getdh$:if dh$=""then160
  17. 170 if peek(65530)=5 then goto230
  18. 180 poke198,0:wait198,1:getdh$
  19. 190 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  20. 200 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  21. 210 poke53281,15:poke53280,15
  22. 220 printchr$(142)"[145]          reloading the menu[155]":end
  23. 230 sys 65341:end
  24.