UNTRASH
FILE INFORMATION
FILENAME(S): UNTRASH
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-10-20 14:31:21
APPEARS ON: 2 disk(s)
FILE HASH
280b37aae8d680a8d053a997d7765713a1e4f6773244afe062528b926fae7fb5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G PD 22 | UNTRASH | PRG | Treasure Chest - Klaus Der Suhler | 10 | 18 | DOWNLOAD FILE |
| G H P B | UNTRASH | PRG | DuncanTwain | 10 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 05 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00 49 08 0A 00 99 20 22 93 |53281,0.I.... ".|
00000020: 9E 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 52 45 56 |.............REV|
00000030: 49 56 45 20 53 43 52 41 54 43 48 45 44 20 44 49 |IVE SCRATCHED DI|
00000040: 53 4B 20 46 49 4C 45 53 22 00 7B 08 14 00 99 20 |SK FILES".{.... |
00000050: 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 49 53 |"............DIS|
00000060: 4B 20 55 4E 49 54 20 4E 52 20 28 38 2D 31 35 29 |K UNIT NR (8-15)|
00000070: 20 3F A0 38 20 9D 9D 9D 9D 22 3B 00 A1 08 1E 00 | ?.8 ....";.....|
00000080: 85 20 55 3A 20 8B 20 55 B3 38 20 B0 20 55 B1 31 |. U: . U.8 . U.1|
00000090: 35 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 32 |5 . . "...": . 2|
000000A0: 30 00 D6 08 28 00 99 20 22 11 11 11 1D 1D 1D 1D |0...(.. ".......|
000000B0: 1D 1D 1D 1D 1D 44 49 53 4B 20 44 52 49 56 45 20 |.....DISK DRIVE |
000000C0: 4E 52 20 28 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 |NR (0/1) ?.0..."|
000000D0: 3B 3A 20 47 B2 30 00 FD 08 32 00 85 20 44 3A 20 |;: G.0...2.. D: |
000000E0: 8B 20 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 |. D.0 . D.1 . . |
000000F0: 22 91 91 91 91 91 22 3A 20 89 20 34 30 00 30 09 |".....": . 40.0.|
00000100: 3C 00 99 20 22 11 11 11 1D 1D 1D 1D 50 55 54 20 |<.. ".......PUT |
00000110: 54 41 52 47 45 54 20 44 49 53 4B 20 49 4E 20 55 |TARGET DISK IN U|
00000120: 4E 49 54 22 3B 55 3B 22 44 52 49 56 45 22 3B 44 |NIT";U;"DRIVE";D|
00000130: 00 5D 09 46 00 99 20 22 11 1D 1D 1D 1D 1D 54 48 |.].F.. "......TH|
00000140: 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |EN PRESS ANY KEY|
00000150: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 73 09 | TO CONTINUE".s.|
00000160: 50 00 A1 20 58 24 3A 20 8B 20 58 24 B2 22 22 A7 |P.. X$: . X$."".|
00000170: 20 38 30 00 AC 09 5A 00 99 20 22 93 11 11 11 11 | 80...Z.. ".....|
00000180: 11 11 11 11 11 11 1D 1D 1D 45 4E 54 45 52 20 53 |.........ENTER S|
00000190: 43 52 41 54 43 48 45 44 20 46 49 4C 45 2D 4E 41 |CRATCHED FILE-NA|
000001A0: 4D 45 20 28 4F 52 20 45 4E 44 29 22 00 DE 09 64 |ME (OR END)"...d|
000001B0: 00 99 20 22 11 1D 55 53 45 20 2A 20 41 54 20 4E |.. "..USE * AT N|
000001C0: 41 4D 45 2D 45 4E 44 20 46 4F 52 20 57 49 4C 44 |AME-END FOR WILD|
000001D0: 2D 43 41 52 44 20 53 45 41 52 43 48 11 22 00 03 |-CARD SEARCH."..|
000001E0: 0A 6E 00 85 20 22 20 3F 20 2A 9D 9D 9D 22 3B 4E |.n.. " ? *...";N|
000001F0: 24 3A 20 8B 20 4E 24 B2 22 45 4E 44 22 20 A7 20 |$: . N$."END" . |
00000200: 35 32 30 00 29 0A 78 00 56 B2 31 36 3A 20 51 B2 |520.).x.V.16: Q.|
00000210: 33 32 3A 20 46 B2 32 35 36 3A 20 54 B2 31 38 3A |32: F.256: T.18:|
00000220: 20 53 B2 31 3A 20 57 B2 30 00 43 0A 82 00 5A 24 | S.1: W.0.C...Z$|
00000230: B2 C7 28 30 29 3A 20 44 24 B2 C9 28 C4 28 44 29 |..(0): D$..(.(D)|
00000240: 2C 31 29 00 5B 0A 8C 00 4E 24 B2 C8 28 4E 24 2C |,1).[...N$..(N$,|
00000250: 56 29 3A 20 4C B2 C3 28 4E 24 29 00 74 0A 96 00 |V): L..(N$).t...|
00000260: 8B 20 C9 28 4E 24 2C 31 29 B3 B1 22 2A 22 20 A7 |. .(N$,1).."*" .|
00000270: 20 31 37 30 00 95 0A A0 00 4C B2 4C AB 31 3A 20 | 170.....L.L.1: |
00000280: 4E 24 B2 C8 28 4E 24 2C 4C 29 3A 20 57 B2 31 3A |N$..(N$,L): W.1:|
00000290: 89 20 31 39 30 00 A5 0A AA 00 8B 20 4C B2 56 20 |. 190...... L.V |
000002A0: A7 20 31 39 30 00 CB 0A B4 00 81 20 58 B2 4C AA |. 190...... X.L.|
000002B0: 31 20 A4 20 56 3A 20 4E 24 B2 4E 24 AA C7 28 31 |1 . V: N$.N$..(1|
000002C0: 36 30 29 3A 20 82 3A 20 4C B2 56 00 E6 0A BE 00 |60): .: L.V.....|
000002D0: 9F 20 31 2C 55 2C 31 35 2C 22 49 22 AA 44 24 3A |. 1,U,15,"I".D$:|
000002E0: 20 8D 20 35 30 30 00 FD 0A C8 00 9F 20 32 2C 55 | . 500...... 2,U|
000002F0: 2C 32 2C 22 23 22 3A 20 8D 20 35 30 30 00 19 0B |,2,"#": . 500...|
00000300: D2 00 98 31 2C 22 55 31 3A 22 3B 32 3B 44 3B 54 |...1,"U1:";2;D;T|
00000310: 3B 53 3A 20 8D 20 35 30 30 00 36 0B DC 00 98 31 |;S: . 500.6....1|
00000320: 2C 22 42 2D 50 3A 22 3B 32 3B 30 3A 20 A1 23 32 |,"B-P:";2;0: .#2|
00000330: 2C 41 24 2C 42 24 00 58 0B E6 00 54 52 B2 C6 28 |,A$,B$.X...TR..(|
00000340: 41 24 AA 5A 24 29 3A 20 53 43 B2 C6 28 42 24 AA |A$.Z$): SC..(B$.|
00000350: 5A 24 29 3A 20 48 B2 32 00 72 0B F0 00 98 31 2C |Z$): H.2.r....1,|
00000360: 22 42 2D 50 3A 22 3B 32 3B 48 3A 20 A1 23 32 2C |"B-P:";2;H: .#2,|
00000370: 54 24 00 8E 0B FA 00 43 B2 C6 28 54 24 AA 5A 24 |T$.....C..(T$.Z$|
00000380: 29 3A 20 8B 20 43 B1 30 20 A7 20 32 39 30 00 AE |): . C.0 . 290..|
00000390: 0B 04 01 A1 23 32 2C 41 24 2C 42 24 3A 20 46 24 |....#2,A$,B$: F$|
000003A0: B2 22 22 3A 20 81 20 58 B2 31 20 A4 20 56 00 D5 |."": . X.1 . V..|
000003B0: 0B 0E 01 A1 23 32 2C 54 24 3A 20 46 24 B2 46 24 |....#2,T$: F$.F$|
000003C0: AA 54 24 3A 20 82 3A 20 8B 20 46 24 B2 22 22 20 |.T$: .: . F$."" |
000003D0: A7 20 33 31 30 00 F2 0B 18 01 8B 20 4C B2 30 20 |. 310...... L.0 |
000003E0: B0 20 4E 24 B2 C8 28 46 24 2C 4C 29 20 A7 20 33 |. N$..(F$,L) . 3|
000003F0: 35 30 00 09 0C 22 01 48 B2 48 AA 51 3A 20 8B 20 |50...".H.H.Q: . |
00000400: 48 B3 46 20 A7 20 32 34 30 00 28 0C 2C 01 8B 20 |H.F . 240.(.,.. |
00000410: 54 52 B1 30 20 A7 20 54 B2 54 52 3A 20 53 B2 53 |TR.0 . T.TR: S.S|
00000420: 43 3A 20 89 20 32 31 30 00 65 0C 36 01 8B 20 57 |C: . 210.e.6.. W|
00000430: 20 A7 20 99 20 22 93 11 11 11 11 11 11 11 11 11 | . . "..........|
00000440: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 44 |.............END|
00000450: 20 4F 46 20 44 49 52 45 43 54 4F 52 59 22 3A 20 | OF DIRECTORY": |
00000460: 89 20 34 37 30 00 84 0C 40 01 99 20 22 11 11 1D |. 470...@.. "...|
00000470: 1D 1D 1D 1D 46 49 4C 45 2D 4E 41 4D 45 3A 20 20 |....FILE-NAME: |
00000480: 22 3B 4E 24 00 A8 0C 4A 01 99 20 22 1D 1D 1D 1D |";N$...J.. "....|
00000490: 1D 4E 4F 54 20 46 4F 55 4E 44 20 49 4E 20 44 49 |.NOT FOUND IN DI|
000004A0: 52 45 43 54 4F 52 59 22 00 C3 0C 54 01 81 20 58 |RECTORY"...T.. X|
000004B0: B2 31 20 A4 20 32 30 30 30 3A 20 82 3A 20 89 20 |.1 . 2000: .: . |
000004C0: 34 39 30 00 DE 0C 5E 01 41 B2 C6 28 41 24 AA 5A |490...^.A..(A$.Z|
000004D0: 24 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 29 00 07 |$): B..(B$.Z$)..|
000004E0: 0D 68 01 99 20 22 93 11 11 11 11 11 11 11 11 11 |.h.. "..........|
000004F0: 11 1D 1D 1D 1D 1D 46 4F 55 4E 44 20 46 49 4C 45 |......FOUND FILE|
00000500: 3A 20 20 22 3B 46 24 00 2B 0D 72 01 99 20 22 1D |: ";F$.+.r.. ".|
00000510: 1D 1D 1D 1D 41 54 20 54 52 41 43 4B 22 3B 41 3B |....AT TRACK";A;|
00000520: 22 20 53 45 43 54 4F 52 22 3B 42 00 5E 0D 7C 01 |" SECTOR";B.^.|.|
00000530: 99 20 22 11 1D 1D 1D 57 41 4E 54 20 54 4F 20 52 |. "....WANT TO R|
00000540: 45 56 49 56 45 20 54 48 49 53 20 46 49 4C 45 20 |EVIVE THIS FILE |
00000550: 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 77 |(Y/N) ? Y...";.w|
00000560: 0D 86 01 85 20 58 24 3A 20 8B 20 58 24 B2 22 59 |.... X$: . X$."Y|
00000570: 22 20 A7 20 34 31 30 00 85 0D 90 01 8B 20 57 20 |" . 410...... W |
00000580: A7 20 32 39 30 00 B7 0D 9A 01 99 20 22 11 11 31 |. 290...... "..1|
00000590: 3D 53 45 51 20 20 32 3D 50 52 47 20 20 33 3D 55 |=SEQ 2=PRG 3=U|
000005A0: 53 52 20 20 34 3D 52 45 4C 20 20 28 20 47 45 4F |SR 4=REL ( GEO|
000005B0: 53 3D 55 53 52 20 29 00 E4 0D A4 01 99 20 22 1D |S=USR )...... ".|
000005C0: 1D 1D 1D 1D 1D 1D 45 4E 54 45 52 20 46 49 4C 45 |......ENTER FILE|
000005D0: 2D 54 59 50 45 20 28 31 2D 34 29 20 3F 20 33 9D |-TYPE (1-4) ? 3.|
000005E0: 9D 9D 22 3B 00 0B 0E AE 01 85 20 50 3A 20 8B 20 |..";...... P: . |
000005F0: 50 B3 31 20 B0 20 50 B1 34 20 A7 20 99 20 22 91 |P.1 . P.4 . . ".|
00000600: 91 91 91 22 3A 20 89 20 34 30 30 00 2B 0E B8 01 |...": . 400.+...|
00000610: 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 48 3A 20 98 |.1,"B-P:";2;H: .|
00000620: 32 2C C7 28 50 AA 31 32 38 29 3B 00 4A 0E C2 01 |2,.(P.128);.J...|
00000630: 98 31 2C 22 55 32 3A 22 3B 32 3B 44 3B 54 3B 53 |.1,"U2:";2;D;T;S|
00000640: 3A 8D 20 35 30 30 3A 47 B2 31 00 72 0E CC 01 99 |:. 500:G.1.r....|
00000650: 20 22 93 11 11 11 11 11 1D 1D 55 4E 2D 53 43 52 | "........UN-SCR|
00000660: 41 54 43 48 45 44 20 46 49 4C 45 3A 20 20 22 3B |ATCHED FILE: ";|
00000670: 46 24 00 A2 0E D6 01 99 20 22 11 11 1D 1D 1D 1D |F$...... "......|
00000680: 1D 1D 52 45 56 49 56 45 20 4D 4F 52 45 20 46 49 |..REVIVE MORE FI|
00000690: 4C 45 53 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D |LES (Y/N) ? Y...|
000006A0: 22 3B 00 BC 0E E0 01 85 20 58 24 3A 20 8B 20 58 |";...... X$: . X|
000006B0: 24 B3 B1 22 59 22 20 A7 20 35 32 30 00 CA 0E E5 |$.."Y" . 520....|
000006C0: 01 8B 20 57 20 A7 20 32 39 30 00 DD 0E EA 01 A0 |.. W . 290......|
000006D0: 20 32 3A 20 A0 20 31 3A 20 89 20 39 30 00 F7 0E | 2: . 1: . 90...|
000006E0: F4 01 84 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 |...1,E,M$,J,K:. |
000006F0: 45 B2 30 20 A7 20 8E 00 12 0F FE 01 99 20 22 11 |E.0 . ....... ".|
00000700: 20 45 52 52 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A | ERROR: ";E;M$;J|
00000710: 3B 4B 00 2C 0F 08 02 A0 20 32 3A 20 A0 20 31 3A |;K.,.... 2: . 1:|
00000720: 20 8B 20 47 B2 30 20 A7 20 36 30 30 00 5E 0F 0D | . G.0 . 600.^..|
00000730: 02 99 22 93 05 11 11 11 11 11 1D 1D 1D 1D 1D 12 |..".............|
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 8A | "..|
00000760: 0F 12 02 99 20 22 12 1D 1D 1D 1D 1D 20 52 45 56 |.... "...... REV|
00000770: 41 4C 49 44 41 54 45 20 44 49 53 4B 20 49 4D 4D |ALIDATE DISK IMM|
00000780: 45 44 49 41 54 45 4C 59 20 22 00 B7 0F 1C 02 99 |EDIATELY "......|
00000790: 20 22 12 1D 1D 1D 1D 1D 20 20 20 20 20 41 46 54 | "...... AFT|
000007A0: 45 52 20 47 45 4F 53 20 52 45 42 4F 4F 54 53 21 |ER GEOS REBOOTS!|
000007B0: 20 20 20 20 20 92 22 00 E3 0F 21 02 99 22 12 1D | ."...!.."..|
000007C0: 1D 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 92 22 00 10 10 26 02 99 22 11 11 11 11 11 1D | ."...&.."......|
000007F0: 1D 1D 1D 1D 1D 1D 1D 9E 48 49 54 20 41 4E 59 20 |........HIT ANY |
00000800: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"|
00000810: 00 23 10 30 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.#.0..A$:.A$."".|
00000820: 35 36 30 00 58 10 58 02 99 22 93 11 11 11 11 11 |560.X.X.."......|
00000830: 11 11 11 1D 1D 1D 1D 49 4E 53 45 52 54 20 47 45 |.......INSERT GE|
00000840: 4F 53 20 42 4F 4F 54 20 44 49 53 4B 20 49 4E 20 |OS BOOT DISK IN |
00000850: 44 52 49 56 45 20 38 22 00 8E 10 62 02 99 22 11 |DRIVE 8"...b..".|
00000860: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000870: 48 49 54 20 41 4E 59 20 4B 45 59 20 57 48 45 4E |HIT ANY KEY WHEN|
00000880: 20 52 45 41 44 59 22 3A 97 31 39 38 2C 30 00 A1 | READY":.198,0..|
00000890: 10 6C 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 32 |.l..A$:.A$."".62|
000008A0: 30 00 D8 10 76 02 9F 38 2C 38 2C 38 2C 22 30 3A |0...v..8,8,8,"0:|
000008B0: 47 45 4F 53 20 42 4F 4F 54 2C 53 2C 52 22 3A 9F |GEOS BOOT,S,R":.|
000008C0: 31 35 2C 38 2C 31 35 3A 84 31 35 2C 41 24 2C 42 |15,8,15:.15,A$,B|
000008D0: 24 3A A0 38 3A A0 31 35 00 EA 10 80 02 8B 41 24 |$:.8:.15......A$|
000008E0: B3 B1 22 36 34 22 A7 36 30 30 00 23 11 8A 02 97 |.."64".600.#....|
000008F0: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00000900: 36 3A 99 22 93 1F 4E 45 57 22 3A 99 22 11 11 4C |6:."..NEW":."..L|
00000910: 4F 41 44 22 C7 28 33 34 29 22 3A 2A 22 C7 28 33 |OAD".(34)":*".(3|
00000920: 34 29 3B 00 50 11 94 02 99 22 2C 38 2C 31 22 3A |4);.P....",8,1":|
00000930: 97 31 39 38 2C 33 3A 97 36 33 31 2C 31 39 3A 97 |.198,3:.631,19:.|
00000940: 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A 80 |632,13:.633,13:.|
00000950: 00 00 00 |... |
.......53280,0:.53281,0.I.... ".........
.....REVIVE SCRATCHED DISK FILES".{....
"............DISK UNIT NR (8-15) ? 8 ...
.";...... U: . U.8 . U.15 . . "...": . 2
0.V.(.. "............DISK DRIVE NR (0/1)
? 0...";: G.0...2.. D: . D.0 . D.1 . .
".....": . 40.0.<.. ".......PUT TARGET D
ISK IN UNIT";U;"DRIVE";D.].F.. "......TH
EN PRESS ANY KEY TO CONTINUE".S.P.. X$:
. X$."". 80...Z.. "..............ENTER S
CRATCHED FILE-NAME (OR END)"...D.. "..US
E * AT NAME-END FOR WILD-CARD SEARCH."..
.N.. " ? *...";N$: . N$."END" . 520.).X.
V.16: Q.32: F.256: T.18: S.1: W.0.C...Z$
.G(0): D$.I(D(D),1).[...N$.H(N$,V): L.C(
N$).T.... I(N$,1).."*" . 170... .L.L.1:
N$.H(N$,L): W.1:. 190...... L.V . 190.K.
... X.L.1 . V: N$.N$.G(160): .: L.V.....
. 1,U,15,"I".D$: . 500...H.. 2,U,2,"#":
. 500...R..1,"U1:";2;D;T;S: . 500.6....1
,"B-P:";2;0: .#2,A$,B$.X...TR.F(A$.Z$):
SC.F(B$.Z$): H.2.R....1,"B-P:";2;H: .#2,
T$.....C.F(T$.Z$): . C.0 . 290......#2,A
$,B$: F$."": . X.1 . V.U....#2,T$: F$.F$
.T$: .: . F$."" . 310...... L.0 . N$.H(F
$,L) . 350...".H.H.Q: . H.F . 240.(.,..
TR.0 . T.TR: S.SC: . 210.E.6.. W . . "..
.....................END OF DIRECTORY":
. 470...@.. ".......FILE-NAME: ";N$...J
.. ".....NOT FOUND IN DIRECTORY".C.T.. X
.1 . 2000: .: . 490...^.A.F(A$.Z$): B.F(
B$.Z$)...H.. "................FOUND FILE
: ";F$.+.R.. ".....AT TRACK";A;" SECTOR
";B.^.|.. "....WANT TO REVIVE THIS FILE
(Y/N) ? Y...";.W.... X$: . X$."Y" . 410.
..... W . 290...... "..1=SEQ 2=PRG 3=U
SR 4=REL ( GEOS=USR )...... ".......EN
TER FILE-TYPE (1-4) ? 3...";...... P: .
P.1 . P.4 . . "....": . 400.+....1,"B-P:
";2;H: .2,G(P.128);.J.B..1,"U2:";2;D;T;S
:. 500:G.1.R.L.. "........UN-SCRATCHED F
ILE: ";F$...V.. "........REVIVE MORE FI
LES (Y/N) ? Y...";...... X$: . X$.."Y" .
520.J.... W . 290..... 2: 1: . 90...
...1,E,M$,J,K:. E.0 . ....... ". ERROR:
";E;M$;J;K.,... 2: 1: . G.0 . 600.^..
..".............
"...... "...... REVALIDATE DISK IMM
EDIATELY "...... "...... AFTER GEOS
REBOOTS! ."...!.."......
."...&.."..............
HIT ANY KEY TO CONTINUE".#.0..A$:.A$."".
560.X.X..".............INSERT GEOS BOOT
DISK IN DRIVE 8"...B..".................
HIT ANY KEY WHEN READY":.198,0...L..A$:.
A$."".620.X.V..8,8,8,"0:GEOS BOOT,S,R":.
15,8,15:.15,A$,B$: 8: 15......A$.."64".6
00.#....53280,14:.53281,6:."..NEW":."..L
OAD"G(34)":*"G(34);.P....",8,1":.198,3:.
631,19:.632,13:.633,13:....
> CLICK IMAGE PREVIEW FOR FULL MODAL