00000000: 01 12 27 12 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 12 6E 00 8F 20 2A 20 |*******.M.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 12 | *.s.|
00000050: 73 00 8F 20 2A 20 20 20 20 20 20 44 49 53 4B 20 |s.. * DISK |
00000060: 46 49 4C 45 20 52 45 43 4F 56 45 52 20 20 20 20 |FILE RECOVER |
00000070: 20 20 2A 00 99 12 78 00 8F 20 2A 20 20 20 20 20 | *...x.. * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 2A 00 BF 12 7D 00 8F 20 | *...}.. |
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000C0: D2 12 8C 00 54 52 B2 31 38 3A 46 4F B2 30 3A 53 |....TR.18:FO.0:S|
000000D0: B2 31 00 DD 12 96 00 86 45 24 28 39 29 00 F6 12 |.1......E$(9)...|
000000E0: A0 00 8F 20 4F 50 45 4E 20 44 49 53 4B 20 43 48 |... OPEN DISK CH|
000000F0: 41 4E 4E 45 4C 53 00 07 13 AA 00 9F 31 35 2C 38 |ANNELS......15,8|
00000100: 2C 31 35 2C 22 49 22 00 16 13 B4 00 9F 32 2C 38 |,15,"I"......2,8|
00000110: 2C 34 2C 22 23 22 00 64 13 B9 00 8F 20 48 56 49 |,4,"#".d.... HVI|
00000120: 53 20 44 45 52 20 45 52 20 45 4E 20 28 53 50 41 |S DER ER EN (SPA|
00000130: 43 45 29 20 46 4F 52 41 4E 20 46 49 4C 4E 41 56 |CE) FORAN FILNAV|
00000140: 4E 45 54 20 49 20 4C 49 4E 49 45 20 31 39 30 2E |NET I LINIE 190.|
00000150: 20 41 45 4E 44 52 45 53 20 4C 49 4E 49 45 4E 20 | AENDRES LINIEN |
00000160: 54 49 4C 3A 00 7B 13 BA 00 8F 20 31 39 30 20 46 |TIL:.{.... 190 F|
00000170: 24 3D 22 46 49 4C 4E 41 56 4E 22 00 95 13 BE 00 |$="FILNAVN".....|
00000180: 85 22 93 11 11 1D 1D 1D 46 49 4C 45 20 4E 41 4D |."......FILE NAM|
00000190: 45 22 3B 46 24 00 CD 13 BF 00 3A 99 22 11 11 1D |E";F$.....:."...|
000001A0: 1D 46 49 4C 45 20 54 59 50 45 20 12 44 92 45 4C |.FILE TYPE .D.EL|
000001B0: 2C 12 50 92 52 47 2C 12 52 92 45 4C 2C 12 53 92 |,.P.RG,.R.EL,.S.|
000001C0: 45 51 20 4F 52 20 12 55 92 53 52 3F 22 00 03 14 |EQ OR .U.SR?"...|
000001D0: C0 00 A1 46 54 24 3A 8B 46 54 24 B2 22 44 22 B0 |...FT$:.FT$."D".|
000001E0: 46 54 24 B2 22 50 22 B0 46 54 24 B2 22 52 22 B0 |FT$."P".FT$."R".|
000001F0: 46 54 24 B2 22 53 22 B0 46 54 24 B2 22 55 22 A7 |FT$."S".FT$."U".|
00000200: 31 39 35 00 0C 14 C1 00 89 31 39 32 00 15 14 C3 |195......192....|
00000210: 00 99 22 93 22 00 2C 14 C8 00 98 31 35 2C 22 55 |..".".,....15,"U|
00000220: 31 3A 22 3B 34 3B 30 3B 54 52 3B 53 00 50 14 D2 |1:";4;0;TR;S.P..|
00000230: 00 99 22 12 54 52 41 43 4B 20 92 22 54 52 22 20 |..".TRACK ."TR" |
00000240: 53 45 41 52 43 48 49 4E 47 20 45 4E 54 52 59 22 |SEARCHING ENTRY"|
00000250: 00 65 14 DC 00 99 22 12 53 45 43 54 4F 52 92 22 |.e....".SECTOR."|
00000260: 53 22 11 11 22 00 6D 14 E6 00 47 B2 31 00 8F 14 |S"..".m...G.1...|
00000270: F0 00 8F 20 52 45 41 44 20 31 20 46 49 4C 45 20 |... READ 1 FILE |
00000280: 45 4E 54 52 59 20 41 54 20 41 20 54 49 4D 45 00 |ENTRY AT A TIME.|
00000290: 9C 14 FA 00 81 49 B2 31 A4 32 35 36 00 A7 14 04 |.....I.1.256....|
000002A0: 01 A1 23 32 2C 4E 24 00 C1 14 09 01 8B 4E 24 B3 |..#2,N$......N$.|
000002B0: 22 20 22 B0 4E 24 B1 22 5A 22 A7 4E 24 B2 22 2E |" ".N$."Z".N$.".|
000002C0: 22 00 CE 14 0E 01 57 24 B2 57 24 AA 4E 24 00 DD |".....W$.W$.N$..|
000002D0: 14 18 01 97 31 30 39 32 2C 34 38 AA 47 00 F9 14 |....1092,48.G...|
000002E0: 22 01 8B C3 28 57 24 29 B2 33 32 A7 45 24 28 47 |"...(W$).32.E$(G|
000002F0: 29 B2 57 24 3A 8D 33 31 30 00 FF 14 2C 01 82 00 |).W$:.310...,...|
00000300: 09 15 36 01 47 B2 47 AA 31 00 2B 15 40 01 8B CA |..6.G.G.1.+.@...|
00000310: 28 57 24 2C 36 2C C3 28 46 24 29 29 B2 46 24 A7 |(W$,6,.(F$)).F$.|
00000320: 46 4F B2 31 3A 45 4E B2 47 AB 32 00 57 15 4A 01 |FO.1:EN.G.2.W.J.|
00000330: 8B 46 4F B2 31 A7 99 22 12 46 49 4C 45 20 46 4F |.FO.1..".FILE FO|
00000340: 55 4E 44 20 4F 4E 20 53 45 43 54 4F 52 22 53 22 |UND ON SECTOR"S"|
00000350: 91 22 3A 89 33 35 30 00 78 15 54 01 8B 47 B1 38 |.":.350.x.T..G.8|
00000360: A7 99 22 12 46 49 4C 45 20 4E 4F 54 20 4F 4E 20 |..".FILE NOT ON |
00000370: 53 45 43 54 4F 52 22 53 00 8B 15 5E 01 8B 49 B3 |SECTOR"S...^..I.|
00000380: 32 35 36 A7 57 24 B2 22 22 3A 8E 00 91 15 68 01 |256.W$."":....h.|
00000390: 99 00 9C 15 7C 01 81 4A B2 31 A4 38 00 A7 15 86 |....|..J.1.8....|
000003A0: 01 99 45 24 28 4A 29 00 AD 15 90 01 82 00 DC 15 |..E$(J).........|
000003B0: 9A 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 22 00 E5 15 A4 | "....|
000003E0: 01 99 22 13 22 00 05 16 AE 01 8B 46 4F B2 30 AF |.."."......FO.0.|
000003F0: 53 B3 31 33 A7 53 B2 53 AA 33 3A 57 24 B2 22 22 |S.13.S.S.3:W$.""|
00000400: 3A 89 32 30 30 00 29 16 B8 01 8B 46 4F B2 30 A7 |:.200.)....FO.0.|
00000410: 99 22 12 11 11 46 49 4C 45 20 4E 4F 54 20 46 4F |."...FILE NOT FO|
00000420: 55 4E 44 22 3A 89 35 35 30 00 45 16 C2 01 8B 46 |UND":.550.E....F|
00000430: 54 24 B2 22 44 22 A7 46 54 B2 31 32 38 3A 8F 20 |T$."D".FT.128:. |
00000440: 22 44 45 4C 22 00 61 16 C7 01 8B 46 54 24 B2 22 |"DEL".a....FT$."|
00000450: 53 22 A7 46 54 B2 31 32 39 3A 8F 20 22 53 45 51 |S".FT.129:. "SEQ|
00000460: 22 00 7D 16 CC 01 8B 46 54 24 B2 22 50 22 A7 46 |".}....FT$."P".F|
00000470: 54 B2 31 33 30 3A 8F 20 22 50 52 47 22 00 99 16 |T.130:. "PRG"...|
00000480: D6 01 8B 46 54 24 B2 22 55 22 A7 46 54 B2 31 33 |...FT$."U".FT.13|
00000490: 31 3A 8F 20 22 55 53 52 22 00 B5 16 E0 01 8B 46 |1:. "USR"......F|
000004A0: 54 24 B2 22 52 22 A7 46 54 B2 31 33 32 3A 8F 20 |T$."R".FT.132:. |
000004B0: 22 52 45 4C 22 00 F1 16 EA 01 8F 20 46 54 20 53 |"REL"...... FT S|
000004C0: 45 54 20 54 4F 20 46 49 4C 45 20 54 59 50 45 20 |ET TO FILE TYPE |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 4E 4F 57 20 57 52 49 54 45 20 54 4F 20 44 49 53 |NOW WRITE TO DIS|
000004F0: 4B 00 0C 17 F4 01 98 31 35 2C 22 42 2D 50 3A 22 |K......15,"B-P:"|
00000500: 3B 34 3B 28 45 4E AC 33 32 29 AA 32 00 1A 17 FE |;4;(EN.32).2....|
00000510: 01 98 32 2C C7 28 46 54 29 3B 00 31 17 08 02 98 |..2,.(FT);.1....|
00000520: 31 35 2C 22 55 32 3A 22 3B 34 3B 30 3B 54 52 3B |15,"U2:";4;0;TR;|
00000530: 53 00 53 17 12 02 8F 20 43 4C 4F 53 45 20 43 48 |S.S.... CLOSE CH|
00000540: 41 4E 4E 45 4C 53 20 26 20 55 50 44 41 54 45 20 |ANNELS & UPDATE |
00000550: 42 41 4D 00 8A 17 1C 02 99 22 93 11 11 1D 1D 56 |BAM......".....V|
00000560: 41 4C 49 44 41 54 45 20 44 49 53 4B 22 3A 99 22 |ALIDATE DISK":."|
00000570: 11 11 1D 1D 50 4C 45 41 53 45 20 57 41 49 54 21 |....PLEASE WAIT!|
00000580: 21 22 3A 98 31 35 2C 22 56 22 00 9A 17 26 02 A0 |!":.15,"V"...&..|
00000590: 32 3A A0 31 35 3A 99 22 93 22 00 CE 17 30 02 81 |2:.15:."."...0..|
000005A0: 54 B2 31 A4 34 3A 97 36 33 30 AA 54 2C C6 28 CA |T.1.4:.630.T,.(.|
000005B0: 28 22 4C 49 53 54 22 2C 54 2C 31 29 29 3A 82 3A |("LIST",T,1)):.:|
000005C0: 97 36 33 35 2C 31 33 3A 97 31 39 38 2C 35 00 D9 |.635,13:.198,5..|
000005D0: 17 3A 02 93 22 24 22 2C 38 00 00 00 EF |.:.."$",8.... |
..'.D.. *******************************.
M.N.. * *.S.
S.. * DISK FILE RECOVER *...X.
. * *...}..
*******************************.R...TR.1
8:FO.0:S.1......E$(9)... .. OPEN DISK CH
ANNELS......15,8,15,"I"......2,8,4,"#".D
.... HVIS DER ER EN (SPACE) FORAN FILNAV
NET I LINIE 190. AENDRES LINIEN TIL:.{..
.. 190 F$="FILNAVN"......"......FILE NAM
E";F$.M...:."....FILE TYPE .D.EL,.P.RG,.
R.EL,.S.EQ OR .U.SR?"......FT$:.FT$."D".
FT$."P".FT$."R".FT$."S".FT$."U".195...A.
.192...C..".".,.H..15,"U1:";4;0;TR;S.P.R
..".TRACK ."TR" SEARCHING ENTRY".E....".
SECTOR."S"..".M...G.1...... READ 1 FILE
ENTRY AT A TIME......I.1.256......#2,N$.
A....N$." ".N$."Z".N$.".".N...W$.W$.N$..
....1092,48.G..."..C(W$).32.E$(G).W$:.31
0...,.....6.G.G.1.+.@..J(W$,6,C(F$)).F$.
FO.1:EN.G.2.W.J..FO.1..".FILE FOUND ON S
ECTOR"S".":.350.X.T..G.8..".FILE NOT ON
SECTOR"S...^..I.256.W$."":....H.....|..J
.1.8......E$(J)............"
"......"."...
...FO.0.S.13.S.S.3:W$."":.200.)....FO.0.
."...FILE NOT FOUND":.550.E.B..FT$."D".F
T.128:. "DEL".A.G..FT$."S".FT.129:. "SEQ
".}.L..FT$."P".FT.130:. "PRG"...V..FT$."
U".FT.131:. "USR"......FT$."R".FT.132:.
"REL"...... FT SET TO FILE TYPE
NOW WRITE TO DISK......15,"B-P:"
;4;(EN.32).2......2,G(FT);.1....15,"U2:"
;4;0;TR;S.S.... CLOSE CHANNELS & UPDATE
BAM......".....VALIDATE DISK":."....PLEA
SE WAIT!!":.15,"V"...&. 2: 15:.".".N.0..
T.1.4:.630.T,F(J("LIST",T,1)):.:.635,13:
.198,5.Y.:.."$",8....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL