17 PROG RESTORE 

00000000: 01 08 27 08 64 00 99 22  93 1D 1D 1D 1D 1D 1D 1D  |..'.d.."........|
00000010: 1D 1D 1D 1D 1D 1D 50 4C  45 41 53 45 20 53 45 4C  |......PLEASE SEL|
00000020: 45 43 54 3A 22 3A 99 00  4E 08 6E 00 99 22 4C 49  |ECT:":..N.n.."LI|
00000030: 53 54 20 44 49 52 45 43  54 4F 52 59 20 20 20 20  |ST DIRECTORY    |
00000040: 20 20 20 20 20 20 20 2D  3E 20 31 22 3A 99 00 75  |       -> 1":..u|
00000050: 08 78 00 99 22 52 45 53  54 4F 52 45 20 41 20 53  |.x.."RESTORE A S|
00000060: 43 52 41 54 43 48 45 44  20 46 49 4C 45 20 2D 3E  |CRATCHED FILE ->|
00000070: 20 32 22 3A 99 00 9C 08  7D 00 99 22 45 4E 44 20  | 2":....}.."END |
00000080: 4F 46 20 50 52 4F 47 52  41 4D 20 20 20 20 20 20  |OF PROGRAM      |
00000090: 20 20 20 20 20 2D 3E 20  33 22 3A 99 00 B3 08 82  |     -> 3":.....|
000000A0: 00 85 43 48 3A 8B 43 48  B3 31 B0 43 48 B1 33 A7  |..CH:.CH.1.CH.3.|
000000B0: 31 33 30 00 CA 08 8C 00  91 43 48 8D 31 30 33 30  |130......CH.1030|
000000C0: 2C 32 30 33 30 2C 33 30  30 30 00 D3 08 96 00 89  |,2030,3000......|
000000D0: 31 30 30 00 ED 08 06 04  99 22 93 44 49 53 4B 20  |100......".DISK |
000000E0: 44 49 52 45 43 54 4F 52  59 3A 22 3A 99 00 FD 08  |DIRECTORY:":....|
000000F0: 10 04 9F 31 2C 38 2C 31  35 2C 22 49 22 00 0C 09  |...1,8,15,"I"...|
00000100: 1A 04 9F 32 2C 38 2C 32  2C 22 23 22 00 21 09 24  |...2,8,2,"#".!.$|
00000110: 04 98 31 2C 22 55 31 20  32 20 30 20 31 38 20 31  |..1,"U1 2 0 18 1|
00000120: 22 00 31 09 2E 04 A1 23  32 2C 4E 54 24 2C 4E 53  |".1....#2,NT$,NS|
00000130: 24 00 46 09 38 04 8B 4E  54 24 B2 22 22 A7 4E 54  |$.F.8..NT$."".NT|
00000140: 24 B2 C7 28 30 29 00 5B  09 42 04 8B 4E 53 24 B2  |$..(0).[.B..NS$.|
00000150: 22 22 A7 4E 53 24 B2 C7  28 30 29 00 73 09 4C 04  |"".NS$..(0).s.L.|
00000160: 4E 54 B2 C6 28 4E 54 24  29 3A 4E 53 B2 C6 28 4E  |NT..(NT$):NS..(N|
00000170: 53 24 29 00 7E 09 56 04  81 4A B2 30 A4 37 00 99  |S$).~.V..J.0.7..|
00000180: 09 60 04 A1 23 32 2C 54  59 24 3A 54 59 B2 C6 28  |.`..#2,TY$:TY..(|
00000190: 54 59 24 AA C7 28 30 29  29 00 B1 09 6A 04 4E 41  |TY$..(0))...j.NA|
000001A0: 24 B2 C7 28 33 34 29 3A  A1 23 32 2C 49 24 2C 49  |$..(34):.#2,I$,I|
000001B0: 24 00 EC 09 74 04 46 32  B2 30 3A 81 49 B2 30 A4  |$...t.F2.0:.I.0.|
000001C0: 31 35 3A A1 23 32 2C 49  24 3A 8B 49 24 B2 C7 28  |15:.#2,I$:.I$..(|
000001D0: 31 36 30 29 AF 46 32 B2  30 A7 4E 41 24 B2 4E 41  |160).F2.0.NA$.NA|
000001E0: 24 AA C7 28 33 34 29 3A  46 32 B2 31 00 FB 09 7E  |$..(34):F2.1...~|
000001F0: 04 4E 41 24 B2 4E 41 24  AA 49 24 00 10 0A 88 04  |.NA$.NA$.I$.....|
00000200: 82 49 3A 4E 41 24 B2 4E  41 24 AA C7 28 33 34 29  |.I:NA$.NA$..(34)|
00000210: 00 25 0A 92 04 81 49 B2  30 A4 38 3A A1 23 32 2C  |.%....I.0.8:.#2,|
00000220: 49 24 3A 82 49 00 3B 0A  9C 04 A1 23 32 2C 4C 42  |I$:.I.;....#2,LB|
00000230: 24 2C 48 42 24 2C 49 24  2C 49 24 00 5E 0A A6 04  |$,HB$,I$,I$.^...|
00000240: 42 4C B2 32 35 36 AC C6  28 48 42 24 AA C7 28 30  |BL.256..(HB$..(0|
00000250: 29 29 AA C6 28 4C 42 24  AA C7 28 30 29 29 00 76  |))..(LB$..(0)).v|
00000260: 0A B0 04 8B C3 28 4E 41  24 29 B2 32 A7 4A B2 38  |.....(NA$).2.J.8|
00000270: 3A 89 31 32 38 30 00 86  0A BA 04 8B 54 59 B2 30  |:.1280......TY.0|
00000280: A7 99 22 20 22 3B 00 BC  0A C4 04 99 C9 28 22 20  |.." ";.......(" |
00000290: 20 20 22 AA C4 28 42 4C  29 2C 34 29 3B 22 20 20  |  "..(BL),4);"  |
000002A0: 20 20 20 20 20 20 22 3B  C8 28 4E 41 24 AA 22 20  |      ";.(NA$." |
000002B0: 20 22 2C 31 38 29 3B 22  20 20 22 3B 00 CD 0A CE  | ",18);"  ";....|
000002C0: 04 8B 54 59 B2 30 A7 99  22 44 45 4C 22 00 E2 0A  |..TY.0.."DEL"...|
000002D0: D8 04 8B 28 54 59 AF 37  29 B2 31 A7 99 22 53 45  |...(TY.7).1.."SE|
000002E0: 51 22 00 F7 0A E2 04 8B  28 54 59 AF 37 29 B2 32  |Q"......(TY.7).2|
000002F0: A7 99 22 50 52 47 22 00  0C 0B EC 04 8B 28 54 59  |.."PRG"......(TY|
00000300: AF 37 29 B2 33 A7 99 22  55 53 52 22 00 21 0B F6  |.7).3.."USR".!..|
00000310: 04 8B 28 54 59 AF 37 29  B2 34 A7 99 22 52 45 4C  |..(TY.7).4.."REL|
00000320: 22 00 28 0B 00 05 82 4A  00 4F 0B 0A 05 8B 4E 54  |".(....J.O....NT|
00000330: B2 30 AF 4E 53 B2 32 35  35 A7 A0 32 3A A0 31 3A  |.0.NS.255..2:.1:|
00000340: 97 31 39 38 2C 30 3A 92  31 39 38 2C 31 3A 8E 00  |.198,0:.198,1:..|
00000350: 65 0B 14 05 98 31 2C 22  55 31 20 32 20 30 22 3B  |e....1,"U1 2 0";|
00000360: 4E 54 3B 4E 53 00 6F 0B  1E 05 89 31 30 37 30 00  |NT;NS.o....1070.|
00000370: 84 0B EE 07 85 22 46 49  4C 45 20 4E 41 4D 45 3A  |....."FILE NAME:|
00000380: 22 3B 4E 24 00 A9 0B F3  07 4C B2 C3 28 4E 24 29  |";N$.....L..(N$)|
00000390: 3A 8B 4C B3 31 36 A7 4E  24 B2 4E 24 AA C7 28 31  |:.L.16.N$.N$..(1|
000003A0: 36 30 29 3A 89 32 30 33  35 00 CE 0B F8 07 99 22  |60):.2035......"|
000003B0: 57 48 41 54 20 57 41 53  20 4F 52 49 47 49 4E 41  |WHAT WAS ORIGINA|
000003C0: 4C 20 46 49 4C 45 20 54  59 50 45 20 3F 22 00 E2  |L FILE TYPE ?"..|
000003D0: 0B 02 08 99 22 20 20 53  45 51 20 2D 3E 20 31 22  |...."  SEQ -> 1"|
000003E0: 3A 99 00 F6 0B 0C 08 99  22 20 20 50 52 47 20 2D  |:......."  PRG -|
000003F0: 3E 20 32 22 3A 99 00 0A  0C 16 08 99 22 20 20 55  |> 2":......."  U|
00000400: 53 52 20 2D 3E 20 33 22  3A 99 00 1E 0C 20 08 99  |SR -> 3":.... ..|
00000410: 22 20 20 52 45 4C 20 2D  3E 20 34 22 3A 99 00 36  |"  REL -> 4":..6|
00000420: 0C 2A 08 85 46 54 3A 8B  46 54 B3 31 B0 46 54 B1  |.*..FT:.FT.1.FT.|
00000430: 34 A7 32 30 39 30 00 48  0C 34 08 46 54 24 B2 C7  |4.2090.H.4.FT$..|
00000440: 28 31 32 38 AA 46 54 29  00 54 0C 3E 08 9F 31 2C  |(128.FT).T.>..1,|
00000450: 38 2C 31 35 00 63 0C 48  08 9F 32 2C 38 2C 32 2C  |8,15.c.H..2,8,2,|
00000460: 22 23 22 00 85 0C 52 08  4F 54 24 B2 C7 28 31 38  |"#"...R.OT$..(18|
00000470: 29 3A 4F 54 B2 31 38 3A  4F 53 24 B2 C7 28 31 29  |):OT.18:OS$..(1)|
00000480: 3A 4F 53 B2 31 00 9A 0C  5C 08 98 31 2C 22 55 31  |:OS.1...\..1,"U1|
00000490: 20 32 20 30 20 31 38 20  31 22 00 B5 0C 66 08 A1  | 2 0 18 1"...f..|
000004A0: 23 32 2C 4E 54 24 2C 4E  53 24 3A 44 49 24 B2 22  |#2,NT$,NS$:DI$."|
000004B0: 22 3A 46 B2 30 00 CA 0C  70 08 8B 4E 54 24 B2 22  |":F.0...p..NT$."|
000004C0: 22 A7 4E 54 24 B2 C7 28  30 29 00 DF 0C 7A 08 8B  |".NT$..(0)...z..|
000004D0: 4E 53 24 B2 22 22 A7 4E  53 24 B2 C7 28 30 29 00  |NS$."".NS$..(0).|
000004E0: F7 0C 84 08 4E 54 B2 C6  28 4E 54 24 29 3A 4E 53  |....NT..(NT$):NS|
000004F0: B2 C6 28 4E 53 24 29 00  1A 0D 8E 08 81 49 B2 30  |..(NS$)......I.0|
00000500: A4 32 35 33 3A A1 23 32  2C 49 24 3A 8B 49 24 B2  |.253:.#2,I$:.I$.|
00000510: 22 22 A7 49 24 B2 C7 28  30 29 00 29 0D 98 08 44  |"".I$..(0).)...D|
00000520: 49 24 B2 44 49 24 AA 49  24 00 30 0D A2 08 82 49  |I$.DI$.I$.0....I|
00000530: 00 3D 0D AC 08 81 49 B2  31 A4 32 33 37 00 5F 0D  |.=....I.1.237._.|
00000540: B6 08 8B CA 28 44 49 24  2C 49 2C 31 36 29 B2 4E  |....(DI$,I,16).N|
00000550: 24 A7 50 B2 49 3A 46 B2  31 3A 49 B2 32 35 35 00  |$.P.I:F.1:I.255.|
00000560: 66 0D C0 08 82 49 00 75  0D CA 08 8B 46 B3 B1 30  |f....I.u....F..0|
00000570: A7 32 33 30 30 00 A1 0D  D4 08 8B 4E 54 B2 30 AF  |.2300......NT.0.|
00000580: 4E 53 B2 32 35 35 A7 99  22 20 46 49 4C 45 20 4E  |NS.255.." FILE N|
00000590: 4F 54 20 46 4F 55 4E 44  22 3A A0 32 3A A0 31 3A  |OT FOUND":.2:.1:|
000005A0: 8E 00 C1 0D DE 08 4F 54  24 B2 4E 54 24 3A 4F 54  |......OT$.NT$:OT|
000005B0: B2 4E 54 3A 4F 53 24 B2  4E 53 24 3A 4F 53 B2 4E  |.NT:OS$.NS$:OS.N|
000005C0: 53 00 D7 0D E8 08 98 31  2C 22 55 31 22 3B 32 3B  |S......1,"U1";2;|
000005D0: 30 3B 4E 54 3B 4E 53 00  E1 0D F2 08 89 32 31 35  |0;NT;NS......215|
000005E0: 30 00 F4 0D FC 08 57 31  24 B2 C8 28 44 49 24 2C  |0.....W1$..(DI$,|
000005F0: 50 AB 34 29 00 07 0E 06  09 57 32 24 B2 CA 28 44  |P.4).....W2$..(D|
00000600: 49 24 2C 50 AB 32 29 00  1B 0E 10 09 57 52 24 B2  |I$,P.2).....WR$.|
00000610: 57 31 24 AA 46 54 24 AA  57 32 24 00 2E 0E 15 09  |W1$.FT$.W2$.....|
00000620: 98 31 2C 22 42 2D 50 20  32 20 30 20 30 22 00 42  |.1,"B-P 2 0 0".B|
00000630: 0E 1A 09 98 32 2C 4E 54  24 3B 4E 53 24 3B 57 52  |....2,NT$;NS$;WR|
00000640: 24 3B 00 58 0E 24 09 98  31 2C 22 55 32 22 3B 32  |$;.X.$..1,"U2";2|
00000650: 3B 30 3B 4F 54 3B 4F 53  00 64 0E 2E 09 A0 32 3A  |;0;OT;OS.d....2:|
00000660: A0 31 3A 8E 00 6A 0E B8  0B 80 00 00 00 00 FF A0  |.1:..j..........|
00000670: 31                                                |1               |

..'.D.."..............PLEASE SELECT:":..
N.N.."LIST DIRECTORY           -> 1":..U
.X.."RESTORE A SCRATCHED FILE -> 2":....
}.."END OF PROGRAM           -> 3":.....
..CH:.CH.1.CH.3.130.J....CH.1030,2030,30
00.S....100......".DISK DIRECTORY:":....
...1,8,15,"I"......2,8,2,"#".!.$..1,"U1 
2 0 18 1".1....#2,NT$,NS$.F.8..NT$."".NT
$.G(0).[.B..NS$."".NS$.G(0).S.L.NT.F(NT$
):NS.F(NS$).~.V..J.0.7...`..#2,TY$:TY.F(
TY$.G(0))...J.NA$.G(34):.#2,I$,I$...T.F2
.0:.I.0.15:.#2,I$:.I$.G(160).F2.0.NA$.NA
$.G(34):F2.1...~.NA$.NA$.I$......I:NA$.N
A$.G(34).%....I.0.8:.#2,I$:.I.;....#2,LB
$,HB$,I$,I$.^...BL.256.F(HB$.G(0)).F(LB$
.G(0)).V....C(NA$).2.J.8:.1280......TY.0
.." ";...D..I("   ".D(BL),4);"        ";
H(NA$."  ",18);"  ";.M.N..TY.0.."DEL"...
X..(TY.7).1.."SEQ"......(TY.7).2.."PRG".
.....(TY.7).3.."USR".!....(TY.7).4.."REL
".(....J.O....NT.0.NS.255. 2: 1:.198,0:.
198,1:..E....1,"U1 2 0";NT;NS.O....1070.
....."FILE NAME:";N$.....L.C(N$):.L.16.N
$.N$.G(160):.2035.N...."WHAT WAS ORIGINA
L FILE TYPE ?"......"  SEQ -> 1":.......
"  PRG -> 2":......."  USR -> 3":.... ..
"  REL -> 4":..6.*..FT:.FT.1.FT.4.2090.H
.4.FT$.G(128.FT).T.>..1,8,15.C.H..2,8,2,
"#"...R.OT$.G(18):OT.18:OS$.G(1):OS.1...
\..1,"U1 2 0 18 1"...F..#2,NT$,NS$:DI$."
":F.0.J.P..NT$."".NT$.G(0)...Z..NS$."".N
S$.G(0).....NT.F(NT$):NS.F(NS$)......I.0
.253:.#2,I$:.I$."".I$.G(0).)...DI$.DI$.I
$.0....I.=....I.1.237._....J(DI$,I,16).N
$.P.I:F.1:I.255.F....I.U.J..F..0.2300...
T..NT.0.NS.255.." FILE NOT FOUND": 2: 1:
..A...OT$.NT$:OT.NT:OS$.NS$:OS.NS.W....1
,"U1";2;0;NT;NS......2150.....W1$.H(DI$,
P.4).....W2$.J(DI$,P.2).....WR$.W1$.FT$.
W2$......1,"B-P 2 0 0".B....2,NT$;NS$;WR
$;.X.$..1,"U2";2;0;OT;OS.D... 2: 1:..J..
....... 1

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL