LISTING 10.32(L)
FILE INFORMATION
FILENAME(S): LISTING 10.32(L)
FILE TYPE(S): PRG
FILE SIZE: 9.5K
FIRST SEEN: 2025-10-20 14:31:28
APPEARS ON: 2 disk(s)
FILE HASH
291de366395f2c2dc60560f27094eabceed0fdf00acbd6cdcd1b959373bf92e2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 2 | LISTING 10.32(L) | PRG | Treasure Chest - Klaus Der Suhler | 11 | 1 | DOWNLOAD FILE |
| MT90499 SEITE 2 | LISTING 10.32(L) | PRG | hedning, Knutsson | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 24 1C 64 00 AC B2 20 24 38 30 30 30 20 20 |..$.d... $8000 |
00000010: 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 20 24 |; STARTADRESSE $|
00000020: 38 30 30 30 00 2F 1C 65 00 2E 4F 50 54 20 50 00 |8000./.e..OPT P.|
00000030: 57 1C 66 00 3B 20 20 20 20 AE 20 4E 55 52 20 81 |W.f.; . NUR .|
00000040: 4D 41 54 49 45 52 54 45 53 20 9B 49 4E 47 20 41 |MATIERTES .ING A|
00000050: 55 53 47 45 42 45 4E 00 5D 1C 67 00 3B 00 85 1C |USGEBEN.].g.;...|
00000060: 68 00 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC |h.; ............|
00000070: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000080: AC AC AC AC AC 00 AD 1C 69 00 3B 20 AC AC AC AC |........i.; ....|
00000090: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000000A0: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 D5 1C |................|
000000B0: 6A 00 3B 20 AC AC AC AC 20 20 20 20 20 20 20 20 |j.; .... |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 AC AC AC AC 00 FD 1C 6B 00 3B 20 AC AC AC AC | .......k.; ....|
000000E0: 20 20 20 20 20 20 20 20 20 54 20 49 20 43 20 4F | T I C O|
000000F0: 20 20 20 20 20 20 20 20 20 AC AC AC AC 00 25 1D | .....%.|
00000100: 6C 00 3B 20 AC AC AC AC 20 20 20 20 20 20 20 20 |l.; .... |
00000110: 20 B2 B2 B2 B2 B2 B2 B2 20 20 20 20 20 20 20 20 | ....... |
00000120: 20 AC AC AC AC 00 4D 1D 6D 00 3B 20 AC AC AC AC | .....M.m.; ....|
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 AC AC AC AC 00 75 1D | .....u.|
00000150: 6E 00 3B 20 AC AC AC AC 20 20 20 20 20 20 20 20 |n.; .... |
00000160: 20 20 20 44 45 52 20 20 20 20 20 20 20 20 20 20 | DER |
00000170: 20 AC AC AC AC 00 9C 1D 6F 00 3B 20 AC AC AC AC | .......o.; ....|
00000180: 20 45 4C 45 4B 54 52 91 49 53 43 48 45 20 48 45 | ELEKTR.ISCHE HE|
00000190: 4C 4C 53 45 48 45 52 20 AC AC AC AC 00 C4 1D 70 |LLSEHER .......p|
000001A0: 00 3B 20 AC AC AC AC 20 20 20 20 20 20 20 20 20 |.; .... |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: AC AC AC AC 00 EC 1D 71 00 3B 20 AC AC AC AC 20 |.......q.; .... |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 AC AC AC AC 00 13 1E 72 | .......r|
000001F0: 00 3B 20 AC AC AC AC 20 42 59 20 20 20 46 4C B0 |.; .... BY FL.|
00000200: 49 41 4E 20 4D 55 45 4C 4C 45 52 20 20 20 20 AC |IAN MUELLER .|
00000210: AC AC AC 00 3B 1E 73 00 3B 20 AC AC AC AC 20 20 |....;.s.; .... |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 AC AC AC AC 00 63 1E 74 00 | .....c.t.|
00000240: 3B 20 AC AC AC AC 20 20 20 20 20 20 20 20 20 20 |; .... |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AC | .|
00000260: AC AC AC 00 8B 1E 75 00 3B 20 AC AC AC AC 20 4B |......u.; .... K|
00000270: 4F 4D 4D 45 4E 54 49 45 52 54 45 52 20 51 55 45 |OMMENTIERTER QUE|
00000280: 4C 4C 54 45 58 54 20 AC AC AC AC 00 B3 1E 76 00 |LLTEXT .......v.|
00000290: 3B 20 AC AC AC AC 20 20 20 20 20 20 20 20 20 20 |; .... |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AC | .|
000002B0: AC AC AC 00 DB 1E 77 00 3B 20 AC AC AC AC AC AC |......w.; ......|
000002C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000002D0: AC AC AC AC AC AC AC AC AC AC AC 00 03 1F 78 00 |..............x.|
000002E0: 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |; ..............|
000002F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000300: AC AC AC 00 09 1F 79 00 3B 00 0F 1F 7A 00 3B 00 |......y.;...z.;.|
00000310: 15 1F 7B 00 3B 00 1B 1F 7C 00 3B 00 3D 1F 7D 00 |..{.;...|.;.=.}.|
00000320: 3B 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB |; ..............|
00000330: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 5F 1F |.............._.|
00000340: 7E 00 3B 20 AB 20 20 20 20 20 20 20 20 20 20 20 |~.; . |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AB 00 | ..|
00000360: 7E 1F 7F 00 3B 20 AB 20 20 20 53 59 4D 42 4F 4C |~...; . SYMBOL|
00000370: 96 49 4E 49 54 49 91 45 4E 20 20 20 20 AB 00 A0 |.INITI.EN ...|
00000380: 1F 80 00 3B 20 AB 20 20 20 20 20 20 20 20 20 20 |...; . |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AB | .|
000003A0: 00 C2 1F 81 00 3B 20 AB AB AB AB AB AB AB AB AB |.....; .........|
000003B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000003C0: AB AB 00 C8 1F 82 00 3B 00 CE 1F 83 00 3B 00 DB |.......;.....;..|
000003D0: 1F 84 00 46 4C 41 47 20 B2 20 32 00 EC 1F 85 00 |...FLAG . 2.....|
000003E0: 41 4E 5A 41 48 4C 20 B2 20 24 46 41 00 FC 1F 86 |ANZAHL . $FA....|
000003F0: 00 48 91 B0 41 52 20 B2 20 24 46 42 00 0D 20 87 |.H..AR . $FB.. .|
00000400: 00 4E 55 4D 4D 45 52 20 B2 20 24 46 43 00 13 20 |.NUMMER . $FC.. |
00000410: 88 00 3B 00 19 20 89 00 3B 00 1F 20 8A 00 3B 00 |..;.. ..;.. ..;.|
00000420: 43 20 8B 00 3B 20 AB AB AB AB AB AB AB AB AB AB |C ..; ..........|
00000430: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000440: AB AB AB 00 67 20 8C 00 3B 20 AB 20 20 20 20 20 |....g ..; . |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 AB 00 8B 20 8D 00 3B 20 AB 20 | ... ..; . |
00000470: 20 20 4D 20 4F 20 44 20 55 20 4C 20 53 20 54 20 | M O D U L S T |
00000480: 41 20 52 20 54 20 20 20 20 20 AB 00 AF 20 8E 00 |A R T ... ..|
00000490: 3B 20 AB 20 20 20 20 20 20 20 20 20 20 20 20 20 |; . |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AB 00 | ..|
000004B0: D3 20 8F 00 3B 20 AB AB AB AB AB AB AB AB AB AB |. ..; ..........|
000004C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000004D0: AB AB AB 00 D9 20 90 00 3B 00 DF 20 91 00 3B 00 |..... ..;.. ..;.|
000004E0: FF 20 92 00 2E 57 B0 44 20 53 54 41 52 54 2C 53 |. ...W.D START,S|
000004F0: 54 41 52 54 3A 2E C6 20 22 C3 C2 CD 38 30 22 00 |TART:.. "...80".|
00000500: 05 21 93 00 3B 00 0B 21 94 00 3B 00 11 21 95 00 |.!..;..!..;..!..|
00000510: 3B 00 33 21 96 00 3B 20 AB AB AB AB AB AB AB AB |;.3!..; ........|
00000520: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000530: AB AB AB 00 55 21 97 00 3B 20 AB 20 20 20 20 20 |....U!..; . |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000550: 20 20 20 20 AB 00 75 21 98 00 3B 20 AB 20 20 20 | ..u!..; . |
00000560: 49 4E 49 54 49 41 4C 49 53 49 45 8A 47 20 20 20 |INITIALISIE.G |
00000570: 20 20 20 20 AB 00 97 21 99 00 3B 20 AB 20 20 20 | ...!..; . |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000590: 20 20 20 20 20 20 AB 00 B9 21 9A 00 3B 20 AB AB | ...!..; ..|
000005A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000005B0: AB AB AB AB AB AB AB AB AB 00 BF 21 9B 00 3B 00 |...........!..;.|
000005C0: C5 21 9C 00 3B 00 FA 21 9D 00 53 54 41 52 54 20 |.!..;..!..START |
000005D0: 4A 53 52 20 24 46 44 35 30 20 3B 20 41 52 42 45 |JSR $FD50 ; ARBE|
000005E0: 49 54 53 53 50 45 49 43 48 45 52 20 49 4E 49 54 |ITSSPEICHER INIT|
000005F0: 49 41 4C 49 53 49 45 52 45 4E 00 2B 22 9E 00 4A |IALISIEREN.+"..J|
00000600: 53 52 20 24 46 44 31 35 20 3B 20 48 41 52 44 57 |SR $FD15 ; HARDW|
00000610: 41 52 45 AB 20 55 4E 44 20 49 AD 4F AB 56 45 4B |ARE. UND I.O.VEK|
00000620: A4 52 45 4E 20 53 45 54 5A 45 4E 00 4E 22 9F 00 |.REN SETZEN.N"..|
00000630: 4A 53 52 20 24 46 44 41 33 20 3B 20 B5 45 52 52 |JSR $FDA3 ; .ERR|
00000640: 55 50 54 20 56 B0 42 45 52 45 49 54 45 4E 00 72 |UPT V.BEREITEN.r|
00000650: 22 A0 00 4A 53 52 20 24 46 46 35 42 20 3B 20 56 |"..JSR $FF5B ; V|
00000660: 49 44 45 B0 45 53 45 54 20 41 55 53 4C 4F 45 53 |IDE.ESET AUSLOES|
00000670: 45 4E 00 99 22 A1 00 43 4C 49 3A 4A 53 52 20 24 |EN.."..CLI:JSR $|
00000680: 45 33 42 46 20 3B 20 52 41 4D 20 49 4E 49 54 49 |E3BF ; RAM INITI|
00000690: 41 4C 49 53 49 45 52 45 4E 00 D5 22 A2 00 4C 44 |ALISIEREN.."..LD|
000006A0: 41 20 23 32 35 34 3A 53 54 41 20 37 39 33 3A 4C |A #254:STA 793:L|
000006B0: 44 41 20 23 31 39 33 3A 53 54 41 20 37 39 32 20 |DA #193:STA 792 |
000006C0: 3B 20 4E 4D 49 AB 52 4F 55 54 49 4E 45 20 4B 55 |; NMI.ROUTINE KU|
000006D0: 45 52 5A 45 4E 00 F5 22 A3 00 43 4C 44 20 3B 20 |ERZEN.."..CLD ; |
000006E0: 44 45 5A 49 4D 41 4C AB 46 4C 41 47 20 4C 4F 45 |DEZIMAL.FLAG LOE|
000006F0: 53 43 48 45 4E 00 12 23 A4 00 53 45 49 20 3B 20 |SCHEN..#..SEI ; |
00000700: B5 45 52 52 55 50 54 20 56 45 52 48 49 4E 44 45 |.ERRUPT VERHINDE|
00000710: 52 4E 00 2E 23 A5 00 4C 44 41 20 35 33 32 37 32 |RN..#..LDA 53272|
00000720: 20 3B 20 5A 45 49 43 48 45 4E 53 41 54 5A 00 47 | ; ZEICHENSATZ.G|
00000730: 23 A6 00 AF 20 23 32 34 30 20 20 3B 20 55 4D 53 |#... #240 ; UMS|
00000740: 43 48 41 4C 54 45 4E 00 4F 23 A7 00 43 4C 43 00 |CHALTEN.O#..CLC.|
00000750: 5B 23 A8 00 41 44 43 20 23 31 32 00 69 23 A9 00 |[#..ADC #12.i#..|
00000760: 53 54 41 20 35 33 32 37 32 00 89 23 AA 00 4C 44 |STA 53272..#..LD|
00000770: 41 20 23 35 31 20 3B 20 50 52 4F 5A 45 53 53 B0 |A #51 ; PROZESS.|
00000780: 50 B0 54 20 41 80 45 52 4E 00 A8 23 AB 00 53 54 |P.T A.ERN..#..ST|
00000790: 41 20 31 20 20 20 3B 20 28 42 41 4E 4B AB 53 57 |A 1 ; (BANK.SW|
000007A0: 49 54 43 48 49 4E 47 29 00 C5 23 AC 00 4C 44 59 |ITCHING)..#..LDY|
000007B0: 20 23 30 20 3B 20 5A 45 49 43 48 45 4E 53 41 54 | #0 ; ZEICHENSAT|
000007C0: 5A 20 41 55 53 00 D7 23 AD 00 53 54 59 20 24 46 |Z AUS..#..STY $F|
000007D0: 41 20 3B 20 44 45 4D 00 F7 23 AE 00 53 54 59 20 |A ; DEM..#..STY |
000007E0: 24 46 43 20 3B 20 43 48 41 52 41 43 54 45 52 47 |$FC ; CHARACTERG|
000007F0: 45 4E 45 52 41 A4 52 00 0F 24 AF 00 4C 44 41 20 |ENERA.R..$..LDA |
00000800: 23 24 44 30 20 3B 20 41 42 20 24 44 30 30 30 00 |#$D0 ; AB $D000.|
00000810: 29 24 B0 00 53 54 41 20 24 46 42 20 20 3B 20 4E |)$..STA $FB ; N|
00000820: 41 43 48 20 24 33 30 30 30 00 41 24 B1 00 4C 44 |ACH $3000.A$..LD|
00000830: 41 20 23 24 33 30 20 3B 20 4B 4F 50 49 45 52 45 |A #$30 ; KOPIERE|
00000840: 4E 00 66 24 B2 00 53 54 41 20 24 46 44 20 20 3B |N.f$..STA $FD ;|
00000850: 20 24 44 30 30 30 20 B2 20 44 45 5A 49 4D 41 4C | $D000 . DEZIMAL|
00000860: 20 35 33 32 34 38 00 94 24 B3 00 4C 4F 4F 50 31 | 53248..$..LOOP1|
00000870: 20 4C 44 41 20 28 24 46 41 29 2C 59 20 3B 20 24 | LDA ($FA),Y ; $|
00000880: 33 30 30 30 20 B2 20 44 45 5A 49 4D 41 4C 20 31 |3000 . DEZIMAL 1|
00000890: 32 32 38 38 00 A4 24 B4 00 53 54 41 20 28 24 46 |2288..$..STA ($F|
000008A0: 43 29 2C 59 00 AC 24 B5 00 49 4E 59 00 BA 24 B6 |C),Y..$..INY..$.|
000008B0: 00 42 4E 45 20 4C 4F 4F 50 31 00 C6 24 B7 00 49 |.BNE LOOP1..$..I|
000008C0: 4E 43 20 24 46 42 00 D2 24 B8 00 49 4E 43 20 24 |NC $FB..$..INC $|
000008D0: 46 44 00 DE 24 B9 00 4C 44 41 20 24 46 42 00 0C |FD..$..LDA $FB..|
000008E0: 25 BA 00 43 4D 50 20 23 24 45 30 20 3B 20 22 53 |%..CMP #$E0 ; "S|
000008F0: 43 48 4F 4E 20 41 4C 4C 45 20 5A 45 49 43 48 45 |CHON ALLE ZEICHE|
00000900: 4E 20 4B 4F 50 49 45 52 54 20 3F 22 00 2E 25 BB |N KOPIERT ?"..%.|
00000910: 00 42 4E 45 20 4C 4F 4F 50 31 20 3B 20 4E 45 49 |.BNE LOOP1 ; NEI|
00000920: 4E 2C 20 44 41 4E 4E 20 57 45 49 54 45 52 00 4C |N, DANN WEITER.L|
00000930: 25 BC 00 4C 44 41 20 23 35 35 20 3B 20 50 52 4F |%..LDA #55 ; PRO|
00000940: 5A 45 53 53 B0 50 B0 54 20 41 55 46 00 69 25 BD |ZESS.P.T AUF.i%.|
00000950: 00 53 54 41 20 31 20 3B 20 4E B0 4D 41 4C 57 45 |.STA 1 ; N.MALWE|
00000960: 52 54 20 53 45 54 5A 45 4E 00 8C 25 BE 00 43 4C |RT SETZEN..%..CL|
00000970: 49 20 20 3B 20 B5 45 52 52 55 50 54 20 57 49 45 |I ; .ERRUPT WIE|
00000980: 44 45 52 20 45 52 4C 41 55 42 45 4E 00 92 25 BF |DER ERLAUBEN..%.|
00000990: 00 3B 00 98 25 C0 00 3B 00 BB 25 C1 00 3B 20 AB |.;..%..;..%..; .|
000009A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000009B0: AB AB AB AB AB AB AB AB AB AB AB 00 DE 25 C2 00 |.............%..|
000009C0: 3B 20 AB 20 20 20 20 20 20 20 20 20 20 20 20 20 |; . |
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 AB 00 00 | ...|
000009E0: 26 C3 00 3B 20 AB 20 5A 45 49 43 48 45 4E 53 41 |&..; . ZEICHENSA|
000009F0: 54 5A 20 4D 4F 44 8B 49 5A 49 45 52 45 4E 20 AB |TZ MOD.IZIEREN .|
00000A00: 00 23 26 C4 00 3B 20 AB 20 20 20 20 20 20 20 20 |.#&..; . |
00000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A20: 20 20 AB 00 46 26 C5 00 3B 20 AB AB AB AB AB AB | ..F&..; ......|
00000A30: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000A40: AB AB AB AB AB AB 00 4C 26 C6 00 3B 00 52 26 C7 |.......L&..;.R&.|
00000A50: 00 3B 00 5D 26 C8 00 4C 44 59 20 23 30 00 73 26 |.;.]&..LDY #0.s&|
00000A60: C9 00 4C 4F 4F 50 32 20 4C 44 41 20 A2 43 48 41 |..LOOP2 LDA .CHA|
00000A70: 52 2C 59 00 83 26 CA 00 53 54 41 20 31 32 32 39 |R,Y..&..STA 1229|
00000A80: 36 2C 59 00 8B 26 CB 00 49 4E 59 00 A0 26 CC 00 |6,Y..&..INY..&..|
00000A90: 43 50 59 20 23 80 43 48 41 52 AB A2 43 48 41 52 |CPY #.CHAR..CHAR|
00000AA0: 00 AE 26 CD 00 42 4E 45 20 4C 4F 4F 50 32 00 B4 |..&..BNE LOOP2..|
00000AB0: 26 CE 00 3B 00 BA 26 CF 00 3B 00 DE 26 D0 00 3B |&..;..&..;..&..;|
00000AC0: 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB | ...............|
00000AD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 02 |................|
00000AE0: 27 D1 00 3B 20 AB 20 20 20 20 20 20 20 20 20 20 |'..; . |
00000AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B00: 20 AB 00 26 27 D2 00 3B 20 AB 20 42 45 47 49 4E | ..&'..; . BEGIN|
00000B10: 4E 20 44 45 53 20 48 41 55 50 54 50 52 4F 47 52 |N DES HAUPTPROGR|
00000B20: 41 4D 4D 53 20 AB 00 4A 27 D3 00 3B 20 AB 20 20 |AMMS ..J'..; . |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B40: 20 20 20 20 20 20 20 20 20 AB 00 6E 27 D4 00 3B | ..n'..;|
00000B50: 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB | ...............|
00000B60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 74 |...............t|
00000B70: 27 D5 00 3B 00 7A 27 D6 00 3B 00 94 27 D7 00 49 |'..;.z'..;..'..I|
00000B80: 4E 49 54 20 4C 44 41 20 23 37 20 20 3B 20 47 45 |NIT LDA #7 ; GE|
00000B90: 4C 42 45 52 00 AB 27 D8 00 53 54 41 20 35 33 32 |LBER..'..STA 532|
00000BA0: 38 30 20 3B 20 52 41 48 4D 45 4E 00 C5 27 D9 00 |80 ; RAHMEN..'..|
00000BB0: 53 54 41 20 35 33 32 38 31 20 3B 20 26 20 48 B5 |STA 53281 ; & H.|
00000BC0: 45 52 47 8A 44 00 E6 27 DA 00 4C 44 41 20 23 38 |ERG.D..'..LDA #8|
00000BD0: 20 20 3B 20 53 48 8B 54 AD 43 B2 20 56 45 52 48 | ; SH.T.C. VERH|
00000BE0: 49 4E 44 45 52 4E 00 F4 27 DB 00 4A 53 52 20 24 |INDERN..'..JSR $|
00000BF0: 46 46 44 32 00 09 28 DC 00 4C 44 41 20 23 30 20 |FFD2..(..LDA #0 |
00000C00: 3B 20 53 43 48 57 41 52 5A 00 28 28 DD 00 53 54 |; SCHWARZ.((..ST|
00000C10: 41 20 36 34 36 20 3B 20 41 4C 53 20 5A 45 49 43 |A 646 ; ALS ZEIC|
00000C20: 48 45 4E 46 41 52 42 45 00 4C 28 DE 00 4A 53 52 |HENFARBE.L(..JSR|
00000C30: 20 24 45 35 34 34 20 3B 20 42 49 4C 44 53 43 48 | $E544 ; BILDSCH|
00000C40: 49 52 4D 20 4C 4F 45 53 43 48 45 4E 00 52 28 DF |IRM LOESCHEN.R(.|
00000C50: 00 3B 00 58 28 E0 00 3B 00 5E 28 E1 00 3B 00 84 |.;.X(..;.^(..;..|
00000C60: 28 E2 00 3B 20 AB AB AB AB AB AB AB AB AB AB AB |(..; ...........|
00000C70: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000C80: AB AB AB AB 00 AA 28 E3 00 3B 20 AB 20 20 20 20 |......(..; . |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CA0: 20 20 20 20 20 20 20 20 20 AB 00 CE 28 E4 00 3B | ...(..;|
00000CB0: 20 AB 20 20 20 41 55 53 47 41 42 45 20 44 45 52 | . AUSGABE DER|
00000CC0: 20 45 52 4B 4C 41 45 8A 47 20 20 20 20 AB 00 F4 | ERKLAE.G ...|
00000CD0: 28 E5 00 3B 20 AB 20 20 20 20 20 20 20 20 20 20 |(..; . |
00000CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CF0: 20 20 20 AB 00 1A 29 E6 00 3B 20 AB AB AB AB AB | ...)..; .....|
00000D00: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000D10: AB AB AB AB AB AB AB AB AB AB 00 20 29 E7 00 3B |........... )..;|
00000D20: 00 26 29 E8 00 3B 00 36 29 E9 00 4C 44 41 20 23 |.&)..;.6)..LDA #|
00000D30: B3 54 45 58 54 31 00 46 29 EA 00 4C 44 59 20 23 |.TEXT1.F)..LDY #|
00000D40: B1 54 45 58 54 31 00 54 29 EB 00 4A 53 52 20 24 |.TEXT1.T)..JSR $|
00000D50: 41 42 31 45 00 64 29 EC 00 4C 44 41 20 23 B3 54 |AB1E.d)..LDA #.T|
00000D60: 45 58 54 32 00 74 29 ED 00 4C 44 59 20 23 B1 54 |EXT2.t)..LDY #.T|
00000D70: 45 58 54 32 00 82 29 EE 00 4A 53 52 20 24 41 42 |EXT2..)..JSR $AB|
00000D80: 31 45 00 92 29 EF 00 4C 44 41 20 23 B3 54 45 58 |1E..)..LDA #.TEX|
00000D90: 54 33 00 A2 29 F0 00 4C 44 59 20 23 B1 54 45 58 |T3..)..LDY #.TEX|
00000DA0: 54 33 00 B0 29 F1 00 4A 53 52 20 24 41 42 31 45 |T3..)..JSR $AB1E|
00000DB0: 00 B6 29 F2 00 3B 00 BC 29 F3 00 3B 00 C2 29 F4 |..)..;..)..;..).|
00000DC0: 00 3B 00 E7 29 F5 00 3B 20 AB AB AB AB AB AB AB |.;..)..; .......|
00000DD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000DE0: AB AB AB AB AB AB AB 00 0C 2A F6 00 3B 20 AB 20 |.........*..; . |
00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E00: 20 20 20 20 20 20 20 20 20 20 20 AB 00 2F 2A F7 | ../*.|
00000E10: 00 3B 20 AB 20 20 41 4E 5A 41 48 4C 20 44 45 52 |.; . ANZAHL DER|
00000E20: 20 46 52 41 47 45 4E 20 48 4F C3 20 20 20 AB 00 | FRAGEN HO. ..|
00000E30: 54 2A F8 00 3B 20 AB 20 20 20 20 20 20 20 20 20 |T*..; . |
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E50: 20 20 20 AB 00 79 2A F9 00 3B 20 AB AB AB AB AB | ..y*..; .....|
00000E60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000E70: AB AB AB AB AB AB AB AB AB 00 7F 2A FA 00 3B 00 |...........*..;.|
00000E80: 85 2A FB 00 3B 00 8B 2A FC 00 3B 00 96 2A FD 00 |.*..;..*..;..*..|
00000E90: 4C 44 41 20 23 30 00 B6 2A FE 00 53 54 41 20 32 |LDA #0..*..STA 2|
00000EA0: 30 34 20 3B 20 43 55 52 53 B0 20 45 49 4E 53 43 |04 ; CURS. EINSC|
00000EB0: 48 41 4C 54 45 4E 00 DD 2A FF 00 A1 20 4A 53 52 |HALTEN..*... JSR|
00000EC0: 20 24 46 46 45 34 20 3B 20 48 4F 4C 54 20 5A 45 | $FFE4 ; HOLT ZE|
00000ED0: 49 43 48 45 4E 20 49 4E 20 41 4B 4B 55 00 00 2B |ICHEN IN AKKU..+|
00000EE0: 00 01 42 45 51 20 A1 20 3B 20 4B 45 49 4E 45 20 |..BEQ . ; KEINE |
00000EF0: 54 41 53 54 45 20 B2 B1 20 4E 4F 43 48 4D 41 4C |TASTE .. NOCHMAL|
00000F00: 00 19 2B 01 01 43 4D 50 20 23 22 30 22 20 3B 20 |..+..CMP #"0" ; |
00000F10: 50 52 55 45 46 55 4E 47 2C 00 38 2B 02 01 42 43 |PRUEFUNG,.8+..BC|
00000F20: 43 20 A1 20 20 3B 20 4F 42 20 44 49 45 20 47 45 |C . ; OB DIE GE|
00000F30: 44 52 55 45 43 4B 54 45 00 54 2B 03 01 43 4D 50 |DRUECKTE.T+..CMP|
00000F40: 20 23 22 39 22 AA 31 20 3B 20 54 41 53 54 45 20 | #"9".1 ; TASTE |
00000F50: 45 49 4E 45 00 70 2B 04 01 42 43 53 20 A1 20 3B |EINE.p+..BCS . ;|
00000F60: 20 5A 8B 46 45 52 4E 54 41 53 54 45 20 49 53 54 | Z.FERNTASTE IST|
00000F70: 00 8E 2B 05 01 4C 44 58 20 23 30 20 3B 20 43 55 |..+..LDX #0 ; CU|
00000F80: 52 53 B0 42 4C 49 4E 4B 45 4E 20 41 55 53 00 9A |RS.BLINKEN AUS..|
00000F90: 2B 06 01 53 54 58 20 32 30 37 00 B0 2B 07 01 49 |+..STX 207..+..I|
00000FA0: 4E 58 20 20 20 3B 20 43 55 52 53 B0 20 41 55 53 |NX ; CURS. AUS|
00000FB0: 00 BC 2B 08 01 53 54 58 20 32 30 34 00 DB 2B 09 |..+..STX 204..+.|
00000FC0: 01 4A 53 52 20 24 46 46 44 32 20 3B 20 5A 8B 46 |.JSR $FFD2 ; Z.F|
00000FD0: 45 52 20 41 55 53 47 45 42 45 4E 00 E3 2B 0A 01 |ER AUSGEBEN..+..|
00000FE0: 53 45 43 00 02 2C 0B 01 53 42 43 20 23 22 30 22 |SEC..,..SBC #"0"|
00000FF0: 20 20 3B 20 5A 41 48 4C 20 42 45 52 45 43 48 4E | ; ZAHL BERECHN|
00001000: 45 4E 00 11 2C 0C 01 53 54 41 20 41 4E 5A 41 48 |EN..,..STA ANZAH|
00001010: 4C 00 1C 2C 0D 01 42 4E 45 20 82 31 00 40 2C 0E |L..,..BNE .1.@,.|
00001020: 01 4C 44 41 20 23 32 35 35 20 3B 20 55 4E 80 4C |.LDA #255 ; UN.L|
00001030: 49 43 48 20 56 49 45 4C 45 20 46 52 41 47 45 4E |ICH VIELE FRAGEN|
00001040: 00 67 2C 0F 01 2E 42 59 54 45 20 24 32 43 20 3B |.g,...BYTE $2C ;|
00001050: 20 56 45 52 53 54 45 43 4B 54 45 52 20 42 49 54 | VERSTECKTER BIT|
00001060: AB 42 45 46 45 48 4C 00 92 2C 10 01 82 31 20 4C |.BEFEHL..,...1 L|
00001070: 44 41 20 23 30 20 3B 20 42 45 47 52 45 4E 5A 54 |DA #0 ; BEGRENZT|
00001080: 45 20 41 4E 5A 41 48 4C 20 56 91 20 46 52 41 47 |E ANZAHL V. FRAG|
00001090: 45 4E 00 9F 2C 11 01 53 54 41 20 46 4C 41 47 00 |EN..,..STA FLAG.|
000010A0: A5 2C 12 01 3B 00 AB 2C 13 01 3B 00 B1 2C 14 01 |.,..;..,..;..,..|
000010B0: 3B 00 D8 2C 15 01 3B 20 AB AB AB AB AB AB AB AB |;..,..; ........|
000010C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000010D0: AB AB AB AB AB AB AB AB 00 FF 2C 16 01 3B 20 AB |..........,..; .|
000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AB 00 | ..|
00001100: 24 2D 17 01 3B 20 AB 20 42 45 52 45 43 48 4E 55 |$-..; . BERECHNU|
00001110: 4E 47 20 44 45 53 20 48 91 B0 41 52 53 20 4E 41 |NG DES H..ARS NA|
00001120: 43 48 20 AB 00 4B 2D 18 01 3B 20 AB 20 20 20 20 |CH ..K-..; . |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001140: 20 20 20 20 20 20 20 20 20 20 AB 00 6E 2D 19 01 | ..n-..|
00001150: 3B 20 AB 20 44 45 52 20 81 4D 45 4C 20 48 91 B0 |; . DER .MEL H..|
00001160: 41 52 B2 46 52 41 47 45 4E AC 35 20 20 AB 00 95 |AR.FRAGEN.5 ...|
00001170: 2D 1A 01 3B 20 AB 20 20 20 20 20 20 20 20 20 20 |-..; . |
00001180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001190: 20 20 20 20 AB 00 BC 2D 1B 01 3B 20 AB AB AB AB | ...-..; ....|
000011A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000011B0: AB AB AB AB AB AB AB AB AB AB AB AB 00 C2 2D 1C |..............-.|
000011C0: 01 3B 00 C8 2D 1D 01 3B 00 CE 2D 1E 01 3B 00 DD |.;..-..;..-..;..|
000011D0: 2D 1F 01 4C 44 58 20 41 4E 5A 41 48 4C 00 E8 2D |-..LDX ANZAHL..-|
000011E0: 20 01 4C 44 41 20 23 30 00 F6 2D 21 01 4C 4F 4F | .LDA #0..-!.LOO|
000011F0: 50 33 20 43 4C 43 00 01 2E 22 01 41 44 43 20 23 |P3 CLC...".ADC #|
00001200: 35 00 09 2E 23 01 44 45 58 00 17 2E 24 01 42 4E |5...#.DEX...$.BN|
00001210: 45 20 4C 4F 4F 50 33 00 25 2E 25 01 53 54 41 20 |E LOOP3.%.%.STA |
00001220: 48 91 B0 41 52 00 2B 2E 26 01 3B 00 31 2E 27 01 |H..AR.+.&.;.1.'.|
00001230: 3B 00 37 2E 28 01 3B 00 5D 2E 29 01 3B 20 AB AB |;.7.(.;.].).; ..|
00001240: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001250: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 83 2E |................|
00001260: 2A 01 3B 20 AB 20 20 20 20 20 20 20 20 20 20 20 |*.; . |
00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001280: 20 20 AB 00 A8 2E 2B 01 3B 20 AB 20 20 4B 4F 53 | ....+.; . KOS|
00001290: 54 45 4E 56 B0 41 4E 53 43 48 4C 41 47 20 20 4D |TENV.ANSCHLAG M|
000012A0: 41 43 48 45 4E 20 20 AB 00 CE 2E 2C 01 3B 20 AB |ACHEN ....,.; .|
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 AB 00 F4 | ...|
000012D0: 2E 2D 01 3B 20 AB AB AB AB AB AB AB AB AB AB AB |.-.; ...........|
000012E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000012F0: AB AB AB AB 00 FA 2E 2E 01 3B 00 00 2F 2F 01 3B |.........;..//.;|
00001300: 00 06 2F 30 01 3B 00 2F 2F 31 01 4C 44 41 20 46 |../0.;.//1.LDA F|
00001310: 4C 41 47 20 3B 20 22 55 4E 45 4E 44 4C 49 43 48 |LAG ; "UNENDLICH|
00001320: 20 56 49 45 4C 45 20 46 52 41 47 45 4E 3F 22 00 | VIELE FRAGEN?".|
00001330: 5B 2F 32 01 42 4E 45 20 82 32 20 3B 20 4A 41 2C |[/2.BNE .2 ; JA,|
00001340: 20 44 41 4E 4E 20 4B 45 49 4E 20 4B 4F 53 54 45 | DANN KEIN KOSTE|
00001350: 4E 56 B0 41 4E 53 43 48 4C 41 47 00 6B 2F 33 01 |NV.ANSCHLAG.k/3.|
00001360: 4C 44 41 20 23 B3 54 45 58 54 34 00 7B 2F 34 01 |LDA #.TEXT4.{/4.|
00001370: 4C 44 59 20 23 B1 54 45 58 54 34 00 89 2F 35 01 |LDY #.TEXT4../5.|
00001380: 4A 53 52 20 24 41 42 31 45 00 94 2F 36 01 4C 44 |JSR $AB1E../6.LD|
00001390: 41 20 23 30 00 A2 2F 37 01 4C 44 58 20 48 91 B0 |A #0../7.LDX H..|
000013A0: 41 52 00 C1 2F 38 01 4A 53 52 20 24 42 44 43 44 |AR../8.JSR $BDCD|
000013B0: 20 3B 20 48 91 B0 41 52 20 41 55 53 47 45 42 45 | ; H..AR AUSGEBE|
000013C0: 4E 00 D1 2F 39 01 4C 44 41 20 23 B3 54 45 58 54 |N../9.LDA #.TEXT|
000013D0: 35 00 E1 2F 3A 01 4C 44 59 20 23 B1 54 45 58 54 |5../:.LDY #.TEXT|
000013E0: 35 00 EF 2F 3B 01 4A 53 52 20 24 41 42 31 45 00 |5../;.JSR $AB1E.|
000013F0: FA 2F 3C 01 4A 4D 50 20 82 33 00 0D 30 3D 01 82 |./<.JMP .3..0=..|
00001400: 32 20 4C 44 41 20 23 B3 54 45 58 54 36 00 1D 30 |2 LDA #.TEXT6..0|
00001410: 3E 01 4C 44 59 20 23 B1 54 45 58 54 36 00 2B 30 |>.LDY #.TEXT6.+0|
00001420: 3F 01 4A 53 52 20 24 41 42 31 45 00 3E 30 40 01 |?.JSR $AB1E.>0@.|
00001430: 82 33 20 4C 44 41 20 23 B3 54 45 58 54 37 00 4E |.3 LDA #.TEXT7.N|
00001440: 30 41 01 4C 44 59 20 23 B1 54 45 58 54 37 00 5C |0A.LDY #.TEXT7.\|
00001450: 30 42 01 4A 53 52 20 24 41 42 31 45 00 7B 30 43 |0B.JSR $AB1E.{0C|
00001460: 01 4C 44 41 20 23 30 20 3B 20 43 55 52 53 B0 20 |.LDA #0 ; CURS. |
00001470: 45 49 4E 53 43 48 41 4C 54 45 4E 00 87 30 44 01 |EINSCHALTEN..0D.|
00001480: 53 54 41 20 32 30 34 00 A4 30 45 01 A1 31 20 4A |STA 204..0E..1 J|
00001490: 53 52 20 24 46 46 45 34 20 3B 20 54 41 53 54 45 |SR $FFE4 ; TASTE|
000014A0: 20 48 4F C3 00 AF 30 46 01 42 45 51 20 A1 31 00 | HO...0F.BEQ .1.|
000014B0: BA 30 47 01 4C 44 58 20 23 30 00 C6 30 48 01 53 |.0G.LDX #0..0H.S|
000014C0: 54 58 20 32 30 37 00 CE 30 49 01 49 4E 58 00 DA |TX 207..0I.INX..|
000014D0: 30 4A 01 53 54 58 20 32 30 34 00 03 31 4B 01 4C |0J.STX 204..1K.L|
000014E0: 44 41 20 46 4C 41 47 20 3B 20 22 55 4E 45 4E 44 |DA FLAG ; "UNEND|
000014F0: 4C 49 43 48 20 56 49 45 4C 45 20 46 52 41 47 45 |LICH VIELE FRAGE|
00001500: 4E 3F 22 00 22 31 4C 01 42 45 51 20 82 34 20 3B |N?"."1L.BEQ .4 ;|
00001510: 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 54 | NEIN, DANN WEIT|
00001520: 45 52 00 44 31 4D 01 4A 4D 50 20 49 4E 49 54 20 |ER.D1M.JMP INIT |
00001530: 20 3B 20 4A 41 2C 20 41 4C 53 4F 20 4E 45 55 53 | ; JA, ALSO NEUS|
00001540: 54 41 52 54 00 65 31 4E 01 82 34 20 4C 44 41 20 |TART.e1N..4 LDA |
00001550: 23 22 20 22 20 3B 20 53 50 41 43 45 20 41 55 53 |#" " ; SPACE AUS|
00001560: 47 45 42 45 4E 00 73 31 4F 01 4A 53 52 20 24 46 |GEBEN.s1O.JSR $F|
00001570: 46 44 32 00 97 31 50 01 4A 53 52 20 24 45 35 34 |FD2..1P.JSR $E54|
00001580: 34 20 3B 20 42 49 4C 44 53 43 48 49 52 4D 20 4C |4 ; BILDSCHIRM L|
00001590: 4F 45 53 43 48 45 4E 00 9D 31 51 01 3B 00 A3 31 |OESCHEN..1Q.;..1|
000015A0: 52 01 3B 00 C8 31 53 01 3B 20 AB AB AB AB AB AB |R.;..1S.; ......|
000015B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000015C0: AB AB AB AB AB AB AB AB 00 ED 31 54 01 3B 20 AB |..........1T.; .|
000015D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015E0: 20 20 20 20 20 20 20 20 20 20 20 20 AB 00 11 32 | ...2|
000015F0: 55 01 3B 20 AB 20 20 45 49 4E 47 41 42 45 20 55 |U.; . EINGABE U|
00001600: 4E 44 20 42 45 41 4E 54 57 B0 54 55 4E 47 20 20 |ND BEANTW.TUNG |
00001610: AB 00 36 32 56 01 3B 20 AB 20 20 20 20 20 20 20 |..62V.; . |
00001620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001630: 20 20 20 20 20 AB 00 5B 32 57 01 3B 20 AB 20 20 | ..[2W.; . |
00001640: 20 20 20 20 20 20 20 44 45 52 20 46 52 41 47 45 | DER FRAGE|
00001650: 4E 20 20 20 20 20 20 20 20 20 AB 00 80 32 58 01 |N ...2X.|
00001660: 3B 20 AB 20 20 20 20 20 20 20 20 20 20 20 20 20 |; . |
00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AB | .|
00001680: 00 A5 32 59 01 3B 20 AB AB AB AB AB AB AB AB AB |..2Y.; .........|
00001690: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000016A0: AB AB AB AB AB 00 AB 32 5A 01 3B 00 B1 32 5B 01 |.......2Z.;..2[.|
000016B0: 3B 00 B7 32 5C 01 3B 00 E2 32 5D 01 4C 44 41 20 |;..2\.;..2].LDA |
000016C0: 23 31 20 3B 20 5A 41 45 48 4C 45 52 20 46 55 45 |#1 ; ZAEHLER FUE|
000016D0: 52 20 4E 55 4D 4D 45 52 20 44 45 52 20 46 52 41 |R NUMMER DER FRA|
000016E0: 47 45 00 00 33 5E 01 53 54 41 20 4E 55 4D 4D 45 |GE..3^.STA NUMME|
000016F0: 52 20 3B 20 41 55 46 20 31 20 53 45 54 5A 45 4E |R ; AUF 1 SETZEN|
00001700: 00 16 33 5F 01 4C 4F 4F 50 34 20 4C 44 41 20 23 |..3_.LOOP4 LDA #|
00001710: B3 54 45 58 54 38 00 26 33 60 01 4C 44 59 20 23 |.TEXT8.&3`.LDY #|
00001720: B1 54 45 58 54 38 00 34 33 61 01 4A 53 52 20 24 |.TEXT8.43a.JSR $|
00001730: 41 42 31 45 00 3F 33 62 01 4C 44 41 20 23 30 00 |AB1E.?3b.LDA #0.|
00001740: 4E 33 63 01 4C 44 58 20 4E 55 4D 4D 45 52 00 78 |N3c.LDX NUMMER.x|
00001750: 33 64 01 4A 53 52 20 24 42 44 43 44 20 3B 20 4E |3d.JSR $BDCD ; N|
00001760: 55 4D 4D 45 52 20 44 45 52 20 46 52 41 47 45 20 |UMMER DER FRAGE |
00001770: 41 55 53 47 45 42 45 4E 00 88 33 65 01 4C 44 41 |AUSGEBEN..3e.LDA|
00001780: 20 23 B3 54 45 58 54 39 00 98 33 66 01 4C 44 59 | #.TEXT9..3f.LDY|
00001790: 20 23 B1 54 45 58 54 39 00 A6 33 67 01 4A 53 52 | #.TEXT9..3g.JSR|
000017A0: 20 24 41 42 31 45 00 C5 33 68 01 4A 53 52 20 24 | $AB1E..3h.JSR $|
000017B0: 46 46 43 46 20 3B 20 46 52 41 47 45 20 45 49 4E |FFCF ; FRAGE EIN|
000017C0: 4C 45 53 45 4E 00 E1 33 69 01 4C 44 41 20 24 44 |LESEN..3i.LDA $D|
000017D0: 43 30 35 20 3B 20 5A 55 46 41 4C 4C 53 5A 41 48 |C05 ; ZUFALLSZAH|
000017E0: 4C 00 02 34 6A 01 41 44 43 20 24 44 43 30 34 20 |L..4j.ADC $DC04 |
000017F0: 3B 20 5A 57 49 53 43 48 45 4E 20 30 20 55 4E 44 |; ZWISCHEN 0 UND|
00001800: 20 33 00 19 34 6B 01 AF 20 23 33 20 3B 20 49 4E | 3..4k.. #3 ; IN|
00001810: 20 41 4B 4B 55 20 48 4F C3 00 40 34 6C 01 54 41 | AKKU HO..@4l.TA|
00001820: 58 20 3B 20 55 4E 44 20 49 4E 53 20 58 AB 52 45 |X ; UND INS X.RE|
00001830: 47 49 53 54 45 52 20 53 43 48 52 45 49 42 45 4E |GISTER SCHREIBEN|
00001840: 00 4E 34 6D 01 4C 44 41 20 4C 4F 57 2C 58 00 5D |.N4m.LDA LOW,X.]|
00001850: 34 6E 01 4C 44 59 20 48 49 47 48 2C 58 00 7E 34 |4n.LDY HIGH,X.~4|
00001860: 6F 01 4A 53 52 20 24 41 42 31 45 20 20 3B 20 41 |o.JSR $AB1E ; A|
00001870: 4E 54 57 B0 54 20 41 55 53 47 45 42 45 4E 00 98 |NTW.T AUSGEBEN..|
00001880: 34 70 01 4C 44 41 20 4E 55 4D 4D 45 52 20 3B 20 |4p.LDA NUMMER ; |
00001890: 50 52 55 45 46 45 4E 2C 00 B6 34 71 01 43 4D 50 |PRUEFEN,..4q.CMP|
000018A0: 20 41 4E 5A 41 48 4C 20 3B 20 4F 42 20 53 43 48 | ANZAHL ; OB SCH|
000018B0: 91 20 41 4C 4C 45 00 D7 34 72 01 50 48 50 20 3B |. ALLE..4r.PHP ;|
000018C0: 20 46 52 41 47 45 4E 20 47 45 53 54 45 4C 4C 54 | FRAGEN GESTELLT|
000018D0: 20 57 55 52 44 45 4E 00 F8 34 73 01 49 4E 43 20 | WURDEN..4s.INC |
000018E0: 4E 55 4D 4D 45 52 20 3B 20 4E 55 4D 4D 45 52 20 |NUMMER ; NUMMER |
000018F0: 45 52 48 4F 45 48 45 4E 00 1C 35 74 01 50 4C 50 |ERHOEHEN..5t.PLP|
00001900: 20 3B 20 53 54 41 54 55 53 20 4E 41 43 48 20 56 | ; STATUS NACH V|
00001910: 45 52 47 4C 45 49 43 48 20 48 4F C3 00 50 35 75 |ERGLEICH HO..P5u|
00001920: 01 42 43 43 20 4C 4F 4F 50 34 20 3B 20 4E 4F 43 |.BCC LOOP4 ; NOC|
00001930: 48 20 4E 49 43 48 54 20 41 4C 4C 45 20 46 52 41 |H NICHT ALLE FRA|
00001940: 47 45 4E 2C 20 41 4C 53 4F 20 57 45 49 54 45 52 |GEN, ALSO WEITER|
00001950: 00 5E 35 76 01 4C 44 41 20 23 B3 54 81 31 00 6C |.^5v.LDA #.T.1.l|
00001960: 35 77 01 4C 44 59 20 23 B1 54 81 31 00 7A 35 78 |5w.LDY #.T.1.z5x|
00001970: 01 4A 53 52 20 24 41 42 31 45 00 95 35 79 01 4C |.JSR $AB1E..5y.L|
00001980: 44 41 20 48 91 B0 41 52 20 3B 20 48 91 B0 41 52 |DA H..AR ; H..AR|
00001990: 81 44 45 8A 47 00 BB 35 7A 01 43 4C 43 3A 41 44 |.DE.G..5z.CLC:AD|
000019A0: 43 20 23 31 30 20 20 3B 20 55 4D 20 31 30 20 45 |C #10 ; UM 10 E|
000019B0: 52 48 4F 45 48 45 4E 20 28 21 29 00 D2 35 7B 01 |RHOEHEN (!)..5{.|
000019C0: 54 41 58 20 3B 20 55 4E 44 20 41 55 53 47 45 42 |TAX ; UND AUSGEB|
000019D0: 45 4E 00 DD 35 7C 01 4C 44 41 20 23 30 00 EB 35 |EN..5|.LDA #0..5|
000019E0: 7D 01 4A 53 52 20 24 42 44 43 44 00 F9 35 7E 01 |}.JSR $BDCD..5~.|
000019F0: 4C 44 41 20 23 B3 54 81 32 00 07 36 7F 01 4C 44 |LDA #.T.2..6..LD|
00001A00: 59 20 23 B1 54 81 32 00 15 36 80 01 4A 53 52 20 |Y #.T.2..6..JSR |
00001A10: 24 41 42 31 45 00 20 36 81 01 4C 44 41 20 23 30 |$AB1E. 6..LDA #0|
00001A20: 00 2C 36 82 01 53 54 41 20 32 30 34 00 3D 36 83 |.,6..STA 204.=6.|
00001A30: 01 A1 32 20 4A 53 52 20 24 46 46 45 34 00 48 36 |..2 JSR $FFE4.H6|
00001A40: 84 01 42 45 51 20 A1 32 00 53 36 85 01 4C 44 58 |..BEQ .2.S6..LDX|
00001A50: 20 23 30 00 5F 36 86 01 53 54 58 20 32 30 37 00 | #0._6..STX 207.|
00001A60: 67 36 87 01 49 4E 58 00 73 36 88 01 53 54 58 20 |g6..INX.s6..STX |
00001A70: 32 30 34 00 8B 36 89 01 4A 4D 50 20 49 4E 49 54 |204..6..JMP INIT|
00001A80: 20 3B 20 4E 45 55 53 54 41 52 54 00 91 36 8A 01 | ; NEUSTART..6..|
00001A90: 3B 00 97 36 8B 01 3B 00 9D 36 8C 01 3B 00 C3 36 |;..6..;..6..;..6|
00001AA0: 8D 01 3B 20 AB AB AB AB AB AB AB AB AB AB AB AB |..; ............|
00001AB0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001AC0: AB AB AB 00 E9 36 8E 01 3B 20 AB 20 20 20 20 20 |.....6..; . |
00001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AE0: 20 20 20 20 20 20 20 20 AB 00 0F 37 8F 01 3B 20 | ...7..; |
00001AF0: AB 20 20 20 43 4F 44 45 53 20 44 45 52 20 4E 45 |. CODES DER NE|
00001B00: 55 45 4E 20 5A 45 49 43 48 45 4E 20 20 20 AB 00 |UEN ZEICHEN ..|
00001B10: 35 37 90 01 3B 20 AB 20 20 20 20 20 20 20 20 20 |57..; . |
00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B30: 20 20 20 20 AB 00 5B 37 91 01 3B 20 AB AB AB AB | ..[7..; ....|
00001B40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001B50: AB AB AB AB AB AB AB AB AB AB AB 00 61 37 92 01 |............a7..|
00001B60: 3B 00 67 37 93 01 3B 00 6D 37 94 01 3B 00 73 37 |;.g7..;.m7..;.s7|
00001B70: 95 01 3B 00 9F 37 96 01 A2 43 48 41 52 20 2E 42 |..;..7...CHAR .B|
00001B80: 59 54 45 20 30 2C 36 30 2C 36 30 2C 31 30 32 2C |YTE 0,60,60,102,|
00001B90: 31 32 36 2C 31 32 36 2C 32 33 30 2C 32 33 30 00 |126,126,230,230.|
00001BA0: C5 37 97 01 2E 42 59 54 45 20 30 2C 35 36 2C 35 |.7...BYTE 0,56,5|
00001BB0: 36 2C 31 30 38 2C 31 32 34 2C 31 30 32 2C 32 35 |6,108,124,102,25|
00001BC0: 34 2C 32 35 34 00 ED 37 98 01 2E 42 59 54 45 20 |4,254..7...BYTE |
00001BD0: 30 2C 31 30 34 2C 32 35 32 2C 31 39 36 2C 31 39 |0,104,252,196,19|
00001BE0: 32 2C 31 39 36 2C 32 35 32 2C 31 30 34 00 13 38 |2,196,252,104..8|
00001BF0: 99 01 2E 42 59 54 45 20 30 2C 36 30 2C 36 32 2C |...BYTE 0,60,62,|
00001C00: 32 33 30 2C 31 30 32 2C 31 30 32 2C 32 35 34 2C |230,102,102,254,|
00001C10: 32 35 32 00 39 38 9A 01 2E 42 59 54 45 20 30 2C |252.98...BYTE 0,|
00001C20: 31 32 36 2C 31 32 36 2C 39 38 2C 31 32 30 2C 39 |126,126,98,120,9|
00001C30: 38 2C 32 35 34 2C 32 35 34 00 5F 38 9B 01 2E 42 |8,254,254._8...B|
00001C40: 59 54 45 20 31 2C 32 35 34 2C 32 35 34 2C 31 36 |YTE 1,254,254,16|
00001C50: 36 2C 35 36 2C 35 36 2C 32 34 30 2C 32 34 30 00 |6,56,56,240,240.|
00001C60: 86 38 9C 01 2E 42 59 54 45 20 30 2C 36 32 2C 31 |.8...BYTE 0,62,1|
00001C70: 32 36 2C 31 30 32 2C 31 30 34 2C 31 32 36 2C 32 |26,102,104,126,2|
00001C80: 35 34 2C 32 35 34 00 AE 38 9D 01 2E 42 59 54 45 |54,254..8...BYTE|
00001C90: 20 30 2C 32 33 30 2C 31 30 32 2C 31 30 32 2C 31 | 0,230,102,102,1|
00001CA0: 30 34 2C 31 32 36 2C 32 35 34 2C 32 35 34 00 D1 |04,126,254,254..|
00001CB0: 38 9E 01 2E 42 59 54 45 20 30 2C 34 38 2C 34 38 |8...BYTE 0,48,48|
00001CC0: 2C 34 38 2C 34 38 2C 34 38 2C 31 31 32 2C 31 31 |,48,48,48,112,11|
00001CD0: 32 00 F7 38 9F 01 2E 42 59 54 45 20 30 2C 32 35 |2..8...BYTE 0,25|
00001CE0: 32 2C 32 35 32 2C 31 32 2C 31 32 2C 32 30 34 2C |2,252,12,12,204,|
00001CF0: 31 32 34 2C 31 32 30 00 1F 39 A0 01 2E 42 59 54 |124,120..9...BYT|
00001D00: 45 20 30 2C 32 33 30 2C 32 33 30 2C 31 30 38 2C |E 0,230,230,108,|
00001D10: 31 32 30 2C 31 32 34 2C 31 33 38 2C 32 33 30 00 |120,124,138,230.|
00001D20: 45 39 A1 01 2E 42 59 54 45 20 30 2C 32 32 34 2C |E9...BYTE 0,224,|
00001D30: 32 32 34 2C 39 36 2C 39 36 2C 31 30 32 2C 31 32 |224,96,96,102,12|
00001D40: 36 2C 31 32 34 00 6D 39 A2 01 2E 42 59 54 45 20 |6,124.m9...BYTE |
00001D50: 30 2C 31 39 36 2C 32 33 38 2C 32 35 34 2C 32 31 |0,196,238,254,21|
00001D60: 34 2C 31 39 38 2C 31 39 38 2C 31 39 38 00 95 39 |4,198,198,198..9|
00001D70: A3 01 2E 42 59 54 45 20 30 2C 32 32 38 2C 32 33 |...BYTE 0,228,23|
00001D80: 30 2C 32 34 36 2C 32 35 34 2C 32 30 36 2C 32 30 |0,246,254,206,20|
00001D90: 36 2C 31 39 38 00 B9 39 A4 01 2E 42 59 54 45 20 |6,198..9...BYTE |
00001DA0: 30 2C 36 30 2C 36 30 2C 31 30 32 2C 31 30 32 2C |0,60,60,102,102,|
00001DB0: 31 30 32 2C 36 30 2C 36 30 00 E0 39 A5 01 2E 42 |102,60,60..9...B|
00001DC0: 59 54 45 20 30 2C 36 30 2C 31 32 36 2C 31 30 32 |YTE 0,60,126,102|
00001DD0: 2C 31 32 36 2C 31 32 34 2C 31 39 32 2C 31 39 32 |,126,124,192,192|
00001DE0: 00 04 3A A6 01 2E 42 59 54 45 20 30 2C 36 30 2C |..:...BYTE 0,60,|
00001DF0: 36 30 2C 31 30 32 2C 31 30 32 2C 31 31 30 2C 36 |60,102,102,110,6|
00001E00: 30 2C 36 33 00 2B 3A A7 01 2E 42 59 54 45 20 30 |0,63.+:...BYTE 0|
00001E10: 2C 36 30 2C 31 32 36 2C 31 30 32 2C 31 32 36 2C |,60,126,102,126,|
00001E20: 31 32 34 2C 32 30 34 2C 31 39 38 00 4F 3A A8 01 |124,204,198.O:..|
00001E30: 2E 42 59 54 45 20 30 2C 33 30 2C 33 30 2C 32 36 |.BYTE 0,30,30,26|
00001E40: 2C 32 34 2C 31 35 32 2C 32 34 38 2C 32 34 38 00 |,24,152,248,248.|
00001E50: 75 3A A9 01 2E 42 59 54 45 20 30 2C 32 35 34 2C |u:...BYTE 0,254,|
00001E60: 32 35 34 2C 31 37 38 2C 34 38 2C 34 38 2C 31 31 |254,178,48,48,11|
00001E70: 32 2C 31 31 32 00 9D 3A AA 01 2E 42 59 54 45 20 |2,112..:...BYTE |
00001E80: 30 2C 32 33 30 2C 32 33 30 2C 31 30 32 2C 31 30 |0,230,230,102,10|
00001E90: 32 2C 31 30 32 2C 31 32 36 2C 31 32 36 00 C1 3A |2,102,126,126..:|
00001EA0: AB 01 2E 42 59 54 45 20 30 2C 32 33 30 2C 32 33 |...BYTE 0,230,23|
00001EB0: 30 2C 31 30 32 2C 34 38 2C 34 38 2C 31 32 2C 31 |0,102,48,48,12,1|
00001EC0: 32 00 E9 3A AC 01 2E 42 59 54 45 20 30 2C 31 39 |2..:...BYTE 0,19|
00001ED0: 38 2C 31 39 38 2C 31 39 38 2C 32 31 34 2C 32 35 |8,198,198,214,25|
00001EE0: 34 2C 32 33 38 2C 31 30 36 00 10 3B AD 01 2E 42 |4,238,106..;...B|
00001EF0: 59 54 45 20 30 2C 31 32 39 2C 32 33 38 2C 31 30 |YTE 0,129,238,10|
00001F00: 38 2C 31 36 2C 31 30 38 2C 32 33 38 2C 31 39 38 |8,16,108,238,198|
00001F10: 00 34 3B AE 01 2E 42 59 54 45 20 30 2C 31 32 39 |.4;...BYTE 0,129|
00001F20: 2C 32 30 34 2C 31 31 32 2C 34 38 2C 34 38 2C 34 |,204,112,48,48,4|
00001F30: 38 2C 34 38 00 5A 3B AF 01 2E 42 59 54 45 20 30 |8,48.Z;...BYTE 0|
00001F40: 2C 32 35 34 2C 32 35 34 2C 31 34 2C 34 38 2C 32 |,254,254,14,48,2|
00001F50: 32 34 2C 32 35 34 2C 32 35 34 00 68 3B B0 01 80 |24,254,254.h;...|
00001F60: 43 48 41 52 20 B2 20 AC 00 6E 3B B1 01 3B 00 74 |CHAR . ..n;..;.t|
00001F70: 3B B2 01 3B 00 9A 3B B3 01 3B 20 AB AB AB AB AB |;..;..;..; .....|
00001F80: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001F90: AB AB AB AB AB AB AB AB AB AB 00 C0 3B B4 01 3B |............;..;|
00001FA0: 20 AB 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AB | .|
00001FC0: 00 E6 3B B5 01 3B 20 AB 20 20 20 20 20 20 20 20 |..;..; . |
00001FD0: 20 54 20 45 20 58 20 54 20 45 20 20 20 20 20 20 | T E X T E |
00001FE0: 20 20 20 20 20 AB 00 0C 3C B6 01 3B 20 AB 20 20 | ...<..; . |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002000: 20 20 20 20 20 20 20 20 20 20 20 AB 00 32 3C B7 | ..2<.|
00002010: 01 3B 20 AB AB AB AB AB AB AB AB AB AB AB AB AB |.; .............|
00002020: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002030: AB AB 00 38 3C B8 01 3B 00 3E 3C B9 01 3B 00 76 |...8<..;.><..;.v|
00002040: 3C BA 01 54 45 58 54 31 20 2E C6 20 22 48 41 4C |<..TEXT1 .. "HAL|
00002050: 4C 4F 20 2C 20 49 43 48 20 42 49 4E 20 54 49 43 |LO , ICH BIN TIC|
00002060: 4F 20 2C 20 44 45 52 20 45 4C 45 4B 54 52 4F 4E |O , DER ELEKTRON|
00002070: 49 53 43 48 45 22 00 83 3C BB 01 2E 42 59 54 45 |ISCHE"..<...BYTE|
00002080: 20 31 33 00 B5 3C BC 01 2E C6 20 22 48 45 4C 4C | 13..<.... "HELL|
00002090: 53 45 48 45 52 2E 20 49 43 48 20 57 55 52 44 45 |SEHER. ICH WURDE|
000020A0: 20 56 4F 4E 20 46 4C 4F 52 49 41 4E 20 4D 55 45 | VON FLORIAN MUE|
000020B0: 4C 4C 45 52 22 00 C2 3C BD 01 2E 42 59 54 45 20 |LLER"..<...BYTE |
000020C0: 31 33 00 F4 3C BE 01 2E C6 20 22 46 55 45 52 20 |13..<.... "FUER |
000020D0: 53 2B 53 20 53 4F 46 54 20 50 52 4F 47 52 41 4D |S+S SOFT PROGRAM|
000020E0: 4D 49 45 52 54 2E 20 45 52 46 55 4E 44 45 4E 20 |MIERT. ERFUNDEN |
000020F0: 48 41 54 22 00 03 3D BF 01 2E 42 59 54 45 20 31 |HAT"..=...BYTE 1|
00002100: 33 2C 30 00 24 3D C0 01 54 45 58 54 32 20 2E C6 |3,0.$=..TEXT2 ..|
00002110: 20 22 4D 49 43 48 20 42 2E 20 47 4F 4C 54 5A 53 | "MICH B. GOLTZS|
00002120: 43 48 2E 22 00 34 3D C1 01 2E 42 59 54 45 20 31 |CH.".4=...BYTE 1|
00002130: 33 2C 31 33 00 66 3D C2 01 2E C6 20 22 49 43 48 |3,13.f=.... "ICH|
00002140: 20 4B 41 4E 4E 20 49 48 4E 45 4E 20 20 41 55 46 | KANN IHNEN AUF|
00002150: 20 4A 45 44 45 20 46 52 41 47 45 20 45 49 4E 45 | JEDE FRAGE EINE|
00002160: 20 41 4E 54 2D 22 00 73 3D C3 01 2E 42 59 54 45 | ANT-".s=...BYTE|
00002170: 20 31 33 00 A5 3D C4 01 2E C6 20 22 57 4F 52 54 | 13..=.... "WORT|
00002180: 20 47 45 42 45 4E 2C 44 49 45 20 53 4F 20 47 45 | GEBEN,DIE SO GE|
00002190: 53 54 45 4C 4C 54 20 49 53 54 2C 20 44 41 53 53 |STELLT IST, DASS|
000021A0: 20 4D 41 4E 22 00 B2 3D C5 01 2E 42 59 54 45 20 | MAN"..=...BYTE |
000021B0: 31 33 00 E0 3D C6 01 2E C6 20 22 4D 49 54 20 27 |13..=.... "MIT '|
000021C0: 4A 41 27 20 4F 44 45 52 20 27 4E 45 49 4E 27 20 |JA' ODER 'NEIN' |
000021D0: 41 4E 54 57 4F 52 54 45 4E 20 4B 41 4E 4E 2E 22 |ANTWORTEN KANN."|
000021E0: 00 F5 3D C7 01 2E 42 59 54 45 20 31 33 2C 31 33 |..=...BYTE 13,13|
000021F0: 2C 31 33 2C 30 00 29 3E C8 01 54 45 58 54 33 20 |,13,0.)>..TEXT3 |
00002200: 2E C6 20 22 57 49 45 56 49 45 4C 45 20 46 52 41 |.. "WIEVIELE FRA|
00002210: 47 45 4E 20 57 4F 4C 4C 45 4E 20 53 49 45 20 53 |GEN WOLLEN SIE S|
00002220: 54 45 4C 4C 45 4E 20 3F 22 00 39 3E C9 01 2E 42 |TELLEN ?".9>...B|
00002230: 59 54 45 20 31 33 2C 31 33 00 63 3E CA 01 2E C6 |YTE 13,13.c>....|
00002240: 20 22 28 31 2D 39 2F 20 30 20 46 55 45 52 20 55 | "(1-9/ 0 FUER U|
00002250: 4E 45 4E 44 4C 49 43 48 20 56 49 45 4C 45 29 20 |NENDLICH VIELE) |
00002260: 3A 20 22 00 6F 3E CB 01 2E 42 59 54 45 20 30 00 |: ".o>...BYTE 0.|
00002270: 85 3E CC 01 54 45 58 54 34 20 2E 42 59 54 45 20 |.>..TEXT4 .BYTE |
00002280: 31 33 2C 31 33 00 A9 3E CD 01 2E C6 20 22 44 41 |13,13..>.... "DA|
00002290: 53 20 48 4F 4E 4F 52 41 52 20 57 49 52 44 20 45 |S HONORAR WIRD E|
000022A0: 54 57 41 20 42 45 49 20 22 00 B5 3E CE 01 2E 42 |TWA BEI "..>...B|
000022B0: 59 54 45 20 30 00 D0 3E CF 01 54 45 58 54 35 20 |YTE 0..>..TEXT5 |
000022C0: 2E C6 20 22 20 44 4D 20 4C 49 45 47 45 4E 2E 22 |.. " DM LIEGEN."|
000022D0: 00 DC 3E D0 01 2E 42 59 54 45 20 30 00 20 3F D1 |..>...BYTE 0. ?.|
000022E0: 01 54 45 58 54 36 20 2E 42 59 54 45 20 31 33 2C |.TEXT6 .BYTE 13,|
000022F0: 31 33 3A 2E C6 20 22 53 49 45 20 47 4C 41 55 42 |13:.. "SIE GLAUB|
00002300: 45 4E 20 44 4F 43 48 20 4E 49 43 48 54 20 49 4D |EN DOCH NICHT IM|
00002310: 20 45 52 4E 53 54 2C 44 41 53 53 20 49 43 48 22 | ERNST,DASS ICH"|
00002320: 00 2D 3F D2 01 2E 42 59 54 45 20 31 33 00 54 3F |.-?...BYTE 13.T?|
00002330: D3 01 2E C6 20 22 4D 49 52 20 44 45 4E 20 4D 55 |.... "MIR DEN MU|
00002340: 4E 44 20 46 55 53 53 45 4C 49 47 20 52 45 44 45 |ND FUSSELIG REDE|
00002350: 20 3F 3F 22 00 60 3F D4 01 2E 42 59 54 45 20 30 | ??".`?...BYTE 0|
00002360: 00 A3 3F D5 01 54 45 58 54 37 20 2E 42 59 54 45 |..?..TEXT7 .BYTE|
00002370: 20 31 33 2C 31 33 2C 31 33 3A 2E C6 20 22 20 20 | 13,13,13:.. " |
00002380: 20 20 12 42 49 54 54 45 20 44 52 55 45 43 4B 45 | .BITTE DRUECKE|
00002390: 4E 20 53 49 45 20 45 49 4E 45 20 54 41 53 54 45 |N SIE EINE TASTE|
000023A0: 92 20 22 00 AF 3F D6 01 2E 42 59 54 45 20 30 00 |. "..?...BYTE 0.|
000023B0: C5 3F D7 01 54 45 58 54 38 20 2E 42 59 54 45 20 |.?..TEXT8 .BYTE |
000023C0: 31 33 2C 31 33 00 E2 3F D8 01 2E C6 20 22 90 08 |13,13..?.... "..|
000023D0: 8E 57 49 45 20 4C 41 55 54 45 54 20 49 48 52 45 |.WIE LAUTET IHRE|
000023E0: 20 22 00 EE 3F D9 01 2E 42 59 54 45 20 30 00 07 | "..?...BYTE 0..|
000023F0: 40 DA 01 54 45 58 54 39 20 2E C6 20 22 2E 20 46 |@..TEXT9 .. ". F|
00002400: 52 41 47 45 20 3F 22 00 19 40 DB 01 2E 42 59 54 |RAGE ?"..@...BYT|
00002410: 45 20 31 33 2C 31 33 2C 30 00 37 40 DC 01 4C 4F |E 13,13,0.7@..LO|
00002420: 57 20 2E 42 59 54 45 20 B3 4B 30 2C B3 4B 31 2C |W .BYTE .K0,.K1,|
00002430: B3 4B 32 2C B3 4B 33 00 56 40 DD 01 48 49 47 48 |.K2,.K3.V@..HIGH|
00002440: 20 2E 42 59 54 45 20 B1 4B 30 2C B1 4B 31 2C B1 | .BYTE .K0,.K1,.|
00002450: 4B 32 2C B1 4B 33 00 5C 40 DE 01 3B 00 6F 40 DF |K2,.K3.\@..;.o@.|
00002460: 01 4B 30 20 2E 42 59 54 45 20 31 33 2C 31 33 00 |.K0 .BYTE 13,13.|
00002470: 7C 40 E0 01 2E C6 20 22 4A 41 2E 22 00 88 40 E1 ||@.... "JA."..@.|
00002480: 01 2E 42 59 54 45 20 30 00 9B 40 E2 01 4B 31 20 |..BYTE 0..@..K1 |
00002490: 2E 42 59 54 45 20 31 33 2C 31 33 00 C2 40 E3 01 |.BYTE 13,13..@..|
000024A0: 2E C6 20 22 4E 45 49 4E 2C 20 44 41 53 20 49 53 |.. "NEIN, DAS IS|
000024B0: 54 20 4E 49 43 48 54 20 4D 4F 45 47 4C 49 43 48 |T NICHT MOEGLICH|
000024C0: 2E 22 00 CE 40 E4 01 2E 42 59 54 45 20 30 00 E1 |."..@...BYTE 0..|
000024D0: 40 E5 01 4B 32 20 2E 42 59 54 45 20 31 33 2C 31 |@..K2 .BYTE 13,1|
000024E0: 33 00 01 41 E6 01 2E C6 20 22 48 4F 45 43 48 53 |3..A.... "HOECHS|
000024F0: 54 57 41 48 52 53 43 48 45 49 4E 4C 49 43 48 2E |TWAHRSCHEINLICH.|
00002500: 22 00 0D 41 E7 01 2E 42 59 54 45 20 30 00 20 41 |"..A...BYTE 0. A|
00002510: E8 01 4B 33 20 2E 42 59 54 45 20 31 33 2C 31 33 |..K3 .BYTE 13,13|
00002520: 00 4E 41 E9 01 2E C6 20 22 44 41 53 20 48 41 4C |.NA.... "DAS HAL|
00002530: 54 45 20 49 43 48 20 46 55 45 52 20 55 4E 57 41 |TE ICH FUER UNWA|
00002540: 48 52 53 43 48 45 49 4E 4C 49 43 48 2E 22 00 5A |HRSCHEINLICH.".Z|
00002550: 41 EA 01 2E 42 59 54 45 20 30 00 71 41 EB 01 54 |A...BYTE 0.qA..T|
00002560: 81 31 20 2E 42 59 54 45 20 31 33 2C 31 33 2C 31 |.1 .BYTE 13,13,1|
00002570: 33 00 9C 41 EC 01 2E C6 20 22 42 49 54 54 45 20 |3..A.... "BITTE |
00002580: 4C 45 47 45 4E 20 53 49 45 20 4D 45 49 4E 20 48 |LEGEN SIE MEIN H|
00002590: 4F 4E 4F 52 41 52 20 56 4F 4E 20 22 00 A8 41 ED |ONORAR VON "..A.|
000025A0: 01 2E 42 59 54 45 20 30 00 B9 41 EE 01 54 81 32 |..BYTE 0..A..T.2|
000025B0: 20 2E C6 20 22 20 44 4D 22 00 C9 41 EF 01 2E 42 | .. " DM"..A...B|
000025C0: 59 54 45 20 31 33 2C 31 33 00 FA 41 F0 01 2E C6 |YTE 13,13..A....|
000025D0: 20 22 41 55 46 20 44 45 4E 20 4D 4F 4E 49 54 4F | "AUF DEN MONITO|
000025E0: 52 2E 20 44 52 55 45 43 4B 45 4E 20 53 49 45 20 |R. DRUECKEN SIE |
000025F0: 44 41 4E 4E 20 45 49 4E 45 22 00 0A 42 F1 01 2E |DANN EINE"..B...|
00002600: 42 59 54 45 20 31 33 2C 31 33 00 1B 42 F2 01 2E |BYTE 13,13..B...|
00002610: C6 20 22 54 41 53 54 45 2E 20 22 00 27 42 F3 01 |. "TASTE. ".'B..|
00002620: 2E 42 59 54 45 20 30 00 00 00 |.BYTE 0... |
..$.D... $8000 ; STARTADRESSE $8000./.E
..OPT P.W.F.; . NUR .MATIERTES .ING A
USGEBEN.].G.;...H.; ....................
................I.; ....................
..............U.J.; ....
.......K.; .... T I C O
.....%.L.; .... .......
.....M.M.; ....
.....U.N.; .... DER
.......O.; .... ELEKTR.ISCHE HE
LLSEHER .....D.P.; ....
.......Q.; ....
.......R.; .... BY FL.IAN MUEL
LER .....;.S.; ....
.....C.T.; ....
.......U.; .... KOMMENTIERTER QUE
LLTEXT .......V.; ....
.......W.; ......................
..............X.; ......................
..............Y.;...Z.;...{.;...|.;.=.}.
; ............................_.~.; .
..~..; . SYMBOL
.INITI.EN .. ...; .
..B...; .........................
...H...;.N...;.....FLAG . 2.....ANZAHL .
$FA.....H..AR . $FB.. ..NUMMER . $FC..
..;.. ..;.. ..;.C ..; ..................
............G ..; .
... ..; . M O D U L S T A R T
... ..; . ..
S ..; ..............................Y ..
;.. ..;.. ...W.D START,START:.F "CBM80".
.!..;..!..;..!..;.3!..; ................
............U!..; .
..U!..; . INITIALISIE.G ...!
..; . ...!..; ..
...........................!..;.E!..;..!
..START JSR $FD50 ; ARBEITSSPEICHER INIT
IALISIEREN.+"..JSR $FD15 ; HARDWARE. UND
I.O.VEK.REN SETZEN.N"..JSR $FDA3 ; .ERR
UPT V.BEREITEN.R" .JSR $FF5B ; VIDE.ESET
AUSLOESEN.."..CLI:JSR $E3BF ; RAM INITI
ALISIEREN.U"..LDA #254:STA 793:LDA #193:
STA 792 ; NMI.ROUTINE KUERZEN.."..CLD ;
DEZIMAL.FLAG LOESCHEN..#..SEI ; .ERRUPT
VERHINDERN..#..LDA 53272 ; ZEICHENSATZ.G
#... #240 ; UMSCHALTEN.O#..CLC.[#..ADC
#12.I#..STA 53272..#..LDA #51 ; PROZESS.
P.T A.ERN..#..STA 1 ; (BANK.SWITCHING)
.E#..LDY #0 ; ZEICHENSATZ AUS.W#..STY $F
A ; DEM..#..STY $FC ; CHARACTERGENERA.R.
.$..LDA #$D0 ; AB $D000.)$..STA $FB ; N
ACH $3000.A$..LDA #$30 ; KOPIEREN.F$..ST
A $FD ; $D000 . DEZIMAL 53248..$..LOOP1
LDA ($FA),Y ; $3000 . DEZIMAL 12288..$.
.STA ($FC),Y..$..INY..$..BNE LOOP1.F$..I
NC $FB.R$..INC $FD..$..LDA $FB..%..CMP #
$E0 ; "SCHON ALLE ZEICHEN KOPIERT ?"..%.
.BNE LOOP1 ; NEIN, DANN WEITER.L%..LDA #
55 ; PROZESS.P.T AUF.I%..STA 1 ; N.MALWE
RT SETZEN..%..CLI ; .ERRUPT WIEDER ERLA
UBEN..%..;..%..;..%A.; .................
.............%B.; .
...&C.; . ZEICHENSATZ MOD.IZIEREN .
.#&D.; . ..F&E.
; .............................L&F.;.R&G
.;.]&H.LDY #0.S&I.LOOP2 LDA .CHAR,Y..&J.
STA 12296,Y..&K.INY. &L.CPY #.CHAR..CHAR
..&M.BNE LOOP2..&N.;..&O.;..&P.; .......
........................'Q.; .
..&'R.; . BEGINN DES HA
UPTPROGRAMMS ..J'S.; .
..N'T.; .......................
.......T'U.;.Z'V.;..'W.INIT LDA #7 ; GE
LBER..'X.STA 53280 ; RAHMEN.E'Y.STA 5328
1 ; & H.ERG.D..'Z.LDA #8 ; SH.T.C. VERH
INDERN..'..JSR $FFD2..(..LDA #0 ; SCHWAR
Z.((..STA 646 ; ALS ZEICHENFARBE.L(..JSR
$E544 ; BILDSCHIRM LOESCHEN.R(..;.X(..;
.^(..;..(..; ...........................
......(..; .
..N(..; . AUSGABE DER ERKLAE.G ...
(..; . ...).
.; ................................ )..;
.&)..;.6)..LDA #.TEXT1.F)..LDY #.TEXT1.T
)..JSR $AB1E.D)..LDA #.TEXT2.T)..LDY #.T
EXT2..)..JSR $AB1E..)..LDA #.TEXT3..)..L
DY #.TEXT3..)..JSR $AB1E..)..;..)..;.B).
.;..)..; ...............................
.*..; . ../*.
.; . ANZAHL DER FRAGEN HOC ..T*..; .
..Y*..; .....
..........................*..;..*..;..*
..;..*..LDA #0..*..STA 204 ; CURS. EINSC
HALTEN..*... JSR $FFE4 ; HOLT ZEICHEN IN
AKKU..+..BEQ . ; KEINE TASTE .. NOCHMAL
..+..CMP #"0" ; PRUEFUNG,.8+..BCC . ; O
B DIE GEDRUECKTE.T+..CMP #"9".1 ; TASTE
EINE.P+..BCS . ; Z.FERNTASTE IST..+..LDX
#0 ; CURS.BLINKEN AUS..+..STX 207..+..I
NX ; CURS. AUS..+..STX 204..+..JSR $FF
D2 ; Z.FER AUSGEBEN..+..SEC..,..SBC #"0"
; ZAHL BERECHNEN..,..STA ANZAHL..,..BN
E .1.@,..LDA #255 ; UN.LICH VIELE FRAGEN
.G,...BYTE $2C ; VERSTECKTER BIT.BEFEHL.
.,...1 LDA #0 ; BEGRENZTE ANZAHL V. FRAG
EN..,..STA FLAG..,..;..,..;..,..;.X,..;
..................................,..; .
..$-..; .
BERECHNUNG DES H..ARS NACH ..K-..; .
..N-..; . DER
.MEL H..AR.FRAGEN.5 ...-..; .
...-..; ............
.....................B-..;.H-..;.N-..;..
-..LDX ANZAHL..- .LDA #0..-!.LOOP3 CLC..
.".ADC #5...#.DEX...$.BNE LOOP3.%.%.STA
H..AR.+.&.;.1.'.;.7.(.;.].).; ..........
........................*.; .
....+.; . KOSTENV.ANS
CHLAG MACHEN ..N.,.; .
....-.; ...................
.................;..//.;../0.;.//1.LDA F
LAG ; "UNENDLICH VIELE FRAGEN?".[/2.BNE
.2 ; JA, DANN KEIN KOSTENV.ANSCHLAG.K/3.
LDA #.TEXT4.{/4.LDY #.TEXT4../5.JSR $AB1
E../6.LDA #0../7.LDX H..AR.A/8.JSR $BDCD
; H..AR AUSGEBEN.Q/9.LDA #.TEXT5../:.LD
Y #.TEXT5../;.JSR $AB1E../<.JMP .3..0=..
2 LDA #.TEXT6..0>.LDY #.TEXT6.+0?.JSR $A
B1E.>0@..3 LDA #.TEXT7.N0A.LDY #.TEXT7.\
0B.JSR $AB1E.{0C.LDA #0 ; CURS. EINSCHAL
TEN..0D.STA 204..0E..1 JSR $FFE4 ; TASTE
HOC..0F.BEQ .1..0G.LDX #0.F0H.STX 207.N
0I.INX.Z0J.STX 204..1K.LDA FLAG ; "UNEND
LICH VIELE FRAGEN?"."1L.BEQ .4 ; NEIN, D
ANN WEITER.D1M.JMP INIT ; JA, ALSO NEUS
TART.E1N..4 LDA #" " ; SPACE AUSGEBEN.S1
O.JSR $FFD2..1P.JSR $E544 ; BILDSCHIRM L
OESCHEN..1Q.;..1R.;.H1S.; ..............
..................1T.; .
...2U.; . EINGABE UND BEANT
W.TUNG ..62V.; .
..[2W.; . DER FRAGEN
...2X.; . .
..2Y.; ................................2
Z.;..2[.;..2\.;..2].LDA #1 ; ZAEHLER FUE
R NUMMER DER FRAGE..3^.STA NUMMER ; AUF
1 SETZEN..3_.LOOP4 LDA #.TEXT8.&3`.LDY #
.TEXT8.43A.JSR $AB1E.?3B.LDA #0.N3C.LDX
NUMMER.X3D.JSR $BDCD ; NUMMER DER FRAGE
AUSGEBEN..3E.LDA #.TEXT9..3F.LDY #.TEXT9
..3G.JSR $AB1E.E3H.JSR $FFCF ; FRAGE EIN
LESEN..3I.LDA $DC05 ; ZUFALLSZAHL..4J.AD
C $DC04 ; ZWISCHEN 0 UND 3..4K.. #3 ; IN
AKKU HOC.@4L.TAX ; UND INS X.REGISTER S
CHREIBEN.N4M.LDA LOW,X.]4N.LDY HIGH,X.~4
O.JSR $AB1E ; ANTW.T AUSGEBEN..4P.LDA N
UMMER ; PRUEFEN,..4Q.CMP ANZAHL ; OB SCH
. ALLE.W4R.PHP ; FRAGEN GESTELLT WURDEN.
.4S.INC NUMMER ; NUMMER ERHOEHEN..5T.PLP
; STATUS NACH VERGLEICH HOC.P5U.BCC LOO
P4 ; NOCH NICHT ALLE FRAGEN, ALSO WEITER
.^5V.LDA #.T.1.L5W.LDY #.T.1.Z5X.JSR $AB
1E..5Y.LDA H..AR ; H..AR.DE.G..5Z.CLC:AD
C #10 ; UM 10 ERHOEHEN (!).R5{.TAX ; UN
D AUSGEBEN..5|.LDA #0..5}.JSR $BDCD..5~.
LDA #.T.2..6.LDY #.T.2..6..JSR $AB1E. 6
..LDA #0.,6..STA 204.=6...2 JSR $FFE4.H6
..BEQ .2.S6..LDX #0._6..STX 207.G6..INX.
S6..STX 204..6..JMP INIT ; NEUSTART..6..
;..6..;..6..;.C6..; ....................
.............6..; .
...7..; . CODES DER NEUEN ZEIC
HEN ..57..; .
..[7..; ............................
....A7..;.G7..;.M7..;.S7..;..7...CHAR .B
YTE 0,60,60,102,126,126,230,230.E7...BYT
E 0,56,56,108,124,102,254,254..7...BYTE
0,104,252,196,192,196,252,104..8...BYTE
0,60,62,230,102,102,254,252.98...BYTE 0,
126,126,98,120,98,254,254._8...BYTE 1,25
4,254,166,56,56,240,240..8...BYTE 0,62,1
26,102,104,126,254,254..8...BYTE 0,230,1
02,102,104,126,254,254.Q8...BYTE 0,48,48
,48,48,48,112,112..8...BYTE 0,252,252,12
,12,204,124,120..9 ..BYTE 0,230,230,108,
120,124,138,230.E9...BYTE 0,224,224,96,9
6,102,126,124.M9...BYTE 0,196,238,254,21
4,198,198,198..9...BYTE 0,228,230,246,25
4,206,206,198..9...BYTE 0,60,60,102,102,
102,60,60..9...BYTE 0,60,126,102,126,124
,192,192..:...BYTE 0,60,60,102,102,110,6
0,63.+:...BYTE 0,60,126,102,126,124,204,
198.O:...BYTE 0,30,30,26,24,152,248,248.
U:...BYTE 0,254,254,178,48,48,112,112..:
...BYTE 0,230,230,102,102,102,126,126.A:
...BYTE 0,230,230,102,48,48,12,12..:...B
YTE 0,198,198,198,214,254,238,106..;...B
YTE 0,129,238,108,16,108,238,198.4;...BY
TE 0,129,204,112,48,48,48,48.Z;...BYTE 0
,254,254,14,48,224,254,254.H;...CHAR . .
.N;..;.T;..;..;..; .....................
............;..; .
...;..; . T E X T E
...<..; .
..2<..; .............................
...8<..;.><..;.V<..TEXT1 .F "HALLO , ICH
BIN TICO , DER ELEKTRONISCHE"..<...BYTE
13..<...F "HELLSEHER. ICH WURDE VON FLO
RIAN MUELLER".B<...BYTE 13..<...F "FUER
S+S SOFT PROGRAMMIERT. ERFUNDEN HAT"..=.
..BYTE 13,0.$=..TEXT2 .F "MICH B. GOLTZS
CH.".4=A..BYTE 13,13.F=B..F "ICH KANN IH
NEN AUF JEDE FRAGE EINE ANT-".S=C..BYTE
13..=D..F "WORT GEBEN,DIE SO GESTELLT I
ST, DASS MAN"..=E..BYTE 13..=F..F "MIT '
JA' ODER 'NEIN' ANTWORTEN KANN."..=G..BY
TE 13,13,13,0.)>H.TEXT3 .F "WIEVIELE FRA
GEN WOLLEN SIE STELLEN ?".9>I..BYTE 13,1
3.C>J..F "(1-9/ 0 FUER UNENDLICH VIELE)
: ".O>K..BYTE 0..>L.TEXT4 .BYTE 13,13..>
M..F "DAS HONORAR WIRD ETWA BEI "..>N..B
YTE 0.P>O.TEXT5 .F " DM LIEGEN."..>P..BY
TE 0. ?Q.TEXT6 .BYTE 13,13:.F "SIE GLAUB
EN DOCH NICHT IM ERNST,DASS ICH".-?R..BY
TE 13.T?S..F "MIR DEN MUND FUSSELIG REDE
??".`?T..BYTE 0..?U.TEXT7 .BYTE 13,13,1
3:.F " .BITTE DRUECKEN SIE EINE TASTE
. "..?V..BYTE 0.E?W.TEXT8 .BYTE 13,13..?
X..F "...WIE LAUTET IHRE "..?Y..BYTE 0..
@Z.TEXT9 .F ". FRAGE ?"..@...BYTE 13,13,
0.7@..LOW .BYTE .K0,.K1,.K2,.K3.V@..HIGH
.BYTE .K0,.K1,.K2,.K3.\@..;.O@..K0 .BYT
E 13,13.|@...F "JA."..@...BYTE 0..@..K1
.BYTE 13,13.B@...F "NEIN, DAS IST NICHT
MOEGLICH.".N@...BYTE 0..@..K2 .BYTE 13,1
3..A...F "HOECHSTWAHRSCHEINLICH."..A...B
YTE 0. A..K3 .BYTE 13,13.NA...F "DAS HAL
TE ICH FUER UNWAHRSCHEINLICH.".ZA...BYTE
0.QA..T.1 .BYTE 13,13,13..A...F "BITTE
LEGEN SIE MEIN HONORAR VON "..A...BYTE 0
..A..T.2 .F " DM".IA...BYTE 13,13..A...F
"AUF DEN MONITOR. DRUECKEN SIE DANN EIN
E"..B...BYTE 13,13..B...F "TASTE. ".'B..
.BYTE 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL