home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 March & April / rerun-1988-03-04.d64 / font menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.3 KB  |  40 lines
  1. 10 rem font menu - kenny lawson
  2. 20 poke646,14:poke657,128
  3. 30 os$=chr$(17):ot$=chr$(145):ifttthen240
  4. 40 print"[147]";:forx=1to9:reada$:nf$(x)=a$:next
  5. 50 data blockfont,capsfont,compufont,cursifont,diamondfont
  6. 60 data dotfont,stencilfont,thinfont,underfont
  7. 70 a1$="             ":a2$=chr$(18)+a1$+"  ":a3$=" [146]"+a1$+" [146]"
  8. 80 a4$=a1$+"":a5$=chr$(18)
  9. 90 print:printa1$a2$:forx=1to19:printa1$a3$:next
  10. 100 printa1$a2$"":forx=1to9
  11. 110 printa4$nf$(x)chr$(17):next:print:print
  12. 120 print"use cursor[146] up/down key to select a font"
  13. 130 print"press the return[146] key to load that font"
  14. 140 printa4$a5$nf$(1);
  15. 150 geta$:ifa$=""then150
  16. 160 ro=peek(214):nf=int(ro/2):ifro=3then300
  17. 170 ifro=19then350
  18. 180 ifa$=os$thenprint"[145]":printa4$nf$(nf):print:printa4$a5$nf$(nf+1);:goto150
  19. 190 ifa$=ot$thenprint"[145]":printa4$nf$(nf)"[145][145][145]":printa4$a5$nf$(nf-1);:goto150
  20. 200 ifa$<>chr$(13)then150
  21. 210 rem load a program
  22. 220 print"[147]":poke646,6
  23. 230 iftt=0thentt=1:loadnf$(nf),8,1
  24. 240 forx=1to3000:next:poke646,14
  25. 250 ifnf=2ornf=4then280
  26. 260 print"[147]    **** commodore 64 basic v2 ****"
  27. 270 print" 64k ram system  36861 basic bytes free":new
  28. 280 print"[147]    **** [195]ommodore 64 [194]asic [214]2 ****"
  29. 290 print" 64[203] [210]am [211]ystem  36861 [194]asic [194]ytes [198]ree":new
  30. 300 rem cursor on top line
  31. 310 ifa$=chr$(13)then210
  32. 320 ifa$<>chr$(17)anda$<>chr$(145)then150
  33. 330 ifa$=chr$(17)then180
  34. 340 print"[145]":printa4$nf$(1):poke214,18:print:printa4$a5$nf$(9);:goto150
  35. 350 rem cursor on bottom line
  36. 360 ifa$=chr$(13)then210
  37. 370 ifa$<>chr$(17)anda$<>chr$(145)then150
  38. 380 ifa$=chr$(145)then190
  39. 390 print"[145]":printa4$nf$(9):print"":printa4$a5$nf$(1);:goto150
  40.