Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199310.adf » 93_10s » 8/Races2

8/Races2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199310.adf » 93_10s
Filename: 8/Races2
Read OK: ✔
File size: 17A3 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Race day
   20REM By Bruce Goatly
   30 ON ERROR PROCerror:END
   40 MODE7
   50*FX10,1
   60 CLS
   70 *FX9,1
   80 *FX11,0
   90y$=CHR$131:c$=CHR$133:d$=CHR$134:e$=CHR$130:f$=CHR$141:g$=CHR$129:h$=CHR$157:i$=CHR$156
  100hor0$=CHR$244+CHR$245:hor1$=CHR$240+CHR$241:hor2$=CHR$242+CHR$243
  110circ$=CHR$236+CHR$238+CHR$8+CHR$8+CHR$10+CHR$237+CHR$239
  120post$=CHR$246+CHR$10+CHR$8+CHR$246
  130PRINT:PRINT
  140FORI%=1TO2:PRINTTAB(7)y$h$g$f$"A DAY AT THE RACES   "i$:NEXT
  150PROCfanfare
  160A=RND(-TIME)
  170PRINT'"Please type your names (press <RETURN>  after each).  Up to ten people may play."
  180 PRINT"Then press <RETURN> to start the game."
  190P=0:DIM P$(10),F%(6),NB(6)
  200REPEAT:P=P+1:REPEAT:PRINTTAB(6,12)SPC(30)TAB(6,12)c$"Player no.";P;e$;:INPUT""P$(P)
  210UNTILP>1 OR P$(P)>"":UNTILP=10 OR P$(P)="":CLS
  220IFP$(P)="" THEN P=P-1
  230 PRINTTAB(3,11)d$"Each player begins with `100.":race=1
  240DIM H(6,2):DIM P(P,3):DIM L(P)
  250FOR X=1 TO P:P(X,1)=100:NEXT
  260*FX21,0
  270PRINTTAB(4,13)c$"All horses start at 4 to 1.":N=INKEY(300)
  280R%=0:FOR X=1 TO 6:H(X,2)=4:F%(X)=1
  290NEXT
  300CLS:FORX=1TO6:NB(X)=0:NEXT
  310PROClist_odds
  320FORX=1TO P
  330PROCticket
  340NEXT
  350MODE1:VDU19,0,2,0,0,0,19,2,4,0,0,0
  360CLS:VDU23,1,0;0;0;0;
  370VDU10:PRINTSPC(13);:COLOUR131:COLOUR1:PRINT"  RACE ";race;SPC(2):COLOUR128
  380J%=0:VDU10,10,10,10
  390COLOUR2:PRINT"UNDER STARTER'S ORDERS..."'
  400 FOR X=1 TO 6:COLOUR3:PRINThor0$;:COLOUR1:PRINT;X;:COLOUR2:PRINTTAB(38);X;':NEXT
  410VDU5:MOVE1185,896:GCOL0,1:PRINTcirc$:MOVE1201,832:GCOL0,3:PRINTpost$:VDU4
  420MOVE1217,768:GCOL0,2:DRAW1217,416
  430PROCfanfare
  440  TIME=0: REPEAT UNTIL TIME>=(RND(200)+200):FOR X=1 TO 6:H(X,0)=1:H(X,1)=1: NEXT
  450COLOUR1:PRINTTAB(0,6)"THEY'RE OFF!";SPC(20)':H%=1:COLOUR0:FORX%=1TO6:PRINThor0$;X%;':NEXT:COLOUR2
  460FORX=1TO P
  470IFL(X)=2THEN490
  480PRINTP$(X);" wants no.";P(X,3);" to win";:IFL(X)=1THENPRINT" - very much!"ELSE PRINT
  490NEXT
  500SOUND 0,-10,6,1:SOUND 0,0,6,1:SOUND 0,-10,6,1:SOUND 0,0,6,1:SOUND 0,-10,6,1:SOUND 0,0,6,4
  510 COLOUR3:VDU5
  520IFH%=1 PROChors(hor1$,hor2$) ELSE PROChors(hor2$,hor1$)
  530REM check for winner
  540Q=0:F=0:FOR X=1 TO 6
  550IF H(X,1)>1152 THEN IF H(X,1)>F THEN F=H(X,1):Q=X
  560NEXT
  570IF Q<>0 THEN 660
  580REM move horses
  590FOR X=1 TO 6
  600H(X,0)=H(X,1)+RND(33-INT(3*H(X,2)/H(X,2)+6))
  610IFF%(X)=500VDU4:COLOUR1:PRINTTAB(7,4)"HORSE NO.";X;" HAS FALLEN!":VDU5:GCOL0,1:MOVEH(X,1)+63,828-64*X:VDU127,127:PRINThor1$:F%(X)=0:R%=R%+1
  620IFF%(X)<>0 THEN F%(X)=RND(1000)
  630NEXT
  640IFR%=6MODE7:PRINTTAB(2,1)"Soft going - all the horses fell!"''TAB(3)"Nobody won - all bets are off."''':GOTO820
  650GOTO500
  660 MODE7:PRINT:PRINTTAB(4)"Horse number";c$;Q;CHR$135"is the winner!"
  670PRINTTAB(5)y$"HOORAY FOR"e$;FNpickhorse;"!"''
  680PROCwhinny
  690N=INKEY(300)
  700 REM report to players
  710FOR X=1 TO P:IF L(X)=2 THEN 750
  720PRINTe$;P$(X);":"d$"your bet on horse no.";P(X,3);
  730IF Q<>P(X,3) THEN PRINT " lost.":P(X,1)=P(X,1)-P(X,2):IF L(X)=1 THEN PROCbankrupt:P(X,2)=0: P(X,3)=0
  740IF Q=P(X,3)PRINT'd$"   came up at ";H(Q,2);" to 1.":W=P(X,2)*H(Q,2):PRINTy$"You have won"CHR$136g$"`";W;CHR$137y$"plus your stake.":P(X,1)=P(X,1)+W:L(X)=0
  750NEXT:PRINT:PRINT
  760 REM check more than one player
  770 L=0
  780 FOR X=1 TO P: L=L+L(X):NEXT:*FX21,0
  790 IF L=2*P-2 THEN 1220
  800N=INKEY(500)
  810 IF L=2*P THEN 1300
  820 PRINTg$"  OVERALL CASH POSITION AFTER RACE ";race;":"
  830FOR X=1 TO P: IF L(X)<>2 THEN M$=STR$(P(X,1)):W$=e$+P$(X)+y$+"`"+M$:PRINTTAB(18-LEN(W$)/2)W$
  840NEXT
  850PRINT:*FX21,0
  860FORX%=1TO2:PRINTf$c$"  Would you like another race?":NEXT
  870Q%=FNyesno
  880IF Q% THEN CLS:race=race+1:GOTO910
  890 *FX12,0
  900 CLS:FORX%=11TO12:PRINTTAB(10,X%)f$"PLAY AGAIN SOON":NEXT:VDU30:END
  910REM adjust odds
  920R%=0:FOR X=1 TO 6
  930IF X<>Q THEN H(X,2)=H(X,2)+1:F%(X)=1:ELSE H(X,2)=INT(H(X,2)/2)+1
  940NEXT
  950GOTO 300
  960DEFPROChors(P$,E$)
  970FOR X%=1 TO 6
  980IFF%(X%)=0 GOTO1020
  990MOVEH(X%,1),828-64*X%:GCOL0,0:PRINTE$:GCOL0,3:H(X%,1)=H(X%,0)
 1000MOVEH(X%,1),828-64*X%
 1010PRINT P$
 1020NEXT:H%=H%EOR3:J%=J%+1
 1030IFJ%=5VDU4:PRINTTAB(0,6)SPC(12):VDU5
 1040ENDPROC
 1050DEFPROClist_odds
 1060PRINTTAB(4,18)e$"HORSES RUNNING IN THIS RACE"
 1070FOR Q=1 TO 6
 1080PRINTSPC(5);g$;Q;":"d$;FNpickhorse;
 1090PRINT "  ";c$;H(Q,2);:IFQ<6 PRINT" TO 1" ELSE PRINT" TO 1";
 1100NEXT
 1110ENDPROC
 1120DEFFNpickhorse
 1130IFQ=1 ="LIVELY LADY"
 1140IFQ=2 ="PENNY FARTHING"
 1150IFQ=3 ="WANDERER"
 1160IFQ=4 ="SUNNY JIM"
 1170IFQ=5 ="DAILY DOZEN"
 1180IFQ=6 ="RED DRAGON"
 1190DEFPROCbankrupt
 1200 PRINTg$;P$(X);" loses shirt and retires.":L(X)=2:ENDPROC
 1210 REM establish winner
 1220 FOR X=1 TO P
 1230 IF L(X)=0 THEN 1250
 1240 NEXT
 1250 PRINTe$;P$(X);g$"WINS, WITH"CHR$136"`";P(X,1)
 1260*FX21,0
 1270 PRINT'':FORX=1TO2:PRINTf$y$"  Would you like another game?":NEXT:Q%=FNyesno
 1280 IFNOTQ%THEN 890
 1290 FOR X=1 TO P: L(X)=0:NEXT:race=1:CLS:GOTO250
 1300 PRINTg$"THE BOOKIES WON. ALL GO HOME NOW."
 1310 VDU23,1,1;0;0;0;
 1320 *FX12,0
 1330END
 1340DEFPROCfanfare
 1350SOUND 1,-10,81,3: SOUND 1,-10,101,3: SOUND 1,-10,117,3: SOUND 1,-10,129,2:SOUND 1,0,129,1
 1360SOUND 1,-10,129,1:SOUND 1,0,129,1:SOUND 1,-10,129,1:SOUND 1,0,129,1:SOUND 1,-10,129,3
 1370SOUND 1,-10,117,2: SOUND 1,0,117,1:SOUND 1,-10,117,1: SOUND 1,0,117,1:SOUND 1,-10,117,1: SOUND 1,0,117,1:SOUND 1,-10,117,3
 1380SOUND 1,-10,101,3: SOUND 1,-10,117,3:SOUND 1,-10,101,3:SOUND 1,-10,81,9
 1390ENDPROC
 1400DEFPROCTANTIVY
 1410 SOUND 1,-10,81,3:SOUND 1,-10,101,3:SOUND 1,-10,117,3:SOUND 1,-10,81,3:SOUND 1,-10,101,3: SOUND 1,-10,117,3:SOUND 1,-10,81,3:SOUND 1,-10,101,3:SOUND 1,-10,117,9
 1420ENDPROC
 1430DEFPROCwhinny
 1440ENVELOPE3,1,1,1,1,10,10,10,40,0,0,0,126,126
 1450SOUND1,3,110,6:SOUND2,3,107,6:SOUND3,3,106,6
 1460 ENVELOPE4,3,-3,-3,2,2,2,1,127,0,0,-50,126,126
 1470FORP%=140TO110STEP-4
 1480SOUND1,4,P%,3
 1490SOUND2,4,P%-3,3
 1500SOUND3,4,P%-4,3
 1510NEXT
 1520ENDPROC
 1530DEFPROCerror
 1540MODE7
 1550*FX12,0
 1560REPORT:PRINT" at line ";ERL
 1570ENDPROC
 1580DEFPROCticket
 1590IF L(X)=2 THEN1890
 1600PRINTTAB(8,0)" "
 1610FORN=1TO2:PRINTTAB(11)h$CHR$135CHR$132f$"RACE ";race;SPC(4);i$:NEXT
 1620H$=y$+P$(X)+"'S BETTING TICKET"
 1630PRINTTAB(0,4)SPC(39):PRINTTAB(18-LEN(H$)/2,4)H$
 1640PRINTTAB(2,9)y$h$SPC(31)i$
 1650FORX%=1TO7:PRINTTAB(2)y$h$SPC(31)i$:NEXT
 1660PRINTTAB(4,10)c$h$y$"HORSE NO. "h$c$h$y$"AMOUNT BET  "h$TAB(20,15)c$h$y$"TO WIN  "h$
 1670PRINTTAB(8,12)e$f$SPC(13)g$"`"TAB(8,13)e$f$SPC(13)g$"`"
 1680PRINTTAB(1,6)e$"Which horse do you wish to bet on?";SPC(45)
 1690PRINTTAB(10,13)"";
 1700REPEAT:A$=GET$:UNTILVAL(A$)>0 AND VAL(A$)<7:P(X,3)=VAL(A$):NB(P(X,3))=NB(P(X,3))+1
 1710IFNB(P(X,3))>4NB(P(X,3))=4
 1720PRINTTAB(0,18+P(X,3))e$;:FORT=1TONB(P(X,3)):PRINTTAB(5-T,18+P(X,3))"*";:NEXT
 1730PRINTTAB(0,6)g$"           You have"CHR$136"`";P(X,1);".";SPC(11)
 1740PRINTTAB(4,7)g$"How much do you wish to bet?"
 1750PRINTTAB(10,12);P(X,3)TAB(10,13);P(X,3)TAB(24,13)"`";
 1760B$="":REPEAT:REPEAT:A$=GET$:IFASC(A$)=127ANDB$>""PROCDELETE:B$=LEFT$(B$,LEN(B$)-1)
 1770UNTIL ASC(A$)=13 OR (ASC(A$)>47 AND ASC(A$)<58):PRINTA$;:VDU8,11:PRINTA$;:VDU10:B$=B$+A$:UNTILASC(A$)=13
 1780P(X,2)=VAL(B$)
 1790IFP(X,2)=0 PRINTTAB(3,6)e$"You'll never get rich that way!";SPC(45):N=INKEY(150):PROCRUBOUT:GOTO1730
 1800IFP(X,2)>P(X,1) THENPRINTTAB(6,6)g$"But you have"e$"only"CHR$136"`";P(X,1);"!";SPC(50):N=INKEY(100):PROCRUBOUT:GOTO1740
 1810IFP(X,2)<P(X,1) PRINTTAB(0,6)SPC(79):ELSEL(X)=1:PRINTTAB(6,6)d$h$CHR$136CHR$132"That's your shirt!   "i$;SPC(52)
 1820PRINTTAB(9,8)e$"Is this all right?";:REPEATA=GETAND&DF:UNTILA=89 OR A=78 OR A=13
 1830PRINTTAB(9,8)SPC(19)
 1840IFA=78 L(X)=0:NB(P(X,3))=NB(P(X,3))-1:FORT=1TO(4-NB(P(X,3))):PRINTTAB(T,18+P(X,3))" ";:NEXT:GOTO1620
 1850ENDPROC
 1860DEFPROCRUBOUT
 1870PRINTTAB(25,13)" ";
 1880FOR N=1 TO LEN(B$):VDU8,11:PRINT" ";:VDU10:PRINT" ";:NEXT
 1890ENDPROC
 1900DEFPROCDELETE
 1910VDU11,127,10,9,127
 1920ENDPROC
 1930DEFFNyesno:REPEATA=GETAND&DF:UNTILA=89ORA=78:=(A=89)


� Race day
� By Bruce Goatly
 � � �error:�
( �7
2*FX10,1
< �
F *FX9,1
P *FX11,0
ZCy$=�131:c$=�133:d$=�134:e$=�130:f$=�141:g$=�129:h$=�157:i$=�156
d3hor0$=�244+�245:hor1$=�240+�241:hor2$=�242+�243
n'circ$=�236+�238+�8+�8+�10+�237+�239
xpost$=�246+�10+�8+�246
��:�
�3�I%=1�2:�7)y$h$g$f$"A DAY AT THE RACES   "i$:�
��fanfare
�A=�(-�)
�X�'"Please type your names (press <RETURN>  after each).  Up to ten people may play."
�. �"Then press <RETURN> to start the game."
�P=0:� P$(10),F%(6),NB(6)
�=�:P=P+1:�:�6,12)�(30)�6,12)c$"Player no.";P;e$;:�""P$(P)
�&�P>1 � P$(P)>"":�P=10 � P$(P)="":�
��P$(P)="" � P=P-1
�4 �3,11)d$"Each player begins with `100.":race=1
�� H(6,2):� P(P,3):� L(P)
�� X=1 � P:P(X,1)=100:�
*FX21,0
3�4,13)c$"All horses start at 4 to 1.":N=�(300)
#R%=0:� X=1 � 6:H(X,2)=4:F%(X)=1
"�
,�:�X=1�6:NB(X)=0:�
6�list_odds
@�X=1� P
J�ticket
T�
^!�1:�19,0,2,0,0,0,19,2,4,0,0,0
h�:�23,1,0;0;0;0;
r1�10:�(13);:�131:�1:�"  RACE ";race;�(2):�128
|J%=0:�10,10,10,10
�$�2:�"UNDER STARTER'S ORDERS..."'
�0 � X=1 � 6:�3:�hor0$;:�1:�;X;:�2:�38);X;':�
�5�5:�1185,896:�0,1:�circ$:�1201,832:�0,3:�post$:�4
��1217,768:�0,2:�1217,416
��fanfare
�=  �=0: � � �>=(�(200)+200):� X=1 � 6:H(X,0)=1:H(X,1)=1: �
�C�1:�0,6)"THEY'RE OFF!";�(20)':H%=1:�0:�X%=1�6:�hor0$;X%;':�:�2
��X=1� P
��L(X)=2��djA
�E�P$(X);" wants no.";P(X,3);" to win";:�L(X)=1��" - very much!"� �
��
�E� 0,-10,6,1:� 0,0,6,1:� 0,-10,6,1:� 0,0,6,1:� 0,-10,6,1:� 0,0,6,4
�
 �3:�5
1�H%=1 �hors(hor1$,hor2$) � �hors(hor2$,hor1$)
� check for winner
Q=0:F=0:� X=1 � 6
&-� H(X,1)>1152 � � H(X,1)>F � F=H(X,1):Q=X
0�
:� Q<>0 � �tTB
D� move horses
N
� X=1 � 6
X,H(X,0)=H(X,1)+�(33-�(3*H(X,2)/H(X,2)+6))
br�F%(X)=500�4:�1:�7,4)"HORSE NO.";X;" HAS FALLEN!":�5:�0,1:�H(X,1)+63,828-64*X:�127,127:�hor1$:F%(X)=0:R%=R%+1
l�F%(X)<>0 � F%(X)=�(1000)
v�
�c�R%=6�7:�2,1)"Soft going - all the horses fell!"''�3)"Nobody won - all bets are off."''':�TtC
�	�dtA
�6 �7:�:�4)"Horse number";c$;Q;�135"is the winner!"
�)�5)y$"HOORAY FOR"e$;�pickhorse;"!"''
��whinny
�N=�(300)
� � report to players
�� X=1 � P:� L(X)=2 � �dnB
�2�e$;P$(X);":"d$"your bet on horse no.";P(X,3);
�Y� Q<>P(X,3) � � " lost.":P(X,1)=P(X,1)-P(X,2):� L(X)=1 � �bankrupt:P(X,2)=0: P(X,3)=0
�� Q=P(X,3)�'d$"   came up at ";H(Q,2);" to 1.":W=P(X,2)*H(Q,2):�y$"You have won"�136g$"`";W;�137y$"plus your stake.":P(X,1)=P(X,1)+W:L(X)=0
�	�:�:�
�! � check more than one player
 L=0
" � X=1 � P: L=L+L(X):�:*FX21,0
 � L=2*P-2 � �dDD
 N=�(500)
* � L=2*P � �TTE
46 �g$"  OVERALL CASH POSITION AFTER RACE ";race;":"
>M� X=1 � P: � L(X)<>2 � M$=�(P(X,1)):W$=e$+P$(X)+y$+"`"+M$:�18-�(W$)/2)W$
H�
R
�:*FX21,0
\3�X%=1�2:�f$c$"  Would you like another race?":�
f
Q%=�yesno
p� Q% � �:race=race+1:�tNC
z *FX12,0
�4 �:�X%=11�12:�10,X%)f$"PLAY AGAIN SOON":�:�30:�
�� adjust odds
�R%=0:� X=1 � 6
�;� X<>Q � H(X,2)=H(X,2)+1:F%(X)=1:� H(X,2)=�(H(X,2)/2)+1
��
�
� �TlA
���hors(P$,E$)
�� X%=1 � 6
��F%(X%)=0 �d|C
�4�H(X%,1),828-64*X%:�0,0:�E$:�0,3:H(X%,1)=H(X%,0)
��H(X%,1),828-64*X%
�� P$
��:H%=H%�3:J%=J%+1
�J%=5�4:�0,6)�(12):�5
�
��list_odds
$*�4,18)e$"HORSES RUNNING IN THIS RACE"
.
� Q=1 � 6
8 �(5);g$;Q;":"d$;�pickhorse;
B/� "  ";c$;H(Q,2);:�Q<6 �" TO 1" � �" TO 1";
L�
V�
`ݤpickhorse
j�Q=1 ="LIVELY LADY"
t�Q=2 ="PENNY FARTHING"
~�Q=3 ="WANDERER"
��Q=4 ="SUNNY JIM"
��Q=5 ="DAILY DOZEN"
��Q=6 ="RED DRAGON"
���bankrupt
�3 �g$;P$(X);" loses shirt and retires.":L(X)=2:�
� � establish winner
� � X=1 � P
� � L(X)=0 � �dbD
� �
�+ �e$;P$(X);g$"WINS, WITH"�136"`";P(X,1)
�*FX21,0
�A �'':�X=1�2:�f$y$"  Would you like another game?":�:Q%=�yesno
 �Q%� �DzC

' � X=1 � P: L(X)=0:�:race=1:�:�dz@
+ �g$"THE BOOKIES WON. ALL GO HOME NOW."
 �23,1,1;0;0;0;
( *FX12,0
2�
<
��fanfare
FI� 1,-10,81,3: � 1,-10,101,3: � 1,-10,117,3: � 1,-10,129,2:� 1,0,129,1
PE� 1,-10,129,1:� 1,0,129,1:� 1,-10,129,1:� 1,0,129,1:� 1,-10,129,3
Zb� 1,-10,117,2: � 1,0,117,1:� 1,-10,117,1: � 1,0,117,1:� 1,-10,117,1: � 1,0,117,1:� 1,-10,117,3
d;� 1,-10,101,3: � 1,-10,117,3:� 1,-10,101,3:� 1,-10,81,9
n�
x
��TANTIVY
�� � 1,-10,81,3:� 1,-10,101,3:� 1,-10,117,3:� 1,-10,81,3:� 1,-10,101,3: � 1,-10,117,3:� 1,-10,81,3:� 1,-10,101,3:� 1,-10,117,9
��
���whinny
�(�3,1,1,1,1,10,10,10,40,0,0,0,126,126
�$�1,3,110,6:�2,3,107,6:�3,3,106,6
�+ �4,3,-3,-3,2,2,2,1,127,0,0,-50,126,126
��P%=140�110�-4
�
�1,4,P%,3
��2,4,P%-3,3
��3,4,P%-4,3
��
��
���error
�7
*FX12,0
�:�" at line ";�
"�
,��ticket
6� L(X)=2 ��DbG
@
�8,0)" "
J2�N=1�2:�11)h$�135�132f$"RACE ";race;�(4);i$:�
T#H$=y$+P$(X)+"'S BETTING TICKET"
^!�0,4)�(39):�18-�(H$)/2,4)H$
h�2,9)y$h$�(31)i$
r�X%=1�7:�2)y$h$�(31)i$:�
|N�4,10)c$h$y$"HORSE NO. "h$c$h$y$"AMOUNT BET  "h$�20,15)c$h$y$"TO WIN  "h$
�-�8,12)e$f$�(13)g$"`"�8,13)e$f$�(13)g$"`"
�6�1,6)e$"Which horse do you wish to bet on?";�(45)
��10,13)"";
�B�:A$=�:��(A$)>0 � �(A$)<7:P(X,3)=�(A$):NB(P(X,3))=NB(P(X,3))+1
��NB(P(X,3))>4NB(P(X,3))=4
�<�0,18+P(X,3))e$;:�T=1�NB(P(X,3)):�5-T,18+P(X,3))"*";:�
�9�0,6)g$"           You have"�136"`";P(X,1);".";�(11)
�*�4,7)g$"How much do you wish to bet?"
�,�10,12);P(X,3)�10,13);P(X,3)�24,13)"`";
�:B$="":�:�:A$=�:�(A$)=127�B$>""�DELETE:B$=�B$,�(B$)-1)
�M� �(A$)=13 � (�(A$)>47 � �(A$)<58):�A$;:�8,11:�A$;:�10:B$=B$+A$:��(A$)=13
�P(X,2)=�(B$)
�T�P(X,2)=0 �3,6)e$"You'll never get rich that way!";�(45):N=�(150):�RUBOUT:�dBF
a�P(X,2)>P(X,1) ��6,6)g$"But you have"e$"only"�136"`";P(X,1);"!";�(50):N=�(100):�RUBOUT:�dLF
X�P(X,2)<P(X,1) �0,6)�(79):�L(X)=1:�6,6)d$h$�136�132"That's your shirt!   "i$;�(52)
>�9,8)e$"Is this all right?";:�A=��&DF:�A=89 � A=78 � A=13
&�9,8)�(19)
0W�A=78 L(X)=0:NB(P(X,3))=NB(P(X,3))-1:�T=1�(4-NB(P(X,3))):�T,18+P(X,3))" ";:�:�DTF
:�
D��RUBOUT
N�25,13)" ";
X)� N=1 � �(B$):�8,11:�" ";:�10:�" ";:�
b�
l��DELETE
v�11,127,10,9,127
��
�'ݤyesno:�A=��&DF:�A=89�A=78:=(A=89)
�
00000000  0d 00 0a 0e f4 20 52 61  63 65 20 64 61 79 0d 00  |..... Race day..|
00000010  14 15 f4 20 42 79 20 42  72 75 63 65 20 47 6f 61  |... By Bruce Goa|
00000020  74 6c 79 0d 00 1e 11 20  ee 20 85 20 f2 65 72 72  |tly.... . . .err|
00000030  6f 72 3a e0 0d 00 28 07  20 eb 37 0d 00 32 0b 2a  |or:...(. .7..2.*|
00000040  46 58 31 30 2c 31 0d 00  3c 06 20 db 0d 00 46 0b  |FX10,1..<. ...F.|
00000050  20 2a 46 58 39 2c 31 0d  00 50 0c 20 2a 46 58 31  | *FX9,1..P. *FX1|
00000060  31 2c 30 0d 00 5a 43 79  24 3d bd 31 33 31 3a 63  |1,0..ZCy$=.131:c|
00000070  24 3d bd 31 33 33 3a 64  24 3d bd 31 33 34 3a 65  |$=.133:d$=.134:e|
00000080  24 3d bd 31 33 30 3a 66  24 3d bd 31 34 31 3a 67  |$=.130:f$=.141:g|
00000090  24 3d bd 31 32 39 3a 68  24 3d bd 31 35 37 3a 69  |$=.129:h$=.157:i|
000000a0  24 3d bd 31 35 36 0d 00  64 33 68 6f 72 30 24 3d  |$=.156..d3hor0$=|
000000b0  bd 32 34 34 2b bd 32 34  35 3a 68 6f 72 31 24 3d  |.244+.245:hor1$=|
000000c0  bd 32 34 30 2b bd 32 34  31 3a 68 6f 72 32 24 3d  |.240+.241:hor2$=|
000000d0  bd 32 34 32 2b bd 32 34  33 0d 00 6e 27 63 69 72  |.242+.243..n'cir|
000000e0  63 24 3d bd 32 33 36 2b  bd 32 33 38 2b bd 38 2b  |c$=.236+.238+.8+|
000000f0  bd 38 2b bd 31 30 2b bd  32 33 37 2b bd 32 33 39  |.8+.10+.237+.239|
00000100  0d 00 78 1a 70 6f 73 74  24 3d bd 32 34 36 2b bd  |..x.post$=.246+.|
00000110  31 30 2b bd 38 2b bd 32  34 36 0d 00 82 07 f1 3a  |10+.8+.246.....:|
00000120  f1 0d 00 8c 33 e3 49 25  3d 31 b8 32 3a f1 8a 37  |....3.I%=1.2:..7|
00000130  29 79 24 68 24 67 24 66  24 22 41 20 44 41 59 20  |)y$h$g$f$"A DAY |
00000140  41 54 20 54 48 45 20 52  41 43 45 53 20 20 20 22  |AT THE RACES   "|
00000150  69 24 3a ed 0d 00 96 0c  f2 66 61 6e 66 61 72 65  |i$:......fanfare|
00000160  0d 00 a0 0b 41 3d b3 28  2d 91 29 0d 00 aa 58 f1  |....A=.(-.)...X.|
00000170  27 22 50 6c 65 61 73 65  20 74 79 70 65 20 79 6f  |'"Please type yo|
00000180  75 72 20 6e 61 6d 65 73  20 28 70 72 65 73 73 20  |ur names (press |
00000190  3c 52 45 54 55 52 4e 3e  20 20 61 66 74 65 72 20  |<RETURN>  after |
000001a0  65 61 63 68 29 2e 20 20  55 70 20 74 6f 20 74 65  |each).  Up to te|
000001b0  6e 20 70 65 6f 70 6c 65  20 6d 61 79 20 70 6c 61  |n people may pla|
000001c0  79 2e 22 0d 00 b4 2e 20  f1 22 54 68 65 6e 20 70  |y.".... ."Then p|
000001d0  72 65 73 73 20 3c 52 45  54 55 52 4e 3e 20 74 6f  |ress <RETURN> to|
000001e0  20 73 74 61 72 74 20 74  68 65 20 67 61 6d 65 2e  | start the game.|
000001f0  22 0d 00 be 1c 50 3d 30  3a de 20 50 24 28 31 30  |"....P=0:. P$(10|
00000200  29 2c 46 25 28 36 29 2c  4e 42 28 36 29 0d 00 c8  |),F%(6),NB(6)...|
00000210  3d f5 3a 50 3d 50 2b 31  3a f5 3a f1 8a 36 2c 31  |=.:P=P+1:.:..6,1|
00000220  32 29 89 28 33 30 29 8a  36 2c 31 32 29 63 24 22  |2).(30).6,12)c$"|
00000230  50 6c 61 79 65 72 20 6e  6f 2e 22 3b 50 3b 65 24  |Player no.";P;e$|
00000240  3b 3a e8 22 22 50 24 28  50 29 0d 00 d2 26 fd 50  |;:.""P$(P)...&.P|
00000250  3e 31 20 84 20 50 24 28  50 29 3e 22 22 3a fd 50  |>1 . P$(P)>"":.P|
00000260  3d 31 30 20 84 20 50 24  28 50 29 3d 22 22 3a db  |=10 . P$(P)="":.|
00000270  0d 00 dc 15 e7 50 24 28  50 29 3d 22 22 20 8c 20  |.....P$(P)="" . |
00000280  50 3d 50 2d 31 0d 00 e6  34 20 f1 8a 33 2c 31 31  |P=P-1...4 ..3,11|
00000290  29 64 24 22 45 61 63 68  20 70 6c 61 79 65 72 20  |)d$"Each player |
000002a0  62 65 67 69 6e 73 20 77  69 74 68 20 60 31 30 30  |begins with `100|
000002b0  2e 22 3a 72 61 63 65 3d  31 0d 00 f0 1c de 20 48  |.":race=1..... H|
000002c0  28 36 2c 32 29 3a de 20  50 28 50 2c 33 29 3a de  |(6,2):. P(P,3):.|
000002d0  20 4c 28 50 29 0d 00 fa  1a e3 20 58 3d 31 20 b8  | L(P)..... X=1 .|
000002e0  20 50 3a 50 28 58 2c 31  29 3d 31 30 30 3a ed 0d  | P:P(X,1)=100:..|
000002f0  01 04 0b 2a 46 58 32 31  2c 30 0d 01 0e 33 f1 8a  |...*FX21,0...3..|
00000300  34 2c 31 33 29 63 24 22  41 6c 6c 20 68 6f 72 73  |4,13)c$"All hors|
00000310  65 73 20 73 74 61 72 74  20 61 74 20 34 20 74 6f  |es start at 4 to|
00000320  20 31 2e 22 3a 4e 3d a6  28 33 30 30 29 0d 01 18  | 1.":N=.(300)...|
00000330  23 52 25 3d 30 3a e3 20  58 3d 31 20 b8 20 36 3a  |#R%=0:. X=1 . 6:|
00000340  48 28 58 2c 32 29 3d 34  3a 46 25 28 58 29 3d 31  |H(X,2)=4:F%(X)=1|
00000350  0d 01 22 05 ed 0d 01 2c  16 db 3a e3 58 3d 31 b8  |.."....,..:.X=1.|
00000360  36 3a 4e 42 28 58 29 3d  30 3a ed 0d 01 36 0e f2  |6:NB(X)=0:...6..|
00000370  6c 69 73 74 5f 6f 64 64  73 0d 01 40 0b e3 58 3d  |list_odds..@..X=|
00000380  31 b8 20 50 0d 01 4a 0b  f2 74 69 63 6b 65 74 0d  |1. P..J..ticket.|
00000390  01 54 05 ed 0d 01 5e 21  eb 31 3a ef 31 39 2c 30  |.T....^!.1:.19,0|
000003a0  2c 32 2c 30 2c 30 2c 30  2c 31 39 2c 32 2c 34 2c  |,2,0,0,0,19,2,4,|
000003b0  30 2c 30 2c 30 0d 01 68  14 db 3a ef 32 33 2c 31  |0,0,0..h..:.23,1|
000003c0  2c 30 3b 30 3b 30 3b 30  3b 0d 01 72 31 ef 31 30  |,0;0;0;0;..r1.10|
000003d0  3a f1 89 28 31 33 29 3b  3a fb 31 33 31 3a fb 31  |:..(13);:.131:.1|
000003e0  3a f1 22 20 20 52 41 43  45 20 22 3b 72 61 63 65  |:."  RACE ";race|
000003f0  3b 89 28 32 29 3a fb 31  32 38 0d 01 7c 15 4a 25  |;.(2):.128..|.J%|
00000400  3d 30 3a ef 31 30 2c 31  30 2c 31 30 2c 31 30 0d  |=0:.10,10,10,10.|
00000410  01 86 24 fb 32 3a f1 22  55 4e 44 45 52 20 53 54  |..$.2:."UNDER ST|
00000420  41 52 54 45 52 27 53 20  4f 52 44 45 52 53 2e 2e  |ARTER'S ORDERS..|
00000430  2e 22 27 0d 01 90 30 20  e3 20 58 3d 31 20 b8 20  |."'...0 . X=1 . |
00000440  36 3a fb 33 3a f1 68 6f  72 30 24 3b 3a fb 31 3a  |6:.3:.hor0$;:.1:|
00000450  f1 3b 58 3b 3a fb 32 3a  f1 8a 33 38 29 3b 58 3b  |.;X;:.2:..38);X;|
00000460  27 3a ed 0d 01 9a 35 ef  35 3a ec 31 31 38 35 2c  |':....5.5:.1185,|
00000470  38 39 36 3a e6 30 2c 31  3a f1 63 69 72 63 24 3a  |896:.0,1:.circ$:|
00000480  ec 31 32 30 31 2c 38 33  32 3a e6 30 2c 33 3a f1  |.1201,832:.0,3:.|
00000490  70 6f 73 74 24 3a ef 34  0d 01 a4 1c ec 31 32 31  |post$:.4.....121|
000004a0  37 2c 37 36 38 3a e6 30  2c 32 3a df 31 32 31 37  |7,768:.0,2:.1217|
000004b0  2c 34 31 36 0d 01 ae 0c  f2 66 61 6e 66 61 72 65  |,416.....fanfare|
000004c0  0d 01 b8 3d 20 20 d1 3d  30 3a 20 f5 20 fd 20 91  |...=  .=0: . . .|
000004d0  3e 3d 28 b3 28 32 30 30  29 2b 32 30 30 29 3a e3  |>=(.(200)+200):.|
000004e0  20 58 3d 31 20 b8 20 36  3a 48 28 58 2c 30 29 3d  | X=1 . 6:H(X,0)=|
000004f0  31 3a 48 28 58 2c 31 29  3d 31 3a 20 ed 0d 01 c2  |1:H(X,1)=1: ....|
00000500  43 fb 31 3a f1 8a 30 2c  36 29 22 54 48 45 59 27  |C.1:..0,6)"THEY'|
00000510  52 45 20 4f 46 46 21 22  3b 89 28 32 30 29 27 3a  |RE OFF!";.(20)':|
00000520  48 25 3d 31 3a fb 30 3a  e3 58 25 3d 31 b8 36 3a  |H%=1:.0:.X%=1.6:|
00000530  f1 68 6f 72 30 24 3b 58  25 3b 27 3a ed 3a fb 32  |.hor0$;X%;':.:.2|
00000540  0d 01 cc 0b e3 58 3d 31  b8 20 50 0d 01 d6 10 e7  |.....X=1. P.....|
00000550  4c 28 58 29 3d 32 8c 8d  64 6a 41 0d 01 e0 45 f1  |L(X)=2..djA...E.|
00000560  50 24 28 58 29 3b 22 20  77 61 6e 74 73 20 6e 6f  |P$(X);" wants no|
00000570  2e 22 3b 50 28 58 2c 33  29 3b 22 20 74 6f 20 77  |.";P(X,3);" to w|
00000580  69 6e 22 3b 3a e7 4c 28  58 29 3d 31 8c f1 22 20  |in";:.L(X)=1.." |
00000590  2d 20 76 65 72 79 20 6d  75 63 68 21 22 8b 20 f1  |- very much!". .|
000005a0  0d 01 ea 05 ed 0d 01 f4  45 d4 20 30 2c 2d 31 30  |........E. 0,-10|
000005b0  2c 36 2c 31 3a d4 20 30  2c 30 2c 36 2c 31 3a d4  |,6,1:. 0,0,6,1:.|
000005c0  20 30 2c 2d 31 30 2c 36  2c 31 3a d4 20 30 2c 30  | 0,-10,6,1:. 0,0|
000005d0  2c 36 2c 31 3a d4 20 30  2c 2d 31 30 2c 36 2c 31  |,6,1:. 0,-10,6,1|
000005e0  3a d4 20 30 2c 30 2c 36  2c 34 0d 01 fe 0a 20 fb  |:. 0,0,6,4.... .|
000005f0  33 3a ef 35 0d 02 08 31  e7 48 25 3d 31 20 f2 68  |3:.5...1.H%=1 .h|
00000600  6f 72 73 28 68 6f 72 31  24 2c 68 6f 72 32 24 29  |ors(hor1$,hor2$)|
00000610  20 8b 20 f2 68 6f 72 73  28 68 6f 72 32 24 2c 68  | . .hors(hor2$,h|
00000620  6f 72 31 24 29 0d 02 12  16 f4 20 63 68 65 63 6b  |or1$)..... check|
00000630  20 66 6f 72 20 77 69 6e  6e 65 72 0d 02 1c 15 51  | for winner....Q|
00000640  3d 30 3a 46 3d 30 3a e3  20 58 3d 31 20 b8 20 36  |=0:F=0:. X=1 . 6|
00000650  0d 02 26 2d e7 20 48 28  58 2c 31 29 3e 31 31 35  |..&-. H(X,1)>115|
00000660  32 20 8c 20 e7 20 48 28  58 2c 31 29 3e 46 20 8c  |2 . . H(X,1)>F .|
00000670  20 46 3d 48 28 58 2c 31  29 3a 51 3d 58 0d 02 30  | F=H(X,1):Q=X..0|
00000680  05 ed 0d 02 3a 11 e7 20  51 3c 3e 30 20 8c 20 8d  |....:.. Q<>0 . .|
00000690  74 54 42 0d 02 44 11 f4  20 6d 6f 76 65 20 68 6f  |tTB..D.. move ho|
000006a0  72 73 65 73 0d 02 4e 0d  e3 20 58 3d 31 20 b8 20  |rses..N.. X=1 . |
000006b0  36 0d 02 58 2c 48 28 58  2c 30 29 3d 48 28 58 2c  |6..X,H(X,0)=H(X,|
000006c0  31 29 2b b3 28 33 33 2d  a8 28 33 2a 48 28 58 2c  |1)+.(33-.(3*H(X,|
000006d0  32 29 2f 48 28 58 2c 32  29 2b 36 29 29 0d 02 62  |2)/H(X,2)+6))..b|
000006e0  72 e7 46 25 28 58 29 3d  35 30 30 ef 34 3a fb 31  |r.F%(X)=500.4:.1|
000006f0  3a f1 8a 37 2c 34 29 22  48 4f 52 53 45 20 4e 4f  |:..7,4)"HORSE NO|
00000700  2e 22 3b 58 3b 22 20 48  41 53 20 46 41 4c 4c 45  |.";X;" HAS FALLE|
00000710  4e 21 22 3a ef 35 3a e6  30 2c 31 3a ec 48 28 58  |N!":.5:.0,1:.H(X|
00000720  2c 31 29 2b 36 33 2c 38  32 38 2d 36 34 2a 58 3a  |,1)+63,828-64*X:|
00000730  ef 31 32 37 2c 31 32 37  3a f1 68 6f 72 31 24 3a  |.127,127:.hor1$:|
00000740  46 25 28 58 29 3d 30 3a  52 25 3d 52 25 2b 31 0d  |F%(X)=0:R%=R%+1.|
00000750  02 6c 1d e7 46 25 28 58  29 3c 3e 30 20 8c 20 46  |.l..F%(X)<>0 . F|
00000760  25 28 58 29 3d b3 28 31  30 30 30 29 0d 02 76 05  |%(X)=.(1000)..v.|
00000770  ed 0d 02 80 63 e7 52 25  3d 36 eb 37 3a f1 8a 32  |....c.R%=6.7:..2|
00000780  2c 31 29 22 53 6f 66 74  20 67 6f 69 6e 67 20 2d  |,1)"Soft going -|
00000790  20 61 6c 6c 20 74 68 65  20 68 6f 72 73 65 73 20  | all the horses |
000007a0  66 65 6c 6c 21 22 27 27  8a 33 29 22 4e 6f 62 6f  |fell!"''.3)"Nobo|
000007b0  64 79 20 77 6f 6e 20 2d  20 61 6c 6c 20 62 65 74  |dy won - all bet|
000007c0  73 20 61 72 65 20 6f 66  66 2e 22 27 27 27 3a e5  |s are off."''':.|
000007d0  8d 54 74 43 0d 02 8a 09  e5 8d 64 74 41 0d 02 94  |.TtC......dtA...|
000007e0  36 20 eb 37 3a f1 3a f1  8a 34 29 22 48 6f 72 73  |6 .7:.:..4)"Hors|
000007f0  65 20 6e 75 6d 62 65 72  22 3b 63 24 3b 51 3b bd  |e number";c$;Q;.|
00000800  31 33 35 22 69 73 20 74  68 65 20 77 69 6e 6e 65  |135"is the winne|
00000810  72 21 22 0d 02 9e 29 f1  8a 35 29 79 24 22 48 4f  |r!"...)..5)y$"HO|
00000820  4f 52 41 59 20 46 4f 52  22 65 24 3b a4 70 69 63  |ORAY FOR"e$;.pic|
00000830  6b 68 6f 72 73 65 3b 22  21 22 27 27 0d 02 a8 0b  |khorse;"!"''....|
00000840  f2 77 68 69 6e 6e 79 0d  02 b2 0c 4e 3d a6 28 33  |.whinny....N=.(3|
00000850  30 30 29 0d 02 bc 18 20  f4 20 72 65 70 6f 72 74  |00).... . report|
00000860  20 74 6f 20 70 6c 61 79  65 72 73 0d 02 c6 1d e3  | to players.....|
00000870  20 58 3d 31 20 b8 20 50  3a e7 20 4c 28 58 29 3d  | X=1 . P:. L(X)=|
00000880  32 20 8c 20 8d 64 6e 42  0d 02 d0 32 f1 65 24 3b  |2 . .dnB...2.e$;|
00000890  50 24 28 58 29 3b 22 3a  22 64 24 22 79 6f 75 72  |P$(X);":"d$"your|
000008a0  20 62 65 74 20 6f 6e 20  68 6f 72 73 65 20 6e 6f  | bet on horse no|
000008b0  2e 22 3b 50 28 58 2c 33  29 3b 0d 02 da 59 e7 20  |.";P(X,3);...Y. |
000008c0  51 3c 3e 50 28 58 2c 33  29 20 8c 20 f1 20 22 20  |Q<>P(X,3) . . " |
000008d0  6c 6f 73 74 2e 22 3a 50  28 58 2c 31 29 3d 50 28  |lost.":P(X,1)=P(|
000008e0  58 2c 31 29 2d 50 28 58  2c 32 29 3a e7 20 4c 28  |X,1)-P(X,2):. L(|
000008f0  58 29 3d 31 20 8c 20 f2  62 61 6e 6b 72 75 70 74  |X)=1 . .bankrupt|
00000900  3a 50 28 58 2c 32 29 3d  30 3a 20 50 28 58 2c 33  |:P(X,2)=0: P(X,3|
00000910  29 3d 30 0d 02 e4 8f e7  20 51 3d 50 28 58 2c 33  |)=0..... Q=P(X,3|
00000920  29 f1 27 64 24 22 20 20  20 63 61 6d 65 20 75 70  |).'d$"   came up|
00000930  20 61 74 20 22 3b 48 28  51 2c 32 29 3b 22 20 74  | at ";H(Q,2);" t|
00000940  6f 20 31 2e 22 3a 57 3d  50 28 58 2c 32 29 2a 48  |o 1.":W=P(X,2)*H|
00000950  28 51 2c 32 29 3a f1 79  24 22 59 6f 75 20 68 61  |(Q,2):.y$"You ha|
00000960  76 65 20 77 6f 6e 22 bd  31 33 36 67 24 22 60 22  |ve won".136g$"`"|
00000970  3b 57 3b bd 31 33 37 79  24 22 70 6c 75 73 20 79  |;W;.137y$"plus y|
00000980  6f 75 72 20 73 74 61 6b  65 2e 22 3a 50 28 58 2c  |our stake.":P(X,|
00000990  31 29 3d 50 28 58 2c 31  29 2b 57 3a 4c 28 58 29  |1)=P(X,1)+W:L(X)|
000009a0  3d 30 0d 02 ee 09 ed 3a  f1 3a f1 0d 02 f8 21 20  |=0.....:.:....! |
000009b0  f4 20 63 68 65 63 6b 20  6d 6f 72 65 20 74 68 61  |. check more tha|
000009c0  6e 20 6f 6e 65 20 70 6c  61 79 65 72 0d 03 02 08  |n one player....|
000009d0  20 4c 3d 30 0d 03 0c 22  20 e3 20 58 3d 31 20 b8  | L=0..." . X=1 .|
000009e0  20 50 3a 20 4c 3d 4c 2b  4c 28 58 29 3a ed 3a 2a  | P: L=L+L(X):.:*|
000009f0  46 58 32 31 2c 30 0d 03  16 15 20 e7 20 4c 3d 32  |FX21,0.... . L=2|
00000a00  2a 50 2d 32 20 8c 20 8d  64 44 44 0d 03 20 0c 4e  |*P-2 . .dDD.. .N|
00000a10  3d a6 28 35 30 30 29 0d  03 2a 13 20 e7 20 4c 3d  |=.(500)..*. . L=|
00000a20  32 2a 50 20 8c 20 8d 54  54 45 0d 03 34 36 20 f1  |2*P . .TTE..46 .|
00000a30  67 24 22 20 20 4f 56 45  52 41 4c 4c 20 43 41 53  |g$"  OVERALL CAS|
00000a40  48 20 50 4f 53 49 54 49  4f 4e 20 41 46 54 45 52  |H POSITION AFTER|
00000a50  20 52 41 43 45 20 22 3b  72 61 63 65 3b 22 3a 22  | RACE ";race;":"|
00000a60  0d 03 3e 4d e3 20 58 3d  31 20 b8 20 50 3a 20 e7  |..>M. X=1 . P: .|
00000a70  20 4c 28 58 29 3c 3e 32  20 8c 20 4d 24 3d c3 28  | L(X)<>2 . M$=.(|
00000a80  50 28 58 2c 31 29 29 3a  57 24 3d 65 24 2b 50 24  |P(X,1)):W$=e$+P$|
00000a90  28 58 29 2b 79 24 2b 22  60 22 2b 4d 24 3a f1 8a  |(X)+y$+"`"+M$:..|
00000aa0  31 38 2d a9 28 57 24 29  2f 32 29 57 24 0d 03 48  |18-.(W$)/2)W$..H|
00000ab0  05 ed 0d 03 52 0d f1 3a  2a 46 58 32 31 2c 30 0d  |....R..:*FX21,0.|
00000ac0  03 5c 33 e3 58 25 3d 31  b8 32 3a f1 66 24 63 24  |.\3.X%=1.2:.f$c$|
00000ad0  22 20 20 57 6f 75 6c 64  20 79 6f 75 20 6c 69 6b  |"  Would you lik|
00000ae0  65 20 61 6e 6f 74 68 65  72 20 72 61 63 65 3f 22  |e another race?"|
00000af0  3a ed 0d 03 66 0d 51 25  3d a4 79 65 73 6e 6f 0d  |:...f.Q%=.yesno.|
00000b00  03 70 1e e7 20 51 25 20  8c 20 db 3a 72 61 63 65  |.p.. Q% . .:race|
00000b10  3d 72 61 63 65 2b 31 3a  e5 8d 74 4e 43 0d 03 7a  |=race+1:..tNC..z|
00000b20  0c 20 2a 46 58 31 32 2c  30 0d 03 84 34 20 db 3a  |. *FX12,0...4 .:|
00000b30  e3 58 25 3d 31 31 b8 31  32 3a f1 8a 31 30 2c 58  |.X%=11.12:..10,X|
00000b40  25 29 66 24 22 50 4c 41  59 20 41 47 41 49 4e 20  |%)f$"PLAY AGAIN |
00000b50  53 4f 4f 4e 22 3a ed 3a  ef 33 30 3a e0 0d 03 8e  |SOON":.:.30:....|
00000b60  11 f4 20 61 64 6a 75 73  74 20 6f 64 64 73 0d 03  |.. adjust odds..|
00000b70  98 12 52 25 3d 30 3a e3  20 58 3d 31 20 b8 20 36  |..R%=0:. X=1 . 6|
00000b80  0d 03 a2 3b e7 20 58 3c  3e 51 20 8c 20 48 28 58  |...;. X<>Q . H(X|
00000b90  2c 32 29 3d 48 28 58 2c  32 29 2b 31 3a 46 25 28  |,2)=H(X,2)+1:F%(|
00000ba0  58 29 3d 31 3a 8b 20 48  28 58 2c 32 29 3d a8 28  |X)=1:. H(X,2)=.(|
00000bb0  48 28 58 2c 32 29 2f 32  29 2b 31 0d 03 ac 05 ed  |H(X,2)/2)+1.....|
00000bc0  0d 03 b6 0a e5 20 8d 54  6c 41 0d 03 c0 11 dd f2  |..... .TlA......|
00000bd0  68 6f 72 73 28 50 24 2c  45 24 29 0d 03 ca 0e e3  |hors(P$,E$).....|
00000be0  20 58 25 3d 31 20 b8 20  36 0d 03 d4 13 e7 46 25  | X%=1 . 6.....F%|
00000bf0  28 58 25 29 3d 30 20 e5  8d 64 7c 43 0d 03 de 34  |(X%)=0 ..d|C...4|
00000c00  ec 48 28 58 25 2c 31 29  2c 38 32 38 2d 36 34 2a  |.H(X%,1),828-64*|
00000c10  58 25 3a e6 30 2c 30 3a  f1 45 24 3a e6 30 2c 33  |X%:.0,0:.E$:.0,3|
00000c20  3a 48 28 58 25 2c 31 29  3d 48 28 58 25 2c 30 29  |:H(X%,1)=H(X%,0)|
00000c30  0d 03 e8 16 ec 48 28 58  25 2c 31 29 2c 38 32 38  |.....H(X%,1),828|
00000c40  2d 36 34 2a 58 25 0d 03  f2 08 f1 20 50 24 0d 03  |-64*X%..... P$..|
00000c50  fc 15 ed 3a 48 25 3d 48  25 82 33 3a 4a 25 3d 4a  |...:H%=H%.3:J%=J|
00000c60  25 2b 31 0d 04 06 1a e7  4a 25 3d 35 ef 34 3a f1  |%+1.....J%=5.4:.|
00000c70  8a 30 2c 36 29 89 28 31  32 29 3a ef 35 0d 04 10  |.0,6).(12):.5...|
00000c80  05 e1 0d 04 1a 0f dd f2  6c 69 73 74 5f 6f 64 64  |........list_odd|
00000c90  73 0d 04 24 2a f1 8a 34  2c 31 38 29 65 24 22 48  |s..$*..4,18)e$"H|
00000ca0  4f 52 53 45 53 20 52 55  4e 4e 49 4e 47 20 49 4e  |ORSES RUNNING IN|
00000cb0  20 54 48 49 53 20 52 41  43 45 22 0d 04 2e 0d e3  | THIS RACE".....|
00000cc0  20 51 3d 31 20 b8 20 36  0d 04 38 20 f1 89 28 35  | Q=1 . 6..8 ..(5|
00000cd0  29 3b 67 24 3b 51 3b 22  3a 22 64 24 3b a4 70 69  |);g$;Q;":"d$;.pi|
00000ce0  63 6b 68 6f 72 73 65 3b  0d 04 42 2f f1 20 22 20  |ckhorse;..B/. " |
00000cf0  20 22 3b 63 24 3b 48 28  51 2c 32 29 3b 3a e7 51  | ";c$;H(Q,2);:.Q|
00000d00  3c 36 20 f1 22 20 54 4f  20 31 22 20 8b 20 f1 22  |<6 ." TO 1" . ."|
00000d10  20 54 4f 20 31 22 3b 0d  04 4c 05 ed 0d 04 56 05  | TO 1";..L....V.|
00000d20  e1 0d 04 60 0f dd a4 70  69 63 6b 68 6f 72 73 65  |...`...pickhorse|
00000d30  0d 04 6a 17 e7 51 3d 31  20 3d 22 4c 49 56 45 4c  |..j..Q=1 ="LIVEL|
00000d40  59 20 4c 41 44 59 22 0d  04 74 1a e7 51 3d 32 20  |Y LADY"..t..Q=2 |
00000d50  3d 22 50 45 4e 4e 59 20  46 41 52 54 48 49 4e 47  |="PENNY FARTHING|
00000d60  22 0d 04 7e 14 e7 51 3d  33 20 3d 22 57 41 4e 44  |"..~..Q=3 ="WAND|
00000d70  45 52 45 52 22 0d 04 88  15 e7 51 3d 34 20 3d 22  |ERER".....Q=4 ="|
00000d80  53 55 4e 4e 59 20 4a 49  4d 22 0d 04 92 17 e7 51  |SUNNY JIM".....Q|
00000d90  3d 35 20 3d 22 44 41 49  4c 59 20 44 4f 5a 45 4e  |=5 ="DAILY DOZEN|
00000da0  22 0d 04 9c 16 e7 51 3d  36 20 3d 22 52 45 44 20  |".....Q=6 ="RED |
00000db0  44 52 41 47 4f 4e 22 0d  04 a6 0e dd f2 62 61 6e  |DRAGON"......ban|
00000dc0  6b 72 75 70 74 0d 04 b0  33 20 f1 67 24 3b 50 24  |krupt...3 .g$;P$|
00000dd0  28 58 29 3b 22 20 6c 6f  73 65 73 20 73 68 69 72  |(X);" loses shir|
00000de0  74 20 61 6e 64 20 72 65  74 69 72 65 73 2e 22 3a  |t and retires.":|
00000df0  4c 28 58 29 3d 32 3a e1  0d 04 ba 17 20 f4 20 65  |L(X)=2:..... . e|
00000e00  73 74 61 62 6c 69 73 68  20 77 69 6e 6e 65 72 0d  |stablish winner.|
00000e10  04 c4 0e 20 e3 20 58 3d  31 20 b8 20 50 0d 04 ce  |... . X=1 . P...|
00000e20  14 20 e7 20 4c 28 58 29  3d 30 20 8c 20 8d 64 62  |. . L(X)=0 . .db|
00000e30  44 0d 04 d8 06 20 ed 0d  04 e2 2b 20 f1 65 24 3b  |D.... ....+ .e$;|
00000e40  50 24 28 58 29 3b 67 24  22 57 49 4e 53 2c 20 57  |P$(X);g$"WINS, W|
00000e50  49 54 48 22 bd 31 33 36  22 60 22 3b 50 28 58 2c  |ITH".136"`";P(X,|
00000e60  31 29 0d 04 ec 0b 2a 46  58 32 31 2c 30 0d 04 f6  |1)....*FX21,0...|
00000e70  41 20 f1 27 27 3a e3 58  3d 31 b8 32 3a f1 66 24  |A .'':.X=1.2:.f$|
00000e80  79 24 22 20 20 57 6f 75  6c 64 20 79 6f 75 20 6c  |y$"  Would you l|
00000e90  69 6b 65 20 61 6e 6f 74  68 65 72 20 67 61 6d 65  |ike another game|
00000ea0  3f 22 3a ed 3a 51 25 3d  a4 79 65 73 6e 6f 0d 05  |?":.:Q%=.yesno..|
00000eb0  00 0f 20 e7 ac 51 25 8c  20 8d 44 7a 43 0d 05 0a  |.. ..Q%. .DzC...|
00000ec0  27 20 e3 20 58 3d 31 20  b8 20 50 3a 20 4c 28 58  |' . X=1 . P: L(X|
00000ed0  29 3d 30 3a ed 3a 72 61  63 65 3d 31 3a db 3a e5  |)=0:.:race=1:.:.|
00000ee0  8d 64 7a 40 0d 05 14 2b  20 f1 67 24 22 54 48 45  |.dz@...+ .g$"THE|
00000ef0  20 42 4f 4f 4b 49 45 53  20 57 4f 4e 2e 20 41 4c  | BOOKIES WON. AL|
00000f00  4c 20 47 4f 20 48 4f 4d  45 20 4e 4f 57 2e 22 0d  |L GO HOME NOW.".|
00000f10  05 1e 13 20 ef 32 33 2c  31 2c 31 3b 30 3b 30 3b  |... .23,1,1;0;0;|
00000f20  30 3b 0d 05 28 0c 20 2a  46 58 31 32 2c 30 0d 05  |0;..(. *FX12,0..|
00000f30  32 05 e0 0d 05 3c 0d dd  f2 66 61 6e 66 61 72 65  |2....<...fanfare|
00000f40  0d 05 46 49 d4 20 31 2c  2d 31 30 2c 38 31 2c 33  |..FI. 1,-10,81,3|
00000f50  3a 20 d4 20 31 2c 2d 31  30 2c 31 30 31 2c 33 3a  |: . 1,-10,101,3:|
00000f60  20 d4 20 31 2c 2d 31 30  2c 31 31 37 2c 33 3a 20  | . 1,-10,117,3: |
00000f70  d4 20 31 2c 2d 31 30 2c  31 32 39 2c 32 3a d4 20  |. 1,-10,129,2:. |
00000f80  31 2c 30 2c 31 32 39 2c  31 0d 05 50 45 d4 20 31  |1,0,129,1..PE. 1|
00000f90  2c 2d 31 30 2c 31 32 39  2c 31 3a d4 20 31 2c 30  |,-10,129,1:. 1,0|
00000fa0  2c 31 32 39 2c 31 3a d4  20 31 2c 2d 31 30 2c 31  |,129,1:. 1,-10,1|
00000fb0  32 39 2c 31 3a d4 20 31  2c 30 2c 31 32 39 2c 31  |29,1:. 1,0,129,1|
00000fc0  3a d4 20 31 2c 2d 31 30  2c 31 32 39 2c 33 0d 05  |:. 1,-10,129,3..|
00000fd0  5a 62 d4 20 31 2c 2d 31  30 2c 31 31 37 2c 32 3a  |Zb. 1,-10,117,2:|
00000fe0  20 d4 20 31 2c 30 2c 31  31 37 2c 31 3a d4 20 31  | . 1,0,117,1:. 1|
00000ff0  2c 2d 31 30 2c 31 31 37  2c 31 3a 20 d4 20 31 2c  |,-10,117,1: . 1,|
00001000  30 2c 31 31 37 2c 31 3a  d4 20 31 2c 2d 31 30 2c  |0,117,1:. 1,-10,|
00001010  31 31 37 2c 31 3a 20 d4  20 31 2c 30 2c 31 31 37  |117,1: . 1,0,117|
00001020  2c 31 3a d4 20 31 2c 2d  31 30 2c 31 31 37 2c 33  |,1:. 1,-10,117,3|
00001030  0d 05 64 3b d4 20 31 2c  2d 31 30 2c 31 30 31 2c  |..d;. 1,-10,101,|
00001040  33 3a 20 d4 20 31 2c 2d  31 30 2c 31 31 37 2c 33  |3: . 1,-10,117,3|
00001050  3a d4 20 31 2c 2d 31 30  2c 31 30 31 2c 33 3a d4  |:. 1,-10,101,3:.|
00001060  20 31 2c 2d 31 30 2c 38  31 2c 39 0d 05 6e 05 e1  | 1,-10,81,9..n..|
00001070  0d 05 78 0d dd f2 54 41  4e 54 49 56 59 0d 05 82  |..x...TANTIVY...|
00001080  80 20 d4 20 31 2c 2d 31  30 2c 38 31 2c 33 3a d4  |. . 1,-10,81,3:.|
00001090  20 31 2c 2d 31 30 2c 31  30 31 2c 33 3a d4 20 31  | 1,-10,101,3:. 1|
000010a0  2c 2d 31 30 2c 31 31 37  2c 33 3a d4 20 31 2c 2d  |,-10,117,3:. 1,-|
000010b0  31 30 2c 38 31 2c 33 3a  d4 20 31 2c 2d 31 30 2c  |10,81,3:. 1,-10,|
000010c0  31 30 31 2c 33 3a 20 d4  20 31 2c 2d 31 30 2c 31  |101,3: . 1,-10,1|
000010d0  31 37 2c 33 3a d4 20 31  2c 2d 31 30 2c 38 31 2c  |17,3:. 1,-10,81,|
000010e0  33 3a d4 20 31 2c 2d 31  30 2c 31 30 31 2c 33 3a  |3:. 1,-10,101,3:|
000010f0  d4 20 31 2c 2d 31 30 2c  31 31 37 2c 39 0d 05 8c  |. 1,-10,117,9...|
00001100  05 e1 0d 05 96 0c dd f2  77 68 69 6e 6e 79 0d 05  |........whinny..|
00001110  a0 28 e2 33 2c 31 2c 31  2c 31 2c 31 2c 31 30 2c  |.(.3,1,1,1,1,10,|
00001120  31 30 2c 31 30 2c 34 30  2c 30 2c 30 2c 30 2c 31  |10,10,40,0,0,0,1|
00001130  32 36 2c 31 32 36 0d 05  aa 24 d4 31 2c 33 2c 31  |26,126...$.1,3,1|
00001140  31 30 2c 36 3a d4 32 2c  33 2c 31 30 37 2c 36 3a  |10,6:.2,3,107,6:|
00001150  d4 33 2c 33 2c 31 30 36  2c 36 0d 05 b4 2b 20 e2  |.3,3,106,6...+ .|
00001160  34 2c 33 2c 2d 33 2c 2d  33 2c 32 2c 32 2c 32 2c  |4,3,-3,-3,2,2,2,|
00001170  31 2c 31 32 37 2c 30 2c  30 2c 2d 35 30 2c 31 32  |1,127,0,0,-50,12|
00001180  36 2c 31 32 36 0d 05 be  12 e3 50 25 3d 31 34 30  |6,126.....P%=140|
00001190  b8 31 31 30 88 2d 34 0d  05 c8 0d d4 31 2c 34 2c  |.110.-4.....1,4,|
000011a0  50 25 2c 33 0d 05 d2 0f  d4 32 2c 34 2c 50 25 2d  |P%,3.....2,4,P%-|
000011b0  33 2c 33 0d 05 dc 0f d4  33 2c 34 2c 50 25 2d 34  |3,3.....3,4,P%-4|
000011c0  2c 33 0d 05 e6 05 ed 0d  05 f0 05 e1 0d 05 fa 0b  |,3..............|
000011d0  dd f2 65 72 72 6f 72 0d  06 04 06 eb 37 0d 06 0e  |..error.....7...|
000011e0  0b 2a 46 58 31 32 2c 30  0d 06 18 14 f6 3a f1 22  |.*FX12,0.....:."|
000011f0  20 61 74 20 6c 69 6e 65  20 22 3b 9e 0d 06 22 05  | at line ";...".|
00001200  e1 0d 06 2c 0c dd f2 74  69 63 6b 65 74 0d 06 36  |...,...ticket..6|
00001210  12 e7 20 4c 28 58 29 3d  32 20 8c 8d 44 62 47 0d  |.. L(X)=2 ..DbG.|
00001220  06 40 0d f1 8a 38 2c 30  29 22 20 22 0d 06 4a 32  |.@...8,0)" "..J2|
00001230  e3 4e 3d 31 b8 32 3a f1  8a 31 31 29 68 24 bd 31  |.N=1.2:..11)h$.1|
00001240  33 35 bd 31 33 32 66 24  22 52 41 43 45 20 22 3b  |35.132f$"RACE ";|
00001250  72 61 63 65 3b 89 28 34  29 3b 69 24 3a ed 0d 06  |race;.(4);i$:...|
00001260  54 23 48 24 3d 79 24 2b  50 24 28 58 29 2b 22 27  |T#H$=y$+P$(X)+"'|
00001270  53 20 42 45 54 54 49 4e  47 20 54 49 43 4b 45 54  |S BETTING TICKET|
00001280  22 0d 06 5e 21 f1 8a 30  2c 34 29 89 28 33 39 29  |"..^!..0,4).(39)|
00001290  3a f1 8a 31 38 2d a9 28  48 24 29 2f 32 2c 34 29  |:..18-.(H$)/2,4)|
000012a0  48 24 0d 06 68 15 f1 8a  32 2c 39 29 79 24 68 24  |H$..h...2,9)y$h$|
000012b0  89 28 33 31 29 69 24 0d  06 72 1d e3 58 25 3d 31  |.(31)i$..r..X%=1|
000012c0  b8 37 3a f1 8a 32 29 79  24 68 24 89 28 33 31 29  |.7:..2)y$h$.(31)|
000012d0  69 24 3a ed 0d 06 7c 4e  f1 8a 34 2c 31 30 29 63  |i$:...|N..4,10)c|
000012e0  24 68 24 79 24 22 48 4f  52 53 45 20 4e 4f 2e 20  |$h$y$"HORSE NO. |
000012f0  22 68 24 63 24 68 24 79  24 22 41 4d 4f 55 4e 54  |"h$c$h$y$"AMOUNT|
00001300  20 42 45 54 20 20 22 68  24 8a 32 30 2c 31 35 29  | BET  "h$.20,15)|
00001310  63 24 68 24 79 24 22 54  4f 20 57 49 4e 20 20 22  |c$h$y$"TO WIN  "|
00001320  68 24 0d 06 86 2d f1 8a  38 2c 31 32 29 65 24 66  |h$...-..8,12)e$f|
00001330  24 89 28 31 33 29 67 24  22 60 22 8a 38 2c 31 33  |$.(13)g$"`".8,13|
00001340  29 65 24 66 24 89 28 31  33 29 67 24 22 60 22 0d  |)e$f$.(13)g$"`".|
00001350  06 90 36 f1 8a 31 2c 36  29 65 24 22 57 68 69 63  |..6..1,6)e$"Whic|
00001360  68 20 68 6f 72 73 65 20  64 6f 20 79 6f 75 20 77  |h horse do you w|
00001370  69 73 68 20 74 6f 20 62  65 74 20 6f 6e 3f 22 3b  |ish to bet on?";|
00001380  89 28 34 35 29 0d 06 9a  0f f1 8a 31 30 2c 31 33  |.(45)......10,13|
00001390  29 22 22 3b 0d 06 a4 42  f5 3a 41 24 3d be 3a fd  |)"";...B.:A$=.:.|
000013a0  bb 28 41 24 29 3e 30 20  80 20 bb 28 41 24 29 3c  |.(A$)>0 . .(A$)<|
000013b0  37 3a 50 28 58 2c 33 29  3d bb 28 41 24 29 3a 4e  |7:P(X,3)=.(A$):N|
000013c0  42 28 50 28 58 2c 33 29  29 3d 4e 42 28 50 28 58  |B(P(X,3))=NB(P(X|
000013d0  2c 33 29 29 2b 31 0d 06  ae 1d e7 4e 42 28 50 28  |,3))+1.....NB(P(|
000013e0  58 2c 33 29 29 3e 34 4e  42 28 50 28 58 2c 33 29  |X,3))>4NB(P(X,3)|
000013f0  29 3d 34 0d 06 b8 3c f1  8a 30 2c 31 38 2b 50 28  |)=4...<..0,18+P(|
00001400  58 2c 33 29 29 65 24 3b  3a e3 54 3d 31 b8 4e 42  |X,3))e$;:.T=1.NB|
00001410  28 50 28 58 2c 33 29 29  3a f1 8a 35 2d 54 2c 31  |(P(X,3)):..5-T,1|
00001420  38 2b 50 28 58 2c 33 29  29 22 2a 22 3b 3a ed 0d  |8+P(X,3))"*";:..|
00001430  06 c2 39 f1 8a 30 2c 36  29 67 24 22 20 20 20 20  |..9..0,6)g$"    |
00001440  20 20 20 20 20 20 20 59  6f 75 20 68 61 76 65 22  |       You have"|
00001450  bd 31 33 36 22 60 22 3b  50 28 58 2c 31 29 3b 22  |.136"`";P(X,1);"|
00001460  2e 22 3b 89 28 31 31 29  0d 06 cc 2a f1 8a 34 2c  |.";.(11)...*..4,|
00001470  37 29 67 24 22 48 6f 77  20 6d 75 63 68 20 64 6f  |7)g$"How much do|
00001480  20 79 6f 75 20 77 69 73  68 20 74 6f 20 62 65 74  | you wish to bet|
00001490  3f 22 0d 06 d6 2c f1 8a  31 30 2c 31 32 29 3b 50  |?"...,..10,12);P|
000014a0  28 58 2c 33 29 8a 31 30  2c 31 33 29 3b 50 28 58  |(X,3).10,13);P(X|
000014b0  2c 33 29 8a 32 34 2c 31  33 29 22 60 22 3b 0d 06  |,3).24,13)"`";..|
000014c0  e0 3a 42 24 3d 22 22 3a  f5 3a f5 3a 41 24 3d be  |.:B$="":.:.:A$=.|
000014d0  3a e7 97 28 41 24 29 3d  31 32 37 80 42 24 3e 22  |:..(A$)=127.B$>"|
000014e0  22 f2 44 45 4c 45 54 45  3a 42 24 3d c0 42 24 2c  |".DELETE:B$=.B$,|
000014f0  a9 28 42 24 29 2d 31 29  0d 06 ea 4d fd 20 97 28  |.(B$)-1)...M. .(|
00001500  41 24 29 3d 31 33 20 84  20 28 97 28 41 24 29 3e  |A$)=13 . (.(A$)>|
00001510  34 37 20 80 20 97 28 41  24 29 3c 35 38 29 3a f1  |47 . .(A$)<58):.|
00001520  41 24 3b 3a ef 38 2c 31  31 3a f1 41 24 3b 3a ef  |A$;:.8,11:.A$;:.|
00001530  31 30 3a 42 24 3d 42 24  2b 41 24 3a fd 97 28 41  |10:B$=B$+A$:..(A|
00001540  24 29 3d 31 33 0d 06 f4  10 50 28 58 2c 32 29 3d  |$)=13....P(X,2)=|
00001550  bb 28 42 24 29 0d 06 fe  54 e7 50 28 58 2c 32 29  |.(B$)...T.P(X,2)|
00001560  3d 30 20 f1 8a 33 2c 36  29 65 24 22 59 6f 75 27  |=0 ..3,6)e$"You'|
00001570  6c 6c 20 6e 65 76 65 72  20 67 65 74 20 72 69 63  |ll never get ric|
00001580  68 20 74 68 61 74 20 77  61 79 21 22 3b 89 28 34  |h that way!";.(4|
00001590  35 29 3a 4e 3d a6 28 31  35 30 29 3a f2 52 55 42  |5):N=.(150):.RUB|
000015a0  4f 55 54 3a e5 8d 64 42  46 0d 07 08 61 e7 50 28  |OUT:..dBF...a.P(|
000015b0  58 2c 32 29 3e 50 28 58  2c 31 29 20 8c f1 8a 36  |X,2)>P(X,1) ...6|
000015c0  2c 36 29 67 24 22 42 75  74 20 79 6f 75 20 68 61  |,6)g$"But you ha|
000015d0  76 65 22 65 24 22 6f 6e  6c 79 22 bd 31 33 36 22  |ve"e$"only".136"|
000015e0  60 22 3b 50 28 58 2c 31  29 3b 22 21 22 3b 89 28  |`";P(X,1);"!";.(|
000015f0  35 30 29 3a 4e 3d a6 28  31 30 30 29 3a f2 52 55  |50):N=.(100):.RU|
00001600  42 4f 55 54 3a e5 8d 64  4c 46 0d 07 12 58 e7 50  |BOUT:..dLF...X.P|
00001610  28 58 2c 32 29 3c 50 28  58 2c 31 29 20 f1 8a 30  |(X,2)<P(X,1) ..0|
00001620  2c 36 29 89 28 37 39 29  3a 8b 4c 28 58 29 3d 31  |,6).(79):.L(X)=1|
00001630  3a f1 8a 36 2c 36 29 64  24 68 24 bd 31 33 36 bd  |:..6,6)d$h$.136.|
00001640  31 33 32 22 54 68 61 74  27 73 20 79 6f 75 72 20  |132"That's your |
00001650  73 68 69 72 74 21 20 20  20 22 69 24 3b 89 28 35  |shirt!   "i$;.(5|
00001660  32 29 0d 07 1c 3e f1 8a  39 2c 38 29 65 24 22 49  |2)...>..9,8)e$"I|
00001670  73 20 74 68 69 73 20 61  6c 6c 20 72 69 67 68 74  |s this all right|
00001680  3f 22 3b 3a f5 41 3d a5  80 26 44 46 3a fd 41 3d  |?";:.A=..&DF:.A=|
00001690  38 39 20 84 20 41 3d 37  38 20 84 20 41 3d 31 33  |89 . A=78 . A=13|
000016a0  0d 07 26 0f f1 8a 39 2c  38 29 89 28 31 39 29 0d  |..&...9,8).(19).|
000016b0  07 30 57 e7 41 3d 37 38  20 4c 28 58 29 3d 30 3a  |.0W.A=78 L(X)=0:|
000016c0  4e 42 28 50 28 58 2c 33  29 29 3d 4e 42 28 50 28  |NB(P(X,3))=NB(P(|
000016d0  58 2c 33 29 29 2d 31 3a  e3 54 3d 31 b8 28 34 2d  |X,3))-1:.T=1.(4-|
000016e0  4e 42 28 50 28 58 2c 33  29 29 29 3a f1 8a 54 2c  |NB(P(X,3))):..T,|
000016f0  31 38 2b 50 28 58 2c 33  29 29 22 20 22 3b 3a ed  |18+P(X,3))" ";:.|
00001700  3a e5 8d 44 54 46 0d 07  3a 05 e1 0d 07 44 0c dd  |:..DTF..:....D..|
00001710  f2 52 55 42 4f 55 54 0d  07 4e 10 f1 8a 32 35 2c  |.RUBOUT..N...25,|
00001720  31 33 29 22 20 22 3b 0d  07 58 29 e3 20 4e 3d 31  |13)" ";..X). N=1|
00001730  20 b8 20 a9 28 42 24 29  3a ef 38 2c 31 31 3a f1  | . .(B$):.8,11:.|
00001740  22 20 22 3b 3a ef 31 30  3a f1 22 20 22 3b 3a ed  |" ";:.10:." ";:.|
00001750  0d 07 62 05 e1 0d 07 6c  0c dd f2 44 45 4c 45 54  |..b....l...DELET|
00001760  45 0d 07 76 14 ef 31 31  2c 31 32 37 2c 31 30 2c  |E..v..11,127,10,|
00001770  39 2c 31 32 37 0d 07 80  05 e1 0d 07 8a 27 dd a4  |9,127........'..|
00001780  79 65 73 6e 6f 3a f5 41  3d a5 80 26 44 46 3a fd  |yesno:.A=..&DF:.|
00001790  41 3d 38 39 84 41 3d 37  38 3a 3d 28 41 3d 38 39  |A=89.A=78:=(A=89|
000017a0  29 0d ff                                          |)..|
000017a3

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .