    1REM  >  DonMcD.Lotto.Keno.Ken20dd80
    2MODE 0
    3FOR d = 1 TO 3
    4PRINT "Bas V Progm DonMcD.Lotto.Keno.Ken20dd80, 5/11/94, 0300."
    5NEXT d
    6PRINT'"Keno Lotto, NZ 31/10/1994.  Draw 20 nos. from 1 to 80." ' "  Select max 10 Group. 0 to 10 Match." '
    7DATA 2,10
    8    DATA 2,20
    9    DATA 3,150
   10    DATA 2,20,300
   11    DATA 2,3,40,1000
   12    DATA 2,4,500,4000
   13    DATA 2,4,100,500,10000
   14    DATA 2,3,10,200,2000,50000
   15    DATA 3,2,5,50,500,20E3,250E3
    8denom = 1
    9FOR g = 1 TO 10
   10denom  = denom * (81-g)/g
   11PRINT '  "group= "; g " ..              (denom=  "; denom ")"
   12t2 = 1
   13total = 0
   14   return = 0
   14
   15FOR m = 0 TO g
   16t6 = 1
   17IF m>0 THEN   t2 = t2*(21-m)/m :      REM  matches
   18
   19FOR mm = 0 TO (g-m)
   20IF mm > 0 THEN t6 = t6*(61- mm)/mm   :REM  mis-matches ??
   21NEXT mm
   22IF ( m >= (g+5) DIV 3 ) OR (g*m = 1)  OR  (g= 10 AND m=0) THEN
   23        t26 = denom/(t2*t6)
   24                READ pay
   25                total += 1/ t26
   26                return += pay/t26 
   27
   24        PRINT "    match= ";m "   odds 1: " .01* INT(100*t26+.5 ) TAB(38) " pay$= "pay "    return " .1* INT(1000*return+.5) " cents."
   25        ENDIF
   26NEXT m
   27PRINT "        .. odds 1: "; 1/total",  bank favour factor= " .01*INT(100/return+.5)  " contin.";GET$
   28NEXT g
   29PRINT "Prog Ken20dd80  e n d.  "
   30STOP