> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 9F 31 35 2C 38 2C 31 35 3A A0 |..%....15,8,15:.|
00000010: 31 35 3A 97 35 33 32 38 30 2C 31 35 3A 97 35 33 |15:.53280,15:.53|
00000020: 32 38 31 2C 31 00 44 08 05 00 86 4C 24 28 32 35 |281,1.D....L$(25|
00000030: 35 29 2C 4D 46 24 28 32 35 35 29 2C 46 54 24 28 |5),MF$(255),FT$(|
00000040: 32 35 35 29 00 79 08 0A 00 99 22 93 08 0E 1F 12 |255).y....".....|
00000050: 20 20 20 C1 D2 C2 20 C2 C2 D3 20 D2 C5 C1 C4 20 | ... ... .... |
00000060: C1 CC CC 20 D3 C5 D1 D5 C5 CE D4 C9 C1 CC 20 C6 |... .......... .|
00000070: C9 CC C5 D3 20 20 20 20 22 00 A8 08 0B 00 99 22 |.... "......"|
00000080: 11 D5 53 45 20 54 48 49 53 20 50 52 4F 47 52 41 |..SE THIS PROGRA|
00000090: 4D 20 54 4F 20 52 45 41 44 20 41 4C 4C 20 53 45 |M TO READ ALL SE|
000000A0: 51 55 45 4E 54 49 41 4C 00 C4 08 0C 00 99 22 46 |QUENTIAL......"F|
000000B0: 49 4C 45 53 20 4F 4E 20 41 20 C2 C2 D3 20 44 49 |ILES ON A ... DI|
000000C0: 53 4B 2E 22 00 EE 08 0F 00 99 22 11 C9 46 20 50 |SK."......"..F P|
000000D0: 52 4F 47 52 41 4D 20 46 52 45 45 5A 45 53 20 59 |ROGRAM FREEZES Y|
000000E0: 4F 55 20 48 41 56 45 20 46 4F 55 4E 44 22 00 00 |OU HAVE FOUND"..|
000000F0: 09 10 00 99 22 41 20 42 41 44 20 46 49 4C 45 2E |...."A BAD FILE.|
00000100: 00 14 09 11 00 99 22 11 C9 4E 53 45 52 54 20 C4 |......"..NSERT .|
00000110: 49 53 4B 22 00 2A 09 12 00 99 22 11 12 D0 D2 C5 |ISK".*....".....|
00000120: D3 D3 20 D2 C5 D4 D5 D2 CE 22 00 3C 09 14 00 A1 |.. ......".<....|
00000130: 41 24 3A 8B 41 24 B2 22 22 A7 32 30 00 56 09 19 |A$:.A$."".20.V..|
00000140: 00 85 22 11 D0 52 49 4E 54 45 52 20 20 4E 9D 9D |.."..RINTER N..|
00000150: 9D 22 3B 50 52 24 00 67 09 1E 00 A0 31 35 3A 9F |.";PR$.g....15:.|
00000160: 31 35 2C 38 2C 31 35 00 8B 09 64 00 4D 24 B2 22 |15,8,15...d.M$."|
00000170: 22 3A 4A 39 B2 30 3A A0 33 3A 9F 33 2C 38 2C 30 |":J9.0:.3:.3,8,0|
00000180: 2C 22 24 30 22 3A 59 31 B2 AB 31 00 BA 09 65 00 |,"$0":Y1..1...e.|
00000190: 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A 8B 41 B3 |.15,A,B$,C,D:.A.|
000001A0: B1 30 A7 A0 33 3A A0 31 35 3A 99 22 11 12 C5 D2 |.0..3:.15:."....|
000001B0: D2 CF D2 21 22 3A 89 33 39 30 00 C8 09 6E 00 A1 |...!":.390...n..|
000001C0: 23 33 2C 41 24 2C 41 24 00 E1 09 78 00 A1 23 33 |#3,A$,A$...x..#3|
000001D0: 2C 41 24 2C 41 24 3A 8B 41 24 B2 22 22 A7 32 30 |,A$,A$:.A$."".20|
000001E0: 30 00 0C 0A 82 00 A1 23 33 2C 41 24 2C 42 24 3A |0......#3,A$,B$:|
000001F0: 43 35 B2 C6 28 41 24 AA C7 28 2E 29 29 AA C6 28 |C5..(A$..(.))..(|
00000200: 42 24 AA C7 28 2E 29 29 AC 32 35 36 00 2C 0A 8C |B$..(.)).256.,..|
00000210: 00 A1 23 33 2C 41 24 3A 4D 24 B2 4D 24 AA 41 24 |..#3,A$:M$.M$.A$|
00000220: 3A 8B 41 24 B3 B1 22 22 A7 31 34 30 00 47 0A 96 |:.A$.."".140.G..|
00000230: 00 4D 46 24 B2 C4 28 43 35 29 AA 22 20 22 AA 4D |.MF$..(C5)." ".M|
00000240: 24 3A 4D 24 B2 22 22 00 58 0A 97 00 8B 4A 39 B2 |$:M$."".X....J9.|
00000250: 30 A7 4A 39 B2 31 3A 99 00 67 0A A0 00 46 24 B2 |0.J9.1:..g...F$.|
00000260: C8 28 4D 24 2C 39 29 00 70 0A BE 00 89 32 35 30 |.(M$,9).p....250|
00000270: 00 7C 0A C8 00 A0 33 3A 89 32 37 30 00 AE 0A FA |.|....3:.270....|
00000280: 00 59 31 B2 59 31 AA 31 3A 4C 24 28 59 31 29 B2 |.Y1.Y1.1:L$(Y1).|
00000290: 4D 46 24 3A 99 22 CC 4F 41 44 49 4E 47 20 46 49 |MF$:.".OADING FI|
000002A0: 4C 45 20 4E 41 4D 45 3A 22 59 31 22 91 22 00 B7 |LE NAME:"Y1"."..|
000002B0: 0A 04 01 89 31 32 30 00 D8 0A 0E 01 99 3A 99 22 |....120......:."|
000002C0: 11 D3 4F 52 54 49 4E 47 2E 2E 2E 22 3A 81 58 B2 |..ORTING...":.X.|
000002D0: 31 A4 28 59 31 AB 31 29 00 0F 0B 36 01 46 54 24 |1.(Y1.1)...6.FT$|
000002E0: 28 58 29 B2 CA 28 4C 24 28 58 29 2C 32 36 2C 31 |(X)..(L$(X),26,1|
000002F0: 29 3A 5A 30 24 B2 CA 28 4C 24 28 58 29 2C 38 2C |):Z0$..(L$(X),8,|
00000300: 33 32 29 3A 5A 31 24 B2 22 22 3A 5A 5A B2 31 00 |32):Z1$."":ZZ.1.|
00000310: 30 0B 40 01 41 24 B2 CA 28 5A 30 24 2C 5A 5A 2C |0.@.A$..(Z0$,ZZ,|
00000320: 31 29 3A 8B 41 24 B2 C7 28 33 34 29 A7 33 34 30 |1):.A$..(34).340|
00000330: 00 4C 0B 4A 01 5A 31 24 B2 5A 31 24 AA 41 24 3A |.L.J.Z1$.Z1$.A$:|
00000340: 5A 5A B2 5A 5A AA 31 3A 89 33 32 30 00 5B 0B 54 |ZZ.ZZ.1:.320.[.T|
00000350: 01 4D 46 24 28 58 29 B2 5A 31 24 00 61 0B 59 01 |.MF$(X).Z1$.a.Y.|
00000360: 82 00 71 0B 68 01 81 58 B2 31 A4 28 59 31 AB 31 |..q.h..X.1.(Y1.1|
00000370: 29 00 86 0B 72 01 8B 46 54 24 28 58 29 B3 B1 22 |)...r..FT$(X).."|
00000380: 53 22 A7 33 39 30 00 AA 0B 74 01 A0 31 35 3A 9F |S".390...t..15:.|
00000390: 31 35 2C 38 2C 31 35 3A 8B 50 52 24 B2 22 59 22 |15,8,15:.PR$."Y"|
000003A0: A7 A0 31 3A 9F 31 2C 34 2C 37 00 CB 0B 75 01 A0 |..1:.1,4,7...u..|
000003B0: 32 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 4D 46 |2:.2,8,2,"0:".MF|
000003C0: 24 28 58 29 AA 22 2C 53 2C 52 22 00 DC 0B 77 01 |$(X).",S,R"...w.|
000003D0: 84 31 35 2C 41 3A 8B 41 A7 33 39 30 00 08 0C 78 |.15,A:.A.390...x|
000003E0: 01 99 22 11 11 12 22 4D 46 24 28 58 29 3A 99 3A |.."..."MF$(X):.:|
000003F0: 8B 50 52 24 B2 22 59 22 A7 98 31 3A 98 31 2C 4D |.PR$."Y"..1:.1,M|
00000400: 46 24 28 58 29 3A 98 31 00 2A 0C 7A 01 84 32 2C |F$(X):.1.*.z..2,|
00000410: 41 24 3A 53 B2 53 54 3A 99 41 24 3A 8B 50 52 24 |A$:S.ST:.A$:.PR$|
00000420: B2 22 59 22 A7 98 31 2C 41 24 00 35 0C 7B 01 8B |."Y"..1,A$.5.{..|
00000430: 53 A7 33 39 30 00 3E 0C 7C 01 89 33 37 38 00 54 |S.390.>.|..378.T|
00000440: 0C 86 01 A0 32 3A A0 31 35 3A 82 3A 99 22 11 12 |....2:.15:.:."..|
00000450: C5 CE C4 22 00 67 0C 8B 01 8B 50 52 24 B2 22 59 |...".g....PR$."Y|
00000460: 22 A7 98 31 3A A0 31 00 86 0C 90 01 99 22 11 31 |"..1:.1......".1|
00000470: 2E 20 D2 45 54 55 52 4E 20 54 4F 20 C2 4F 4F 54 |. .ETURN TO .OOT|
00000480: 20 CD 45 4E 55 22 00 98 0C 9B 01 99 22 32 2E 20 | .ENU"......"2. |
00000490: C4 4F 20 4F 56 45 52 22 00 B0 0C 9C 01 99 22 33 |.O OVER"......"3|
000004A0: 2E 20 C5 58 49 54 20 54 4F 20 42 41 53 49 43 22 |. .XIT TO BASIC"|
000004B0: 00 C3 0C 9F 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
000004C0: 34 31 35 00 D3 0C A0 01 8B 41 24 B2 22 31 22 A7 |415......A$."1".|
000004D0: 34 33 30 00 E1 0C A1 01 8B 41 24 B2 22 32 22 A7 |430......A$."2".|
000004E0: 8A 00 EF 0C A4 01 8B 41 24 B2 22 33 22 A7 80 00 |.......A$."3"...|
000004F0: F8 0C A9 01 89 34 31 35 00 22 0D AE 01 99 22 93 |.....415."....".|
00000500: 11 11 11 C9 CE D3 C5 D2 D4 20 D0 D2 CF C7 D2 C1 |......... ......|
00000510: CD 20 C4 C9 D3 CB 20 28 53 49 44 45 20 4F 4E 45 |. .... (SIDE ONE|
00000520: 29 2E 00 46 0D B0 01 99 22 11 D0 52 45 53 53 20 |)..F...."..RESS |
00000530: 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 |ANY KEY WHEN REA|
00000540: 44 59 2E 2E 2E 22 00 59 0D B3 01 A1 41 24 3A 8B |DY...".Y....A$:.|
00000550: 41 24 B2 22 22 A7 34 33 35 00 7F 0D F4 01 99 22 |A$."".435......"|
00000560: 93 11 11 11 11 11 11 4C 4F 41 44 22 C7 28 33 34 |.......LOAD".(34|
00000570: 29 22 42 4F 4F 54 22 C7 28 33 34 29 22 2C 38 00 |)"BOOT".(34)",8.|
00000580: B5 0D F6 01 99 22 13 11 11 11 22 3A 97 31 39 38 |....."....":.198|
00000590: 2C 34 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C |,4:.631,13:.632,|
000005A0: 38 32 3A 97 36 33 33 2C 32 31 33 3A 97 36 33 34 |82:.633,213:.634|
000005B0: 2C 31 33 3A A2 00 BB 0D F9 01 80 00 00 00 |,13:.......... |
..%....15,8,15: 15:.53280,15:.53281,1.D.
...L$(255),MF$(255),FT$(255).Y....".....
ARB BBS READ ALL SEQUENTIAL FILES
"......".USE THIS PROGRAM TO READ ALL SE
QUENTIAL.D...."FILES ON A BBS DISK."....
..".IF PROGRAM FREEZES YOU HAVE FOUND"..
...."A BAD FILE.......".INSERT DISK".*..
.."..PRESS RETURN".<....A$:.A$."".20.V..
..".PRINTER N...";PR$.G... 15:.15,8,15.
..D.M$."":J9.0: 3:.3,8,0,"$0":Y1..1...E.
.15,A,B$,C,D:.A..0. 3: 15:."..ERROR!":.3
90.H.N..#3,A$,A$...X..#3,A$,A$:.A$."".20
0......#3,A$,B$:C5.F(A$.G(.)).F(B$.G(.))
.256.,....#3,A$:M$.M$.A$:.A$.."".140.G..
.MF$.D(C5)." ".M$:M$."".X....J9.0.J9.1:.
.G. .F$.H(M$,9).P....250.|.H. 3:.270....
.Y1.Y1.1:L$(Y1).MF$:."LOADING FILE NAME:
"Y1"."......120.X....:.".SORTING...":.X.
1.(Y1.1)...6.FT$(X).J(L$(X),26,1):Z0$.J(
L$(X),8,32):Z1$."":ZZ.1.0.@.A$.J(Z0$,ZZ,
1):.A$.G(34).340.L.J.Z1$.Z1$.A$:ZZ.ZZ.1:
.320.[.T.MF$(X).Z1$.A.Y...Q.H..X.1.(Y1.1
)...R..FT$(X).."S".390...T. 15:.15,8,15:
.PR$."Y". 1:.1,4,7.K.U. 2:.2,8,2,"0:".MF
$(X).",S,R"...W..15,A:.A.390...X.."..."M
F$(X):.:.PR$."Y"..1:.1,MF$(X):.1.*.Z..2,
A$:S.ST:.A$:.PR$."Y"..1,A$.5.{..S.390.>.
|..378.T... 2: 15:.:."..END".G....PR$."Y
"..1: 1......".1. RETURN TO BOOT MENU"..
...."2. DO OVER"......"3. EXIT TO BASIC"
.C....A$:.A$."".415.S. ..A$."1".430.....
.A$."2"........A$."3"........415."....".
...INSERT PROGRAM DISK (SIDE ONE)..F....
".PRESS ANY KEY WHEN READY...".Y....A$:.
A$."".435.....".......LOAD"G(34)"BOOT"G
(34)",8......"....":.198,4:.631,13:.632,
82:.633,213:.634,13:..........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL