00000000: 01 1C 4A 1C 0A 00 8F 20 2A 2A 2A 20 20 50 52 4F |..J.... *** PRO|
00000010: 47 52 41 4D 20 43 52 45 41 54 45 53 20 41 20 43 |GRAM CREATES A C|
00000020: 2D 31 32 38 20 42 4F 4F 54 20 44 49 53 4B 20 54 |-128 BOOT DISK T|
00000030: 4F 20 4C 4F 41 44 20 26 20 52 55 4E 20 27 48 49 |O LOAD & RUN 'HI|
00000040: 27 20 46 49 4C 45 20 2A 2A 2A 00 8F 1C 14 00 83 |' FILE ***......|
00000050: 36 37 2C 36 36 2C 37 37 2C 30 2C 30 2C 30 2C 30 |67,66,77,0,0,0,0|
00000060: 2C 30 2C 30 2C 31 32 30 2C 33 32 2C 31 33 32 2C |,0,0,120,32,132,|
00000070: 32 35 35 2C 32 33 34 2C 32 33 34 2C 32 33 34 2C |255,234,234,234,|
00000080: 32 33 34 2C 32 33 34 2C 31 36 39 2C 31 39 35 00 |234,234,169,195.|
00000090: DC 1C 1E 00 83 31 34 31 2C 32 33 38 2C 32 35 35 |.....141,238,255|
000000A0: 2C 31 36 39 2C 38 2C 31 34 31 2C 32 33 39 2C 32 |,169,8,141,239,2|
000000B0: 35 35 2C 31 36 39 2C 30 2C 31 34 31 2C 32 34 30 |55,169,0,141,240|
000000C0: 2C 32 35 35 2C 31 36 39 2C 31 35 2C 31 34 31 2C |,255,169,15,141,|
000000D0: 33 32 2C 32 30 38 2C 31 36 39 2C 36 00 2A 1D 28 |32,208,169,6.*.(|
000000E0: 00 83 31 34 31 2C 33 33 2C 32 30 38 2C 31 36 35 |..141,33,208,165|
000000F0: 2C 32 31 33 2C 32 30 31 2C 37 32 2C 32 30 38 2C |,213,201,72,208,|
00000100: 31 2C 39 36 2C 31 36 39 2C 37 32 2C 31 34 31 2C |1,96,169,72,141,|
00000110: 32 33 33 2C 37 2C 31 36 39 2C 37 33 2C 31 34 31 |233,7,169,73,141|
00000120: 2C 32 33 34 2C 37 2C 31 36 39 00 69 1D 32 00 83 |,234,7,169.i.2..|
00000130: 31 2C 31 36 32 2C 38 2C 31 36 30 2C 32 35 35 2C |1,162,8,160,255,|
00000140: 33 32 2C 31 38 36 2C 32 35 35 2C 33 32 2C 31 39 |32,186,255,32,19|
00000150: 32 2C 32 35 35 2C 31 36 39 2C 32 2C 31 36 32 2C |2,255,169,2,162,|
00000160: 32 33 33 2C 31 36 30 2C 37 00 B7 1D 3C 00 83 33 |233,160,7...<..3|
00000170: 32 2C 31 38 39 2C 32 35 35 2C 31 36 39 2C 30 2C |2,189,255,169,0,|
00000180: 33 32 2C 32 31 33 2C 32 35 35 2C 31 34 32 2C 31 |32,213,255,142,1|
00000190: 36 2C 31 38 2C 31 34 30 2C 31 37 2C 31 38 2C 33 |6,18,140,17,18,3|
000001A0: 32 2C 32 33 31 2C 32 35 35 2C 31 36 39 2C 34 2C |2,231,255,169,4,|
000001B0: 31 33 33 2C 32 30 38 00 02 1E 46 00 83 31 36 39 |133,208...F..169|
000001C0: 2C 38 32 2C 31 34 31 2C 37 34 2C 33 2C 31 36 39 |,82,141,74,3,169|
000001D0: 2C 38 35 2C 31 34 31 2C 37 35 2C 33 2C 31 36 39 |,85,141,75,3,169|
000001E0: 2C 37 38 2C 31 34 31 2C 37 36 2C 33 2C 31 36 39 |,78,141,76,3,169|
000001F0: 2C 31 33 2C 31 34 31 2C 37 37 2C 33 2C 39 36 2C |,13,141,77,3,96,|
00000200: 2D 31 00 0E 1E 50 00 86 41 28 31 32 31 29 00 30 |-1...P..A(121).0|
00000210: 1E 5A 00 81 20 4D 58 B2 31 A4 31 32 31 3A 87 53 |.Z.. MX.1.121:.S|
00000220: 3A 58 B2 58 AA 53 3A 8B 53 B2 AB 31 A7 31 31 30 |:X.X.S:.S..1.110|
00000230: 00 3E 1E 64 00 41 28 4D 58 29 B2 53 3A 82 00 6B |.>.d.A(MX).S:..k|
00000240: 1E 6E 00 8B 58 B3 B1 31 34 37 33 33 A7 99 22 45 |.n..X..14733.."E|
00000250: 52 52 4F 52 20 49 4E 20 44 41 54 41 20 53 54 41 |RROR IN DATA STA|
00000260: 54 45 4D 45 4E 54 53 2E 22 3A 90 00 99 1E 78 00 |TEMENTS.":....x.|
00000270: 99 22 93 99 11 11 45 4E 54 45 52 20 59 4F 55 52 |."....ENTER YOUR|
00000280: 20 50 52 45 46 45 52 52 45 44 20 43 4F 4C 4F 52 | PREFERRED COLOR|
00000290: 20 43 48 4F 49 43 45 53 22 00 C9 1E 82 00 99 22 | CHOICES"......"|
000002A0: 11 11 23 20 4F 46 20 53 43 52 45 45 4E 20 43 4F |..# OF SCREEN CO|
000002B0: 4C 4F 52 22 3B 3A 85 41 28 34 30 29 3A 97 35 33 |LOR";:.A(40):.53|
000002C0: 32 38 31 2C 41 28 34 30 29 00 F8 1E 8C 00 99 22 |281,A(40)......"|
000002D0: 11 23 20 4F 46 20 42 4F 52 44 45 52 20 43 4F 4C |.# OF BORDER COL|
000002E0: 4F 52 22 3B 3A 85 41 28 33 35 29 3A 97 35 33 32 |OR";:.A(35):.532|
000002F0: 38 30 2C 41 28 33 35 29 00 2E 1F 96 00 99 22 11 |80,A(35)......".|
00000300: 41 52 45 20 54 48 45 53 45 20 41 43 43 45 50 54 |ARE THESE ACCEPT|
00000310: 41 42 4C 45 3F 20 28 59 2F 4E 29 22 3B 3A 85 41 |ABLE? (Y/N)";:.A|
00000320: 24 3A 8B 41 24 B3 B1 22 59 22 A7 31 32 30 00 4B |$:.A$.."Y".120.K|
00000330: 1F A0 00 97 35 33 32 38 30 2C 31 35 3A 97 35 33 |....53280,15:.53|
00000340: 32 38 31 2C 36 3A 99 22 93 05 22 00 7E 1F AA 00 |281,6:."..".~...|
00000350: 99 22 11 11 12 49 4E 53 45 52 54 20 41 20 46 4F |."...INSERT A FO|
00000360: 52 4D 41 54 54 45 44 20 44 49 53 4B 20 54 4F 20 |RMATTED DISK TO |
00000370: 52 45 43 45 49 56 45 20 44 41 54 41 20 22 00 AF |RECEIVE DATA "..|
00000380: 1F B4 00 99 22 12 20 20 20 20 20 20 20 20 20 20 |....". |
00000390: 54 48 45 4E 20 50 52 45 53 53 20 5B 52 45 54 55 |THEN PRESS [RETU|
000003A0: 52 4E 5D 20 20 20 20 20 20 20 20 20 20 20 22 00 |RN] ".|
000003B0: C6 1F BE 00 A1 52 24 3A 8B 52 24 B3 B1 C7 28 31 |.....R$:.R$...(1|
000003C0: 33 29 A7 31 39 30 00 FD 1F C8 00 99 22 11 11 57 |3).190......"..W|
000003D0: 4F 52 4B 49 4E 47 2E 2E 2E 2E 22 3A 9F 31 35 2C |ORKING....":.15,|
000003E0: 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 23 22 3A |8,15:.5,8,5,"#":|
000003F0: 98 31 35 2C 22 42 2D 50 3A 35 2C 30 22 00 1B 20 |.15,"B-P:5,0".. |
00000400: D2 00 81 44 B2 31 A4 4D 58 3A 98 35 2C C7 28 41 |...D.1.MX:.5,.(A|
00000410: 28 44 29 29 3B 3A 82 44 3A 98 35 00 3C 20 DC 00 |(D));:.D:.5.< ..|
00000420: 98 31 35 2C 22 4D 2D 57 3B 22 C7 28 30 29 C7 28 |.15,"M-W;".(0).(|
00000430: 35 29 3B 31 3B 30 3B C7 28 36 37 29 00 66 20 E6 |5);1;0;.(67).f .|
00000440: 00 98 31 35 2C 22 42 2D 50 3A 35 2C 30 22 3A 98 |..15,"B-P:5,0":.|
00000450: 31 35 2C 22 55 32 3A 35 2C 30 2C 31 2C 30 22 3A |15,"U2:5,0,1,0":|
00000460: A0 35 3A A0 31 35 00 87 20 F0 00 9F 31 35 2C 38 |.5:.15.. ...15,8|
00000470: 2C 31 35 3A 84 31 35 2C 41 24 2C 42 24 2C 43 24 |,15:.15,A$,B$,C$|
00000480: 2C 44 24 3A A0 31 35 00 AC 20 FA 00 8B 41 24 B2 |,D$:.15.. ...A$.|
00000490: 22 30 30 22 A7 99 22 42 4F 4F 54 20 54 52 41 43 |"00".."BOOT TRAC|
000004A0: 4B 20 57 52 49 54 54 45 4E 22 3A 80 00 D9 20 04 |K WRITTEN":... .|
000004B0: 01 50 B5 22 12 41 4E 20 45 52 52 4F 52 20 48 41 |.P.".AN ERROR HA|
000004C0: 53 20 4F 43 43 55 52 52 45 44 2E 22 3A 99 41 24 |S OCCURRED.":.A$|
000004D0: 2C 42 24 2C 43 24 2C 44 24 00 DF 20 0E 01 80 00 |,B$,C$,D$.. ....|
000004E0: 00 00 |.. |
..J.... *** PROGRAM CREATES A C-128 BOO
T DISK TO LOAD & RUN 'HI' FILE ***......
67,66,77,0,0,0,0,0,0,120,32,132,255,234,
234,234,234,234,169,195......141,238,255
,169,8,141,239,255,169,0,141,240,255,169
,15,141,32,208,169,6.*.(..141,33,208,165
,213,201,72,208,1,96,169,72,141,233,7,16
9,73,141,234,7,169.I.2..1,162,8,160,255,
32,186,255,32,192,255,169,2,162,233,160,
7...<..32,189,255,169,0,32,213,255,142,1
6,18,140,17,18,32,231,255,169,4,133,208.
..F..169,82,141,74,3,169,85,141,75,3,169
,78,141,76,3,169,13,141,77,3,96,-1...P..
A(121).0.Z.. MX.1.121:.S:X.X.S:.S..1.110
.>.D.A(MX).S:..K.N..X..14733.."ERROR IN
DATA STATEMENTS.":....X.."....ENTER YOUR
PREFERRED COLOR CHOICES".I...."..# OF S
CREEN COLOR";:.A(40):.53281,A(40)......"
.# OF BORDER COLOR";:.A(35):.53280,A(35)
......".ARE THESE ACCEPTABLE? (Y/N)";:.A
$:.A$.."Y".120.K. ..53280,15:.53281,6:."
..".~...."...INSERT A FORMATTED DISK TO
RECEIVE DATA "......". THEN PRE
SS [RETURN] ".F....R$:.R$..G(1
3).190...H.."..WORKING....":.15,8,15:.5,
8,5,"#":.15,"B-P:5,0".. R..D.1.MX:.5,G(A
(D));:.D:.5.< ...15,"M-W;"G(0)G(5);1;0;G
(67).F ...15,"B-P:5,0":.15,"U2:5,0,1,0":
5: 15.. ...15,8,15:.15,A$,B$,C$,D$: 15.
. ...A$."00".."BOOT TRACK WRITTEN":..Y .
.P.".AN ERROR HAS OCCURRED.":.A$,B$,C$,D
$.. ......