LISTING 11
FILE INFORMATION
FILENAME(S): LISTING 11
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 3 disk(s)
FILE HASH
ffb9f21336f1f97d156a2fa84c37845e41c12124ff32b4d1afa12645d2f3e4f1
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | LISTING 11 | PRG | Treasure Chest - ToGuMi | 21 | 0 | DOWNLOAD FILE |
| SONDERHEFT ASS | LISTING 11 | PRG | C64er | 21 | 0 | DOWNLOAD FILE |
| 15835 SEITE A | LISTING 11 | PRG | C64er | 21 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 48 2A 50 05 20 4C 44 41 23 3C 28 54 57 4F |N.H*P. LDA#<(TWO| 00000A60: 52 54 29 3B 20 41 55 46 46 4F 52 44 45 52 55 4E |RT); AUFFORDERUN| 00000A70: 47 00 67 2A 5A 05 20 4C 44 59 23 3E 28 54 57 4F |G.g*Z. LDY#>(TWO| 00000A80: 52 54 29 3B 20 5A 55 52 20 45 49 4E 47 41 42 45 |RT); ZUR EINGABE| 00000A90: 00 80 2A 64 05 20 4A 53 52 53 54 52 4F 55 54 3B |..*d. JSRSTROUT;| 00000AA0: 20 41 55 53 47 45 42 45 4E 00 9E 2A 6E 05 20 4C | AUSGEBEN..*n. L| 00000AB0: 44 58 58 53 41 56 45 3B 20 58 20 57 49 45 44 45 |DXXSAVE; X WIEDE| 00000AC0: 52 20 48 4F 4C 45 4E 00 BA 2A 78 05 20 4C 44 41 |R HOLEN..*x. LDA| 00000AD0: 5A 57 4C 4F 2C 58 3B 20 41 44 52 45 53 53 45 20 |ZWLO,X; ADRESSE | 00000AE0: 44 45 53 00 DB 2A 82 05 20 4C 44 59 5A 57 48 49 |DES..*.. LDYZWHI| 00000AF0: 2C 58 3B 20 5A 41 48 4C 57 4F 52 54 45 53 20 48 |,X; ZAHLWORTES H| 00000B00: 4F 4C 45 4E 00 FE 2A 8C 05 20 4A 53 52 53 54 52 |OLEN..*.. JSRSTR| 00000B10: 4F 55 54 3B 20 55 4E 44 20 5A 2E 57 4F 52 54 20 |OUT; UND Z.WORT | 00000B20: 44 52 55 43 4B 45 4E 00 04 2B 96 05 3B 00 20 2B |DRUCKEN..+..;. +| 00000B30: A0 05 57 41 49 54 20 4A 53 52 47 45 54 3B 20 57 |..WAIT JSRGET; W| 00000B40: 41 52 54 45 54 20 41 55 46 00 3A 2B AA 05 20 42 |ARTET AUF.:+.. B| 00000B50: 45 51 57 41 49 54 3B 20 54 41 53 54 45 4E 44 52 |EQWAIT; TASTENDR| 00000B60: 55 43 4B 00 58 2B B4 05 20 4A 4D 50 53 54 41 52 |UCK.X+.. JMPSTAR| 00000B70: 54 3B 20 5A 55 4D 20 48 41 55 50 54 4D 45 4E 55 |T; ZUM HAUPTMENU| 00000B80: 45 00 5E 2B BE 05 3B 00 64 2B C8 05 3B 00 6A 2B |E.^+..;.d+..;.j+| 00000B90: D2 05 3B 00 82 2B DC 05 46 41 52 42 45 20 4C 44 |..;..+..FARBE LD| 00000BA0: 41 23 3C 28 54 46 41 52 42 45 29 00 95 2B E6 05 |A#<(TFARBE)..+..| 00000BB0: 20 4C 44 59 23 3E 28 54 46 41 52 42 45 29 00 A4 | LDY#>(TFARBE)..| 00000BC0: 2B F0 05 20 4A 53 52 53 54 52 4F 55 54 00 AF 2B |+.. JSRSTROUT..+| 00000BD0: FA 05 20 4C 44 58 23 30 00 D1 2B 04 06 46 41 52 |.. LDX#0..+..FAR| 00000BE0: 42 45 31 20 4A 53 52 42 41 53 49 4E 3B 20 48 4F |BE1 JSRBASIN; HO| 00000BF0: 4C 54 20 45 49 4E 47 41 42 45 00 E7 2B 0E 06 20 |LT EINGABE..+.. | 00000C00: 43 4D 50 23 22 20 22 3B 20 53 50 41 43 45 20 3F |CMP#" "; SPACE ?| 00000C10: 00 06 2C 18 06 20 42 45 51 46 41 52 42 45 31 3B |..,.. BEQFARBE1;| 00000C20: 20 4A 41 3D 3E 55 45 42 45 52 4C 45 53 45 4E 00 | JA=>UEBERLESEN.| 00000C30: 25 2C 22 06 20 43 4D 50 23 31 33 3B 20 45 4E 44 |%,". CMP#13; END| 00000C40: 45 20 44 45 52 20 45 49 4E 47 41 42 45 3F 00 45 |E DER EINGABE?.E| 00000C50: 2C 2C 06 20 42 45 51 46 41 52 42 45 32 3B 20 4A |,,. BEQFARBE2; J| 00000C60: 41 2C 20 44 41 4E 4E 20 57 45 49 54 45 52 00 6B |A, DANN WEITER.k| 00000C70: 2C 36 06 20 53 54 41 46 41 52 42 57 4F 52 54 2C |,6. STAFARBWORT,| 00000C80: 58 3B 20 45 49 4E 47 41 42 45 20 53 50 45 49 43 |X; EINGABE SPEIC| 00000C90: 48 45 52 4E 00 86 2C 40 06 20 49 4E 58 3B 20 5A |HERN..,@. INX; Z| 00000CA0: 41 45 48 4C 45 52 20 45 52 48 4F 45 48 45 4E 00 |AEHLER ERHOEHEN.| 00000CB0: A3 2C 4A 06 20 4A 4D 50 46 41 52 42 45 31 3B 20 |.,J. JMPFARBE1; | 00000CC0: 5A 55 52 20 53 43 48 4C 45 49 46 45 00 C2 2C 54 |ZUR SCHLEIFE..,T| 00000CD0: 06 46 41 52 42 45 32 20 53 54 58 32 3B 20 4C 41 |.FARBE2 STX2; LA| 00000CE0: 45 4E 47 45 20 4D 45 52 4B 45 4E 00 CD 2C 5E 06 |ENGE MERKEN..,^.| 00000CF0: 20 4C 44 58 23 30 00 D6 2C 68 06 20 54 58 41 00 | LDX#0..,h. TXA.| 00000D00: E5 2C 72 06 46 41 52 42 45 33 20 52 4F 4C 00 F8 |.,r.FARBE3 ROL..| 00000D10: 2C 7C 06 20 45 4F 52 46 41 52 42 57 4F 52 54 2C |,|. EORFARBWORT,| 00000D20: 58 00 01 2D 86 06 20 49 4E 58 00 1A 2D 90 06 20 |X..-.. INX..-.. | 00000D30: 43 50 58 32 3B 20 53 43 48 4F 4E 20 46 45 52 54 |CPX2; SCHON FERT| 00000D40: 49 47 3F 00 3C 2D 9A 06 20 42 4E 45 46 41 52 42 |IG?.<-.. BNEFARB| 00000D50: 45 33 3B 20 4E 45 49 4E 2C 5A 55 52 20 53 43 48 |E3; NEIN,ZUR SCH| 00000D60: 4C 45 49 46 45 00 4D 2D A4 06 20 43 4C 43 3B 20 |LEIFE.M-.. CLC; | 00000D70: 4C 41 45 4E 47 45 00 61 2D AE 06 20 41 44 43 32 |LAENGE.a-.. ADC2| 00000D80: 3B 20 41 44 44 49 45 52 45 4E 00 67 2D B8 06 3B |; ADDIEREN.g-..;| 00000D90: 00 8F 2D C2 06 3B 20 48 49 45 52 20 53 54 45 48 |..-..; HIER STEH| 00000DA0: 54 20 49 4D 20 41 4B 4B 55 20 44 49 45 20 50 52 |T IM AKKU DIE PR| 00000DB0: 55 45 46 53 55 4D 4D 45 00 95 2D CC 06 3B 00 A0 |UEFSUMME..-..;..| 00000DC0: 2D D6 06 20 4C 44 58 23 30 00 BC 2D E0 06 46 41 |-.. LDX#0..-..FA| 00000DD0: 52 42 45 34 20 43 4D 50 50 52 55 45 46 53 55 4D |RBE4 CMPPRUEFSUM| 00000DE0: 4D 45 4E 2C 58 00 D5 2D EA 06 20 42 45 51 46 41 |MEN,X..-.. BEQFA| 00000DF0: 52 42 45 35 3B 20 47 45 46 55 4E 44 45 4E 00 DE |RBE5; GEFUNDEN..| 00000E00: 2D F4 06 20 49 4E 58 00 EA 2D FE 06 20 43 50 58 |-.. INX..-.. CPX| 00000E10: 23 31 36 00 F9 2D 08 07 20 42 4E 45 46 41 52 42 |#16..-.. BNEFARB| 00000E20: 45 34 00 15 2E 12 07 20 4A 4D 50 46 41 52 42 45 |E4..... JMPFARBE| 00000E30: 3B 20 4E 45 55 45 20 45 49 4E 47 41 42 45 00 36 |; NEUE EINGABE.6| 00000E40: 2E 1C 07 46 41 52 42 45 35 20 53 54 58 35 33 32 |...FARBE5 STX532| 00000E50: 38 30 3B 20 42 49 4C 44 53 43 48 49 52 4D 2D 00 |80; BILDSCHIRM-.| 00000E60: 52 2E 26 07 20 53 54 58 35 33 32 38 31 3B 20 46 |R.&. STX53281; F| 00000E70: 41 52 42 45 20 53 45 54 5A 45 4E 00 6B 2E 30 07 |ARBE SETZEN.k.0.| 00000E80: 20 4A 4D 50 53 54 41 52 54 3B 20 5A 55 4D 20 4D | JMPSTART; ZUM M| 00000E90: 45 4E 55 45 00 71 2E 3A 07 3B 00 77 2E 10 27 3B |ENUE.q.:.;.w..';| 00000EA0: 00 86 2E 1A 27 3B 20 54 41 42 45 4C 4C 45 4E 00 |....'; TABELLEN.| 00000EB0: 95 2E 24 27 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 00 9B |..$'; ========..| 00000EC0: 2E 2E 27 3B 00 A8 2E 38 27 3B 20 54 45 58 54 45 |..';...8'; TEXTE| 00000ED0: 3A 00 AE 2E 42 27 3B 00 D9 2E 4C 27 50 55 4E 4B |:...B';...L'PUNK| 00000EE0: 54 30 20 2E 54 58 22 5A 41 48 4C 20 49 4E 20 5A |T0 .TX"ZAHL IN Z| 00000EF0: 41 48 4C 57 4F 52 54 20 55 4D 57 41 4E 44 45 4C |AHLWORT UMWANDEL| 00000F00: 4E 22 00 E9 2E 56 27 2E 42 59 20 31 33 2C 31 33 |N"...V'.BY 13,13| 00000F10: 2C 30 00 EF 2E 60 27 3B 00 0F 2F 6A 27 50 55 4E |,0...`';../j'PUN| 00000F20: 4B 54 31 20 2E 54 58 22 42 49 4C 44 53 43 48 49 |KT1 .TX"BILDSCHI| 00000F30: 52 4D 46 41 52 42 45 22 00 1F 2F 74 27 2E 42 59 |RMFARBE"../t'.BY| 00000F40: 20 31 33 2C 31 33 2C 30 00 25 2F 7E 27 3B 00 45 | 13,13,0.%/~';.E| 00000F50: 2F 88 27 50 55 4E 4B 54 32 20 2E 54 58 22 52 45 |/.'PUNKT2 .TX"RE| 00000F60: 53 45 54 20 41 55 53 4C 4F 45 53 45 4E 22 00 55 |SET AUSLOESEN".U| 00000F70: 2F 92 27 2E 42 59 20 31 33 2C 31 33 2C 30 00 5B |/.'.BY 13,13,0.[| 00000F80: 2F 9C 27 3B 00 82 2F A6 27 50 55 4E 4B 54 33 20 |/.';../.'PUNKT3 | 00000F90: 2E 54 58 22 50 52 4F 47 52 41 4D 4D 45 4E 44 45 |.TX"PROGRAMMENDE| 00000FA0: 20 55 45 42 45 52 20 52 54 53 22 00 93 2F B0 27 | UEBER RTS"../.'| 00000FB0: 2E 42 59 20 31 33 2C 31 33 2C 31 33 00 B0 2F BA |.BY 13,13,13../.| 00000FC0: 27 2E 54 58 20 22 42 49 54 54 45 20 41 55 53 57 |'.TX "BITTE AUSW| 00000FD0: 41 45 48 4C 45 4E 20 21 22 00 BA 2F C4 27 2E 42 |AEHLEN !"../.'.B| 00000FE0: 59 20 30 00 C0 2F CE 27 3B 00 C6 2F D8 27 3B 00 |Y 0../.';../.';.| 00000FF0: F5 2F E2 27 54 41 53 54 45 4E 20 2E 42 59 31 33 |./.'TASTEN .BY13| 00001000: 33 2C 31 33 2C 22 5F 22 2C 22 3D 22 3B 20 31 33 |3,13,"_","="; 13| 00001010: 33 3D 46 31 2C 31 33 3D 52 45 54 55 52 4E 00 1C |3=F1,13=RETURN..| 00001020: 30 EC 27 2E 42 59 20 31 39 2C 22 30 22 2C 22 40 |0.'.BY 19,"0","@| 00001030: 22 2C 30 20 3B 20 31 39 3D 48 4F 4D 45 2C 30 3D |",0 ; 19=HOME,0=| 00001040: 44 55 4D 4D 59 00 49 30 F6 27 2E 42 59 20 31 37 |DUMMY.I0.'.BY 17| 00001050: 2C 22 44 22 2C 31 33 35 2C 22 2B 22 20 3B 20 31 |,"D",135,"+" ; 1| 00001060: 37 3D 43 52 53 52 20 44 4F 57 4E 2C 31 33 35 3D |7=CRSR DOWN,135=| 00001070: 46 35 00 76 30 00 28 2E 42 59 20 31 34 35 2C 22 |F5.v0.(.BY 145,"| 00001080: 55 22 2C 31 33 34 2C 22 2D 22 20 3B 20 31 34 35 |U",134,"-" ; 145| 00001090: 3D 43 52 53 52 20 55 50 2C 31 33 34 3D 46 33 00 |=CRSR UP,134=F3.| 000010A0: 7C 30 0A 28 3B 00 82 30 14 28 3B 00 9F 30 1E 28 ||0.(;..0.(;..0.(| 000010B0: 54 5A 41 48 4C 20 2E 42 59 31 34 37 3B 20 43 4C |TZAHL .BY147; CL| 000010C0: 45 41 52 20 48 4F 4D 45 00 B7 30 28 28 2E 54 58 |EAR HOME..0((.TX| 000010D0: 20 22 5A 41 48 4C 20 28 30 2D 39 29 20 3F 20 22 | "ZAHL (0-9) ? "| 000010E0: 00 C1 30 32 28 2E 42 59 20 30 00 C7 30 3C 28 3B |..02(.BY 0..0<(;| 000010F0: 00 E4 30 46 28 54 57 4F 52 54 20 2E 54 58 22 20 |..0F(TWORT .TX" | 00001100: 49 4E 20 57 4F 52 54 45 4E 20 3A 20 22 00 EE 30 |IN WORTEN : "..0| 00001110: 50 28 2E 42 59 20 30 00 F4 30 5A 28 3B 00 FA 30 |P(.BY 0..0Z(;..0| 00001120: 64 28 3B 00 12 31 6E 28 3B 20 5A 41 48 4C 57 4F |d(;..1n(; ZAHLWO| 00001130: 45 52 54 45 52 20 28 30 2D 39 29 00 18 31 78 28 |ERTER (0-9)..1x(| 00001140: 3B 00 1E 31 82 28 3B 00 31 31 8C 28 4E 55 4C 4C |;..1.(;.11.(NULL| 00001150: 20 2E 54 58 22 4E 55 4C 4C 22 00 3B 31 96 28 2E | .TX"NULL".;1.(.| 00001160: 42 59 20 30 00 41 31 A0 28 3B 00 54 31 AA 28 45 |BY 0.A1.(;.T1.(E| 00001170: 49 4E 53 20 2E 54 58 22 45 49 4E 53 22 00 5E 31 |INS .TX"EINS".^1| 00001180: B4 28 2E 42 59 20 30 00 64 31 BE 28 3B 00 77 31 |.(.BY 0.d1.(;.w1| 00001190: C8 28 5A 57 45 49 20 2E 54 58 22 5A 57 45 49 22 |.(ZWEI .TX"ZWEI"| 000011A0: 00 81 31 D2 28 2E 42 59 20 30 00 87 31 DC 28 3B |..1.(.BY 0..1.(;| 000011B0: 00 9A 31 E6 28 44 52 45 49 20 2E 54 58 22 44 52 |..1.(DREI .TX"DR| 000011C0: 45 49 22 00 A4 31 F0 28 2E 42 59 20 30 00 AA 31 |EI"..1.(.BY 0..1| 000011D0: FA 28 3B 00 BD 31 04 29 56 49 45 52 20 2E 54 58 |.(;..1.)VIER .TX| 000011E0: 22 56 49 45 52 22 00 C7 31 0E 29 2E 42 59 20 30 |"VIER"..1.).BY 0| 000011F0: 00 CD 31 18 29 3B 00 E2 31 22 29 46 55 45 4E 46 |..1.);..1")FUENF| 00001200: 20 2E 54 58 22 46 55 45 4E 46 22 00 EC 31 2C 29 | .TX"FUENF"..1,)| 00001210: 2E 42 59 20 30 00 F2 31 36 29 3B 00 07 32 40 29 |.BY 0..16);..2@)| 00001220: 53 45 43 48 53 20 2E 54 58 22 53 45 43 48 53 22 |SECHS .TX"SECHS"| 00001230: 00 11 32 4A 29 2E 42 59 20 30 00 17 32 54 29 3B |..2J).BY 0..2T);| 00001240: 00 2E 32 5E 29 53 49 45 42 45 4E 20 2E 54 58 22 |..2^)SIEBEN .TX"| 00001250: 53 49 45 42 45 4E 22 00 38 32 68 29 2E 42 59 20 |SIEBEN".82h).BY | 00001260: 30 00 3E 32 72 29 3B 00 51 32 7C 29 41 43 48 54 |0.>2r);.Q2|)ACHT| 00001270: 20 2E 54 58 22 41 43 48 54 22 00 5B 32 86 29 2E | .TX"ACHT".[2.).| 00001280: 42 59 20 30 00 61 32 90 29 3B 00 74 32 9A 29 4E |BY 0.a2.);.t2.)N| 00001290: 45 55 4E 20 2E 54 58 22 4E 45 55 4E 22 00 7E 32 |EUN .TX"NEUN".~2| 000012A0: A4 29 2E 42 59 20 30 00 84 32 AE 29 3B 00 8A 32 |.).BY 0..2.);..2| 000012B0: B8 29 3B 00 A8 32 C2 29 54 46 41 52 42 45 20 2E |.);..2.)TFARBE .| 000012C0: 42 59 31 34 37 3B 20 43 4C 45 41 52 20 48 4F 4D |BY147; CLEAR HOM| 000012D0: 45 00 C2 32 CC 29 2E 54 58 20 22 57 45 4C 43 48 |E..2.).TX "WELCH| 000012E0: 45 20 46 41 52 42 45 20 3F 20 22 00 CC 32 D6 29 |E FARBE ? "..2.)| 000012F0: 2E 42 59 20 30 00 D2 32 E0 29 3B 00 D8 32 EA 29 |.BY 0..2.);..2.)| 00001300: 3B 00 03 33 F4 29 52 56 53 54 41 42 20 2E 42 59 |;..3.)RVSTAB .BY| 00001310: 30 2C 30 2C 30 2C 30 3B 20 34 20 42 59 54 45 53 |0,0,0,0; 4 BYTES| 00001320: 20 52 45 53 45 52 56 49 45 52 45 4E 00 09 33 FE | RESERVIEREN..3.| 00001330: 29 3B 00 0F 33 08 2A 3B 00 1D 33 12 2A 3B 20 5A |);..3.*;..3.*; Z| 00001340: 41 48 4C 45 4E 3A 00 23 33 1C 2A 3B 00 45 33 26 |AHLEN:.#3.*;.E3&| 00001350: 2A 3B 20 41 44 52 45 53 53 45 4E 20 44 45 52 20 |*; ADRESSEN DER | 00001360: 54 45 58 54 45 2C 20 44 49 45 20 44 49 45 00 63 |TEXTE, DIE DIE.c| 00001370: 33 30 2A 3B 20 4D 45 4E 55 45 50 55 4E 4B 54 45 |30*; MENUEPUNKTE| 00001380: 20 42 45 53 43 48 52 45 49 42 45 4E 00 69 33 3A | BESCHREIBEN.i3:| 00001390: 2A 3B 00 8B 33 44 2A 54 45 58 54 4C 4F 20 2E 42 |*;..3D*TEXTLO .B| 000013A0: 59 3C 28 50 55 4E 4B 54 30 29 2C 3C 28 50 55 4E |Y<(PUNKT0),<(PUN| 000013B0: 4B 54 31 29 00 A7 33 4E 2A 2E 42 59 20 3C 28 50 |KT1)..3N*.BY <(P| 000013C0: 55 4E 4B 54 32 29 2C 3C 28 50 55 4E 4B 54 33 29 |UNKT2),<(PUNKT3)| 000013D0: 00 AD 33 58 2A 3B 00 CF 33 62 2A 54 45 58 54 48 |..3X*;..3b*TEXTH| 000013E0: 49 20 2E 42 59 3E 28 50 55 4E 4B 54 30 29 2C 3E |I .BY>(PUNKT0),>| 000013F0: 28 50 55 4E 4B 54 31 29 00 EB 33 6C 2A 2E 42 59 |(PUNKT1)..3l*.BY| 00001400: 20 3E 28 50 55 4E 4B 54 32 29 2C 3E 28 50 55 4E | >(PUNKT2),>(PUN| 00001410: 4B 54 33 29 00 F1 33 76 2A 3B 00 F7 33 80 2A 3B |KT3)..3v*;..3.*;| 00001420: 00 16 34 8A 2A 3B 20 41 44 52 45 53 53 45 4E 20 |..4.*; ADRESSEN | 00001430: 44 45 52 20 5A 41 48 4C 57 4F 45 52 54 45 52 00 |DER ZAHLWOERTER.| 00001440: 1C 34 94 2A 3B 00 48 34 9E 2A 5A 57 4C 4F 20 2E |.4.*;.H4.*ZWLO .| 00001450: 42 59 3C 28 4E 55 4C 4C 29 2C 3C 28 45 49 4E 53 |BY<(NULL),<(EINS| 00001460: 29 2C 3C 28 5A 57 45 49 29 2C 3C 28 44 52 45 49 |),<(ZWEI),<(DREI| 00001470: 29 00 74 34 A8 2A 2E 42 59 20 3C 28 56 49 45 52 |).t4.*.BY <(VIER| 00001480: 29 2C 3C 28 46 55 45 4E 46 29 2C 3C 28 53 45 43 |),<(FUENF),<(SEC| 00001490: 48 53 29 2C 3C 28 53 49 45 42 45 4E 29 00 8C 34 |HS),<(SIEBEN)..4| 000014A0: B2 2A 2E 42 59 20 3C 28 41 43 48 54 29 2C 3C 28 |.*.BY <(ACHT),<(| 000014B0: 4E 45 55 4E 29 00 92 34 BC 2A 3B 00 BE 34 C6 2A |NEUN)..4.*;..4.*| 000014C0: 5A 57 48 49 20 2E 42 59 3E 28 4E 55 4C 4C 29 2C |ZWHI .BY>(NULL),| 000014D0: 3E 28 45 49 4E 53 29 2C 3E 28 5A 57 45 49 29 2C |>(EINS),>(ZWEI),| 000014E0: 3E 28 44 52 45 49 29 00 EA 34 D0 2A 2E 42 59 20 |>(DREI)..4.*.BY | 000014F0: 3E 28 56 49 45 52 29 2C 3E 28 46 55 45 4E 46 29 |>(VIER),>(FUENF)| 00001500: 2C 3E 28 53 45 43 48 53 29 2C 3E 28 53 49 45 42 |,>(SECHS),>(SIEB| 00001510: 45 4E 29 00 02 35 DA 2A 2E 42 59 20 3E 28 41 43 |EN)..5.*.BY >(AC| 00001520: 48 54 29 2C 3E 28 4E 45 55 4E 29 00 08 35 E4 2A |HT),>(NEUN)..5.*| 00001530: 3B 00 0E 35 EE 2A 3B 00 2F 35 F8 2A 3B 20 41 44 |;..5.*;./5.*; AD| 00001540: 52 45 53 53 45 4E 20 44 45 52 20 55 4E 54 45 52 |RESSEN DER UNTER| 00001550: 52 4F 55 54 49 4E 45 4E 00 4D 35 02 2B 3B 20 46 |ROUTINEN.M5.+; F| 00001560: 55 45 52 20 44 49 45 20 4D 45 4E 55 45 53 54 45 |UER DIE MENUESTE| 00001570: 55 45 52 55 4E 47 00 53 35 0C 2B 3B 00 7E 35 16 |UERUNG.S5.+;.~5.| 00001580: 2B 53 50 31 4C 4F 20 2E 42 59 3C 28 45 58 45 43 |+SP1LO .BY<(EXEC| 00001590: 29 2C 3C 28 48 4F 4D 45 29 2C 3C 28 44 4F 57 4E |),<(HOME),<(DOWN| 000015A0: 29 2C 3C 28 55 50 29 00 84 35 20 2B 3B 00 AF 35 |),<(UP)..5 +;..5| 000015B0: 2A 2B 53 50 31 48 49 20 2E 42 59 3E 28 45 58 45 |*+SP1HI .BY>(EXE| 000015C0: 43 29 2C 3E 28 48 4F 4D 45 29 2C 3E 28 44 4F 57 |C),>(HOME),>(DOW| 000015D0: 4E 29 2C 3E 28 55 50 29 00 B5 35 34 2B 3B 00 BB |N),>(UP)..54+;..| 000015E0: 35 3E 2B 3B 00 D8 35 48 2B 3B 20 41 44 52 45 53 |5>+;..5H+; ADRES| 000015F0: 53 45 4E 20 44 45 52 20 45 49 4E 5A 45 4C 4E 45 |SEN DER EINZELNE| 00001600: 4E 00 EA 35 52 2B 3B 20 4D 45 4E 55 45 50 55 4E |N..5R+; MENUEPUN| 00001610: 4B 54 45 00 F0 35 5C 2B 3B 00 12 36 66 2B 53 50 |KTE..5\+;..6f+SP| 00001620: 32 4C 4F 20 2E 42 59 3C 28 5A 41 48 4C 57 4F 52 |2LO .BY<(ZAHLWOR| 00001630: 54 29 2C 3C 28 46 41 52 42 45 29 00 3C 36 70 2B |T),<(FARBE).<6p+| 00001640: 2E 42 59 20 3C 28 52 45 53 45 54 29 2C 3C 28 45 |.BY <(RESET),<(E| 00001650: 4E 44 45 29 20 3B 20 42 45 49 20 45 4E 44 45 20 |NDE) ; BEI ENDE | 00001660: 53 54 45 48 54 00 5E 36 7A 2B 53 50 32 48 49 20 |STEHT.^6z+SP2HI | 00001670: 2E 42 59 3E 28 5A 41 48 4C 57 4F 52 54 29 2C 3E |.BY>(ZAHLWORT),>| 00001680: 28 46 41 52 42 45 29 00 88 36 84 2B 2E 42 59 20 |(FARBE)..6.+.BY | 00001690: 3E 28 52 45 53 45 54 29 2C 3E 28 45 4E 44 45 29 |>(RESET),>(ENDE)| 000016A0: 20 3B 20 45 49 4E 20 52 54 53 2D 42 45 46 45 48 | ; EIN RTS-BEFEH| 000016B0: 4C 00 8E 36 8E 2B 3B 00 B1 36 98 2B 3B 20 50 52 |L..6.+;..6.+; PR| 000016C0: 55 45 46 53 55 4D 4D 45 4E 20 44 45 52 20 46 41 |UEFSUMMEN DER FA| 000016D0: 52 42 2D 57 4F 45 52 54 45 52 00 B7 36 A2 2B 3B |RB-WOERTER..6.+;| 000016E0: 00 E1 36 AC 2B 50 52 55 45 46 53 55 4D 4D 45 4E |..6.+PRUEFSUMMEN| 000016F0: 20 2E 42 59 34 31 2C 31 35 38 2C 31 33 37 2C 32 | .BY41,158,137,2| 00001700: 31 32 2C 31 35 39 2C 31 30 31 00 0B 37 B6 2B 2E |12,159,101..7.+.| 00001710: 42 59 20 33 2C 32 2C 33 33 2C 36 39 2C 32 30 31 |BY 3,2,33,69,201| 00001720: 2C 31 31 36 2C 31 31 33 2C 31 32 31 2C 31 32 37 |,116,113,121,127| 00001730: 2C 31 31 34 00 11 37 C0 2B 3B 00 17 37 CA 2B 3B |,114..7.+;..7.+;| 00001740: 00 2E 37 D4 2B 3B 20 5A 57 49 53 43 48 45 4E 53 |..7.+; ZWISCHENS| 00001750: 50 45 49 43 48 45 52 00 34 37 DE 2B 3B 00 55 37 |PEICHER.47.+;.U7| 00001760: E8 2B 4D 50 54 20 2E 42 59 30 3B 20 31 20 42 59 |.+MPT .BY0; 1 BY| 00001770: 54 45 20 52 45 53 45 52 56 49 45 52 45 4E 00 64 |TE RESERVIEREN.d| 00001780: 37 F2 2B 58 53 41 56 45 20 2E 42 59 30 00 88 37 |7.+XSAVE .BY0..7| 00001790: FC 2B 53 50 52 55 4E 47 20 2E 57 4F 30 3B 20 32 |.+SPRUNG .WO0; 2| 000017A0: 20 42 59 54 45 53 20 46 52 45 49 48 41 4C 54 45 | BYTES FREIHALTE| 000017B0: 4E 00 9A 37 06 2C 46 41 52 42 57 4F 52 54 20 2E |N..7.,FARBWORT .| 000017C0: 42 59 30 00 C1 37 10 2C 3B 20 5E 20 41 42 20 27 |BY0..7.,; ^ AB '| 000017D0: 46 41 52 42 57 4F 52 54 27 20 57 49 52 44 20 44 |FARBWORT' WIRD D| 000017E0: 49 45 20 45 49 4E 47 41 42 45 00 E8 37 1A 2C 3B |IE EINGABE..7.,;| 000017F0: 20 20 20 44 45 52 20 46 41 52 42 2D 42 45 5A 45 | DER FARB-BEZE| 00001800: 49 43 48 4E 55 4E 47 20 41 42 47 45 4C 45 47 54 |ICHNUNG ABGELEGT| 00001810: 2E 00 00 00 |.... |
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.H*P. LDA#<(TWORT); AUFFORDERUNG.G*Z. L
DY#>(TWORT); ZUR EINGABE..*D. JSRSTROUT;
AUSGEBEN..*N. LDXXSAVE; X WIEDER HOLEN.
.*X. LDAZWLO,X; ADRESSE DES..*.. LDYZWHI
,X; ZAHLWORTES HOLEN..*.. JSRSTROUT; UND
Z.WORT DRUCKEN..+..;. + .WAIT JSRGET; W
ARTET AUF.:+.. BEQWAIT; TASTENDRUCK.X+..
JMPSTART; ZUM HAUPTMENUE.^+..;.D+H.;.J+
R.;..+..FARBE LDA#<(TFARBE)..+.. LDY#>(T
FARBE)..+.. JSRSTROUT..+.. LDX#0.Q+..FAR
BE1 JSRBASIN; HOLT EINGABE..+.. CMP#" ";
SPACE ?..,.. BEQFARBE1; JA=>UEBERLESEN.
%,". CMP#13; ENDE DER EINGABE?.E,,. BEQF
ARBE2; JA, DANN WEITER.K,6. STAFARBWORT,
X; EINGABE SPEICHERN..,@. INX; ZAEHLER E
RHOEHEN..,J. JMPFARBE1; ZUR SCHLEIFE.B,T
.FARBE2 STX2; LAENGE MERKEN.M,^. LDX#0.V
,H. TXA..,R.FARBE3 ROL..,|. EORFARBWORT,
X..-.. INX..-.. CPX2; SCHON FERTIG?.<-..
BNEFARBE3; NEIN,ZUR SCHLEIFE.M-.. CLC;
LAENGE.A-.. ADC2; ADDIEREN.G-..;..-B.; H
IER STEHT IM AKKU DIE PRUEFSUMME..-L.;.
-V. LDX#0..-..FARBE4 CMPPRUEFSUMMEN,X.U-
.. BEQFARBE5; GEFUNDEN..-.. INX..-.. CPX
#16..-.. BNEFARBE4..... JMPFARBE; NEUE E
INGABE.6...FARBE5 STX53280; BILDSCHIRM-.
R.&. STX53281; FARBE SETZEN.K.0. JMPSTAR
T; ZUM MENUE.Q.:.;.W..';....'; TABELLEN.
..$'; ========....';...8'; TEXTE:...B';.
Y.L'PUNKT0 .TX"ZAHL IN ZAHLWORT UMWANDEL
N"...V'.BY 13,13,0...`';../J'PUNKT1 .TX"
BILDSCHIRMFARBE"../T'.BY 13,13,0.%/~';.E
/.'PUNKT2 .TX"RESET AUSLOESEN".U/.'.BY 1
3,13,0.[/.';../.'PUNKT3 .TX"PROGRAMMENDE
UEBER RTS"../.'.BY 13,13,13../.'.TX "BI
TTE AUSWAEHLEN !"../D'.BY 0../N';.F/X';.
./.'TASTEN .BY133,13,"_","="; 133=F1,13=
RETURN..0.'.BY 19,"0","@",0 ; 19=HOME,0=
DUMMY.I0.'.BY 17,"D",135,"+" ; 17=CRSR D
OWN,135=F5.V0.(.BY 145,"U",134,"-" ; 145
=CRSR UP,134=F3.|0.(;..0.(;..0.(TZAHL .B
Y147; CLEAR HOME..0((.TX "ZAHL (0-9) ? "
.A02(.BY 0.G0<(;..0F(TWORT .TX" IN WORTE
N : "..0P(.BY 0..0Z(;..0D(;..1N(; ZAHLWO
ERTER (0-9)..1X(;..1.(;.11.(NULL .TX"NUL
L".;1.(.BY 0.A1 (;.T1.(EINS .TX"EINS".^1
.(.BY 0.D1.(;.W1H(ZWEI .TX"ZWEI"..1R(.BY
0..1.(;..1.(DREI .TX"DREI"..1.(.BY 0..1
.(;..1.)VIER .TX"VIER".G1.).BY 0.M1.);..
1")FUENF .TX"FUENF"..1,).BY 0..16);..2@)
SECHS .TX"SECHS"..2J).BY 0..2T);..2^)SIE
BEN .TX"SIEBEN".82H).BY 0.>2R);.Q2|)ACHT
.TX"ACHT".[2.).BY 0.A2.);.T2.)NEUN .TX"
NEUN".~2.).BY 0..2.);..2.);..2B)TFARBE .
BY147; CLEAR HOME.B2L).TX "WELCHE FARBE
? ".L2V).BY 0.R2.);.X2.);..3.)RVSTAB .BY
0,0,0,0; 4 BYTES RESERVIEREN..3.);..3.*;
..3.*; ZAHLEN:.#3.*;.E3&*; ADRESSEN DER
TEXTE, DIE DIE.C30*; MENUEPUNKTE BESCHRE
IBEN.I3:*;..3D*TEXTLO .BY<(PUNKT0),<(PUN
KT1)..3N*.BY <(PUNKT2),<(PUNKT3)..3X*;.O
3B*TEXTHI .BY>(PUNKT0),>(PUNKT1)..3L*.BY
>(PUNKT2),>(PUNKT3)..3V*;..3.*;..4.*; A
DRESSEN DER ZAHLWOERTER..4.*;.H4.*ZWLO .
BY<(NULL),<(EINS),<(ZWEI),<(DREI).T4.*.B
Y <(VIER),<(FUENF),<(SECHS),<(SIEBEN)..4
.*.BY <(ACHT),<(NEUN)..4.*;..4F*ZWHI .BY
>(NULL),>(EINS),>(ZWEI),>(DREI)..4P*.BY
>(VIER),>(FUENF),>(SECHS),>(SIEBEN)..5Z*
.BY >(ACHT),>(NEUN)..5.*;..5.*;./5.*; AD
RESSEN DER UNTERROUTINEN.M5.+; FUER DIE
MENUESTEUERUNG.S5.+;.~5.+SP1LO .BY<(EXEC
),<(HOME),<(DOWN),<(UP)..5 +;..5*+SP1HI
.BY>(EXEC),>(HOME),>(DOWN),>(UP)..54+;..
5>+;.X5H+; ADRESSEN DER EINZELNEN..5R+;
MENUEPUNKTE..5\+;..6F+SP2LO .BY<(ZAHLWOR
T),<(FARBE).<6P+.BY <(RESET),<(ENDE) ; B
EI ENDE STEHT.^6Z+SP2HI .BY>(ZAHLWORT),>
(FARBE)..6.+.BY >(RESET),>(ENDE) ; EIN R
TS-BEFEHL..6.+;..6.+; PRUEFSUMMEN DER FA
RB-WOERTER..6.+;..6.+PRUEFSUMMEN .BY41,1
58,137,212,159,101..7.+.BY 3,2,33,69,201
,116,113,121,127,114..7.+;..7J+;..7T+; Z
WISCHENSPEICHER.47.+;.U7.+MPT .BY0; 1 BY
TE RESERVIEREN.D7.+XSAVE .BY0..7.+SPRUNG
.WO0; 2 BYTES FREIHALTEN..7.,FARBWORT .
BY0.A7.,; ^ AB 'FARBWORT' WIRD DIE EINGA
BE..7.,; DER FARB-BEZEICHNUNG ABGELEGT
....
> CLICK IMAGE PREVIEW FOR FULL MODAL