n%=?&27F3
�=&27F3
(�p(4),sn$(4),sn(4,4)
Frope$=�6,�(231)+�7,�(230)))
K*line$=�11,�(232)+"   "+�(10)+�4,�(8)))
P�I=0�n%-1:p(I)=50:�
Z�

"	�init

'6�0,2:�140,1000:�1140,1000:�85,140,600:�85,1140,600

,�0,1

J/�160,980:�1120,980:�85,160,620:�85,1120,620

T�0,0

^/�180,960:�1100,960:�85,180,640:�85,1100,640

h!�10,3)"PLACE YOUR BETS NOW!"

r
�I=0�4

|�6,I+5);I+1;":";sn$(I)

��31,I+5);sn(I,2);"-1"

��

��28,0,31,39,15

��I=1�n%

��'"Player ";I

�V�p(I-1)>0�"You have `";p(I-1)��"You are BANKRUPT.":?�p(I-1,1)=6:?�p(I-1,2)=0:�TpB

��"Snail(1-5)"

��z

�.�z<1�z>5�z<>�(z)�"Sorry, try again.":�dBA

�
�sn$(z-1)

�?�p(I-1,1)=z-1

��"How much?"

��z
3�z<1�z>p(I-1)�z<>�(z)�"Sorry, try again.":�dtA
!�"`";z;" on ";sn$(?�p(I-1,1))
&?�p(I-1,2)=z
0�
5;�"O.K.? (Y/N)":�:G$=�:� G$="Y" � G$="N":� G$="N" � �tdA
:
�setup
?	�race
@�end
A	�DZ@
D�
X��Red,Brown,Grey,Yellow,Sandy,Tawny,Lightning,Magic,Super,Mega,Double,Cream,Beach,Running,Power,Sheer,Slow,Sticky,Weird,Ponky,Lynyrd,Tobacco,Green,Slimy,Turbo,Purple,Shining,Atomic
v��Snail,Whelk,Winkle,Periwinkle,Knot,Skynyrd,Dog,Strike,Streak,Burner,Harrier,Shell,Slug,Charge,Energy,Baby,Drive,Racer,Fighter,Wizard,Blazer,Ecstasy,Sundae,Jetsam,Flotsam,Rain,Express,Roller
�
��init
�T=�(-�)
�
�I=0�4
�	��DXB
��P=1��(28)
��sn$(I)
��
�	��DvB
��P=1��(28)
��a$
��
sn$(I)=sn$(I)+" "+a$
sn(I,0)=�(5)*2
sn(I,1)=�(9)+1
 %sn(I,2)=�((10-sn(I,0)+sn(I,1))/2)
*�
4
�I=1�5
>�I
H�
R��setup
W/� 1,2,3,1,2,6,1,5,7,4,6,7,1,2,4,4,6,3,1,2,7
\9��DWC:�Z=1��(7):�a,b,c:�:�19,1,a;0;19,2,b;0;19,3,c;0;
z�26
�	�:�P%
�W%=I:Z%=�(5):� U%
��130
��I=2�5:�0,I)�40," ")
��0,16+I)�40," ")
��0,20+I)�40," ")
��
��3
��0,5)�rope$,40)
��128
��0,17)�rope$,40)
�#�8,0)"SUPERSONIC SNAIL RACING"
��I=0�4:sn(I,3)=9+�(2)
�
&B%=189:D%=173:F%=157:H%=141:J%=125
�update
$
�I=0�4
.�5,7+I*2)"<<< ";sn$(I)
8�
B�I=0�4000:�
L
�I=0�4
V�5,7+I*2)�35," ")
`�
e
scr%=1
j�
t��update
~%�sn(0,3)>2 A%=sn(0,3):W%=1�W%=257
��S%
�%�sn(1,3)>2 C%=sn(1,3):W%=2�W%=258
��S%
�%�sn(2,3)>2 E%=sn(2,3):W%=3�W%=259
��S%
�%�sn(3,3)>2 G%=sn(3,3):W%=4�W%=260
��S%
�%�sn(4,3)>2 I%=sn(4,3):W%=5�W%=261
��S%
��
�
��race
�
ed=150
�w=5
�
	ldr=0


�I=0�4
,�sn(I,4)<sn(I,0)��(3)=3sn(I,4)=sn(I,4)+2
*�(30)<sn(I,1) � sn(I,1)>140 sn(I,4)=0
sn(I,3)=sn(I,3)+sn(I,4)
#�sn(I,3)>65ldr=1
$�sn(I,3)>ed*4w=I
(�
-�ldr=1�scroll
2�update
<�w<5
F�
P��scroll
Ued=ed-3
Z"scr%=scr%+3:�scr%>8scr%=scr%-8
d�130:�0,5)�rope$,scr%,40)
n�128:�0,17)�rope$,scr%,40)
x
�I=0�4
�sn(I,3)=sn(I,3)-6
��
��ed<40�ed,6)line$
��
�	��end
�	�:�P%
�"�2,2)"The winner was ";sn$(w)
�	chk=0
�	mny=5
�
�I=0�n%-1
��'"Player ";I+1
�Z�w=?�p(I,1)�"You win `";?�p(I,2)*sn(w,2):p(I)=p(I)+?�p(I,2)*sn(w,2)�p(I)=p(I)-?�p(I,2)
��"You have `";p(I)
��p(I)=0chk=chk+1
��p(I)>499999mny=I
��
��"Press SPACE"
�
���-99
��chk=n%�lose
��chk=n%-1�mny<5�win
��
ݤp(a,b)
=&27F2+a*2+b
	��win
