UNSCRATCH
FILE INFORMATION
FILENAME(S): UNSCRATCH
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:06:57
APPEARS ON: 1 disk(s)
FILE HASH
8a35d627ede1b04fed2d18c11646b690014ef94ee8524462fd717c6363c1dc27
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PETERS SOFT UTI | UNSCRATCH | PRG | DuncanTwain | 26 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 B8 0B 85 20 22 93 57 48 49 43 48 20 |..1.... ".WHICH | 00000010: 53 45 43 54 4F 52 22 3B 53 24 3A 53 B2 C5 28 53 |SECTOR";S$:S..(S| 00000020: 24 29 3A 8B 53 B3 30 B0 53 B1 31 39 A7 33 30 30 |$):.S.0.S.19.300| 00000030: 30 00 69 08 C2 0B 99 22 11 11 57 48 41 54 20 49 |0.i...."..WHAT I| 00000040: 53 20 54 48 45 20 46 49 52 53 54 20 42 59 54 45 |S THE FIRST BYTE| 00000050: 22 3A 99 22 4F 46 20 54 48 45 20 46 49 4C 45 20 |":."OF THE FILE | 00000060: 59 4F 55 20 57 49 53 48 22 00 7E 08 C3 0B 99 22 |YOU WISH".~...."| 00000070: 54 4F 20 55 4E 53 43 52 41 54 43 48 3F 22 00 B8 |TO UNSCRATCH?"..| 00000080: 08 CC 0B 85 42 50 24 3A 42 50 B2 C5 28 42 50 24 |....BP$:BP..(BP$| 00000090: 29 3A 8F 20 49 4E 50 55 54 20 46 49 4C 45 20 54 |):. INPUT FILE T| 000000A0: 41 52 47 45 54 20 42 59 54 45 20 46 4F 52 20 55 |ARGET BYTE FOR U| 000000B0: 4E 53 43 52 41 54 43 48 00 02 09 D6 0B 42 53 B2 |NSCRATCH.....BS.| 000000C0: 28 42 50 B2 32 29 AA 28 42 50 B2 33 34 29 AA 28 |(BP.2).(BP.34).(| 000000D0: 42 50 B2 36 36 29 AA 28 42 50 B2 39 38 29 AA 28 |BP.66).(BP.98).(| 000000E0: 42 50 B2 31 33 30 29 AA 28 42 50 B2 31 36 32 29 |BP.130).(BP.162)| 000000F0: AA 28 42 50 B2 31 39 34 29 AA 28 42 50 B2 32 32 |.(BP.194).(BP.22| 00000100: 36 29 00 29 09 DB 0B 8B 42 53 B3 B1 AB 31 A7 33 |6).)....BS...1.3| 00000110: 30 32 30 3A 8F 20 52 45 4A 45 43 54 49 4E 56 41 |020:. REJECTINVA| 00000120: 4C 49 44 20 49 4E 50 55 54 00 44 09 E0 0B 99 22 |LID INPUT.D...."| 00000130: 11 11 53 45 4C 45 43 54 20 46 49 4C 45 20 54 59 |..SELECT FILE TY| 00000140: 50 45 3A 22 00 5C 09 EA 0B 99 22 11 20 20 31 2E |PE:".\....". 1.| 00000150: 20 53 45 51 55 45 4E 54 49 41 4C 22 00 70 09 F4 | SEQUENTIAL".p..| 00000160: 0B 99 22 20 20 32 2E 20 50 52 4F 47 52 41 4D 22 |.." 2. PROGRAM"| 00000170: 00 81 09 FE 0B 99 22 20 20 33 2E 20 55 53 45 52 |......" 3. USER| 00000180: 22 00 96 09 08 0C 99 22 20 20 34 2E 20 52 45 4C |"......" 4. REL| 00000190: 41 54 49 56 45 22 00 AA 09 12 0C 99 22 11 11 57 |ATIVE"......"..W| 000001A0: 48 49 43 48 20 4F 4E 45 3F 22 00 C0 09 1C 0C A1 |HICH ONE?"......| 000001B0: 20 41 24 3A 20 8B 41 24 B2 22 22 A7 33 31 30 30 | A$: .A$."".3100| 000001C0: 00 F3 09 26 0C 41 B2 C5 28 41 24 29 3A 8B 41 B3 |...&.A..(A$):.A.| 000001D0: 31 B0 41 B1 34 A7 33 31 30 30 3A 20 8F 20 52 45 |1.A.4.3100: . RE| 000001E0: 4A 45 43 54 20 49 4E 56 41 4C 49 44 20 43 48 4F |JECT INVALID CHO| 000001F0: 49 43 45 00 29 0A 30 0C 42 B2 41 AA 31 32 38 3A |ICE.).0.B.A.128:| 00000200: 20 8F 20 53 45 54 20 49 4E 50 55 54 20 42 59 54 | . SET INPUT BYT| 00000210: 45 20 54 4F 20 4D 41 54 43 48 20 44 4F 53 20 46 |E TO MATCH DOS F| 00000220: 49 4C 45 20 43 4F 44 45 53 00 5A 0A 3A 0C 9F 31 |ILE CODES.Z.:..1| 00000230: 35 2C 38 2C 31 35 2C 22 49 22 3A 20 8F 20 4F 50 |5,8,15,"I": . OP| 00000240: 45 4E 20 43 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E |EN COMMAND CHANN| 00000250: 45 4C 20 54 4F 20 44 49 53 4B 00 8F 0A 44 0C 9F |EL TO DISK...D..| 00000260: 38 2C 38 2C 38 2C 22 23 22 3A 20 8F 20 4F 50 45 |8,8,8,"#": . OPE| 00000270: 4E 20 44 49 52 45 43 54 20 41 43 43 45 53 53 20 |N DIRECT ACCESS | 00000280: 43 48 41 4E 4E 45 4C 20 54 4F 20 44 49 53 4B 00 |CHANNEL TO DISK.| 00000290: D6 0A 4E 0C 98 31 35 2C 22 55 31 3A 22 38 3B 30 |..N..15,"U1:"8;0| 000002A0: 3B 31 38 3B 53 3A 20 8F 20 4C 4F 41 44 20 53 45 |;18;S: . LOAD SE| 000002B0: 43 54 4F 52 20 43 4F 4E 54 41 49 4E 49 4E 47 20 |CTOR CONTAINING | 000002C0: 46 49 4C 45 20 54 4F 20 42 45 20 55 4E 53 43 52 |FILE TO BE UNSCR| 000002D0: 41 54 43 48 45 44 00 11 0B 58 0C 98 31 35 2C 22 |ATCHED...X..15,"| 000002E0: 42 2D 50 3A 22 38 3B 42 50 3A 20 8F 20 53 45 54 |B-P:"8;BP: . SET| 000002F0: 20 42 55 46 46 45 52 20 50 4F 49 4E 54 45 52 20 | BUFFER POINTER | 00000300: 54 4F 20 54 41 52 47 45 54 20 41 44 44 52 45 53 |TO TARGET ADDRES| 00000310: 53 00 4E 0B 62 0C 98 38 2C 20 C7 28 42 29 3B 3A |S.N.b..8, .(B);:| 00000320: 20 8F 20 43 48 41 4E 47 45 20 54 41 52 47 45 54 | . CHANGE TARGET| 00000330: 20 46 49 4C 45 20 43 4F 44 45 20 49 4E 20 43 48 | FILE CODE IN CH| 00000340: 41 4E 4E 45 4C 20 38 20 42 55 46 46 45 52 00 91 |ANNEL 8 BUFFER..| 00000350: 0B 6C 0C 98 31 35 2C 20 22 55 32 3A 22 38 3B 30 |.l..15, "U2:"8;0| 00000360: 3B 31 38 3B 53 3A 20 8F 20 52 45 54 55 52 4E 20 |;18;S: . RETURN | 00000370: 43 48 41 4E 47 45 44 20 43 4F 4E 54 45 4E 54 53 |CHANGED CONTENTS| 00000380: 20 54 4F 20 54 41 52 47 45 54 20 53 45 43 54 4F | TO TARGET SECTO| 00000390: 52 00 B7 0B 76 0C A0 38 3A 20 8F 20 43 4C 4F 53 |R...v..8: . CLOS| 000003A0: 45 20 44 49 52 45 43 54 20 41 43 43 45 53 53 20 |E DIRECT ACCESS | 000003B0: 43 48 41 4E 4E 45 4C 00 D9 0B 80 0C A0 20 31 35 |CHANNEL...... 15| 000003C0: 3A 20 8F 20 43 4C 4F 53 45 20 43 4F 4D 4D 41 4E |: . CLOSE COMMAN| 000003D0: 44 20 43 48 41 4E 4E 45 4C 00 20 0C 8A 0C 8F 20 |D CHANNEL. .... | 000003E0: 47 4F 54 4F 20 31 30 30 3A 20 52 45 4D 20 52 45 |GOTO 100: REM RE| 000003F0: 53 54 41 52 54 20 44 49 53 50 4C 41 59 20 54 26 |START DISPLAY T&| 00000400: 53 20 50 52 4F 47 52 41 4D 20 57 48 45 4E 20 46 |S PROGRAM WHEN F| 00000410: 49 52 53 54 20 52 45 4D 20 52 45 4D 4F 56 45 44 |IRST REM REMOVED| 00000420: 00 00 00 |... |
..1.... ".WHICH SECTOR";S$:S.E(S$):.S.0. S.19.3000.I.B.."..WHAT IS THE FIRST BYTE ":."OF THE FILE YOU WISH".~.C.."TO UNSCR ATCH?"...L..BP$:BP.E(BP$):. INPUT FILE T ARGET BYTE FOR UNSCRATCH...V.BS.(BP.2).( BP.34).(BP.66).(BP.98).(BP.130).(BP.162) .(BP.194).(BP.226).)....BS...1.3020:. RE JECTINVALID INPUT.D...."..SELECT FILE TY PE:".\....". 1. SEQUENTIAL".P...." 2. PROGRAM"......" 3. USER"......" 4. REL ATIVE"......"..WHICH ONE?"...... A$: .A$ ."".3100...&.A.E(A$):.A.1.A.4.3100: . RE JECT INVALID CHOICE.).0.B.A.128: . SET I NPUT BYTE TO MATCH DOS FILE CODES.Z.:..1 5,8,15,"I": . OPEN COMMAND CHANNEL TO DI SK...D..8,8,8,"#": . OPEN DIRECT ACCESS CHANNEL TO DISK.V.N..15,"U1:"8;0;18;S: . LOAD SECTOR CONTAINING FILE TO BE UNSCR ATCHED...X..15,"B-P:"8;BP: . SET BUFFER POINTER TO TARGET ADDRESS.N.B..8, G(B);: . CHANGE TARGET FILE CODE IN CHANNEL 8 BUFFER...L..15, "U2:"8;0;18;S: . RETURN CHANGED CONTENTS TO TARGET SECTOR...V. 8 : . CLOSE DIRECT ACCESS CHANNEL.Y... 15 : . CLOSE COMMAND CHANNEL. .... GOTO 100 : REM RESTART DISPLAY T&S PROGRAM WHEN F IRST REM REMOVED...
> CLICK IMAGE PREVIEW FOR FULL MODAL