	
 KENO ACCORDING TO PAYOFFS OF	 MGM GRAND CASINO LAS VEGAS JAN 1976
 WRITTEN BY G.W.FLEMMING MEMBER SCCS4
( MODIFIED BY ED HALLW
2RA(W,MAKEPOINTER(@,))z
<SA(W,MAKEPOINTER(B,))
FA(W,MAKEPOINTER(RA,SA))
P (A)
Z ()
d );$$$$$ K E N O $$$$$n ();();(););     $$$$$$$$$;()x ();();();();()S DO YOU WANT INSTRUCTIONS;D$l (D$,)N  ,: EACH PLAY WILL COST YOU $1. YOU MAY SELECT FROM 1 TO 15 NUMBERS TO PLAY. WHEN ASKED FOR YOUR NUMBERS, TYPE IN EACH NUMBER SEPARATED BY COMMAS.N IF YOU ACCIDENTILY PLACE A COMMA AFTER YOUR LAST NUMBER, THE COMPUTER WILL TELL YOU THAT THE EXTRA NUMBER WAS IGNORED (IN THIS CASE, THE EXTRA WAS A SPACE). IF YOU PUT IN MORE NUMBERS THAN ARE NEEDED,4
 ONLY THE FIRST REQUIRED ONES WILL BE USED. IFn
 YOU DON'T ENTER ENOUGH NUMBERS, THE COMPUTER WILL
 RESPOND WITH '??'. ENTER THE REQUIRED EXTRA NUMBERS.
:       THE COMPUTER WILL BE CHOOSING 20 NUMBERS AT RANDOM FROM NUMBER 1 TO NUMBER 80.T: TO QUIT, TYPE '0' WHEN ASKED HOW MANY NUMBERS YOU WANT.|:: G O O D   L U C K     :, A(),H(P)6 IS THIS A CONTINUATION OF AN OLD GAME;A$@ (A$,)N  ^J HOW MANY DOLLARS WERE LEFT;ST r^E=h HOW MUCH CASH DID YOU BRING;SErWSO|Q:c INPUT NUMBERS HOW MANY NUMBERS DO YOU WANT;T T   YOUR NUMBERS:  T   A() T   A(),A() T   A(),A(),A() T   A(),A(),A(),A()B T   A(),A(),A(),A(),A()n T   A(),A(),A(),A(),A(),A() T   A(),A(),A(),A(),A(),A(),A() T   A(),A(),A(),A(),A(),A(),A(),A()
 T   FIRST FIVE:;A(),A(),A(),A(),A()9 T   LAST FOUR:;A(),A(),A(),A()o T
   FIRST FIVE:;A(),A(),A(),A(),A() T
   LAST FIVE:;A(),A(),A(),A(),A(
) T   FIRST FIVE:;A(),A(),A(),A(),A()0 T   LAST SIX:;A(),A(),A(),A(),A(
),A()P: T   FIRST SIX:;A(),A(),A(),A(),A(),A()D T   LAST SIX:;A(),A(),A(),A(
),A(),A()N T
   FIRST FIVE:;A(),A(),A(),A(),A()X T
   NEXT FIVE:;A(),A(),A(),A(),A(
)'b T
   LAST THREE:;A(),A(),A(
)]l T   FIRST FIVE:;A(),A(),A(),A(),A()v T   NEXT FIVE:;A(),A(),A(),A(),A(
) T   LAST FOUR:;A(),A(),A(
),A() T   FIRST FIVE:;A(),A(),A(),A(),A()3 T   NEXT FIVE:;A(),A(),A(),A(),A(
)m T   LAST FIVE:;A(),A(),A(
),A(),A()} R  T MR  T A(R)A(M)   A(R)P   M R  YOU HAVE DUPLICATED NUMBERS. TRY AGAIN. ; YOU HAVE A NUMBER TOO LARGE. TRY AGAIN.E MNTz  X  : SELECT 20 NUMBERS AT RANDOM*H(X)(P)4 Y  (X)> H(X)H(XY)  *H YR X\ DETERMINE HOW MANY WINNERSf X  Np Y  z A(X)H(Y)  QQ' Y XF DETERMINE PAYOFFW N  i Q  WWz N   Q  WW N   Q  WW Q  WW+ N   Q  WW Q  WW Q  WWr N  82 Q  WW@H$ Q  WW,^. Q  WWro8 N  jB Q  WWL Q  WWV Q  WW+ Q  WWpDj N  t Q  WW Q  WW@ Q  WW,, Q  WW@$@ Q  WWQ N  g Q  WW} Q  WW+ Q  WWk Q  WWE N   Q  WW Q  WW Q  WW+ Q  WW
 Q  WW Q  WWEA N
  dS( Q  WWf2 Q  WWy< Q  WWF Q  WWP Q  WWZ Q
  WWEd N  n Q  WWx Q  WW Q  WW Q  WWe. Q  WWC Q
  WW)X Q  WWEj N  | Q  WW Q  WW Q  WWd Q  WW Q  WW Q
  WW2 Q  WW Q  WWa  N
  h6 Q  WW@I Q  WW_, Q  WWu6 Q  WW)@ Q
  WW8_J Q  WWHT Q  WW6_^ Q
  WWah N  r Q  WW| Q  WW Q  WW|. Q  WWC Q
  WWX Q  WW)m Q  WW) Q
  WWi' Q  WWa N  D Q  WW@ Q  WW Q  WW, Q  WWk Q
  WW( Q  WW_= Q  WWT Q
  WWi'i Q  WWa0 Q  WWa: PRINT GAME RESULTSD MY NUMBERS WERE: NX X  
b H(X);l Xv X   H(X); X$: : WW:  SUBTRACT BET.EEd W  W   YOU HAD ;Q;RIGHT, BUT NOW YOU W  W   DON'T HAVE ENOUGH TO BET. W  W    W   YOU HAD;Q;RIGHT, BUT NOW YOU'RE BROKE. W  1 YOU HAD ;Q;RIGHT. YOU NOW HAVE ;W;DOLLARS LEFT.; |h COME BACK AGAIN. BRING MORE MONEY TOTAL TURNS ;E TOTAL MONEY LEFT ;W4;