home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8905.d64 / letterprint.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  7KB  |  240 lines
  1. 10 SYS36864
  2. 20 .OPT OO
  3. 30 *= $C000
  4. 142 VIC =$D000
  5. 146 TMP =253
  6. 148 TMP2 =251
  7. 150 HIRES =$2000
  8. 152 CINT =65409
  9. 154 RESET =64738
  10. 156 KEY =198
  11. 158 REPT =650
  12. 160 LOAD =$FFD5
  13. 162 STATUS =157
  14. 200 OPEN =$FFC0
  15. 202 CLOSE =$FFC3
  16. 204 CHKOUT =$FFC9
  17. 206 CLRCHN =$FFCC
  18. 208 SETNAM =$FFBD
  19. 210 SETPAR =$FFBA
  20. 212 DR =4
  21. 214 RETURN =$AAD7
  22. 216 BSOUT =$FFD2
  23. 218 STROUT =$AB1E
  24. 220 GET =65508
  25. 222 INPUT =65487
  26. 224 CLRX =59903
  27. 226 NAME =820
  28. 228 CLALL =$FFE7
  29. 230 SETCR =58732
  30. 232 ZEILE =214
  31. 234 SPALTE =211
  32. 236 SPACE =43839
  33. 900 JMP TITEL
  34. 1102 REBIT .BYT $80,$40,$20,$10,8,4,2,1
  35. 1210 MULT =*
  36. 1212 .WOR $2000,$2140,$2280,$23C0
  37. 1214 .WOR $2500,$2640,$2780,$28C0
  38. 1216 .WOR $2A00,$2B40,$2C80,$2DC0
  39. 1218 .WOR $2F00,$3040,$3180,$32C0
  40. 1220 .WOR $3400,$3540,$3680,$37C0
  41. 1222 .WOR $3900,$3A40,$3B80,$3CC0
  42. 1224 .WOR $3E00
  43. 1300 XX .WOR 0
  44. 1302 YY BRK
  45. 1304 X1 .WOR 0
  46. 1306 Y1 BRK
  47. 1307 X2 BRK
  48. 1308 Y2 BRK
  49. 1310 ANZ BRK
  50. 1312 XCOORD .WOR 0
  51. 1314 X3 BRK
  52. 1316 Y3 BRK
  53. 1318 KONT BRK
  54. 1320 QKONT .BYT 1
  55. 1322 WERT BRK
  56. 1324 MODUS BRK
  57. 1326 MASK BRK
  58. 1328 ZEIG BRK
  59. 1330 ORMASK BRK
  60. 1332 PRIN BRK
  61. 1400 ZEICHEN .ASC " .+IJLX&FZ%OMW#*@
  62. 1410 PRE[131] =*
  63. 1411 .BYT %0000 ; SPACE 0
  64. 1412 .BYT %0000
  65. 1413 .BYT %0000
  66. 1414 .BYT %0000
  67. 1415 .BYT %0000 ; .     1
  68. 1416 .BYT %0100
  69. 1417 .BYT %0000
  70. 1418 .BYT %0000
  71. 1419 .BYT %0000 ; [170]     2
  72. 1420 .BYT %0100
  73. 1421 .BYT %0010
  74. 1422 .BYT %0000
  75. 1423 .BYT %0000 ; I     3
  76. 1424 .BYT %0111
  77. 1425 .BYT %0000
  78. 1426 .BYT %0000
  79. 1427 .BYT %0000 ; J     4
  80. 1428 .BYT %1000
  81. 1429 .BYT %0111
  82. 1430 .BYT %0000
  83. 1431 .BYT %0000 ; L     5
  84. 1432 .BYT %1111
  85. 1433 .BYT %1000
  86. 1434 .BYT %0000
  87. 1435 .BYT %1101 ; X     6
  88. 1436 .BYT %0010
  89. 1437 .BYT %0101
  90. 1438 .BYT %0000
  91. 1439 .BYT %0110 ; &     7
  92. 1440 .BYT %1001
  93. 1441 .BYT %1010
  94. 1442 .BYT %1000
  95. 1443 .BYT %1111 ; F     8
  96. 1444 .BYT %0101
  97. 1445 .BYT %0001
  98. 1446 .BYT %0001
  99. 1447 .BYT %1000 ; Z     9
  100. 1448 .BYT %1101
  101. 1449 .BYT %1011
  102. 1450 .BYT %1001
  103. 1451 .BYT %1101 ; %    10
  104. 1452 .BYT %0101
  105. 1453 .BYT %1010
  106. 1454 .BYT %1011
  107. 1455 .BYT %1110 ; O    11
  108. 1456 .BYT %1001
  109. 1457 .BYT %1001
  110. 1458 .BYT %1111
  111. 1459 .BYT %1111 ; M    12
  112. 1460 .BYT %1111
  113. 1461 .BYT %1001
  114. 1462 .BYT %1001
  115. 1463 .BYT %1001 ; W    13
  116. 1464 .BYT %1011
  117. 1465 .BYT %1111
  118. 1466 .BYT %1111
  119. 1467 .BYT %1110 ; #    14
  120. 1468 .BYT %1111
  121. 1469 .BYT %1111
  122. 1470 .BYT %0111
  123. 1471 .BYT %1110 ; [172]    15
  124. 1472 .BYT %1111
  125. 1473 .BYT %1111
  126. 1474 .BYT %1111
  127. 1475 .BYT %1111 ; @    16
  128. 1476 .BYT %1111
  129. 1477 .BYT %1111
  130. 1478 .BYT %1111
  131. 1500 HELLO .[198] "SYS LETTERPRINT 1.3   VON NIKOLAUS HEUSLER":.BYT 13
  132. 1502 .[198] " TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        ZWENGAUERWEG 18CMDCMDCMDCMDCMDCMDCMDCMDCMD
  133. 1504 .ASC "[157][157][157][157][157][157][157]8000 MUENCHEN 71":.BYT 13
  134. 1506 .ASC " [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  135. 1508 .BYT 13:.[198] " BITTE WAEHLEN SIE:
  136. 1510 .BYT 13:.ASC "  A: GRAFIK LADEN":BRK
  137. 1512 H2 .BYT 13:.ASC "  B: GRAFIK ZEIGEN
  138. 1514 .BYT 13:.[198] "  C: INVERTIEREN
  139. 1516 .BYT 13:.ASC "  D: PREVIEW / <SHIFT>: DRUCKEN
  140. 1517 .BYT 13:.[198] "  E: KONTRAST:":.BYT 13:.[198] "  F: DRUCKER:
  141. 1518 .BYT 13:.ASC "  G: ENDE":.BYT 13
  142. 1519 .ASC " [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  143. 1520 .BYT 13:.[198] " EIN NSS PROGRAMM     (W) NH-060189-ARR":BRK
  144. 1530 NAMTXT .[198] " FILENAME ? ":BRK
  145. 1540 PRITAB .W[176] PRI1,PRI2,PRI3
  146. 1542 PRI1 .[198] "COMMODORE MPS":BRK
  147. 1544 PRI2 .[198] "ASCII MIT LF ":BRK
  148. 1546 PRI3 .[198] "ASCII OHNE LF":BRK
  149. 1550 WHATAB .W[176] WHA1,WHA2,WHA3
  150. 1552 WHA1 .BYT 8,13,15,0
  151. 1554 WHA2 .BYT 13,0
  152. 1556 WHA3 .BYT 13,10,0
  153. 1600 MENTAB .W[176] LADE,LOOK,INVERT,PREVI,K[145]TRAST,DELPRI,RESET
  154. 3000 TITEL JSR CLALL:JSR C[181]:LDA #[179]HELLO:LDY #[177]HELLO:JSR STROUT:LDA #128
  155. 3002 STA REPT:LDA #0:STA VIC[170]32:LDA #6:STA VIC[170]33:LDA #[179]H2:LDY #[177]H2:JSR STROUT
  156. 3006 FUR JSR K[145][164]UT:JSR OUTPRI
  157. 3010 LDA #0:STA KEY
  158. 3012 MEN JSR [161]:CMP #"":BEQ HOME:CMP #"STR$":BEQ DRUCK
  159. 3013 CMP #"A":BCC MEN:CMP #"H":BCS MEN:SBC #"@":ASL:TAY
  160. 3014 LDA MENTAB,Y:STA TMP:LDA MENTAB[170]1,Y:STA TMP[170]1:JSR [203][203]:JMP TITEL
  161. 3016 HOME LDA #0:STA K[145]T:LDA #1:STA QK[145]T:BNE FUR
  162. 3018 DRUCK JSR [153]:JMP TITEL
  163. 3020 [203][203] JMP (TMP)
  164. 4000 SHOW LDA #59:STA VIC[170]17:LDA #29:STA VIC[170]24
  165. 4002 LDX #4:STX TMP[170]1:LDY #0:STY TMP:LDA #1
  166. 4004 FAERB STA (TMP),Y:INY:BNE FAERB:INC TMP[170]1:DEX:BNE FAERB:RTS
  167. 4010 INVERT JSR SHOW:LDX #32:STX TMP[170]1:LDY #0:STY TMP
  168. 4012 INV LDA (TMP),Y:E[176] #[171]1:STA (TMP),Y:INY:BNE INV:INC TMP[170]1:DEX:BNE INV
  169. 4018 JMP [146]KEY
  170. 4100 HIDE LDY #0:STY TMP:STY TMP2:LDX #32:STX TMP[170]1:LDA #64:STA TMP2[170]1
  171. 4102 HI LDA (TMP),Y:STA (TMP2),Y:INY:BNE HI:INC TMP[170]1:INC TMP2[170]1:DEX:BNE HI:RTS
  172. 4200 RUECK LDY #0:STY TMP:STY TMP2:LDX #32:STX TMP[170]1:LDA #64:STA TMP2[170]1
  173. 4202 RU LDA (TMP2),Y:STA (TMP),Y:INY:BNE RU:INC TMP[170]1:INC TMP2[170]1:DEX:BNE RU:RTS
  174. 4299 LOOK JSR SHOW
  175. 4300 [146]KEY LDA #0:STA KEY
  176. 4302 WK CMP KEY:BEQ WK:DEC KEY:RTS
  177. 5000 REIHE LDA #[179]316:STA XX:LDA #[177]316:STA XX[170]1:LDA #79:STA X3
  178. 5002 R5 LDA MODUS:BNE R6:LDX #15
  179. 5004 R[175] JSR SPACE:DEX:BNE R[175]
  180. 5006 R6 LDA #0:STA YY:LDA #49:STA Y3
  181. 5010 R1 LDA #0:STA ANZ:LDA #3:STA Y2:LDA YY:STA Y1
  182. 5012 JSR [161]:CMP #"":BNE R3:RTS
  183. 5015 R3 LDA #3:STA X2:LDA XX:STA X1:LDA XX[170]1:STA X1[170]1
  184. 5022 R4 LDX Y1:LDA X1:STA XCO[176]D:LDA X1[170]1:STA XCO[176]D[170]1:JSR PO[181]
  185. 5024 TAX:[175] (TMP),Y:BEQ AUS:INC ANZ
  186. 5026 AUS TXA:E[176] (TMP),Y:STA (TMP),Y:INC X1:BNE N1:INC X1[170]1
  187. 5028 N1 DEC X2:BPL R4
  188. 5030 INC Y1:DEC Y2:BPL R3
  189. 5032 LDA ANZ:CLC:ADC K[145]T:BPL [185]IT:LDA #0
  190. 5034 [185]IT CMP #16:BCC KL16:LDA #16
  191. 5036 KL16 TAX:LDA MODUS:BEQ HARD:JSR SOFT:JMP BEIDE
  192. 5038 HARD LDA ZEICHEN,X:JSR BSOUT
  193. 5040 BEIDE LDA YY:CLC:ADC #4:STA YY:DEC Y3:BPL QR1:LDA MODUS:BNE NRT
  194. 5042 LDA PRIN:ASL:TAX:LDA WHATAB,X:LDY WHATAB[170]1,X:JSR STROUT
  195. 5050 NRT LDA XX:SEC:SBC #4:STA XX:LDA XX[170]1:SBC #0:STA XX[170]1
  196. 5052 DEC X3:BMI NR5:JMP R5
  197. 5054 NR5 RTS
  198. 5056 QR1 JMP R1
  199. 5100 SOFT TXA:ASL:ASL:STA ZEIG:LDA #3:STA Y2
  200. 5120 LDX YY:LDA XX:STA XCO[176]D:LDA XX[170]1:STA XCO[176]D[170]1:JSR PO[181]
  201. 5124 CMP #10:BCC LOW:LDA #%1111:.BYT $2C
  202. 5128 LOW LDA #%11110000:STA MASK
  203. 5129 S5 LDX ZEIG:INC ZEIG:LDA PRE[131],X
  204. 5130 BIT MASK:BMI NOSH[139]T:ASL:ASL:ASL:ASL
  205. 5132 NOSH[139]T STA [176]MASK:LDA (TMP),Y:[175] MASK:[176]A [176]MASK:STA (TMP),Y
  206. 5134 INY:DEC Y2:BPL S5:RTS
  207. 6030 PO[181] TXA
  208. 6034 LSR:LSR:LSR:ASL:TAY:LDA MULT[170]1,Y:STA TMP[170]1:TXA:[175] #7:CLC:ADC MULT,Y
  209. 6035 STA TMP:LDA XCO[176]D:[175] #$F8:ADC TMP:STA TMP
  210. 6036 LDA TMP[170]1:ADC XCO[176]D[170]1:STA TMP[170]1:LDA XCO[176]D:[175] #7:TAX:LDA REBIT,X
  211. 6038 LDY #0:RTS
  212. 7000 AUF LDA #0:JSR SETNAM:TAY:LDA #DR:TAX:JSR SETPAR:JSR [159]
  213. 7002 LDX #DR:JSR CHKOUT:RTS
  214. 7100 LADE JSR [142]:LDX #23:JSR [156]X:LDA #23:STA ZEILE:JSR SETCR
  215. 7102 LDA #[179]NAMTXT:LDY #[177]NAMTXT:JSR STROUT:LDX #0:STX STATUS
  216. 7104 [161]NAME JSR [133]:CMP #13:BEQ RET:STA NAME,X:INX:CPX #16:BCC [161]NAME
  217. 7106 RET TXA:BNE WARWAS:RTS
  218. 7108 WARWAS TXA:LDX #[179]NAME:LDY #[177]NAME:JSR SETNAM
  219. 7110 JSR SHOW:LDX #8:LDY #0:JSR SETPAR:LDA #0:TAX:LDY #32:JSR [147]
  220. 7112 JMP [146]KEY
  221. 8000 [153] LDA #0:STA MODUS:JSR HIDE:JSR SHOW:JSR AUF:JSR REIHE:JSR RUECK
  222. 8002 LDA #DR:JMP [160]
  223. 8010 PREVI LDA #1:STA MODUS:JSR HIDE:JSR SHOW:JSR REIHE
  224. 8012 JSR [146]KEY:JMP RUECK
  225. 9000 K[145]TRAST LDA K[145]T:CLC:ADC QK[145]T:STA K[145]T:CMP #[171]16:BEQ W[128]E
  226. 9002 CMP #16:BNE NOW[128]E
  227. 9004 W[128]E LDA QK[145]T:E[176] #[171]2:STA QK[145]T
  228. 9006 NOW[128]E PLA:PLA:JMP FUR
  229. 9010 K[145][164]UT LDA #15:STA SPALTE:LDA #16:STA ZEILE:JSR SETCR
  230. 9012 LDA K[145]T:BNE DA:LDA #"0":JSR BSOUT:BNE [154]
  231. 9014 DA STA WERT:BPL PLUS:LDA #[171]1:E[176] WERT:CLC:ADC #1:STA WERT:LDA #"-":.BYT $2C
  232. 9016 PLUS LDA #"+":JSR BSOUT:LDA WERT:CMP #10:BCC KL10:LDA #"1":JSR BSOUT
  233. 9018 LDA WERT:SEC:SBC #10:STA WERT
  234. 9020 KL10 LDA WERT:[176]A #"0":JSR BSOUT
  235. 9090 [154] JSR SPACE:JMP SPACE
  236. 9500 DELPRI LDX PRIN:INX:CPX #3:BCC KL3:LDX #0
  237. 9502 KL3 STX PRIN:JMP NOW[128]E
  238. 9510 OUTPRI LDA #14:STA SPALTE:LDA #18:STA ZEILE:JSR SETCR
  239. 9512 LDA PRIN:ASL:TAX:LDA PRITAB,X:LDY PRITAB[170]1,X:JMP STROUT
  240.