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 2F |-1...P..A(121)./|
00000210: 1E 5A 00 81 4D 58 B2 31 A4 31 32 31 3A 87 53 3A |.Z..MX.1.121:.S:|
00000220: 58 B2 58 AA 53 3A 8B 53 B2 AB 31 A7 31 31 30 00 |X.X.S:.S..1.110.|
00000230: 3D 1E 64 00 41 28 4D 58 29 B2 53 3A 82 00 6A 1E |=.d.A(MX).S:..j.|
00000240: 6E 00 8B 58 B3 B1 31 34 37 33 33 A7 99 22 45 52 |n..X..14733.."ER|
00000250: 52 4F 52 20 49 4E 20 44 41 54 41 20 53 54 41 54 |ROR IN DATA STAT|
00000260: 45 4D 45 4E 54 53 2E 22 3A 90 00 98 1E 78 00 99 |EMENTS.":....x..|
00000270: 22 93 99 11 11 45 4E 54 45 52 20 59 4F 55 52 20 |"....ENTER YOUR |
00000280: 50 52 45 46 45 52 52 45 44 20 43 4F 4C 4F 52 20 |PREFERRED COLOR |
00000290: 43 48 4F 49 43 45 53 22 00 C8 1E 82 00 99 22 11 |CHOICES"......".|
000002A0: 11 23 20 4F 46 20 53 43 52 45 45 4E 20 43 4F 4C |.# OF SCREEN COL|
000002B0: 4F 52 22 3B 3A 85 41 28 34 30 29 3A 97 35 33 32 |OR";:.A(40):.532|
000002C0: 38 31 2C 41 28 34 30 29 00 F7 1E 8C 00 99 22 11 |81,A(40)......".|
000002D0: 23 20 4F 46 20 42 4F 52 44 45 52 20 43 4F 4C 4F |# OF BORDER COLO|
000002E0: 52 22 3B 3A 85 41 28 33 35 29 3A 97 35 33 32 38 |R";:.A(35):.5328|
000002F0: 30 2C 41 28 33 35 29 00 2D 1F 96 00 99 22 11 41 |0,A(35).-....".A|
00000300: 52 45 20 54 48 45 53 45 20 41 43 43 45 50 54 41 |RE THESE ACCEPTA|
00000310: 42 4C 45 3F 20 28 59 2F 4E 29 22 3B 3A 85 41 24 |BLE? (Y/N)";:.A$|
00000320: 3A 8B 41 24 B3 B1 22 59 22 A7 31 32 30 00 4A 1F |:.A$.."Y".120.J.|
00000330: A0 00 97 35 33 32 38 30 2C 31 35 3A 97 35 33 32 |...53280,15:.532|
00000340: 38 31 2C 36 3A 99 22 93 05 22 00 7D 1F AA 00 99 |81,6:."..".}....|
00000350: 22 11 11 12 49 4E 53 45 52 54 20 41 20 46 4F 52 |"...INSERT A FOR|
00000360: 4D 41 54 54 45 44 20 44 49 53 4B 20 54 4F 20 52 |MATTED DISK TO R|
00000370: 45 43 45 49 56 45 20 44 41 54 41 20 22 00 AE 1F |ECEIVE DATA "...|
00000380: B4 00 99 22 12 20 20 20 20 20 20 20 20 20 20 54 |...". T|
00000390: 48 45 4E 20 50 52 45 53 53 20 5B 52 45 54 55 52 |HEN PRESS [RETUR|
000003A0: 4E 5D 20 20 20 20 20 20 20 20 20 20 20 22 00 C5 |N] "..|
000003B0: 1F BE 00 A1 52 24 3A 8B 52 24 B3 B1 C7 28 31 33 |....R$:.R$...(13|
000003C0: 29 A7 31 39 30 00 FB 1F C8 00 99 22 11 11 57 4F |).190......"..WO|
000003D0: 52 4B 49 4E 47 2E 2E 2E 22 3A 9F 31 35 2C 38 2C |RKING...":.15,8,|
000003E0: 31 35 3A 9F 35 2C 38 2C 35 2C 22 23 22 3A 98 31 |15:.5,8,5,"#":.1|
000003F0: 35 2C 22 42 2D 50 3A 35 2C 30 22 00 19 20 D2 00 |5,"B-P:5,0".. ..|
00000400: 81 44 B2 31 A4 4D 58 3A 98 35 2C C7 28 41 28 44 |.D.1.MX:.5,.(A(D|
00000410: 29 29 3B 3A 82 44 3A 98 35 00 38 20 DC 00 98 31 |));:.D:.5.8 ...1|
00000420: 35 2C 22 4D 2D 57 3A 22 C7 28 30 29 C7 28 35 29 |5,"M-W:".(0).(5)|
00000430: 3B 31 3B C7 28 36 37 29 00 62 20 E6 00 98 31 35 |;1;.(67).b ...15|
00000440: 2C 22 42 2D 50 3A 35 2C 30 22 3A 98 31 35 2C 22 |,"B-P:5,0":.15,"|
00000450: 55 32 3A 35 2C 30 2C 31 2C 30 22 3A A0 35 3A A0 |U2:5,0,1,0":.5:.|
00000460: 31 35 00 83 20 F0 00 9F 31 35 2C 38 2C 31 35 3A |15.. ...15,8,15:|
00000470: 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A |.15,A$,B$,C$,D$:|
00000480: A0 31 35 00 A8 20 FA 00 8B 41 24 B2 22 30 30 22 |.15.. ...A$."00"|
00000490: A7 99 22 42 4F 4F 54 20 54 52 41 43 4B 20 57 52 |.."BOOT TRACK WR|
000004A0: 49 54 54 45 4E 22 3A 80 00 D4 20 04 01 99 22 12 |ITTEN":... ...".|
000004B0: 41 4E 20 45 52 52 4F 52 20 48 41 53 20 4F 43 43 |AN ERROR HAS OCC|
000004C0: 55 52 52 45 44 2E 22 3A 99 41 24 2C 42 24 2C 43 |URRED.":.A$,B$,C|
000004D0: 24 2C 44 24 00 DA 20 0E 01 80 00 00 00 |$,D$.. ...... |
..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)./.Z..MX.1.121:.S:X.X.S:.S..1.110.
=.D.A(MX).S:..J.N..X..14733.."ERROR IN D
ATA STATEMENTS.":....X.."....ENTER YOUR
PREFERRED COLOR CHOICES".H...."..# OF SC
REEN COLOR";:.A(40):.53281,A(40)......".
# OF BORDER COLOR";:.A(35):.53280,A(35).
-....".ARE THESE ACCEPTABLE? (Y/N)";:.A$
:.A$.."Y".120.J. ..53280,15:.53281,6:.".
.".}...."...INSERT A FORMATTED DISK TO R
ECEIVE DATA "......". THEN PRES
S [RETURN] ".E....R$:.R$..G(13
).190...H.."..WORKING...":.15,8,15:.5,8,
5,"#":.15,"B-P:5,0".. R..D.1.MX:.5,G(A(D
));:.D:.5.8 ...15,"M-W:"G(0)G(5);1;G(67)
.B ...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":..T ...".
AN ERROR HAS OCCURRED.":.A$,B$,C$,D$.Z .
.....