Home » Personal collection » Acorn DFS disks » dfs_box03_disk06_games_4_backup.scp » DERBY

DERBY

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 » Personal collection » Acorn DFS disks » dfs_box03_disk06_games_4_backup.scp
Filename: DERBY
Read OK:
File size: 25C0 bytes
Load address: FF1900
Exec address: FF801F
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10*FX144,127
   20*FX11,0
   30F=255:DIMPN$(6),HL$(20),BL(20),HO$(5),BS(5),OD%(5),PC%(6),PBC%(6),PBN(6),H$(2),X(5),Y(5),F%(3),F$(6),W(5),PB$(6),PW%(6)
   40MODE5:PROCTITLE
   50MODE6:VDU23;8202;0;0;0;:VDU19,1,2,0,0,0:PRINTTAB(2,12)"Do you want instructions ? (Y or N)":PROCBEEP:A$=GET$:IFA$="Y"THENPROCINST
   60PROCPLAYERS
   70MODE4:PROCODDS:PROCBOOTH:PROCJOE1:PROCJOE2:PROCBETS
   80MODE5:PROCDERBY
   90MODE4:PROCSTATUS
  100GOTO70
 5000DEFPROCTITLE
 5010PROCCUP
 5015VDU23;8202;0;0;0;
 5020COLOUR2:FORY=3TO23STEP4:FORX=0TO16STEP4:R=RND(255):PRINTTAB(X,Y)CU$;:SOUND1,-15,R,3:NEXTX,Y:*FX15,6
 5030COLOUR3:COLOUR129:FORJ=14TO16:PRINTTAB(4,J)SPC(11):NEXTJ:PRINTTAB(4,15)"MICRO DERBY":PRINTTAB(1,30)"BUG-BYTE SOFTWARE"
 5040WT=200:PROCWAIT:ENDPROC
 5100DEFPROCCUP
 5110VDU23,224,0,0,0,0,0,1,3,0
 5120VDU23,225,0,0,24,60,F,F,F,0
 5130VDU23,226,0,0,0,0,0,128,192,0
 5140VDU23,227,3,63,103,199,143,143,143,207
 5150VDU23,228,F,F,F,F,F,F,F,F
 5160VDU23,229,192,252,230,227,241,241,241,243
 5170VDU23,230,111,63,7,3,3,1,0,0
 5180VDU23,231,246,252,224,192,192,128,0,0
 5190VDU23,232,0,0,0,0,0,0,1,3
 5200VDU23,233,126,60,60,24,24,24,F,F
 5210VDU23,234,0,0,0,0,0,0,128,192
 5220LI$=CHR$8+CHR$8+CHR$8+CHR$10:CU$=CHR$224+CHR$225+CHR$226+LI$+CHR$227+CHR$228+CHR$229+LI$+CHR$230+CHR$228+CHR$231+LI$+CHR$232+CHR$233+CHR$234
 5230ENDPROC
 5300DEFPROCWAIT
 5310LOCALA:A=TIME
 5320IFTIME-A<WT THEN5320
 5330ENDPROC
 5400DEFPROCINST:CLS
 5410VDU19,1,6,0,0,0
 5420PRINT"  This is a day at the  races for up to"'
 5430PRINT"six people.  Please type your name (max"'
 5440PRINT"6 letters) when asked,  and then I will"'
 5450PRINT"credit you  with `100 each,  for you to"'
 5460PRINT"'donate' to HONEST JOE the bookie."'
 5470PRINT"  HONEST JOE will offer you a list of 5"'
 5480PRINT"horses,  each one at odds calculated by"'
 5490PRINT"me.  You can choose any horse you like,"'
 5500PRINT"and can bet up to `100 if you have it."'
 5510PRINT"  When the race has  been run, you will"'
 5520PRINT"be shown  the game  status, and you can"'
 5530PRINT"then proceed to the next race."'
 5540PRINTTAB(9)"SPACE BAR TO CONTINUE";
 5550A=GET:IFA<>32THEN5550
 5560ENDPROC
 5600DEFPROCPLAYERS
 5605CLS:VDU19,1,2,0,0,0
 5610PRINTTAB(3,2)"PLEASE PRESS 'RETURN' WHEN YOU HAVE"
 5620PRINTTAB(10,3)"FINISHED EACH ENTRY"
 5630WT=100:PROCWAIT
 5640PRINTTAB(6,5)"How many players (max 6) ";:PROCBEEP:INPUT NP:IFNP>6ORNP<1THENPROCANS:PRINTTAB(3,5)SPC(35):GOTO5640
 5650PRINTTAB(1,7)"PLEASE ENTER YOUR NAMES (MAX 6 LETTERS)":WT=100:PROCWAIT
 5660FORJ=1TONP
 5670PRINTTAB(10,7+J*2)"Player ";J;" name ";:PROCBEEP:INPUTPN$(J):IF LEN(PN$(J))>6THENPROCANS: PRINTTAB(10,7+J*2)SPC(26):GOTO5670
 5675IFLEN(PN$(J))MOD2=1THEN PN$(J)=PN$(J)+" "
 5680PC%(J)=100:NEXTJ
 5690PRINTTAB(2,8+J*2)"YOU ARE EACH ALLOCATED `100 TO SPEND"
 5700PRINTTAB(11,9+J*2)"LET'S GO RACING !":WT=200:PROCWAIT
 5710ENDPROC
 5800DEFPROCODDS:VDU23;8202;0;0;0;19,0,4,0,0,0:RESTORE5950:FORJ=1TO20:READHL$(J),BL(J):NEXTJ
 5810J=1
 5820Z=0:K=RND(20):K$=HL$(K):FORN=1TO5:IFK$=HO$(N)THENZ=1
 5830NEXTN
 5840IFZ=1THEN5820
 5850HO$(J)=K$:BS(J)=BL(K):J=J+1:IFJ<6THEN5820
 5860REPEAT:Z=0
 5870FORJ=1TO4:A=BS(J):A$=HO$(J):B=BS(J+1):B$=HO$(J+1):IFA<B THEN BS(J)=B:HO$(J)=B$:BS(J+1)=A:HO$(J+1)=A$:Z=1
 5880NEXTJ:UNTILZ=0
 5890OD%(3)=4:FORJ=1TO2:OD%(J)=4-(BS(J)-BS(3))*20:NEXTJ:FORJ=4TO5:OD%(J)=4+(BS(3)-BS(J))*20:NEXTJ
 5892FORJ=1TO5:IFOD%(J)<1THENOD%(J)=1
 5893NEXTJ
 5895PRINTTAB(2,3)"No  Name      Odds"
 5900FORJ=1TO5
 5910PRINTTAB(2,J*2+4);J;".";" ";HO$(J);"  ";OD%(J);" to 1"
 5920NEXTJ
 5930ENDPROC
 5950DATA"SLOJOE  ",.75,"FRISKY  ",.75,"SWIFT   ",.75,"FIREBALL",.75
 5960DATA"INTREPID",.8,"CREEPER ",.8,"BLACKIE ",.8,"THATCHER",.8
 5970DATA"BIG'ED  ",.85,"SMARTY  ",.85,"CHAMP   ",.85,"SNAPPER ",.85
 5980DATA"BUSBY   ",.9,"TIMID   ",.9,"RAINBOW ",.9,"BULLET  ",.9
 5990DATA"TRIGGER ",.95,"PHANTOM ",.95,"SHARK   ",.95,"PRINCE  ",.95
 6000DEFPROCJOE1
 6005F=255
 6010VDU23,224,0,0,3,15,31,63,127,255
 6020VDU23,225,15,F,F,F,F,F,F,F
 6030VDU23,226,240,F,F,F,F,F,F,F
 6040VDU23,227,0,0,192,240,248,252,254,F
 6050VDU23,228,1,3,7,7,15,15,31,31
 6060VDU23,229,128,192,224,224,240,240,248,248
 6070VDU23,230,63,63,127,127,F,F,F,F
 6080VDU23,231,252,252,254,254,F,F,F,F
 6090VDU23,232,127,15,129,192,224,240,248,252
 6100VDU23,233,F,F,F,3,0,0,0,0
 6110VDU23,234,F,F,F,F,0,0,0,0
 6120VDU23,235,F,F,F,192,0,0,0,0
 6130VDU23,236,254,240,129,3,7,15,31,63
 6140VDU23,237,0,128,192,248,254,F,F,F
 6150VDU23,238,0,0,0,0,0,240,251,251
 6160VDU23,239,0,0,0,0,0,15,223,223
 6170VDU23,240,0,1,7,31,127,F,F,F
 6180VDU23,241,F,F,F,F,F,F,F,F
 6190BK$=CHR$8:RET$=BK$+BK$+BK$+BK$+BK$+BK$+CHR$10:F$=CHR$241:E$=CHR$32
 6200JTP$=E$+CHR$224+CHR$225+CHR$226+CHR$227+E$+RET$+CHR$228+F$+F$+F$+F$+CHR$229+RET$+CHR$230+F$+F$+F$+F$+CHR$231+RET$
 6210JTP$=JTP$+CHR$232+CHR$233+CHR$234+CHR$234+CHR$235+CHR$236+RET$+F$+CHR$237+CHR$238+CHR$239+CHR$240+F$
 6215PRINTTAB(28,9);JTP$:ENDPROC
 6217DEFPROCJOE2
 6218F=255
 6220VDU23,224,F,F,F,127,127,127,127,63
 6230VDU23,225,251,243,247,247,231,239,169,127
 6240VDU23,226,223,207,239,239,231,247,149,254
 6250VDU23,227,F,F,F,254,254,254,254,252
 6260VDU23,228,63,31,15,15,7,3,3,1
 6270VDU23,229,254,253,251,F,F,F,F,F
 6280VDU23,230,F,F,0,135,240,252,F,F
 6290VDU23,231,F,F,0,225,31,63,F,F
 6300VDU23,232,127,191,223,F,F,F,F,F
 6310VDU23,233,252,248,240,240,224,192,192,128
 6320VDU23,234,F,127,63,31,15,7,3,1
 6330VDU23,235,F,254,252,248,240,224,192,128
 6340VDU23,236,127,31,7,0,0,0,0,0
 6350VDU23,237,254,248,224,0,0,0,0,0
 6360JBT$=CHR$224+F$+CHR$225+CHR$226+F$+CHR$227+RET$+CHR$228+CHR$229+CHR$230+CHR$231+CHR$232+CHR$233+RET$
 6370JBT$=JBT$+E$+CHR$234+F$+F$+CHR$235+E$+RET$+E$+E$+CHR$236+CHR$237
 6380VDU23,238,4,10,9,9,9,9,9,5,23,239,5,5,5,3,3,3,3,0:RTEAR$=CHR$238+CHR$8+CHR$10+CHR$239
 6390VDU23,240,32,80,144,144,144,144,144,160,23,242,160,160,160,192,192,192,192,0:LTEAR$=CHR$240+CHR$8+CHR$10+CHR$242
 6400PRINTTAB(28,14);JBT$:PRINTTAB(27,12);RTEAR$:PRINTTAB(34,12);LTEAR$
 6410MOVE920,530:DRAW800,490:MOVE1070,530:DRAW1180,490:MOVE870,515:DRAW950,430:DRAW995,470
 6420MOVE1120,515:DRAW1040,430:DRAW995,470
 6430J=810:K=350:FORN=1TO19:MOVEJ,K
 6440K=K+4:IFPOINT(J,K)=0DRAWJ,K:GOTO6440
 6450J=J+20:K=350:NEXT
 6460MOVE995,470:MOVE970,450:PLOT85,1015,450:PLOT85,995,420
 6470MOVE955,354:PLOT85,1035,354
 6490ENDPROC
 6500DEFPROCBOOTH
 6505F=255
 6510VDU23,224,231,231,231,231,231,231,231,231,23,225,F,F,F,0,0,F,F,F
 6520PRINTTAB(24,2)STRING$(14,CHR$225):PRINTTAB(24,6);STRING$(14,CHR$225)
 6530FORJ=21TO22:PRINTTAB(22,J);STRING$(18,CHR$225):NEXTJ
 6540VT$="":FORJ=1TO19:VT$=VT$+CHR$224+CHR$10+CHR$8:NEXTJ:PRINTTAB(24,2);VT$:PRINTTAB(37,2)VT$
 6550PRINTTAB(26,4)"HONEST JOE":ENDPROC
 6600DEFPROCBETS
 6610VDU23,224,F,F,0,135,240,252,F,F,23,225,F,F,0,225,31,63,F,F:MON$=CHR$224+CHR$225
 6620VDU23,226,F,F,0,128,240,F,F,F,23,227,F,F,0,1,15,F,F,F:MOC$=CHR$226+CHR$227
 6630VDU23,228,127,191,192,240,F,F,F,F,23,229,254,253,3,15,F,F,F,F:MOS$=CHR$228+CHR$229
 6640VDU23,230,F,F,192,176,127,F,F,F,23,231,F,F,3,13,254,F,F,F:MOF$=CHR$230+CHR$231
 6650FORJ=1TONP
 6655IFPC%(J)<1 THEN PBN(J)=0:PBC%(J)=0:GOTO6731
 6660SP$=PN$(J)+" -you have `":X=3:Y=24:PROCTALK:PRINTTAB(X,Y);PC%(J)
 6670SP$="How much do you bet ":X=3:Y=26:PROCTALK:PROCBEEP:PRINTTAB(X,Y)"";:INPUTPBC%(J):IFPBC%(J)>100ORPBC%(J)<1ORPBC%(J)>PC%(J):PROCANS:PRINTTAB(3,26)SPC(36):GOTO6670
 6680IFPBC%(J)<10:M$=MOF$:PROCMOUTH
 6690IFPBC%(J)>50:M$=MOS$:PROCMOUTH
 6700SP$="Which horse number  ":X=3:Y=28:PROCTALK:PROCBEEP:PRINTTAB(X,Y)"";:INPUTPBN(J):IFPBN(J)<1ORPBN(J)>5:PROCANS:PRINTTAB(3,28)SPC(36):GOTO6700
 6710IFPBN(J)=1:M$=MOF$:PROCMOUTH
 6720IFPBN(J)=5:M$=MOS$:PROCMOUTH
 6730WT=100:PROCWAIT:FORK=24TO28STEP2:PRINTTAB(3,K)SPC(36):NEXTK
 6731NEXTJ
 6732COLOUR0:PRINTTAB(2,3);SPC(18);:FORJ=1TO5:PRINTTAB(2,J*2+4);SPC(19);:NEXTJ:K=4:COLOUR1:FORJ=1TONP:IFPC%(J)<1THEN6734
 6733PRINTTAB(4,K);PN$(J);:PRINTTAB(10,K);" on No.";PBN(J);:K=K+2
 6734NEXTJ
 6735PRINTTAB(5,26)"OK - ALL BETS PLACED":PRINTTAB(6,28)"OFF TO THE COURSE!":WT=500:PROCWAIT
 6740ENDPROC
 6800DEFPROCMOUTH:PRINTTAB(30,15)M$:WT=100:PROCWAIT:PRINTTAB(30,15)MON$:ENDPROC
 6810DEFPROCTALK:LS=LEN(SP$):M$=MOC$
 6812FORK=1TOLS-1STEP2:PRINTTAB(X,Y)MID$(SP$,K,2);:PRINTTAB(30,15)M$:X=X+2:IFM$=MON$ THEN M$=MOC$ ELSE M$=MON$
 6814WT=5:PROCWAIT:NEXTK:ENDPROC
 6820DEFPROCBEEP:SOUND1,-15,200,1:TM=TIME
 6830IFTIME<TM+15THEN6830
 6840SOUND1,-15,200,1:ENDPROC
 6850DEFPROCANS:SOUND1,-15,15,10:SOUND1,-15,1,15:WT=150:PROCWAIT:ENDPROC
 6900DEFPROCDERBY
 6905VDU23;8202;0;0;0;19,2,2,0,0,0:COLOUR130:CLS
 6910PROCCUP:COLOUR0:PRINTTAB(8,4);CU$;
 6920VDU23,224,3,3,31,47,79,8,16,32
 6930VDU23,225,192,156,252,224,224,32,16,8
 6940VDU23,226,3,3,31,47,79,8,4,2
 6950VDU23,227,192,144,252,252,228,32,64,128
 6960VDU23,228,3,3,31,47,79,8,8,8
 6970VDU23,229,192,144,252,252,228,32,32,32
 6980VDU23,230,24,24,24,24,24,24,24,24
 6990VDU23,231,0,0,0,0,0,0,255,255
 7000VDU23,232,24,24,24,24,24,24,255,255
 7010VDU23,233,0,0,60,126,126,126,60,0
 7020H$(0)=CHR$32+CHR$224+CHR$225:H$(1)=CHR$32+CHR$226+CHR$227:H$(2)=CHR$228+CHR$229
 7030F$=CHR$230+CHR$32:W$=F$+CHR$8+CHR$8+CHR$11+CHR$232+CHR$231:P$=CHR$233+CHR$32
 7040F%(1)=19:F%(2)=13:F%(3)=6:FL%=8:Z%=323:H=0:WN=0:FORJ=1TO6:F$(J)=F$:NEXTJ:X%=0:O=0
 7050PROCMICRO
 7060COLOUR3:FORJ=9TO17STEP8:PRINTTAB(0,J)STRING$(20,CHR$231):NEXTJ
 7070FORJ=1TO3:FORK=10TO18STEP8:PRINTTAB(F%(J),K)F$:NEXTK:NEXTJ
 7080FORJ=1TO5:X(J)=1:Y(J)=11+J:COLOUR3:PRINTTAB(0,Y(J));J;:COLOUR0:PRINTTAB(X(J),Y(J))H$(2):NEXTJ
 7090PRINTTAB(2,24)"FURLONGS TO GO ";:COLOUR3:PRINTTAB(17,24);FL%
 7100RESTORE7105:FORJ=1TO9:READ FR,DU:SOUND1,-15,FR,DU:NEXTJ:FORT=1TO2000:NEXTT:GOTO7107
 7105DATA120,3,141,3,155,3,169,6,155,6,141,3,155,3,141,3,120,3
 7107ENVELOPE1,2,7,0,0,8,0,0,127,0,0,0,126,0:ENVELOPE2,2,7,0,0,8,0,0,127,-1,0,-126,126,0:SS=64
 7110COLOUR130:FORJ=12TO16:PRINTTAB(0,J)SPC(1):NEXTJ
 7120RR=RND(-TIME)
 7130COLOUR3:FORJ=1TO3:PRINTTAB(F%(J),10);F$(J);:PRINTTAB(F%(J),18);F$(J*2);:NEXTJ
 7140IFX%=1:COLOUR1:PRINTTAB(F%(3),8);P$;
 7150FORJ=1TO3:F%(J)=F%(J)-1:IF F%(J)=-1 THEN FORK=10TO18STEP8:PRINTTAB(0,K);SPC(2);:F%(J)=19:NEXTK
 7160NEXTJ:Z%=Z%-1:IFZ%=15THEN F$(3)=W$:X%=1
 7170IFINT(Z%/40)=Z%/40 THEN PRINTTAB(17,24);FL%;:FL%=FL%-1:SOUND2,1,SS,7:SOUND2,2,SS,40:SS=SS+3
 7180F=RND(20):COLOUR0:FORJ=1TO5:IFO=1THEN7210
 7185IFJ=F THEN X(J)=X(J)+(.4*BS(J))
 7190PRINTTAB(X(J),Y(J));H$(H);:SOUND&11,-15,1,0
 7200IFPOS-2=F%(3)ANDX%=1THEN O=1
 7210NEXTJ:IFO=0THEN H=H EOR 1:GOTO7130
 7220PRINTTAB(2,24)SPC(17);:MX=X(1):FORJ=2TO5:IFX(J)>MX THEN MX=X(J)
 7230NEXTJ:FORJ=1TO5:W(J)=0::IFINT(X(J))=INT(MX)THEN W(J)=1:WN=WN+1:K=J
 7240NEXTJ:IFWN=1THEN J=K:GOTO7280
 7250COLOUR0:PRINTTAB(4,24)"PHOTO FINISH":WT=100:PROCWAIT:PRINTTAB(1,26)"JUDGES IN SESSION":WT=300:PROCWAIT:RN=RND(WN):J=0
 7260REPEAT:J=J+1:IFW(J)=1THEN RN=RN-1
 7270UNTIL RN=0
 7280COLOUR1:COLOUR131:PRINTTAB(5,22)"No.";J;" WINS":PRINTTAB(9,5);J;:FORT=100TO255STEP7:SOUND1,-15,T,1:NEXTT:WT=200:PROCWAIT
 7290COLOUR2:COLOUR130::PRINTTAB(4,24)SPC(13);:PRINTTAB(1,26)SPC(18);:COLOUR0:PRINTTAB(3,24)"WINNERS: ";:NB=0:FORK=1TONP:IFPBN(K)=J THEN PRINTTAB(11,NB+24);PN$(K);:NB=NB+1
 7295NEXTK:IF NB=0 THEN PRINT TAB(11,24)"NONE";
 7297WT=500:PROCWAIT:ENDPROC
 7300DEFPROCMICRO:VDU5:RESTORE7320
 7310FORTL=1TO10:READL$,LX,LY:MOVELX,LY:GCOL0,0:PRINTL$:MOVELX+10,LY+10:GCOL0,3:PRINTL$:NEXTTL:VDU4:ENDPROC
 7320DATAM,340,840,I,390,870,C,440,900,R,490,930,O,540,960,D,620,960,E,670,930,R,720,900,B,770,870,Y,820,840
 7400DEFPROCSTATUS
 7410VDU23;8202;0;0;0;19,0,1,0,0,0
 7420VDU23,224,192,192,192,192,192,192,192,192
 7430VDU23,225,3,3,3,3,3,3,3,3
 7440VDU23,226,0,0,0,0,0,0,255,255
 7450VDU23,227,255,255,0,0,0,0,0,0
 7460VL$="":VR$="":FORK=1TONP*2+3:VL$=VL$+CHR$224+CHR$8+CHR$10:VR$=VR$+CHR$225+CHR$8+CHR$10:NEXTK
 7470HT$=STRING$(40,CHR$226):HB$=STRING$(40,CHR$227)
 7480FORK=1TONP:IF PBN(K)=J THEN PB$(K)="WON  ":PW%(K)=PBC%(K)*OD%(J):PC%(K)=PC%(K)+PW%(K):GOTO7500
 7490PB$(K)="LOST ":PW%(K)=PBC%(K):PC%(K)=PC%(K)-PW%(K)
 7500NEXTK
 7510PRINTTAB(8,5)"*** FINANCIAL STATUS ***";:QQ=0
 7520PRINTTAB(0,8);HT$;:PRINTTAB(0,12+NP*2);HB$;:PRINTTAB(0,9);VL$;:PRINTTAB(39,9);VR$;
 7530FORK=1TONP:PRINTTAB(1,9+K*2);PN$(K);:IFPC%(K)<1THENPRINTTAB(9,9+K*2);"Sorry you're out";:GOTO7550
 7540PRINTTAB(9,9+K*2);"You ";PB$(K);"`";PW%(K);TAB(23,9+K*2);"- You have `";PC%(K);:QQ=1
 7550NEXTK
 7555IFQQ=0 PRINTTAB(5,14+2*K);"EVERYONE'S BROKE - GAME OVER";:GOTO7580
 7560REPEAT:PRINTTAB(5,14+2*K);"PRESS SPACE BAR TO BET AGAIN";:A=GET:UNTIL A=32
 7570ENDPROC
 7580REPEAT:PRINTTAB(4,16+2*K);"PRESS SPACE BAR FOR A NEW GAME";:A=GET:UNTILA=32:RUN

*FX144,127
*FX11,0
yF=255:�PN$(6),HL$(20),BL(20),HO$(5),BS(5),OD%(5),PC%(6),PBC%(6),PBN(6),H$(2),X(5),Y(5),F%(3),F$(6),W(5),PB$(6),PW%(6)
(
�5:�TITLE
2j�6:�23;8202;0;0;0;:�19,1,2,0,0,0:�2,12)"Do you want instructions ? (Y or N)":�BEEP:A$=�:�A$="Y"��INST
<�PLAYERS
F%�4:�ODDS:�BOOTH:�JOE1:�JOE2:�BETS
P
�5:�DERBY
Z�4:�STATUS
d	�DF@
���TITLE
��CUP
��23;8202;0;0;0;
�F�2:�Y=3�23�4:�X=0�16�4:R=�(255):�X,Y)CU$;:�1,-15,R,3:�X,Y:*FX15,6
�S�3:�129:�J=14�16:�4,J)�(11):�J:�4,15)"MICRO DERBY":�1,30)"BUG-BYTE SOFTWARE"
�WT=200:�WAIT:�
�	��CUP
��23,224,0,0,0,0,0,1,3,0
�23,225,0,0,24,60,F,F,F,0

�23,226,0,0,0,0,0,128,192,0
(�23,227,3,63,103,199,143,143,143,207
�23,228,F,F,F,F,F,F,F,F
(+�23,229,192,252,230,227,241,241,241,243
2�23,230,111,63,7,3,3,1,0,0
<'�23,231,246,252,224,192,192,128,0,0
F�23,232,0,0,0,0,0,0,1,3
P"�23,233,126,60,60,24,24,24,F,F
Z�23,234,0,0,0,0,0,0,128,192
d`LI$=�8+�8+�8+�10:CU$=�224+�225+�226+LI$+�227+�228+�229+LI$+�230+�228+�231+LI$+�232+�233+�234
n�
�
��WAIT
�
�A:A=�
��-A<WT ��dHT
��
��INST:�
"�19,1,6,0,0,0
,/�"  This is a day at the  races for up to"'
6/�"six people.  Please type your name (max"'
@/�"6 letters) when asked,  and then I will"'
J/�"credit you  with `100 each,  for you to"'
T*�"'donate' to HONEST JOE the bookie."'
^/�"  HONEST JOE will offer you a list of 5"'
h/�"horses,  each one at odds calculated by"'
r/�"me.  You can choose any horse you like,"'
|.�"and can bet up to `100 if you have it."'
�/�"  When the race has  been run, you will"'
�/�"be shown  the game  status, and you can"'
�&�"then proceed to the next race."'
� �9)"SPACE BAR TO CONTINUE";
�A=�:�A<>32��tnU
��
�
��PLAYERS
��:�19,1,2,0,0,0
�/�3,2)"PLEASE PRESS 'RETURN' WHEN YOU HAVE"
� �10,3)"FINISHED EACH ENTRY"
�WT=100:�WAIT
S�6,5)"How many players (max 6) ";:�BEEP:� NP:�NP>6�NP<1��ANS:�3,5)�(35):�THV
@�1,7)"PLEASE ENTER YOUR NAMES (MAX 6 LETTERS)":WT=100:�WAIT
�J=1�NP
&]�10,7+J*2)"Player ";J;" name ";:�BEEP:�PN$(J):� �(PN$(J))>6��ANS: �10,7+J*2)�(26):�TfV
+%�(PN$(J))�2=1� PN$(J)=PN$(J)+" "
0PC%(J)=100:�J
:4�2,8+J*2)"YOU ARE EACH ALLOCATED `100 TO SPEND"
D/�11,9+J*2)"LET'S GO RACING !":WT=200:�WAIT
N�
�E��ODDS:�23;8202;0;0;0;19,0,4,0,0,0:��T~W:�J=1�20:�HL$(J),BL(J):�J
�J=1
�/Z=0:K=�(20):K$=HL$(K):�N=1�5:�K$=HO$(N)�Z=1
��N
�
�Z=1��t|V
�)HO$(J)=K$:BS(J)=BL(K):J=J+1:�J<6��t|V
�	�:Z=0
�e�J=1�4:A=BS(J):A$=HO$(J):B=BS(J+1):B$=HO$(J+1):�A<B � BS(J)=B:HO$(J)=B$:BS(J+1)=A:HO$(J+1)=A$:Z=1
��J:�Z=0
TOD%(3)=4:�J=1�2:OD%(J)=4-(BS(J)-BS(3))*20:�J:�J=4�5:OD%(J)=4+(BS(3)-BS(J))*20:�J
�J=1�5:�OD%(J)<1�OD%(J)=1
�J
�2,3)"No  Name      Odds"

�J=1�5
3�2,J*2+4);J;".";" ";HO$(J);"  ";OD%(J);" to 1"
 �J
*�
>@�"SLOJOE  ",.75,"FRISKY  ",.75,"SWIFT   ",.75,"FIREBALL",.75
H<�"INTREPID",.8,"CREEPER ",.8,"BLACKIE ",.8,"THATCHER",.8
R@�"BIG'ED  ",.85,"SMARTY  ",.85,"CHAMP   ",.85,"SNAPPER ",.85
\<�"BUSBY   ",.9,"TIMID   ",.9,"RAINBOW ",.9,"BULLET  ",.9
f@�"TRIGGER ",.95,"PHANTOM ",.95,"SHARK   ",.95,"PRINCE  ",.95
p
��JOE1
u	F=255
z"�23,224,0,0,3,15,31,63,127,255
��23,225,15,F,F,F,F,F,F,F
��23,226,240,F,F,F,F,F,F,F
�%�23,227,0,0,192,240,248,252,254,F
��23,228,1,3,7,7,15,15,31,31
�+�23,229,128,192,224,224,240,240,248,248
�!�23,230,63,63,127,127,F,F,F,F
�#�23,231,252,252,254,254,F,F,F,F
�*�23,232,127,15,129,192,224,240,248,252
��23,233,F,F,F,3,0,0,0,0
��23,234,F,F,F,F,0,0,0,0
��23,235,F,F,F,192,0,0,0,0
�$�23,236,254,240,129,3,7,15,31,63
�#�23,237,0,128,192,248,254,F,F,F
!�23,238,0,0,0,0,0,240,251,251
 �23,239,0,0,0,0,0,15,223,223
�23,240,0,1,7,31,127,F,F,F
$�23,241,F,F,F,F,F,F,F,F
.:BK$=�8:RET$=BK$+BK$+BK$+BK$+BK$+BK$+�10:F$=�241:E$=�32
8]JTP$=E$+�224+�225+�226+�227+E$+RET$+�228+F$+F$+F$+F$+�229+RET$+�230+F$+F$+F$+F$+�231+RET$
BJJTP$=JTP$+�232+�233+�234+�234+�235+�236+RET$+F$+�237+�238+�239+�240+F$
G�28,9);JTP$:�
I
��JOE2
J	F=255
L$�23,224,F,F,F,127,127,127,127,63
V+�23,225,251,243,247,247,231,239,169,127
`+�23,226,223,207,239,239,231,247,149,254
j%�23,227,F,F,F,254,254,254,254,252
t�23,228,63,31,15,15,7,3,3,1
~!�23,229,254,253,251,F,F,F,F,F
�!�23,230,F,F,0,135,240,252,F,F
��23,231,F,F,0,225,31,63,F,F
�!�23,232,127,191,223,F,F,F,F,F
�+�23,233,252,248,240,240,224,192,192,128
� �23,234,F,127,63,31,15,7,3,1
�)�23,235,F,254,252,248,240,224,192,128
��23,236,127,31,7,0,0,0,0,0
�!�23,237,254,248,224,0,0,0,0,0
�JJBT$=�224+F$+�225+�226+F$+�227+RET$+�228+�229+�230+�231+�232+�233+RET$
�8JBT$=JBT$+E$+�234+F$+F$+�235+E$+RET$+E$+E$+�236+�237
�K�23,238,4,10,9,9,9,9,9,5,23,239,5,5,5,3,3,3,3,0:RTEAR$=�238+�8+�10+�239
�f�23,240,32,80,144,144,144,144,144,160,23,242,160,160,160,192,192,192,192,0:LTEAR$=�240+�8+�10+�242
1�28,14);JBT$:�27,12);RTEAR$:�34,12);LTEAR$

D�920,530:�800,490:�1070,530:�1180,490:�870,515:�950,430:�995,470
 �1120,515:�1040,430:�995,470
J=810:K=350:�N=1�19:�J,K
(K=K+4:�J,K)=0�J,K:�ThY
2J=J+20:K=350:�
<.�995,470:�970,450:�85,1015,450:�85,995,420
F�955,354:�85,1035,354
Z�
d��BOOTH
i	F=255
nB�23,224,231,231,231,231,231,231,231,231,23,225,F,F,F,0,0,F,F,F
x&�24,2)�14,�225):�24,6);�14,�225)
�!�J=21�22:�22,J);�18,�225):�J
�@VT$="":�J=1�19:VT$=VT$+�224+�10+�8:�J:�24,2);VT$:�37,2)VT$
��26,4)"HONEST JOE":�
�
��BETS
�K�23,224,F,F,0,135,240,252,F,F,23,225,F,F,0,225,31,63,F,F:MON$=�224+�225
�F�23,226,F,F,0,128,240,F,F,F,23,227,F,F,0,1,15,F,F,F:MOC$=�226+�227
�N�23,228,127,191,192,240,F,F,F,F,23,229,254,253,3,15,F,F,F,F:MOS$=�228+�229
�J�23,230,F,F,192,176,127,F,F,F,23,231,F,F,3,13,254,F,F,F:MOF$=�230+�231
��J=1�NP
�(�PC%(J)<1 � PBN(J)=0:PBC%(J)=0:�DKZ
:SP$=PN$(J)+" -you have `":X=3:Y=24:�TALK:�X,Y);PC%(J)
�SP$="How much do you bet ":X=3:Y=26:�TALK:�BEEP:�X,Y)"";:�PBC%(J):�PBC%(J)>100�PBC%(J)<1�PBC%(J)>PC%(J):�ANS:�3,26)�(36):�TNZ
�PBC%(J)<10:M$=MOF$:�MOUTH
"�PBC%(J)>50:M$=MOS$:�MOUTH
,pSP$="Which horse number  ":X=3:Y=28:�TALK:�BEEP:�X,Y)"";:�PBN(J):�PBN(J)<1�PBN(J)>5:�ANS:�3,28)�(36):�TlZ
6�PBN(J)=1:M$=MOF$:�MOUTH
@�PBN(J)=5:M$=MOS$:�MOUTH
J*WT=100:�WAIT:�K=24�28�2:�3,K)�(36):�K
K�J
LN�0:�2,3);�(18);:�J=1�5:�2,J*2+4);�(19);:�J:K=4:�1:�J=1�NP:�PC%(J)<1��DNZ
M2�4,K);PN$(J);:�10,K);" on No.";PBN(J);:K=K+2
N�J
OJ�5,26)"OK - ALL BETS PLACED":�6,28)"OFF TO THE COURSE!":WT=500:�WAIT
T�
�2��MOUTH:�30,15)M$:WT=100:�WAIT:�30,15)MON$:�
���TALK:LS=�(SP$):M$=MOC$
�N�K=1�LS-1�2:�X,Y)�SP$,K,2);:�30,15)M$:X=X+2:�M$=MON$ � M$=MOC$ � M$=MON$
�WT=5:�WAIT:�K:�
���BEEP:�1,-15,200,1:TM=�
��<TM+15��tnZ
��1,-15,200,1:�
�1��ANS:�1,-15,15,10:�1,-15,1,15:WT=150:�WAIT:�
���DERBY
�&�23;8202;0;0;0;19,2,2,0,0,0:�130:�
��CUP:�0:�8,4);CU$;
 �23,224,3,3,31,47,79,8,16,32
'�23,225,192,156,252,224,224,32,16,8
�23,226,3,3,31,47,79,8,4,2
&)�23,227,192,144,252,252,228,32,64,128
0�23,228,3,3,31,47,79,8,8,8
:(�23,229,192,144,252,252,228,32,32,32
D#�23,230,24,24,24,24,24,24,24,24
N�23,231,0,0,0,0,0,0,255,255
X%�23,232,24,24,24,24,24,24,255,255
b#�23,233,0,0,60,126,126,126,60,0
l;H$(0)=�32+�224+�225:H$(1)=�32+�226+�227:H$(2)=�228+�229
v5F$=�230+�32:W$=F$+�8+�8+�11+�232+�231:P$=�233+�32
�OF%(1)=19:F%(2)=13:F%(3)=6:FL%=8:Z%=323:H=0:WN=0:�J=1�6:F$(J)=F$:�J:X%=0:O=0
�
�MICRO
�#�3:�J=9�17�8:�0,J)�20,�231):�J
�(�J=1�3:�K=10�18�8:�F%(J),K)F$:�K:�J
�C�J=1�5:X(J)=1:Y(J)=11+J:�3:�0,Y(J));J;:�0:�X(J),Y(J))H$(2):�J
�-�2,24)"FURLONGS TO GO ";:�3:�17,24);FL%
�;��dA[:�J=1�9:� FR,DU:�1,-15,FR,DU:�J:�T=1�2000:�T:�dC[
�:�120,3,141,3,155,3,169,6,155,6,141,3,155,3,141,3,120,3
�O�1,2,7,0,0,8,0,0,127,0,0,0,126,0:�2,2,7,0,0,8,0,0,127,-1,0,-126,126,0:SS=64
��130:�J=12�16:�0,J)�(1):�J
�RR=�(-�)
�8�3:�J=1�3:�F%(J),10);F$(J);:�F%(J),18);F$(J*2);:�J
��X%=1:�1:�F%(3),8);P$;
�I�J=1�3:F%(J)=F%(J)-1:� F%(J)=-1 � �K=10�18�8:�0,K);�(2);:F%(J)=19:�K
�$�J:Z%=Z%-1:�Z%=15� F$(3)=W$:X%=1
J�(Z%/40)=Z%/40 � �17,24);FL%;:FL%=FL%-1:�2,1,SS,7:�2,2,SS,40:SS=SS+3
F=�(20):�0:�J=1�5:�O=1��Tj\
�J=F � X(J)=X(J)+(.4*BS(J))
$�X(J),Y(J));H$(H);:�&11,-15,1,0
 �-2=F%(3)�X%=1� O=1
*�J:�O=0� H=H � 1:�dZ[
43�2,24)�(17);:MX=X(1):�J=2�5:�X(J)>MX � MX=X(J)
>8�J:�J=1�5:W(J)=0::�(X(J))=�(MX)� W(J)=1:WN=WN+1:K=J
H�J:�WN=1� J=K:�Dp\
R^�0:�4,24)"PHOTO FINISH":WT=100:�WAIT:�1,26)"JUDGES IN SESSION":WT=300:�WAIT:RN=�(WN):J=0
\�:J=J+1:�W(J)=1� RN=RN-1
f
� RN=0
pT�1:�131:�5,22)"No.";J;" WINS":�9,5);J;:�T=100�255�7:�1,-15,T,1:�T:WT=200:�WAIT
zt�2:�130::�4,24)�(13);:�1,26)�(18);:�0:�3,24)"WINNERS: ";:NB=0:�K=1�NP:�PBN(K)=J � �11,NB+24);PN$(K);:NB=NB+1
 �K:� NB=0 � � �11,24)"NONE";
�WT=500:�WAIT:�
���MICRO:�5:��tX\
�E�TL=1�10:�L$,LX,LY:�LX,LY:�0,0:�L$:�LX+10,LY+10:�0,3:�L$:�TL:�4:�
�h�M,340,840,I,390,870,C,440,900,R,490,930,O,540,960,D,620,960,E,670,930,R,720,900,B,770,870,Y,820,840
���STATUS
��23;8202;0;0;0;19,0,1,0,0,0
�+�23,224,192,192,192,192,192,192,192,192
�23,225,3,3,3,3,3,3,3,3
�23,226,0,0,0,0,0,0,255,255
�23,227,255,255,0,0,0,0,0,0
$HVL$="":VR$="":�K=1�NP*2+3:VL$=VL$+�224+�8+�10:VR$=VR$+�225+�8+�10:�K
.HT$=�40,�226):HB$=�40,�227)
8X�K=1�NP:� PBN(K)=J � PB$(K)="WON  ":PW%(K)=PBC%(K)*OD%(J):PC%(K)=PC%(K)+PW%(K):�DL]
B6PB$(K)="LOST ":PW%(K)=PBC%(K):PC%(K)=PC%(K)-PW%(K)
L�K
V*�8,5)"*** FINANCIAL STATUS ***";:QQ=0
`:�0,8);HT$;:�0,12+NP*2);HB$;:�0,9);VL$;:�39,9);VR$;
jM�K=1�NP:�1,9+K*2);PN$(K);:�PC%(K)<1��9,9+K*2);"Sorry you're out";:�D~]
tN�9,9+K*2);"You ";PB$(K);"`";PW%(K);�23,9+K*2);"- You have `";PC%(K);:QQ=1
~�K
�;�QQ=0 �5,14+2*K);"EVERYONE'S BROKE - GAME OVER";:�t\]
�<�:�5,14+2*K);"PRESS SPACE BAR TO BET AGAIN";:A=�:� A=32
��
�?�:�4,16+2*K);"PRESS SPACE BAR FOR A NEW GAME";:A=�:�A=32:�
�
00000000  0d 00 0a 0e 2a 46 58 31  34 34 2c 31 32 37 0d 00  |....*FX144,127..|
00000010  14 0b 2a 46 58 31 31 2c  30 0d 00 1e 79 46 3d 32  |..*FX11,0...yF=2|
00000020  35 35 3a de 50 4e 24 28  36 29 2c 48 4c 24 28 32  |55:.PN$(6),HL$(2|
00000030  30 29 2c 42 4c 28 32 30  29 2c 48 4f 24 28 35 29  |0),BL(20),HO$(5)|
00000040  2c 42 53 28 35 29 2c 4f  44 25 28 35 29 2c 50 43  |,BS(5),OD%(5),PC|
00000050  25 28 36 29 2c 50 42 43  25 28 36 29 2c 50 42 4e  |%(6),PBC%(6),PBN|
00000060  28 36 29 2c 48 24 28 32  29 2c 58 28 35 29 2c 59  |(6),H$(2),X(5),Y|
00000070  28 35 29 2c 46 25 28 33  29 2c 46 24 28 36 29 2c  |(5),F%(3),F$(6),|
00000080  57 28 35 29 2c 50 42 24  28 36 29 2c 50 57 25 28  |W(5),PB$(6),PW%(|
00000090  36 29 0d 00 28 0d eb 35  3a f2 54 49 54 4c 45 0d  |6)..(..5:.TITLE.|
000000a0  00 32 6a eb 36 3a ef 32  33 3b 38 32 30 32 3b 30  |.2j.6:.23;8202;0|
000000b0  3b 30 3b 30 3b 3a ef 31  39 2c 31 2c 32 2c 30 2c  |;0;0;:.19,1,2,0,|
000000c0  30 2c 30 3a f1 8a 32 2c  31 32 29 22 44 6f 20 79  |0,0:..2,12)"Do y|
000000d0  6f 75 20 77 61 6e 74 20  69 6e 73 74 72 75 63 74  |ou want instruct|
000000e0  69 6f 6e 73 20 3f 20 28  59 20 6f 72 20 4e 29 22  |ions ? (Y or N)"|
000000f0  3a f2 42 45 45 50 3a 41  24 3d be 3a e7 41 24 3d  |:.BEEP:A$=.:.A$=|
00000100  22 59 22 8c f2 49 4e 53  54 0d 00 3c 0c f2 50 4c  |"Y"..INST..<..PL|
00000110  41 59 45 52 53 0d 00 46  25 eb 34 3a f2 4f 44 44  |AYERS..F%.4:.ODD|
00000120  53 3a f2 42 4f 4f 54 48  3a f2 4a 4f 45 31 3a f2  |S:.BOOTH:.JOE1:.|
00000130  4a 4f 45 32 3a f2 42 45  54 53 0d 00 50 0d eb 35  |JOE2:.BETS..P..5|
00000140  3a f2 44 45 52 42 59 0d  00 5a 0e eb 34 3a f2 53  |:.DERBY..Z..4:.S|
00000150  54 41 54 55 53 0d 00 64  09 e5 8d 44 46 40 0d 13  |TATUS..d...DF@..|
00000160  88 0b dd f2 54 49 54 4c  45 0d 13 92 08 f2 43 55  |....TITLE.....CU|
00000170  50 0d 13 97 13 ef 32 33  3b 38 32 30 32 3b 30 3b  |P.....23;8202;0;|
00000180  30 3b 30 3b 0d 13 9c 46  fb 32 3a e3 59 3d 33 b8  |0;0;...F.2:.Y=3.|
00000190  32 33 88 34 3a e3 58 3d  30 b8 31 36 88 34 3a 52  |23.4:.X=0.16.4:R|
000001a0  3d b3 28 32 35 35 29 3a  f1 8a 58 2c 59 29 43 55  |=.(255):..X,Y)CU|
000001b0  24 3b 3a d4 31 2c 2d 31  35 2c 52 2c 33 3a ed 58  |$;:.1,-15,R,3:.X|
000001c0  2c 59 3a 2a 46 58 31 35  2c 36 0d 13 a6 53 fb 33  |,Y:*FX15,6...S.3|
000001d0  3a fb 31 32 39 3a e3 4a  3d 31 34 b8 31 36 3a f1  |:.129:.J=14.16:.|
000001e0  8a 34 2c 4a 29 89 28 31  31 29 3a ed 4a 3a f1 8a  |.4,J).(11):.J:..|
000001f0  34 2c 31 35 29 22 4d 49  43 52 4f 20 44 45 52 42  |4,15)"MICRO DERB|
00000200  59 22 3a f1 8a 31 2c 33  30 29 22 42 55 47 2d 42  |Y":..1,30)"BUG-B|
00000210  59 54 45 20 53 4f 46 54  57 41 52 45 22 0d 13 b0  |YTE SOFTWARE"...|
00000220  12 57 54 3d 32 30 30 3a  f2 57 41 49 54 3a e1 0d  |.WT=200:.WAIT:..|
00000230  13 ec 09 dd f2 43 55 50  0d 13 f6 1b ef 32 33 2c  |.....CUP.....23,|
00000240  32 32 34 2c 30 2c 30 2c  30 2c 30 2c 30 2c 31 2c  |224,0,0,0,0,0,1,|
00000250  33 2c 30 0d 14 00 1d ef  32 33 2c 32 32 35 2c 30  |3,0.....23,225,0|
00000260  2c 30 2c 32 34 2c 36 30  2c 46 2c 46 2c 46 2c 30  |,0,24,60,F,F,F,0|
00000270  0d 14 0a 1f ef 32 33 2c  32 32 36 2c 30 2c 30 2c  |.....23,226,0,0,|
00000280  30 2c 30 2c 30 2c 31 32  38 2c 31 39 32 2c 30 0d  |0,0,0,128,192,0.|
00000290  14 14 28 ef 32 33 2c 32  32 37 2c 33 2c 36 33 2c  |..(.23,227,3,63,|
000002a0  31 30 33 2c 31 39 39 2c  31 34 33 2c 31 34 33 2c  |103,199,143,143,|
000002b0  31 34 33 2c 32 30 37 0d  14 1e 1b ef 32 33 2c 32  |143,207.....23,2|
000002c0  32 38 2c 46 2c 46 2c 46  2c 46 2c 46 2c 46 2c 46  |28,F,F,F,F,F,F,F|
000002d0  2c 46 0d 14 28 2b ef 32  33 2c 32 32 39 2c 31 39  |,F..(+.23,229,19|
000002e0  32 2c 32 35 32 2c 32 33  30 2c 32 32 37 2c 32 34  |2,252,230,227,24|
000002f0  31 2c 32 34 31 2c 32 34  31 2c 32 34 33 0d 14 32  |1,241,241,243..2|
00000300  1e ef 32 33 2c 32 33 30  2c 31 31 31 2c 36 33 2c  |..23,230,111,63,|
00000310  37 2c 33 2c 33 2c 31 2c  30 2c 30 0d 14 3c 27 ef  |7,3,3,1,0,0..<'.|
00000320  32 33 2c 32 33 31 2c 32  34 36 2c 32 35 32 2c 32  |23,231,246,252,2|
00000330  32 34 2c 31 39 32 2c 31  39 32 2c 31 32 38 2c 30  |24,192,192,128,0|
00000340  2c 30 0d 14 46 1b ef 32  33 2c 32 33 32 2c 30 2c  |,0..F..23,232,0,|
00000350  30 2c 30 2c 30 2c 30 2c  30 2c 31 2c 33 0d 14 50  |0,0,0,0,0,1,3..P|
00000360  22 ef 32 33 2c 32 33 33  2c 31 32 36 2c 36 30 2c  |".23,233,126,60,|
00000370  36 30 2c 32 34 2c 32 34  2c 32 34 2c 46 2c 46 0d  |60,24,24,24,F,F.|
00000380  14 5a 1f ef 32 33 2c 32  33 34 2c 30 2c 30 2c 30  |.Z..23,234,0,0,0|
00000390  2c 30 2c 30 2c 30 2c 31  32 38 2c 31 39 32 0d 14  |,0,0,0,128,192..|
000003a0  64 60 4c 49 24 3d bd 38  2b bd 38 2b bd 38 2b bd  |d`LI$=.8+.8+.8+.|
000003b0  31 30 3a 43 55 24 3d bd  32 32 34 2b bd 32 32 35  |10:CU$=.224+.225|
000003c0  2b bd 32 32 36 2b 4c 49  24 2b bd 32 32 37 2b bd  |+.226+LI$+.227+.|
000003d0  32 32 38 2b bd 32 32 39  2b 4c 49 24 2b bd 32 33  |228+.229+LI$+.23|
000003e0  30 2b bd 32 32 38 2b bd  32 33 31 2b 4c 49 24 2b  |0+.228+.231+LI$+|
000003f0  bd 32 33 32 2b bd 32 33  33 2b bd 32 33 34 0d 14  |.232+.233+.234..|
00000400  6e 05 e1 0d 14 b4 0a dd  f2 57 41 49 54 0d 14 be  |n........WAIT...|
00000410  0a ea 41 3a 41 3d 91 0d  14 c8 11 e7 91 2d 41 3c  |..A:A=.......-A<|
00000420  57 54 20 8c 8d 64 48 54  0d 14 d2 05 e1 0d 15 18  |WT ..dHT........|
00000430  0c dd f2 49 4e 53 54 3a  db 0d 15 22 11 ef 31 39  |...INST:..."..19|
00000440  2c 31 2c 36 2c 30 2c 30  2c 30 0d 15 2c 2f f1 22  |,1,6,0,0,0..,/."|
00000450  20 20 54 68 69 73 20 69  73 20 61 20 64 61 79 20  |  This is a day |
00000460  61 74 20 74 68 65 20 20  72 61 63 65 73 20 66 6f  |at the  races fo|
00000470  72 20 75 70 20 74 6f 22  27 0d 15 36 2f f1 22 73  |r up to"'..6/."s|
00000480  69 78 20 70 65 6f 70 6c  65 2e 20 20 50 6c 65 61  |ix people.  Plea|
00000490  73 65 20 74 79 70 65 20  79 6f 75 72 20 6e 61 6d  |se type your nam|
000004a0  65 20 28 6d 61 78 22 27  0d 15 40 2f f1 22 36 20  |e (max"'..@/."6 |
000004b0  6c 65 74 74 65 72 73 29  20 77 68 65 6e 20 61 73  |letters) when as|
000004c0  6b 65 64 2c 20 20 61 6e  64 20 74 68 65 6e 20 49  |ked,  and then I|
000004d0  20 77 69 6c 6c 22 27 0d  15 4a 2f f1 22 63 72 65  | will"'..J/."cre|
000004e0  64 69 74 20 79 6f 75 20  20 77 69 74 68 20 60 31  |dit you  with `1|
000004f0  30 30 20 65 61 63 68 2c  20 20 66 6f 72 20 79 6f  |00 each,  for yo|
00000500  75 20 74 6f 22 27 0d 15  54 2a f1 22 27 64 6f 6e  |u to"'..T*."'don|
00000510  61 74 65 27 20 74 6f 20  48 4f 4e 45 53 54 20 4a  |ate' to HONEST J|
00000520  4f 45 20 74 68 65 20 62  6f 6f 6b 69 65 2e 22 27  |OE the bookie."'|
00000530  0d 15 5e 2f f1 22 20 20  48 4f 4e 45 53 54 20 4a  |..^/."  HONEST J|
00000540  4f 45 20 77 69 6c 6c 20  6f 66 66 65 72 20 79 6f  |OE will offer yo|
00000550  75 20 61 20 6c 69 73 74  20 6f 66 20 35 22 27 0d  |u a list of 5"'.|
00000560  15 68 2f f1 22 68 6f 72  73 65 73 2c 20 20 65 61  |.h/."horses,  ea|
00000570  63 68 20 6f 6e 65 20 61  74 20 6f 64 64 73 20 63  |ch one at odds c|
00000580  61 6c 63 75 6c 61 74 65  64 20 62 79 22 27 0d 15  |alculated by"'..|
00000590  72 2f f1 22 6d 65 2e 20  20 59 6f 75 20 63 61 6e  |r/."me.  You can|
000005a0  20 63 68 6f 6f 73 65 20  61 6e 79 20 68 6f 72 73  | choose any hors|
000005b0  65 20 79 6f 75 20 6c 69  6b 65 2c 22 27 0d 15 7c  |e you like,"'..||
000005c0  2e f1 22 61 6e 64 20 63  61 6e 20 62 65 74 20 75  |.."and can bet u|
000005d0  70 20 74 6f 20 60 31 30  30 20 69 66 20 79 6f 75  |p to `100 if you|
000005e0  20 68 61 76 65 20 69 74  2e 22 27 0d 15 86 2f f1  | have it."'.../.|
000005f0  22 20 20 57 68 65 6e 20  74 68 65 20 72 61 63 65  |"  When the race|
00000600  20 68 61 73 20 20 62 65  65 6e 20 72 75 6e 2c 20  | has  been run, |
00000610  79 6f 75 20 77 69 6c 6c  22 27 0d 15 90 2f f1 22  |you will"'.../."|
00000620  62 65 20 73 68 6f 77 6e  20 20 74 68 65 20 67 61  |be shown  the ga|
00000630  6d 65 20 20 73 74 61 74  75 73 2c 20 61 6e 64 20  |me  status, and |
00000640  79 6f 75 20 63 61 6e 22  27 0d 15 9a 26 f1 22 74  |you can"'...&."t|
00000650  68 65 6e 20 70 72 6f 63  65 65 64 20 74 6f 20 74  |hen proceed to t|
00000660  68 65 20 6e 65 78 74 20  72 61 63 65 2e 22 27 0d  |he next race."'.|
00000670  15 a4 20 f1 8a 39 29 22  53 50 41 43 45 20 42 41  |.. ..9)"SPACE BA|
00000680  52 20 54 4f 20 43 4f 4e  54 49 4e 55 45 22 3b 0d  |R TO CONTINUE";.|
00000690  15 ae 13 41 3d a5 3a e7  41 3c 3e 33 32 8c 8d 74  |...A=.:.A<>32..t|
000006a0  6e 55 0d 15 b8 05 e1 0d  15 e0 0d dd f2 50 4c 41  |nU...........PLA|
000006b0  59 45 52 53 0d 15 e5 13  db 3a ef 31 39 2c 31 2c  |YERS.....:.19,1,|
000006c0  32 2c 30 2c 30 2c 30 0d  15 ea 2f f1 8a 33 2c 32  |2,0,0,0.../..3,2|
000006d0  29 22 50 4c 45 41 53 45  20 50 52 45 53 53 20 27  |)"PLEASE PRESS '|
000006e0  52 45 54 55 52 4e 27 20  57 48 45 4e 20 59 4f 55  |RETURN' WHEN YOU|
000006f0  20 48 41 56 45 22 0d 15  f4 20 f1 8a 31 30 2c 33  | HAVE"... ..10,3|
00000700  29 22 46 49 4e 49 53 48  45 44 20 45 41 43 48 20  |)"FINISHED EACH |
00000710  45 4e 54 52 59 22 0d 15  fe 10 57 54 3d 31 30 30  |ENTRY"....WT=100|
00000720  3a f2 57 41 49 54 0d 16  08 53 f1 8a 36 2c 35 29  |:.WAIT...S..6,5)|
00000730  22 48 6f 77 20 6d 61 6e  79 20 70 6c 61 79 65 72  |"How many player|
00000740  73 20 28 6d 61 78 20 36  29 20 22 3b 3a f2 42 45  |s (max 6) ";:.BE|
00000750  45 50 3a e8 20 4e 50 3a  e7 4e 50 3e 36 84 4e 50  |EP:. NP:.NP>6.NP|
00000760  3c 31 8c f2 41 4e 53 3a  f1 8a 33 2c 35 29 89 28  |<1..ANS:..3,5).(|
00000770  33 35 29 3a e5 8d 54 48  56 0d 16 12 40 f1 8a 31  |35):..THV...@..1|
00000780  2c 37 29 22 50 4c 45 41  53 45 20 45 4e 54 45 52  |,7)"PLEASE ENTER|
00000790  20 59 4f 55 52 20 4e 41  4d 45 53 20 28 4d 41 58  | YOUR NAMES (MAX|
000007a0  20 36 20 4c 45 54 54 45  52 53 29 22 3a 57 54 3d  | 6 LETTERS)":WT=|
000007b0  31 30 30 3a f2 57 41 49  54 0d 16 1c 0b e3 4a 3d  |100:.WAIT.....J=|
000007c0  31 b8 4e 50 0d 16 26 5d  f1 8a 31 30 2c 37 2b 4a  |1.NP..&]..10,7+J|
000007d0  2a 32 29 22 50 6c 61 79  65 72 20 22 3b 4a 3b 22  |*2)"Player ";J;"|
000007e0  20 6e 61 6d 65 20 22 3b  3a f2 42 45 45 50 3a e8  | name ";:.BEEP:.|
000007f0  50 4e 24 28 4a 29 3a e7  20 a9 28 50 4e 24 28 4a  |PN$(J):. .(PN$(J|
00000800  29 29 3e 36 8c f2 41 4e  53 3a 20 f1 8a 31 30 2c  |))>6..ANS: ..10,|
00000810  37 2b 4a 2a 32 29 89 28  32 36 29 3a e5 8d 54 66  |7+J*2).(26):..Tf|
00000820  56 0d 16 2b 25 e7 a9 28  50 4e 24 28 4a 29 29 83  |V..+%..(PN$(J)).|
00000830  32 3d 31 8c 20 50 4e 24  28 4a 29 3d 50 4e 24 28  |2=1. PN$(J)=PN$(|
00000840  4a 29 2b 22 20 22 0d 16  30 11 50 43 25 28 4a 29  |J)+" "..0.PC%(J)|
00000850  3d 31 30 30 3a ed 4a 0d  16 3a 34 f1 8a 32 2c 38  |=100:.J..:4..2,8|
00000860  2b 4a 2a 32 29 22 59 4f  55 20 41 52 45 20 45 41  |+J*2)"YOU ARE EA|
00000870  43 48 20 41 4c 4c 4f 43  41 54 45 44 20 60 31 30  |CH ALLOCATED `10|
00000880  30 20 54 4f 20 53 50 45  4e 44 22 0d 16 44 2f f1  |0 TO SPEND"..D/.|
00000890  8a 31 31 2c 39 2b 4a 2a  32 29 22 4c 45 54 27 53  |.11,9+J*2)"LET'S|
000008a0  20 47 4f 20 52 41 43 49  4e 47 20 21 22 3a 57 54  | GO RACING !":WT|
000008b0  3d 32 30 30 3a f2 57 41  49 54 0d 16 4e 05 e1 0d  |=200:.WAIT..N...|
000008c0  16 a8 45 dd f2 4f 44 44  53 3a ef 32 33 3b 38 32  |..E..ODDS:.23;82|
000008d0  30 32 3b 30 3b 30 3b 30  3b 31 39 2c 30 2c 34 2c  |02;0;0;0;19,0,4,|
000008e0  30 2c 30 2c 30 3a f7 8d  54 7e 57 3a e3 4a 3d 31  |0,0,0:..T~W:.J=1|
000008f0  b8 32 30 3a f3 48 4c 24  28 4a 29 2c 42 4c 28 4a  |.20:.HL$(J),BL(J|
00000900  29 3a ed 4a 0d 16 b2 07  4a 3d 31 0d 16 bc 2f 5a  |):.J....J=1.../Z|
00000910  3d 30 3a 4b 3d b3 28 32  30 29 3a 4b 24 3d 48 4c  |=0:K=.(20):K$=HL|
00000920  24 28 4b 29 3a e3 4e 3d  31 b8 35 3a e7 4b 24 3d  |$(K):.N=1.5:.K$=|
00000930  48 4f 24 28 4e 29 8c 5a  3d 31 0d 16 c6 06 ed 4e  |HO$(N).Z=1.....N|
00000940  0d 16 d0 0d e7 5a 3d 31  8c 8d 74 7c 56 0d 16 da  |.....Z=1..t|V...|
00000950  29 48 4f 24 28 4a 29 3d  4b 24 3a 42 53 28 4a 29  |)HO$(J)=K$:BS(J)|
00000960  3d 42 4c 28 4b 29 3a 4a  3d 4a 2b 31 3a e7 4a 3c  |=BL(K):J=J+1:.J<|
00000970  36 8c 8d 74 7c 56 0d 16  e4 09 f5 3a 5a 3d 30 0d  |6..t|V.....:Z=0.|
00000980  16 ee 65 e3 4a 3d 31 b8  34 3a 41 3d 42 53 28 4a  |..e.J=1.4:A=BS(J|
00000990  29 3a 41 24 3d 48 4f 24  28 4a 29 3a 42 3d 42 53  |):A$=HO$(J):B=BS|
000009a0  28 4a 2b 31 29 3a 42 24  3d 48 4f 24 28 4a 2b 31  |(J+1):B$=HO$(J+1|
000009b0  29 3a e7 41 3c 42 20 8c  20 42 53 28 4a 29 3d 42  |):.A<B . BS(J)=B|
000009c0  3a 48 4f 24 28 4a 29 3d  42 24 3a 42 53 28 4a 2b  |:HO$(J)=B$:BS(J+|
000009d0  31 29 3d 41 3a 48 4f 24  28 4a 2b 31 29 3d 41 24  |1)=A:HO$(J+1)=A$|
000009e0  3a 5a 3d 31 0d 16 f8 0b  ed 4a 3a fd 5a 3d 30 0d  |:Z=1.....J:.Z=0.|
000009f0  17 02 54 4f 44 25 28 33  29 3d 34 3a e3 4a 3d 31  |..TOD%(3)=4:.J=1|
00000a00  b8 32 3a 4f 44 25 28 4a  29 3d 34 2d 28 42 53 28  |.2:OD%(J)=4-(BS(|
00000a10  4a 29 2d 42 53 28 33 29  29 2a 32 30 3a ed 4a 3a  |J)-BS(3))*20:.J:|
00000a20  e3 4a 3d 34 b8 35 3a 4f  44 25 28 4a 29 3d 34 2b  |.J=4.5:OD%(J)=4+|
00000a30  28 42 53 28 33 29 2d 42  53 28 4a 29 29 2a 32 30  |(BS(3)-BS(J))*20|
00000a40  3a ed 4a 0d 17 04 1d e3  4a 3d 31 b8 35 3a e7 4f  |:.J.....J=1.5:.O|
00000a50  44 25 28 4a 29 3c 31 8c  4f 44 25 28 4a 29 3d 31  |D%(J)<1.OD%(J)=1|
00000a60  0d 17 05 06 ed 4a 0d 17  07 1e f1 8a 32 2c 33 29  |.....J......2,3)|
00000a70  22 4e 6f 20 20 4e 61 6d  65 20 20 20 20 20 20 4f  |"No  Name      O|
00000a80  64 64 73 22 0d 17 0c 0a  e3 4a 3d 31 b8 35 0d 17  |dds".....J=1.5..|
00000a90  16 33 f1 8a 32 2c 4a 2a  32 2b 34 29 3b 4a 3b 22  |.3..2,J*2+4);J;"|
00000aa0  2e 22 3b 22 20 22 3b 48  4f 24 28 4a 29 3b 22 20  |.";" ";HO$(J);" |
00000ab0  20 22 3b 4f 44 25 28 4a  29 3b 22 20 74 6f 20 31  | ";OD%(J);" to 1|
00000ac0  22 0d 17 20 06 ed 4a 0d  17 2a 05 e1 0d 17 3e 40  |".. ..J..*....>@|
00000ad0  dc 22 53 4c 4f 4a 4f 45  20 20 22 2c 2e 37 35 2c  |."SLOJOE  ",.75,|
00000ae0  22 46 52 49 53 4b 59 20  20 22 2c 2e 37 35 2c 22  |"FRISKY  ",.75,"|
00000af0  53 57 49 46 54 20 20 20  22 2c 2e 37 35 2c 22 46  |SWIFT   ",.75,"F|
00000b00  49 52 45 42 41 4c 4c 22  2c 2e 37 35 0d 17 48 3c  |IREBALL",.75..H<|
00000b10  dc 22 49 4e 54 52 45 50  49 44 22 2c 2e 38 2c 22  |."INTREPID",.8,"|
00000b20  43 52 45 45 50 45 52 20  22 2c 2e 38 2c 22 42 4c  |CREEPER ",.8,"BL|
00000b30  41 43 4b 49 45 20 22 2c  2e 38 2c 22 54 48 41 54  |ACKIE ",.8,"THAT|
00000b40  43 48 45 52 22 2c 2e 38  0d 17 52 40 dc 22 42 49  |CHER",.8..R@."BI|
00000b50  47 27 45 44 20 20 22 2c  2e 38 35 2c 22 53 4d 41  |G'ED  ",.85,"SMA|
00000b60  52 54 59 20 20 22 2c 2e  38 35 2c 22 43 48 41 4d  |RTY  ",.85,"CHAM|
00000b70  50 20 20 20 22 2c 2e 38  35 2c 22 53 4e 41 50 50  |P   ",.85,"SNAPP|
00000b80  45 52 20 22 2c 2e 38 35  0d 17 5c 3c dc 22 42 55  |ER ",.85..\<."BU|
00000b90  53 42 59 20 20 20 22 2c  2e 39 2c 22 54 49 4d 49  |SBY   ",.9,"TIMI|
00000ba0  44 20 20 20 22 2c 2e 39  2c 22 52 41 49 4e 42 4f  |D   ",.9,"RAINBO|
00000bb0  57 20 22 2c 2e 39 2c 22  42 55 4c 4c 45 54 20 20  |W ",.9,"BULLET  |
00000bc0  22 2c 2e 39 0d 17 66 40  dc 22 54 52 49 47 47 45  |",.9..f@."TRIGGE|
00000bd0  52 20 22 2c 2e 39 35 2c  22 50 48 41 4e 54 4f 4d  |R ",.95,"PHANTOM|
00000be0  20 22 2c 2e 39 35 2c 22  53 48 41 52 4b 20 20 20  | ",.95,"SHARK   |
00000bf0  22 2c 2e 39 35 2c 22 50  52 49 4e 43 45 20 20 22  |",.95,"PRINCE  "|
00000c00  2c 2e 39 35 0d 17 70 0a  dd f2 4a 4f 45 31 0d 17  |,.95..p...JOE1..|
00000c10  75 09 46 3d 32 35 35 0d  17 7a 22 ef 32 33 2c 32  |u.F=255..z".23,2|
00000c20  32 34 2c 30 2c 30 2c 33  2c 31 35 2c 33 31 2c 36  |24,0,0,3,15,31,6|
00000c30  33 2c 31 32 37 2c 32 35  35 0d 17 84 1c ef 32 33  |3,127,255.....23|
00000c40  2c 32 32 35 2c 31 35 2c  46 2c 46 2c 46 2c 46 2c  |,225,15,F,F,F,F,|
00000c50  46 2c 46 2c 46 0d 17 8e  1d ef 32 33 2c 32 32 36  |F,F,F.....23,226|
00000c60  2c 32 34 30 2c 46 2c 46  2c 46 2c 46 2c 46 2c 46  |,240,F,F,F,F,F,F|
00000c70  2c 46 0d 17 98 25 ef 32  33 2c 32 32 37 2c 30 2c  |,F...%.23,227,0,|
00000c80  30 2c 31 39 32 2c 32 34  30 2c 32 34 38 2c 32 35  |0,192,240,248,25|
00000c90  32 2c 32 35 34 2c 46 0d  17 a2 1f ef 32 33 2c 32  |2,254,F.....23,2|
00000ca0  32 38 2c 31 2c 33 2c 37  2c 37 2c 31 35 2c 31 35  |28,1,3,7,7,15,15|
00000cb0  2c 33 31 2c 33 31 0d 17  ac 2b ef 32 33 2c 32 32  |,31,31...+.23,22|
00000cc0  39 2c 31 32 38 2c 31 39  32 2c 32 32 34 2c 32 32  |9,128,192,224,22|
00000cd0  34 2c 32 34 30 2c 32 34  30 2c 32 34 38 2c 32 34  |4,240,240,248,24|
00000ce0  38 0d 17 b6 21 ef 32 33  2c 32 33 30 2c 36 33 2c  |8...!.23,230,63,|
00000cf0  36 33 2c 31 32 37 2c 31  32 37 2c 46 2c 46 2c 46  |63,127,127,F,F,F|
00000d00  2c 46 0d 17 c0 23 ef 32  33 2c 32 33 31 2c 32 35  |,F...#.23,231,25|
00000d10  32 2c 32 35 32 2c 32 35  34 2c 32 35 34 2c 46 2c  |2,252,254,254,F,|
00000d20  46 2c 46 2c 46 0d 17 ca  2a ef 32 33 2c 32 33 32  |F,F,F...*.23,232|
00000d30  2c 31 32 37 2c 31 35 2c  31 32 39 2c 31 39 32 2c  |,127,15,129,192,|
00000d40  32 32 34 2c 32 34 30 2c  32 34 38 2c 32 35 32 0d  |224,240,248,252.|
00000d50  17 d4 1b ef 32 33 2c 32  33 33 2c 46 2c 46 2c 46  |....23,233,F,F,F|
00000d60  2c 33 2c 30 2c 30 2c 30  2c 30 0d 17 de 1b ef 32  |,3,0,0,0,0.....2|
00000d70  33 2c 32 33 34 2c 46 2c  46 2c 46 2c 46 2c 30 2c  |3,234,F,F,F,F,0,|
00000d80  30 2c 30 2c 30 0d 17 e8  1d ef 32 33 2c 32 33 35  |0,0,0.....23,235|
00000d90  2c 46 2c 46 2c 46 2c 31  39 32 2c 30 2c 30 2c 30  |,F,F,F,192,0,0,0|
00000da0  2c 30 0d 17 f2 24 ef 32  33 2c 32 33 36 2c 32 35  |,0...$.23,236,25|
00000db0  34 2c 32 34 30 2c 31 32  39 2c 33 2c 37 2c 31 35  |4,240,129,3,7,15|
00000dc0  2c 33 31 2c 36 33 0d 17  fc 23 ef 32 33 2c 32 33  |,31,63...#.23,23|
00000dd0  37 2c 30 2c 31 32 38 2c  31 39 32 2c 32 34 38 2c  |7,0,128,192,248,|
00000de0  32 35 34 2c 46 2c 46 2c  46 0d 18 06 21 ef 32 33  |254,F,F,F...!.23|
00000df0  2c 32 33 38 2c 30 2c 30  2c 30 2c 30 2c 30 2c 32  |,238,0,0,0,0,0,2|
00000e00  34 30 2c 32 35 31 2c 32  35 31 0d 18 10 20 ef 32  |40,251,251... .2|
00000e10  33 2c 32 33 39 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,239,0,0,0,0,0,|
00000e20  31 35 2c 32 32 33 2c 32  32 33 0d 18 1a 1e ef 32  |15,223,223.....2|
00000e30  33 2c 32 34 30 2c 30 2c  31 2c 37 2c 33 31 2c 31  |3,240,0,1,7,31,1|
00000e40  32 37 2c 46 2c 46 2c 46  0d 18 24 1b ef 32 33 2c  |27,F,F,F..$..23,|
00000e50  32 34 31 2c 46 2c 46 2c  46 2c 46 2c 46 2c 46 2c  |241,F,F,F,F,F,F,|
00000e60  46 2c 46 0d 18 2e 3a 42  4b 24 3d bd 38 3a 52 45  |F,F...:BK$=.8:RE|
00000e70  54 24 3d 42 4b 24 2b 42  4b 24 2b 42 4b 24 2b 42  |T$=BK$+BK$+BK$+B|
00000e80  4b 24 2b 42 4b 24 2b 42  4b 24 2b bd 31 30 3a 46  |K$+BK$+BK$+.10:F|
00000e90  24 3d bd 32 34 31 3a 45  24 3d bd 33 32 0d 18 38  |$=.241:E$=.32..8|
00000ea0  5d 4a 54 50 24 3d 45 24  2b bd 32 32 34 2b bd 32  |]JTP$=E$+.224+.2|
00000eb0  32 35 2b bd 32 32 36 2b  bd 32 32 37 2b 45 24 2b  |25+.226+.227+E$+|
00000ec0  52 45 54 24 2b bd 32 32  38 2b 46 24 2b 46 24 2b  |RET$+.228+F$+F$+|
00000ed0  46 24 2b 46 24 2b bd 32  32 39 2b 52 45 54 24 2b  |F$+F$+.229+RET$+|
00000ee0  bd 32 33 30 2b 46 24 2b  46 24 2b 46 24 2b 46 24  |.230+F$+F$+F$+F$|
00000ef0  2b bd 32 33 31 2b 52 45  54 24 0d 18 42 4a 4a 54  |+.231+RET$..BJJT|
00000f00  50 24 3d 4a 54 50 24 2b  bd 32 33 32 2b bd 32 33  |P$=JTP$+.232+.23|
00000f10  33 2b bd 32 33 34 2b bd  32 33 34 2b bd 32 33 35  |3+.234+.234+.235|
00000f20  2b bd 32 33 36 2b 52 45  54 24 2b 46 24 2b bd 32  |+.236+RET$+F$+.2|
00000f30  33 37 2b bd 32 33 38 2b  bd 32 33 39 2b bd 32 34  |37+.238+.239+.24|
00000f40  30 2b 46 24 0d 18 47 12  f1 8a 32 38 2c 39 29 3b  |0+F$..G...28,9);|
00000f50  4a 54 50 24 3a e1 0d 18  49 0a dd f2 4a 4f 45 32  |JTP$:...I...JOE2|
00000f60  0d 18 4a 09 46 3d 32 35  35 0d 18 4c 24 ef 32 33  |..J.F=255..L$.23|
00000f70  2c 32 32 34 2c 46 2c 46  2c 46 2c 31 32 37 2c 31  |,224,F,F,F,127,1|
00000f80  32 37 2c 31 32 37 2c 31  32 37 2c 36 33 0d 18 56  |27,127,127,63..V|
00000f90  2b ef 32 33 2c 32 32 35  2c 32 35 31 2c 32 34 33  |+.23,225,251,243|
00000fa0  2c 32 34 37 2c 32 34 37  2c 32 33 31 2c 32 33 39  |,247,247,231,239|
00000fb0  2c 31 36 39 2c 31 32 37  0d 18 60 2b ef 32 33 2c  |,169,127..`+.23,|
00000fc0  32 32 36 2c 32 32 33 2c  32 30 37 2c 32 33 39 2c  |226,223,207,239,|
00000fd0  32 33 39 2c 32 33 31 2c  32 34 37 2c 31 34 39 2c  |239,231,247,149,|
00000fe0  32 35 34 0d 18 6a 25 ef  32 33 2c 32 32 37 2c 46  |254..j%.23,227,F|
00000ff0  2c 46 2c 46 2c 32 35 34  2c 32 35 34 2c 32 35 34  |,F,F,254,254,254|
00001000  2c 32 35 34 2c 32 35 32  0d 18 74 1f ef 32 33 2c  |,254,252..t..23,|
00001010  32 32 38 2c 36 33 2c 33  31 2c 31 35 2c 31 35 2c  |228,63,31,15,15,|
00001020  37 2c 33 2c 33 2c 31 0d  18 7e 21 ef 32 33 2c 32  |7,3,3,1..~!.23,2|
00001030  32 39 2c 32 35 34 2c 32  35 33 2c 32 35 31 2c 46  |29,254,253,251,F|
00001040  2c 46 2c 46 2c 46 2c 46  0d 18 88 21 ef 32 33 2c  |,F,F,F,F...!.23,|
00001050  32 33 30 2c 46 2c 46 2c  30 2c 31 33 35 2c 32 34  |230,F,F,0,135,24|
00001060  30 2c 32 35 32 2c 46 2c  46 0d 18 92 1f ef 32 33  |0,252,F,F.....23|
00001070  2c 32 33 31 2c 46 2c 46  2c 30 2c 32 32 35 2c 33  |,231,F,F,0,225,3|
00001080  31 2c 36 33 2c 46 2c 46  0d 18 9c 21 ef 32 33 2c  |1,63,F,F...!.23,|
00001090  32 33 32 2c 31 32 37 2c  31 39 31 2c 32 32 33 2c  |232,127,191,223,|
000010a0  46 2c 46 2c 46 2c 46 2c  46 0d 18 a6 2b ef 32 33  |F,F,F,F,F...+.23|
000010b0  2c 32 33 33 2c 32 35 32  2c 32 34 38 2c 32 34 30  |,233,252,248,240|
000010c0  2c 32 34 30 2c 32 32 34  2c 31 39 32 2c 31 39 32  |,240,224,192,192|
000010d0  2c 31 32 38 0d 18 b0 20  ef 32 33 2c 32 33 34 2c  |,128... .23,234,|
000010e0  46 2c 31 32 37 2c 36 33  2c 33 31 2c 31 35 2c 37  |F,127,63,31,15,7|
000010f0  2c 33 2c 31 0d 18 ba 29  ef 32 33 2c 32 33 35 2c  |,3,1...).23,235,|
00001100  46 2c 32 35 34 2c 32 35  32 2c 32 34 38 2c 32 34  |F,254,252,248,24|
00001110  30 2c 32 32 34 2c 31 39  32 2c 31 32 38 0d 18 c4  |0,224,192,128...|
00001120  1e ef 32 33 2c 32 33 36  2c 31 32 37 2c 33 31 2c  |..23,236,127,31,|
00001130  37 2c 30 2c 30 2c 30 2c  30 2c 30 0d 18 ce 21 ef  |7,0,0,0,0,0...!.|
00001140  32 33 2c 32 33 37 2c 32  35 34 2c 32 34 38 2c 32  |23,237,254,248,2|
00001150  32 34 2c 30 2c 30 2c 30  2c 30 2c 30 0d 18 d8 4a  |24,0,0,0,0,0...J|
00001160  4a 42 54 24 3d bd 32 32  34 2b 46 24 2b bd 32 32  |JBT$=.224+F$+.22|
00001170  35 2b bd 32 32 36 2b 46  24 2b bd 32 32 37 2b 52  |5+.226+F$+.227+R|
00001180  45 54 24 2b bd 32 32 38  2b bd 32 32 39 2b bd 32  |ET$+.228+.229+.2|
00001190  33 30 2b bd 32 33 31 2b  bd 32 33 32 2b bd 32 33  |30+.231+.232+.23|
000011a0  33 2b 52 45 54 24 0d 18  e2 38 4a 42 54 24 3d 4a  |3+RET$...8JBT$=J|
000011b0  42 54 24 2b 45 24 2b bd  32 33 34 2b 46 24 2b 46  |BT$+E$+.234+F$+F|
000011c0  24 2b bd 32 33 35 2b 45  24 2b 52 45 54 24 2b 45  |$+.235+E$+RET$+E|
000011d0  24 2b 45 24 2b bd 32 33  36 2b bd 32 33 37 0d 18  |$+E$+.236+.237..|
000011e0  ec 4b ef 32 33 2c 32 33  38 2c 34 2c 31 30 2c 39  |.K.23,238,4,10,9|
000011f0  2c 39 2c 39 2c 39 2c 39  2c 35 2c 32 33 2c 32 33  |,9,9,9,9,5,23,23|
00001200  39 2c 35 2c 35 2c 35 2c  33 2c 33 2c 33 2c 33 2c  |9,5,5,5,3,3,3,3,|
00001210  30 3a 52 54 45 41 52 24  3d bd 32 33 38 2b bd 38  |0:RTEAR$=.238+.8|
00001220  2b bd 31 30 2b bd 32 33  39 0d 18 f6 66 ef 32 33  |+.10+.239...f.23|
00001230  2c 32 34 30 2c 33 32 2c  38 30 2c 31 34 34 2c 31  |,240,32,80,144,1|
00001240  34 34 2c 31 34 34 2c 31  34 34 2c 31 34 34 2c 31  |44,144,144,144,1|
00001250  36 30 2c 32 33 2c 32 34  32 2c 31 36 30 2c 31 36  |60,23,242,160,16|
00001260  30 2c 31 36 30 2c 31 39  32 2c 31 39 32 2c 31 39  |0,160,192,192,19|
00001270  32 2c 31 39 32 2c 30 3a  4c 54 45 41 52 24 3d bd  |2,192,0:LTEAR$=.|
00001280  32 34 30 2b bd 38 2b bd  31 30 2b bd 32 34 32 0d  |240+.8+.10+.242.|
00001290  19 00 31 f1 8a 32 38 2c  31 34 29 3b 4a 42 54 24  |..1..28,14);JBT$|
000012a0  3a f1 8a 32 37 2c 31 32  29 3b 52 54 45 41 52 24  |:..27,12);RTEAR$|
000012b0  3a f1 8a 33 34 2c 31 32  29 3b 4c 54 45 41 52 24  |:..34,12);LTEAR$|
000012c0  0d 19 0a 44 ec 39 32 30  2c 35 33 30 3a df 38 30  |...D.920,530:.80|
000012d0  30 2c 34 39 30 3a ec 31  30 37 30 2c 35 33 30 3a  |0,490:.1070,530:|
000012e0  df 31 31 38 30 2c 34 39  30 3a ec 38 37 30 2c 35  |.1180,490:.870,5|
000012f0  31 35 3a df 39 35 30 2c  34 33 30 3a df 39 39 35  |15:.950,430:.995|
00001300  2c 34 37 30 0d 19 14 20  ec 31 31 32 30 2c 35 31  |,470... .1120,51|
00001310  35 3a df 31 30 34 30 2c  34 33 30 3a df 39 39 35  |5:.1040,430:.995|
00001320  2c 34 37 30 0d 19 1e 1c  4a 3d 38 31 30 3a 4b 3d  |,470....J=810:K=|
00001330  33 35 30 3a e3 4e 3d 31  b8 31 39 3a ec 4a 2c 4b  |350:.N=1.19:.J,K|
00001340  0d 19 28 1c 4b 3d 4b 2b  34 3a e7 b0 4a 2c 4b 29  |..(.K=K+4:..J,K)|
00001350  3d 30 df 4a 2c 4b 3a e5  8d 54 68 59 0d 19 32 12  |=0.J,K:..ThY..2.|
00001360  4a 3d 4a 2b 32 30 3a 4b  3d 33 35 30 3a ed 0d 19  |J=J+20:K=350:...|
00001370  3c 2e ec 39 39 35 2c 34  37 30 3a ec 39 37 30 2c  |<..995,470:.970,|
00001380  34 35 30 3a f0 38 35 2c  31 30 31 35 2c 34 35 30  |450:.85,1015,450|
00001390  3a f0 38 35 2c 39 39 35  2c 34 32 30 0d 19 46 19  |:.85,995,420..F.|
000013a0  ec 39 35 35 2c 33 35 34  3a f0 38 35 2c 31 30 33  |.955,354:.85,103|
000013b0  35 2c 33 35 34 0d 19 5a  05 e1 0d 19 64 0b dd f2  |5,354..Z....d...|
000013c0  42 4f 4f 54 48 0d 19 69  09 46 3d 32 35 35 0d 19  |BOOTH..i.F=255..|
000013d0  6e 42 ef 32 33 2c 32 32  34 2c 32 33 31 2c 32 33  |nB.23,224,231,23|
000013e0  31 2c 32 33 31 2c 32 33  31 2c 32 33 31 2c 32 33  |1,231,231,231,23|
000013f0  31 2c 32 33 31 2c 32 33  31 2c 32 33 2c 32 32 35  |1,231,231,23,225|
00001400  2c 46 2c 46 2c 46 2c 30  2c 30 2c 46 2c 46 2c 46  |,F,F,F,0,0,F,F,F|
00001410  0d 19 78 26 f1 8a 32 34  2c 32 29 c4 31 34 2c bd  |..x&..24,2).14,.|
00001420  32 32 35 29 3a f1 8a 32  34 2c 36 29 3b c4 31 34  |225):..24,6);.14|
00001430  2c bd 32 32 35 29 0d 19  82 21 e3 4a 3d 32 31 b8  |,.225)...!.J=21.|
00001440  32 32 3a f1 8a 32 32 2c  4a 29 3b c4 31 38 2c bd  |22:..22,J);.18,.|
00001450  32 32 35 29 3a ed 4a 0d  19 8c 40 56 54 24 3d 22  |225):.J...@VT$="|
00001460  22 3a e3 4a 3d 31 b8 31  39 3a 56 54 24 3d 56 54  |":.J=1.19:VT$=VT|
00001470  24 2b bd 32 32 34 2b bd  31 30 2b bd 38 3a ed 4a  |$+.224+.10+.8:.J|
00001480  3a f1 8a 32 34 2c 32 29  3b 56 54 24 3a f1 8a 33  |:..24,2);VT$:..3|
00001490  37 2c 32 29 56 54 24 0d  19 96 19 f1 8a 32 36 2c  |7,2)VT$......26,|
000014a0  34 29 22 48 4f 4e 45 53  54 20 4a 4f 45 22 3a e1  |4)"HONEST JOE":.|
000014b0  0d 19 c8 0a dd f2 42 45  54 53 0d 19 d2 4b ef 32  |......BETS...K.2|
000014c0  33 2c 32 32 34 2c 46 2c  46 2c 30 2c 31 33 35 2c  |3,224,F,F,0,135,|
000014d0  32 34 30 2c 32 35 32 2c  46 2c 46 2c 32 33 2c 32  |240,252,F,F,23,2|
000014e0  32 35 2c 46 2c 46 2c 30  2c 32 32 35 2c 33 31 2c  |25,F,F,0,225,31,|
000014f0  36 33 2c 46 2c 46 3a 4d  4f 4e 24 3d bd 32 32 34  |63,F,F:MON$=.224|
00001500  2b bd 32 32 35 0d 19 dc  46 ef 32 33 2c 32 32 36  |+.225...F.23,226|
00001510  2c 46 2c 46 2c 30 2c 31  32 38 2c 32 34 30 2c 46  |,F,F,0,128,240,F|
00001520  2c 46 2c 46 2c 32 33 2c  32 32 37 2c 46 2c 46 2c  |,F,F,23,227,F,F,|
00001530  30 2c 31 2c 31 35 2c 46  2c 46 2c 46 3a 4d 4f 43  |0,1,15,F,F,F:MOC|
00001540  24 3d bd 32 32 36 2b bd  32 32 37 0d 19 e6 4e ef  |$=.226+.227...N.|
00001550  32 33 2c 32 32 38 2c 31  32 37 2c 31 39 31 2c 31  |23,228,127,191,1|
00001560  39 32 2c 32 34 30 2c 46  2c 46 2c 46 2c 46 2c 32  |92,240,F,F,F,F,2|
00001570  33 2c 32 32 39 2c 32 35  34 2c 32 35 33 2c 33 2c  |3,229,254,253,3,|
00001580  31 35 2c 46 2c 46 2c 46  2c 46 3a 4d 4f 53 24 3d  |15,F,F,F,F:MOS$=|
00001590  bd 32 32 38 2b bd 32 32  39 0d 19 f0 4a ef 32 33  |.228+.229...J.23|
000015a0  2c 32 33 30 2c 46 2c 46  2c 31 39 32 2c 31 37 36  |,230,F,F,192,176|
000015b0  2c 31 32 37 2c 46 2c 46  2c 46 2c 32 33 2c 32 33  |,127,F,F,F,23,23|
000015c0  31 2c 46 2c 46 2c 33 2c  31 33 2c 32 35 34 2c 46  |1,F,F,3,13,254,F|
000015d0  2c 46 2c 46 3a 4d 4f 46  24 3d bd 32 33 30 2b bd  |,F,F:MOF$=.230+.|
000015e0  32 33 31 0d 19 fa 0b e3  4a 3d 31 b8 4e 50 0d 19  |231.....J=1.NP..|
000015f0  ff 28 e7 50 43 25 28 4a  29 3c 31 20 8c 20 50 42  |.(.PC%(J)<1 . PB|
00001600  4e 28 4a 29 3d 30 3a 50  42 43 25 28 4a 29 3d 30  |N(J)=0:PBC%(J)=0|
00001610  3a e5 8d 44 4b 5a 0d 1a  04 3a 53 50 24 3d 50 4e  |:..DKZ...:SP$=PN|
00001620  24 28 4a 29 2b 22 20 2d  79 6f 75 20 68 61 76 65  |$(J)+" -you have|
00001630  20 60 22 3a 58 3d 33 3a  59 3d 32 34 3a f2 54 41  | `":X=3:Y=24:.TA|
00001640  4c 4b 3a f1 8a 58 2c 59  29 3b 50 43 25 28 4a 29  |LK:..X,Y);PC%(J)|
00001650  0d 1a 0e 84 53 50 24 3d  22 48 6f 77 20 6d 75 63  |....SP$="How muc|
00001660  68 20 64 6f 20 79 6f 75  20 62 65 74 20 22 3a 58  |h do you bet ":X|
00001670  3d 33 3a 59 3d 32 36 3a  f2 54 41 4c 4b 3a f2 42  |=3:Y=26:.TALK:.B|
00001680  45 45 50 3a f1 8a 58 2c  59 29 22 22 3b 3a e8 50  |EEP:..X,Y)"";:.P|
00001690  42 43 25 28 4a 29 3a e7  50 42 43 25 28 4a 29 3e  |BC%(J):.PBC%(J)>|
000016a0  31 30 30 84 50 42 43 25  28 4a 29 3c 31 84 50 42  |100.PBC%(J)<1.PB|
000016b0  43 25 28 4a 29 3e 50 43  25 28 4a 29 3a f2 41 4e  |C%(J)>PC%(J):.AN|
000016c0  53 3a f1 8a 33 2c 32 36  29 89 28 33 36 29 3a e5  |S:..3,26).(36):.|
000016d0  8d 54 4e 5a 0d 1a 18 1e  e7 50 42 43 25 28 4a 29  |.TNZ.....PBC%(J)|
000016e0  3c 31 30 3a 4d 24 3d 4d  4f 46 24 3a f2 4d 4f 55  |<10:M$=MOF$:.MOU|
000016f0  54 48 0d 1a 22 1e e7 50  42 43 25 28 4a 29 3e 35  |TH.."..PBC%(J)>5|
00001700  30 3a 4d 24 3d 4d 4f 53  24 3a f2 4d 4f 55 54 48  |0:M$=MOS$:.MOUTH|
00001710  0d 1a 2c 70 53 50 24 3d  22 57 68 69 63 68 20 68  |..,pSP$="Which h|
00001720  6f 72 73 65 20 6e 75 6d  62 65 72 20 20 22 3a 58  |orse number  ":X|
00001730  3d 33 3a 59 3d 32 38 3a  f2 54 41 4c 4b 3a f2 42  |=3:Y=28:.TALK:.B|
00001740  45 45 50 3a f1 8a 58 2c  59 29 22 22 3b 3a e8 50  |EEP:..X,Y)"";:.P|
00001750  42 4e 28 4a 29 3a e7 50  42 4e 28 4a 29 3c 31 84  |BN(J):.PBN(J)<1.|
00001760  50 42 4e 28 4a 29 3e 35  3a f2 41 4e 53 3a f1 8a  |PBN(J)>5:.ANS:..|
00001770  33 2c 32 38 29 89 28 33  36 29 3a e5 8d 54 6c 5a  |3,28).(36):..TlZ|
00001780  0d 1a 36 1c e7 50 42 4e  28 4a 29 3d 31 3a 4d 24  |..6..PBN(J)=1:M$|
00001790  3d 4d 4f 46 24 3a f2 4d  4f 55 54 48 0d 1a 40 1c  |=MOF$:.MOUTH..@.|
000017a0  e7 50 42 4e 28 4a 29 3d  35 3a 4d 24 3d 4d 4f 53  |.PBN(J)=5:M$=MOS|
000017b0  24 3a f2 4d 4f 55 54 48  0d 1a 4a 2a 57 54 3d 31  |$:.MOUTH..J*WT=1|
000017c0  30 30 3a f2 57 41 49 54  3a e3 4b 3d 32 34 b8 32  |00:.WAIT:.K=24.2|
000017d0  38 88 32 3a f1 8a 33 2c  4b 29 89 28 33 36 29 3a  |8.2:..3,K).(36):|
000017e0  ed 4b 0d 1a 4b 06 ed 4a  0d 1a 4c 4e fb 30 3a f1  |.K..K..J..LN.0:.|
000017f0  8a 32 2c 33 29 3b 89 28  31 38 29 3b 3a e3 4a 3d  |.2,3);.(18);:.J=|
00001800  31 b8 35 3a f1 8a 32 2c  4a 2a 32 2b 34 29 3b 89  |1.5:..2,J*2+4);.|
00001810  28 31 39 29 3b 3a ed 4a  3a 4b 3d 34 3a fb 31 3a  |(19);:.J:K=4:.1:|
00001820  e3 4a 3d 31 b8 4e 50 3a  e7 50 43 25 28 4a 29 3c  |.J=1.NP:.PC%(J)<|
00001830  31 8c 8d 44 4e 5a 0d 1a  4d 32 f1 8a 34 2c 4b 29  |1..DNZ..M2..4,K)|
00001840  3b 50 4e 24 28 4a 29 3b  3a f1 8a 31 30 2c 4b 29  |;PN$(J);:..10,K)|
00001850  3b 22 20 6f 6e 20 4e 6f  2e 22 3b 50 42 4e 28 4a  |;" on No.";PBN(J|
00001860  29 3b 3a 4b 3d 4b 2b 32  0d 1a 4e 06 ed 4a 0d 1a  |);:K=K+2..N..J..|
00001870  4f 4a f1 8a 35 2c 32 36  29 22 4f 4b 20 2d 20 41  |OJ..5,26)"OK - A|
00001880  4c 4c 20 42 45 54 53 20  50 4c 41 43 45 44 22 3a  |LL BETS PLACED":|
00001890  f1 8a 36 2c 32 38 29 22  4f 46 46 20 54 4f 20 54  |..6,28)"OFF TO T|
000018a0  48 45 20 43 4f 55 52 53  45 21 22 3a 57 54 3d 35  |HE COURSE!":WT=5|
000018b0  30 30 3a f2 57 41 49 54  0d 1a 54 05 e1 0d 1a 90  |00:.WAIT..T.....|
000018c0  32 dd f2 4d 4f 55 54 48  3a f1 8a 33 30 2c 31 35  |2..MOUTH:..30,15|
000018d0  29 4d 24 3a 57 54 3d 31  30 30 3a f2 57 41 49 54  |)M$:WT=100:.WAIT|
000018e0  3a f1 8a 33 30 2c 31 35  29 4d 4f 4e 24 3a e1 0d  |:..30,15)MON$:..|
000018f0  1a 9a 1c dd f2 54 41 4c  4b 3a 4c 53 3d a9 28 53  |.....TALK:LS=.(S|
00001900  50 24 29 3a 4d 24 3d 4d  4f 43 24 0d 1a 9c 4e e3  |P$):M$=MOC$...N.|
00001910  4b 3d 31 b8 4c 53 2d 31  88 32 3a f1 8a 58 2c 59  |K=1.LS-1.2:..X,Y|
00001920  29 c1 53 50 24 2c 4b 2c  32 29 3b 3a f1 8a 33 30  |).SP$,K,2);:..30|
00001930  2c 31 35 29 4d 24 3a 58  3d 58 2b 32 3a e7 4d 24  |,15)M$:X=X+2:.M$|
00001940  3d 4d 4f 4e 24 20 8c 20  4d 24 3d 4d 4f 43 24 20  |=MON$ . M$=MOC$ |
00001950  8b 20 4d 24 3d 4d 4f 4e  24 0d 1a 9e 13 57 54 3d  |. M$=MON$....WT=|
00001960  35 3a f2 57 41 49 54 3a  ed 4b 3a e1 0d 1a a4 1c  |5:.WAIT:.K:.....|
00001970  dd f2 42 45 45 50 3a d4  31 2c 2d 31 35 2c 32 30  |..BEEP:.1,-15,20|
00001980  30 2c 31 3a 54 4d 3d 91  0d 1a ae 11 e7 91 3c 54  |0,1:TM=.......<T|
00001990  4d 2b 31 35 8c 8d 74 6e  5a 0d 1a b8 12 d4 31 2c  |M+15..tnZ.....1,|
000019a0  2d 31 35 2c 32 30 30 2c  31 3a e1 0d 1a c2 31 dd  |-15,200,1:....1.|
000019b0  f2 41 4e 53 3a d4 31 2c  2d 31 35 2c 31 35 2c 31  |.ANS:.1,-15,15,1|
000019c0  30 3a d4 31 2c 2d 31 35  2c 31 2c 31 35 3a 57 54  |0:.1,-15,1,15:WT|
000019d0  3d 31 35 30 3a f2 57 41  49 54 3a e1 0d 1a f4 0b  |=150:.WAIT:.....|
000019e0  dd f2 44 45 52 42 59 0d  1a f9 26 ef 32 33 3b 38  |..DERBY...&.23;8|
000019f0  32 30 32 3b 30 3b 30 3b  30 3b 31 39 2c 32 2c 32  |202;0;0;0;19,2,2|
00001a00  2c 30 2c 30 2c 30 3a fb  31 33 30 3a db 0d 1a fe  |,0,0,0:.130:....|
00001a10  17 f2 43 55 50 3a fb 30  3a f1 8a 38 2c 34 29 3b  |..CUP:.0:..8,4);|
00001a20  43 55 24 3b 0d 1b 08 20  ef 32 33 2c 32 32 34 2c  |CU$;... .23,224,|
00001a30  33 2c 33 2c 33 31 2c 34  37 2c 37 39 2c 38 2c 31  |3,3,31,47,79,8,1|
00001a40  36 2c 33 32 0d 1b 12 27  ef 32 33 2c 32 32 35 2c  |6,32...'.23,225,|
00001a50  31 39 32 2c 31 35 36 2c  32 35 32 2c 32 32 34 2c  |192,156,252,224,|
00001a60  32 32 34 2c 33 32 2c 31  36 2c 38 0d 1b 1c 1e ef  |224,32,16,8.....|
00001a70  32 33 2c 32 32 36 2c 33  2c 33 2c 33 31 2c 34 37  |23,226,3,3,31,47|
00001a80  2c 37 39 2c 38 2c 34 2c  32 0d 1b 26 29 ef 32 33  |,79,8,4,2..&).23|
00001a90  2c 32 32 37 2c 31 39 32  2c 31 34 34 2c 32 35 32  |,227,192,144,252|
00001aa0  2c 32 35 32 2c 32 32 38  2c 33 32 2c 36 34 2c 31  |,252,228,32,64,1|
00001ab0  32 38 0d 1b 30 1e ef 32  33 2c 32 32 38 2c 33 2c  |28..0..23,228,3,|
00001ac0  33 2c 33 31 2c 34 37 2c  37 39 2c 38 2c 38 2c 38  |3,31,47,79,8,8,8|
00001ad0  0d 1b 3a 28 ef 32 33 2c  32 32 39 2c 31 39 32 2c  |..:(.23,229,192,|
00001ae0  31 34 34 2c 32 35 32 2c  32 35 32 2c 32 32 38 2c  |144,252,252,228,|
00001af0  33 32 2c 33 32 2c 33 32  0d 1b 44 23 ef 32 33 2c  |32,32,32..D#.23,|
00001b00  32 33 30 2c 32 34 2c 32  34 2c 32 34 2c 32 34 2c  |230,24,24,24,24,|
00001b10  32 34 2c 32 34 2c 32 34  2c 32 34 0d 1b 4e 1f ef  |24,24,24,24..N..|
00001b20  32 33 2c 32 33 31 2c 30  2c 30 2c 30 2c 30 2c 30  |23,231,0,0,0,0,0|
00001b30  2c 30 2c 32 35 35 2c 32  35 35 0d 1b 58 25 ef 32  |,0,255,255..X%.2|
00001b40  33 2c 32 33 32 2c 32 34  2c 32 34 2c 32 34 2c 32  |3,232,24,24,24,2|
00001b50  34 2c 32 34 2c 32 34 2c  32 35 35 2c 32 35 35 0d  |4,24,24,255,255.|
00001b60  1b 62 23 ef 32 33 2c 32  33 33 2c 30 2c 30 2c 36  |.b#.23,233,0,0,6|
00001b70  30 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 36 30  |0,126,126,126,60|
00001b80  2c 30 0d 1b 6c 3b 48 24  28 30 29 3d bd 33 32 2b  |,0..l;H$(0)=.32+|
00001b90  bd 32 32 34 2b bd 32 32  35 3a 48 24 28 31 29 3d  |.224+.225:H$(1)=|
00001ba0  bd 33 32 2b bd 32 32 36  2b bd 32 32 37 3a 48 24  |.32+.226+.227:H$|
00001bb0  28 32 29 3d bd 32 32 38  2b bd 32 32 39 0d 1b 76  |(2)=.228+.229..v|
00001bc0  35 46 24 3d bd 32 33 30  2b bd 33 32 3a 57 24 3d  |5F$=.230+.32:W$=|
00001bd0  46 24 2b bd 38 2b bd 38  2b bd 31 31 2b bd 32 33  |F$+.8+.8+.11+.23|
00001be0  32 2b bd 32 33 31 3a 50  24 3d bd 32 33 33 2b bd  |2+.231:P$=.233+.|
00001bf0  33 32 0d 1b 80 4f 46 25  28 31 29 3d 31 39 3a 46  |32...OF%(1)=19:F|
00001c00  25 28 32 29 3d 31 33 3a  46 25 28 33 29 3d 36 3a  |%(2)=13:F%(3)=6:|
00001c10  46 4c 25 3d 38 3a 5a 25  3d 33 32 33 3a 48 3d 30  |FL%=8:Z%=323:H=0|
00001c20  3a 57 4e 3d 30 3a e3 4a  3d 31 b8 36 3a 46 24 28  |:WN=0:.J=1.6:F$(|
00001c30  4a 29 3d 46 24 3a ed 4a  3a 58 25 3d 30 3a 4f 3d  |J)=F$:.J:X%=0:O=|
00001c40  30 0d 1b 8a 0a f2 4d 49  43 52 4f 0d 1b 94 23 fb  |0.....MICRO...#.|
00001c50  33 3a e3 4a 3d 39 b8 31  37 88 38 3a f1 8a 30 2c  |3:.J=9.17.8:..0,|
00001c60  4a 29 c4 32 30 2c bd 32  33 31 29 3a ed 4a 0d 1b  |J).20,.231):.J..|
00001c70  9e 28 e3 4a 3d 31 b8 33  3a e3 4b 3d 31 30 b8 31  |.(.J=1.3:.K=10.1|
00001c80  38 88 38 3a f1 8a 46 25  28 4a 29 2c 4b 29 46 24  |8.8:..F%(J),K)F$|
00001c90  3a ed 4b 3a ed 4a 0d 1b  a8 43 e3 4a 3d 31 b8 35  |:.K:.J...C.J=1.5|
00001ca0  3a 58 28 4a 29 3d 31 3a  59 28 4a 29 3d 31 31 2b  |:X(J)=1:Y(J)=11+|
00001cb0  4a 3a fb 33 3a f1 8a 30  2c 59 28 4a 29 29 3b 4a  |J:.3:..0,Y(J));J|
00001cc0  3b 3a fb 30 3a f1 8a 58  28 4a 29 2c 59 28 4a 29  |;:.0:..X(J),Y(J)|
00001cd0  29 48 24 28 32 29 3a ed  4a 0d 1b b2 2d f1 8a 32  |)H$(2):.J...-..2|
00001ce0  2c 32 34 29 22 46 55 52  4c 4f 4e 47 53 20 54 4f  |,24)"FURLONGS TO|
00001cf0  20 47 4f 20 22 3b 3a fb  33 3a f1 8a 31 37 2c 32  | GO ";:.3:..17,2|
00001d00  34 29 3b 46 4c 25 0d 1b  bc 3b f7 8d 64 41 5b 3a  |4);FL%...;..dA[:|
00001d10  e3 4a 3d 31 b8 39 3a f3  20 46 52 2c 44 55 3a d4  |.J=1.9:. FR,DU:.|
00001d20  31 2c 2d 31 35 2c 46 52  2c 44 55 3a ed 4a 3a e3  |1,-15,FR,DU:.J:.|
00001d30  54 3d 31 b8 32 30 30 30  3a ed 54 3a e5 8d 64 43  |T=1.2000:.T:..dC|
00001d40  5b 0d 1b c1 3a dc 31 32  30 2c 33 2c 31 34 31 2c  |[...:.120,3,141,|
00001d50  33 2c 31 35 35 2c 33 2c  31 36 39 2c 36 2c 31 35  |3,155,3,169,6,15|
00001d60  35 2c 36 2c 31 34 31 2c  33 2c 31 35 35 2c 33 2c  |5,6,141,3,155,3,|
00001d70  31 34 31 2c 33 2c 31 32  30 2c 33 0d 1b c3 4f e2  |141,3,120,3...O.|
00001d80  31 2c 32 2c 37 2c 30 2c  30 2c 38 2c 30 2c 30 2c  |1,2,7,0,0,8,0,0,|
00001d90  31 32 37 2c 30 2c 30 2c  30 2c 31 32 36 2c 30 3a  |127,0,0,0,126,0:|
00001da0  e2 32 2c 32 2c 37 2c 30  2c 30 2c 38 2c 30 2c 30  |.2,2,7,0,0,8,0,0|
00001db0  2c 31 32 37 2c 2d 31 2c  30 2c 2d 31 32 36 2c 31  |,127,-1,0,-126,1|
00001dc0  32 36 2c 30 3a 53 53 3d  36 34 0d 1b c6 1f fb 31  |26,0:SS=64.....1|
00001dd0  33 30 3a e3 4a 3d 31 32  b8 31 36 3a f1 8a 30 2c  |30:.J=12.16:..0,|
00001de0  4a 29 89 28 31 29 3a ed  4a 0d 1b d0 0c 52 52 3d  |J).(1):.J....RR=|
00001df0  b3 28 2d 91 29 0d 1b da  38 fb 33 3a e3 4a 3d 31  |.(-.)...8.3:.J=1|
00001e00  b8 33 3a f1 8a 46 25 28  4a 29 2c 31 30 29 3b 46  |.3:..F%(J),10);F|
00001e10  24 28 4a 29 3b 3a f1 8a  46 25 28 4a 29 2c 31 38  |$(J);:..F%(J),18|
00001e20  29 3b 46 24 28 4a 2a 32  29 3b 3a ed 4a 0d 1b e4  |);F$(J*2);:.J...|
00001e30  1b e7 58 25 3d 31 3a fb  31 3a f1 8a 46 25 28 33  |..X%=1:.1:..F%(3|
00001e40  29 2c 38 29 3b 50 24 3b  0d 1b ee 49 e3 4a 3d 31  |),8);P$;...I.J=1|
00001e50  b8 33 3a 46 25 28 4a 29  3d 46 25 28 4a 29 2d 31  |.3:F%(J)=F%(J)-1|
00001e60  3a e7 20 46 25 28 4a 29  3d 2d 31 20 8c 20 e3 4b  |:. F%(J)=-1 . .K|
00001e70  3d 31 30 b8 31 38 88 38  3a f1 8a 30 2c 4b 29 3b  |=10.18.8:..0,K);|
00001e80  89 28 32 29 3b 3a 46 25  28 4a 29 3d 31 39 3a ed  |.(2);:F%(J)=19:.|
00001e90  4b 0d 1b f8 24 ed 4a 3a  5a 25 3d 5a 25 2d 31 3a  |K...$.J:Z%=Z%-1:|
00001ea0  e7 5a 25 3d 31 35 8c 20  46 24 28 33 29 3d 57 24  |.Z%=15. F$(3)=W$|
00001eb0  3a 58 25 3d 31 0d 1c 02  4a e7 a8 28 5a 25 2f 34  |:X%=1...J..(Z%/4|
00001ec0  30 29 3d 5a 25 2f 34 30  20 8c 20 f1 8a 31 37 2c  |0)=Z%/40 . ..17,|
00001ed0  32 34 29 3b 46 4c 25 3b  3a 46 4c 25 3d 46 4c 25  |24);FL%;:FL%=FL%|
00001ee0  2d 31 3a d4 32 2c 31 2c  53 53 2c 37 3a d4 32 2c  |-1:.2,1,SS,7:.2,|
00001ef0  32 2c 53 53 2c 34 30 3a  53 53 3d 53 53 2b 33 0d  |2,SS,40:SS=SS+3.|
00001f00  1c 0c 1f 46 3d b3 28 32  30 29 3a fb 30 3a e3 4a  |...F=.(20):.0:.J|
00001f10  3d 31 b8 35 3a e7 4f 3d  31 8c 8d 54 6a 5c 0d 1c  |=1.5:.O=1..Tj\..|
00001f20  11 1f e7 4a 3d 46 20 8c  20 58 28 4a 29 3d 58 28  |...J=F . X(J)=X(|
00001f30  4a 29 2b 28 2e 34 2a 42  53 28 4a 29 29 0d 1c 16  |J)+(.4*BS(J))...|
00001f40  24 f1 8a 58 28 4a 29 2c  59 28 4a 29 29 3b 48 24  |$..X(J),Y(J));H$|
00001f50  28 48 29 3b 3a d4 26 31  31 2c 2d 31 35 2c 31 2c  |(H);:.&11,-15,1,|
00001f60  30 0d 1c 20 18 e7 b1 2d  32 3d 46 25 28 33 29 80  |0.. ...-2=F%(3).|
00001f70  58 25 3d 31 8c 20 4f 3d  31 0d 1c 2a 1a ed 4a 3a  |X%=1. O=1..*..J:|
00001f80  e7 4f 3d 30 8c 20 48 3d  48 20 82 20 31 3a e5 8d  |.O=0. H=H . 1:..|
00001f90  64 5a 5b 0d 1c 34 33 f1  8a 32 2c 32 34 29 89 28  |dZ[..43..2,24).(|
00001fa0  31 37 29 3b 3a 4d 58 3d  58 28 31 29 3a e3 4a 3d  |17);:MX=X(1):.J=|
00001fb0  32 b8 35 3a e7 58 28 4a  29 3e 4d 58 20 8c 20 4d  |2.5:.X(J)>MX . M|
00001fc0  58 3d 58 28 4a 29 0d 1c  3e 38 ed 4a 3a e3 4a 3d  |X=X(J)..>8.J:.J=|
00001fd0  31 b8 35 3a 57 28 4a 29  3d 30 3a 3a e7 a8 28 58  |1.5:W(J)=0::..(X|
00001fe0  28 4a 29 29 3d a8 28 4d  58 29 8c 20 57 28 4a 29  |(J))=.(MX). W(J)|
00001ff0  3d 31 3a 57 4e 3d 57 4e  2b 31 3a 4b 3d 4a 0d 1c  |=1:WN=WN+1:K=J..|
00002000  48 17 ed 4a 3a e7 57 4e  3d 31 8c 20 4a 3d 4b 3a  |H..J:.WN=1. J=K:|
00002010  e5 8d 44 70 5c 0d 1c 52  5e fb 30 3a f1 8a 34 2c  |..Dp\..R^.0:..4,|
00002020  32 34 29 22 50 48 4f 54  4f 20 46 49 4e 49 53 48  |24)"PHOTO FINISH|
00002030  22 3a 57 54 3d 31 30 30  3a f2 57 41 49 54 3a f1  |":WT=100:.WAIT:.|
00002040  8a 31 2c 32 36 29 22 4a  55 44 47 45 53 20 49 4e  |.1,26)"JUDGES IN|
00002050  20 53 45 53 53 49 4f 4e  22 3a 57 54 3d 33 30 30  | SESSION":WT=300|
00002060  3a f2 57 41 49 54 3a 52  4e 3d b3 28 57 4e 29 3a  |:.WAIT:RN=.(WN):|
00002070  4a 3d 30 0d 1c 5c 1c f5  3a 4a 3d 4a 2b 31 3a e7  |J=0..\..:J=J+1:.|
00002080  57 28 4a 29 3d 31 8c 20  52 4e 3d 52 4e 2d 31 0d  |W(J)=1. RN=RN-1.|
00002090  1c 66 0a fd 20 52 4e 3d  30 0d 1c 70 54 fb 31 3a  |.f.. RN=0..pT.1:|
000020a0  fb 31 33 31 3a f1 8a 35  2c 32 32 29 22 4e 6f 2e  |.131:..5,22)"No.|
000020b0  22 3b 4a 3b 22 20 57 49  4e 53 22 3a f1 8a 39 2c  |";J;" WINS":..9,|
000020c0  35 29 3b 4a 3b 3a e3 54  3d 31 30 30 b8 32 35 35  |5);J;:.T=100.255|
000020d0  88 37 3a d4 31 2c 2d 31  35 2c 54 2c 31 3a ed 54  |.7:.1,-15,T,1:.T|
000020e0  3a 57 54 3d 32 30 30 3a  f2 57 41 49 54 0d 1c 7a  |:WT=200:.WAIT..z|
000020f0  74 fb 32 3a fb 31 33 30  3a 3a f1 8a 34 2c 32 34  |t.2:.130::..4,24|
00002100  29 89 28 31 33 29 3b 3a  f1 8a 31 2c 32 36 29 89  |).(13);:..1,26).|
00002110  28 31 38 29 3b 3a fb 30  3a f1 8a 33 2c 32 34 29  |(18);:.0:..3,24)|
00002120  22 57 49 4e 4e 45 52 53  3a 20 22 3b 3a 4e 42 3d  |"WINNERS: ";:NB=|
00002130  30 3a e3 4b 3d 31 b8 4e  50 3a e7 50 42 4e 28 4b  |0:.K=1.NP:.PBN(K|
00002140  29 3d 4a 20 8c 20 f1 8a  31 31 2c 4e 42 2b 32 34  |)=J . ..11,NB+24|
00002150  29 3b 50 4e 24 28 4b 29  3b 3a 4e 42 3d 4e 42 2b  |);PN$(K);:NB=NB+|
00002160  31 0d 1c 7f 20 ed 4b 3a  e7 20 4e 42 3d 30 20 8c  |1... .K:. NB=0 .|
00002170  20 f1 20 8a 31 31 2c 32  34 29 22 4e 4f 4e 45 22  | . .11,24)"NONE"|
00002180  3b 0d 1c 81 12 57 54 3d  35 30 30 3a f2 57 41 49  |;....WT=500:.WAI|
00002190  54 3a e1 0d 1c 84 14 dd  f2 4d 49 43 52 4f 3a ef  |T:.......MICRO:.|
000021a0  35 3a f7 8d 74 58 5c 0d  1c 8e 45 e3 54 4c 3d 31  |5:..tX\...E.TL=1|
000021b0  b8 31 30 3a f3 4c 24 2c  4c 58 2c 4c 59 3a ec 4c  |.10:.L$,LX,LY:.L|
000021c0  58 2c 4c 59 3a e6 30 2c  30 3a f1 4c 24 3a ec 4c  |X,LY:.0,0:.L$:.L|
000021d0  58 2b 31 30 2c 4c 59 2b  31 30 3a e6 30 2c 33 3a  |X+10,LY+10:.0,3:|
000021e0  f1 4c 24 3a ed 54 4c 3a  ef 34 3a e1 0d 1c 98 68  |.L$:.TL:.4:....h|
000021f0  dc 4d 2c 33 34 30 2c 38  34 30 2c 49 2c 33 39 30  |.M,340,840,I,390|
00002200  2c 38 37 30 2c 43 2c 34  34 30 2c 39 30 30 2c 52  |,870,C,440,900,R|
00002210  2c 34 39 30 2c 39 33 30  2c 4f 2c 35 34 30 2c 39  |,490,930,O,540,9|
00002220  36 30 2c 44 2c 36 32 30  2c 39 36 30 2c 45 2c 36  |60,D,620,960,E,6|
00002230  37 30 2c 39 33 30 2c 52  2c 37 32 30 2c 39 30 30  |70,930,R,720,900|
00002240  2c 42 2c 37 37 30 2c 38  37 30 2c 59 2c 38 32 30  |,B,770,870,Y,820|
00002250  2c 38 34 30 0d 1c e8 0c  dd f2 53 54 41 54 55 53  |,840......STATUS|
00002260  0d 1c f2 1f ef 32 33 3b  38 32 30 32 3b 30 3b 30  |.....23;8202;0;0|
00002270  3b 30 3b 31 39 2c 30 2c  31 2c 30 2c 30 2c 30 0d  |;0;19,0,1,0,0,0.|
00002280  1c fc 2b ef 32 33 2c 32  32 34 2c 31 39 32 2c 31  |..+.23,224,192,1|
00002290  39 32 2c 31 39 32 2c 31  39 32 2c 31 39 32 2c 31  |92,192,192,192,1|
000022a0  39 32 2c 31 39 32 2c 31  39 32 0d 1d 06 1b ef 32  |92,192,192.....2|
000022b0  33 2c 32 32 35 2c 33 2c  33 2c 33 2c 33 2c 33 2c  |3,225,3,3,3,3,3,|
000022c0  33 2c 33 2c 33 0d 1d 10  1f ef 32 33 2c 32 32 36  |3,3,3.....23,226|
000022d0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 32 35 35  |,0,0,0,0,0,0,255|
000022e0  2c 32 35 35 0d 1d 1a 1f  ef 32 33 2c 32 32 37 2c  |,255.....23,227,|
000022f0  32 35 35 2c 32 35 35 2c  30 2c 30 2c 30 2c 30 2c  |255,255,0,0,0,0,|
00002300  30 2c 30 0d 1d 24 48 56  4c 24 3d 22 22 3a 56 52  |0,0..$HVL$="":VR|
00002310  24 3d 22 22 3a e3 4b 3d  31 b8 4e 50 2a 32 2b 33  |$="":.K=1.NP*2+3|
00002320  3a 56 4c 24 3d 56 4c 24  2b bd 32 32 34 2b bd 38  |:VL$=VL$+.224+.8|
00002330  2b bd 31 30 3a 56 52 24  3d 56 52 24 2b bd 32 32  |+.10:VR$=VR$+.22|
00002340  35 2b bd 38 2b bd 31 30  3a ed 4b 0d 1d 2e 1f 48  |5+.8+.10:.K....H|
00002350  54 24 3d c4 34 30 2c bd  32 32 36 29 3a 48 42 24  |T$=.40,.226):HB$|
00002360  3d c4 34 30 2c bd 32 32  37 29 0d 1d 38 58 e3 4b  |=.40,.227)..8X.K|
00002370  3d 31 b8 4e 50 3a e7 20  50 42 4e 28 4b 29 3d 4a  |=1.NP:. PBN(K)=J|
00002380  20 8c 20 50 42 24 28 4b  29 3d 22 57 4f 4e 20 20  | . PB$(K)="WON  |
00002390  22 3a 50 57 25 28 4b 29  3d 50 42 43 25 28 4b 29  |":PW%(K)=PBC%(K)|
000023a0  2a 4f 44 25 28 4a 29 3a  50 43 25 28 4b 29 3d 50  |*OD%(J):PC%(K)=P|
000023b0  43 25 28 4b 29 2b 50 57  25 28 4b 29 3a e5 8d 44  |C%(K)+PW%(K):..D|
000023c0  4c 5d 0d 1d 42 36 50 42  24 28 4b 29 3d 22 4c 4f  |L]..B6PB$(K)="LO|
000023d0  53 54 20 22 3a 50 57 25  28 4b 29 3d 50 42 43 25  |ST ":PW%(K)=PBC%|
000023e0  28 4b 29 3a 50 43 25 28  4b 29 3d 50 43 25 28 4b  |(K):PC%(K)=PC%(K|
000023f0  29 2d 50 57 25 28 4b 29  0d 1d 4c 06 ed 4b 0d 1d  |)-PW%(K)..L..K..|
00002400  56 2a f1 8a 38 2c 35 29  22 2a 2a 2a 20 46 49 4e  |V*..8,5)"*** FIN|
00002410  41 4e 43 49 41 4c 20 53  54 41 54 55 53 20 2a 2a  |ANCIAL STATUS **|
00002420  2a 22 3b 3a 51 51 3d 30  0d 1d 60 3a f1 8a 30 2c  |*";:QQ=0..`:..0,|
00002430  38 29 3b 48 54 24 3b 3a  f1 8a 30 2c 31 32 2b 4e  |8);HT$;:..0,12+N|
00002440  50 2a 32 29 3b 48 42 24  3b 3a f1 8a 30 2c 39 29  |P*2);HB$;:..0,9)|
00002450  3b 56 4c 24 3b 3a f1 8a  33 39 2c 39 29 3b 56 52  |;VL$;:..39,9);VR|
00002460  24 3b 0d 1d 6a 4d e3 4b  3d 31 b8 4e 50 3a f1 8a  |$;..jM.K=1.NP:..|
00002470  31 2c 39 2b 4b 2a 32 29  3b 50 4e 24 28 4b 29 3b  |1,9+K*2);PN$(K);|
00002480  3a e7 50 43 25 28 4b 29  3c 31 8c f1 8a 39 2c 39  |:.PC%(K)<1...9,9|
00002490  2b 4b 2a 32 29 3b 22 53  6f 72 72 79 20 79 6f 75  |+K*2);"Sorry you|
000024a0  27 72 65 20 6f 75 74 22  3b 3a e5 8d 44 7e 5d 0d  |'re out";:..D~].|
000024b0  1d 74 4e f1 8a 39 2c 39  2b 4b 2a 32 29 3b 22 59  |.tN..9,9+K*2);"Y|
000024c0  6f 75 20 22 3b 50 42 24  28 4b 29 3b 22 60 22 3b  |ou ";PB$(K);"`";|
000024d0  50 57 25 28 4b 29 3b 8a  32 33 2c 39 2b 4b 2a 32  |PW%(K);.23,9+K*2|
000024e0  29 3b 22 2d 20 59 6f 75  20 68 61 76 65 20 60 22  |);"- You have `"|
000024f0  3b 50 43 25 28 4b 29 3b  3a 51 51 3d 31 0d 1d 7e  |;PC%(K);:QQ=1..~|
00002500  06 ed 4b 0d 1d 83 3b e7  51 51 3d 30 20 f1 8a 35  |..K...;.QQ=0 ..5|
00002510  2c 31 34 2b 32 2a 4b 29  3b 22 45 56 45 52 59 4f  |,14+2*K);"EVERYO|
00002520  4e 45 27 53 20 42 52 4f  4b 45 20 2d 20 47 41 4d  |NE'S BROKE - GAM|
00002530  45 20 4f 56 45 52 22 3b  3a e5 8d 74 5c 5d 0d 1d  |E OVER";:..t\]..|
00002540  88 3c f5 3a f1 8a 35 2c  31 34 2b 32 2a 4b 29 3b  |.<.:..5,14+2*K);|
00002550  22 50 52 45 53 53 20 53  50 41 43 45 20 42 41 52  |"PRESS SPACE BAR|
00002560  20 54 4f 20 42 45 54 20  41 47 41 49 4e 22 3b 3a  | TO BET AGAIN";:|
00002570  41 3d a5 3a fd 20 41 3d  33 32 0d 1d 92 05 e1 0d  |A=.:. A=32......|
00002580  1d 9c 3f f5 3a f1 8a 34  2c 31 36 2b 32 2a 4b 29  |..?.:..4,16+2*K)|
00002590  3b 22 50 52 45 53 53 20  53 50 41 43 45 20 42 41  |;"PRESS SPACE BA|
000025a0  52 20 46 4f 52 20 41 20  4e 45 57 20 47 41 4d 45  |R FOR A NEW GAME|
000025b0  22 3b 3a 41 3d a5 3a fd  41 3d 33 32 3a f9 0d ff  |";:A=.:.A=32:...|
000025c0
DERBY.m0
DERBY.m1
DERBY.m2
DERBY.m4
DERBY.m5