KEYBOOT V2

00000000: 01 1C 3C 1C 0A 00 8F 20  4E 24 3D 22 30 3A 4B 45  |..<.... N$="0:KE|
00000010: 59 42 4F 4F 54 20 56 32  22 3A 4F 50 45 4E 31 35  |YBOOT V2":OPEN15|
00000020: 2C 38 2C 31 35 2C 22 53  22 2B 4E 24 3A 53 41 56  |,8,15,"S"+N$:SAV|
00000030: 45 4E 24 2C 38 3A 44 43  4C 4F 53 45 00 6A 1C 14  |EN$,8:DCLOSE.j..|
00000040: 00 8F 20 4D 41 4B 45 53  20 42 4F 4F 54 41 42 4C  |.. MAKES BOOTABL|
00000050: 45 20 46 55 4E 43 54 49  4F 4E 20 4B 45 59 20 44  |E FUNCTION KEY D|
00000060: 45 46 49 4E 49 54 49 4F  4E 53 00 83 1C 1E 00 58  |EFINITIONS.....X|
00000070: B2 C2 28 34 38 29 3A 8B  28 58 B1 B2 38 29 A7 31  |..(48):.(X..8).1|
00000080: 31 32 30 00 C5 1C 28 00  8F 20 42 59 20 47 45 4F  |120...(.. BY GEO|
00000090: 46 46 20 53 55 4C 4C 49  56 41 4E 20 31 2F 37 2F  |FF SULLIVAN 1/7/|
000000A0: 39 30 20 41 46 54 45 52  20 4D 41 4E 59 20 54 52  |90 AFTER MANY TR|
000000B0: 49 41 4C 53 20 41 4E 44  20 54 52 49 42 55 4C 41  |IALS AND TRIBULA|
000000C0: 54 49 4F 4E 53 00 F6 1C  32 00 8F 20 41 4E 44 20  |TIONS...2.. AND |
000000D0: 48 45 4C 50 20 46 52 4F  4D 20 53 55 53 41 4E 20  |HELP FROM SUSAN |
000000E0: 57 48 45 4E 20 49 20 4E  45 45 44 45 44 20 49 54  |WHEN I NEEDED IT|
000000F0: 20 4D 4F 53 54 21 00 FC  1C 3C 00 3A 00 02 1D 46  | MOST!...<.:...F|
00000100: 00 3A 00 38 1D 50 00 8F  20 57 4F 52 4B 53 20 49  |.:.8.P.. WORKS I|
00000110: 4E 20 31 32 38 20 4D 4F  44 45 20 4F 4E 20 41 4E  |N 128 MODE ON AN|
00000120: 59 20 44 52 49 56 45 20  54 59 50 45 20 4F 52 20  |Y DRIVE TYPE OR |
00000130: 44 45 56 49 43 45 20 23  00 3E 1D 5A 00 3A 00 5F  |DEVICE #.>.Z.:._|
00000140: 1D 64 00 FE 02 30 3A FE  25 3A 99 22 93 0E 9E 22  |.d...0:.%:."..."|
00000150: 3B 3A 44 56 B2 38 3A 4E  55 24 B2 C7 28 30 29 00  |;:DV.8:NU$..(0).|
00000160: 6D 1D 6E 00 8D 37 38 30  3A 8D 39 35 30 00 98 1D  |m.n..780:.950...|
00000170: 78 00 86 4B 59 25 28 32  35 35 29 3A 81 42 59 B2  |x..KY%(255):.BY.|
00000180: 30 A4 32 35 34 3A 4B 59  25 28 42 59 29 B2 C2 28  |0.254:KY%(BY)..(|
00000190: 42 59 AA 34 30 39 36 29  00 9E 1D 82 00 82 00 B3  |BY.4096)........|
000001A0: 1D 8C 00 4B 24 B2 22 22  3A 81 42 59 B2 31 30 A4  |...K$."":.BY.10.|
000001B0: 32 35 34 00 CE 1D 8D 00  8F 20 54 52 41 50 20 43  |254...... TRAP C|
000001C0: 55 52 53 4F 52 20 43 4F  4E 54 52 4F 4C 53 00 F7  |URSOR CONTROLS..|
000001D0: 1D 8E 00 8B 4B 59 25 28  42 59 29 B2 31 33 A7 4B  |....KY%(BY).13.K|
000001E0: 59 25 28 42 59 29 B2 39  35 3A 89 31 35 30 3A 8F  |Y%(BY).95:.150:.|
000001F0: 20 52 45 54 55 52 4E 00  1E 1E 8F 00 8B 4B 59 25  | RETURN......KY%|
00000200: 28 42 59 29 B2 31 39 A7  4B 59 25 28 42 59 29 B2  |(BY).19.KY%(BY).|
00000210: 39 34 3A 89 31 35 30 3A  8F 20 48 4F 4D 45 00 47  |94:.150:. HOME.G|
00000220: 1E 90 00 8B 4B 59 25 28  42 59 29 B2 32 37 A7 4B  |....KY%(BY).27.K|
00000230: 59 25 28 42 59 29 B2 39  32 3A 89 31 35 30 3A 8F  |Y%(BY).92:.150:.|
00000240: 20 45 53 43 41 50 45 00  76 1E 91 00 8B 4B 59 25  | ESCAPE.v....KY%|
00000250: 28 42 59 29 B3 33 31 A7  4B 59 25 28 42 59 29 B2  |(BY).31.KY%(BY).|
00000260: 31 39 30 3A 89 31 35 30  3A 8F 20 4D 49 53 43 20  |190:.150:. MISC |
00000270: 43 55 52 53 4F 52 00 A1  1E 92 00 8B 4B 59 25 28  |CURSOR......KY%(|
00000280: 42 59 29 B2 31 34 37 A7  4B 59 25 28 42 59 29 B2  |BY).147.KY%(BY).|
00000290: 32 35 30 3A 89 31 35 30  3A 8F 20 43 4C 53 43 52  |250:.150:. CLSCR|
000002A0: 4E 00 DD 1E 93 00 8B 4B  59 25 28 42 59 29 B1 31  |N......KY%(BY).1|
000002B0: 32 37 AF 4B 59 25 28 42  59 29 B3 31 36 30 A7 4B  |27.KY%(BY).160.K|
000002C0: 59 25 28 42 59 29 B2 31  39 30 3A 89 31 35 30 3A  |Y%(BY).190:.150:|
000002D0: 8F 20 4D 49 53 43 20 43  55 52 53 4F 52 00 0C 1F  |. MISC CURSOR...|
000002E0: 96 00 4B 24 B2 4B 24 AA  C7 28 4B 59 25 28 42 59  |..K$.K$..(KY%(BY|
000002F0: 29 29 3A 82 3A 99 C7 28  37 29 3B 3A 8D 31 31 31  |)):.:..(7);:.111|
00000300: 30 3A A1 F9 41 24 3A 99  C7 28 37 29 00 12 1F A0  |0:..A$:..(7)....|
00000310: 00 3A 00 1E 1F AA 00 99  22 93 13 13 9E 22 00 56  |.:......"....".V|
00000320: 1F B4 00 99 22 09 09 02  D4 48 45 53 45 20 41 52  |...."....HESE AR|
00000330: 45 20 54 48 45 20 43 55  52 52 45 4E 54 20 C6 55  |E THE CURRENT .U|
00000340: 4E 43 54 49 4F 4E 20 CB  45 59 20 44 45 46 49 4E  |NCTION .EY DEFIN|
00000350: 49 54 49 4F 4E 53 00 B3  1F B5 00 99 22 02 9B 20  |ITIONS......".. |
00000360: 5F 20 3D 20 12 D2 45 54  55 52 4E 92 20 20 5E 20  |_ = ..ETURN.  ^ |
00000370: 3D 20 12 C8 4F 4D 45 92  20 20 5C 20 3D 20 12 C5  |= ..OME.  \ = ..|
00000380: 53 43 41 50 45 92 20 20  BA 20 3D 20 12 C3 4C 52  |SCAPE.  . = ..LR|
00000390: D3 43 52 4E 92 20 20 BE  20 3D 20 12 4D 49 53 43  |.CRN.  . = .MISC|
000003A0: 20 43 55 52 53 4F 52 20  43 4F 4E 54 52 4F 4C 53  | CURSOR CONTROLS|
000003B0: 92 20 22 00 F2 1F BE 00  99 22 1E 22 3A 81 4E B2  |. "......".":.N.|
000003C0: 31 A4 38 3A 99 22 1D 1D  CB 45 59 20 20 20 22 4E  |1.8:."...EY   "N|
000003D0: 3A 82 3A 99 22 1D 1D D3  48 49 46 54 2F D2 55 4E  |:.:."...HIFT/.UN|
000003E0: 20 22 3A 99 22 1D 1D C8  45 4C 50 20 20 20 20 20  | ":."...ELP     |
000003F0: 20 22 00 0E 20 C8 00 99  22 9C 13 13 11 11 11 09  | ".. ...".......|
00000400: 20 20 20 20 20 22 C7 28  32 37 29 22 54 22 00 2D  |     ".(27)"T".-|
00000410: 20 D2 00 41 B2 31 3A 81  4E B2 30 A4 39 3A 99 CA  | ..A.1:.N.0.9:..|
00000420: 28 4B 24 2C 41 2C 4B 59  25 28 4E 29 29 00 3E 20  |(K$,A,KY%(N)).> |
00000430: DC 00 41 B2 41 AA 4B 59  25 28 4E 29 3A 82 00 44  |..A.A.KY%(N):..D|
00000440: 20 E6 00 3A 00 4E 20 F0  00 8D 31 31 30 30 00 AD  | ..:.N ...1100..|
00000450: 20 FA 00 99 22 13 13 11  11 11 11 11 11 11 11 11  | ..."...........|
00000460: 11 11 11 11 11 11 9E 09  C9 46 20 59 4F 55 20 57  |.........F YOU W|
00000470: 49 53 48 20 54 4F 20 43  48 41 4E 47 45 20 41 4E  |ISH TO CHANGE AN|
00000480: 59 20 4F 46 20 54 48 45  53 45 20 CB 45 59 53 2C  |Y OF THESE .EYS,|
00000490: 20 4E 4F 57 20 49 53 20  54 48 45 20 54 49 4D 45  | NOW IS THE TIME|
000004A0: 20 54 4F 20 42 41 49 4C  20 4F 55 54 21 00 00 21  | TO BAIL OUT!..!|
000004B0: 04 01 99 22 D5 53 45 20  41 20 50 52 4F 47 52 41  |...".SE A PROGRA|
000004C0: 4D 20 4C 49 4B 45 20 D2  41 4E 44 59 20 D7 49 4E  |M LIKE .ANDY .IN|
000004D0: 43 48 45 53 54 45 52 27  53 20 CB 45 59 C4 4F 53  |CHESTER'S .EY.OS|
000004E0: 20 C3 4F 4D 50 49 4C 45  52 20 54 4F 20 43 48 41  | .OMPILER TO CHA|
000004F0: 4E 47 45 20 54 48 45 20  C8 45 4C 50 20 41 4E 44  |NGE THE .ELP AND|
00000500: 00 52 21 0E 01 99 22 D3  48 49 46 54 2F D2 55 4E  |.R!...".HIFT/.UN|
00000510: 20 4B 45 59 53 2E 20 D4  48 45 20 CB 45 59 53 20  | KEYS. .HE .EYS |
00000520: 31 20 54 48 52 4F 55 47  48 20 38 20 43 41 4E 20  |1 THROUGH 8 CAN |
00000530: 41 4C 53 4F 20 42 45 20  43 48 41 4E 47 45 44 20  |ALSO BE CHANGED |
00000540: 4D 41 4E 55 41 4C 4C 59  20 55 53 49 4E 47 20 54  |MANUALLY USING T|
00000550: 48 45 00 9D 21 18 01 99  22 C2 41 53 49 43 20 27  |HE..!...".ASIC '|
00000560: CB C5 D9 27 20 43 4F 4D  4D 41 4E 44 2E 20 D4 48  |...' COMMAND. .H|
00000570: 45 4E 20 52 55 4E 20 CB  45 59 C2 4F 4F 54 20 41  |EN RUN .EY.OOT A|
00000580: 47 41 49 4E 2E 20 CF 54  48 45 52 57 49 53 45 20  |GAIN. .THERWISE |
00000590: 53 54 41 59 20 4F 4E 42  4F 41 52 44 21 00 D5 21  |STAY ONBOARD!..!|
000005A0: 22 01 99 22 0F 11 09 09  09 9F CA 55 4D 50 20 D3  |"..".......UMP .|
000005B0: 48 49 50 3F 22 C7 28 31  34 33 29 22 20 28 59 2F  |HIP?".(143)" (Y/|
000005C0: 4E 29 22 3A A1 F9 41 24  3A 8B 41 24 B3 B1 22 59  |N)":..A$:.A$.."Y|
000005D0: 22 A7 33 31 30 00 42 22  23 01 99 C7 28 32 37 29  |".310.B"#...(27)|
000005E0: 22 41 9A 91 09 09 D3 20  20 20 20 20 D0 20 20 20  |"A.....     .   |
000005F0: 20 20 CC 20 20 20 20 20  C1 20 20 20 20 20 D3 20  |  .     .     . |
00000600: 20 20 20 20 C8 20 20 20  20 20 21 20 20 20 20 20  |    .     !     |
00000610: 21 22 C7 28 32 37 29 22  40 22 C7 28 32 37 29 22  |!".(27)"@".(27)"|
00000620: 43 22 C7 28 32 37 29 22  49 22 C7 28 32 37 29 22  |C".(27)"I".(27)"|
00000630: 49 22 C7 28 32 37 29 22  49 22 C7 28 32 37 29 22  |I".(27)"I".(27)"|
00000640: 49 22 00 5F 22 24 01 8D  37 31 30 3A FE 0B 31 3A  |I"._"$..710:..1:|
00000650: 99 22 07 9F 22 C7 28 32  37 29 22 49 22 3A 80 00  |."..".(27)"I":..|
00000660: 65 22 2C 01 3A 00 8D 22  36 01 8D 31 31 30 30 3A  |e",.:.."6..1100:|
00000670: 99 22 13 13 11 11 11 11  11 11 11 11 11 11 11 11  |."..............|
00000680: 11 11 11 05 22 C7 28 32  37 29 22 40 22 00 C3 22  |....".(27)"@".."|
00000690: 40 01 85 22 C9 4E 53 54  41 4C 4C 20 CB 45 59 C2  |@..".NSTALL .EY.|
000006A0: 4F 4F 54 20 4F 4E 20 C4  49 53 4B 20 49 4E 20 C4  |OOT ON .ISK IN .|
000006B0: 52 49 56 45 20 23 20 38  20 20 9D 9D 9D 9D 9D 22  |RIVE # 8  ....."|
000006C0: 3B 44 56 00 DE 22 4A 01  8B 44 56 B3 38 B0 44 56  |;DV.."J..DV.8.DV|
000006D0: B1 31 32 A7 99 22 91 91  22 3A 89 33 32 30 00 15  |.12.."..":.320..|
000006E0: 23 4B 01 99 22 C9 46 20  59 4F 55 20 41 52 45 20  |#K..".F YOU ARE |
000006F0: 41 42 53 4F 4C 55 54 45  4C 59 20 53 55 52 45 20  |ABSOLUTELY SURE |
00000700: 50 52 45 53 53 20 C1 CC  D4 20 4B 45 59 22 3A 92  |PRESS ... KEY":.|
00000710: 32 31 31 2C 38 00 1B 23  54 01 3A 00 2E 23 5E 01  |211,8..#T.:..#^.|
00000720: 9F 31 35 2C 44 56 2C 31  35 2C 22 49 4F 22 00 42  |.15,DV,15,"IO".B|
00000730: 23 68 01 98 31 35 2C 22  42 2D 46 20 30 20 31 20  |#h..15,"B-F 0 1 |
00000740: 30 22 00 56 23 72 01 98  31 35 2C 22 42 2D 46 20  |0".V#r..15,"B-F |
00000750: 30 20 31 20 31 22 00 66  23 7C 01 9F 32 2C 44 56  |0 1 1".f#|..2,DV|
00000760: 2C 32 2C 22 23 22 00 7B  23 86 01 98 31 35 2C 22  |,2,"#".{#...15,"|
00000770: 55 31 20 32 20 30 20 31  20 30 22 00 8D 23 90 01  |U1 2 0 1 0"..#..|
00000780: 98 31 35 2C 22 42 2D 50  20 32 20 30 22 00 BD 23  |.15,"B-P 2 0"..#|
00000790: 9A 01 A1 23 32 2C 41 24  2C 42 24 2C 43 24 3A 44  |...#2,A$,B$,C$:D|
000007A0: 24 B2 41 24 AA 42 24 AA  43 24 3A 8B 44 24 B2 22  |$.A$.B$.C$:.D$."|
000007B0: 43 42 4D 22 A7 34 34 30  3A D5 35 32 30 00 C3 23  |CBM".440:.520..#|
000007C0: A4 01 3A 00 C9 23 AE 01  3A 00 D1 23 B8 01 99 22  |..:..#..:..#..."|
000007D0: 99 00 1D 24 C2 01 99 22  D4 48 49 53 20 44 49 53  |...$...".HIS DIS|
000007E0: 4B 20 C4 CF C5 D3 20 48  41 56 45 20 41 20 42 4F  |K .... HAVE A BO|
000007F0: 4F 54 20 53 45 43 54 4F  52 20 4F 4E 20 49 54 2E  |OT SECTOR ON IT.|
00000800: 20 D4 48 45 20 CB 45 59  C2 4F 4F 54 20 50 52 4F  | .HE .EY.OOT PRO|
00000810: 47 52 41 4D 20 57 49 4C  4C 20 4E 4F 54 00 67 24  |GRAM WILL NOT.g$|
00000820: CC 01 99 22 4F 56 45 52  57 52 49 54 45 20 49 54  |..."OVERWRITE IT|
00000830: 20 42 55 54 2C 20 52 41  54 48 45 52 2C 20 41 44  | BUT, RATHER, AD|
00000840: 44 20 41 20 46 45 57 20  42 59 54 45 53 20 4F 46  |D A FEW BYTES OF|
00000850: 20 4D 41 43 48 49 4E 45  20 4C 41 4E 47 55 41 47  | MACHINE LANGUAG|
00000860: 45 20 53 4F 20 49 54 00  B2 24 D6 01 99 22 57 49  |E SO IT..$..."WI|
00000870: 4C 4C 20 4E 4F 57 20 43  4F 4E 46 49 47 55 52 45  |LL NOW CONFIGURE|
00000880: 20 59 4F 55 52 20 C6 55  4E 43 54 49 4F 4E 20 CB  | YOUR .UNCTION .|
00000890: 45 59 53 2C 20 41 53 20  59 4F 55 20 57 49 53 48  |EYS, AS YOU WISH|
000008A0: 2C 20 41 55 54 4F 4D 41  54 49 43 41 4C 4C 59 20  |, AUTOMATICALLY |
000008B0: 4F 4E 00 C3 24 E0 01 99  22 42 4F 4F 54 20 55 50  |ON..$..."BOOT UP|
000008C0: 21 21 22 00 C9 24 EA 01  3A 00 F8 24 F4 01 98 31  |!!"..$..:..$...1|
000008D0: 35 2C 22 42 2D 50 20 32  20 30 22 3A 98 32 2C 22  |5,"B-P 2 0":.2,"|
000008E0: 43 42 4D 22 3B 4E 55 24  3B C7 28 31 36 29 3B 4E  |CBM";NU$;.(16);N|
000008F0: 55 24 3B C7 28 31 29 3B  00 01 25 FE 01 89 35 34  |U$;.(1);..%...54|
00000900: 30 00 96 25 08 02 99 22  11 96 D4 48 49 53 20 44  |0..%..."...HIS D|
00000910: 49 53 4B 20 44 4F 45 53  20 CE CF D4 20 48 41 56  |ISK DOES ... HAV|
00000920: 45 20 41 20 42 4F 4F 54  20 53 45 43 54 4F 52 2E  |E A BOOT SECTOR.|
00000930: 20 D4 48 49 53 20 50 52  4F 47 52 41 4D 20 57 49  | .HIS PROGRAM WI|
00000940: 4C 4C 20 57 52 49 54 45  20 41 20 43 52 55 44 45  |LL WRITE A CRUDE|
00000950: 20 42 4F 4F 54 20 20 20  20 20 53 45 43 54 4F 52  | BOOT     SECTOR|
00000960: 20 54 48 41 54 20 57 49  4C 4C 20 42 4F 4F 54 20  | THAT WILL BOOT |
00000970: 54 48 45 20 CB 45 59 20  C6 55 4E 43 54 49 4F 4E  |THE .EY .UNCTION|
00000980: 53 20 41 4E 44 20 52 45  54 55 52 4E 20 54 4F 20  |S AND RETURN TO |
00000990: C2 41 53 49 43 2E 00 D3  25 12 02 98 31 35 2C 22  |.ASIC...%...15,"|
000009A0: 42 2D 50 20 32 20 30 22  3A 98 32 2C 22 43 42 4D  |B-P 2 0":.2,"CBM|
000009B0: 22 3B 4E 55 24 3B C7 28  31 36 29 3B 4E 55 24 3B  |";NU$;.(16);NU$;|
000009C0: C7 28 31 29 3B 4E 55 24  3B 4E 55 24 3B C7 28 39  |.(1);NU$;NU$;.(9|
000009D0: 36 29 3B 00 ED 25 1C 02  98 31 35 2C 22 55 32 20  |6);..%...15,"U2 |
000009E0: 32 20 30 20 31 20 30 22  3A 8D 36 39 30 00 10 26  |2 0 1 0":.690..&|
000009F0: 26 02 81 42 59 B2 30 A4  32 35 34 3A 4B 59 25 28  |&..BY.0.254:KY%(|
00000A00: 42 59 29 B2 C2 28 42 59  AA 34 30 39 36 29 3A 82  |BY)..(BY.4096):.|
00000A10: 00 16 26 30 02 3A 00 24  26 3A 02 9F 31 35 2C 44  |..&0.:.$&:..15,D|
00000A20: 56 2C 31 35 00 34 26 44  02 9F 32 2C 44 56 2C 32  |V,15.4&D..2,DV,2|
00000A30: 2C 22 23 22 00 61 26 4E  02 98 31 35 2C 22 42 2D  |,"#".a&N..15,"B-|
00000A40: 50 20 32 20 30 22 3A 81  42 59 B2 30 A4 32 35 34  |P 2 0":.BY.0.254|
00000A50: 3A 98 32 2C C7 28 4B 59  25 28 42 59 29 29 3B 3A  |:.2,.(KY%(BY));:|
00000A60: 82 00 76 26 58 02 98 31  35 2C 22 55 32 20 32 20  |..v&X..15,"U2 2 |
00000A70: 30 20 31 20 31 22 00 7F  26 62 02 8D 36 39 30 00  |0 1 1"..&b..690.|
00000A80: 85 26 6C 02 3A 00 93 26  76 02 9F 31 35 2C 44 56  |.&l.:..&v..15,DV|
00000A90: 2C 31 35 00 A7 26 80 02  98 31 35 2C 22 42 2D 41  |,15..&...15,"B-A|
00000AA0: 20 30 20 31 20 30 22 00  C0 26 8A 02 98 31 35 2C  | 0 1 0"..&...15,|
00000AB0: 22 42 2D 41 20 30 20 31  20 31 22 3A 8D 36 39 30  |"B-A 0 1 1":.690|
00000AC0: 00 C6 26 94 02 3A 00 F7  26 9E 02 99 22 09 09 1C  |..&..:..&..."...|
00000AD0: C3 48 45 43 4B 49 4E 47  20 C4 49 53 4B 20 C5 52  |.HECKING .ISK .R|
00000AE0: 52 4F 52 20 C3 48 41 4E  4E 45 4C 2E 2E 2E 07 9F  |ROR .HANNEL.....|
00000AF0: 22 44 53 24 3B 3A 80 00  FD 26 A8 02 3A 00 0A 27  |"DS$;:...&..:..'|
00000B00: B2 02 A0 32 3A A0 31 35  3A 8E 00 10 27 BC 02 3A  |...2:.15:...'..:|
00000B10: 00 2D 27 C6 02 56 B2 31  35 3A 58 B2 36 35 30 30  |.-'..V.15:X.6500|
00000B20: 30 3A 4B B2 33 3A 4A B2  35 30 30 30 30 00 39 27  |0:K.3:J.50000.9'|
00000B30: D0 02 EB 20 FC 20 56 B2  31 00 4F 27 DA 02 58 B2  |... . V.1.O'..X.|
00000B40: 58 AB 31 30 35 30 3A 56  B2 56 AB 31 3A DB 56 00  |X.1050:V.V.1:.V.|
00000B50: 67 27 E4 02 DA 20 32 2C  58 2C 4B 2C 31 2C 4A 2C  |g'... 2,X,K,1,J,|
00000B60: 35 30 30 30 30 2C 33 00  8B 27 E5 02 DA 31 2C 58  |50000,3..'...1,X|
00000B70: AB 35 30 30 30 30 2C 31  2C 32 2C 4A 2C 35 30 30  |.50000,1,2,J,500|
00000B80: 30 30 2C 32 2C 31 30 30  30 3A EC 00 91 27 EE 02  |00,2,1000:...'..|
00000B90: 8E 00 97 27 F8 02 3A 00  9D 27 02 03 3A 00 B5 27  |...'..:..'..:..'|
00000BA0: 0C 03 8F 20 44 52 41 57  20 54 49 54 4C 45 20 53  |... DRAW TITLE S|
00000BB0: 43 52 45 45 4E 00 E5 27  2A 03 DE 30 3A 4D 4C B2  |CREEN..'*..0:ML.|
00000BC0: 34 30 3A 43 54 24 B2 22  1D 1D 1D 1D 1D 1D 1D 1D  |40:CT$."........|
00000BD0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 22 3A E7 30 2C 31  |..........":.0,1|
00000BE0: 3A E7 34 2C 31 00 1F 28  34 03 4D 44 B2 34 30 3A  |:.4,1..(4.MD.40:|
00000BF0: 43 54 24 B2 43 54 24 AA  43 54 24 AA 22 20 22 3A  |CT$.CT$.CT$." ":|
00000C00: 4D 4C B2 38 30 3A DE 35  3A E7 36 2C 31 3A 58 31  |ML.80:.5:.6,1:X1|
00000C10: B2 33 31 3A 58 32 B2 33  34 3A 58 33 B2 33 32 00  |.31:X2.34:X3.32.|
00000C20: 28 28 3E 03 E7 35 2C 34  00 5F 28 48 03 4D 53 24  |((>..5,4._(H.MS$|
00000C30: B2 22 B0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |."..............|
00000C40: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000C50: C0 C0 C0 C0 C0 C0 C0 C0  AE 22 3A 8D 39 31 30 00  |.........":.910.|
00000C60: 9F 28 52 03 81 4E B2 31  A4 36 3A 4D 53 24 B2 22  |.(R..N.1.6:MS$."|
00000C70: DD 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000C80: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C90: 20 20 20 20 20 20 DD 22  3A 8D 39 31 30 3A 82 00  |      .":.910:..|
00000CA0: D6 28 5C 03 4D 53 24 B2  22 AD C0 C0 C0 C0 C0 C0  |.(\.MS$.".......|
00000CB0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000CC0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 BD  |................|
00000CD0: 22 3A 8D 39 31 30 00 FA  28 66 03 E7 35 2C 38 3A  |":.910..(f..5,8:|
00000CE0: E0 31 2C 58 31 2C 31 2C  22 C3 2D 31 32 38 20 CB  |.1,X1,1,".-128 .|
00000CF0: 45 59 C2 4F 4F 54 20 D6  32 22 00 18 29 70 03 E7  |EY.OOT .2"..)p..|
00000D00: 35 2C 39 3A E0 31 2C 58  32 2C 33 2C 22 43 52 45  |5,9:.1,X2,3,"CRE|
00000D10: 41 54 45 44 20 42 59 22  00 3A 29 7A 03 E7 35 2C  |ATED BY".:)z..5,|
00000D20: 33 3A E0 31 2C 58 33 2C  34 2C 22 C7 45 4F 46 46  |3:.1,X3,4,".EOFF|
00000D30: 20 D3 55 4C 4C 49 56 41  4E 22 00 7C 29 84 03 E7  | .ULLIVAN".|)...|
00000D40: 35 2C 38 3A E0 31 2C 32  AA 4D 44 AD 32 2C 36 2C  |5,8:.1,2.MD.2,6,|
00000D50: 22 D2 45 41 44 49 4E 47  20 C6 55 4E 43 54 49 4F  |".EADING .UNCTIO|
00000D60: 4E 20 4B 45 59 53 2E 2E  2E 0F D0 4C 45 41 53 45  |N KEYS.....LEASE|
00000D70: 20 57 41 49 54 22 3A 99  3A 99 3A 8E 00 98 29 8E  | WAIT":.:.:...).|
00000D80: 03 8F 20 50 52 49 4E 54  20 53 54 52 49 4E 47 20  |.. PRINT STRING |
00000D90: 43 45 4E 54 45 52 45 44  00 B8 29 98 03 99 C8 28  |CENTERED..)....(|
00000DA0: 43 54 24 2C 28 4D 4C AB  C3 28 4D 53 24 29 29 AD  |CT$,(ML..(MS$)).|
00000DB0: 32 29 3B 4D 53 24 3A 8E  00 CC 29 A2 03 E0 31 2C  |2);MS$:...)...1,|
00000DC0: 31 2C 43 50 AB 31 2C 4D  53 24 3A 8E 00 D2 29 AC  |1,CP.1,MS$:...).|
00000DD0: 03 3A 00 22 2A B6 03 99  22 99 11 09 C9 46 20 59  |.:."*..."....F Y|
00000DE0: 4F 55 20 44 4F 4E 27 54  20 4C 49 4B 45 20 54 48  |OU DON'T LIKE TH|
00000DF0: 45 20 57 41 59 20 59 4F  55 52 20 C3 2D 31 32 38  |E WAY YOUR .-128|
00000E00: 20 C6 55 4E 43 54 49 4F  4E 20 4B 45 59 53 20 41  | .UNCTION KEYS A|
00000E10: 52 45 20 43 4F 4E 46 49  47 55 52 45 44 20 57 48  |RE CONFIGURED WH|
00000E20: 45 4E 00 75 2A C0 03 99  22 59 4F 55 20 42 4F 4F  |EN.u*..."YOU BOO|
00000E30: 54 20 55 50 20 59 4F 55  52 20 43 4F 4D 50 55 54  |T UP YOUR COMPUT|
00000E40: 45 52 2C 20 41 4E 44 20  CC 4F 41 44 2D 49 4E 47  |ER, AND .OAD-ING|
00000E50: 20 53 4F 4D 45 20 4B 49  4E 44 20 4F 46 20 43 4F  | SOME KIND OF CO|
00000E60: 4E 46 49 47 55 52 41 54  49 4F 4E 20 4F 52 20 CB  |NFIGURATION OR .|
00000E70: 45 59 C4 4F 53 00 C8 2A  CA 03 99 22 46 49 4C 45  |EY.OS..*..."FILE|
00000E80: 20 45 56 45 52 59 20 54  49 4D 45 20 49 53 20 41  | EVERY TIME IS A|
00000E90: 20 50 41 49 4E 2C 20 54  48 45 4E 20 54 52 59 20  | PAIN, THEN TRY |
00000EA0: 55 53 49 4E 47 20 CB 45  59 C2 4F 4F 54 21 20 CB  |USING .EY.OOT! .|
00000EB0: 45 59 C2 4F 4F 54 20 57  49 4C 4C 20 41 4C 4C 4F  |EY.OOT WILL ALLO|
00000EC0: 57 20 59 4F 55 20 54 4F  00 1D 2B D4 03 99 22 43  |W YOU TO..+..."C|
00000ED0: 4F 4E 46 49 47 55 52 45  20 59 4F 55 52 20 46 55  |ONFIGURE YOUR FU|
00000EE0: 4E 43 54 49 4F 4E 20 4B  45 59 53 20 41 4E 44 20  |NCTION KEYS AND |
00000EF0: 42 4F 4F 54 20 59 4F 55  52 20 44 49 53 4B 20 41  |BOOT YOUR DISK A|
00000F00: 54 20 54 48 45 20 53 41  4D 45 20 54 49 4D 45 21  |T THE SAME TIME!|
00000F10: 20 D9 4F 55 20 43 41 4E  20 48 41 56 45 00 6F 2B  | .OU CAN HAVE.o+|
00000F20: DE 03 99 22 44 49 46 46  45 52 45 4E 54 20 43 4F  |..."DIFFERENT CO|
00000F30: 4E 46 49 47 55 52 41 54  49 4F 4E 53 20 46 4F 52  |NFIGURATIONS FOR|
00000F40: 20 45 41 43 48 20 42 4F  4F 54 20 44 49 53 4B 20  | EACH BOOT DISK |
00000F50: 59 4F 55 20 55 53 45 21  20 CA 55 53 54 20 50 52  |YOU USE! .UST PR|
00000F60: 4F 47 52 41 4D 20 59 4F  55 52 20 4B 45 59 53 00  |OGRAM YOUR KEYS.|
00000F70: AD 2B E8 03 99 22 41 4E  44 20 52 55 4E 20 49 54  |.+..."AND RUN IT|
00000F80: 20 4F 4E 43 45 21 20 CE  4F 20 4D 55 53 53 2C 20  | ONCE! .O MUSS, |
00000F90: 4E 4F 20 46 55 53 53 2C  20 41 4E 44 20 4E 4F 20  |NO FUSS, AND NO |
00000FA0: 4D 45 53 53 59 20 53 54  41 49 4E 53 21 00 F9 2B  |MESSY STAINS!..+|
00000FB0: F2 03 99 22 09 CB 45 59  C2 4F 4F 54 20 55 53 45  |..."..EY.OOT USE|
00000FC0: 53 20 41 20 4C 49 54 54  4C 45 20 4B 4E 4F 57 4E  |S A LITTLE KNOWN|
00000FD0: 20 41 54 54 52 49 42 55  54 45 20 4F 46 20 54 48  | ATTRIBUTE OF TH|
00000FE0: 45 20 C3 2D 31 32 38 20  42 4F 4F 54 20 55 50 20  |E .-128 BOOT UP |
00000FF0: 53 45 51 55 45 4E 43 45  2E 00 49 2C FC 03 99 22  |SEQUENCE..I,..."|
00001000: D4 48 49 53 20 53 45 51  55 45 4E 43 45 20 4C 4F  |.HIS SEQUENCE LO|
00001010: 4F 4B 53 20 46 4F 52 20  46 4F 55 52 20 42 59 54  |OKS FOR FOUR BYT|
00001020: 45 53 20 41 46 54 45 52  20 54 48 45 20 27 C3 C2  |ES AFTER THE '..|
00001030: CD 27 20 42 4F 4F 54 20  53 49 47 4E 41 54 55 52  |.' BOOT SIGNATUR|
00001040: 45 20 4F 4E 20 59 4F 55  52 00 9E 2C 06 04 99 22  |E ON YOUR..,..."|
00001050: 31 35 34 31 2C 20 31 35  37 31 2C 20 31 35 38 31  |1541, 1571, 1581|
00001060: 2C 20 4F 52 20 4F 54 48  45 52 20 43 4F 4D 50 41  |, OR OTHER COMPA|
00001070: 54 41 42 4C 45 20 42 4F  4F 54 20 44 49 53 4B 2E  |TABLE BOOT DISK.|
00001080: 20 C9 46 20 54 48 45 53  45 20 42 59 54 45 53 20  | .F THESE BYTES |
00001090: 41 52 45 20 4E 4F 54 20  5A 45 52 4F 53 2C 00 F0  |ARE NOT ZEROS,..|
000010A0: 2C 10 04 99 22 54 48 45  20 C4 49 53 4B 20 CF 50  |,..."THE .ISK .P|
000010B0: 45 52 41 54 49 4E 47 20  D3 59 53 54 45 4D 20 57  |ERATING .YSTEM W|
000010C0: 49 4C 4C 20 4C 4F 41 44  20 41 20 42 49 4E 41 52  |ILL LOAD A BINAR|
000010D0: 59 20 46 49 4C 45 20 49  4E 54 4F 20 C2 41 4E 4B  |Y FILE INTO .ANK|
000010E0: 20 30 2C 20 42 45 47 49  4E 4E 49 4E 47 20 41 54  | 0, BEGINNING AT|
000010F0: 00 46 2D 1A 04 99 22 D4  52 41 43 4B 20 31 2C 20  |.F-...".RACK 1, |
00001100: D3 45 43 54 4F 52 20 31  20 41 54 20 54 48 45 20  |.ECTOR 1 AT THE |
00001110: 41 44 44 52 45 53 53 20  53 50 45 43 49 46 49 45  |ADDRESS SPECIFIE|
00001120: 44 2E 20 D4 48 45 4E 20  49 54 20 57 49 4C 4C 20  |D. .HEN IT WILL |
00001130: 47 4F 20 4F 4E 20 54 4F  20 C2 4F 4F 54 20 57 48  |GO ON TO .OOT WH|
00001140: 41 54 45 56 45 52 00 98  2D 24 04 99 22 49 54 20  |ATEVER..-$.."IT |
00001150: 46 49 4E 44 53 20 41 53  20 41 20 46 49 4C 45 4E  |FINDS AS A FILEN|
00001160: 41 4D 45 2E 20 C9 46 20  59 4F 55 20 50 52 45 53  |AME. .F YOU PRES|
00001170: 45 4E 54 4C 59 20 48 41  56 45 20 41 20 57 4F 52  |ENTLY HAVE A WOR|
00001180: 4B 49 4E 47 20 42 4F 4F  54 20 53 45 43 54 4F 52  |KING BOOT SECTOR|
00001190: 20 4F 4E 20 59 4F 55 52  00 EB 2D 2E 04 99 22 44  | ON YOUR..-..."D|
000011A0: 49 53 4B 2C 20 54 48 49  53 20 50 52 4F 47 52 41  |ISK, THIS PROGRA|
000011B0: 4D 20 57 49 4C 4C 20 4E  4F 54 20 43 4F 52 52 55  |M WILL NOT CORRU|
000011C0: 50 54 20 49 54 2E 20 CD  41 4B 45 20 53 55 52 45  |PT IT. .AKE SURE|
000011D0: 20 59 4F 55 20 48 41 56  45 20 54 48 45 20 46 55  | YOU HAVE THE FU|
000011E0: 4E 43 54 49 4F 4E 20 4B  45 59 53 00 40 2E 38 04  |NCTION KEYS.@.8.|
000011F0: 99 22 50 52 4F 47 52 41  4D 4D 45 44 20 41 53 20  |."PROGRAMMED AS |
00001200: 59 4F 55 20 57 41 4E 54  20 54 48 45 4D 20 54 4F  |YOU WANT THEM TO|
00001210: 20 41 50 50 45 41 52 20  4F 4E 20 42 4F 4F 54 2D  | APPEAR ON BOOT-|
00001220: 55 50 20 42 45 46 4F 52  45 20 59 4F 55 20 52 55  |UP BEFORE YOU RU|
00001230: 4E 20 54 48 49 53 20 55  54 49 4C 49 54 59 21 22  |N THIS UTILITY!"|
00001240: 00 46 2E 42 04 8E 00 53  2E 4C 04 97 32 30 38 2C  |.F.B...S.L..208,|
00001250: 30 3A 8E 00 A4 2E 56 04  99 22 05 09 48 49 54 20  |0:....V.."..HIT |
00001260: 41 4E 59 20 4B 45 59 20  54 4F 20 43 4F 4E 54 49  |ANY KEY TO CONTI|
00001270: 4E 55 45 2E 2E 2E 20 5B  4F 52 20 D3 54 4F 50 20  |NUE... [OR .TOP |
00001280: 41 4E 44 20 CC 49 53 54  20 32 30 30 30 2D 20 46  |AND .IST 2000- F|
00001290: 4F 52 20 4D 4F 52 45 20  49 4E 46 4F 5D 2E 2E 2E  |OR MORE INFO]...|
000012A0: 2E 22 3A 8E 00 C6 2E 60  04 99 22 2E 2E 2E 53 4F  |.":....`.."...SO|
000012B0: 52 52 59 2E 2E 2E 43 2D  31 32 38 20 4F 4E 4C 59  |RRY...C-128 ONLY|
000012C0: 21 21 21 22 3A 80 00 EC  2E D0 07 8F 20 2A 2A 20  |!!!":....... ** |
000012D0: 4D 4F 52 45 20 4B 45 59  42 4F 4F 54 20 49 4E 46  |MORE KEYBOOT INF|
000012E0: 4F 52 4D 41 54 49 4F 4E  20 2A 2A 2A 00 2E 2F DA  |ORMATION ***../.|
000012F0: 07 3A 20 20 A4 20 43 52  45 41 54 45 20 41 20 FE  |.:  . CREATE A .|
00001300: 1B 41 42 4C 45 20 46 55  4E 43 54 49 91 20 F9 20  |.ABLE FUNCTI. . |
00001310: 43 91 46 49 47 55 52 41  54 49 91 20 49 4E 20 41  |C.FIGURATI. IN A|
00001320: 44 44 49 54 49 91 20 A4  20 FE 1B 49 4E 47 00 74  |DDITI. . ..ING.t|
00001330: 2F E4 07 3A 20 20 42 41  53 49 43 20 B0 20 4D 41  |/..:  BASIC . MA|
00001340: 43 48 49 4E 45 20 4C 41  4E 47 55 41 47 45 20 50  |CHINE LANGUAGE P|
00001350: 52 4F 47 52 41 4D 53 20  91 20 50 4F 57 45 52 20  |ROGRAMS . POWER |
00001360: 55 50 20 28 B0 20 42 59  20 49 53 53 55 49 4E 47  |UP (. BY ISSUING|
00001370: 20 54 48 45 00 B7 2F EE  07 3A 20 20 42 41 53 49  | THE../..:  BASI|
00001380: 43 20 37 2E 30 20 27 FE  1B 27 20 43 4F 4D 4D AF  |C 7.0 '..' COMM.|
00001390: 29 2C 20 8A 20 F9 FE 1B  20 57 49 54 48 20 59 4F  |), . ... WITH YO|
000013A0: 55 52 20 F9 53 20 43 91  46 49 47 55 52 45 44 20  |UR .S C.FIGURED |
000013B0: 54 48 45 20 57 41 59 00  01 30 F8 07 3A 20 20 59  |THE WAY..0..:  Y|
000013C0: 4F 55 27 44 20 4C 49 4B  45 20 A4 20 48 41 56 45  |OU'D LIKE . HAVE|
000013D0: 20 54 48 45 4D 20 91 20  59 4F 55 52 20 FE 1B 20  | THEM . YOUR .. |
000013E0: 44 49 53 4B 53 2E 20 54  48 49 53 20 55 54 49 4C  |DISKS. THIS UTIL|
000013F0: 49 54 59 20 4E 45 45 44  20 A8 20 52 45 53 49 44  |ITY NEED . RESID|
00001400: 45 00 44 30 02 08 3A 20  20 91 20 59 4F 55 52 20  |E.D0..:  . YOUR |
00001410: FE 1B 20 44 49 53 4B 53  20 81 20 54 48 49 53 20  |.. DISKS . THIS |
00001420: A4 20 57 B0 4B 2E 20 F9  FE 1B 20 46 49 4C 4C 53  |. W.K. ... FILLS|
00001430: 20 46 4F 55 52 20 42 59  54 45 53 20 54 48 41 54  | FOUR BYTES THAT|
00001440: 20 41 52 45 00 87 30 0C  08 3A 20 20 4E B0 4D 41  | ARE..0..:  N.MA|
00001450: 4C 4C 59 20 55 4E 55 53  45 44 20 91 20 59 4F 55  |LLY UNUSED . YOU|
00001460: 52 20 FE 1B 20 53 45 43  A4 52 20 57 49 54 48 20  |R .. SEC.R WITH |
00001470: 49 4E 81 4D 41 54 49 91  20 54 48 41 54 20 54 45  |IN.MATI. THAT TE|
00001480: 4C 4C 53 20 54 48 45 00  CA 30 16 08 3A 20 20 43  |LLS THE..0..:  C|
00001490: AB 31 32 38 20 A4 20 93  20 42 49 4E 41 52 59 20  |.128 . . BINARY |
000014A0: 43 4F 44 45 20 53 54 41  52 54 49 4E 47 20 91 20  |CODE STARTING . |
000014B0: 54 52 41 43 4B 20 31 2C  20 53 45 43 A4 52 20 31  |TRACK 1, SEC.R 1|
000014C0: 20 28 57 48 49 43 48 20  49 53 00 16 31 20 08 3A  | (WHICH IS..1 .:|
000014D0: 20 20 48 41 52 44 4C 59  20 45 56 45 52 20 55 53  |  HARDLY EVER US|
000014E0: 45 44 20 45 49 54 48 45  52 29 2E 20 54 48 45 20  |ED EITHER). THE |
000014F0: 42 49 4E 41 52 59 20 43  4F 44 45 20 49 4E 20 54  |BINARY CODE IN T|
00001500: 48 49 53 20 43 41 53 45  20 57 49 4C 4C 20 42 45  |HIS CASE WILL BE|
00001510: 20 54 48 45 20 F9 00 53  31 2A 08 3A 20 20 96 49  | THE ..S1*.:  .I|
00001520: 4E 49 54 49 91 53 20 54  48 41 54 20 57 49 4C 4C  |NITI.S THAT WILL|
00001530: 20 93 20 B5 4F 20 4D 45  4D B0 59 20 57 48 45 52  | . .O MEM.Y WHER|
00001540: 45 20 54 48 45 20 4E B0  4D 41 4C 20 F9 20 43 4F  |E THE N.MAL . CO|
00001550: 44 45 53 00 99 31 34 08  3A 20 20 52 45 53 49 44  |DES..14.:  RESID|
00001560: 45 2E 20 54 48 45 20 50  52 4F 47 52 41 4D 20 57  |E. THE PROGRAM W|
00001570: 49 4C 4C 20 41 4C E6 20  42 4F 54 48 20 4F 46 20  |ILL AL. BOTH OF |
00001580: 54 48 45 53 45 20 54 52  41 43 4B 53 20 49 4E 20  |THESE TRACKS IN |
00001590: 54 48 45 20 42 4C 4F 43  4B 00 D9 31 3E 08 3A 20  |THE BLOCK..1>.: |
000015A0: 20 41 4C 4C 4F 43 41 54  49 91 20 4D 41 50 2C 20  | ALLOCATI. MAP, |
000015B0: 42 55 54 20 54 48 49 53  20 41 4C 4C 4F 43 41 54  |BUT THIS ALLOCAT|
000015C0: 49 91 20 57 49 4C 4C 20  A8 20 53 55 52 56 49 56  |I. WILL . SURVIV|
000015D0: 45 20 41 20 27 F3 27 20  B0 00 21 32 48 08 3A 20  |E A '.' ..!2H.: |
000015E0: 20 27 C5 49 44 41 54 45  27 2E 20 48 4F 57 45 56  | '.IDATE'. HOWEV|
000015F0: 45 52 20 54 48 45 53 45  20 53 45 43 A4 52 53 20  |ER THESE SEC.RS |
00001600: 53 48 4F 55 4C 44 20 8F  41 49 4E 20 49 4E 54 41  |SHOULD .AIN INTA|
00001610: 43 54 20 41 53 20 4C 4F  4E 47 20 41 53 20 59 4F  |CT AS LONG AS YO|
00001620: 55 00 6A 32 52 08 3A 20  20 EB 4E 27 54 20 52 45  |U.j2R.:  .N'T RE|
00001630: 41 4C 4C 59 20 46 49 4C  4C 20 55 50 20 59 4F 55  |ALLY FILL UP YOU|
00001640: 52 20 44 49 53 4B 53 2E  20 49 20 55 53 45 20 41  |R DISKS. I USE A|
00001650: 20 54 52 49 43 4B 20 A4  20 4C 4F 43 4B 20 54 48  | TRICK . LOCK TH|
00001660: 45 53 45 20 53 45 43 A4  52 53 00 9A 32 5C 08 3A  |ESE SEC.RS..2\.:|
00001670: 20 20 53 4F 20 49 20 EB  4E 27 54 20 48 41 56 45  |  SO I .N'T HAVE|
00001680: 20 A4 20 57 B0 52 59 20  41 42 4F 55 54 20 4F 56  | . W.RY ABOUT OV|
00001690: 45 52 57 52 49 54 49 4E  47 2E 00 DF 32 66 08 3A  |ERWRITING...2f.:|
000016A0: 20 20 20 20 20 20 20 20  20 20 46 49 52 53 54 20  |          FIRST |
000016B0: 57 52 49 54 45 20 41 20  44 55 4D 4D 59 20 46 49  |WRITE A DUMMY FI|
000016C0: 4C 45 20 A4 20 59 4F 55  52 20 44 49 53 4B 20 57  |LE . YOUR DISK W|
000016D0: 49 54 48 20 41 20 4E 41  4D 45 20 4C 49 4B 45 00  |ITH A NAME LIKE.|
000016E0: 0B 33 70 08 3A 20 20 27  F9 4C 4F 43 4B 27 20 B0  |.3p.:  '.LOCK' .|
000016F0: 20 53 4F 4D 45 54 48 49  4E 47 2E 20 54 48 45 20  | SOMETHING. THE |
00001700: 43 4F 4D 4D AF 53 20 41  52 45 3A 00 2A 33 7A 08  |COMM.S ARE:.*3z.|
00001710: 3A 20 20 9F 32 2C 38 2C  32 2C 22 4B 45 59 4C 4F  |:  .2,8,2,"KEYLO|
00001720: 43 4B 2C 55 2C 57 22 3A  A0 32 00 6C 33 84 08 3A  |CK,U,W":.2.l3..:|
00001730: 20 20 54 48 49 53 20 57  49 4C 4C 20 57 52 49 54  |  THIS WILL WRIT|
00001740: 45 20 41 20 27 55 53 45  52 27 20 46 49 4C 45 20  |E A 'USER' FILE |
00001750: 49 4E 20 54 48 45 20 EE  2E 20 57 49 54 48 20 41  |IN THE .. WITH A|
00001760: 20 53 45 43 A4 52 20 45  44 49 A4 52 00 A4 33 8E  | SEC.R EDI.R..3.|
00001770: 08 3A 20 20 E6 20 54 48  49 53 20 46 49 4C 45 20  |.:  . THIS FILE |
00001780: 91 20 54 48 45 20 EE 20  54 52 41 43 4B 20 AF 20  |. THE . TRACK . |
00001790: 43 48 41 4E 47 45 20 54  48 45 20 42 59 54 45 20  |CHANGE THE BYTE |
000017A0: 54 48 41 54 00 E9 33 98  08 3A 20 20 53 48 4F 57  |THAT..3..:  SHOW|
000017B0: 53 20 54 48 45 20 4C 4F  43 41 54 49 91 20 4F 46  |S THE LOCATI. OF|
000017C0: 20 54 48 45 20 46 49 4C  45 20 A4 20 54 52 41 43  | THE FILE . TRAC|
000017D0: 4B 20 31 2C 20 53 45 43  A4 52 20 30 2E 20 52 45  |K 1, SEC.R 0. RE|
000017E0: 50 45 41 54 20 54 48 49  53 00 2A 34 A2 08 3A 20  |PEAT THIS.*4..: |
000017F0: 20 FB 20 41 20 44 8B 46  45 52 45 4E 54 20 46 49  | . A D.FERENT FI|
00001800: C3 41 4D 45 20 81 20 54  52 41 43 4B 20 31 2C 20  |.AME . TRACK 1, |
00001810: 53 45 43 A4 52 20 31 2E  20 59 4F 55 20 43 41 4E  |SEC.R 1. YOU CAN|
00001820: 20 4D 41 4B 45 20 54 48  49 53 00 72 34 AC 08 3A  | MAKE THIS.r4..:|
00001830: 20 20 41 20 4C 49 54 54  4C 45 20 4D B0 45 20 45  |  A LITTLE M.E E|
00001840: 4C 45 47 41 4E 54 20 8B  20 59 4F 55 20 43 48 41  |LEGANT . YOU CHA|
00001850: 4E 47 45 20 54 48 45 20  46 49 4C 45 20 54 59 50  |NGE THE FILE TYP|
00001860: 45 53 20 A4 20 24 43 35  20 57 48 49 43 48 20 41  |ES . $C5 WHICH A|
00001870: 52 45 00 BA 34 B6 08 3A  20 20 4C 4F 43 4B 45 44  |RE..4..:  LOCKED|
00001880: 20 27 43 42 4D 27 20 46  49 4C 45 53 2E 20 4E 4F  | 'CBM' FILES. NO|
00001890: 57 20 59 4F 55 20 43 41  4E 20 53 55 52 56 49 56  |W YOU CAN SURVIV|
000018A0: 45 20 C5 49 44 41 54 49  91 53 2E 20 49 20 4D 41  |E .IDATI.S. I MA|
000018B0: 59 20 42 45 20 57 52 91  47 2C 00 04 35 C0 08 3A  |Y BE WR.G,..5..:|
000018C0: 20 20 42 55 54 20 49 20  42 45 4C 49 45 56 45 20  |  BUT I BELIEVE |
000018D0: 54 48 41 54 20 57 49 54  48 20 41 20 31 35 38 31  |THAT WITH A 1581|
000018E0: 20 44 52 49 56 45 20 59  4F 55 20 91 4C 59 20 48  | DRIVE YOU .LY H|
000018F0: 41 56 45 20 A4 20 57 52  49 54 45 20 91 45 20 44  |AVE . WRITE .E D|
00001900: 55 4D 4D 59 00 45 35 CA  08 3A 20 20 46 49 4C 45  |UMMY.E5..:  FILE|
00001910: 20 AF 20 43 48 41 4E 47  45 20 54 48 45 20 53 49  | . CHANGE THE SI|
00001920: 5A 45 20 42 59 54 45 20  49 4E 20 54 48 45 20 EE  |ZE BYTE IN THE .|
00001930: 20 A4 20 32 2E 20 54 48  49 53 20 49 53 20 42 45  | . 2. THIS IS BE|
00001940: 43 41 55 53 45 00 8E 35  D4 08 3A 20 20 54 48 45  |CAUSE..5..:  THE|
00001950: 20 31 35 38 31 20 EB 53  20 57 52 49 54 45 53 20  | 1581 .S WRITES |
00001960: 46 49 4C 45 53 20 49 4E  20 4C 49 4E 45 41 52 20  |FILES IN LINEAR |
00001970: B0 44 45 52 20 AF 20 49  54 20 57 4F 55 4C 44 20  |.DER . IT WOULD |
00001980: BD 45 43 54 20 54 48 45  20 53 45 43 91 44 00 D1  |.ECT THE SEC.D..|
00001990: 35 DE 08 3A 20 20 53 45  43 A4 52 20 4F 46 20 41  |5..:  SEC.R OF A|
000019A0: 20 54 57 4F 20 42 4C 4F  43 4B 20 46 49 4C 45 20  | TWO BLOCK FILE |
000019B0: A4 20 42 45 20 91 20 54  48 45 20 82 20 BC 49 43  |. BE . THE . .IC|
000019C0: 41 4C 20 53 45 43 A4 52  2C 20 57 48 45 52 45 41  |AL SEC.R, WHEREA|
000019D0: 53 00 FF 35 E8 08 3A 20  20 54 48 45 20 31 35 34  |S..5..:  THE 154|
000019E0: 31 20 AF 20 31 35 37 31  20 55 53 45 20 41 4E 20  |1 . 1571 USE AN |
000019F0: B5 45 52 4C 41 43 45 20  4D 45 54 48 4F 44 2E 00  |.ERLACE METHOD..|
00001A00: 45 36 F2 08 3A 20 20 20  20 20 20 20 20 20 20 49  |E6..:          I|
00001A10: 20 48 4F 50 45 20 54 48  49 53 20 53 45 52 56 45  | HOPE THIS SERVE|
00001A20: 53 20 59 4F 55 20 57 45  4C 4C 2E 20 8B 20 59 4F  |S YOU WELL. . YO|
00001A30: 55 20 48 41 56 45 20 41  4E 59 20 51 55 45 53 54  |U HAVE ANY QUEST|
00001A40: 49 91 53 20 B0 00 84 36  FC 08 3A 20 20 53 55 47  |I.S ...6..:  SUG|
00001A50: 47 45 53 54 49 91 53 20  4C 45 41 56 45 20 45 AB  |GESTI.S LEAVE E.|
00001A60: 4D 41 49 4C 20 91 20 54  48 45 20 42 43 53 AD 43  |MAIL . THE BCS.C|
00001A70: 55 47 20 42 42 53 20 36  31 37 AB 37 32 39 AB 37  |UG BBS 617.729.7|
00001A80: 34 33 30 2E 00 8A 36 06  09 3A 00 CD 36 10 09 3A  |430...6..:..6..:|
00001A90: 20 20 47 45 FE 24 20 53  55 4C 4C 49 56 41 4E 2C  |  GE.$ SULLIVAN,|
00001AA0: 20 E1 20 36 34 35 2C 20  4E 45 45 44 48 41 4D 20  | . 645, NEEDHAM |
00001AB0: 48 45 49 47 48 54 53 2C  20 4D 41 2E 20 30 32 31  |HEIGHTS, MA. 021|
00001AC0: 39 34 20 20 20 20 31 AD  31 33 AD 39 30 00 00 00  |94    1.13.90...|

..<.... N$="0:KEYBOOT V2":OPEN15,8,15,"S
"+N$:SAVEN$,8:DCLOSE.J.... MAKES BOOTABL
E FUNCTION KEY DEFINITIONS.....X.B(48):.
(X..8).1120.E.(.. BY GEOFF SULLIVAN 1/7/
90 AFTER MANY TRIALS AND TRIBULATIONS...
2.. AND HELP FROM SUSAN WHEN I NEEDED IT
 MOST!...<.:...F.:.8.P.. WORKS IN 128 MO
DE ON ANY DRIVE TYPE OR DEVICE #.>.Z.:._
.D...0:.%:."...";:DV.8:NU$.G(0).M.N..780
:.950...X..KY%(255):.BY.0.254:KY%(BY).B(
BY.4096)...........K$."":.BY.10.254.N...
. TRAP CURSOR CONTROLS......KY%(BY).13.K
Y%(BY).95:.150:. RETURN......KY%(BY).19.
KY%(BY).94:.150:. HOME.G....KY%(BY).27.K
Y%(BY).92:.150:. ESCAPE.V....KY%(BY).31.
KY%(BY).190:.150:. MISC CURSOR......KY%(
BY).147.KY%(BY).250:.150:. CLSCRN......K
Y%(BY).127.KY%(BY).160.KY%(BY).190:.150:
. MISC CURSOR.....K$.K$.G(KY%(BY)):.:.G(
7);:.1110:..A$:.G(7)... .:......"....".V
...."...THESE ARE THE CURRENT FUNCTION K
EY DEFINITIONS......".. _ = .RETURN.  ^ 
= .HOME.  \ = .ESCAPE.  . = .CLRSCRN.  .
 = .MISC CURSOR CONTROLS. "......".":.N.
1.8:."..KEY   "N:.:."..SHIFT/RUN ":."..H
ELP      ".. H..".......     "G(27)"T".-
 R.A.1:.N.0.9:.J(K$,A,KY%(N)).> ..A.A.KY
%(N):..D ..:.N ...1100.. ..."...........
........IF YOU WISH TO CHANGE ANY OF THE
SE KEYS, NOW IS THE TIME TO BAIL OUT!..!
..."USE A PROGRAM LIKE RANDY WINCHESTER'
S KEYDOS COMPILER TO CHANGE THE HELP AND
.R!..."SHIFT/RUN KEYS. THE KEYS 1 THROUG
H 8 CAN ALSO BE CHANGED MANUALLY USING T
HE..!..."BASIC 'KEY' COMMAND. THEN RUN K
EYBOOT AGAIN. OTHERWISE STAY ONBOARD!.U!
".."......JUMP SHIP?"G(143)" (Y/N)":..A$
:.A$.."Y".310.B"#..G(27)"A....S     P   
  L     A     S     H     !     !"G(27)"
@"G(27)"C"G(27)"I"G(27)"I"G(27)"I"G(27)"
I"._"$..710:..1:.".."G(27)"I":..E",.:.."
6..1100:.".................."G(27)"@".C"
@.."INSTALL KEYBOOT ON DISK IN DRIVE # 8
  .....";DV.."J..DV.8.DV.12.."..":.320..
#K.."IF YOU ARE ABSOLUTELY SURE PRESS AL
T KEY":.211,8..#T.:..#^..15,DV,15,"IO".B
#H..15,"B-F 0 1 0".V#R..15,"B-F 0 1 1".F
#|..2,DV,2,"#".{#...15,"U1 2 0 1 0"..#..
.15,"B-P 2 0"..#...#2,A$,B$,C$:D$.A$.B$.
C$:.D$."CBM".440:U520.C#..:.I#..:.Q#..."
...$B.."THIS DISK DOES HAVE A BOOT SECTO
R ON IT. THE KEYBOOT PROGRAM WILL NOT.G$
L.."OVERWRITE IT BUT, RATHER, ADD A FEW 
BYTES OF MACHINE LANGUAGE SO IT..$V.."WI
LL NOW CONFIGURE YOUR FUNCTION KEYS, AS 
YOU WISH, AUTOMATICALLY ON.C$..."BOOT UP
!!".I$..:..$...15,"B-P 2 0":.2,"CBM";NU$
;G(16);NU$;G(1);..%...540..%..."..THIS D
ISK DOES NOT HAVE A BOOT SECTOR. THIS PR
OGRAM WILL WRITE A CRUDE BOOT     SECTOR
 THAT WILL BOOT THE KEY FUNCTIONS AND RE
TURN TO BASIC..S%...15,"B-P 2 0":.2,"CBM
";NU$;G(16);NU$;G(1);NU$;NU$;G(96);..%..
.15,"U2 2 0 1 0":.690..&&..BY.0.254:KY%(
BY).B(BY.4096):...&0.:.$&:..15,DV,15.4&D
..2,DV,2,"#".A&N..15,"B-P 2 0":.BY.0.254
:.2,G(KY%(BY));:..V&X..15,"U2 2 0 1 1".
&B..690..&L.:..&V..15,DV,15..&...15,"B-A
 0 1 0"..&...15,"B-A 0 1 1":.690.F&..:..
&..."...CHECKING DISK ERROR CHANNEL.....
"DS$;:...&..:..'.. 2: 15:...'..:.-'F.V.1
5:X.65000:K.3:J.50000.9'P.. . V.1.O'Z.X.
X.1050:V.V.1:.V.G'..Z 2,X,K,1,J,50000,3.
.'..Z1,X.50000,1,2,J,50000,2,1000:...'..
...'..:..'..:..'... DRAW TITLE SCREEN..'
*..0:ML.40:CT$."..................":.0,1
:.4,1..(4.MD.40:CT$.CT$.CT$." ":ML.80:.5
:.6,1:X1.31:X2.34:X3.32.((>..5,4._(H.MS$
."......................................
.":.910..(R..N.1.6:MS$.".               
                      .":.910:..V(\.MS$.
".......................................
":.910..(F..5,8:.1,X1,1,"C-128 KEYBOOT V
2"..)P..5,9:.1,X2,3,"CREATED BY".:)Z..5,
3:.1,X3,4,"GEOFF SULLIVAN".|)...5,8:.1,2
.MD.2,6,"READING FUNCTION KEYS....PLEASE
 WAIT":.:.:...)... PRINT STRING CENTERED
..)...H(CT$,(ML.C(MS$)).2);MS$:..L)...1,
1,CP.1,MS$:..R)..:."*..."...IF YOU DON'T
 LIKE THE WAY YOUR C-128 FUNCTION KEYS A
RE CONFIGURED WHEN.U*..."YOU BOOT UP YOU
R COMPUTER, AND LOAD-ING SOME KIND OF CO
NFIGURATION OR KEYDOS.H*J.."FILE EVERY T
IME IS A PAIN, THEN TRY USING KEYBOOT! K
EYBOOT WILL ALLOW YOU TO..+T.."CONFIGURE
 YOUR FUNCTION KEYS AND BOOT YOUR DISK A
T THE SAME TIME! YOU CAN HAVE.O+..."DIFF
ERENT CONFIGURATIONS FOR EACH BOOT DISK 
YOU USE! JUST PROGRAM YOUR KEYS..+..."AN
D RUN IT ONCE! NO MUSS, NO FUSS, AND NO 
MESSY STAINS!..+...".KEYBOOT USES A LITT
LE KNOWN ATTRIBUTE OF THE C-128 BOOT UP 
SEQUENCE..I,..."THIS SEQUENCE LOOKS FOR 
FOUR BYTES AFTER THE 'CBM' BOOT SIGNATUR
E ON YOUR..,..."1541, 1571, 1581, OR OTH
ER COMPATABLE BOOT DISK. IF THESE BYTES 
ARE NOT ZEROS,..,..."THE DISK OPERATING 
SYSTEM WILL LOAD A BINARY FILE INTO BANK
 0, BEGINNING AT.F-..."TRACK 1, SECTOR 1
 AT THE ADDRESS SPECIFIED. THEN IT WILL 
GO ON TO BOOT WHATEVER..-$.."IT FINDS AS
 A FILENAME. IF YOU PRESENTLY HAVE A WOR
KING BOOT SECTOR ON YOUR..-..."DISK, THI
S PROGRAM WILL NOT CORRUPT IT. MAKE SURE
 YOU HAVE THE FUNCTION KEYS.@.8.."PROGRA
MMED AS YOU WANT THEM TO APPEAR ON BOOT-
UP BEFORE YOU RUN THIS UTILITY!".F.B...S
.L..208,0:....V.."..HIT ANY KEY TO CONTI
NUE... [OR STOP AND LIST 2000- FOR MORE 
INFO]....":..F.`.."...SORRY...C-128 ONLY
!!!":....P.. ** MORE KEYBOOT INFORMATION
 ***../Z.:  . CREATE A ..ABLE FUNCTI. . 
C.FIGURATI. IN ADDITI. . ..ING.T/..:  BA
SIC . MACHINE LANGUAGE PROGRAMS . POWER 
UP (. BY ISSUING THE../..:  BASIC 7.0 '.
.' COMM.), . ... WITH YOUR .S C.FIGURED 
THE WAY..0..:  YOU'D LIKE . HAVE THEM . 
YOUR .. DISKS. THIS UTILITY NEED . RESID
E.D0..:  . YOUR .. DISKS . THIS . W.K. .
.. FILLS FOUR BYTES THAT ARE..0..:  N.MA
LLY UNUSED . YOUR .. SEC.R WITH IN.MATI.
 THAT TELLS THE.J0..:  C.128 . . BINARY 
CODE STARTING . TRACK 1, SEC.R 1 (WHICH 
IS..1 .:  HARDLY EVER USED EITHER). THE 
BINARY CODE IN THIS CASE WILL BE THE ..S
1*.:  .INITI.S THAT WILL . .O MEM.Y WHER
E THE N.MAL . CODES..14.:  RESIDE. THE P
ROGRAM WILL AL. BOTH OF THESE TRACKS IN 
THE BLOCK.Y1>.:  ALLOCATI. MAP, BUT THIS
 ALLOCATI. WILL . SURVIVE A '.' ..!2H.: 
 'EIDATE'. HOWEVER THESE SEC.RS SHOULD .
AIN INTACT AS LONG AS YOU.J2R.:  .N'T RE
ALLY FILL UP YOUR DISKS. I USE A TRICK .
 LOCK THESE SEC.RS..2\.:  SO I .N'T HAVE
 . W.RY ABOUT OVERWRITING...2F.:        
  FIRST WRITE A DUMMY FILE . YOUR DISK W
ITH A NAME LIKE..3P.:  '.LOCK' . SOMETHI
NG. THE COMM.S ARE:.*3Z.:  .2,8,2,"KEYLO
CK,U,W": 2.L3..:  THIS WILL WRITE A 'USE
R' FILE IN THE .. WITH A SEC.R EDI.R..3.
.:  . THIS FILE . THE . TRACK . CHANGE T
HE BYTE THAT..3..:  SHOWS THE LOCATI. OF
 THE FILE . TRACK 1, SEC.R 0. REPEAT THI
S.*4..:  . A D.FERENT FICAME . TRACK 1, 
SEC.R 1. YOU CAN MAKE THIS.R4..:  A LITT
LE M.E ELEGANT . YOU CHANGE THE FILE TYP
ES . $C5 WHICH ARE..4..:  LOCKED 'CBM' F
ILES. NOW YOU CAN SURVIVE EIDATI.S. I MA
Y BE WR.G,..5..:  BUT I BELIEVE THAT WIT
H A 1581 DRIVE YOU .LY HAVE . WRITE .E D
UMMY.E5J.:  FILE . CHANGE THE SIZE BYTE 
IN THE . . 2. THIS IS BECAUSE..5T.:  THE
 1581 .S WRITES FILES IN LINEAR .DER . I
T WOULD .ECT THE SEC.D.Q5..:  SEC.R OF A
 TWO BLOCK FILE . BE . THE . .ICAL SEC.R
, WHEREAS..5..:  THE 1541 . 1571 USE AN 
.ERLACE METHOD..E6..:          I HOPE TH
IS SERVES YOU WELL. . YOU HAVE ANY QUEST
I.S ...6..:  SUGGESTI.S LEAVE E.MAIL . T
HE BCS.CUG BBS 617.729.7430...6..:.M6..:
  GE.$ SULLIVAN, . 645, NEEDHAM HEIGHTS,
 MA. 02194    1.13.90...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL