MINIB 30/3

FILE INFORMATION

FILENAME(S): MINIB 30/3

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 20:09:35

APPEARS ON: 1 disk(s)

FILE HASH

f041efbefd7122fb7b55330c619ac17e9827590bd995b7af96099eba7cc5d11f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DISK 73 SIDE A	MINIB 30/3	PRG	Curtcool, Klaus & Jan	9	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0D 08 64 00 9E 39  AC 34 30 39 36 00 1B 08  |....d..9.4096...|
00000010: 6E 00 2E 4F 50 54 20 4E  2C 4F 4F 00 28 08 78 00  |n..OPT N,OO.(.x.|
00000020: AC B2 20 32 30 30 30 30  00 30 08 82 00 53 45 49  |.. 20000.0...SEI|
00000030: 00 40 08 8C 00 4C 44 41  20 23 B3 53 54 41 52 54  |.@...LDA #.START|
00000040: 00 4E 08 96 00 53 54 41  20 24 30 33 31 34 00 5E  |.N...STA $0314.^|
00000050: 08 A0 00 4C 44 41 20 23  B1 53 54 41 52 54 00 6C  |...LDA #.START.l|
00000060: 08 AA 00 53 54 41 20 24  30 33 31 35 00 83 08 B4  |...STA $0315....|
00000070: 00 4C 44 41 20 23 31 34  39 3A 4A 53 52 20 24 46  |.LDA #149:JSR $F|
00000080: 46 44 32 00 98 08 BE 00  4C 44 41 20 23 37 3A 53  |FD2.....LDA #7:S|
00000090: 54 41 20 24 44 30 32 32  00 AD 08 C8 00 4C 44 41  |TA $D022.....LDA|
000000A0: 20 23 39 3A 53 54 41 20  24 44 30 32 33 00 C2 08  | #9:STA $D023...|
000000B0: D2 00 4C 44 41 20 23 30  3A 53 54 41 20 24 44 30  |..LDA #0:STA $D0|
000000C0: 32 31 00 D0 08 DC 00 53  54 41 20 24 44 30 32 30  |21.....STA $D020|
000000D0: 00 E3 08 E6 00 4C 44 41  20 23 30 3A 53 54 41 20  |.....LDA #0:STA |
000000E0: 24 46 42 00 F6 08 F0 00  4C 44 41 20 23 34 3A 53  |$FB.....LDA #4:S|
000000F0: 54 41 20 24 46 43 00 01  09 FA 00 4C 44 59 20 23  |TA $FC.....LDY #|
00000100: 30 00 0E 09 04 01 4A 53  52 20 46 4F 53 54 00 16  |0.....JSR FOST..|
00000110: 09 0E 01 43 4C 49 00 1E  09 18 01 52 54 53 00 24  |...CLI.....RTS.$|
00000120: 09 22 01 3B 00 2A 09 2C  01 3B 00 30 09 36 01 3B  |.".;.*.,.;.0.6.;|
00000130: 00 36 09 40 01 3B 00 48  09 4A 01 53 54 41 52 54  |.6.@.;.H.J.START|
00000140: 20 4C 44 41 20 24 43 35  00 53 09 54 01 43 4D 50  | LDA $C5.S.T.CMP|
00000150: 20 23 34 00 5E 09 5E 01  42 45 51 20 4F 4B 00 6C  | #4.^.^.BEQ OK.l|
00000160: 09 68 01 4A 4D 50 20 24  45 41 33 31 00 82 09 72  |.h.JMP $EA31...r|
00000170: 01 4F 4B 20 4C 44 41 20  23 30 3A 53 54 41 20 24  |.OK LDA #0:STA $|
00000180: 46 42 00 90 09 7C 01 53  54 41 20 4C 49 4E 49 45  |FB...|.STA LINIE|
00000190: 00 A3 09 86 01 4C 44 41  20 23 34 3A 53 54 41 20  |.....LDA #4:STA |
000001A0: 24 46 43 00 AE 09 90 01  4C 44 59 20 23 30 00 BB  |$FC.....LDY #0..|
000001B0: 09 9A 01 4C 44 41 20 58  43 4F 4F 00 CB 09 A4 01  |...LDA XCOO.....|
000001C0: 53 54 41 20 28 24 46 44  29 2C 59 00 D8 09 AE 01  |STA ($FD),Y.....|
000001D0: 4A 53 52 20 41 44 46 44  00 E5 09 B8 01 4C 44 41  |JSR ADFD.....LDA|
000001E0: 20 59 43 4F 4F 00 F5 09  C2 01 53 54 41 20 28 24  | YCOO.....STA ($|
000001F0: 46 44 29 2C 59 00 02 0A  CC 01 4A 53 52 20 41 44  |FD),Y.....JSR AD|
00000200: 46 44 00 16 0A D6 01 47  45 4D 20 4C 44 41 20 28  |FD.....GEM LDA (|
00000210: 24 46 42 29 2C 59 00 26  0A E0 01 53 54 41 20 28  |$FB),Y.&...STA (|
00000220: 24 46 44 29 2C 59 00 3B  0A E1 01 43 50 59 20 23  |$FD),Y.;...CPY #|
00000230: 33 38 3A 42 4E 45 20 49  4B 4B 45 00 48 0A E2 01  |38:BNE IKKE.H...|
00000240: 4A 53 52 20 4F 56 45 52  00 55 0A EA 01 49 4B 4B  |JSR OVER.U...IKK|
00000250: 45 20 49 4E 59 00 62 0A  F4 01 43 50 59 20 58 43  |E INY.b...CPY XC|
00000260: 4F 4F 00 6E 0A FE 01 42  4E 45 20 47 45 4D 00 82  |OO.n...BNE GEM..|
00000270: 0A FF 01 43 50 59 20 23  33 38 3A 42 43 43 20 49  |...CPY #38:BCC I|
00000280: 4B 4F 00 98 0A 00 02 4C  44 41 20 47 45 4D 46 42  |KO.....LDA GEMFB|
00000290: 3A 53 54 41 20 24 46 42  00 AE 0A 01 02 4C 44 41  |:STA $FB.....LDA|
000002A0: 20 47 45 4D 46 43 3A 53  54 41 20 24 46 43 00 BF  | GEMFC:STA $FC..|
000002B0: 0A 08 02 49 4B 4F 20 44  45 43 20 59 43 4F 4F 00  |...IKO DEC YCOO.|
000002C0: CC 0A 12 02 42 45 51 20  80 47 45 4D 00 DD 0A 1C  |....BEQ .GEM....|
000002D0: 02 4A 53 52 20 41 44 58  43 4F 4F 46 42 00 EE 0A  |.JSR ADXCOOFB...|
000002E0: 26 02 4A 53 52 20 41 44  58 43 4F 4F 46 44 00 FC  |&.JSR ADXCOOFD..|
000002F0: 0A 30 02 49 4E 43 20 4C  49 4E 49 45 00 0A 0B 3A  |.0.INC LINIE...:|
00000300: 02 4C 44 41 20 4C 49 4E  49 45 00 16 0B 44 02 43  |.LDA LINIE...D.C|
00000310: 4D 50 20 23 32 32 00 22  0B 4E 02 42 4E 45 20 56  |MP #22.".N.BNE V|
00000320: 49 44 00 34 0B 58 02 4A  53 52 20 53 42 4E 59 4C  |ID.4.X.JSR SBNYL|
00000330: 49 4E 49 45 00 43 0B 62  02 56 49 44 20 4C 44 59  |INIE.C.b.VID LDY|
00000340: 20 23 30 00 4F 0B 6C 02  4A 4D 50 20 47 45 4D 00  | #0.O.l.JMP GEM.|
00000350: 60 0B 76 02 41 44 46 44  20 49 4E 43 20 24 46 44  |`.v.ADFD INC $FD|
00000360: 00 6E 0B 80 02 42 4E 45  20 43 4C 45 41 52 00 7A  |.n...BNE CLEAR.z|
00000370: 0B 8A 02 49 4E 43 20 24  46 45 00 88 0B 94 02 43  |...INC $FE.....C|
00000380: 4C 45 41 52 20 52 54 53  00 8E 0B 9E 02 3B 00 9F  |LEAR RTS.....;..|
00000390: 0B A8 02 41 44 58 43 4F  4F 46 42 20 43 4C 43 00  |...ADXCOOFB CLC.|
000003A0: AB 0B B2 02 4C 44 41 20  24 46 42 00 B7 0B BC 02  |....LDA $FB.....|
000003B0: 41 44 43 20 23 34 30 00  C3 0B C6 02 53 54 41 20  |ADC #40.....STA |
000003C0: 24 46 42 00 CF 0B D0 02  4C 44 41 20 24 46 43 00  |$FB.....LDA $FC.|
000003D0: DA 0B DA 02 41 44 43 20  23 30 00 E6 0B E4 02 53  |....ADC #0.....S|
000003E0: 54 41 20 24 46 43 00 EE  0B EE 02 52 54 53 00 F4  |TA $FC.....RTS..|
000003F0: 0B F8 02 3B 00 05 0C 02  03 41 44 58 43 4F 4F 46  |...;.....ADXCOOF|
00000400: 44 20 43 4C 43 00 11 0C  0C 03 4C 44 41 20 24 46  |D CLC.....LDA $F|
00000410: 44 00 1E 0C 16 03 41 44  43 20 58 43 4F 4F 00 2A  |D.....ADC XCOO.*|
00000420: 0C 20 03 53 54 41 20 24  46 44 00 36 0C 2A 03 4C  |. .STA $FD.6.*.L|
00000430: 44 41 20 24 46 45 00 41  0C 34 03 41 44 43 20 23  |DA $FE.A.4.ADC #|
00000440: 30 00 4D 0C 3E 03 53 54  41 20 24 46 45 00 55 0C  |0.M.>.STA $FE.U.|
00000450: 48 03 52 54 53 00 5B 0C  52 03 3B 00 6D 0C 5C 03  |H.RTS.[.R.;.m.\.|
00000460: 53 42 4E 59 4C 49 4E 49  45 20 53 45 43 00 79 0C  |SBNYLINIE SEC.y.|
00000470: 66 03 4C 44 41 20 24 46  42 00 86 0C 70 03 53 42  |f.LDA $FB...p.SB|
00000480: 43 20 23 24 36 46 00 92  0C 7A 03 53 54 41 20 24  |C #$6F...z.STA $|
00000490: 46 42 00 9E 0C 84 03 4C  44 41 20 24 46 43 00 A9  |FB.....LDA $FC..|
000004A0: 0C 8E 03 53 42 43 20 23  33 00 B5 0C 98 03 53 54  |...SBC #3.....ST|
000004B0: 41 20 24 46 43 00 BD 0C  A2 03 43 4C 43 00 C9 0C  |A $FC.....CLC...|
000004C0: AC 03 4C 44 41 20 24 46  42 00 D6 0C B6 03 41 44  |..LDA $FB.....AD|
000004D0: 43 20 58 43 4F 4F 00 E2  0C C0 03 53 54 41 20 24  |C XCOO.....STA $|
000004E0: 46 42 00 EE 0C CA 03 4C  44 41 20 24 46 43 00 F9  |FB.....LDA $FC..|
000004F0: 0C D4 03 41 44 43 20 23  30 00 05 0D DE 03 53 54  |...ADC #0.....ST|
00000500: 41 20 24 46 43 00 0D 0D  E8 03 52 54 53 00 13 0D  |A $FC.....RTS...|
00000510: F2 03 3B 00 23 0D FC 03  80 47 45 4D 20 4A 53 52  |..;.#....GEM JSR|
00000520: 20 55 44 00 31 0D 06 04  4A 4D 50 20 24 45 41 33  | UD.1...JMP $EA3|
00000530: 31 00 47 0D 10 04 55 44  20 4C 44 41 20 23 30 3A  |1.G...UD LDA #0:|
00000540: 53 54 41 20 24 46 42 00  55 0D 1A 04 4A 53 52 20  |STA $FB.U...JSR |
00000550: 24 45 35 34 34 00 6F 0D  24 04 4C 44 41 20 23 34  |$E544.o.$.LDA #4|
00000560: 3A 53 54 41 20 24 46 43  3A 4C 44 59 20 23 30 00  |:STA $FC:LDY #0.|
00000570: 8B 0D 2E 04 49 4E 43 20  4E 55 4D 4D 45 52 3A 4A  |....INC NUMMER:J|
00000580: 53 52 20 41 44 58 43 4F  4F 46 44 00 A1 0D 38 04  |SR ADXCOOFD...8.|
00000590: 4C 44 41 20 4E 55 4D 4D  45 52 3A 43 4D 50 20 23  |LDA NUMMER:CMP #|
000005A0: 31 00 AE 0D 42 04 42 4E  45 20 56 49 44 32 00 C7  |1...B.BNE VID2..|
000005B0: 0D 4C 04 4C 44 41 20 23  24 46 46 3A 53 54 41 20  |.L.LDA #$FF:STA |
000005C0: 28 24 46 44 29 2C 59 00  E2 0D 56 04 46 4F 53 54  |($FD),Y...V.FOST|
000005D0: 20 4C 44 41 20 23 30 3A  53 54 41 20 4E 55 4D 4D  | LDA #0:STA NUMM|
000005E0: 45 52 00 EE 0D 60 04 53  54 41 20 24 46 44 00 03  |ER...`.STA $FD..|
000005F0: 0E 6A 04 4C 44 41 20 23  24 38 30 3A 53 54 41 20  |.j.LDA #$80:STA |
00000600: 24 46 45 00 1D 0E 74 04  56 49 44 32 20 4C 44 59  |$FE...t.VID2 LDY|
00000610: 20 23 30 3A 53 54 59 20  4C 49 4E 49 45 00 33 0E  | #0:STY LINIE.3.|
00000620: 7E 04 4C 44 41 20 24 46  44 3A 53 54 41 20 47 45  |~.LDA $FD:STA GE|
00000630: 4D 46 44 00 49 0E 88 04  4C 44 41 20 24 46 45 3A  |MFD.I...LDA $FE:|
00000640: 53 54 41 20 47 45 4D 46  45 00 59 0E 92 04 4C 44  |STA GEMFE.Y...LD|
00000650: 41 20 28 24 46 44 29 2C  59 00 66 0E 9C 04 53 54  |A ($FD),Y.f...ST|
00000660: 41 20 58 43 4F 4F 00 73  0E A6 04 4A 53 52 20 41  |A XCOO.s...JSR A|
00000670: 44 46 44 00 83 0E B0 04  4C 44 41 20 28 24 46 44  |DFD.....LDA ($FD|
00000680: 29 2C 59 00 9A 0E BA 04  53 54 41 20 59 43 4F 4F  |),Y.....STA YCOO|
00000690: 3A 53 54 41 20 59 43 4F  4F 32 00 A7 0E C4 04 4A  |:STA YCOO2.....J|
000006A0: 53 52 20 41 44 46 44 00  BB 0E CE 04 55 44 4C 20  |SR ADFD.....UDL |
000006B0: 4C 44 41 20 28 24 46 44  29 2C 59 00 CB 0E D8 04  |LDA ($FD),Y.....|
000006C0: 53 54 41 20 28 24 46 42  29 2C 59 00 E1 0E D9 04  |STA ($FB),Y.....|
000006D0: 43 50 59 20 23 33 38 3A  42 4E 45 20 49 4B 4B 45  |CPY #38:BNE IKKE|
000006E0: 32 00 EE 0E DA 04 4A 53  52 20 4F 56 45 52 00 FC  |2.....JSR OVER..|
000006F0: 0E E2 04 49 4B 4B 45 32  20 49 4E 59 00 09 0F EC  |...IKKE2 INY....|
00000700: 04 43 50 59 20 58 43 4F  4F 00 15 0F F6 04 42 4E  |.CPY XCOO.....BN|
00000710: 45 20 55 44 4C 00 2A 0F  F7 04 43 50 59 20 23 33  |E UDL.*...CPY #3|
00000720: 38 3A 42 43 43 20 49 4B  4F 32 00 40 0F F8 04 4C  |8:BCC IKO2.@...L|
00000730: 44 41 20 47 45 4D 46 42  3A 53 54 41 20 24 46 42  |DA GEMFB:STA $FB|
00000740: 00 56 0F F9 04 4C 44 41  20 47 45 4D 46 43 3A 53  |.V...LDA GEMFC:S|
00000750: 54 41 20 24 46 43 00 69  0F 00 05 49 4B 4F 32 20  |TA $FC.i...IKO2 |
00000760: 44 45 43 20 59 43 4F 4F  32 00 75 0F 0A 05 42 45  |DEC YCOO2.u...BE|
00000770: 51 20 80 55 44 00 86 0F  14 05 4A 53 52 20 41 44  |Q .UD.....JSR AD|
00000780: 58 43 4F 4F 46 42 00 97  0F 1E 05 4A 53 52 20 41  |XCOOFB.....JSR A|
00000790: 44 58 43 4F 4F 46 44 00  A5 0F 28 05 49 4E 43 20  |DXCOOFD...(.INC |
000007A0: 4C 49 4E 49 45 00 B3 0F  32 05 4C 44 41 20 4C 49  |LINIE...2.LDA LI|
000007B0: 4E 49 45 00 BF 0F 3C 05  43 4D 50 20 23 32 32 00  |NIE...<.CMP #22.|
000007C0: CC 0F 46 05 42 4E 45 20  56 49 44 33 00 DE 0F 50  |..F.BNE VID3...P|
000007D0: 05 4A 53 52 20 53 42 4E  59 4C 49 4E 49 45 00 EE  |.JSR SBNYLINIE..|
000007E0: 0F 5A 05 56 49 44 33 20  4C 44 59 20 23 30 00 FA  |.Z.VID3 LDY #0..|
000007F0: 0F 64 05 4A 4D 50 20 55  44 4C 00 14 10 6E 05 80  |.d.JMP UDL...n..|
00000800: 55 44 20 4C 44 41 20 47  45 4D 46 44 3A 53 54 41  |UD LDA GEMFD:STA|
00000810: 20 24 46 44 00 2A 10 78  05 4C 44 41 20 47 45 4D  | $FD.*.x.LDA GEM|
00000820: 46 45 3A 53 54 41 20 24  46 45 00 32 10 82 05 52  |FE:STA $FE.2...R|
00000830: 54 53 00 38 10 8C 05 3B  00 53 10 96 05 4F 56 45  |TS.8...;.S...OVE|
00000840: 52 20 4C 44 41 20 24 46  42 3A 53 54 41 20 47 45  |R LDA $FB:STA GE|
00000850: 4D 46 42 00 69 10 A0 05  4C 44 41 20 24 46 43 3A  |MFB.i...LDA $FC:|
00000860: 53 54 41 20 47 45 4D 46  43 00 76 10 AA 05 4C 44  |STA GEMFC.v...LD|
00000870: 58 20 59 43 4F 4F 00 83  10 B4 05 47 41 4E 47 20  |X YCOO.....GANG |
00000880: 43 4C 43 00 8F 10 BE 05  4C 44 41 20 24 46 42 00  |CLC.....LDA $FB.|
00000890: 9B 10 C8 05 41 44 43 20  23 34 30 00 A7 10 D2 05  |....ADC #40.....|
000008A0: 53 54 41 20 24 46 42 00  B3 10 DC 05 4C 44 41 20  |STA $FB.....LDA |
000008B0: 24 46 43 00 BE 10 E6 05  41 44 43 20 23 30 00 CA  |$FC.....ADC #0..|
000008C0: 10 F0 05 53 54 41 20 24  46 43 00 D2 10 FA 05 44  |...STA $FC.....D|
000008D0: 45 58 00 DF 10 04 06 42  4E 45 20 47 41 4E 47 00  |EX.....BNE GANG.|
000008E0: E7 10 0E 06 43 4C 43 00  F3 10 18 06 4C 44 41 20  |....CLC.....LDA |
000008F0: 24 46 42 00 FE 10 22 06  41 44 43 20 23 32 00 0A  |$FB...".ADC #2..|
00000900: 11 2C 06 53 54 41 20 24  46 42 00 16 11 36 06 4C  |.,.STA $FB...6.L|
00000910: 44 41 20 24 46 43 00 21  11 40 06 41 44 43 20 23  |DA $FC.!.@.ADC #|
00000920: 30 00 2D 11 4A 06 53 54  41 20 24 46 43 00 35 11  |0.-.J.STA $FC.5.|
00000930: 54 06 52 54 53 00 3B 11  5E 06 3B 00 4D 11 68 06  |T.RTS.;.^.;.M.h.|
00000940: 4C 49 4E 49 45 20 2E 42  59 54 20 30 30 00 5F 11  |LINIE .BYT 00._.|
00000950: 72 06 59 43 4F 4F 32 20  2E 42 59 54 20 30 30 00  |r.YCOO2 .BYT 00.|
00000960: 71 11 7C 06 59 43 4F 4F  20 20 2E 42 59 54 20 30  |q.|.YCOO  .BYT 0|
00000970: 30 00 83 11 86 06 58 43  4F 4F 20 20 2E 42 59 54  |0.....XCOO  .BYT|
00000980: 20 30 30 00 95 11 90 06  47 45 4D 46 44 20 2E 42  | 00.....GEMFD .B|
00000990: 59 54 20 30 30 00 A7 11  9A 06 47 45 4D 46 45 20  |YT 00.....GEMFE |
000009A0: 2E 42 59 54 20 30 30 00  B9 11 9B 06 47 45 4D 46  |.BYT 00.....GEMF|
000009B0: 42 20 2E 42 59 54 20 30  30 00 CB 11 9C 06 47 45  |B .BYT 00.....GE|
000009C0: 4D 46 43 20 2E 42 59 54  20 30 30 00 DE 11 A4 06  |MFC .BYT 00.....|
000009D0: 4E 55 4D 4D 45 52 20 2E  42 59 54 20 30 30 00 00  |NUMMER .BYT 00..|
000009E0: 00 00                                             |..              |

....D..9.4096...N..OPT N,OO.(.X... 20000
.0...SEI.@...LDA #.START.N...STA $0314.^
. .LDA #.START.L...STA $0315.....LDA #14
9:JSR $FFD2.....LDA #7:STA $D022...H.LDA
 #9:STA $D023.B.R.LDA #0:STA $D021.P...S
TA $D020.....LDA #0:STA $FB.....LDA #4:S
TA $FC.....LDY #0.....JSR FOST.....CLI..
...RTS.$.".;.*.,.;.0.6.;.6.@.;.H.J.START
 LDA $C5.S.T.CMP #4.^.^.BEQ OK.L.H.JMP $
EA31...R.OK LDA #0:STA $FB...|.STA LINIE
.....LDA #4:STA $FC.....LDY #0.....LDA X
COO.K...STA ($FD),Y.X...JSR ADFD.....LDA
 YCOO...B.STA ($FD),Y...L.JSR ADFD...V.G
EM LDA ($FB),Y.&...STA ($FD),Y.;...CPY #
38:BNE IKKE.H...JSR OVER.U...IKKE INY.B.
..CPY XCOO.N...BNE GEM.....CPY #38:BCC I
KO.....LDA GEMFB:STA $FB.....LDA GEMFC:S
TA $FC.....IKO DEC YCOO.L...BEQ .GEM....
.JSR ADXCOOFB...&.JSR ADXCOOFD...0.INC L
INIE...:.LDA LINIE...D.CMP #22.".N.BNE V
ID.4.X.JSR SBNYLINIE.C.B.VID LDY #0.O.L.
JMP GEM.`.V.ADFD INC $FD.N...BNE CLEAR.Z
...INC $FE.....CLEAR RTS.....;.....ADXCO
OFB CLC.....LDA $FB.....ADC #40.C.F.STA 
$FB.O.P.LDA $FC.Z.Z.ADC #0.....STA $FC..
...RTS.....;.....ADXCOOFD CLC.....LDA $F
D.....ADC XCOO.*. .STA $FD.6.*.LDA $FE.A
.4.ADC #0.M.>.STA $FE.U.H.RTS.[.R.;.M.\.
SBNYLINIE SEC.Y.F.LDA $FB...P.SBC #$6F..
.Z.STA $FB.....LDA $FC.....SBC #3.....ST
A $FC.....CLC.I...LDA $FB.V...ADC XCOO..
...STA $FB...J.LDA $FC...T.ADC #0.....ST
A $FC.....RTS.....;.#....GEM JSR UD.1...
JMP $EA31.G...UD LDA #0:STA $FB.U...JSR 
$E544.O.$.LDA #4:STA $FC:LDY #0.....INC 
NUMMER:JSR ADXCOOFD...8.LDA NUMMER:CMP #
1...B.BNE VID2.G.L.LDA #$FF:STA ($FD),Y.
..V.FOST LDA #0:STA NUMMER...`.STA $FD..
.J.LDA #$80:STA $FE...T.VID2 LDY #0:STY 
LINIE.3.~.LDA $FD:STA GEMFD.I...LDA $FE:
STA GEMFE.Y...LDA ($FD),Y.F...STA XCOO.S
...JSR ADFD.....LDA ($FD),Y.....STA YCOO
:STA YCOO2...D.JSR ADFD...N.UDL LDA ($FD
),Y.K.X.STA ($FB),Y...Y.CPY #38:BNE IKKE
2...Z.JSR OVER.....IKKE2 INY.....CPY XCO
O.....BNE UDL.*...CPY #38:BCC IKO2.@...L
DA GEMFB:STA $FB.V...LDA GEMFC:STA $FC.I
...IKO2 DEC YCOO2.U...BEQ .UD.....JSR AD
XCOOFB.....JSR ADXCOOFD...(.INC LINIE...
2.LDA LINIE...<.CMP #22.L.F.BNE VID3...P
.JSR SBNYLINIE...Z.VID3 LDY #0...D.JMP U
DL...N..UD LDA GEMFD:STA $FD.*.X.LDA GEM
FE:STA $FE.2...RTS.8...;.S...OVER LDA $F
B:STA GEMFB.I. .LDA $FC:STA GEMFC.V...LD
X YCOO.....GANG CLC.....LDA $FB...H.ADC 
#40...R.STA $FB.....LDA $FC.....ADC #0.J
...STA $FC.R...DEX.....BNE GANG.....CLC.
....LDA $FB...".ADC #2...,.STA $FB...6.L
DA $FC.!.@.ADC #0.-.J.STA $FC.5.T.RTS.;.
^.;.M.H.LINIE .BYT 00._.R.YCOO2 .BYT 00.
Q.|.YCOO  .BYT 00.....XCOO  .BYT 00.....
GEMFD .BYT 00.....GEMFE .BYT 00.....GEMF
B .BYT 00.K...GEMFC .BYT 00.....NUMMER .
BYT 00....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL