> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |..4....53280,0:.|
00000010: 35 33 32 38 31 2C 31 3A 86 54 42 24 28 31 35 30 |53281,1:.TB$(150|
00000020: 29 3A 99 22 93 22 C7 28 31 34 29 3A 44 49 B2 38 |):.".".(14):DI.8|
00000030: 3A 43 B2 31 00 71 08 14 00 9F 38 2C 44 49 2C 38 |:C.1.q....8,DI,8|
00000040: 2C 22 3A 20 20 20 44 49 52 45 43 54 4F 52 59 20 |,": DIRECTORY |
00000050: 20 20 22 3A 9F 31 35 2C 44 49 2C 31 35 3A 84 31 | ":.15,DI,15:.1|
00000060: 35 2C 45 4E 24 2C 45 44 24 2C 45 54 24 2C 45 53 |5,EN$,ED$,ET$,ES|
00000070: 24 00 93 08 1E 00 84 38 2C 44 4E 24 3A 8B 45 4E |$......8,DN$:.EN|
00000080: 24 B3 B1 22 30 30 22 A7 A0 38 3A A0 31 35 3A 89 |$.."00"..8:.15:.|
00000090: 33 31 30 00 AB 08 28 00 84 38 2C 54 42 24 28 43 |310...(..8,TB$(C|
000000A0: 29 3A 8B 53 54 B2 36 36 A7 37 30 00 E3 08 32 00 |):.ST.66.70...2.|
000000B0: 8B C6 28 C8 28 54 42 24 28 43 29 2C 31 29 29 B2 |..(.(TB$(C),1)).|
000000C0: 31 30 A7 54 42 24 28 43 29 B2 C9 28 54 42 24 28 |10.TB$(C)..(TB$(|
000000D0: 43 29 2C C3 28 54 42 24 28 43 29 29 AB 31 29 3A |C),.(TB$(C)).1):|
000000E0: 89 35 30 00 F1 08 3C 00 43 B2 43 AA 31 3A 89 34 |.50...<.C.C.1:.4|
000000F0: 30 00 2A 09 46 00 A0 38 3A A0 31 35 3A 4D B2 43 |0.*.F..8:.15:M.C|
00000100: AB 31 3A 54 42 24 28 43 29 B2 22 22 3A 4C 31 24 |.1:TB$(C)."":L1$|
00000110: B2 22 12 22 3A 81 43 B2 31 A4 34 30 3A 4C 31 24 |.".":.C.1.40:L1$|
00000120: B2 4C 31 24 AA 22 20 22 3A 82 00 3E 09 50 00 4C |.L1$." ":..>.P.L|
00000130: 31 24 B2 4C 31 24 AA 22 92 22 3A 41 B2 31 00 71 |1$.L1$.".":A.1.q|
00000140: 09 5A 00 97 35 33 32 38 31 2C 31 3A 99 22 93 90 |.Z..53281,1:."..|
00000150: 22 3B 3A 81 43 B2 31 A4 34 3A 99 4C 31 24 3B 3A |";:.C.1.4:.L1$;:|
00000160: 82 3A 81 43 B2 31 A4 32 3A 99 22 90 22 4C 31 24 |.:.C.1.2:."."L1$|
00000170: 3B 00 7D 09 5F 00 82 3A 99 22 13 22 3B 00 90 09 |;.}._..:.".";...|
00000180: 64 00 99 A6 33 32 29 22 12 90 22 A6 34 37 29 3B |d...32)"..".47);|
00000190: 00 C3 09 69 00 99 A6 31 31 29 22 20 D4 48 45 20 |...i...11)" .HE |
000001A0: D4 D2 C5 CB D3 D4 C5 D2 27 D3 20 CD 45 4E 55 20 |........'. .ENU |
000001B0: 20 22 A6 35 38 29 22 1F 22 44 4E 24 A6 38 29 4C | ".58)"."DN$.8)L|
000001C0: 31 24 3B 00 00 0A 78 00 81 43 B2 41 A4 41 AA 31 |1$;...x..C.A.A.1|
000001D0: 34 3A 99 22 12 22 C9 28 22 20 20 20 20 22 AA C4 |4:.".".(" "..|
000001E0: 28 43 29 2C 35 29 22 92 20 90 22 54 42 24 28 43 |(C),5)". ."TB$(C|
000001F0: 29 A6 32 39 AB C3 28 54 42 24 28 43 29 29 29 3B |).29..(TB$(C)));|
00000200: 00 18 0A 82 00 99 22 1F 12 20 20 20 20 20 22 3B |......".. ";|
00000210: 3A 82 3A 99 4C 31 24 3B 00 3C 0A 87 00 81 41 B2 |:.:.L1$;.<....A.|
00000220: 31 A4 32 3A 99 22 90 22 4C 31 24 3B 3A 82 3A 99 |1.2:."."L1$;:.:.|
00000230: C8 28 4C 31 24 2C 34 30 29 22 91 22 00 7B 0A 8C |.(L1$,40)".".{..|
00000240: 00 99 A6 39 29 22 12 91 91 C6 31 20 3D 20 43 4F |...9)"....1 = CO|
00000250: 4E 54 49 4E 55 45 20 4C 49 53 54 49 4E 47 22 A6 |NTINUE LISTING".|
00000260: 31 39 29 22 C6 33 20 3D 20 43 52 45 41 54 45 20 |19)".3 = CREATE |
00000270: 44 49 52 45 43 54 4F 52 59 22 3B 00 BA 0A 96 00 |DIRECTORY";.....|
00000280: 99 A6 31 39 29 22 C6 35 20 3D 20 45 58 49 54 20 |..19)".5 = EXIT |
00000290: 50 52 4F 47 52 41 4D 90 13 22 3A 97 32 30 32 33 |PROGRAM..":.2023|
000002A0: 2C 31 36 30 3A 97 35 36 32 39 35 2C 30 3A 97 31 |,160:.56295,0:.1|
000002B0: 39 38 2C 30 3A 42 24 B2 22 22 00 CD 0A A0 00 A1 |98,0:B$.""......|
000002C0: 41 24 3A 8B 41 24 B2 22 22 A7 31 36 30 00 DF 0A |A$:.A$."".160...|
000002D0: AA 00 8B C6 28 41 24 29 B2 31 33 A7 32 36 30 00 |....(A$).13.260.|
000002E0: FC 0A B4 00 8B 41 24 B2 22 85 22 A7 32 34 30 3A |.....A$.".".240:|
000002F0: 8F 22 20 46 31 20 2A 2A 2A 2A 2A 2A 00 19 0B BE |." F1 ******....|
00000300: 00 8B 41 24 B2 22 86 22 A7 33 30 30 3A 8F 22 20 |..A$.".".300:." |
00000310: 46 33 20 2A 2A 2A 2A 2A 2A 00 4A 0B C8 00 8B 41 |F3 ******.J....A|
00000320: 24 B2 22 87 22 A7 97 35 33 32 38 31 2C 30 3A 99 |$."."..53281,0:.|
00000330: 22 93 11 11 11 1E 52 55 4E 13 22 3A 80 3A 8F 22 |".....RUN.":.:."|
00000340: 20 46 35 20 2A 2A 2A 2A 2A 2A 00 78 0B D2 00 8B | F5 ******.x....|
00000350: C6 28 41 24 29 B2 32 30 A7 42 24 B2 22 22 3A 99 |.(A$).20.B$."":.|
00000360: 22 13 11 11 11 11 1C 12 20 20 20 92 22 3A 42 24 |"....... .":B$|
00000370: B2 22 22 3A 89 31 36 30 00 97 0B DC 00 8B 41 24 |."":.160......A$|
00000380: B3 22 30 22 B0 41 24 B1 22 39 22 B0 C3 28 42 24 |."0".A$."9"..(B$|
00000390: 29 B2 33 A7 31 36 30 00 B5 0B E6 00 42 24 B2 42 |).3.160.....B$.B|
000003A0: 24 AA 41 24 3A 99 22 13 11 11 11 11 90 22 42 24 |$.A$:."......"B$|
000003B0: 3A 89 31 36 30 00 C6 0B F0 00 8B 43 B1 4D A7 41 |:.160......C.M.A|
000003C0: B2 31 3A 89 39 30 00 D2 0B FA 00 41 B2 43 3A 89 |.1:.90.....A.C:.|
000003D0: 39 30 00 06 0C 04 01 8B C5 28 42 24 29 B1 4D A7 |90.......(B$).M.|
000003E0: 99 22 13 11 11 11 11 90 3F 3F 3F 22 3A 81 43 B2 |."......???":.C.|
000003F0: 31 A4 31 35 30 30 3A 82 3A 41 24 B2 C7 28 32 30 |1.1500:.:A$..(20|
00000400: 29 3A 89 32 31 30 00 4C 0C 0E 01 97 35 33 32 38 |):.210.L....5328|
00000410: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 99 C7 |1,6:.53280,14:..|
00000420: 28 31 34 32 29 3B 22 92 93 11 11 11 05 4C 4F 41 |(142);"......LOA|
00000430: 44 22 C7 28 33 34 29 54 42 24 28 C5 28 42 24 29 |D".(34)TB$(.(B$)|
00000440: 29 C7 28 33 34 29 22 2C 38 2C 31 22 00 7A 0C 18 |).(34)",8,1".z..|
00000450: 01 8F 20 20 20 50 52 49 4E 54 52 49 47 48 54 24 |.. PRINTRIGHT$|
00000460: 28 53 54 52 24 28 44 49 29 2C 4C 45 4E 28 53 54 |(STR$(DI),LEN(ST|
00000470: 52 24 28 44 49 29 29 2D 31 29 00 AD 0C 22 01 99 |R$(DI))-1)..."..|
00000480: 22 13 22 3A 97 31 39 38 2C 34 3A 97 36 33 31 2C |".":.198,4:.631,|
00000490: 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C |13:.632,82:.633,|
000004A0: 32 31 33 3A 97 36 33 34 2C 31 33 3A 80 00 B6 0C |213:.634,13:....|
000004B0: 2C 01 99 22 93 22 00 EA 0C 36 01 9F 38 2C 44 49 |,.."."...6..8,DI|
000004C0: 2C 30 2C 22 24 30 22 3A 81 43 B2 31 A4 38 3A A1 |,0,"$0":.C.1.8:.|
000004D0: 23 38 2C 41 24 3A 82 3A 43 B2 31 3A 44 4E 24 B2 |#8,A$:.:C.1:DN$.|
000004E0: 22 22 3A 81 43 B2 31 A4 31 36 00 24 0D 40 01 A1 |"":.C.1.16.$.@..|
000004F0: 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 |#8,A$:DN$.DN$.A$|
00000500: 3A 82 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 |:.:.#8,A$:.#8,A$|
00000510: 3A 44 4E 24 B2 44 4E 24 AA 22 20 20 22 3A A1 23 |:DN$.DN$." ":.#|
00000520: 38 2C 41 24 00 63 0D 4A 01 44 4E 24 B2 44 4E 24 |8,A$.c.J.DN$.DN$|
00000530: AA 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 |.A$:.#8,A$:DN$.D|
00000540: 4E 24 AA 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 |N$.A$:.#8,A$:.#8|
00000550: 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 22 20 20 22 |,A$:DN$.DN$." "|
00000560: AA 41 24 00 84 0D 54 01 A1 23 38 2C 41 24 3A 44 |.A$...T..#8,A$:D|
00000570: 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 2C 41 24 |N$.DN$.A$:.#8,A$|
00000580: 3A 43 B2 31 00 A6 0D 5E 01 81 41 B2 31 A4 34 3A |:C.1...^..A.1.4:|
00000590: A1 23 38 2C 41 24 3A 82 3A 50 4E 24 B2 22 22 3A |.#8,A$:.:PN$."":|
000005A0: 54 59 24 B2 22 22 00 BC 0D 68 01 A1 23 38 2C 41 |TY$.""...h..#8,A|
000005B0: 24 3A 8B 53 54 B3 B1 30 A7 34 35 30 00 CB 0D 72 |$:.ST..0.450...r|
000005C0: 01 8B 41 24 B2 22 22 A7 34 35 30 00 DE 0D 7C 01 |..A$."".450...|.|
000005D0: 8B C6 28 41 24 29 B3 B1 33 34 A7 33 36 30 00 04 |..(A$)..34.360..|
000005E0: 0E 86 01 A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 |....#8,A$:..(A$)|
000005F0: B3 B1 33 34 A7 50 4E 24 B2 50 4E 24 AA 41 24 3A |..34.PN$.PN$.A$:|
00000600: 89 33 39 30 00 1D 0E 90 01 A1 23 38 2C 41 24 3A |.390......#8,A$:|
00000610: 8B C6 28 41 24 29 B2 33 32 A7 34 30 30 00 3F 0E |..(A$).32.400.?.|
00000620: 9A 01 54 59 24 B2 54 59 24 AA 41 24 3A A1 23 38 |..TY$.TY$.A$:.#8|
00000630: 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 34 31 30 00 |,A$:.A$.."".410.|
00000640: 58 0E A4 01 8B C8 28 54 59 24 2C 33 29 B3 B1 22 |X.....(TY$,3).."|
00000650: 50 52 47 22 A7 33 35 30 00 6E 0E AE 01 8B C8 28 |PRG".350.n.....(|
00000660: 50 4E 24 2C 31 29 B2 22 20 22 A7 33 35 30 00 94 |PN$,1)." ".350..|
00000670: 0E AF 01 99 22 90 D0 55 54 20 12 22 3B 50 4E 24 |...."..UT .";PN$|
00000680: 3B 22 92 20 4F 4E 20 4D 45 4E 55 3F 20 28 D9 2F |;". ON MENU? (./|
00000690: CE 29 22 3B 00 B4 0E B0 01 A1 46 42 24 3A 8B 46 |.)";......FB$:.F|
000006A0: 42 24 B3 B1 22 59 22 AF 46 42 24 B3 B1 22 4E 22 |B$.."Y".FB$.."N"|
000006B0: A7 34 33 32 00 CA 0E B1 01 99 46 42 24 3A 8B 46 |.432......FB$:.F|
000006C0: 42 24 B2 22 4E 22 A7 33 35 30 00 E9 0E B8 01 54 |B$."N".350.....T|
000006D0: 42 24 28 43 29 B2 50 4E 24 3A 43 B2 43 AA 31 3A |B$(C).PN$:C.C.1:|
000006E0: 8B 53 54 B2 30 A7 33 35 30 00 12 0F C2 01 A0 38 |.ST.0.350......8|
000006F0: 3A 9F 31 35 2C 44 49 2C 31 35 2C 22 53 3A 20 20 |:.15,DI,15,"S: |
00000700: 20 44 49 52 45 43 54 4F 52 59 20 20 20 22 3A A0 | DIRECTORY ":.|
00000710: 31 35 00 52 0F CC 01 5A 24 B2 22 DA DA DA DA DA |15.R...Z$.".....|
00000720: DA DA DA DA DA DA DA DA DA DA DA 22 3A 9F 38 2C |...........":.8,|
00000730: 44 49 2C 38 2C 22 3A 20 20 20 44 49 52 45 43 54 |DI,8,": DIRECT|
00000740: 4F 52 59 20 20 20 2C 53 2C 57 22 3A 98 38 2C 44 |ORY ,S,W":.8,D|
00000750: 4E 24 00 7D 0F D6 01 81 41 B2 31 A4 43 AB 31 3A |N$.}....A.1.C.1:|
00000760: 43 24 B2 5A 24 3A 81 42 B2 31 A4 43 AB 31 3A 8B |C$.Z$:.B.1.C.1:.|
00000770: 43 24 B3 54 42 24 28 42 29 A7 34 39 30 00 8F 0F |C$.TB$(B).490...|
00000780: E0 01 43 24 B2 54 42 24 28 42 29 3A 44 B2 42 00 |..C$.TB$(B):D.B.|
00000790: B0 0F EA 01 82 3A 98 38 2C 43 24 3A 54 42 24 28 |.....:.8,C$:TB$(|
000007A0: 44 29 B2 5A 24 3A 82 3A A0 38 3A 9C 3A 89 31 30 |D).Z$:.:.8:.:.10|
000007B0: 00 00 00 |... |
..4....53280,0:.53281,1:.TB$(150):."."G(
14):DI.8:C.1.Q....8,DI,8,": DIRECTORY
":.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:.4
0.*.F. 8: 15:M.C.1:TB$(C)."":L1$.".":.C.
1.40:L1$.L1$." ":..>.P.L1$.L1$.".":A.1.Q
.Z..53281,1:."..";:.C.1.4:.L1$;:.:.C.1.2
:."."L1$;.}._..:.".";...D...32)"..".47);
.C.I...11)" THE TREKSTER'S MENU ".58)".
"DN$.8)L1$;...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 L
ISTING".19)"F3 = CREATE DIRECTORY";.....
..19)"F5 = EXIT PROGRAM..":.2023,160:.56
295,0:.198,0:B$."".M. ..A$:.A$."".160...
...F(A$).13.260......A$.".".240:." F1 **
****......A$.".".300:." F3 ******.J.H..A
$."."..53281,0:.".....RUN.":.:." F5 ****
**.X.R..F(A$).20.B$."":."....... .":B$
."":.160......A$."0".A$."9".C(B$).3.160.
....B$.B$.A$:."......"B$:.160.F....C.M.A
.1:.90.R...A.C:.90......E(B$).M.."......
???":.C.1.1500:.:A$.G(20):.210.L....5328
1,6:.53280,14:.G(142);"......LOAD"G(34)T
B$(E(B$))G(34)",8,1".Z.... PRINTRIGHT$
(STR$(DI),LEN(STR$(DI))-1)..."..".":.198
,4:.631,13:.632,82:.633,213:.634,13:....
,.."."...6..8,DI,0,"$0":.C.1.8:.#8,A$:.:
C.1:DN$."":.C.1.16.$.@..#8,A$:DN$.DN$.A$
:.:.#8,A$:.#8,A$:DN$.DN$." ":.#8,A$.C.J
.DN$.DN$.A$:.#8,A$:DN$.DN$.A$:.#8,A$:.#8
,A$:DN$.DN$." ".A$...T..#8,A$:DN$.DN$.A
$:.#8,A$:C.1...^..A.1.4:.#8,A$:.:PN$."":
TY$.""...H..#8,A$:.ST..0.450.K.R..A$."".
450...|..F(A$)..34.360......#8,A$:.F(A$)
..34.PN$.PN$.A$:.390......#8,A$:.F(A$).3
2.400.?...TY$.TY$.A$:.#8,A$:.A$.."".410.
X....H(TY$,3).."PRG".350.N....H(PN$,1)."
".350......".PUT .";PN$;". ON MENU? (Y/
N)";......FB$:.FB$.."Y".FB$.."N".432.J..
..FB$:.FB$."N".350.....TB$(C).PN$:C.C.1:
.ST.0.350...B. 8:.15,DI,15,"S: DIRECTO
RY ": 15.R.L.Z$."ZZZZZZZZZZZZZZZZ":.8,
DI,8,": DIRECTORY ,S,W":.8,DN$.}.V..
A.1.C.1:C$.Z$:.B.1.C.1:.C$.TB$(B).490...
..C$.TB$(B):D.B......:.8,C$:TB$(D).Z$:.:
8:.:.10...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL