00000000: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00000010: C5 C5 C5 22 3A 00 37 05 AA 00 8F 2A 2A 2A 2A 2A |...":.7....*****|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5B 05 B4 00 8F 2A |*********.[....*|
00000040: 20 53 45 54 20 50 52 4F 47 52 41 4D 20 43 4F 4E | SET PROGRAM CON|
00000050: 53 54 41 4E 54 20 20 20 20 20 20 20 2A 00 7F 05 |STANT *...|
00000060: BE 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 00 AB 05 C8 00 53 50 24 B2 22 20 22 3A 4E 4C |*.....SP$." ":NL|
00000090: 24 B2 C7 28 30 29 3A 48 58 24 B2 22 30 31 32 33 |$..(0):HX$."0123|
000000A0: 34 35 36 37 38 39 41 42 43 44 45 46 22 00 DA 05 |456789ABCDEF"...|
000000B0: D2 00 46 53 24 B2 22 22 3A 81 49 B2 36 34 20 A4 |..FS$."":.I.64 .|
000000C0: 20 39 35 3A 46 53 24 B2 46 53 24 AA 22 12 22 AA | 95:FS$.FS$.".".|
000000D0: C7 28 49 29 AA 22 92 22 3A 82 20 49 00 0E 06 DC |.(I).".":. I....|
000000E0: 00 53 53 24 B2 22 20 20 22 3A 81 20 49 B2 31 39 |.SS$." ":. I.19|
000000F0: 32 20 A4 20 32 32 33 3A 53 53 24 B2 53 53 24 AA |2 . 223:SS$.SS$.|
00000100: 22 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 49 |"."..(I).".":. I|
00000110: 00 21 06 F0 00 86 20 41 24 28 31 35 29 2C 4E 42 |.!.... A$(15),NB|
00000120: 28 32 29 00 2C 06 FB 00 44 24 B2 22 30 22 00 5B |(2).,...D$."0".[|
00000130: 06 FD 00 99 22 20 20 20 20 20 20 20 20 12 53 92 |...." .S.|
00000140: 43 52 45 45 4E 11 9D 9D 9D 9D 9D 9D 9D 9D 4F 52 |CREEN.........OR|
00000150: 20 11 9D 12 50 92 52 49 4E 54 45 52 22 00 72 06 | ...P.RINTER".r.|
00000160: FE 00 A1 4A 4A 24 3A 8B 20 4A 4A 24 B2 22 22 20 |...JJ$:. JJ$."" |
00000170: A7 32 35 34 00 95 06 FF 00 8B 20 4A 4A 24 B2 22 |.254...... JJ$."|
00000180: 53 22 A7 99 22 20 20 20 20 20 20 20 20 11 12 53 |S".." ..S|
00000190: 43 52 45 45 4E 92 22 00 B9 06 00 01 8B 20 4A 4A |CREEN."...... JJ|
000001A0: 24 B2 22 50 22 A7 99 22 20 20 20 20 20 20 20 20 |$."P".." |
000001B0: 11 12 50 52 49 4E 54 45 52 92 22 00 D3 06 04 01 |..PRINTER.".....|
000001C0: 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 24 3A |.15,8,15,"I".D$:|
000001D0: 8D 20 36 35 30 00 DC 06 09 01 9F 34 2C 34 00 F2 |. 650......4,4..|
000001E0: 06 0E 01 9F 20 32 2C 38 2C 32 2C 22 23 22 3A 8D |.... 2,8,2,"#":.|
000001F0: 20 36 35 30 00 16 07 18 01 8F 2A 2A 2A 2A 2A 2A | 650......******|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 00 3A 07 22 01 8F 2A 20 |********.:."..* |
00000220: 4C 4F 41 44 20 54 52 41 43 4B 20 41 4E 44 20 53 |LOAD TRACK AND S|
00000230: 45 43 54 4F 52 20 20 20 20 20 20 2A 00 5E 07 2C |ECTOR *.^.,|
00000240: 01 8F 2A 20 49 4E 54 4F 20 44 49 53 4B 20 42 55 |..* INTO DISK BU|
00000250: 46 46 45 52 20 20 20 20 20 20 20 20 20 20 20 2A |FFER *|
00000260: 00 82 07 36 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...6..**********|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 00 9E 07 40 01 85 22 11 1D 1D 54 52 |****...@.."...TR|
00000290: 41 43 4B 2C 20 53 45 43 54 4F 52 22 3B 54 2C 53 |ACK, SECTOR";T,S|
000002A0: 00 CE 07 4A 01 8B 20 54 B2 30 20 B0 20 54 B1 33 |...J.. T.0 . T.3|
000002B0: 35 20 A7 20 98 31 35 2C 22 49 22 44 24 3A A0 32 |5 . .15,"I"D$:.2|
000002C0: 3A A0 34 3A A0 31 35 3A 99 22 45 4E 44 22 3A 80 |:.4:.15:."END":.|
000002D0: 00 F8 07 54 01 8B 20 4A 4A 24 B2 22 53 22 20 A7 |...T.. JJ$."S" .|
000002E0: 20 99 22 11 1D 1D 54 52 41 43 4B 22 54 22 20 53 | ."...TRACK"T" S|
000002F0: 45 43 54 4F 52 22 53 22 11 22 00 24 08 55 01 8B |ECTOR"S".".$.U..|
00000300: 20 4A 4A 24 B2 22 50 22 20 A7 20 98 34 3A 98 34 | JJ$."P" . .4:.4|
00000310: 2C 22 54 52 41 43 4B 22 54 22 20 53 45 43 54 4F |,"TRACK"T" SECTO|
00000320: 52 22 53 3A 98 34 00 3F 08 5E 01 98 31 35 2C 22 |R"S:.4.?.^..15,"|
00000330: 55 31 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 36 35 |U1:2,"D$;T;S:.65|
00000340: 30 00 63 08 68 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.c.h..*********|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 2A 2A 2A 2A 2A 00 87 08 72 01 8F 2A 20 52 45 41 |*****...r..* REA|
00000370: 44 20 42 59 54 45 20 30 20 4F 46 20 44 49 53 4B |D BYTE 0 OF DISK|
00000380: 20 42 55 46 46 45 52 20 2A 00 AB 08 86 01 8F 2A | BUFFER *......*|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 08 |*************...|
000003B0: 90 01 98 31 35 2C 22 42 2D 50 3A 32 2C 31 22 00 |...15,"B-P:2,1".|
000003C0: D3 08 9A 01 98 31 35 2C 22 4D 2D 52 22 C7 28 30 |.....15,"M-R".(0|
000003D0: 29 C7 28 35 29 00 F6 08 A4 01 A1 23 31 35 2C 41 |).(5)......#15,A|
000003E0: 24 28 30 29 3A 8B 41 24 28 30 29 B2 22 22 A7 41 |$(0):.A$(0)."".A|
000003F0: 24 28 30 29 B2 4E 4C 24 00 08 09 AC 01 8B 20 4A |$(0).NL$...... J|
00000400: 4A 24 B2 22 53 22 A7 34 33 30 00 1A 09 AE 01 8B |J$."S".430......|
00000410: 20 4A 4A 24 B2 22 50 22 A7 34 36 30 00 3E 09 AF | JJ$."P".460.>..|
00000420: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000440: 00 62 09 B0 01 8F 2A 20 52 45 41 44 20 26 20 43 |.b....* READ & C|
00000450: 52 54 20 44 49 53 50 4C 41 59 20 20 20 20 20 20 |RT DISPLAY |
00000460: 20 20 20 2A 00 86 09 B1 01 8F 2A 20 52 45 53 54 | *......* REST|
00000470: 20 4F 46 20 54 48 45 20 44 49 53 4B 20 42 55 46 | OF THE DISK BUF|
00000480: 46 45 52 20 20 20 20 2A 00 AA 09 B2 01 8F 2A 2A |FER *......**|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 09 B4 |************....|
000004B0: 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 28 |.K.1:NB(1)..(A$(|
000004C0: 30 29 29 00 F4 09 B6 01 81 20 4A B2 30 20 A4 20 |0))...... J.0 . |
000004D0: 36 33 3A 8B 20 4A B2 33 32 20 A7 20 8D 20 37 31 |63:. J.32 . . 71|
000004E0: 30 3A 8B 20 5A 24 B2 22 4E 22 A7 20 4A B2 38 30 |0:. Z$."N". J.80|
000004F0: 3A 89 20 34 35 38 00 02 0A B8 01 81 20 49 B2 4B |:. 458...... I.K|
00000500: 20 A4 20 33 00 27 0A BA 01 A1 23 32 2C 41 24 28 | . 3.'....#2,A$(|
00000510: 49 29 3A 8B 20 41 24 28 49 29 B2 22 22 20 A7 20 |I):. A$(I)."" . |
00000520: 41 24 28 49 29 B2 4E 4C 24 00 48 0A BC 01 8B 20 |A$(I).NL$.H.... |
00000530: 4B B2 31 20 AF 20 49 B3 32 20 A7 20 4E 42 28 32 |K.1 . I.2 . NB(2|
00000540: 29 B2 C6 28 41 24 28 49 29 29 00 54 0A BE 01 82 |)..(A$(I)).T....|
00000550: 20 49 3A 4B B2 30 00 7B 0A C0 01 41 24 B2 22 22 | I:K.0.{...A$.""|
00000560: 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC 34 3A 8D 20 |:B$.":":N.J.4:. |
00000570: 37 39 30 3A 41 24 B2 41 24 AA 22 3A 22 00 9A 0A |790:A$.A$.":"...|
00000580: C2 01 81 20 49 B2 30 20 A4 20 33 3A 4E B2 C6 28 |... I.0 . 3:N..(|
00000590: 41 24 28 49 29 29 3A 8D 20 37 39 30 00 B6 0A C4 |A$(I)):. 790....|
000005A0: 01 43 24 B2 41 24 28 49 29 3A 8D 20 38 35 30 3A |.C$.A$(I):. 850:|
000005B0: 42 24 B2 42 24 AA 43 24 00 D0 0A C6 01 82 20 49 |B$.B$.C$...... I|
000005C0: 3A 8B 20 4A 4A 24 B2 22 53 22 20 A7 20 99 41 24 |:. JJ$."S" . .A$|
000005D0: 42 24 00 DD 0A CA 01 82 20 4A 3A 89 35 37 31 00 |B$...... J:.571.|
000005E0: 01 0B CC 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000600: 2A 2A 2A 00 25 0B CE 01 8F 2A 20 52 45 41 44 20 |***.%....* READ |
00000610: 26 20 50 52 49 4E 54 45 52 20 44 49 53 50 4C 41 |& PRINTER DISPLA|
00000620: 59 20 20 20 20 20 2A 00 49 0B D0 01 8F 2A 2A 2A |Y *.I....***|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 60 0B D2 01 |***********.`...|
00000650: 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 28 30 |K.1:NB(1)..(A$(0|
00000660: 29 29 00 6F 0B D4 01 81 20 4A B2 30 20 A4 20 31 |)).o.... J.0 . 1|
00000670: 35 00 7E 0B D6 01 81 20 49 B2 4B 20 A4 20 31 35 |5.~.... I.K . 15|
00000680: 00 A3 0B D8 01 A1 23 32 2C 41 24 28 49 29 3A 8B |......#2,A$(I):.|
00000690: 20 41 24 28 49 29 B2 22 22 20 A7 20 41 24 28 49 | A$(I)."" . A$(I|
000006A0: 29 B2 4E 4C 24 00 C4 0B DA 01 8B 20 4B B2 31 20 |).NL$...... K.1 |
000006B0: AF 20 49 B3 32 20 A7 20 4E 42 28 32 29 B2 C6 28 |. I.2 . NB(2)..(|
000006C0: 41 24 28 49 29 29 00 D0 0B DC 01 82 20 49 3A 4B |A$(I))...... I:K|
000006D0: B2 30 00 F8 0B DE 01 41 24 B2 22 22 3A 42 24 B2 |.0.....A$."":B$.|
000006E0: 22 3A 22 3A 4E B2 4A AC 31 36 3A 8D 20 37 39 30 |":":N.J.16:. 790|
000006F0: 3A 41 24 B2 41 24 AA 22 3A 22 00 2D 0C E0 01 81 |:A$.A$.":".-....|
00000700: 20 49 B2 30 20 A4 20 31 35 3A 4E B2 C6 28 41 24 | I.0 . 15:N..(A$|
00000710: 28 49 29 29 3A 8D 20 37 39 30 3A 8B 20 5A 24 B2 |(I)):. 790:. Z$.|
00000720: 22 4E 22 A7 20 4A B2 34 30 3A 89 20 35 37 31 00 |"N". J.40:. 571.|
00000730: 49 0C E2 01 43 24 B2 41 24 28 49 29 3A 8D 20 38 |I...C$.A$(I):. 8|
00000740: 35 30 3A 42 24 B2 42 24 AA 43 24 00 51 0C E4 01 |50:B$.B$.C$.Q...|
00000750: 82 20 49 00 69 0C E6 01 8B 20 4A 4A 24 B2 22 50 |. I.i.... JJ$."P|
00000760: 22 20 A7 20 98 34 2C 41 24 42 24 00 76 0C E8 01 |" . .4,A$B$.v...|
00000770: 82 20 4A 3A 89 35 37 31 00 9A 0C 3B 02 8F 2A 2A |. J:.571...;..**|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 0C 3C |************...<|
000007A0: 02 8F 2A 20 4E 45 58 54 20 54 52 41 43 4B 20 41 |..* NEXT TRACK A|
000007B0: 4E 44 20 53 45 43 54 4F 52 20 20 20 20 20 20 2A |ND SECTOR *|
000007C0: 00 E2 0C 3D 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...=..**********|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 2A 2A 2A 2A 00 0D 0D 3F 02 99 22 4E 45 58 54 20 |****...?.."NEXT |
000007F0: 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 |TRACK AND SECTOR|
00000800: 22 4E 42 28 31 29 4E 42 28 32 29 20 22 11 22 00 |"NB(1)NB(2) ".".|
00000810: 36 0D 44 02 99 22 44 4F 20 59 4F 55 20 57 41 4E |6.D.."DO YOU WAN|
00000820: 54 20 4E 45 58 54 20 54 52 41 43 4B 20 41 4E 44 |T NEXT TRACK AND|
00000830: 20 53 45 43 54 4F 52 22 00 4C 0D 4E 02 A1 20 5A | SECTOR".L.N.. Z|
00000840: 24 3A 8B 20 5A 24 B2 22 22 20 A7 35 39 30 00 70 |$:. Z$."" .590.p|
00000850: 0D 58 02 8B 20 5A 24 B2 22 59 22 20 A7 20 54 B2 |.X.. Z$."Y" . T.|
00000860: 4E 42 28 31 29 3A 53 B2 4E 42 28 32 29 3A 89 33 |NB(1):S.NB(2):.3|
00000870: 33 30 00 83 0D 62 02 8B 20 5A 24 B2 22 4E 22 20 |30...b.. Z$."N" |
00000880: A7 20 33 32 30 00 8D 0D 6C 02 89 20 35 39 30 00 |. 320...l.. 590.|
00000890: B1 0D 76 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..v..***********|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008B0: 2A 2A 2A 00 D5 0D 80 02 8F 2A 20 53 55 42 52 4F |***......* SUBRO|
000008C0: 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 20 |UTINES |
000008D0: 20 20 20 20 20 20 2A 00 F9 0D 8A 02 8F 2A 2A 2A | *......***|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 0E 94 02 |***********.....|
00000900: 8F 2A 20 45 52 52 4F 52 20 52 4F 55 54 49 4E 45 |.* ERROR ROUTINE|
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000920: 41 0E 9E 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |A....***********|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000940: 2A 2A 2A 00 61 0E A8 02 84 31 35 2C 45 4E 2C 45 |***.a....15,EN,E|
00000950: 4D 24 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 30 20 |M$,ET,ES:. EN.0 |
00000960: A7 20 8E 00 81 0E B2 02 99 22 12 44 49 53 4B 20 |. .......".DISK |
00000970: 45 52 52 4F 52 92 22 45 4E 2C 45 4D 24 2C 45 54 |ERROR."EN,EM$,ET|
00000980: 2C 45 53 00 87 0E BC 02 80 00 AB 0E C6 02 8F 2A |,ES............*|
00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 0E |*************...|
000009B0: D0 02 8F 2A 20 53 43 52 45 45 4E 20 43 4F 4E 54 |...* SCREEN CONT|
000009C0: 49 4E 55 45 20 4D 45 53 53 41 47 45 20 20 20 20 |INUE MESSAGE |
000009D0: 2A 00 F3 0E DA 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009F0: 2A 2A 2A 2A 2A 00 0D 0F E4 02 99 22 11 1D 1D 1D |*****......"....|
00000A00: 1D 43 4F 4E 54 49 4E 55 45 28 59 2F 4E 29 22 00 |.CONTINUE(Y/N)".|
00000A10: 23 0F EE 02 A1 5A 24 3A 8B 20 5A 24 B2 22 22 20 |#....Z$:. Z$."" |
00000A20: A7 20 37 35 30 00 34 0F F8 02 8B 20 5A 24 B2 22 |. 750.4.... Z$."|
00000A30: 4E 22 20 A7 20 8E 00 48 0F 02 03 8B 20 5A 24 B3 |N" . ..H.... Z$.|
00000A40: B1 22 59 22 20 A7 20 37 35 30 00 69 0F 0C 03 99 |."Y" . 750.i....|
00000A50: 22 93 54 52 41 43 4B 22 20 54 20 22 20 53 45 43 |".TRACK" T " SEC|
00000A60: 54 4F 52 22 53 20 22 93 22 3A 8E 00 8D 0F 16 03 |TOR"S ".":......|
00000A70: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000A90: B1 0F 20 03 8F 2A 20 44 49 53 4B 20 42 59 54 45 |.. ..* DISK BYTE|
00000AA0: 20 54 4F 20 48 45 58 20 50 52 49 4E 54 20 20 20 | TO HEX PRINT |
00000AB0: 20 20 2A 00 D5 0F 2A 03 8F 2A 2A 2A 2A 2A 2A 2A | *...*..*******|
00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 00 F8 0F 34 03 41 31 B2 B5 |*******...4.A1..|
00000AE0: 28 4E AD 31 36 29 3A 41 24 B2 41 24 AA CA 28 48 |(N.16):A$.A$..(H|
00000AF0: 58 24 2C 41 31 AA 31 2C 31 29 00 1E 10 3E 03 41 |X$,A1.1,1)...>.A|
00000B00: 32 B2 B5 28 4E AB 31 36 AC 41 31 29 3A 41 24 B2 |2..(N.16.A1):A$.|
00000B10: 41 24 AA CA 28 48 58 24 2C 41 32 AA 31 2C 31 29 |A$..(HX$,A2.1,1)|
00000B20: 00 2E 10 48 03 41 24 B2 41 24 AA 53 50 24 3A 8E |...H.A$.A$.SP$:.|
00000B30: 00 52 10 52 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.R.R..**********|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 00 76 10 5C 03 8F 2A 20 44 49 53 4B |****.v.\..* DISK|
00000B60: 20 42 59 54 45 20 54 4F 20 41 53 43 20 44 49 53 | BYTE TO ASC DIS|
00000B70: 50 4C 41 59 20 20 20 2A 00 9A 10 66 03 8F 2A 20 |PLAY *...f..* |
00000B80: 43 48 41 52 41 43 54 45 52 20 20 20 20 20 20 20 |CHARACTER |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 2A 00 BE 10 70 | *...p|
00000BA0: 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BC0: 00 D8 10 7A 03 8B 20 C6 28 43 24 29 B3 33 32 20 |...z.. .(C$).32 |
00000BD0: A7 20 43 24 B2 22 20 22 3A 8E 00 F8 10 8E 03 8B |. C$." ":.......|
00000BE0: 20 C6 28 43 24 29 B3 31 32 38 20 B0 20 C6 28 43 | .(C$).128 . .(C|
00000BF0: 24 29 B1 31 35 39 20 A7 20 8E 00 18 11 98 03 43 |$).159 . ......C|
00000C00: 24 B2 CA 28 53 53 24 2C 33 AC 28 C6 28 43 24 29 |$..(SS$,3.(.(C$)|
00000C10: AB 31 32 37 29 2C 33 29 3A 8E 00 00 00 |.127),3):.... |
EEEEEEEEEEEEEEEEEEE":.7....*************
*****************.[....* SET PROGRAM CON
STANT *.....*********************
*********...H.SP$." ":NL$.G(0):HX$."0123
456789ABCDEF".Z.R.FS$."":.I.64 . 95:FS$.
FS$.".".G(I).".":. I.....SS$." ":. I.19
2 . 223:SS$.SS$.".".G(I).".":. I.!.... A
$(15),NB(2).,...D$."0".[...." .S.
CREEN.........OR ...P.RINTER".R....JJ$:.
JJ$."" .254...... JJ$."S".." ..S
CREEN."...... JJ$."P".." ..PRINTE
R.".S....15,8,15,"I".D$:. 650......4,4..
.... 2,8,2,"#":. 650......**************
****************.:."..* LOAD TRACK AND S
ECTOR *.^.,..* INTO DISK BUFFER
*...6..**************************
****...@.."...TRACK, SECTOR";T,S.N.J.. T
.0 . T.35 . .15,"I"D$: 2: 4: 15:."END":.
...T.. JJ$."S" . ."...TRACK"T" SECTOR"S"
.".$.U.. JJ$."P" . .4:.4,"TRACK"T" SECTO
R"S:.4.?.^..15,"U1:2,"D$;T;S:.650.C.H..*
*****************************...R..* REA
D BYTE 0 OF DISK BUFFER *......*********
*********************......15,"B-P:2,1".
S....15,"M-R"G(0)G(5)......#15,A$(0):.A$
(0)."".A$(0).NL$...... JJ$."S".430......
JJ$."P".460.>....**********************
********.B....* READ & CRT DISPLAY
*......* REST OF THE DISK BUFFER *
......******************************.A..
.K.1:NB(1).F(A$(0))...... J.0 . 63:. J.3
2 . . 710:. Z$."N". J.80:. 458...... I.K
. 3.'....#2,A$(I):. A$(I)."" . A$(I).NL
$.H.... K.1 . I.2 . NB(2).F(A$(I)).T....
I:K.0.{...A$."":B$.":":N.J.4:. 790:A$.A
$.":"...B.. I.0 . 3:N.F(A$(I)):. 790...D
.C$.A$(I):. 850:B$.B$.C$.P.F.. I:. JJ$."
S" . .A$B$...J.. J:.571...L..***********
*******************.%.N..* READ & PRINTE
R DISPLAY *.I.P..*******************
***********.`.R.K.1:NB(1).F(A$(0)).O.T..
J.0 . 15.~.V.. I.K . 15...X..#2,A$(I):.
A$(I)."" . A$(I).NL$.D.Z.. K.1 . I.2 .
NB(2).F(A$(I)).P.... I:K.0.....A$."":B$.
":":N.J.16:. 790:A$.A$.":".-.... I.0 . 1
5:N.F(A$(I)):. 790:. Z$."N". J.40:. 571.
I...C$.A$(I):. 850:B$.B$.C$.Q.... I.I...
. JJ$."P" . .4,A$B$.V.... J:.571...;..**
****************************...<..* NEXT
TRACK AND SECTOR *...=..**********
********************...?.."NEXT TRACK AN
D SECTOR"NB(1)NB(2) ".".6.D.."DO YOU WAN
T NEXT TRACK AND SECTOR".L.N.. Z$:. Z$."
" .590.P.X.. Z$."Y" . T.NB(1):S.NB(2):.3
30...B.. Z$."N" . 320...L.. 590...V..***
***************************.U....* SUBRO
UTINES *......***********
*******************......* ERROR ROUTINE
*.A....*******************
***********.A....15,EN,EM$,ET,ES:. EN.0
. .......".DISK ERROR."EN,EM$,ET,ES.....
....F..******************************.O.
P..* SCREEN CONTINUE MESSAGE *...Z..*
*****************************......"....
.CONTINUE(Y/N)".#....Z$:. Z$."" . 750.4.
... Z$."N" . ..H.... Z$.."Y" . 750.I....
".TRACK" T " SECTOR"S ".":.......*******
***********************... ..* DISK BYTE
TO HEX PRINT *.U.*..***************
***************...4.A1..(N.16):A$.A$.J(H
X$,A1.1,1)...>.A2..(N.16.A1):A$.A$.J(HX$
,A2.1,1)...H.A$.A$.SP$:..R.R..**********
********************.V.\..* DISK BYTE TO
ASC DISPLAY *...F..* CHARACTER
*...P..**********************
********.X.Z.. F(C$).32 . C$." ":.......
F(C$).128 . F(C$).159 . ......C$.J(SS$,
3.(F(C$).127),3):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL