C-8K FOCAL @1969

20.01 T "ONE ARMED BANDIT - PDP-8 STYLE" !
20.02 T "  BAR    BAR    BAR   PAYS $1000 JACKPOT!" !
20.03 T " BELL   BELL   BELL   PAYS $500" !
20.04 T "GRAPEF GRAPEF GRAPEF  PAYS $200" !
20.05 T " PLUM   PLUM   PLUM   PAYS $100" !
20.06 T " APPLE  APPLE  APPLE  PAYS $100" !
20.07 T "ORANGE ORANGE ORANGE  PAYS $50" !
20.08 T " LEMON  LEMON  LEMON  PAYS $20" !
20.09 T " BELL   BELL          PAYS $20" !
20.10 T "CHERRY CHERRY         PAYS $10" !
20.11 T " APPLE  APPLE         PAYS $10" !
20.12 T "GRAPEF GRAPEF         PAYS $10" !
20.13 T " PLUM   PLUM          PAYS $5" !
20.14 T "ORANGE ORANGE         PAYS $2" !
20.15 T "CHERRY                PAYS $1" !
20.16 S R=0
20.17 A "  BET ONE DOLLAR?" ANS, !, !
20.18 I (ANS-0YES) 20.19,20.20
20.19 T "O-K PIKER" ; Q
20.20 T "YOU SPUN  " ; F N=1,3; D 21.0
20.21 D 22.0
20.22 I (R) 20.23,20.23,20.24
20.23 T "YOU OWE ME" %4, 0-R; T "DOLLARS-" ; G 20.17
20.24 T " I OWE YOU" %4, R; T "DOLLARS" ; G 20.17

21.01 S D=FRAN( )
21.02 S A(N)=FITR(8*(100*D-FITR(100*D)))
21.03 I (A(N)-1) 21.07,21.08,21.04
21.04 I (A(N)-3) 21.09,21.10,21.05
21.05 I (A(N)-5) 21.11,21.12,21.06
21.06 I (A(N)-7) 21.13,21.14
21.07 T "  BAR   "; R
21.08 T "  BELL  "; R
21.09 T "  PLUM  "; R
21.10 T " ORANGE "; R
21.11 T " LEMON  "; R
21.12 T " CHERRY "; R
21.13 T " APPLE  "; R
21.14 T " GRAPEF "; R

22.01 I (A(1)-A(2)) 22.11,22.02,22.11
22.02 I (A(3)-A(2)) 22.07,22.03,22.07
22.03 I (A(1)-1) 22.12,22.13,22.04
22.04 I (A(1)-3) 22.14,22.15,22.05
22.05 I (A(1)-5) 22.17,22.22,22.06
22.06 I (A(1)-7) 22.14,22.16,22.22
22.07 I (A(1)-1) 22.22,22.17,22.08
22.08 I (A(1)-3) 22.18,22.19,22.09
22.09 I (A(1)-5) 22.22,22.20,22.10
22.10 I (A(1)-7) 22.20,22.20,22.22
22.11 I (A(1)-5) 22.22,22.21,22.22
22.12 T "JACKPOT!!!! PAY $1000" ; S R=R+1000; R
22.13 T "PAY $500" ! ; S R=R+500 ; R
22.14 T "PAY $100" ! ; S R=R+100 ; R
22.15 T "PAY  $50" ! ; S R=R+50 ; R
22.16 T "PAY $200" ! ; S R=R+200 ; R
22.17 T "PAY  $20" ! ; S R=R+20 ; R
22.18 T "PAY   $5" ! ; S R=R+5 ; R
22.19 T "PAY   $2" ! ; S R=R+2 ; R
22.20 T "PAY  $10" ! ; S R=R+10 ; R
22.21 T "PAY   $1" ! ; S R=R+1 ; R
22.22 T "NO PAY  " ! ; S R=R-1 ; R
*0x|~