DISK FILE SAVER

FILE INFORMATION

FILENAME(S): DISK FILE SAVER

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 19:44:05

APPEARS ON: 6 disk(s)

FILE HASH

37d2ac031a384a364203a5730518549c36eccfd7bd6213ba0a42c493cee8b585

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
KARSTENS DISK 2B	DISK FILE SAVER	PRG	Curtcool, CRL	10	1	DOWNLOAD FILE
CHORCHENDORFF	DISK FILE SAVER	PRG	Curtcool, Misc	10	13	DOWNLOAD FILE
EMPIRESOFT 88	DISK FILE SAVER	PRG	DuncanTwain	10	1	DOWNLOAD FILE
AD NUT PRG	DISK FILE SAVER	PRG	DuncanTwain	4	1	DOWNLOAD FILE
PIRATES TOOLBOX	DISK FILE SAVER	PRG	DuncanTwain	10	1	DOWNLOAD FILE
PIRATES TOOLBOX	DISK FILE SAVER	PRG	DuncanTwain	10	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 17 08 64 00 99 C7  28 31 34 29 3A 8D 36 32  |....d...(14):.62|
00000010: 30 3A 52 45 25 B2 30 00  51 08 6E 00 99 22 93 99  |0:RE%.0.Q.n.."..|
00000020: 12 20 20 20 C4 49 52 45  43 54 4F 52 59 20 53 45  |.   .IRECTORY SE|
00000030: 41 52 43 48 20 46 52 4F  4D 20 54 52 41 43 4B 20  |ARCH FROM TRACK |
00000040: 22 3B 44 49 25 3B 22 9D  20 2C 31 20 20 20 92 9B  |";DI%;". ,1   ..|
00000050: 22 00 82 08 73 00 99 A3  34 29 22 12 9F 20 D4 59  |"...s...4)".. .Y|
00000060: 50 45 20 20 20 D0 52 4F  47 52 41 4D 20 CE 41 4D  |PE   .ROGRAM .AM|
00000070: 45 20 20 20 20 C2 4C 4B  2E 20 D3 45 43 2E 92 11  |E    .LK. .EC...|
00000080: 9B 22 00 A1 08 78 00 53  50 25 B2 31 3A 54 52 25  |."...x.SP%.1:TR%|
00000090: B2 44 49 25 3A 9F 31 35  2C 38 2C 31 35 2C 22 49  |.DI%:.15,8,15,"I|
000000A0: 30 00 B7 08 82 00 9F 38  2C 38 2C 32 2C 22 23 32  |0......8,8,2,"#2|
000000B0: 22 3A 46 49 25 B2 30 00  D5 08 8C 00 98 31 35 2C  |":FI%.0......15,|
000000C0: 22 55 31 3A 22 32 3B 30  3B 54 52 25 3B 53 50 25  |"U1:"2;0;TR%;SP%|
000000D0: 3A 8D 35 36 30 00 03 09  96 00 81 49 B2 30 A4 31  |:.560......I.0.1|
000000E0: 3A A1 23 38 2C 41 24 3A  8D 35 33 30 3A 50 25 28  |:.#8,A$:.530:P%(|
000000F0: 49 29 B2 C6 28 41 24 29  3A 82 3A 41 B2 32 3A 8D  |I)..(A$):.:A.2:.|
00000100: 35 35 30 00 1D 09 A0 00  A1 23 38 2C 41 24 3A 8D  |550......#8,A$:.|
00000110: 35 33 30 3A 41 B2 C6 28  41 24 29 AF 37 00 48 09  |530:A..(A$).7.H.|
00000120: AA 00 48 24 B2 22 22 3A  81 49 B2 30 A4 31 3A A1  |..H$."":.I.0.1:.|
00000130: 23 38 2C 41 24 3A 8D 35  33 30 3A 4C 25 28 49 29  |#8,A$:.530:L%(I)|
00000140: B2 C6 28 41 24 29 3A 82  00 67 09 B4 00 81 49 B2  |..(A$):..g....I.|
00000150: 33 A4 31 38 3A A1 23 38  2C 41 24 3A 48 24 B2 48  |3.18:.#8,A$:H$.H|
00000160: 24 AA 41 24 3A 82 3A 00  76 09 BE 00 8B 48 24 B2  |$.A$:.:.v....H$.|
00000170: 22 22 A7 32 31 30 00 B6  09 C8 00 99 A3 35 29 4B  |"".210.......5)K|
00000180: 49 24 28 41 29 3B 22 20  22 3B 43 4F 24 3B 48 24  |I$(A);" ";CO$;H$|
00000190: 3B A3 31 31 29 43 4F 24  3B 3B 22 20 22 4C 25 28  |;.11)CO$;;" "L%(|
000001A0: 30 29 3B A3 33 33 29 4C  25 28 31 29 3A 8B 41 B2  |0);.33)L%(1):.A.|
000001B0: 30 A7 89 33 38 30 00 E0  09 D2 00 46 49 25 B2 46  |0..380.....FI%.F|
000001C0: 49 25 AA 31 3A 8B 46 49  25 B3 38 A7 41 B2 46 49  |I%.1:.FI%.8.A.FI|
000001D0: 25 AC 33 32 AA 32 3A 8D  35 35 30 3A 89 31 36 30  |%.32.2:.550:.160|
000001E0: 00 F1 09 DC 00 8B 50 25  28 30 29 B2 30 A7 32 34  |......P%(0).0.24|
000001F0: 30 00 3C 0A E6 00 99 A3  35 29 22 11 12 9E 20 C3  |0.<.....5)"... .|
00000200: 48 41 4E 47 45 20 54 52  41 43 4B 20 23 22 3B 3A  |HANGE TRACK #";:|
00000210: 54 52 25 B2 50 25 28 30  29 3A 53 50 25 B2 50 25  |TR%.P%(0):SP%.P%|
00000220: 28 31 29 3A 46 49 25 B2  30 3A 99 54 52 25 22 9D  |(1):FI%.0:.TR%".|
00000230: 22 3B 53 50 25 22 9D 20  11 92 9B 22 00 45 0A E7  |";SP%". ...".E..|
00000240: 00 89 31 34 30 00 67 0A  F0 00 A0 38 3A 99 A3 35  |..140.g....8:..5|
00000250: 29 22 12 11 99 20 C4 49  52 45 43 54 4F 52 59 20  |)"... .IRECTORY |
00000260: C5 4E 44 20 9B 92 22 00  93 0A F5 00 8B 52 45 25  |.ND .."......RE%|
00000270: A7 99 A3 35 29 22 11 9E  12 20 D6 41 4C 49 44 41  |...5)"... .ALIDA|
00000280: 54 49 4E 47 20 C4 49 53  4B 20 92 22 3A 98 31 35  |TING .ISK .":.15|
00000290: 2C 22 56 00 A0 0A FA 00  8D 35 36 30 3A A0 31 35  |,"V......560:.15|
000002A0: 00 BD 0A FF 00 99 A3 35  29 22 11 12 99 20 C1 4E  |.......5)"... .N|
000002B0: 4F 54 48 45 52 20 C4 49  53 4B 3F 9B 22 00 D2 0A  |OTHER .ISK?."...|
000002C0: 00 01 A1 52 50 24 3A 8B  52 50 24 B2 22 22 A7 32  |...RP$:.RP$."".2|
000002D0: 35 36 00 E3 0A 01 01 8B  52 50 24 B2 22 59 22 A7  |56......RP$."Y".|
000002E0: 31 30 30 00 F1 0A 02 01  93 22 3A 2A 22 2C 38 2C  |100......":*",8,|
000002F0: 31 00 0E 0B 03 01 97 31  39 38 2C 32 3A 97 36 33  |1......198,2:.63|
00000300: 31 2C 31 33 3A 97 36 33  32 2C 31 33 3A 80 00 2A  |1,13:.632,13:..*|
00000310: 0B 04 01 8F 2A 2A 20 20  52 45 54 52 49 45 56 45  |....**  RETRIEVE|
00000320: 20 41 20 46 49 4C 45 20  2A 2A 00 49 0B 0E 01 98  | A FILE **.I....|
00000330: 31 35 2C 22 55 31 3A 22  32 3B 30 3B 4C 25 28 30  |15,"U1:"2;0;L%(0|
00000340: 29 3B 4C 25 28 31 29 3A  8E 00 6B 0B 18 01 44 25  |);L%(1):..k...D%|
00000350: B2 32 3A 99 A3 35 29 22  11 99 12 20 D4 52 41 43  |.2:..5)"... .RAC|
00000360: 4B 2C 20 D3 45 43 54 4F  52 22 3B 00 93 0B 22 01  |K, .ECTOR";...".|
00000370: 8D 32 37 30 3A 81 49 B2  30 A4 31 3A A1 23 38 2C  |.270:.I.0.1:.#8,|
00000380: 41 24 3A 8D 35 33 30 3A  5A 25 28 49 29 B2 C6 28  |A$:.530:Z%(I)..(|
00000390: 41 24 29 00 C0 0B 2C 01  99 5A 25 28 49 29 22 9D  |A$)...,..Z%(I)".|
000003A0: 20 22 3B 3A 82 3A 99 3A  99 A3 35 29 22 91 12 99  | ";:.:.:..5)"...|
000003B0: 20 D4 52 41 43 4B 2C 20  D3 45 43 54 4F 52 22 3B  | .RACK, .ECTOR";|
000003C0: 00 D1 0B 36 01 8B 5A 25  28 30 29 B2 30 A7 99 3A  |...6..Z%(0).0..:|
000003D0: 8E 00 11 0C 40 01 98 31  35 2C 22 42 2D 46 22 30  |....@..15,"B-F"0|
000003E0: 3B 5A 25 28 30 29 3B 5A  25 28 31 29 3A 4C 25 28  |;Z%(0);Z%(1):L%(|
000003F0: 30 29 B2 5A 25 28 30 29  3A 4C 25 28 31 29 B2 5A  |0).Z%(0):L%(1).Z|
00000400: 25 28 31 29 3A 5A 25 28  44 25 29 B2 5A 25 28 30  |%(1):Z%(D%).Z%(0|
00000410: 29 00 2C 0C 4A 01 5A 25  28 44 25 AA 31 29 B2 5A  |).,.J.Z%(D%.1).Z|
00000420: 25 28 31 29 3A 44 25 B2  44 25 AA 32 00 3A 0C 54  |%(1):D%.D%.2.:.T|
00000430: 01 8B 44 53 B2 30 A7 32  39 30 00 7A 0C 5E 01 99  |..DS.0.290.z.^..|
00000440: 3A 99 A3 35 29 22 12 9E  20 C6 49 4C 45 20 57 49  |:..5)".. .ILE WI|
00000450: 4C 4C 20 42 45 20 4F 56  45 52 57 52 49 54 54 45  |LL BE OVERWRITTE|
00000460: 4E 21 20 92 9B 22 3A 58  25 B2 A8 28 58 25 29 3A  |N! ..":X%..(X%):|
00000470: 41 B2 46 49 25 AC 33 32  AA 32 00 A6 0C 68 01 81  |A.FI%.32.2...h..|
00000480: 49 B2 32 A4 44 25 AB 34  A9 32 3A 98 31 35 2C 22  |I.2.D%.4.2:.15,"|
00000490: 42 2D 46 3A 22 30 3B 5A  25 28 49 29 3B 5A 25 28  |B-F:"0;Z%(I);Z%(|
000004A0: 49 AA 31 29 3A 82 00 C8  0C 72 01 4C 25 28 30 29  |I.1):....r.L%(0)|
000004B0: B2 54 52 25 3A 4C 25 28  31 29 B2 53 50 25 3A 8D  |.TR%:L%(1).SP%:.|
000004C0: 32 37 30 3A 89 35 35 30  00 E9 0C 7C 01 99 A3 35  |270:.550...|...5|
000004D0: 29 22 12 96 20 D5 4E 53  43 52 41 54 43 48 3F 20  |)".. .NSCRATCH? |
000004E0: 28 D9 2F CE 29 20 92 9B  22 00 00 0D 81 01 A1 20  |(./.) .."...... |
000004F0: 41 24 3A 8B 20 41 24 B2  22 22 20 A7 20 33 38 35  |A$:. A$."" . 385|
00000500: 00 12 0D 86 01 8B 20 41  24 B3 B1 22 59 22 A7 32  |...... A$.."Y".2|
00000510: 31 30 00 4A 0D 90 01 58  25 B2 30 3A 99 A3 35 29  |10.J...X%.0:..5)|
00000520: 22 11 9F C2 4C 4F 43 4B  53 20 55 53 45 44 2E 2E  |"...LOCKS USED..|
00000530: 22 3A 5A 25 28 30 29 B2  4C 25 28 30 29 3A 8D 32  |":Z%(0).L%(0):.2|
00000540: 38 30 3A 8B 58 25 A7 32  31 30 00 84 0D 9A 01 99  |80:.X%.210......|
00000550: 22 11 9F C9 53 20 54 48  49 53 20 41 20 12 05 D0  |"...S THIS A ...|
00000560: 92 9F 52 4F 47 52 41 4D  2C 20 12 05 D3 92 9F 45  |..ROGRAM, .....E|
00000570: 51 55 45 4E 54 49 41 4C  2C 20 12 05 D5 92 9F 53  |QUENTIAL, .....S|
00000580: 45 52 2C 22 00 A4 0D A4  01 99 A3 39 29 22 4F 52  |ER,".......9)"OR|
00000590: 20 12 05 D2 92 9F 45 4C  41 54 49 56 45 20 C6 49  | .....ELATIVE .I|
000005A0: 4C 45 22 3B 00 D7 0D AE  01 A1 20 4A 41 24 3A 8B  |LE";...... JA$:.|
000005B0: 4A 41 24 B3 B1 22 50 22  AF 4A 41 24 B3 B1 22 53  |JA$.."P".JA$.."S|
000005C0: 22 AF 4A 41 24 B3 B1 22  55 22 AF 4A 41 24 B3 B1  |".JA$.."U".JA$..|
000005D0: 22 52 22 A7 34 33 30 00  DF 0D B3 01 99 3A 99 00  |"R".430......:..|
000005E0: 0C 0E B8 01 99 3A 8B 4A  41 24 B2 22 50 22 A7 99  |.....:.JA$."P"..|
000005F0: A3 35 29 22 12 D0 52 4F  47 52 41 4D 2D 92 22 3A  |.5)"..ROGRAM-.":|
00000600: 4B 49 25 B2 31 33 30 3A  89 34 38 30 00 34 0E C2  |KI%.130:.480.4..|
00000610: 01 8B 4A 41 24 B2 22 55  22 A7 99 A3 35 29 22 12  |..JA$."U"...5)".|
00000620: D5 53 45 52 2D 92 22 3A  4B 49 25 B2 31 33 31 3A  |.SER-.":KI%.131:|
00000630: 89 34 38 30 00 60 0E CC  01 8B 4A 41 24 B2 22 52  |.480.`....JA$."R|
00000640: 22 A7 99 A3 35 29 22 12  D2 45 4C 41 54 49 56 45  |"...5)"..ELATIVE|
00000650: 2D 92 22 3A 4B 49 25 B2  31 33 32 3A 89 34 38 30  |-.":KI%.132:.480|
00000660: 00 80 0E D6 01 99 A3 35  29 22 12 D3 45 51 55 45  |.......5)"..EQUE|
00000670: 4E 54 49 41 4C 2D 92 22  3A 4B 49 25 B2 31 32 39  |NTIAL-.":KI%.129|
00000680: 00 9F 0E E0 01 99 A3 35  29 22 11 C6 49 4C 45 20  |.......5)"..ILE |
00000690: 49 53 20 55 4E 53 43 52  41 54 43 48 45 44 22 00  |IS UNSCRATCHED".|
000006A0: BC 0E EA 01 4C 25 28 30  29 B2 54 52 25 3A 4C 25  |....L%(0).TR%:L%|
000006B0: 28 31 29 B2 53 50 25 3A  8D 32 37 30 00 DB 0E F4  |(1).SP%:.270....|
000006C0: 01 41 B2 46 49 25 AC 33  32 AA 32 3A 8D 35 35 30  |.A.FI%.32.2:.550|
000006D0: 3A 98 38 2C C7 28 4B 49  25 29 3B 00 05 0F FE 01  |:.8,.(KI%);.....|
000006E0: 42 4C 25 B2 28 28 44 25  AB 32 29 AD 32 29 AA 31  |BL%.((D%.2).2).1|
000006F0: 3A 99 A3 35 29 22 11 22  42 4C 25 22 C2 4C 4F 43  |:..5)"."BL%".LOC|
00000700: 4B 53 20 22 3B 00 33 0F  08 02 98 31 35 2C 22 55  |KS ";.3....15,"U|
00000710: 32 3A 22 32 3B 30 3B 54  52 25 3B 53 50 25 3A 99  |2:"2;0;TR%;SP%:.|
00000720: 22 D5 53 45 44 21 11 22  3A 52 45 25 B2 31 3A 89  |".SED!.":RE%.1:.|
00000730: 32 31 30 00 46 0F 12 02  8B 41 24 B2 22 22 A7 41  |210.F....A$."".A|
00000740: 24 B2 C7 28 30 29 00 4C  0F 1C 02 8E 00 5E 0F 26  |$..(0).L.....^.&|
00000750: 02 98 31 35 2C 22 42 2D  50 3A 22 32 3B 41 00 7F  |..15,"B-P:"2;A..|
00000760: 0F 30 02 84 31 35 2C 45  4E 25 2C 45 4D 24 2C 45  |.0..15,EN%,EM$,E|
00000770: 54 25 2C 45 53 25 3A 8B  45 4E 25 B2 30 A7 8E 00  |T%,ES%:.EN%.0...|
00000780: 98 0F 3A 02 99 A3 35 29  22 11 11 12 96 20 C4 49  |..:...5)".... .I|
00000790: 53 4B 20 C5 52 52 4F 52  00 CA 0F 44 02 99 A3 35  |SK .RROR...D...5|
000007A0: 29 22 12 11 96 C5 52 52  4F 52 20 C3 48 41 4E 4E  |)"....RROR .HANN|
000007B0: 45 4C 92 3A 22 45 4E 25  22 20 22 45 4D 24 22 2C  |EL.:"EN%" "EM$",|
000007C0: 22 45 54 25 22 2C 22 45  53 25 00 D0 0F 62 02 8E  |"ET%","ES%...b..|
000007D0: 00 FA 0F 6C 02 86 50 25  28 31 29 2C 4C 25 28 31  |...l..P%(1),L%(1|
000007E0: 29 2C 5A 25 28 33 30 30  29 2C 4B 49 24 28 34 29  |),Z%(300),KI$(4)|
000007F0: 3A 43 4F 24 B2 C7 28 33  34 29 00 0F 10 76 02 81  |:CO$..(34)...v..|
00000800: 49 B2 30 A4 34 3A 87 4B  49 24 28 49 29 3A 82 00  |I.0.4:.KI$(I):..|
00000810: 35 10 80 02 83 22 12 05  C4 C5 CC 92 22 2C 22 D3  |5...."......",".|
00000820: C5 D1 22 2C 22 D0 D2 C7  22 2C 22 D5 D3 D2 22 2C  |..","...","...",|
00000830: 22 D2 C5 CC 22 00 80 10  8A 02 50 47 24 B2 22 0E  |"...".....PG$.".|
00000840: 08 99 93 12 20 20 20 20  20 20 C4 49 53 4B 20 C6  |....      .ISK .|
00000850: 49 4C 45 20 D3 41 56 45  52 20 20 D6 C9 C3 31 35  |ILE .AVER  ...15|
00000860: 34 30 2F 31 35 34 31 20  20 20 20 20 92 22 3A 97  |40/1541     .":.|
00000870: 35 33 32 38 30 2C 30 3A  97 35 33 32 38 31 2C 30  |53280,0:.53281,0|
00000880: 00 B2 10 8F 02 99 50 47  24 3A 99 A3 34 29 22 12  |......PG$:..4)".|
00000890: 9C 20 20 C3 49 54 49 49  C7 52 4F 55 50 20 CC 49  |.  .ITII.ROUP .I|
000008A0: 42 52 41 52 59 20 D0 52  4F 47 52 41 4D 20 20 20  |BRARY .ROGRAM   |
000008B0: 92 22 00 E8 10 94 02 99  22 11 9E 22 3A 99 22 D4  |."......"..":.".|
000008C0: 48 49 53 20 20 D0 52 4F  47 52 41 4D 20 20 4D 41  |HIS  .ROGRAM  MA|
000008D0: 4B 45 53 20 20 49 54 20  20 50 4F 53 53 49 42 4C  |KES  IT  POSSIBL|
000008E0: 45 20 20 54 4F 20 22 3B  00 0C 11 9E 02 99 22 20  |E  TO ";......" |
000008F0: 55 4E 53 43 52 41 54 43  48 20 53 43 52 41 54 43  |UNSCRATCH SCRATC|
00000900: 48 45 44 20 46 49 4C 45  53 2E 22 3B 00 48 11 A8  |HED FILES.";.H..|
00000910: 02 99 22 20 20 C9 54 20  57 49 4C 4C 20 4E 4F 54  |.."  .T WILL NOT|
00000920: 20 53 41 56 45 20 41 20  46 49 4C 45 20 54 48 41  | SAVE A FILE THA|
00000930: 54 20 48 41 53 20 42 45  45 4E 20 4F 56 45 52 57  |T HAS BEEN OVERW|
00000940: 52 49 54 54 45 4E 21 22  00 4F 11 B2 02 99 22 00  |RITTEN!".O....".|
00000950: 58 11 BC 02 99 22 11 22  00 5F 11 C6 02 99 22 00  |X...."."._....".|
00000960: 68 11 D0 02 99 22 11 22  00 90 11 E4 02 99 22 11  |h...."."......".|
00000970: 11 11 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 9F 20  |............... |
00000980: D0 52 45 53 53 20 C1 4E  59 20 CB 45 59 21 9B 22  |.RESS .NY .EY!."|
00000990: 00 A9 11 E9 02 A1 20 54  44 24 3A 8B 20 54 44 24  |...... TD$:. TD$|
000009A0: B2 22 22 20 A7 20 37 34  35 00 B6 11 EE 02 44 49  |."" . 745.....DI|
000009B0: 25 B2 31 38 3A 8E 00 C7  11 F8 02 99 22 91 91 91  |%.18:......."...|
000009C0: 91 22 3A 89 37 34 30 00  00 00 FF 49 45 00        |.":.740....IE.  |

....D..G(14):.620:RE%.0.Q.N.."...   DIRE
CTORY SEARCH FROM TRACK ";DI%;". ,1   ..
"...S...4)".. TYPE   PROGRAM NAME    BLK
. SEC...."...X.SP%.1:TR%.DI%:.15,8,15,"I
0......8,8,2,"#2":FI%.0.U....15,"U1:"2;0
;TR%;SP%:.560......I.0.1:.#8,A$:.530:P%(
I).F(A$):.:A.2:.550... ..#8,A$:.530:A.F(
A$).7.H...H$."":.I.0.1:.#8,A$:.530:L%(I)
.F(A$):..G....I.3.18:.#8,A$:H$.H$.A$:.:.
V....H$."".210...H...5)KI$(A);" ";CO$;H$
;.11)CO$;;" "L%(0);.33)L%(1):.A.0..380..
.R.FI%.FI%.1:.FI%.8.A.FI%.32.2:.550:.160
......P%(0).0.240.<.....5)"... CHANGE TR
ACK #";:TR%.P%(0):SP%.P%(1):FI%.0:.TR%".
";SP%". ...".E....140.G... 8:..5)"... DI
RECTORY END .."......RE%...5)"... VALIDA
TING DISK .":.15,"V. ....560: 15.......5
)"... ANOTHER DISK?.".R....RP$:.RP$."".2
56......RP$."Y".100......":*",8,1......1
98,2:.631,13:.632,13:..*....**  RETRIEVE
 A FILE **.I....15,"U1:"2;0;L%(0);L%(1):
..K...D%.2:..5)"... TRACK, SECTOR";...".
.270:.I.0.1:.#8,A$:.530:Z%(I).F(A$)...,.
.Z%(I)". ";:.:.:..5)"... TRACK, SECTOR";
.Q.6..Z%(0).0..:....@..15,"B-F"0;Z%(0);Z
%(1):L%(0).Z%(0):L%(1).Z%(1):Z%(D%).Z%(0
).,.J.Z%(D%.1).Z%(1):D%.D%.2.:.T..DS.0.2
90.Z.^..:..5)".. FILE WILL BE OVERWRITTE
N! ..":X%..(X%):A.FI%.32.2...H..I.2.D%.4
.2:.15,"B-F:"0;Z%(I);Z%(I.1):..H.R.L%(0)
.TR%:L%(1).SP%:.270:.550...|...5)".. UNS
CRATCH? (Y/N) .."...... A$:. A$."" . 385
...... A$.."Y".210.J...X%.0:..5)"..BLOCK
S USED..":Z%(0).L%(0):.280:.X%.210......
"..IS THIS A ..P..ROGRAM, ..S..EQUENTIAL
, ..U..SER,".......9)"OR ..R..ELATIVE FI
LE";.W.... JA$:.JA$.."P".JA$.."S".JA$.."
U".JA$.."R".430......:.......:.JA$."P"..
.5)".PROGRAM-.":KI%.130:.480.4.B..JA$."U
"...5)".USER-.":KI%.131:.480.`.L..JA$."R
"...5)".RELATIVE-.":KI%.132:.480...V...5
)".SEQUENTIAL-.":KI%.129.......5)".FILE 
IS UNSCRATCHED".....L%(0).TR%:L%(1).SP%:
.270.....A.FI%.32.2:.550:.8,G(KI%);.....
BL%.((D%.2).2).1:..5)"."BL%"BLOCKS ";.3.
...15,"U2:"2;0;TR%;SP%:."USED!.":RE%.1:.
210.F....A$."".A$.G(0).L.....^.&..15,"B-
P:"2;A..0..15,EN%,EM$,ET%,ES%:.EN%.0...
..:...5)".... DISK ERROR.J.D...5)"...ERR
OR CHANNEL.:"EN%" "EM$","ET%","ES%.P.B..
...L..P%(1),L%(1),Z%(300),KI$(4):CO$.G(3
4)...V..I.0.4:.KI$(I):..5...."..DEL.","S
EQ","PRG","USR","REL".....PG$.".....    
  DISK FILE SAVER  VIC1540/1541     .":.
53280,0:.53281,0......PG$:..4)"..  CITII
GROUP LIBRARY PROGRAM   ."......"..":."T
HIS  PROGRAM  MAKES  IT  POSSIBLE  TO ";
......" UNSCRATCH SCRATCHED FILES.";.H..
.."  IT WILL NOT SAVE A FILE THAT HAS BE
EN OVERWRITTEN!".O....".X...."."._.F..".
H.P.."."......"................ PRESS AN
Y KEY!."...... TD$:. TD$."" . 745.....DI
%.18:..G...."....":.740....IE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL