00000000: 01 08 07 08 05 00 9C 00 3A 08 0A 00 97 35 33 32 |........:....532|
00000010: 38 30 2C 36 3A 97 35 33 32 38 31 2C 36 3A 86 54 |80,6:.53281,6:.T|
00000020: 42 24 28 31 35 30 29 3A 99 22 93 22 C7 28 31 34 |B$(150):.".".(14|
00000030: 29 3A 44 49 B2 38 3A 43 B2 31 00 77 08 14 00 9F |):DI.8:C.1.w....|
00000040: 38 2C 44 49 2C 38 2C 22 3A 20 20 20 44 49 52 45 |8,DI,8,": DIRE|
00000050: 43 54 4F 52 59 20 20 20 22 3A 9F 31 35 2C 44 49 |CTORY ":.15,DI|
00000060: 2C 31 35 3A 84 31 35 2C 45 4E 24 2C 45 44 24 2C |,15:.15,EN$,ED$,|
00000070: 45 54 24 2C 45 53 24 00 99 08 1E 00 84 38 2C 44 |ET$,ES$......8,D|
00000080: 4E 24 3A 8B 45 4E 24 B3 B1 22 30 30 22 A7 A0 38 |N$:.EN$.."00"..8|
00000090: 3A A0 31 35 3A 89 33 31 30 00 B1 08 28 00 84 38 |:.15:.310...(..8|
000000A0: 2C 54 42 24 28 43 29 3A 8B 53 54 B2 36 36 A7 37 |,TB$(C):.ST.66.7|
000000B0: 30 00 E9 08 32 00 8B C6 28 C8 28 54 42 24 28 43 |0...2...(.(TB$(C|
000000C0: 29 2C 31 29 29 B2 31 30 A7 54 42 24 28 43 29 B2 |),1)).10.TB$(C).|
000000D0: C9 28 54 42 24 28 43 29 2C C3 28 54 42 24 28 43 |.(TB$(C),.(TB$(C|
000000E0: 29 29 AB 31 29 3A 89 35 30 00 F7 08 3C 00 43 B2 |)).1):.50...<.C.|
000000F0: 43 AA 31 3A 89 34 30 00 30 09 46 00 A0 38 3A A0 |C.1:.40.0.F..8:.|
00000100: 31 35 3A 4D B2 43 AB 31 3A 54 42 24 28 43 29 B2 |15:M.C.1:TB$(C).|
00000110: 22 22 3A 4C 31 24 B2 22 12 22 3A 81 43 B2 31 A4 |"":L1$.".":.C.1.|
00000120: 34 30 3A 4C 31 24 B2 4C 31 24 AA 22 20 22 3A 82 |40:L1$.L1$." ":.|
00000130: 00 44 09 50 00 4C 31 24 B2 4C 31 24 AA 22 92 22 |.D.P.L1$.L1$."."|
00000140: 3A 41 B2 31 00 77 09 5A 00 97 35 33 32 38 31 2C |:A.1.w.Z..53281,|
00000150: 31 3A 99 22 93 1F 22 3B 3A 81 43 B2 31 A4 34 3A |1:."..";:.C.1.4:|
00000160: 99 4C 31 24 3B 3A 82 3A 81 43 B2 31 A4 32 3A 99 |.L1$;:.:.C.1.2:.|
00000170: 22 1F 22 4C 31 24 3B 00 83 09 5F 00 82 3A 99 22 |"."L1$;..._..:."|
00000180: 13 22 3B 00 C8 09 64 00 99 A6 38 29 22 12 1F 20 |.";...d...8)".. |
00000190: 20 C4 49 52 45 43 54 4F 52 59 20 C1 53 53 49 53 | .IRECTORY .SSIS|
000001A0: 54 41 4E 43 45 20 20 22 A6 31 30 29 22 20 20 20 |TANCE ".10)" |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 22 3B 00 08 0A 69 00 99 22 20 | ";...i.." |
000001D0: 20 20 20 20 20 20 20 20 20 20 22 A6 31 31 29 22 | ".11)"|
000001E0: 20 20 C2 59 20 D2 41 59 20 D2 4F 54 4F 4E 20 20 | .Y .AY .OTON |
000001F0: 20 20 20 20 20 20 22 A6 35 37 29 22 1C 22 44 4E | ".57)"."DN|
00000200: 24 A6 38 29 4C 31 24 3B 00 45 0A 78 00 81 43 B2 |$.8)L1$;.E.x..C.|
00000210: 41 A4 41 AA 31 34 3A 99 22 12 22 C9 28 22 20 20 |A.A.14:.".".(" |
00000220: 20 20 22 AA C4 28 43 29 2C 35 29 22 92 20 1F 22 | "..(C),5)". ."|
00000230: 54 42 24 28 43 29 A6 32 39 AB C3 28 54 42 24 28 |TB$(C).29..(TB$(|
00000240: 43 29 29 29 3B 00 5D 0A 82 00 99 22 1C 12 20 20 |C)));.]....".. |
00000250: 20 20 20 22 3B 3A 82 3A 99 4C 31 24 3B 00 81 0A | ";:.:.L1$;...|
00000260: 87 00 81 41 B2 31 A4 32 3A 99 22 1F 22 4C 31 24 |...A.1.2:."."L1$|
00000270: 3B 3A 82 3A 99 C8 28 4C 31 24 2C 34 30 29 22 91 |;:.:..(L1$,40)".|
00000280: 22 00 C0 0A 8C 00 99 A6 39 29 22 12 91 91 C6 31 |".......9)"....1|
00000290: 20 3D 20 43 4F 4E 54 49 4E 55 45 20 4C 49 53 54 | = CONTINUE LIST|
000002A0: 49 4E 47 22 A6 31 39 29 22 C6 33 20 3D 20 43 52 |ING".19)".3 = CR|
000002B0: 45 41 54 45 20 44 49 52 45 43 54 4F 52 59 22 3B |EATE DIRECTORY";|
000002C0: 00 FF 0A 96 00 99 A6 31 39 29 22 C6 35 20 3D 20 |.......19)".5 = |
000002D0: 45 58 49 54 20 50 52 4F 47 52 41 4D 1F 13 22 3A |EXIT PROGRAM..":|
000002E0: 97 32 30 32 33 2C 31 36 30 3A 97 35 36 32 39 35 |.2023,160:.56295|
000002F0: 2C 36 3A 97 31 39 38 2C 30 3A 42 24 B2 22 22 00 |,6:.198,0:B$."".|
00000300: 12 0B A0 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.....A$:.A$."".1|
00000310: 36 30 00 24 0B AA 00 8B C6 28 41 24 29 B2 31 33 |60.$.....(A$).13|
00000320: A7 32 36 30 00 41 0B B4 00 8B 41 24 B2 22 85 22 |.260.A....A$."."|
00000330: A7 32 34 30 3A 8F 22 20 46 31 20 2A 2A 2A 2A 2A |.240:." F1 *****|
00000340: 2A 00 5E 0B BE 00 8B 41 24 B2 22 86 22 A7 33 30 |*.^....A$.".".30|
00000350: 30 3A 8F 22 20 46 33 20 2A 2A 2A 2A 2A 2A 00 8F |0:." F3 ******..|
00000360: 0B C8 00 8B 41 24 B2 22 87 22 A7 97 35 33 32 38 |....A$."."..5328|
00000370: 30 2C 33 3A 99 22 93 11 11 11 1F 52 55 4E 13 22 |0,3:.".....RUN."|
00000380: 3A 80 3A 8F 22 20 46 35 20 2A 2A 2A 2A 2A 2A 00 |:.:." F5 ******.|
00000390: BD 0B D2 00 8B C6 28 41 24 29 B2 32 30 A7 42 24 |......(A$).20.B$|
000003A0: B2 22 22 3A 99 22 13 11 11 11 11 1C 12 20 20 20 |."":."....... |
000003B0: 92 22 3A 42 24 B2 22 22 3A 89 31 36 30 00 DC 0B |.":B$."":.160...|
000003C0: DC 00 8B 41 24 B3 22 30 22 B0 41 24 B1 22 39 22 |...A$."0".A$."9"|
000003D0: B0 C3 28 42 24 29 B2 33 A7 31 36 30 00 FA 0B E6 |..(B$).3.160....|
000003E0: 00 42 24 B2 42 24 AA 41 24 3A 99 22 13 11 11 11 |.B$.B$.A$:."....|
000003F0: 11 1F 22 42 24 3A 89 31 36 30 00 0B 0C F0 00 8B |.."B$:.160......|
00000400: 43 B1 4D A7 41 B2 31 3A 89 39 30 00 17 0C FA 00 |C.M.A.1:.90.....|
00000410: 41 B2 43 3A 89 39 30 00 4B 0C 04 01 8B C5 28 42 |A.C:.90.K.....(B|
00000420: 24 29 B1 4D A7 99 22 13 11 11 11 11 1F 3F 3F 3F |$).M.."......???|
00000430: 22 3A 81 43 B2 31 A4 31 35 30 30 3A 82 3A 41 24 |":.C.1.1500:.:A$|
00000440: B2 C7 28 32 30 29 3A 89 32 31 30 00 8A 0C 0E 01 |..(20):.210.....|
00000450: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00000460: 31 34 3A 99 22 92 93 11 11 11 05 4C 4F 41 44 22 |14:."......LOAD"|
00000470: C7 28 33 34 29 54 42 24 28 C5 28 42 24 29 29 C7 |.(34)TB$(.(B$)).|
00000480: 28 33 34 29 22 2C 38 2C 31 22 00 B8 0C 18 01 8F |(34)",8,1"......|
00000490: 20 20 20 50 52 49 4E 54 52 49 47 48 54 24 28 53 | PRINTRIGHT$(S|
000004A0: 54 52 24 28 44 49 29 2C 4C 45 4E 28 53 54 52 24 |TR$(DI),LEN(STR$|
000004B0: 28 44 49 29 29 2D 31 29 00 EB 0C 22 01 99 22 13 |(DI))-1)..."..".|
000004C0: 22 3A 97 31 39 38 2C 34 3A 97 36 33 31 2C 31 33 |":.198,4:.631,13|
000004D0: 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C 32 31 |:.632,82:.633,21|
000004E0: 33 3A 97 36 33 34 2C 31 33 3A 80 00 FD 0C 2C 01 |3:.634,13:....,.|
000004F0: 99 22 13 11 11 11 11 1F 57 41 49 54 22 00 31 0D |."......WAIT".1.|
00000500: 36 01 9F 38 2C 44 49 2C 30 2C 22 24 30 22 3A 81 |6..8,DI,0,"$0":.|
00000510: 43 B2 31 A4 38 3A A1 23 38 2C 41 24 3A 82 3A 43 |C.1.8:.#8,A$:.:C|
00000520: B2 31 3A 44 4E 24 B2 22 22 3A 81 43 B2 31 A4 31 |.1:DN$."":.C.1.1|
00000530: 36 00 6B 0D 40 01 A1 23 38 2C 41 24 3A 44 4E 24 |6.k.@..#8,A$:DN$|
00000540: B2 44 4E 24 AA 41 24 3A 82 3A A1 23 38 2C 41 24 |.DN$.A$:.:.#8,A$|
00000550: 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA |:.#8,A$:DN$.DN$.|
00000560: 22 20 20 22 3A A1 23 38 2C 41 24 00 AA 0D 4A 01 |" ":.#8,A$...J.|
00000570: 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 2C 41 |DN$.DN$.A$:.#8,A|
00000580: 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 |$:DN$.DN$.A$:.#8|
00000590: 2C 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 |,A$:.#8,A$:DN$.D|
000005A0: 4E 24 AA 22 20 20 22 AA 41 24 00 CB 0D 54 01 A1 |N$." ".A$...T..|
000005B0: 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 |#8,A$:DN$.DN$.A$|
000005C0: 3A A1 23 38 2C 41 24 3A 43 B2 31 00 ED 0D 5E 01 |:.#8,A$:C.1...^.|
000005D0: 81 41 B2 31 A4 34 3A A1 23 38 2C 41 24 3A 82 3A |.A.1.4:.#8,A$:.:|
000005E0: 50 4E 24 B2 22 22 3A 54 59 24 B2 22 22 00 03 0E |PN$."":TY$.""...|
000005F0: 68 01 A1 23 38 2C 41 24 3A 8B 53 54 B3 B1 30 A7 |h..#8,A$:.ST..0.|
00000600: 34 35 30 00 12 0E 72 01 8B 41 24 B2 22 22 A7 34 |450...r..A$."".4|
00000610: 35 30 00 25 0E 7C 01 8B C6 28 41 24 29 B3 B1 33 |50.%.|...(A$)..3|
00000620: 34 A7 33 36 30 00 4B 0E 86 01 A1 23 38 2C 41 24 |4.360.K....#8,A$|
00000630: 3A 8B C6 28 41 24 29 B3 B1 33 34 A7 50 4E 24 B2 |:..(A$)..34.PN$.|
00000640: 50 4E 24 AA 41 24 3A 89 33 39 30 00 64 0E 90 01 |PN$.A$:.390.d...|
00000650: A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B2 33 32 |.#8,A$:..(A$).32|
00000660: A7 34 30 30 00 86 0E 9A 01 54 59 24 B2 54 59 24 |.400.....TY$.TY$|
00000670: AA 41 24 3A A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 |.A$:.#8,A$:.A$..|
00000680: 22 22 A7 34 31 30 00 9F 0E A4 01 8B C8 28 54 59 |"".410.......(TY|
00000690: 24 2C 33 29 B3 B1 22 50 52 47 22 A7 33 35 30 00 |$,3).."PRG".350.|
000006A0: B5 0E AE 01 8B C8 28 50 4E 24 2C 31 29 B2 22 20 |......(PN$,1)." |
000006B0: 22 A7 33 35 30 00 D4 0E B8 01 54 42 24 28 43 29 |".350.....TB$(C)|
000006C0: B2 50 4E 24 3A 43 B2 43 AA 31 3A 8B 53 54 B2 30 |.PN$:C.C.1:.ST.0|
000006D0: A7 33 35 30 00 FD 0E C2 01 A0 38 3A 9F 31 35 2C |.350......8:.15,|
000006E0: 44 49 2C 31 35 2C 22 53 3A 20 20 20 44 49 52 45 |DI,15,"S: DIRE|
000006F0: 43 54 4F 52 59 20 20 20 22 3A A0 31 35 00 3D 0F |CTORY ":.15.=.|
00000700: CC 01 5A 24 B2 22 DA DA DA DA DA DA DA DA DA DA |..Z$."..........|
00000710: DA DA DA DA DA DA 22 3A 9F 38 2C 44 49 2C 38 2C |......":.8,DI,8,|
00000720: 22 3A 20 20 20 44 49 52 45 43 54 4F 52 59 20 20 |": DIRECTORY |
00000730: 20 2C 53 2C 57 22 3A 98 38 2C 44 4E 24 00 68 0F | ,S,W":.8,DN$.h.|
00000740: D6 01 81 41 B2 31 A4 43 AB 31 3A 43 24 B2 5A 24 |...A.1.C.1:C$.Z$|
00000750: 3A 81 42 B2 31 A4 43 AB 31 3A 8B 43 24 B3 54 42 |:.B.1.C.1:.C$.TB|
00000760: 24 28 42 29 A7 34 39 30 00 7A 0F E0 01 43 24 B2 |$(B).490.z...C$.|
00000770: 54 42 24 28 42 29 3A 44 B2 42 00 9B 0F EA 01 82 |TB$(B):D.B......|
00000780: 3A 98 38 2C 43 24 3A 54 42 24 28 44 29 B2 5A 24 |:.8,C$:TB$(D).Z$|
00000790: 3A 82 3A A0 38 3A 9C 3A 89 31 30 00 00 00 |:.:.8:.:.10... |
........:....53280,6:.53281,6:.TB$(150):
."."G(14):DI.8:C.1.W....8,DI,8,": DIRE
CTORY ":.15,DI,15:.15,EN$,ED$,ET$,ES$.
.....8,DN$:.EN$.."00". 8: 15:.310...(..8
,TB$(C):.ST.66.70...2..F(H(TB$(C),1)).10
.TB$(C).I(TB$(C),C(TB$(C)).1):.50...<.C.
C.1:.40.0.F. 8: 15:M.C.1:TB$(C)."":L1$."
.":.C.1.40:L1$.L1$." ":..D.P.L1$.L1$."."
:A.1.W.Z..53281,1:."..";:.C.1.4:.L1$;:.:
.C.1.2:."."L1$;..._..:.".";.H.D...8)"..
DIRECTORY ASSISTANCE ".10)"
";...I.." ".11)"
BY RAY ROTON ".57)"."DN$.8)L1$;
.E.X..C.A.A.14:."."I(" ".D(C),5)". ."
TB$(C).29.C(TB$(C)));.]....".. ";:.:
.L1$;......A.1.2:."."L1$;:.:.H(L1$,40)".
".......9)"...F1 = CONTINUE LISTING".19)
"F3 = CREATE DIRECTORY";.......19)"F5 =
EXIT PROGRAM..":.2023,160:.56295,6:.198,
0:B$.""... ..A$:.A$."".160.$....F(A$).13
.260.A....A$.".".240:." F1 ******.^....A
$.".".300:." F3 ******...H..A$."."..5328
0,3:.".....RUN.":.:." F5 ******...R..F(A
$).20.B$."":."....... .":B$."":.160...
...A$."0".A$."9".C(B$).3.160.....B$.B$.A
$:."......"B$:.160......C.M.A.1:.90.....
A.C:.90.K....E(B$).M.."......???":.C.1.1
500:.:A$.G(20):.210......53281,6:.53280,
14:."......LOAD"G(34)TB$(E(B$))G(34)",8,
1"...... PRINTRIGHT$(STR$(DI),LEN(STR$
(DI))-1)..."..".":.198,4:.631,13:.632,82
:.633,213:.634,13:....,.."......WAIT".1.
6..8,DI,0,"$0":.C.1.8:.#8,A$:.:C.1:DN$."
":.C.1.16.K.@..#8,A$:DN$.DN$.A$:.:.#8,A$
:.#8,A$:DN$.DN$." ":.#8,A$...J.DN$.DN$.
A$:.#8,A$:DN$.DN$.A$:.#8,A$:.#8,A$:DN$.D
N$." ".A$.K.T..#8,A$:DN$.DN$.A$:.#8,A$:
C.1...^..A.1.4:.#8,A$:.:PN$."":TY$.""...
H..#8,A$:.ST..0.450...R..A$."".450.%.|..
F(A$)..34.360.K....#8,A$:.F(A$)..34.PN$.
PN$.A$:.390.D....#8,A$:.F(A$).32.400....
.TY$.TY$.A$:.#8,A$:.A$.."".410......H(TY
$,3).."PRG".350......H(PN$,1)." ".350.T.
..TB$(C).PN$:C.C.1:.ST.0.350...B. 8:.15,
DI,15,"S: DIRECTORY ": 15.=.L.Z$."ZZ
ZZZZZZZZZZZZZZ":.8,DI,8,": DIRECTORY
,S,W":.8,DN$.H.V..A.1.C.1:C$.Z$:.B.1.C.
1:.C$.TB$(B).490.Z...C$.TB$(B):D.B......
:.8,C$:TB$(D).Z$:.: 8:.:.10...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL