��1:�"FX11,0":�19,2,2;0;:�'"How many players? max 6";:�:c%=�-48:�c%>0�c%<7:play%=c%:�init:�i%=1�6:am%(i%)=200:�:�:bu%=0:�hor:�cor:m%=0:�i%=1�6:�am%(i%)>99999999 m%=1:� � �
��17,3,17,129:�8,0)"Norca Park   Race Course"�11,12)"By Neil Cunningham":�17,128:�sel:�rac:�add:�3:�26:�13,6)"Press any key.":K=�:�28,0,22,39,13,12,26:�m%=1:�15,6)"Banks bust":�
�� �init:� 23,224,255,255,255,255,255,255,255,255,23,225,170,85,170,85,170,85,170,85,23,226,0,0,255,17,17,17,17,17,23,227,0,1,3,31,127,159,10,5,23,228,34,198,191,253,248,248,36,68:� ho%(6),pl%(6),bet%(6),am%(6),hx%(6):�
(�� �hor:�1:�0,13);"Horse"�0,14);"Odds":�2:� i%=1 � 6:�:h%=�(10):� j%=1 � h%:� a%:�:ho%(i%)=a%:�6*i%,13);i%;�6*i%,14);a%;"-1":�:� i%=1 � 6:hx%(i%)=8:�:�3,2:�
2�� �cor:� 2:� 131:�:� i%=0 � 21:� a%:� i%>10 �0,i%-10);�40,�a%):�:�5:� i%=1 � 6:�hx%(i%),956-i%*36:�227,228:�:�4:�1200,930:�1200,700:�128:� � �
<�� �sel:�i%=1�play%:�0,15+i%);"Player ";i%;:�am%(i%)<=0 � �17,1:�" is bankrupt...":pl%(i%)=0:bu%=bu%+1:�17,3:�:� � �", choose; ";:� c%=�-48:� c%>=1 � c%<=6:pl%(i%)=c%:�;c%;
F��": How much; ";:b$="":�:�:�35,15+i%)ĩb$," "):�35,15+i%);""b$:��(b$)<5:b%=�(b$):� (b%>0 � b%<1001) � b%<=am%(i%):bet%(i%)=b%:am%(i%)=am%(i%)-bet%(i%):�:�
P�� �rac �bu%<play% �s%=�(6):�hx%(s%),956-s%*36:�5,227,228:hx%(s%)=hx%(s%)+8:�hx%(s%),956-s%*36:�227,228:e%=1136:�hx%(1)=e%�hx%(2)=e%�hx%(3)=e%�hx%(4)=e%�hx%(5)=e%�hx%(6)=e%:�4,28,0,31,39,23,12:�
Z�� �add:�12)"WINNER ";s%�25)"Credit":�i%=1�play%:�"Player ";i%;" wins ";:�pl%(i%)=s% win%=bet%(i%)*ho%(s%):am%(i%)=am%(i%)+win%:�;win%�26);am%(i%):�:� � �"NIL"�26);am%(i%):�:�
dN� 1,2,3,4,5,10,20,33,50,100,0,225,226,224,224,224,224,224,224,224,226,225,
�

00000000  0d 00 0a ae eb 31 3a ff  22 46 58 31 31 2c 30 22  |.....1:."FX11,0"|
00000010  3a ef 31 39 2c 32 2c 32  3b 30 3b 3a f1 27 22 48  |:.19,2,2;0;:.'"H|
00000020  6f 77 20 6d 61 6e 79 20  70 6c 61 79 65 72 73 3f  |ow many players?|
00000030  20 6d 61 78 20 36 22 3b  3a f5 3a 63 25 3d a5 2d  | max 6";:.:c%=.-|
00000040  34 38 3a fd 63 25 3e 30  80 63 25 3c 37 3a 70 6c  |48:.c%>0.c%<7:pl|
00000050  61 79 25 3d 63 25 3a f2  69 6e 69 74 3a e3 69 25  |ay%=c%:.init:.i%|
00000060  3d 31 b8 36 3a 61 6d 25  28 69 25 29 3d 32 30 30  |=1.6:am%(i%)=200|
00000070  3a ed 3a f5 3a 62 75 25  3d 30 3a f2 68 6f 72 3a  |:.:.:bu%=0:.hor:|
00000080  f2 63 6f 72 3a 6d 25 3d  30 3a e3 69 25 3d 31 b8  |.cor:m%=0:.i%=1.|
00000090  36 3a e7 61 6d 25 28 69  25 29 3e 39 39 39 39 39  |6:.am%(i%)>99999|
000000a0  39 39 39 20 6d 25 3d 31  3a ed 20 8b 20 ed 0d 00  |999 m%=1:. . ...|
000000b0  14 b7 ef 31 37 2c 33 2c  31 37 2c 31 32 39 3a f1  |...17,3,17,129:.|
000000c0  8a 38 2c 30 29 22 4e 6f  72 63 61 20 50 61 72 6b  |.8,0)"Norca Park|
000000d0  20 20 20 52 61 63 65 20  43 6f 75 72 73 65 22 8a  |   Race Course".|
000000e0  31 31 2c 31 32 29 22 42  79 20 4e 65 69 6c 20 43  |11,12)"By Neil C|
000000f0  75 6e 6e 69 6e 67 68 61  6d 22 3a ef 31 37 2c 31  |unningham":.17,1|
00000100  32 38 3a f2 73 65 6c 3a  f2 72 61 63 3a f2 61 64  |28:.sel:.rac:.ad|
00000110  64 3a fb 33 3a ef 32 36  3a f1 8a 31 33 2c 36 29  |d:.3:.26:..13,6)|
00000120  22 50 72 65 73 73 20 61  6e 79 20 6b 65 79 2e 22  |"Press any key."|
00000130  3a 4b 3d a5 3a ef 32 38  2c 30 2c 32 32 2c 33 39  |:K=.:.28,0,22,39|
00000140  2c 31 33 2c 31 32 2c 32  36 3a fd 6d 25 3d 31 3a  |,13,12,26:.m%=1:|
00000150  f1 8a 31 35 2c 36 29 22  42 61 6e 6b 73 20 62 75  |..15,6)"Banks bu|
00000160  73 74 22 3a e0 0d 00 1e  de dd 20 f2 69 6e 69 74  |st":...... .init|
00000170  3a ef 20 32 33 2c 32 32  34 2c 32 35 35 2c 32 35  |:. 23,224,255,25|
00000180  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000190  35 2c 32 35 35 2c 32 35  35 2c 32 33 2c 32 32 35  |5,255,255,23,225|
000001a0  2c 31 37 30 2c 38 35 2c  31 37 30 2c 38 35 2c 31  |,170,85,170,85,1|
000001b0  37 30 2c 38 35 2c 31 37  30 2c 38 35 2c 32 33 2c  |70,85,170,85,23,|
000001c0  32 32 36 2c 30 2c 30 2c  32 35 35 2c 31 37 2c 31  |226,0,0,255,17,1|
000001d0  37 2c 31 37 2c 31 37 2c  31 37 2c 32 33 2c 32 32  |7,17,17,17,23,22|
000001e0  37 2c 30 2c 31 2c 33 2c  33 31 2c 31 32 37 2c 31  |7,0,1,3,31,127,1|
000001f0  35 39 2c 31 30 2c 35 2c  32 33 2c 32 32 38 2c 33  |59,10,5,23,228,3|
00000200  34 2c 31 39 38 2c 31 39  31 2c 32 35 33 2c 32 34  |4,198,191,253,24|
00000210  38 2c 32 34 38 2c 33 36  2c 36 38 3a de 20 68 6f  |8,248,36,68:. ho|
00000220  25 28 36 29 2c 70 6c 25  28 36 29 2c 62 65 74 25  |%(6),pl%(6),bet%|
00000230  28 36 29 2c 61 6d 25 28  36 29 2c 68 78 25 28 36  |(6),am%(6),hx%(6|
00000240  29 3a e1 0d 00 28 a1 dd  20 f2 68 6f 72 3a fb 31  |):...(.. .hor:.1|
00000250  3a f1 8a 30 2c 31 33 29  3b 22 48 6f 72 73 65 22  |:..0,13);"Horse"|
00000260  8a 30 2c 31 34 29 3b 22  4f 64 64 73 22 3a fb 32  |.0,14);"Odds":.2|
00000270  3a e3 20 69 25 3d 31 20  b8 20 36 3a f7 3a 68 25  |:. i%=1 . 6:.:h%|
00000280  3d b3 28 31 30 29 3a e3  20 6a 25 3d 31 20 b8 20  |=.(10):. j%=1 . |
00000290  68 25 3a f3 20 61 25 3a  ed 3a 68 6f 25 28 69 25  |h%:. a%:.:ho%(i%|
000002a0  29 3d 61 25 3a f1 8a 36  2a 69 25 2c 31 33 29 3b  |)=a%:..6*i%,13);|
000002b0  69 25 3b 8a 36 2a 69 25  2c 31 34 29 3b 61 25 3b  |i%;.6*i%,14);a%;|
000002c0  22 2d 31 22 3a ed 3a e3  20 69 25 3d 31 20 b8 20  |"-1":.:. i%=1 . |
000002d0  36 3a 68 78 25 28 69 25  29 3d 38 3a ed 3a e6 33  |6:hx%(i%)=8:.:.3|
000002e0  2c 32 3a e1 0d 00 32 93  dd 20 f2 63 6f 72 3a fb  |,2:...2.. .cor:.|
000002f0  20 32 3a fb 20 31 33 31  3a f7 3a e3 20 69 25 3d  | 2:. 131:.:. i%=|
00000300  30 20 b8 20 32 31 3a f3  20 61 25 3a e7 20 69 25  |0 . 21:. a%:. i%|
00000310  3e 31 30 20 f1 8a 30 2c  69 25 2d 31 30 29 3b c4  |>10 ..0,i%-10);.|
00000320  34 30 2c bd 61 25 29 3a  ed 3a ef 35 3a e3 20 69  |40,.a%):.:.5:. i|
00000330  25 3d 31 20 b8 20 36 3a  ec 68 78 25 28 69 25 29  |%=1 . 6:.hx%(i%)|
00000340  2c 39 35 36 2d 69 25 2a  33 36 3a ef 32 32 37 2c  |,956-i%*36:.227,|
00000350  32 32 38 3a ed 3a ef 34  3a ec 31 32 30 30 2c 39  |228:.:.4:.1200,9|
00000360  33 30 3a df 31 32 30 30  2c 37 30 30 3a fb 31 32  |30:.1200,700:.12|
00000370  38 3a e1 20 8b 20 ed 0d  00 3c b0 dd 20 f2 73 65  |8:. . ...<.. .se|
00000380  6c 3a e3 69 25 3d 31 b8  70 6c 61 79 25 3a f1 8a  |l:.i%=1.play%:..|
00000390  30 2c 31 35 2b 69 25 29  3b 22 50 6c 61 79 65 72  |0,15+i%);"Player|
000003a0  20 22 3b 69 25 3b 3a e7  61 6d 25 28 69 25 29 3c  | ";i%;:.am%(i%)<|
000003b0  3d 30 20 8c 20 ef 31 37  2c 31 3a f1 22 20 69 73  |=0 . .17,1:." is|
000003c0  20 62 61 6e 6b 72 75 70  74 2e 2e 2e 22 3a 70 6c  | bankrupt...":pl|
000003d0  25 28 69 25 29 3d 30 3a  62 75 25 3d 62 75 25 2b  |%(i%)=0:bu%=bu%+|
000003e0  31 3a ef 31 37 2c 33 3a  ed 3a e1 20 8b 20 f1 22  |1:.17,3:.:. . ."|
000003f0  2c 20 63 68 6f 6f 73 65  3b 20 22 3b 3a f5 20 63  |, choose; ";:. c|
00000400  25 3d a5 2d 34 38 3a fd  20 63 25 3e 3d 31 20 80  |%=.-48:. c%>=1 .|
00000410  20 63 25 3c 3d 36 3a 70  6c 25 28 69 25 29 3d 63  | c%<=6:pl%(i%)=c|
00000420  25 3a f1 3b 63 25 3b 0d  00 46 a0 f1 22 3a 20 48  |%:.;c%;..F..": H|
00000430  6f 77 20 6d 75 63 68 3b  20 22 3b 3a 62 24 3d 22  |ow much; ";:b$="|
00000440  22 3a f5 3a f5 3a f1 8a  33 35 2c 31 35 2b 69 25  |":.:.:..35,15+i%|
00000450  29 c4 a9 62 24 2c 22 20  22 29 3a e8 8a 33 35 2c  |)..b$," "):..35,|
00000460  31 35 2b 69 25 29 3b 22  22 62 24 3a fd a9 28 62  |15+i%);""b$:..(b|
00000470  24 29 3c 35 3a 62 25 3d  bb 28 62 24 29 3a fd 20  |$)<5:b%=.(b$):. |
00000480  28 62 25 3e 30 20 80 20  62 25 3c 31 30 30 31 29  |(b%>0 . b%<1001)|
00000490  20 80 20 62 25 3c 3d 61  6d 25 28 69 25 29 3a 62  | . b%<=am%(i%):b|
000004a0  65 74 25 28 69 25 29 3d  62 25 3a 61 6d 25 28 69  |et%(i%)=b%:am%(i|
000004b0  25 29 3d 61 6d 25 28 69  25 29 2d 62 65 74 25 28  |%)=am%(i%)-bet%(|
000004c0  69 25 29 3a ed 3a e1 0d  00 50 c5 dd 20 f2 72 61  |i%):.:...P.. .ra|
000004d0  63 20 e7 62 75 25 3c 70  6c 61 79 25 20 f5 73 25  |c .bu%<play% .s%|
000004e0  3d b3 28 36 29 3a ec 68  78 25 28 73 25 29 2c 39  |=.(6):.hx%(s%),9|
000004f0  35 36 2d 73 25 2a 33 36  3a ef 35 2c 32 32 37 2c  |56-s%*36:.5,227,|
00000500  32 32 38 3a 68 78 25 28  73 25 29 3d 68 78 25 28  |228:hx%(s%)=hx%(|
00000510  73 25 29 2b 38 3a ec 68  78 25 28 73 25 29 2c 39  |s%)+8:.hx%(s%),9|
00000520  35 36 2d 73 25 2a 33 36  3a ef 32 32 37 2c 32 32  |56-s%*36:.227,22|
00000530  38 3a 65 25 3d 31 31 33  36 3a fd 68 78 25 28 31  |8:e%=1136:.hx%(1|
00000540  29 3d 65 25 84 68 78 25  28 32 29 3d 65 25 84 68  |)=e%.hx%(2)=e%.h|
00000550  78 25 28 33 29 3d 65 25  84 68 78 25 28 34 29 3d  |x%(3)=e%.hx%(4)=|
00000560  65 25 84 68 78 25 28 35  29 3d 65 25 84 68 78 25  |e%.hx%(5)=e%.hx%|
00000570  28 36 29 3d 65 25 3a ef  34 2c 32 38 2c 30 2c 33  |(6)=e%:.4,28,0,3|
00000580  31 2c 33 39 2c 32 33 2c  31 32 3a e1 0d 00 5a b3  |1,39,23,12:...Z.|
00000590  dd 20 f2 61 64 64 3a f1  8a 31 32 29 22 57 49 4e  |. .add:..12)"WIN|
000005a0  4e 45 52 20 22 3b 73 25  8a 32 35 29 22 43 72 65  |NER ";s%.25)"Cre|
000005b0  64 69 74 22 3a e3 69 25  3d 31 b8 70 6c 61 79 25  |dit":.i%=1.play%|
000005c0  3a f1 22 50 6c 61 79 65  72 20 22 3b 69 25 3b 22  |:."Player ";i%;"|
000005d0  20 77 69 6e 73 20 22 3b  3a e7 70 6c 25 28 69 25  | wins ";:.pl%(i%|
000005e0  29 3d 73 25 20 77 69 6e  25 3d 62 65 74 25 28 69  |)=s% win%=bet%(i|
000005f0  25 29 2a 68 6f 25 28 73  25 29 3a 61 6d 25 28 69  |%)*ho%(s%):am%(i|
00000600  25 29 3d 61 6d 25 28 69  25 29 2b 77 69 6e 25 3a  |%)=am%(i%)+win%:|
00000610  f1 3b 77 69 6e 25 8a 32  36 29 3b 61 6d 25 28 69  |.;win%.26);am%(i|
00000620  25 29 3a ed 3a e1 20 8b  20 f1 22 4e 49 4c 22 8a  |%):.:. . ."NIL".|
00000630  32 36 29 3b 61 6d 25 28  69 25 29 3a ed 3a e1 0d  |26);am%(i%):.:..|
00000640  00 64 4e dc 20 31 2c 32  2c 33 2c 34 2c 35 2c 31  |.dN. 1,2,3,4,5,1|
00000650  30 2c 32 30 2c 33 33 2c  35 30 2c 31 30 30 2c 30  |0,20,33,50,100,0|
00000660  2c 32 32 35 2c 32 32 36  2c 32 32 34 2c 32 32 34  |,225,226,224,224|
00000670  2c 32 32 34 2c 32 32 34  2c 32 32 34 2c 32 32 34  |,224,224,224,224|
00000680  2c 32 32 34 2c 32 32 36  2c 32 32 35 2c 0d ff     |,224,226,225,..|
0000068f