*� 1,1,5,-5,-5,50,25,25,0,0,0,1,126,126
� 7:� 23;8202;0;0;0;
�setupchars
(�cls(3,132)
2�flash("DICE!",6)
<�flash("by",10)
F�flash("Joe Rhodes",14)
PA� �10,20)"Do you require"�11,21)"instructions"�13,22)"Y or N"
Z!� �"YN",�) � �Dd@,�Dn@ � �DZ@
d�instructions
n� 28,7,22,30,19:�
x� �>&1100 � �=&1100
�
� "DICE2"
��
�� �instructions
��cls(4,134)
�+� Y=2  � 3:� �11,Y);�131;�141;"DICE!":�
���'"  After five dice are thrown you"'"have two attempts to improve your"'"scoring chances."''"  When prompted type in ALL of the"'"dice you wish to roll."
�F�'"  If the dice shown do not need any"'"alteration, type in '0'."
�_�'"  You then have a choice of thirteen"'"categories into which you MUST put"'"your score."
�F�'"  If you can find no suitable"'"category, you must throw-away."
�+� �6,23)"Press any key to continue":A=�
��cls(1,135):�:�'''" Scoring in the first six categories"'"is by only adding up the correct"'"numbers. i.e. only one's count in"'"category one (A)."
�f�''"If a total of 63 or more is reached"'"in the first six categories a bonus"'"of 35 is awarded."
�6�" The first six categories are:_":�'�12);�10,"_")

�

� list=1 � 6:� list$

� �12);list$:�

"E� A) One's.,B) Two's.,C) Three's.,D) Four's.,E) Five's.,F) Sixes.

,� �12);�10,"_")

6+� �6,23)"Press any key to continue":A=�

@4�cls(3,133):�:�'''"  The other categories are:_"

J�''�7);�19,"_")

T� list=1 � 7:� list$

^� �7);list$:�

h� �7);�19,"_")

rV�''"If you do not have the required "'"spots on your dice, you must throw"'"away."

|l� G) Three of a kind,H) Four of a kind,I) Full house,J) Low straight,K) High straight,L) Dice!,M) Chance

�+� �6,23)"Press any key to continue":A=�

��cls(2,131):�

�
� L=2 � 3

� � �11,L);�132;�141;"SCORING"

��

�*�'"Three of a kind"�21)"add all spots"

�)�'"Four of a kind"�21)"add all spots"

� �'"Full house"�21)"Score 25"

�"�'"Low straight"�21)"Score 30"

�#�'"High straight"�21)"Score 40"

��'"Dice!"�21)"Score 50"

�!�'"Chance"�21)"add all spots"

