00000000: 18 A5 02 65 B0 85 B0 90 02 E6 B1 60 20 45 01 B1 |...e.......` E..|
00000010: B0 20 54 01 C6 02 D0 F9 4C 37 01 20 45 01 20 65 |. T.....L7. E. e|
00000020: 01 C6 02 D0 F9 60 20 42 24 28 49 29 3A 8D 20 38 |.....` B$(I):. 8|
00000030: 35 30 3A 42 24 B2 42 24 AA 43 24 00 CF 0E C6 01 |50:B$.B$.C$.....|
00000040: 82 20 49 3A 8B 20 42 4A 1A 24 B2 22 53 22 20 A7 |. I:. BJ.$."S" .|
00000050: 20 99 41 24 42 24 00 DC 0E CA 01 82 20 4A 3A 89 | .A$B$...... J:.|
00000060: 35 37 31 C2 04 0F CC 01 8F A3 48 2A 20 2A 46 2A |571.......H* *F*|
00000070: 1C 00 24 0F CE 01 8F 2A 20 52 45 41 44 20 26 20 |..$....* READ & |
00000080: 50 52 49 4E 54 20 44 49 53 50 4C 41 59 47 20 07 |PRINT DISPLAYG .|
00000090: 2A 00 48 0F D0 01 8F A3 48 2A 21 42 46 2A 15 00 |*.H.....H*!BF*..|
000000A0: 5F 0F D2 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 |_...K.1:NB(1)..(|
000000B0: 41 24 28 30 42 29 20 35 00 6E 0F D4 01 81 20 4A |A$(0B) 5.n.... J|
000000C0: B2 30 20 A4 20 31 35 00 7D 0F D6 01 81 20 49 B2 |.0 . 15.}.... I.|
000000D0: 4B 20 A4 20 31 35 00 A2 0F D8 01 A1 23 32 2C 41 |K . 15......#2,A|
000000E0: 24 28 49 29 3A 8B 20 41 24 28 49 29 B2 42 22 20 |$(I):. A$(I).B" |
000000F0: 2B 20 A7 20 41 24 28 49 29 B2 4E 4C 24 00 C3 0F |+ . A$(I).NL$...|
00000100: DA 01 8B 20 4B B2 31 20 AF 20 49 B3 32 20 A7 20 |... K.1 . I.2 . |
00000110: 4E 42 28 32 29 B2 C6 28 41 24 28 49 42 29 14 00 |NB(2)..(A$(IB)..|
00000120: CF 0F DC 01 82 20 49 3A 4B B2 30 00 F7 0F DE 01 |..... I:K.0.....|
00000130: 41 24 B2 42 22 20 36 3A 42 24 B2 22 3A 22 3A 4E |A$.B" 6:B$.":":N|
00000140: B2 4A AC 31 36 3A 8D 20 37 39 30 3A 41 24 B2 41 |.J.16:. 790:A$.A|
00000150: 24 AA 22 3A 22 00 2C 10 E0 01 81 20 49 B2 30 20 |$.":".,.... I.0 |
00000160: A4 20 31 35 3A 4E B2 C6 28 41 24 28 49 42 29 20 |. 15:N..(A$(IB) |
00000170: 46 3A 8D 20 37 39 30 3A 8B 20 5A 24 B2 22 4E 22 |F:. 790:. Z$."N"|
00000180: A7 20 4A B2 34 30 3A 89 20 35 37 31 00 48 10 E2 |. J.40:. 571.H..|
00000190: 01 43 24 B2 41 24 28 49 29 3A 8D 20 38 35 30 3A |.C$.A$(I):. 850:|
000001A0: 42 24 B2 42 24 AA 43 24 00 50 10 E4 01 82 20 49 |B$.B$.C$.P.... I|
000001B0: 00 68 10 E6 01 8B 20 42 4A 20 22 24 B2 22 50 22 |.h.... BJ "$."P"|
000001C0: 20 A7 20 98 34 2C 41 24 42 24 00 75 10 E8 01 82 | . .4,A$B$.u....|
000001D0: 20 4A 3A 89 35 37 31 00 99 10 3B 02 8F A3 48 2A | J:.571...;...H*|
000001E0: 20 2B 46 2A 1D 00 BD 10 3C 02 8F 2A 20 4E 45 58 | +F*....<..* NEX|
000001F0: 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |T TRACK AND SECT|
00000200: 4F 52 46 20 07 2A 00 E1 10 3D 02 8F A3 48 2A 20 |ORF .*...=...H* |
00000210: BA 46 2A 20 63 00 0C 11 3F 02 99 22 4E 45 58 54 |.F* c...?.."NEXT|
00000220: 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F | TRACK AND SECTO|
00000230: 52 22 4E 42 28 31 29 4E 42 28 32 29 20 22 11 22 |R"NB(1)NB(2) "."|
00000240: 00 35 11 44 02 99 22 44 4F 20 59 4F 55 20 57 41 |.5.D.."DO YOU WA|
00000250: 4E 54 20 4E 45 58 54 20 54 52 41 43 4B 20 41 4E |NT NEXT TRACK AN|
00000260: 44 20 53 45 43 54 4F 52 22 00 4B 11 4E 02 A1 20 |D SECTOR".K.N.. |
00000270: 5A 24 3A 8B 20 5A 24 B2 42 22 20 26 20 A7 35 39 |Z$:. Z$.B" & .59|
00000280: 30 00 6F 11 58 02 8B 20 5A 24 B2 22 59 22 20 A7 |0.o.X.. Z$."Y" .|
00000290: 20 54 B2 4E 42 28 31 29 3A 53 B2 4E 42 28 32 29 | T.NB(1):S.NB(2)|
000002A0: 3A 89 42 33 20 24 30 00 82 11 62 02 8B 20 5A 24 |:.B3 $0...b.. Z$|
000002B0: B2 22 4E 22 20 A7 20 33 32 30 00 8C 11 6C 02 89 |."N" . 320...l..|
000002C0: 20 35 39 30 00 B0 11 76 02 8F A3 48 2A 17 46 2A | 590...v...H*.F*|
000002D0: 13 00 D4 11 80 02 8F 2A 20 53 55 42 52 4F 55 54 |.......* SUBROUT|
000002E0: 49 4E 45 53 A2 48 20 09 07 2A 00 F8 11 8A 02 8F |INES.H ..*......|
000002F0: A3 48 2A 20 24 46 2A 09 00 1C 12 94 02 8F 2A 20 |.H* $F*.......* |
00000300: 45 42 52 0A 4F 52 20 52 4F 55 54 49 4E 45 4E 20 |EBR.OR ROUTINEN |
00000310: 07 2A 00 40 12 9E 02 8F A3 48 2A 20 54 46 2A 20 |.*.@.....H* TF* |
00000320: 2E 00 60 12 A8 02 84 31 35 2C 45 4E 2C 45 4D 24 |..`....15,EN,EM$|
00000330: 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 |,ET,ES:. EN.0 . |
00000340: 8E 00 80 12 B2 02 99 22 12 44 49 53 4B 20 45 42 |.......".DISK EB|
00000350: 52 1E 4F 52 92 22 45 4E 2C 45 4D 24 2C 45 54 2C |R.OR."EN,EM$,ET,|
00000360: 45 53 00 88 12 BC 02 90 3A 8E 00 AC 12 C6 02 8F |ES......:.......|
00000370: A3 48 2A 20 2F 46 2A 0B 00 D0 12 D0 02 8F 2A 20 |.H* /F*.......* |
00000380: 53 43 52 42 45 0D 4E 20 43 4F 4E 54 49 4E 55 45 |SCRBE.N CONTINUE|
00000390: 20 4D 45 42 53 03 41 47 45 44 20 07 2A 00 F4 12 | MEBS.AGED .*...|
000003A0: DA 02 8F A3 48 2A 20 81 46 2A 08 00 0E 13 E4 02 |....H* .F*......|
000003B0: 99 22 11 44 1D 1C 43 4F 4E 54 49 4E 55 45 28 59 |.".D..CONTINUE(Y|
000003C0: 2F 4E 29 22 00 24 13 EE 02 A1 5A 24 3A 8B 20 5A |/N)".$....Z$:. Z|
000003D0: 24 B2 42 22 20 52 20 A7 20 37 35 30 00 35 13 F8 |$.B" R . 750.5..|
000003E0: 02 8B 20 5A 24 B2 22 4E 22 20 A7 20 8E 00 49 13 |.. Z$."N" . ..I.|
000003F0: 02 03 8B 20 5A 24 B3 B1 22 59 22 20 A7 20 37 35 |... Z$.."Y" . 75|
00000400: 30 00 6A 13 0C 03 99 22 93 54 52 41 43 4B 22 20 |0.j....".TRACK" |
00000410: 54 20 22 20 53 45 43 54 4F 52 22 53 20 22 93 22 |T " SECTOR"S "."|
00000420: 3A 8E 00 8E 13 16 03 8F A3 48 2A 20 2C 46 2A 1E |:........H* ,F*.|
00000430: 00 B2 13 20 03 8F 2A 20 44 49 53 4B 20 42 59 54 |... ..* DISK BYT|
00000440: 45 20 54 4F 20 48 45 58 20 50 52 49 4E 54 45 20 |E TO HEX PRINTE |
00000450: 07 2A 00 D6 13 2A 03 8F A3 48 2A 20 64 46 2A 20 |.*...*...H* dF* |
00000460: 5F 00 F9 13 34 03 41 31 B2 B5 28 4E AD 31 36 29 |_...4.A1..(N.16)|
00000470: 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 31 AA |:A$.A$..(HX$,A1.|
00000480: 31 2C 31 29 00 1F 14 3E 03 41 32 B2 B5 28 4E AB |1,1)...>.A2..(N.|
00000490: 31 36 AC 41 31 29 3A 41 24 B2 41 24 AA CA 28 48 |16.A1):A$.A$..(H|
000004A0: 58 24 2C 41 32 AA 31 2C 31 29 00 2F 14 48 03 41 |X$,A2.1,1)./.H.A|
000004B0: 24 B2 41 24 AA 53 50 24 3A 8E 00 53 14 52 03 8F |$.A$.SP$:..S.R..|
000004C0: A3 48 2A 02 46 2A 42 20 20 36 00 77 14 5C 03 8F |.H*.F*B 6.w.\..|
000004D0: 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 41 |* DISK BYTE TO A|
000004E0: 53 43 20 44 49 53 50 4C 41 59 43 20 12 2A 00 9B |SC DISPLAYC .*..|
000004F0: 14 66 03 8F 2A 20 43 48 41 52 41 43 54 45 52 A2 |.f..* CHARACTER.|
00000500: 48 20 0B 42 20 07 2A 00 BF 14 70 03 8F A3 48 2A |H .B .*...p...H*|
00000510: 20 60 46 2A 20 44 00 D9 14 7A 03 8B 20 C6 28 43 | `F* D...z.. .(C|
00000520: 24 29 B3 33 32 20 A7 20 43 24 B2 22 20 22 3A 8E |$).32 . C$." ":.|
00000530: 00 F9 14 84 03 8B 20 C6 28 43 24 29 B3 31 32 38 |...... .(C$).128|
00000540: 20 B0 20 C6 28 43 24 29 B1 31 35 39 20 A7 20 8E | . .(C$).159 . .|
00000550: 00 19 15 8E 03 43 24 B2 CA 28 42 53 14 24 2C 33 |.....C$..(BS.$,3|
00000560: AC 28 C6 28 43 24 29 AB 31 32 37 29 2C 33 29 3A |.(.(C$).127),3):|
00000570: 8E C3 |.. |
...E.......` E... T.F.P.L7. E. E.F.P.` B
$(I):. 850:B$.B$.C$.O.F.. I:. BJ.$."S" .
.A$B$...J.. J:.571B..L...H* *F*..$.N..*
READ & PRINT DISPLAYG .*.H.P...H*!BF*..
_.R.K.1:NB(1).F(A$(0B) 5.N.T.. J.0 . 15.
}.V.. I.K . 15...X..#2,A$(I):. A$(I).B"
+ . A$(I).NL$.C.Z.. K.1 . I.2 . NB(2).F(
A$(IB)..O.... I:K.0.....A$.B" 6:B$.":":N
.J.16:. 790:A$.A$.":".,.... I.0 . 15:N.F
(A$(IB) F:. 790:. Z$."N". J.40:. 571.H..
.C$.A$(I):. 850:B$.B$.C$.P.... I.H.... B
J "$."P" . .4,A$B$.U.... J:.571...;...H*
+F*....<..* NEXT TRACK AND SECTORF .*..
.=...H* .F* C...?.."NEXT TRACK AND SECTO
R"NB(1)NB(2) ".".5.D.."DO YOU WANT NEXT
TRACK AND SECTOR".K.N.. Z$:. Z$.B" & .59
0.O.X.. Z$."Y" . T.NB(1):S.NB(2):.B3 $0.
..B.. Z$."N" . 320...L.. 590...V...H*.F*
..T....* SUBROUTINES.H ..*.......H* $F*.
......* EBR.OR ROUTINEN .*.@.....H* TF*
..`....15,EN,EM$,ET,ES:. EN.0 . ......."
.DISK EBR.OR."EN,EM$,ET,ES......:....F..
.H* /F*..P.P..* SCRBE.N CONTINUE MEBS.AG
ED .*...Z...H* .F*.......".D..CONTINUE(Y
/N)".$....Z$:. Z$.B" R . 750.5.... Z$."N
" . ..I.... Z$.."Y" . 750.J....".TRACK"
T " SECTOR"S ".":........H* ,F*.... ..*
DISK BYTE TO HEX PRINTE .*.V.*...H* DF*
_...4.A1..(N.16):A$.A$.J(HX$,A1.1,1)...>
.A2..(N.16.A1):A$.A$.J(HX$,A2.1,1)./.H.A
$.A$.SP$:..S.R...H*.F*B 6.W.\..* DISK B
YTE TO ASC DISPLAYC .*...F..* CHARACTER.
H .B .*...P...H* `F* D.Y.Z.. F(C$).32 .
C$." ":....... F(C$).128 . F(C$).159 . .
.....C$.J(BS.$,3.(F(C$).127),3):.C
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL