DISK RECOVERY
FILE INFORMATION
FILENAME(S): DISK RECOVERY
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:10:50
APPEARS ON: 1 disk(s)
FILE HASH
e8170586753551daeec240daee7c5fbde620c08e80bc424cf5a2e912e597ce3e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HCCN | DISK RECOVERY | PRG | DuncanTwain | 33 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 99 22 93 22 00 15 08 14 00 99 |......."."......|
00000010: C7 28 31 34 29 00 28 08 1E 00 97 33 36 38 37 39 |.(14).(....36879|
00000020: 2C 38 3A 99 C7 28 35 29 00 4D 08 28 00 99 22 20 |,8:..(5).M.(.." |
00000030: 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A | ********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 72 08 |************".r.|
00000050: 32 00 99 22 20 20 20 20 20 20 20 20 20 2A 20 20 |2.." * |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 2A 22 00 97 08 3C 00 99 22 20 20 20 20 20 20 20 |*"...<.." |
00000080: 20 20 2A 20 20 20 20 20 D2 45 43 4F 56 45 52 59 | * .ECOVERY|
00000090: 20 20 20 20 20 2A 22 00 BC 08 46 00 99 22 20 20 | *"...F.." |
000000A0: 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 | * |
000000B0: 20 20 20 20 20 20 20 20 20 20 2A 22 00 E1 08 50 | *"...P|
000000C0: 00 99 22 20 20 20 20 20 20 20 20 20 2A 20 20 20 |.." * |
000000D0: 20 20 20 20 20 42 59 20 20 20 20 20 20 20 20 2A | BY *|
000000E0: 22 00 06 09 5A 00 99 22 20 20 20 20 20 20 20 20 |"...Z.." |
000000F0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000100: 20 20 20 20 2A 22 00 2B 09 64 00 99 22 20 20 20 | *".+.d.." |
00000110: 20 20 20 20 20 20 2A 20 20 20 20 D0 2E 56 2E D0 | * ..V..|
00000120: 55 54 54 45 2E 20 20 20 20 2A 22 00 50 09 6E 00 |UTTE. *".P.n.|
00000130: 99 22 20 20 20 20 20 20 20 20 20 2A 20 20 20 20 |." * |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 | *"|
00000150: 00 75 09 78 00 99 22 20 20 20 20 20 20 20 20 20 |.u.x.." |
00000160: 2A 20 20 20 20 20 28 40 29 20 31 39 38 33 20 20 |* (@) 1983 |
00000170: 20 20 20 2A 22 00 9A 09 82 00 99 22 20 20 20 20 | *"......" |
00000180: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 | * |
00000190: 20 20 20 20 20 20 20 20 2A 22 00 BF 09 8C 00 99 | *"......|
000001A0: 22 20 20 20 20 20 20 20 20 20 2A 20 20 56 49 43 |" * VIC|
000001B0: 2D 32 30 2A 2A 43 42 4D 2D 36 34 20 20 2A 22 00 |-20**CBM-64 *".|
000001C0: E6 09 98 00 99 22 20 20 20 20 20 20 20 20 20 2A |....." *|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 22 3A 99 00 33 0A 99 00 99 22 CD 45 54 |***":..3....".ET|
000001F0: 20 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 4B | DIT PROGRAMMA K|
00000200: 55 4E 54 20 55 20 4E 41 44 41 54 20 D5 20 50 45 |UNT U NADAT . PE|
00000210: 52 20 20 20 20 4F 4E 47 45 4C 55 4B 20 45 45 4E |R ONGELUK EEN|
00000220: 20 C6 C9 CC C5 20 4F 50 20 44 49 53 4B 45 54 54 | .... OP DISKETT|
00000230: 45 2C 22 00 76 0A 9A 00 99 22 28 31 35 34 30 2F |E,".v...."(1540/|
00000240: 31 35 34 31 29 20 48 45 45 46 54 20 47 45 57 49 |1541) HEEFT GEWI|
00000250: 53 54 2C 20 44 45 5A 45 20 57 45 45 52 20 20 20 |ST, DEZE WEER |
00000260: 20 20 54 45 56 4F 4F 52 53 43 48 49 4A 4E 20 48 | TEVOORSCHIJN H|
00000270: 41 4C 45 4E 2E 22 00 C1 0A 9B 00 99 22 D2 45 43 |ALEN."......".EC|
00000280: 4F 56 45 52 59 20 57 45 52 4B 54 20 4E 49 45 54 |OVERY WERKT NIET|
00000290: 2C 20 41 4C 53 20 D5 20 20 20 20 20 20 20 20 20 |, ALS . |
000002A0: 20 20 20 20 20 12 4E 41 44 41 54 20 45 45 4E 20 | .NADAT EEN |
000002B0: 46 49 4C 45 20 47 45 57 49 53 54 20 49 53 2C 20 |FILE GEWIST IS, |
000002C0: 22 00 F1 0A 9C 00 99 22 4F 50 4E 49 45 55 57 20 |"......"OPNIEUW |
000002D0: 4E 41 41 52 20 44 45 20 44 49 53 4B 20 48 45 45 |NAAR DE DISK HEE|
000002E0: 46 54 20 57 45 47 47 45 53 43 48 52 45 56 45 4E |FT WEGGESCHREVEN|
000002F0: 22 00 06 0B 9D 00 99 22 12 54 59 50 45 20 53 50 |"......".TYPE SP|
00000300: 41 54 49 45 86 22 00 19 0B A0 00 A1 41 24 3A 8B |ATIE."......A$:.|
00000310: 41 24 B2 22 22 A7 31 36 30 00 2E 0B AA 00 99 22 |A$."".160......"|
00000320: 93 22 3A 99 3A 99 3A 99 3A 89 31 34 38 30 00 3D |.":.:.:.:.1480.=|
00000330: 0B B4 00 99 22 93 22 3A 99 3A 99 3A 99 00 67 0B |....".":.:.:..g.|
00000340: BE 00 99 22 D7 48 4F 4C 45 20 44 49 53 43 20 4F |...".HOLE DISC O|
00000350: 52 20 53 49 4E 47 4C 45 20 46 49 4C 45 20 28 57 |R SINGLE FILE (W|
00000360: 2E 4F 52 2E 53 29 22 00 8E 0B C8 00 85 41 4E 24 |.OR.S)"......AN$|
00000370: 3A 8B 41 4E 24 B3 B1 22 57 22 AF 41 4E 24 B3 B1 |:.AN$.."W".AN$..|
00000380: 22 53 22 A7 99 22 91 91 22 3A 89 32 30 30 00 B0 |"S".."..":.200..|
00000390: 0B D2 00 8B 41 4E 24 B2 22 53 22 A7 99 22 C6 49 |....AN$."S"..".I|
000003A0: 4C 45 4E 41 4D 45 22 3A 85 46 49 24 3A 45 B2 31 |LENAME":.FI$:E.1|
000003B0: 00 CA 0B DC 00 99 22 C6 49 4C 45 54 59 50 45 20 |......".ILETYPE |
000003C0: 28 50 2C 53 2C 55 2C 52 29 22 00 03 0C E6 00 85 |(P,S,U,R)"......|
000003D0: 46 54 24 3A 8B 46 54 24 B3 B1 22 50 22 AF 46 54 |FT$:.FT$.."P".FT|
000003E0: 24 B3 B1 22 53 22 AF 46 54 24 B3 B1 22 55 22 AF |$.."S".FT$.."U".|
000003F0: 46 54 24 B3 B1 22 52 22 A7 99 22 91 91 22 3A 89 |FT$.."R".."..":.|
00000400: 32 33 30 00 20 0C F0 00 8B 46 54 24 B2 22 50 22 |230. ....FT$."P"|
00000410: A7 46 54 24 B2 C7 28 31 33 30 29 3A 89 32 38 30 |.FT$..(130):.280|
00000420: 00 3D 0C FA 00 8B 46 54 24 B2 22 53 22 A7 46 54 |.=....FT$."S".FT|
00000430: 24 B2 C7 28 31 32 39 29 3A 89 32 38 30 00 5A 0C |$..(129):.280.Z.|
00000440: 04 01 8B 46 54 24 B2 22 55 22 A7 46 54 24 B2 C7 |...FT$."U".FT$..|
00000450: 28 31 33 31 29 3A 89 32 38 30 00 69 0C 0E 01 46 |(131):.280.i...F|
00000460: 54 24 B2 C7 28 31 33 32 29 00 77 0C 18 01 8B 45 |T$..(132).w....E|
00000470: B2 30 A7 8D 33 38 30 00 85 0C 22 01 8B 45 B2 31 |.0..380..."..E.1|
00000480: A7 8D 38 37 30 00 93 0C 2C 01 A0 34 3A 98 35 2C |..870...,..4:.5,|
00000490: 22 56 22 00 9A 0C 36 01 A0 35 00 A0 0C 40 01 99 |"V"...6..5...@..|
000004A0: 00 A6 0C 4A 01 99 00 C6 0C 54 01 99 22 20 2A 2A |...J.....T.." **|
000004B0: C5 4E 44 20 4F 46 20 52 45 43 4F 56 45 52 59 2A |.ND OF RECOVERY*|
000004C0: 2A 22 3A 99 3A 99 00 D2 0C 5E 01 9C 3A 89 31 34 |*":.:....^..:.14|
000004D0: 38 30 00 EE 0C 68 01 8F 20 2A 57 48 4F 4C 45 20 |80...h.. *WHOLE |
000004E0: 44 49 53 43 20 52 45 43 4F 56 45 52 59 2A 00 0B |DISC RECOVERY*..|
000004F0: 0D 72 01 8F 20 2A 53 45 43 54 4F 52 3A 3D 31 3B |.r.. *SECTOR:=1;|
00000500: 20 54 52 41 43 4B 3A 3D 31 38 2A 00 18 0D 7C 01 | TRACK:=18*...|.|
00000510: 53 B2 31 3A 54 B2 31 38 00 24 0D 86 01 9F 35 2C |S.1:T.18.$....5,|
00000520: 38 2C 31 35 00 38 0D 90 01 8F 20 2A 4F 50 45 4E |8,15.8.... *OPEN|
00000530: 20 42 55 46 46 45 52 2A 00 47 0D 9A 01 9F 34 2C | BUFFER*.G....4,|
00000540: 38 2C 33 2C 22 23 22 00 70 0D A4 01 8F 20 2A 4C |8,3,"#".p.... *L|
00000550: 41 41 54 53 54 45 20 53 45 43 54 4F 52 20 47 45 |AATSTE SECTOR GE|
00000560: 48 41 44 3F 20 44 41 4E 20 4B 4C 41 41 52 21 2A |HAD? DAN KLAAR!*|
00000570: 00 7B 0D AE 01 8B 54 B2 30 A7 8E 00 8F 0D B8 01 |.{....T.0.......|
00000580: 8F 20 2A 4C 45 45 53 20 53 45 43 54 4F 52 2A 00 |. *LEES SECTOR*.|
00000590: A3 0D C2 01 98 35 2C 22 55 31 3A 22 33 3B 30 3B |.....5,"U1:"3;0;|
000005A0: 54 3B 53 00 BD 0D CC 01 8F 20 2A 56 45 52 50 4C |T;S...... *VERPL|
000005B0: 41 41 54 53 20 50 4F 49 4E 54 45 52 2A 00 CC 0D |AATS POINTER*...|
000005C0: D6 01 42 50 B2 32 3A 8D 31 33 37 30 00 F1 0D E0 |..BP.2:.1370....|
000005D0: 01 8F 20 2A 38 20 46 49 4C 45 45 4E 54 52 49 45 |.. *8 FILEENTRIE|
000005E0: 53 20 49 4E 20 45 45 4E 20 53 45 43 54 4F 52 21 |S IN EEN SECTOR!|
000005F0: 2A 00 FC 0D EA 01 81 49 B2 31 A4 38 00 17 0E F4 |*......I.1.8....|
00000600: 01 A1 23 34 2C 43 24 3A 8B 43 24 B2 22 22 A7 43 |..#4,C$:.C$."".C|
00000610: B2 30 3A 89 35 33 30 00 23 0E FE 01 43 B2 C6 28 |.0:.530.#...C..(|
00000620: 43 24 29 00 4A 0E 08 02 8F 20 2A 4C 41 41 54 20 |C$).J.... *LAAT |
00000630: 42 45 53 54 41 41 4E 44 45 20 46 49 4C 45 53 20 |BESTAANDE FILES |
00000640: 4D 45 54 20 52 55 53 54 21 2A 00 7B 0E 12 02 8B |MET RUST!*.{....|
00000650: 43 B2 31 32 39 B0 43 B2 31 33 30 B0 43 B2 31 33 |C.129.C.130.C.13|
00000660: 31 B0 43 B2 31 33 32 A7 42 50 B2 42 50 AA 33 32 |1.C.132.BP.BP.32|
00000670: 3A 8D 31 33 37 30 3A 89 36 36 30 00 8D 0E 1C 02 |:.1370:.660.....|
00000680: 42 50 B2 42 50 AA 33 3A 8D 31 33 37 30 00 B3 0E |BP.BP.3:.1370...|
00000690: 26 02 8F 20 2A 4C 45 45 53 20 45 45 52 53 54 45 |&.. *LEES EERSTE|
000006A0: 20 4B 41 52 41 4B 54 45 52 20 46 49 4C 45 4E 41 | KARAKTER FILENA|
000006B0: 41 4D 2A 00 BF 0E 30 02 A1 23 34 2C 42 55 24 00 |AM*...0..#4,BU$.|
000006C0: D5 0E 3A 02 8B 42 55 24 B2 22 22 A7 42 55 B2 30 |..:..BU$."".BU.0|
000006D0: 3A 89 35 39 30 00 E3 0E 44 02 42 55 B2 C6 28 42 |:.590...D.BU..(B|
000006E0: 55 24 29 00 F5 0E 4E 02 42 50 B2 42 50 AB 33 3A |U$)...N.BP.BP.3:|
000006F0: 8D 31 33 37 30 00 2E 0F 58 02 8F 20 2A 53 54 41 |.1370...X.. *STA|
00000700: 41 54 20 45 52 20 47 45 45 4E 20 46 49 4C 45 4E |AT ER GEEN FILEN|
00000710: 41 41 4D 2C 20 44 41 4E 20 49 53 20 45 52 20 4F |AAM, DAN IS ER O|
00000720: 4F 4B 20 47 45 45 4E 20 46 49 4C 45 21 2A 00 3C |OK GEEN FILE!*.<|
00000730: 0F 62 02 8B 42 55 B2 30 A7 36 34 30 00 52 0F 6C |.b..BU.0.640.R.l|
00000740: 02 8F 20 2A 55 50 44 41 54 45 20 42 55 46 46 45 |.. *UPDATE BUFFE|
00000750: 52 2A 00 62 0F 76 02 98 34 2C 46 54 24 3B 3A 5A |R*.b.v..4,FT$;:Z|
00000760: B2 31 00 75 0F 80 02 42 50 B2 42 50 AA 33 32 3A |.1.u...BP.BP.32:|
00000770: 8D 31 33 37 30 00 91 0F 8A 02 8F 20 2A 56 4F 4C |.1370...... *VOL|
00000780: 47 45 4E 44 45 20 46 49 4C 45 2D 45 4E 54 52 59 |GENDE FILE-ENTRY|
00000790: 2A 00 98 0F 94 02 82 49 00 E1 0F 9E 02 8F 20 2A |*......I...... *|
000007A0: 42 55 46 46 45 52 20 4F 4E 47 45 57 49 4A 5A 49 |BUFFER ONGEWIJZI|
000007B0: 47 44 3F 20 44 41 4E 20 48 4F 45 46 54 20 44 45 |GD? DAN HOEFT DE|
000007C0: 20 53 45 43 54 4F 52 20 4E 49 45 54 20 47 45 2D | SECTOR NIET GE-|
000007D0: 55 50 44 41 54 45 20 54 45 20 57 4F 52 44 45 4E |UPDATE TE WORDEN|
000007E0: 2A 00 EE 0F A8 02 8B 5A B2 30 A7 37 34 30 00 04 |*......Z.0.740..|
000007F0: 10 B2 02 8F 20 2A 55 50 44 41 54 45 20 53 45 43 |.... *UPDATE SEC|
00000800: 54 4F 52 2A 00 1D 10 BC 02 98 35 2C 22 55 32 3A |TOR*......5,"U2:|
00000810: 22 33 3B 30 3B 31 38 3B 53 3A 5A B2 30 00 33 10 |"3;0;18;S:Z.0.3.|
00000820: C6 02 8F 20 2A 45 52 52 4F 52 2D 48 41 4E 44 4C |... *ERROR-HANDL|
00000830: 45 52 2A 00 3D 10 D0 02 8D 31 34 30 30 00 63 10 |ER*.=....1400.c.|
00000840: DA 02 8F 20 2A 56 45 52 50 4C 41 41 54 53 20 50 |... *VERPLAATS P|
00000850: 4F 49 4E 54 45 52 20 4E 41 41 52 20 42 59 54 45 |OINTER NAAR BYTE|
00000860: 20 30 2A 00 72 10 E4 02 42 50 B2 30 3A 8D 31 33 | 0*.r...BP.0:.13|
00000870: 37 30 00 85 10 EE 02 8F 20 2A 4C 45 45 53 20 54 |70...... *LEES T|
00000880: 52 41 43 4B 2A 00 90 10 F8 02 A1 23 34 2C 54 24 |RACK*......#4,T$|
00000890: 00 A4 10 02 03 8B 54 24 B2 22 22 A7 54 B2 30 3A |......T$."".T.0:|
000008A0: 89 38 30 30 00 B0 10 0C 03 54 B2 C6 28 54 24 29 |.800.....T..(T$)|
000008B0: 00 C4 10 16 03 8F 20 2A 4C 45 45 53 20 53 45 43 |...... *LEES SEC|
000008C0: 54 4F 52 2A 00 CF 10 20 03 A1 23 34 2C 53 24 00 |TOR*... ..#4,S$.|
000008D0: E3 10 2A 03 8B 53 24 B2 22 22 A7 53 B2 30 3A 89 |..*..S$."".S.0:.|
000008E0: 38 34 30 00 EF 10 34 03 53 B2 C6 28 53 24 29 00 |840...4.S..(S$).|
000008F0: 02 11 3E 03 8F 20 2A 57 45 45 52 20 54 45 52 55 |..>.. *WEER TERU|
00000900: 47 2A 00 0B 11 48 03 89 34 33 30 00 28 11 52 03 |G*...H..430.(.R.|
00000910: 8F 20 2A 53 49 4E 47 4C 45 20 46 49 4C 45 20 52 |. *SINGLE FILE R|
00000920: 45 43 4F 56 45 52 59 2A 00 46 11 5C 03 8F 20 2A |ECOVERY*.F.\.. *|
00000930: 53 45 43 54 4F 52 3A 3D 31 3B 20 54 52 41 43 4B |SECTOR:=1; TRACK|
00000940: 3A 3D 31 38 3B 2A 00 53 11 66 03 53 B2 31 3A 54 |:=18;*.S.f.S.1:T|
00000950: B2 31 38 00 5F 11 70 03 9F 35 2C 38 2C 31 35 00 |.18._.p..5,8,15.|
00000960: 73 11 7A 03 8F 20 2A 4F 50 45 4E 20 42 55 46 46 |s.z.. *OPEN BUFF|
00000970: 45 52 2A 00 82 11 84 03 9F 34 2C 38 2C 33 2C 22 |ER*......4,8,3,"|
00000980: 23 22 00 BC 11 8E 03 8F 20 2A 4C 41 41 54 53 54 |#"...... *LAATST|
00000990: 45 20 53 45 43 54 4F 52 20 47 45 48 41 44 20 4F |E SECTOR GEHAD O|
000009A0: 46 20 46 49 4C 45 20 47 45 56 4F 4E 44 45 4E 3F |F FILE GEVONDEN?|
000009B0: 20 44 41 4E 20 4B 4C 41 41 52 21 2A 00 CF 11 98 | DAN KLAAR!*....|
000009C0: 03 8B 54 B2 30 B0 47 45 B2 31 A7 31 33 34 30 00 |..T.0.GE.1.1340.|
000009D0: E3 11 A2 03 8F 20 2A 4C 45 45 53 20 53 45 43 54 |..... *LEES SECT|
000009E0: 4F 52 2A 00 F7 11 AC 03 98 35 2C 22 55 31 3A 22 |OR*......5,"U1:"|
000009F0: 33 3B 30 3B 54 3B 53 00 06 12 B6 03 42 50 B2 32 |3;0;T;S.....BP.2|
00000A00: 3A 8D 31 33 37 30 00 11 12 C0 03 81 49 B2 31 A4 |:.1370......I.1.|
00000A10: 38 00 23 12 CA 03 42 50 B2 42 50 AA 33 3A 8D 31 |8.#...BP.BP.3:.1|
00000A20: 33 37 30 00 2D 12 D4 03 42 24 B2 22 22 00 43 12 |370.-...B$."".C.|
00000A30: DE 03 8F 20 2A 4C 45 45 53 20 46 49 4C 45 4E 41 |... *LEES FILENA|
00000A40: 4D 45 2A 00 4F 12 E8 03 81 4A B2 31 A4 31 36 00 |ME*.O....J.1.16.|
00000A50: 72 12 F2 03 8F 20 2A 4C 45 45 53 20 4B 41 52 41 |r.... *LEES KARA|
00000A60: 4B 54 45 52 20 56 41 4E 20 46 49 4C 45 4E 41 4D |KTER VAN FILENAM|
00000A70: 45 2A 00 7D 12 FC 03 A1 23 34 2C 41 24 00 A3 12 |E*.}....#4,A$...|
00000A80: 06 04 8F 20 2A 53 48 49 46 54 45 44 20 53 50 41 |... *SHIFTED SPA|
00000A90: 43 45 53 20 44 4F 45 4E 20 4E 49 45 54 20 4D 45 |CES DOEN NIET ME|
00000AA0: 45 21 2A 00 BC 12 10 04 8B 41 24 B3 B1 C7 28 31 |E!*......A$...(1|
00000AB0: 36 30 29 A7 42 24 B2 42 24 AA 41 24 00 C3 12 1A |60).B$.B$.A$....|
00000AC0: 04 82 4A 00 D5 12 24 04 42 50 B2 42 50 AB 33 3A |..J...$.BP.BP.3:|
00000AD0: 8D 31 33 37 30 00 EC 12 2E 04 8F 20 2A 46 49 4C |.1370...... *FIL|
00000AE0: 45 20 47 45 56 4F 4E 44 45 4E 3F 2A 00 FE 12 38 |E GEVONDEN?*...8|
00000AF0: 04 8B 42 24 B3 B1 46 49 24 A7 31 31 33 30 00 07 |..B$..FI$.1130..|
00000B00: 13 42 04 47 45 B2 31 00 2F 13 4C 04 8F 20 2A 55 |.B.GE.1./.L.. *U|
00000B10: 50 44 41 54 45 20 42 55 46 46 45 52 20 2B 20 53 |PDATE BUFFER + S|
00000B20: 50 52 49 4E 47 20 55 49 54 20 4C 4F 4F 50 2A 00 |PRING UIT LOOP*.|
00000B30: 3F 13 56 04 98 34 2C 46 54 24 3B 3A 49 B2 38 00 |?.V..4,FT$;:I.8.|
00000B40: 5B 13 60 04 8F 20 2A 56 4F 4C 47 45 4E 44 45 20 |[.`.. *VOLGENDE |
00000B50: 46 49 4C 45 2D 45 4E 54 52 59 2A 00 6E 13 6A 04 |FILE-ENTRY*.n.j.|
00000B60: 42 50 B2 42 50 AA 33 32 3A 8D 31 33 37 30 00 75 |BP.BP.32:.1370.u|
00000B70: 13 74 04 82 49 00 91 13 7E 04 8F 20 2A 46 49 4C |.t..I...~.. *FIL|
00000B80: 45 20 4E 49 45 54 20 47 45 56 4F 4E 44 45 4E 3F |E NIET GEVONDEN?|
00000B90: 2A 00 A0 13 88 04 8B 47 45 B2 30 A7 31 32 32 30 |*......GE.0.1220|
00000BA0: 00 B6 13 92 04 8F 20 2A 55 50 44 41 54 45 20 53 |...... *UPDATE S|
00000BB0: 45 43 54 4F 52 2A 00 CB 13 9C 04 98 35 2C 22 55 |ECTOR*......5,"U|
00000BC0: 32 3A 22 33 3B 30 3B 31 38 3B 53 00 E1 13 A6 04 |2:"3;0;18;S.....|
00000BD0: 8F 20 2A 45 52 52 4F 52 20 48 41 4E 44 4C 45 52 |. *ERROR HANDLER|
00000BE0: 2A 00 EB 13 B0 04 8D 31 34 30 30 00 11 14 BA 04 |*......1400.....|
00000BF0: 8F 20 2A 56 45 52 50 4C 41 41 54 53 20 50 4F 49 |. *VERPLAATS POI|
00000C00: 4E 54 45 52 20 4E 41 41 52 20 42 59 54 45 20 30 |NTER NAAR BYTE 0|
00000C10: 2A 00 20 14 C4 04 42 50 B2 30 3A 8D 31 33 37 30 |*. ...BP.0:.1370|
00000C20: 00 33 14 CE 04 8F 20 2A 4C 45 45 53 20 54 52 41 |.3.... *LEES TRA|
00000C30: 43 4B 2A 00 3E 14 D8 04 A1 23 34 2C 54 24 00 53 |CK*.>....#4,T$.S|
00000C40: 14 E2 04 8B 54 24 B2 22 22 A7 54 B2 30 3A 89 31 |....T$."".T.0:.1|
00000C50: 32 38 30 00 5F 14 EC 04 54 B2 C6 28 54 24 29 00 |280._...T..(T$).|
00000C60: 73 14 F6 04 8F 20 2A 4C 45 45 53 20 53 45 43 54 |s.... *LEES SECT|
00000C70: 4F 52 2A 00 7E 14 00 05 A1 23 34 2C 53 24 00 93 |OR*.~....#4,S$..|
00000C80: 14 0A 05 8B 53 24 B2 22 22 A7 53 B2 30 3A 89 31 |....S$."".S.0:.1|
00000C90: 33 32 30 00 9F 14 14 05 53 B2 C6 28 53 24 29 00 |320.....S..(S$).|
00000CA0: B2 14 1E 05 8F 20 2A 57 45 45 52 20 54 45 52 55 |..... *WEER TERU|
00000CB0: 47 2A 00 BB 14 28 05 89 39 32 30 00 E3 14 32 05 |G*...(..920...2.|
00000CC0: 8F 20 2A 46 49 4C 45 20 4E 49 45 54 20 41 41 4E |. *FILE NIET AAN|
00000CD0: 57 45 5A 49 47 20 4F 50 20 44 49 53 4B 45 54 54 |WEZIG OP DISKETT|
00000CE0: 45 3F 2A 00 01 15 3C 05 8B 47 45 B2 30 A7 99 22 |E?*...<..GE.0.."|
00000CF0: C6 49 4C 45 20 4E 4F 54 20 50 52 45 53 45 4E 54 |.ILE NOT PRESENT|
00000D00: 22 00 07 15 46 05 8E 00 21 15 50 05 8F 20 2A 56 |"...F...!.P.. *V|
00000D10: 45 52 50 4C 41 41 54 53 20 50 4F 49 4E 54 45 52 |ERPLAATS POINTER|
00000D20: 2A 00 33 15 5A 05 98 35 2C 22 42 2D 50 3A 22 33 |*.3.Z..5,"B-P:"3|
00000D30: 3B 42 50 00 39 15 64 05 8E 00 56 15 6E 05 8F 20 |;BP.9.d...V.n.. |
00000D40: 2A 41 4C 4C 45 53 20 4F 2E 4B 2E 20 4D 45 54 20 |*ALLES O.K. MET |
00000D50: 44 49 53 4B 3F 2A 00 6C 15 78 05 8F 20 2A 45 52 |DISK?*.l.x.. *ER|
00000D60: 52 4F 52 20 52 4F 55 54 49 4E 45 2A 00 80 15 82 |ROR ROUTINE*....|
00000D70: 05 84 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |..5,EN,EM$,ET,ES|
00000D80: 00 8C 15 8C 05 8B 45 4E B2 30 A7 8E 00 A2 15 96 |......EN.0......|
00000D90: 05 8F 20 2A 4F 45 50 53 2C 20 46 4F 55 54 4A 45 |.. *OEPS, FOUTJE|
00000DA0: 21 2A 00 C0 15 A0 05 99 22 C4 49 53 4B 20 45 52 |!*......".ISK ER|
00000DB0: 52 4F 52 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 4E |ROR"EN,EM$,ET,EN|
00000DC0: 00 C6 15 AA 05 80 00 00 16 B4 05 8F 20 2A 44 49 |............ *DI|
00000DD0: 54 20 49 53 20 41 4E 41 4C 4F 4F 47 20 41 41 4E |T IS ANALOOG AAN|
00000DE0: 20 2D 44 49 52 2D 20 4F 50 20 44 45 20 44 45 4D | -DIR- OP DE DEM|
00000DF0: 4F 20 44 49 53 4B 45 54 54 45 20 31 35 34 31 2A |O DISKETTE 1541*|
00000E00: 00 17 16 BE 05 8F 20 2A 52 45 41 44 20 44 49 52 |...... *READ DIR|
00000E10: 45 43 54 4F 52 59 2A 00 23 16 C8 05 9F 32 2C 38 |ECTORY*.#....2,8|
00000E20: 2C 31 35 00 2D 16 D2 05 89 31 38 31 30 00 3D 16 |,15.-....1810.=.|
00000E30: DC 05 9F 31 2C 38 2C 30 2C 22 24 30 22 00 4B 16 |...1,8,0,"$0".K.|
00000E40: E6 05 A1 23 31 2C 41 24 2C 42 24 00 59 16 F0 05 |...#1,A$,B$.Y...|
00000E50: A1 23 31 2C 41 24 2C 42 24 00 67 16 FA 05 A1 23 |.#1,A$,B$.g....#|
00000E60: 31 2C 41 24 2C 42 24 00 6F 16 04 06 43 B2 30 00 |1,A$,B$.o...C.0.|
00000E70: 83 16 0E 06 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 |.....A$.."".C..(|
00000E80: 41 24 29 00 9D 16 18 06 8B 42 24 B3 B1 22 22 A7 |A$)......B$.."".|
00000E90: 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 00 B8 16 |C.C..(B$).256...|
00000EA0: 22 06 99 22 12 22 CA 28 C4 28 43 29 2C 32 29 3B |"..".".(.(C),2);|
00000EB0: A3 33 29 3B 22 86 22 3B 00 CF 16 2C 06 A1 23 31 |.3);".";...,..#1|
00000EC0: 2C 42 24 3A 8B 53 54 B3 B1 30 A7 31 36 37 30 00 |,B$:.ST..0.1670.|
00000ED0: E3 16 36 06 8B 42 24 B3 B1 C7 28 33 34 29 A7 31 |..6..B$...(34).1|
00000EE0: 35 38 30 00 04 17 40 06 A1 23 31 2C 42 24 3A 8B |580...@..#1,B$:.|
00000EF0: 42 24 B3 B1 C7 28 33 34 29 A7 99 42 24 3B 3A 89 |B$...(34)..B$;:.|
00000F00: 31 36 30 30 00 1E 17 4A 06 A1 23 31 2C 42 24 3A |1600...J..#1,B$:|
00000F10: 8B 42 24 B2 C7 28 33 32 29 A7 31 36 31 30 00 2F |.B$..(32).1610./|
00000F20: 17 54 06 99 A3 31 38 29 3B 3A 43 24 B2 22 22 00 |.T...18);:C$."".|
00000F30: 50 17 5E 06 43 24 B2 43 24 AA 42 24 3A A1 23 31 |P.^.C$.C$.B$:.#1|
00000F40: 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 31 36 33 30 |,B$:.B$.."".1630|
00000F50: 00 60 17 68 06 99 22 12 22 C8 28 43 24 2C 33 29 |.`.h..".".(C$,3)|
00000F60: 00 76 17 72 06 A1 54 24 3A 8B 54 24 B3 B1 22 22 |.v.r..T$:.T$..""|
00000F70: A7 8D 31 36 39 30 00 85 17 7C 06 8B 53 54 B2 30 |..1690...|..ST.0|
00000F80: A7 31 35 32 30 00 98 17 86 06 99 22 42 4C 4F 43 |.1520......"BLOC|
00000F90: 4B 53 20 46 52 45 45 22 00 A5 17 90 06 A0 31 3A |KS FREE"......1:|
00000FA0: 89 31 38 31 30 00 B6 17 9A 06 8B 54 24 B2 22 51 |.1810......T$."Q|
00000FB0: 22 A7 A0 31 3A 80 00 CA 17 A4 06 A1 54 24 3A 8B |"..1:.......T$:.|
00000FC0: 54 24 B2 22 22 A7 31 36 39 30 00 D0 17 AE 06 8E |T$."".1690......|
00000FD0: 00 E6 17 B8 06 8F 20 2A 44 49 53 4B 20 43 4F 4D |...... *DISK COM|
00000FE0: 4D 41 4E 44 4F 2A 00 F6 17 C2 06 43 24 B2 22 22 |MANDO*.....C$.""|
00000FF0: 3A 99 22 3E 22 3B 00 0A 18 CC 06 A1 42 24 3A 8B |:.">";......B$:.|
00001000: 42 24 B2 22 22 A7 31 37 34 30 00 22 18 D6 06 99 |B$."".1740."....|
00001010: 42 24 3B 3A 8B 42 24 B2 C7 28 31 33 29 A7 31 37 |B$;:.B$..(13).17|
00001020: 37 30 00 35 18 E0 06 43 24 B2 43 24 AA 42 24 3A |70.5...C$.C$.B$:|
00001030: 89 31 37 34 30 00 3F 18 EA 06 98 32 2C 43 24 00 |.1740.?....2,C$.|
00001040: 49 18 F4 06 99 22 12 22 3B 00 69 18 FE 06 A1 23 |I....".";.i....#|
00001050: 32 2C 41 24 3A 99 41 24 3B 3A 8B 41 24 B3 B1 C7 |2,A$:.A$;:.A$...|
00001060: 28 31 33 29 89 31 37 39 30 00 72 18 08 07 99 22 |(13).1790.r...."|
00001070: 86 22 00 85 18 12 07 99 22 C4 3D 44 49 52 45 43 |."......".=DIREC|
00001080: 54 4F 52 59 22 00 9C 18 1C 07 99 22 3E 3D 44 49 |TORY"......">=DI|
00001090: 53 4B 20 43 4F 4D 4D 41 4E 44 4F 22 00 B2 18 26 |SK COMMANDO"...&|
000010A0: 07 99 22 D1 3D 51 55 49 54 20 50 52 4F 47 52 41 |..".=QUIT PROGRA|
000010B0: 4D 22 00 C7 18 30 07 99 22 D3 3D 44 49 53 4B 20 |M"...0..".=DISK |
000010C0: 53 54 41 54 55 53 22 00 D8 18 3A 07 8F 20 2A 4C |STATUS"...:.. *L|
000010D0: 45 55 4B 20 48 45 3F 2A 00 EA 18 44 07 99 22 D2 |EUK HE?*...D..".|
000010E0: 2D 52 45 43 4F 56 45 52 59 22 00 FE 18 4E 07 A1 |-RECOVERY"...N..|
000010F0: 41 24 3A 8B 41 24 B2 22 22 A7 31 38 37 30 00 0F |A$:.A$."".1870..|
00001100: 19 58 07 8B 41 24 B2 22 44 22 A7 31 35 30 30 00 |.X..A$."D".1500.|
00001110: 2E 19 62 07 8B 41 24 B2 22 2E 22 B0 41 24 B2 22 |..b..A$.".".A$."|
00001120: 3E 22 B0 41 24 B2 22 3E 22 A7 31 37 32 30 00 3C |>".A$.">".1720.<|
00001130: 19 6C 07 8B 41 24 B2 22 51 22 A7 80 00 4D 19 76 |.l..A$."Q"...M.v|
00001140: 07 8B 41 24 B2 22 53 22 A7 31 37 38 30 00 6B 19 |..A$."S".1780.k.|
00001150: 80 07 8F 20 2A 52 55 4E 20 43 4C 45 41 52 54 20 |... *RUN CLEART |
00001160: 56 41 52 49 41 42 45 4C 45 4E 2A 00 7C 19 8A 07 |VARIABELEN*.|...|
00001170: 8B 41 24 B2 22 52 22 A7 8A 31 38 30 00 86 19 94 |.A$."R"..180....|
00001180: 07 89 31 38 37 30 00 8C 19 9E 07 80 00 00 00 FF |..1870..........|
00001190: C7 85 |.. |
......."."......G(14).(....36879,8:.G(5)
.M.(.." ********************".R.
2.." * *"...<..
" * RECOVERY *"...F.."
* *"...P.."
* BY *"...Z.."
* *".+.D.." *
P.V.PUTTE. *".P.N.." *
*".U.X.." * (@
) 1983 *"......" *
*"......" * VIC-20**CBM
-64 *"......" *****************
***":..3...."MET DIT PROGRAMMA KUNT U NA
DAT U PER ONGELUK EEN FILE OP DISKETT
E,".V...."(1540/1541) HEEFT GEWIST, DEZE
WEER TEVOORSCHIJN HALEN.".A...."REC
OVERY WERKT NIET, ALS U .NA
DAT EEN FILE GEWIST IS, "......"OPNIEUW
NAAR DE DISK HEEFT WEGGESCHREVEN"......"
.TYPE SPATIE."... ..A$:.A$."".160......"
.":.:.:.:.1480.=....".":.:.:..G...."WHOL
E DISC OR SINGLE FILE (W.OR.S)"...H..AN$
:.AN$.."W".AN$.."S".."..":.200...R..AN$.
"S".."FILENAME":.FI$:E.1.J...."FILETYPE
(P,S,U,R)"......FT$:.FT$.."P".FT$.."S".F
T$.."U".FT$.."R".."..":.230. ....FT$."P"
.FT$.G(130):.280.=....FT$."S".FT$.G(129)
:.280.Z....FT$."U".FT$.G(131):.280.I...F
T$.G(132).W....E.0..380..."..E.1..870...
,. 4:.5,"V"...6. 5. .@.....J...F.T.." **
END OF RECOVERY**":.:..R.^..:.1480...H..
*WHOLE DISC RECOVERY*...R.. *SECTOR:=1;
TRACK:=18*...|.S.1:T.18.$....5,8,15.8..
.. *OPEN BUFFER*.G....4,8,3,"#".P.... *L
AATSTE SECTOR GEHAD? DAN KLAAR!*.{....T.
0........ *LEES SECTOR*...B..5,"U1:"3;0;
T;S...L.. *VERPLAATS POINTER*.L.V.BP.2:.
1370...... *8 FILEENTRIES IN EEN SECTOR!
*......I.1.8......#4,C$:.C$."".C.0:.530.
#...C.F(C$).J.... *LAAT BESTAANDE FILES
MET RUST!*.{....C.129.C.130.C.131.C.132.
BP.BP.32:.1370:.660.....BP.BP.3:.1370...
&.. *LEES EERSTE KARAKTER FILENAAM*...0.
.#4,BU$.U.:..BU$."".BU.0:.590...D.BU.F(B
U$)...N.BP.BP.3:.1370...X.. *STAAT ER GE
EN FILENAAM, DAN IS ER OOK GEEN FILE!*.<
.B..BU.0.640.R.L.. *UPDATE BUFFER*.B.V..
4,FT$;:Z.1.U...BP.BP.32:.1370...... *VOL
GENDE FILE-ENTRY*......I...... *BUFFER O
NGEWIJZIGD? DAN HOEFT DE SECTOR NIET GE-
UPDATE TE WORDEN*......Z.0.740...... *UP
DATE SECTOR*......5,"U2:"3;0;18;S:Z.0.3.
F.. *ERROR-HANDLER*.=.P..1400.C.Z.. *VER
PLAATS POINTER NAAR BYTE 0*.R...BP.0:.13
70...... *LEES TRACK*......#4,T$......T$
."".T.0:.800.....T.F(T$).D.... *LEES SEC
TOR*.O. ..#4,S$...*..S$."".S.0:.840...4.
S.F(S$)...>.. *WEER TERUG*...H..430.(.R.
. *SINGLE FILE RECOVERY*.F.\.. *SECTOR:=
1; TRACK:=18;*.S.F.S.1:T.18._.P..5,8,15.
S.Z.. *OPEN BUFFER*......4,8,3,"#"......
*LAATSTE SECTOR GEHAD OF FILE GEVONDEN?
DAN KLAAR!*.O....T.0.GE.1.1340...... *L
EES SECTOR*......5,"U1:"3;0;T;S.....BP.2
:.1370......I.1.8.#.J.BP.BP.3:.1370.-.T.
B$."".C.... *LEES FILENAME*.O....J.1.16.
R.... *LEES KARAKTER VAN FILENAME*.}....
#4,A$...... *SHIFTED SPACES DOEN NIET ME
E!*......A$..G(160).B$.B$.A$.C....J.U.$.
BP.BP.3:.1370...... *FILE GEVONDEN?*...8
..B$..FI$.1130...B.GE.1./.L.. *UPDATE BU
FFER + SPRING UIT LOOP*.?.V..4,FT$;:I.8.
[.`.. *VOLGENDE FILE-ENTRY*.N.J.BP.BP.32
:.1370.U.T..I...~.. *FILE NIET GEVONDEN?
*. ....GE.0.1220...... *UPDATE SECTOR*.K
....5,"U2:"3;0;18;S...... *ERROR HANDLER
*......1400...... *VERPLAATS POINTER NAA
R BYTE 0*. .D.BP.0:.1370.3.N.. *LEES TRA
CK*.>.X..#4,T$.S....T$."".T.0:.1280._...
T.F(T$).S.... *LEES SECTOR*.~....#4,S$..
....S$."".S.0:.1320.....S.F(S$)...... *W
EER TERUG*...(..920...2.. *FILE NIET AAN
WEZIG OP DISKETTE?*...<..GE.0.."FILE NOT
PRESENT"...F...!.P.. *VERPLAATS POINTER
*.3.Z..5,"B-P:"3;BP.9.D...V.N.. *ALLES O
.K. MET DISK?*.L.X.. *ERROR ROUTINE*....
..5,EN,EM$,ET,ES......EN.0........ *OEPS
, FOUTJE!*... .."DISK ERROR"EN,EM$,ET,EN
.F.......... *DIT IS ANALOOG AAN -DIR- O
P DE DEMO DISKETTE 1541*...... *READ DIR
ECTORY*.#.H..2,8,15.-.R..1810.=....1,8,0
,"$0".K....#1,A$,B$.Y....#1,A$,B$.G....#
1,A$,B$.O...C.0......A$.."".C.F(A$).....
.B$.."".C.C.F(B$).256...".."."J(D(C),2);
.3);".";.O.,..#1,B$:.ST..0.1670...6..B$.
.G(34).1580...@..#1,B$:.B$..G(34)..B$;:.
1600...J..#1,B$:.B$.G(32).1610./.T...18)
;:C$."".P.^.C$.C$.B$:.#1,B$:.B$.."".1630
.`.H.."."H(C$,3).V.R..T$:.T$..""..1690..
.|..ST.0.1520......"BLOCKS FREE"..... 1:
.1810......T$."Q". 1:..J....T$:.T$."".16
90.P.......... *DISK COMMANDO*...B.C$.""
:.">";...L..B$:.B$."".1740.".V..B$;:.B$.
G(13).1770.5...C$.C$.B$:.1740.?....2,C$.
I....".";.I....#2,A$:.A$;:.A$..G(13).179
0.R...."."......"D=DIRECTORY"......">=DI
SK COMMANDO"...&.."Q=QUIT PROGRAM".G.0..
"S=DISK STATUS".X.:.. *LEUK HE?*...D.."R
-RECOVERY"...N..A$:.A$."".1870...X..A$."
D".1500...B..A$.".".A$.">".A$.">".1720.<
.L..A$."Q"...M.V..A$."S".1780.K.... *RUN
CLEART VARIABELEN*.|....A$."R"..180....
..1870..........G.
> CLICK IMAGE PREVIEW FOR FULL MODAL