^$�mny=5�I=0�n%-1:�p(I)>0mny=I:��
h?&27F3=mny
r�"S.SRACE-W"
|�
�
��lose
�?&27F3=5
��"S.SRACE-W"
��
�

00000000  0d 00 14 0d 6e 25 3d 3f  26 32 37 46 33 0d 00 1e  |....n%=?&27F3...|
00000010  0b d3 3d 26 32 37 46 33  0d 00 28 18 de 70 28 34  |..=&27F3..(..p(4|
00000020  29 2c 73 6e 24 28 34 29  2c 73 6e 28 34 2c 34 29  |),sn$(4),sn(4,4)|
00000030  0d 00 46 1f 72 6f 70 65  24 3d c4 36 2c bd 28 32  |..F.rope$=.6,.(2|
00000040  33 31 29 2b c4 37 2c bd  28 32 33 30 29 29 29 0d  |31)+.7,.(230))).|
00000050  00 4b 2a 6c 69 6e 65 24  3d c4 31 31 2c bd 28 32  |.K*line$=.11,.(2|
00000060  33 32 29 2b 22 20 20 20  22 2b bd 28 31 30 29 2b  |32)+"   "+.(10)+|
00000070  c4 34 2c bd 28 38 29 29  29 0d 00 50 17 e3 49 3d  |.4,.(8)))..P..I=|
00000080  30 b8 6e 25 2d 31 3a 70  28 49 29 3d 35 30 3a ed  |0.n%-1:p(I)=50:.|
00000090  0d 00 5a 05 db 0d 01 22  09 f2 69 6e 69 74 0d 01  |..Z...."..init..|
000000a0  27 36 e6 30 2c 32 3a ec  31 34 30 2c 31 30 30 30  |'6.0,2:.140,1000|
000000b0  3a df 31 31 34 30 2c 31  30 30 30 3a f0 38 35 2c  |:.1140,1000:.85,|
000000c0  31 34 30 2c 36 30 30 3a  f0 38 35 2c 31 31 34 30  |140,600:.85,1140|
000000d0  2c 36 30 30 0d 01 2c 08  e6 30 2c 31 0d 01 4a 2f  |,600..,..0,1..J/|
000000e0  ec 31 36 30 2c 39 38 30  3a df 31 31 32 30 2c 39  |.160,980:.1120,9|
000000f0  38 30 3a f0 38 35 2c 31  36 30 2c 36 32 30 3a f0  |80:.85,160,620:.|
00000100  38 35 2c 31 31 32 30 2c  36 32 30 0d 01 54 08 e6  |85,1120,620..T..|
00000110  30 2c 30 0d 01 5e 2f ec  31 38 30 2c 39 36 30 3a  |0,0..^/.180,960:|
00000120  df 31 31 30 30 2c 39 36  30 3a f0 38 35 2c 31 38  |.1100,960:.85,18|
00000130  30 2c 36 34 30 3a f0 38  35 2c 31 31 30 30 2c 36  |0,640:.85,1100,6|
00000140  34 30 0d 01 68 21 f1 8a  31 30 2c 33 29 22 50 4c  |40..h!..10,3)"PL|
00000150  41 43 45 20 59 4f 55 52  20 42 45 54 53 20 4e 4f  |ACE YOUR BETS NO|
00000160  57 21 22 0d 01 72 0a e3  49 3d 30 b8 34 0d 01 7c  |W!"..r..I=0.4..||
00000170  1b f1 8a 36 2c 49 2b 35  29 3b 49 2b 31 3b 22 3a  |...6,I+5);I+1;":|
00000180  22 3b 73 6e 24 28 49 29  0d 01 86 1a f1 8a 33 31  |";sn$(I)......31|
00000190  2c 49 2b 35 29 3b 73 6e  28 49 2c 32 29 3b 22 2d  |,I+5);sn(I,2);"-|
000001a0  31 22 0d 01 90 05 ed 0d  01 9a 12 ef 32 38 2c 30  |1"..........28,0|
000001b0  2c 33 31 2c 33 39 2c 31  35 0d 01 a4 0b e3 49 3d  |,31,39,15.....I=|
000001c0  31 b8 6e 25 0d 01 ae 11  f1 27 22 50 6c 61 79 65  |1.n%.....'"Playe|
000001d0  72 20 22 3b 49 0d 01 b8  56 e7 70 28 49 2d 31 29  |r ";I...V.p(I-1)|
000001e0  3e 30 f1 22 59 6f 75 20  68 61 76 65 20 60 22 3b  |>0."You have `";|
000001f0  70 28 49 2d 31 29 8b f1  22 59 6f 75 20 61 72 65  |p(I-1).."You are|
00000200  20 42 41 4e 4b 52 55 50  54 2e 22 3a 3f a4 70 28  | BANKRUPT.":?.p(|
00000210  49 2d 31 2c 31 29 3d 36  3a 3f a4 70 28 49 2d 31  |I-1,1)=6:?.p(I-1|
00000220  2c 32 29 3d 30 3a e5 8d  54 70 42 0d 01 c2 11 f1  |,2)=0:..TpB.....|
00000230  22 53 6e 61 69 6c 28 31  2d 35 29 22 0d 01 cc 06  |"Snail(1-5)"....|
00000240  e8 7a 0d 01 d6 2e e7 7a  3c 31 84 7a 3e 35 84 7a  |.z.....z<1.z>5.z|
00000250  3c 3e a8 28 7a 29 f1 22  53 6f 72 72 79 2c 20 74  |<>.(z)."Sorry, t|
00000260  72 79 20 61 67 61 69 6e  2e 22 3a e5 8d 64 42 41  |ry again.":..dBA|
00000270  0d 01 e0 0d f1 73 6e 24  28 7a 2d 31 29 0d 01 ea  |.....sn$(z-1)...|
00000280  12 3f a4 70 28 49 2d 31  2c 31 29 3d 7a 2d 31 0d  |.?.p(I-1,1)=z-1.|
00000290  01 f4 10 f1 22 48 6f 77  20 6d 75 63 68 3f 22 0d  |...."How much?".|
000002a0  01 fe 06 e8 7a 0d 02 08  33 e7 7a 3c 31 84 7a 3e  |....z...3.z<1.z>|
000002b0  70 28 49 2d 31 29 84 7a  3c 3e a8 28 7a 29 f1 22  |p(I-1).z<>.(z)."|
000002c0  53 6f 72 72 79 2c 20 74  72 79 20 61 67 61 69 6e  |Sorry, try again|
000002d0  2e 22 3a e5 8d 64 74 41  0d 02 12 21 f1 22 60 22  |.":..dtA...!."`"|
000002e0  3b 7a 3b 22 20 6f 6e 20  22 3b 73 6e 24 28 3f a4  |;z;" on ";sn$(?.|
000002f0  70 28 49 2d 31 2c 31 29  29 0d 02 26 10 3f a4 70  |p(I-1,1))..&.?.p|
00000300  28 49 2d 31 2c 32 29 3d  7a 0d 02 30 05 ed 0d 02  |(I-1,2)=z..0....|
00000310  35 3b f1 22 4f 2e 4b 2e  3f 20 28 59 2f 4e 29 22  |5;."O.K.? (Y/N)"|
00000320  3a f5 3a 47 24 3d be 3a  fd 20 47 24 3d 22 59 22  |:.:G$=.:. G$="Y"|
00000330  20 84 20 47 24 3d 22 4e  22 3a e7 20 47 24 3d 22  | . G$="N":. G$="|
00000340  4e 22 20 e5 20 8d 74 64  41 0d 02 3a 0a f2 73 65  |N" . .tdA..:..se|
00000350  74 75 70 0d 02 3f 09 f2  72 61 63 65 0d 02 40 08  |tup..?..race..@.|
00000360  f2 65 6e 64 0d 02 41 09  e5 8d 44 5a 40 0d 02 44  |.end..A...DZ@..D|
00000370  05 e0 0d 02 58 b7 dc 52  65 64 2c 42 72 6f 77 6e  |....X..Red,Brown|
00000380  2c 47 72 65 79 2c 59 65  6c 6c 6f 77 2c 53 61 6e  |,Grey,Yellow,San|
00000390  64 79 2c 54 61 77 6e 79  2c 4c 69 67 68 74 6e 69  |dy,Tawny,Lightni|
000003a0  6e 67 2c 4d 61 67 69 63  2c 53 75 70 65 72 2c 4d  |ng,Magic,Super,M|
000003b0  65 67 61 2c 44 6f 75 62  6c 65 2c 43 72 65 61 6d  |ega,Double,Cream|
000003c0  2c 42 65 61 63 68 2c 52  75 6e 6e 69 6e 67 2c 50  |,Beach,Running,P|
000003d0  6f 77 65 72 2c 53 68 65  65 72 2c 53 6c 6f 77 2c  |ower,Sheer,Slow,|
000003e0  53 74 69 63 6b 79 2c 57  65 69 72 64 2c 50 6f 6e  |Sticky,Weird,Pon|
000003f0  6b 79 2c 4c 79 6e 79 72  64 2c 54 6f 62 61 63 63  |ky,Lynyrd,Tobacc|
00000400  6f 2c 47 72 65 65 6e 2c  53 6c 69 6d 79 2c 54 75  |o,Green,Slimy,Tu|
00000410  72 62 6f 2c 50 75 72 70  6c 65 2c 53 68 69 6e 69  |rbo,Purple,Shini|
00000420  6e 67 2c 41 74 6f 6d 69  63 0d 02 76 c2 dc 53 6e  |ng,Atomic..v..Sn|
00000430  61 69 6c 2c 57 68 65 6c  6b 2c 57 69 6e 6b 6c 65  |ail,Whelk,Winkle|
00000440  2c 50 65 72 69 77 69 6e  6b 6c 65 2c 4b 6e 6f 74  |,Periwinkle,Knot|
00000450  2c 53 6b 79 6e 79 72 64  2c 44 6f 67 2c 53 74 72  |,Skynyrd,Dog,Str|
00000460  69 6b 65 2c 53 74 72 65  61 6b 2c 42 75 72 6e 65  |ike,Streak,Burne|
00000470  72 2c 48 61 72 72 69 65  72 2c 53 68 65 6c 6c 2c  |r,Harrier,Shell,|
00000480  53 6c 75 67 2c 43 68 61  72 67 65 2c 45 6e 65 72  |Slug,Charge,Ener|
00000490  67 79 2c 42 61 62 79 2c  44 72 69 76 65 2c 52 61  |gy,Baby,Drive,Ra|
000004a0  63 65 72 2c 46 69 67 68  74 65 72 2c 57 69 7a 61  |cer,Fighter,Wiza|
000004b0  72 64 2c 42 6c 61 7a 65  72 2c 45 63 73 74 61 73  |rd,Blazer,Ecstas|
000004c0  79 2c 53 75 6e 64 61 65  2c 4a 65 74 73 61 6d 2c  |y,Sundae,Jetsam,|
000004d0  46 6c 6f 74 73 61 6d 2c  52 61 69 6e 2c 45 78 70  |Flotsam,Rain,Exp|
000004e0  72 65 73 73 2c 52 6f 6c  6c 65 72 0d 02 94 0a dd  |ress,Roller.....|
000004f0  f2 69 6e 69 74 0d 02 9e  0b 54 3d b3 28 2d 91 29  |.init....T=.(-.)|
00000500  0d 02 a8 0a e3 49 3d 30  b8 34 0d 02 b2 09 f7 8d  |.....I=0.4......|
00000510  44 58 42 0d 02 bc 0e e3  50 3d 31 b8 b3 28 32 38  |DXB.....P=1..(28|
00000520  29 0d 02 c6 0b f3 73 6e  24 28 49 29 0d 02 d0 05  |).....sn$(I)....|
00000530  ed 0d 02 da 09 f7 8d 44  76 42 0d 02 e4 0e e3 50  |.......DvB.....P|
00000540  3d 31 b8 b3 28 32 38 29  0d 02 ee 07 f3 61 24 0d  |=1..(28).....a$.|
00000550  02 f8 05 ed 0d 03 02 18  73 6e 24 28 49 29 3d 73  |........sn$(I)=s|
00000560  6e 24 28 49 29 2b 22 20  22 2b 61 24 0d 03 0c 12  |n$(I)+" "+a$....|
00000570  73 6e 28 49 2c 30 29 3d  b3 28 35 29 2a 32 0d 03  |sn(I,0)=.(5)*2..|
00000580  16 12 73 6e 28 49 2c 31  29 3d b3 28 39 29 2b 31  |..sn(I,1)=.(9)+1|
00000590  0d 03 20 25 73 6e 28 49  2c 32 29 3d a8 28 28 31  |.. %sn(I,2)=.((1|
000005a0  30 2d 73 6e 28 49 2c 30  29 2b 73 6e 28 49 2c 31  |0-sn(I,0)+sn(I,1|
000005b0  29 29 2f 32 29 0d 03 2a  05 ed 0d 03 34 0a e3 49  |))/2)..*....4..I|
000005c0  3d 31 b8 35 0d 03 3e 06  ed 49 0d 03 48 05 e1 0d  |=1.5..>..I..H...|
000005d0  03 52 0b dd f2 73 65 74  75 70 0d 03 57 2f dc 20  |.R...setup..W/. |
000005e0  31 2c 32 2c 33 2c 31 2c  32 2c 36 2c 31 2c 35 2c  |1,2,3,1,2,6,1,5,|
000005f0  37 2c 34 2c 36 2c 37 2c  31 2c 32 2c 34 2c 34 2c  |7,4,6,7,1,2,4,4,|
00000600  36 2c 33 2c 31 2c 32 2c  37 0d 03 5c 39 f7 8d 44  |6,3,1,2,7..\9..D|
00000610  57 43 3a e3 5a 3d 31 b8  b3 28 37 29 3a f3 61 2c  |WC:.Z=1..(7):.a,|
00000620  62 2c 63 3a ed 3a ef 31  39 2c 31 2c 61 3b 30 3b  |b,c:.:.19,1,a;0;|
00000630  31 39 2c 32 2c 62 3b 30  3b 31 39 2c 33 2c 63 3b  |19,2,b;0;19,3,c;|
00000640  30 3b 0d 03 7a 07 ef 32  36 0d 03 84 09 db 3a d6  |0;..z..26.....:.|
00000650  50 25 0d 03 8e 15 57 25  3d 49 3a 5a 25 3d b3 28  |P%....W%=I:Z%=.(|
00000660  35 29 3a d6 20 55 25 0d  03 98 08 fb 31 33 30 0d  |5):. U%.....130.|
00000670  03 a2 19 e3 49 3d 32 b8  35 3a f1 8a 30 2c 49 29  |....I=2.5:..0,I)|
00000680  c4 34 30 2c 22 20 22 29  0d 03 ac 15 f1 8a 30 2c  |.40," ")......0,|
00000690  31 36 2b 49 29 c4 34 30  2c 22 20 22 29 0d 03 b6  |16+I).40," ")...|
000006a0  15 f1 8a 30 2c 32 30 2b  49 29 c4 34 30 2c 22 20  |...0,20+I).40," |
000006b0  22 29 0d 03 c0 05 ed 0d  03 ca 06 fb 33 0d 03 d4  |")..........3...|
000006c0  14 f1 8a 30 2c 35 29 c0  72 6f 70 65 24 2c 34 30  |...0,5).rope$,40|
000006d0  29 0d 03 de 08 fb 31 32  38 0d 03 e8 15 f1 8a 30  |).....128......0|
000006e0  2c 31 37 29 c0 72 6f 70  65 24 2c 34 30 29 0d 03  |,17).rope$,40)..|
000006f0  f2 23 f1 8a 38 2c 30 29  22 53 55 50 45 52 53 4f  |.#..8,0)"SUPERSO|
00000700  4e 49 43 20 53 4e 41 49  4c 20 52 41 43 49 4e 47  |NIC SNAIL RACING|
00000710  22 0d 03 fc 19 e3 49 3d  30 b8 34 3a 73 6e 28 49  |".....I=0.4:sn(I|
00000720  2c 33 29 3d 39 2b b3 28  32 29 0d 04 06 05 ed 0d  |,3)=9+.(2)......|
00000730  04 10 26 42 25 3d 31 38  39 3a 44 25 3d 31 37 33  |..&B%=189:D%=173|
00000740  3a 46 25 3d 31 35 37 3a  48 25 3d 31 34 31 3a 4a  |:F%=157:H%=141:J|
00000750  25 3d 31 32 35 0d 04 1a  0b f2 75 70 64 61 74 65  |%=125.....update|
00000760  0d 04 24 0a e3 49 3d 30  b8 34 0d 04 2e 1b f1 8a  |..$..I=0.4......|
00000770  35 2c 37 2b 49 2a 32 29  22 3c 3c 3c 20 22 3b 73  |5,7+I*2)"<<< ";s|
00000780  6e 24 28 49 29 0d 04 38  05 ed 0d 04 42 0f e3 49  |n$(I)..8....B..I|
00000790  3d 30 b8 34 30 30 30 3a  ed 0d 04 4c 0a e3 49 3d  |=0.4000:...L..I=|
000007a0  30 b8 34 0d 04 56 16 f1  8a 35 2c 37 2b 49 2a 32  |0.4..V...5,7+I*2|
000007b0  29 c4 33 35 2c 22 20 22  29 0d 04 60 05 ed 0d 04  |).35," ")..`....|
000007c0  65 0a 73 63 72 25 3d 31  0d 04 6a 05 e1 0d 04 74  |e.scr%=1..j....t|
000007d0  0c dd f2 75 70 64 61 74  65 0d 04 7e 25 e7 73 6e  |...update..~%.sn|
000007e0  28 30 2c 33 29 3e 32 20  41 25 3d 73 6e 28 30 2c  |(0,3)>2 A%=sn(0,|
000007f0  33 29 3a 57 25 3d 31 8b  57 25 3d 32 35 37 0d 04  |3):W%=1.W%=257..|
00000800  88 07 d6 53 25 0d 04 92  25 e7 73 6e 28 31 2c 33  |...S%...%.sn(1,3|
00000810  29 3e 32 20 43 25 3d 73  6e 28 31 2c 33 29 3a 57  |)>2 C%=sn(1,3):W|
00000820  25 3d 32 8b 57 25 3d 32  35 38 0d 04 9c 07 d6 53  |%=2.W%=258.....S|
00000830  25 0d 04 a6 25 e7 73 6e  28 32 2c 33 29 3e 32 20  |%...%.sn(2,3)>2 |
00000840  45 25 3d 73 6e 28 32 2c  33 29 3a 57 25 3d 33 8b  |E%=sn(2,3):W%=3.|
00000850  57 25 3d 32 35 39 0d 04  b0 07 d6 53 25 0d 04 ba  |W%=259.....S%...|
00000860  25 e7 73 6e 28 33 2c 33  29 3e 32 20 47 25 3d 73  |%.sn(3,3)>2 G%=s|
00000870  6e 28 33 2c 33 29 3a 57  25 3d 34 8b 57 25 3d 32  |n(3,3):W%=4.W%=2|
00000880  36 30 0d 04 c4 07 d6 53  25 0d 04 ce 25 e7 73 6e  |60.....S%...%.sn|
00000890  28 34 2c 33 29 3e 32 20  49 25 3d 73 6e 28 34 2c  |(4,3)>2 I%=sn(4,|
000008a0  33 29 3a 57 25 3d 35 8b  57 25 3d 32 36 31 0d 04  |3):W%=5.W%=261..|
000008b0  d8 07 d6 53 25 0d 04 e2  05 e1 0d 04 ec 0a dd f2  |...S%...........|
000008c0  72 61 63 65 0d 04 f6 0a  65 64 3d 31 35 30 0d 04  |race....ed=150..|
000008d0  fb 07 77 3d 35 0d 05 00  05 f5 0d 05 05 09 6c 64  |..w=5.........ld|
000008e0  72 3d 30 0d 05 0a 0a e3  49 3d 30 b8 34 0d 05 14  |r=0.....I=0.4...|
000008f0  2c e7 73 6e 28 49 2c 34  29 3c 73 6e 28 49 2c 30  |,.sn(I,4)<sn(I,0|
00000900  29 80 b3 28 33 29 3d 33  73 6e 28 49 2c 34 29 3d  |)..(3)=3sn(I,4)=|
00000910  73 6e 28 49 2c 34 29 2b  32 0d 05 19 2a e7 b3 28  |sn(I,4)+2...*..(|
00000920  33 30 29 3c 73 6e 28 49  2c 31 29 20 84 20 73 6e  |30)<sn(I,1) . sn|
00000930  28 49 2c 31 29 3e 31 34  30 20 73 6e 28 49 2c 34  |(I,1)>140 sn(I,4|
00000940  29 3d 30 0d 05 1e 1b 73  6e 28 49 2c 33 29 3d 73  |)=0....sn(I,3)=s|
00000950  6e 28 49 2c 33 29 2b 73  6e 28 49 2c 34 29 0d 05  |n(I,3)+sn(I,4)..|
00000960  23 14 e7 73 6e 28 49 2c  33 29 3e 36 35 6c 64 72  |#..sn(I,3)>65ldr|
00000970  3d 31 0d 05 24 14 e7 73  6e 28 49 2c 33 29 3e 65  |=1..$..sn(I,3)>e|
00000980  64 2a 34 77 3d 49 0d 05  28 05 ed 0d 05 2d 11 e7  |d*4w=I..(....-..|
00000990  6c 64 72 3d 31 f2 73 63  72 6f 6c 6c 0d 05 32 0b  |ldr=1.scroll..2.|
000009a0  f2 75 70 64 61 74 65 0d  05 3c 08 fd 77 3c 35 0d  |.update..<..w<5.|
000009b0  05 46 05 e1 0d 05 50 0c  dd f2 73 63 72 6f 6c 6c  |.F....P...scroll|
000009c0  0d 05 55 0b 65 64 3d 65  64 2d 33 0d 05 5a 22 73  |..U.ed=ed-3..Z"s|
000009d0  63 72 25 3d 73 63 72 25  2b 33 3a e7 73 63 72 25  |cr%=scr%+3:.scr%|
000009e0  3e 38 73 63 72 25 3d 73  63 72 25 2d 38 0d 05 64  |>8scr%=scr%-8..d|
000009f0  1e fb 31 33 30 3a f1 8a  30 2c 35 29 c1 72 6f 70  |..130:..0,5).rop|
00000a00  65 24 2c 73 63 72 25 2c  34 30 29 0d 05 6e 1f fb  |e$,scr%,40)..n..|
00000a10  31 32 38 3a f1 8a 30 2c  31 37 29 c1 72 6f 70 65  |128:..0,17).rope|
00000a20  24 2c 73 63 72 25 2c 34  30 29 0d 05 78 0a e3 49  |$,scr%,40)..x..I|
00000a30  3d 30 b8 34 0d 05 82 15  73 6e 28 49 2c 33 29 3d  |=0.4....sn(I,3)=|
00000a40  73 6e 28 49 2c 33 29 2d  36 0d 05 8c 05 ed 0d 05  |sn(I,3)-6.......|
00000a50  91 16 e7 65 64 3c 34 30  f1 8a 65 64 2c 36 29 6c  |...ed<40..ed,6)l|
00000a60  69 6e 65 24 0d 05 96 05  e1 0d 05 a0 09 dd f2 65  |ine$...........e|
00000a70  6e 64 0d 05 aa 09 db 3a  d6 50 25 0d 05 b4 22 f1  |nd.....:.P%...".|
00000a80  8a 32 2c 32 29 22 54 68  65 20 77 69 6e 6e 65 72  |.2,2)"The winner|
00000a90  20 77 61 73 20 22 3b 73  6e 24 28 77 29 0d 05 b9  | was ";sn$(w)...|
00000aa0  09 63 68 6b 3d 30 0d 05  ba 09 6d 6e 79 3d 35 0d  |.chk=0....mny=5.|
00000ab0  05 be 0d e3 49 3d 30 b8  6e 25 2d 31 0d 05 c8 13  |....I=0.n%-1....|
00000ac0  f1 27 22 50 6c 61 79 65  72 20 22 3b 49 2b 31 0d  |.'"Player ";I+1.|
00000ad0  05 d2 5a e7 77 3d 3f a4  70 28 49 2c 31 29 f1 22  |..Z.w=?.p(I,1)."|
00000ae0  59 6f 75 20 77 69 6e 20  60 22 3b 3f a4 70 28 49  |You win `";?.p(I|
00000af0  2c 32 29 2a 73 6e 28 77  2c 32 29 3a 70 28 49 29  |,2)*sn(w,2):p(I)|
00000b00  3d 70 28 49 29 2b 3f a4  70 28 49 2c 32 29 2a 73  |=p(I)+?.p(I,2)*s|
00000b10  6e 28 77 2c 32 29 8b 70  28 49 29 3d 70 28 49 29  |n(w,2).p(I)=p(I)|
00000b20  2d 3f a4 70 28 49 2c 32  29 0d 05 d7 16 f1 22 59  |-?.p(I,2)....."Y|
00000b30  6f 75 20 68 61 76 65 20  60 22 3b 70 28 49 29 0d  |ou have `";p(I).|
00000b40  05 d8 14 e7 70 28 49 29  3d 30 63 68 6b 3d 63 68  |....p(I)=0chk=ch|
00000b50  6b 2b 31 0d 05 d9 15 e7  70 28 49 29 3e 34 39 39  |k+1.....p(I)>499|
00000b60  39 39 39 6d 6e 79 3d 49  0d 05 dc 05 ed 0d 05 e6  |999mny=I........|
00000b70  12 f1 22 50 72 65 73 73  20 53 50 41 43 45 22 0d  |.."Press SPACE".|
00000b80  05 f0 0a f5 fd a6 2d 39  39 0d 05 f5 10 e7 63 68  |......-99.....ch|
00000b90  6b 3d 6e 25 f2 6c 6f 73  65 0d 05 f6 17 e7 63 68  |k=n%.lose.....ch|
00000ba0  6b 3d 6e 25 2d 31 84 6d  6e 79 3c 35 f2 77 69 6e  |k=n%-1.mny<5.win|
00000bb0  0d 05 fa 05 e1 0d 06 04  0c dd a4 70 28 61 2c 62  |...........p(a,b|
00000bc0  29 0d 06 0e 10 3d 26 32  37 46 32 2b 61 2a 32 2b  |)....=&27F2+a*2+|
00000bd0  62 0d 06 18 09 dd f2 77  69 6e 0d 06 5e 24 e7 6d  |b......win..^$.m|
00000be0  6e 79 3d 35 e3 49 3d 30  b8 6e 25 2d 31 3a e7 70  |ny=5.I=0.n%-1:.p|
00000bf0  28 49 29 3e 30 6d 6e 79  3d 49 3a ed 8b ed 0d 06  |(I)>0mny=I:.....|
00000c00  68 0e 3f 26 32 37 46 33  3d 6d 6e 79 0d 06 72 10  |h.?&27F3=mny..r.|
00000c10  d7 22 53 2e 53 52 41 43  45 2d 57 22 0d 06 7c 05  |."S.SRACE-W"..|.|
00000c20  e1 0d 06 86 0a dd f2 6c  6f 73 65 0d 06 90 0c 3f  |.......lose....?|
00000c30  26 32 37 46 33 3d 35 0d  06 9a 10 d7 22 53 2e 53  |&27F3=5....."S.S|
00000c40  52 41 43 45 2d 57 22 0d  06 a4 05 e1 0d ff        |RACE-W".......|
00000c4e