� KILLER DICE
� ELBUG MARCH 1984
FProg$="KILLER DICE"
P� � � �TfL
Z:
�
�6:�intro
��:�2:�initz
��:�17,3,31,0,26
� T% �you:� �bbc
�throw:�score
� B% T%=-T%-1:� �lose
$� D%:�dead
.� E%:�6:�end
8�
B:
L��intro
V*FX225,128
`�D(5),N(6),P(6),L(1)
jZ%=�(-�):T%=�(2)-2
t�31,12,9:� Prog$
~�31,5,17
�"�"PRESS SPACE BAR TO CONTINUE"
�
�31,17,18
��:�inkey:� I%=32
��
�:
���initz
��23,1,0;0;0;0
�L(0)=9:L(1)=9
�B%=0:F%=0:V%=1:E%=0:D%=0
��17,3,31,1,1
��"LIVES-ELK:9 YOU:9"
�17,5,31,1,4

� I%=1�5:�;I%;�(3);:�
�
:
(	��you
2�"YOU TO GO";
<Z%=B%�(-F%>0�-F%<5)
F� Z% �17,1:�"-INPUT HOLD"
P�17,3,31,0,29
Z�"-SPACE BAR TO THROW-"
d�:�inkey:I%=I%-48
n� Z%:� I%>0 � I%<6:�hold
x� I%=0:�cancel
�� I%=-16
��
�:
�	��bbc
��"MY TURN":�delay(3)
�� B%=0 � F%=0:�
� X%=0:Y%=0 
�� I%=6�V%�-1
�� N(I%)>X%:X%=N(I%):Y%=I%
��
�� X%=1 � F%=0:�
�� I%=1�5
�� D(I%)=Y% �hold
�
�
:
"��throw
,� I%=0�6:P(I%)=N(I%)� B%:�
6
�delay(2)
@� I%=1�5
J� D(I%)<8 �dice:�12
T�
^�28,0,31,19,15-(B%*2),12,26
h� I%=1�5:Z%=D(I%)
r � Z%<8 �dice:�delay(1):�roll
|�:�26:�cancel
��
�:
���score:�delay(2)
��28,0,17,19,12,26
�X%=0:Y%=0:Z%=0
�� I%=1�6
�� P(I%)=0:X%=X%+1
�� N(I%)=0:Y%=Y%+1
�� N(I%)>Z% Z%=N(I%)
��:X%=X%�B%
�!� X%=1:� P(1)=0 � P(6)=0:X%=4
�&� Y%=1:� N(1)=0 � N(6)=0:Y%=4:Z%=5
�� F%=0 � Y%=5:F%=-6:V%=D(5)
� F% �five:�
�prompt:�delay(1)
� Y%>X%:B%=�:�
&� X%>Y%:B%=�:�
0B%=1:X%=16
:
�:Y%=6
D�
NZ%=(P(Y%) � N(Y%)) � X%
X� Z%>0 � N(Y%)>P(Y%) B%=�
b� Z%>0 � N(Y%)<P(Y%) B%=�
lY%=Y%-1:� Y%=0 � B%<1
vX%=X%�2:� X%=0 � B%<1
�� B%=1:B%=�
��
�:
�
��lose
�
� F% �
��delay(3):�17,1,31,2,17
�@� T% �"YOU";:�0,-10,10,10 � �" I ";:�1,-10,101,8:�1,-10,81,8
�� " LOSE A LIFE"
�L(-T%)=L(-T%)-1
�#�17,3,31,(-T%*6)+11,1,48+L(-T%)
�� L(-T%)=0:D%=�
� �
�:

��dead
�31,4,22,17,9
� T% �"YOU ARE";� �" I AM";
 �" DEAD"
*�17,3,31,0,28
4�"SPACE BAR TO REPLAY"
>�"OR RETURN TO FINISH"
H�:�inkey:� I%=32 � I%=13
R� I%=13:E%=�
\�
f:
p	��end
z �12,17,3,31,5,12:�",BYEEEE";
�
*FX225
��
�:
�
��hold
�
� F%=-5 �
�D(I%)=D(I%)+8
��17,1,31,(I%*4)-3,12,72
��
�:
���cancel
�� I%=1�5  
�D(I%)=D(I%)�7
��31,(I%*4)-2,12,127
	�
	�
	:
	$
��dice
	. Y%=(I%-1)*4:�28,Y%,11,Y%+2,6
	8�
	B:
	L
��roll
	V�1,-15,200,1
	`"N(Z%)=N(Z%)�2:Z%=�(6):D(I%)=Z%
	j&� N(Z%)=0 N(Z%)=1: � N(Z%)=N(Z%)*2
	t� (Z%*50)+2750:�C%
	~�17,C%,17,135
	�-� J%=1�15:�X%,Y%:!&C04=X%:!&C00=Y%:�224:�
	��17,128
	��
	�:
	�
��five
	�#B%=0:Z%=-F%<6 � Y%=5 � D(5)>=V%
	�� Z% V%=1:F%=0:T%=-T%-1:�
	�F%=F%+1:� F%=0:V%=1:� 
	�� F%=-5:T%=-T%-1
	��17,2,31,0,15
	��"Five of kind to beat"
	�"�"Or Equal In ";-F%;" Throws";
� -F%=1:�127

�
:
��delay(X%)
(�=0:�:� �=X%*50
2�
<:
F��inkey
P*FX15,1
ZI%=�(9)
d�
n:
x��prompt
��17,2,31,4,15
� � Z%=1 � Y%=1 �" Ace high  "
�� Y%=2 �"One Pair   "
� � Z%=2 � Y%=3 �"Two Pairs"
�!� Z%=4 � Y%=3 �"3 of a kind" 
�!� Z%=5 � N(6)=0 �"Low run   "
�� Z%=5 � N(1)=0 �"High run"
� � Z%=4 � Y%=4 �"Full House "
� � Z%=8 � Y%=4 �"4 of a Kind"
��
�:
�2�0,&107C7C7C,&38100000,0,0,&107C7C7C,&38100000
�0�&7C7C3810,&00000038,0,0,&7C7C3810,&00000038
@�&10380000,&0038107C,&0038107C,&7C7C3810,&10380000,&0038107C
0�&38000010,&387C7C7C,0,0,&38000010,&387C7C7C
0�&00001038,&7C7C7C10,0,0,&00001038,&7C7C7C10
"2�1,&10387C38,&10100000,0,0,&10387C38,&10100000
,2�&7C381010,&10,&101038,&7C381010,&7C381010,&10
6,�&38101000,&101038,0,0,&38101000,&101038
@@�&10000000,&1010387C,&1010387C,&38101000,&10000000,&1010387C
J(�&1010,&387C3810,0,0,&1010,&387C3810
T@�4,&20202021,&21720000,&C2C2FEFF,&55540000,&1E0A0800,&800000
^<�&1010101,&1010060,&C0C48082,&8288D8C0,&8080808,&80A1E3E
h<�&F0F0000,&10101,&FFFFFE64,&64E6C2C0,&FCFC0C08,&8080808 
r:�&1010303,&6060C0C,&93831111,&38386C6C,&8080,&C8C87C7C
|�0,0,&3838,&7C7CC6D6,0,0
�@�2,&20505051,&51220000,&8282FEFF,&55540000,&3E1C0800,&800000
�=�&3030303,&3030111,&1111111,&456D0101,&9CAAAA88,&9CBE3636
�>�&F0F0000,&7070707,&FFFFEE44,&83839329,&FCFC0C08,&C8C8C8DC
�:�&1010303,&6060C0C,&93831111,&38386C6C,&8080,&C8C87C7C
��0,0,&3838,&7C7CC6D6,0,0
�>�1,&51506061,&51520000,&182FEFF,&55540000,&8080800,&800000
�=�&3030303,&1010151,&29111111,&456D0101,&88888888,&8080808
�>�&F0F0000,&3030303,&FFFFFE7C,&C7833901,&FCFC0C08,&BE888888
�:�&1010303,&6060C0C,&93831111,&38386C6C,&8080,&C8C87C7C
��0,0,&3838,&7C7CC6D6,0,0
��0,0,0,0,0,0,0
� �0,0,&7E7E7E3C,&3C181800,0,0
�>�&3070707,&3030101,&FFFFFFFF,&DBDBBDBD,&C0E0E0E0,&C0C08080
-�0,&10103,&7E3C1818,&189999DB,0,&8080C0C0
�0,0,0,0,0,0
:
&	� � �
0�6:� �<>17 �:�" at line ";�
:�
�

00000000  0d 00 0a 11 f4 20 4b 49  4c 4c 45 52 20 44 49 43  |..... KILLER DIC|
00000010  45 0d 00 14 16 f4 20 45  4c 42 55 47 20 4d 41 52  |E..... ELBUG MAR|
00000020  43 48 20 31 39 38 34 0d  00 46 17 50 72 6f 67 24  |CH 1984..F.Prog$|
00000030  3d 22 4b 49 4c 4c 45 52  20 44 49 43 45 22 0d 00  |="KILLER DICE"..|
00000040  50 0e ee 20 85 20 e5 20  8d 54 66 4c 0d 00 5a 05  |P.. . . .TfL..Z.|
00000050  3a 0d 03 e8 0d eb 36 3a  f2 69 6e 74 72 6f 0d 03  |:.....6:.intro..|
00000060  f2 0f f5 3a eb 32 3a f2  69 6e 69 74 7a 0d 03 fc  |...:.2:.initz...|
00000070  13 f5 3a ef 31 37 2c 33  2c 33 31 2c 30 2c 32 36  |..:.17,3,31,0,26|
00000080  0d 04 06 14 e7 20 54 25  20 f2 79 6f 75 3a 8b 20  |..... T% .you:. |
00000090  f2 62 62 63 0d 04 10 11  f2 74 68 72 6f 77 3a f2  |.bbc.....throw:.|
000000a0  73 63 6f 72 65 0d 04 1a  19 e7 20 42 25 20 54 25  |score..... B% T%|
000000b0  3d 2d 54 25 2d 31 3a 8b  20 f2 6c 6f 73 65 0d 04  |=-T%-1:. .lose..|
000000c0  24 0e fd 20 44 25 3a f2  64 65 61 64 0d 04 2e 10  |$.. D%:.dead....|
000000d0  fd 20 45 25 3a eb 36 3a  f2 65 6e 64 0d 04 38 05  |. E%:.6:.end..8.|
000000e0  e0 0d 04 42 05 3a 0d 04  4c 0b dd f2 69 6e 74 72  |...B.:..L...intr|
000000f0  6f 0d 04 56 0e 2a 46 58  32 32 35 2c 31 32 38 0d  |o..V.*FX225,128.|
00000100  04 60 18 de 44 28 35 29  2c 4e 28 36 29 2c 50 28  |.`..D(5),N(6),P(|
00000110  36 29 2c 4c 28 31 29 0d  04 6a 16 5a 25 3d b3 28  |6),L(1)..j.Z%=.(|
00000120  2d 91 29 3a 54 25 3d b3  28 32 29 2d 32 0d 04 74  |-.):T%=.(2)-2..t|
00000130  14 ef 33 31 2c 31 32 2c  39 3a f1 20 50 72 6f 67  |..31,12,9:. Prog|
00000140  24 0d 04 7e 0c ef 33 31  2c 35 2c 31 37 0d 04 88  |$..~..31,5,17...|
00000150  22 f1 22 50 52 45 53 53  20 53 50 41 43 45 20 42  |"."PRESS SPACE B|
00000160  41 52 20 54 4f 20 43 4f  4e 54 49 4e 55 45 22 0d  |AR TO CONTINUE".|
00000170  04 92 0d ef 33 31 2c 31  37 2c 31 38 0d 04 9c 14  |....31,17,18....|
00000180  f5 3a f2 69 6e 6b 65 79  3a fd 20 49 25 3d 33 32  |.:.inkey:. I%=32|
00000190  0d 04 a6 05 e1 0d 04 b0  05 3a 0d 04 ba 0b dd f2  |.........:......|
000001a0  69 6e 69 74 7a 0d 04 c4  11 ef 32 33 2c 31 2c 30  |initz.....23,1,0|
000001b0  3b 30 3b 30 3b 30 0d 04  ce 11 4c 28 30 29 3d 39  |;0;0;0....L(0)=9|
000001c0  3a 4c 28 31 29 3d 39 0d  04 d8 1c 42 25 3d 30 3a  |:L(1)=9....B%=0:|
000001d0  46 25 3d 30 3a 56 25 3d  31 3a 45 25 3d 30 3a 44  |F%=0:V%=1:E%=0:D|
000001e0  25 3d 30 0d 04 e2 10 ef  31 37 2c 33 2c 33 31 2c  |%=0.....17,3,31,|
000001f0  31 2c 31 0d 04 f6 18 f1  22 4c 49 56 45 53 2d 45  |1,1....."LIVES-E|
00000200  4c 4b 3a 39 20 59 4f 55  3a 39 22 0d 05 00 10 ef  |LK:9 YOU:9".....|
00000210  31 37 2c 35 2c 33 31 2c  31 2c 34 0d 05 0a 19 e3  |17,5,31,1,4.....|
00000220  20 49 25 3d 31 b8 35 3a  f1 3b 49 25 3b 89 28 33  | I%=1.5:.;I%;.(3|
00000230  29 3b 3a ed 0d 05 14 05  e1 0d 05 1e 05 3a 0d 05  |);:..........:..|
00000240  28 09 dd f2 79 6f 75 0d  05 32 11 f1 22 59 4f 55  |(...you..2.."YOU|
00000250  20 54 4f 20 47 4f 22 3b  0d 05 3c 17 5a 25 3d 42  | TO GO";..<.Z%=B|
00000260  25 84 28 2d 46 25 3e 30  80 2d 46 25 3c 35 29 0d  |%.(-F%>0.-F%<5).|
00000270  05 46 1d e7 20 5a 25 20  ef 31 37 2c 31 3a f1 22  |.F.. Z% .17,1:."|
00000280  2d 49 4e 50 55 54 20 48  4f 4c 44 22 0d 05 50 11  |-INPUT HOLD"..P.|
00000290  ef 31 37 2c 33 2c 33 31  2c 30 2c 32 39 0d 05 5a  |.17,3,31,0,29..Z|
000002a0  1b f1 22 2d 53 50 41 43  45 20 42 41 52 20 54 4f  |.."-SPACE BAR TO|
000002b0  20 54 48 52 4f 57 2d 22  0d 05 64 15 f5 3a f2 69  | THROW-"..d..:.i|
000002c0  6e 6b 65 79 3a 49 25 3d  49 25 2d 34 38 0d 05 6e  |nkey:I%=I%-48..n|
000002d0  1c e7 20 5a 25 3a e7 20  49 25 3e 30 20 80 20 49  |.. Z%:. I%>0 . I|
000002e0  25 3c 36 3a f2 68 6f 6c  64 0d 05 78 12 e7 20 49  |%<6:.hold..x.. I|
000002f0  25 3d 30 3a f2 63 61 6e  63 65 6c 0d 05 82 0c fd  |%=0:.cancel.....|
00000300  20 49 25 3d 2d 31 36 0d  05 8c 05 e1 0d 05 96 05  | I%=-16.........|
00000310  3a 0d 05 a0 09 dd f2 62  62 63 0d 05 aa 18 f1 22  |:......bbc....."|
00000320  4d 59 20 54 55 52 4e 22  3a f2 64 65 6c 61 79 28  |MY TURN":.delay(|
00000330  33 29 0d 05 b4 13 e7 20  42 25 3d 30 20 80 20 46  |3)..... B%=0 . F|
00000340  25 3d 30 3a e1 0d 05 be  0f 20 58 25 3d 30 3a 59  |%=0:..... X%=0:Y|
00000350  25 3d 30 20 0d 05 c8 10  e3 20 49 25 3d 36 b8 56  |%=0 ..... I%=6.V|
00000360  25 88 2d 31 0d 05 d2 1d  e7 20 4e 28 49 25 29 3e  |%.-1..... N(I%)>|
00000370  58 25 3a 58 25 3d 4e 28  49 25 29 3a 59 25 3d 49  |X%:X%=N(I%):Y%=I|
00000380  25 0d 05 dc 05 ed 0d 05  e6 13 e7 20 58 25 3d 31  |%.......... X%=1|
00000390  20 80 20 46 25 3d 30 3a  e1 0d 05 f0 0c e3 20 49  | . F%=0:...... I|
000003a0  25 3d 31 b8 35 0d 05 fa  14 e7 20 44 28 49 25 29  |%=1.5..... D(I%)|
000003b0  3d 59 25 20 f2 68 6f 6c  64 0d 06 04 05 ed 0d 06  |=Y% .hold.......|
000003c0  0e 05 e1 0d 06 18 05 3a  0d 06 22 0b dd f2 74 68  |.......:.."...th|
000003d0  72 6f 77 0d 06 2c 1e e3  20 49 25 3d 30 b8 36 3a  |row..,.. I%=0.6:|
000003e0  50 28 49 25 29 3d 4e 28  49 25 29 80 20 42 25 3a  |P(I%)=N(I%). B%:|
000003f0  ed 0d 06 36 0d f2 64 65  6c 61 79 28 32 29 0d 06  |...6..delay(2)..|
00000400  40 0c e3 20 49 25 3d 31  b8 35 0d 06 4a 17 e7 20  |@.. I%=1.5..J.. |
00000410  44 28 49 25 29 3c 38 20  f2 64 69 63 65 3a ef 31  |D(I%)<8 .dice:.1|
00000420  32 0d 06 54 05 ed 0d 06  5e 1f ef 32 38 2c 30 2c  |2..T....^..28,0,|
00000430  33 31 2c 31 39 2c 31 35  2d 28 42 25 2a 32 29 2c  |31,19,15-(B%*2),|
00000440  31 32 2c 32 36 0d 06 68  15 e3 20 49 25 3d 31 b8  |12,26..h.. I%=1.|
00000450  35 3a 5a 25 3d 44 28 49  25 29 0d 06 72 20 e7 20  |5:Z%=D(I%)..r . |
00000460  5a 25 3c 38 20 f2 64 69  63 65 3a f2 64 65 6c 61  |Z%<8 .dice:.dela|
00000470  79 28 31 29 3a f2 72 6f  6c 6c 0d 06 7c 11 ed 3a  |y(1):.roll..|..:|
00000480  ef 32 36 3a f2 63 61 6e  63 65 6c 0d 06 86 05 e1  |.26:.cancel.....|
00000490  0d 06 90 05 3a 0d 06 9a  15 dd f2 73 63 6f 72 65  |....:......score|
000004a0  3a f2 64 65 6c 61 79 28  32 29 0d 06 a4 15 ef 32  |:.delay(2).....2|
000004b0  38 2c 30 2c 31 37 2c 31  39 2c 31 32 2c 32 36 0d  |8,0,17,19,12,26.|
000004c0  06 ae 12 58 25 3d 30 3a  59 25 3d 30 3a 5a 25 3d  |...X%=0:Y%=0:Z%=|
000004d0  30 0d 06 b8 0c e3 20 49  25 3d 31 b8 36 0d 06 c2  |0..... I%=1.6...|
000004e0  15 e7 20 50 28 49 25 29  3d 30 3a 58 25 3d 58 25  |.. P(I%)=0:X%=X%|
000004f0  2b 31 0d 06 cc 15 e7 20  4e 28 49 25 29 3d 30 3a  |+1..... N(I%)=0:|
00000500  59 25 3d 59 25 2b 31 0d  06 d6 17 e7 20 4e 28 49  |Y%=Y%+1..... N(I|
00000510  25 29 3e 5a 25 20 5a 25  3d 4e 28 49 25 29 0d 06  |%)>Z% Z%=N(I%)..|
00000520  e0 0e ed 3a 58 25 3d 58  25 80 42 25 0d 06 ea 21  |...:X%=X%.B%...!|
00000530  e7 20 58 25 3d 31 3a e7  20 50 28 31 29 3d 30 20  |. X%=1:. P(1)=0 |
00000540  84 20 50 28 36 29 3d 30  3a 58 25 3d 34 0d 06 f4  |. P(6)=0:X%=4...|
00000550  26 e7 20 59 25 3d 31 3a  e7 20 4e 28 31 29 3d 30  |&. Y%=1:. N(1)=0|
00000560  20 84 20 4e 28 36 29 3d  30 3a 59 25 3d 34 3a 5a  | . N(6)=0:Y%=4:Z|
00000570  25 3d 35 0d 06 fe 1f e7  20 46 25 3d 30 20 80 20  |%=5..... F%=0 . |
00000580  59 25 3d 35 3a 46 25 3d  2d 36 3a 56 25 3d 44 28  |Y%=5:F%=-6:V%=D(|
00000590  35 29 0d 07 08 10 e7 20  46 25 20 f2 66 69 76 65  |5)..... F% .five|
000005a0  3a e1 0d 07 12 15 f2 70  72 6f 6d 70 74 3a f2 64  |:......prompt:.d|
000005b0  65 6c 61 79 28 31 29 0d  07 1c 12 e7 20 59 25 3e  |elay(1)..... Y%>|
000005c0  58 25 3a 42 25 3d b9 3a  e1 0d 07 26 12 e7 20 58  |X%:B%=.:...&.. X|
000005d0  25 3e 59 25 3a 42 25 3d  a3 3a e1 0d 07 30 0e 42  |%>Y%:B%=.:...0.B|
000005e0  25 3d 31 3a 58 25 3d 31  36 0d 07 3a 0a f5 3a 59  |%=1:X%=16..:..:Y|
000005f0  25 3d 36 0d 07 44 05 f5  0d 07 4e 1b 5a 25 3d 28  |%=6..D....N.Z%=(|
00000600  50 28 59 25 29 20 84 20  4e 28 59 25 29 29 20 80  |P(Y%) . N(Y%)) .|
00000610  20 58 25 0d 07 58 1d e7  20 5a 25 3e 30 20 80 20  | X%..X.. Z%>0 . |
00000620  4e 28 59 25 29 3e 50 28  59 25 29 20 42 25 3d b9  |N(Y%)>P(Y%) B%=.|
00000630  0d 07 62 1d e7 20 5a 25  3e 30 20 80 20 4e 28 59  |..b.. Z%>0 . N(Y|
00000640  25 29 3c 50 28 59 25 29  20 42 25 3d a3 0d 07 6c  |%)<P(Y%) B%=...l|
00000650  19 59 25 3d 59 25 2d 31  3a fd 20 59 25 3d 30 20  |.Y%=Y%-1:. Y%=0 |
00000660  84 20 42 25 3c 31 0d 07  76 19 58 25 3d 58 25 81  |. B%<1..v.X%=X%.|
00000670  32 3a fd 20 58 25 3d 30  20 84 20 42 25 3c 31 0d  |2:. X%=0 . B%<1.|
00000680  07 80 0f e7 20 42 25 3d  31 3a 42 25 3d a3 0d 07  |.... B%=1:B%=...|
00000690  8a 05 e1 0d 07 94 05 3a  0d 07 9e 0a dd f2 6c 6f  |.......:......lo|
000006a0  73 65 0d 07 a8 0a e7 20  46 25 20 e1 0d 07 b2 1b  |se..... F% .....|
000006b0  f2 64 65 6c 61 79 28 33  29 3a ef 31 37 2c 31 2c  |.delay(3):.17,1,|
000006c0  33 31 2c 32 2c 31 37 0d  07 bc 40 e7 20 54 25 20  |31,2,17...@. T% |
000006d0  f1 22 59 4f 55 22 3b 3a  d4 30 2c 2d 31 30 2c 31  |."YOU";:.0,-10,1|
000006e0  30 2c 31 30 20 8b 20 f1  22 20 49 20 22 3b 3a d4  |0,10 . ." I ";:.|
000006f0  31 2c 2d 31 30 2c 31 30  31 2c 38 3a d4 31 2c 2d  |1,-10,101,8:.1,-|
00000700  31 30 2c 38 31 2c 38 0d  07 c6 14 f1 20 22 20 4c  |10,81,8..... " L|
00000710  4f 53 45 20 41 20 4c 49  46 45 22 0d 07 d0 13 4c  |OSE A LIFE"....L|
00000720  28 2d 54 25 29 3d 4c 28  2d 54 25 29 2d 31 0d 07  |(-T%)=L(-T%)-1..|
00000730  da 23 ef 31 37 2c 33 2c  33 31 2c 28 2d 54 25 2a  |.#.17,3,31,(-T%*|
00000740  36 29 2b 31 31 2c 31 2c  34 38 2b 4c 28 2d 54 25  |6)+11,1,48+L(-T%|
00000750  29 0d 07 e4 13 e7 20 4c  28 2d 54 25 29 3d 30 3a  |)..... L(-T%)=0:|
00000760  44 25 3d b9 0d 07 ee 06  20 e1 0d 07 f8 05 3a 0d  |D%=..... .....:.|
00000770  08 02 0a dd f2 64 65 61  64 0d 08 0c 11 ef 33 31  |.....dead.....31|
00000780  2c 34 2c 32 32 2c 31 37  2c 39 0d 08 16 1f e7 20  |,4,22,17,9..... |
00000790  54 25 20 f1 22 59 4f 55  20 41 52 45 22 3b 8b 20  |T% ."YOU ARE";. |
000007a0  f1 22 20 49 20 41 4d 22  3b 0d 08 20 0c f1 22 20  |." I AM";.. .." |
000007b0  44 45 41 44 22 0d 08 2a  11 ef 31 37 2c 33 2c 33  |DEAD"..*..17,3,3|
000007c0  31 2c 30 2c 32 38 0d 08  34 1a f1 22 53 50 41 43  |1,0,28..4.."SPAC|
000007d0  45 20 42 41 52 20 54 4f  20 52 45 50 4c 41 59 22  |E BAR TO REPLAY"|
000007e0  0d 08 3e 1a f1 22 4f 52  20 52 45 54 55 52 4e 20  |..>.."OR RETURN |
000007f0  54 4f 20 46 49 4e 49 53  48 22 0d 08 48 1c f5 3a  |TO FINISH"..H..:|
00000800  f2 69 6e 6b 65 79 3a fd  20 49 25 3d 33 32 20 84  |.inkey:. I%=32 .|
00000810  20 49 25 3d 31 33 0d 08  52 10 e7 20 49 25 3d 31  | I%=13..R.. I%=1|
00000820  33 3a 45 25 3d b9 0d 08  5c 05 e1 0d 08 66 05 3a  |3:E%=...\....f.:|
00000830  0d 08 70 09 dd f2 65 6e  64 0d 08 7a 20 ef 31 32  |..p...end..z .12|
00000840  2c 31 37 2c 33 2c 33 31  2c 35 2c 31 32 3a f1 22  |,17,3,31,5,12:."|
00000850  2c 42 59 45 45 45 45 22  3b 0d 08 84 0a 2a 46 58  |,BYEEEE";....*FX|
00000860  32 32 35 0d 08 8e 05 e1  0d 08 98 05 3a 0d 08 a2  |225.........:...|
00000870  0a dd f2 68 6f 6c 64 0d  08 ac 0d e7 20 46 25 3d  |...hold..... F%=|
00000880  2d 35 20 e1 0d 08 b6 11  44 28 49 25 29 3d 44 28  |-5 .....D(I%)=D(|
00000890  49 25 29 2b 38 0d 08 c0  1b ef 31 37 2c 31 2c 33  |I%)+8.....17,1,3|
000008a0  31 2c 28 49 25 2a 34 29  2d 33 2c 31 32 2c 37 32  |1,(I%*4)-3,12,72|
000008b0  0d 08 ca 05 e1 0d 08 d4  05 3a 0d 08 de 0c dd f2  |.........:......|
000008c0  63 61 6e 63 65 6c 0d 08  e8 0e e3 20 49 25 3d 31  |cancel..... I%=1|
000008d0  b8 35 20 20 0d 08 f2 11  44 28 49 25 29 3d 44 28  |.5  ....D(I%)=D(|
000008e0  49 25 29 80 37 0d 08 fc  17 ef 33 31 2c 28 49 25  |I%).7.....31,(I%|
000008f0  2a 34 29 2d 32 2c 31 32  2c 31 32 37 0d 09 06 05  |*4)-2,12,127....|
00000900  ed 0d 09 10 05 e1 0d 09  1a 05 3a 0d 09 24 0a dd  |..........:..$..|
00000910  f2 64 69 63 65 0d 09 2e  20 59 25 3d 28 49 25 2d  |.dice... Y%=(I%-|
00000920  31 29 2a 34 3a ef 32 38  2c 59 25 2c 31 31 2c 59  |1)*4:.28,Y%,11,Y|
00000930  25 2b 32 2c 36 0d 09 38  05 e1 0d 09 42 05 3a 0d  |%+2,6..8....B.:.|
00000940  09 4c 0a dd f2 72 6f 6c  6c 0d 09 56 10 d4 31 2c  |.L...roll..V..1,|
00000950  2d 31 35 2c 32 30 30 2c  31 0d 09 60 22 4e 28 5a  |-15,200,1..`"N(Z|
00000960  25 29 3d 4e 28 5a 25 29  81 32 3a 5a 25 3d b3 28  |%)=N(Z%).2:Z%=.(|
00000970  36 29 3a 44 28 49 25 29  3d 5a 25 0d 09 6a 26 e7  |6):D(I%)=Z%..j&.|
00000980  20 4e 28 5a 25 29 3d 30  20 4e 28 5a 25 29 3d 31  | N(Z%)=0 N(Z%)=1|
00000990  3a 20 8b 20 4e 28 5a 25  29 3d 4e 28 5a 25 29 2a  |: . N(Z%)=N(Z%)*|
000009a0  32 0d 09 74 16 f7 20 28  5a 25 2a 35 30 29 2b 32  |2..t.. (Z%*50)+2|
000009b0  37 35 30 3a f3 43 25 0d  09 7e 11 ef 31 37 2c 43  |750:.C%..~..17,C|
000009c0  25 2c 31 37 2c 31 33 35  0d 09 88 2d e3 20 4a 25  |%,17,135...-. J%|
000009d0  3d 31 b8 31 35 3a f3 58  25 2c 59 25 3a 21 26 43  |=1.15:.X%,Y%:!&C|
000009e0  30 34 3d 58 25 3a 21 26  43 30 30 3d 59 25 3a ef  |04=X%:!&C00=Y%:.|
000009f0  32 32 34 3a ed 0d 09 92  0b ef 31 37 2c 31 32 38  |224:......17,128|
00000a00  0d 09 9c 05 e1 0d 09 a6  05 3a 0d 09 b0 0a dd f2  |.........:......|
00000a10  66 69 76 65 0d 09 ba 23  42 25 3d 30 3a 5a 25 3d  |five...#B%=0:Z%=|
00000a20  2d 46 25 3c 36 20 80 20  59 25 3d 35 20 80 20 44  |-F%<6 . Y%=5 . D|
00000a30  28 35 29 3e 3d 56 25 0d  09 c4 1d e7 20 5a 25 20  |(5)>=V%..... Z% |
00000a40  56 25 3d 31 3a 46 25 3d  30 3a 54 25 3d 2d 54 25  |V%=1:F%=0:T%=-T%|
00000a50  2d 31 3a e1 0d 09 ce 1a  46 25 3d 46 25 2b 31 3a  |-1:.....F%=F%+1:|
00000a60  e7 20 46 25 3d 30 3a 56  25 3d 31 3a e1 20 0d 09  |. F%=0:V%=1:. ..|
00000a70  d8 14 e7 20 46 25 3d 2d  35 3a 54 25 3d 2d 54 25  |... F%=-5:T%=-T%|
00000a80  2d 31 0d 09 e2 11 ef 31  37 2c 32 2c 33 31 2c 30  |-1.....17,2,31,0|
00000a90  2c 31 35 0d 09 ec 1b f1  22 46 69 76 65 20 6f 66  |,15....."Five of|
00000aa0  20 6b 69 6e 64 20 74 6f  20 62 65 61 74 22 0d 09  | kind to beat"..|
00000ab0  f6 22 f1 22 4f 72 20 45  71 75 61 6c 20 49 6e 20  |."."Or Equal In |
00000ac0  22 3b 2d 46 25 3b 22 20  54 68 72 6f 77 73 22 3b  |";-F%;" Throws";|
00000ad0  0d 0a 00 10 e7 20 2d 46  25 3d 31 3a ef 31 32 37  |..... -F%=1:.127|
00000ae0  0d 0a 0a 05 e1 0d 0a 14  05 3a 0d 0a 1e 0f dd f2  |.........:......|
00000af0  64 65 6c 61 79 28 58 25  29 0d 0a 28 13 d1 3d 30  |delay(X%)..(..=0|
00000b00  3a f5 3a fd 20 91 3d 58  25 2a 35 30 0d 0a 32 05  |:.:. .=X%*50..2.|
00000b10  e1 0d 0a 3c 05 3a 0d 0a  46 0b dd f2 69 6e 6b 65  |...<.:..F...inke|
00000b20  79 0d 0a 50 0b 2a 46 58  31 35 2c 31 0d 0a 5a 0b  |y..P.*FX15,1..Z.|
00000b30  49 25 3d a6 28 39 29 0d  0a 64 05 e1 0d 0a 6e 05  |I%=.(9)..d....n.|
00000b40  3a 0d 0a 78 0c dd f2 70  72 6f 6d 70 74 0d 0a 82  |:..x...prompt...|
00000b50  11 ef 31 37 2c 32 2c 33  31 2c 34 2c 31 35 0d 0a  |..17,2,31,4,15..|
00000b60  8c 20 e7 20 5a 25 3d 31  20 80 20 59 25 3d 31 20  |. . Z%=1 . Y%=1 |
00000b70  f1 22 20 41 63 65 20 68  69 67 68 20 20 22 0d 0a  |." Ace high  "..|
00000b80  96 19 e7 20 59 25 3d 32  20 f1 22 4f 6e 65 20 50  |... Y%=2 ."One P|
00000b90  61 69 72 20 20 20 22 0d  0a a0 1f 20 e7 20 5a 25  |air   ".... . Z%|
00000ba0  3d 32 20 80 20 59 25 3d  33 20 f1 22 54 77 6f 20  |=2 . Y%=3 ."Two |
00000bb0  50 61 69 72 73 22 0d 0a  aa 21 e7 20 5a 25 3d 34  |Pairs"...!. Z%=4|
00000bc0  20 80 20 59 25 3d 33 20  f1 22 33 20 6f 66 20 61  | . Y%=3 ."3 of a|
00000bd0  20 6b 69 6e 64 22 20 0d  0a b4 21 e7 20 5a 25 3d  | kind" ...!. Z%=|
00000be0  35 20 80 20 4e 28 36 29  3d 30 20 f1 22 4c 6f 77  |5 . N(6)=0 ."Low|
00000bf0  20 72 75 6e 20 20 20 22  0d 0a be 1f e7 20 5a 25  | run   "..... Z%|
00000c00  3d 35 20 80 20 4e 28 31  29 3d 30 20 f1 22 48 69  |=5 . N(1)=0 ."Hi|
00000c10  67 68 20 72 75 6e 22 0d  0a c8 20 e7 20 5a 25 3d  |gh run"... . Z%=|
00000c20  34 20 80 20 59 25 3d 34  20 f1 22 46 75 6c 6c 20  |4 . Y%=4 ."Full |
00000c30  48 6f 75 73 65 20 22 0d  0a d2 20 e7 20 5a 25 3d  |House "... . Z%=|
00000c40  38 20 80 20 59 25 3d 34  20 f1 22 34 20 6f 66 20  |8 . Y%=4 ."4 of |
00000c50  61 20 4b 69 6e 64 22 0d  0a dc 05 e1 0d 0a e6 05  |a Kind".........|
00000c60  3a 0d 0a f0 32 dc 30 2c  26 31 30 37 43 37 43 37  |:...2.0,&107C7C7|
00000c70  43 2c 26 33 38 31 30 30  30 30 30 2c 30 2c 30 2c  |C,&38100000,0,0,|
00000c80  26 31 30 37 43 37 43 37  43 2c 26 33 38 31 30 30  |&107C7C7C,&38100|
00000c90  30 30 30 0d 0a fa 30 dc  26 37 43 37 43 33 38 31  |000...0.&7C7C381|
00000ca0  30 2c 26 30 30 30 30 30  30 33 38 2c 30 2c 30 2c  |0,&00000038,0,0,|
00000cb0  26 37 43 37 43 33 38 31  30 2c 26 30 30 30 30 30  |&7C7C3810,&00000|
00000cc0  30 33 38 0d 0b 04 40 dc  26 31 30 33 38 30 30 30  |038...@.&1038000|
00000cd0  30 2c 26 30 30 33 38 31  30 37 43 2c 26 30 30 33  |0,&0038107C,&003|
00000ce0  38 31 30 37 43 2c 26 37  43 37 43 33 38 31 30 2c  |8107C,&7C7C3810,|
00000cf0  26 31 30 33 38 30 30 30  30 2c 26 30 30 33 38 31  |&10380000,&00381|
00000d00  30 37 43 0d 0b 0e 30 dc  26 33 38 30 30 30 30 31  |07C...0.&3800001|
00000d10  30 2c 26 33 38 37 43 37  43 37 43 2c 30 2c 30 2c  |0,&387C7C7C,0,0,|
00000d20  26 33 38 30 30 30 30 31  30 2c 26 33 38 37 43 37  |&38000010,&387C7|
00000d30  43 37 43 0d 0b 18 30 dc  26 30 30 30 30 31 30 33  |C7C...0.&0000103|
00000d40  38 2c 26 37 43 37 43 37  43 31 30 2c 30 2c 30 2c  |8,&7C7C7C10,0,0,|
00000d50  26 30 30 30 30 31 30 33  38 2c 26 37 43 37 43 37  |&00001038,&7C7C7|
00000d60  43 31 30 0d 0b 22 32 dc  31 2c 26 31 30 33 38 37  |C10.."2.1,&10387|
00000d70  43 33 38 2c 26 31 30 31  30 30 30 30 30 2c 30 2c  |C38,&10100000,0,|
00000d80  30 2c 26 31 30 33 38 37  43 33 38 2c 26 31 30 31  |0,&10387C38,&101|
00000d90  30 30 30 30 30 0d 0b 2c  32 dc 26 37 43 33 38 31  |00000..,2.&7C381|
00000da0  30 31 30 2c 26 31 30 2c  26 31 30 31 30 33 38 2c  |010,&10,&101038,|
00000db0  26 37 43 33 38 31 30 31  30 2c 26 37 43 33 38 31  |&7C381010,&7C381|
00000dc0  30 31 30 2c 26 31 30 0d  0b 36 2c dc 26 33 38 31  |010,&10..6,.&381|
00000dd0  30 31 30 30 30 2c 26 31  30 31 30 33 38 2c 30 2c  |01000,&101038,0,|
00000de0  30 2c 26 33 38 31 30 31  30 30 30 2c 26 31 30 31  |0,&38101000,&101|
00000df0  30 33 38 0d 0b 40 40 dc  26 31 30 30 30 30 30 30  |038..@@.&1000000|
00000e00  30 2c 26 31 30 31 30 33  38 37 43 2c 26 31 30 31  |0,&1010387C,&101|
00000e10  30 33 38 37 43 2c 26 33  38 31 30 31 30 30 30 2c  |0387C,&38101000,|
00000e20  26 31 30 30 30 30 30 30  30 2c 26 31 30 31 30 33  |&10000000,&10103|
00000e30  38 37 43 0d 0b 4a 28 dc  26 31 30 31 30 2c 26 33  |87C..J(.&1010,&3|
00000e40  38 37 43 33 38 31 30 2c  30 2c 30 2c 26 31 30 31  |87C3810,0,0,&101|
00000e50  30 2c 26 33 38 37 43 33  38 31 30 0d 0b 54 40 dc  |0,&387C3810..T@.|
00000e60  34 2c 26 32 30 32 30 32  30 32 31 2c 26 32 31 37  |4,&20202021,&217|
00000e70  32 30 30 30 30 2c 26 43  32 43 32 46 45 46 46 2c  |20000,&C2C2FEFF,|
00000e80  26 35 35 35 34 30 30 30  30 2c 26 31 45 30 41 30  |&55540000,&1E0A0|
00000e90  38 30 30 2c 26 38 30 30  30 30 30 0d 0b 5e 3c dc  |800,&800000..^<.|
00000ea0  26 31 30 31 30 31 30 31  2c 26 31 30 31 30 30 36  |&1010101,&101006|
00000eb0  30 2c 26 43 30 43 34 38  30 38 32 2c 26 38 32 38  |0,&C0C48082,&828|
00000ec0  38 44 38 43 30 2c 26 38  30 38 30 38 30 38 2c 26  |8D8C0,&8080808,&|
00000ed0  38 30 41 31 45 33 45 0d  0b 68 3c dc 26 46 30 46  |80A1E3E..h<.&F0F|
00000ee0  30 30 30 30 2c 26 31 30  31 30 31 2c 26 46 46 46  |0000,&10101,&FFF|
00000ef0  46 46 45 36 34 2c 26 36  34 45 36 43 32 43 30 2c  |FFE64,&64E6C2C0,|
00000f00  26 46 43 46 43 30 43 30  38 2c 26 38 30 38 30 38  |&FCFC0C08,&80808|
00000f10  30 38 20 0d 0b 72 3a dc  26 31 30 31 30 33 30 33  |08 ..r:.&1010303|
00000f20  2c 26 36 30 36 30 43 30  43 2c 26 39 33 38 33 31  |,&6060C0C,&93831|
00000f30  31 31 31 2c 26 33 38 33  38 36 43 36 43 2c 26 38  |111,&38386C6C,&8|
00000f40  30 38 30 2c 26 43 38 43  38 37 43 37 43 0d 0b 7c  |080,&C8C87C7C..||
00000f50  1c dc 30 2c 30 2c 26 33  38 33 38 2c 26 37 43 37  |..0,0,&3838,&7C7|
00000f60  43 43 36 44 36 2c 30 2c  30 0d 0b 86 40 dc 32 2c  |CC6D6,0,0...@.2,|
00000f70  26 32 30 35 30 35 30 35  31 2c 26 35 31 32 32 30  |&20505051,&51220|
00000f80  30 30 30 2c 26 38 32 38  32 46 45 46 46 2c 26 35  |000,&8282FEFF,&5|
00000f90  35 35 34 30 30 30 30 2c  26 33 45 31 43 30 38 30  |5540000,&3E1C080|
00000fa0  30 2c 26 38 30 30 30 30  30 0d 0b 90 3d dc 26 33  |0,&800000...=.&3|
00000fb0  30 33 30 33 30 33 2c 26  33 30 33 30 31 31 31 2c  |030303,&3030111,|
00000fc0  26 31 31 31 31 31 31 31  2c 26 34 35 36 44 30 31  |&1111111,&456D01|
00000fd0  30 31 2c 26 39 43 41 41  41 41 38 38 2c 26 39 43  |01,&9CAAAA88,&9C|
00000fe0  42 45 33 36 33 36 0d 0b  9a 3e dc 26 46 30 46 30  |BE3636...>.&F0F0|
00000ff0  30 30 30 2c 26 37 30 37  30 37 30 37 2c 26 46 46  |000,&7070707,&FF|
00001000  46 46 45 45 34 34 2c 26  38 33 38 33 39 33 32 39  |FFEE44,&83839329|
00001010  2c 26 46 43 46 43 30 43  30 38 2c 26 43 38 43 38  |,&FCFC0C08,&C8C8|
00001020  43 38 44 43 0d 0b a4 3a  dc 26 31 30 31 30 33 30  |C8DC...:.&101030|
00001030  33 2c 26 36 30 36 30 43  30 43 2c 26 39 33 38 33  |3,&6060C0C,&9383|
00001040  31 31 31 31 2c 26 33 38  33 38 36 43 36 43 2c 26  |1111,&38386C6C,&|
00001050  38 30 38 30 2c 26 43 38  43 38 37 43 37 43 0d 0b  |8080,&C8C87C7C..|
00001060  ae 1c dc 30 2c 30 2c 26  33 38 33 38 2c 26 37 43  |...0,0,&3838,&7C|
00001070  37 43 43 36 44 36 2c 30  2c 30 0d 0b b8 3e dc 31  |7CC6D6,0,0...>.1|
00001080  2c 26 35 31 35 30 36 30  36 31 2c 26 35 31 35 32  |,&51506061,&5152|
00001090  30 30 30 30 2c 26 31 38  32 46 45 46 46 2c 26 35  |0000,&182FEFF,&5|
000010a0  35 35 34 30 30 30 30 2c  26 38 30 38 30 38 30 30  |5540000,&8080800|
000010b0  2c 26 38 30 30 30 30 30  0d 0b c2 3d dc 26 33 30  |,&800000...=.&30|
000010c0  33 30 33 30 33 2c 26 31  30 31 30 31 35 31 2c 26  |30303,&1010151,&|
000010d0  32 39 31 31 31 31 31 31  2c 26 34 35 36 44 30 31  |29111111,&456D01|
000010e0  30 31 2c 26 38 38 38 38  38 38 38 38 2c 26 38 30  |01,&88888888,&80|
000010f0  38 30 38 30 38 0d 0b cc  3e dc 26 46 30 46 30 30  |80808...>.&F0F00|
00001100  30 30 2c 26 33 30 33 30  33 30 33 2c 26 46 46 46  |00,&3030303,&FFF|
00001110  46 46 45 37 43 2c 26 43  37 38 33 33 39 30 31 2c  |FFE7C,&C7833901,|
00001120  26 46 43 46 43 30 43 30  38 2c 26 42 45 38 38 38  |&FCFC0C08,&BE888|
00001130  38 38 38 0d 0b d6 3a dc  26 31 30 31 30 33 30 33  |888...:.&1010303|
00001140  2c 26 36 30 36 30 43 30  43 2c 26 39 33 38 33 31  |,&6060C0C,&93831|
00001150  31 31 31 2c 26 33 38 33  38 36 43 36 43 2c 26 38  |111,&38386C6C,&8|
00001160  30 38 30 2c 26 43 38 43  38 37 43 37 43 0d 0b e0  |080,&C8C87C7C...|
00001170  1c dc 30 2c 30 2c 26 33  38 33 38 2c 26 37 43 37  |..0,0,&3838,&7C7|
00001180  43 43 36 44 36 2c 30 2c  30 0d 0b ea 12 dc 30 2c  |CC6D6,0,0.....0,|
00001190  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 0b f4 20 dc  |0,0,0,0,0,0... .|
000011a0  30 2c 30 2c 26 37 45 37  45 37 45 33 43 2c 26 33  |0,0,&7E7E7E3C,&3|
000011b0  43 31 38 31 38 30 30 2c  30 2c 30 0d 0b fe 3e dc  |C181800,0,0...>.|
000011c0  26 33 30 37 30 37 30 37  2c 26 33 30 33 30 31 30  |&3070707,&303010|
000011d0  31 2c 26 46 46 46 46 46  46 46 46 2c 26 44 42 44  |1,&FFFFFFFF,&DBD|
000011e0  42 42 44 42 44 2c 26 43  30 45 30 45 30 45 30 2c  |BBDBD,&C0E0E0E0,|
000011f0  26 43 30 43 30 38 30 38  30 0d 0c 08 2d dc 30 2c  |&C0C08080...-.0,|
00001200  26 31 30 31 30 33 2c 26  37 45 33 43 31 38 31 38  |&10103,&7E3C1818|
00001210  2c 26 31 38 39 39 39 39  44 42 2c 30 2c 26 38 30  |,&189999DB,0,&80|
00001220  38 30 43 30 43 30 0d 0c  12 10 dc 30 2c 30 2c 30  |80C0C0.....0,0,0|
00001230  2c 30 2c 30 2c 30 0d 0c  1c 05 3a 0d 0c 26 09 ee  |,0,0,0....:..&..|
00001240  20 85 20 87 0d 0c 30 1f  eb 36 3a e7 20 9f 3c 3e  | . ...0..6:. .<>|
00001250  31 37 20 f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  |17 .:." at line |
00001260  22 3b 9e 0d 0c 3a 05 e0  0d ff                    |";...:....|
0000126a