DISK TIDIER.Z

FILE INFORMATION

FILENAME(S): DISK TIDIER.Z

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 01:08:43

APPEARS ON: 4 disk(s)

FILE HASH

1d9ed1eb6ebb6c8f77f8264f3e51e87813b4ab3a3d188d4f013881cec576d41c

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PD DISK 08	DISK TIDIER.Z	PRG	Treasure Chest - Wolfgang Rauprich	24	9	DOWNLOAD FILE
FREESOFT NR	DISK TIDIER.Z	PRG	Treasure Chest - Wolfgang Rauprich	24	9	DOWNLOAD FILE
HJ LPEDISK 07 2	DISK TIDIER.Z	PRG	Curtcool, Frank	4	2	DOWNLOAD FILE
TPUG DEC 83 C	DISK TIDIER.Z	PRG	DuncanTwain	24	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 29 04 0A 00 8F 20  44 49 53 4B 20 54 49 44  |..).... DISK TID|
00000010: 49 45 52 2C 20 44 41 56  49 44 20 57 49 4C 4C 49  |IER, DAVID WILLI|
00000020: 41 4D 53 2C 20 31 39 38  33 00 51 04 14 00 8F 20  |AMS, 1983.Q.... |
00000030: 4D 4F 44 49 46 49 45 44  20 42 59 20 20 44 41 56  |MODIFIED BY  DAV|
00000040: 49 44 20 42 52 41 44 4C  45 59 2C 20 20 31 39 38  |ID BRADLEY,  198|
00000050: 33 00 57 04 1E 00 3A 00  7D 04 28 00 8F 20 50 52  |3.W...:.}.(.. PR|
00000060: 4F 47 52 41 4D 20 48 45  4C 50 53 20 57 49 54 48  |OGRAM HELPS WITH|
00000070: 20 54 48 45 20 43 48 4F  52 45 20 4F 46 00 A7 04  | THE CHORE OF...|
00000080: 32 00 8F 20 44 45 4C 45  54 49 4E 47 20 55 4E 57  |2.. DELETING UNW|
00000090: 41 4E 54 45 44 20 46 49  4C 45 53 20 46 52 4F 4D  |ANTED FILES FROM|
000000A0: 20 44 49 53 4B 53 2E 00  CF 04 3C 00 8F 20 50 52  | DISKS....<.. PR|
000000B0: 4F 47 52 41 4D 20 49 53  20 49 4E 20 42 41 53 49  |OGRAM IS IN BASI|
000000C0: 43 20 32 2E 30 2E 2E 2E  20 53 48 4F 55 4C 44 00  |C 2.0... SHOULD.|
000000D0: FA 04 46 00 8F 20 57 4F  52 4B 20 4F 4E 20 50 45  |..F.. WORK ON PE|
000000E0: 54 2F 43 42 4D 27 53 20  4F 52 20 4F 4E 20 43 4F  |T/CBM'S OR ON CO|
000000F0: 4D 4D 4F 44 4F 52 45 2D  36 34 00 00 05 50 00 3A  |MMODORE-64...P.:|
00000100: 00 12 05 5A 00 4E B2 30  3A 86 20 46 24 28 35 30  |...Z.N.0:. F$(50|
00000110: 30 29 00 30 05 64 00 99  3A 99 22 57 48 49 43 48  |0).0.d..:."WHICH|
00000120: 20 44 52 49 56 45 3F 20  28 30 2F 31 29 20 22 3B  | DRIVE? (0/1) ";|
00000130: 00 57 05 6E 00 A1 20 44  4E 24 3A 8B 20 44 4E 24  |.W.n.. DN$:. DN$|
00000140: 20 B3 22 30 22 20 B0 20  44 4E 24 20 B1 20 22 31  | ."0" . DN$ . "1|
00000150: 22 20 A7 20 31 31 30 00  63 05 78 00 99 20 44 4E  |" . 110.c.x.. DN|
00000160: 24 3A 99 00 70 05 82 00  9F 31 35 2C 38 2C 31 35  |$:..p....15,8,15|
00000170: 00 83 05 8C 00 9F 31 2C  38 2C 30 2C 22 24 22 AA  |......1,8,0,"$".|
00000180: 44 4E 24 00 A8 05 96 00  84 31 35 2C 45 2C 45 24  |DN$......15,E,E$|
00000190: 3A 8B 20 45 24 B3 B1 22  4F 4B 22 20 A7 20 99 20  |:. E$.."OK" . . |
000001A0: 45 24 3A 89 20 36 38 30  00 C7 05 A0 00 A1 23 31  |E$:. 680......#1|
000001B0: 2C 47 24 2C 47 24 2C 47  24 2C 47 24 3A 8B 47 24  |,G$,G$,G$,G$:.G$|
000001C0: B2 22 22 A7 36 38 30 00  F4 05 AA 00 A1 23 31 2C  |."".680......#1,|
000001D0: 41 24 2C 42 24 3A 99 20  28 C6 28 41 24 AA C7 28  |A$,B$:. (.(A$..(|
000001E0: 30 29 29 AA 32 35 36 AC  C6 28 42 24 AA C7 28 30  |0)).256..(B$..(0|
000001F0: 29 29 29 3B 00 0C 06 B4  00 A1 23 31 2C 47 24 3A  |)));......#1,G$:|
00000200: 8B 47 24 B2 22 22 20 A7  20 32 30 30 00 1C 06 BE  |.G$."" . 200....|
00000210: 00 99 20 47 24 3B 3A 89  20 31 38 30 00 4F 06 C8  |.. G$;:. 180.O..|
00000220: 00 99 3A 20 99 3A 99 20  22 12 53 92 43 52 41 54  |..: .:. ".S.CRAT|
00000230: 43 48 20 4F 52 20 12 4C  92 45 41 56 45 20 46 4F  |CH OR .L.EAVE FO|
00000240: 4C 4C 4F 57 49 4E 47 20  46 49 4C 45 53 3F 22 00  |LLOWING FILES?".|
00000250: 6A 06 D2 00 99 3A A1 23  31 2C 47 24 2C 47 24 3A  |j....:.#1,G$,G$:|
00000260: 8B 47 24 B2 22 22 A7 33  38 30 00 78 06 DC 00 A1  |.G$."".380.x....|
00000270: 23 31 2C 47 24 2C 47 24  00 82 06 E6 00 46 24 B2  |#1,G$,G$.....F$.|
00000280: 22 22 00 9A 06 F0 00 A1  23 31 2C 47 24 3A 8B 47  |""......#1,G$:.G|
00000290: 24 B2 22 22 20 A7 20 32  31 30 00 AE 06 FA 00 8B  |$."" . 210......|
000002A0: 20 47 24 B3 B1 C7 28 33  34 29 A7 32 34 30 00 C7  | G$...(34).240..|
000002B0: 06 04 01 A1 23 31 2C 47  24 3A 8B 47 24 B2 C7 28  |....#1,G$:.G$..(|
000002C0: 33 34 29 A7 32 38 30 00  D9 06 0E 01 46 24 B2 46  |34).280.....F$.F|
000002D0: 24 AA 47 24 3A 89 32 36  30 00 F4 06 18 01 44 42  |$.G$:.260.....DB|
000002E0: 24 B2 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |$."             |
000002F0: 20 20 20 22 00 15 07 22  01 4C 46 B2 C3 28 46 24  |   "...".LF..(F$|
00000300: 29 3A 46 46 24 B2 46 24  AA C8 28 44 42 24 2C 31  |):FF$.F$..(DB$,1|
00000310: 36 AB 4C 46 29 00 23 07  2C 01 99 46 46 24 2C 22  |6.LF).#.,..FF$,"|
00000320: 20 22 3B 00 46 07 36 01  A1 20 47 24 3A 8B 20 47  | ";.F.6.. G$:. G|
00000330: 24 B3 B1 22 53 22 20 AF  20 47 24 B3 B1 22 4C 22  |$.."S" . G$.."L"|
00000340: 20 A7 20 33 31 30 00 60  07 40 01 8B 47 24 B2 22  | . 310.`.@..G$."|
00000350: 53 22 A7 47 47 24 B2 22  53 43 52 41 54 43 48 22  |S".GG$."SCRATCH"|
00000360: 00 78 07 4A 01 8B 47 24  B2 22 4C 22 A7 47 47 24  |.x.J..G$."L".GG$|
00000370: B2 22 4C 45 41 56 45 22  00 8D 07 54 01 99 22 20  |."LEAVE"...T.." |
00000380: 20 20 12 22 3B 47 47 24  3B 22 92 22 3B 00 AB 07  |  .";GG$;".";...|
00000390: 5E 01 8B 20 47 24 B2 22  53 22 20 A7 20 46 24 28  |^.. G$."S" . F$(|
000003A0: 4E 29 B2 46 24 3A 4E B2  4E AA 31 00 C5 07 68 01  |N).F$:N.N.1...h.|
000003B0: A1 23 31 2C 47 24 3A 8B  20 47 24 B3 B1 22 22 20  |.#1,G$:. G$.."" |
000003C0: A7 20 33 36 30 00 CE 07  72 01 89 32 31 30 00 DB  |. 360...r..210..|
000003D0: 07 7C 01 4E B2 4E AB 31  3A A0 31 00 EB 07 86 01  |.|.N.N.1:.1.....|
000003E0: 8B 20 4E B3 30 20 A7 20  36 38 30 00 16 08 90 01  |. N.0 . 680.....|
000003F0: 99 3A 99 20 22 4C 49 53  54 20 4F 46 20 46 49 4C  |.:. "LIST OF FIL|
00000400: 45 53 20 54 4F 20 42 45  20 53 43 52 41 54 43 48  |ES TO BE SCRATCH|
00000410: 45 44 3A 22 3A 99 00 24  08 9A 01 81 20 49 B2 30  |ED:":..$.... I.0|
00000420: 20 A4 20 4E 00 30 08 A4  01 99 20 46 24 28 49 29  | . N.0.... F$(I)|
00000430: 00 42 08 AE 01 81 20 4A  B2 31 20 A4 20 35 30 30  |.B.... J.1 . 500|
00000440: 3A 82 00 48 08 B8 01 82  00 63 08 C2 01 99 3A 99  |:..H.....c....:.|
00000450: 20 22 43 4F 52 52 45 43  54 3F 20 28 59 2F 4E 29  | "CORRECT? (Y/N)|
00000460: 20 22 3B 00 86 08 CC 01  A1 20 47 24 3A 8B 20 47  | ";...... G$:. G|
00000470: 24 B3 B1 22 59 22 20 AF  20 47 24 B3 B1 22 4E 22  |$.."Y" . G$.."N"|
00000480: 20 A7 20 34 36 30 00 8E  08 D6 01 99 47 24 00 A1  | . 460......G$..|
00000490: 08 E0 01 8B 20 47 24 B2  22 59 22 20 A7 20 35 34  |.... G$."Y" . 54|
000004A0: 30 00 CE 08 EA 01 99 3A  99 20 22 12 41 92 42 4F  |0......:. ".A.BO|
000004B0: 52 54 20 4F 52 20 12 44  92 49 53 50 4C 41 59 20  |RT OR .D.ISPLAY |
000004C0: 4C 49 53 54 20 41 47 41  49 4E 3F 20 22 3B 00 F1  |LIST AGAIN? ";..|
000004D0: 08 F4 01 A1 20 47 24 3A  8B 20 47 24 B3 B1 22 41  |.... G$:. G$.."A|
000004E0: 22 20 AF 20 47 24 B3 B1  22 44 22 20 A7 20 35 30  |" . G$.."D" . 50|
000004F0: 30 00 FA 08 FE 01 99 20  47 24 00 0D 09 08 02 8B  |0...... G$......|
00000500: 20 47 24 B2 22 41 22 20  A7 20 36 38 30 00 17 09  | G$."A" . 680...|
00000510: 12 02 89 20 34 30 30 00  40 09 1C 02 99 3A 99 20  |... 400.@....:. |
00000520: 22 57 4F 52 4B 49 4E 47  2E 2E 2E 2E 20 43 4F 4D  |"WORKING.... COM|
00000530: 45 20 42 41 43 4B 20 4C  41 54 45 52 21 22 3A 99  |E BACK LATER!":.|
00000540: 00 50 09 26 02 98 31 35  2C 22 56 22 3B 44 4E 24  |.P.&..15,"V";DN$|
00000550: 00 71 09 30 02 99 22 43  4F 4C 4C 45 43 54 49 4E  |.q.0.."COLLECTIN|
00000560: 47 20 46 4F 52 20 46 49  52 53 54 20 54 49 4D 45  |G FOR FIRST TIME|
00000570: 22 00 94 09 3A 02 84 31  35 2C 45 2C 45 24 3A 8B  |"...:..15,E,E$:.|
00000580: 45 24 B3 B1 22 4F 4B 22  20 A7 20 99 45 24 3A 89  |E$.."OK" . .E$:.|
00000590: 20 36 38 30 00 A2 09 44  02 81 20 49 B2 30 20 A4  | 680...D.. I.0 .|
000005A0: 20 4E 00 BC 09 4E 02 98  31 35 2C 22 53 22 3B 44  | N...N..15,"S";D|
000005B0: 4E 24 3B 22 3A 22 3B 46  24 28 49 29 00 D6 09 58  |N$;":";F$(I)...X|
000005C0: 02 99 20 22 53 43 52 41  54 43 48 49 4E 47 20 22  |.. "SCRATCHING "|
000005D0: 3B 46 24 28 49 29 00 E6  09 62 02 84 31 35 2C 45  |;F$(I)...b..15,E|
000005E0: 2C 45 24 2C 45 31 00 1B  0A 6C 02 8B 20 45 24 B3  |,E$,E1...l.. E$.|
000005F0: B1 22 46 49 4C 45 53 20  53 43 52 41 54 43 48 45  |."FILES SCRATCHE|
00000600: 44 22 20 B0 20 45 31 B3  B1 31 20 A7 20 99 20 45  |D" . E1..1 . . E|
00000610: 3B 45 24 3B 45 31 3A 89  36 38 30 00 21 0A 76 02  |;E$;E1:.680.!.v.|
00000620: 82 00 31 0A 80 02 98 31  35 2C 22 56 22 3B 44 4E  |..1....15,"V";DN|
00000630: 24 00 53 0A 8A 02 99 22  43 4F 4C 4C 45 43 54 49  |$.S...."COLLECTI|
00000640: 4E 47 20 46 4F 52 20 53  45 43 4F 4E 44 20 54 49  |NG FOR SECOND TI|
00000650: 4D 45 22 00 76 0A 94 02  84 31 35 2C 45 2C 45 24  |ME".v....15,E,E$|
00000660: 3A 8B 45 24 B3 B1 22 4F  4B 22 20 A7 20 99 45 24  |:.E$.."OK" . .E$|
00000670: 3A 89 20 36 38 30 00 88  0A 9E 02 99 3A 99 22 41  |:. 680......:."A|
00000680: 4C 4C 20 44 4F 4E 45 22  00 95 0A A8 02 A0 31 3A  |LL DONE"......1:|
00000690: A0 31 35 3A 80 00 00 00                           |.15:....        |

..).... DISK TIDIER, DAVID WILLIAMS, 198
3.Q.... MODIFIED BY  DAVID BRADLEY,  198
3.W...:.}.(.. PROGRAM HELPS WITH THE CHO
RE OF...2.. DELETING UNWANTED FILES FROM
 DISKS..O.<.. PROGRAM IS IN BASIC 2.0...
 SHOULD...F.. WORK ON PET/CBM'S OR ON CO
MMODORE-64...P.:...Z.N.0:. F$(500).0.D..
:."WHICH DRIVE? (0/1) ";.W.N.. DN$:. DN$
 ."0" . DN$ . "1" . 110.C.X.. DN$:..P...
.15,8,15......1,8,0,"$".DN$......15,E,E$
:. E$.."OK" . . E$:. 680.G. ..#1,G$,G$,G
$,G$:.G$."".680......#1,A$,B$:. (F(A$.G(
0)).256.F(B$.G(0)));......#1,G$:.G$."" .
 200...... G$;:. 180.O.H..: .:. ".S.CRAT
CH OR .L.EAVE FOLLOWING FILES?".J.R..:.#
1,G$,G$:.G$."".380.X....#1,G$,G$.....F$.
""......#1,G$:.G$."" . 210...... G$..G(3
4).240.G....#1,G$:.G$.G(34).280.Y...F$.F
$.G$:.260.....DB$."                "..."
.LF.C(F$):FF$.F$.H(DB$,16.LF).#.,..FF$,"
 ";.F.6.. G$:. G$.."S" . G$.."L" . 310.`