�+� �6,23)"Press any key to continue":A=�
6�cls(6,132):�: �'''"   Low straight = run of four"
& �'"  High straight = run of five"
+�'"Full house = a pair+three of a kind"
&#�'"     Dice! = five of a kind"
0'�'"    Chance = total of all spots"
:� �11,20)"Do you require"
D/� �8,21)"instructions again"�13,22)"Y or N"
N!� �"YN",�) � �Dd@,�DXB � �DNB
X�
b� �cls(C,WR)
l
� Y,CH
v� 28,0,24,39,0
��:CH=128+C
�� Y=0 � 24
�� �0,Y);
�!� 132,157,135:� VDU CH,157,WR
�� Y
��28,3,24,39,0
�� �0,0);
��
�� �flash(word$,line)
�� A
�A=16
�� letter=1 � �(word$)
�	�=0:�
 � �A-�(word$),line);�141;"*"
"� �A-�(word$),line+1);�141;"*"
 � �A-�(word$),line);�141;"#"
 "� �A-�(word$),line+1);�141;"#"
*
� �>30
4-� �A-�(word$),line);�141;�word$,letter,1)
>� 0,1,254,5
H/� �A-�(word$),line+1);�141;�word$,letter,1)
R	A=A+2
\�
f�
p� �setupchars
z,� 23,224,255,128,152,152,128,128,128,152
�!� 23,225,255,1,25,25,1,1,1,25
�,� 23,226,152,128,128,128,152,152,128,255
�!� 23,227,25,1,1,1,25,25,1,255
�,� 23,228,255,128,152,152,128,128,128,129
�"� 23,229,255,1,25,25,1,1,1,129
�,� 23,230,129,128,128,128,152,152,128,255
�"� 23,231,129,1,1,1,25,25,1,255
�,� 23,232,255,128,128,128,128,128,128,129
� � 23,233,129,1,1,1,1,1,1,255
�,� 23,234,255,128,152,152,128,128,128,128
�� 23,235,255,1,1,1,1,1,1,1
�,� 23,236,128,128,128,128,128,128,128,255
� � 23,237,1,1,1,1,25,25,1,255
 � 23,238,255,1,1,1,1,1,1,129
,� 23,239,129,128,128,128,128,128,128,255
 � 23,240,255,1,25,25,1,1,1,1
$,� 23,241,128,128,128,128,152,152,128,255
.�
�

00000000  0d 00 0a 2a e2 20 31 2c  31 2c 35 2c 2d 35 2c 2d  |...*. 1,1,5,-5,-|
00000010  35 2c 35 30 2c 32 35 2c  32 35 2c 30 2c 30 2c 30  |5,50,25,25,0,0,0|
00000020  2c 31 2c 31 32 36 2c 31  32 36 0d 00 14 18 eb 20  |,1,126,126..... |
00000030  37 3a ef 20 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |7:. 23;8202;0;0;|
00000040  30 3b 0d 00 1e 0f f2 73  65 74 75 70 63 68 61 72  |0;.....setupchar|
00000050  73 0d 00 28 0f f2 63 6c  73 28 33 2c 31 33 32 29  |s..(..cls(3,132)|
00000060  0d 00 32 15 f2 66 6c 61  73 68 28 22 44 49 43 45  |..2..flash("DICE|
00000070  21 22 2c 36 29 0d 00 3c  13 f2 66 6c 61 73 68 28  |!",6)..<..flash(|
00000080  22 62 79 22 2c 31 30 29  0d 00 46 1b f2 66 6c 61  |"by",10)..F..fla|
00000090  73 68 28 22 4a 6f 65 20  52 68 6f 64 65 73 22 2c  |sh("Joe Rhodes",|
000000a0  31 34 29 0d 00 50 41 f1  20 8a 31 30 2c 32 30 29  |14)..PA. .10,20)|
000000b0  22 44 6f 20 79 6f 75 20  72 65 71 75 69 72 65 22  |"Do you require"|
000000c0  8a 31 31 2c 32 31 29 22  69 6e 73 74 72 75 63 74  |.11,21)"instruct|
000000d0  69 6f 6e 73 22 8a 31 33  2c 32 32 29 22 59 20 6f  |ions".13,22)"Y o|
000000e0  72 20 4e 22 0d 00 5a 21  ee 20 a7 22 59 4e 22 2c  |r N"..Z!. ."YN",|
000000f0  be 29 20 e5 20 8d 44 64  40 2c 8d 44 6e 40 20 8b  |.) . .Dd@,.Dn@ .|
00000100  20 8d 44 5a 40 0d 00 64  11 f2 69 6e 73 74 72 75  | .DZ@..d..instru|
00000110  63 74 69 6f 6e 73 0d 00  6e 15 ef 20 32 38 2c 37  |ctions..n.. 28,7|
00000120  2c 32 32 2c 33 30 2c 31  39 3a db 0d 00 78 17 e7  |,22,30,19:...x..|
00000130  20 90 3e 26 31 31 30 30  20 8c 20 d0 3d 26 31 31  | .>&1100 . .=&11|
00000140  30 30 0d 00 82 0d d7 20  22 44 49 43 45 32 22 0d  |00..... "DICE2".|
00000150  00 8c 05 e0 0d 00 96 13  dd 20 f2 69 6e 73 74 72  |......... .instr|
00000160  75 63 74 69 6f 6e 73 0d  00 a0 0f f2 63 6c 73 28  |uctions.....cls(|
00000170  34 2c 31 33 34 29 0d 00  aa 2b e3 20 59 3d 32 20  |4,134)...+. Y=2 |
00000180  20 b8 20 33 3a f1 20 8a  31 31 2c 59 29 3b bd 31  | . 3:. .11,Y);.1|
00000190  33 31 3b bd 31 34 31 3b  22 44 49 43 45 21 22 3a  |31;.141;"DICE!":|
000001a0  ed 0d 00 b4 9e f1 27 22  20 20 41 66 74 65 72 20  |......'"  After |
000001b0  66 69 76 65 20 64 69 63  65 20 61 72 65 20 74 68  |five dice are th|
000001c0  72 6f 77 6e 20 79 6f 75  22 27 22 68 61 76 65 20  |rown you"'"have |
000001d0  74 77 6f 20 61 74 74 65  6d 70 74 73 20 74 6f 20  |two attempts to |
000001e0  69 6d 70 72 6f 76 65 20  79 6f 75 72 22 27 22 73  |improve your"'"s|
000001f0  63 6f 72 69 6e 67 20 63  68 61 6e 63 65 73 2e 22  |coring chances."|
00000200  27 27 22 20 20 57 68 65  6e 20 70 72 6f 6d 70 74  |''"  When prompt|
00000210  65 64 20 74 79 70 65 20  69 6e 20 41 4c 4c 20 6f  |ed type in ALL o|
00000220  66 20 74 68 65 22 27 22  64 69 63 65 20 79 6f 75  |f the"'"dice you|
00000230  20 77 69 73 68 20 74 6f  20 72 6f 6c 6c 2e 22 0d  | wish to roll.".|
00000240  00 be 46 f1 27 22 20 20  49 66 20 74 68 65 20 64  |..F.'"  If the d|
00000250  69 63 65 20 73 68 6f 77  6e 20 64 6f 20 6e 6f 74  |ice shown do not|
00000260  20 6e 65 65 64 20 61 6e  79 22 27 22 61 6c 74 65  | need any"'"alte|
00000270  72 61 74 69 6f 6e 2c 20  74 79 70 65 20 69 6e 20  |ration, type in |
00000280  27 30 27 2e 22 0d 00 c8  5f f1 27 22 20 20 59 6f  |'0'."..._.'"  Yo|
00000290  75 20 74 68 65 6e 20 68  61 76 65 20 61 20 63 68  |u then have a ch|
000002a0  6f 69 63 65 20 6f 66 20  74 68 69 72 74 65 65 6e  |oice of thirteen|
000002b0  22 27 22 63 61 74 65 67  6f 72 69 65 73 20 69 6e  |"'"categories in|
000002c0  74 6f 20 77 68 69 63 68  20 79 6f 75 20 4d 55 53  |to which you MUS|
000002d0  54 20 70 75 74 22 27 22  79 6f 75 72 20 73 63 6f  |T put"'"your sco|
000002e0  72 65 2e 22 0d 00 d2 46  f1 27 22 20 20 49 66 20  |re."...F.'"  If |
000002f0  79 6f 75 20 63 61 6e 20  66 69 6e 64 20 6e 6f 20  |you can find no |
00000300  73 75 69 74 61 62 6c 65  22 27 22 63 61 74 65 67  |suitable"'"categ|
00000310  6f 72 79 2c 20 79 6f 75  20 6d 75 73 74 20 74 68  |ory, you must th|
00000320  72 6f 77 2d 61 77 61 79  2e 22 0d 00 dc 2b f1 20  |row-away."...+. |
00000330  8a 36 2c 32 33 29 22 50  72 65 73 73 20 61 6e 79  |.6,23)"Press any|
00000340  20 6b 65 79 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | key to continue|
00000350  22 3a 41 3d a5 0d 00 e6  97 f2 63 6c 73 28 31 2c  |":A=......cls(1,|
00000360  31 33 35 29 3a db 3a f1  27 27 27 22 20 53 63 6f  |135):.:.'''" Sco|
00000370  72 69 6e 67 20 69 6e 20  74 68 65 20 66 69 72 73  |ring in the firs|
00000380  74 20 73 69 78 20 63 61  74 65 67 6f 72 69 65 73  |t six categories|
00000390  22 27 22 69 73 20 62 79  20 6f 6e 6c 79 20 61 64  |"'"is by only ad|
000003a0  64 69 6e 67 20 75 70 20  74 68 65 20 63 6f 72 72  |ding up the corr|
000003b0  65 63 74 22 27 22 6e 75  6d 62 65 72 73 2e 20 69  |ect"'"numbers. i|
000003c0  2e 65 2e 20 6f 6e 6c 79  20 6f 6e 65 27 73 20 63  |.e. only one's c|
000003d0  6f 75 6e 74 20 69 6e 22  27 22 63 61 74 65 67 6f  |ount in"'"catego|
000003e0  72 79 20 6f 6e 65 20 28  41 29 2e 22 0d 00 f0 66  |ry one (A)."...f|
000003f0  f1 27 27 22 49 66 20 61  20 74 6f 74 61 6c 20 6f  |.''"If a total o|
00000400  66 20 36 33 20 6f 72 20  6d 6f 72 65 20 69 73 20  |f 63 or more is |
00000410  72 65 61 63 68 65 64 22  27 22 69 6e 20 74 68 65  |reached"'"in the|
00000420  20 66 69 72 73 74 20 73  69 78 20 63 61 74 65 67  | first six categ|
00000430  6f 72 69 65 73 20 61 20  62 6f 6e 75 73 22 27 22  |ories a bonus"'"|
00000440  6f 66 20 33 35 20 69 73  20 61 77 61 72 64 65 64  |of 35 is awarded|
00000450  2e 22 0d 00 fa 36 f1 22  20 54 68 65 20 66 69 72  |."...6." The fir|
00000460  73 74 20 73 69 78 20 63  61 74 65 67 6f 72 69 65  |st six categorie|
00000470  73 20 61 72 65 3a 5f 22  3a f1 27 8a 31 32 29 3b  |s are:_":.'.12);|
00000480  c4 31 30 2c 22 5f 22 29  0d 01 04 05 f7 0d 01 0e  |.10,"_")........|
00000490  18 e3 20 6c 69 73 74 3d  31 20 b8 20 36 3a f3 20  |.. list=1 . 6:. |
000004a0  6c 69 73 74 24 0d 01 18  12 f1 20 8a 31 32 29 3b  |list$..... .12);|
000004b0  6c 69 73 74 24 3a ed 0d  01 22 45 dc 20 41 29 20  |list$:..."E. A) |
000004c0  4f 6e 65 27 73 2e 2c 42  29 20 54 77 6f 27 73 2e  |One's.,B) Two's.|
000004d0  2c 43 29 20 54 68 72 65  65 27 73 2e 2c 44 29 20  |,C) Three's.,D) |
000004e0  46 6f 75 72 27 73 2e 2c  45 29 20 46 69 76 65 27  |Four's.,E) Five'|
000004f0  73 2e 2c 46 29 20 53 69  78 65 73 2e 0d 01 2c 13  |s.,F) Sixes...,.|
00000500  f1 20 8a 31 32 29 3b c4  31 30 2c 22 5f 22 29 0d  |. .12);.10,"_").|
00000510  01 36 2b f1 20 8a 36 2c  32 33 29 22 50 72 65 73  |.6+. .6,23)"Pres|
00000520  73 20 61 6e 79 20 6b 65  79 20 74 6f 20 63 6f 6e  |s any key to con|
00000530  74 69 6e 75 65 22 3a 41  3d a5 0d 01 40 34 f2 63  |tinue":A=...@4.c|
00000540  6c 73 28 33 2c 31 33 33  29 3a db 3a f1 27 27 27  |ls(3,133):.:.'''|
00000550  22 20 20 54 68 65 20 6f  74 68 65 72 20 63 61 74  |"  The other cat|
00000560  65 67 6f 72 69 65 73 20  61 72 65 3a 5f 22 0d 01  |egories are:_"..|
00000570  4a 13 f1 27 27 8a 37 29  3b c4 31 39 2c 22 5f 22  |J..''.7);.19,"_"|
00000580  29 0d 01 54 18 e3 20 6c  69 73 74 3d 31 20 b8 20  |)..T.. list=1 . |
00000590  37 3a f3 20 6c 69 73 74  24 0d 01 5e 11 f1 20 8a  |7:. list$..^.. .|
000005a0  37 29 3b 6c 69 73 74 24  3a ed 0d 01 68 12 f1 20  |7);list$:...h.. |
000005b0  8a 37 29 3b c4 31 39 2c  22 5f 22 29 0d 01 72 56  |.7);.19,"_")..rV|
000005c0  f1 27 27 22 49 66 20 79  6f 75 20 64 6f 20 6e 6f  |.''"If you do no|
000005d0  74 20 68 61 76 65 20 74  68 65 20 72 65 71 75 69  |t have the requi|
000005e0  72 65 64 20 22 27 22 73  70 6f 74 73 20 6f 6e 20  |red "'"spots on |
000005f0  79 6f 75 72 20 64 69 63  65 2c 20 79 6f 75 20 6d  |your dice, you m|
00000600  75 73 74 20 74 68 72 6f  77 22 27 22 61 77 61 79  |ust throw"'"away|
00000610  2e 22 0d 01 7c 6c dc 20  47 29 20 54 68 72 65 65  |."..|l. G) Three|
00000620  20 6f 66 20 61 20 6b 69  6e 64 2c 48 29 20 46 6f  | of a kind,H) Fo|
00000630  75 72 20 6f 66 20 61 20  6b 69 6e 64 2c 49 29 20  |ur of a kind,I) |
00000640  46 75 6c 6c 20 68 6f 75  73 65 2c 4a 29 20 4c 6f  |Full house,J) Lo|
00000650  77 20 73 74 72 61 69 67  68 74 2c 4b 29 20 48 69  |w straight,K) Hi|
00000660  67 68 20 73 74 72 61 69  67 68 74 2c 4c 29 20 44  |gh straight,L) D|
00000670  69 63 65 21 2c 4d 29 20  43 68 61 6e 63 65 0d 01  |ice!,M) Chance..|
00000680  86 2b f1 20 8a 36 2c 32  33 29 22 50 72 65 73 73  |.+. .6,23)"Press|
00000690  20 61 6e 79 20 6b 65 79  20 74 6f 20 63 6f 6e 74  | any key to cont|
000006a0  69 6e 75 65 22 3a 41 3d  a5 0d 01 90 11 f2 63 6c  |inue":A=......cl|
000006b0  73 28 32 2c 31 33 31 29  3a db 0d 01 9a 0d e3 20  |s(2,131):...... |
000006c0  4c 3d 32 20 b8 20 33 0d  01 a4 20 f1 20 8a 31 31  |L=2 . 3... . .11|
000006d0  2c 4c 29 3b bd 31 33 32  3b bd 31 34 31 3b 22 53  |,L);.132;.141;"S|
000006e0  43 4f 52 49 4e 47 22 0d  01 ae 05 ed 0d 01 b8 2a  |CORING"........*|
000006f0  f1 27 22 54 68 72 65 65  20 6f 66 20 61 20 6b 69  |.'"Three of a ki|
00000700  6e 64 22 8a 32 31 29 22  61 64 64 20 61 6c 6c 20  |nd".21)"add all |
00000710  73 70 6f 74 73 22 0d 01  c2 29 f1 27 22 46 6f 75  |spots"...).'"Fou|
00000720  72 20 6f 66 20 61 20 6b  69 6e 64 22 8a 32 31 29  |r of a kind".21)|
00000730  22 61 64 64 20 61 6c 6c  20 73 70 6f 74 73 22 0d  |"add all spots".|
00000740  01 cc 20 f1 27 22 46 75  6c 6c 20 68 6f 75 73 65  |.. .'"Full house|
00000750  22 8a 32 31 29 22 53 63  6f 72 65 20 32 35 22 0d  |".21)"Score 25".|
00000760  01 d6 22 f1 27 22 4c 6f  77 20 73 74 72 61 69 67  |..".'"Low straig|
00000770  68 74 22 8a 32 31 29 22  53 63 6f 72 65 20 33 30  |ht".21)"Score 30|
00000780  22 0d 01 e0 23 f1 27 22  48 69 67 68 20 73 74 72  |"...#.'"High str|
00000790  61 69 67 68 74 22 8a 32  31 29 22 53 63 6f 72 65  |aight".21)"Score|
000007a0  20 34 30 22 0d 01 ea 1b  f1 27 22 44 69 63 65 21  | 40".....'"Dice!|
000007b0  22 8a 32 31 29 22 53 63  6f 72 65 20 35 30 22 0d  |".21)"Score 50".|
000007c0  01 f4 21 f1 27 22 43 68  61 6e 63 65 22 8a 32 31  |..!.'"Chance".21|
000007d0  29 22 61 64 64 20 61 6c  6c 20 73 70 6f 74 73 22  |)"add all spots"|
000007e0  0d 01 fe 2b f1 20 8a 36  2c 32 33 29 22 50 72 65  |...+. .6,23)"Pre|
000007f0  73 73 20 61 6e 79 20 6b  65 79 20 74 6f 20 63 6f  |ss any key to co|
00000800  6e 74 69 6e 75 65 22 3a  41 3d a5 0d 02 08 36 f2  |ntinue":A=....6.|
00000810  63 6c 73 28 36 2c 31 33  32 29 3a db 3a 20 f1 27  |cls(6,132):.: .'|
00000820  27 27 22 20 20 20 4c 6f  77 20 73 74 72 61 69 67  |''"   Low straig|
00000830  68 74 20 3d 20 72 75 6e  20 6f 66 20 66 6f 75 72  |ht = run of four|
00000840  22 0d 02 12 26 20 f1 27  22 20 20 48 69 67 68 20  |"...& .'"  High |
00000850  73 74 72 61 69 67 68 74  20 3d 20 72 75 6e 20 6f  |straight = run o|
00000860  66 20 66 69 76 65 22 0d  02 1c 2b f1 27 22 46 75  |f five"...+.'"Fu|
00000870  6c 6c 20 68 6f 75 73 65  20 3d 20 61 20 70 61 69  |ll house = a pai|
00000880  72 2b 74 68 72 65 65 20  6f 66 20 61 20 6b 69 6e  |r+three of a kin|
00000890  64 22 0d 02 26 23 f1 27  22 20 20 20 20 20 44 69  |d"..&#.'"     Di|
000008a0  63 65 21 20 3d 20 66 69  76 65 20 6f 66 20 61 20  |ce! = five of a |
000008b0  6b 69 6e 64 22 0d 02 30  27 f1 27 22 20 20 20 20  |kind"..0'.'"    |
000008c0  43 68 61 6e 63 65 20 3d  20 74 6f 74 61 6c 20 6f  |Chance = total o|
000008d0  66 20 61 6c 6c 20 73 70  6f 74 73 22 0d 02 3a 1d  |f all spots"..:.|
000008e0  f1 20 8a 31 31 2c 32 30  29 22 44 6f 20 79 6f 75  |. .11,20)"Do you|
000008f0  20 72 65 71 75 69 72 65  22 0d 02 44 2f f1 20 8a  | require"..D/. .|
00000900  38 2c 32 31 29 22 69 6e  73 74 72 75 63 74 69 6f  |8,21)"instructio|
00000910  6e 73 20 61 67 61 69 6e  22 8a 31 33 2c 32 32 29  |ns again".13,22)|
00000920  22 59 20 6f 72 20 4e 22  0d 02 4e 21 ee 20 a7 22  |"Y or N"..N!. ."|
00000930  59 4e 22 2c be 29 20 e5  20 8d 44 64 40 2c 8d 44  |YN",.) . .Dd@,.D|
00000940  58 42 20 8b 20 8d 44 4e  42 0d 02 58 05 e1 0d 02  |XB . .DNB..X....|
00000950  62 10 dd 20 f2 63 6c 73  28 43 2c 57 52 29 0d 02  |b.. .cls(C,WR)..|
00000960  6c 0a ea 20 59 2c 43 48  0d 02 76 12 ef 20 32 38  |l.. Y,CH..v.. 28|
00000970  2c 30 2c 32 34 2c 33 39  2c 30 0d 02 80 0e db 3a  |,0,24,39,0.....:|
00000980  43 48 3d 31 32 38 2b 43  0d 02 8a 0e e3 20 59 3d  |CH=128+C..... Y=|
00000990  30 20 b8 20 32 34 0d 02  94 0c f1 20 8a 30 2c 59  |0 . 24..... .0,Y|
000009a0  29 3b 0d 02 9e 21 ef 20  31 33 32 2c 31 35 37 2c  |);...!. 132,157,|
000009b0  31 33 35 3a f4 20 56 44  55 20 43 48 2c 31 35 37  |135:. VDU CH,157|
000009c0  2c 57 52 0d 02 a8 07 ed  20 59 0d 02 b2 11 ef 32  |,WR..... Y.....2|
000009d0  38 2c 33 2c 32 34 2c 33  39 2c 30 0d 02 bc 0c f1  |8,3,24,39,0.....|
000009e0  20 8a 30 2c 30 29 3b 0d  02 c6 05 e1 0d 02 d0 18  | .0,0);.........|
000009f0  dd 20 f2 66 6c 61 73 68  28 77 6f 72 64 24 2c 6c  |. .flash(word$,l|
00000a00  69 6e 65 29 0d 02 da 07  ea 20 41 0d 02 e4 08 41  |ine)..... A....A|
00000a10  3d 31 36 0d 02 ee 19 e3  20 6c 65 74 74 65 72 3d  |=16..... letter=|
00000a20  31 20 b8 20 a9 28 77 6f  72 64 24 29 0d 02 f8 09  |1 . .(word$)....|
00000a30  d1 3d 30 3a f5 0d 03 02  20 f1 20 8a 41 2d a9 28  |.=0:.... . .A-.(|
00000a40  77 6f 72 64 24 29 2c 6c  69 6e 65 29 3b bd 31 34  |word$),line);.14|
00000a50  31 3b 22 2a 22 0d 03 0c  22 f1 20 8a 41 2d a9 28  |1;"*"...". .A-.(|
00000a60  77 6f 72 64 24 29 2c 6c  69 6e 65 2b 31 29 3b bd  |word$),line+1);.|
00000a70  31 34 31 3b 22 2a 22 0d  03 16 20 f1 20 8a 41 2d  |141;"*"... . .A-|
00000a80  a9 28 77 6f 72 64 24 29  2c 6c 69 6e 65 29 3b bd  |.(word$),line);.|
00000a90  31 34 31 3b 22 23 22 0d  03 20 22 f1 20 8a 41 2d  |141;"#".. ". .A-|
00000aa0  a9 28 77 6f 72 64 24 29  2c 6c 69 6e 65 2b 31 29  |.(word$),line+1)|
00000ab0  3b bd 31 34 31 3b 22 23  22 0d 03 2a 0a fd 20 91  |;.141;"#"..*.. .|
00000ac0  3e 33 30 0d 03 34 2d f1  20 8a 41 2d a9 28 77 6f  |>30..4-. .A-.(wo|
00000ad0  72 64 24 29 2c 6c 69 6e  65 29 3b bd 31 34 31 3b  |rd$),line);.141;|
00000ae0  c1 77 6f 72 64 24 2c 6c  65 74 74 65 72 2c 31 29  |.word$,letter,1)|
00000af0  0d 03 3e 0f d4 20 30 2c  31 2c 32 35 34 2c 35 0d  |..>.. 0,1,254,5.|
00000b00  03 48 2f f1 20 8a 41 2d  a9 28 77 6f 72 64 24 29  |.H/. .A-.(word$)|
00000b10  2c 6c 69 6e 65 2b 31 29  3b bd 31 34 31 3b c1 77  |,line+1);.141;.w|
00000b20  6f 72 64 24 2c 6c 65 74  74 65 72 2c 31 29 0d 03  |ord$,letter,1)..|
00000b30  52 09 41 3d 41 2b 32 0d  03 5c 05 ed 0d 03 66 05  |R.A=A+2..\....f.|
00000b40  e1 0d 03 70 11 dd 20 f2  73 65 74 75 70 63 68 61  |...p.. .setupcha|
00000b50  72 73 0d 03 7a 2c ef 20  32 33 2c 32 32 34 2c 32  |rs..z,. 23,224,2|
00000b60  35 35 2c 31 32 38 2c 31  35 32 2c 31 35 32 2c 31  |55,128,152,152,1|
00000b70  32 38 2c 31 32 38 2c 31  32 38 2c 31 35 32 0d 03  |28,128,128,152..|
00000b80  84 21 ef 20 32 33 2c 32  32 35 2c 32 35 35 2c 31  |.!. 23,225,255,1|
00000b90  2c 32 35 2c 32 35 2c 31  2c 31 2c 31 2c 32 35 0d  |,25,25,1,1,1,25.|
00000ba0  03 8e 2c ef 20 32 33 2c  32 32 36 2c 31 35 32 2c  |..,. 23,226,152,|
00000bb0  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 35 32 2c  |128,128,128,152,|
00000bc0  31 35 32 2c 31 32 38 2c  32 35 35 0d 03 98 21 ef  |152,128,255...!.|
00000bd0  20 32 33 2c 32 32 37 2c  32 35 2c 31 2c 31 2c 31  | 23,227,25,1,1,1|
00000be0  2c 32 35 2c 32 35 2c 31  2c 32 35 35 0d 03 a2 2c  |,25,25,1,255...,|
00000bf0  ef 20 32 33 2c 32 32 38  2c 32 35 35 2c 31 32 38  |. 23,228,255,128|
00000c00  2c 31 35 32 2c 31 35 32  2c 31 32 38 2c 31 32 38  |,152,152,128,128|
00000c10  2c 31 32 38 2c 31 32 39  0d 03 ac 22 ef 20 32 33  |,128,129...". 23|
00000c20  2c 32 32 39 2c 32 35 35  2c 31 2c 32 35 2c 32 35  |,229,255,1,25,25|
00000c30  2c 31 2c 31 2c 31 2c 31  32 39 0d 03 b6 2c ef 20  |,1,1,1,129...,. |
00000c40  32 33 2c 32 33 30 2c 31  32 39 2c 31 32 38 2c 31  |23,230,129,128,1|
00000c50  32 38 2c 31 32 38 2c 31  35 32 2c 31 35 32 2c 31  |28,128,152,152,1|
00000c60  32 38 2c 32 35 35 0d 03  c0 22 ef 20 32 33 2c 32  |28,255...". 23,2|
00000c70  33 31 2c 31 32 39 2c 31  2c 31 2c 31 2c 32 35 2c  |31,129,1,1,1,25,|
00000c80  32 35 2c 31 2c 32 35 35  0d 03 ca 2c ef 20 32 33  |25,1,255...,. 23|
00000c90  2c 32 33 32 2c 32 35 35  2c 31 32 38 2c 31 32 38  |,232,255,128,128|
00000ca0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
00000cb0  2c 31 32 39 0d 03 d4 20  ef 20 32 33 2c 32 33 33  |,129... . 23,233|
00000cc0  2c 31 32 39 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |,129,1,1,1,1,1,1|
00000cd0  2c 32 35 35 0d 03 de 2c  ef 20 32 33 2c 32 33 34  |,255...,. 23,234|
00000ce0  2c 32 35 35 2c 31 32 38  2c 31 35 32 2c 31 35 32  |,255,128,152,152|
00000cf0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
00000d00  0d 03 e8 1e ef 20 32 33  2c 32 33 35 2c 32 35 35  |..... 23,235,255|
00000d10  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 0d 03  |,1,1,1,1,1,1,1..|
00000d20  f2 2c ef 20 32 33 2c 32  33 36 2c 31 32 38 2c 31  |.,. 23,236,128,1|
00000d30  32 38 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |28,128,128,128,1|
00000d40  32 38 2c 31 32 38 2c 32  35 35 0d 03 fc 20 ef 20  |28,128,255... . |
00000d50  32 33 2c 32 33 37 2c 31  2c 31 2c 31 2c 31 2c 32  |23,237,1,1,1,1,2|
00000d60  35 2c 32 35 2c 31 2c 32  35 35 0d 04 06 20 ef 20  |5,25,1,255... . |
00000d70  32 33 2c 32 33 38 2c 32  35 35 2c 31 2c 31 2c 31  |23,238,255,1,1,1|
00000d80  2c 31 2c 31 2c 31 2c 31  32 39 0d 04 10 2c ef 20  |,1,1,1,129...,. |
00000d90  32 33 2c 32 33 39 2c 31  32 39 2c 31 32 38 2c 31  |23,239,129,128,1|
00000da0  32 38 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |28,128,128,128,1|
00000db0  32 38 2c 32 35 35 0d 04  1a 20 ef 20 32 33 2c 32  |28,255... . 23,2|
00000dc0  34 30 2c 32 35 35 2c 31  2c 32 35 2c 32 35 2c 31  |40,255,1,25,25,1|
00000dd0  2c 31 2c 31 2c 31 0d 04  24 2c ef 20 32 33 2c 32  |,1,1,1..$,. 23,2|
00000de0  34 31 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |41,128,128,128,1|
00000df0  32 38 2c 31 35 32 2c 31  35 32 2c 31 32 38 2c 32  |28,152,152,128,2|
00000e00  35 35 0d 04 2e 05 e1 0d  ff                       |55.......|
00000e09