DISKETTE MOD.C

FILE INFORMATION

FILENAME(S): DISKETTE MOD.C

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-02 16:39:41

APPEARS ON: 6 disk(s)

FILE HASH

4ccc0d7cf5210e4849247bfecb93abcd2e1a2d4b90527e114abe92eadaac825a

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TPUG APRIL 84 C	DISKETTE MOD.C	PRG	Treasure Chest - Plattfuss	12	1	DOWNLOAD FILE
TPUG APRIL 84 C	DISKETTE MOD.C	PRG	Sailor, Ganheden	12	1	DOWNLOAD FILE
TPUG APRIL 84 C	DISKETTE MOD.C	PRG	DuncanTwain	12	1	DOWNLOAD FILE
CCS64 3 KOPIA	DISKETTE MOD.C	PRG	hedning, Mattias H00r	11	9	DOWNLOAD FILE
CCS 64 3	DISKETTE MOD.C	PRG	hedning, Mattias H00r	11	9	DOWNLOAD FILE
C64 3	DISKETTE MOD.C	PRG	hedning, Mattias H00r	11	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 33 08 64 00 99 22  93 11 44 49 53 4B 45 54  |..3.d.."..DISKET|
00000010: 54 45 20 56 49 45 57 45  52 2F 43 48 41 4E 47 45  |TE VIEWER/CHANGE|
00000020: 52 2A 2A 4A 49 4D 20 42  55 54 54 45 52 46 49 45  |R**JIM BUTTERFIE|
00000030: 4C 44 22 00 60 08 6E 00  99 22 11 20 20 20 43 41  |LD".`.n..".   CA|
00000040: 55 54 49 4F 4E 20 2D 20  55 53 45 20 43 41 52 45  |UTION - USE CARE|
00000050: 20 2D 20 54 48 49 53 20  50 52 4F 47 52 41 4D 22  | - THIS PROGRAM"|
00000060: 00 98 08 73 00 99 20 22  41 44 41 50 54 45 44 20  |...s.. "ADAPTED |
00000070: 42 59 20 42 52 49 41 4E  20 53 43 48 4F 54 54 20  |BY BRIAN SCHOTT |
00000080: 54 4F 20 46 49 58 20 44  49 53 4B 45 54 54 45 20  |TO FIX DISKETTE |
00000090: 53 45 43 54 4F 52 53 22  00 CE 08 76 00 8F 20 31  |SECTORS"...v.. 1|
000000A0: 30 34 31 20 4E 4F 52 54  48 20 48 49 4C 4C 53 20  |041 NORTH HILLS |
000000B0: 44 52 49 56 45 2C 20 44  45 43 41 54 55 52 2C 20  |DRIVE, DECATUR, |
000000C0: 47 45 4F 52 47 49 41 2C  20 33 30 30 33 33 00 E6  |GEORGIA, 30033..|
000000D0: 08 77 00 8F 20 4D 41 59  20 31 39 38 33 2C 20 46  |.w.. MAY 1983, F|
000000E0: 4F 52 20 43 36 34 00 14  09 78 00 99 22 20 20 20  |OR C64...x.."   |
000000F0: 20 20 20 20 43 41 4E 20  57 52 45 43 4B 20 59 4F  |    CAN WRECK YO|
00000100: 55 52 20 44 49 53 4B 45  54 54 45 20 49 46 20 55  |UR DISKETTE IF U|
00000110: 53 45 44 22 00 3F 09 82  00 99 22 20 20 20 20 20  |SED".?...."     |
00000120: 20 57 49 54 48 4F 55 54  20 43 41 52 45 20 26 20  | WITHOUT CARE & |
00000130: 55 4E 44 45 52 53 54 41  4E 44 49 4E 47 21 22 00  |UNDERSTANDING!".|
00000140: 60 09 87 00 99 22 12 44  4F 20 59 4F 55 20 57 41  |`....".DO YOU WA|
00000150: 4E 54 20 49 4E 53 54 52  55 43 54 49 4F 4E 53 22  |NT INSTRUCTIONS"|
00000160: 00 73 09 88 00 A1 59 24  3A 8B 59 24 B2 22 22 A7  |.s....Y$:.Y$."".|
00000170: 31 33 36 00 85 09 89 00  8B 59 24 B3 B1 22 4E 22  |136......Y$.."N"|
00000180: A7 31 32 30 30 00 93 09  8C 00 97 35 33 32 38 31  |.1200......53281|
00000190: 2C 31 31 00 9D 09 A0 00  53 31 B2 31 36 00 AE 09  |,11.....S1.16...|
000001A0: AA 00 53 32 B2 32 35 35  3A 53 33 B2 33 37 00 BB  |..S2.255:S3.37..|
000001B0: 09 B4 00 86 20 41 28 32  35 35 29 00 CF 09 BE 00  |.... A(255).....|
000001C0: 42 24 B2 C7 28 31 37 29  3A 44 24 B2 22 30 22 00  |B$..(17):D$."0".|
000001D0: E9 09 D2 00 9F 20 31 35  2C 38 2C 31 35 2C 22 49  |..... 15,8,15,"I|
000001E0: 22 AA 44 24 3A 8D 35 30  30 00 FE 09 DC 00 9F 32  |".D$:.500......2|
000001F0: 2C 38 2C 32 2C 22 23 30  22 3A 8D 35 30 30 00 32  |,8,2,"#0":.500.2|
00000200: 0A E6 00 99 22 13 11 11  11 11 11 11 11 11 11 11  |...."...........|
00000210: 11 11 11 11 11 11 11 10  16 20 54 52 41 43 4B 2C  |......... TRACK,|
00000220: 53 45 43 54 4F 52 20 20  30 2C 30 9D 9D 9D 9D 9D  |SECTOR  0,0.....|
00000230: 22 3B 00 3B 0A F0 00 85  54 2C 53 00 52 0A FA 00  |";.;....T,S.R...|
00000240: 8B 54 B3 31 B0 54 B1 33  35 A7 A0 32 3A A0 31 35  |.T.1.T.35..2:.15|
00000250: 3A 80 00 7C 0A 04 01 99  22 12 20 57 4F 52 4B 49  |:..|....". WORKI|
00000260: 4E 47 20 22 3A 98 31 35  2C 22 55 31 3A 32 2C 22  |NG ":.15,"U1:2,"|
00000270: 3B 44 24 3B 54 3B 53 3A  8D 35 30 30 00 86 0A 13  |;D$;T;S:.500....|
00000280: 01 99 22 93 22 3B 00 93  0A 18 01 81 4A B2 30 A4  |..".";......J.0.|
00000290: 32 35 35 00 AD 0A 2C 01  A1 23 32 2C 41 24 3A 8B  |255...,..#2,A$:.|
000002A0: 41 24 B2 22 22 A7 41 24  B2 C7 28 30 29 00 BF 0A  |A$."".A$..(0)...|
000002B0: 36 01 41 28 4A 29 B2 C6  28 41 24 29 3A 82 4A 00  |6.A(J)..(A$):.J.|
000002C0: CC 0A 40 01 50 B2 30 3A  43 4C B2 31 00 E7 0A 4A  |..@.P.0:CL.1...J|
000002D0: 01 99 22 93 54 52 41 43  4B 22 3B 54 3B 22 53 45  |..".TRACK";T;"SE|
000002E0: 43 54 4F 52 22 3B 53 00  FE 0A 54 01 81 4A B2 50  |CTOR";S...T..J.P|
000002F0: A4 50 AA 53 32 A9 53 31  3A 99 22 5D 22 3B 00 3E  |.P.S2.S1:."]";.>|
00000300: 0B 5E 01 56 B2 4A 3A 8D  38 30 30 3A 4B 24 B2 22  |.^.V.J:.800:K$."|
00000310: 22 3A 99 22 2D 20 22 3B  3A 81 4B B2 30 A4 53 31  |":."- ";:.K.0.S1|
00000320: AB 31 3A 56 B2 41 28 4A  AA 4B 29 3A 8D 38 30 30  |.1:V.A(J.K):.800|
00000330: 3A 4B 24 B2 22 22 3A 43  4C B2 31 AB 43 4C 00 59  |:K$."":CL.1.CL.Y|
00000340: 0B 63 01 99 C7 28 31 38  29 3B 3A 8B 43 4C B2 31  |.c...(18);:.CL.1|
00000350: A7 99 C7 28 31 34 36 29  3B 00 A5 0B 64 01 8F 20  |...(146);...d.. |
00000360: 49 46 20 59 4F 55 20 50  52 45 46 45 52 20 43 48  |IF YOU PREFER CH|
00000370: 41 4E 47 45 20 31 38 20  54 4F 20 31 34 34 20 41  |ANGE 18 TO 144 A|
00000380: 4E 44 20 43 48 41 4E 47  45 20 31 34 36 20 54 4F  |ND CHANGE 146 TO|
00000390: 20 31 34 34 20 49 4E 20  53 54 41 54 45 4D 45 4E  | 144 IN STATEMEN|
000003A0: 54 20 33 35 35 00 B5 0B  68 01 82 20 4B 3A 99 22  |T 355...h.. K:."|
000003B0: 2D 22 3A 82 4A 00 D2 0B  6D 01 99 22 13 11 11 11  |-":.J...m.."....|
000003C0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000003D0: 22 3B 00 1E 0C 72 01 99  22 43 48 41 4E 47 45 20  |";...r.."CHANGE |
000003E0: 54 48 45 20 46 49 52 53  54 20 43 48 41 52 41 43  |THE FIRST CHARAC|
000003F0: 54 45 52 20 54 4F 20 5B  20 54 4F 20 52 45 41 44  |TER TO [ TO READ|
00000400: 20 43 48 41 4E 47 45 44  20 53 43 52 45 45 4E 20  | CHANGED SCREEN |
00000410: 4F 4E 54 4F 20 54 48 45  20 44 49 53 4B 22 00 5B  |ONTO THE DISK".[|
00000420: 0C 7C 01 99 22 43 48 41  4E 47 45 20 54 48 45 20  |.|.."CHANGE THE |
00000430: 46 49 52 53 54 20 43 48  41 52 41 43 54 45 52 20  |FIRST CHARACTER |
00000440: 54 4F 20 5C 20 54 4F 20  41 42 4F 52 54 20 54 48  |TO \ TO ABORT TH|
00000450: 49 53 20 50 52 4F 43 45  53 53 22 00 67 0C 86 01  |IS PROCESS".g...|
00000460: 9F 31 2C 33 3A 9D 31 00  80 0C B8 01 85 43 24 3A  |.1,3:.1......C$:|
00000470: 99 3B 3A 5A B2 C6 28 43  24 29 3A 43 24 B2 43 24  |.;:Z..(C$):C$.C$|
00000480: 00 8A 0C C2 01 98 31 3A  A0 31 00 98 0C CC 01 8B  |......1:.1......|
00000490: 5A B2 39 31 89 35 33 30  00 A6 0C D6 01 8B 5A B2  |Z.91.530......Z.|
000004A0: 39 33 89 33 39 30 00 B5  0C DB 01 8B 5A B2 31 34  |93.390......Z.14|
000004B0: 37 89 33 39 30 00 BE 0C  E0 01 89 32 33 30 00 C4  |7.390......230..|
000004C0: 0C F4 01 8F 00 DE 0C FE  01 84 31 35 2C 45 2C 45  |..........15,E,E|
000004D0: 24 2C 45 31 2C 45 32 3A  8B 45 B2 30 A7 8E 00 01  |$,E1,E2:.E.0....|
000004E0: 0D 08 02 99 22 12 44 49  53 4B 20 45 52 52 4F 52  |....".DISK ERROR|
000004F0: 3A 92 22 45 3B 45 24 2C  45 31 3B 45 32 3A 80 3A  |:."E;E$,E1;E2:.:|
00000500: 8E 00 13 0D 12 02 8B C3  28 43 24 29 B3 53 33 89  |........(C$).S3.|
00000510: 32 33 30 00 3D 0D 1C 02  8B CA 28 43 24 2C 34 2C  |230.=.....(C$,4,|
00000520: 31 29 B3 B1 22 2D 22 B0  CA 28 43 24 2C 53 33 AA  |1).."-"..(C$,S3.|
00000530: 31 2C 31 29 B3 B1 22 2D  22 89 32 33 30 00 4B 0D  |1,1).."-".230.K.|
00000540: 26 02 43 31 B2 32 3A 8D  37 30 30 00 6D 0D 30 02  |&.C1.2:.700.m.0.|
00000550: 43 33 B2 43 32 AB 31 3A  81 4B B2 31 A4 53 31 3A  |C3.C2.1:.K.1.S1:|
00000560: 43 31 B2 4B AC 32 AA 34  3A 8D 37 30 30 00 96 0D  |C1.K.2.4:.700...|
00000570: 3A 02 98 31 35 2C 22 42  2D 50 3A 22 32 3B 43 33  |:..15,"B-P:"2;C3|
00000580: AA 4B 3A 8D 35 30 30 3A  98 32 2C C7 28 43 32 29  |.K:.500:.2,.(C2)|
00000590: 3B 3A 8D 35 30 30 00 9D  0D 44 02 82 4B 00 B8 0D  |;:.500...D..K...|
000005A0: 4E 02 98 31 35 2C 22 55  32 3A 22 32 3B 44 24 3B  |N..15,"U2:"2;D$;|
000005B0: 54 3B 53 3A 8D 35 30 30  00 C1 0D 58 02 89 33 39  |T;S:.500...X..39|
000005C0: 30 00 F2 0D BC 02 43 32  B2 30 3A 81 4A B2 30 A4  |0.....C2.0:.J.0.|
000005D0: 31 3A 43 25 B2 C6 28 CA  28 43 24 2C 43 31 AA 4A  |1:C%..(.(C$,C1.J|
000005E0: 29 29 3A 8B 43 25 B3 35  38 A7 43 25 B2 43 25 AB  |)):.C%.58.C%.C%.|
000005F0: 34 38 00 06 0E C6 02 8B  43 25 B1 36 34 A7 43 25  |48......C%.64.C%|
00000600: B2 43 25 AB 35 35 00 18  0E D0 02 8B 43 25 B3 30  |.C%.55......C%.0|
00000610: B0 43 25 B1 31 35 A7 90  00 2D 0E DA 02 43 32 B2  |.C%.15...-...C2.|
00000620: 43 32 AC 31 36 AA 43 25  3A 82 4A 3A 8E 00 3F 0E  |C2.16.C%:.J:..?.|
00000630: 20 03 56 B2 56 AD 31 36  3A 81 4C B2 31 A4 32 00  | .V.V.16:.L.1.2.|
00000640: 62 0E 2A 03 56 25 B2 56  3A 56 B2 28 56 AB 56 25  |b.*.V%.V:V.(V.V%|
00000650: 29 AC 31 36 3A 8B 56 25  B1 39 A7 56 25 B2 56 25  |).16:.V%.9.V%.V%|
00000660: AA 37 00 72 0E 34 03 4B  24 B2 4B 24 AA C7 28 56  |.7.r.4.K$.K$..(V|
00000670: 31 29 00 86 0E 3E 03 99  C7 28 56 25 AA 34 38 29  |1)...>...(V%.48)|
00000680: 3B 3A 82 4C 3A 8E 00 8C  0E E7 03 80 00 9C 0E E8  |;:.L:...........|
00000690: 03 A0 32 3A A0 31 35 3A  A0 31 3A 80 00 C8 0E B0  |..2:.15:.1:.....|
000006A0: 04 99 22 93 D4 48 49 53  20 52 4F 55 54 49 4E 45  |.."..HIS ROUTINE|
000006B0: 20 49 53 20 54 4F 20 42  45 20 55 53 45 44 20 54  | IS TO BE USED T|
000006C0: 4F 20 50 41 54 43 48 22  00 F2 0E BA 04 99 22 55  |O PATCH"......"U|
000006D0: 50 20 53 4D 41 53 48 45  44 20 53 45 43 54 4F 52  |P SMASHED SECTOR|
000006E0: 53 20 4F 4E 20 44 49 53  4B 45 54 54 45 53 20 42  |S ON DISKETTES B|
000006F0: 59 22 00 17 0F C4 04 99  22 52 45 43 4F 4E 53 54  |Y"......"RECONST|
00000700: 52 55 43 54 49 4E 47 20  45 41 43 48 20 42 59 54  |RUCTING EACH BYT|
00000710: 45 20 28 49 4E 20 22 00  3D 0F CE 04 99 22 47 52  |E (IN ".=...."GR|
00000720: 4F 55 50 53 20 4F 46 20  31 36 20 42 59 54 45 53  |OUPS OF 16 BYTES|
00000730: 29 20 4D 41 4E 55 41 4C  4C 59 2E 20 22 00 67 0F  |) MANUALLY. ".g.|
00000740: D8 04 99 22 D9 4F 55 20  41 52 45 20 45 58 50 45  |...".OU ARE EXPE|
00000750: 43 54 45 44 20 54 4F 20  43 48 41 4E 47 45 20 54  |CTED TO CHANGE T|
00000760: 48 45 20 48 45 58 22 00  91 0F E2 04 99 22 43 48  |HE HEX"......"CH|
00000770: 41 52 41 43 54 45 52 53  20 12 49 4E 20 54 48 45  |ARACTERS .IN THE|
00000780: 49 52 20 50 4C 41 43 45  92 20 4F 4E 20 54 48 45  |IR PLACE. ON THE|
00000790: 22 00 B8 0F EC 04 99 22  53 43 52 45 45 4E 2E 20  |"......"SCREEN. |
000007A0: 20 C9 4E 20 41 44 44 49  54 49 4F 4E 2C 20 59 4F  | .N ADDITION, YO|
000007B0: 55 20 4D 55 53 54 20 22  00 E3 0F F6 04 99 22 43  |U MUST "......"C|
000007C0: 48 41 4E 47 45 20 54 48  45 20 49 4E 49 54 49 41  |HANGE THE INITIA|
000007D0: 4C 20 43 48 41 52 41 43  54 45 52 20 4F 4E 20 54  |L CHARACTER ON T|
000007E0: 48 45 22 00 0C 10 00 05  99 22 4C 49 4E 45 20 4F  |HE"......"LINE O|
000007F0: 46 20 48 45 58 20 56 41  4C 55 45 53 20 59 4F 55  |F HEX VALUES YOU|
00000800: 20 54 4F 20 43 48 41 4E  47 45 3B 22 00 38 10 0A  | TO CHANGE;".8..|
00000810: 05 99 22 46 4F 52 20 45  58 41 4D 50 4C 45 2C 20  |.."FOR EXAMPLE, |
00000820: 59 4F 55 20 4D 49 47 48  54 20 43 48 41 4E 47 45  |YOU MIGHT CHANGE|
00000830: 20 5B 20 54 4F 5D 2E 22  00 64 10 14 05 99 22 D4  | [ TO].".d....".|
00000840: 4F 20 45 4E 44 20 54 48  45 20 50 52 4F 43 45 44  |O END THE PROCED|
00000850: 55 52 45 2C 20 43 48 41  4E 47 45 20 5B 20 54 4F  |URE, CHANGE [ TO|
00000860: 20 5C 2E 22 00 8E 10 19  05 99 22 C6 49 4E 41 4C  | \."......".INAL|
00000870: 4C 59 2C 20 54 4F 20 51  55 49 54 2C 20 53 45 4C  |LY, TO QUIT, SEL|
00000880: 45 43 54 20 54 52 41 43  4B 20 41 4E 44 22 00 A4  |ECT TRACK AND"..|
00000890: 10 1A 05 99 22 53 45 43  54 4F 52 3A 20 30 2C 30  |...."SECTOR: 0,0|
000008A0: 20 20 2E 22 00 CD 10 1E  05 99 22 C9 46 20 59 4F  |  ."......".F YO|
000008B0: 55 20 47 45 54 20 49 4E  54 4F 20 54 52 4F 55 42  |U GET INTO TROUB|
000008C0: 4C 45 20 41 4E 44 20 4D  55 53 54 20 22 00 F6 10  |LE AND MUST "...|
000008D0: 28 05 99 22 50 55 53 48  20 52 55 4E 2F 53 54 4F  |(.."PUSH RUN/STO|
000008E0: 50 2F 52 45 53 54 4F 52  45 2C 20 59 4F 55 20 4D  |P/RESTORE, YOU M|
000008F0: 41 59 20 42 45 22 00 1B  11 32 05 99 22 41 42 4C  |AY BE"...2.."ABL|
00000900: 45 20 54 4F 20 43 4C 4F  53 45 20 46 49 4C 45 53  |E TO CLOSE FILES|
00000910: 20 42 59 20 54 59 50 49  4E 47 22 00 46 11 3C 05  | BY TYPING".F.<.|
00000920: 99 22 20 20 20 20 20 20  20 47 4F 53 55 42 31 30  |."       GOSUB10|
00000930: 30 30 20 49 4E 20 49 4D  4D 45 44 49 41 54 45 20  |00 IN IMMEDIATE |
00000940: 4D 4F 44 45 2E 22 00 70  11 46 05 99 22 C9 20 52  |MODE.".p.F..". R|
00000950: 45 43 4F 4D 4D 45 4E 44  20 54 48 41 54 20 59 4F  |ECOMMEND THAT YO|
00000960: 55 20 45 58 50 45 52 49  4D 45 4E 54 20 4F 4E 22  |U EXPERIMENT ON"|
00000970: 00 98 11 50 05 99 22 41  4E 20 45 58 54 52 41 20  |...P.."AN EXTRA |
00000980: 44 49 53 4B 20 42 45 46  4F 52 45 20 55 53 49 4E  |DISK BEFORE USIN|
00000990: 47 20 54 48 49 53 2E 22  00 AA 11 5A 05 99 22 C7  |G THIS."...Z..".|
000009A0: 4F 4F 44 20 4C 55 43 4B  2E 22 00 CD 11 5F 05 99  |OOD LUCK."..._..|
000009B0: 22 12 50 52 45 53 53 20  41 4E 59 20 4B 45 59 20  |".PRESS ANY KEY |
000009C0: 54 4F 20 43 4F 4E 54 49  4E 55 45 92 22 00 E1 11  |TO CONTINUE."...|
000009D0: 60 05 A1 59 24 3A 8B 59  24 B2 22 22 A7 31 33 37  |`..Y$:.Y$."".137|
000009E0: 36 00 EB 11 61 05 99 22  93 22 3B 00 F4 11 64 05  |6...a..".";...d.|
000009F0: 89 31 34 30 00 15 12 F6  F9 9F 31 2C 38 2C 31 35  |.140......1,8,15|
00000A00: 2C 22 53 30 3A 44 49 53  4B 45 54 54 45 20 4D 4F  |,"S0:DISKETTE MO|
00000A10: 44 22 3A A0 31 00 32 12  FB F9 94 22 44 49 53 4B  |D":.1.2...."DISK|
00000A20: 45 54 54 45 20 4D 4F 44  22 2C 38 3A 95 22 2A 22  |ETTE MOD",8:."*"|
00000A30: 2C 38 00 00 00                                    |,8...           |

..3.D.."..DISKETTE VIEWER/CHANGER**JIM B
UTTERFIELD".`.N..".   CAUTION - USE CARE
 - THIS PROGRAM"...S.. "ADAPTED BY BRIAN
 SCHOTT TO FIX DISKETTE SECTORS".N.V.. 1
041 NORTH HILLS DRIVE, DECATUR, GEORGIA,
 30033...W.. MAY 1983, FOR C64...X.."   
    CAN WRECK YOUR DISKETTE IF USED".?..
.."      WITHOUT CARE & UNDERSTANDING!".
`....".DO YOU WANT INSTRUCTIONS".S....Y$
:.Y$."".136......Y$.."N".1200......53281
,11... .S1.16.....S2.255:S3.37...... A(2
55).O...B$.G(17):D$."0"...R.. 15,8,15,"I
".D$:.500......2,8,2,"#0":.500.2...."...
................. TRACK,SECTOR  0,0.....
";.;....T,S.R....T.1.T.35. 2: 15:..|....
". WORKING ":.15,"U1:2,";D$;T;S:.500....
..".";......J.0.255...,..#2,A$:.A$."".A$
.G(0)...6.A(J).F(A$):.J.L.@.P.0:CL.1...J
..".TRACK";T;"SECTOR";S...T..J.P.P.S2.S1
:."]";.>.^.V.J:.800:K$."":."- ";:.K.0.S1
.1:V.A(J.K):.800:K$."":CL.1.CL.Y.C..G(18
);:.CL.1..G(146);...D.. IF YOU PREFER CH
ANGE 18 TO 144 AND CHANGE 146 TO 144 IN 
STATEMENT 355...H.. K:."-":.J.R.M.."....
................";...R.."CHANGE THE FIRS
T CHARACTER TO [ TO READ CHANGED SCREEN 
ONTO THE DISK".[.|.."CHANGE THE FIRST CH
ARACTER TO \ TO ABORT THIS PROCESS".G...
.1,3:.1......C$:.;:Z.F(C$):C$.C$...B..1:
 1...L..Z.91.530...V..Z.93.390......Z.14
7.390......230.D..........15,E,E$,E1,E2:
.E.0........".DISK ERROR:."E;E$,E1;E2:.:
.......C(C$).S3.230.=....J(C$,4,1).."-".
J(C$,S3.1,1).."-".230.K.&.C1.2:.700.M.0.
C3.C2.1:.K.1.S1:C1.K.2.4:.700...:..15,"B
-P:"2;C3.K:.500:.2,G(C2);:.500...D..K...
N..15,"U2:"2;D$;T;S:.500.A.X..390.....C2
.0:.J.0.1:C%.F(J(C$,C1.J)):.C%.58.C%.C%.
48...F..C%.64.C%.C%.55...P..C%.0.C%.15..
.-.Z.C2.C2.16.C%:.J:..?. .V.V.16:.L.1.2.
B.*.V%.V:V.(V.V%).16:.V%.9.V%.V%.7.R.4.K
$.K$.G(V1)...>..G(V%.48);:.L:...........
. 2: 15: 1:..H....".THIS ROUTINE IS TO B
E USED TO PATCH"......"UP SMASHED SECTOR
S ON DISKETTES BY"...D.."RECONSTRUCTING 
EACH BYTE (IN ".=.N.."GROUPS OF 16 BYTES
) MANUALLY. ".G.X.."YOU ARE EXPECTED TO 
CHANGE THE HEX"......"CHARACTERS .IN THE
IR PLACE. ON THE"......"SCREEN.  IN ADDI
TION, YOU MUST "......"CHANGE THE INITIA
L CHARACTER ON THE"......"LINE OF HEX VA
LUES YOU TO CHANGE;".8...."FOR EXAMPLE, 
YOU MIGHT CHANGE [ TO].".D...."TO END TH
E PROCEDURE, CHANGE [ TO \."......"FINAL
LY, TO QUIT, SELECT TRACK AND"......"SEC
TOR: 0,0  .".M...."IF YOU GET INTO TROUB
LE AND MUST "...(.."PUSH RUN/STOP/RESTOR
E, YOU MAY BE"...2.."ABLE TO CLOSE FILES
 BY TYPING".F.<.."       GOSUB1000 IN IM
MEDIATE MODE.".P.F.."I RECOMMEND THAT YO
U EXPERIMENT ON"...P.."AN EXTRA DISK BEF
ORE USING THIS."...Z.."GOOD LUCK.".M._..
".PRESS ANY KEY TO CONTINUE."...`..Y$:.Y
$."".1376...A..".";...D..140......1,8,15
,"S0:DISKETTE MOD": 1.2...."DISKETTE MOD
",8:."*",8...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL