00000000: 01 04 17 04 64 00 86 20 4C 24 28 32 30 30 29 2C |....d.. L$(200),|
00000010: 49 24 28 32 30 30 29 00 24 04 6E 00 45 B2 30 3A |I$(200).$.n.E.0:|
00000020: 99 22 93 22 00 5E 04 78 00 51 24 B2 C7 28 33 34 |.".".^.x.Q$..(34|
00000030: 29 3A 42 24 B2 22 20 20 20 20 20 20 20 20 20 20 |):B$." |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 78 | ".x|
00000060: 04 C8 00 99 22 13 22 3B 42 24 AA 22 20 22 3B 3A |....".";B$." ";:|
00000070: 99 42 24 AA 22 20 22 3B 00 B6 04 D2 00 99 22 13 |.B$." ";......".|
00000080: 12 4C 92 49 53 54 2C 20 12 49 92 4E 50 55 54 2C |.L.IST, .I.NPUT,|
00000090: 20 12 44 92 45 4C 45 54 45 2C 20 12 53 92 45 41 | .D.ELETE, .S.EA|
000000A0: 52 43 48 2C 20 12 52 92 45 41 44 2C 20 12 57 92 |RCH, .R.EAD, .W.|
000000B0: 52 49 54 45 22 3B 00 C0 04 DC 00 8D 39 30 30 30 |RITE";......9000|
000000C0: 00 D1 04 E6 00 8B 41 24 B2 22 4C 22 A7 31 30 30 |......A$."L".100|
000000D0: 30 00 E2 04 F0 00 8B 41 24 B2 22 49 22 A7 32 30 |0......A$."I".20|
000000E0: 30 30 00 F3 04 FA 00 8B 41 24 B2 22 44 22 A7 33 |00......A$."D".3|
000000F0: 30 30 30 00 04 05 04 01 8B 41 24 B2 22 53 22 A7 |000......A$."S".|
00000100: 34 30 30 30 00 15 05 0E 01 8B 41 24 B2 22 52 22 |4000......A$."R"|
00000110: A7 35 30 30 30 00 26 05 18 01 8B 41 24 B2 22 57 |.5000.&....A$."W|
00000120: 22 A7 36 30 30 30 00 37 05 1D 01 8B 41 24 B2 22 |".6000.7....A$."|
00000130: 93 22 A7 99 22 93 22 00 40 05 22 01 89 32 30 30 |."..".".@."..200|
00000140: 00 53 05 E8 03 99 22 4C 49 53 54 22 3B 3A 8D 39 |.S...."LIST";:.9|
00000150: 31 30 30 00 5E 05 F2 03 81 4C B2 46 A4 54 00 6C |100.^....L.F.T.l|
00000160: 05 F7 03 99 C8 28 42 24 2C 33 38 29 00 8B 05 FC |.....(B$,38)....|
00000170: 03 99 22 91 20 22 3B C4 28 4C 29 3B 22 2C 22 3B |..". ";.(L);",";|
00000180: 51 24 3B 4C 24 28 4C 29 3B 51 24 00 92 05 06 04 |Q$;L$(L);Q$.....|
00000190: 82 4C 00 9B 05 10 04 89 32 30 30 00 B6 05 D0 07 |.L......200.....|
000001A0: 85 22 49 4E 50 55 54 20 42 45 46 4F 52 45 20 4C |."INPUT BEFORE L|
000001B0: 49 4E 45 22 3B 46 00 C5 05 DA 07 8B 46 B3 B1 30 |INE";F......F..0|
000001C0: A7 32 30 35 30 00 D5 05 E4 07 85 4C 2C 49 24 3A |.2050......L,I$:|
000001D0: 8D 39 32 30 30 00 E2 05 EE 07 4C 24 28 4C 29 B2 |.9200.....L$(L).|
000001E0: 49 24 00 EF 05 F3 07 8B 45 B3 4C A7 45 B2 4C 00 |I$......E.L.E.L.|
000001F0: F8 05 F8 07 89 32 30 30 00 05 06 02 08 81 4C B2 |.....200......L.|
00000200: 46 A4 32 30 30 00 3F 06 0C 08 99 22 20 22 3B C4 |F.200.?...." ";.|
00000210: 28 4C 29 3B 22 2C 22 3B 51 24 3B 22 20 20 20 20 |(L);",";Q$;" |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 22 3B 51 24 00 | ";Q$.|
00000240: 4D 06 16 08 85 22 91 22 3B 4B 2C 49 24 00 63 06 |M....".";K,I$.c.|
00000250: 20 08 8B C8 28 49 24 2C 31 29 B2 22 5F 22 A7 32 | ...(I$,1)."_".2|
00000260: 35 30 30 00 6D 06 2A 08 8D 39 32 30 30 00 7C 06 |500.m.*..9200.|.|
00000270: 34 08 49 24 28 4C AB 46 29 B2 49 24 00 83 06 3E |4.I$(L.F).I$...>|
00000280: 08 82 4C 00 C2 06 C4 09 99 22 50 52 45 53 53 20 |..L......"PRESS |
00000290: 58 20 54 4F 20 44 49 53 43 41 52 44 2C 20 41 4E |X TO DISCARD, AN|
000002A0: 59 20 4F 54 48 45 52 20 54 4F 20 4B 45 45 50 22 |Y OTHER TO KEEP"|
000002B0: 3A 8D 39 30 30 30 3A 8B 41 24 B2 22 58 22 A7 32 |:.9000:.A$."X".2|
000002C0: 30 30 00 D0 06 CE 09 81 4B B2 45 A4 46 A9 AB 31 |00......K.E.F..1|
000002D0: 00 E4 06 D8 09 4C 24 28 4B AA 4C AB 46 29 B2 4C |.....L$(K.L.F).L|
000002E0: 24 28 4B 29 00 EB 06 E2 09 82 4B 00 F8 06 EC 09 |$(K)......K.....|
000002F0: 81 4B B2 46 A4 4C AB 31 00 15 07 F6 09 4C 24 28 |.K.F.L.1.....L$(|
00000300: 4B 29 B2 49 24 28 4B AB 46 29 3A 49 24 28 4B AB |K).I$(K.F):I$(K.|
00000310: 46 29 B2 22 22 00 1C 07 00 0A 82 4B 00 28 07 0A |F).""......K.(..|
00000320: 0A 45 B2 45 AA 4C AB 46 00 47 07 14 0A 99 42 24 |.E.E.L.F.G....B$|
00000330: 3A 99 22 91 22 3B B8 28 30 29 3B 22 42 59 54 45 |:.".";.(0);"BYTE|
00000340: 53 20 46 52 45 45 22 00 50 07 1E 0A 89 32 30 30 |S FREE".P....200|
00000350: 00 65 07 B8 0B 99 22 44 45 4C 45 54 45 22 3B 3A |.e...."DELETE";:|
00000360: 8D 39 31 30 30 00 71 07 C2 0B 44 B2 54 AB 46 AA |.9100.q...D.T.F.|
00000370: 31 00 80 07 CC 0B 8B 54 B1 B2 45 A7 33 30 37 30 |1......T..E.3070|
00000380: 00 8B 07 D6 0B 81 4C B2 46 A4 45 00 9B 07 E0 0B |......L.F.E.....|
00000390: 8B 4C AA 44 B1 45 A7 33 30 36 30 00 B8 07 EA 0B |.L.D.E.3060.....|
000003A0: 4C 24 28 4C 29 B2 4C 24 28 4C AA 44 29 3A 4C 24 |L$(L).L$(L.D):L$|
000003B0: 28 4C AA 44 29 B2 22 22 00 BF 07 F4 0B 82 4C 00 |(L.D).""......L.|
000003C0: C9 07 FE 0B 45 B2 45 AB 44 00 E8 07 08 0C 99 42 |....E.E.D......B|
000003D0: 24 3A 99 22 91 22 3B B8 28 30 29 3B 22 42 59 54 |$:.".";.(0);"BYT|
000003E0: 45 53 20 46 52 45 45 22 00 F1 07 12 0C 89 32 30 |ES FREE"......20|
000003F0: 30 00 06 08 A0 0F 99 22 53 45 41 52 43 48 22 3B |0......"SEARCH";|
00000400: 3A 8D 39 31 30 30 00 0E 08 A5 0F 99 42 24 00 2C |:.9100......B$.,|
00000410: 08 AA 0F 85 22 91 53 45 41 52 43 48 20 46 4F 52 |....".SEARCH FOR|
00000420: 22 3B 53 24 3A 53 B2 C3 28 53 24 29 00 37 08 B4 |";S$:S..(S$).7..|
00000430: 0F 81 4C B2 46 A4 54 00 44 08 BE 0F 4C 24 B2 4C |..L.F.T.D...L$.L|
00000440: 24 28 4C 29 00 56 08 C8 0F 8B C3 28 4C 24 29 B3 |$(L).V.....(L$).|
00000450: 53 A7 34 30 38 30 00 69 08 D2 0F 81 50 B2 31 A4 |S.4080.i....P.1.|
00000460: C3 28 4C 24 29 AB 53 AA 31 00 80 08 DC 0F 8B CA |.(L$).S.1.......|
00000470: 28 4C 24 2C 50 2C 53 29 B2 53 24 A7 34 31 30 30 |(L$,P,S).S$.4100|
00000480: 00 87 08 E6 0F 82 50 00 8E 08 F0 0F 82 4C 00 AA |......P......L..|
00000490: 08 FA 0F 99 42 24 3B 3A 99 22 91 4E 4F 54 20 46 |....B$;:.".NOT F|
000004A0: 4F 55 4E 44 22 3A 89 32 30 30 00 CA 08 04 10 99 |OUND":.200......|
000004B0: 42 24 3A 99 22 91 20 22 3B C4 28 4C 29 3B 22 2C |B$:.". ";.(L);",|
000004C0: 22 3B 51 24 3B 4C 24 3B 51 24 00 D3 08 0E 10 89 |";Q$;L$;Q$......|
000004D0: 32 30 30 00 ED 08 88 13 85 22 4C 4F 41 44 20 42 |200......"LOAD B|
000004E0: 45 46 4F 52 45 20 4C 49 4E 45 22 3B 46 00 00 09 |EFORE LINE";F...|
000004F0: 92 13 85 22 46 49 4C 45 4E 41 4D 45 22 3B 46 24 |..."FILENAME";F$|
00000500: 00 09 09 97 13 99 22 93 22 00 24 09 9C 13 9F 31 |......".".$....1|
00000510: 2C 31 2C 30 2C 46 24 3A 99 22 46 4F 55 4E 44 20 |,1,0,F$:."FOUND |
00000520: 22 3B 46 24 00 31 09 A6 13 81 4C B2 46 A4 32 30 |";F$.1....L.F.20|
00000530: 30 00 3B 09 B0 13 84 31 2C 4C 24 00 4D 09 BA 13 |0.;....1,L$.M...|
00000540: 8B 28 53 54 29 AF 36 34 A7 35 30 38 30 00 55 09 |.(ST).64.5080.U.|
00000550: BF 13 99 4C 24 00 6F 09 C4 13 49 24 28 4C AB 46 |...L$.o...I$(L.F|
00000560: 29 B2 C9 28 4C 24 2C C3 28 4C 24 29 AB 33 29 00 |)..(L$,.(L$).3).|
00000570: 76 09 CE 13 82 4C 00 7D 09 D8 13 A0 31 00 87 09 |v....L.}....1...|
00000580: E2 13 89 32 35 30 30 00 9B 09 70 17 99 22 57 52 |...2500...p.."WR|
00000590: 49 54 45 22 3B 3A 8D 39 31 30 30 00 B3 09 7A 17 |ITE";:.9100...z.|
000005A0: 99 42 24 3A 85 22 91 46 49 4C 45 4E 41 4D 45 22 |.B$:.".FILENAME"|
000005B0: 3B 46 24 00 BC 09 7F 17 99 22 93 22 00 D9 09 84 |;F$......"."....|
000005C0: 17 9F 31 2C 31 2C 31 2C 46 24 3A 99 22 43 52 45 |..1,1,1,F$:."CRE|
000005D0: 41 54 45 44 20 22 3B 46 24 00 E4 09 8E 17 81 4C |ATED ";F$......L|
000005E0: B2 46 A4 54 00 00 0A 98 17 4C 24 B2 C9 28 22 20 |.F.T.....L$..(" |
000005F0: 20 22 AA C4 28 4C 29 2C 33 29 AA 4C 24 28 4C 29 | "..(L),3).L$(L)|
00000600: 00 14 0A A2 17 98 31 2C 51 24 AA 4C 24 AA 51 24 |......1,Q$.L$.Q$|
00000610: 3A 99 4C 24 00 1B 0A AC 17 82 4C 00 22 0A B6 17 |:.L$......L."...|
00000620: A0 31 00 2B 0A C0 17 89 32 30 30 00 3F 0A 28 23 |.1.+....200.?.(#|
00000630: A1 41 24 3A 8B 41 24 B2 22 22 A7 39 30 30 30 00 |.A$:.A$."".9000.|
00000640: 45 0A 32 23 8E 00 59 0A 8C 23 85 22 20 46 52 4F |E.2#..Y..#." FRO|
00000650: 4D 2C 54 4F 22 3B 46 2C 54 00 6E 0A 96 23 8B 46 |M,TO";F,T.n..#.F|
00000660: B2 30 AF 54 B2 30 A7 46 B2 31 3A 54 B2 45 00 7B |.0.T.0.F.1:T.E.{|
00000670: 0A A0 23 8B 54 B2 30 A7 54 B2 46 00 81 0A AA 23 |..#.T.0.T.F....#|
00000680: 8E 00 8B 0A F0 23 4A 24 B2 49 24 00 9D 0A 40 24 |.....#J$.I$...@$|
00000690: 81 4B B2 C3 28 4A 24 29 A4 31 A9 AB 31 00 B6 0A |.K..(J$).1..1...|
000006A0: 4A 24 8B CA 28 4A 24 2C 4B 2C 31 29 B3 B1 22 20 |J$..(J$,K,1).." |
000006B0: 22 A7 39 33 31 30 00 BD 0A 54 24 82 4B 00 CC 0A |".9310...T$.K...|
000006C0: 5E 24 49 24 B2 C8 28 4A 24 2C 4B 29 00 D2 0A 68 |^$I$..(J$,K)...h|
000006D0: 24 8E 00 00 00 24 |$....$ |
....D.. L$(200),I$(200).$.N.E.0:.".".^.X
.Q$.G(34):B$."
".X.H..".";B$." ";:.B$." ";
...R.."..L.IST, .I.NPUT, .D.ELETE, .S.EA
RCH, .R.EAD, .W.RITE";......9000.Q....A$
."L".1000......A$."I".2000......A$."D".3
000......A$."S".4000......A$."R".5000.&.
...A$."W".6000.7....A$."."..".".@."..200
.S...."LIST";:.9100.^....L.F.T.L....H(B$
,38)......". ";D(L);",";Q$;L$(L);Q$.....
.L......200...P.."INPUT BEFORE LINE";F.E
.Z..F..0.2050.U....L,I$:.9200.....L$(L).
I$......E.L.E.L......200......L.F.200.?.
..." ";D(L);",";Q$;"
";Q$.M....".";K,I$.C. ..H(I$,
1)."_".2500.M.*..9200.|.4.I$(L.F).I$...>
..L.B.D.."PRESS X TO DISCARD, ANY OTHER
TO KEEP":.9000:.A$."X".200.P.N..K.E.F..1
...X.L$(K.L.F).L$(K)......K......K.F.L.1
.....L$(K).I$(K.F):I$(K.F).""......K.(..
.E.E.L.F.G....B$:.".";.(0);"BYTES FREE".
P....200.E...."DELETE";:.9100.Q.B.D.T.F.
1...L..T..E.3070...V..L.F.E......L.D.E.3
060.....L$(L).L$(L.D):L$(L.D).""......L.
I...E.E.D......B$:.".";.(0);"BYTES FREE"
......200... .."SEARCH";:.9100......B$.,
....".SEARCH FOR";S$:S.C(S$).7....L.F.T.
D...L$.L$(L).V.H..C(L$).S.4080.I.R..P.1.
C(L$).S.1......J(L$,P,S).S$.4100......P.
.....L......B$;:.".NOT FOUND":.200.J....
B$:.". ";D(L);",";Q$;L$;Q$.S....200.....
."LOAD BEFORE LINE";F......"FILENAME";F$
......".".$....1,1,0,F$:."FOUND ";F$.1..
..L.F.200.;....1,L$.M....(ST).64.5080.U.
...L$.O.D.I$(L.F).I(L$,C(L$).3).V.N..L.}
.X. 1......2500...P.."WRITE";:.9100...Z.
.B$:.".FILENAME";F$.....".".Y....1,1,1,
F$:."CREATED ";F$......L.F.T.....L$.I("
".D(L),3).L$(L)......1,Q$.L$.Q$:.L$....
..L."... 1.+....200.?.(#.A$:.A$."".9000.
E.2#..Y..#." FROM,TO";F,T.N..#.F.0.T.0.F
.1:T.E.{. #.T.0.T.F....#.....#J$.I$...@$
.K.C(J$).1..1...J$.J(J$,K,1).." ".9310..
.T$.K.L.^$I$.H(J$,K).R.H$....$
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL