> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 47 08 64 00 9F 31 35 2C 38 2C 31 35 2C 22 |..G.d..15,8,15,"|
00000010: 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 50 |I0":.2,8,2,"#":P|
00000020: 24 B2 22 4C 4F 43 4B 22 3A 8F 20 54 4F 20 55 4E |$."LOCK":. TO UN|
00000030: 4C 4F 43 4B 20 46 49 4C 45 53 2C 20 50 24 3D 22 |LOCK FILES, P$="|
00000040: 55 4E 4C 4F 43 4B 22 00 62 08 6E 00 54 B2 31 38 |UNLOCK".b.n.T.18|
00000050: 3A 53 B2 30 3A 4E 4C 24 B2 C7 28 30 29 3A 8D 32 |:S.0:NL$..(0):.2|
00000060: 33 30 00 77 08 78 00 8B 53 4E B2 32 35 35 A7 A0 |30.w.x..SN.255..|
00000070: 32 3A A0 31 35 3A 80 00 8A 08 82 00 54 B2 54 4E |2:.15:......T.TN|
00000080: 3A 53 B2 53 4E 3A 8D 32 33 30 00 B6 08 8C 00 81 |:S.SN:.230......|
00000090: 4A B2 30 A4 37 3A 52 28 4A 29 B2 30 3A 82 3A 99 |J.0.7:R(J).0:.:.|
000000A0: 22 93 54 59 50 45 20 4E 55 4D 42 45 52 20 4F 46 |".TYPE NUMBER OF|
000000B0: 20 46 49 4C 45 22 00 D2 08 96 00 99 22 59 4F 55 | FILE"......"YOU|
000000C0: 20 57 49 53 48 20 54 4F 20 12 22 3B 50 24 3B 22 | WISH TO .";P$;"|
000000D0: 92 22 00 15 09 A0 00 81 4A B2 30 A4 37 3A 46 54 |."......J.0.7:FT|
000000E0: 28 4A 29 B2 4A AC 33 32 AA 32 3A 98 31 35 2C 22 |(J).J.32.2:.15,"|
000000F0: 42 2D 50 22 3B 32 3B 46 54 28 4A 29 3A A1 23 32 |B-P";2;FT(J):.#2|
00000100: 2C 50 53 24 3A 50 53 28 4A 29 B2 C6 28 50 53 24 |,PS$:PS(J)..(PS$|
00000110: AA 4E 4C 24 29 00 42 09 AA 00 8B 50 53 28 4A 29 |.NL$).B....PS(J)|
00000120: B3 B1 30 A7 52 28 4A 29 B2 31 3A 8D 32 35 30 3A |..0.R(J).1:.250:|
00000130: 44 B2 4A 3A 8D 33 36 30 3A 8B 46 4C B2 31 A7 4A |D.J:.360:.FL.1.J|
00000140: B2 37 00 4E 09 B4 00 82 4A 3A 8D 33 37 30 00 61 |.7.N....J:.370.a|
00000150: 09 BE 00 A1 42 24 3A 8B 42 24 B2 22 22 A7 31 39 |....B$:.B$."".19|
00000160: 30 00 77 09 C8 00 42 B2 C5 28 42 24 29 3A 8B 42 |0.w...B..(B$):.B|
00000170: B2 54 45 A7 31 32 30 00 87 09 D2 00 8B 52 28 42 |.TE.120......R(B|
00000180: 29 B2 30 A7 31 39 30 00 95 09 DC 00 8D 33 30 30 |).0.190......300|
00000190: 3A 89 31 39 30 00 AF 09 E6 00 98 31 35 2C 22 55 |:.190......15,"U|
000001A0: 31 22 3B 32 3B 30 3B 54 3B 53 3A 8D 33 38 30 00 |1";2;0;T;S:.380.|
000001B0: DD 09 F0 00 A1 23 32 2C 54 4E 24 2C 53 4E 24 3A |.....#2,TN$,SN$:|
000001C0: 54 4E B2 C6 28 54 4E 24 AA 4E 4C 24 29 3A 53 4E |TN..(TN$.NL$):SN|
000001D0: B2 C6 28 53 4E 24 AA 4E 4C 24 29 3A 8E 00 FC 09 |..(SN$.NL$):....|
000001E0: FA 00 A1 23 32 2C 4A 24 3A A1 23 32 2C 4A 24 3A |...#2,J$:.#2,J$:|
000001F0: 43 B2 30 3A 46 24 28 4A 29 B2 22 22 00 13 0A 04 |C.0:F$(J).""....|
00000200: 01 A1 23 32 2C 41 24 3A 41 B2 C6 28 41 24 AA 4E |..#2,A$:A..(A$.N|
00000210: 4C 24 29 00 43 0A 0E 01 8B 41 B3 B1 31 36 30 AF |L$).C....A..160.|
00000220: 41 B3 B1 30 A7 46 24 28 4A 29 B2 46 24 28 4A 29 |A..0.F$(J).F$(J)|
00000230: AA 41 24 3A 43 B2 43 AA 31 3A 8B 43 B3 31 37 A7 |.A$:C.C.1:.C.17.|
00000240: 32 36 30 00 58 0A 18 01 54 45 B2 4A AA 31 3A 8B |260.X...TE.J.1:.|
00000250: 41 B2 30 A7 46 4C B2 31 00 5E 0A 22 01 8E 00 74 |A.0.FL.1.^."...t|
00000260: 0A 2C 01 98 31 35 2C 22 42 2D 50 22 3B 32 3B 46 |.,..15,"B-P";2;F|
00000270: 54 28 42 29 00 A9 0A 36 01 8B 50 24 B2 22 4C 4F |T(B)...6..P$."LO|
00000280: 43 4B 22 A7 50 53 28 42 29 B2 50 53 28 42 29 B0 |CK".PS(B).PS(B).|
00000290: 36 34 3A 98 32 2C C7 28 50 53 28 42 29 29 3B 3A |64:.2,.(PS(B));:|
000002A0: 8D 33 38 30 3A 89 33 33 30 00 CF 0A 40 01 50 53 |.380:.330...@.PS|
000002B0: 28 42 29 B2 50 53 28 42 29 AF 31 39 31 3A 98 32 |(B).PS(B).191:.2|
000002C0: 2C C7 28 50 53 28 42 29 29 3B 3A 8D 33 38 30 00 |,.(PS(B));:.380.|
000002D0: E9 0A 4A 01 98 31 35 2C 22 55 32 22 3B 32 3B 30 |..J..15,"U2";2;0|
000002E0: 3B 54 3B 53 3A 8D 33 38 30 00 0B 0B 54 01 99 22 |;T;S:.380...T.."|
000002F0: 13 11 22 3A 81 4B B2 30 A4 37 3A 8B 52 28 4B 29 |..":.K.0.7:.R(K)|
00000300: B2 31 A7 44 B2 4B 3A 8D 33 36 30 00 19 0B 5E 01 |.1.D.K:.360...^.|
00000310: 82 4B 3A 8D 33 37 30 3A 8E 00 48 0B 68 01 58 B2 |.K:.370:..H.h.X.|
00000320: 28 50 53 28 44 29 AF 36 34 29 AB 34 3A 58 B2 58 |(PS(D).64).4:X.X|
00000330: AB 28 58 B3 30 29 AC 33 36 3A 99 44 C7 28 58 29 |.(X.0).36:.D.(X)|
00000340: 3B 46 24 28 44 29 3A 8E 00 5B 0B 72 01 99 54 45 |;F$(D):..[.r..TE|
00000350: 22 20 12 4E 45 58 54 92 22 3A 8E 00 70 0B 7C 01 |" .NEXT.":..p.|.|
00000360: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
00000370: 00 88 0B 86 01 8B 45 4E A7 99 45 4E 2C 45 4D 24 |......EN..EN,EM$|
00000380: 2C 45 54 2C 45 53 3A 90 00 8E 0B 90 01 8E 00 00 |,ET,ES:.........|
00000390: 00 |. |
..G.D..15,8,15,"I0":.2,8,2,"#":P$."LOCK"
:. TO UNLOCK FILES, P$="UNLOCK".B.N.T.18
:S.0:NL$.G(0):.230.W.X..SN.255. 2: 15:..
....T.TN:S.SN:.230......J.0.7:R(J).0:.:.
".TYPE NUMBER OF FILE".R...."YOU WISH TO
.";P$;"."... ..J.0.7:FT(J).J.32.2:.15,"
B-P";2;FT(J):.#2,PS$:PS(J).F(PS$.NL$).B.
...PS(J)..0.R(J).1:.250:D.J:.360:.FL.1.J
.7.N....J:.370.A....B$:.B$."".190.W.H.B.
E(B$):.B.TE.120...R..R(B).0.190......300
:.190......15,"U1";2;0;T;S:.380......#2,
TN$,SN$:TN.F(TN$.NL$):SN.F(SN$.NL$):....
...#2,J$:.#2,J$:C.0:F$(J).""......#2,A$:
A.F(A$.NL$).C....A..160.A..0.F$(J).F$(J)
.A$:C.C.1:.C.17.260.X...TE.J.1:.A.0.FL.1
.^."...T.,..15,"B-P";2;FT(B)...6..P$."LO
CK".PS(B).PS(B).64:.2,G(PS(B));:.380:.33
0.O.@.PS(B).PS(B).191:.2,G(PS(B));:.380.
..J..15,"U2";2;0;T;S:.380...T.."..":.K.0
.7:.R(K).1.D.K:.360...^..K:.370:..H.H.X.
(PS(D).64).4:X.X.(X.0).36:.DG(X);F$(D):.
.[.R..TE" .NEXT.":..P.|..15,EN,EM$,ET,ES
......EN..EN,EM$,ET,ES:..........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL