KOP-GOED
FILE INFORMATION
FILENAME(S): KOP-GOED
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:25:51
APPEARS ON: 1 disk(s)
FILE HASH
45156e0dd42acff53f91d945caaa1386c4fde12be8045f9d81a68f0570e7396b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MCS | KOP-GOED | PRG | DuncanTwain | 3 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%.d..*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 00 49 08 6E 00 8F 2A 20 44 49 53 |*****.I.n..* DIS| 00000030: 50 4C 41 59 20 41 4E 59 20 54 52 41 43 4B 20 24 |PLAY ANY TRACK $| 00000040: 20 53 45 43 54 4F 52 20 2A 00 6D 08 78 00 8F 2A | SECTOR *.m.x..*| 00000050: 20 20 20 20 54 4F 20 53 43 52 45 45 4E 20 4F 52 | TO SCREEN OR| 00000060: 20 50 52 49 4E 54 45 52 20 20 20 20 2A 00 91 08 | PRINTER *...| 00000070: 82 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |...* | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 2A 00 B5 08 8C 00 8F 2A 20 43 36 34 2C 20 45 58 |*......* C64, EX| 000000A0: 50 41 4E 44 45 44 20 56 49 43 2D 32 30 20 4F 52 |PANDED VIC-20 OR| 000000B0: 20 20 20 20 2A 00 D9 08 96 00 8F 2A 20 50 4C 55 | *......* PLU| 000000C0: 53 2F 34 20 4F 52 20 43 31 36 20 45 51 55 49 50 |S/4 OR C16 EQUIP| 000000D0: 50 45 44 20 20 20 20 20 2A 00 FD 08 A0 00 8F 2A |PED *......*| 000000E0: 20 57 49 54 48 20 41 20 31 35 34 31 20 4F 52 20 | WITH A 1541 OR | 000000F0: 31 35 35 31 20 44 49 53 4B 20 20 20 2A 00 21 09 |1551 DISK *.!.| 00000100: AA 00 8F 2A 20 44 52 49 56 45 2E 20 20 20 20 20 |...* DRIVE. | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 2A 00 45 09 B4 00 8F 2A 20 52 45 56 2E 20 31 30 |*.E....* REV. 10| 00000130: 2F 32 34 2F 38 34 20 20 20 20 20 20 20 20 20 20 |/24/84 | 00000140: 20 20 20 20 2A 00 69 09 BE 00 8F 2A 2A 2A 2A 2A | *.i....*****| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 09 C8 00 99 22 |*********......"| 00000170: 93 11 11 12 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000180: 20 20 20 20 20 20 20 20 20 20 22 00 A9 09 D2 00 | ".....| 00000190: 99 22 44 49 53 50 4C 41 59 20 42 4C 4F 43 4B 20 |."DISPLAY BLOCK | 000001A0: 43 4F 4E 54 45 4E 54 53 22 00 C8 09 DC 00 99 22 |CONTENTS"......"| 000001B0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000001C0: 20 20 20 20 20 20 20 22 00 EC 09 E6 00 8F 2A 2A | "......**| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 0A F0 |************....| 000001F0: 00 8F 2A 20 53 45 54 20 50 52 4F 47 52 41 4D 20 |..* SET PROGRAM | 00000200: 43 4F 4E 53 54 41 4E 54 20 20 20 20 20 20 20 2A |CONSTANT *| 00000210: 00 34 0A FA 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4....**********| 00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000230: 2A 2A 2A 2A 00 60 0A 04 01 53 50 24 B2 22 20 22 |****.`...SP$." "| 00000240: 3A 4E 4C 24 B2 C7 28 30 29 3A 48 58 24 B2 22 30 |:NL$..(0):HX$."0| 00000250: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 |123456789ABCDEF"| 00000260: 00 8F 0A 0E 01 46 53 24 B2 22 22 3A 81 49 B2 36 |.....FS$."":.I.6| 00000270: 34 20 A4 20 39 35 3A 46 53 24 B2 46 53 24 AA 22 |4 . 95:FS$.FS$."| 00000280: 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 49 00 |."..(I).".":. I.| 00000290: C3 0A 18 01 53 53 24 B2 22 20 20 22 3A 81 20 49 |....SS$." ":. I| 000002A0: B2 31 39 32 20 A4 20 32 32 33 3A 53 53 24 B2 53 |.192 . 223:SS$.S| 000002B0: 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A |S$."."..(I).".":| 000002C0: 82 20 49 00 D9 0A 22 01 8F 20 2A 2A 20 56 49 43 |. I...".. ** VIC| 000002D0: 20 4F 52 20 43 36 34 20 3F 00 F6 0A 2C 01 8B C2 | OR C64 ?...,...| 000002E0: 28 35 38 36 33 30 29 B3 B1 34 30 A7 33 32 30 20 |(58630)..40.320 | 000002F0: 3A 8F 20 56 49 43 00 1B 0B 36 01 4C 31 B2 36 33 |:. VIC...6.L1.63| 00000300: 3A 4C 32 B2 33 32 3A 4C 33 B2 38 30 3A 4C 34 B2 |:L2.32:L3.80:L4.| 00000310: 33 3A 4C 35 B2 34 3A 89 33 33 30 00 3B 0B 40 01 |3:L5.4:.330.;.@.| 00000320: 4C 31 B2 33 31 3A 4C 32 B2 31 36 3A 4C 33 B2 34 |L1.31:L2.16:L3.4| 00000330: 30 3A 4C 34 B2 37 3A 4C 35 B2 38 00 4E 0B 4A 01 |0:L4.7:L5.8.N.J.| 00000340: 86 20 41 24 28 31 35 29 2C 4E 42 28 32 29 00 59 |. A$(15),NB(2).Y| 00000350: 0B 54 01 44 24 B2 22 30 22 00 8A 0B 5E 01 99 22 |.T.D$."0"...^.."| 00000360: 11 11 20 20 20 20 20 20 20 20 12 53 92 43 52 45 |.. .S.CRE| 00000370: 45 4E 11 9D 9D 9D 9D 9D 9D 9D 9D 4F 52 20 11 9D |EN.........OR ..| 00000380: 12 50 92 52 49 4E 54 45 52 22 00 A1 0B 68 01 A1 |.P.RINTER"...h..| 00000390: 4A 4A 24 3A 8B 20 4A 4A 24 B2 22 22 20 A7 33 36 |JJ$:. JJ$."" .36| 000003A0: 30 00 C4 0B 72 01 8B 20 4A 4A 24 B2 22 53 22 A7 |0...r.. JJ$."S".| 000003B0: 99 22 20 20 20 20 20 20 20 20 11 12 53 43 52 45 |." ..SCRE| 000003C0: 45 4E 92 22 00 E8 0B 7C 01 8B 20 4A 4A 24 B2 22 |EN."...|.. JJ$."| 000003D0: 50 22 A7 99 22 20 20 20 20 20 20 20 20 11 12 50 |P".." ..P| 000003E0: 52 49 4E 54 45 52 92 22 00 03 0C 86 01 9F 31 35 |RINTER."......15| 000003F0: 2C 38 2C 31 35 2C 22 49 22 AA 44 24 3A 8D 20 31 |,8,15,"I".D$:. 1| 00000400: 30 30 30 00 0C 0C 90 01 9F 34 2C 34 00 28 0C 9A |000......4,4.(..| 00000410: 01 9F 20 32 2C 38 2C 32 2C 22 23 22 3A 8D 20 31 |.. 2,8,2,"#":. 1| 00000420: 30 30 30 3A 89 35 30 30 00 4C 0C A4 01 8F 2A 2A |000:.500.L....**| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 70 0C AE |************.p..| 00000450: 01 8F 2A 20 4C 4F 41 44 20 54 52 41 43 4B 20 41 |..* LOAD TRACK A| 00000460: 4E 44 20 53 45 43 54 4F 52 20 20 20 20 20 20 2A |ND SECTOR *| 00000470: 00 94 0C B8 01 8F 2A 20 49 4E 54 4F 20 44 49 53 |......* INTO DIS| 00000480: 4B 20 42 55 46 46 45 52 20 20 20 20 20 20 20 20 |K BUFFER | 00000490: 20 20 20 2A 00 B8 0C C2 01 8F 2A 2A 2A 2A 2A 2A | *......******| 000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 CD 0C CC 01 53 B2 31 |********.....S.1| 000004C0: 3A 81 54 B2 54 31 A4 54 32 20 A9 20 41 00 DA 0C |:.T.T1.T2 . A...| 000004D0: D1 01 99 22 13 22 3B 54 3B 53 00 F6 0C D6 01 98 |...".";T;S......| 000004E0: 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B 54 3B 53 |15,"U1:2,"D$;T;S| 000004F0: 3A 8D 31 30 30 30 00 FF 0C E0 01 82 54 3A 8E 00 |:.1000......T:..| 00000500: 2B 0D EA 01 8B 20 4A 4A 24 B2 22 50 22 20 A7 20 |+.... JJ$."P" . | 00000510: 98 34 3A 98 34 2C 22 54 52 41 43 4B 22 54 22 20 |.4:.4,"TRACK"T" | 00000520: 53 45 43 54 4F 52 22 53 3A 98 34 00 48 0D F4 01 |SECTOR"S:.4.H...| 00000530: 99 22 93 22 3A 54 31 B2 31 3A 54 32 B2 33 35 3A |.".":T1.1:T2.35:| 00000540: 41 B2 31 3A 8D 34 36 30 00 66 0D FE 01 99 22 93 |A.1:.460.f....".| 00000550: 22 3A 54 31 B2 33 35 3A 54 32 B2 31 3A 41 B2 AB |":T1.35:T2.1:A..| 00000560: 31 3A 8D 34 36 30 00 83 0D 08 02 99 22 93 22 3A |1:.460......".":| 00000570: 54 31 B2 31 3A 54 32 B2 33 35 3A 41 B2 31 3A 8D |T1.1:T2.35:A.1:.| 00000580: 35 36 30 00 A1 0D 12 02 99 22 93 22 3A 54 31 B2 |560......".":T1.| 00000590: 33 35 3A 54 32 B2 31 3A 41 B2 AB 31 3A 8D 35 36 |35:T2.1:A..1:.56| 000005A0: 30 00 B4 0D 1C 02 A0 31 35 3A A0 32 3A E7 22 49 |0......15:.2:."I| 000005B0: 4F 22 3A 80 00 C9 0D 30 02 53 B2 31 3A 81 54 B2 |O":....0.S.1:.T.| 000005C0: 54 31 A4 54 32 20 A9 20 41 00 D6 0D 35 02 99 22 |T1.T2 . A...5.."| 000005D0: 13 22 3B 54 3B 53 00 F2 0D 3A 02 98 31 35 2C 22 |.";T;S...:..15,"| 000005E0: 55 31 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 31 30 |U1:2,"D$;T;S:.10| 000005F0: 30 30 00 0E 0E 3F 02 98 31 35 2C 22 55 31 3A 32 |00...?..15,"U1:2| 00000600: 2C 22 44 24 3B 31 3B 30 3A 8D 31 30 30 30 00 17 |,"D$;1;0:.1000..| 00000610: 0E 44 02 82 54 3A 8E 00 3B 0E 4E 02 8F 2A 2A 2A |.D..T:..;.N..***| 00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 0E 58 02 |***********._.X.| 00000640: 8F 2A 20 52 45 41 44 20 26 20 43 52 54 20 44 49 |.* READ & CRT DI| 00000650: 53 50 4C 41 59 20 20 20 20 20 20 20 20 20 2A 00 |SPLAY *.| 00000660: 83 0E 62 02 8F 2A 20 52 45 53 54 20 4F 46 20 54 |..b..* REST OF T| 00000670: 48 45 20 44 49 53 4B 20 42 55 46 46 45 52 20 20 |HE DISK BUFFER | 00000680: 20 20 2A 00 A7 0E 6C 02 8F 2A 2A 2A 2A 2A 2A 2A | *...l..*******| 00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006A0: 2A 2A 2A 2A 2A 2A 2A 00 BE 0E 76 02 4B B2 31 3A |*******...v.K.1:| 000006B0: 4E 42 28 31 29 B2 C6 28 41 24 28 30 29 29 00 F2 |NB(1)..(A$(0))..| 000006C0: 0E 80 02 81 20 4A B2 30 20 A4 20 4C 31 3A 8B 20 |.... J.0 . L1:. | 000006D0: 4A B2 4C 32 20 A7 20 8D 20 31 30 36 30 3A 8B 20 |J.L2 . . 1060:. | 000006E0: 5A 24 B2 22 4E 22 A7 20 4A B2 4C 33 3A 89 20 37 |Z$."N". J.L3:. 7| 000006F0: 33 30 00 01 0F 8A 02 81 20 49 B2 4B 20 A4 20 4C |30...... I.K . L| 00000700: 34 00 26 0F 94 02 A1 23 32 2C 41 24 28 49 29 3A |4.&....#2,A$(I):| 00000710: 8B 20 41 24 28 49 29 B2 22 22 20 A7 20 41 24 28 |. A$(I)."" . A$(| 00000720: 49 29 B2 4E 4C 24 00 47 0F 9E 02 8B 20 4B B2 31 |I).NL$.G.... K.1| 00000730: 20 AF 20 49 B3 32 20 A7 20 4E 42 28 32 29 B2 C6 | . I.2 . NB(2)..| 00000740: 28 41 24 28 49 29 29 00 53 0F A8 02 82 20 49 3A |(A$(I)).S.... I:| 00000750: 4B B2 30 00 7C 0F B2 02 41 24 B2 22 22 3A 42 24 |K.0.|...A$."":B$| 00000760: B2 22 3A 22 3A 4E B2 4A AC 4C 35 3A 8D 20 31 31 |.":":N.J.L5:. 11| 00000770: 34 30 3A 41 24 B2 41 24 AA 22 3A 22 00 9D 0F BC |40:A$.A$.":"....| 00000780: 02 81 20 49 B2 30 20 A4 20 4C 34 3A 4E B2 C6 28 |.. I.0 . L4:N..(| 00000790: 41 24 28 49 29 29 3A 8D 20 31 31 34 30 00 BA 0F |A$(I)):. 1140...| 000007A0: C6 02 43 24 B2 41 24 28 49 29 3A 8D 20 31 32 30 |..C$.A$(I):. 120| 000007B0: 30 3A 42 24 B2 42 24 AA 43 24 00 D4 0F D0 02 82 |0:B$.B$.C$......| 000007C0: 20 49 3A 8B 20 4A 4A 24 B2 22 53 22 20 A7 20 99 | I:. JJ$."S" . .| 000007D0: 41 24 42 24 00 E1 0F DA 02 82 20 4A 3A 89 38 39 |A$B$...... J:.89| 000007E0: 30 00 05 10 E4 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0......*********| 000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000800: 2A 2A 2A 2A 2A 00 29 10 EE 02 8F 2A 20 52 45 41 |*****.)....* REA| 00000810: 44 20 26 20 50 52 49 4E 54 45 52 20 44 49 53 50 |D & PRINTER DISP| 00000820: 4C 41 59 20 20 20 20 20 2A 00 4D 10 F8 02 8F 2A |LAY *.M....*| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 64 10 |*************.d.| 00000850: 02 03 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 |..K.1:NB(1)..(A$| 00000860: 28 30 29 29 00 73 10 0C 03 81 20 4A B2 30 20 A4 |(0)).s.... J.0 .| 00000870: 20 31 35 00 82 10 16 03 81 20 49 B2 4B 20 A4 20 | 15...... I.K . | 00000880: 31 35 00 A7 10 20 03 A1 23 32 2C 41 24 28 49 29 |15... ..#2,A$(I)| 00000890: 3A 8B 20 41 24 28 49 29 B2 22 22 20 A7 20 41 24 |:. A$(I)."" . A$| 000008A0: 28 49 29 B2 4E 4C 24 00 C8 10 2A 03 8B 20 4B B2 |(I).NL$...*.. K.| 000008B0: 31 20 AF 20 49 B3 32 20 A7 20 4E 42 28 32 29 B2 |1 . I.2 . NB(2).| 000008C0: C6 28 41 24 28 49 29 29 00 D4 10 34 03 82 20 49 |.(A$(I))...4.. I| 000008D0: 3A 4B B2 30 00 FD 10 3E 03 41 24 B2 22 22 3A 42 |:K.0...>.A$."":B| 000008E0: 24 B2 22 3A 22 3A 4E B2 4A AC 31 36 3A 8D 20 31 |$.":":N.J.16:. 1| 000008F0: 31 34 30 3A 41 24 B2 41 24 AA 22 3A 22 00 33 11 |140:A$.A$.":".3.| 00000900: 48 03 81 20 49 B2 30 20 A4 20 31 35 3A 4E B2 C6 |H.. I.0 . 15:N..| 00000910: 28 41 24 28 49 29 29 3A 8D 20 31 31 34 30 3A 8B |(A$(I)):. 1140:.| 00000920: 20 5A 24 B2 22 4E 22 A7 20 4A B2 34 30 3A 89 20 | Z$."N". J.40:. | 00000930: 38 39 30 00 50 11 52 03 43 24 B2 41 24 28 49 29 |890.P.R.C$.A$(I)| 00000940: 3A 8D 20 31 32 30 30 3A 42 24 B2 42 24 AA 43 24 |:. 1200:B$.B$.C$| 00000950: 00 58 11 5C 03 82 20 49 00 70 11 66 03 8B 20 4A |.X.\.. I.p.f.. J| 00000960: 4A 24 B2 22 50 22 20 A7 20 98 34 2C 41 24 42 24 |J$."P" . .4,A$B$| 00000970: 00 7D 11 70 03 82 20 4A 3A 89 38 39 30 00 A1 11 |.}.p.. J:.890...| 00000980: 7A 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |z..*************| 00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009A0: 2A 00 C5 11 84 03 8F 2A 20 4E 45 58 54 20 54 52 |*......* NEXT TR| 000009B0: 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 20 |ACK AND SECTOR | 000009C0: 20 20 20 20 2A 00 E9 11 8E 03 8F 2A 2A 2A 2A 2A | *......*****| 000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 15 12 98 03 99 22 |*********......"| 000009F0: 11 4E 45 58 54 20 54 52 41 43 4B 20 41 4E 44 20 |.NEXT TRACK AND | 00000A00: 53 45 43 54 4F 52 22 4E 42 28 31 29 4E 42 28 32 |SECTOR"NB(1)NB(2| 00000A10: 29 20 22 11 22 00 3E 12 A2 03 99 22 44 4F 20 59 |) ".".>...."DO Y| 00000A20: 4F 55 20 57 41 4E 54 20 4E 45 58 54 20 54 52 41 |OU WANT NEXT TRA| 00000A30: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 22 00 54 |CK AND SECTOR".T| 00000A40: 12 AC 03 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 20 |.... Z$:. Z$."" | 00000A50: A7 39 34 30 00 78 12 B6 03 8B 20 5A 24 B2 22 59 |.940.x.... Z$."Y| 00000A60: 22 20 A7 20 54 B2 4E 42 28 31 29 3A 53 B2 4E 42 |" . T.NB(1):S.NB| 00000A70: 28 32 29 3A 89 34 37 30 00 8B 12 C0 03 8B 20 5A |(2):.470...... Z| 00000A80: 24 B2 22 4E 22 20 A7 20 34 36 30 00 95 12 CA 03 |$."N" . 460.....| 00000A90: 89 20 39 34 30 00 B9 12 D4 03 8F 2A 2A 2A 2A 2A |. 940......*****| 00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DD 12 DE 03 8F 2A |*********......*| 00000AC0: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 20 20 20 | SUBROUTINES | 00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 01 13 | *...| 00000AE0: E8 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B00: 2A 00 25 13 F2 03 8F 2A 20 45 52 52 4F 52 20 52 |*.%....* ERROR R| 00000B10: 4F 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 |OUTINE | 00000B20: 20 20 20 20 2A 00 49 13 FC 03 8F 2A 2A 2A 2A 2A | *.I....*****| 00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 69 13 06 04 84 31 |*********.i....1| 00000B50: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.| 00000B60: 20 45 4E B2 30 20 A7 20 8E 00 89 13 10 04 99 22 | EN.0 . ......."| 00000B70: 12 44 49 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C |.DISK ERROR."EN,| 00000B80: 45 4D 24 2C 45 54 2C 45 53 00 8F 13 1A 04 80 00 |EM$,ET,ES.......| 00000B90: B3 13 24 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..$..***********| 00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BB0: 2A 2A 2A 00 D7 13 2E 04 8F 2A 20 53 43 52 45 45 |***......* SCREE| 00000BC0: 4E 20 43 4F 4E 54 49 4E 55 45 20 4D 53 53 47 20 |N CONTINUE MSSG | 00000BD0: 20 20 20 20 20 20 2A 00 FB 13 38 04 8F 2A 2A 2A | *...8..***| 00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 15 14 42 04 |***********...B.| 00000C00: 99 22 11 1D 1D 1D 1D 43 4F 4E 54 49 4E 55 45 28 |.".....CONTINUE(| 00000C10: 59 2F 4E 29 22 00 2C 14 4C 04 A1 5A 24 3A 8B 20 |Y/N)".,.L..Z$:. | 00000C20: 5A 24 B2 22 22 20 A7 20 31 31 30 30 00 3D 14 56 |Z$."" . 1100.=.V| 00000C30: 04 8B 20 5A 24 B2 22 4E 22 20 A7 20 8E 00 52 14 |.. Z$."N" . ..R.| 00000C40: 60 04 8B 20 5A 24 B3 B1 22 59 22 20 A7 20 31 31 |`.. Z$.."Y" . 11| 00000C50: 30 30 00 73 14 6A 04 99 22 93 54 52 41 43 4B 22 |00.s.j..".TRACK"| 00000C60: 20 54 20 22 20 53 45 43 54 4F 52 22 53 20 22 93 | T " SECTOR"S ".| 00000C70: 22 3A 8E 00 97 14 74 04 8F 2A 2A 2A 2A 2A 2A 2A |":....t..*******| 00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C90: 2A 2A 2A 2A 2A 2A 2A 00 BB 14 7E 04 8F 2A 20 44 |*******...~..* D| 00000CA0: 49 53 4B 20 42 59 54 45 20 54 4F 20 48 45 58 20 |ISK BYTE TO HEX | 00000CB0: 50 52 49 4E 54 20 20 20 20 20 2A 00 DF 14 88 04 |PRINT *.....| 00000CC0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000CE0: 02 15 92 04 41 31 B2 B5 28 4E AD 31 36 29 3A 41 |....A1..(N.16):A| 00000CF0: 24 B2 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C |$.A$..(HX$,A1.1,| 00000D00: 31 29 00 28 15 9C 04 41 32 B2 B5 28 4E AB 31 36 |1).(...A2..(N.16| 00000D10: AC 41 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 |.A1):A$.A$..(HX$| 00000D20: 2C 41 32 AA 31 2C 31 29 00 38 15 A6 04 41 24 B2 |,A2.1,1).8...A$.| 00000D30: 41 24 AA 53 50 24 3A 8E 00 5C 15 B0 04 8F 2A 2A |A$.SP$:..\....**| 00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 80 15 BA |************....| 00000D60: 04 8F 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F |..* DISK BYTE TO| 00000D70: 20 41 53 43 20 44 49 53 50 4C 41 59 20 20 20 2A | ASC DISPLAY *| 00000D80: 00 A4 15 C4 04 8F 2A 20 43 48 41 52 41 43 54 45 |......* CHARACTE| 00000D90: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R | 00000DA0: 20 20 20 2A 00 C8 15 CE 04 8F 2A 2A 2A 2A 2A 2A | *......******| 00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 15 D8 04 8B 20 C6 |********...... .| 00000DD0: 28 43 24 29 B3 33 32 20 A7 20 43 24 B2 22 20 22 |(C$).32 . C$." "| 00000DE0: 3A 8E 00 02 16 E2 04 8B 20 C6 28 43 24 29 B3 31 |:....... .(C$).1| 00000DF0: 32 38 20 B0 20 C6 28 43 24 29 B1 31 35 39 20 A7 |28 . .(C$).159 .| 00000E00: 20 8E 00 22 16 EC 04 43 24 B2 CA 28 53 53 24 2C | .."...C$..(SS$,| 00000E10: 33 AC 28 C6 28 43 24 29 AB 31 32 37 29 2C 33 29 |3.(.(C$).127),3)| 00000E20: 3A 8E 00 00 00 |:.... |
..%.D..******************************.I.
N..* DISPLAY ANY TRACK $ SECTOR *.M.X..*
TO SCREEN OR PRINTER *......*
*......* C64, EX
PANDED VIC-20 OR *.Y....* PLUS/4 OR C
16 EQUIPPED *... ..* WITH A 1541 OR
1551 DISK *.!....* DRIVE.
*.E....* REV. 10/24/84
*.I....*****************************
*...H..".... "...R.
."DISPLAY BLOCK CONTENTS".H....".
"......******************
************......* SET PROGRAM CONSTANT
*.4....**************************
****.`...SP$." ":NL$.G(0):HX$."012345678
9ABCDEF".....FS$."":.I.64 . 95:FS$.FS$."
.".G(I).".":. I.C...SS$." ":. I.192 . 2
23:SS$.SS$.".".G(I).".":. I.Y.".. ** VIC
OR C64 ?...,..B(58630)..40.320 :. VIC..
.6.L1.63:L2.32:L3.80:L4.3:L5.4:.330.;.@.
L1.31:L2.16:L3.40:L4.7:L5.8.N.J.. A$(15)
,NB(2).Y.T.D$."0"...^..".. .S.CRE
EN.........OR ...P.RINTER"...H..JJ$:. JJ
$."" .360.D.R.. JJ$."S".." ..SCRE
EN."...|.. JJ$."P".." ..PRINTER."
......15,8,15,"I".D$:. 1000......4,4.(..
.. 2,8,2,"#":. 1000:.500.L....**********
********************.P....* LOAD TRACK A
ND SECTOR *......* INTO DISK BUFFER
*...B..**********************
********.M.L.S.1:.T.T1.T2 . A.Z.Q..".";T
;S...V..15,"U1:2,"D$;T;S:.1000......T:..
+.... JJ$."P" . .4:.4,"TRACK"T" SECTOR"S
:.4.H....".":T1.1:T2.35:A.1:.460.F....".
":T1.35:T2.1:A..1:.460......".":T1.1:T2.
35:A.1:.560......".":T1.35:T2.1:A..1:.56
0..... 15: 2:."IO":..I.0.S.1:.T.T1.T2 .
A.V.5..".";T;S...:..15,"U1:2,"D$;T;S:.10
00...?..15,"U1:2,"D$;1;0:.1000...D..T:..
;.N..******************************._.X.
.* READ & CRT DISPLAY *...B..* R
EST OF THE DISK BUFFER *...L..*******
***********************...V.K.1:NB(1).F(
A$(0))...... J.0 . L1:. J.L2 . . 1060:.
Z$."N". J.L3:. 730...... I.K . L4.&....#
2,A$(I):. A$(I)."" . A$(I).NL$.G.... K.1
. I.2 . NB(2).F(A$(I)).S.... I:K.0.|...
A$."":B$.":":N.J.L5:. 1140:A$.A$.":"....
.. I.0 . L4:N.F(A$(I)):. 1140...F.C$.A$(
I):. 1200:B$.B$.C$.T.P.. I:. JJ$."S" . .
A$B$...Z.. J:.890......*****************
*************.)....* READ & PRINTER DISP
LAY *.M....*************************
*****.D...K.1:NB(1).F(A$(0)).S.... J.0 .
15...... I.K . 15... ..#2,A$(I):. A$(I)
."" . A$(I).NL$.H.*.. K.1 . I.2 . NB(2).
F(A$(I)).T.4.. I:K.0...>.A$."":B$.":":N.
J.16:. 1140:A$.A$.":".3.H.. I.0 . 15:N.F
(A$(I)):. 1140:. Z$."N". J.40:. 890.P.R.
C$.A$(I):. 1200:B$.B$.C$.X.\.. I.P.F.. J
J$."P" . .4,A$B$.}.P.. J:.890...Z..*****
*************************.E....* NEXT TR
ACK AND SECTOR *......*************
*****************......".NEXT TRACK AND
SECTOR"NB(1)NB(2) ".".>...."DO YOU WANT
NEXT TRACK AND SECTOR".T.... Z$:. Z$.""
.940.X.... Z$."Y" . T.NB(1):S.NB(2):.470
...... Z$."N" . 460...J.. 940...T..*****
*************************......* SUBROUT
INES *......*************
*****************.%....* ERROR ROUTINE
*.I....*********************
*********.I....15,EN,EM$,ET,ES:. EN.0 .
.......".DISK ERROR."EN,EM$,ET,ES.......
..$..******************************.W...
.* SCREEN CONTINUE MSSG *...8..***
***************************...B..".....C
ONTINUE(Y/N)".,.L..Z$:. Z$."" . 1100.=.V
.. Z$."N" . ..R.`.. Z$.."Y" . 1100.S.J..
".TRACK" T " SECTOR"S ".":....T..*******
***********************...~..* DISK BYTE
TO HEX PRINT *......***************
***************.....A1..(N.16):A$.A$.J(H
X$,A1.1,1).(...A2..(N.16.A1):A$.A$.J(HX$
,A2.1,1).8...A$.A$.SP$:..\....**********
********************......* DISK BYTE TO
ASC DISPLAY *...D..* CHARACTER
*.H.N..**********************
********...X.. F(C$).32 . C$." ":.......
F(C$).128 . F(C$).159 . .."...C$.J(SS$,
3.(F(C$).127),3):....
> CLICK IMAGE PREVIEW FOR FULL MODAL