PATCH.C
FILE INFORMATION
FILENAME(S): PATCH.C
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
f0637973861f1e2083fa06ca7f8d1f00695658a0ce4bb0da3cd3d78549d4d476
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG DEC 84 C | PATCH.C | PRG | DuncanTwain | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 44 49 53 4B 20 50 41 54 |..$.... DISK PAT| 00000010: 43 48 20 42 59 20 4B 45 56 49 4E 20 41 4E 44 45 |CH BY KEVIN ANDE| 00000020: 52 53 4F 4E 00 40 08 0C 00 8F 20 52 45 56 49 53 |RSON.@.... REVIS| 00000030: 49 4F 4E 20 41 2E 34 20 20 32 2F 32 30 2F 38 34 |ION A.4 2/20/84| 00000040: 00 65 08 0F 00 86 20 42 24 28 32 35 35 29 2C 44 |.e.... B$(255),D| 00000050: 24 28 32 35 35 29 2C 4B 24 28 37 35 29 3A 4E 24 |$(255),K$(75):N$| 00000060: B2 C7 28 30 29 00 7A 08 10 00 81 49 B2 31 A4 37 |..(0).z....I.1.7| 00000070: 35 3A 87 4B 24 28 49 29 3A 82 00 9B 08 11 00 81 |5:.K$(I):.......| 00000080: 49 B2 30 A4 32 35 35 3A 42 24 28 49 29 B2 4E 24 |I.0.255:B$(I).N$| 00000090: 3A 44 24 28 49 29 B2 4E 24 3A 82 00 BF 08 12 00 |:D$(I).N$:......| 000000A0: 97 35 33 32 38 30 2C 31 35 3A 97 35 33 32 38 31 |.53280,15:.53281| 000000B0: 2C 31 35 3A 99 C7 28 31 34 32 29 3B 22 90 22 00 |,15:..(142);".".| 000000C0: E7 08 14 00 99 22 93 11 11 92 20 20 20 20 20 20 |.....".... | 000000D0: 20 20 20 20 20 20 1C 20 12 20 20 50 41 54 43 48 | . . PATCH| 000000E0: 20 20 92 90 11 11 22 00 12 09 1E 00 99 22 20 12 | ...."......" .| 000000F0: 46 31 92 20 20 52 45 41 44 20 41 20 42 4C 4F 43 |F1. READ A BLOC| 00000100: 4B 20 49 4E 54 4F 20 54 48 45 20 42 55 46 46 45 |K INTO THE BUFFE| 00000110: 52 22 00 31 09 23 00 99 22 20 12 46 32 92 20 20 |R".1.#.." .F2. | 00000120: 50 52 49 4E 54 20 54 48 45 20 42 55 46 46 45 52 |PRINT THE BUFFER| 00000130: 22 00 4F 09 28 00 99 22 20 12 46 33 92 20 20 45 |".O.(.." .F3. E| 00000140: 44 49 54 20 54 48 45 20 42 55 46 46 45 52 22 00 |DIT THE BUFFER".| 00000150: 76 09 2D 00 99 22 20 12 46 34 92 20 20 43 4F 4D |v.-.." .F4. COM| 00000160: 50 41 52 45 20 42 55 46 46 45 52 20 57 49 54 48 |PARE BUFFER WITH| 00000170: 20 44 49 53 4B 22 00 9D 09 32 00 99 22 20 12 46 | DISK"...2.." .F| 00000180: 35 92 20 20 57 52 49 54 45 20 54 48 45 20 42 55 |5. WRITE THE BU| 00000190: 46 46 45 52 20 54 4F 20 44 49 53 4B 22 00 BD 09 |FFER TO DISK"...| 000001A0: 37 00 99 22 20 12 46 36 92 20 20 43 48 45 43 4B |7.." .F6. CHECK| 000001B0: 20 44 49 53 4B 20 53 54 41 54 55 53 22 00 CF 09 | DISK STATUS"...| 000001C0: 3C 00 99 22 20 12 46 37 92 20 20 45 58 49 54 00 |<.." .F7. EXIT.| 000001D0: F5 09 46 00 A1 41 24 3A 8B C6 28 41 24 AA 4E 24 |..F..A$:..(A$.N$| 000001E0: 29 B3 31 33 33 B0 C6 28 41 24 AA 4E 24 29 B1 31 |).133..(A$.N$).1| 000001F0: 33 39 A7 37 30 00 29 0A 48 00 91 28 C6 28 41 24 |39.70.).H..(.(A$| 00000200: AA 4E 24 29 AB 31 33 32 29 89 20 32 30 30 2C 35 |.N$).132). 200,5| 00000210: 30 30 2C 32 30 30 30 2C 38 30 2C 33 30 30 30 2C |00,2000,80,3000,| 00000220: 35 30 30 30 2C 36 30 30 30 00 3B 0A 50 00 99 22 |5000,6000.;.P.."| 00000230: 11 2A 20 42 59 45 20 2A 22 3A 80 00 6A 0A C8 00 |.* BYE *":..j...| 00000240: 99 22 93 20 20 20 20 20 20 20 20 12 1C 20 52 45 |.". .. RE| 00000250: 41 44 20 42 4C 4F 43 4B 20 46 52 4F 4D 20 44 49 |AD BLOCK FROM DI| 00000260: 53 4B 20 92 90 22 3A 99 3A 99 00 81 0A D2 00 85 |SK ..":.:.......| 00000270: 22 54 52 41 43 4B 20 28 31 2D 33 35 29 22 3B 54 |"TRACK (1-35)";T| 00000280: 52 00 9C 0A DE 00 8B 54 52 B1 33 35 B0 54 52 B3 |R......TR.35.TR.| 00000290: 31 A7 99 22 91 22 3B 3A 89 32 31 30 00 B2 0A DF |1..".";:.210....| 000002A0: 00 8B 54 52 B1 33 30 A7 53 4D B2 31 36 3A 89 32 |..TR.30.SM.16:.2| 000002B0: 32 37 00 C8 0A E0 00 8B 54 52 B1 32 34 A7 53 4D |27......TR.24.SM| 000002C0: B2 31 37 3A 89 32 32 37 00 DE 0A E1 00 8B 54 52 |.17:.227......TR| 000002D0: B1 31 37 A7 53 4D B2 31 38 3A 89 32 32 37 00 E8 |.17.SM.18:.227..| 000002E0: 0A E2 00 53 4D B2 32 30 00 08 0B E3 00 99 22 53 |...SM.20......"S| 000002F0: 45 43 54 4F 52 20 28 30 2D 22 3B 53 4D 3B 22 9D |ECTOR (0-";SM;".| 00000300: 29 22 3B 3A 85 20 53 45 00 23 0B E4 00 8B 53 45 |)";:. SE.#....SE| 00000310: B1 53 4D B0 53 45 B3 30 A7 99 22 91 22 3B 3A 89 |.SM.SE.0..".";:.| 00000320: 32 32 37 00 40 0B E6 00 9F 31 35 2C 38 2C 31 35 |227.@....15,8,15| 00000330: 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,"I0":.2,8,2,"#"| 00000340: 00 65 0B F0 00 98 31 35 2C 22 55 31 3A 22 32 3B |.e....15,"U1:"2;| 00000350: 30 3B 54 52 3B 53 45 3A 98 31 35 2C 22 42 2D 50 |0;TR;SE:.15,"B-P| 00000360: 3A 32 2C 30 22 00 8E 0B 0E 01 81 49 B2 30 A4 32 |:2,0"......I.0.2| 00000370: 35 35 3A A1 23 32 2C 41 24 3A 42 24 28 49 29 B2 |55:.#2,A$:B$(I).| 00000380: C8 28 28 41 24 AA 4E 24 29 2C 31 29 3A 82 00 99 |.((A$.N$),1):...| 00000390: 0B 54 01 A0 32 3A A0 31 35 00 A1 0B 5E 01 89 32 |.T..2:.15...^..2| 000003A0: 30 00 AC 0B F4 01 50 B2 AB 31 30 30 00 D0 0B FE |0.....P..100....| 000003B0: 01 99 22 93 20 20 20 20 20 20 20 20 20 20 20 12 |..". .| 000003C0: 1C 20 45 44 49 54 20 42 4C 4F 43 4B 20 92 90 22 |. EDIT BLOCK .."| 000003D0: 00 F3 0B 08 02 99 22 20 20 12 46 31 92 20 20 4C |......" .F1. L| 000003E0: 49 53 54 20 4E 45 58 54 20 31 36 20 56 41 4C 55 |IST NEXT 16 VALU| 000003F0: 45 53 22 00 19 0C 12 02 99 22 20 20 12 46 33 92 |ES"......" .F3.| 00000400: 20 20 4C 49 53 54 20 50 52 45 56 49 4F 55 53 20 | LIST PREVIOUS | 00000410: 31 36 20 56 41 4C 55 53 22 00 37 0C 1C 02 99 22 |16 VALUS".7...."| 00000420: 20 20 12 46 35 92 20 20 43 48 41 4E 47 45 20 41 | .F5. CHANGE A| 00000430: 20 56 41 4C 55 45 22 00 58 0C 26 02 99 22 20 20 | VALUE".X.&.." | 00000440: 12 46 37 92 20 20 45 58 49 54 20 45 44 49 54 20 |.F7. EXIT EDIT | 00000450: 52 4F 55 54 49 4E 45 22 00 83 0C 28 02 99 3A 99 |ROUTINE"...(..:.| 00000460: 22 57 4F 52 44 23 20 20 48 45 58 20 20 20 20 20 |"WORD# HEX | 00000470: 44 45 43 20 20 41 53 43 49 49 20 20 20 42 41 53 |DEC ASCII BAS| 00000480: 49 43 22 00 8C 0C 2B 02 89 36 35 30 00 9F 0C 30 |IC"...+..650...0| 00000490: 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 36 30 00 |..A$:.A$."".560.| 000004A0: AF 0C 3A 02 8B 41 24 B2 22 88 22 A7 89 32 30 00 |..:..A$."."..20.| 000004B0: C7 0C 44 02 8B 41 24 B2 22 85 22 A7 50 B2 50 AA |..D..A$.".".P.P.| 000004C0: 31 36 3A 89 36 35 30 00 DF 0C 4E 02 8B 41 24 B2 |16:.650...N..A$.| 000004D0: 22 86 22 A7 50 B2 50 AB 31 36 3A 89 36 35 30 00 |".".P.P.16:.650.| 000004E0: 00 0D 58 02 8B 41 24 B2 22 87 22 A7 38 30 30 3A |..X..A$.".".800:| 000004F0: 8F 20 43 48 41 4E 47 45 20 41 20 56 41 4C 55 45 |. CHANGE A VALUE| 00000500: 00 09 0D 62 02 89 35 36 30 00 33 0D 8A 02 8F 20 |...b..560.3.... | 00000510: 4C 49 53 54 20 31 36 20 56 41 4C 55 45 53 20 49 |LIST 16 VALUES I| 00000520: 4E 20 48 45 58 20 44 45 43 49 4D 41 4C 20 41 53 |N HEX DECIMAL AS| 00000530: 43 49 49 00 40 0D 8F 02 8B 50 B3 30 A7 50 B2 30 |CII.@....P.0.P.0| 00000540: 00 57 0D 90 02 8B 50 B1 32 35 35 AB 31 35 A7 50 |.W....P.255.15.P| 00000550: B2 32 35 35 AB 31 35 00 66 0D 94 02 99 22 13 11 |.255.15.f...."..| 00000560: 11 11 11 11 11 22 00 74 0D 9E 02 81 49 B2 50 A4 |.....".t....I.P.| 00000570: 50 AA 31 35 00 81 0D A3 02 41 24 B2 42 24 28 49 |P.15.....A$.B$(I| 00000580: 29 00 A0 0D AD 02 4E B2 C6 28 41 24 29 3A 48 25 |).....N..(A$):H%| 00000590: B2 4E AD 31 36 3A 4C 25 B2 4E AB 31 36 AC 48 25 |.N.16:L%.N.16.H%| 000005A0: 00 B6 0D AF 02 48 25 B2 48 25 AA 34 38 3A 4C 25 |.....H%.H%.48:L%| 000005B0: B2 4C 25 AA 34 38 00 DA 0D B2 02 48 25 B2 48 25 |.L%.48.....H%.H%| 000005C0: AB 37 AC 28 48 25 B1 35 37 29 3A 4C 25 B2 4C 25 |.7.(H%.57):L%.L%| 000005D0: AB 37 AC 28 4C 25 B1 35 37 29 00 ED 0D B7 02 48 |.7.(L%.57).....H| 000005E0: 24 B2 C7 28 48 25 29 AA C7 28 4C 25 29 00 1C 0E |$..(H%)..(L%)...| 000005F0: B8 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000610: 20 20 20 20 20 20 20 20 20 20 22 3B 00 4B 0E B9 | ";.K..| 00000620: 02 99 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |..".............| 00000630: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000640: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 68 0E BA 02 |.........";.h...| 00000650: 53 B2 32 3A 8B 49 B3 31 30 30 A7 53 B2 33 3A 8B |S.2:.I.100.S.3:.| 00000660: 49 B3 31 30 A7 53 B2 34 00 85 0E BC 02 99 49 3B |I.10.S.4......I;| 00000670: A6 53 29 3B 48 24 2C A6 34 29 3B C6 28 41 24 29 |.S);H$,.4);.(A$)| 00000680: 2C 22 27 22 3B 00 A5 0E C1 02 8B C6 28 41 24 29 |,"'";.......(A$)| 00000690: B1 33 31 AF C6 28 41 24 29 B3 39 31 A7 99 41 24 |.31..(A$).91..A$| 000006A0: 3B 22 27 22 3B 00 C3 0E C3 02 8B C6 28 41 24 29 |;"'";.......(A$)| 000006B0: B3 33 32 B0 C6 28 41 24 29 B1 39 30 A7 99 22 20 |.32..(A$).90.." | 000006C0: 27 22 3B 00 DE 0E C4 02 8B C6 28 41 24 29 B3 31 |'";.......(A$).1| 000006D0: 32 38 B0 C6 28 41 24 29 B1 32 30 33 A7 99 00 0A |28..(A$).203....| 000006E0: 0F C5 02 8B C6 28 41 24 29 B1 31 32 37 AF C6 28 |.....(A$).127..(| 000006F0: 41 24 29 B3 32 30 34 A7 99 A6 35 29 3B 4B 24 28 |A$).204...5);K$(| 00000700: C6 28 41 24 29 AB 31 32 37 29 00 11 0F C6 02 82 |.(A$).127)......| 00000710: 49 00 1A 0F D0 02 89 35 36 30 00 3B 0F 20 03 99 |I......560.;. ..| 00000720: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 00000730: 11 11 11 11 11 11 11 11 11 22 3B 00 5F 0F 25 03 |.........";._.%.| 00000740: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 00000750: 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B 00 | ":.".";.| 00000760: 70 0F 2A 03 85 22 57 4F 52 44 20 23 22 3B 57 4E |p.*.."WORD #";WN| 00000770: 00 85 0F 2D 03 8B 57 4E B3 30 B0 57 4E B1 32 35 |...-..WN.0.WN.25| 00000780: 35 A7 38 30 30 00 A2 0F 2F 03 99 22 91 20 20 20 |5.800.../..". | 00000790: 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 | ":.".| 000007A0: 22 3B 00 C4 0F 34 03 85 22 41 53 43 49 49 2C 20 |";...4.."ASCII, | 000007B0: 44 45 43 49 4D 41 4C 2C 20 4F 52 20 48 45 58 22 |DECIMAL, OR HEX"| 000007C0: 3B 4D 4F 24 00 ED 0F 36 03 99 22 91 20 20 20 20 |;MO$...6..". | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007E0: 20 20 20 20 20 20 22 3A 99 22 91 22 3B 00 FA 0F | ":.".";...| 000007F0: 39 03 4E 58 B2 AB 31 30 30 30 00 2B 10 3E 03 8B |9.NX..1000.+.>..| 00000800: C8 28 4D 4F 24 2C 31 29 B2 22 41 22 A7 85 22 4E |.(MO$,1)."A".."N| 00000810: 45 57 20 43 48 41 52 41 43 54 45 52 22 3B 4E 43 |EW CHARACTER";NC| 00000820: 24 3A 4E 58 B2 C6 28 4E 43 24 29 00 55 10 43 03 |$:NX..(NC$).U.C.| 00000830: 8B C8 28 4D 4F 24 2C 31 29 B2 22 44 22 A7 85 22 |..(MO$,1)."D".."| 00000840: 4E 45 57 20 44 45 43 49 4D 41 4C 22 3B 4E 56 3A |NEW DECIMAL";NV:| 00000850: 4E 58 B2 4E 56 00 76 10 48 03 8B C8 28 4D 4F 24 |NX.NV.v.H...(MO$| 00000860: 2C 31 29 B2 22 48 22 A7 85 22 4E 45 57 20 48 45 |,1)."H".."NEW HE| 00000870: 58 22 3B 48 58 24 00 9D 10 70 03 8B 4E 58 B3 B1 |X";HX$...p..NX..| 00000880: AB 31 30 30 30 A7 31 30 30 30 3A 8F 20 49 4E 53 |.1000.1000:. INS| 00000890: 45 52 54 20 4E 45 57 20 56 41 4C 55 45 00 BB 10 |ERT NEW VALUE...| 000008A0: 7A 03 8B C8 28 4D 4F 24 2C 31 29 B3 B1 22 48 22 |z...(MO$,1).."H"| 000008B0: A7 99 22 11 22 3B 3A 89 38 31 35 00 D5 10 7F 03 |..".";:.815.....| 000008C0: 8B C3 28 48 58 24 29 B2 31 A7 48 58 24 B2 22 30 |..(HX$).1.HX$."0| 000008D0: 22 AA 48 58 24 00 FB 10 84 03 48 25 B2 C6 28 48 |".HX$.....H%..(H| 000008E0: 58 24 29 AB 34 38 20 3A 4C 25 B2 C6 28 CA 28 48 |X$).48 :L%..(.(H| 000008F0: 58 24 2C 32 2C 31 29 29 AB 34 38 00 0D 11 8E 03 |X$,2,1)).48.....| 00000900: 8B 48 25 B1 39 A7 48 25 B2 48 25 AB 37 00 1F 11 |.H%.9.H%.H%.7...| 00000910: 98 03 8B 4C 25 B1 39 A7 4C 25 B2 4C 25 AB 37 00 |...L%.9.L%.L%.7.| 00000920: 2F 11 A2 03 4E 58 B2 31 36 AC 48 25 AA 4C 25 00 |/...NX.16.H%.L%.| 00000930: 62 11 E8 03 8B 4E 58 B3 30 B0 4E 58 B1 32 35 35 |b....NX.0.NX.255| 00000940: A7 99 22 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 |.."OUT OF RANGE"| 00000950: 3A 81 49 B2 31 A4 31 30 30 30 3A 82 49 3A 89 35 |:.I.1.1000:.I:.5| 00000960: 31 30 00 70 11 F2 03 4E 4E 24 B2 C7 28 4E 58 29 |10.p...NN$..(NX)| 00000970: 00 7F 11 FC 03 42 24 28 57 4E 29 B2 4E 4E 24 00 |.....B$(WN).NN$.| 00000980: 88 11 B0 04 89 35 31 30 00 B2 11 D0 07 99 22 93 |.....510......".| 00000990: 20 20 20 20 20 20 20 20 12 1C 20 57 52 49 54 45 | .. WRITE| 000009A0: 20 42 4C 4F 43 4B 20 54 4F 20 44 49 53 4B 20 92 | BLOCK TO DISK .| 000009B0: 90 22 00 BC 11 DA 07 99 22 11 11 22 00 E1 11 E4 |."......".."....| 000009C0: 07 99 22 1D 1D 1D 1D 1D 1D 1D 22 3B 54 52 3A 99 |..".......";TR:.| 000009D0: 22 91 22 3B 3A 85 22 54 52 41 43 4B 20 22 3B 54 |".";:."TRACK ";T| 000009E0: 52 00 06 12 EE 07 99 22 1D 1D 1D 1D 1D 1D 1D 22 |R......"......."| 000009F0: 3B 53 45 3A 99 22 91 22 3B 3A 85 22 53 45 43 54 |;SE:.".";:."SECT| 00000A00: 4F 52 22 3B 53 45 00 36 12 F8 07 99 3A 99 22 54 |OR";SE.6....:."T| 00000A10: 52 41 43 4B 22 3B 54 52 3B 22 20 53 45 43 54 4F |RACK";TR;" SECTO| 00000A20: 52 22 3B 53 45 3B 22 20 43 4F 52 52 45 43 54 22 |R";SE;" CORRECT"| 00000A30: 3B 3A 85 20 41 24 00 48 12 02 08 8B 41 24 B3 B1 |;:. A$.H....A$..| 00000A40: 22 59 22 A7 32 30 30 30 00 60 12 0C 08 9F 31 35 |"Y".2000.`....15| 00000A50: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,8,15:.2,8,2,"#"| 00000A60: 00 72 12 16 08 98 31 35 2C 22 42 2D 50 3A 22 35 |.r....15,"B-P:"5| 00000A70: 3B 30 00 91 12 1B 08 98 31 35 2C 22 4D 2D 57 3A |;0......15,"M-W:| 00000A80: 22 C7 28 30 29 C7 28 35 29 3B 31 3B 42 24 28 30 |".(0).(5);1;B$(0| 00000A90: 29 00 AB 12 2A 08 81 49 B2 31 A4 32 35 35 3A 98 |)...*..I.1.255:.| 00000AA0: 32 2C 42 24 28 49 29 3B 3A 82 49 00 C2 12 2B 08 |2,B$(I);:.I...+.| 00000AB0: 98 31 35 2C 22 55 32 3A 22 32 3B 30 3B 54 52 3B |.15,"U2:"2;0;TR;| 00000AC0: 53 45 00 D1 12 33 08 A0 32 3A A0 31 35 3A 89 32 |SE...3..2:.15:.2| 00000AD0: 30 00 F4 12 B8 0B 99 22 93 20 20 20 20 20 20 20 |0......". | 00000AE0: 20 12 1C 20 50 52 49 4E 54 20 42 55 46 46 45 52 | .. PRINT BUFFER| 00000AF0: 20 92 90 22 00 0A 13 C0 0B 99 22 11 11 11 11 12 | .."......".....| 00000B00: 46 31 92 20 20 20 48 45 58 22 00 1F 13 C2 0B 99 |F1. HEX"......| 00000B10: 22 11 12 46 33 92 20 20 20 41 53 43 49 49 22 00 |"..F3. ASCII".| 00000B20: 36 13 C3 0B 99 22 11 12 46 35 92 20 20 20 44 45 |6...."..F5. DE| 00000B30: 43 49 4D 41 4C 22 00 4A 13 C5 0B A1 41 24 3A 8B |CIMAL".J....A$:.| 00000B40: 41 24 B2 22 22 A7 33 30 31 33 00 53 13 CE 0B 9F |A$."".3013.S....| 00000B50: 34 2C 34 00 6C 13 D0 0B 98 34 2C 22 20 22 3A 98 |4,4.l....4," ":.| 00000B60: 34 2C 22 20 22 3A 98 34 2C 22 20 22 00 92 13 D2 |4," ":.4," "....| 00000B70: 0B 98 34 2C 22 20 20 20 54 52 41 43 4B 22 3B 54 |..4," TRACK";T| 00000B80: 52 3B 22 20 20 20 20 20 53 45 43 54 4F 52 22 3B |R;" SECTOR";| 00000B90: 53 45 00 9D 13 D6 0B 98 34 2C 22 20 22 00 B4 13 |SE......4," "...| 00000BA0: EA 0B 81 20 49 B2 30 A4 32 34 30 A9 31 36 3A 98 |... I.0.240.16:.| 00000BB0: 34 2C 49 3B 00 C6 13 EC 0B 8B 49 B3 31 30 A7 98 |4,I;......I.10..| 00000BC0: 34 2C 22 20 22 3B 00 D9 13 ED 0B 8B 49 B3 31 30 |4," ";......I.10| 00000BD0: 30 A7 98 34 2C 22 20 22 3B 00 E5 13 EF 0B 81 4C |0..4," ";......L| 00000BE0: B2 31 A4 31 36 00 F6 13 F4 0B 43 24 B2 42 24 28 |.1.16.....C$.B$(| 00000BF0: 49 AA 4C AB 31 29 00 08 14 F6 0B 8B 41 24 B3 B1 |I.L.1)......A$..| 00000C00: 22 86 22 A7 33 30 37 30 00 2F 14 F8 0B 8B C6 28 |".".3070./.....(| 00000C10: 43 24 29 B1 33 30 AF C6 28 43 24 29 B3 39 30 A7 |C$).30..(C$).90.| 00000C20: 48 24 B2 22 20 22 AA 43 24 3A 89 34 30 33 30 00 |H$." ".C$:.4030.| 00000C30: 41 14 FA 0B 48 24 B2 22 20 2A 22 3A 89 34 30 33 |A...H$." *":.403| 00000C40: 30 00 52 14 FE 0B 8B 41 24 B2 22 85 22 A7 33 30 |0.R....A$.".".30| 00000C50: 37 39 00 67 14 FF 0B 48 24 B2 CA 28 C4 28 C6 28 |79.g...H$..(.(.(| 00000C60: 43 24 29 29 2C 32 29 00 84 14 01 0C 8B C3 28 48 |C$)),2).......(H| 00000C70: 24 29 B3 33 A7 48 24 B2 48 24 AA 22 20 22 3A 89 |$).3.H$.H$." ":.| 00000C80: 33 30 37 33 00 8E 14 05 0C 89 34 30 33 30 00 AD |3073......4030..| 00000C90: 14 07 0C 4E B2 C6 28 43 24 29 3A 48 25 B2 4E AD |...N..(C$):H%.N.| 00000CA0: 31 36 3A 4C 25 B2 4E AB 31 36 AC 48 25 00 C3 14 |16:L%.N.16.H%...| 00000CB0: 08 0C 48 25 B2 48 25 AA 34 38 3A 4C 25 B2 4C 25 |..H%.H%.48:L%.L%| 00000CC0: AA 34 38 00 E7 14 12 0C 48 25 B2 48 25 AB 37 AC |.48.....H%.H%.7.| 00000CD0: 28 48 25 B1 35 37 29 3A 4C 25 B2 4C 25 AB 37 AC |(H%.57):L%.L%.7.| 00000CE0: 28 4C 25 B1 35 37 29 00 FA 14 A0 0F 48 24 B2 C7 |(L%.57).....H$..| 00000CF0: 28 48 25 29 AA C7 28 4C 25 29 00 1A 15 BE 0F 8B |(H%)..(L%)......| 00000D00: 41 24 B2 22 85 22 B0 41 24 B2 22 86 22 A7 20 98 |A$.".".A$.".". .| 00000D10: 34 2C 48 24 3B 22 20 20 22 3B 00 31 15 BF 0F 8B |4,H$;" ";.1....| 00000D20: 41 24 B2 22 87 22 A7 98 34 2C 48 24 3B 22 20 22 |A$."."..4,H$;" "| 00000D30: 3B 00 39 15 C8 0F 82 20 4C 00 44 15 CD 0F 98 34 |;.9.... L.D....4| 00000D40: 2C 22 20 22 00 4B 15 D0 0F 82 49 00 5C 15 D2 0F |," ".K....I.\...| 00000D50: 98 34 3A 98 34 3A A0 34 3A 89 32 30 00 8B 15 88 |.4:.4:.4:.20....| 00000D60: 13 99 22 93 20 20 20 20 12 1C 20 43 4F 4D 50 41 |..". .. COMPA| 00000D70: 52 45 20 42 55 46 46 45 52 20 57 49 54 48 20 44 |RE BUFFER WITH D| 00000D80: 49 53 4B 20 92 90 22 3A 99 3A 99 00 A2 15 5A 14 |ISK ..":.:....Z.| 00000D90: 85 22 54 52 41 43 4B 20 28 31 2D 33 35 29 22 3B |."TRACK (1-35)";| 00000DA0: 54 43 00 BE 15 66 14 8B 54 43 B1 33 35 B0 54 43 |TC...f..TC.35.TC| 00000DB0: B3 31 A7 99 22 91 22 3B 3A 89 35 32 31 30 00 D5 |.1..".";:.5210..| 00000DC0: 15 67 14 8B 54 43 B1 33 30 A7 53 4D B2 31 36 3A |.g..TC.30.SM.16:| 00000DD0: 89 35 32 32 37 00 EC 15 68 14 8B 54 43 B1 32 34 |.5227...h..TC.24| 00000DE0: A7 53 4D B2 31 37 3A 89 35 32 32 37 00 03 16 69 |.SM.17:.5227...i| 00000DF0: 14 8B 54 43 B1 31 37 A7 53 4D B2 31 38 3A 89 35 |..TC.17.SM.18:.5| 00000E00: 32 32 37 00 0D 16 6A 14 53 4D B2 32 30 00 2D 16 |227...j.SM.20.-.| 00000E10: 6B 14 99 22 53 45 43 54 4F 52 20 28 30 2D 22 3B |k.."SECTOR (0-";| 00000E20: 53 4D 3B 22 9D 29 22 3B 3A 85 20 53 43 00 49 16 |SM;".)";:. SC.I.| 00000E30: 6C 14 8B 53 43 B1 53 4D B0 53 43 B3 30 A7 99 22 |l..SC.SM.SC.0.."| 00000E40: 91 22 3B 3A 89 35 32 32 37 00 66 16 6E 14 9F 31 |.";:.5227.f.n..1| 00000E50: 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 |5,8,15,"I0":.2,8| 00000E60: 2C 32 2C 22 23 22 00 7D 16 78 14 98 31 35 2C 22 |,2,"#".}.x..15,"| 00000E70: 55 31 3A 22 32 3B 30 3B 54 43 3B 53 43 00 8F 16 |U1:"2;0;TC;SC...| 00000E80: 7D 14 98 31 35 2C 22 42 2D 50 3A 32 2C 30 22 00 |}..15,"B-P:2,0".| 00000E90: B8 16 96 14 81 49 B2 30 A4 32 35 35 3A A1 23 32 |.....I.0.255:.#2| 00000EA0: 2C 41 24 3A 44 24 28 49 29 B2 C8 28 28 41 24 AA |,A$:D$(I)..((A$.| 00000EB0: 4E 24 29 2C 31 29 3A 82 00 C3 16 A0 14 A0 32 3A |N$),1):.......2:| 00000EC0: A0 31 35 00 DD 16 B4 14 8F 20 4E 4F 57 20 43 4F |.15...... NOW CO| 00000ED0: 4D 50 41 52 45 20 54 48 45 20 54 57 4F 00 EA 16 |MPARE THE TWO...| 00000EE0: BE 14 99 3A 20 20 45 43 B2 30 00 F7 16 C8 14 81 |...: EC.0......| 00000EF0: 49 B2 30 A4 32 35 35 00 3A 17 D2 14 8B 42 24 28 |I.0.255.:....B$(| 00000F00: 49 29 B3 B1 44 24 28 49 29 A7 99 22 20 20 23 22 |I)..D$(I).." #"| 00000F10: 3B 49 2C 22 42 55 46 3A 22 3B C6 28 42 24 28 49 |;I,"BUF:";.(B$(I| 00000F20: 29 29 2C 22 44 53 4B 3A 22 3B C6 28 44 24 28 49 |)),"DSK:";.(D$(I| 00000F30: 29 29 3A 45 43 B2 45 43 AA 31 00 4E 17 D7 14 A1 |)):EC.EC.1.N....| 00000F40: 41 24 3A 8B 41 24 B2 22 22 A7 35 33 34 30 00 62 |A$:.A$."".5340.b| 00000F50: 17 D8 14 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 33 |....A$:.A$."".53| 00000F60: 33 36 00 68 17 DC 14 82 00 86 17 E6 14 8B 20 45 |36.h.......... E| 00000F70: 43 B2 30 A7 99 3A 99 22 50 45 52 46 45 43 54 20 |C.0..:."PERFECT | 00000F80: 4D 41 54 43 48 22 00 AC 17 F0 14 8B 20 45 43 B1 |MATCH"...... EC.| 00000F90: 30 A7 99 3A 99 22 20 20 20 20 20 22 3B 45 43 3B |0..:." ";EC;| 00000FA0: 22 4D 49 53 4D 41 54 43 48 45 53 22 00 CD 17 FA |"MISMATCHES"....| 00000FB0: 14 99 3A 99 22 20 20 48 49 54 20 41 20 4B 45 59 |..:." HIT A KEY| 00000FC0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 E1 17 | TO CONTINUE"...| 00000FD0: 04 15 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 33 38 |...A$:.A$."".538| 00000FE0: 30 00 EA 17 0E 15 89 20 32 30 00 12 18 70 17 99 |0...... 20...p..| 00000FF0: 22 93 20 20 20 20 20 20 20 20 12 1C 20 43 48 45 |". .. CHE| 00001000: 43 4B 20 44 49 53 4B 20 53 54 41 54 55 53 20 92 |CK DISK STATUS .| 00001010: 90 22 00 36 18 84 17 99 3A 99 3A 99 3A 9F 31 35 |.".6....:.:.:.15| 00001020: 2C 38 2C 31 35 3A 84 31 35 2C 41 41 2C 41 41 24 |,8,15:.15,AA,AA$| 00001030: 2C 42 42 2C 43 43 00 4C 18 8E 17 A0 31 35 3A 99 |,BB,CC.L....15:.| 00001040: 41 41 2C 41 41 24 2C 42 42 2C 43 43 00 70 18 AC |AA,AA$,BB,CC.p..| 00001050: 17 99 3A 99 22 20 20 20 20 20 48 49 54 20 41 20 |..:." HIT A | 00001060: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"| 00001070: 00 84 18 B6 17 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".| 00001080: 36 30 37 30 00 8C 18 C0 17 89 32 30 00 A5 18 20 |6070......20... | 00001090: 4E 8F 20 37 35 20 42 41 53 49 43 20 4B 45 59 20 |N. 75 BASIC KEY | 000010A0: 57 4F 52 44 53 00 F1 18 2A 4E 83 20 45 4E 44 2C |WORDS...*N. END,| 000010B0: 46 4F 52 2C 4E 45 58 54 2C 44 41 54 41 2C 49 4E |FOR,NEXT,DATA,IN| 000010C0: 50 55 54 23 2C 49 4E 50 55 54 2C 44 49 4D 2C 52 |PUT#,INPUT,DIM,R| 000010D0: 45 41 44 2C 4C 45 54 2C 47 4F 54 4F 2C 52 55 4E |EAD,LET,GOTO,RUN| 000010E0: 2C 49 46 2C 52 45 53 54 4F 52 45 2C 47 4F 53 55 |,IF,RESTORE,GOSU| 000010F0: 42 00 3B 19 34 4E 83 20 52 45 54 55 52 4E 2C 52 |B.;.4N. RETURN,R| 00001100: 45 4D 2C 53 54 4F 50 2C 4F 4E 2C 57 41 49 54 2C |EM,STOP,ON,WAIT,| 00001110: 4C 4F 41 44 2C 53 41 56 45 2C 56 45 52 49 46 59 |LOAD,SAVE,VERIFY| 00001120: 2C 44 45 46 2C 50 4F 4B 45 2C 50 52 49 4E 54 23 |,DEF,POKE,PRINT#| 00001130: 2C 50 52 49 4E 54 2C 43 4F 4E 54 00 83 19 3E 4E |,PRINT,CONT...>N| 00001140: 83 20 4C 49 53 54 2C 43 4C 52 2C 43 4D 44 2C 53 |. LIST,CLR,CMD,S| 00001150: 59 53 2C 4F 50 45 4E 2C 43 4C 4F 53 45 2C 47 45 |YS,OPEN,CLOSE,GE| 00001160: 54 2C 4E 45 57 2C 54 41 42 28 2C 54 4F 2C 46 4E |T,NEW,TAB(,TO,FN| 00001170: 2C 53 50 43 28 2C 54 48 45 4E 2C 4E 4F 54 2C 53 |,SPC(,THEN,NOT,S| 00001180: 54 45 50 00 CC 19 48 4E 83 20 2B 2C 2D 2C 2A 2C |TEP...HN. +,-,*,| 00001190: 2F 2C 5E 2C 41 4E 44 2C 4F 52 2C 3E 2C 3D 2C 3C |/,^,AND,OR,>,=,<| 000011A0: 2C 53 47 4E 2C 49 4E 54 2C 41 42 53 2C 55 53 52 |,SGN,INT,ABS,USR| 000011B0: 2C 46 52 45 2C 50 4F 53 2C 53 51 52 2C 52 4E 44 |,FRE,POS,SQR,RND| 000011C0: 2C 4C 4F 47 2C 45 58 50 2C 43 4F 53 00 0B 1A 52 |,LOG,EXP,COS...R| 000011D0: 4E 83 20 53 49 4E 2C 54 41 4E 2C 41 54 4E 2C 50 |N. SIN,TAN,ATN,P| 000011E0: 45 45 4B 2C 4C 45 4E 2C 53 54 52 24 2C 56 41 4C |EEK,LEN,STR$,VAL| 000011F0: 2C 41 53 43 2C 43 48 52 24 2C 4C 45 46 54 24 2C |,ASC,CHR$,LEFT$,| 00001200: 52 49 47 48 54 24 2C 4D 49 44 24 00 00 00 |RIGHT$,MID$... |
..$.... DISK PATCH BY KEVIN ANDERSON.@..
.. REVISION A.4 2/20/84.E.... B$(255),D
$(255),K$(75):N$.G(0).Z....I.1.75:.K$(I)
:.......I.0.255:B$(I).N$:D$(I).N$:......
.53280,15:.53281,15:.G(142);"."......"..
.. . . PATCH ...."......" .
F1. READ A BLOCK INTO THE BUFFER".1.#..
" .F2. PRINT THE BUFFER".O.(.." .F3. E
DIT THE BUFFER".V.-.." .F4. COMPARE BUF
FER WITH DISK"...2.." .F5. WRITE THE BU
FFER TO DISK"...7.." .F6. CHECK DISK ST
ATUS".O.<.." .F7. EXIT...F..A$:.F(A$.N$
).133.F(A$.N$).139.70.).H..(F(A$.N$).132
). 200,500,2000,80,3000,5000,6000.;.P.."
.* BYE *":..J.H..". .. READ BLOCK
FROM DISK ..":.:....R.."TRACK (1-35)";T
R......TR.35.TR.1..".";:.210......TR.30.
SM.16:.227.H....TR.24.SM.17:.227......TR
.17.SM.18:.227.....SM.20......"SECTOR (0
-";SM;".)";:. SE.#....SE.SM.SE.0..".";:.
227.@....15,8,15,"I0":.2,8,2,"#".E....15
,"U1:"2;0;TR;SE:.15,"B-P:2,0"......I.0.2
55:.#2,A$:B$(I).H((A$.N$),1):....T. 2: 1
5...^..20.....P..100.P....". .
. EDIT BLOCK .."......" .F1. LIST NEXT
16 VALUES"......" .F3. LIST PREVIOUS
16 VALUS".7...." .F5. CHANGE A VALUE".
X.&.." .F7. EXIT EDIT ROUTINE"...(..:.
"WORD# HEX DEC ASCII BASIC"...+.
.650...0..A$:.A$."".560...:..A$."."..20.
G.D..A$.".".P.P.16:.650...N..A$.".".P.P.
16:.650...X..A$.".".800:. CHANGE A VALUE
...B..560.3.... LIST 16 VALUES IN HEX DE
CIMAL ASCII.@....P.0.P.0.W....P.255.15.P
.255.15.F....".......".T....I.P.P.15....
.A$.B$(I). ...N.F(A$):H%.N.16:L%.N.16.H%
.....H%.H%.48:L%.L%.48.Z...H%.H%.7.(H%.5
7):L%.L%.7.(L%.57).....H$.G(H%).G(L%)...
..."
";.K....".............................
.........";.H...S.2:.I.100.S.3:.I.10.S.4
......I;.S);H$,.4);F(A$),"'";...A..F(A$)
.31.F(A$).91..A$;"'";.C.C..F(A$).32.F(A$
).90.." '";...D..F(A$).128.F(A$).203....
.E..F(A$).127.F(A$).204...5);K$(F(A$).12
7)...F..I...P..560.;. .."...............
.........";._.%.."
":.".";.P.*.."WORD #";WN...-..WN.0.WN.25
5.800.../..". ":.".";.D.4..
"ASCII, DECIMAL, OR HEX";MO$...6..".
":.".";...9.NX..10
00.+.>..H(MO$,1)."A".."NEW CHARACTER";NC
$:NX.F(NC$).U.C..H(MO$,1)."D".."NEW DECI
MAL";NV:NX.NV.V.H..H(MO$,1)."H".."NEW HE
X";HX$...P..NX...1000.1000:. INSERT NEW
VALUE...Z..H(MO$,1).."H"..".";:.815.U..
.C(HX$).1.HX$."0".HX$.....H%.F(HX$).48 :
L%.F(J(HX$,2,1)).48......H%.9.H%.H%.7...
...L%.9.L%.L%.7./...NX.16.H%.L%.B....NX.
0.NX.255.."OUT OF RANGE":.I.1.1000:.I:.5
10.P...NN$.G(NX)....B$(WN).NN$......510
...P..". .. WRITE BLOCK TO DISK .
."...Z..".."......".......";TR:.".";:."T
RACK ";TR......".......";SE:.".";:."SECT
OR";SE.6....:."TRACK";TR;" SECTOR";SE;"
CORRECT";:. A$.H....A$.."Y".2000.`....15
,8,15:.2,8,2,"#".R....15,"B-P:"5;0......
15,"M-W:"G(0)G(5);1;B$(0)...*..I.1.255:.
2,B$(I);:.I.B.+..15,"U2:"2;0;TR;SE.Q.3.
2: 15:.20......". .. PRINT BUFFER
.."......".....F1. HEX"...B.."..F3.
ASCII".6.C.."..F5. DECIMAL".J.E..A$:.
A$."".3013.S.N..4,4.L.P..4," ":.4," ":.4
," "...R..4," TRACK";TR;" SECTOR";
SE...V..4," "...... I.0.240.16:.4,I;.F..
..I.10..4," ";.Y....I.100..4," ";......L
.1.16.....C$.B$(I.L.1)......A$..".".3070
./....F(C$).30.F(C$).90.H$." ".C$:.4030.
A...H$." *":.4030.R....A$.".".3079.G...H
$.J(D(F(C$)),2)......C(H$).3.H$.H$." ":.
3073......4030.....N.F(C$):H%.N.16:L%.N.
16.H%.C...H%.H%.48:L%.L%.48.....H%.H%.7.
(H%.57):L%.L%.7.(L%.57)... .H$.G(H%).G(L
%)......A$.".".A$.".". .4,H$;" ";.1....
A$."."..4,H$;" ";.9.H.. L.D.M..4," ".K.P
..I.\.R..4:.4: 4:.20......". .. COMPA
RE BUFFER WITH DISK ..":.:....Z.."TRACK
(1-35)";TC...F..TC.35.TC.1..".";:.5210.U
.G..TC.30.SM.16:.5227...H..TC.24.SM.17:.
5227...I..TC.17.SM.18:.5227...J.SM.20.-.
K.."SECTOR (0-";SM;".)";:. SC.I.L..SC.SM
.SC.0..".";:.5227.F.N..15,8,15,"I0":.2,8
,2,"#".}.X..15,"U1:"2;0;TC;SC...}..15,"B
-P:2,0"......I.0.255:.#2,A$:D$(I).H((A$.
N$),1):..C. . 2: 15...... NOW COMPARE TH
E TWO......: EC.0...H..I.0.255.:.R..B$(
I)..D$(I).." #";I,"BUF:";F(B$(I)),"DSK:
";F(D$(I)):EC.EC.1.N.W..A$:.A$."".5340.B
.X..A$:.A$."".5336.H.......... EC.0..:."
PERFECT MATCH"...... EC.0..:." ";EC;
"MISMATCHES".M....:." HIT A KEY TO CONT
INUE"......A$:.A$."".5380...... 20...P..
". .. CHECK DISK STATUS ..".6....
:.:.:.15,8,15:.15,AA,AA$,BB,CC.L... 15:.
AA,AA$,BB,CC.P....:." HIT A KEY TO C
ONTINUE"......A$:.A$."".6070......20...
N. 75 BASIC KEY WORDS...*N. END,FOR,NEXT
,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN
,IF,RESTORE,GOSUB.;.4N. RETURN,REM,STOP,
ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#
,PRINT,CONT...>N. LIST,CLR,CMD,SYS,OPEN,
CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,S
TEP.L.HN. +,-,*,/,^,AND,OR,>,=,<,SGN,INT
,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS...R
N. SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR
$,LEFT$,RIGHT$,MID$...
> CLICK IMAGE PREVIEW FOR FULL MODAL