10 MODE7
   20 REM"…FOOTBALL POOLS PROGRAM  
   30 REM"…  BY RUSHDEN ROY    
   40 REM"…A 'L' PLATE PROGRAMMER!!
   50 ON ERROR CLS: GOTO 200
   60 CLS
   70 PRINT''
   80 VDU23,1,0;0;0;0; 
   90 PRINT"“7`+47``57k`5 ````` PROGRAM BY ````````"
  100 PRINT"’5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k" 
  110 PRINT"‘uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5"
  120 PRINT"“ppppppppppp upp5u5upp5uzp5upp5u7t5upp5"
  125 REM   (Thanks to RAFAEL JAY for my              name display.)
  130 PRINTTAB(0,10)CHR$(141)CHR$(134)" A FOOTBALL COUPON (TREBLE CHANCE)"
  140 PRINTTAB(0,11)CHR$(141)CHR$(134)" A FOOTBALL COUPON (TREBLE CHANCE)"
  150 PRINTCHR$(141)CHR$(134)" PROGRAM TO HELP YOU FIND THE RIGHT"
  160 PRINTCHR$(141)CHR$(134)" PROGRAM TO HELP YOU FIND THE RIGHT"
  170 PRINTCHR$(141)CHR$(134)"     PERMUTATION FOR THE POOLS." 
  180 PRINTCHR$(141)CHR$(134)"     PERMUTATION FOR THE POOLS."  
  190 TIME=0:REPEAT UNTIL TIME>300
  200 CLS
  210 PRINTTAB(0,4)"‡        —h|||||||||||||||||||4"
  220 PRINT"        —&j‘fffffffffffffffff—5"  
  230 PRINT"       —& j‘99999999999999999—5" 
  240 PRINT"—pppppp&  j‘fffffffffffffffff—5pppppppp"
  250 PRINT"•POOLS—1  j‘99999999999999999—5…COUPON"
  260 PRINT"—``````$ —j‘&&&&&&&&&&&&&&&&&—5````````"  
  270 PRINT"‚||||||||||||||||||||||||||||||||||||||" 
  280 PRINT"‚||||||||||||||||||||||||||||||||||||||"
  290 PRINTTAB(0,14)CHR$(134)"1, For a little information."
  300 PRINTTAB(0,16)CHR$(134)"2, This will give you e.g.""8 from 14""." 
  310 PRINTTAB(0,18)CHR$(134)"3, This will give fictitious results."
  320 PRINTTAB(0,20)CHR$(134)"4, Seven columns of random numbers."
  330 VDU23,1,0;0;0;0;  
  340 PROCSC(0,1,"ˆ0-0DRAW‰ 1-0HOME ˆ1-1DRAW‰ 1-2AWAY ",5,20)  
  350 ENDPROC
  360 DEF PROCSC(X,Y,A$,C,N):B$=A$+A$:FOR A=1 TO N:C=1:FOR S=1TOLENA$:FORA=1TO50:NEXT
  370 PRINTTAB(X,Y);CHR$(131)MID$(B$,S,LEN A$):NEXT S:NEXT A:
  380 VDU23,1,1;0;0;0; 
  390 INPUTTAB(0,23)"CHOOSE A NUMBER(1to4)THEN <RETURN> "ch
  400 IFch<1ORch>4:VDU7:GOTO 390
  410 ON ch GOTO420,650,1280,1810
  420 CLS:PRINT
  430 PRINTCHR$(129)"  FOOTBALL COUPON (TREBLE CHANCE)"
  440 PRINT"  With a football'Treble Chance'coupon" 
  450 PRINT"the aim is to get eight score draws" 
  460 PRINT"(e.g.1-1 ,2-2 etc.) in one line. This"
  470 PRINT"would pay a first dividend."
  480 PRINT"  The best way to get complete full"
  490 PRINT"cover is to do a ""ANY EIGHT FROM ....""   permutation (2 on menu). Try also 'ANY  2 FROM...' and 'ANY 4 FROM...'"
  500 PRINT"  This program does not forcast results"
  510 PRINT"for you it just gives you random ideas."
  520 PRINT"  The random numbers (matches) is 58"
  530 PRINT"which is a normal total on the coupons."
  540 PRINT"  The stake used is the usual on the"
  550 PRINT"three main coupons per line."    
  560 PRINT"  That is 1.2p , 0.33p and 0.10p. "
  570 PRINT"  Please dont blame me if you dont win!"
  580 PRINT"But if you do win then please let me"
  590 PRINT"know by sending a small sum towards my"
  600 PRINT"long overdue upgrade!! To...."
  610 PRINT"   ....R.D.DICKENS RUSHDEN NN1O OEB.       Best of luck."
  620 PRINT"       ƒƒPRESS SPACE FOR MENU" 
  630 IF GET$=" "THEN 200
  640 IF GET$<>" "GOTO620  
  650 CLS:PRINT
  660 PRINTCHR$(134)"FIND THE RIGHT ""PERM"" FOR THE POOLS"
  670 PRINTTAB(0,3)CHR$(134)"a,  HOW MANY SELECTIONS "
  680 PRINTTAB(0,4)CHR$(132)"(a, must be less than b, max.20)"
  690 PRINTTAB(0,5)CHR$(134)"b,  FROM HOW MANY SELECTIONS ?"
  700 PRINTTAB(0,6)CHR$(132)"(b, must be larger than a, max 58)"
  710 PRINTTAB(4,7)CHR$(132)"e.g.ANY 8 FROM 10"  
  720 INPUTTAB(30,3)"? "a_n 
  730 IF a_n>20 THEN GOTO650
  740 INPUTTAB(30,5)"? "f_n   
  750 IF f_n>58 THEN GOTO650 
  760 IFa_n>=f_nTHENPRINTTAB(0,7)CHR$(136)CHR$(129)" a, MUST BE LESS THAN b, "CHR$(137):VDU7:FORT=0TO6000:NEXTT:GOTO650
  770 G=1:FORh=f_nTOf_n-a_n+1STEP-1
  780 G=G*h:NEXTh:F=1
  790 FORi=a_nTO1STEP-1
  800 F=F*i:NEXTi:@%=&E
  810 PRINTTAB(0,10)CHR$(134)"ANY";CHR$(133)a_n;CHR$(134)" SELECTIONS FROM";CHR$(133)f_n;CHR$(134)" SELECTIONS"
  820 PRINT
  830 PRINTTAB(10,12)CHR$(134)"= ";CHR$(133)G/FCHR$(134)" LINES."
  840 @%=&2020A
  850 IFa_n<>8THEN890
  860 PRINT'CHR$(131)"Cost @ 1.2p per line = `";(G/F)*1.2/100
  870 PRINTCHR$(131)"Cost @ 0.33p per line = `";(G/F)*.3333/100
  880 PRINTCHR$(131)"Cost @ 0.10p per line = `";(G/F)*.10/100
  890 @%=&0=&E
  900 IFa_n=8THENPROCeight
  910 IFa_n=4THENPROCfour
  920 IFa_n=2THENPROCtwo
  930 PRINTTAB(0,24)"ƒ'SPACE'for another go.'ESC'for MENU":REPEATUNTILGET$=" ":GOTO650  
  940 END
  950 DEFPROCfour
  960 PRINTCHR$(134)"With any 4 from ";f_n;" you could put on"
  970 PRINTCHR$(134)"the coupon,two columns of ";f_n;CHR$(134)"different"
  980 PRINTCHR$(134)"selections (total "f_n+f_n;CHR$(134)") and write....."
  990 PRINT
 1000 PRINTCHR$(133)" ""ANY 4 SELECTIONS FROM EACH COLUMN"
 1010 PRINTCHR$(133)"    = "G/F" X "G/F" = "G/F*G/F;" LINES ="
 1020 @%=&2020A
 1030 PRINTCHR$(133)"`";(G/F)^2*(1.2/100)CHR$(134)"OR"CHR$(133)"`";(G/F)^2*(.3333/100)CHR$(134)"OR"CHR$(133)"`";(G/F)^2*(.10/100)" STAKED"""
 1040 PRINT"(ˆE&OE.‰Check before you send coupon!!)"  
 1050 ENDPROC
 1060 END
 1070 DEFPROCeight
 1080 PRINTCHR$(134)"With any 8 from ";f_n;" you could put on"
 1090 PRINTCHR$(134)"the coupon,one column of ";f_n;CHR$(134)"different"
 1100 PRINTCHR$(134)"selections and write....."
 1110 PRINTCHR$(133)"    ""ANY 8 SELECTIONS FROM "f_n
 1120 PRINTCHR$(133)"     SELECTIONS = "G/F;" LINES ="
 1130 @%=&2020A
 1140 PRINTCHR$(133)"`";(G/F)*(1.2/100)CHR$(134)"OR"CHR$(133)"`";(G/F)*(.3333/100)CHR$(134)"OR"CHR$(133)"`";(G/F)*(.10/100)" STAKED"""
 1150 PRINT"(ˆE&OE.‰Check before you send coupon!!)"
 1160 ENDPROC
 1170 DEFPROCtwo
 1180 PRINTCHR$(134)"With any 2 from ";f_n;" you could put on"
 1190 PRINTCHR$(134)"the coupon,four columns of ";f_n;CHR$(134)"different"
 1200 PRINTCHR$(134)"selections (total "f_n*4;CHR$(134)") and write....."
 1210 PRINT
 1220 PRINTCHR$(133)" ""ANY 2 SELECTIONS FROM EACH COLUMN"
 1230 PRINTCHR$(133)" = "G/F" X "G/F" X "G/F" X "G/F" = "(G/F)^4;" LINES ="
 1240 @%=&2020A
 1250 PRINTCHR$(133)"`";(G/F)^4*(1.2/100)CHR$(134)"OR"CHR$(133)"`";(G/F)^4*(.3333/100)CHR$(134)"OR"CHR$(133)"`";(G/F)^4*(.10/100)" STAKED"""
 1260 PRINT"(ˆE&OE.‰Check before you send coupon!!)"
 1270 ENDPROC
 1280 CLS
 1290 PRINTTAB(8,2)CHR$(134)"A FOOTBALL COUPON TREBLE CHANCE"
 1300 PRINTTAB(10,3)CHR$(134)"RESULTS (DRAWS) SIMULATION"
 1310 PRINTTAB(15,4)CHR$(134)"(By Roy Dickens)"
 1320 PRINTTAB(9,5)"This program is based on random"
 1330 PRINTTAB(9,6)"only, not skill.Enter the total"
 1340 PRINTTAB(9,7)"amount of draws between 2 & 20"
 1350 PRINTTAB(9,8)"that you think there will be."
 1360 PRINTTAB(9,9)"(The score draws will show on"
 1370 PRINTTAB(9,10)"average about 3 to every 1 non-"
 1380 PRINTTAB(9,11)"score draws)"
 1390 PRINTTAB(12,21)CHR$(136)"ƒPress"CHR$(137)"A KEY to continue"
 1400 PRINTTAB(12,22)" ƒPress 'ESCAPE'for menu"
 1410 Z=GET:sc=0:non=0 
 1420 PRINTTAB(9,21)"                              "
 1430 PRINTTAB(0,22)"ƒLIKELY TOTAL OF""SCORE""&""NON-SCORE""DRAWS"
 1440 INPUTTAB(0,23)"…    Enter total between 2 and 20 ? "numbX
 1450 IFnumbX<2ORnumbX>20VDU7:PRINTTAB(0,23)"                                       ":GOTO1440
 1460 numb=numbX
 1470 DIMD(numb),check$(58)
 1480 FORN=1TOnumb
 1490 REPEAT
 1500 D(N)=INT(58*RND(1)+1)
 1510 UNTILcheck$(D(N))<>"*"
 1520 check$(D(N))="*"
 1530 NEXTN
 1540 CLS
 1550 PRINT"„RESULTS":PRINT"„SOON..."
 1560 FORA=1TOnumb-1
 1570 FORB=1TOnumb-A
 1580 IFD(B)<=D(B+1)THEN1620
 1590 T=D(B)
 1600 D(B)=D(B+1)
 1610 D(B+1)=T
 1620 NEXTB:NEXTA:CLS:PRINT
 1630 FORN=1TOnumb
 1640 @%=3
 1650 PRINTTAB(0)CHR$(129)D(N)
 1660 NEXTN:PRINT
 1670 FORN=1TOnumb
 1680 nonscore=RND(4)
 1690 IFnonscore=1ORnonscore=2ORnonscore=3THENPRINTTAB(4,(N))CHR$(135)"X"ELSEPRINTTAB(5,(N))CHR$(135)"O"
 1700 IFnonscore=1ORnonscore=2ORnonscore=3THENsc=sc+1
 1710 IFnonscore=4THENnon=non+1
 1720 NEXTN
 1730 PRINTTAB(8,13)CHR$(134)"With";CHR$(129)58;CHR$(134)"teams on the coupon and"
 1740 PRINTTAB(8,14)CHR$(134)"the likely total of";CHR$(129)numb;CHR$(134)"draws,"
 1750 PRINTTAB(8,15)CHR$(134)"you may have....."
 1760 PRINTTAB(12,17)CHR$(129)sc,CHR$(134);"SCORE DRAWS (X)"
 1770 PRINTTAB(22,18)CHR$(134)"and"
 1780 PRINTTAB(12,19)CHR$(129)non;CHR$(134);" NON-SCORE DRAWS (O)"
 1790 CLEAR
 1800 GOTO1290
 1810 DIMB%(100)
 1820 VDU23,1,1;0;0;0;
 1830 CLS
 1840 PRINTCHR$(141)CHR$(130)"          RANDOM NUMBERS"
 1850 PRINTCHR$(141)CHR$(134)"          RANDOM NUMBERS"
 1860 PRINTCHR$(134)"This part of the program will give"
 1870 PRINTCHR$(134)"you random numbers (1 to 58) in "
 1880 PRINTCHR$(134)"seven columns." 
 1890 PRINTCHR$(134)"If your not using skill in your "
 1900 PRINTCHR$(134)"selection of teams then maybe these"
 1910 PRINTCHR$(134)"lists will be lucky for you!!!"
 1920 PRINT''
 1930 INPUTTAB(0,20)"…HOW MANY SELECTIONS (1 TO 20)? "selections
 1940 IFselections<1 OR selections>20THENPRINTTAB(19,20)CHR$(136)"(1 TO 20)?":VDU7:FORT=0TO4000:NEXTT:GOTO1830 
 1950 CLS
 1960 VDU23,1,0;0;0;0;
 1970 @%=&2
 1980 FORcol=1TO7
 1990 FORdr=1TOselections
 2000 B%(dr)=RND(58)
 2010 l=0
 2020 FORen=0TOdr-1
 2030 IFB%(en)=B%(dr)THENdr=dr-1:l=1
 2040 NEXTen
 2050 IFl=0THENPRINTTAB(col*5,dr)CHR$(134)B%(dr) 
 2060 NEXTdr:NEXTcol
 2070 PRINTTAB(0,21)"‚YOUR SEVEN COLUMNS OF "dr-1" RANDOM NUMBERS"
 2080 CLEAR
 2090 PRINTTAB(0,23)"ƒ'SPACE'for another go.'ESCAPE'for menu":REPEATUNTILGET$=" ":GOTO1810