LISTING 10.11(S)

00000000: D8 1F F9 1F 64 00 2E 42  41 20 24 43 30 30 30 20  |....d..BA $C000 |
00000010: 3B 20 53 54 41 52 54 3A  20 53 59 53 20 34 39 31  |; START: SYS 491|
00000020: 35 32 00 FF 1F 6E 00 3B  00 1F 20 78 00 3B 20 2A  |52...n.;.. x.; *|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  00 3F 20 82 00 3B 20 2A  |********.? ..; *|
00000050: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060: 20 20 20 20 20 20 20 2A  00 5F 20 8C 00 3B 20 2A  |       *._ ..; *|
00000070: 20 20 54 41 42 45 4C 4C  45 4E 20 2D 20 42 45 49  |  TABELLEN - BEI|
00000080: 53 50 49 45 4C 20 20 2A  00 7F 20 96 00 3B 20 2A  |SPIEL  *.. ..; *|
00000090: 20 20 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |  ==============|
000000A0: 3D 3D 3D 3D 3D 20 20 2A  00 9F 20 A0 00 3B 20 2A  |=====  *.. ..; *|
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000C0: 20 20 20 20 20 20 20 2A  00 BF 20 AA 00 3B 20 2A  |       *.. ..; *|
000000D0: 20 20 42 59 20 20 46 4C  4F 52 49 41 4E 20 4D 55  |  BY  FLORIAN MU|
000000E0: 45 4C 4C 45 52 20 20 2A  00 DF 20 B4 00 3B 20 2A  |ELLER  *.. ..; *|
000000F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000100: 20 20 20 20 20 20 20 2A  00 FF 20 BE 00 3B 20 2A  |       *.. ..; *|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A  00 05 21 C8 00 3B 00 1C  |********..!..;..|
00000130: 21 D2 00 2E 47 4C 20 53  54 52 4F 55 54 20 3D 20  |!...GL STROUT = |
00000140: 24 41 42 31 45 00 37 21  DC 00 2E 47 4C 20 43 55  |$AB1E.7!...GL CU|
00000150: 52 53 4F 52 48 4F 4D 45  20 3D 20 24 45 35 36 36  |RSORHOME = $E566|
00000160: 00 4B 21 E6 00 2E 47 4C  20 47 45 54 20 3D 20 24  |.K!...GL GET = $|
00000170: 46 46 45 34 00 61 21 F0  00 2E 47 4C 20 42 41 53  |FFE4.a!...GL BAS|
00000180: 49 4E 20 3D 20 24 46 46  43 46 00 78 21 FA 00 2E  |IN = $FFCF.x!...|
00000190: 47 4C 20 42 41 53 4F 55  54 20 3D 20 24 46 46 44  |GL BASOUT = $FFD|
000001A0: 32 00 9F 21 04 01 2E 47  4C 20 52 45 53 45 54 20  |2..!...GL RESET |
000001B0: 3D 20 24 46 43 45 32 20  3B 20 53 4F 46 54 57 41  |= $FCE2 ; SOFTWA|
000001C0: 52 45 2D 52 45 53 45 54  00 A5 21 0E 01 3B 00 CB  |RE-RESET..!..;..|
000001D0: 21 18 01 53 54 41 52 54  20 4A 53 52 24 45 35 34  |!..START JSR$E54|
000001E0: 34 3B 20 3D 20 50 52 49  4E 54 20 43 48 52 24 28  |4; = PRINT CHR$(|
000001F0: 31 34 37 29 00 E6 21 22  01 20 4C 44 41 23 30 3B  |147)..!". LDA#0;|
00000200: 20 54 41 53 54 41 54 55  52 50 55 46 46 45 52 00  | TASTATURPUFFER.|
00000210: FC 21 2C 01 20 53 54 41  31 39 38 3B 20 4C 4F 45  |.!,. STA198; LOE|
00000220: 53 43 48 45 4E 00 08 22  36 01 20 53 54 41 4D 50  |SCHEN.."6. STAMP|
00000230: 54 00 31 22 40 01 3B 20  5E 20 53 45 54 5A 54 20  |T.1"@.; ^ SETZT |
00000240: 41 4B 54 55 45 4C 4C 45  4E 20 4D 45 4E 55 45 50  |AKTUELLEN MENUEP|
00000250: 55 4E 4B 54 20 41 55 46  20 30 00 4D 22 4A 01 48  |UNKT AUF 0.M"J.H|
00000260: 53 43 48 4C 45 49 46 45  20 4A 53 52 43 55 52 53  |SCHLEIFE JSRCURS|
00000270: 4F 52 48 4F 4D 45 00 6F  22 54 01 3B 20 5E 20 48  |ORHOME.o"T.; ^ H|
00000280: 53 43 48 4C 45 49 46 45  20 3D 20 48 41 55 50 54  |SCHLEIFE = HAUPT|
00000290: 53 43 48 4C 45 49 46 45  00 7A 22 5E 01 20 4C 44  |SCHLEIFE.z"^. LD|
000002A0: 41 23 30 00 83 22 68 01  20 54 41 58 00 9D 22 72  |A#0.."h. TAX.."r|
000002B0: 01 53 43 48 4C 45 49 46  45 31 20 53 54 41 52 56  |.SCHLEIFE1 STARV|
000002C0: 53 54 41 42 2C 58 00 A6  22 7C 01 20 49 4E 58 00  |STAB,X.."|. INX.|
000002D0: B1 22 86 01 20 43 50 58  23 34 00 C3 22 90 01 20  |.".. CPX#4..".. |
000002E0: 42 4E 45 53 43 48 4C 45  49 46 45 31 00 CF 22 9A  |BNESCHLEIFE1..".|
000002F0: 01 20 4C 44 58 4D 50 54  00 EC 22 A4 01 20 4C 44  |. LDXMPT..".. LD|
00000300: 41 23 31 38 3B 20 31 38  20 3D 20 52 45 56 45 52  |A#18; 18 = REVER|
00000310: 53 20 45 49 4E 00 FD 22  AE 01 20 53 54 41 52 56  |S EIN..".. STARV|
00000320: 53 54 41 42 2C 58 00 08  23 B8 01 20 4C 44 58 23  |STAB,X..#.. LDX#|
00000330: 30 00 30 23 C2 01 3B 20  5E 20 53 43 48 4C 45 49  |0.0#..; ^ SCHLEI|
00000340: 46 45 4E 5A 41 45 48 4C  45 52 20 49 4E 49 54 49  |FENZAEHLER INITI|
00000350: 41 4C 49 53 49 45 52 45  4E 00 51 23 CC 01 53 43  |ALISIEREN.Q#..SC|
00000360: 48 4C 45 49 46 45 32 20  53 54 58 58 53 41 56 45  |HLEIFE2 STXXSAVE|
00000370: 3B 20 58 20 52 45 54 54  45 4E 00 62 23 D6 01 20  |; X RETTEN.b#.. |
00000380: 4C 44 41 52 56 53 54 41  42 2C 58 00 71 23 E0 01  |LDARVSTAB,X.q#..|
00000390: 20 4A 53 52 42 41 53 4F  55 54 00 8E 23 EA 01 20  | JSRBASOUT..#.. |
000003A0: 4C 44 41 54 45 58 54 4C  4F 2C 58 3B 20 45 52 4B  |LDATEXTLO,X; ERK|
000003B0: 4C 41 45 52 55 4E 47 00  AF 23 F4 01 20 4C 44 59  |LAERUNG..#.. LDY|
000003C0: 54 45 58 54 48 49 2C 58  3B 20 5A 55 4D 20 4D 45  |TEXTHI,X; ZUM ME|
000003D0: 4E 55 45 50 55 4E 4B 54  00 C8 23 FE 01 20 4A 53  |NUEPUNKT..#.. JS|
000003E0: 52 53 54 52 4F 55 54 3B  20 41 55 53 47 45 42 45  |RSTROUT; AUSGEBE|
000003F0: 4E 00 E6 23 08 02 20 4C  44 58 58 53 41 56 45 3B  |N..#.. LDXXSAVE;|
00000400: 20 58 20 57 49 45 44 45  52 20 48 4F 4C 45 4E 00  | X WIEDER HOLEN.|
00000410: EF 23 12 02 20 49 4E 58  00 FA 23 1C 02 20 43 50  |.#.. INX..#.. CP|
00000420: 58 23 34 00 0C 24 26 02  20 42 4E 45 53 43 48 4C  |X#4..$&. BNESCHL|
00000430: 45 49 46 45 32 00 12 24  30 02 3B 00 18 24 3A 02  |EIFE2..$0.;..$:.|
00000440: 3B 00 3D 24 44 02 3B 20  48 49 45 52 20 49 53 54  |;.=$D.; HIER IST|
00000450: 20 44 41 53 20 4D 45 4E  55 45 20 42 45 52 45 49  | DAS MENUE BEREI|
00000460: 54 53 20 41 55 46 00 65  24 4E 02 3B 20 44 45 4E  |TS AUF.e$N.; DEN|
00000470: 20 42 49 4C 44 53 43 48  49 52 4D 20 41 55 53 47  | BILDSCHIRM AUSG|
00000480: 45 47 45 42 45 4E 20 57  4F 52 44 45 4E 2E 00 6B  |EGEBEN WORDEN..k|
00000490: 24 58 02 3B 00 8D 24 62  02 54 41 53 54 45 20 4A  |$X.;..$b.TASTE J|
000004A0: 53 52 47 45 54 3B 20 54  41 53 54 41 54 55 52 41  |SRGET; TASTATURA|
000004B0: 42 46 52 41 47 45 00 B3  24 6C 02 20 42 45 51 54  |BFRAGE..$l. BEQT|
000004C0: 41 53 54 45 3B 20 57 41  52 54 45 4E 20 41 55 46  |ASTE; WARTEN AUF|
000004D0: 20 54 41 53 54 45 4E 44  52 55 43 4B 00 BE 24 76  | TASTENDRUCK..$v|
000004E0: 02 20 4C 44 58 23 30 00  D8 24 80 02 53 43 48 4C  |. LDX#0..$..SCHL|
000004F0: 45 49 46 45 33 20 43 4D  50 54 41 53 54 45 4E 2C  |EIFE3 CMPTASTEN,|
00000500: 58 00 E8 24 8A 02 20 42  45 51 57 45 49 54 45 52  |X..$.. BEQWEITER|
00000510: 31 00 F1 24 94 02 20 49  4E 58 00 FD 24 9E 02 20  |1..$.. INX..$.. |
00000520: 43 50 58 23 31 36 00 0F  25 A8 02 20 42 4E 45 53  |CPX#16..%.. BNES|
00000530: 43 48 4C 45 49 46 45 33  00 1D 25 B2 02 20 4A 4D  |CHLEIFE3..%.. JM|
00000540: 50 54 41 53 54 45 00 2D  25 BC 02 57 45 49 54 45  |PTASTE.-%..WEITE|
00000550: 52 31 20 54 58 41 00 47  25 C6 02 20 4C 53 52 3B  |R1 TXA.G%.. LSR;|
00000560: 20 44 49 56 49 44 49 45  52 54 20 41 4B 4B 55 2D  | DIVIDIERT AKKU-|
00000570: 00 61 25 D0 02 20 4C 53  52 3B 20 4D 55 4C 41 54  |.a%.. LSR; MULAT|
00000580: 4F 52 20 44 55 52 43 48  20 34 00 6A 25 DA 02 20  |OR DURCH 4.j%.. |
00000590: 54 41 58 00 7A 25 E4 02  20 4C 44 41 53 50 31 4C  |TAX.z%.. LDASP1L|
000005A0: 4F 2C 58 00 89 25 EE 02  20 53 54 41 53 50 52 55  |O,X..%.. STASPRU|
000005B0: 4E 47 00 99 25 F8 02 20  4C 44 41 53 50 31 48 49  |NG..%.. LDASP1HI|
000005C0: 2C 58 00 AA 25 02 03 20  53 54 41 53 50 52 55 4E  |,X..%.. STASPRUN|
000005D0: 47 2B 31 00 B0 25 0C 03  3B 00 D2 25 16 03 2E 45  |G+1..%..;..%...E|
000005E0: 51 20 52 55 45 43 4B 53  50 52 55 4E 47 20 3D 20  |Q RUECKSPRUNG = |
000005F0: 48 53 43 48 4C 45 49 46  45 2D 31 00 F6 25 20 03  |HSCHLEIFE-1..% .|
00000600: 3B 20 5E 20 4C 45 47 54  20 52 55 45 43 4B 53 50  |; ^ LEGT RUECKSP|
00000610: 52 55 4E 47 41 44 52 45  53 53 45 20 44 45 53 00  |RUNGADRESSE DES.|
00000620: 13 26 2A 03 3B 20 20 20  55 4E 54 45 52 50 52 4F  |.&*.;   UNTERPRO|
00000630: 47 52 41 4D 4D 53 20 46  45 53 54 2E 00 19 26 34  |GRAMMS FEST...&4|
00000640: 03 3B 00 31 26 3E 03 20  4C 44 41 23 3E 28 52 55  |.;.1&>. LDA#>(RU|
00000650: 45 43 4B 53 50 52 55 4E  47 29 00 3A 26 48 03 20  |ECKSPRUNG).:&H. |
00000660: 50 48 41 00 52 26 52 03  20 4C 44 41 23 3C 28 52  |PHA.R&R. LDA#<(R|
00000670: 55 45 43 4B 53 50 52 55  4E 47 29 00 5B 26 5C 03  |UECKSPRUNG).[&\.|
00000680: 20 50 48 41 00 6C 26 66  03 20 4A 4D 50 28 53 50  | PHA.l&f. JMP(SP|
00000690: 52 55 4E 47 29 00 72 26  70 03 3B 00 78 26 7A 03  |RUNG).r&p.;.x&z.|
000006A0: 3B 00 87 26 84 03 48 4F  4D 45 20 4C 44 58 23 30  |;..&..HOME LDX#0|
000006B0: 00 93 26 8E 03 20 53 54  58 4D 50 54 00 B3 26 98  |..&.. STXMPT..&.|
000006C0: 03 45 4E 44 45 20 52 54  53 3B 20 45 4E 44 45 20  |.ENDE RTS; ENDE |
000006D0: 44 45 53 20 55 4E 54 45  52 50 52 47 00 B9 26 A2  |DES UNTERPRG..&.|
000006E0: 03 3B 00 D5 26 AC 03 44  4F 57 4E 20 4C 44 58 4D  |.;..&..DOWN LDXM|
000006F0: 50 54 3B 20 4D 45 4E 55  45 50 55 4E 4B 54 00 ED  |PT; MENUEPUNKT..|
00000700: 26 B6 03 20 49 4E 58 3B  20 55 4D 20 31 20 45 52  |&.. INX; UM 1 ER|
00000710: 48 4F 45 48 45 4E 00 09  27 C0 03 20 43 50 58 23  |HOEHEN..'.. CPX#|
00000720: 34 3B 20 47 52 4F 45 53  53 45 52 20 41 4C 53 20  |4; GROESSER ALS |
00000730: 33 3F 00 1F 27 CA 03 20  42 45 51 48 4F 4D 45 3B  |3?..'.. BEQHOME;|
00000740: 20 44 41 4E 4E 20 3D 30  00 3E 27 D4 03 20 53 54  | DANN =0.>'.. ST|
00000750: 58 4D 50 54 3B 20 53 4F  4E 53 54 20 55 45 42 45  |XMPT; SONST UEBE|
00000760: 52 4E 45 48 4D 45 4E 00  5A 27 DE 03 20 52 54 53  |RNEHMEN.Z'.. RTS|
00000770: 3B 20 5A 55 52 20 48 41  55 50 54 53 43 48 4C 45  |; ZUR HAUPTSCHLE|
00000780: 49 46 45 00 60 27 E8 03  3B 00 7A 27 F2 03 55 50  |IFE.`'..;.z'..UP|
00000790: 20 4C 44 58 4D 50 54 3B  20 4D 45 4E 55 45 50 55  | LDXMPT; MENUEPU|
000007A0: 4E 4B 54 00 93 27 FC 03  20 44 45 58 3B 20 44 45  |NKT..'.. DEX; DE|
000007B0: 4B 52 45 4D 45 4E 54 49  45 52 45 4E 00 A7 27 06  |KREMENTIEREN..'.|
000007C0: 04 20 42 50 4C 45 4E 44  55 50 3B 20 3E 20 30 3F  |. BPLENDUP; > 0?|
000007D0: 00 C1 27 10 04 20 4C 44  58 23 33 3B 20 4E 45 49  |..'.. LDX#3; NEI|
000007E0: 4E 2C 20 44 41 4E 4E 20  3D 33 00 E3 27 1A 04 45  |N, DANN =3..'..E|
000007F0: 4E 44 55 50 20 53 54 58  4D 50 54 3B 20 55 4E 44  |NDUP STXMPT; UND|
00000800: 20 55 45 42 45 52 4E 45  48 4D 45 4E 00 FF 27 24  | UEBERNEHMEN..'$|
00000810: 04 20 52 54 53 3B 20 5A  55 52 20 48 41 55 50 54  |. RTS; ZUR HAUPT|
00000820: 53 43 48 4C 45 49 46 45  00 05 28 2E 04 3B 00 0B  |SCHLEIFE..(..;..|
00000830: 28 38 04 3B 00 2C 28 42  04 45 58 45 43 20 50 4C  |(8.;.,(B.EXEC PL|
00000840: 41 3B 20 53 54 41 50 45  4C 4D 41 4E 49 50 55 4C  |A; STAPELMANIPUL|
00000850: 41 54 49 4F 4E 00 35 28  4C 04 20 50 4C 41 00 41  |ATION.5(L. PLA.A|
00000860: 28 56 04 20 4C 44 58 4D  50 54 00 51 28 60 04 20  |(V. LDXMPT.Q(`. |
00000870: 4C 44 41 53 50 32 4C 4F  2C 58 00 60 28 6A 04 20  |LDASP2LO,X.`(j. |
00000880: 53 54 41 53 50 52 55 4E  47 00 70 28 74 04 20 4C  |STASPRUNG.p(t. L|
00000890: 44 41 53 50 32 48 49 2C  58 00 81 28 7E 04 20 53  |DASP2HI,X..(~. S|
000008A0: 54 41 53 50 52 55 4E 47  2B 31 00 92 28 88 04 20  |TASPRUNG+1..(.. |
000008B0: 4A 4D 50 28 53 50 52 55  4E 47 29 00 98 28 92 04  |JMP(SPRUNG)..(..|
000008C0: 3B 00 9E 28 9C 04 3B 00  A4 28 A6 04 3B 00 CC 28  |;..(..;..(..;..(|
000008D0: B0 04 5A 41 48 4C 57 4F  52 54 20 4C 44 41 23 3C  |..ZAHLWORT LDA#<|
000008E0: 28 54 5A 41 48 4C 29 3B  20 41 55 46 46 4F 52 44  |(TZAHL); AUFFORD|
000008F0: 45 52 55 4E 47 00 EB 28  BA 04 20 4C 44 59 23 3E  |ERUNG..(.. LDY#>|
00000900: 28 54 5A 41 48 4C 29 3B  20 5A 55 52 20 45 49 4E  |(TZAHL); ZUR EIN|
00000910: 47 41 42 45 00 04 29 C4  04 20 4A 53 52 53 54 52  |GABE..).. JSRSTR|
00000920: 4F 55 54 3B 20 41 55 53  47 45 42 45 4E 00 20 29  |OUT; AUSGEBEN. )|
00000930: CE 04 20 4A 53 52 42 41  53 49 4E 3B 20 48 4F 4C  |.. JSRBASIN; HOL|
00000940: 54 20 5A 45 49 43 48 45  4E 00 38 29 D8 04 20 53  |T ZEICHEN.8).. S|
00000950: 45 43 3B 20 49 4E 20 42  49 4E 41 45 52 5A 41 48  |EC; IN BINAERZAH|
00000960: 4C 00 50 29 E2 04 20 53  42 43 23 22 30 22 3B 20  |L.P).. SBC#"0"; |
00000970: 55 4D 57 41 4E 44 45 4C  4E 00 69 29 EC 04 20 54  |UMWANDELN.i).. T|
00000980: 41 58 3B 20 49 4E 53 20  58 2D 52 45 47 49 53 54  |AX; INS X-REGIST|
00000990: 45 52 00 6F 29 F6 04 3B  00 8F 29 00 05 3B 20 4A  |ER.o)..;..)..; J|
000009A0: 45 54 5A 54 20 53 54 45  48 54 20 49 4D 20 58 2D  |ETZT STEHT IM X-|
000009B0: 52 45 47 49 53 54 45 52  00 AA 29 0A 05 3B 20 44  |REGISTER..)..; D|
000009C0: 49 45 20 45 49 4E 47 45  47 45 42 45 4E 45 20 5A  |IE EINGEGEBENE Z|
000009D0: 41 48 4C 00 B0 29 14 05  3B 00 C3 29 1E 05 20 43  |AHL..)..;..).. C|
000009E0: 4D 50 23 31 30 3B 20 3E  20 31 30 3F 00 E4 29 28  |MP#10; > 10?..)(|
000009F0: 05 20 42 43 43 5A 41 48  4C 57 4F 52 54 31 3B 20  |. BCCZAHLWORT1; |
00000A00: 4E 45 49 4E 3D 3E 20 57  45 49 54 45 52 00 01 2A  |NEIN=> WEITER..*|
00000A10: 32 05 20 4A 4D 50 5A 41  48 4C 57 4F 52 54 3B 20  |2. JMPZAHLWORT; |
00000A20: 4E 45 55 45 49 4E 47 41  42 45 00 07 2A 3C 05 3B  |NEUEINGABE..*<.;|
00000A30: 00 28 2A 46 05 5A 41 48  4C 57 4F 52 54 31 20 53  |.(*F.ZAHLWORT1 S|
00000A40: 54 58 58 53 41 56 45 3B  20 58 20 52 45 54 54 45  |TXXSAVE; X RETTE|
00000A50: 4E 00 4E 2A 50 05 20 4C  44 41 23 3C 28 54 57 4F  |N.N*P. LDA#<(TWO|
00000A60: 52 54 29 3B 20 54 45 58  54 20 3E 3E 49 4E 20 57  |RT); TEXT >>IN W|
00000A70: 4F 52 54 45 4E 3C 3C 00  6E 2A 5A 05 20 4C 44 59  |ORTEN<<.n*Z. LDY|
00000A80: 23 3E 28 54 57 4F 52 54  29 3B 20 4E 41 43 48 20  |#>(TWORT); NACH |
00000A90: 45 49 4E 47 41 42 45 00  87 2A 64 05 20 4A 53 52  |EINGABE..*d. JSR|
00000AA0: 53 54 52 4F 55 54 3B 20  41 55 53 47 45 42 45 4E  |STROUT; AUSGEBEN|
00000AB0: 00 A5 2A 6E 05 20 4C 44  58 58 53 41 56 45 3B 20  |..*n. LDXXSAVE; |
00000AC0: 58 20 57 49 45 44 45 52  20 48 4F 4C 45 4E 00 C1  |X WIEDER HOLEN..|
00000AD0: 2A 78 05 20 4C 44 41 5A  57 4C 4F 2C 58 3B 20 41  |*x. LDAZWLO,X; A|
00000AE0: 44 52 45 53 53 45 20 44  45 53 00 E2 2A 82 05 20  |DRESSE DES..*.. |
00000AF0: 4C 44 59 5A 57 48 49 2C  58 3B 20 5A 41 48 4C 57  |LDYZWHI,X; ZAHLW|
00000B00: 4F 52 54 45 53 20 48 4F  4C 45 4E 00 05 2B 8C 05  |ORTES HOLEN..+..|
00000B10: 20 4A 53 52 53 54 52 4F  55 54 3B 20 55 4E 44 20  | JSRSTROUT; UND |
00000B20: 5A 2E 57 4F 52 54 20 44  52 55 43 4B 45 4E 00 0B  |Z.WORT DRUCKEN..|
00000B30: 2B 96 05 3B 00 27 2B A0  05 57 41 49 54 20 4A 53  |+..;.'+..WAIT JS|
00000B40: 52 47 45 54 3B 20 57 41  52 54 45 54 20 41 55 46  |RGET; WARTET AUF|
00000B50: 00 41 2B AA 05 20 42 45  51 57 41 49 54 3B 20 54  |.A+.. BEQWAIT; T|
00000B60: 41 53 54 45 4E 44 52 55  43 4B 00 5F 2B B4 05 20  |ASTENDRUCK._+.. |
00000B70: 4A 4D 50 53 54 41 52 54  3B 20 5A 55 4D 20 48 41  |JMPSTART; ZUM HA|
00000B80: 55 50 54 4D 45 4E 55 45  00 65 2B BE 05 3B 00 6B  |UPTMENUE.e+..;.k|
00000B90: 2B C8 05 3B 00 71 2B D2  05 3B 00 89 2B DC 05 46  |+..;.q+..;..+..F|
00000BA0: 41 52 42 45 20 4C 44 41  23 3C 28 54 46 41 52 42  |ARBE LDA#<(TFARB|
00000BB0: 45 29 00 9C 2B E6 05 20  4C 44 59 23 3E 28 54 46  |E)..+.. LDY#>(TF|
00000BC0: 41 52 42 45 29 00 AB 2B  F0 05 20 4A 53 52 53 54  |ARBE)..+.. JSRST|
00000BD0: 52 4F 55 54 00 B6 2B FA  05 20 4C 44 58 23 30 00  |ROUT..+.. LDX#0.|
00000BE0: D8 2B 04 06 46 41 52 42  45 31 20 4A 53 52 42 41  |.+..FARBE1 JSRBA|
00000BF0: 53 49 4E 3B 20 48 4F 4C  54 20 45 49 4E 47 41 42  |SIN; HOLT EINGAB|
00000C00: 45 00 EE 2B 0E 06 20 43  4D 50 23 22 20 22 3B 20  |E..+.. CMP#" "; |
00000C10: 53 50 41 43 45 20 3F 00  0D 2C 18 06 20 42 45 51  |SPACE ?..,.. BEQ|
00000C20: 46 41 52 42 45 31 3B 20  4A 41 3D 3E 55 45 42 45  |FARBE1; JA=>UEBE|
00000C30: 52 4C 45 53 45 4E 00 2C  2C 22 06 20 43 4D 50 23  |RLESEN.,,". CMP#|
00000C40: 31 33 3B 20 45 4E 44 45  20 44 45 52 20 45 49 4E  |13; ENDE DER EIN|
00000C50: 47 41 42 45 3F 00 4C 2C  2C 06 20 42 45 51 46 41  |GABE?.L,,. BEQFA|
00000C60: 52 42 45 32 3B 20 4A 41  2C 20 44 41 4E 4E 20 57  |RBE2; JA, DANN W|
00000C70: 45 49 54 45 52 00 72 2C  36 06 20 53 54 41 46 41  |EITER.r,6. STAFA|
00000C80: 52 42 57 4F 52 54 2C 58  3B 20 45 49 4E 47 41 42  |RBWORT,X; EINGAB|
00000C90: 45 20 53 50 45 49 43 48  45 52 4E 00 8D 2C 40 06  |E SPEICHERN..,@.|
00000CA0: 20 49 4E 58 3B 20 5A 41  45 48 4C 45 52 20 45 52  | INX; ZAEHLER ER|
00000CB0: 48 4F 45 48 45 4E 00 AA  2C 4A 06 20 4A 4D 50 46  |HOEHEN..,J. JMPF|
00000CC0: 41 52 42 45 31 3B 20 5A  55 52 20 53 43 48 4C 45  |ARBE1; ZUR SCHLE|
00000CD0: 49 46 45 00 C9 2C 54 06  46 41 52 42 45 32 20 53  |IFE..,T.FARBE2 S|
00000CE0: 54 58 32 3B 20 4C 41 45  4E 47 45 20 4D 45 52 4B  |TX2; LAENGE MERK|
00000CF0: 45 4E 00 D4 2C 5E 06 20  4C 44 58 23 30 00 DD 2C  |EN..,^. LDX#0..,|
00000D00: 68 06 20 54 58 41 00 EC  2C 72 06 46 41 52 42 45  |h. TXA..,r.FARBE|
00000D10: 33 20 52 4F 4C 00 FF 2C  7C 06 20 45 4F 52 46 41  |3 ROL..,|. EORFA|
00000D20: 52 42 57 4F 52 54 2C 58  00 08 2D 86 06 20 49 4E  |RBWORT,X..-.. IN|
00000D30: 58 00 21 2D 90 06 20 43  50 58 32 3B 20 53 43 48  |X.!-.. CPX2; SCH|
00000D40: 4F 4E 20 46 45 52 54 49  47 3F 00 43 2D 9A 06 20  |ON FERTIG?.C-.. |
00000D50: 42 4E 45 46 41 52 42 45  33 3B 20 4E 45 49 4E 2C  |BNEFARBE3; NEIN,|
00000D60: 5A 55 52 20 53 43 48 4C  45 49 46 45 00 54 2D A4  |ZUR SCHLEIFE.T-.|
00000D70: 06 20 43 4C 43 3B 20 4C  41 45 4E 47 45 00 68 2D  |. CLC; LAENGE.h-|
00000D80: AE 06 20 41 44 43 32 3B  20 41 44 44 49 45 52 45  |.. ADC2; ADDIERE|
00000D90: 4E 00 6E 2D B8 06 3B 00  96 2D C2 06 3B 20 48 49  |N.n-..;..-..; HI|
00000DA0: 45 52 20 53 54 45 48 54  20 49 4D 20 41 4B 4B 55  |ER STEHT IM AKKU|
00000DB0: 20 44 49 45 20 50 52 55  45 46 53 55 4D 4D 45 00  | DIE PRUEFSUMME.|
00000DC0: 9C 2D CC 06 3B 00 A7 2D  D6 06 20 4C 44 58 23 30  |.-..;..-.. LDX#0|
00000DD0: 00 C3 2D E0 06 46 41 52  42 45 34 20 43 4D 50 50  |..-..FARBE4 CMPP|
00000DE0: 52 55 45 46 53 55 4D 4D  45 4E 2C 58 00 DC 2D EA  |RUEFSUMMEN,X..-.|
00000DF0: 06 20 42 45 51 46 41 52  42 45 35 3B 20 47 45 46  |. BEQFARBE5; GEF|
00000E00: 55 4E 44 45 4E 00 E5 2D  F4 06 20 49 4E 58 00 F1  |UNDEN..-.. INX..|
00000E10: 2D FE 06 20 43 50 58 23  31 36 00 00 2E 08 07 20  |-.. CPX#16..... |
00000E20: 42 4E 45 46 41 52 42 45  34 00 1C 2E 12 07 20 4A  |BNEFARBE4..... J|
00000E30: 4D 50 46 41 52 42 45 3B  20 4E 45 55 45 20 45 49  |MPFARBE; NEUE EI|
00000E40: 4E 47 41 42 45 00 3D 2E  1C 07 46 41 52 42 45 35  |NGABE.=...FARBE5|
00000E50: 20 53 54 58 35 33 32 38  30 3B 20 42 49 4C 44 53  | STX53280; BILDS|
00000E60: 43 48 49 52 4D 2D 00 59  2E 26 07 20 53 54 58 35  |CHIRM-.Y.&. STX5|
00000E70: 33 32 38 31 3B 20 46 41  52 42 45 20 53 45 54 5A  |3281; FARBE SETZ|
00000E80: 45 4E 00 72 2E 30 07 20  4A 4D 50 53 54 41 52 54  |EN.r.0. JMPSTART|
00000E90: 3B 20 5A 55 4D 20 4D 45  4E 55 45 00 78 2E 3A 07  |; ZUM MENUE.x.:.|
00000EA0: 3B 00 7E 2E 10 27 3B 00  8D 2E 1A 27 3B 20 54 41  |;.~..';....'; TA|
00000EB0: 42 45 4C 4C 45 4E 00 9C  2E 24 27 3B 20 3D 3D 3D  |BELLEN...$'; ===|
00000EC0: 3D 3D 3D 3D 3D 00 A2 2E  2E 27 3B 00 AF 2E 38 27  |=====....';...8'|
00000ED0: 3B 20 54 45 58 54 45 3A  00 B5 2E 42 27 3B 00 E0  |; TEXTE:...B';..|
00000EE0: 2E 4C 27 50 55 4E 4B 54  30 20 2E 54 58 22 5A 41  |.L'PUNKT0 .TX"ZA|
00000EF0: 48 4C 20 49 4E 20 5A 41  48 4C 57 4F 52 54 20 55  |HL IN ZAHLWORT U|
00000F00: 4D 57 41 4E 44 45 4C 4E  22 00 F0 2E 56 27 2E 42  |MWANDELN"...V'.B|
00000F10: 59 20 31 33 2C 31 33 2C  30 00 F6 2E 60 27 3B 00  |Y 13,13,0...`';.|
00000F20: 16 2F 6A 27 50 55 4E 4B  54 31 20 2E 54 58 22 42  |./j'PUNKT1 .TX"B|
00000F30: 49 4C 44 53 43 48 49 52  4D 46 41 52 42 45 22 00  |ILDSCHIRMFARBE".|
00000F40: 26 2F 74 27 2E 42 59 20  31 33 2C 31 33 2C 30 00  |&/t'.BY 13,13,0.|
00000F50: 2C 2F 7E 27 3B 00 4C 2F  88 27 50 55 4E 4B 54 32  |,/~';.L/.'PUNKT2|
00000F60: 20 2E 54 58 22 52 45 53  45 54 20 41 55 53 4C 4F  | .TX"RESET AUSLO|
00000F70: 45 53 45 4E 22 00 5C 2F  92 27 2E 42 59 20 31 33  |ESEN".\/.'.BY 13|
00000F80: 2C 31 33 2C 30 00 62 2F  9C 27 3B 00 89 2F A6 27  |,13,0.b/.';../.'|
00000F90: 50 55 4E 4B 54 33 20 2E  54 58 22 50 52 4F 47 52  |PUNKT3 .TX"PROGR|
00000FA0: 41 4D 4D 45 4E 44 45 20  55 45 42 45 52 20 52 54  |AMMENDE UEBER RT|
00000FB0: 53 22 00 9A 2F B0 27 2E  42 59 20 31 33 2C 31 33  |S"../.'.BY 13,13|
00000FC0: 2C 31 33 00 B7 2F BA 27  2E 54 58 20 22 42 49 54  |,13../.'.TX "BIT|
00000FD0: 54 45 20 41 55 53 57 41  45 48 4C 45 4E 20 21 22  |TE AUSWAEHLEN !"|
00000FE0: 00 C1 2F C4 27 2E 42 59  20 30 00 C7 2F CE 27 3B  |../.'.BY 0../.';|
00000FF0: 00 CD 2F D8 27 3B 00 FC  2F E2 27 54 41 53 54 45  |../.';../.'TASTE|
00001000: 4E 20 2E 42 59 31 33 33  2C 31 33 2C 22 5F 22 2C  |N .BY133,13,"_",|
00001010: 22 3D 22 3B 20 31 33 33  3D 46 31 2C 31 33 3D 52  |"="; 133=F1,13=R|
00001020: 45 54 55 52 4E 00 23 30  EC 27 2E 42 59 20 31 39  |ETURN.#0.'.BY 19|
00001030: 2C 22 30 22 2C 22 40 22  2C 30 20 3B 20 31 39 3D  |,"0","@",0 ; 19=|
00001040: 48 4F 4D 45 2C 30 3D 44  55 4D 4D 59 00 50 30 F6  |HOME,0=DUMMY.P0.|
00001050: 27 2E 42 59 20 31 37 2C  22 44 22 2C 31 33 35 2C  |'.BY 17,"D",135,|
00001060: 22 2B 22 20 3B 20 31 37  3D 43 52 53 52 20 44 4F  |"+" ; 17=CRSR DO|
00001070: 57 4E 2C 31 33 35 3D 46  35 00 7D 30 00 28 2E 42  |WN,135=F5.}0.(.B|
00001080: 59 20 31 34 35 2C 22 55  22 2C 31 33 34 2C 22 2D  |Y 145,"U",134,"-|
00001090: 22 20 3B 20 31 34 35 3D  43 52 53 52 20 55 50 2C  |" ; 145=CRSR UP,|
000010A0: 31 33 34 3D 46 33 00 83  30 0A 28 3B 00 89 30 14  |134=F3..0.(;..0.|
000010B0: 28 3B 00 A6 30 1E 28 54  5A 41 48 4C 20 2E 42 59  |(;..0.(TZAHL .BY|
000010C0: 31 34 37 3B 20 43 4C 45  41 52 20 48 4F 4D 45 00  |147; CLEAR HOME.|
000010D0: BE 30 28 28 2E 54 58 20  22 5A 41 48 4C 20 28 30  |.0((.TX "ZAHL (0|
000010E0: 2D 39 29 20 3F 20 22 00  C8 30 32 28 2E 42 59 20  |-9) ? "..02(.BY |
000010F0: 30 00 CE 30 3C 28 3B 00  EB 30 46 28 54 57 4F 52  |0..0<(;..0F(TWOR|
00001100: 54 20 2E 54 58 22 20 49  4E 20 57 4F 52 54 45 4E  |T .TX" IN WORTEN|
00001110: 20 3A 20 22 00 F5 30 50  28 2E 42 59 20 30 00 FB  | : "..0P(.BY 0..|
00001120: 30 5A 28 3B 00 01 31 64  28 3B 00 19 31 6E 28 3B  |0Z(;..1d(;..1n(;|
00001130: 20 5A 41 48 4C 57 4F 45  52 54 45 52 20 28 30 2D  | ZAHLWOERTER (0-|
00001140: 39 29 00 1F 31 78 28 3B  00 25 31 82 28 3B 00 38  |9)..1x(;.%1.(;.8|
00001150: 31 8C 28 4E 55 4C 4C 20  2E 54 58 22 4E 55 4C 4C  |1.(NULL .TX"NULL|
00001160: 22 00 42 31 96 28 2E 42  59 20 30 00 48 31 A0 28  |".B1.(.BY 0.H1.(|
00001170: 3B 00 5B 31 AA 28 45 49  4E 53 20 2E 54 58 22 45  |;.[1.(EINS .TX"E|
00001180: 49 4E 53 22 00 65 31 B4  28 2E 42 59 20 30 00 6B  |INS".e1.(.BY 0.k|
00001190: 31 BE 28 3B 00 7E 31 C8  28 5A 57 45 49 20 2E 54  |1.(;.~1.(ZWEI .T|
000011A0: 58 22 5A 57 45 49 22 00  88 31 D2 28 2E 42 59 20  |X"ZWEI"..1.(.BY |
000011B0: 30 00 8E 31 DC 28 3B 00  A1 31 E6 28 44 52 45 49  |0..1.(;..1.(DREI|
000011C0: 20 2E 54 58 22 44 52 45  49 22 00 AB 31 F0 28 2E  | .TX"DREI"..1.(.|
000011D0: 42 59 20 30 00 B1 31 FA  28 3B 00 C4 31 04 29 56  |BY 0..1.(;..1.)V|
000011E0: 49 45 52 20 2E 54 58 22  56 49 45 52 22 00 CE 31  |IER .TX"VIER"..1|
000011F0: 0E 29 2E 42 59 20 30 00  D4 31 18 29 3B 00 E9 31  |.).BY 0..1.);..1|
00001200: 22 29 46 55 45 4E 46 20  2E 54 58 22 46 55 45 4E  |")FUENF .TX"FUEN|
00001210: 46 22 00 F3 31 2C 29 2E  42 59 20 30 00 F9 31 36  |F"..1,).BY 0..16|
00001220: 29 3B 00 0E 32 40 29 53  45 43 48 53 20 2E 54 58  |);..2@)SECHS .TX|
00001230: 22 53 45 43 48 53 22 00  18 32 4A 29 2E 42 59 20  |"SECHS"..2J).BY |
00001240: 30 00 1E 32 54 29 3B 00  35 32 5E 29 53 49 45 42  |0..2T);.52^)SIEB|
00001250: 45 4E 20 2E 54 58 22 53  49 45 42 45 4E 22 00 3F  |EN .TX"SIEBEN".?|
00001260: 32 68 29 2E 42 59 20 30  00 45 32 72 29 3B 00 58  |2h).BY 0.E2r);.X|
00001270: 32 7C 29 41 43 48 54 20  2E 54 58 22 41 43 48 54  |2|)ACHT .TX"ACHT|
00001280: 22 00 62 32 86 29 2E 42  59 20 30 00 68 32 90 29  |".b2.).BY 0.h2.)|
00001290: 3B 00 7B 32 9A 29 4E 45  55 4E 20 2E 54 58 22 4E  |;.{2.)NEUN .TX"N|
000012A0: 45 55 4E 22 00 85 32 A4  29 2E 42 59 20 30 00 8B  |EUN"..2.).BY 0..|
000012B0: 32 AE 29 3B 00 91 32 B8  29 3B 00 AF 32 C2 29 54  |2.);..2.);..2.)T|
000012C0: 46 41 52 42 45 20 2E 42  59 31 34 37 3B 20 43 4C  |FARBE .BY147; CL|
000012D0: 45 41 52 20 48 4F 4D 45  00 C9 32 CC 29 2E 54 58  |EAR HOME..2.).TX|
000012E0: 20 22 57 45 4C 43 48 45  20 46 41 52 42 45 20 3F  | "WELCHE FARBE ?|
000012F0: 20 22 00 D3 32 D6 29 2E  42 59 20 30 00 D9 32 E0  | "..2.).BY 0..2.|
00001300: 29 3B 00 DF 32 EA 29 3B  00 0A 33 F4 29 52 56 53  |);..2.);..3.)RVS|
00001310: 54 41 42 20 2E 42 59 30  2C 30 2C 30 2C 30 3B 20  |TAB .BY0,0,0,0; |
00001320: 34 20 42 59 54 45 53 20  52 45 53 45 52 56 49 45  |4 BYTES RESERVIE|
00001330: 52 45 4E 00 10 33 FE 29  3B 00 16 33 08 2A 3B 00  |REN..3.);..3.*;.|
00001340: 24 33 12 2A 3B 20 5A 41  48 4C 45 4E 3A 00 2A 33  |$3.*; ZAHLEN:.*3|
00001350: 1C 2A 3B 00 4C 33 26 2A  3B 20 41 44 52 45 53 53  |.*;.L3&*; ADRESS|
00001360: 45 4E 20 44 45 52 20 54  45 58 54 45 2C 20 44 49  |EN DER TEXTE, DI|
00001370: 45 20 44 49 45 00 6A 33  30 2A 3B 20 4D 45 4E 55  |E DIE.j30*; MENU|
00001380: 45 50 55 4E 4B 54 45 20  42 45 53 43 48 52 45 49  |EPUNKTE BESCHREI|
00001390: 42 45 4E 00 70 33 3A 2A  3B 00 92 33 44 2A 54 45  |BEN.p3:*;..3D*TE|
000013A0: 58 54 4C 4F 20 2E 42 59  3C 28 50 55 4E 4B 54 30  |XTLO .BY<(PUNKT0|
000013B0: 29 2C 3C 28 50 55 4E 4B  54 31 29 00 AE 33 4E 2A  |),<(PUNKT1)..3N*|
000013C0: 2E 42 59 20 3C 28 50 55  4E 4B 54 32 29 2C 3C 28  |.BY <(PUNKT2),<(|
000013D0: 50 55 4E 4B 54 33 29 00  B4 33 58 2A 3B 00 D6 33  |PUNKT3)..3X*;..3|
000013E0: 62 2A 54 45 58 54 48 49  20 2E 42 59 3E 28 50 55  |b*TEXTHI .BY>(PU|
000013F0: 4E 4B 54 30 29 2C 3E 28  50 55 4E 4B 54 31 29 00  |NKT0),>(PUNKT1).|
00001400: F2 33 6C 2A 2E 42 59 20  3E 28 50 55 4E 4B 54 32  |.3l*.BY >(PUNKT2|
00001410: 29 2C 3E 28 50 55 4E 4B  54 33 29 00 F8 33 76 2A  |),>(PUNKT3)..3v*|
00001420: 3B 00 FE 33 80 2A 3B 00  1D 34 8A 2A 3B 20 41 44  |;..3.*;..4.*; AD|
00001430: 52 45 53 53 45 4E 20 44  45 52 20 5A 41 48 4C 57  |RESSEN DER ZAHLW|
00001440: 4F 45 52 54 45 52 00 23  34 94 2A 3B 00 4F 34 9E  |OERTER.#4.*;.O4.|
00001450: 2A 5A 57 4C 4F 20 2E 42  59 3C 28 4E 55 4C 4C 29  |*ZWLO .BY<(NULL)|
00001460: 2C 3C 28 45 49 4E 53 29  2C 3C 28 5A 57 45 49 29  |,<(EINS),<(ZWEI)|
00001470: 2C 3C 28 44 52 45 49 29  00 7B 34 A8 2A 2E 42 59  |,<(DREI).{4.*.BY|
00001480: 20 3C 28 56 49 45 52 29  2C 3C 28 46 55 45 4E 46  | <(VIER),<(FUENF|
00001490: 29 2C 3C 28 53 45 43 48  53 29 2C 3C 28 53 49 45  |),<(SECHS),<(SIE|
000014A0: 42 45 4E 29 00 93 34 B2  2A 2E 42 59 20 3C 28 41  |BEN)..4.*.BY <(A|
000014B0: 43 48 54 29 2C 3C 28 4E  45 55 4E 29 00 99 34 BC  |CHT),<(NEUN)..4.|
000014C0: 2A 3B 00 C5 34 C6 2A 5A  57 48 49 20 2E 42 59 3E  |*;..4.*ZWHI .BY>|
000014D0: 28 4E 55 4C 4C 29 2C 3E  28 45 49 4E 53 29 2C 3E  |(NULL),>(EINS),>|
000014E0: 28 5A 57 45 49 29 2C 3E  28 44 52 45 49 29 00 F1  |(ZWEI),>(DREI)..|
000014F0: 34 D0 2A 2E 42 59 20 3E  28 56 49 45 52 29 2C 3E  |4.*.BY >(VIER),>|
00001500: 28 46 55 45 4E 46 29 2C  3E 28 53 45 43 48 53 29  |(FUENF),>(SECHS)|
00001510: 2C 3E 28 53 49 45 42 45  4E 29 00 09 35 DA 2A 2E  |,>(SIEBEN)..5.*.|
00001520: 42 59 20 3E 28 41 43 48  54 29 2C 3E 28 4E 45 55  |BY >(ACHT),>(NEU|
00001530: 4E 29 00 0F 35 E4 2A 3B  00 15 35 EE 2A 3B 00 36  |N)..5.*;..5.*;.6|
00001540: 35 F8 2A 3B 20 41 44 52  45 53 53 45 4E 20 44 45  |5.*; ADRESSEN DE|
00001550: 52 20 55 4E 54 45 52 52  4F 55 54 49 4E 45 4E 00  |R UNTERROUTINEN.|
00001560: 54 35 02 2B 3B 20 46 55  45 52 20 44 49 45 20 4D  |T5.+; FUER DIE M|
00001570: 45 4E 55 45 53 54 45 55  45 52 55 4E 47 00 5A 35  |ENUESTEUERUNG.Z5|
00001580: 0C 2B 3B 00 85 35 16 2B  53 50 31 4C 4F 20 2E 42  |.+;..5.+SP1LO .B|
00001590: 59 3C 28 45 58 45 43 29  2C 3C 28 48 4F 4D 45 29  |Y<(EXEC),<(HOME)|
000015A0: 2C 3C 28 44 4F 57 4E 29  2C 3C 28 55 50 29 00 8B  |,<(DOWN),<(UP)..|
000015B0: 35 20 2B 3B 00 B6 35 2A  2B 53 50 31 48 49 20 2E  |5 +;..5*+SP1HI .|
000015C0: 42 59 3E 28 45 58 45 43  29 2C 3E 28 48 4F 4D 45  |BY>(EXEC),>(HOME|
000015D0: 29 2C 3E 28 44 4F 57 4E  29 2C 3E 28 55 50 29 00  |),>(DOWN),>(UP).|
000015E0: BC 35 34 2B 3B 00 C2 35  3E 2B 3B 00 DF 35 48 2B  |.54+;..5>+;..5H+|
000015F0: 3B 20 41 44 52 45 53 53  45 4E 20 44 45 52 20 45  |; ADRESSEN DER E|
00001600: 49 4E 5A 45 4C 4E 45 4E  00 F1 35 52 2B 3B 20 4D  |INZELNEN..5R+; M|
00001610: 45 4E 55 45 50 55 4E 4B  54 45 00 F7 35 5C 2B 3B  |ENUEPUNKTE..5\+;|
00001620: 00 19 36 66 2B 53 50 32  4C 4F 20 2E 42 59 3C 28  |..6f+SP2LO .BY<(|
00001630: 5A 41 48 4C 57 4F 52 54  29 2C 3C 28 46 41 52 42  |ZAHLWORT),<(FARB|
00001640: 45 29 00 43 36 70 2B 2E  42 59 20 3C 28 52 45 53  |E).C6p+.BY <(RES|
00001650: 45 54 29 2C 3C 28 45 4E  44 45 29 20 3B 20 42 45  |ET),<(ENDE) ; BE|
00001660: 49 20 45 4E 44 45 20 53  54 45 48 54 00 65 36 7A  |I ENDE STEHT.e6z|
00001670: 2B 53 50 32 48 49 20 2E  42 59 3E 28 5A 41 48 4C  |+SP2HI .BY>(ZAHL|
00001680: 57 4F 52 54 29 2C 3E 28  46 41 52 42 45 29 00 8F  |WORT),>(FARBE)..|
00001690: 36 84 2B 2E 42 59 20 3E  28 52 45 53 45 54 29 2C  |6.+.BY >(RESET),|
000016A0: 3E 28 45 4E 44 45 29 20  3B 20 45 49 4E 20 52 54  |>(ENDE) ; EIN RT|
000016B0: 53 2D 42 45 46 45 48 4C  00 95 36 8E 2B 3B 00 B8  |S-BEFEHL..6.+;..|
000016C0: 36 98 2B 3B 20 50 52 55  45 46 53 55 4D 4D 45 4E  |6.+; PRUEFSUMMEN|
000016D0: 20 44 45 52 20 46 41 52  42 2D 57 4F 45 52 54 45  | DER FARB-WOERTE|
000016E0: 52 00 BE 36 A2 2B 3B 00  E8 36 AC 2B 50 52 55 45  |R..6.+;..6.+PRUE|
000016F0: 46 53 55 4D 4D 45 4E 20  2E 42 59 34 31 2C 31 35  |FSUMMEN .BY41,15|
00001700: 38 2C 31 33 37 2C 32 31  32 2C 31 35 39 2C 31 30  |8,137,212,159,10|
00001710: 31 00 12 37 B6 2B 2E 42  59 20 33 2C 32 2C 33 33  |1..7.+.BY 3,2,33|
00001720: 2C 36 39 2C 32 30 31 2C  31 31 36 2C 31 31 33 2C  |,69,201,116,113,|
00001730: 31 32 31 2C 31 32 37 2C  31 31 34 00 18 37 C0 2B  |121,127,114..7.+|
00001740: 3B 00 1E 37 CA 2B 3B 00  35 37 D4 2B 3B 20 5A 57  |;..7.+;.57.+; ZW|
00001750: 49 53 43 48 45 4E 53 50  45 49 43 48 45 52 00 3B  |ISCHENSPEICHER.;|
00001760: 37 DE 2B 3B 00 5C 37 E8  2B 4D 50 54 20 2E 42 59  |7.+;.\7.+MPT .BY|
00001770: 30 3B 20 31 20 42 59 54  45 20 52 45 53 45 52 56  |0; 1 BYTE RESERV|
00001780: 49 45 52 45 4E 00 6B 37  F2 2B 58 53 41 56 45 20  |IEREN.k7.+XSAVE |
00001790: 2E 42 59 30 00 8F 37 FC  2B 53 50 52 55 4E 47 20  |.BY0..7.+SPRUNG |
000017A0: 2E 57 4F 30 3B 20 32 20  42 59 54 45 53 20 46 52  |.WO0; 2 BYTES FR|
000017B0: 45 49 48 41 4C 54 45 4E  00 A1 37 06 2C 46 41 52  |EIHALTEN..7.,FAR|
000017C0: 42 57 4F 52 54 20 2E 42  59 30 00 C8 37 10 2C 3B  |BWORT .BY0..7.,;|
000017D0: 20 5E 20 41 42 20 27 46  41 52 42 57 4F 52 54 27  | ^ AB 'FARBWORT'|
000017E0: 20 57 49 52 44 20 44 49  45 20 45 49 4E 47 41 42  | WIRD DIE EINGAB|
000017F0: 45 00 EF 37 1A 2C 3B 20  20 20 44 45 52 20 46 41  |E..7.,;   DER FA|
00001800: 52 42 2D 42 45 5A 45 49  43 48 4E 55 4E 47 20 41  |RB-BEZEICHNUNG A|
00001810: 42 47 45 4C 45 47 54 2E  00 00 00                 |BGELEGT....     |

X...D..BA $C000 ; START: SYS 49152...N.;
.. X.; *************************.? ..; *
                       *._ ..; *  TABELL
EN - BEISPIEL  *. ..; *  ==============
=====  *..  .; *                       *
.. ..; *  BY  FLORIAN MUELLER  *.. ..; *
                       *.. ..; *********
****************..!H.;..!R..GL STROUT = 
$AB1E.7!...GL CURSORHOME = $E566.K!...GL
 GET = $FFE4.A!...GL BASIN = $FFCF.X!...
GL BASOUT = $FFD2..!...GL RESET = $FCE2 
; SOFTWARE-RESET..!..;.K!..START JSR$E54
4; = PRINT CHR$(147)..!". LDA#0; TASTATU
RPUFFER..!,. STA198; LOESCHEN.."6. STAMP
T.1"@.; ^ SETZT AKTUELLEN MENUEPUNKT AUF
 0.M"J.HSCHLEIFE JSRCURSORHOME.O"T.; ^ H
SCHLEIFE = HAUPTSCHLEIFE.Z"^. LDA#0.."H.
 TAX.."R.SCHLEIFE1 STARVSTAB,X.."|. INX.
.".. CPX#4.C".. BNESCHLEIFE1.O".. LDXMPT
..".. LDA#18; 18 = REVERS EIN..".. STARV
STAB,X..#.. LDX#0.0#B.; ^ SCHLEIFENZAEHL
ER INITIALISIEREN.Q#L.SCHLEIFE2 STXXSAVE
; X RETTEN.B#V. LDARVSTAB,X.Q#.. JSRBASO
UT..#.. LDATEXTLO,X; ERKLAERUNG..#.. LDY
TEXTHI,X; ZUM MENUEPUNKT.H#.. JSRSTROUT;
 AUSGEBEN..#.. LDXXSAVE; X WIEDER HOLEN.
.#.. INX..#.. CPX#4..$&. BNESCHLEIFE2..$
0.;..$:.;.=$D.; HIER IST DAS MENUE BEREI
TS AUF.E$N.; DEN BILDSCHIRM AUSGEGEBEN W
ORDEN..K$X.;..$B.TASTE JSRGET; TASTATURA
BFRAGE..$L. BEQTASTE; WARTEN AUF TASTEND
RUCK..$V. LDX#0.X$..SCHLEIFE3 CMPTASTEN,
X..$.. BEQWEITER1..$.. INX..$.. CPX#16..
%.. BNESCHLEIFE3..%.. JMPTASTE.-%..WEITE
R1 TXA.G%F. LSR; DIVIDIERT AKKU-.A%P. LS
R; MULATOR DURCH 4.J%Z. TAX.Z%.. LDASP1L
O,X..%.. STASPRUNG..%.. LDASP1HI,X..%.. 
STASPRUNG+1..%..;.R%...EQ RUECKSPRUNG = 
HSCHLEIFE-1..% .; ^ LEGT RUECKSPRUNGADRE
SSE DES..&*.;   UNTERPROGRAMMS FEST...&4
.;.1&>. LDA#>(RUECKSPRUNG).:&H. PHA.R&R.
 LDA#<(RUECKSPRUNG).[&\. PHA.L&F. JMP(SP
RUNG).R&P.;.X&Z.;..&..HOME LDX#0..&.. ST
XMPT..&..ENDE RTS; ENDE DES UNTERPRG..&.
.;.U&..DOWN LDXMPT; MENUEPUNKT..&.. INX;
 UM 1 ERHOEHEN..'.. CPX#4; GROESSER ALS 
3?..'J. BEQHOME; DANN =0.>'T. STXMPT; SO
NST UEBERNEHMEN.Z'.. RTS; ZUR HAUPTSCHLE
IFE.`'..;.Z'..UP LDXMPT; MENUEPUNKT..'..
 DEX; DEKREMENTIEREN..'.. BPLENDUP; > 0?
.A'.. LDX#3; NEIN, DANN =3..'..ENDUP STX
MPT; UND UEBERNEHMEN..'$. RTS; ZUR HAUPT
SCHLEIFE..(..;..(8.;.,(B.EXEC PLA; STAPE
LMANIPULATION.5(L. PLA.A(V. LDXMPT.Q(`. 
LDASP2LO,X.`(J. STASPRUNG.P(T. LDASP2HI,
X..(~. STASPRUNG+1..(.. JMP(SPRUNG)..(..
;..(..;..(..;.L(..ZAHLWORT LDA#<(TZAHL);
 AUFFORDERUNG..(.. LDY#>(TZAHL); ZUR EIN
GABE..)D. JSRSTROUT; AUSGEBEN. )N. JSRBA
SIN; HOLT ZEICHEN.8)X. SEC; IN BINAERZAH
L.P).. SBC#"0"; UMWANDELN.I).. TAX; INS 
X-REGISTER.O)..;..)..; JETZT STEHT IM X-
REGISTER..)..; DIE EINGEGEBENE ZAHL..)..
;.C).. CMP#10; > 10?..)(. BCCZAHLWORT1; 
NEIN=> WEITER..*2. JMPZAHLWORT; NEUEINGA
BE..*<.;.(*F.ZAHLWORT1 STXXSAVE; X RETTE
N.N*P. LDA#<(TWORT); TEXT >>IN WORTEN<<.
N*Z. LDY#>(TWORT); NACH EINGABE..*D. JSR
STROUT; AUSGEBEN..*N. LDXXSAVE; X WIEDER
 HOLEN.A*X. LDAZWLO,X; ADRESSE DES..*.. 
LDYZWHI,X; ZAHLWORTES HOLEN..+.. JSRSTRO
UT; UND Z.WORT DRUCKEN..+..;.'+ .WAIT JS
RGET; WARTET AUF.A+.. BEQWAIT; TASTENDRU
CK._+.. JMPSTART; ZUM HAUPTMENUE.E+..;.K
+H.;.Q+R.;..+..FARBE LDA#<(TFARBE)..+.. 
LDY#>(TFARBE)..+.. JSRSTROUT..+.. LDX#0.
X+..FARBE1 JSRBASIN; HOLT EINGABE..+.. C
MP#" "; SPACE ?..,.. BEQFARBE1; JA=>UEBE
RLESEN.,,". CMP#13; ENDE DER EINGABE?.L,
,. BEQFARBE2; JA, DANN WEITER.R,6. STAFA
RBWORT,X; EINGABE SPEICHERN..,@. INX; ZA
EHLER ERHOEHEN..,J. JMPFARBE1; ZUR SCHLE
IFE.I,T.FARBE2 STX2; LAENGE MERKEN.T,^. 
LDX#0..,H. TXA..,R.FARBE3 ROL..,|. EORFA
RBWORT,X..-.. INX.!-.. CPX2; SCHON FERTI
G?.C-.. BNEFARBE3; NEIN,ZUR SCHLEIFE.T-.
. CLC; LAENGE.H-.. ADC2; ADDIEREN.N-..;.
.-B.; HIER STEHT IM AKKU DIE PRUEFSUMME.
.-L.;..-V. LDX#0.C-..FARBE4 CMPPRUEFSUMM
EN,X..-.. BEQFARBE5; GEFUNDEN..-.. INX..
-.. CPX#16..... BNEFARBE4..... JMPFARBE;
 NEUE EINGABE.=...FARBE5 STX53280; BILDS
CHIRM-.Y.&. STX53281; FARBE SETZEN.R.0. 
JMPSTART; ZUM MENUE.X.:.;.~..';....'; TA
BELLEN...$'; ========....';...8'; TEXTE:
...B';...L'PUNKT0 .TX"ZAHL IN ZAHLWORT U
MWANDELN"...V'.BY 13,13,0...`';../J'PUNK
T1 .TX"BILDSCHIRMFARBE".&/T'.BY 13,13,0.
,/~';.L/.'PUNKT2 .TX"RESET AUSLOESEN".\/
.'.BY 13,13,0.B/.';../.'PUNKT3 .TX"PROGR
AMMENDE UEBER RTS"../.'.BY 13,13,13../.'
.TX "BITTE AUSWAEHLEN !".A/D'.BY 0.G/N';
.M/X';../.'TASTEN .BY133,13,"_","="; 133
=F1,13=RETURN.#0.'.BY 19,"0","@",0 ; 19=
HOME,0=DUMMY.P0.'.BY 17,"D",135,"+" ; 17
=CRSR DOWN,135=F5.}0.(.BY 145,"U",134,"-
" ; 145=CRSR UP,134=F3..0.(;..0.(;..0.(T
ZAHL .BY147; CLEAR HOME..0((.TX "ZAHL (0
-9) ? ".H02(.BY 0.N0<(;..0F(TWORT .TX" I
N WORTEN : "..0P(.BY 0..0Z(;..1D(;..1N(;
 ZAHLWOERTER (0-9)..1X(;.%1.(;.81.(NULL 
.TX"NULL".B1.(.BY 0.H1 (;.[1.(EINS .TX"E
INS".E1.(.BY 0.K1.(;.~1H(ZWEI .TX"ZWEI".
.1R(.BY 0..1.(;..1.(DREI .TX"DREI"..1.(.
BY 0..1.(;.D1.)VIER .TX"VIER".N1.).BY 0.
T1.);..1")FUENF .TX"FUENF"..1,).BY 0..16
);..2@)SECHS .TX"SECHS"..2J).BY 0..2T);.
52^)SIEBEN .TX"SIEBEN".?2H).BY 0.E2R);.X
2|)ACHT .TX"ACHT".B2.).BY 0.H2.);.{2.)NE
UN .TX"NEUN"..2.).BY 0..2.);..2.);..2B)T
FARBE .BY147; CLEAR HOME.I2L).TX "WELCHE
 FARBE ? ".S2V).BY 0.Y2.);..2.);..3.)RVS
TAB .BY0,0,0,0; 4 BYTES RESERVIEREN..3.)
;..3.*;.$3.*; ZAHLEN:.*3.*;.L3&*; ADRESS
EN DER TEXTE, DIE DIE.J30*; MENUEPUNKTE 
BESCHREIBEN.P3:*;..3D*TEXTLO .BY<(PUNKT0
),<(PUNKT1)..3N*.BY <(PUNKT2),<(PUNKT3).
.3X*;.V3B*TEXTHI .BY>(PUNKT0),>(PUNKT1).
.3L*.BY >(PUNKT2),>(PUNKT3)..3V*;..3.*;.
.4.*; ADRESSEN DER ZAHLWOERTER.#4.*;.O4.
*ZWLO .BY<(NULL),<(EINS),<(ZWEI),<(DREI)
.{4.*.BY <(VIER),<(FUENF),<(SECHS),<(SIE
BEN)..4.*.BY <(ACHT),<(NEUN)..4.*;.E4F*Z
WHI .BY>(NULL),>(EINS),>(ZWEI),>(DREI)..
4P*.BY >(VIER),>(FUENF),>(SECHS),>(SIEBE
N)..5Z*.BY >(ACHT),>(NEUN)..5.*;..5.*;.6
5.*; ADRESSEN DER UNTERROUTINEN.T5.+; FU
ER DIE MENUESTEUERUNG.Z5.+;..5.+SP1LO .B
Y<(EXEC),<(HOME),<(DOWN),<(UP)..5 +;..5*
+SP1HI .BY>(EXEC),>(HOME),>(DOWN),>(UP).
.54+;.B5>+;..5H+; ADRESSEN DER EINZELNEN
..5R+; MENUEPUNKTE..5\+;..6F+SP2LO .BY<(
ZAHLWORT),<(FARBE).C6P+.BY <(RESET),<(EN
DE) ; BEI ENDE STEHT.E6Z+SP2HI .BY>(ZAHL
WORT),>(FARBE)..6.+.BY >(RESET),>(ENDE) 
; EIN RTS-BEFEHL..6.+;..6.+; PRUEFSUMMEN
 DER FARB-WOERTER..6.+;..6.+PRUEFSUMMEN 
.BY41,158,137,212,159,101..7.+.BY 3,2,33
,69,201,116,113,121,127,114..7.+;..7J+;.
57T+; ZWISCHENSPEICHER.;7.+;.\7.+MPT .BY
0; 1 BYTE RESERVIEREN.K7.+XSAVE .BY0..7.
+SPRUNG .WO0; 2 BYTES FREIHALTEN..7.,FAR
BWORT .BY0.H7.,; ^ AB 'FARBWORT' WIRD DI
E EINGABE..7.,;   DER FARB-BEZEICHNUNG A
BGELEGT....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL