home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / FINE-PRINT.SDA / FINE-PRINT.BAS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  71 lines
  1. 10 POKE53280,14:POKE53281,6:PRINT:PRINTCHR$(14)" [208]LEASE WAIT, [204]OADING FONT..."
  2. 11 DIMB1(255):DIMB2(255):DIMB3(255):DIMB4(255)
  3. 12 OPEN2,8,2,"0:FP.FONT,S,R"
  4. 14 FORX=33TO127
  5. 16 INPUT#2,B1(X):INPUT#2,B2(X):INPUT#2,B3(X):INPUT#2,B4(X)
  6. 18 NEXTX
  7. 20 INPUT#2,B1(129):INPUT#2,B2(129):INPUT#2,B3(129):INPUT#2,B4(129)
  8. 22 FORX=149TO155
  9. 24 INPUT#2,B1(X):INPUT#2,B2(X):INPUT#2,B3(X):INPUT#2,B4(X)
  10. 26 NEXTX
  11. 28 FORX=161TO191
  12. 30 INPUT#2,B1(X):INPUT#2,B2(X):INPUT#2,B3(X):INPUT#2,B4(X)
  13. 32 NEXTX
  14. 34 CLOSE2
  15. 35 FORX=1TO255
  16. 36 IFB1(X)=0THENB1(X)=128
  17. 38 IFB2(X)=0THENB2(X)=128
  18. 40 IFB3(X)=0THENB3(X)=128
  19. 42 IFB4(X)=0THENB4(X)=128
  20. 44 NEXTX
  21. 100 PRINT"[147]             [198][201][206][197] [208][210][201][206][212] [214]1.0            ";
  22. 102 PRINT  "      [194]Y [211]TEVEN [198]ISK - [205]ARCH, 1990.     ";
  23. 103 PRINT  "[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  24. 104 PRINT" [197]NTER TEXT FILE NAME BELOW OR '#' TO    ABORT"
  25. 105 INPUT"   [197]NTER [198]ILENAME";FL$:IFFL$="#"THENGOTO400
  26. 106 INPUT"   [193][211][195][201][201] [212][217][208][197]? (1=[195][194][205], 0=[211]TANDARD)";AS
  27. 107 INPUT"   [211]KIP [208]ERFORATIONS? (1=[217]ES 0=[206]O)";PS:LN=1:IFPS<>1THEN109
  28. 108 INPUT"   [205]AX. LINES PER PAGE  66[157][157][157][157]";MP:INPUT"   LINES TO PRINT  60[157][157][157][157]";LP
  29. 109 OPEN2,8,2,"0:"+FL$+",S,R":OPEN1,4:PRINT#1,CHR$(8);:PRINT" [193]=[193]BORT, [208]=[208]AUSE":PRINT
  30. 110 GET#2,IN$:IFST<>0THENPRINT#1,CHR$(15):CLOSE2:CLOSE1:GOTO400
  31. 111 IFAS=0THEN500
  32. 112 PRINTIN$;:IN=ASC(IN$):GOTO200
  33. 113 IFIN$=CHR$(13)THENPRINT#1,CHR$(15);CHR$(13);CHR$(8);:GOTO300
  34. 114 PRINT#1,CHR$(B1(IN));CHR$(B2(IN));CHR$(B3(IN));CHR$(B4(IN));
  35. 116 GETA$
  36. 118 IFA$="A"THENPRINT#1,CHR$(15):CLOSE2:CLOSE1:GOTO400
  37. 120 IFA$<>"P"THEN110
  38. 122 GETA$:IFA$=""THEN122
  39. 124 GOTO110
  40. 200 IFIN<13THEN110
  41. 201 IFIN>13ANDIN<32THEN110
  42. 202 IFIN=128THEN110
  43. 204 IFIN>129ANDIN<149THEN110
  44. 206 IFIN>155ANDIN<161THEN110
  45. 208 IFIN>191ANDIN<224THENIN=IN-96:GOTO200
  46. 210 IFIN>223ANDIN<255THENIN=IN-63:GOTO200
  47. 212 IFIN=255THENIN=126:GOTO200
  48. 214 GOTO113
  49. 300 LN=LN+1
  50. 302 IFPS=1ANDLN=LPTHEN310
  51. 304 IFLN=5000THENLN=0:GOTO110
  52. 305 GOTO110
  53. 310 PRINT#1,CHR$(15);
  54. 312 FORX=LPTOMP
  55. 314 PRINT#1,CHR$(13);
  56. 316 NEXTX
  57. 318 PRINT#1,CHR$(8);
  58. 320 LN=1
  59. 322 GOTO110
  60. 400 PRINT:PRINT
  61. 402 PRINT" *[197][206][196] [207][198][160][198][201][204][197]*"
  62. 404 PRINT" [215]OULD YOU LIKE TO PRINT ANOTHER"
  63. 406 PRINT " FILE? ([217]=[217]ES, [206]=[206]O):"
  64. 408 GETA$:IFA$="Y"THEN100
  65. 410 IFA$="N"THENPRINT:END
  66. 412 GOTO408
  67. 500 IN=ASC(IN$)
  68. 502 IFIN>64ANDIN<91THENIN$=CHR$(IN+128)
  69. 504 IFIN>96ANDIN<123THENIN$=CHR$(IN-32)
  70. 506 GOTO112
  71.