PURGE
FILE INFORMATION
FILENAME(S): PURGE
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
87621a53f6a89eef7bf13a12dc7f16ceafffaabce787a5edbe8a81bf540ea21e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 UTILITY | PURGE | PRG | Radd Maxx | 11 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 0A 00 89 33 30 00 2F 08 0B 00 3A AC |.......30./...:.|
00000010: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
00000030: 55 08 0C 00 3A AC 20 20 20 20 20 20 20 20 44 49 |U...:. DI|
00000040: 53 4B 20 50 55 52 47 45 20 20 20 20 20 20 20 20 |SK PURGE |
00000050: 20 20 20 20 AC 00 7B 08 0D 00 3A AC 20 20 20 20 | ..{...:. |
00000060: 20 43 4F 4D 50 55 54 45 20 47 41 5A 45 54 54 45 | COMPUTE GAZETTE|
00000070: 20 20 20 20 20 20 20 20 20 20 AC 00 A1 08 0E 00 | ......|
00000080: 3A AC 20 20 20 20 20 20 20 20 20 20 41 55 47 20 |:. AUG |
00000090: 38 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |84 |
000000A0: AC 00 C7 08 0F 00 3A AC 20 20 20 20 20 20 20 20 |......:. |
000000B0: 20 50 41 47 45 20 31 31 30 20 20 20 20 20 20 20 | PAGE 110 |
000000C0: 20 20 20 20 20 20 AC 00 ED 08 10 00 3A AC AC AC | ......:...|
000000D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000000E0: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 0B 09 |................|
000000F0: 1E 00 8F 20 46 4F 52 20 34 30 34 30 2F 32 30 33 |... FOR 4040/203|
00000100: 31 2F 31 35 34 30 2F 31 35 34 31 00 23 09 28 00 |1/1540/1541.#.(.|
00000110: 99 22 93 12 44 49 53 4B 45 54 54 45 20 50 55 52 |."..DISKETTE PUR|
00000120: 47 45 22 00 44 09 32 00 99 3A 99 22 57 48 49 43 |GE".D.2..:."WHIC|
00000130: 48 20 44 52 49 56 45 20 28 30 2F 31 29 20 3F 12 |H DRIVE (0/1) ?.|
00000140: 20 92 9D 22 00 63 09 3C 00 A1 44 52 24 3A 8B 44 | ..".c.<..DR$:.D|
00000150: 52 24 B3 B1 22 30 22 AF 44 52 24 B3 B1 22 31 22 |R$.."0".DR$.."1"|
00000160: A7 36 30 00 75 09 46 00 99 44 52 24 3A 44 B2 C5 |.60.u.F..DR$:D..|
00000170: 28 44 52 24 29 00 92 09 50 00 44 52 24 B2 22 49 |(DR$)...P.DR$."I|
00000180: 22 AA 44 52 24 3A 9F 31 35 2C 38 2C 31 35 2C 44 |".DR$:.15,8,15,D|
00000190: 52 24 00 9B 09 5A 00 8D 34 35 30 00 AF 09 64 00 |R$...Z..450...d.|
000001A0: 9F 31 2C 38 2C 33 2C 22 23 22 3A 8D 34 36 30 00 |.1,8,3,"#":.460.|
000001B0: D3 09 6E 00 99 3A 99 22 50 52 45 53 53 27 12 59 |..n..:."PRESS'.Y|
000001C0: 92 27 54 4F 20 44 45 4C 45 54 45 20 46 49 4C 45 |.'TO DELETE FILE|
000001D0: 22 3A 99 00 DF 09 78 00 5A 24 B2 C7 28 30 29 00 |":....x.Z$..(0).|
000001E0: EC 09 82 00 54 B2 31 38 3A 53 B2 31 00 01 0A 8C |....T.18:S.1....|
000001F0: 00 98 31 35 2C 22 55 31 3A 22 33 3B 44 3B 54 3B |..15,"U1:"3;D;T;|
00000200: 53 00 18 0A 96 00 98 31 35 2C 22 42 2D 50 3A 22 |S......15,"B-P:"|
00000210: 33 3B 32 AA 33 32 AC 52 00 30 0A A0 00 A1 23 31 |3;2.32.R.0....#1|
00000220: 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 5A 24 |,A$:.A$."".A$.Z$|
00000230: 00 43 0A AA 00 8B C6 28 41 24 29 B3 31 32 39 A7 |.C.....(A$).129.|
00000240: 32 37 30 00 59 0A B4 00 81 4B B2 35 AA 33 32 AC |270.Y....K.5.32.|
00000250: 52 A4 32 30 AA 33 32 AC 52 00 6B 0A BE 00 98 31 |R.20.32.R.k....1|
00000260: 35 2C 22 42 2D 50 3A 22 33 3B 4B 00 8A 0A C8 00 |5,"B-P:"3;K.....|
00000270: A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 22 |.#1,A$:.A$."".."|
00000280: 12 20 92 22 3B 3A 89 32 32 30 00 93 0A D2 00 99 |. .";:.220......|
00000290: 41 24 3B 00 99 0A DC 00 82 00 B0 0A E6 00 99 2C |A$;............,|
000002A0: 2C 22 50 55 52 47 45 20 3F 20 12 20 92 9D 22 3B |,"PURGE ? . ..";|
000002B0: 00 CD 0A F0 00 A1 41 24 3A 8B 41 24 B3 B1 22 59 |......A$:.A$.."Y|
000002C0: 22 AF 41 24 B3 B1 22 4E 22 A7 32 34 30 00 D5 0A |".A$.."N".240...|
000002D0: FA 00 99 41 24 00 E6 0A 04 01 8B 41 24 B2 22 59 |...A$......A$."Y|
000002E0: 22 A7 8D 33 36 30 00 F9 0A 0E 01 52 B2 52 AA 31 |"..360.....R.R.1|
000002F0: 3A 8B 52 B3 38 A7 31 34 30 00 0B 0B 18 01 98 31 |:.R.8.140......1|
00000300: 35 2C 22 42 2D 50 3A 22 33 3B 30 00 23 0B 22 01 |5,"B-P:"3;0.#.".|
00000310: A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 |.#1,A$:.A$."".A$|
00000320: B2 5A 24 00 50 0B 2C 01 54 B2 C6 28 41 24 29 3A |.Z$.P.,.T..(A$):|
00000330: 8B 54 B2 30 A7 99 3A 99 22 45 4E 44 20 4F 46 20 |.T.0..:."END OF |
00000340: 44 49 52 45 43 54 4F 52 59 2E 22 3A 89 34 30 30 |DIRECTORY.":.400|
00000350: 00 62 0B 36 01 98 31 35 2C 22 42 2D 50 3A 22 33 |.b.6..15,"B-P:"3|
00000360: 3B 31 00 7A 0B 40 01 A1 23 31 2C 41 24 3A 8B 41 |;1.z.@..#1,A$:.A|
00000370: 24 B2 22 22 A7 41 24 B2 5A 24 00 AC 0B 4A 01 53 |$."".A$.Z$...J.S|
00000380: B2 C6 28 41 24 29 3A 99 3A 99 22 2A 2A 2A 20 4E |..(A$):.:."*** N|
00000390: 45 58 54 20 54 52 41 43 4B 3A 20 22 3B 3A 4E 55 |EXT TRACK: ";:NU|
000003A0: B2 54 3A 8D 35 32 30 3A 99 4E 24 3B 00 DE 0B 54 |.T:.520:.N$;...T|
000003B0: 01 99 A3 32 30 29 3B 22 4E 45 58 54 20 53 45 43 |...20);"NEXT SEC|
000003C0: 54 4F 52 3A 20 22 3B 3A 4E 55 B2 53 3A 8D 35 32 |TOR: ";:NU.S:.52|
000003D0: 30 3A 99 4E 24 3B 22 20 2A 2A 2A 22 3A 99 00 EB |0:.N$;" ***":...|
000003E0: 0B 5E 01 52 B2 30 3A 89 31 34 30 00 04 0C 68 01 |.^.R.0:.140...h.|
000003F0: 98 31 35 2C 22 42 2D 50 3A 22 33 3B 35 AA 33 32 |.15,"B-P:"3;5.32|
00000400: AC 52 AB 33 00 11 0C 72 01 98 31 2C C7 28 30 29 |.R.3...r..1,.(0)|
00000410: 3B 00 26 0C 7C 01 98 31 35 2C 22 55 32 3A 22 33 |;.&.|..15,"U2:"3|
00000420: 3B 44 3B 54 3B 53 00 31 0C 86 01 8D 34 36 30 3A |;D;T;S.1....460:|
00000430: 8E 00 38 0C 90 01 A0 31 00 57 0C 95 01 99 22 56 |..8....1.W...."V|
00000440: 41 4C 49 44 41 54 45 20 44 49 53 4B 20 20 28 59 |ALIDATE DISK (Y|
00000450: 20 4F 52 20 4E 29 22 00 6B 0C 96 01 A1 56 24 3A | OR N)".k....V$:|
00000460: 8B 56 24 B2 22 59 22 A7 34 31 30 00 7A 0C 97 01 |.V$."Y".410.z...|
00000470: 8B 56 24 B2 22 22 A7 34 30 36 00 84 0C 98 01 A0 |.V$."".406......|
00000480: 31 35 3A 80 00 A3 0C 9A 01 99 3A 99 22 12 56 41 |15:.......:.".VA|
00000490: 4C 49 44 41 54 49 4E 47 20 44 49 53 4B 45 54 54 |LIDATING DISKETT|
000004A0: 45 92 22 00 B5 0C A4 01 98 31 35 2C 28 22 56 22 |E."......15,("V"|
000004B0: AA 44 52 24 29 00 C2 0C AE 01 8D 34 36 30 3A A0 |.DR$)......460:.|
000004C0: 31 35 00 C8 0C B8 01 80 00 E0 0C C2 01 8F 20 43 |15............ C|
000004D0: 48 45 43 4B 20 44 49 53 4B 20 53 54 41 54 55 53 |HECK DISK STATUS|
000004E0: 00 F5 0C CC 01 84 31 35 2C 45 52 2C 45 52 24 2C |......15,ER,ER$,|
000004F0: 54 52 2C 53 45 00 01 0D D6 01 8B 45 52 B2 30 A7 |TR,SE......ER.0.|
00000500: 8E 00 0C 0D E0 01 A0 31 35 3A A0 31 00 25 0D EA |.......15:.1.%..|
00000510: 01 99 3A 99 22 11 44 49 53 4B 20 45 52 52 4F 52 |..:.".DISK ERROR|
00000520: 21 21 20 22 3B 00 37 0D F4 01 99 45 52 3B 45 52 |!! ";.7....ER;ER|
00000530: 24 3B 54 52 3B 53 45 00 3D 0D FE 01 90 00 60 0D |$;TR;SE.=.....`.|
00000540: 08 02 8F 20 46 4F 52 4D 41 54 20 52 45 54 55 52 |... FORMAT RETUR|
00000550: 4E 20 57 49 54 48 4F 55 54 20 47 4F 53 55 42 53 |N WITHOUT GOSUBS|
00000560: 00 72 0D 12 02 4E 24 B2 CA 28 C4 28 4E 55 29 2C |.r...N$..(.(NU),|
00000570: 32 29 00 89 0D 1C 02 8B C3 28 4E 24 29 B3 32 A7 |2).......(N$).2.|
00000580: 4E 24 B2 22 30 22 AA 4E 24 00 8F 0D 26 02 8E 00 |N$."0".N$...&...|
00000590: 00 00 |.. |
.......30./...:.........................
........U...:. DISK PURGE
..{...:. COMPUTE GAZETTE
......:. AUG 84
..G...:. PAGE 110 ..
....:...................................
... FOR 4040/2031/1540/1541.#.(.."..DISK
ETTE PURGE".D.2..:."WHICH DRIVE (0/1) ?.
..".C.<..DR$:.DR$.."0".DR$.."1".60.U.F.
.DR$:D.E(DR$)...P.DR$."I".DR$:.15,8,15,D
R$...Z..450...D..1,8,3,"#":.460.S.N..:."
PRESS'.Y.'TO DELETE FILE":....X.Z$.G(0).
....T.18:S.1......15,"U1:"3;D;T;S......1
5,"B-P:"3;2.32.R.0. ..#1,A$:.A$."".A$.Z$
.C....F(A$).129.270.Y....K.5.32.R.20.32.
R.K....15,"B-P:"3;K...H..#1,A$:.A$."".."
. .";:.220...R..A$;............,,"PURGE
? . ..";.M....A$:.A$.."Y".A$.."N".240.U.
...A$......A$."Y"..360.....R.R.1:.R.8.14
0......15,"B-P:"3;0.#."..#1,A$:.A$."".A$
.Z$.P.,.T.F(A$):.T.0..:."END OF DIRECTOR
Y.":.400.B.6..15,"B-P:"3;1.Z.@..#1,A$:.A
$."".A$.Z$...J.S.F(A$):.:."*** NEXT TRAC
K: ";:NU.T:.520:.N$;...T...20);"NEXT SEC
TOR: ";:NU.S:.520:.N$;" ***":....^.R.0:.
140...H..15,"B-P:"3;5.32.R.3...R..1,G(0)
;.&.|..15,"U2:"3;D;T;S.1....460:..8... 1
.W...."VALIDATE DISK (Y OR N)".K....V$:
.V$."Y".410.Z....V$."".406..... 15:.....
..:.".VALIDATING DISKETTE."......15,("V"
.DR$).B....460: 15.H.......B.. CHECK DIS
K STATUS...L..15,ER,ER$,TR,SE...V..ER.0.
...... 15: 1.%....:.".DISK ERROR!! ";.7.
...ER;ER$;TR;SE.=.....`.... FORMAT RETUR
N WITHOUT GOSUBS.R...N$.J(D(NU),2)......
C(N$).2.N$."0".N$...&.....
> CLICK IMAGE PREVIEW FOR FULL MODAL