> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 0A 00 8F 20 42 41 53 49 43 20 58 52 |....... BASIC XR|
00000010: 45 46 20 50 52 4F 47 52 41 4D 00 34 08 14 00 8F |EF PROGRAM.4....|
00000020: 20 20 42 59 20 52 4F 42 45 52 54 20 57 2E 20 42 | BY ROBERT W. B|
00000030: 41 4B 45 52 00 52 08 E6 00 99 22 93 22 3A 99 3A |AKER.R....".":.:|
00000040: 99 3A 99 A6 31 34 29 22 47 4F 54 4F 20 58 52 45 |.:..14)"GOTO XRE|
00000050: 46 22 00 6B 08 F0 00 99 3A 99 3A 85 22 46 49 4C |F".k....:.:."FIL|
00000060: 45 20 4E 41 4D 45 22 3B 46 4C 24 00 86 08 04 01 |E NAME";FL$.....|
00000070: 86 47 54 28 37 30 30 29 2C 4C 4C 24 28 37 30 30 |.GT(700),LL$(700|
00000080: 29 3A 47 4E B2 30 00 A7 08 0E 01 99 22 93 22 3A |):GN.0......".":|
00000090: 99 3A 99 3A 99 22 53 43 41 4E 4E 49 4E 47 20 46 |.:.:."SCANNING F|
000000A0: 49 4C 45 2E 2E 2E 22 00 B9 08 18 01 9F 31 35 2C |ILE..."......15,|
000000B0: 38 2C 31 35 3A 8D 38 30 30 00 D4 08 22 01 9F 35 |8,15:.800..."..5|
000000C0: 2C 38 2C 35 2C 22 30 3A 22 AA 46 4C 24 AA 22 2C |,8,5,"0:".FL$.",|
000000D0: 50 2C 52 22 00 E2 08 2C 01 8D 38 30 30 3A 8D 37 |P,R"...,..800:.7|
000000E0: 36 30 00 F7 08 36 01 8D 37 36 30 3A 8B 56 AA 56 |60...6..760:.V.V|
000000F0: 31 B2 30 A7 35 37 30 00 21 09 40 01 8D 37 36 30 |1.0.570.!.@..760|
00000100: 3A 4C 4E B2 56 31 AA 28 32 35 36 AC 56 29 3A 4C |:LN.V1.(256.V):L|
00000110: 4E 24 B2 22 20 22 AA CA 28 C4 28 4C 4E 29 2C 32 |N$." "..(.(LN),2|
00000120: 29 00 2A 09 4A 01 8D 37 37 30 00 37 09 54 01 8B |).*.J..770.7.T..|
00000130: 56 B2 30 A7 33 31 30 00 52 09 5E 01 8B 56 B2 31 |V.0.310.R.^..V.1|
00000140: 33 37 B0 56 B2 31 34 31 B0 56 B2 31 36 37 A7 33 |37.V.141.V.167.3|
00000150: 39 30 00 62 09 68 01 8B 56 B3 B1 32 30 33 A7 33 |90.b.h..V..203.3|
00000160: 33 30 00 76 09 72 01 8D 37 37 30 3A 8B 56 B3 B1 |30.v.r..770:.V..|
00000170: 33 32 A7 33 34 30 00 8B 09 7C 01 8D 37 37 30 3A |32.340...|..770:|
00000180: 8B 56 B3 B1 31 36 34 A7 33 34 30 00 95 09 86 01 |.V..164.340.....|
00000190: 4C 54 B2 AB 31 00 A8 09 90 01 8D 37 37 30 3A 8B |LT..1......770:.|
000001A0: 56 B2 33 32 A7 34 30 30 00 BB 09 9A 01 8B 56 B3 |V.32.400......V.|
000001B0: 34 38 B0 56 B1 35 37 A7 34 34 30 00 CA 09 A4 01 |48.V.57.440.....|
000001C0: 8B 4C 54 B3 30 A7 4C 54 B2 30 00 E9 09 AE 01 4C |.LT.0.LT.0.....L|
000001D0: 54 B2 28 31 30 AC 4C 54 29 AA C5 28 43 24 29 3A |T.(10.LT)..(C$):|
000001E0: 8D 37 37 30 3A 89 34 31 30 00 F7 09 B8 01 8B 4C |.770:.410......L|
000001F0: 54 B3 30 A7 33 34 30 00 0A 0A C2 01 5A B2 47 4E |T.0.340.....Z.GN|
00000200: 3A 8B 47 4E B2 30 A7 35 34 30 00 2A 0A CC 01 81 |:.GN.0.540.*....|
00000210: 58 B2 30 A4 47 4E AB 31 3A 8B B5 28 4C 54 29 B3 |X.0.GN.1:..(LT).|
00000220: B1 47 54 28 58 29 A7 35 31 30 00 48 0A D6 01 8B |.GT(X).510.H....|
00000230: C9 28 4C 4C 24 28 58 29 2C C3 28 4C 4E 24 29 29 |.(LL$(X),.(LN$))|
00000240: B2 4C 4E 24 A7 35 30 30 00 6A 0A E0 01 8B C3 28 |.LN$.500.j.....(|
00000250: 4C 4C 24 28 58 29 29 B1 32 34 36 A7 4C 54 B2 4C |LL$(X)).246.LT.L|
00000260: 54 AA 30 2E 31 3A 89 35 31 30 00 80 0A EA 01 4C |T.0.1:.510.....L|
00000270: 4C 24 28 58 29 B2 4C 4C 24 28 58 29 AA 4C 4E 24 |L$(X).LL$(X).LN$|
00000280: 00 90 0A F4 01 58 B2 47 4E 3A 82 3A 89 33 34 30 |.....X.GN:.:.340|
00000290: 00 A5 0A FE 01 8B 4C 54 B1 47 54 28 58 29 A7 82 |......LT.GT(X)..|
000002A0: 3A 89 35 34 30 00 B8 0A 08 02 5A B2 58 3A 81 59 |:.540.....Z.X:.Y|
000002B0: B2 47 4E A4 5A A9 AB 31 00 E6 0A 12 02 47 54 28 |.GN.Z..1.....GT(|
000002C0: 59 AA 31 29 B2 47 54 28 59 29 3A 4C 4C 24 28 59 |Y.1).GT(Y):LL$(Y|
000002D0: AA 31 29 B2 4C 4C 24 28 59 29 3A 4C 4C 24 28 59 |.1).LL$(Y):LL$(Y|
000002E0: 29 B2 22 22 3A 82 00 08 0B 1C 02 47 54 28 5A 29 |)."":......GT(Z)|
000002F0: B2 B5 28 4C 54 29 3A 4C 4C 24 28 5A 29 B2 4C 4C |..(LT):LL$(Z).LL|
00000300: 24 28 5A 29 AA 4C 4E 24 00 1B 0B 26 02 8B 4C 54 |$(Z).LN$...&..LT|
00000310: B2 B5 28 4C 54 29 A7 99 4C 54 2C 00 2C 0B 30 02 |..(LT)..LT,.,.0.|
00000320: 47 4E B2 47 4E AA 31 3A 89 33 34 30 00 4B 0B 3A |GN.GN.1:.340.K.:|
00000330: 02 A0 35 3A A0 31 35 3A 8F 20 4F 50 45 4E 34 2C |..5:.15:. OPEN4,|
00000340: 34 20 28 50 52 49 4E 54 45 52 29 00 5E 0B 44 02 |4 (PRINTER).^.D.|
00000350: 8D 38 33 30 3A 8B 47 4E B2 30 A7 37 34 30 00 6C |.830:.GN.0.740.l|
00000360: 0B 4E 02 81 58 B2 30 A4 47 4E AB 31 00 9E 0B 58 |.N..X.0.GN.1...X|
00000370: 02 8B 50 47 B2 35 36 A7 81 59 B2 31 A4 31 30 3A |..PG.56..Y.1.10:|
00000380: 99 3A 82 3A 8D 38 33 30 3A 8F 20 50 52 49 4E 54 |.:.:.830:. PRINT|
00000390: 23 34 20 46 4F 52 20 50 52 49 4E 54 45 52 00 C0 |#4 FOR PRINTER..|
000003A0: 0B 62 02 53 24 B2 C9 28 22 20 20 20 20 20 22 AA |.b.S$..(" ".|
000003B0: C4 28 47 54 28 58 29 29 2C 35 29 AA 22 20 2D 22 |.(GT(X)),5)." -"|
000003C0: 00 D7 0B 6C 02 8B 53 24 B3 B1 4C 24 A7 4C 24 B2 |...l..S$..L$.L$.|
000003D0: 53 24 3A 89 36 34 30 00 E8 0B 76 02 53 24 B2 22 |S$:.640...v.S$."|
000003E0: 20 20 20 20 20 20 20 22 00 07 0C 80 02 99 53 24 | "......S$|
000003F0: 3B 3A 8F 20 50 52 49 4E 54 23 34 20 46 4F 52 20 |;:. PRINT#4 FOR |
00000400: 50 52 49 4E 54 45 52 00 24 0C 8A 02 42 B2 30 3A |PRINTER.$...B.0:|
00000410: 81 59 B2 30 A4 B5 28 C3 28 4C 4C 24 28 58 29 29 |.Y.0..(.(LL$(X))|
00000420: AD 36 35 29 00 40 0C 94 02 41 B2 42 AA 31 3A 42 |.65).@...A.B.1:B|
00000430: B2 41 AA 36 35 3A 8B 42 B1 32 35 35 A7 36 39 30 |.A.65:.B.255.690|
00000440: 00 60 0C 9E 02 43 24 B2 CA 28 4C 4C 24 28 58 29 |.`...C$..(LL$(X)|
00000450: 2C 42 2C 31 29 3A 8B 43 24 B2 22 22 A7 36 39 30 |,B,1):.C$."".690|
00000460: 00 82 0C A8 02 43 B2 C6 28 43 24 29 3A 8B 43 B1 |.....C..(C$):.C.|
00000470: 34 37 AF 43 B3 35 38 A7 42 B2 42 AA 31 3A 89 36 |47.C.58.B.B.1:.6|
00000480: 37 30 00 A6 0C B2 02 4C 4E 24 B2 CA 28 4C 4C 24 |70.....LN$..(LL$|
00000490: 28 58 29 2C 41 2C 42 AB 41 29 3A 8B 4C 4E 24 B2 |(X),A,B.A):.LN$.|
000004A0: 22 22 A7 37 32 30 00 D2 0C BC 02 8B 59 B1 30 A7 |"".720......Y.0.|
000004B0: 99 22 20 20 20 20 20 20 20 20 22 3B 3A 8F 20 50 |." ";:. P|
000004C0: 52 49 4E 54 23 34 20 46 4F 52 20 50 52 49 4E 54 |RINT#4 FOR PRINT|
000004D0: 45 52 00 F9 0C C6 02 99 4C 4E 24 3A 50 47 B2 50 |ER......LN$:PG.P|
000004E0: 47 AA 31 3A 8F 20 50 52 49 4E 54 23 34 20 46 4F |G.1:. PRINT#4 FO|
000004F0: 52 20 50 52 49 4E 54 45 52 00 00 0D D0 02 82 59 |R PRINTER......Y|
00000500: 00 1F 0D DA 02 82 58 3A 99 3A 8F 20 50 52 49 4E |......X:.:. PRIN|
00000510: 54 23 34 20 46 4F 52 20 50 52 49 4E 54 45 52 00 |T#4 FOR PRINTER.|
00000520: 64 0D E4 02 99 3A 99 3A 99 22 2A 2A 2A 2A 2A 2A |d....:.:."******|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 44 4F 4E 45 2A 2A 2A 2A |********DONE****|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 80 3A 8F |***********":.:.|
00000550: 20 43 4C 4F 53 45 20 34 20 46 4F 52 20 50 52 49 | CLOSE 4 FOR PRI|
00000560: 4E 54 45 52 00 76 0D EE 02 53 24 B2 53 24 AA 43 |NTER.v...S$.S$.C|
00000570: 24 3A 89 37 37 30 00 84 0D F8 02 8D 37 37 30 3A |$:.770......770:|
00000580: 56 31 B2 56 00 94 0D 02 03 A1 23 35 2C 43 24 3A |V1.V......#5,C$:|
00000590: 8D 38 30 30 00 A5 0D 0C 03 8B 43 24 B2 22 22 A7 |.800......C$."".|
000005A0: 56 B2 30 3A 8E 00 B3 0D 16 03 56 B2 C6 28 43 24 |V.0:......V..(C$|
000005B0: 29 3A 8E 00 D0 0D 20 03 84 31 35 2C 45 4E 2C 45 |):.... ..15,EN,E|
000005C0: 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E |M$,ET,ES:.EN.0..|
000005D0: 00 F4 0D 2A 03 99 3A 99 22 44 49 53 4B 20 45 52 |...*..:."DISK ER|
000005E0: 52 4F 52 21 21 22 3A 99 45 4E 2C 45 4D 24 2C 45 |ROR!!":.EN,EM$,E|
000005F0: 54 2C 45 53 00 01 0E 34 03 A0 35 3A A0 31 35 3A |T,ES...4..5:.15:|
00000600: 90 00 2C 0E 3E 03 99 3A 99 22 2A 2A 2A 2A 2A 2A |..,.>..:."******|
00000610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 56 0E 40 |***********".V.@|
00000630: 03 99 3A 99 22 4C 49 53 54 20 4F 46 20 47 4F 54 |..:."LIST OF GOT|
00000640: 4F 2F 47 4F 53 55 42 20 52 45 46 45 52 45 4E 43 |O/GOSUB REFERENC|
00000650: 45 53 20 49 4E 22 00 69 0E 43 03 99 C7 28 33 34 |ES IN".i.C...(34|
00000660: 29 46 4C 24 C7 28 33 34 29 00 94 0E 45 03 99 3A |)FL$.(34)...E..:|
00000670: 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."**************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000690: 2A 2A 2A 22 00 A1 0E 48 03 99 3A 50 47 B2 32 3A |***"...H..:PG.2:|
000006A0: 8E 00 BB 0E 52 03 8F 20 50 52 49 4E 54 23 34 20 |....R.. PRINT#4 |
000006B0: 46 4F 52 20 50 52 49 4E 54 45 52 00 00 00 |FOR PRINTER... |
....... BASIC XREF PROGRAM.4.... BY ROB
ERT W. BAKER.R....".":.:.:..14)"GOTO XRE
F".K....:.:."FILE NAME";FL$......GT(700)
,LL$(700):GN.0......".":.:.:."SCANNING F
ILE..."......15,8,15:.800.T."..5,8,5,"0:
".FL$.",P,R"...,..800:.760...6..760:.V.V
1.0.570.!.@..760:LN.V1.(256.V):LN$." ".J
(D(LN),2).*.J..770.7.T..V.0.310.R.^..V.1
37.V.141.V.167.390.B.H..V..203.330.V.R..
770:.V..32.340...|..770:.V..164.340.....
LT..1......770:.V.32.400......V.48.V.57.
440.J....LT.0.LT.0.....LT.(10.LT).E(C$):
.770:.410......LT.0.340...B.Z.GN:.GN.0.5
40.*.L..X.0.GN.1:..(LT)..GT(X).510.H.V..
I(LL$(X),C(LN$)).LN$.500.J....C(LL$(X)).
246.LT.LT.0.1:.510.....LL$(X).LL$(X).LN$
.....X.GN:.:.340......LT.GT(X)..:.540...
..Z.X:.Y.GN.Z..1.....GT(Y.1).GT(Y):LL$(Y
.1).LL$(Y):LL$(Y)."":......GT(Z)..(LT):L
L$(Z).LL$(Z).LN$...&..LT..(LT)..LT,.,.0.
GN.GN.1:.340.K.:. 5: 15:. OPEN4,4 (PRINT
ER).^.D..830:.GN.0.740.L.N..X.0.GN.1...X
..PG.56..Y.1.10:.:.:.830:. PRINT#4 FOR P
RINTER...B.S$.I(" ".D(GT(X)),5)." -"
.W.L..S$..L$.L$.S$:.640...V.S$." "
......S$;:. PRINT#4 FOR PRINTER.$...B.0:
.Y.0..(C(LL$(X)).65).@...A.B.1:B.A.65:.B
.255.690.`...C$.J(LL$(X),B,1):.C$."".690
.....C.F(C$):.C.47.C.58.B.B.1:.670.....L
N$.J(LL$(X),A,B.A):.LN$."".720.R....Y.0.
." ";:. PRINT#4 FOR PRINTER...F..
LN$:PG.PG.1:. PRINT#4 FOR PRINTER...P..Y
...Z..X:.:. PRINT#4 FOR PRINTER.D....:.:
."**************DONE***************":.:.
CLOSE 4 FOR PRINTER.V...S$.S$.C$:.770..
....770:V1.V......#5,C$:.800......C$."".
V.0:......V.F(C$):..P. ..15,EN,EM$,ET,ES
:.EN.0.....*..:."DISK ERROR!!":.EN,EM$,E
T,ES...4. 5: 15:..,.>..:."**************
*******************".V.@..:."LIST OF GOT
O/GOSUB REFERENCES IN".I.C..G(34)FL$G(34
)...E..:."******************************
***"...H..:PG.2:....R.. PRINT#4 FOR PRIN
TER...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL