OP.HOLZ
FILE INFORMATION
FILENAME(S): OP.HOLZ
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-10-20 00:40:14
APPEARS ON: 4 disk(s)
FILE HASH
fdca6bdba4dcddf81de42ccd59cda7a4be3ba68e8a59cd0ecb7c1fa9aeef5a62
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| N G 2 | OP.HOLZ | PRG | Treasure Chest - Joker79 | 30 | 5 | DOWNLOAD FILE |
| N G 2 | OP.HOLZ | PRG | C64er, DuncanTwain, Treasure Chest - Plattfuss | 30 | 5 | DOWNLOAD FILE |
| 5 | OP.HOLZ | PRG | DuncanTwain | 30 | 5 | DOWNLOAD FILE |
| N G 2 | OP.HOLZ | PRG | DuncanTwain | 30 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 4F 50 45 4E 34 2C 38 2C |..).... OPEN4,8,|
00000010: 31 35 2C 22 53 3A 53 54 52 45 49 43 48 48 4F 4C |15,"S:STREICHHOL|
00000020: 5A 22 3A 43 4C 4F 53 45 34 00 4A 08 0A 00 8F 20 |Z":CLOSE4.J.... |
00000030: 4F 50 45 4E 31 2C 38 2C 32 2C 22 53 54 52 45 49 |OPEN1,8,2,"STREI|
00000040: 43 48 48 4F 4C 5A 2C 50 2C 57 00 68 08 14 00 9E |CHHOLZ,P,W.h....|
00000050: 33 36 38 36 34 3B AC AC 20 56 45 52 53 49 91 20 |36864;.. VERSI. |
00000060: 4E 55 4D 42 45 52 20 34 00 75 08 1E 00 3B 2E 4F |NUMBER 4.u...;.O|
00000070: 50 54 20 4F 31 00 81 08 28 00 AC B2 20 24 34 30 |PT O1...(... $40|
00000080: 32 00 87 08 31 00 3B 00 D7 08 32 00 3B 20 53 54 |2...1.;...2.; ST|
00000090: 52 45 49 43 48 48 4F 4C 5A 53 50 49 45 4C 20 56 |REICHHOLZSPIEL V|
000000A0: 91 20 4E 49 4B 4F 4C 41 55 53 20 48 45 55 53 4C |. NIKOLAUS HEUSL|
000000B0: 45 52 20 AD 20 5A 57 45 4E 47 41 55 45 52 57 45 |ER . ZWENGAUERWE|
000000C0: 47 20 31 38 20 AD 20 38 20 4D 55 45 4E 43 48 45 |G 18 . 8 MUENCHE|
000000D0: 4E 20 53 4F 4C 4C 4E 00 F3 08 37 00 3B 20 46 52 |N SOLLN...7.; FR|
000000E0: 41 47 45 4E 20 AB AB B1 20 52 55 45 43 4B 50 B0 |AGEN ... RUECKP.|
000000F0: A4 20 21 00 22 09 38 00 3B 20 41 80 45 52 4E 20 |. !.".8.; A.ERN |
00000100: 44 45 52 20 52 45 49 48 45 4E 20 B2 20 4C 41 42 |DER REIHEN . LAB|
00000110: 45 4C 20 52 45 20 49 4E 20 5A 45 49 4C 45 20 34 |EL RE IN ZEILE 4|
00000120: 38 30 00 40 09 39 00 3B 20 36 34 27 45 52 20 53 |80.@.9.; 64'ER S|
00000130: 91 44 45 52 48 45 46 54 20 35 39 AD 31 39 39 30 |.DERHEFT 59.1990|
00000140: 00 75 09 3A 00 3B 20 47 52 45 45 54 49 4E 47 53 |.u.:.; GREETINGS|
00000150: 20 A4 20 45 4C 4D 41 52 20 48 4F 45 52 49 47 20 | . ELMAR HOERIG |
00000160: 26 20 50 45 54 45 52 20 42 45 52 54 45 4C 53 48 |& PETER BERTELSH|
00000170: 4F 46 45 52 21 00 7B 09 3B 00 3B 00 8E 09 3C 00 |OFER!.{.;.;...<.|
00000180: 50 41 54 54 45 52 4E 20 B2 24 43 31 33 39 00 9E |PATTERN .$C139..|
00000190: 09 46 00 54 42 4F 58 20 B2 24 43 31 39 46 00 B0 |.F.TBOX .$C19F..|
000001A0: 09 50 00 4D 4F 55 53 45 91 20 B2 24 43 31 38 41 |.P.MOUSE. .$C18A|
000001B0: 00 BF 09 5A 00 49 43 91 20 B2 24 43 31 35 41 00 |...Z.IC. .$C15A.|
000001C0: CC 09 6E 00 85 20 B2 24 43 31 42 41 00 D6 09 78 |..n.. .$C1BA...x|
000001D0: 00 52 30 20 B2 32 00 E0 09 82 00 52 31 20 B2 34 |.R0 .2.....R1 .4|
000001E0: 00 EA 09 8C 00 52 32 20 B2 36 00 F4 09 96 00 52 |.....R2 .6.....R|
000001F0: 33 20 B2 38 00 FF 09 A0 00 52 34 20 B2 31 30 00 |3 .8.....R4 .10.|
00000200: 0A 0A AA 00 52 35 20 B2 31 32 00 15 0A B4 00 52 |....R5 .12.....R|
00000210: 36 20 B2 31 34 00 20 0A BE 00 52 37 20 B2 31 36 |6 .14. ...R7 .16|
00000220: 00 2B 0A C8 00 52 38 20 B2 31 38 00 36 0A D2 00 |.+...R8 .18.6...|
00000230: 52 39 20 B2 32 30 00 42 0A DC 00 52 31 30 20 B2 |R9 .20.B...R10 .|
00000240: 32 32 00 4E 0A E6 00 52 31 31 20 B2 32 34 00 60 |22.N...R11 .24.`|
00000250: 0A F0 00 4B 45 59 56 45 43 20 B2 24 38 34 41 33 |...KEYVEC .$84A3|
00000260: 00 75 0A FA 00 4D 55 4C 54 49 57 4F 57 4F 20 B2 |.u...MULTIWOWO .|
00000270: 24 43 31 36 36 00 88 0A 04 01 44 49 56 57 4F 57 |$C166.....DIVWOW|
00000280: 4F 20 B2 24 43 31 36 39 00 9A 0A 0E 01 44 45 53 |O .$C169.....DES|
00000290: 4B A4 50 20 B2 24 43 32 32 43 00 AC 0A 18 01 4D |K.P .$C22C.....M|
000002A0: 45 4E 55 45 91 20 B2 24 43 31 35 31 00 BF 0A 22 |ENUE. .$C151..."|
000002B0: 01 B8 45 4D 45 4E 55 45 20 B2 24 43 31 39 33 00 |..EMENUE .$C193.|
000002C0: CD 0A 2C 01 54 99 20 B2 24 43 31 41 45 00 DA 0A |..,.T. .$C1AE...|
000002D0: 36 01 94 20 B2 24 43 31 45 44 00 E7 0A 40 01 A0 |6.. .$C1ED...@..|
000002E0: 20 B2 24 43 32 37 37 00 F4 0A 4A 01 9F 20 B2 24 | .$C277...J.. .$|
000002F0: 43 32 37 34 00 07 0B 54 01 52 45 43 41 50 50 80 |C274...T.RECAPP.|
00000300: 20 B2 24 43 32 38 39 00 14 0B 5E 01 99 20 B2 24 | .$C289...^.. .$|
00000310: 43 31 34 38 00 27 0B 68 01 4B 49 4C 4C 52 45 43 |C148.'.h.KILLREC|
00000320: 20 B2 24 43 32 38 33 00 3B 0B 72 01 53 45 54 52 | .$C283.;.r.SETR|
00000330: 45 43 B0 44 20 B2 24 43 32 38 30 00 4D 0B 7C 01 |EC.D .$C280.M.|.|
00000340: 4D 41 58 52 45 43 20 B2 24 38 34 39 37 00 5B 0B |MAXREC .$8497.[.|
00000350: 86 01 50 41 47 45 20 B2 24 32 46 00 6A 0B 90 01 |..PAGE .$2F.j...|
00000360: 52 45 43 20 B2 24 43 31 32 37 00 7A 0B 9A 01 54 |REC .$C127.z...T|
00000370: 52 45 43 20 B2 24 43 31 41 32 00 8C 0B A4 01 9C |REC .$C1A2......|
00000380: 4D 4F 55 53 45 20 B2 24 43 31 39 42 00 9F 0B AE |MOUSE .$C19B....|
00000390: 01 9C 41 4C 4C 4D 45 4E 20 B2 24 43 31 35 37 00 |..ALLMEN .$C157.|
000003A0: B1 0B B8 01 57 49 4E 44 4F 57 20 B2 24 43 32 35 |....WINDOW .$C25|
000003B0: 36 00 C0 0B C2 01 52 45 56 20 B2 24 38 38 35 30 |6.....REV .$8850|
000003C0: 00 D1 0B CC 01 52 45 53 45 54 20 B2 24 39 31 38 |.....RESET .$918|
000003D0: 35 00 E2 0B D6 01 56 4C 49 4E 45 20 B2 24 43 31 |5.....VLINE .$C1|
000003E0: 32 31 00 EC 0B E0 01 52 45 20 B2 36 00 FF 0B EA |21.....RE .6....|
000003F0: 01 43 48 41 52 4F 55 54 20 B2 24 43 31 34 35 00 |.CHAROUT .$C145.|
00000400: 10 0C F4 01 48 4C 49 4E 45 20 B2 24 43 31 31 38 |....HLINE .$C118|
00000410: 00 1D 0C FE 01 A1 20 B2 24 43 32 41 37 00 4C 0C |...... .$C2A7.L.|
00000420: EA 03 46 45 20 4A 53 52 20 54 52 45 43 3A 2E 42 |..FE JSR TREC:.B|
00000430: 59 54 20 33 34 2C 31 38 30 3A 2E 57 B0 20 32 30 |YT 34,180:.W. 20|
00000440: 2C 32 35 36 3A 2E 42 59 54 20 AB 31 00 83 0C EB |,256:.BYT .1....|
00000450: 03 4C 44 41 20 23 37 3A 4A 53 52 20 50 41 54 54 |.LDA #7:JSR PATT|
00000460: 45 52 4E 3A 4A 53 52 20 54 42 4F 58 3A 2E 42 59 |ERN:JSR TBOX:.BY|
00000470: 54 20 34 37 2C 31 37 39 3A 2E 57 B0 20 32 31 2C |T 47,179:.W. 21,|
00000480: 32 35 35 00 B9 0C EC 03 4C 44 41 20 23 39 3A 4A |255.....LDA #9:J|
00000490: 53 52 20 50 41 54 54 45 52 4E 3A 4A 53 52 20 54 |SR PATTERN:JSR T|
000004A0: 42 4F 58 3A 2E 42 59 54 20 33 35 2C 34 36 3A 2E |BOX:.BYT 35,46:.|
000004B0: 57 B0 20 32 31 2C 32 35 35 00 F4 0C EE 03 4A 53 |W. 21,255.....JS|
000004C0: 52 20 54 99 3A 2E 57 B0 20 31 30 31 3A 2E 42 59 |R T.:.W. 101:.BY|
000004D0: 54 20 34 32 3A 2E C6 20 22 1B 20 53 54 52 45 49 |T 42:.. ". STREI|
000004E0: 43 48 48 4F 4C 5A 53 50 49 45 4C 20 56 31 20 22 |CHHOLZSPIEL V1 "|
000004F0: 3A 42 52 4B 00 2A 0D F0 03 4C 44 41 20 23 31 3A |:BRK.*...LDA #1:|
00000500: 4A 53 52 20 50 41 54 54 45 52 4E 3A 4A 53 52 20 |JSR PATTERN:JSR |
00000510: 54 42 4F 58 3A 2E 42 59 54 20 36 30 2C 38 34 3A |TBOX:.BYT 60,84:|
00000520: 2E 57 B0 20 36 30 2C 32 33 36 00 60 0D F2 03 4C |.W. 60,236.`...L|
00000530: 44 41 20 23 30 3A 4A 53 52 20 50 41 54 54 45 52 |DA #0:JSR PATTER|
00000540: 4E 3A 4A 53 52 20 54 42 4F 58 3A 2E 42 59 54 20 |N:JSR TBOX:.BYT |
00000550: 35 32 2C 37 36 3A 2E 57 B0 20 35 32 2C 32 32 38 |52,76:.W. 52,228|
00000560: 00 8B 0D F3 03 4A 53 52 20 54 52 45 43 3A 2E 42 |.....JSR TREC:.B|
00000570: 59 54 20 35 32 2C 37 36 3A 2E 57 B0 20 35 32 2C |YT 52,76:.W. 52,|
00000580: 32 32 38 3A 2E 42 59 54 20 AB 31 00 C3 0D F4 03 |228:.BYT .1.....|
00000590: 4A 53 52 20 54 99 3A 2E 57 B0 20 36 34 3A 2E 42 |JSR T.:.W. 64:.B|
000005A0: 59 54 20 36 39 3A 2E C6 20 22 1B 53 54 52 45 49 |YT 69:.. ".STREI|
000005B0: 43 48 48 4F 4C 5A 2D 5A 49 45 48 45 4E 20 41 55 |CHHOLZ-ZIEHEN AU|
000005C0: 53 20 18 00 E4 0D F5 03 2E 42 59 54 20 52 45 AA |S .......BYT RE.|
000005D0: 34 38 3A 2E C6 20 22 1B A0 52 45 49 48 45 4E 22 |48:.. "..REIHEN"|
000005E0: 3A 42 52 4B 00 1F 0E FA 03 4C 44 41 20 23 B3 57 |:BRK.....LDA #.W|
000005F0: 49 4E 44 54 41 42 3A 4C 44 59 20 23 B1 57 49 4E |INDTAB:LDY #.WIN|
00000600: 44 54 41 42 3A 53 54 41 20 52 30 3A 53 54 59 20 |DTAB:STA R0:STY |
00000610: 52 30 AA 31 3A 4A 53 52 20 57 49 4E 44 4F 57 00 |R0.1:JSR WINDOW.|
00000620: 35 0E FC 03 4C 44 58 20 52 30 3A 44 45 58 3A 42 |5...LDX R0:DEX:B|
00000630: 45 51 20 4F 4B 00 44 0E FE 03 44 45 58 3A 4C 44 |EQ OK.D...DEX:LD|
00000640: 59 20 23 30 00 5E 0E FF 03 92 20 44 45 58 3A 42 |Y #0.^.... DEX:B|
00000650: 4E 45 20 92 3A 44 45 59 3A 42 4E 45 20 92 00 6D |NE .:DEY:BNE ..m|
00000660: 0E 00 04 4A 4D 50 20 44 45 53 4B A4 50 00 A7 0E |...JMP DESK.P...|
00000670: 01 04 4F 4B 20 4C 44 41 20 23 37 3A 4A 53 52 20 |..OK LDA #7:JSR |
00000680: 50 41 54 54 45 52 4E 3A 4A 53 52 20 54 42 4F 58 |PATTERN:JSR TBOX|
00000690: 3A 2E 42 59 54 20 34 37 2C 31 37 39 3A 2E 57 B0 |:.BYT 47,179:.W.|
000006A0: 20 32 31 2C 32 35 35 00 E4 0E 02 04 4C 44 41 20 | 21,255.....LDA |
000006B0: 23 B3 57 49 4E 44 54 41 42 32 3A 4C 44 59 20 23 |#.WINDTAB2:LDY #|
000006C0: B1 57 49 4E 44 54 41 42 32 3A 53 54 41 20 52 30 |.WINDTAB2:STA R0|
000006D0: 3A 53 54 59 20 52 30 AA 31 3A 4A 53 52 20 57 49 |:STY R0.1:JSR WI|
000006E0: 4E 44 4F 57 00 07 0F 04 04 4C 44 41 20 52 30 3A |NDOW.....LDA R0:|
000006F0: 53 45 43 3A 53 42 43 20 23 34 3A 53 54 41 20 42 |SEC:SBC #4:STA B|
00000700: 45 47 49 4E 4E 45 52 00 42 0F 0A 04 4F 4B 32 20 |EGINNER.B...OK2 |
00000710: 4C 44 41 20 23 30 3A 4A 53 52 20 50 41 54 54 45 |LDA #0:JSR PATTE|
00000720: 52 4E 3A 4A 53 52 20 54 42 4F 58 3A 2E 42 59 54 |RN:JSR TBOX:.BYT|
00000730: 20 34 37 2C 31 37 39 3A 2E 57 B0 20 32 31 2C 32 | 47,179:.W. 21,2|
00000740: 35 35 00 86 0F 0C 04 4C 44 41 20 23 AB 31 3A 4C |55.....LDA #.1:L|
00000750: 44 58 20 23 30 3A 53 54 58 20 52 34 AA 31 3A 4C |DX #0:STX R4.1:L|
00000760: 44 58 20 23 31 33 38 3A 53 54 58 20 52 34 3A 4C |DX #138:STX R4:L|
00000770: 44 58 20 23 34 38 3A 53 54 58 20 52 33 3A 4C 44 |DX #48:STX R3:LD|
00000780: 58 20 23 31 37 38 00 D0 0F 0E 04 53 54 58 20 52 |X #178.....STX R|
00000790: 33 AA 31 3A 4C 44 58 20 23 24 38 30 3A 53 54 58 |3.1:LDX #$80:STX|
000007A0: 20 50 41 47 45 3A 4A 53 52 20 56 4C 49 4E 45 3A | PAGE:JSR VLINE:|
000007B0: 4C 44 41 20 23 31 31 33 3A 53 54 41 20 52 31 31 |LDA #113:STA R11|
000007C0: 3A 4C 44 41 20 23 30 3A 53 54 41 20 52 33 AA 31 |:LDA #0:STA R3.1|
000007D0: 00 17 10 0F 04 53 54 41 20 52 34 AA 31 3A 4C 44 |.....STA R4.1:LD|
000007E0: 41 20 23 32 35 34 3A 53 54 41 20 52 34 3A 4C 44 |A #254:STA R4:LD|
000007F0: 41 20 23 31 34 30 3A 53 54 41 20 52 33 3A 4C 44 |A #140:STA R3:LD|
00000800: 41 20 23 31 32 38 3A 53 54 41 20 50 41 47 45 3A |A #128:STA PAGE:|
00000810: 4C 44 41 20 23 AB 31 00 48 10 10 04 4A 53 52 20 |LDA #.1.H...JSR |
00000820: 48 4C 49 4E 45 3A 4C 44 41 20 23 31 34 36 3A 53 |HLINE:LDA #146:S|
00000830: 54 41 20 52 31 31 3A 4C 44 41 20 23 AB 31 3A 4A |TA R11:LDA #.1:J|
00000840: 53 52 20 48 4C 49 4E 45 00 5E 10 18 04 4C 44 59 |SR HLINE.^...LDY|
00000850: 20 23 52 45 AB 31 3A 4C 44 41 20 23 52 45 00 8B | #RE.1:LDA #RE..|
00000860: 10 19 04 53 45 54 55 50 20 53 54 41 20 52 4F 57 |...SETUP STA ROW|
00000870: 2C 59 3A 53 45 43 3A 53 42 43 20 23 31 3A 44 45 |,Y:SEC:SBC #1:DE|
00000880: 59 3A 42 50 4C 20 53 45 54 55 50 00 98 10 1A 04 |Y:BPL SETUP.....|
00000890: 4A 4D 50 20 4D 41 49 4E 00 D7 10 4C 04 46 45 4C |JMP MAIN...L.FEL|
000008A0: 44 4F 55 54 20 4C 44 41 20 23 30 3A 4A 53 52 20 |DOUT LDA #0:JSR |
000008B0: 50 41 54 54 45 52 4E 3A 4A 53 52 20 54 42 4F 58 |PATTERN:JSR TBOX|
000008C0: 3A 2E 42 59 54 20 34 38 2C 31 37 39 3A 2E 57 B0 |:.BYT 48,179:.W.|
000008D0: 20 32 31 2C 31 33 37 00 E2 10 4E 04 4C 44 59 20 | 21,137...N.LDY |
000008E0: 23 30 00 29 11 50 04 4C 4F 4F 50 31 20 53 54 59 |#0.).P.LOOP1 STY|
000008F0: 20 5A 45 49 4C 45 3A 4C 44 41 20 23 31 32 38 3A | ZEILE:LDA #128:|
00000900: 53 54 41 20 50 41 47 45 3A 4C 44 41 20 23 32 35 |STA PAGE:LDA #25|
00000910: 3A 53 54 41 20 52 31 31 3A 4C 44 41 20 23 30 3A |:STA R11:LDA #0:|
00000920: 53 54 41 20 52 31 31 AA 31 00 6E 11 52 04 4C 44 |STA R11.1.n.R.LD|
00000930: 41 20 5A 45 49 4C 45 3A 53 54 41 20 52 31 3A 41 |A ZEILE:STA R1:A|
00000940: 53 4C 3A 41 53 4C 3A 41 44 43 20 52 31 3A 53 54 |SL:ASL:ADC R1:ST|
00000950: 41 20 52 31 3A 4C 44 41 20 5A 45 49 4C 45 3A 41 |A R1:LDA ZEILE:A|
00000960: 53 4C 3A 41 53 4C 3A 41 53 4C 3A 41 53 4C 00 BD |SL:ASL:ASL:ASL..|
00000970: 11 54 04 41 44 43 20 52 31 3A 41 44 43 20 23 36 |.T.ADC R1:ADC #6|
00000980: 30 3A 53 54 41 20 52 31 AA 31 3A 4C 44 41 20 23 |0:STA R1.1:LDA #|
00000990: 22 18 22 3A 4A 53 52 20 43 48 41 52 4F 55 54 3A |".":JSR CHAROUT:|
000009A0: 4C 44 41 20 5A 45 49 4C 45 3A 41 44 43 20 23 34 |LDA ZEILE:ADC #4|
000009B0: 38 3A 4A 53 52 20 43 48 41 52 4F 55 54 00 ED 11 |8:JSR CHAROUT...|
000009C0: 56 04 4C 44 41 20 23 33 34 3A 53 54 41 20 52 31 |V.LDA #34:STA R1|
000009D0: 31 3A 4C 44 59 20 5A 45 49 4C 45 3A 4C 44 41 20 |1:LDY ZEILE:LDA |
000009E0: 52 4F 57 2C 59 3A 42 45 51 20 4E 49 58 00 3A 12 |ROW,Y:BEQ NIX.:.|
000009F0: 58 04 4C 4F 4F 50 32 20 50 48 41 3A 4C 44 41 20 |X.LOOP2 PHA:LDA |
00000A00: 23 22 49 22 3A 4A 53 52 20 43 48 41 52 4F 55 54 |#"I":JSR CHAROUT|
00000A10: 3A 4C 44 41 20 23 22 20 22 3A 4A 53 52 20 43 48 |:LDA #" ":JSR CH|
00000A20: 41 52 4F 55 54 3A 4C 44 41 20 23 22 20 22 3A 4A |AROUT:LDA #" ":J|
00000A30: 53 52 20 43 48 41 52 4F 55 54 00 57 12 5A 04 50 |SR CHAROUT.W.Z.P|
00000A40: 4C 41 3A 53 45 43 3A 53 42 43 20 23 31 3A 42 4E |LA:SEC:SBC #1:BN|
00000A50: 45 20 4C 4F 4F 50 32 00 94 12 5C 04 4E 49 58 20 |E LOOP2...\.NIX |
00000A60: 4C 44 59 20 5A 45 49 4C 45 3A 49 4E 59 3A 43 50 |LDY ZEILE:INY:CP|
00000A70: 59 20 23 52 45 3A 42 43 43 20 4C 4F 4F 50 31 3A |Y #RE:BCC LOOP1:|
00000A80: 4C 44 41 20 23 22 1B 22 3A 4A 4D 50 20 43 48 41 |LDA #".":JMP CHA|
00000A90: 52 4F 55 54 00 AF 12 A6 04 51 43 4F 4D 50 55 54 |ROUT.....QCOMPUT|
00000AA0: 45 52 20 4A 4D 50 20 43 4F 4D 50 55 54 45 52 00 |ER JMP COMPUTER.|
00000AB0: DF 12 B0 04 4D 41 49 4E 20 4A 53 52 20 46 45 4C |....MAIN JSR FEL|
00000AC0: 44 4F 55 54 3A 4C 44 41 20 42 45 47 49 4E 4E 45 |DOUT:LDA BEGINNE|
00000AD0: 52 3A 42 45 51 20 51 43 4F 4D 50 55 54 45 52 00 |R:BEQ QCOMPUTER.|
00000AE0: 18 13 B1 04 4C 44 41 20 23 30 3A 4A 53 52 20 50 |....LDA #0:JSR P|
00000AF0: 41 54 54 45 52 4E 3A 4A 53 52 20 54 42 4F 58 3A |ATTERN:JSR TBOX:|
00000B00: 2E 42 59 54 20 31 31 34 2C 31 34 35 3A 2E 57 B0 |.BYT 114,145:.W.|
00000B10: 20 31 33 39 2C 32 35 35 00 4E 13 B2 04 4A 53 52 | 139,255.N...JSR|
00000B20: 20 54 99 3A 2E 57 B0 20 31 34 30 3A 2E 42 59 54 | T.:.W. 140:.BYT|
00000B30: 20 31 32 32 3A 2E C6 20 22 57 45 4C 43 48 45 20 | 122:.. "WELCHE |
00000B40: 5A 45 49 4C 45 20 3F 20 18 22 3A 42 52 4B 00 93 |ZEILE ? .":BRK..|
00000B50: 13 B4 04 A1 31 20 4A 53 52 20 A1 3A 43 4D 50 20 |....1 JSR .:CMP |
00000B60: 23 22 31 22 3A 42 43 43 20 A1 31 3A 43 4D 50 20 |#"1":BCC .1:CMP |
00000B70: 23 22 31 22 AA 52 45 3A 42 43 53 20 A1 31 3A 54 |#"1".RE:BCS .1:T|
00000B80: 41 59 3A 53 45 43 3A 53 42 43 20 23 22 31 22 3A |AY:SEC:SBC #"1":|
00000B90: 54 41 58 00 CE 13 B6 04 4C 44 41 20 52 4F 57 2C |TAX.....LDA ROW,|
00000BA0: 58 3A 42 45 51 20 A1 31 3A 43 4C 43 3A 41 44 43 |X:BEQ .1:CLC:ADC|
00000BB0: 20 23 22 31 22 3A 53 54 41 20 41 4E 5A 41 48 4C | #"1":STA ANZAHL|
00000BC0: 3A 53 54 58 20 5A 45 49 4C 45 3A 54 59 41 00 0D |:STX ZEILE:TYA..|
00000BD0: 14 B8 04 4A 53 52 20 43 48 41 52 4F 55 54 3A 4A |...JSR CHAROUT:J|
00000BE0: 53 52 20 54 99 3A 2E 57 B0 20 31 34 30 3A 2E 42 |SR T.:.W. 140:.B|
00000BF0: 59 54 20 31 33 36 3A 2E C6 20 22 1B 57 49 45 56 |YT 136:.. ".WIEV|
00000C00: 49 45 4C 45 20 3F 20 18 22 3A 42 52 4B 00 54 14 |IELE ? .":BRK.T.|
00000C10: BA 04 A1 32 20 4A 53 52 20 A1 3A 43 4D 50 20 23 |...2 JSR .:CMP #|
00000C20: 22 31 22 3A 42 43 43 20 A1 32 3A 43 4D 50 20 41 |"1":BCC .2:CMP A|
00000C30: 4E 5A 41 48 4C 3A 42 43 53 20 A1 32 3A 50 48 41 |NZAHL:BCS .2:PHA|
00000C40: 3A 4A 53 52 20 43 48 41 52 4F 55 54 3A 50 4C 41 |:JSR CHAROUT:PLA|
00000C50: 3A 53 45 43 00 6C 14 BC 04 53 42 43 20 23 22 30 |:SEC.l...SBC #"0|
00000C60: 22 3A 53 54 41 20 41 4E 5A 41 48 4C 00 AB 14 C4 |":STA ANZAHL....|
00000C70: 04 4C 44 58 20 5A 45 49 4C 45 3A 4C 44 41 20 52 |.LDX ZEILE:LDA R|
00000C80: 4F 57 2C 58 3A 53 45 43 3A 53 42 43 20 41 4E 5A |OW,X:SEC:SBC ANZ|
00000C90: 41 48 4C 3A 53 54 41 20 52 4F 57 2C 58 3A 4C 44 |AHL:STA ROW,X:LD|
00000CA0: 58 20 23 30 3A 53 54 58 20 52 31 00 E7 14 C6 04 |X #0:STX R1.....|
00000CB0: 43 4F 55 4E 54 20 4C 44 41 20 52 31 3A 43 4C 43 |COUNT LDA R1:CLC|
00000CC0: 3A 41 44 43 20 52 4F 57 2C 58 3A 53 54 41 20 52 |:ADC ROW,X:STA R|
00000CD0: 31 3A 49 4E 58 3A 43 50 58 20 23 52 45 3A 42 43 |1:INX:CPX #RE:BC|
00000CE0: 43 20 43 4F 55 4E 54 00 12 15 C8 04 4C 44 41 20 |C COUNT.....LDA |
00000CF0: 52 31 3A 42 45 51 20 51 43 4F 4D 50 57 49 4E 3A |R1:BEQ QCOMPWIN:|
00000D00: 43 4D 50 20 23 31 3A 42 45 51 20 51 53 50 49 57 |CMP #1:BEQ QSPIW|
00000D10: 49 4E 00 2C 15 CA 04 49 4E 43 20 42 45 47 49 4E |IN.,...INC BEGIN|
00000D20: 4E 45 52 3A 4A 4D 50 20 4D 41 49 4E 00 45 15 CC |NER:JMP MAIN.E..|
00000D30: 04 51 43 4F 4D 50 57 49 4E 20 4A 4D 50 20 43 4F |.QCOMPWIN JMP CO|
00000D40: 4D 50 57 49 4E 00 5C 15 CE 04 51 53 50 49 57 49 |MPWIN.\...QSPIWI|
00000D50: 4E 20 4A 4D 50 20 53 50 49 57 49 4E 00 A8 15 14 |N JMP SPIWIN....|
00000D60: 05 43 4F 4D 50 55 54 45 52 20 4C 44 41 20 23 30 |.COMPUTER LDA #0|
00000D70: 3A 4A 53 52 20 50 41 54 54 45 52 4E 3A 4A 53 52 |:JSR PATTERN:JSR|
00000D80: 20 54 42 4F 58 3A 2E 42 59 54 20 31 34 37 2C 31 | TBOX:.BYT 147,1|
00000D90: 37 39 3A 2E 57 B0 20 31 33 39 2C 32 35 35 3A 4C |79:.W. 139,255:L|
00000DA0: 44 58 20 23 52 45 AB 31 00 D4 15 15 05 4C 44 41 |DX #RE.1.....LDA|
00000DB0: 20 23 30 3A 53 54 41 20 52 31 3A 53 54 41 20 52 | #0:STA R1:STA R|
00000DC0: 32 3A 53 54 41 20 41 3A 44 45 43 20 42 45 47 49 |2:STA A:DEC BEGI|
00000DD0: 4E 4E 45 52 00 22 16 16 05 43 4F 4D 50 31 20 4C |NNER."...COMP1 L|
00000DE0: 44 41 20 52 4F 57 2C 58 3A 54 41 59 3A 42 45 51 |DA ROW,X:TAY:BEQ|
00000DF0: 20 43 4F 4D 50 32 3A 43 4C 43 3A 41 44 43 20 41 | COMP2:CLC:ADC A|
00000E00: 3A 53 54 41 20 41 3A 49 4E 43 20 52 31 3A 44 45 |:STA A:INC R1:DE|
00000E10: 59 3A 42 45 51 20 43 4F 4D 50 32 3A 49 4E 43 20 |Y:BEQ COMP2:INC |
00000E20: 52 32 00 6B 16 18 05 43 4F 4D 50 32 20 44 45 58 |R2.k...COMP2 DEX|
00000E30: 3A 42 50 4C 20 43 4F 4D 50 31 3A 4C 44 41 20 52 |:BPL COMP1:LDA R|
00000E40: 32 3A 42 45 51 20 43 4F 4D 50 33 3A 4C 44 41 20 |2:BEQ COMP3:LDA |
00000E50: 52 31 3A 4C 53 52 3A 41 53 4C 3A 43 4D 50 20 52 |R1:LSR:ASL:CMP R|
00000E60: 31 3A 42 43 43 20 43 4F 4D 50 34 00 77 16 1A 05 |1:BCC COMP4.w...|
00000E70: 4C 44 58 20 23 52 45 00 BF 16 1C 05 43 4F 4D 50 |LDX #RE.....COMP|
00000E80: 35 20 53 54 58 20 52 34 3A 44 45 58 3A 4C 44 41 |5 STX R4:DEX:LDA|
00000E90: 20 52 4F 57 2C 58 3A 43 4D 50 20 23 32 3A 42 43 | ROW,X:CMP #2:BC|
00000EA0: 53 20 43 4F 4D 50 36 3A 54 58 41 3A 42 4E 45 20 |S COMP6:TXA:BNE |
00000EB0: 43 4F 4D 50 35 3A 42 45 51 20 43 4F 4D 50 33 00 |COMP5:BEQ COMP3.|
00000EC0: FB 16 1E 05 43 4F 4D 50 36 20 4C 44 58 20 52 34 |....COMP6 LDX R4|
00000ED0: 3A 53 54 58 20 5A 45 49 4C 45 3A 4C 44 41 20 52 |:STX ZEILE:LDA R|
00000EE0: 4F 57 AB 31 2C 58 3A 53 54 41 20 41 4E 5A 41 48 |OW.1,X:STA ANZAH|
00000EF0: 4C 3A 42 50 4C 20 43 4F 4D 50 39 00 0C 17 20 05 |L:BPL COMP9... .|
00000F00: 43 4F 4D 50 34 20 4C 44 58 20 23 30 00 53 17 22 |COMP4 LDX #0.S."|
00000F10: 05 43 4F 4D 50 34 41 20 4C 44 41 20 52 4F 57 2C |.COMP4A LDA ROW,|
00000F20: 58 3A 43 4D 50 20 23 32 3A 42 43 53 20 43 4F 4D |X:CMP #2:BCS COM|
00000F30: 50 37 3A 49 4E 58 3A 43 50 58 20 23 52 45 3A 42 |P7:INX:CPX #RE:B|
00000F40: 43 43 20 43 4F 4D 50 34 41 3A 42 43 53 20 43 4F |CC COMP4A:BCS CO|
00000F50: 4D 50 33 00 8E 17 24 05 43 4F 4D 50 37 20 4C 44 |MP3...$.COMP7 LD|
00000F60: 59 20 52 4F 57 2C 58 3A 44 45 59 3A 53 54 59 20 |Y ROW,X:DEY:STY |
00000F70: 41 4E 5A 41 48 4C 3A 49 4E 58 3A 53 54 58 20 5A |ANZAHL:INX:STX Z|
00000F80: 45 49 4C 45 3A 42 50 4C 20 43 4F 4D 50 39 00 9F |EILE:BPL COMP9..|
00000F90: 17 28 05 43 4F 4D 50 33 20 4C 44 58 20 23 30 00 |.(.COMP3 LDX #0.|
00000FA0: CD 17 2A 05 43 4F 4D 50 33 41 20 4C 44 41 20 52 |..*.COMP3A LDA R|
00000FB0: 4F 57 2C 58 3A 42 4E 45 20 43 4F 4D 50 38 3A 49 |OW,X:BNE COMP8:I|
00000FC0: 4E 58 3A 42 4E 45 20 43 4F 4D 50 33 41 00 F7 17 |NX:BNE COMP3A...|
00000FD0: 2C 05 43 4F 4D 50 38 20 4C 44 41 20 23 31 3A 53 |,.COMP8 LDA #1:S|
00000FE0: 54 41 20 41 4E 5A 41 48 4C 3A 49 4E 58 3A 53 54 |TA ANZAHL:INX:ST|
00000FF0: 58 20 5A 45 49 4C 45 00 2F 18 32 05 43 4F 4D 50 |X ZEILE./.2.COMP|
00001000: 39 20 4A 53 52 20 54 99 3A 2E 57 B0 20 31 34 30 |9 JSR T.:.W. 140|
00001010: 3A 2E 42 59 54 20 31 35 35 3A 2E C6 20 22 1B 49 |:.BYT 155:.. ".I|
00001020: 43 48 20 4E 45 48 4D 45 20 18 22 3A 42 52 4B 00 |CH NEHME .":BRK.|
00001030: 6A 18 34 05 4C 44 41 20 41 4E 5A 41 48 4C 3A B0 |j.4.LDA ANZAHL:.|
00001040: 41 20 23 22 30 22 3A 4A 53 52 20 43 48 41 52 4F |A #"0":JSR CHARO|
00001050: 55 54 3A 4C 44 58 20 41 4E 5A 41 48 4C 3A 44 45 |UT:LDX ANZAHL:DE|
00001060: 58 3A 42 45 51 20 45 49 4E 53 00 95 18 36 05 4C |X:BEQ EINS...6.L|
00001070: 44 41 20 23 B3 4D 45 48 52 54 58 54 3A 4C 44 59 |DA #.MEHRTXT:LDY|
00001080: 20 23 B1 4D 45 48 52 54 58 54 3A 42 4E 45 20 4F | #.MEHRTXT:BNE O|
00001090: 55 54 54 58 54 00 BA 18 38 05 45 49 4E 53 20 4C |UTTXT...8.EINS L|
000010A0: 44 41 20 23 B3 45 49 4E 53 54 58 54 3A 4C 44 59 |DA #.EINSTXT:LDY|
000010B0: 20 23 B1 45 49 4E 53 54 58 54 00 DB 18 3A 05 4F | #.EINSTXT...:.O|
000010C0: 55 54 54 58 54 20 53 54 41 20 52 30 3A 53 54 59 |UTTXT STA R0:STY|
000010D0: 20 52 30 AA 31 3A 4A 53 52 20 99 00 0A 19 3C 05 | R0.1:JSR ....<.|
000010E0: 4A 53 52 20 54 99 3A 2E 57 B0 20 31 34 30 3A 2E |JSR T.:.W. 140:.|
000010F0: 42 59 54 20 31 36 39 3A 2E C6 20 22 41 55 53 20 |BYT 169:.. "AUS |
00001100: 44 45 52 20 18 22 3A 42 52 4B 00 48 19 3E 05 4C |DER .":BRK.H.>.L|
00001110: 44 41 20 5A 45 49 4C 45 3A B0 41 20 23 22 30 22 |DA ZEILE:.A #"0"|
00001120: 3A 4A 53 52 20 43 48 41 52 4F 55 54 3A 4C 44 41 |:JSR CHAROUT:LDA|
00001130: 20 23 B3 5A 45 49 4C 54 58 54 3A 4C 44 59 20 23 | #.ZEILTXT:LDY #|
00001140: B1 5A 45 49 4C 54 58 54 00 62 19 3F 05 53 54 41 |.ZEILTXT.b.?.STA|
00001150: 20 52 30 3A 53 54 59 20 52 30 AA 31 3A 4A 53 52 | R0:STY R0.1:JSR|
00001160: 20 99 00 AC 19 40 05 4C 44 58 20 5A 45 49 4C 45 | ....@.LDX ZEILE|
00001170: 3A 4C 44 41 20 52 4F 57 AB 31 2C 58 3A 53 45 43 |:LDA ROW.1,X:SEC|
00001180: 3A 53 42 43 20 41 4E 5A 41 48 4C 3A 53 54 41 20 |:SBC ANZAHL:STA |
00001190: 52 4F 57 AB 31 2C 58 3A 4C 44 41 20 41 3A 53 45 |ROW.1,X:LDA A:SE|
000011A0: 43 3A 53 42 43 20 41 4E 5A 41 48 4C 00 CE 19 42 |C:SBC ANZAHL...B|
000011B0: 05 42 45 51 20 53 50 49 57 49 4E 3A 43 4D 50 20 |.BEQ SPIWIN:CMP |
000011C0: 23 31 3A 42 45 51 20 43 4F 4D 50 57 49 4E 00 DB |#1:BEQ COMPWIN..|
000011D0: 19 44 05 4A 4D 50 20 4D 41 49 4E 00 20 1A 78 05 |.D.JMP MAIN. .x.|
000011E0: 53 50 49 57 49 4E 20 4A 53 52 20 46 45 4C 44 4F |SPIWIN JSR FELDO|
000011F0: 55 54 3A 4A 53 52 20 54 99 3A 2E 57 B0 20 31 34 |UT:JSR T.:.W. 14|
00001200: 35 3A 2E 42 59 54 20 35 34 3A 2E C6 20 22 18 19 |5:.BYT 54:.. "..|
00001210: 53 45 48 52 20 47 55 54 20 21 1B 22 3A 42 52 4B |SEHR GUT !.":BRK|
00001220: 00 2D 1A 79 05 49 4E 43 20 53 50 53 49 00 6C 1A |.-.y.INC SPSI.l.|
00001230: 7A 05 4A 53 52 20 54 99 3A 2E 57 B0 20 31 33 39 |z.JSR T.:.W. 139|
00001240: 3A 2E 42 59 54 20 36 36 3A 2E C6 20 22 53 49 45 |:.BYT 66:.. "SIE|
00001250: 20 48 41 42 45 4E 20 47 45 57 4F 4E 4E 45 4E 2E | HABEN GEWONNEN.|
00001260: 22 3A 42 52 4B 3A 4A 4D 50 20 CB 4E 00 B0 1A DC |":BRK:JMP .N....|
00001270: 05 43 4F 4D 50 57 49 4E 20 4A 53 52 20 46 45 4C |.COMPWIN JSR FEL|
00001280: 44 4F 55 54 3A 4A 53 52 20 54 99 3A 2E 57 B0 20 |DOUT:JSR T.:.W. |
00001290: 31 34 38 3A 2E 42 59 54 20 35 34 3A 2E C6 20 22 |148:.BYT 54:.. "|
000012A0: 18 19 53 4F 52 52 59 2E 2E 2E 1B 22 3A 42 52 4B |..SORRY....":BRK|
000012B0: 00 BB 1A DD 05 49 4E 43 20 BE 49 00 F2 1A DE 05 |.....INC .I.....|
000012C0: 4A 53 52 20 54 99 3A 2E 57 B0 20 31 33 39 3A 2E |JSR T.:.W. 139:.|
000012D0: 42 59 54 20 36 36 3A 2E C6 20 22 49 43 48 20 48 |BYT 66:.. "ICH H|
000012E0: 41 42 45 20 47 45 57 4F 4E 4E 45 4E 2E 22 3A 42 |ABE GEWONNEN.":B|
000012F0: 52 4B 00 27 1B E6 05 CB 4E 20 4A 53 52 20 54 99 |RK.'....N JSR T.|
00001300: 3A 2E 57 B0 20 31 34 38 3A 2E 42 59 54 20 37 38 |:.W. 148:.BYT 78|
00001310: 3A 2E C6 20 22 28 53 50 41 43 45 20 54 41 53 54 |:.. "(SPACE TAST|
00001320: 45 29 22 3A 42 52 4B 00 55 1B E8 05 4A 53 52 20 |E)":BRK.U...JSR |
00001330: 54 99 3A 2E 57 B0 20 31 35 30 3A 2E 42 59 54 20 |T.:.W. 150:.BYT |
00001340: 39 30 3A 2E C6 20 22 53 50 49 45 4C 45 52 3A 20 |90:.. "SPIELER: |
00001350: 22 3A 42 52 4B 00 6D 1B EA 05 4C 44 41 20 53 50 |":BRK.m...LDA SP|
00001360: 53 49 3A 4A 53 52 20 4E 55 4D 4F 55 54 00 A1 1B |SI:JSR NUMOUT...|
00001370: EC 05 4A 53 52 20 54 99 3A 2E 57 B0 20 31 35 30 |..JSR T.:.W. 150|
00001380: 3A 2E 42 59 54 20 31 30 32 3A 2E 42 59 54 20 31 |:.BYT 102:.BYT 1|
00001390: 32 38 3A 2E C6 20 22 20 36 34 3A 20 22 3A 42 52 |28:.. " 64: ":BR|
000013A0: 4B 00 B7 1B EE 05 4C 44 41 20 BE 49 3A 4A 53 52 |K.....LDA .I:JSR|
000013B0: 20 4E 55 4D 4F 55 54 00 DB 1B 36 06 A1 53 20 4A | NUMOUT...6..S J|
000013C0: 53 52 20 A1 3A 43 4D 50 20 23 22 20 22 3A 42 4E |SR .:CMP #" ":BN|
000013D0: 45 20 A1 53 3A 4A 4D 50 20 46 45 00 EE 1B 40 06 |E .S:JMP FE...@.|
000013E0: 4E 55 4D 4F 55 54 20 4C 44 58 20 23 22 30 00 22 |NUMOUT LDX #"0."|
000013F0: 1C 42 06 43 4F 31 30 30 20 43 4D 50 20 23 31 30 |.B.CO100 CMP #10|
00001400: 30 3A 42 43 43 20 4B 4C 31 30 30 3A 49 4E 58 3A |0:BCC KL100:INX:|
00001410: 53 42 43 20 23 31 30 30 3A 4A 4D 50 20 43 4F 31 |SBC #100:JMP CO1|
00001420: 30 30 00 3D 1C 44 06 4B 4C 31 30 30 20 53 54 58 |00.=.D.KL100 STX|
00001430: 20 5A 41 48 4C 3A 4C 44 58 20 23 22 30 00 6C 1C | ZAHL:LDX #"0.l.|
00001440: 46 06 43 4F 31 30 20 43 4D 50 20 23 31 30 3A 42 |F.CO10 CMP #10:B|
00001450: 43 43 20 4B 4C 31 30 3A 49 4E 58 3A 53 42 43 20 |CC KL10:INX:SBC |
00001460: 23 31 30 3A 42 50 4C 20 43 4F 31 30 00 AE 1C 48 |#10:BPL CO10...H|
00001470: 06 4B 4C 31 30 20 B0 41 20 23 22 30 22 3A 53 54 |.KL10 .A #"0":ST|
00001480: 41 20 5A 41 48 4C AA 32 3A 53 54 58 20 5A 41 48 |A ZAHL.2:STX ZAH|
00001490: 4C AA 31 3A 4C 44 41 20 5A 41 48 4C 3A 43 4D 50 |L.1:LDA ZAHL:CMP|
000014A0: 20 23 22 30 22 3A 42 4E 45 20 46 49 4E 49 00 EA | #"0":BNE FINI..|
000014B0: 1C 4A 06 4C 44 41 20 23 22 20 22 3A 53 54 41 20 |.J.LDA #" ":STA |
000014C0: 5A 41 48 4C 3A 43 50 58 20 23 22 30 22 3A 42 4E |ZAHL:CPX #"0":BN|
000014D0: 45 20 46 49 4E 49 3A 4C 44 41 20 23 22 20 22 3A |E FINI:LDA #" ":|
000014E0: 53 54 41 20 5A 41 48 4C AA 31 00 34 1D 4C 06 46 |STA ZAHL.1.4.L.F|
000014F0: 49 4E 49 20 4C 44 41 20 23 22 18 22 3A 4A 53 52 |INI LDA #".":JSR|
00001500: 20 43 48 41 52 4F 55 54 3A 4C 44 41 20 5A 41 48 | CHAROUT:LDA ZAH|
00001510: 4C 3A 4A 53 52 20 43 48 41 52 4F 55 54 3A 4C 44 |L:JSR CHAROUT:LD|
00001520: 41 20 5A 41 48 4C AA 31 3A 4A 53 52 20 43 48 41 |A ZAHL.1:JSR CHA|
00001530: 52 4F 55 54 00 64 1D 4E 06 4C 44 41 20 5A 41 48 |ROUT.d.N.LDA ZAH|
00001540: 4C AA 32 3A 4A 53 52 20 43 48 41 52 4F 55 54 3A |L.2:JSR CHAROUT:|
00001550: 4C 44 41 20 23 22 1B 22 3A 4A 4D 50 20 43 48 41 |LDA #".":JMP CHA|
00001560: 52 4F 55 54 00 89 1D D0 07 57 49 4E 44 54 41 42 |ROUT.....WINDTAB|
00001570: 20 2E 42 59 54 20 31 2C 38 30 2C 31 35 38 3A 2E | .BYT 1,80,158:.|
00001580: 57 B0 20 35 32 2C 32 32 38 00 A4 1D D2 07 2E 42 |W. 52,228......B|
00001590: 59 54 20 24 42 2C 34 2C 31 31 3A 2E 57 B0 20 54 |YT $B,4,11:.W. T|
000015A0: 45 58 54 31 00 BF 1D D4 07 2E 42 59 54 20 24 42 |EXT1......BYT $B|
000015B0: 2C 34 2C 32 34 3A 2E 57 B0 20 54 45 58 54 32 00 |,4,24:.W. TEXT2.|
000015C0: DA 1D D6 07 2E 42 59 54 20 24 42 2C 34 2C 33 37 |.....BYT $B,4,37|
000015D0: 3A 2E 57 B0 20 54 45 58 54 33 00 F5 1D D7 07 2E |:.W. TEXT3......|
000015E0: 42 59 54 20 24 42 2C 34 2C 35 30 3A 2E 57 B0 20 |BYT $B,4,50:.W. |
000015F0: 54 45 58 54 34 00 0D 1E D8 07 2E 42 59 54 20 32 |TEXT4......BYT 2|
00001600: 2C 31 36 2C 35 38 2C 31 2C 31 2C 35 38 00 15 1E |,16,58,1,1,58...|
00001610: DA 07 42 52 4B 00 3B 1E E4 07 57 49 4E 44 54 41 |..BRK.;...WINDTA|
00001620: 42 32 20 2E 42 59 54 20 31 2C 38 30 2C 31 31 38 |B2 .BYT 1,80,118|
00001630: 3A 2E 57 B0 20 35 32 2C 32 32 38 00 56 1E E6 07 |:.W. 52,228.V...|
00001640: 2E 42 59 54 20 24 42 2C 34 2C 31 31 3A 2E 57 B0 |.BYT $B,4,11:.W.|
00001650: 20 54 45 58 54 35 00 6E 1E EC 07 2E 42 59 54 20 | TEXT5.n....BYT |
00001660: 34 2C 31 36 2C 31 38 2C 33 2C 31 2C 31 38 00 76 |4,16,18,3,1,18.v|
00001670: 1E ED 07 42 52 4B 00 AD 1E 34 08 54 45 58 54 31 |...BRK...4.TEXT1|
00001680: 20 2E C6 20 22 53 49 45 20 4B 4F 45 4E 4E 45 4E | .. "SIE KOENNEN|
00001690: 20 50 52 4F 20 5A 55 47 20 41 55 53 20 45 49 4E | PRO ZUG AUS EIN|
000016A0: 45 52 20 5A 45 49 4C 45 22 3A 42 52 4B 00 E4 1E |ER ZEILE":BRK...|
000016B0: 36 08 54 45 58 54 32 20 2E C6 20 22 42 45 4C 49 |6.TEXT2 .. "BELI|
000016C0: 45 42 49 47 20 56 49 45 4C 45 20 48 4F 45 4C 5A |EBIG VIELE HOELZ|
000016D0: 45 52 20 5A 49 45 48 45 4E 2C 20 41 42 45 52 22 |ER ZIEHEN, ABER"|
000016E0: 3A 42 52 4B 00 1A 1F 38 08 54 45 58 54 33 20 2E |:BRK...8.TEXT3 .|
000016F0: C6 20 22 18 4E 49 43 48 54 1B 20 4D 45 48 52 20 |. ".NICHT. MEHR |
00001700: 41 4C 53 20 49 4E 20 44 45 52 20 5A 45 49 4C 45 |ALS IN DER ZEILE|
00001710: 20 56 4F 52 2D 22 3A 42 52 4B 00 3B 1F 3A 08 54 | VOR-":BRK.;.:.T|
00001720: 45 58 54 34 20 2E C6 20 22 48 41 4E 44 45 4E 20 |EXT4 .. "HANDEN |
00001730: 53 49 4E 44 20 21 22 3A 42 52 4B 00 66 1F 3C 08 |SIND !":BRK.f.<.|
00001740: 54 45 58 54 35 20 2E C6 20 22 57 4F 4C 4C 45 4E |TEXT5 .. "WOLLEN|
00001750: 20 18 53 49 45 1B 20 42 45 47 49 4E 4E 45 4E 20 | .SIE. BEGINNEN |
00001760: 3F 22 3A 42 52 4B 00 89 1F 3E 08 45 49 4E 53 54 |?":BRK...>.EINST|
00001770: 58 54 20 2E C6 20 22 1B 20 53 54 52 45 49 43 48 |XT .. ". STREICH|
00001780: 48 4F 4C 5A 22 3A 42 52 4B 00 A8 1F 40 08 4D 45 |HOLZ":BRK...@.ME|
00001790: 48 52 54 58 54 20 2E C6 20 22 1B 20 48 4F 45 4C |HRTXT .. ". HOEL|
000017A0: 5A 45 52 22 3A 42 52 4B 00 C6 1F 42 08 5A 45 49 |ZER":BRK...B.ZEI|
000017B0: 4C 54 58 54 20 2E C6 20 22 1B 2E 20 5A 45 49 4C |LTXT .. ".. ZEIL|
000017C0: 45 22 3A 42 52 4B 00 DA 1F 98 08 42 45 47 49 4E |E":BRK.....BEGIN|
000017D0: 4E 45 52 20 B2 24 41 30 30 30 00 EC 1F 9A 08 52 |NER .$A000.....R|
000017E0: 4F 57 20 2E 57 B0 20 30 2C 30 2C 30 00 F6 1F 9C |OW .W. 0,0,0....|
000017F0: 08 41 20 42 52 4B 00 04 20 9E 08 5A 45 49 4C 45 |.A BRK.. ..ZEILE|
00001800: 20 42 52 4B 00 13 20 A0 08 41 4E 5A 41 48 4C 20 | BRK.. ..ANZAHL |
00001810: 42 52 4B 00 1E 20 A2 08 BE 49 20 42 52 4B 00 2B |BRK.. ...I BRK.+|
00001820: 20 A4 08 53 50 53 49 20 42 52 4B 00 3C 20 A6 08 | ..SPSI BRK.< ..|
00001830: 5A 41 48 4C 20 2E C6 20 22 2E 2E 2E 00 00 00 |ZAHL .. "...... |
..).... OPEN4,8,15,"S:STREICHHOLZ":CLOSE
4.J.... OPEN1,8,2,"STREICHHOLZ,P,W.H....
36864;.. VERSI. NUMBER 4.U...;.OPT O1...
(... $402...1.;.W.2.; STREICHHOLZSPIEL V
. NIKOLAUS HEUSLER . ZWENGAUERWEG 18 . 8
MUENCHEN SOLLN...7.; FRAGEN ... RUECKP.
. !.".8.; A.ERN DER REIHEN . LABEL RE IN
ZEILE 480.@.9.; 64'ER S.DERHEFT 59.1990
.U.:.; GREETINGS . ELMAR HOERIG & PETER
BERTELSHOFER!.{.;.;...<.PATTERN .$C139..
.F.TBOX .$C19F...P.MOUSE. .$C18A...Z.IC.
.$C15A.L.N.. .$C1BA.V.X.R0 .2.....R1 .4
.....R2 .6.....R3 .8... .R4 .10.....R5 .
12.....R6 .14. ...R7 .16.+.H.R8 .18.6.R.
R9 .20.B...R10 .22.N...R11 .24.`...KEYVE
C .$84A3.U...MULTIWOWO .$C166.....DIVWOW
O .$C169.....DESK.P .$C22C.....MENUE. .$
C151..."..EMENUE .$C193.M.,.T. .$C1AE.Z.
6.. .$C1ED...@. .$C277...J.. .$C274...T
.RECAPP. .$C289...^.. .$C148.'.H.KILLREC
.$C283.;.R.SETREC.D .$C280.M.|.MAXREC .
$8497.[...PAGE .$2F.J...REC .$C127.Z...T
REC .$C1A2......MOUSE .$C19B......ALLMEN
.$C157.....WINDOW .$C256...B.REV .$8850
.Q.L.RESET .$9185...V.VLINE .$C121.....R
E .6.....CHAROUT .$C145.....HLINE .$C118
...... .$C2A7.L...FE JSR TREC:.BYT 34,18
0:.W. 20,256:.BYT .1.....LDA #7:JSR PATT
ERN:JSR TBOX:.BYT 47,179:.W. 21,255.....
LDA #9:JSR PATTERN:JSR TBOX:.BYT 35,46:.
W. 21,255.....JSR T.:.W. 101:.BYT 42:.F
". STREICHHOLZSPIEL V1 ":BRK.*...LDA #1:
JSR PATTERN:JSR TBOX:.BYT 60,84:.W. 60,2
36.`...LDA #0:JSR PATTERN:JSR TBOX:.BYT
52,76:.W. 52,228.....JSR TREC:.BYT 52,76
:.W. 52,228:.BYT .1.C...JSR T.:.W. 64:.B
YT 69:.F ".STREICHHOLZ-ZIEHEN AUS ......
.BYT RE.48:.F ". REIHEN":BRK.....LDA #.W
INDTAB:LDY #.WINDTAB:STA R0:STY R0.1:JSR
WINDOW.5...LDX R0:DEX:BEQ OK.D...DEX:LD
Y #0.^.... DEX:BNE .:DEY:BNE ..M...JMP D
ESK.P.....OK LDA #7:JSR PATTERN:JSR TBOX
:.BYT 47,179:.W. 21,255.....LDA #.WINDTA
B2:LDY #.WINDTAB2:STA R0:STY R0.1:JSR WI
NDOW.....LDA R0:SEC:SBC #4:STA BEGINNER.
B...OK2 LDA #0:JSR PATTERN:JSR TBOX:.BYT
47,179:.W. 21,255.....LDA #.1:LDX #0:ST
X R4.1:LDX #138:STX R4:LDX #48:STX R3:LD
X #178.P...STX R3.1:LDX #$80:STX PAGE:JS
R VLINE:LDA #113:STA R11:LDA #0:STA R3.1
.....STA R4.1:LDA #254:STA R4:LDA #140:S
TA R3:LDA #128:STA PAGE:LDA #.1.H...JSR
HLINE:LDA #146:STA R11:LDA #.1:JSR HLINE
.^...LDY #RE.1:LDA #RE.....SETUP STA ROW
,Y:SEC:SBC #1:DEY:BPL SETUP.....JMP MAIN
.W.L.FELDOUT LDA #0:JSR PATTERN:JSR TBOX
:.BYT 48,179:.W. 21,137...N.LDY #0.).P.L
OOP1 STY ZEILE:LDA #128:STA PAGE:LDA #25
:STA R11:LDA #0:STA R11.1.N.R.LDA ZEILE:
STA R1:ASL:ASL:ADC R1:STA R1:LDA ZEILE:A
SL:ASL:ASL:ASL...T.ADC R1:ADC #60:STA R1
.1:LDA #".":JSR CHAROUT:LDA ZEILE:ADC #4
8:JSR CHAROUT...V.LDA #34:STA R11:LDY ZE
ILE:LDA ROW,Y:BEQ NIX.:.X.LOOP2 PHA:LDA
#"I":JSR CHAROUT:LDA #" ":JSR CHAROUT:LD
A #" ":JSR CHAROUT.W.Z.PLA:SEC:SBC #1:BN
E LOOP2...\.NIX LDY ZEILE:INY:CPY #RE:BC
C LOOP1:LDA #".":JMP CHAROUT.....QCOMPUT
ER JMP COMPUTER.....MAIN JSR FELDOUT:LDA
BEGINNER:BEQ QCOMPUTER.....LDA #0:JSR P
ATTERN:JSR TBOX:.BYT 114,145:.W. 139,255
.N...JSR T.:.W. 140:.BYT 122:.F "WELCHE
ZEILE ? .":BRK......1 JSR .:CMP #"1":BCC
.1:CMP #"1".RE:BCS .1:TAY:SEC:SBC #"1":
TAX.N...LDA ROW,X:BEQ .1:CLC:ADC #"1":ST
A ANZAHL:STX ZEILE:TYA.....JSR CHAROUT:J
SR T.:.W. 140:.BYT 136:.F ".WIEVIELE ? .
":BRK.T....2 JSR .:CMP #"1":BCC .2:CMP A
NZAHL:BCS .2:PHA:JSR CHAROUT:PLA:SEC.L..
.SBC #"0":STA ANZAHL...D.LDX ZEILE:LDA R
OW,X:SEC:SBC ANZAHL:STA ROW,X:LDX #0:STX
R1...F.COUNT LDA R1:CLC:ADC ROW,X:STA R
1:INX:CPX #RE:BCC COUNT...H.LDA R1:BEQ Q
COMPWIN:CMP #1:BEQ QSPIWIN.,.J.INC BEGIN
NER:JMP MAIN.E.L.QCOMPWIN JMP COMPWIN.\.
N.QSPIWIN JMP SPIWIN.....COMPUTER LDA #0
:JSR PATTERN:JSR TBOX:.BYT 147,179:.W. 1
39,255:LDX #RE.1.T...LDA #0:STA R1:STA R
2:STA A:DEC BEGINNER."...COMP1 LDA ROW,X
:TAY:BEQ COMP2:CLC:ADC A:STA A:INC R1:DE
Y:BEQ COMP2:INC R2.K...COMP2 DEX:BPL COM
P1:LDA R2:BEQ COMP3:LDA R1:LSR:ASL:CMP R
1:BCC COMP4.W...LDX #RE.....COMP5 STX R4
:DEX:LDA ROW,X:CMP #2:BCS COMP6:TXA:BNE
COMP5:BEQ COMP3.....COMP6 LDX R4:STX ZEI
LE:LDA ROW.1,X:STA ANZAHL:BPL COMP9... .
COMP4 LDX #0.S.".COMP4A LDA ROW,X:CMP #2
:BCS COMP7:INX:CPX #RE:BCC COMP4A:BCS CO
MP3...$.COMP7 LDY ROW,X:DEY:STY ANZAHL:I
NX:STX ZEILE:BPL COMP9...(.COMP3 LDX #0.
M.*.COMP3A LDA ROW,X:BNE COMP8:INX:BNE C
OMP3A...,.COMP8 LDA #1:STA ANZAHL:INX:ST
X ZEILE./.2.COMP9 JSR T.:.W. 140:.BYT 15
5:.F ".ICH NEHME .":BRK.J.4.LDA ANZAHL:.
A #"0":JSR CHAROUT:LDX ANZAHL:DEX:BEQ EI
NS...6.LDA #.MEHRTXT:LDY #.MEHRTXT:BNE O
UTTXT...8.EINS LDA #.EINSTXT:LDY #.EINST
XT...:.OUTTXT STA R0:STY R0.1:JSR ....<.
JSR T.:.W. 140:.BYT 169:.F "AUS DER .":B
RK.H.>.LDA ZEILE:.A #"0":JSR CHAROUT:LDA
#.ZEILTXT:LDY #.ZEILTXT.B.?.STA R0:STY
R0.1:JSR ....@.LDX ZEILE:LDA ROW.1,X:SEC
:SBC ANZAHL:STA ROW.1,X:LDA A:SEC:SBC AN
ZAHL.N.B.BEQ SPIWIN:CMP #1:BEQ COMPWIN..
.D.JMP MAIN. .X.SPIWIN JSR FELDOUT:JSR T
.:.W. 145:.BYT 54:.F "..SEHR GUT !.":BRK
.-.Y.INC SPSI.L.Z.JSR T.:.W. 139:.BYT 66
:.F "SIE HABEN GEWONNEN.":BRK:JMP KN....
.COMPWIN JSR FELDOUT:JSR T.:.W. 148:.BYT
54:.F "..SORRY....":BRK.....INC .I.....
JSR T.:.W. 139:.BYT 66:.F "ICH HABE GEWO
NNEN.":BRK.'...KN JSR T.:.W. 148:.BYT 78
:.F "(SPACE TASTE)":BRK.U...JSR T.:.W. 1
50:.BYT 90:.F "SPIELER: ":BRK.M...LDA SP
SI:JSR NUMOUT.....JSR T.:.W. 150:.BYT 10
2:.BYT 128:.F " 64: ":BRK.....LDA .I:JSR
NUMOUT...6..S JSR .:CMP #" ":BNE .S:JMP
FE...@.NUMOUT LDX #"0.".B.CO100 CMP #10
0:BCC KL100:INX:SBC #100:JMP CO100.=.D.K
L100 STX ZAHL:LDX #"0.L.F.CO10 CMP #10:B
CC KL10:INX:SBC #10:BPL CO10...H.KL10 .A
#"0":STA ZAHL.2:STX ZAHL.1:LDA ZAHL:CMP
#"0":BNE FINI...J.LDA #" ":STA ZAHL:CPX
#"0":BNE FINI:LDA #" ":STA ZAHL.1.4.L.F
INI LDA #".":JSR CHAROUT:LDA ZAHL:JSR CH
AROUT:LDA ZAHL.1:JSR CHAROUT.D.N.LDA ZAH
L.2:JSR CHAROUT:LDA #".":JMP CHAROUT...P
.WINDTAB .BYT 1,80,158:.W. 52,228...R..B
YT $B,4,11:.W. TEXT1...T..BYT $B,4,24:.W
. TEXT2.Z.V..BYT $B,4,37:.W. TEXT3...W..
BYT $B,4,50:.W. TEXT4...X..BYT 2,16,58,1
,1,58...Z.BRK.;...WINDTAB2 .BYT 1,80,118
:.W. 52,228.V....BYT $B,4,11:.W. TEXT5.N
....BYT 4,16,18,3,1,18.V...BRK...4.TEXT1
.F "SIE KOENNEN PRO ZUG AUS EINER ZEILE
":BRK...6.TEXT2 .F "BELIEBIG VIELE HOELZ
ER ZIEHEN, ABER":BRK...8.TEXT3 .F ".NICH
T. MEHR ALS IN DER ZEILE VOR-":BRK.;.:.T
EXT4 .F "HANDEN SIND !":BRK.F.<.TEXT5 .F
"WOLLEN .SIE. BEGINNEN ?":BRK...>.EINST
XT .F ". STREICHHOLZ":BRK...@.MEHRTXT .F
". HOELZER":BRK.F.B.ZEILTXT .F ".. ZEIL
E":BRK.Z...BEGINNER .$A000.....ROW .W. 0
,0,0.....A BRK.. ..ZEILE BRK.. .ANZAHL
BRK.. ...I BRK.+ ..SPSI BRK.< ..ZAHL .F
"......
> CLICK IMAGE PREVIEW FOR FULL MODAL