10 SYS36864
20 .OPT OO
30 *= $C000
142 VIC =$D000
146 TMP =253
148 TMP2 =251
150 HIRES =$2000
152 CINT =65409
154 RESET =64738
156 KEY =198
158 REPT =650
160 LOAD =$FFD5
162 STATUS =157
200 OPEN =$FFC0
202 CLOSE =$FFC3
204 CHKOUT =$FFC9
206 CLRCHN =$FFCC
208 SETNAM =$FFBD
210 SETPAR =$FFBA
212 DR =4
214 RETURN =$AAD7
216 BSOUT =$FFD2
218 STROUT =$AB1E
220 GET =65508
222 INPUT =65487
224 CLRX =59903
226 NAME =820
228 CLALL =$FFE7
230 SETCR =58732
232 ZEILE =214
234 SPALTE =211
236 SPACE =43839
900 JMP TITEL
1102 REBIT .BYT $80,$40,$20,$10,8,4,2,1
1210 MULT =*
1212 .WOR $2000,$2140,$2280,$23C0
1214 .WOR $2500,$2640,$2780,$28C0
1216 .WOR $2A00,$2B40,$2C80,$2DC0
1218 .WOR $2F00,$3040,$3180,$32C0
1220 .WOR $3400,$3540,$3680,$37C0
1222 .WOR $3900,$3A40,$3B80,$3CC0
1224 .WOR $3E00
1300 XX .WOR 0
1302 YY BRK
1304 X1 .WOR 0
1306 Y1 BRK
1307 X2 BRK
1308 Y2 BRK
1310 ANZ BRK
1312 XCOORD .WOR 0
1314 X3 BRK
1316 Y3 BRK
1318 KONT BRK
1320 QKONT .BYT 1
1322 WERT BRK
1324 MODUS BRK
1326 MASK BRK
1328 ZEIG BRK
1330 ORMASK BRK
1332 PRIN BRK
1400 ZEICHEN .ASC " .+IJLX&FZ%OMW#*@
1410 PRE[131] =*
1411 .BYT %0000 ; SPACE 0
1412 .BYT %0000
1413 .BYT %0000
1414 .BYT %0000
1415 .BYT %0000 ; .     1
1416 .BYT %0100
1417 .BYT %0000
1418 .BYT %0000
1419 .BYT %0000 ; [170]     2
1420 .BYT %0100
1421 .BYT %0010
1422 .BYT %0000
1423 .BYT %0000 ; I     3
1424 .BYT %0111
1425 .BYT %0000
1426 .BYT %0000
1427 .BYT %0000 ; J     4
1428 .BYT %1000
1429 .BYT %0111
1430 .BYT %0000
1431 .BYT %0000 ; L     5
1432 .BYT %1111
1433 .BYT %1000
1434 .BYT %0000
1435 .BYT %1101 ; X     6
1436 .BYT %0010
1437 .BYT %0101
1438 .BYT %0000
1439 .BYT %0110 ; &     7
1440 .BYT %1001
1441 .BYT %1010
1442 .BYT %1000
1443 .BYT %1111 ; F     8
1444 .BYT %0101
1445 .BYT %0001
1446 .BYT %0001
1447 .BYT %1000 ; Z     9
1448 .BYT %1101
1449 .BYT %1011
1450 .BYT %1001
1451 .BYT %1101 ; %    10
1452 .BYT %0101
1453 .BYT %1010
1454 .BYT %1011
1455 .BYT %1110 ; O    11
1456 .BYT %1001
1457 .BYT %1001
1458 .BYT %1111
1459 .BYT %1111 ; M    12
1460 .BYT %1111
1461 .BYT %1001
1462 .BYT %1001
1463 .BYT %1001 ; W    13
1464 .BYT %1011
1465 .BYT %1111
1466 .BYT %1111
1467 .BYT %1110 ; #    14
1468 .BYT %1111
1469 .BYT %1111
1470 .BYT %0111
1471 .BYT %1110 ; [172]    15
1472 .BYT %1111
1473 .BYT %1111
1474 .BYT %1111
1475 .BYT %1111 ; @    16
1476 .BYT %1111
1477 .BYT %1111
1478 .BYT %1111
1500 HELLO .[198] "SYS LETTERPRINT 1.3   VON NIKOLAUS HEUSLER":.BYT 13
1502 .[198] " TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        ZWENGAUERWEG 18CMDCMDCMDCMDCMDCMDCMDCMDCMD
1504 .ASC "[157][157][157][157][157][157][157]8000 MUENCHEN 71":.BYT 13
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]
1508 .BYT 13:.[198] " BITTE WAEHLEN SIE:
1510 .BYT 13:.ASC "  A: GRAFIK LADEN":BRK
1512 H2 .BYT 13:.ASC "  B: GRAFIK ZEIGEN
1514 .BYT 13:.[198] "  C: INVERTIEREN
1516 .BYT 13:.ASC "  D: PREVIEW / <SHIFT>: DRUCKEN
1517 .BYT 13:.[198] "  E: KONTRAST:":.BYT 13:.[198] "  F: DRUCKER:
1518 .BYT 13:.ASC "  G: ENDE":.BYT 13
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]
1520 .BYT 13:.[198] " EIN NSS PROGRAMM     (W) NH-060189-ARR":BRK
1530 NAMTXT .[198] " FILENAME ? ":BRK
1540 PRITAB .W[176] PRI1,PRI2,PRI3
1542 PRI1 .[198] "COMMODORE MPS":BRK
1544 PRI2 .[198] "ASCII MIT LF ":BRK
1546 PRI3 .[198] "ASCII OHNE LF":BRK
1550 WHATAB .W[176] WHA1,WHA2,WHA3
1552 WHA1 .BYT 8,13,15,0
1554 WHA2 .BYT 13,0
1556 WHA3 .BYT 13,10,0
1600 MENTAB .W[176] LADE,LOOK,INVERT,PREVI,K[145]TRAST,DELPRI,RESET
3000 TITEL JSR CLALL:JSR C[181]:LDA #[179]HELLO:LDY #[177]HELLO:JSR STROUT:LDA #128
3002 STA REPT:LDA #0:STA VIC[170]32:LDA #6:STA VIC[170]33:LDA #[179]H2:LDY #[177]H2:JSR STROUT
3006 FUR JSR K[145][164]UT:JSR OUTPRI
3010 LDA #0:STA KEY
3012 MEN JSR [161]:CMP #"":BEQ HOME:CMP #"STR$":BEQ DRUCK
3013 CMP #"A":BCC MEN:CMP #"H":BCS MEN:SBC #"@":ASL:TAY
3014 LDA MENTAB,Y:STA TMP:LDA MENTAB[170]1,Y:STA TMP[170]1:JSR [203][203]:JMP TITEL
3016 HOME LDA #0:STA K[145]T:LDA #1:STA QK[145]T:BNE FUR
3018 DRUCK JSR [153]:JMP TITEL
3020 [203][203] JMP (TMP)
4000 SHOW LDA #59:STA VIC[170]17:LDA #29:STA VIC[170]24
4002 LDX #4:STX TMP[170]1:LDY #0:STY TMP:LDA #1
4004 FAERB STA (TMP),Y:INY:BNE FAERB:INC TMP[170]1:DEX:BNE FAERB:RTS
4010 INVERT JSR SHOW:LDX #32:STX TMP[170]1:LDY #0:STY TMP
4012 INV LDA (TMP),Y:E[176] #[171]1:STA (TMP),Y:INY:BNE INV:INC TMP[170]1:DEX:BNE INV
4018 JMP [146]KEY
4100 HIDE LDY #0:STY TMP:STY TMP2:LDX #32:STX TMP[170]1:LDA #64:STA TMP2[170]1
4102 HI LDA (TMP),Y:STA (TMP2),Y:INY:BNE HI:INC TMP[170]1:INC TMP2[170]1:DEX:BNE HI:RTS
4200 RUECK LDY #0:STY TMP:STY TMP2:LDX #32:STX TMP[170]1:LDA #64:STA TMP2[170]1
4202 RU LDA (TMP2),Y:STA (TMP),Y:INY:BNE RU:INC TMP[170]1:INC TMP2[170]1:DEX:BNE RU:RTS
4299 LOOK JSR SHOW
4300 [146]KEY LDA #0:STA KEY
4302 WK CMP KEY:BEQ WK:DEC KEY:RTS
5000 REIHE LDA #[179]316:STA XX:LDA #[177]316:STA XX[170]1:LDA #79:STA X3
5002 R5 LDA MODUS:BNE R6:LDX #15
5004 R[175] JSR SPACE:DEX:BNE R[175]
5006 R6 LDA #0:STA YY:LDA #49:STA Y3
5010 R1 LDA #0:STA ANZ:LDA #3:STA Y2:LDA YY:STA Y1
5012 JSR [161]:CMP #"":BNE R3:RTS
5015 R3 LDA #3:STA X2:LDA XX:STA X1:LDA XX[170]1:STA X1[170]1
5022 R4 LDX Y1:LDA X1:STA XCO[176]D:LDA X1[170]1:STA XCO[176]D[170]1:JSR PO[181]
5024 TAX:[175] (TMP),Y:BEQ AUS:INC ANZ
5026 AUS TXA:E[176] (TMP),Y:STA (TMP),Y:INC X1:BNE N1:INC X1[170]1
5028 N1 DEC X2:BPL R4
5030 INC Y1:DEC Y2:BPL R3
5032 LDA ANZ:CLC:ADC K[145]T:BPL [185]IT:LDA #0
5034 [185]IT CMP #16:BCC KL16:LDA #16
5036 KL16 TAX:LDA MODUS:BEQ HARD:JSR SOFT:JMP BEIDE
5038 HARD LDA ZEICHEN,X:JSR BSOUT
5040 BEIDE LDA YY:CLC:ADC #4:STA YY:DEC Y3:BPL QR1:LDA MODUS:BNE NRT
5042 LDA PRIN:ASL:TAX:LDA WHATAB,X:LDY WHATAB[170]1,X:JSR STROUT
5050 NRT LDA XX:SEC:SBC #4:STA XX:LDA XX[170]1:SBC #0:STA XX[170]1
5052 DEC X3:BMI NR5:JMP R5
5054 NR5 RTS
5056 QR1 JMP R1
5100 SOFT TXA:ASL:ASL:STA ZEIG:LDA #3:STA Y2
5120 LDX YY:LDA XX:STA XCO[176]D:LDA XX[170]1:STA XCO[176]D[170]1:JSR PO[181]
5124 CMP #10:BCC LOW:LDA #%1111:.BYT $2C
5128 LOW LDA #%11110000:STA MASK
5129 S5 LDX ZEIG:INC ZEIG:LDA PRE[131],X
5130 BIT MASK:BMI NOSH[139]T:ASL:ASL:ASL:ASL
5132 NOSH[139]T STA [176]MASK:LDA (TMP),Y:[175] MASK:[176]A [176]MASK:STA (TMP),Y
5134 INY:DEC Y2:BPL S5:RTS
6030 PO[181] TXA
6034 LSR:LSR:LSR:ASL:TAY:LDA MULT[170]1,Y:STA TMP[170]1:TXA:[175] #7:CLC:ADC MULT,Y
6035 STA TMP:LDA XCO[176]D:[175] #$F8:ADC TMP:STA TMP
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
6038 LDY #0:RTS
7000 AUF LDA #0:JSR SETNAM:TAY:LDA #DR:TAX:JSR SETPAR:JSR [159]
7002 LDX #DR:JSR CHKOUT:RTS
7100 LADE JSR [142]:LDX #23:JSR [156]X:LDA #23:STA ZEILE:JSR SETCR
7102 LDA #[179]NAMTXT:LDY #[177]NAMTXT:JSR STROUT:LDX #0:STX STATUS
7104 [161]NAME JSR [133]:CMP #13:BEQ RET:STA NAME,X:INX:CPX #16:BCC [161]NAME
7106 RET TXA:BNE WARWAS:RTS
7108 WARWAS TXA:LDX #[179]NAME:LDY #[177]NAME:JSR SETNAM
7110 JSR SHOW:LDX #8:LDY #0:JSR SETPAR:LDA #0:TAX:LDY #32:JSR [147]
7112 JMP [146]KEY
8000 [153] LDA #0:STA MODUS:JSR HIDE:JSR SHOW:JSR AUF:JSR REIHE:JSR RUECK
8002 LDA #DR:JMP [160]
8010 PREVI LDA #1:STA MODUS:JSR HIDE:JSR SHOW:JSR REIHE
8012 JSR [146]KEY:JMP RUECK
9000 K[145]TRAST LDA K[145]T:CLC:ADC QK[145]T:STA K[145]T:CMP #[171]16:BEQ W[128]E
9002 CMP #16:BNE NOW[128]E
9004 W[128]E LDA QK[145]T:E[176] #[171]2:STA QK[145]T
9006 NOW[128]E PLA:PLA:JMP FUR
9010 K[145][164]UT LDA #15:STA SPALTE:LDA #16:STA ZEILE:JSR SETCR
9012 LDA K[145]T:BNE DA:LDA #"0":JSR BSOUT:BNE [154]
9014 DA STA WERT:BPL PLUS:LDA #[171]1:E[176] WERT:CLC:ADC #1:STA WERT:LDA #"-":.BYT $2C
9016 PLUS LDA #"+":JSR BSOUT:LDA WERT:CMP #10:BCC KL10:LDA #"1":JSR BSOUT
9018 LDA WERT:SEC:SBC #10:STA WERT
9020 KL10 LDA WERT:[176]A #"0":JSR BSOUT
9090 [154] JSR SPACE:JMP SPACE
9500 DELPRI LDX PRIN:INX:CPX #3:BCC KL3:LDX #0
9502 KL3 STX PRIN:JMP NOW[128]E
9510 OUTPRI LDA #14:STA SPALTE:LDA #18:STA ZEILE:JSR SETCR
9512 LDA PRIN:ASL:TAX:LDA PRITAB,X:LDY PRITAB[170]1,X:JMP STROUT