> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 0A 00 97 35 33 32 38 30 2C 36 3A 97 |../....53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 86 54 42 24 28 31 35 30 |53281,6:.TB$(150|
00000020: 29 3A 99 22 93 22 3A 44 49 B2 38 3A 43 B2 31 00 |):.".":DI.8:C.1.|
00000030: 6C 08 14 00 9F 38 2C 44 49 2C 38 2C 22 3A 20 20 |l....8,DI,8,": |
00000040: 20 44 49 52 45 43 54 4F 52 59 20 20 20 22 3A 9F | DIRECTORY ":.|
00000050: 31 35 2C 44 49 2C 31 35 3A 84 31 35 2C 45 4E 24 |15,DI,15:.15,EN$|
00000060: 2C 45 44 24 2C 45 54 24 2C 45 53 24 00 8E 08 1E |,ED$,ET$,ES$....|
00000070: 00 84 38 2C 44 4E 24 3A 8B 45 4E 24 B3 B1 22 30 |..8,DN$:.EN$.."0|
00000080: 30 22 A7 A0 38 3A A0 31 35 3A 89 33 31 30 00 A6 |0"..8:.15:.310..|
00000090: 08 28 00 84 38 2C 54 42 24 28 43 29 3A 8B 53 54 |.(..8,TB$(C):.ST|
000000A0: B2 36 36 A7 37 30 00 DE 08 32 00 8B C6 28 C8 28 |.66.70...2...(.(|
000000B0: 54 42 24 28 43 29 2C 31 29 29 B2 31 30 A7 54 42 |TB$(C),1)).10.TB|
000000C0: 24 28 43 29 B2 C9 28 54 42 24 28 43 29 2C C3 28 |$(C)..(TB$(C),.(|
000000D0: 54 42 24 28 43 29 29 AB 31 29 3A 89 35 30 00 EC |TB$(C)).1):.50..|
000000E0: 08 3C 00 43 B2 43 AA 31 3A 89 34 30 00 25 09 46 |.<.C.C.1:.40.%.F|
000000F0: 00 A0 38 3A A0 31 35 3A 4D B2 43 AB 31 3A 54 42 |..8:.15:M.C.1:TB|
00000100: 24 28 43 29 B2 22 22 3A 4C 31 24 B2 22 12 22 3A |$(C)."":L1$.".":|
00000110: 81 43 B2 31 A4 34 30 3A 4C 31 24 B2 4C 31 24 AA |.C.1.40:L1$.L1$.|
00000120: 22 20 22 3A 82 00 39 09 50 00 4C 31 24 B2 4C 31 |" ":..9.P.L1$.L1|
00000130: 24 AA 22 92 22 3A 41 B2 31 00 6C 09 5A 00 97 35 |$.".":A.1.l.Z..5|
00000140: 33 32 38 31 2C 31 3A 99 22 93 1F 22 3B 3A 81 43 |3281,1:."..";:.C|
00000150: B2 31 A4 34 3A 99 4C 31 24 3B 3A 82 3A 81 43 B2 |.1.4:.L1$;:.:.C.|
00000160: 31 A4 32 3A 99 22 1F 22 4C 31 24 3B 00 78 09 5F |1.2:."."L1$;.x._|
00000170: 00 82 3A 99 22 13 22 3B 00 BD 09 64 00 99 A6 38 |..:.".";...d...8|
00000180: 29 22 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 |)".. |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 22 A6 31 30 | ".10|
000001A0: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 FD 09 | ";...|
000001C0: 69 00 99 22 20 20 20 20 20 20 20 20 20 20 20 22 |i.." "|
000001D0: A6 31 31 29 22 20 20 20 20 20 20 20 20 20 20 20 |.11)" |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 22 A6 35 37 29 | ".57)|
000001F0: 22 1C 22 44 4E 24 A6 38 29 4C 31 24 3B 00 3A 0A |"."DN$.8)L1$;.:.|
00000200: 78 00 81 43 B2 41 A4 41 AA 31 34 3A 99 22 12 22 |x..C.A.A.14:."."|
00000210: C9 28 22 20 20 20 20 22 AA C4 28 43 29 2C 35 29 |.(" "..(C),5)|
00000220: 22 92 20 1F 22 54 42 24 28 43 29 A6 32 39 AB C3 |". ."TB$(C).29..|
00000230: 28 54 42 24 28 43 29 29 29 3B 00 52 0A 82 00 99 |(TB$(C)));.R....|
00000240: 22 1C 12 20 20 20 20 20 22 3B 3A 82 3A 99 4C 31 |".. ";:.:.L1|
00000250: 24 3B 00 76 0A 87 00 81 41 B2 31 A4 32 3A 99 22 |$;.v....A.1.2:."|
00000260: 1F 22 4C 31 24 3B 3A 82 3A 99 C8 28 4C 31 24 2C |."L1$;:.:..(L1$,|
00000270: 34 30 29 22 91 22 00 B6 0A 8C 00 99 A6 39 29 22 |40)".".......9)"|
00000280: 12 91 91 46 31 20 3D 20 46 4F 52 54 53 5B 54 20 |...F1 = FORTS[T |
00000290: 4C 49 53 54 4E 49 4E 47 22 A6 31 39 29 22 46 33 |LISTNING".19)"F3|
000002A0: 20 3D 20 4C 41 56 45 20 45 4E 20 44 49 52 45 43 | = LAVE EN DIREC|
000002B0: 54 4F 52 59 22 3B 00 F5 0A 96 00 99 A6 31 38 29 |TORY";.......18)|
000002C0: 22 46 35 20 3D 20 53 4C 55 54 20 50 52 4F 47 52 |"F5 = SLUT PROGR|
000002D0: 41 4D 1F 13 22 3A 97 32 30 32 33 2C 31 36 30 3A |AM..":.2023,160:|
000002E0: 97 35 36 32 39 35 2C 36 3A 97 31 39 38 2C 30 3A |.56295,6:.198,0:|
000002F0: 42 24 B2 22 22 00 08 0B A0 00 A1 41 24 3A 8B 41 |B$.""......A$:.A|
00000300: 24 B2 22 22 A7 31 36 30 00 1A 0B AA 00 8B C6 28 |$."".160.......(|
00000310: 41 24 29 B2 31 33 A7 32 36 30 00 37 0B B4 00 8B |A$).13.260.7....|
00000320: 41 24 B2 22 85 22 A7 32 34 30 3A 8F 22 20 46 31 |A$.".".240:." F1|
00000330: 20 2A 2A 2A 2A 2A 2A 00 54 0B BE 00 8B 41 24 B2 | ******.T....A$.|
00000340: 22 86 22 A7 33 30 30 3A 8F 22 20 46 33 20 2A 2A |".".300:." F3 **|
00000350: 2A 2A 2A 2A 00 85 0B C8 00 8B 41 24 B2 22 87 22 |****......A$."."|
00000360: A7 97 35 33 32 38 30 2C 33 3A 99 22 93 11 11 11 |..53280,3:."....|
00000370: 1F 52 55 4E 13 22 3A 80 3A 8F 22 20 46 35 20 2A |.RUN.":.:." F5 *|
00000380: 2A 2A 2A 2A 2A 00 B3 0B D2 00 8B C6 28 41 24 29 |*****.......(A$)|
00000390: B2 32 30 A7 42 24 B2 22 22 3A 99 22 13 11 11 11 |.20.B$."":."....|
000003A0: 11 1C 12 20 20 20 92 22 3A 42 24 B2 22 22 3A 89 |... .":B$."":.|
000003B0: 31 36 30 00 D2 0B DC 00 8B 41 24 B3 22 30 22 B0 |160......A$."0".|
000003C0: 41 24 B1 22 39 22 B0 C3 28 42 24 29 B2 33 A7 31 |A$."9"..(B$).3.1|
000003D0: 36 30 00 F0 0B E6 00 42 24 B2 42 24 AA 41 24 3A |60.....B$.B$.A$:|
000003E0: 99 22 13 11 11 11 11 1F 22 42 24 3A 89 31 36 30 |."......"B$:.160|
000003F0: 00 01 0C F0 00 8B 43 B1 4D A7 41 B2 31 3A 89 39 |......C.M.A.1:.9|
00000400: 30 00 0D 0C FA 00 41 B2 43 3A 89 39 30 00 41 0C |0.....A.C:.90.A.|
00000410: 04 01 8B C5 28 42 24 29 B1 4D A7 99 22 13 11 11 |....(B$).M.."...|
00000420: 11 11 1F 3F 3F 3F 22 3A 81 43 B2 31 A4 31 35 30 |...???":.C.1.150|
00000430: 30 3A 82 3A 41 24 B2 C7 28 32 30 29 3A 89 32 31 |0:.:A$..(20):.21|
00000440: 30 00 7E 0C 0E 01 97 35 33 32 38 31 2C 36 3A 97 |0.~....53281,6:.|
00000450: 35 33 32 38 30 2C 31 34 3A 99 22 92 93 11 11 11 |53280,14:.".....|
00000460: 05 4C 4F 41 44 22 C7 28 33 34 29 54 42 24 28 C5 |.LOAD".(34)TB$(.|
00000470: 28 42 24 29 29 C7 28 33 34 29 22 2C 38 22 00 AC |(B$)).(34)",8"..|
00000480: 0C 18 01 8F 20 20 20 50 52 49 4E 54 52 49 47 48 |.... PRINTRIGH|
00000490: 54 24 28 53 54 52 24 28 44 49 29 2C 4C 45 4E 28 |T$(STR$(DI),LEN(|
000004A0: 53 54 52 24 28 44 49 29 29 2D 31 29 00 DF 0C 22 |STR$(DI))-1)..."|
000004B0: 01 99 22 13 22 3A 97 31 39 38 2C 34 3A 97 36 33 |..".":.198,4:.63|
000004C0: 31 2C 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 33 |1,13:.632,82:.63|
000004D0: 33 2C 32 31 33 3A 97 36 33 34 2C 31 33 3A 80 00 |3,213:.634,13:..|
000004E0: F1 0C 2C 01 99 22 13 11 11 11 11 1F 57 41 49 54 |..,.."......WAIT|
000004F0: 22 00 25 0D 36 01 9F 38 2C 44 49 2C 30 2C 22 24 |".%.6..8,DI,0,"$|
00000500: 30 22 3A 81 43 B2 31 A4 38 3A A1 23 38 2C 41 24 |0":.C.1.8:.#8,A$|
00000510: 3A 82 3A 43 B2 31 3A 44 4E 24 B2 22 22 3A 81 43 |:.:C.1:DN$."":.C|
00000520: B2 31 A4 31 36 00 5F 0D 40 01 A1 23 38 2C 41 24 |.1.16._.@..#8,A$|
00000530: 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A A1 23 |:DN$.DN$.A$:.:.#|
00000540: 38 2C 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 |8,A$:.#8,A$:DN$.|
00000550: 44 4E 24 AA 22 20 20 22 3A A1 23 38 2C 41 24 00 |DN$." ":.#8,A$.|
00000560: 9E 0D 4A 01 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 |..J.DN$.DN$.A$:.|
00000570: 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 |#8,A$:DN$.DN$.A$|
00000580: 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 3A 44 |:.#8,A$:.#8,A$:D|
00000590: 4E 24 B2 44 4E 24 AA 22 20 20 22 AA 41 24 00 BF |N$.DN$." ".A$..|
000005A0: 0D 54 01 A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E |.T..#8,A$:DN$.DN|
000005B0: 24 AA 41 24 3A A1 23 38 2C 41 24 3A 43 B2 31 00 |$.A$:.#8,A$:C.1.|
000005C0: E1 0D 5E 01 81 41 B2 31 A4 34 3A A1 23 38 2C 41 |..^..A.1.4:.#8,A|
000005D0: 24 3A 82 3A 50 4E 24 B2 22 22 3A 54 59 24 B2 22 |$:.:PN$."":TY$."|
000005E0: 22 00 F7 0D 68 01 A1 23 38 2C 41 24 3A 8B 53 54 |"...h..#8,A$:.ST|
000005F0: B3 B1 30 A7 34 35 30 00 06 0E 72 01 8B 41 24 B2 |..0.450...r..A$.|
00000600: 22 22 A7 34 35 30 00 19 0E 7C 01 8B C6 28 41 24 |"".450...|...(A$|
00000610: 29 B3 B1 33 34 A7 33 36 30 00 3F 0E 86 01 A1 23 |)..34.360.?....#|
00000620: 38 2C 41 24 3A 8B C6 28 41 24 29 B3 B1 33 34 A7 |8,A$:..(A$)..34.|
00000630: 50 4E 24 B2 50 4E 24 AA 41 24 3A 89 33 39 30 00 |PN$.PN$.A$:.390.|
00000640: 58 0E 90 01 A1 23 38 2C 41 24 3A 8B C6 28 41 24 |X....#8,A$:..(A$|
00000650: 29 B2 33 32 A7 34 30 30 00 7A 0E 9A 01 54 59 24 |).32.400.z...TY$|
00000660: B2 54 59 24 AA 41 24 3A A1 23 38 2C 41 24 3A 8B |.TY$.A$:.#8,A$:.|
00000670: 41 24 B3 B1 22 22 A7 34 31 30 00 93 0E A4 01 8B |A$.."".410......|
00000680: C8 28 54 59 24 2C 33 29 B3 B1 22 50 52 47 22 A7 |.(TY$,3).."PRG".|
00000690: 33 35 30 00 A9 0E AE 01 8B C8 28 50 4E 24 2C 31 |350.......(PN$,1|
000006A0: 29 B2 22 20 22 A7 33 35 30 00 C8 0E B8 01 54 42 |)." ".350.....TB|
000006B0: 24 28 43 29 B2 50 4E 24 3A 43 B2 43 AA 31 3A 8B |$(C).PN$:C.C.1:.|
000006C0: 53 54 B2 30 A7 33 35 30 00 F1 0E C2 01 A0 38 3A |ST.0.350......8:|
000006D0: 9F 31 35 2C 44 49 2C 31 35 2C 22 53 3A 20 20 20 |.15,DI,15,"S: |
000006E0: 44 49 52 45 43 54 4F 52 59 20 20 20 22 3A A0 31 |DIRECTORY ":.1|
000006F0: 35 00 31 0F CC 01 5A 24 B2 22 DA DA DA DA DA DA |5.1...Z$."......|
00000700: DA DA DA DA DA DA DA DA DA DA 22 3A 9F 38 2C 44 |..........":.8,D|
00000710: 49 2C 38 2C 22 3A 20 20 20 44 49 52 45 43 54 4F |I,8,": DIRECTO|
00000720: 52 59 20 20 20 2C 53 2C 57 22 3A 98 38 2C 44 4E |RY ,S,W":.8,DN|
00000730: 24 00 5C 0F D6 01 81 41 B2 31 A4 43 AB 31 3A 43 |$.\....A.1.C.1:C|
00000740: 24 B2 5A 24 3A 81 42 B2 31 A4 43 AB 31 3A 8B 43 |$.Z$:.B.1.C.1:.C|
00000750: 24 B3 54 42 24 28 42 29 A7 34 39 30 00 6E 0F E0 |$.TB$(B).490.n..|
00000760: 01 43 24 B2 54 42 24 28 42 29 3A 44 B2 42 00 8F |.C$.TB$(B):D.B..|
00000770: 0F EA 01 82 3A 98 38 2C 43 24 3A 54 42 24 28 44 |....:.8,C$:TB$(D|
00000780: 29 B2 5A 24 3A 82 3A A0 38 3A 9C 3A 89 31 30 00 |).Z$:.:.8:.:.10.|
00000790: 00 00 |.. |
../....53280,6:.53281,6:.TB$(150):.".":D
I.8:C.1.L....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(T
B$(C),C(TB$(C)).1):.50...<.C.C.1:.40.%.F
. 8: 15:M.C.1:TB$(C)."":L1$.".":.C.1.40:
L1$.L1$." ":..9.P.L1$.L1$.".":A.1.L.Z..5
3281,1:."..";:.C.1.4:.L1$;:.:.C.1.2:."."
L1$;.X._..:.".";...D...8)"..
".10)"
";...I.." ".11)"
".57)"."DN$.8)L1$;.:.X..C.A.A
.14:."."I(" ".D(C),5)". ."TB$(C).29.C
(TB$(C)));.R....".. ";:.:.L1$;.V....
A.1.2:."."L1$;:.:.H(L1$,40)".".......9)"
...F1 = FORTS[T LISTNING".19)"F3 = LAVE
EN DIRECTORY";.......18)"F5 = SLUT PROGR
AM..":.2023,160:.56295,6:.198,0:B$.""...
..A$:.A$."".160......F(A$).13.260.7....
A$.".".240:." F1 ******.T....A$.".".300:
." F3 ******...H..A$."."..53280,3:."....
.RUN.":.:." F5 ******...R..F(A$).20.B$."
":."....... .":B$."":.160.R....A$."0".
A$."9".C(B$).3.160.....B$.B$.A$:."......
"B$:.160......C.M.A.1:.90.....A.C:.90.A.
...E(B$).M.."......???":.C.1.1500:.:A$.G
(20):.210.~....53281,6:.53280,14:.".....
.LOAD"G(34)TB$(E(B$))G(34)",8"...... P
RINTRIGHT$(STR$(DI),LEN(STR$(DI))-1)..."
..".":.198,4:.631,13:.632,82:.633,213:.6
34,13:....,.."......WAIT".%.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$...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...R..A$."".450...|..F(A$)..34.36
0.?....#8,A$:.F(A$)..34.PN$.PN$.A$:.390.
X....#8,A$:.F(A$).32.400.Z...TY$.TY$.A$:
.#8,A$:.A$.."".410......H(TY$,3).."PRG".
350......H(PN$,1)." ".350.H...TB$(C).PN$
:C.C.1:.ST.0.350...B. 8:.15,DI,15,"S:
DIRECTORY ": 15.1.L.Z$."ZZZZZZZZZZZZZZ
ZZ":.8,DI,8,": DIRECTORY ,S,W":.8,DN
$.\.V..A.1.C.1:C$.Z$:.B.1.C.1:.C$.TB$(B)
.490.N...C$.TB$(B):D.B......:.8,C$:TB$(D
).Z$:.: 8:.:.10...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL