AUTO.DISK-PURGE
FILE INFORMATION
FILENAME(S): AUTO.DISK-PURGE
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 18:24:51
APPEARS ON: 1 disk(s)
FILE HASH
29826986eadb5c6ee5deab24f0cf86ea38367cfcf7de49ee75c9694de2e2aa9e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK UTILLITES | AUTO.DISK-PURGE | PRG | Sailor, Sensei | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 1E 00 8F 20 46 4F 52 20 34 30 34 30 |....... FOR 4040|
00000010: 2F 32 30 33 31 2F 31 35 34 30 2F 31 35 34 31 00 |/2031/1540/1541.|
00000020: 37 08 28 00 99 22 93 12 44 49 53 4B 45 54 54 45 |7.(.."..DISKETTE|
00000030: 20 50 55 52 47 45 22 00 56 08 32 00 99 3A 99 22 | PURGE".V.2..:."|
00000040: 57 48 49 43 48 20 44 52 49 56 45 28 30 2F 31 29 |WHICH DRIVE(0/1)|
00000050: 3F 12 92 9D 22 3B 00 79 08 3C 00 A1 20 44 52 24 |?...";.y.<.. DR$|
00000060: 3A 8B 20 44 52 24 B3 B1 22 30 22 AF 20 44 52 24 |:. DR$.."0". DR$|
00000070: B3 B1 22 31 22 A7 20 36 30 00 8C 08 46 00 99 20 |.."1". 60...F.. |
00000080: 44 52 24 3A 44 B2 C5 28 44 52 24 29 00 AA 08 50 |DR$:D..(DR$)...P|
00000090: 00 44 52 24 B2 22 49 22 AA 44 52 24 3A 9F 20 31 |.DR$."I".DR$:. 1|
000000A0: 35 2C 38 2C 31 35 2C 44 52 24 00 B4 08 5A 00 8D |5,8,15,DR$...Z..|
000000B0: 20 34 35 30 00 CA 08 64 00 9F 20 31 2C 38 2C 33 | 450...d.. 1,8,3|
000000C0: 2C 22 23 22 3A 8D 20 34 36 30 00 EC 08 6E 00 99 |,"#":. 460...n..|
000000D0: 3A 99 20 22 50 52 45 53 53 27 12 59 92 27 54 4F |:. "PRESS'.Y.'TO|
000000E0: 20 44 45 4C 20 46 49 4C 45 22 3A 99 00 F8 08 78 | DEL FILE":....x|
000000F0: 00 5A 24 B2 C7 28 30 29 00 05 09 82 00 54 B2 31 |.Z$..(0).....T.1|
00000100: 38 3A 53 B2 31 00 1A 09 8C 00 98 31 35 2C 22 55 |8:S.1......15,"U|
00000110: 31 3A 22 33 3B 44 3B 54 3B 53 00 31 09 96 00 98 |1:"3;D;T;S.1....|
00000120: 31 35 2C 22 42 2D 50 3A 22 33 3B 32 AA 33 32 AC |15,"B-P:"3;2.32.|
00000130: 52 00 4C 09 A0 00 A1 23 31 2C 41 24 3A 8B 20 41 |R.L....#1,A$:. A|
00000140: 24 B2 22 22 20 A7 20 41 24 B2 5A 24 00 62 09 AA |$."" . A$.Z$.b..|
00000150: 00 8B 20 C6 28 41 24 29 B3 31 32 39 20 A7 20 32 |.. .(A$).129 . 2|
00000160: 37 30 00 7B 09 B4 00 81 20 4B B2 35 AA 33 32 AC |70.{.... K.5.32.|
00000170: 52 20 A4 20 32 30 AA 33 32 AC 52 00 8D 09 BE 00 |R . 20.32.R.....|
00000180: 98 31 35 2C 22 42 2D 50 3A 22 33 3B 4B 00 AF 09 |.15,"B-P:"3;K...|
00000190: C8 00 A1 23 31 2C 41 24 3A 8B 20 41 24 B2 22 22 |...#1,A$:. A$.""|
000001A0: 20 A7 20 99 22 12 92 22 3B 3A 89 20 32 32 30 00 | . ."..";:. 220.|
000001B0: B9 09 D2 00 99 20 41 24 3B 00 BF 09 DC 00 82 00 |..... A$;.......|
000001C0: D5 09 E6 00 99 20 2C 2C 22 50 55 52 47 45 20 3F |..... ,,"PURGE ?|
000001D0: 12 92 9D 22 3B 00 F5 09 F0 00 A1 41 24 3A 8B 41 |...";......A$:.A|
000001E0: 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 |$.."Y" . A$.."N"|
000001F0: 20 A7 32 34 30 00 FE 09 FA 00 99 20 41 24 00 13 | .240...... A$..|
00000200: 0A 04 01 8B 20 41 24 B2 22 59 22 20 A7 20 8D 20 |.... A$."Y" . . |
00000210: 33 36 30 00 29 0A 0E 01 52 B2 52 AA 31 3A 8B 20 |360.)...R.R.1:. |
00000220: 52 B3 38 20 A7 20 31 34 30 00 3B 0A 18 01 98 31 |R.8 . 140.;....1|
00000230: 35 2C 22 42 2D 50 3A 22 33 3B 30 00 54 0A 22 01 |5,"B-P:"3;0.T.".|
00000240: A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 20 A7 41 |.#1,A$:.A$."" .A|
00000250: 24 B2 5A 24 00 86 0A 2C 01 54 B2 C6 28 41 24 29 |$.Z$...,.T..(A$)|
00000260: 3A 8B 20 54 B2 30 20 A7 20 99 3A 99 20 22 45 4E |:. T.0 . .:. "EN|
00000270: 44 20 4F 46 20 44 49 52 45 43 54 4F 52 59 2E 22 |D OF DIRECTORY."|
00000280: 3A 89 20 34 30 30 00 98 0A 36 01 98 31 35 2C 22 |:. 400...6..15,"|
00000290: 42 2D 50 3A 22 33 3B 31 00 B0 0A 40 01 A1 23 31 |B-P:"3;1...@..#1|
000002A0: 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 5A 24 |,A$:.A$."".A$.Z$|
000002B0: 00 E4 0A 4A 01 53 B2 C6 28 41 24 29 3A 99 3A 99 |...J.S..(A$):.:.|
000002C0: 20 22 2A 2A 2A 20 4E 45 58 54 20 54 52 41 43 4B | "*** NEXT TRACK|
000002D0: 3A 20 22 3B 3A 4E 55 B2 54 3A 8D 35 32 30 3A 99 |: ";:NU.T:.520:.|
000002E0: 20 4E 24 3B 00 19 0B 54 01 99 20 A3 32 30 29 3B | N$;...T.. .20);|
000002F0: 22 4E 45 58 54 20 53 45 43 54 4F 52 3A 20 22 3B |"NEXT SECTOR: ";|
00000300: 3A 4E 55 B2 53 3A 8D 20 35 32 30 3A 99 20 4E 24 |:NU.S:. 520:. N$|
00000310: 3B 22 20 2A 2A 2A 22 3A 99 00 26 0B 5E 01 52 B2 |;" ***":..&.^.R.|
00000320: 30 3A 89 31 34 30 00 3F 0B 68 01 98 31 35 2C 22 |0:.140.?.h..15,"|
00000330: 42 2D 50 3A 22 33 3B 35 AA 33 32 AC 52 AB 33 00 |B-P:"3;5.32.R.3.|
00000340: 4C 0B 72 01 98 31 2C C7 28 30 29 3B 00 61 0B 7C |L.r..1,.(0);.a.||
00000350: 01 98 31 35 2C 22 55 32 3A 22 33 3B 44 3B 54 3B |..15,"U2:"3;D;T;|
00000360: 53 00 6C 0B 86 01 8D 34 36 30 3A 8E 00 74 0B 90 |S.l....460:..t..|
00000370: 01 A0 20 31 00 91 0B 95 01 99 20 22 56 41 4C 49 |.. 1...... "VALI|
00000380: 44 41 54 45 20 44 49 53 4B 20 59 20 4F 52 20 4E |DATE DISK Y OR N|
00000390: 22 00 A7 0B 96 01 A1 20 56 24 3A 8B 20 56 24 B2 |"...... V$:. V$.|
000003A0: 22 59 22 A7 34 31 30 00 B8 0B 97 01 8B 20 56 24 |"Y".410...... V$|
000003B0: B2 22 22 A7 20 34 30 36 00 C2 0B 98 01 A0 31 35 |."". 406......15|
000003C0: 3A 80 00 DF 0B 9A 01 99 3A 99 20 22 12 56 41 4C |:.......:. ".VAL|
000003D0: 49 44 41 54 49 4E 47 20 44 49 53 4B 20 92 22 00 |IDATING DISK .".|
000003E0: F1 0B A4 01 98 31 35 2C 28 22 56 22 AA 44 52 24 |.....15,("V".DR$|
000003F0: 29 00 FF 0B AE 01 8D 34 36 30 3A A0 20 31 35 00 |)......460:. 15.|
00000400: 05 0C B8 01 80 00 1D 0C C2 01 8F 20 43 48 45 43 |........... CHEC|
00000410: 4B 20 44 49 53 4B 20 53 54 41 54 55 53 00 32 0C |K DISK STATUS.2.|
00000420: CC 01 84 31 35 2C 45 52 2C 45 52 24 2C 54 52 2C |...15,ER,ER$,TR,|
00000430: 53 45 00 41 0C D6 01 8B 20 45 52 B2 30 20 A7 20 |SE.A.... ER.0 . |
00000440: 8E 00 4E 0C E0 01 A0 20 31 35 3A A0 20 31 00 66 |..N.... 15:. 1.f|
00000450: 0C EA 01 99 3A 99 20 22 11 44 49 53 4B 20 45 52 |....:. ".DISK ER|
00000460: 52 4F 52 21 22 3B 00 79 0C F4 01 99 20 45 52 3B |ROR!";.y.... ER;|
00000470: 45 52 24 3B 54 52 3B 53 45 00 7F 0C FE 01 90 00 |ER$;TR;SE.......|
00000480: A2 0C 08 02 8F 20 46 4F 52 4D 41 54 20 52 45 54 |..... FORMAT RET|
00000490: 55 52 4E 20 57 49 54 48 4F 55 54 20 47 4F 53 55 |URN WITHOUT GOSU|
000004A0: 42 53 00 B4 0C 12 02 4E 24 B2 CA 28 C4 28 4E 55 |BS.....N$..(.(NU|
000004B0: 29 2C 32 29 00 CE 0C 1C 02 8B 20 C3 28 4E 24 29 |),2)...... .(N$)|
000004C0: B3 32 20 A7 20 4E 24 B2 22 30 22 AA 4E 24 00 D4 |.2 . N$."0".N$..|
000004D0: 0C 26 02 8E 00 00 00 |.&..... |
....... FOR 4040/2031/1540/1541.7.(.."..
DISKETTE PURGE".V.2..:."WHICH DRIVE(0/1)
?...";.Y.<.. DR$:. DR$.."0". DR$.."1". 6
0...F.. DR$:D.E(DR$)...P.DR$."I".DR$:. 1
5,8,15,DR$...Z.. 450.J.D.. 1,8,3,"#":. 4
60...N..:. "PRESS'.Y.'TO DEL FILE":....X
.Z$.G(0).....T.18:S.1......15,"U1:"3;D;T
;S.1....15,"B-P:"3;2.32.R.L. ..#1,A$:. A
$."" . A$.Z$.B.... F(A$).129 . 270.{....
K.5.32.R . 20.32.R......15,"B-P:"3;K...
H..#1,A$:. A$."" . ."..";:. 220...R.. A$
;.......U.... ,,"PURGE ?...";......A$:.A
$.."Y" . A$.."N" .240...... A$...... A$.
"Y" . . 360.)...R.R.1:. R.8 . 140.;....1
5,"B-P:"3;0.T."..#1,A$:.A$."" .A$.Z$...,
.T.F(A$):. T.0 . .:. "END OF DIRECTORY."
:. 400...6..15,"B-P:"3;1...@..#1,A$:.A$.
"".A$.Z$...J.S.F(A$):.:. "*** NEXT TRACK
: ";:NU.T:.520:. N$;...T.. .20);"NEXT SE
CTOR: ";:NU.S:. 520:. N$;" ***":..&.^.R.
0:.140.?.H..15,"B-P:"3;5.32.R.3.L.R..1,G
(0);.A.|..15,"U2:"3;D;T;S.L....460:..T..
. 1...... "VALIDATE DISK Y OR N"......
V$:. V$."Y".410...... V$."". 406.B... 15
:.......:. ".VALIDATING DISK ."......15,
("V".DR$)......460: 15.........B.. CHEC
K DISK STATUS.2.L..15,ER,ER$,TR,SE.A.V..
ER.0 . ..N... 15: 1.F....:. ".DISK ER
ROR!";.Y.... ER;ER$;TR;SE........... FO
RMAT RETURN WITHOUT GOSUBS.....N$.J(D(NU
),2).N.... C(N$).2 . N$."0".N$.T.&.....
> CLICK IMAGE PREVIEW FOR FULL MODAL