_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DISC UNSCRATC.CR

FILE INFORMATION

FILENAME(S): DISC UNSCRATC.CR

FILE TYPE(S): PRG

FILE SIZE: 2.3K

FIRST SEEN: 2025-12-01 02:26:12

APPEARS ON: 1 disk(s)

FILE HASH

38104fe2c8ad1ff0013c99e7e74bd2d6fa8100620d530d3ff0416d6e66584fe9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
JARVIS 02 B DISC UNSCRATC.CR PRG Shine 27 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 14 08 C1 07 9E 32  30 37 30 20 4D 45 47 41  |.......2070 MEGA|
00000010: 42 59 54 45 00 00 00 4C  CC 10 02 02 02 20 43 2D  |BYTE...L..... C-|
00000020: 36 34 2A 2A 2A 00 2B 08  0F 00 3A 00 4E 08 14 00  |64***.+...:.N...|
00000030: 97 35 33 32 38 30 2C 31  35 3A 97 35 33 32 38 31  |.53280,15:.53281|
00000040: 2C 36 3A 99 C7 28 31 34  37 29 C7 28 35 29 00 84  |,6:..(147).(5)..|
00000050: 08 19 00 54 31 24 B2 C7  28 31 31 37 29 3A 81 54  |...T1$..(117):.T|
00000060: B2 31 A4 31 36 3A 54 31  24 B2 54 31 24 AA C7 28  |.1.16:T1$.T1$..(|
00000070: 39 36 29 3A 82 3A 54 31  24 B2 54 31 24 AA C7 28  |96):.:T1$.T1$..(|
00000080: 31 30 35 29 00 AD 08 1E  00 54 32 24 B2 C7 28 31  |105).....T2$..(1|
00000090: 32 35 29 AA 22 20 44 49  53 43 20 55 4E 53 43 52  |25)." DISC UNSCR|
000000A0: 41 54 43 48 20 22 AA C7  28 31 32 35 29 00 E3 08  |ATCH "..(125)...|
000000B0: 23 00 54 33 24 B2 C7 28  31 30 36 29 3A 81 54 B2  |#.T3$..(106):.T.|
000000C0: 31 A4 31 36 3A 54 33 24  B2 54 33 24 AA C7 28 39  |1.16:T3$.T3$..(9|
000000D0: 36 29 3A 82 3A 54 33 24  B2 54 33 24 AA C7 28 31  |6):.:T3$.T3$..(1|
000000E0: 30 37 29 00 0C 09 24 00  54 34 24 B2 C7 28 31 32  |07)...$.T4$..(12|
000000F0: 35 29 AA 22 20 20 42 59  20 20 4D 4F 42 59 44 49  |5)."  BY  MOBYDI|
00000100: 43 4B 20 20 22 AA C7 28  31 32 35 29 00 38 09 28  |CK  "..(125).8.(|
00000110: 00 53 50 41 43 45 24 B2  22 22 3A 81 54 B2 31 A4  |.SPACE$."":.T.1.|
00000120: 33 36 3A 53 50 41 43 45  24 B2 53 50 41 43 45 24  |36:SPACE$.SPACE$|
00000130: AA C7 28 33 32 29 3A 82  00 5E 09 2D 00 52 45 B2  |..(32):..^.-.RE.|
00000140: 30 3A 86 52 54 28 35 30  29 2C 52 53 28 35 30 29  |0:.RT(50),RS(50)|
00000150: 2C 42 50 28 35 30 29 2C  54 59 28 35 30 29 00 75  |,BP(50),TY(50).u|
00000160: 09 32 00 99 A6 31 31 29  C7 28 31 37 29 C7 28 31  |.2...11).(17).(1|
00000170: 37 29 54 31 24 00 82 09  37 00 99 A6 31 31 29 54  |7)T1$...7...11)T|
00000180: 32 24 00 8F 09 3C 00 99  A6 31 31 29 54 33 24 00  |2$...<...11)T3$.|
00000190: AC 09 3D 00 99 A6 31 31  29 C7 28 31 37 29 C7 28  |..=...11).(17).(|
000001A0: 31 37 29 C7 28 31 35 33  29 54 31 24 00 B9 09 3E  |17).(153)T1$...>|
000001B0: 00 99 A6 31 31 29 54 34  24 00 CB 09 3F 00 99 A6  |...11)T4$...?...|
000001C0: 31 31 29 54 33 24 C7 28  33 30 29 00 DA 09 41 00  |11)T3$.(30)...A.|
000001D0: 81 54 B2 31 A4 39 3A 99  3A 82 00 06 0A 46 00 99  |.T.1.9:.:....F..|
000001E0: A6 36 29 22 49 4E 53 45  52 54 20 44 49 53 43 20  |.6)"INSERT DISC |
000001F0: 04 02 50 52 45 53 53 20  53 50 41 43 45 20 20 22  |..PRESS SPACE  "|
00000200: C7 28 31 37 29 00 20 0A  4B 00 A1 4B 45 59 24 3A  |.(17). .K..KEY$:|
00000210: 8B 4B 45 59 24 B3 B1 C7  28 33 32 29 A7 37 35 00  |.KEY$...(32).75.|
00000220: 49 0A 50 00 41 24 28 30  29 B2 C7 28 31 38 29 AA  |I.P.A$(0)..(18).|
00000230: 22 44 45 4C 22 AA C7 28  31 34 36 29 3A 41 24 28  |"DEL"..(146):A$(|
00000240: 31 29 B2 22 53 45 51 22  00 71 0A 55 00 41 24 28  |1)."SEQ".q.U.A$(|
00000250: 32 29 B2 22 50 52 47 22  3A 41 24 28 33 29 B2 22  |2)."PRG":A$(3)."|
00000260: 55 53 52 22 3A 41 24 28  34 29 B2 22 52 45 4C 22  |USR":A$(4)."REL"|
00000270: 00 AF 0A 5A 00 46 24 28  30 29 B2 C7 28 31 38 29  |...Z.F$(0)..(18)|
00000280: AA 22 53 22 AA C7 28 31  34 36 29 AA 22 45 51 2C  |."S"..(146)."EQ,|
00000290: 22 3A 46 24 28 31 29 B2  C7 28 31 38 29 AA 22 50  |":F$(1)..(18)."P|
000002A0: 22 AA C7 28 31 34 36 29  AA 22 52 47 2C 22 00 EE  |"..(146)."RG,"..|
000002B0: 0A 5F 00 46 24 28 32 29  B2 C7 28 31 38 29 AA 22  |._.F$(2)..(18)."|
000002C0: 55 22 AA C7 28 31 34 36  29 AA 22 53 52 2C 22 3A  |U"..(146)."SR,":|
000002D0: 46 24 28 33 29 B2 C7 28  31 38 29 AA 22 52 22 AA  |F$(3)..(18)."R".|
000002E0: C7 28 31 34 36 29 AA 22  45 4C 20 3F 22 00 F4 0A  |.(146)."EL ?"...|
000002F0: 64 00 3A 00 2A 0B 69 00  8F 20 2A 2A 49 4E 49 54  |d.:.*.i.. **INIT|
00000300: 49 41 4C 49 5A 45 20 44  49 53 43 20 26 20 4F 50  |IALIZE DISC & OP|
00000310: 45 4E 20 52 41 4E 44 4F  4D 20 46 49 4C 45 20 2A  |EN RANDOM FILE *|
00000320: 0A 02 00 30 0B 6E 00 3A  00 4C 0B 73 00 9F 31 2C  |...0.n.:.L.s..1,|
00000330: 38 2C 31 35 2C 22 49 4F  22 3A 9F 35 2C 38 2C 35  |8,15,"IO":.5,8,5|
00000340: 2C 22 23 22 00 6A 0B 78  00 99 C7 28 31 34 35 29  |,"#".j.x...(145)|
00000350: C7 28 31 34 35 29 53 50  41 43 45 24 C7 28 31 34  |.(145)SPACE$.(14|
00000360: 35 29 00 77 0B 7D 00 54  B2 31 38 3A 53 B2 31 00  |5).w.}.T.18:S.1.|
00000370: 92 0B 82 00 8B 54 B3 31  B0 54 B1 33 35 B0 53 B3  |.....T.1.T.35.S.|
00000380: 30 B0 53 B1 32 31 A7 32  39 30 00 B4 0B 87 00 98  |0.S.21.290......|
00000390: 31 2C 22 55 31 3A 22 3B  35 3B 30 3B 54 3B 53 3A  |1,"U1:";5;0;T;S:|
000003A0: 98 31 2C 22 42 2D 50 22  3B 35 3B 30 00 DE 0B 8C  |.1,"B-P";5;0....|
000003B0: 00 A1 23 35 2C 41 24 2C  42 24 3A 54 31 B2 C6 28  |..#5,A$,B$:T1..(|
000003C0: 41 24 AA C7 28 30 29 29  3A 53 31 B2 C6 28 42 24  |A$..(0)):S1..(B$|
000003D0: AA C7 28 30 29 29 00 F5  0B 91 00 81 49 B2 30 A4  |..(0))......I.0.|
000003E0: 37 3A 8D 32 31 30 3A 54  59 B2 41 AF 37 00 1C 0C  |7:.210:TY.A.7...|
000003F0: 96 00 81 4A B2 30 A4 32  3A 8D 32 31 30 3A 82 3A  |...J.0.2:.210:.:|
00000400: 8B 41 B2 30 A7 49 B2 37  3A 54 31 B2 32 35 35 3A  |.A.0.I.7:T1.255:|
00000410: 89 31 38 30 00 36 0C 9B  00 99 A6 36 29 41 24 28  |.180.6.....6)A$(|
00000420: 54 59 29 22 20 22 C7 28  33 34 29 41 24 3B 00 5A  |TY)" ".(34)A$;.Z|
00000430: 0C A0 00 81 4A B2 30 A4  31 34 3A 8D 32 31 30 3A  |....J.0.14:.210:|
00000440: 99 41 24 3B 3A 82 3A 99  C7 28 33 34 29 22 20 20  |.A$;:.:..(34)"  |
00000450: 22 3B 00 7A 0C A5 00 81  4A B2 30 A4 38 3A 8D 32  |";.z....J.0.8:.2|
00000460: 31 30 3A 82 3A 8D 32 31  30 3A 42 B2 41 3A 8D 32  |10:.:.210:B.A:.2|
00000470: 31 30 00 A4 0C AA 00 42  4C 4B B2 41 AC 32 35 36  |10.....BLK.A.256|
00000480: AA 42 3A 99 C8 28 53 50  41 43 45 24 2C 34 AB C3  |.B:..(SPACE$,4..|
00000490: 28 C4 28 42 4C 4B 29 29  29 42 4C 4B 00 B3 0C AF  |(.(BLK)))BLK....|
000004A0: 00 8B 54 59 B2 30 A7 8D  32 33 30 00 CC 0C B4 00  |..TY.0..230.....|
000004B0: 8D 31 39 30 3A 99 C7 28  31 34 35 29 C7 28 31 34  |.190:..(145).(14|
000004C0: 35 29 3A 82 00 DF 0C B9  00 54 B2 54 31 3A 53 B2  |5):......T.T1:S.|
000004D0: 53 31 3A 89 31 33 30 00  E8 0C BE 00 8D 32 31 30  |S1:.130......210|
000004E0: 00 EE 0C C3 00 3A 00 14  0D C8 00 8F 20 2A 04 02  |.....:...... *..|
000004F0: 52 45 41 44 20 44 41 54  41 20 46 52 4F 4D 20 44  |READ DATA FROM D|
00000500: 49 52 45 43 54 4F 52 59  20 2A 2A 00 1A 0D CD 00  |IRECTORY **.....|
00000510: 3A 00 34 0D D2 00 A1 23  35 2C 41 24 3A 41 B2 C6  |:.4....#5,A$:A..|
00000520: 28 41 24 AA C7 28 30 29  29 3A 8E 00 3A 0D D7 00  |(A$..(0)):..:...|
00000530: 3A 00 5F 0D DC 00 8F 20  2A 2A 20 52 4F 55 54 49  |:._.... ** ROUTI|
00000540: 4E 45 20 54 4F 20 52 45  43 4F 56 45 52 20 46 49  |NE TO RECOVER FI|
00000550: 4C 45 20 2A 2A 2A 00 65  0D E1 00 3A 00 89 0D E6  |LE ***.e...:....|
00000560: 00 99 A6 31 33 29 C7 28  31 37 29 C7 28 31 37 29  |...13).(17).(17)|
00000570: 22 52 45 43 4F 56 45 52  20 3C 59 2F 4E 3E 3F 22  |"RECOVER <Y/N>?"|
00000580: 00 AC 0D EB 00 A1 4B 45  59 24 3A 8B 4B 45 59 24  |......KEY$:.KEY$|
00000590: B3 B1 22 59 22 AF 4B 45  59 24 B3 B1 22 4E 22 A7  |.."Y".KEY$.."N".|
000005A0: 32 33 35 00 DC 0D F0 00  8B 4B 45 59 24 B2 22 4E  |235......KEY$."N|
000005B0: 22 A7 99 C7 28 31 34 35  29 53 50 41 43 45 24 C7  |"...(145)SPACE$.|
000005C0: 28 31 34 35 29 C7 28 31  34 35 29 C7 28 31 34 35  |(145).(145).(145|
000005D0: 29 3A 8E 00 00 0E F5 00  52 54 28 52 45 29 B2 54  |):......RT(RE).T|
000005E0: 3A 52 53 28 52 45 29 B2  53 3A 42 50 28 52 45 29  |:RS(RE).S:BP(RE)|
000005F0: B2 33 32 AC 49 AA 32 00  39 0E FA 00 99 C7 28 31  |.32.I.2.9.....(1|
00000600: 34 35 29 A6 34 29 22 4E  45 57 20 46 49 4C 45 20  |45).4)"NEW FILE |
00000610: 54 59 50 45 3A 20 22 46  24 28 30 29 46 24 28 31  |TYPE: "F$(0)F$(1|
00000620: 29 46 24 28 32 29 46 24  28 33 29 46 24 28 34 29  |)F$(2)F$(3)F$(4)|
00000630: 00 70 0E FF 00 A1 4B 45  59 24 3A 8B 4B 45 59 24  |.p....KEY$:.KEY$|
00000640: B3 B1 22 53 22 AF 4B 45  59 24 B3 B1 22 50 22 AF  |.."S".KEY$.."P".|
00000650: 4B 45 59 24 B3 B1 22 55  22 AF 4B 45 59 24 B3 B1  |KEY$.."U".KEY$..|
00000660: 22 52 22 A7 32 35 35 00  89 0E 04 01 8B 4B 45 59  |"R".255......KEY|
00000670: 24 B2 22 53 22 A7 54 59  28 52 45 29 B2 31 32 39  |$."S".TY(RE).129|
00000680: 00 A2 0E 09 01 8B 4B 45  59 24 B2 22 50 22 A7 54  |......KEY$."P".T|
00000690: 59 28 52 45 29 B2 31 33  30 00 BB 0E 0E 01 8B 4B  |Y(RE).130......K|
000006A0: 45 59 24 B2 22 55 22 A7  54 59 28 52 45 29 B2 31  |EY$."U".TY(RE).1|
000006B0: 33 31 00 D4 0E 13 01 8B  4B 45 59 24 B2 22 52 22  |31......KEY$."R"|
000006C0: A7 54 59 28 52 45 29 B2  31 33 32 00 E0 0E 18 01  |.TY(RE).132.....|
000006D0: 52 45 B2 52 45 AA 31 00  05 0F 1D 01 99 C7 28 31  |RE.RE.1.......(1|
000006E0: 34 35 29 53 50 41 43 45  24 C7 28 31 34 35 29 C7  |45)SPACE$.(145).|
000006F0: 28 31 34 35 29 C7 28 31  34 35 29 3A 00 13 0F 22  |(145).(145):..."|
00000700: 01 8B 52 45 B2 30 A7 33  34 30 00 19 0F 27 01 3A  |..RE.0.340...'.:|
00000710: 00 3C 0F 2C 01 8F 20 2A  2A 2A 52 45 50 4C 41 43  |.<.,.. ***REPLAC|
00000720: 45 20 53 43 52 41 54 43  48 45 44 20 46 49 4C 45  |E SCRATCHED FILE|
00000730: 2A 2A 2A 00 42 0F 31 01  3A 00 68 0F 36 01 81 49  |***.B.1.:.h.6..I|
00000740: B2 30 A4 52 45 AB 31 3A  98 31 2C 22 55 31 22 3B  |.0.RE.1:.1,"U1";|
00000750: 35 3B 30 3B 52 54 28 49  29 3B 52 53 28 49 29 00  |5;0;RT(I);RS(I).|
00000760: 8A 0F 3B 01 98 31 2C 22  42 2D 50 22 3B 35 3B 42  |..;..1,"B-P";5;B|
00000770: 50 28 49 29 3A 98 35 2C  C7 28 54 59 28 49 29 29  |P(I):.5,.(TY(I))|
00000780: 3B 00 A8 0F 40 01 98 31  2C 22 55 32 22 3B 35 3B  |;...@..1,"U2";5;|
00000790: 30 3B 52 54 28 49 29 3B  52 53 28 49 29 3A 82 00  |0;RT(I);RS(I):..|
000007A0: AE 0F 45 01 3A 00 D3 0F  4A 01 8F 20 2A 04 02 20  |..E.:...J.. *.. |
000007B0: 45 4E 44 20 4F 46 20 44  49 53 4B 20 53 45 51 55  |END OF DISK SEQU|
000007C0: 45 4E 43 45 20 2A 04 02  00 D9 0F 4F 01 3A 00 0D  |ENCE *.....O.:..|
000007D0: 10 54 01 99 A6 31 30 29  C7 28 31 37 29 C7 28 31  |.T...10).(17).(1|
000007E0: 37 29 C7 28 31 37 29 C7  28 31 37 29 22 56 41 4C  |7).(17).(17)"VAL|
000007F0: 49 44 41 54 45 20 44 49  53 4B 20 3C 59 2F 4E 3E  |IDATE DISK <Y/N>|
00000800: 3F 22 00 30 10 59 01 A1  4B 45 59 24 3A 8B 4B 45  |?".0.Y..KEY$:.KE|
00000810: 59 24 B3 B1 22 59 22 AF  4B 45 59 24 B3 B1 22 4E  |Y$.."Y".KEY$.."N|
00000820: 22 A7 33 34 35 00 46 10  5E 01 8B 4B 45 59 24 B2  |".345.F.^..KEY$.|
00000830: 22 59 22 A7 98 31 2C 22  56 30 22 00 50 10 63 01  |"Y"..1,"V0".P.c.|
00000840: A0 31 3A A0 35 00 76 10  68 01 99 A6 31 30 29 C7  |.1:.5.v.h...10).|
00000850: 28 31 34 35 29 22 41 4E  4F 54 48 45 52 20 44 49  |(145)"ANOTHER DI|
00000860: 53 4B 20 20 3C 59 2F 4E  3E 3F 22 00 99 10 6D 01  |SK  <Y/N>?"...m.|
00000870: A1 4B 45 59 24 3A 8B 4B  45 59 24 B3 B1 22 59 22  |.KEY$:.KEY$.."Y"|
00000880: AF 4B 45 59 24 B3 B1 22  4E 22 A7 33 36 35 00 A9  |.KEY$.."N".365..|
00000890: 10 72 01 8B 4B 45 59 24  B2 22 59 22 A7 8A 00 CE  |.r..KEY$."Y"....|
000008A0: 10 77 01 97 35 33 32 38  30 2C 31 34 3A 97 35 33  |.w..53280,14:.53|
000008B0: 32 38 31 2C 36 3A 99 C7  28 31 34 37 29 C7 28 31  |281,6:..(147).(1|
000008C0: 35 34 29 00 D4 10 7C 01  80 00 00 00 01 78 A2 0A  |54)...|......x..|
000008D0: A0 00 86 14 84 15 A2 CB  A0 10 86 FC 84 FD A0 00  |................|
000008E0: A2 73 BD EC 10 9D 33 03  CA D0 F7 4C 80 03 25 08  |.s....3....L..%.|
000008F0: 0A 00 8F 20 2A 2A 2A 44  49 53 43 20 55 4E 53 43  |... ***DISC UNSC|
00000900: 52 41 54 43 48 20 46 4F  52 88 C0 FF D0 02 C6 FD  |RATCH FOR.......|
00000910: B1 FC 85 FF 88 C0 FF D0  02 C6 FD B1 FC C9 02 F0  |................|
00000920: 2F 9D D6 10 CA E0 FF D0  06 CE 69 03 CE 88 03 C6  |/.........i.....|
00000930: FF D0 EE 88 C0 FF D0 02  C6 FD B1 FC C9 02 F0 C9  |................|
00000940: 9D D6 10 CA E0 FF D0 EB  CE 69 03 CE 88 03 D0 E3  |.........i......|
00000950: A2 1B BD 33 03 9D 00 08  CA D0 F7 A9 02 58 4C BC  |...3.........XL.|
00000960: A8                                                |.               |
....A..2070 MEGABYTE...LL.... C-64***.+.
..:.N....53280,15:.53281,6:.G(147)G(5)..
...T1$.G(117):.T.1.16:T1$.T1$.G(96):.:T1
$.T1$.G(105).....T2$.G(125)." DISC UNSCR
ATCH ".G(125)...#.T3$.G(106):.T.1.16:T3$
.T3$.G(96):.:T3$.T3$.G(107)...$.T4$.G(12
5)."  BY  MOBYDICK  ".G(125).8.(.SPACE$.
"":.T.1.36:SPACE$.SPACE$.G(32):..^.-.RE.
0:.RT(50),RS(50),BP(50),TY(50).U.2...11)
G(17)G(17)T1$...7...11)T2$...<...11)T3$.
..=...11)G(17)G(17)G(153)T1$...>...11)T4
$.K.?...11)T3$G(30).Z.A..T.1.9:.:....F..
.6)"INSERT DISC ..PRESS SPACE  "G(17). .
K..KEY$:.KEY$..G(32).75.I.P.A$(0).G(18).
"DEL".G(146):A$(1)."SEQ".Q.U.A$(2)."PRG"
:A$(3)."USR":A$(4)."REL"...Z.F$(0).G(18)
."S".G(146)."EQ,":F$(1).G(18)."P".G(146)
."RG,"..._.F$(2).G(18)."U".G(146)."SR,":
F$(3).G(18)."R".G(146)."EL ?"...D.:.*.I.
. **INITIALIZE DISC & OPEN RANDOM FILE *
...0.N.:.L.S..1,8,15,"IO":.5,8,5,"#".J.X
..G(145)G(145)SPACE$G(145).W.}.T.18:S.1.
.....T.1.T.35.S.0.S.21.290......1,"U1:";
5;0;T;S:.1,"B-P";5;0......#5,A$,B$:T1.F(
A$.G(0)):S1.F(B$.G(0))......I.0.7:.210:T
Y.A.7......J.0.2:.210:.:.A.0.I.7:T1.255:
.180.6.....6)A$(TY)" "G(34)A$;.Z. ..J.0.
14:.210:.A$;:.:.G(34)"  ";.Z....J.0.8:.2
10:.:.210:B.A:.210.....BLK.A.256.B:.H(SP
ACE$,4.C(D(BLK)))BLK......TY.0..230.L...
.190:.G(145)G(145):......T.T1:S.S1:.130.
.....210...C.:...H.. *..READ DATA FROM D
IRECTORY **...M.:.4.R..#5,A$:A.F(A$.G(0)
):..:.W.:._.... ** ROUTINE TO RECOVER FI
LE ***.E...:.......13)G(17)G(17)"RECOVER
 <Y/N>?"......KEY$:.KEY$.."Y".KEY$.."N".
235......KEY$."N"..G(145)SPACE$G(145)G(1
45)G(145):......RT(RE).T:RS(RE).S:BP(RE)
.32.I.2.9....G(145).4)"NEW FILE TYPE: "F
$(0)F$(1)F$(2)F$(3)F$(4).P....KEY$:.KEY$
.."S".KEY$.."P".KEY$.."U".KEY$.."R".255.
.....KEY$."S".TY(RE).129......KEY$."P".T
Y(RE).130......KEY$."U".TY(RE).131.T....
KEY$."R".TY(RE).132.....RE.RE.1......G(1
45)SPACE$G(145)G(145)G(145):..."..RE.0.3
40...'.:.<.,.. ***REPLACE SCRATCHED FILE
***.B.1.:.H.6..I.0.RE.1:.1,"U1";5;0;RT(I
);RS(I)...;..1,"B-P";5;BP(I):.5,G(TY(I))
;...@..1,"U2";5;0;RT(I);RS(I):....E.:.S.
J.. *.. END OF DISK SEQUENCE *...Y.O.:..
.T...10)G(17)G(17)G(17)G(17)"VALIDATE DI
SK <Y/N>?".0.Y..KEY$:.KEY$.."Y".KEY$.."N
".345.F.^..KEY$."Y"..1,"V0".P.C. 1: 5.V.
H...10)G(145)"ANOTHER DISK  <Y/N>?"...M.
.KEY$:.KEY$.."Y".KEY$.."N".365...R..KEY$
."Y"...N.W..53280,14:.53281,6:.G(147)G(1
54).T.|......X.. ......K ..... ..S....3.
JP.L..%.... ***DISC UNSCRATCH FOR...P.F.
.......P.F...I../.V.J..P.NI.N..F.P....P.
F...I..I.V.J..P.NI.N..P....3....JP...XL.
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL