UNCOVER.SRC

FILE INFORMATION

FILENAME(S): UNCOVER.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.8K

FIRST SEEN: 2025-11-30 01:12:43

APPEARS ON: 3 disk(s)

FILE HASH

96004fc720f9f06142dbeae9b4793317d6eedbf7502883f3b4298dfe46bfd188

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10703 3 87 64ER	UNCOVER.SRC	PRG	C64er	12	1	DOWNLOAD FILE
15833 SEITE B	UNCOVER.SRC	PRG	C64er	10	16	DOWNLOAD FILE
10703 3 87 64ER	UNCOVER.SRC	PRG	DuncanTwain	24	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 09 08 0A 00 2E 4F  53 00 16 08 14 00 2E 42  |.......OS......B|
00000010: 41 24 43 32 30 30 00 2B  08 1E 00 42 49 4E 44 20  |A$C200.+...BIND |
00000020: 20 20 20 2E 44 45 24 41  35 33 33 00 40 08 28 00  |   .DE$A533.@.(.|
00000030: 4E 55 4D 4F 55 54 20 20  2E 44 45 24 42 44 43 44  |NUMOUT  .DE$BDCD|
00000040: 00 55 08 32 00 42 53 4F  55 54 20 20 20 2E 44 45  |.U.2.BSOUT   .DE|
00000050: 24 45 31 30 43 00 6A 08  3C 00 54 45 58 54 41 4E  |$E10C.j.<.TEXTAN|
00000060: 46 20 2E 44 45 24 30 30  32 42 00 7F 08 46 00 56  |F .DE$002B...F.V|
00000070: 41 52 41 4E 46 20 20 2E  44 45 24 30 30 32 44 00  |ARANF  .DE$002D.|
00000080: 94 08 50 00 46 45 4C 44  41 4E 46 20 2E 44 45 24  |..P.FELDANF .DE$|
00000090: 30 30 32 46 00 A9 08 5A  00 46 45 4C 44 45 4E 44  |002F...Z.FELDEND|
000000A0: 20 2E 44 45 24 30 30 33  31 00 BE 08 64 00 4C 31  | .DE$0031...d.L1|
000000B0: 20 20 20 20 20 20 2E 44  45 24 30 30 35 30 00 D3  |      .DE$0050..|
000000C0: 08 6E 00 48 31 20 20 20  20 20 20 2E 44 45 24 30  |.n.H1      .DE$0|
000000D0: 30 35 31 00 E8 08 78 00  4C 32 20 20 20 20 20 20  |051...x.L2      |
000000E0: 2E 44 45 24 30 30 35 32  00 FD 08 82 00 48 32 20  |.DE$0052.....H2 |
000000F0: 20 20 20 20 20 2E 44 45  24 30 30 35 33 00 12 09  |     .DE$0053...|
00000100: 8C 00 4C 33 20 20 20 20  20 20 2E 44 45 24 30 30  |..L3      .DE$00|
00000110: 35 34 00 27 09 96 00 48  33 20 20 20 20 20 20 2E  |54.'...H3      .|
00000120: 44 45 24 30 30 35 35 00  3C 09 A0 00 56 4F 52 53  |DE$0055.<...VORS|
00000130: 43 48 20 20 2E 44 45 24  30 30 35 36 00 51 09 AA  |CH  .DE$0056.Q..|
00000140: 00 4D 45 4D 20 20 20 20  20 2E 44 45 24 30 33 33  |.MEM     .DE$033|
00000150: 34 00 5E 09 B4 00 80 4C  44 59 20 23 20 30 00 7D  |4.^....LDY # 0.}|
00000160: 09 BE 00 53 30 20 4C 44  41 20 4C 31 2C 59 20 3B  |...S0 LDA L1,Y ;|
00000170: 53 50 45 49 43 48 45 52  4E 20 44 45 52 00 9C 09  |SPEICHERN DER...|
00000180: C8 00 53 54 41 20 4D 45  4D 2C 59 20 3B 5A 45 52  |..STA MEM,Y ;ZER|
00000190: 4F 50 41 47 45 AB 5A 45  49 47 45 52 00 A4 09 D2  |OPAGE.ZEIGER....|
000001A0: 00 49 4E 59 00 B0 09 DC  00 43 50 59 20 23 20 37  |.INY.....CPY # 7|
000001B0: 00 BB 09 E6 00 42 4E 45  20 53 30 00 C3 09 F0 00  |.....BNE S0.....|
000001C0: 43 4C 43 00 E6 09 FA 00  3B 41 55 53 4C 4F 54 45  |CLC.....;AUSLOTE|
000001D0: 4E 20 44 45 53 20 42 41  53 49 43 50 52 4F 47 52  |N DES BASICPROGR|
000001E0: 41 4D 4D 80 45 53 00 F3  09 04 01 4A 53 52 20 42  |AMM.ES.....JSR B|
000001F0: 49 4E 44 00 FE 09 0E 01  4C 44 59 20 23 30 00 1C  |IND.....LDY #0..|
00000200: 0A 18 01 4C 44 41 20 54  45 58 C0 46 2C 20 59 20  |...LDA TEX.F, Y |
00000210: 3B 55 45 42 45 52 54 52  41 47 45 4E 00 41 0A 22  |;UEBERTRAGEN.A."|
00000220: 01 53 54 41 20 4C 31 20  20 20 20 20 20 20 20 20  |.STA L1         |
00000230: 3B 44 45 53 20 42 41 53  49 43 5A 45 49 47 45 52  |;DES BASICZEIGER|
00000240: 53 00 5E 0A 2C 01 49 4E  59 20 20 20 20 20 20 20  |S.^.,.INY       |
00000250: 20 20 20 20 20 3B 5A 55  52 20 B8 49 45 4E 00 7A  |     ;ZUR .IEN.z|
00000260: 0A 36 01 4C 44 41 20 54  45 58 C0 46 2C 20 59 20  |.6.LDA TEX.F, Y |
00000270: 3B 42 45 4E 55 54 5A 55  4E 47 00 85 0A 40 01 53  |;BENUTZUNG...@.S|
00000280: 54 41 20 48 31 00 8D 0A  4A 01 44 45 59 00 AA 0A  |TA H1...J.DEY...|
00000290: 54 01 4C 44 41 28 4C 31  29 2C 59 20 3B 5A 45 49  |T.LDA(L1),Y ;ZEI|
000002A0: 47 54 20 41 55 46 20 44  45 4E 00 C3 0A 5E 01 3B  |GT AUF DEN...^.;|
000002B0: 31 2E 4C 49 4E 4B 50 4F  B5 45 52 2C 4C 4F 57 42  |1.LINKPO.ER,LOWB|
000002C0: 59 54 45 00 D6 0A 68 01  53 54 41 20 4C 33 20 3B  |YTE...h.STA L3 ;|
000002D0: 4D 45 52 4B 45 4E 00 DE  0A 72 01 49 4E 59 00 F9  |MERKEN...r.INY..|
000002E0: 0A 7C 01 4C 44 41 28 4C  31 29 2C 59 20 3B 31 2E  |.|.LDA(L1),Y ;1.|
000002F0: 4C 50 2C 48 49 42 59 54  45 00 0C 0B 86 01 53 54  |LP,HIBYTE.....ST|
00000300: 41 20 48 33 20 3B 4D 45  52 4B 45 4E 00 32 0B 90  |A H3 ;MERKEN.2..|
00000310: 01 53 31 20 4C 44 41 28  4C 33 29 2C 59 20 3B 5A  |.S1 LDA(L3),Y ;Z|
00000320: 45 49 47 54 20 41 55 46  20 4E 41 45 43 48 53 54  |EIGT AUF NAECHST|
00000330: 45 4E 00 4B 0B 9A 01 3B  4C 49 4E 4B 50 4F B5 45  |EN.K...;LINKPO.E|
00000340: 52 28 48 49 AB 42 59 54  45 21 29 00 70 0B A4 01  |R(HI.BYTE!).p...|
00000350: 3B 49 53 54 20 44 49 45  53 45 53 20 4E 55 4C 4C  |;IST DIESES NULL|
00000360: 2C 20 53 4F 20 49 53 54  20 54 45 58 54 45 4E AB  |, SO IST TEXTEN.|
00000370: 00 8D 0B AE 01 3B 44 45  20 41 B7 45 49 43 48 80  |.....;DE A.EICH.|
00000380: 20 4E 41 43 48 47 45 57  49 45 53 45 4E 00 A5 0B  | NACHGEWIESEN...|
00000390: B8 01 42 45 51 20 53 36  20 3B 44 41 4E 4E 20 57  |..BEQ S6 ;DANN W|
000003A0: 45 49 54 45 52 00 AD 0B  C2 01 50 48 41 00 C3 0B  |EITER.....PHA...|
000003B0: CC 01 44 45 59 20 20 20  20 20 20 20 3B 5A 45 49  |..DEY       ;ZEI|
000003C0: 47 45 52 00 E0 0B D6 01  4C 44 41 20 28 4C 33 29  |GER.....LDA (L3)|
000003D0: 2C 59 3B 41 55 46 20 4E  45 55 45 20 4C 2E 50 2E  |,Y;AUF NEUE L.P.|
000003E0: 00 F8 0B E0 01 53 54 41  20 4C 33 20 20 20 20 3B  |.....STA L3    ;|
000003F0: AB 41 44 52 45 53 53 45  00 00 0C EA 01 49 4E 59  |.ADRESSE.....INY|
00000400: 00 1D 0C F4 01 50 4C 41  20 20 20 20 20 20 20 3B  |.....PLA       ;|
00000410: 41 4B 54 55 41 4C 49 53  49 45 52 45 4E 00 28 0C  |AKTUALISIEREN.(.|
00000420: FE 01 53 54 41 20 48 33  00 3F 0C 08 02 42 4E 45  |..STA H3.?...BNE|
00000430: 20 53 31 20 20 20 20 3B  56 91 20 56 B0 4E 45 00  | S1    ;V. V.NE.|
00000440: 47 0C 12 02 3B AC AC 00  4F 0C 1C 02 3B AC AC 00  |G...;...O...;...|
00000450: 6A 0C 26 02 3B 50 52 55  45 46 45 4E 20 44 45 52  |j.&.;PRUEFEN DER|
00000460: 20 45 49 4E 5A 45 4C 4E  45 4E 00 79 0C 30 02 3B  | EINZELNEN.y.0.;|
00000470: 42 41 53 49 43 5A 45 49  C3 00 89 0C 3A 02 53 36  |BASICZEI....:.S6|
00000480: 20 4C 44 59 20 23 24 30  31 00 A9 0C 44 02 4C 44  | LDY #$01...D.LD|
00000490: 41 28 4C 31 29 2C 59 20  20 20 3B 49 53 54 20 88  |A(L1),Y   ;IST .|
000004A0: 5A 54 45 20 5A 45 49 4C  45 00 C2 0C 4E 02 42 45  |ZTE ZEILE...N.BE|
000004B0: 51 20 53 43 48 4C 55 53  53 20 3B 46 45 52 54 49  |Q SCHLUSS ;FERTI|
000004C0: 47 99 00 E2 0C 58 02 4C  44 59 20 23 20 24 30 34  |G....X.LDY # $04|
000004D0: 20 3B 42 59 54 45 20 44  49 52 45 4B 54 20 4E 41  | ;BYTE DIREKT NA|
000004E0: 43 48 00 FC 0C 62 02 4C  44 41 28 4C 31 29 2C 59  |CH...b.LDA(L1),Y|
000004F0: 20 3B 5A 45 49 C3 4E 55  4D 4D 45 52 00 0D 0D 6C  | ;ZEI.NUMMER...l|
00000500: 02 42 45 51 20 4B B0 52  45 4B 54 55 52 00 1F 0D  |.BEQ K.REKTUR...|
00000510: 76 02 3B 28 46 41 4C 4C  53 20 82 55 4C 4C 29 00  |v.;(FALLS .ULL).|
00000520: 2C 0D 80 02 4C 44 59 20  23 24 30 31 00 4B 0D 8A  |,...LDY #$01.K..|
00000530: 02 4C 44 41 28 4C 31 29  2C 59 20 3B 5A 45 49 47  |.LDA(L1),Y ;ZEIG|
00000540: 45 52 20 41 4E 48 AF 20  44 45 53 00 65 0D 94 02  |ER ANH. DES.e...|
00000550: 50 48 41 20 20 20 20 20  20 20 3B 4C 49 4E 4B 50  |PHA       ;LINKP|
00000560: 4F B5 45 52 53 00 81 0D  9E 02 44 45 59 20 20 20  |O.ERS.....DEY   |
00000570: 20 20 20 20 3B 41 55 46  20 4E 41 45 43 48 53 54  |    ;AUF NAECHST|
00000580: 45 00 9E 0D A8 02 4C 44  41 28 4C 31 29 2C 59 20  |E.....LDA(L1),Y |
00000590: 3B 5A 45 49 4C 45 20 52  49 43 48 54 45 4E 00 A9  |;ZEILE RICHTEN..|
000005A0: 0D B2 02 53 54 41 20 4C  31 00 B1 0D BC 02 50 4C  |...STA L1.....PL|
000005B0: 41 00 BC 0D C6 02 53 54  41 20 48 31 00 C7 0D D0  |A.....STA H1....|
000005C0: 02 42 4E 45 20 53 36 00  CF 0D DA 02 3B AC AC 00  |.BNE S6.....;...|
000005D0: D7 0D E4 02 3B AC AC 00  E8 0D EE 02 4B B0 52 45  |....;.......K.RE|
000005E0: 4B 54 55 52 20 49 4E 59  00 F6 0D F8 02 54 45 53  |KTUR INY.....TES|
000005F0: 54 3A 20 49 4E 59 00 04  0E 02 03 4C 44 41 28 4C  |T: INY.....LDA(L|
00000600: 31 29 2C 59 00 27 0E 0C  03 43 4D 50 20 23 22 3A  |1),Y.'...CMP #":|
00000610: 22 20 3B 54 45 53 54 20  41 55 46 20 44 4F 50 50  |" ;TEST AUF DOPP|
00000620: 45 4C 50 55 4E 4B 54 00  2F 0E 16 03 43 4C 43 00  |ELPUNKT./...CLC.|
00000630: 3D 0E 20 03 42 45 51 20  54 45 53 54 3A 00 55 0E  |=. .BEQ TEST:.U.|
00000640: 2A 03 43 4D 50 20 23 20  24 30 20 3B 4E 55 52 20  |*.CMP # $0 ;NUR |
00000650: 22 3A 22 99 99 00 61 0E  34 03 42 4E 45 20 B2 AA  |":"...a.4.BNE ..|
00000660: 31 00 69 0E 3E 03 44 45  59 00 85 0E 48 03 53 54  |1.i.>.DEY...H.ST|
00000670: 59 20 56 B0 53 43 48 20  3B 56 B0 53 43 48 55 42  |Y V.SCH ;V.SCHUB|
00000680: 20 42 45 49 4D 00 96 0E  52 03 3B 56 45 52 53 43  | BEIM...R.;VERSC|
00000690: 48 49 45 42 45 4E 00 9E  0E 5C 03 43 4C 43 00 A9  |HIEBEN...\.CLC..|
000006A0: 0E 66 03 4C 44 41 20 4C  31 00 B4 0E 70 03 53 54  |.f.LDA L1...p.ST|
000006B0: 41 20 4C 32 00 BF 0E 7A  03 4C 44 41 20 48 31 00  |A L2...z.LDA H1.|
000006C0: CA 0E 84 03 53 54 41 20  48 32 00 EE 0E 8E 03 53  |....STA H2.....S|
000006D0: 38 20 4C 44 59 20 56 B0  53 43 48 20 3B 56 45 52  |8 LDY V.SCH ;VER|
000006E0: 53 43 48 49 45 42 45 52  4F 55 54 49 4E 45 00 FC  |SCHIEBEROUTINE..|
000006F0: 0E 98 03 4C 44 41 28 4C  32 29 2C 59 00 09 0F A2  |...LDA(L2),Y....|
00000700: 03 4C 44 59 20 23 24 30  34 00 17 0F AC 03 53 54  |.LDY #$04.....ST|
00000710: 41 28 4C 32 29 2C 59 00  22 0F B6 03 49 4E 43 20  |A(L2),Y."...INC |
00000720: 4C 32 00 2D 0F C0 03 42  4E 45 20 53 38 00 38 0F  |L2.-...BNE S8.8.|
00000730: CA 03 4C 44 41 20 48 32  00 54 0F D4 03 43 4D 50  |..LDA H2.T...CMP|
00000740: 20 48 33 20 3B 53 43 48  91 20 41 4D 20 54 45 58  | H3 ;SCH. AM TEX|
00000750: 54 80 45 99 00 5F 0F DE  03 42 45 51 20 53 39 00  |T.E.._...BEQ S9.|
00000760: 6A 0F E8 03 49 4E 43 20  48 32 00 75 0F F2 03 42  |j...INC H2.u...B|
00000770: 4E 45 20 53 38 00 80 0F  FC 03 53 39 20 53 45 43  |NE S8.....S9 SEC|
00000780: 00 88 0F 06 04 54 59 41  00 96 0F 10 04 53 42 43  |.....TYA.....SBC|
00000790: 20 56 B0 53 43 48 00 B6  0F 1A 04 41 44 43 20 4C  | V.SCH.....ADC L|
000007A0: 33 20 20 20 20 3B 5A 45  49 47 45 52 20 41 55 46  |3    ;ZEIGER AUF|
000007B0: 20 54 45 58 54 AB 00 D5  0F 24 04 42 43 53 20 B2  | TEXT....$.BCS .|
000007C0: 20 AA 20 32 20 3B 80 45  20 44 45 4B 8F 45 4E 54  | . 2 ;.E DEK.ENT|
000007D0: 49 45 52 45 4E 00 E0 0F  2E 04 44 45 43 20 48 33  |IEREN.....DEC H3|
000007E0: 00 E8 0F 38 04 43 4C 43  00 F3 0F 42 04 53 54 41  |...8.CLC...B.STA|
000007F0: 20 4C 33 00 FB 0F 4C 04  3B AC AC 00 03 10 56 04  | L3...L.;.....V.|
00000800: 3B AC AC 00 1B 10 60 04  3B 5A 45 49 C3 4E 55 4D  |;.....`.;ZEI.NUM|
00000810: 4D 45 52 4E 41 55 53 47  41 42 45 00 28 10 6A 04  |MERNAUSGABE.(.j.|
00000820: 4C 44 41 20 23 24 32 30  00 36 10 74 04 4A 53 52  |LDA #$20.6.t.JSR|
00000830: 20 42 53 4F 55 54 00 43  10 7E 04 4C 44 59 20 23  | BSOUT.C.~.LDY #|
00000840: 24 30 32 00 58 10 88 04  4C 44 41 20 28 4C 31 29  |$02.X...LDA (L1)|
00000850: 2C 59 20 3B 4C 4F 57 AB  00 60 10 92 04 54 41 58  |,Y ;LOW..`...TAX|
00000860: 00 68 10 9C 04 49 4E 59  00 8A 10 A6 04 4C 44 41  |.h...INY.....LDA|
00000870: 20 28 4C 31 29 2C 59 20  3B 26 48 49 AB 42 59 54  | (L1),Y ;&HI.BYT|
00000880: 45 20 44 45 52 20 5A 2E  4E 2E 00 AA 10 B0 04 4A  |E DER Z.N......J|
00000890: 53 52 20 4E 55 4D 4F 55  54 20 3B 49 4E 20 41 AD  |SR NUMOUT ;IN A.|
000008A0: 58 20 41 55 53 47 45 42  45 4E 00 C3 10 BA 04 4C  |X AUSGEBEN.....L|
000008B0: 44 41 20 24 44 33 20 3B  43 55 52 53 B0 53 50 41  |DA $D3 ;CURS.SPA|
000008C0: 4C 54 45 00 E6 10 C4 04  43 4D 50 20 23 24 32 31  |LTE.....CMP #$21|
000008D0: 20 3B 43 52 53 52 20 5A  55 20 57 45 49 54 20 52  | ;CRSR ZU WEIT R|
000008E0: 45 43 48 54 53 99 00 EE  10 CE 04 43 4C 43 00 FC  |ECHTS......CLC..|
000008F0: 10 D8 04 42 4D 49 20 B2  20 AA 20 35 00 19 11 E2  |...BMI . . 5....|
00000900: 04 4C 44 41 20 23 24 30  44 20 3B 49 4E 20 44 49  |.LDA #$0D ;IN DI|
00000910: 45 53 45 4D 20 46 41 4C  4C 00 33 11 EC 04 4A 53  |ESEM FALL.3...JS|
00000920: 52 20 42 53 4F 55 54 20  3B 43 41 52 52 49 41 47  |R BSOUT ;CARRIAG|
00000930: 45 20 8E 00 40 11 F6 04  4A 53 52 20 42 49 4E 44  |E ..@...JSR BIND|
00000940: 00 5D 11 00 05 43 4C 56  20 3B 28 52 55 45 43 4B  |.]...CLV ;(RUECK|
00000950: 53 50 8A 47 20 53 49 43  48 45 52 4E 29 00 69 11  |SP.G SICHERN).i.|
00000960: 0A 05 42 56 43 20 52 45  54 00 8E 11 14 05 53 43  |..BVC RET.....SC|
00000970: 48 4C 55 53 53 20 3B 56  4F 52 42 45 52 45 49 54  |HLUSS ;VORBEREIT|
00000980: 55 4E 47 20 44 45 53 20  42 41 53 49 43 2D 00 9A  |UNG DES BASIC-..|
00000990: 11 1E 05 4C 44 41 20 23  24 32 00 B7 11 28 05 41  |...LDA #$2...(.A|
000009A0: 44 43 20 4C 31 20 20 20  3B 45 52 48 4F 45 48 55  |DC L1   ;ERHOEHU|
000009B0: 4E 47 20 55 4D 20 32 00  DB 11 32 05 42 43 43 20  |NG UM 2...2.BCC |
000009C0: B2 20 AA 32 20 3B 5A 45  49 47 54 20 44 41 4E 4E  |. .2 ;ZEIGT DANN|
000009D0: 20 41 55 46 20 42 45 47  49 4E 4E 00 FA 11 3C 05  | AUF BEGINN...<.|
000009E0: 49 4E 43 20 48 31 20 20  20 3B 44 45 52 20 56 41  |INC H1   ;DER VA|
000009F0: 52 49 41 42 C3 20 45 54  43 2E 00 02 12 46 05 43  |RIAB. ETC....F.C|
00000A00: 4C 43 00 26 12 50 05 53  54 41 20 56 41 52 41 4E  |LC.&.P.STA VARAN|
00000A10: 46 20 3B 4B B0 52 45 4B  54 55 52 20 44 45 52 20  |F ;K.REKTUR DER |
00000A20: 5A 45 49 47 45 52 00 36  12 5A 05 53 54 41 20 46  |ZEIGER.6.Z.STA F|
00000A30: 45 4C 44 41 4E 46 00 44  12 64 05 53 54 41 20 46  |ELDANF.D.d.STA F|
00000A40: 45 4C 44 80 00 4F 12 6E  05 4C 44 41 20 48 32 00  |ELD..O.n.LDA H2.|
00000A50: 60 12 78 05 53 54 41 20  56 41 52 41 4E 46 AA 31  |`.x.STA VARANF.1|
00000A60: 00 72 12 82 05 53 54 41  20 46 45 4C 44 41 4E 46  |.r...STA FELDANF|
00000A70: AA 31 00 82 12 8C 05 53  54 41 20 46 45 4C 44 80  |.1.....STA FELD.|
00000A80: AA 31 00 8E 12 96 05 4C  44 59 20 23 24 30 00 B4  |.1.....LDY #$0..|
00000A90: 12 A0 05 54 30 20 4C 44  41 20 4D 45 4D 2C 59 20  |...T0 LDA MEM,Y |
00000AA0: 3B 55 52 53 50 52 2E 57  45 52 54 45 20 5A 55 52  |;URSPR.WERTE ZUR|
00000AB0: 55 45 43 4B 00 D2 12 AA  05 53 54 41 20 4C 31 2C  |UECK.....STA L1,|
00000AC0: 59 20 20 20 20 3B 49 4E  20 5A 45 52 4F AB 50 41  |Y    ;IN ZERO.PA|
00000AD0: 47 45 00 DA 12 B4 05 49  4E 59 00 E6 12 BE 05 43  |GE.....INY.....C|
00000AE0: 50 59 20 23 20 37 00 F1  12 C8 05 42 4E 45 20 54  |PY # 7.....BNE T|
00000AF0: 30 00 F9 12 D2 05 43 4C  43 00 0B 13 DC 05 3B 42  |0.....CLC.....;B|
00000B00: 41 43 4B 20 A4 20 42 41  53 49 43 00 13 13 E6 05  |ACK . BASIC.....|
00000B10: 52 54 53 00 1B 13 F0 05  2E 45 4E 00 00 00        |RTS......EN...  |

.......OS......BA$C200.+...BIND    .DE$A
533.@.(.NUMOUT  .DE$BDCD.U.2.BSOUT   .DE
$E10C.J.<.TEXTANF .DE$002B..F.VARANF  .
DE$002D...P.FELDANF .DE$002F...Z.FELDEND
 .DE$0031...D.L1      .DE$0050.S.N.H1   
   .DE$0051...X.L2      .DE$0052.....H2 
     .DE$0053.....L3      .DE$0054.'...H
3      .DE$0055.<. .VORSCH  .DE$0056.Q..
.MEM     .DE$0334.^....LDY # 0.}...S0 LD
A L1,Y ;SPEICHERN DER...H.STA MEM,Y ;ZER
OPAGE.ZEIGER...R.INY.....CPY # 7.....BNE
 S0.C...CLC.....;AUSLOTEN DES BASICPROGR
AMM.ES.....JSR BIND.....LDY #0.....LDA T
EX.F, Y ;UEBERTRAGEN.A.".STA L1         
;DES BASICZEIGERS.^.,.INY            ;ZU
R .IEN.Z.6.LDA TEX.F, Y ;BENUTZUNG...@.S
TA H1...J.DEY...T.LDA(L1),Y ;ZEIGT AUF D
EN.C.^.;1.LINKPO.ER,LOWBYTE.V.H.STA L3 ;
MERKEN...R.INY...|.LDA(L1),Y ;1.LP,HIBYT
E.....STA H3 ;MERKEN.2...S1 LDA(L3),Y ;Z
EIGT AUF NAECHSTEN.K...;LINKPO.ER(HI.BYT
E!).P...;IST DIESES NULL, SO IST TEXTEN.
.....;DE A.EICH. NACHGEWIESEN.....BEQ S6
 ;DANN WEITER...B.PHA.C.L.DEY       ;ZEI
GER...V.LDA (L3),Y;AUF NEUE L.P......STA
 L3    ;.ADRESSE.....INY.....PLA       ;
AKTUALISIEREN.(...STA H3.?...BNE S1    ;
V. V.NE.G...;...O...;...J.&.;PRUEFEN DER
 EINZELNEN.Y.0.;BASICZEIC...:.S6 LDY #$0
1...D.LDA(L1),Y   ;IST .ZTE ZEILE.B.N.BE
Q SCHLUSS ;FERTIG....X.LDY # $04 ;BYTE D
IREKT NACH...B.LDA(L1),Y ;ZEICNUMMER...L
.BEQ K.REKTUR...V.;(FALLS .ULL).,...LDY 
#$01.K...LDA(L1),Y ;ZEIGER ANH. DES.E...
PHA       ;LINKPO.ERS.....DEY       ;AUF
 NAECHSTE.....LDA(L1),Y ;ZEILE RICHTEN..
...STA L1.....PLA...F.STA H1.G.P.BNE S6.
O.Z.;...W...;.......K.REKTUR INY.....TES
T: INY.....LDA(L1),Y.'...CMP #":" ;TEST 
AUF DOPPELPUNKT./...CLC.=. .BEQ TEST:.U.
*.CMP # $0 ;NUR ":"...A.4.BNE ..1.I.>.DE
Y...H.STY V.SCH ;V.SCHUB BEIM...R.;VERSC
HIEBEN...\.CLC...F.LDA L1...P.STA L2...Z
.LDA H1.J...STA H2.....S8 LDY V.SCH ;VER
SCHIEBEROUTINE.....LDA(L2),Y.....LDY #$0
4.....STA(L2),Y."...INC L2.-...BNE S8.8.
J.LDA H2.T.T.CMP H3 ;SCH. AM TEXT.E.._..
.BEQ S9.J...INC H2.U...BNE S8.....S9 SEC
.....TYA.....SBC V.SCH.....ADC L3    ;ZE
IGER AUF TEXT..U.$.BCS . . 2 ;.E DEK.ENT
IEREN.....DEC H3...8.CLC...B.STA L3...L.
;.....V.;.....`.;ZEICNUMMERNAUSGABE.(.J.
LDA #$20.6.T.JSR BSOUT.C.~.LDY #$02.X...
LDA (L1),Y ;LOW..`...TAX.H...INY.....LDA
 (L1),Y ;&HI.BYTE DER Z.N......JSR NUMOU
T ;IN A.X AUSGEBEN.C...LDA $D3 ;CURS.SPA
LTE...D.CMP #$21 ;CRSR ZU WEIT RECHTS...
.N.CLC...X.BMI . . 5.....LDA #$0D ;IN DI
ESEM FALL.3...JSR BSOUT ;CARRIAGE ..@...
JSR BIND.]...CLV ;(RUECKSP.G SICHERN).I.
..BVC RET.....SCHLUSS ;VORBEREITUNG DES 
BASIC-.....LDA #$2...(.ADC L1   ;ERHOEHU
NG UM 2...2.BCC . .2 ;ZEIGT DANN AUF BEG
INN...<.INC H1   ;DER VARIABC ETC....F.C
LC.&.P.STA VARANF ;K.REKTUR DER ZEIGER.6
.Z.STA FELDANF.D.D.STA FELD..O.N.LDA H2.
`.X.STA VARANF.1.R...STA FELDANF.1.....S
TA FELD..1.....LDY #$0... .T0 LDA MEM,Y 
;URSPR.WERTE ZURUECK.R...STA L1,Y    ;IN
 ZERO.PAGE.Z...INY.....CPY # 7...H.BNE T
0...R.CLC.....;BACK . BASIC.....RTS.....
.EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL