Multiple names: RETTER, UNSCRATCH
FILE INFORMATION
FILENAME(S):
• RETTER<br>• UNSCRATCH
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-10-20 00:33:21
APPEARS ON: 3 disk(s)
FILE HASH
001f47a973bd5d8bba04554b64926f56135fdacc7604fcb6f0cc4d31a4510b64
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| N ED DAD I | RETTER | PRG | Martin Ahman | 32 | 0 | DOWNLOAD FILE |
| OO7 CODE | RETTER | PRG | Martin Ahman | 4 | 0 | DOWNLOAD FILE |
| SCHUSTER COPY | UNSCRATCH | PRG | Treasure Chest - LehrerMIL | 16 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 8F 20 20 20 49 4E 49 54 49 41 |....d.. INITIA|
00000010: 4C 49 5A 41 54 49 4F 4E 00 30 08 66 00 9C 3A 86 |LIZATION.0.f..:.|
00000020: 20 44 24 28 32 35 35 29 2C 20 45 24 28 33 31 29 | D$(255), E$(31)|
00000030: 00 48 08 67 00 97 35 33 32 38 30 2C 31 35 3A 97 |.H.g..53280,15:.|
00000040: 35 33 32 38 31 2C 31 32 00 53 08 68 00 97 36 34 |53281,12.S.h..64|
00000050: 36 2C 30 00 6B 08 69 00 4E 4C 24 B2 C7 28 30 29 |6,0.k.i.NL$..(0)|
00000060: 3A 44 54 B2 31 38 3A 44 42 B2 31 00 80 08 6B 00 |:DT.18:DB.1...k.|
00000070: 8F 20 20 20 48 4F 55 53 45 4B 45 45 50 49 4E 47 |. HOUSEKEEPING|
00000080: 00 99 08 6D 00 99 22 93 43 4F 4D 50 4C 45 54 45 |...m..".COMPLETE|
00000090: 20 4E 41 4D 45 20 4F 46 22 00 B3 08 6E 00 85 22 | NAME OF"...n.."|
000000A0: 44 45 4C 45 54 45 44 20 50 52 4F 47 52 41 4D 22 |DELETED PROGRAM"|
000000B0: 3B 50 24 00 BC 08 6F 00 99 22 93 22 00 CF 08 71 |;P$...o.."."...q|
000000C0: 00 8F 20 20 20 4F 50 45 4E 20 46 49 4C 45 53 00 |.. OPEN FILES.|
000000D0: E6 08 73 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |..s..15,8,15,"I0|
000000E0: 22 3A 8D 31 36 30 00 FB 08 74 00 9F 35 2C 38 2C |":.160...t..5,8,|
000000F0: 35 2C 22 23 31 22 3A 8D 31 36 30 00 10 09 75 00 |5,"#1":.160...u.|
00000100: 9F 36 2C 38 2C 36 2C 22 23 32 22 3A 8D 31 36 30 |.6,8,6,"#2":.160|
00000110: 00 19 09 76 00 8D 31 35 30 00 3F 09 78 00 8F 20 |...v..150.?.x.. |
00000120: 20 20 4C 4F 4F 50 20 5A 20 2D 20 45 41 43 48 20 | LOOP Z - EACH |
00000130: 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 00 |DIRECTORY ENTRY.|
00000140: 62 09 79 00 8F 20 20 20 4C 4F 4F 50 20 59 20 2D |b.y.. LOOP Y -|
00000150: 20 53 54 4F 52 45 20 49 4E 20 41 52 52 41 59 20 | STORE IN ARRAY |
00000160: 45 24 00 73 09 7B 00 81 5A B2 30 A4 37 3A 4E 24 |E$.s.{..Z.0.7:N$|
00000170: B2 22 22 00 7F 09 7C 00 81 59 B2 30 A4 33 31 00 |.""...|..Y.0.31.|
00000180: 96 09 7D 00 45 24 28 59 29 B2 44 24 28 5A AC 33 |..}.E$(Y).D$(Z.3|
00000190: 32 AA 59 29 3A 82 00 AC 09 7F 00 8F 20 20 20 54 |2.Y):....... T|
000001A0: 45 53 54 20 50 47 4D 20 4E 41 4D 45 00 C6 09 81 |EST PGM NAME....|
000001B0: 00 81 58 B2 35 A4 32 30 3A 4E 24 B2 4E 24 AA 45 |..X.5.20:N$.N$.E|
000001C0: 24 28 58 29 3A 82 00 E0 09 82 00 8B 50 24 B2 CA |$(X):.......P$..|
000001D0: 28 4E 24 2C 31 2C C3 28 50 24 29 29 A7 31 33 38 |(N$,1,.(P$)).138|
000001E0: 00 E6 09 83 00 82 00 F7 09 84 00 8B 44 42 B3 B1 |............DB..|
000001F0: 32 35 35 A7 31 31 38 00 0E 0A 85 00 99 3A 99 50 |255.118......:.P|
00000200: 24 3B 22 20 4E 4F 54 20 46 4F 55 4E 44 22 00 1E |$;" NOT FOUND"..|
00000210: 0A 86 00 A0 35 3A A0 36 3A A0 31 35 3A 80 00 41 |....5:.6:.15:..A|
00000220: 0A 88 00 8F 20 20 20 43 48 41 4E 47 45 20 54 59 |.... CHANGE TY|
00000230: 50 45 20 26 20 57 52 49 54 45 20 42 55 46 46 45 |PE & WRITE BUFFE|
00000240: 52 00 4F 0A 8A 00 46 24 B2 C7 28 31 33 30 29 00 |R.O...F$..(130).|
00000250: 63 0A 8B 00 44 24 28 5A AC 33 32 AA 32 29 B2 46 |c...D$(Z.32.2).F|
00000260: 24 3A 99 00 80 0A 8C 00 99 A6 31 30 29 3B 22 57 |$:........10);"W|
00000270: 52 49 54 49 4E 47 20 22 3B 54 4B 3B 53 43 3A 99 |RITING ";TK;SC:.|
00000280: 00 97 0A 8D 00 98 31 35 2C 22 42 2D 50 22 3B 36 |......15,"B-P";6|
00000290: 3B 30 3A 8D 31 36 30 00 AD 0A 8E 00 81 57 B2 30 |;0:.160......W.0|
000002A0: A4 32 35 35 3A 57 24 B2 44 24 28 57 29 00 C2 0A |.255:W$.D$(W)...|
000002B0: 8F 00 98 36 2C 57 24 3B 3A 99 C6 28 57 24 29 3B |...6,W$;:..(W$);|
000002C0: 3A 82 00 CD 0A 90 00 99 22 A0 22 3A 99 00 E5 0A |:.......".":....|
000002D0: 91 00 98 31 35 2C 22 55 32 3A 22 3B 36 3B 30 3B |...15,"U2:";6;0;|
000002E0: 54 4B 3B 53 43 00 F3 0A 92 00 8D 31 36 30 3A 89 |TK;SC......160:.|
000002F0: 31 36 35 00 11 0B 94 00 8F 20 20 20 52 45 41 44 |165...... READ|
00000300: 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F | TRACK AND SECTO|
00000310: 52 00 2E 0B 96 00 98 31 35 2C 22 55 31 3A 22 3B |R......15,"U1:";|
00000320: 35 3B 30 3B 44 54 3B 44 42 3A 8D 31 36 30 00 4B |5;0;DT;DB:.160.K|
00000330: 0B 97 00 99 A6 31 30 29 3B 22 52 45 41 44 49 4E |.....10);"READIN|
00000340: 47 20 22 3B 44 54 3B 44 42 3A 99 00 58 0B 98 00 |G ";DT;DB:..X...|
00000350: 81 58 B2 30 A4 32 35 35 00 71 0B 99 00 A1 23 35 |.X.0.255.q....#5|
00000360: 2C 57 24 3A 8B 57 24 B2 22 22 A7 57 24 B2 4E 4C |,W$:.W$."".W$.NL|
00000370: 24 00 88 0B 9A 00 44 24 28 58 29 B2 57 24 3A 99 |$.....D$(X).W$:.|
00000380: C6 28 57 24 29 3B 3A 82 00 9C 0B 9B 00 54 4B B2 |.(W$);:......TK.|
00000390: 44 54 3A 53 43 B2 44 42 3A 99 3A 99 00 BA 0B 9C |DT:SC.DB:.:.....|
000003A0: 00 44 54 B2 C6 28 44 24 28 30 29 29 3A 44 42 B2 |.DT..(D$(0)):DB.|
000003B0: C6 28 44 24 28 31 29 29 3A 8E 00 D4 0B 9E 00 8F |.(D$(1)):.......|
000003C0: 20 20 20 43 48 45 43 4B 20 44 49 53 4B 20 53 54 | CHECK DISK ST|
000003D0: 41 54 55 53 00 E9 0B A0 00 84 31 35 2C 45 4E 2C |ATUS......15,EN,|
000003E0: 45 4D 24 2C 45 54 2C 45 53 00 08 0C A1 00 99 2C |EM$,ET,ES......,|
000003F0: 22 53 54 41 54 55 53 20 22 3B 45 4E 3B 45 4D 24 |"STATUS ";EN;EM$|
00000400: 3B 45 54 3B 45 53 3A 99 00 0E 0C A2 00 8E 00 1F |;ET;ES:.........|
00000410: 0C A3 00 8F 20 20 20 41 4C 4C 20 44 4F 4E 45 00 |.... ALL DONE.|
00000420: 2D 0C A5 00 A0 35 3A A0 36 3A A0 31 35 00 3C 0C |-....5:.6:.15.<.|
00000430: A6 00 8B 45 4E B3 B1 30 A7 31 36 38 00 52 0C A7 |...EN..0.168.R..|
00000440: 00 99 2C 22 52 45 43 4F 56 45 52 59 20 44 4F 4E |..,"RECOVERY DON|
00000450: 45 22 00 58 0C A8 00 80 00 7B 0C AE 00 8F 20 20 |E".X.....{.... |
00000460: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 4E |THIS PROGRAM CAN|
00000470: 20 42 45 20 55 53 45 44 20 54 4F 00 A0 0C AF 00 | BE USED TO.....|
00000480: 8F 20 20 52 45 43 4F 56 45 52 20 41 4E 59 20 50 |. RECOVER ANY P|
00000490: 52 4F 47 52 41 4D 20 4F 4E 20 41 20 44 49 53 4B |ROGRAM ON A DISK|
000004A0: 00 C5 0C B0 00 8F 20 20 54 48 41 54 20 53 54 49 |...... THAT STI|
000004B0: 4C 4C 20 48 41 53 20 41 20 45 4E 54 52 59 20 49 |LL HAS A ENTRY I|
000004C0: 4E 20 54 48 45 00 EA 0C B1 00 8F 20 20 44 49 52 |N THE...... DIR|
000004D0: 45 43 54 4F 52 59 20 41 4E 44 20 54 48 45 20 41 |ECTORY AND THE A|
000004E0: 43 54 55 41 4C 20 44 41 54 41 00 0C 0D B2 00 8F |CTUAL DATA......|
000004F0: 20 20 48 41 53 20 4E 4F 54 20 42 45 45 4E 20 57 | HAS NOT BEEN W|
00000500: 52 49 54 54 45 4E 20 4F 56 45 52 2E 00 20 0D B4 |RITTEN OVER.. ..|
00000510: 00 8F 20 20 4D 45 54 48 4F 44 4F 4C 4F 47 59 3A |.. METHODOLOGY:|
00000520: 00 26 0D B5 00 8F 00 4C 0D B6 00 8F 20 20 31 2E |.&.....L.... 1.|
00000530: 20 20 45 58 45 43 55 54 45 20 50 52 4F 47 52 41 | EXECUTE PROGRA|
00000540: 4D 20 44 49 52 4C 49 53 54 20 54 4F 00 72 0D B7 |M DIRLIST TO.r..|
00000550: 00 8F 20 20 20 20 20 20 56 45 52 49 46 59 20 54 |.. VERIFY T|
00000560: 48 41 54 20 54 48 45 52 45 20 49 53 20 53 54 49 |HAT THERE IS STI|
00000570: 4C 4C 00 90 0D B8 00 8F 20 20 20 20 20 20 41 20 |LL...... A |
00000580: 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 2E |DIRECTORY ENTRY.|
00000590: 00 96 0D B9 00 3A 00 BA 0D BA 00 8F 20 20 32 2E |.....:...... 2.|
000005A0: 20 20 54 48 45 20 45 4E 54 52 59 20 54 59 50 45 | THE ENTRY TYPE|
000005B0: 20 53 48 4F 55 4C 44 20 42 45 00 DD 0D BB 00 8F | SHOULD BE......|
000005C0: 20 20 20 20 20 20 22 44 22 20 49 4E 44 49 43 41 | "D" INDICA|
000005D0: 54 49 4E 47 20 44 45 4C 45 54 45 44 2E 00 E3 0D |TING DELETED....|
000005E0: BC 00 3A 00 07 0E BD 00 8F 20 20 33 2E 20 20 45 |..:...... 3. E|
000005F0: 58 45 43 55 54 45 20 54 48 49 53 20 50 52 4F 47 |XECUTE THIS PROG|
00000600: 52 41 4D 20 41 4E 44 00 2D 0E BE 00 8F 20 20 20 |RAM AND.-.... |
00000610: 20 20 20 41 4E 53 57 45 52 20 54 48 45 20 50 52 | ANSWER THE PR|
00000620: 4F 4D 50 54 20 57 49 54 48 20 54 48 45 00 53 0E |OMPT WITH THE.S.|
00000630: BF 00 8F 20 20 20 20 20 20 46 55 4C 4C 20 43 4F |... FULL CO|
00000640: 4D 50 4C 45 54 45 20 4E 41 4D 45 2C 20 44 4F 20 |MPLETE NAME, DO |
00000650: 4E 4F 54 00 72 0E C0 00 8F 20 20 20 20 20 20 55 |NOT.r.... U|
00000660: 53 45 20 54 48 45 20 2A 20 57 49 4C 44 43 41 52 |SE THE * WILDCAR|
00000670: 44 2E 00 98 0E C2 00 8F 20 20 34 2E 20 20 49 46 |D....... 4. IF|
00000680: 20 54 48 45 52 45 20 49 53 20 41 4E 20 45 52 52 | THERE IS AN ERR|
00000690: 4F 52 2C 20 54 48 49 53 00 BE 0E C3 00 8F 20 20 |OR, THIS...... |
000006A0: 20 20 20 20 57 49 4C 4C 20 54 45 52 4D 49 4E 41 | WILL TERMINA|
000006B0: 54 45 20 41 4E 44 20 4E 4F 20 48 41 52 4D 00 D2 |TE AND NO HARM..|
000006C0: 0E C4 00 8F 20 20 20 20 20 20 49 53 20 44 4F 4E |.... IS DON|
000006D0: 45 2E 00 F8 0E C6 00 8F 20 20 35 2E 20 20 49 46 |E....... 5. IF|
000006E0: 20 54 48 45 20 52 45 43 4F 56 45 52 59 20 53 55 | THE RECOVERY SU|
000006F0: 43 43 45 53 53 46 55 4C 00 1D 0F C7 00 8F 20 20 |CCESSFUL...... |
00000700: 20 20 20 20 4D 45 53 53 41 47 45 20 41 50 50 45 | MESSAGE APPE|
00000710: 41 52 53 2C 20 49 54 20 4D 45 41 4E 53 00 42 0F |ARS, IT MEANS.B.|
00000720: C8 00 8F 20 20 20 20 20 20 54 48 45 20 44 49 52 |... THE DIR|
00000730: 45 43 54 4F 52 59 20 41 4E 44 20 4F 4E 4C 59 20 |ECTORY AND ONLY |
00000740: 49 54 00 60 0F C9 00 8F 20 20 20 20 20 20 48 41 |IT.`.... HA|
00000750: 53 20 42 45 45 4E 20 4D 4F 44 49 46 49 45 44 2E |S BEEN MODIFIED.|
00000760: 00 85 0F CB 00 8F 20 20 36 2E 20 20 4C 4F 41 44 |...... 6. LOAD|
00000770: 20 41 4E 44 20 4C 49 53 54 20 54 48 45 20 50 52 | AND LIST THE PR|
00000780: 4F 47 52 41 4D 00 AB 0F CC 00 8F 20 20 20 20 20 |OGRAM...... |
00000790: 20 56 45 52 49 46 49 4E 47 20 45 56 45 52 59 54 | VERIFING EVERYT|
000007A0: 48 49 4E 47 20 49 53 20 4F 4B 2E 00 CD 0F CE 00 |HING IS OK......|
000007B0: 8F 20 20 37 2E 20 20 49 46 20 49 54 20 49 53 20 |. 7. IF IT IS |
000007C0: 2D 20 57 45 4C 4C 20 47 52 45 41 54 21 00 EF 0F |- WELL GREAT!...|
000007D0: D0 00 8F 20 20 38 20 20 20 49 46 20 49 54 20 49 |... 8 IF IT I|
000007E0: 53 4E 27 54 20 2D 20 54 4F 4F 20 42 41 44 2E 00 |SN'T - TOO BAD..|
000007F0: 07 10 D5 00 8F 20 20 41 20 53 49 4E 47 4C 45 20 |..... A SINGLE |
00000800: 3A 20 4F 4E 4C 59 2E 00 00 00 |: ONLY.... |
....D.. INITIALIZATION.0.F..:. D$(255)
, E$(31).H.G..53280,15:.53281,12.S.H..64
6,0.K.I.NL$.G(0):DT.18:DB.1...K.. HOUS
EKEEPING...M..".COMPLETE NAME OF"...N.."
DELETED PROGRAM";P$...O..".".O.Q.. OPE
N FILES...S..15,8,15,"I0":.160...T..5,8,
5,"#1":.160...U..6,8,6,"#2":.160...V..15
0.?.X.. LOOP Z - EACH DIRECTORY ENTRY.
B.Y.. LOOP Y - STORE IN ARRAY E$.S.{..
Z.0.7:N$.""..|..Y.0.31...}.E$(Y).D$(Z.3
2.Y):...... TEST PGM NAME.F....X.5.20
:N$.N$.E$(X):.......P$.J(N$,1,C(P$)).138
............DB..255.118......:.P$;" NOT
FOUND"..... 5: 6: 15:..A.... CHANGE TY
PE & WRITE BUFFER.O...F$.G(130).C...D$(Z
.32.2).F$:........10);"WRITING ";TK;SC:.
......15,"B-P";6;0:.160......W.0.255:W$.
D$(W).B....6,W$;:.F(W$);:..M...." ":....
...15,"U2:";6;0;TK;SC......160:.165.....
. READ TRACK AND SECTOR......15,"U1:";
5;0;DT;DB:.160.K.....10);"READING ";DT;D
B:..X....X.0.255.Q....#5,W$:.W$."".W$.NL
$.....D$(X).W$:.F(W$);:......TK.DT:SC.DB
:.:......DT.F(D$(0)):DB.F(D$(1)):..T....
CHECK DISK STATUS... ..15,EN,EM$,ET,E
S......,"STATUS ";EN;EM$;ET;ES:.........
.... ALL DONE.-... 5: 6: 15.<....EN..0
.168.R....,"RECOVERY DONE".X.....{....
THIS PROGRAM CAN BE USED TO. .... RECOV
ER ANY PROGRAM ON A DISK.E.... THAT STI
LL HAS A ENTRY IN THE...... DIRECTORY A
ND THE ACTUAL DATA...... HAS NOT BEEN W
RITTEN OVER.. .... METHODOLOGY:.&.....L
.... 1. EXECUTE PROGRAM DIRLIST TO.R..
.. VERIFY THAT THERE IS STILL......
A DIRECTORY ENTRY......:...... 2.
THE ENTRY TYPE SHOULD BE...... "D
" INDICATING DELETED......:...... 3. E
XECUTE THIS PROGRAM AND.-.... ANSWE
R THE PROMPT WITH THE.S.... FULL CO
MPLETE NAME, DO NOT.R.... USE THE *
WILDCARD....B.. 4. IF THERE IS AN ERR
OR, THIS...C.. WILL TERMINATE AND N
O HARM.R.D.. IS DONE....F.. 5. IF
THE RECOVERY SUCCESSFUL...G.. MESS
AGE APPEARS, IT MEANS.B.H.. THE DIR
ECTORY AND ONLY IT.`.I.. HAS BEEN M
ODIFIED....K.. 6. LOAD AND LIST THE PR
OGRAM...L.. VERIFING EVERYTHING IS
OK..M.N.. 7. IF IT IS - WELL GREAT!...
P.. 8 IF IT ISN'T - TOO BAD....U.. A
SINGLE : ONLY....
> CLICK IMAGE PREVIEW FOR FULL MODAL