%%HP: T(3)A(R)F(.);
DIR
  SPIN
    \<< 'BANK' RCL \->
X
      \<<
        IF 'X\<=0'
        THEN
"BANKRUPT" 7 DISP 3
FREEZE HALT
        ELSE 'BANK'
.1 STO-
        END
      \>> # 131d
# 64d BLANK (-3,1)
'WHL1' RCL RAND 20
* IP 1 + DUP SUB
DUP 'WHL' STO "1" +
OBJ\-> GOR DUP \->LCD
(-1,1) 'WHL2' RCL
RAND 20 * IP 1 +
DUP SUB DUP 'WHL'
RCL SWAP + 'WHL'
STO "1" + OBJ\-> GOR
DUP \->LCD (1,1)
'WHL3' RCL RAND 20
* IP 1 + DUP SUB
DUP 'WHL' RCL SWAP
+ 'WHL' STO "1" +
OBJ\-> GOR \->LCD 0
'WIN' STO 'WHL' RCL
DUP DUP DUP DUP DUP
DUP DUP DUP DUP 1 1
SUB "C" SAME .2 *
'WIN' STO+ 1 2 SUB
"CC" SAME .3 *
'WIN' STO+ "PPP"
SAME 'WIN' STO+
"PPJ" SAME 'WIN'
STO+ "OOO" SAME
'WIN' STO+ "OOJ"
SAME 'WIN' STO+
"BBB" SAME 'WIN'
STO+ "BBJ" SAME
'WIN' STO+ "JJJ"
SAME 10 * 'WIN'
STO+ "WWW" SAME 10
* 'WIN' STO+ 'WIN'
RCL DUP DUP DUP
'BANK' STO+
      IF 0 ==
      THEN
"A LOSER" 7 DISP 60
.5 BEEP
      END
      IF 0 >
      THEN
"YOU WIN $" 'WIN'
RCL + 7 DISP 440 .5
BEEP
      END
      IF 10 ==
      THEN
"JACKPOT" 7 DISP
440 .5 BEEP 440 .5
BEEP 880 .5 BEEP
      END "BANK=$"
'BANK' RCL + 1 DISP
3 FREEZE CLEAR
    \>>
  BANK 4.9
  WIN 0
  INIT
    \<< 2 FIX RESET 5
'BANK' STO { SPIN
BANK WIN INIT }
TMENU CLLCD
"BANK=$5.00" 0 DISP
3 FREEZE
    \>>
  WHL "PBL"
  PPAR {
(-6.5,-3.1)
(6.5,3.2) X 0 (0,0)
FUNCTION Y }
  WHL1
"LWPCPOLPOCJPOBOPCPOP"
  WHL2
"CPCOCBPBCOCWPBCJOCBO"
  WHL3
"BLPBOLBWBPLBLBJLBLBL"
  B1
GROB 15 20 FFF7100410041004180418041C141E34176413441344134413441F749FF418041C1418041004FFF7
  C1
GROB 15 20 FFF7100410041004108410441E5411241E341034182417249464949413941064100410041004FFF7
  J1
GROB 15 20 FFF71004100410041004DFF51004DDD555555555DDD555D45555D5551004DFF5100410041004FFF7
  L1
GROB 15 20 FFF7100410041004100410041C141E34136491C4500591C413641E341C141004100410041004FFF7
  O1
GROB 15 20 FFF710041004100410041E34115498B4D015D005D005D005D10593841F741E34100410041004FFF7
  P1
GROB 15 20 FFF7100410041004100410041EB597F591C4D0B5DC85D3C591F41F741E141004100410041004FFF7
  W1
GROB 15 20 FFF710041004100410041E7411A49E155155DE5551559E1511A41E7410041004100410041004FFF7
END
