10 REM Form Master
   20 REM By S.Johnson
   30 REM June 91
   40 MODE7
   50 VDU23;10,32;0;0;0;
   60 PROCheader
   70 w=0
   80 IF G=50 THEN MODE0:PROCtext
   90 IF G=32 THEN GOTO 40
  100 MODE1
  110 COLOUR2
  120 INPUT TAB(0,4)"Prize Value of Today's Race ";pt
  130 INPUT TAB(0,7)"Number of Runners ";r
  140 w=w+1
  150 IFw=1 THEN PROCinit
  160 PROCinput
  170 MODE7
  180 VDU23;10,32;0;0;0;:CLS
  190  PRINTTAB(8,12)CHR$(141)CHR$(131);"PLEASE WAIT"
  200  PRINTTAB(8,13)CHR$(141)CHR$(131);"PLEASE WAIT"
  210 PROCsort
  220 PROCresults
  230 C=INKEY(200)
  240 PRINTTAB(3,21)CHR$(131)CHR$(157)CHR$(132)" Enter Another Race (Y/N)"SPC3CHR$(156)
  250 G=GET
  260 IF G=89 OR G=121 THEN GOTO 100
  270 CLS:*BASIC
  280 END
  290 DEFPROCinput
  300 FOR f=1TOr
  310 t=0:x=0:y=25:x$="X":y$="X":pb=0
  320 COLOUR132
  330 CLS
  340 COLOUR3
  350 PRINTTAB(16,2)"HORSE ";f
  360 COLOUR2
  370 PRINTTAB(2,6)"1st form figure";TAB(2,9)"2nd form figure"
  380 PRINTTAB(2,12)"Horse's Name"
  390 PRINTTAB(2,15)"Course & Distance"
  400 PRINTTAB(2,18)"Days since last run"
  410 PRINTTAB(2,21)"Won on todays going(Y/N)"
  420 PRINTTAB(2,24)"Prize Value of latest run"
  430 INPUTTAB(28,6);x
  440 PROCscore
  450 a(f)=x
  460 PRINTTAB(28,6)" ";a(f)
  470 INPUTTAB(28,9);x
  480 PROCscore
  490 b(f)=x
  500 PRINTTAB(28,9)" ";b(f)
  510 x=0
  520 INPUTTAB(20,12);n$(f)
  530 IF LEN(n$(f))>15 THEN SOUND 0,-15,10,10:PRINTTAB(20,14)SPC25:GOTO520
  540 PRINTTAB(20,12)" ";n$(f)
  550 INPUTTAB(28,15);x$
  560 PROCscore
  570 cd$(f)=x$
  580 PRINTTAB(28,15)" ";cd$(f)
  590 x$="X"
  600 INPUTTAB(28,18);y
  610 PROCscore
  620 PRINTTAB(28,18)" ";y
  630 y=25
  640 INPUTTAB(28,21);y$
  650 PROCscore
  660 PRINTTAB(28,21)" ";y$
  670 y$="X"
  680 INPUTTAB(28,24);pb
  690 PROCscore
  700 t(f)=t
  710 COLOUR1:COLOUR132
  720 VDU23;10,32;0;0;0;
  730 PRINTTAB(4,30)"Do You Wish To Change Any (Y/N)"
  740 G=GET
  750 VDU23;10,114;0;0;0;
  760 IF G=89 OR G=121 GOTO 310
  770 NEXTf
  780 ENDPROC
  790 DEFPROCscore
  800 IF x=1 THEN t=t+30
  810 IF x=2 THEN t=t+24
  820 IF x=3 THEN t=t+16
  830 IF x=4 THEN t=t+8
  840 IF x$="C" OR x$="c" THEN t=t+8
  850 IF x$="D" OR x$="d" THEN t=t+12
  860 IF x$="C,D" OR x$="c,d" THEN t=t+16
  870 IF x$="C&D" OR x$="c&d" THEN t=t+24
  880 IF y<21 THEN t=t+8
  890 IF y$="Y" OR y$="y" THEN t=t+8
  900 IF pt<pb THEN t=t+8:ENDPROC
  910 IF (pt-pb)<=1000 THEN t=t+4:ENDPROC
  920 ENDPROC
  930 DEFPROCsort
  940 LOCAL f
  950 LOCAL g
  960 FOR f=0TOr-1
  970 FOR g=f+1TOr
  980  IF t(f)>t(g) THEN 1000
  990  tf=t(f):af=a(f):bf=b(f):nf$=n$(f):cdf$=cd$(f):t(f)=t(g):a(f)=a(g):b(f)=b(g):n$(f)=n$(g):cd$(f)=cd$(g):t(g)=tf:a(g)=af:b(g)=bf:n$(g)=nf$:cd$(g)=cdf$
 1000 NEXTg
 1010 NEXTf
 1020 ENDPROC
 1030 DEFPROCresults
 1040 C=INKEY(300)
 1050 CLS
 1060 VDU23;10,32;0;0;0;
 1070 PRINTTAB(1,21)CHR$(131)CHR$(157)CHR$(132)" Send Ratings To Printer (Y/N)"SPC3CHR$(156)
 1080 G=GET
 1090 IF G=89 OR G=121 THEN PROCprint
 1100 CLS
 1110  PRINTTAB(10) CHR$(141)CHR$(129)CHR$(157)CHR$(135)" RATINGS"SPC3CHR$(156)TAB(10)CHR$(141)CHR$(129)CHR$(157)CHR$(135)" RATINGS"SPC3CHR$(156)
 1120 FORf=0TOr-1
 1130 PRINTTAB(2,f+5)CHR$(131);a(f);b(f);TAB(6,f+5)n$(f);TAB(23,f+5)cd$(f);TAB(31,f+5)CHR$(134)t(f)
 1140 NEXTf
 1150 t(0)=0
 1160 ENDPROC
 1170 DEFPROCinit
 1180 DIM a(r),b(r),n$(r),cd$(r),t(r)
 1190 ENDPROC
 1200 DEFPROCprint
 1210 VDU2:PRINT':VDU3:A=INKEY(10):IF ADVAL(-4)<63 PRINTTAB(6,22)CHR$(132)CHR$(157)CHR$(131)" Printer Not On Line"SPC3CHR$(156):C=INKEY(250):GOTO 1040
 1220 VDU2
 1230 FORf=0TOr-1
 1240 PRINT a(f);b(f);"  ";n$(f);SPC(23-LEN(n$(f)));cd$(f);SPC(7-LEN(cd$(f)));t(f)
 1250 NEXTf
 1260 VDU3
 1270 ENDPROC
 1280  DEFPROCheader
 1290 VDU23;10,32;0;0;0;
 1300  PRINTTAB(8,9)CHR$(141)CHR$(131);"1. FORM MASTER"
 1310  PRINTTAB(8,10)CHR$(141)CHR$(131);"1. FORM MASTER"
 1320  PRINTTAB(8,12)CHR$(141)CHR$(134);"2. INSTRUCTIONS"
 1330  PRINTTAB(8,13)CHR$(141)CHR$(134);"2. INSTRUCTIONS"
 1340 G=GET
 1350 IF G<49 OR G>50 THEN GOTO 1340
 1360 ENDPROC
 1370 DEFPROCtext
 1380 VDU14
 1390 PRINT"Press SHIFT to scroll screen"
 1400 *TYPE FORMINS
 1410 G=GET
 1420 IF G=32 THEN CLS:ENDPROC
 1430 IF G<32 OR G>32 THEN GOTO 1410
 1440 ENDPROC