00000000: 41 44 20 57 48 41 54 20 52 45 43 4F 52 44 20 4E |AD WHAT RECORD N|
00000010: 55 4D 42 45 52 22 3B 52 4E 00 49 08 04 01 8D 31 |UMBER";RN.I....1|
00000020: 30 30 30 20 3A 8F 20 20 43 41 4C 43 55 4C 41 54 |000 :. CALCULAT|
00000030: 45 20 54 48 45 20 4C 4F 57 20 42 59 54 45 2F 48 |E THE LOW BYTE/H|
00000040: 49 47 48 20 42 59 54 45 20 50 4F 49 4E 54 45 52 |IGH BYTE POINTER|
00000050: 2E 00 83 08 0E 01 98 31 35 2C 22 50 22 AA C7 28 |.......15,"P"..(|
00000060: 39 36 AA 38 29 AA C7 28 52 4C 29 AA C7 28 52 48 |96.8)..(RL)..(RH|
00000070: 29 AA C7 28 31 29 20 3A 8F 20 20 50 4F 53 49 54 |)..(1) :. POSIT|
00000080: 49 4F 4E 20 43 4F 4D 4D 41 4E 44 00 AA 08 18 01 |ION COMMAND.....|
00000090: 8D 20 35 30 30 30 20 3A 8F 20 20 43 48 45 43 4B |. 5000 :. CHECK|
000000A0: 20 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E | THE ERROR CHANN|
000000B0: 45 4C 00 D5 08 1D 01 8B 20 45 B2 35 30 20 A7 99 |EL...... E.50 ..|
000000C0: 22 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 54 |"RECORD NUMBER T|
000000D0: 4F 20 4C 41 52 47 45 22 3A 89 33 34 30 00 08 09 |O LARGE":.340...|
000000E0: 22 01 84 38 2C 41 41 24 2C 42 42 24 2C 43 43 24 |"..8,AA$,BB$,CC$|
000000F0: 2C 44 44 24 2C 45 45 24 20 3A 8F 20 20 52 C5 C5 |,DD$,EE$ :. R..|
00000100: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00000110: C5 22 3A 00 37 05 AA 00 8F 2A 2A 2A 2A 2A 2A 2A |.":.7....*******|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 00 5B 05 B4 00 8F 2A 20 53 |*******.[....* S|
00000140: 45 54 20 50 52 4F 47 52 41 4D 20 43 4F 4E 53 54 |ET PROGRAM CONST|
00000150: 41 4E 54 20 20 20 20 20 20 20 2A 00 7F 05 BE 00 |ANT *.....|
00000160: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000180: AB 05 C8 00 53 50 24 B2 22 20 22 3A 4E 4C 24 B2 |....SP$." ":NL$.|
00000190: C7 28 30 29 3A 48 58 24 B2 22 30 31 32 33 34 35 |.(0):HX$."012345|
000001A0: 36 37 38 39 41 42 43 44 45 46 22 00 DA 05 D2 00 |6789ABCDEF".....|
000001B0: 46 53 24 B2 22 22 3A 81 49 B2 36 34 20 A4 20 39 |FS$."":.I.64 . 9|
000001C0: 35 3A 46 53 24 B2 46 53 24 AA 22 12 22 AA C7 28 |5:FS$.FS$."."..(|
000001D0: 49 29 AA 22 92 22 3A 82 20 49 00 0E 06 DC 00 53 |I).".":. I.....S|
000001E0: 53 24 B2 22 20 20 22 3A 81 20 49 B2 31 39 32 20 |S$." ":. I.192 |
000001F0: A4 20 32 32 33 3A 53 53 24 B2 53 53 42 59 20 54 |. 223:SS$.SSBY T|
00000200: 48 45 20 44 4F 53 20 41 54 20 41 20 4C 41 54 45 |HE DOS AT A LATE|
00000210: 52 20 54 49 4D 45 2E 20 22 00 3F 0E 24 04 99 22 |R TIME. ".?.$.."|
00000220: 44 4F 20 4E 4F 54 20 52 55 4E 20 54 48 49 53 20 |DO NOT RUN THIS |
00000230: 50 52 4F 47 52 41 4D 20 4F 4E 20 41 20 44 49 53 |PROGRAM ON A DIS|
00000240: 4B 45 54 54 45 20 22 00 6D 0E 2E 04 99 22 54 48 |KETTE ".m...."TH|
00000250: 41 54 20 43 4F 4E 54 41 49 4E 53 20 49 4E 46 4F |AT CONTAINS INFO|
00000260: 52 4D 41 54 49 4F 4E 20 59 4F 55 20 57 41 4E 54 |RMATION YOU WANT|
00000270: 20 54 4F 20 22 00 97 0E 38 04 99 22 4B 45 45 50 | TO "...8.."KEEP|
00000280: 20 53 49 4E 43 45 20 54 48 45 20 44 49 53 4B 45 | SINCE THE DISKE|
00000290: 54 54 45 20 49 53 20 45 52 41 53 45 44 20 22 00 |TTE IS ERASED ".|
000002A0: AF 0E 42 04 99 22 49 4E 20 54 48 45 20 50 52 4F |..B.."IN THE PRO|
000002B0: 43 45 53 53 2E 20 22 00 BA 0E 4C 04 8D 31 30 30 |CESS. "...L..100|
000002C0: 30 30 00 E4 0E 56 04 99 22 11 20 50 52 45 53 53 |00...V..". PRESS|
000002D0: 20 52 45 54 55 52 4E 20 54 4F 20 4C 4F 41 44 20 | RETURN TO LOAD |
000002E0: 50 41 52 54 20 54 48 52 45 45 2E 22 00 0F 0F 60 |PART THREE."...`|
000002F0: 04 99 22 41 46 54 45 52 20 49 6C 5C 05 70 00 0D |.."AFTER Il\.p..|
00000300: B0 00 3E F0 00 33 88 0B 20 88 8C C0 00 B3 A2 27 |..>..3.. ......'|
00000310: 7F 00 F0 C3 01 BC AC C3 A8 60 39 15 AA 50 68 CC |.........`9..Ph.|
00000320: E8 8A EF 14 65 B0 B3 81 0A 3B 45 6C 65 2A ED 19 |....e....;Ele*..|
00000330: 48 2A 44 E8 63 D0 83 8E A0 8F 01 CC B3 A6 3C BF |H*D.c.........<.|
00000340: FB FC 12 DF EC 7B A1 08 A8 F0 A7 60 38 05 D5 51 |.....{.....`8..Q|
00000350: 18 CC A0 6F FF FC 6B BB BC AE FE EC AB 01 AC 9B |...o..k.........|
00000360: 01 9C A6 66 6C EE 6D 5C 59 99 9C 3E EE EC 0F FF |...fl.m\Y..>....|
00000370: C4 D9 03 84 0C CC 16 B3 3C 6B FF F0 6E EE C0 BB |........<k..n...|
00000380: 4D 39 3F FC 80 33 00 2A 23 3B BE 34 0B 30 52 47 |M9?..3.*#;.4.0RG|
00000390: 44 AE 8E AB 83 08 9B 88 67 83 44 A5 2D 58 74 02 |D.......g.D.-Xt.|
000003A0: B2 E2 BF 20 02 EF 72 55 C8 FC B2 26 60 60 E9 02 |... ..rU...&``..|
000003B0: CE 02 60 22 A0 21 16 9A 6D 8D 54 3E EF C0 03 78 |..`".!..m.T>...x|
000003C0: 46 0C 35 48 01 39 48 01 FC A4 F0 21 12 2F 15 A9 |F.5H.9H....!./..|
000003D0: 40 66 66 60 55 55 70 99 99 B0 3F FF C0 80 55 97 |@ff`UUp...?...U.|
000003E0: 21 18 A4 96 60 28 6F 3C 01 BB 11 00 1C 02 AC 2A |!...`(o<.......*|
000003F0: 00 04 06 11 05 70 00 09 01 01 01 01 01 01 01 01 |.....p..........|
00000400: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000410: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000420: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000430: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000440: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000450: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000460: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000470: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000480: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000490: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000004A0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000004B0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000004C0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000004D0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000004E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000004F0: 01 01 01 01 01 01 |...... |
AD WHAT RECORD NUMBER";RN.I....1000 :.
CALCULATE THE LOW BYTE/HIGH BYTE POINTER
.......15,"P".G(96.8).G(RL).G(RH).G(1) :
. POSITION COMMAND...... 5000 :. CHECK
THE ERROR CHANNEL.U.... E.50 .."RECORD
NUMBER TO LARGE":.340..."..8,AA$,BB$,CC$
,DD$,EE$ :. REEEEEEEEEEEEEEEEEEE":.7...
.******************************.[....* S
ET PROGRAM CONSTANT *.....*******
***********************...H.SP$." ":NL$.
G(0):HX$."0123456789ABCDEF".Z.R.FS$."":.
I.64 . 95:FS$.FS$.".".G(I).".":. I.....S
S$." ":. I.192 . 223:SS$.SSBY THE DOS A
T A LATER TIME. ".?.$.."DO NOT RUN THIS
PROGRAM ON A DISKETTE ".M...."THAT CONTA
INS INFORMATION YOU WANT TO "...8.."KEEP
SINCE THE DISKETTE IS ERASED "...B.."IN
THE PROCESS. "...L..10000...V..". PRESS
RETURN TO LOAD PART THREE."...`.."AFTER
IL\.P....>..3.. ......'..C...C.`9..PHL
....E....;ELE*..H*D.CP.. ..L..<......{..
...`8.UQ.L O..K............FL.M\Y..>....
DY...L..<K..N...M9?..3.*#;.4.0RGD.......
G.D.-XT.... ..RUH..&``..N.`" !..M.T>...X
F.5H.9H....!./..@FF`UUP...?...U.!...`(O<
.......*.....P..........................
........................................
........................................
........................................
........................................
........................................
..............................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL