USING.SRC

FILE INFORMATION

FILENAME(S): USING.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 01:13:02

APPEARS ON: 2 disk(s)

FILE HASH

157209cf814f4864c3b1a9585a43cad8df65d647d46a7d2b2ae1fcc356be7901

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10108 SEITE A	USING.SRC	PRG	C64er	32	6	DOWNLOAD FILE
10108 SEITE A	USING.SRC	PRG	BrainSkull, Sammlung	32	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0C 08 0A 00 9E 33  36 38 36 34 00 18 08 14  |.......36864....|
00000010: 00 2E 4F 50 54 20 4F 4F  00 25 08 1E 00 AC B2 20  |..OPT OO.%..... |
00000020: 35 31 32 30 30 00 3A 08  23 00 3B 20 99 20 55 BF  |51200.:.#.; . U.|
00000030: 47 20 4B 91 56 45 52 54  45 52 00 5E 08 28 00 3B  |G K.VERTER.^.(.;|
00000040: 20 9E 20 35 31 32 30 30  2C 58 2C 4C 2C 56 5A 2C  | . 51200,X,L,VZ,|
00000050: 54 53 2C 4E 4B 2C 46 5A  2C 43 41 2C 58 24 00 7F  |TS,NK,FZ,CA,X$..|
00000060: 08 29 00 3B 20 58 20 5A  41 48 4C 20 20 58 24 20  |.).; X ZAHL  X$ |
00000070: 5A 49 45 4C 20 20 20 4C  20 4C 41 45 4E 47 45 00  |ZIEL   L LAENGE.|
00000080: A2 08 2A 00 3B 20 56 5A  20 56 B0 5A 45 49 43 48  |..*.; VZ V.ZEICH|
00000090: 45 4E 20 4B 45 49 4E 45  53 AD 56 B0 4E AD 48 B5  |EN KEINES.V.N.H.|
000000A0: 45 4E 00 BE 08 2B 00 3B  20 54 53 20 46 4C 41 47  |EN...+.; TS FLAG|
000000B0: 20 54 41 55 53 80 45 52  50 55 4E 4B 54 45 00 DA  | TAUS.ERPUNKTE..|
000000C0: 08 2C 00 3B 20 4E 4B 20  41 4E 5A 20 4E 41 43 48  |.,.; NK ANZ NACH|
000000D0: 4B 4F 4D 4D 41 53 54 45  4C C3 00 F0 08 2D 00 3B  |KOMMASTEL....-.;|
000000E0: 20 46 5A 20 46 55 45 4C  4C 5A 45 49 43 48 45 4E  | FZ FUELLZEICHEN|
000000F0: 00 29 09 2E 00 3B 20 43  41 20 4E 41 43 48 4B 4F  |.)...; CA NACHKO|
00000100: 4D 4D 41 54 52 45 4E 4E  45 52 20 50 55 4E 4B 54  |MMATRENNER PUNKT|
00000110: AD 4B 4F 4D 4D 41 AD 4C  45 45 52 AD 41 42 47 45  |.KOMMA.LEER.ABGE|
00000120: 53 43 48 4E 49 54 54 45  4E 00 3F 09 2F 00 3B 20  |SCHNITTEN.?./.; |
00000130: 28 43 29 20 4E 48 20 31  36 2E 30 34 2E 39 31 00  |(C) NH 16.04.91.|
00000140: 70 09 64 00 4A 53 52 20  24 41 45 46 44 3A 4A 53  |p.d.JSR $AEFD:JS|
00000150: 52 20 24 41 44 38 41 3A  4C 44 58 20 23 30 3A 42  |R $AD8A:LDX #0:B|
00000160: 49 54 20 24 36 36 3A 42  50 4C 20 B9 3A 44 45 58  |IT $66:BPL .:DEX|
00000170: 00 A1 09 66 00 B9 20 53  54 58 20 50 4D 3A 4C 53  |...f.. STX PM:LS|
00000180: 52 20 24 36 36 3A 4C 44  58 20 23 B3 50 4C 3A 4C  |R $66:LDX #.PL:L|
00000190: 44 59 20 23 B1 50 4C 3A  4A 53 52 20 24 42 42 44  |DY #.PL:JSR $BBD|
000001A0: 34 00 DE 09 6E 00 4A 53  52 20 24 42 37 46 31 3A  |4...n.JSR $B7F1:|
000001B0: 53 54 58 20 4D 41 58 C3  3A 4A 53 52 20 24 42 37  |STX MAX.:JSR $B7|
000001C0: 46 31 3A 53 54 58 20 53  49 47 4E 3A 4A 53 52 20  |F1:STX SIGN:JSR |
000001D0: 24 42 37 46 31 3A 53 54  58 20 54 41 55 53 00 12  |$B7F1:STX TAUS..|
000001E0: 0A 70 00 4A 53 52 20 24  41 45 46 44 3A 4A 53 52  |.p.JSR $AEFD:JSR|
000001F0: 20 24 41 44 38 41 3A 4C  44 58 20 23 B3 50 32 3A  | $AD8A:LDX #.P2:|
00000200: 4C 44 59 20 23 B1 50 32  3A 4A 53 52 20 24 42 42  |LDY #.P2:JSR $BB|
00000210: 44 34 00 2A 0A 72 00 4A  53 52 20 24 42 37 41 31  |D4.*.r.JSR $B7A1|
00000220: 3A 53 54 58 20 41 46 54  45 52 00 54 0A 74 00 4A  |:STX AFTER.T.t.J|
00000230: 53 52 20 24 42 37 46 31  3A 53 54 58 20 46 49 4C  |SR $B7F1:STX FIL|
00000240: 4C 3A 4A 53 52 20 24 42  37 46 31 3A 53 54 58 20  |L:JSR $B7F1:STX |
00000250: 46 49 53 48 00 90 0A 82  00 4C 44 41 20 23 24 46  |FISH.....LDA #$F|
00000260: 39 3A 4C 44 59 20 23 24  42 41 3A 4A 53 52 20 24  |9:LDY #$BA:JSR $|
00000270: 42 41 38 43 3A 4C 44 41  20 23 B3 50 32 3A 4C 44  |BA8C:LDA #.P2:LD|
00000280: 59 20 23 B1 50 32 3A 4A  53 52 20 24 42 46 37 38  |Y #.P2:JSR $BF78|
00000290: 00 D6 0A 84 00 4C 44 58  20 23 B3 50 32 3A 4C 44  |.....LDX #.P2:LD|
000002A0: 59 20 23 B1 50 32 3A 4A  53 52 20 24 42 42 44 34  |Y #.P2:JSR $BBD4|
000002B0: 3A 4C 44 41 20 23 B3 50  4C 3A 4C 44 59 20 23 B1  |:LDA #.PL:LDY #.|
000002C0: 50 4C 3A 4A 53 52 20 24  42 41 32 38 3A 4A 53 52  |PL:JSR $BA28:JSR|
000002D0: 20 24 42 38 34 39 00 14  0B 86 00 4A 53 52 20 24  | $B849.....JSR $|
000002E0: 42 43 43 43 3A 4A 53 52  20 24 42 43 30 43 3A 4C  |BCCC:JSR $BC0C:L|
000002F0: 44 41 20 23 B3 50 32 3A  4C 44 59 20 23 B1 50 32  |DA #.P2:LDY #.P2|
00000300: 3A 4A 53 52 20 24 42 42  41 32 3A 4A 53 52 20 24  |:JSR $BBA2:JSR $|
00000310: 42 42 31 32 00 29 0B 88  00 4C 44 59 20 23 30 3A  |BB12.)...LDY #0:|
00000320: 4A 53 52 20 24 42 44 45  43 00 35 0B 8C 00 4C 44  |JSR $BDEC.5...LD|
00000330: 58 20 23 AB 31 00 6D 0B  8E 00 50 4F 32 20 49 4E  |X #.1.m...PO2 IN|
00000340: 58 3A 4C 44 41 20 24 31  30 30 2C 58 3A 42 45 51  |X:LDA $100,X:BEQ|
00000350: 20 50 4F 31 3A 43 4D 50  20 23 22 2E 22 3A 42 4E  | PO1:CMP #".":BN|
00000360: 45 20 50 4F 32 3A 42 45  51 20 50 4F 33 00 87 0B  |E PO2:BEQ PO3...|
00000370: 90 00 50 4F 31 20 4C 44  41 20 23 30 3A 53 54 41  |..PO1 LDA #0:STA|
00000380: 20 24 31 30 31 2C 58 00  BF 0B 94 00 50 4F 33 20  | $101,X.....PO3 |
00000390: 53 54 58 20 50 32 3A 4C  44 59 20 46 49 53 48 3A  |STX P2:LDY FISH:|
000003A0: 4C 44 41 20 46 49 53 43  48 45 2C 59 3A 53 54 41  |LDA FISCHE,Y:STA|
000003B0: 20 24 31 30 30 2C 58 3A  4C 44 59 20 23 AB 31 00  | $100,X:LDY #.1.|
000003C0: E2 0B 96 00 50 4F 34 20  49 4E 58 3A 49 4E 59 3A  |....PO4 INX:INY:|
000003D0: 4C 44 41 20 24 31 30 30  2C 58 3A 42 4E 45 20 50  |LDA $100,X:BNE P|
000003E0: 4F 34 00 28 0C 98 00 50  4F 35 20 43 50 59 20 41  |O4.(...PO5 CPY A|
000003F0: 46 54 45 52 3A 42 45 51  20 50 4F 36 3A 42 43 53  |FTER:BEQ PO6:BCS|
00000400: 20 50 4F 37 3A 4C 44 41  20 23 22 30 22 3A 53 54  | PO7:LDA #"0":ST|
00000410: 41 20 24 31 30 30 2C 58  3A 49 4E 59 3A 49 4E 58  |A $100,X:INY:INX|
00000420: 3A 42 4E 45 20 50 4F 35  00 3A 0C 9A 00 50 4F 37  |:BNE PO5.:...PO7|
00000430: 20 4A 4D 50 20 24 42 34  44 30 00 5C 0C 9C 00 50  | JMP $B4D0.\...P|
00000440: 4F 36 20 4C 44 41 20 23  30 3A 53 54 41 20 24 31  |O6 LDA #0:STA $1|
00000450: 30 30 2C 58 3A 4C 44 58  20 23 AB 31 00 79 0C 9E  |00,X:LDX #.1.y..|
00000460: 00 53 55 20 49 4E 58 3A  4C 44 41 20 24 31 30 30  |.SU INX:LDA $100|
00000470: 2C 58 3A 42 4E 45 20 53  55 00 93 0C A0 00 4C 44  |,X:BNE SU.....LD|
00000480: 59 20 50 32 3A 53 54 58  20 50 4C 3A 42 4E 45 20  |Y P2:STX PL:BNE |
00000490: 4E 55 31 00 D6 0C A2 00  4E 55 39 20 4C 44 41 20  |NU1.....NU9 LDA |
000004A0: 24 31 30 30 2C 58 3A 53  54 41 20 24 31 30 31 2C  |$100,X:STA $101,|
000004B0: 58 3A 44 45 58 3A 42 50  4C 20 4E 55 39 3A 4C 44  |X:DEX:BPL NU9:LD|
000004C0: 41 20 23 22 30 22 3A 53  54 41 20 24 31 30 30 3A  |A #"0":STA $100:|
000004D0: 49 4E 43 20 50 4C 00 FF  0C A4 00 4E 55 31 20 4C  |INC PL.....NU1 L|
000004E0: 44 41 20 54 41 55 53 3A  42 45 51 20 4E 55 33 3A  |DA TAUS:BEQ NU3:|
000004F0: 4C 44 41 20 23 33 3A 53  54 41 20 50 4C AA 31 00  |LDA #3:STA PL.1.|
00000500: 48 0D A6 00 4E 55 32 20  44 45 59 3A 42 4D 49 20  |H...NU2 DEY:BMI |
00000510: 4E 55 33 3A 44 45 43 20  50 4C AA 31 3A 42 50 4C  |NU3:DEC PL.1:BPL|
00000520: 20 4E 55 32 3A 4C 44 41  20 23 33 3A 53 54 41 20  | NU2:LDA #3:STA |
00000530: 50 4C AA 31 3A 49 4E 59  3A 53 54 59 20 50 4C AA  |PL.1:INY:STY PL.|
00000540: 32 3A 4C 44 59 20 50 4C  00 82 0D A8 00 4E 55 34  |2:LDY PL.....NU4|
00000550: 20 4C 44 41 20 24 31 30  30 2C 59 3A 53 54 41 20  | LDA $100,Y:STA |
00000560: 24 31 30 31 2C 59 3A 44  45 59 3A 43 50 59 20 50  |$101,Y:DEY:CPY P|
00000570: 4C AA 32 3A 42 43 53 20  4E 55 34 3A 49 4E 43 20  |L.2:BCS NU4:INC |
00000580: 50 4C 00 A6 0D AA 00 49  4E 59 3A 4C 44 41 20 23  |PL.....INY:LDA #|
00000590: 22 2E 22 3A 53 54 41 20  24 31 30 30 2C 59 3A 42  |".":STA $100,Y:B|
000005A0: 4E 45 20 4E 55 32 00 B1  0D AC 00 4E 55 33 20 B2  |NE NU2.....NU3 .|
000005B0: AC 00 D4 0D B4 00 4C 44  41 20 23 33 32 3A 4C 44  |......LDA #32:LD|
000005C0: 58 20 50 4D 3A 42 50 4C  20 50 4C 31 3A 4C 44 41  |X PM:BPL PL1:LDA|
000005D0: 20 23 22 2D 00 F5 0D B6  00 50 4C 31 20 4C 44 58  | #"-.....PL1 LDX|
000005E0: 20 53 49 47 4E 3A 42 45  51 20 50 4C 32 3A 42 50  | SIGN:BEQ PL2:BP|
000005F0: 4C 20 50 4C 33 00 2C 0E  B8 00 4C 44 58 20 50 4C  |L PL3.,...LDX PL|
00000600: 3A 53 54 41 20 24 31 30  30 2C 58 3A 4C 44 41 20  |:STA $100,X:LDA |
00000610: 23 30 3A 53 54 41 20 24  31 30 31 2C 58 3A 49 4E  |#0:STA $101,X:IN|
00000620: 43 20 50 4C 3A 42 4E 45  20 50 4C 32 00 3F 0E BA  |C PL:BNE PL2.?..|
00000630: 00 50 4C 33 20 4C 44 58  20 50 4C 3A 54 41 59 00  |.PL3 LDX PL:TAY.|
00000640: 79 0E BC 00 50 4C 35 20  4C 44 41 20 24 31 30 30  |y...PL5 LDA $100|
00000650: 2C 58 3A 53 54 41 20 24  31 30 31 2C 58 3A 44 45  |,X:STA $101,X:DE|
00000660: 58 3A 42 50 4C 20 50 4C  35 3A 49 4E 43 20 50 4C  |X:BPL PL5:INC PL|
00000670: 3A 53 54 59 20 24 31 30  30 00 AB 0E BE 00 50 4C  |:STY $100.....PL|
00000680: 32 20 4C 44 58 20 50 4C  3A 43 50 58 20 4D 41 58  |2 LDX PL:CPX MAX|
00000690: C3 3A 42 45 51 20 4C 45  31 3A 42 43 43 20 4C 45  |.:BEQ LE1:BCC LE|
000006A0: 32 3A 4A 4D 50 20 34 32  33 35 33 00 BC 0E C0 00  |2:JMP 42353.....|
000006B0: 4C 45 32 20 4C 44 59 20  4D 41 58 C3 00 F3 0E C2  |LE2 LDY MAX.....|
000006C0: 00 4C 45 33 20 4C 44 41  20 24 31 30 30 2C 58 3A  |.LE3 LDA $100,X:|
000006D0: 53 54 41 20 24 31 30 30  2C 59 3A 44 45 59 3A 44  |STA $100,Y:DEY:D|
000006E0: 45 58 3A 42 50 4C 20 4C  45 33 3A 4C 44 41 20 46  |EX:BPL LE3:LDA F|
000006F0: 49 4C 4C 00 12 0F C4 00  4C 45 34 20 53 54 41 20  |ILL.....LE4 STA |
00000700: 24 31 30 30 2C 59 3A 44  45 59 3A 42 50 4C 20 4C  |$100,Y:DEY:BPL L|
00000710: 45 34 00 22 0F C6 00 4C  45 31 20 4C 44 58 20 23  |E4."...LE1 LDX #|
00000720: AB 31 00 48 0F C7 00 43  4F 32 20 49 4E 58 3A 4C  |.1.H...CO2 INX:L|
00000730: 44 41 20 24 31 30 30 2C  58 3A 42 4E 45 20 43 4F  |DA $100,X:BNE CO|
00000740: 32 3A 53 54 58 20 50 4C  00 7A 0F C8 00 4A 53 52  |2:STX PL.z...JSR|
00000750: 20 24 41 45 46 44 3A 4A  53 52 20 24 42 30 38 42  | $AEFD:JSR $B08B|
00000760: 3A 53 54 41 20 24 34 39  3A 53 54 59 20 24 34 41  |:STA $49:STY $4A|
00000770: 3A 4A 53 52 20 24 42 36  41 33 00 96 0F CA 00 4C  |:JSR $B6A3.....L|
00000780: 44 41 20 50 4C 3A 4A 53  52 20 24 42 34 37 35 3A  |DA PL:JSR $B475:|
00000790: 4C 44 59 20 23 32 00 C2  0F CC 00 53 50 20 4C 44  |LDY #2.....SP LD|
000007A0: 41 20 24 36 31 2C 59 3A  53 54 41 20 28 24 34 39  |A $61,Y:STA ($49|
000007B0: 29 2C 59 3A 44 45 59 3A  42 50 4C 20 53 50 3A 49  |),Y:DEY:BPL SP:I|
000007C0: 4E 59 00 F9 0F CE 00 53  54 20 43 50 59 20 50 4C  |NY.....ST CPY PL|
000007D0: 3A 42 45 51 20 43 41 3A  4C 44 41 20 24 31 30 30  |:BEQ CA:LDA $100|
000007E0: 2C 59 3A 53 54 41 20 28  24 36 32 29 2C 59 3A 49  |,Y:STA ($62),Y:I|
000007F0: 4E 59 3A 42 4E 45 20 53  54 00 04 10 D0 00 43 41  |NY:BNE ST.....CA|
00000800: 20 52 54 53 00 11 10 84  03 4D 41 58 C3 20 42 52  | RTS.....MAX. BR|
00000810: 4B 00 1E 10 86 03 53 49  47 4E 20 42 52 4B 00 29  |K.....SIGN BRK.)|
00000820: 10 88 03 50 4D 20 42 52  4B 00 36 10 8A 03 54 41  |...PM BRK.6...TA|
00000830: 55 53 20 42 52 4B 00 43  10 8E 03 46 49 4C 4C 20  |US BRK.C...FILL |
00000840: 42 52 4B 00 51 10 90 03  41 46 54 45 52 20 42 52  |BRK.Q...AFTER BR|
00000850: 4B 00 5E 10 92 03 46 49  53 48 20 42 52 4B 00 6F  |K.^...FISH BRK.o|
00000860: 10 94 03 50 4C 20 2E C6  20 22 2E 2E 2E 2E 2E 00  |...PL .. "......|
00000870: 80 10 96 03 50 32 20 2E  C6 20 22 2E 2E 2E 2E 2E  |....P2 .. ".....|
00000880: 00 98 10 98 03 46 49 53  43 48 45 20 42 52 4B 3A  |.....FISCHE BRK:|
00000890: 2E C6 20 22 2E 2C 20 22  00 00 00                 |.. "., "...     |

.......36864......OPT OO.%..... 51200.:.
#.; . U.G K.VERTER.^.(.; . 51200,X,L,VZ,
TS,NK,FZ,CA,X$..).; X ZAHL  X$ ZIEL   L
 LAENGE...*.; VZ V.ZEICHEN KEINES.V.N.H.
EN...+.; TS FLAG TAUS.ERPUNKTE.Z.,.; NK 
ANZ NACHKOMMASTELC...-.; FZ FUELLZEICHEN
.)...; CA NACHKOMMATRENNER PUNKT.KOMMA.L
EER.ABGESCHNITTEN.?./.; (C) NH 16.04.91.
P.D.JSR $AEFD:JSR $AD8A:LDX #0:BIT $66:B
PL .:DEX...F.. STX PM:LSR $66:LDX #.PL:L
DY #.PL:JSR $BBD4...N.JSR $B7F1:STX MAXC
:JSR $B7F1:STX SIGN:JSR $B7F1:STX TAUS..
.P.JSR $AEFD:JSR $AD8A:LDX #.P2:LDY #.P2
:JSR $BBD4.*.R.JSR $B7A1:STX AFTER.T.T.J
SR $B7F1:STX FILL:JSR $B7F1:STX FISH....
.LDA #$F9:LDY #$BA:JSR $BA8C:LDA #.P2:LD
Y #.P2:JSR $BF78.V...LDX #.P2:LDY #.P2:J
SR $BBD4:LDA #.PL:LDY #.PL:JSR $BA28:JSR
 $B849.....JSR $BCCC:JSR $BC0C:LDA #.P2:
LDY #.P2:JSR $BBA2:JSR $BB12.)...LDY #0:
JSR $BDEC.5...LDX #.1.M...PO2 INX:LDA $1
00,X:BEQ PO1:CMP #".":BNE PO2:BEQ PO3...
..PO1 LDA #0:STA $101,X.....PO3 STX P2:L
DY FISH:LDA FISCHE,Y:STA $100,X:LDY #.1.
....PO4 INX:INY:LDA $100,X:BNE PO4.(...P
O5 CPY AFTER:BEQ PO6:BCS PO7:LDA #"0":ST
A $100,X:INY:INX:BNE PO5.:...PO7 JMP $B4
D0.\...PO6 LDA #0:STA $100,X:LDX #.1.Y..
.SU INX:LDA $100,X:BNE SU... .LDY P2:STX
 PL:BNE NU1.V...NU9 LDA $100,X:STA $101,
X:DEX:BPL NU9:LDA #"0":STA $100:INC PL..
...NU1 LDA TAUS:BEQ NU3:LDA #3:STA PL.1.
H...NU2 DEY:BMI NU3:DEC PL.1:BPL NU2:LDA
 #3:STA PL.1:INY:STY PL.2:LDY PL.....NU4
 LDA $100,Y:STA $101,Y:DEY:CPY PL.2:BCS 
NU4:INC PL.....INY:LDA #".":STA $100,Y:B
NE NU2.....NU3 ...T...LDA #32:LDX PM:BPL
 PL1:LDA #"-.....PL1 LDX SIGN:BEQ PL2:BP
L PL3.,...LDX PL:STA $100,X:LDA #0:STA $
101,X:INC PL:BNE PL2.?...PL3 LDX PL:TAY.
Y...PL5 LDA $100,X:STA $101,X:DEX:BPL PL
5:INC PL:STY $100.....PL2 LDX PL:CPX MAX
C:BEQ LE1:BCC LE2:JMP 42353.....LE2 LDY 
MAXC...B.LE3 LDA $100,X:STA $100,Y:DEY:D
EX:BPL LE3:LDA FILL...D.LE4 STA $100,Y:D
EY:BPL LE4.".F.LE1 LDX #.1.H.G.CO2 INX:L
DA $100,X:BNE CO2:STX PL.Z.H.JSR $AEFD:J
SR $B08B:STA $49:STY $4A:JSR $B6A3...J.L
DA PL:JSR $B475:LDY #2.B.L.SP LDA $61,Y:
STA ($49),Y:DEY:BPL SP:INY...N.ST CPY PL
:BEQ CA:LDA $100,Y:STA ($62),Y:INY:BNE S
T...P.CA RTS.....MAXC BRK.....SIGN BRK.)
...PM BRK.6...TAUS BRK.C...FILL BRK.Q...
AFTER BRK.^...FISH BRK.O...PL .F "......
....P2 .F "..........FISCHE BRK:.F "., "
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL