4� cat(5,13),total(5),SUB(5),D(5),sub(5),name$(5)
� 1:�23;8202;0;0;0;
,� 129:� 2:� �10,15)"Up to five can play"
(D�:� �10,19)"How many players ? ":players%=�:players%=players%-48
2� players%>0 � players%<6
<�:�'''':� name=1 � players%
FB� �7)"Enter name of player No. ";name �9)"Up to eight letters"
P� �15)name$(name)
Z3� �(name$(name))<1 � �(name$(name))>8 �7:� �DF@
d�
n�screen
x	�play
��final_score
�� 7
��
�� �play
�Z%=�(-�)
�� attempt%=1 � 13
�� r%=1 � players%
�I� 0:�130:� �28,2);r%:� 128:� �30,2);�(8):� 1:� 131:� �30,2);name$(r%)
��roll_dice
��check_score
��:�
�
�delay(5)
��

� �roll_dice

	�=0:�

k�dice(7,24,3,129,1):�dice(13,24,3,129,2):�dice(19,24,3,129,3):�dice(25,24,3,129,4):�dice(31,24,3,129,5)

"� �>100

,� dummy=1 � 1

6� roll=1 � 2

@B� �3,28);�(40):� �3,28)"WHICH DICE DO YOU WISH TO ROLL ?"dice$

J:� �(dice$)>5 �0,28)�39," ")�0,30)�39," "):�burp:�D@A

T� dice$="" � �D@A

^� dice$="0" � �dBA

h� die%=1 � �(dice$)

rB$=�dice$,die%,1)

|B%=�(B$)-48

�� B%<1 � B%>5 � �txA

�	�=0:�

�#� B% � �dVA,�d`A,�djA,�dtA,�d~A

�� �>100

�� �34,28);�(6)

��:�

�� dummy

��

��dice(7,24,3,129,1):�

��dice(13,24,3,129,2):�

��dice(19,24,3,129,3):�

��dice(25,24,3,129,4):�

��dice(31,24,3,129,5):�

� �filled
)�burp:� �9,29)"CATEGORY ALREADY USED"
�delay(1.5)
&�
0� �sort
:
same=0
D� pass=1 � 4
N� loop=pass+1 � 5
X� D(pass)> D(loop) � �DvB
b$� D(pass)= D(loop) � same=same+1
l(T=D(pass):D(pass)= D(loop):D(loop)=T
v�
��
��
�
� �screen
�D� 128:�:� 0:� 130:� �5,2)"CATEGORIES."�21,2)"PLAYER  ":� 3:� 128
�� Z%=5 � 22
�
� cat$
�blank$=" "
�� cat$=blank$ � �dnB
�� 0:�130:� �1,Z%);cat$;
�� �19-�(cat$),".");
�� �5,"|   "):� 3:� 128
�� Z%
�	PL%=1
!� P%=22 � 38 � 4:� �P%,4);PL%
PL%=PL%+1:�
V� "A) Ones","B) Twos","C) Threes","D) Fours","E) Fives","F) Sixes"," ","Sub total"
 �� " ","G) 3 of a kind","H) 4 of a kind","I) Full house","J) Low straight","K) High straight","L) Dice!","M) Chance"," ","TOTAL"
*7� �6,24)"1"�12,24)"2"�18,24)"3"�24,24)"4"�30,24)"5"
4�dice(7,24,3,129,1)
>�dice(13,24,3,129,2)
H�dice(19,24,3,129,3)
R�dice(25,24,3,129,4)
\�dice(31,24,3,129,5)
fst=0
p�
z� �check_score
�F� �2,28);�(80):� 3:� �5,28)"WHICH CATEGORY WILL YOU USE ? ":CAT$=�
�*� �(CAT$)<65 � �(CAT$)>77 �burp:� �tDC
�CAT%=�(CAT$)-64
�%� cat(r%,CAT%)=� � �tvC � �filled
�
� �tDC
�M� CAT% � �dJC,�dJC,�dJC,�dJC,�dJC,�dJC,�TFD,�DVD,�t\D,�dlD,�DdE,�dRE,�TXF
��
�sub(r%)=0:�L=1 � 5
�$� CAT%=D(L) sub(r%)=sub(r%)+CAT%
��
��display
�
�bonus
��
�
	�sort
J� same<3 �burp:� �10,29)"NOT three of a kind":�delay(1):�zero:� tw=1 �
$� same<3 �tDC
.st=0
8
� L=1 � 5
Bst=st+D(L):�
L�display:�
V�
`�sort:�sort
jI� same<6 �burp:� �11,29)"NOT four of a kind":�delay(1):�zero:� tw=1 �
t� same<6 �tDC
~st=0
�� L=1 � 5:st=st+D(L):�
��display:�
��
�	�sort
�	�sort
�H� same<>4 �burp:� �12,29)"NOT a full house":�delay(1):�zero:� tw=1 �
�� same<>4 �tDC
�	st=25
��display
��
��
�	�sort
same=0:right=0


� L=1 � 4
!� D(L)=D(L+1)+1 right=right+1
�
(� right<3 � �T|E
2st=30:� �DPE
<@�burp:� �11,29)"NOT a low straight":�delay(1):�zero:� tw=1 �
F� right<3 �tDC
P�display
Z�
d�
n	�sort
x� same<>0 � �t`E
�
� L=2 � 5
�� D(L)<>(D(L-1)-1) same=1
��
�K� same<>0 �burp:� �11,29)"NOT a high straight":�delay(1):�zero:� tw=1 �
�� same<>0 �tDC
�	st=40
��display
��
��sort:�sort
�K� same<>10 �burp:� �13,29)"NOT five of a kind":�delay(1):�zero:� tw=1 �
�� same<>10 �tDC
�	st=50
�total(r%)=total(r%)+st
�display
�
CH=0
"
� L=1 � 5
,CH=CH+D(L):�
6	st=CH
@�display
J�
T)� �dice(X%,Y%,colour1%,colour2%,dim%)
^�(colour1%):�(colour2%)
hA%=�(6)
rD(dim%)=A%
|(� A% � �tFF,�tPF,�tZF,�tdF,�tnF,�txF
�2di1$=�232:di2$=�238:di3$=�239:di4$=�233:� �dBF
�2di1$=�234:di2$=�235:di3$=�236:di4$=�237:� �dBF
�2di1$=�232:di2$=�229:di3$=�230:di4$=�233:� �dBF
�2di1$=�234:di2$=�240:di3$=�241:di4$=�237:� �dBF
�2di1$=�228:di2$=�229:di3$=�230:di4$=�231:� �dBF
�+di1$=�224:di2$=�225:di3$=�226:di4$=�227
�+� �X%,Y%);di1$;di2$;�X%,Y%+1);di3$;di4$
�� 2,-10,50+(10*A%),1
�� 20
��
�� �zero
�tw=0
�� cat(r%,CAT%)=� �filled
*� 1:� �10,29)"Is this a throw-away ? "
 � �"YN",�)� �T\G,�DXG � �THG
row=17:� L=1 � r%
&row=row+4:�
0� �10,29);�(26)
:+� 0:� 130:� �row+2,CAT%+7);"0":�3:� 128
Dcat(r%,CAT%)=�
N
tw=1:�
X� �10,29);�(26):�
b� �display
l
row=17
v� L=1 � r%
�row=row+4:�
�� CAT%>6 � �dxG
�O�0:� 130:� sub(r%)<10 � � �row+2,CAT%+4);sub(r%) � � �row+1,CAT%+4);sub(r%)
�SUB(r%)=SUB(r%)+sub(r%)
�'� SUB(r%)<10 � � �row+2,12);SUB(r%)
�4� SUB(r%)>9 � SUB(r%)<100 � � �row+1,12);SUB(r%)
�%� SUB(r%)>99 � � �row,12);SUB(r%)
�total(r%)=total(r%)+sub(r%)
�+� total(r%)<10 � � �row+2,22);total(r%)
�:� total(r%)>9 � total(r%)<100 � � �row+1,22);total(r%)
�)� total(r%)>99 � � �row,22);total(r%)
�cat(r%,CAT%)=�:�
�?� 0:� 130:� st<10 � �row+2,CAT%+7);st � � �row+1,CAT%+7);st
total(r%)=total(r%)+st
+� total(r%)<10 � � �row+2,22);total(r%)
9� total(r%)>9 �total(r%)<100 � � �row+1,22);total(r%)
 (� total(r%)>99� � �row,22);total(r%)
*cat(r%,CAT%)=�
4
st=0:�
>� �bonus
Hextra=0
R
� L=1 � 6
\� cat(r%,L)=� extra=extra+1
f�
pK� extra=6 � SUB(r%)>62 SUB(r%)=SUB(r%)+35:total(r%)=total(r%)+35:� �d@H
z1� 0:� 130:� SUB(r%)<10 � � �row+2,12);SUB(r%)
�4� SUB(r%)>9 � SUB(r%)<100 � � �row+1,12);SUB(r%)
�%� SUB(r%)>99 � � �row,12);SUB(r%)
�+� total(r%)<10 � � �row+2,22);total(r%)
�:� total(r%)>9 � total(r%)<100 � � �row+1,22);total(r%)
�(� total(r%)>99� � �row,22);total(r%)
��
�U� &12,1,50,20:� 129:� 3:� SUB(r%)<100 � � �row+1,12);SUB(r%) � � �row,12);SUB(r%)
�� 0:� 130:� �tbH
�� �final_score
�� 3:�129
�� (r%-1)>1 � �TFI
�(�:� �20-(�(name$(1))/2),12);name$(1)
�?� �12,14)"Your final score"�16,16)"was ";total(r%-1):� �TdI
	�:�sort1:� L=1 � r%-1
	6� �20-�(name$(L)),10+(L*2));name$(L);"  ";total(L)
	�
	$*FX15,0
	.#� �13,28)"Another game ? ":G$=�
	8� G$="Y" � �
	B� G$<>"N" � �TdI
	L�
	V��delay(secs)
	`�=0
	j� � �>secs*100
	t�
	~� �burp
	�� s%=1 � 6
	�� 1,1,s%,2
	��
	��
	���sort1
	��pass=1�r%-2
	��loop=pass+1�r%-1
	�#� total(pass)>total(loop)� �dlI
	�=temp=total(pass):total(pass)=total(loop):total(loop)=temp
	�?temp$=name$(pass):name$(pass)=name$(loop):name$(loop)=temp$
	��
	��
�
�

00000000  0d 00 0a 34 de 20 63 61  74 28 35 2c 31 33 29 2c  |...4. cat(5,13),|
00000010  74 6f 74 61 6c 28 35 29  2c 53 55 42 28 35 29 2c  |total(5),SUB(5),|
00000020  44 28 35 29 2c 73 75 62  28 35 29 2c 6e 61 6d 65  |D(5),sub(5),name|
00000030  24 28 35 29 0d 00 14 17  eb 20 31 3a ef 32 33 3b  |$(5)..... 1:.23;|
00000040  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 1e 2c fb  |8202;0;0;0;...,.|
00000050  20 31 32 39 3a fb 20 32  3a f1 20 8a 31 30 2c 31  | 129:. 2:. .10,1|
00000060  35 29 22 55 70 20 74 6f  20 66 69 76 65 20 63 61  |5)"Up to five ca|
00000070  6e 20 70 6c 61 79 22 0d  00 28 44 f5 3a f1 20 8a  |n play"..(D.:. .|
00000080  31 30 2c 31 39 29 22 48  6f 77 20 6d 61 6e 79 20  |10,19)"How many |
00000090  70 6c 61 79 65 72 73 20  3f 20 22 3a 70 6c 61 79  |players ? ":play|
000000a0  65 72 73 25 3d a5 3a 70  6c 61 79 65 72 73 25 3d  |ers%=.:players%=|
000000b0  70 6c 61 79 65 72 73 25  2d 34 38 0d 00 32 1d fd  |players%-48..2..|
000000c0  20 70 6c 61 79 65 72 73  25 3e 30 20 80 20 70 6c  | players%>0 . pl|
000000d0  61 79 65 72 73 25 3c 36  0d 00 3c 1f db 3a f1 27  |ayers%<6..<..:.'|
000000e0  27 27 27 3a e3 20 6e 61  6d 65 3d 31 20 b8 20 70  |''':. name=1 . p|
000000f0  6c 61 79 65 72 73 25 0d  00 46 42 f1 20 8a 37 29  |layers%..FB. .7)|
00000100  22 45 6e 74 65 72 20 6e  61 6d 65 20 6f 66 20 70  |"Enter name of p|
00000110  6c 61 79 65 72 20 4e 6f  2e 20 22 3b 6e 61 6d 65  |layer No. ";name|
00000120  20 8a 39 29 22 55 70 20  74 6f 20 65 69 67 68 74  | .9)"Up to eight|
00000130  20 6c 65 74 74 65 72 73  22 0d 00 50 15 e8 20 8a  | letters"..P.. .|
00000140  31 35 29 6e 61 6d 65 24  28 6e 61 6d 65 29 0d 00  |15)name$(name)..|
00000150  5a 33 e7 20 a9 28 6e 61  6d 65 24 28 6e 61 6d 65  |Z3. .(name$(name|
00000160  29 29 3c 31 20 84 20 a9  28 6e 61 6d 65 24 28 6e  |))<1 . .(name$(n|
00000170  61 6d 65 29 29 3e 38 20  ef 37 3a e5 20 8d 44 46  |ame))>8 .7:. .DF|
00000180  40 0d 00 64 05 ed 0d 00  6e 0b f2 73 63 72 65 65  |@..d....n..scree|
00000190  6e 0d 00 78 09 f2 70 6c  61 79 0d 00 82 10 f2 66  |n..x..play.....f|
000001a0  69 6e 61 6c 5f 73 63 6f  72 65 0d 00 8c 07 eb 20  |inal_score..... |
000001b0  37 0d 00 96 05 e0 0d 00  a0 0b dd 20 f2 70 6c 61  |7.......... .pla|
000001c0  79 0d 00 aa 0c 5a 25 3d  b3 28 2d 91 29 0d 00 b4  |y....Z%=.(-.)...|
000001d0  15 e3 20 61 74 74 65 6d  70 74 25 3d 31 20 b8 20  |.. attempt%=1 . |
000001e0  31 33 0d 00 be 15 e3 20  72 25 3d 31 20 b8 20 70  |13..... r%=1 . p|
000001f0  6c 61 79 65 72 73 25 0d  00 c8 49 fb 20 30 3a fb  |layers%...I. 0:.|
00000200  31 33 30 3a f1 20 8a 32  38 2c 32 29 3b 72 25 3a  |130:. .28,2);r%:|
00000210  fb 20 31 32 38 3a f1 20  8a 33 30 2c 32 29 3b 89  |. 128:. .30,2);.|
00000220  28 38 29 3a fb 20 31 3a  fb 20 31 33 31 3a f1 20  |(8):. 1:. 131:. |
00000230  8a 33 30 2c 32 29 3b 6e  61 6d 65 24 28 72 25 29  |.30,2);name$(r%)|
00000240  0d 00 d2 0e f2 72 6f 6c  6c 5f 64 69 63 65 0d 00  |.....roll_dice..|
00000250  dc 10 f2 63 68 65 63 6b  5f 73 63 6f 72 65 0d 00  |...check_score..|
00000260  e6 07 ed 3a ed 0d 00 f0  0d f2 64 65 6c 61 79 28  |...:......delay(|
00000270  35 29 0d 00 fa 05 e1 0d  01 04 10 dd 20 f2 72 6f  |5).......... .ro|
00000280  6c 6c 5f 64 69 63 65 0d  01 0e 09 d1 3d 30 3a f5  |ll_dice.....=0:.|
00000290  0d 01 18 6b f2 64 69 63  65 28 37 2c 32 34 2c 33  |...k.dice(7,24,3|
000002a0  2c 31 32 39 2c 31 29 3a  f2 64 69 63 65 28 31 33  |,129,1):.dice(13|
000002b0  2c 32 34 2c 33 2c 31 32  39 2c 32 29 3a f2 64 69  |,24,3,129,2):.di|
000002c0  63 65 28 31 39 2c 32 34  2c 33 2c 31 32 39 2c 33  |ce(19,24,3,129,3|
000002d0  29 3a f2 64 69 63 65 28  32 35 2c 32 34 2c 33 2c  |):.dice(25,24,3,|
000002e0  31 32 39 2c 34 29 3a f2  64 69 63 65 28 33 31 2c  |129,4):.dice(31,|
000002f0  32 34 2c 33 2c 31 32 39  2c 35 29 0d 01 22 0b fd  |24,3,129,5).."..|
00000300  20 91 3e 31 30 30 0d 01  2c 11 e3 20 64 75 6d 6d  | .>100..,.. dumm|
00000310  79 3d 31 20 b8 20 31 0d  01 36 10 e3 20 72 6f 6c  |y=1 . 1..6.. rol|
00000320  6c 3d 31 20 b8 20 32 0d  01 40 42 f1 20 8a 33 2c  |l=1 . 2..@B. .3,|
00000330  32 38 29 3b 89 28 34 30  29 3a e8 20 8a 33 2c 32  |28);.(40):. .3,2|
00000340  38 29 22 57 48 49 43 48  20 44 49 43 45 20 44 4f  |8)"WHICH DICE DO|
00000350  20 59 4f 55 20 57 49 53  48 20 54 4f 20 52 4f 4c  | YOU WISH TO ROL|
00000360  4c 20 3f 22 64 69 63 65  24 0d 01 4a 3a e7 20 a9  |L ?"dice$..J:. .|
00000370  28 64 69 63 65 24 29 3e  35 20 f1 8a 30 2c 32 38  |(dice$)>5 ..0,28|
00000380  29 c4 33 39 2c 22 20 22  29 8a 30 2c 33 30 29 c4  |).39," ").0,30).|
00000390  33 39 2c 22 20 22 29 3a  f2 62 75 72 70 3a e5 8d  |39," "):.burp:..|
000003a0  44 40 41 0d 01 54 15 e7  20 64 69 63 65 24 3d 22  |D@A..T.. dice$="|
000003b0  22 20 8c 20 8d 44 40 41  0d 01 5e 16 e7 20 64 69  |" . .D@A..^.. di|
000003c0  63 65 24 3d 22 30 22 20  8c 20 8d 64 42 41 0d 01  |ce$="0" . .dBA..|
000003d0  68 17 e3 20 64 69 65 25  3d 31 20 b8 20 a9 28 64  |h.. die%=1 . .(d|
000003e0  69 63 65 24 29 0d 01 72  15 42 24 3d c1 64 69 63  |ice$)..r.B$=.dic|
000003f0  65 24 2c 64 69 65 25 2c  31 29 0d 01 7c 0f 42 25  |e$,die%,1)..|.B%|
00000400  3d 97 28 42 24 29 2d 34  38 0d 01 86 18 e7 20 42  |=.(B$)-48..... B|
00000410  25 3c 31 20 84 20 42 25  3e 35 20 8c 20 8d 74 78  |%<1 . B%>5 . .tx|
00000420  41 0d 01 90 09 d1 3d 30  3a f5 0d 01 9a 23 ee 20  |A.....=0:....#. |
00000430  42 25 20 e4 20 8d 64 56  41 2c 8d 64 60 41 2c 8d  |B% . .dVA,.d`A,.|
00000440  64 6a 41 2c 8d 64 74 41  2c 8d 64 7e 41 0d 01 a4  |djA,.dtA,.d~A...|
00000450  0b fd 20 91 3e 31 30 30  0d 01 ae 12 f1 20 8a 33  |.. .>100..... .3|
00000460  34 2c 32 38 29 3b 89 28  36 29 0d 01 b8 07 ed 3a  |4,28);.(6).....:|
00000470  ed 0d 01 c2 0b ed 20 64  75 6d 6d 79 0d 01 cc 05  |...... dummy....|
00000480  e1 0d 01 d6 19 f2 64 69  63 65 28 37 2c 32 34 2c  |......dice(7,24,|
00000490  33 2c 31 32 39 2c 31 29  3a f8 0d 01 e0 1a f2 64  |3,129,1):......d|
000004a0  69 63 65 28 31 33 2c 32  34 2c 33 2c 31 32 39 2c  |ice(13,24,3,129,|
000004b0  32 29 3a f8 0d 01 ea 1a  f2 64 69 63 65 28 31 39  |2):......dice(19|
000004c0  2c 32 34 2c 33 2c 31 32  39 2c 33 29 3a f8 0d 01  |,24,3,129,3):...|
000004d0  f4 1a f2 64 69 63 65 28  32 35 2c 32 34 2c 33 2c  |...dice(25,24,3,|
000004e0  31 32 39 2c 34 29 3a f8  0d 01 fe 1a f2 64 69 63  |129,4):......dic|
000004f0  65 28 33 31 2c 32 34 2c  33 2c 31 32 39 2c 35 29  |e(31,24,3,129,5)|
00000500  3a f8 0d 02 08 0d dd 20  f2 66 69 6c 6c 65 64 0d  |:...... .filled.|
00000510  02 12 29 f2 62 75 72 70  3a f1 20 8a 39 2c 32 39  |..).burp:. .9,29|
00000520  29 22 43 41 54 45 47 4f  52 59 20 41 4c 52 45 41  |)"CATEGORY ALREA|
00000530  44 59 20 55 53 45 44 22  0d 02 1c 0f f2 64 65 6c  |DY USED".....del|
00000540  61 79 28 31 2e 35 29 0d  02 26 05 e1 0d 02 30 0b  |ay(1.5)..&....0.|
00000550  dd 20 f2 73 6f 72 74 0d  02 3a 0a 73 61 6d 65 3d  |. .sort..:.same=|
00000560  30 0d 02 44 10 e3 20 70  61 73 73 3d 31 20 b8 20  |0..D.. pass=1 . |
00000570  34 0d 02 4e 15 e3 20 6c  6f 6f 70 3d 70 61 73 73  |4..N.. loop=pass|
00000580  2b 31 20 b8 20 35 0d 02  58 1d e7 20 44 28 70 61  |+1 . 5..X.. D(pa|
00000590  73 73 29 3e 20 44 28 6c  6f 6f 70 29 20 8c 20 8d  |ss)> D(loop) . .|
000005a0  44 76 42 0d 02 62 24 e7  20 44 28 70 61 73 73 29  |DvB..b$. D(pass)|
000005b0  3d 20 44 28 6c 6f 6f 70  29 20 8c 20 73 61 6d 65  |= D(loop) . same|
000005c0  3d 73 61 6d 65 2b 31 0d  02 6c 28 54 3d 44 28 70  |=same+1..l(T=D(p|
000005d0  61 73 73 29 3a 44 28 70  61 73 73 29 3d 20 44 28  |ass):D(pass)= D(|
000005e0  6c 6f 6f 70 29 3a 44 28  6c 6f 6f 70 29 3d 54 0d  |loop):D(loop)=T.|
000005f0  02 76 05 ed 0d 02 80 05  ed 0d 02 8a 05 e1 0d 02  |.v..............|
00000600  94 0d dd 20 f2 73 63 72  65 65 6e 0d 02 9e 44 fb  |... .screen...D.|
00000610  20 31 32 38 3a db 3a fb  20 30 3a fb 20 31 33 30  | 128:.:. 0:. 130|
00000620  3a f1 20 8a 35 2c 32 29  22 43 41 54 45 47 4f 52  |:. .5,2)"CATEGOR|
00000630  49 45 53 2e 22 8a 32 31  2c 32 29 22 50 4c 41 59  |IES.".21,2)"PLAY|
00000640  45 52 20 20 22 3a fb 20  33 3a fb 20 31 32 38 0d  |ER  ":. 3:. 128.|
00000650  02 a8 0f e3 20 5a 25 3d  35 20 b8 20 32 32 0d 02  |.... Z%=5 . 22..|
00000660  b2 0a f3 20 63 61 74 24  0d 02 bc 0e 62 6c 61 6e  |... cat$....blan|
00000670  6b 24 3d 22 20 22 0d 02  c6 18 e7 20 63 61 74 24  |k$=" "..... cat$|
00000680  3d 62 6c 61 6e 6b 24 20  e5 20 8d 64 6e 42 0d 02  |=blank$ . .dnB..|
00000690  d0 1b fb 20 30 3a fb 31  33 30 3a f1 20 8a 31 2c  |... 0:.130:. .1,|
000006a0  5a 25 29 3b 63 61 74 24  3b 0d 02 da 17 f1 20 c4  |Z%);cat$;..... .|
000006b0  31 39 2d a9 28 63 61 74  24 29 2c 22 2e 22 29 3b  |19-.(cat$),".");|
000006c0  0d 02 e4 1a f1 20 c4 35  2c 22 7c 20 20 20 22 29  |..... .5,"|   ")|
000006d0  3a fb 20 33 3a fb 20 31  32 38 0d 02 ee 08 ed 20  |:. 3:. 128..... |
000006e0  5a 25 0d 02 f8 09 50 4c  25 3d 31 0d 03 02 21 e3  |Z%....PL%=1...!.|
000006f0  20 50 25 3d 32 32 20 b8  20 33 38 20 88 20 34 3a  | P%=22 . 38 . 4:|
00000700  f1 20 8a 50 25 2c 34 29  3b 50 4c 25 0d 03 0c 0f  |. .P%,4);PL%....|
00000710  50 4c 25 3d 50 4c 25 2b  31 3a ed 0d 03 16 56 dc  |PL%=PL%+1:....V.|
00000720  20 22 41 29 20 4f 6e 65  73 22 2c 22 42 29 20 54  | "A) Ones","B) T|
00000730  77 6f 73 22 2c 22 43 29  20 54 68 72 65 65 73 22  |wos","C) Threes"|
00000740  2c 22 44 29 20 46 6f 75  72 73 22 2c 22 45 29 20  |,"D) Fours","E) |
00000750  46 69 76 65 73 22 2c 22  46 29 20 53 69 78 65 73  |Fives","F) Sixes|
00000760  22 2c 22 20 22 2c 22 53  75 62 20 74 6f 74 61 6c  |"," ","Sub total|
00000770  22 0d 03 20 83 dc 20 22  20 22 2c 22 47 29 20 33  |".. .. " ","G) 3|
00000780  20 6f 66 20 61 20 6b 69  6e 64 22 2c 22 48 29 20  | of a kind","H) |
00000790  34 20 6f 66 20 61 20 6b  69 6e 64 22 2c 22 49 29  |4 of a kind","I)|
000007a0  20 46 75 6c 6c 20 68 6f  75 73 65 22 2c 22 4a 29  | Full house","J)|
000007b0  20 4c 6f 77 20 73 74 72  61 69 67 68 74 22 2c 22  | Low straight","|
000007c0  4b 29 20 48 69 67 68 20  73 74 72 61 69 67 68 74  |K) High straight|
000007d0  22 2c 22 4c 29 20 44 69  63 65 21 22 2c 22 4d 29  |","L) Dice!","M)|
000007e0  20 43 68 61 6e 63 65 22  2c 22 20 22 2c 22 54 4f  | Chance"," ","TO|
000007f0  54 41 4c 22 0d 03 2a 37  f1 20 8a 36 2c 32 34 29  |TAL"..*7. .6,24)|
00000800  22 31 22 8a 31 32 2c 32  34 29 22 32 22 8a 31 38  |"1".12,24)"2".18|
00000810  2c 32 34 29 22 33 22 8a  32 34 2c 32 34 29 22 34  |,24)"3".24,24)"4|
00000820  22 8a 33 30 2c 32 34 29  22 35 22 0d 03 34 17 f2  |".30,24)"5"..4..|
00000830  64 69 63 65 28 37 2c 32  34 2c 33 2c 31 32 39 2c  |dice(7,24,3,129,|
00000840  31 29 0d 03 3e 18 f2 64  69 63 65 28 31 33 2c 32  |1)..>..dice(13,2|
00000850  34 2c 33 2c 31 32 39 2c  32 29 0d 03 48 18 f2 64  |4,3,129,2)..H..d|
00000860  69 63 65 28 31 39 2c 32  34 2c 33 2c 31 32 39 2c  |ice(19,24,3,129,|
00000870  33 29 0d 03 52 18 f2 64  69 63 65 28 32 35 2c 32  |3)..R..dice(25,2|
00000880  34 2c 33 2c 31 32 39 2c  34 29 0d 03 5c 18 f2 64  |4,3,129,4)..\..d|
00000890  69 63 65 28 33 31 2c 32  34 2c 33 2c 31 32 39 2c  |ice(31,24,3,129,|
000008a0  35 29 0d 03 66 08 73 74  3d 30 0d 03 70 05 e1 0d  |5)..f.st=0..p...|
000008b0  03 7a 12 dd 20 f2 63 68  65 63 6b 5f 73 63 6f 72  |.z.. .check_scor|
000008c0  65 0d 03 84 46 f1 20 8a  32 2c 32 38 29 3b 89 28  |e...F. .2,28);.(|
000008d0  38 30 29 3a fb 20 33 3a  e8 20 8a 35 2c 32 38 29  |80):. 3:. .5,28)|
000008e0  22 57 48 49 43 48 20 43  41 54 45 47 4f 52 59 20  |"WHICH CATEGORY |
000008f0  57 49 4c 4c 20 59 4f 55  20 55 53 45 20 3f 20 22  |WILL YOU USE ? "|
00000900  3a 43 41 54 24 3d be 0d  03 8e 2a e7 20 97 28 43  |:CAT$=....*. .(C|
00000910  41 54 24 29 3c 36 35 20  84 20 97 28 43 41 54 24  |AT$)<65 . .(CAT$|
00000920  29 3e 37 37 20 f2 62 75  72 70 3a e5 20 8d 74 44  |)>77 .burp:. .tD|
00000930  43 0d 03 98 13 43 41 54  25 3d 97 28 43 41 54 24  |C....CAT%=.(CAT$|
00000940  29 2d 36 34 0d 03 a2 25  e7 20 63 61 74 28 72 25  |)-64...%. cat(r%|
00000950  2c 43 41 54 25 29 3d a3  20 8c 20 8d 74 76 43 20  |,CAT%)=. . .tvC |
00000960  8b 20 f2 66 69 6c 6c 65  64 0d 03 ac 0a e5 20 8d  |. .filled..... .|
00000970  74 44 43 0d 03 b6 4d ee  20 43 41 54 25 20 e4 20  |tDC...M. CAT% . |
00000980  8d 64 4a 43 2c 8d 64 4a  43 2c 8d 64 4a 43 2c 8d  |.dJC,.dJC,.dJC,.|
00000990  64 4a 43 2c 8d 64 4a 43  2c 8d 64 4a 43 2c 8d 54  |dJC,.dJC,.dJC,.T|
000009a0  46 44 2c 8d 44 56 44 2c  8d 74 5c 44 2c 8d 64 6c  |FD,.DVD,.t\D,.dl|
000009b0  44 2c 8d 44 64 45 2c 8d  64 52 45 2c 8d 54 58 46  |D,.DdE,.dRE,.TXF|
000009c0  0d 03 c0 05 e1 0d 03 ca  16 73 75 62 28 72 25 29  |.........sub(r%)|
000009d0  3d 30 3a e3 4c 3d 31 20  b8 20 35 0d 03 d4 24 e7  |=0:.L=1 . 5...$.|
000009e0  20 43 41 54 25 3d 44 28  4c 29 20 73 75 62 28 72  | CAT%=D(L) sub(r|
000009f0  25 29 3d 73 75 62 28 72  25 29 2b 43 41 54 25 0d  |%)=sub(r%)+CAT%.|
00000a00  03 de 05 ed 0d 03 e8 0c  f2 64 69 73 70 6c 61 79  |.........display|
00000a10  0d 03 f2 0a f2 62 6f 6e  75 73 0d 03 fc 05 f8 0d  |.....bonus......|
00000a20  04 06 05 f4 0d 04 10 09  f2 73 6f 72 74 0d 04 1a  |.........sort...|
00000a30  4a e7 20 73 61 6d 65 3c  33 20 f2 62 75 72 70 3a  |J. same<3 .burp:|
00000a40  f1 20 8a 31 30 2c 32 39  29 22 4e 4f 54 20 74 68  |. .10,29)"NOT th|
00000a50  72 65 65 20 6f 66 20 61  20 6b 69 6e 64 22 3a f2  |ree of a kind":.|
00000a60  64 65 6c 61 79 28 31 29  3a f2 7a 65 72 6f 3a e7  |delay(1):.zero:.|
00000a70  20 74 77 3d 31 20 f8 0d  04 24 12 e7 20 73 61 6d  | tw=1 ...$.. sam|
00000a80  65 3c 33 20 e5 8d 74 44  43 0d 04 2e 08 73 74 3d  |e<3 ..tDC....st=|
00000a90  30 0d 04 38 0d e3 20 4c  3d 31 20 b8 20 35 0d 04  |0..8.. L=1 . 5..|
00000aa0  42 10 73 74 3d 73 74 2b  44 28 4c 29 3a ed 0d 04  |B.st=st+D(L):...|
00000ab0  4c 0e f2 64 69 73 70 6c  61 79 3a f8 0d 04 56 05  |L..display:...V.|
00000ac0  f4 0d 04 60 0f f2 73 6f  72 74 3a f2 73 6f 72 74  |...`..sort:.sort|
00000ad0  0d 04 6a 49 e7 20 73 61  6d 65 3c 36 20 f2 62 75  |..jI. same<6 .bu|
00000ae0  72 70 3a f1 20 8a 31 31  2c 32 39 29 22 4e 4f 54  |rp:. .11,29)"NOT|
00000af0  20 66 6f 75 72 20 6f 66  20 61 20 6b 69 6e 64 22  | four of a kind"|
00000b00  3a f2 64 65 6c 61 79 28  31 29 3a f2 7a 65 72 6f  |:.delay(1):.zero|
00000b10  3a e7 20 74 77 3d 31 20  f8 0d 04 74 12 e7 20 73  |:. tw=1 ...t.. s|
00000b20  61 6d 65 3c 36 20 e5 8d  74 44 43 0d 04 7e 08 73  |ame<6 ..tDC..~.s|
00000b30  74 3d 30 0d 04 88 1a e3  20 4c 3d 31 20 b8 20 35  |t=0..... L=1 . 5|
00000b40  3a 73 74 3d 73 74 2b 44  28 4c 29 3a ed 0d 04 92  |:st=st+D(L):....|
00000b50  0e f2 64 69 73 70 6c 61  79 3a f8 0d 04 9c 05 f4  |..display:......|
00000b60  0d 04 a6 09 f2 73 6f 72  74 0d 04 b0 09 f2 73 6f  |.....sort.....so|
00000b70  72 74 0d 04 ba 48 e7 20  73 61 6d 65 3c 3e 34 20  |rt...H. same<>4 |
00000b80  f2 62 75 72 70 3a f1 20  8a 31 32 2c 32 39 29 22  |.burp:. .12,29)"|
00000b90  4e 4f 54 20 61 20 66 75  6c 6c 20 68 6f 75 73 65  |NOT a full house|
00000ba0  22 3a f2 64 65 6c 61 79  28 31 29 3a f2 7a 65 72  |":.delay(1):.zer|
00000bb0  6f 3a e7 20 74 77 3d 31  20 f8 0d 04 c4 13 e7 20  |o:. tw=1 ...... |
00000bc0  73 61 6d 65 3c 3e 34 20  e5 8d 74 44 43 0d 04 ce  |same<>4 ..tDC...|
00000bd0  09 73 74 3d 32 35 0d 04  d8 0c f2 64 69 73 70 6c  |.st=25.....displ|
00000be0  61 79 0d 04 e2 05 f8 0d  04 ec 05 f4 0d 04 f6 09  |ay..............|
00000bf0  f2 73 6f 72 74 0d 05 00  12 73 61 6d 65 3d 30 3a  |.sort....same=0:|
00000c00  72 69 67 68 74 3d 30 0d  05 0a 0d e3 20 4c 3d 31  |right=0..... L=1|
00000c10  20 b8 20 34 0d 05 14 21  e7 20 44 28 4c 29 3d 44  | . 4...!. D(L)=D|
00000c20  28 4c 2b 31 29 2b 31 20  72 69 67 68 74 3d 72 69  |(L+1)+1 right=ri|
00000c30  67 68 74 2b 31 0d 05 1e  05 ed 0d 05 28 14 e7 20  |ght+1.......(.. |
00000c40  72 69 67 68 74 3c 33 20  e5 20 8d 54 7c 45 0d 05  |right<3 . .T|E..|
00000c50  32 10 73 74 3d 33 30 3a  e5 20 8d 44 50 45 0d 05  |2.st=30:. .DPE..|
00000c60  3c 40 f2 62 75 72 70 3a  f1 20 8a 31 31 2c 32 39  |<@.burp:. .11,29|
00000c70  29 22 4e 4f 54 20 61 20  6c 6f 77 20 73 74 72 61  |)"NOT a low stra|
00000c80  69 67 68 74 22 3a f2 64  65 6c 61 79 28 31 29 3a  |ight":.delay(1):|
00000c90  f2 7a 65 72 6f 3a e7 20  74 77 3d 31 20 f8 0d 05  |.zero:. tw=1 ...|
00000ca0  46 13 e7 20 72 69 67 68  74 3c 33 20 e5 8d 74 44  |F.. right<3 ..tD|
00000cb0  43 0d 05 50 0c f2 64 69  73 70 6c 61 79 0d 05 5a  |C..P..display..Z|
00000cc0  05 f8 0d 05 64 05 f4 0d  05 6e 09 f2 73 6f 72 74  |....d....n..sort|
00000cd0  0d 05 78 14 e7 20 73 61  6d 65 3c 3e 30 20 e5 20  |..x.. same<>0 . |
00000ce0  8d 74 60 45 0d 05 82 0d  e3 20 4c 3d 32 20 b8 20  |.t`E..... L=2 . |
00000cf0  35 0d 05 8c 1d e7 20 44  28 4c 29 3c 3e 28 44 28  |5..... D(L)<>(D(|
00000d00  4c 2d 31 29 2d 31 29 20  73 61 6d 65 3d 31 0d 05  |L-1)-1) same=1..|
00000d10  96 05 ed 0d 05 a0 4b e7  20 73 61 6d 65 3c 3e 30  |......K. same<>0|
00000d20  20 f2 62 75 72 70 3a f1  20 8a 31 31 2c 32 39 29  | .burp:. .11,29)|
00000d30  22 4e 4f 54 20 61 20 68  69 67 68 20 73 74 72 61  |"NOT a high stra|
00000d40  69 67 68 74 22 3a f2 64  65 6c 61 79 28 31 29 3a  |ight":.delay(1):|
00000d50  f2 7a 65 72 6f 3a e7 20  74 77 3d 31 20 f8 0d 05  |.zero:. tw=1 ...|
00000d60  aa 13 e7 20 73 61 6d 65  3c 3e 30 20 e5 8d 74 44  |... same<>0 ..tD|
00000d70  43 0d 05 b4 09 73 74 3d  34 30 0d 05 be 0c f2 64  |C....st=40.....d|
00000d80  69 73 70 6c 61 79 0d 05  c8 05 f8 0d 05 d2 0f f2  |isplay..........|
00000d90  73 6f 72 74 3a f2 73 6f  72 74 0d 05 dc 4b e7 20  |sort:.sort...K. |
00000da0  73 61 6d 65 3c 3e 31 30  20 f2 62 75 72 70 3a f1  |same<>10 .burp:.|
00000db0  20 8a 31 33 2c 32 39 29  22 4e 4f 54 20 66 69 76  | .13,29)"NOT fiv|
00000dc0  65 20 6f 66 20 61 20 6b  69 6e 64 22 3a f2 64 65  |e of a kind":.de|
00000dd0  6c 61 79 28 31 29 3a f2  7a 65 72 6f 3a e7 20 74  |lay(1):.zero:. t|
00000de0  77 3d 31 20 f8 0d 05 e6  14 e7 20 73 61 6d 65 3c  |w=1 ...... same<|
00000df0  3e 31 30 20 e5 8d 74 44  43 0d 05 f0 09 73 74 3d  |>10 ..tDC....st=|
00000e00  35 30 0d 05 fa 1a 74 6f  74 61 6c 28 72 25 29 3d  |50....total(r%)=|
00000e10  74 6f 74 61 6c 28 72 25  29 2b 73 74 0d 06 04 0c  |total(r%)+st....|
00000e20  f2 64 69 73 70 6c 61 79  0d 06 0e 05 f8 0d 06 18  |.display........|
00000e30  08 43 48 3d 30 0d 06 22  0d e3 20 4c 3d 31 20 b8  |.CH=0..".. L=1 .|
00000e40  20 35 0d 06 2c 10 43 48  3d 43 48 2b 44 28 4c 29  | 5..,.CH=CH+D(L)|
00000e50  3a ed 0d 06 36 09 73 74  3d 43 48 0d 06 40 0c f2  |:...6.st=CH..@..|
00000e60  64 69 73 70 6c 61 79 0d  06 4a 05 f8 0d 06 54 29  |display..J....T)|
00000e70  dd 20 f2 64 69 63 65 28  58 25 2c 59 25 2c 63 6f  |. .dice(X%,Y%,co|
00000e80  6c 6f 75 72 31 25 2c 63  6f 6c 6f 75 72 32 25 2c  |lour1%,colour2%,|
00000e90  64 69 6d 25 29 0d 06 5e  1b fb 28 63 6f 6c 6f 75  |dim%)..^..(colou|
00000ea0  72 31 25 29 3a fb 28 63  6f 6c 6f 75 72 32 25 29  |r1%):.(colour2%)|
00000eb0  0d 06 68 0b 41 25 3d b3  28 36 29 0d 06 72 0e 44  |..h.A%=.(6)..r.D|
00000ec0  28 64 69 6d 25 29 3d 41  25 0d 06 7c 28 ee 20 41  |(dim%)=A%..|(. A|
00000ed0  25 20 e5 20 8d 74 46 46  2c 8d 74 50 46 2c 8d 74  |% . .tFF,.tPF,.t|
00000ee0  5a 46 2c 8d 74 64 46 2c  8d 74 6e 46 2c 8d 74 78  |ZF,.tdF,.tnF,.tx|
00000ef0  46 0d 06 86 32 64 69 31  24 3d bd 32 33 32 3a 64  |F...2di1$=.232:d|
00000f00  69 32 24 3d bd 32 33 38  3a 64 69 33 24 3d bd 32  |i2$=.238:di3$=.2|
00000f10  33 39 3a 64 69 34 24 3d  bd 32 33 33 3a e5 20 8d  |39:di4$=.233:. .|
00000f20  64 42 46 0d 06 90 32 64  69 31 24 3d bd 32 33 34  |dBF...2di1$=.234|
00000f30  3a 64 69 32 24 3d bd 32  33 35 3a 64 69 33 24 3d  |:di2$=.235:di3$=|
00000f40  bd 32 33 36 3a 64 69 34  24 3d bd 32 33 37 3a e5  |.236:di4$=.237:.|
00000f50  20 8d 64 42 46 0d 06 9a  32 64 69 31 24 3d bd 32  | .dBF...2di1$=.2|
00000f60  33 32 3a 64 69 32 24 3d  bd 32 32 39 3a 64 69 33  |32:di2$=.229:di3|
00000f70  24 3d bd 32 33 30 3a 64  69 34 24 3d bd 32 33 33  |$=.230:di4$=.233|
00000f80  3a e5 20 8d 64 42 46 0d  06 a4 32 64 69 31 24 3d  |:. .dBF...2di1$=|
00000f90  bd 32 33 34 3a 64 69 32  24 3d bd 32 34 30 3a 64  |.234:di2$=.240:d|
00000fa0  69 33 24 3d bd 32 34 31  3a 64 69 34 24 3d bd 32  |i3$=.241:di4$=.2|
00000fb0  33 37 3a e5 20 8d 64 42  46 0d 06 ae 32 64 69 31  |37:. .dBF...2di1|
00000fc0  24 3d bd 32 32 38 3a 64  69 32 24 3d bd 32 32 39  |$=.228:di2$=.229|
00000fd0  3a 64 69 33 24 3d bd 32  33 30 3a 64 69 34 24 3d  |:di3$=.230:di4$=|
00000fe0  bd 32 33 31 3a e5 20 8d  64 42 46 0d 06 b8 2b 64  |.231:. .dBF...+d|
00000ff0  69 31 24 3d bd 32 32 34  3a 64 69 32 24 3d bd 32  |i1$=.224:di2$=.2|
00001000  32 35 3a 64 69 33 24 3d  bd 32 32 36 3a 64 69 34  |25:di3$=.226:di4|
00001010  24 3d bd 32 32 37 0d 06  c2 2b f1 20 8a 58 25 2c  |$=.227...+. .X%,|
00001020  59 25 29 3b 64 69 31 24  3b 64 69 32 24 3b 8a 58  |Y%);di1$;di2$;.X|
00001030  25 2c 59 25 2b 31 29 3b  64 69 33 24 3b 64 69 34  |%,Y%+1);di3$;di4|
00001040  24 0d 06 cc 18 d4 20 32  2c 2d 31 30 2c 35 30 2b  |$..... 2,-10,50+|
00001050  28 31 30 2a 41 25 29 2c  31 0d 06 d6 08 ef 20 32  |(10*A%),1..... 2|
00001060  30 0d 06 e0 05 e1 0d 06  ea 0b dd 20 f2 7a 65 72  |0.......... .zer|
00001070  6f 0d 06 f4 08 74 77 3d  30 0d 06 fe 1c e7 20 63  |o....tw=0..... c|
00001080  61 74 28 72 25 2c 43 41  54 25 29 3d b9 20 f2 66  |at(r%,CAT%)=. .f|
00001090  69 6c 6c 65 64 0d 07 08  2a fb 20 31 3a f1 20 8a  |illed...*. 1:. .|
000010a0  31 30 2c 32 39 29 22 49  73 20 74 68 69 73 20 61  |10,29)"Is this a|
000010b0  20 74 68 72 6f 77 2d 61  77 61 79 20 3f 20 22 0d  | throw-away ? ".|
000010c0  07 12 20 ee 20 a7 22 59  4e 22 2c be 29 e5 20 8d  |.. . ."YN",.). .|
000010d0  54 5c 47 2c 8d 44 58 47  20 8b 20 8d 54 48 47 0d  |T\G,.DXG . .THG.|
000010e0  07 1c 15 72 6f 77 3d 31  37 3a e3 20 4c 3d 31 20  |...row=17:. L=1 |
000010f0  b8 20 72 25 0d 07 26 0f  72 6f 77 3d 72 6f 77 2b  |. r%..&.row=row+|
00001100  34 3a ed 0d 07 30 13 f1  20 8a 31 30 2c 32 39 29  |4:...0.. .10,29)|
00001110  3b 89 28 32 36 29 0d 07  3a 2b fb 20 30 3a fb 20  |;.(26)..:+. 0:. |
00001120  31 33 30 3a f1 20 8a 72  6f 77 2b 32 2c 43 41 54  |130:. .row+2,CAT|
00001130  25 2b 37 29 3b 22 30 22  3a fb 33 3a fb 20 31 32  |%+7);"0":.3:. 12|
00001140  38 0d 07 44 12 63 61 74  28 72 25 2c 43 41 54 25  |8..D.cat(r%,CAT%|
00001150  29 3d b9 0d 07 4e 0a 74  77 3d 31 3a e1 0d 07 58  |)=...N.tw=1:...X|
00001160  15 f1 20 8a 31 30 2c 32  39 29 3b 89 28 32 36 29  |.. .10,29);.(26)|
00001170  3a e1 0d 07 62 0e dd 20  f2 64 69 73 70 6c 61 79  |:...b.. .display|
00001180  0d 07 6c 0a 72 6f 77 3d  31 37 0d 07 76 0e e3 20  |..l.row=17..v.. |
00001190  4c 3d 31 20 b8 20 72 25  0d 07 80 0f 72 6f 77 3d  |L=1 . r%....row=|
000011a0  72 6f 77 2b 34 3a ed 0d  07 8a 13 e7 20 43 41 54  |row+4:...... CAT|
000011b0  25 3e 36 20 e5 20 8d 64  78 47 0d 07 94 4f fb 30  |%>6 . .dxG...O.0|
000011c0  3a fb 20 31 33 30 3a e7  20 73 75 62 28 72 25 29  |:. 130:. sub(r%)|
000011d0  3c 31 30 20 8c 20 f1 20  8a 72 6f 77 2b 32 2c 43  |<10 . . .row+2,C|
000011e0  41 54 25 2b 34 29 3b 73  75 62 28 72 25 29 20 8b  |AT%+4);sub(r%) .|
000011f0  20 f1 20 8a 72 6f 77 2b  31 2c 43 41 54 25 2b 34  | . .row+1,CAT%+4|
00001200  29 3b 73 75 62 28 72 25  29 0d 07 9e 1b 53 55 42  |);sub(r%)....SUB|
00001210  28 72 25 29 3d 53 55 42  28 72 25 29 2b 73 75 62  |(r%)=SUB(r%)+sub|
00001220  28 72 25 29 0d 07 a8 27  e7 20 53 55 42 28 72 25  |(r%)...'. SUB(r%|
00001230  29 3c 31 30 20 8c 20 f1  20 8a 72 6f 77 2b 32 2c  |)<10 . . .row+2,|
00001240  31 32 29 3b 53 55 42 28  72 25 29 0d 07 b2 34 e7  |12);SUB(r%)...4.|
00001250  20 53 55 42 28 72 25 29  3e 39 20 80 20 53 55 42  | SUB(r%)>9 . SUB|
00001260  28 72 25 29 3c 31 30 30  20 8c 20 f1 20 8a 72 6f  |(r%)<100 . . .ro|
00001270  77 2b 31 2c 31 32 29 3b  53 55 42 28 72 25 29 0d  |w+1,12);SUB(r%).|
00001280  07 bc 25 e7 20 53 55 42  28 72 25 29 3e 39 39 20  |..%. SUB(r%)>99 |
00001290  8c 20 f1 20 8a 72 6f 77  2c 31 32 29 3b 53 55 42  |. . .row,12);SUB|
000012a0  28 72 25 29 0d 07 c6 1f  74 6f 74 61 6c 28 72 25  |(r%)....total(r%|
000012b0  29 3d 74 6f 74 61 6c 28  72 25 29 2b 73 75 62 28  |)=total(r%)+sub(|
000012c0  72 25 29 0d 07 d0 2b e7  20 74 6f 74 61 6c 28 72  |r%)...+. total(r|
000012d0  25 29 3c 31 30 20 8c 20  f1 20 8a 72 6f 77 2b 32  |%)<10 . . .row+2|
000012e0  2c 32 32 29 3b 74 6f 74  61 6c 28 72 25 29 0d 07  |,22);total(r%)..|
000012f0  da 3a e7 20 74 6f 74 61  6c 28 72 25 29 3e 39 20  |.:. total(r%)>9 |
00001300  80 20 74 6f 74 61 6c 28  72 25 29 3c 31 30 30 20  |. total(r%)<100 |
00001310  8c 20 f1 20 8a 72 6f 77  2b 31 2c 32 32 29 3b 74  |. . .row+1,22);t|
00001320  6f 74 61 6c 28 72 25 29  0d 07 e4 29 e7 20 74 6f  |otal(r%)...). to|
00001330  74 61 6c 28 72 25 29 3e  39 39 20 8c 20 f1 20 8a  |tal(r%)>99 . . .|
00001340  72 6f 77 2c 32 32 29 3b  74 6f 74 61 6c 28 72 25  |row,22);total(r%|
00001350  29 0d 07 ee 14 63 61 74  28 72 25 2c 43 41 54 25  |)....cat(r%,CAT%|
00001360  29 3d b9 3a e1 0d 07 f8  3f fb 20 30 3a fb 20 31  |)=.:....?. 0:. 1|
00001370  33 30 3a e7 20 73 74 3c  31 30 20 f1 20 8a 72 6f  |30:. st<10 . .ro|
00001380  77 2b 32 2c 43 41 54 25  2b 37 29 3b 73 74 20 8b  |w+2,CAT%+7);st .|
00001390  20 f1 20 8a 72 6f 77 2b  31 2c 43 41 54 25 2b 37  | . .row+1,CAT%+7|
000013a0  29 3b 73 74 0d 08 02 1a  74 6f 74 61 6c 28 72 25  |);st....total(r%|
000013b0  29 3d 74 6f 74 61 6c 28  72 25 29 2b 73 74 0d 08  |)=total(r%)+st..|
000013c0  0c 2b e7 20 74 6f 74 61  6c 28 72 25 29 3c 31 30  |.+. total(r%)<10|
000013d0  20 8c 20 f1 20 8a 72 6f  77 2b 32 2c 32 32 29 3b  | . . .row+2,22);|
000013e0  74 6f 74 61 6c 28 72 25  29 0d 08 16 39 e7 20 74  |total(r%)...9. t|
000013f0  6f 74 61 6c 28 72 25 29  3e 39 20 80 74 6f 74 61  |otal(r%)>9 .tota|
00001400  6c 28 72 25 29 3c 31 30  30 20 8c 20 f1 20 8a 72  |l(r%)<100 . . .r|
00001410  6f 77 2b 31 2c 32 32 29  3b 74 6f 74 61 6c 28 72  |ow+1,22);total(r|
00001420  25 29 0d 08 20 28 e7 20  74 6f 74 61 6c 28 72 25  |%).. (. total(r%|
00001430  29 3e 39 39 8c 20 f1 20  8a 72 6f 77 2c 32 32 29  |)>99. . .row,22)|
00001440  3b 74 6f 74 61 6c 28 72  25 29 0d 08 2a 12 63 61  |;total(r%)..*.ca|
00001450  74 28 72 25 2c 43 41 54  25 29 3d b9 0d 08 34 0a  |t(r%,CAT%)=...4.|
00001460  73 74 3d 30 3a e1 0d 08  3e 0c dd 20 f2 62 6f 6e  |st=0:...>.. .bon|
00001470  75 73 0d 08 48 0b 65 78  74 72 61 3d 30 0d 08 52  |us..H.extra=0..R|
00001480  0d e3 20 4c 3d 31 20 b8  20 36 0d 08 5c 1f e7 20  |.. L=1 . 6..\.. |
00001490  63 61 74 28 72 25 2c 4c  29 3d b9 20 65 78 74 72  |cat(r%,L)=. extr|
000014a0  61 3d 65 78 74 72 61 2b  31 0d 08 66 05 ed 0d 08  |a=extra+1..f....|
000014b0  70 4b e7 20 65 78 74 72  61 3d 36 20 80 20 53 55  |pK. extra=6 . SU|
000014c0  42 28 72 25 29 3e 36 32  20 53 55 42 28 72 25 29  |B(r%)>62 SUB(r%)|
000014d0  3d 53 55 42 28 72 25 29  2b 33 35 3a 74 6f 74 61  |=SUB(r%)+35:tota|
000014e0  6c 28 72 25 29 3d 74 6f  74 61 6c 28 72 25 29 2b  |l(r%)=total(r%)+|
000014f0  33 35 3a e5 20 8d 64 40  48 0d 08 7a 31 fb 20 30  |35:. .d@H..z1. 0|
00001500  3a fb 20 31 33 30 3a e7  20 53 55 42 28 72 25 29  |:. 130:. SUB(r%)|
00001510  3c 31 30 20 8c 20 f1 20  8a 72 6f 77 2b 32 2c 31  |<10 . . .row+2,1|
00001520  32 29 3b 53 55 42 28 72  25 29 0d 08 84 34 e7 20  |2);SUB(r%)...4. |
00001530  53 55 42 28 72 25 29 3e  39 20 80 20 53 55 42 28  |SUB(r%)>9 . SUB(|
00001540  72 25 29 3c 31 30 30 20  8c 20 f1 20 8a 72 6f 77  |r%)<100 . . .row|
00001550  2b 31 2c 31 32 29 3b 53  55 42 28 72 25 29 0d 08  |+1,12);SUB(r%)..|
00001560  8e 25 e7 20 53 55 42 28  72 25 29 3e 39 39 20 8c  |.%. SUB(r%)>99 .|
00001570  20 f1 20 8a 72 6f 77 2c  31 32 29 3b 53 55 42 28  | . .row,12);SUB(|
00001580  72 25 29 0d 08 98 2b e7  20 74 6f 74 61 6c 28 72  |r%)...+. total(r|
00001590  25 29 3c 31 30 20 8c 20  f1 20 8a 72 6f 77 2b 32  |%)<10 . . .row+2|
000015a0  2c 32 32 29 3b 74 6f 74  61 6c 28 72 25 29 0d 08  |,22);total(r%)..|
000015b0  a2 3a e7 20 74 6f 74 61  6c 28 72 25 29 3e 39 20  |.:. total(r%)>9 |
000015c0  80 20 74 6f 74 61 6c 28  72 25 29 3c 31 30 30 20  |. total(r%)<100 |
000015d0  8c 20 f1 20 8a 72 6f 77  2b 31 2c 32 32 29 3b 74  |. . .row+1,22);t|
000015e0  6f 74 61 6c 28 72 25 29  0d 08 ac 28 e7 20 74 6f  |otal(r%)...(. to|
000015f0  74 61 6c 28 72 25 29 3e  39 39 8c 20 f1 20 8a 72  |tal(r%)>99. . .r|
00001600  6f 77 2c 32 32 29 3b 74  6f 74 61 6c 28 72 25 29  |ow,22);total(r%)|
00001610  0d 08 b6 05 e1 0d 08 c0  55 d4 20 26 31 32 2c 31  |........U. &12,1|
00001620  2c 35 30 2c 32 30 3a fb  20 31 32 39 3a fb 20 33  |,50,20:. 129:. 3|
00001630  3a e7 20 53 55 42 28 72  25 29 3c 31 30 30 20 8c  |:. SUB(r%)<100 .|
00001640  20 f1 20 8a 72 6f 77 2b  31 2c 31 32 29 3b 53 55  | . .row+1,12);SU|
00001650  42 28 72 25 29 20 8b 20  f1 20 8a 72 6f 77 2c 31  |B(r%) . . .row,1|
00001660  32 29 3b 53 55 42 28 72  25 29 0d 08 ca 14 fb 20  |2);SUB(r%)..... |
00001670  30 3a fb 20 31 33 30 3a  e5 20 8d 74 62 48 0d 08  |0:. 130:. .tbH..|
00001680  d4 12 dd 20 f2 66 69 6e  61 6c 5f 73 63 6f 72 65  |... .final_score|
00001690  0d 08 de 0c fb 20 33 3a  fb 31 32 39 0d 08 e8 15  |..... 3:.129....|
000016a0  e7 20 28 72 25 2d 31 29  3e 31 20 e5 20 8d 54 46  |. (r%-1)>1 . .TF|
000016b0  49 0d 08 f2 28 db 3a f1  20 8a 32 30 2d 28 a9 28  |I...(.:. .20-(.(|
000016c0  6e 61 6d 65 24 28 31 29  29 2f 32 29 2c 31 32 29  |name$(1))/2),12)|
000016d0  3b 6e 61 6d 65 24 28 31  29 0d 08 fc 3f f1 20 8a  |;name$(1)...?. .|
000016e0  31 32 2c 31 34 29 22 59  6f 75 72 20 66 69 6e 61  |12,14)"Your fina|
000016f0  6c 20 73 63 6f 72 65 22  8a 31 36 2c 31 36 29 22  |l score".16,16)"|
00001700  77 61 73 20 22 3b 74 6f  74 61 6c 28 72 25 2d 31  |was ";total(r%-1|
00001710  29 3a e5 20 8d 54 64 49  0d 09 06 19 db 3a f2 73  |):. .TdI.....:.s|
00001720  6f 72 74 31 3a e3 20 4c  3d 31 20 b8 20 72 25 2d  |ort1:. L=1 . r%-|
00001730  31 0d 09 10 36 f1 20 8a  32 30 2d a9 28 6e 61 6d  |1...6. .20-.(nam|
00001740  65 24 28 4c 29 29 2c 31  30 2b 28 4c 2a 32 29 29  |e$(L)),10+(L*2))|
00001750  3b 6e 61 6d 65 24 28 4c  29 3b 22 20 20 22 3b 74  |;name$(L);"  ";t|
00001760  6f 74 61 6c 28 4c 29 0d  09 1a 05 ed 0d 09 24 0b  |otal(L).......$.|
00001770  2a 46 58 31 35 2c 30 0d  09 2e 23 f1 20 8a 31 33  |*FX15,0...#. .13|
00001780  2c 32 38 29 22 41 6e 6f  74 68 65 72 20 67 61 6d  |,28)"Another gam|
00001790  65 20 3f 20 22 3a 47 24  3d be 0d 09 38 10 e7 20  |e ? ":G$=...8.. |
000017a0  47 24 3d 22 59 22 20 8c  20 f9 0d 09 42 14 e7 20  |G$="Y" . ...B.. |
000017b0  47 24 3c 3e 22 4e 22 20  8c 20 8d 54 64 49 0d 09  |G$<>"N" . .TdI..|
000017c0  4c 05 e1 0d 09 56 11 dd  f2 64 65 6c 61 79 28 73  |L....V...delay(s|
000017d0  65 63 73 29 0d 09 60 07  d1 3d 30 0d 09 6a 12 f5  |ecs)..`..=0..j..|
000017e0  20 fd 20 91 3e 73 65 63  73 2a 31 30 30 0d 09 74  | . .>secs*100..t|
000017f0  05 e1 0d 09 7e 0b dd 20  f2 62 75 72 70 0d 09 88  |....~.. .burp...|
00001800  0e e3 20 73 25 3d 31 20  b8 20 36 0d 09 92 0e d4  |.. s%=1 . 6.....|
00001810  20 31 2c 31 2c 73 25 2c  32 0d 09 9c 05 ed 0d 09  | 1,1,s%,2.......|
00001820  a6 05 e1 0d 09 b0 0b dd  f2 73 6f 72 74 31 0d 09  |.........sort1..|
00001830  ba 10 e3 70 61 73 73 3d  31 b8 72 25 2d 32 0d 09  |...pass=1.r%-2..|
00001840  c4 15 e3 6c 6f 6f 70 3d  70 61 73 73 2b 31 b8 72  |...loop=pass+1.r|
00001850  25 2d 31 0d 09 ce 23 e7  20 74 6f 74 61 6c 28 70  |%-1...#. total(p|
00001860  61 73 73 29 3e 74 6f 74  61 6c 28 6c 6f 6f 70 29  |ass)>total(loop)|
00001870  8c 20 8d 64 6c 49 0d 09  d8 3d 74 65 6d 70 3d 74  |. .dlI...=temp=t|
00001880  6f 74 61 6c 28 70 61 73  73 29 3a 74 6f 74 61 6c  |otal(pass):total|
00001890  28 70 61 73 73 29 3d 74  6f 74 61 6c 28 6c 6f 6f  |(pass)=total(loo|
000018a0  70 29 3a 74 6f 74 61 6c  28 6c 6f 6f 70 29 3d 74  |p):total(loop)=t|
000018b0  65 6d 70 0d 09 e2 3f 74  65 6d 70 24 3d 6e 61 6d  |emp...?temp$=nam|
000018c0  65 24 28 70 61 73 73 29  3a 6e 61 6d 65 24 28 70  |e$(pass):name$(p|
000018d0  61 73 73 29 3d 6e 61 6d  65 24 28 6c 6f 6f 70 29  |ass)=name$(loop)|
000018e0  3a 6e 61 6d 65 24 28 6c  6f 6f 70 29 3d 74 65 6d  |:name$(loop)=tem|
000018f0  70 24 0d 09 ec 05 ed 0d  09 f6 05 ed 0d 0a 00 05  |p$..............|
00001900  e1 0d ff                                          |...|
00001903