(UN)SCRATCH
FILE INFORMATION
FILENAME(S): (UN)SCRATCH
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
c91fbc6ec3b313e96bc1c5274445751b5813221bc6bdb2a6d713e57f0faa7e09
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 03 | (UN)SCRATCH | PRG | The BAM Archive | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 38 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..8...."....... | 00000010: 20 20 20 2A 2A 2A 2A 2A 20 31 35 34 30 2F 31 35 | ***** 1540/15| 00000020: 34 31 20 2A 20 48 4F 55 53 45 4B 45 45 50 49 4E |41 * HOUSEKEEPIN| 00000030: 47 20 2A 2A 2A 2A 2A 2A 00 87 08 01 00 8F 22 14 |G ******......".| 00000040: 14 14 14 14 14 14 20 20 20 20 2A 2A 2A 2A 2A 20 |...... ***** | 00000050: 4D 49 43 48 41 45 4C 20 4D 41 49 4F 4E 45 2C 20 |MICHAEL MAIONE, | 00000060: 43 4F 4D 50 55 54 45 21 2C 20 20 20 20 20 20 20 |COMPUTE!, | 00000070: 20 20 41 50 52 49 4C 20 31 39 38 34 2C 20 50 2E | APRIL 1984, P.| 00000080: 20 31 34 30 46 46 2E 00 B4 08 03 00 8F 22 14 14 | 140FF......."..| 00000090: 14 14 14 14 14 20 20 20 20 20 8D 11 11 11 11 11 |..... ......| 000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000000B0: 11 11 11 22 00 F3 08 0A 00 86 41 28 32 35 35 29 |..."......A(255)| 000000C0: 2C 43 25 28 37 37 2C 32 38 29 2C 44 25 28 31 29 |,C%(77,28),D%(1)| 000000D0: 2C 54 25 28 32 32 34 2C 31 29 2C 53 25 28 32 32 |,T%(224,1),S%(22| 000000E0: 34 2C 31 29 2C 4C 25 28 32 32 34 29 2C 52 25 28 |4,1),L%(224),R%(| 000000F0: 37 37 29 00 20 09 0B 00 44 25 28 30 29 B2 35 38 |77). ...D%(0).58| 00000100: 3A 44 25 28 31 29 B2 34 32 3A 5A 24 B2 C7 28 30 |:D%(1).42:Z$..(0| 00000110: 29 3A 42 24 B2 C7 28 33 29 3A 44 24 B2 22 30 22 |):B$..(3):D$."0"| 00000120: 00 59 09 14 00 99 22 12 05 93 11 11 11 11 11 11 |.Y....".........| 00000130: 20 20 20 20 20 20 20 20 20 20 28 D5 CE 29 D3 C3 | (..)..| 00000140: D2 C1 D4 C3 C8 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000150: 20 20 20 20 20 20 20 20 22 00 8B 09 19 00 99 C7 | ".......| 00000160: 28 31 34 29 22 20 20 20 20 20 20 20 20 20 20 41 |(14)" A| 00000170: 20 44 49 53 4B 20 48 4F 55 53 45 4B 45 45 50 49 | DISK HOUSEKEEPI| 00000180: 4E 47 20 50 52 4F 47 52 41 4D 22 00 BF 09 1E 00 |NG PROGRAM".....| 00000190: 99 22 11 11 11 11 11 11 11 11 11 11 11 11 20 20 |."............ | 000001A0: 20 20 20 20 20 20 20 20 53 3D 53 43 52 41 54 43 | S=SCRATC| 000001B0: 48 2C 20 55 3D 55 4E 53 43 52 41 54 43 48 22 00 |H, U=UNSCRATCH".| 000001C0: D1 09 28 00 A1 51 24 3A 8B 51 24 B2 22 22 A7 34 |..(..Q$:.Q$."".4| 000001D0: 30 00 DD 09 2C 00 99 C7 28 31 34 32 29 00 ED 09 |0...,...(142)...| 000001E0: 2D 00 8B 51 24 B2 22 55 22 A7 34 30 30 00 FD 09 |-..Q$."U".400...| 000001F0: 2E 00 8B 51 24 B3 B1 22 53 22 A7 34 30 00 0C 0A |...Q$.."S".40...| 00000200: 32 00 99 22 93 11 12 44 49 53 4B 22 00 1C 0A 3C |2.."...DISK"...<| 00000210: 00 9F 31 2C 38 2C 30 2C 22 24 30 22 00 28 0A 46 |..1,8,0,"$0".(.F| 00000220: 00 4E 24 B2 C7 28 30 29 00 36 0A 50 00 A1 23 31 |.N$..(0).6.P..#1| 00000230: 2C 41 24 2C 41 24 00 4E 0A 5A 00 46 24 B2 22 22 |,A$,A$.N.Z.F$.""| 00000240: 3A 42 B2 30 3A A1 23 31 2C 41 24 2C 41 24 00 5D |:B.0:.#1,A$,A$.]| 00000250: 0A 5F 00 8B 43 B2 30 A7 99 22 12 22 3B 00 71 0A |._..C.0..".";.q.| 00000260: 64 00 8B 41 24 B2 22 22 A7 58 B2 31 3A 89 32 30 |d..A$."".X.1:.20| 00000270: 30 00 7F 0A 6E 00 A1 23 31 2C 41 24 2C 42 24 00 |0...n..#1,A$,B$.| 00000280: 89 0A 78 00 99 A3 35 29 3B 00 94 0A 82 00 A1 23 |..x...5);......#| 00000290: 31 2C 41 24 00 AC 0A 8C 00 8B 41 24 B2 22 22 A7 |1,A$......A$."".| 000002A0: 99 3A 41 B2 41 AA 31 3A 89 31 39 30 00 C4 0A 96 |.:A.A.1:.190....| 000002B0: 00 8B 41 24 B2 C7 28 33 34 29 A7 42 B2 31 3A 41 |..A$..(34).B.1:A| 000002C0: 24 B2 22 22 00 DB 0A A0 00 8B 42 B2 31 A7 46 24 |$.""......B.1.F$| 000002D0: B2 46 24 AA 41 24 3A 99 41 24 3B 00 F3 0A AA 00 |.F$.A$:.A$;.....| 000002E0: 8B C3 28 46 24 29 B1 31 36 A7 43 B2 43 AA 31 3A |..(F$).16.C.C.1:| 000002F0: 89 39 30 00 FC 0A B4 00 89 31 33 30 00 08 0B BE |.90......130....| 00000300: 00 8B 41 B3 38 A7 39 30 00 24 0B C8 00 99 22 53 |..A.8.90.$...."S| 00000310: 43 52 41 54 43 48 20 50 52 4F 47 52 41 4D 3F 20 |CRATCH PROGRAM? | 00000320: 59 2F 4E 22 00 37 0B D2 00 A1 5A 24 3A 8B 5A 24 |Y/N".7....Z$:.Z$| 00000330: B2 22 22 A7 32 31 30 00 47 0B DC 00 8B 5A 24 B2 |."".210.G....Z$.| 00000340: 22 59 22 A7 32 37 30 00 57 0B E6 00 8B 5A 24 B2 |"Y".270.W....Z$.| 00000350: 22 4E 22 A7 32 35 30 00 60 0B F0 00 89 32 31 30 |"N".250.`....210| 00000360: 00 71 0B FA 00 8B 58 B2 31 A7 A0 31 3A 89 33 39 |.q....X.1..1:.39| 00000370: 30 00 84 0B 04 01 99 22 93 11 11 22 3A 41 B2 30 |0......"...":A.0| 00000380: 3A 89 39 30 00 A9 0B 0E 01 A0 31 3A 85 22 11 57 |:.90......1:.".W| 00000390: 48 49 43 48 20 50 52 4F 47 52 41 4D 22 3B 50 24 |HICH PROGRAM";P$| 000003A0: 3A 8B 50 24 B2 22 22 A7 80 00 B2 0B 18 01 8D 33 |:.P$.""........3| 000003B0: 34 30 00 C3 0B 22 01 99 22 93 11 11 11 11 11 11 |40..."..".......| 000003C0: 11 11 22 00 D6 0B 2C 01 99 22 4F 50 45 4E 31 35 |.."...,.."OPEN15| 000003D0: 2C 38 2C 31 35 22 00 F7 0B 36 01 99 22 11 11 50 |,8,15"...6.."..P| 000003E0: D2 31 35 2C 22 C7 28 33 34 29 22 53 30 3A 22 58 |.15,".(34)"S0:"X| 000003F0: 24 C7 28 33 34 29 22 00 12 0C 40 01 99 22 11 11 |$.(34)"...@.."..| 00000400: 52 55 4E 22 3A 99 22 91 91 91 91 91 91 91 91 91 |RUN":.".........| 00000410: 91 22 00 37 0C 4A 01 97 36 33 31 2C 31 33 3A 97 |.".7.J..631,13:.| 00000420: 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A 97 |632,13:.633,13:.| 00000430: 31 39 38 2C 33 3A 80 00 55 0C 54 01 81 41 34 B2 |198,3:..U.T..A4.| 00000440: 31 A4 C3 28 50 24 29 3A 52 24 B2 CA 28 50 24 2C |1..(P$):R$..(P$,| 00000450: 41 34 2C 31 29 00 62 0C 5E 01 58 24 B2 58 24 AA |A4,1).b.^.X$.X$.| 00000460: 52 24 00 68 0C 68 01 82 00 86 0C 72 01 8B C3 28 |R$.h.h.....r...(| 00000470: 58 24 29 B1 31 30 A7 58 24 B2 C8 28 58 24 2C 31 |X$).10.X$..(X$,1| 00000480: 30 29 AA 22 2A 22 00 8C 0C 7C 01 8E 00 96 0C 86 |0)."*"...|......| 00000490: 01 A0 31 35 3A 8A 00 CB 0C 90 01 99 22 11 11 11 |..15:......."...| 000004A0: 4C 4F 41 44 49 4E 47 20 46 52 45 45 20 53 45 43 |LOADING FREE SEC| 000004B0: 54 4F 52 53 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 |TORS":.15,8,15,"| 000004C0: 49 22 AA 44 24 3A 8D 33 30 32 30 00 E3 0C 9A 01 |I".D$:.3020.....| 000004D0: 9F 33 2C 38 2C 33 2C 22 24 22 AA 44 24 3A 8D 33 |.3,8,3,"$".D$:.3| 000004E0: 30 32 30 00 FE 0C A4 01 41 30 B2 31 3A A1 23 33 |020.....A0.1:.#3| 000004F0: 2C 41 24 3A 41 B2 C6 28 41 24 AA 5A 24 29 00 10 |,A$:A..(A$.Z$)..| 00000500: 0D AE 01 87 41 31 3A 8B 41 B2 41 31 A7 34 37 30 |....A1:.A.A1.470| 00000510: 00 26 0D B8 01 46 25 B2 46 25 AA 31 3A 8B 46 25 |.&...F%.F%.1:.F%| 00000520: B2 33 A7 35 31 30 00 38 0D C2 01 87 41 31 3A 8B |.3.510.8....A1:.| 00000530: 41 31 B2 30 A7 34 33 30 00 41 0D CC 01 89 34 35 |A1.0.430.A....45| 00000540: 30 00 53 0D D6 01 87 41 31 3A 8B 41 31 B2 30 A7 |0.S....A1:.A1.0.| 00000550: 34 39 30 00 7A 0D E0 01 87 42 31 3A 81 4A B2 41 |490.z....B1:.J.A| 00000560: 30 A4 41 31 3A 52 25 28 4A 29 B2 42 31 3A 82 4A |0.A1:R%(J).B1:.J| 00000570: 3A 41 30 B2 4A 3A 89 34 37 30 00 9E 0D EA 01 8B |:A0.J:.470......| 00000580: 41 B2 31 B0 41 B2 36 35 A7 44 31 B2 31 3A 54 39 |A.1.A.65.D1.1:T9| 00000590: B2 33 35 3A 53 39 B2 33 3A 44 39 B2 31 38 00 C0 |.35:S9.3:D9.18..| 000005A0: 0D F4 01 8B 41 B2 36 37 A7 44 31 B2 32 35 37 3A |....A.67.D1.257:| 000005B0: 54 39 B2 37 37 3A 53 39 B2 34 3A 44 39 B2 33 39 |T9.77:S9.4:D9.39| 000005C0: 00 EC 0D FE 01 8B 54 39 B2 30 A7 A0 33 3A 99 22 |......T9.0..3:."| 000005D0: 3F 3F 20 44 49 53 4B 20 4E 4F 54 20 52 45 43 4F |?? DISK NOT RECO| 000005E0: 47 4E 49 5A 45 44 20 3F 3F 22 3A 90 00 02 0E 08 |GNIZED ??":.....| 000005F0: 02 81 4A B2 31 A4 44 31 3A A1 23 33 2C 41 24 3A |..J.1.D1:.#3,A$:| 00000600: 82 4A 00 13 0E 12 02 81 4A B2 31 A4 54 39 3A 54 |.J......J.1.T9:T| 00000610: 31 B2 30 00 2D 0E 1C 02 8B 4A B2 35 31 A7 A1 23 |1.0.-....J.51..#| 00000620: 33 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 43 0E |3,A$,A$,A$,A$.C.| 00000630: 26 02 A1 23 33 2C 41 24 3A 43 B2 C6 28 41 24 AA |&..#3,A$:C..(A$.| 00000640: 5A 24 29 00 68 0E 30 02 4B 31 B2 30 3A 81 4B B2 |Z$).h.0.K1.0:.K.| 00000650: 30 A4 53 39 AB 31 3A A1 23 33 2C 41 24 3A 41 B2 |0.S9.1:.#3,A$:A.| 00000660: C6 28 41 24 AA 5A 24 29 00 9B 0E 3A 02 81 4C B2 |.(A$.Z$)...:..L.| 00000670: 30 A4 37 3A 41 25 B2 41 AD 32 3A 44 31 B2 41 AB |0.7:A%.A.2:D1.A.| 00000680: 41 25 AC 32 3A 8B 4B 31 B3 B2 52 25 28 4A 29 A7 |A%.2:.K1..R%(J).| 00000690: 43 25 28 4A 2C 4B 31 29 B2 44 31 00 BA 0E 44 02 |C%(J,K1).D1...D.| 000006A0: 41 B2 41 25 3A 54 31 B2 54 31 AA 44 31 3A 4B 31 |A.A%:T1.T1.D1:K1| 000006B0: B2 4B 31 AA 31 3A 82 4C 2C 4B 00 C1 0E 4E 02 82 |.K1.1:.L,K...N..| 000006C0: 4A 00 C8 0E 58 02 A0 33 00 DE 0E 62 02 9F 32 2C |J...X..3...b..2,| 000006D0: 38 2C 32 2C 22 23 30 22 3A 8D 33 30 32 30 00 0C |8,2,"#0":.3020..| 000006E0: 0F 84 03 4B B2 30 3A 99 22 93 4C 4F 4F 4B 49 4E |...K.0:.".LOOKIN| 000006F0: 47 20 46 4F 52 20 53 43 52 41 54 43 48 45 44 22 |G FOR SCRATCHED"| 00000700: 3A 99 22 46 49 4C 45 53 2E 2E 2E 22 00 19 0F 8E |:."FILES..."....| 00000710: 03 54 B2 44 39 3A 53 B2 31 00 23 0F 98 03 8D 32 |.T.D9:S.1.#....2| 00000720: 30 30 30 00 49 0F A2 03 81 44 B2 32 A4 32 35 35 |000.I....D.2.255| 00000730: A9 33 32 3A 8B 41 28 44 29 B3 B1 30 B0 41 28 44 |.32:.A(D)..0.A(D| 00000740: AA 31 29 B2 30 A7 39 38 30 00 6D 0F AC 03 8B 4B |.1).0.980.m....K| 00000750: B2 30 A7 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 |.0.."DO YOU WANT| 00000760: 20 54 4F 20 52 45 43 4F 56 45 52 3A 22 00 95 0F | TO RECOVER:"...| 00000770: B6 03 A1 58 24 3A 81 4B B2 44 AA 33 A4 44 AA 31 |...X$:.K.D.3.D.1| 00000780: 38 3A 99 C7 28 41 28 4B 29 29 3B 3A 82 4B 3A 99 |8:..(A(K));:.K:.| 00000790: 22 3F 20 22 3B 00 B2 0F C0 03 A1 58 24 3A 8B 58 |"? ";......X$:.X| 000007A0: 24 B3 B1 22 59 22 AF 58 24 B3 B1 22 4E 22 A7 39 |$.."Y".X$.."N".9| 000007B0: 36 30 00 C7 0F CA 03 99 58 24 3A 8B 58 24 B2 22 |60......X$:.X$."| 000007C0: 59 22 A7 31 30 31 30 00 CE 0F D4 03 82 44 00 EA |Y".1010......D..| 000007D0: 0F DE 03 54 B2 41 28 30 29 3A 53 B2 41 28 31 29 |...T.A(0):S.A(1)| 000007E0: 3A 8B 54 B2 44 39 A7 39 32 30 00 07 10 E8 03 99 |:.T.D9.920......| 000007F0: 22 11 54 48 41 54 27 53 20 41 4C 4C 2E 2E 2E 20 |".THAT'S ALL... | 00000800: 22 3A 89 31 32 37 30 00 4B 10 F2 03 54 36 B2 54 |":.1270.K...T6.T| 00000810: 3A 53 36 B2 53 3A 44 36 B2 44 3A 54 B2 41 28 44 |:S6.S:D6.D:T.A(D| 00000820: AA 31 29 3A 53 B2 41 28 44 AA 32 29 3A 4C 25 28 |.1):S.A(D.2):L%(| 00000830: 30 29 B2 41 28 44 AA 32 38 29 AA 41 28 44 AA 32 |0).A(D.28).A(D.2| 00000840: 39 29 AC 32 35 36 3A 4C 25 B2 30 00 64 10 FC 03 |9).256:L%.0.d...| 00000850: A1 58 24 3A 99 22 49 53 20 54 48 49 53 20 46 49 |.X$:."IS THIS FI| 00000860: 4C 45 3A 22 00 7A 10 06 04 99 22 20 31 2E 20 53 |LE:".z...." 1. S| 00000870: 45 51 55 45 4E 54 49 41 4C 22 00 8D 10 10 04 99 |EQUENTIAL"......| 00000880: 22 20 32 2E 20 50 52 4F 47 52 41 4D 22 00 9C 10 |" 2. PROGRAM"...| 00000890: 1A 04 99 22 20 33 2E 20 55 53 52 22 00 B0 10 24 |..." 3. USR"...$| 000008A0: 04 8B 41 28 44 AA 31 39 29 B2 30 A7 31 30 38 30 |..A(D.19).0.1080| 000008B0: 00 C4 10 2E 04 99 22 20 34 2E 20 52 45 4C 41 54 |......" 4. RELAT| 000008C0: 49 56 45 22 00 DD 10 38 04 99 22 20 20 57 48 49 |IVE"...8.." WHI| 000008D0: 43 48 20 4E 55 4D 42 45 52 3F 20 22 3B 00 F1 10 |CH NUMBER? ";...| 000008E0: 42 04 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 30 39 |B..X$:.X$."".109| 000008F0: 30 00 0E 11 4C 04 58 B2 C6 28 58 24 29 AB 34 38 |0...L.X..(X$).48| 00000900: 3A 8B 58 B3 31 B0 58 B1 34 89 31 30 39 30 00 1E |:.X.1.X.4.1090..| 00000910: 11 56 04 99 58 24 3A 58 B2 58 AA 31 32 38 00 59 |.V..X$:X.X.128.Y| 00000920: 11 60 04 8B 58 B2 31 33 32 A7 54 25 28 30 2C 31 |.`..X.132.T%(0,1| 00000930: 29 B2 41 28 44 AA 31 39 29 3A 53 25 28 30 2C 31 |).A(D.19):S%(0,1| 00000940: 29 B2 41 28 44 AA 32 30 29 3A 8B 54 25 28 30 2C |).A(D.20):.T%(0,| 00000950: 31 29 B2 30 A7 31 30 32 30 00 6B 11 6A 04 8B 54 |1).0.1020.k.j..T| 00000960: B1 54 39 B0 53 B3 30 A7 54 B2 30 00 91 11 74 04 |.T9.S.0.T.0...t.| 00000970: 8B 54 B3 31 B0 53 B1 52 25 28 54 29 A7 99 22 20 |.T.1.S.R%(T).." | 00000980: 42 41 44 20 43 48 41 49 4E 21 22 3A 89 31 32 36 |BAD CHAIN!":.126| 00000990: 30 00 BC 11 7E 04 8B 43 25 28 54 2C 53 29 B2 30 |0...~..C%(T,S).0| 000009A0: A7 99 22 20 41 4C 4C 4F 43 41 54 45 44 20 42 4C |.." ALLOCATED BL| 000009B0: 4F 43 4B 53 21 22 3A 89 31 32 36 30 00 CE 11 88 |OCKS!":.1260....| 000009C0: 04 8D 33 30 30 30 3A 4C 25 B2 4C 25 AA 31 00 F3 |..3000:L%.L%.1..| 000009D0: 11 92 04 81 4A B2 30 A4 31 3A 98 31 35 2C 22 4D |....J.0.1:.15,"M| 000009E0: 2D 52 22 3B C7 28 4A 29 3B 42 24 3A A1 23 31 35 |-R";.(J);B$:.#15| 000009F0: 2C 41 24 00 08 12 9C 04 41 28 4A 29 B2 C6 28 41 |,A$.....A(J)..(A| 00000A00: 24 AA 5A 24 29 3A 82 4A 00 2F 12 A6 04 54 34 B2 |$.Z$):.J./...T4.| 00000A10: 54 3A 53 34 B2 53 3A 54 B2 41 28 30 29 3A 53 B2 |T:S4.S:T.A(0):S.| 00000A20: 41 28 31 29 3A 8B 54 B3 B1 30 A7 31 31 33 30 00 |A(1):.T..0.1130.| 00000A30: 5C 12 B0 04 54 B2 54 25 28 30 2C 31 29 3A 53 B2 |\...T.T%(0,1):S.| 00000A40: 53 25 28 30 2C 31 29 3A 54 25 28 30 2C 31 29 B2 |S%(0,1):T%(0,1).| 00000A50: 30 3A 8B 54 B3 B1 30 A7 31 31 33 30 00 8C 12 BA |0:.T..0.1130....| 00000A60: 04 8B 4C 25 B3 B1 4C 25 28 30 29 A7 99 22 20 49 |..L%..L%(0).." I| 00000A70: 4E 43 4F 52 52 45 43 54 20 42 4C 4F 43 4B 20 43 |NCORRECT BLOCK C| 00000A80: 4F 55 4E 54 21 22 3A 89 31 32 36 30 00 9F 12 C4 |OUNT!":.1260....| 00000A90: 04 54 B2 54 36 3A 53 B2 53 36 3A 44 B2 44 36 00 |.T.T6:S.S6:D.D6.| 00000AA0: A9 12 CE 04 8D 33 30 30 30 00 C9 12 D8 04 98 31 |.....3000......1| 00000AB0: 35 2C 22 4D 2D 57 22 3B C7 28 44 29 3B 42 24 3B |5,"M-W";.(D);B$;| 00000AC0: C7 28 31 29 3B C7 28 58 29 00 EC 12 E2 04 98 31 |.(1);.(X)......1| 00000AD0: 35 2C 22 55 32 3A 32 2C 22 3B 44 24 3B 54 3B 53 |5,"U2:2,";D$;T;S| 00000AE0: 3A 8D 33 30 32 30 3A 89 31 33 30 30 00 09 13 EC |:.3020:.1300....| 00000AF0: 04 99 22 53 4F 52 52 59 20 2D 20 49 54 20 57 4F |.."SORRY - IT WO| 00000B00: 4E 27 54 20 57 4F 52 4B 22 00 10 13 F6 04 A0 32 |N'T WORK"......2| 00000B10: 00 34 13 14 05 A0 32 3A 98 31 35 2C 22 56 30 22 |.4....2:.15,"V0"| 00000B20: 3A A0 31 35 3A 81 51 57 B2 31 A4 31 30 30 30 30 |:.15:.QW.1.10000| 00000B30: 3A 82 3A 8A 00 4B 13 04 06 AD 31 35 34 31 20 48 |:.:..K....1541 H| 00000B40: 4F 55 53 45 4B 45 45 50 49 4E 47 00 66 13 D0 07 |OUSEKEEPING.f...| 00000B50: 8F 20 47 52 41 42 20 46 55 4C 4C 20 44 49 53 4B |. GRAB FULL DISK| 00000B60: 20 42 4C 4F 43 4B 00 70 13 DA 07 8D 33 30 30 30 | BLOCK.p....3000| 00000B70: 00 97 13 E4 07 81 4A B2 30 A4 32 35 35 3A 98 31 |......J.0.255:.1| 00000B80: 35 2C 22 4D 2D 52 22 3B C7 28 4A 29 3B 42 24 3A |5,"M-R";.(J);B$:| 00000B90: A1 23 31 35 2C 41 24 00 AE 13 EE 07 41 28 4A 29 |.#15,A$.....A(J)| 00000BA0: B2 C6 28 41 24 AA 5A 24 29 3A 82 4A 3A 8E 00 BF |..(A$.Z$):.J:...| 00000BB0: 13 B8 0B 8F 20 52 45 41 44 20 42 4C 4F 41 44 00 |.... READ BLOAD.| 00000BC0: D8 13 C2 0B 98 31 35 2C 22 42 2D 52 22 32 3B C5 |.....15,"B-R"2;.| 00000BD0: 28 44 24 29 3B 54 3B 53 00 EF 13 CC 0B 8F 20 47 |(D$);T;S...... G| 00000BE0: 45 54 20 45 52 52 4F 52 20 53 54 41 54 55 53 00 |ET ERROR STATUS.| 00000BF0: 02 14 D6 0B 84 31 35 2C 45 2C 45 24 2C 45 31 2C |.....15,E,E$,E1,| 00000C00: 45 32 00 27 14 E0 0B 8B 45 B3 B1 30 A7 99 22 12 |E2.'....E..0..".| 00000C10: 44 49 53 4B 20 45 52 52 4F 52 3A 92 22 45 3B 45 |DISK ERROR:."E;E| 00000C20: 24 2C 45 31 3B 45 32 00 2D 14 EA 0B 8E 00 4E 14 |$,E1;E2.-.....N.| 00000C30: 10 27 83 31 2C 31 37 2C 32 30 2C 32 34 2C 31 39 |.'.1,17,20,24,19| 00000C40: 2C 33 30 2C 31 37 2C 33 35 2C 31 36 2C 30 00 70 |,30,17,35,16,0.p| 00000C50: 14 1A 27 83 36 35 2C 31 37 2C 32 30 2C 32 34 2C |..'.65,17,20,24,| 00000C60: 31 38 2C 33 30 2C 31 37 2C 33 35 2C 31 36 2C 30 |18,30,17,35,16,0| 00000C70: 00 92 14 24 27 83 36 37 2C 33 39 2C 32 38 2C 35 |...$'.67,39,28,5| 00000C80: 33 2C 32 36 2C 36 34 2C 32 34 2C 37 37 2C 32 32 |3,26,64,24,77,22| 00000C90: 2C 30 00 00 00 D0 FF 05 00 FF |,0........ |
..8...."....... ***** 1540/1541 * HOU
SEKEEPING ******......"....... *****
MICHAEL MAIONE, COMPUTE!, APRIL
1984, P. 140FF......."....... ......
..................."......A(255),C%(77,2
8),D%(1),T%(224,1),S%(224,1),L%(224),R%(
77). ...D%(0).58:D%(1).42:Z$.G(0):B$.G(3
):D$."0".Y...."......... (UN)SC
RATCH "......G(14)"
A DISK HOUSEKEEPING PROGRAM".....
."............ S=SCRATCH, U=UNS
CRATCH".Q.(..Q$:.Q$."".40...,..G(142)...
-..Q$."U".400......Q$.."S".40...2.."...D
ISK"...<..1,8,0,"$0".(.F.N$.G(0).6.P..#1
,A$,A$.N.Z.F$."":B.0:.#1,A$,A$.]._..C.0.
.".";.Q.D..A$."".X.1:.200..N..#1,A$,B$.
..X...5);......#1,A$......A$.""..:A.A.1:
.190.D....A$.G(34).B.1:A$.""... ..B.1.F$
.F$.A$:.A$;......C(F$).16.C.C.1:.90.....
.130......A.8.90.$.H.."SCRATCH PROGRAM?
Y/N".7.R..Z$:.Z$."".210.G....Z$."Y".270.
W....Z$."N".250.`....210.Q....X.1. 1:.39
0......"...":A.0:.90..... 1:.".WHICH PRO
GRAM";P$:.P$.""........340.C."..".......
..".V.,.."OPEN15,8,15"...6.."..PR15,"G(3
4)"S0:"X$G(34)"...@.."..RUN":.".........
.".7.J..631,13:.632,13:.633,13:.198,3:..
U.T..A4.1.C(P$):R$.J(P$,A4,1).B.^.X$.X$.
R$.H.H.....R..C(X$).10.X$.H(X$,10)."*"..
.|....... 15:..K...."...LOADING FREE SEC
TORS":.15,8,15,"I".D$:.3020......3,8,3,"
$".D$:.3020.....A0.1:.#3,A$:A.F(A$.Z$)..
....A1:.A.A1.470.&...F%.F%.1:.F%.3.510.8
.B..A1:.A1.0.430.A.L..450.S.V..A1:.A1.0.
490.Z....B1:.J.A0.A1:R%(J).B1:.J:A0.J:.4
70......A.1.A.65.D1.1:T9.35:S9.3:D9.18..
....A.67.D1.257:T9.77:S9.4:D9.39......T9
.0. 3:."?? DISK NOT RECOGNIZED ??":.....
..J.1.D1:.#3,A$:.J......J.1.T9:T1.0.-...
.J.51..#3,A$,A$,A$,A$.C.&..#3,A$:C.F(A$.
Z$).H.0.K1.0:.K.0.S9.1:.#3,A$:A.F(A$.Z$)
...:..L.0.7:A%.A.2:D1.A.A%.2:.K1..R%(J).
C%(J,K1).D1...D.A.A%:T1.T1.D1:K1.K1.1:.L
,K.A.N..J.H.X. 3...B..2,8,2,"#0":.3020..
...K.0:.".LOOKING FOR SCRATCHED":."FILES
...".....T.D9:S.1.#....2000.I....D.2.255
.32:.A(D)..0.A(D.1).0.980.M....K.0.."DO
YOU WANT TO RECOVER:"......X$:.K.D.3.D.1
8:.G(A(K));:.K:."? ";......X$:.X$.."Y".X
$.."N".960.G.J..X$:.X$."Y".1010.N.T..D..
...T.A(0):S.A(1):.T.D9.920......".THAT'S
ALL... ":.1270.K...T6.T:S6.S:D6.D:T.A(D
.1):S.A(D.2):L%(0).A(D.28).A(D.29).256:L
%.0.D....X$:."IS THIS FILE:".Z...." 1. S
EQUENTIAL"......" 2. PROGRAM"......" 3.
USR"...$..A(D.19).0.1080.D...." 4. RELAT
IVE"...8.." WHICH NUMBER? ";...B..X$:.X
$."".1090...L.X.F(X$).48:.X.1.X.4.1090..
.V..X$:X.X.128.Y.`..X.132.T%(0,1).A(D.19
):S%(0,1).A(D.20):.T%(0,1).0.1020.K.J..T
.T9.S.0.T.0...T..T.1.S.R%(T).." BAD CHAI
N!":.1260...~..C%(T,S).0.." ALLOCATED BL
OCKS!":.1260.N....3000:L%.L%.1......J.0.
1:.15,"M-R";G(J);B$:.#15,A$.....A(J).F(A
$.Z$):.J./...T4.T:S4.S:T.A(0):S.A(1):.T.
.0.1130.\...T.T%(0,1):S.S%(0,1):T%(0,1).
0:.T..0.1130......L%..L%(0).." INCORRECT
BLOCK COUNT!":.1260...D.T.T6:S.S6:D.D6.
..N..3000.I.X..15,"M-W";G(D);B$;G(1);G(X
)......15,"U2:2,";D$;T;S:.3020:.1300....
.."SORRY - IT WON'T WORK"..... 2.4... 2:
.15,"V0": 15:.QW.1.10000:.:..K....1541 H
OUSEKEEPING.F.P.. GRAB FULL DISK BLOCK.P
.Z..3000......J.0.255:.15,"M-R";G(J);B$:
.#15,A$.....A(J).F(A$.Z$):.J:....... REA
D BLOAD.X.B..15,"B-R"2;E(D$);T;S...L.. G
ET ERROR STATUS...V..15,E,E$,E1,E2.'....
E..0..".DISK ERROR:."E;E$,E1;E2.-.....N.
.'.1,17,20,24,19,30,17,35,16,0.P..'.65,1
7,20,24,18,30,17,35,16,0...$'.67,39,28,5
3,26,64,24,77,22,0...P....
> CLICK IMAGE PREVIEW FOR FULL MODAL