.@..G$."S".GG$."SCRATCH".X.J..G$."L".GG$
."LEAVE"...T.."   .";GG$;".";...^.. G$."
S" . F$(N).F$:N.N.1.E.H..#1,G$:. G$.."" 
. 360.N.R..210...|.N.N.1: 1...... N.0 . 
680......:. "LIST OF FILES TO BE SCRATCH
ED:":..$.... I.0 . N.0.... F$(I).B.... J
.1 . 500:..H.....C.B..:. "CORRECT? (Y/N)
 ";...L.. G$:. G$.."Y" . G$.."N" . 460..
.V..G$...... G$."Y" . 540.N....:. ".A.BO
RT OR .D.ISPLAY LIST AGAIN? ";...... G$:
. G$.."A" . G$.."D" . 500...... G$......
 G$."A" . 680...... 400.@....:. "WORKING
.... COME BACK LATER!":..P.&..15,"V";DN$
.Q.0.."COLLECTING FOR FIRST TIME"...:..1
5,E,E$:.E$.."OK" . .E$:. 680...D.. I.0 .
 N...N..15,"S";DN$;":";F$(I).V.X.. "SCRA
TCHING ";F$(I)...B..15,E,E$,E1...L.. E$.
."FILES SCRATCHED" . E1..1 . . E;E$;E1:.
680.!.V...1....15,"V";DN$.S...."COLLECTI
NG FOR SECOND TIME".V....15,E,E$:.E$.."O
K" . .E$:. 680......:."ALL DONE"..... 1:
 15:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL