%%HP: T(1)A(D)F(.);
DIR
  AMT '-10+(20+AMT)
'
  CST { NEW PLAY
TBLE QUIT }
  DSPA
     PICT { # 1d
# 1d }
" TOTAL          $"
AMNT + 2 GROB REPL
    
  FIG {
GROB 16 16 0000000000000C300FF08FF1CFF3FFFFFFFFCFF38FF10FF00C30000000000000
GROB 16 16 000000000006000100808F40CF20EF10EF70EFF0EFF0EFF0CFF0CF708F300000
GROB 16 16 00000810081008100810081008100C300E700E700E700E700FF00E7008100000
GROB 16 16 000008100C300E700FF08FF1CFF3EFF7EFF7CFF38FF10FF00E700C3008100000
GROB 16 16 0000000083C1C7E3EFF7EFF7EFF7EFF7CFF38FF10FF00E700C30081000000000
GROB 16 16 00000000000000000000CFF3CFF3CFF3CFF3CFF3CFF300000000000000000000
}
  IMPRG
     WORK RCLF 
fgs
       -40 CF -55
CF
        DO 1 MENU
CST
          WHILE -1
WAIT IP 10 - DUP2
SWAP SIZE >
          REPEAT
DROP 340 .07 BEEP
          END GET
DUP EVAL
        UNTIL { End
EXIT QUIT } SWAP
POS
        END fgs
STOF
      
    
  NEW
     500 'AMNT'
STO ERASE { # 0d
# 0d } DSPA PVIEW
    
  PLAY
     ERASE { # 0d
# 0d } 'AMNT' 10
STO- 1440 .02 BEEP
DSPA PVIEW PICT {
# 6d # 44d } # 125d
# 8d BLANK REPL
SPIN 41 75
      FOR c RAND 6
* CEIL PICT c RB {
# 17d } + FIG 4
PICK GET REPL 17
      STEP SCORE
    
  QUIT
     WORK CLVAR
JPOTDIR UPDIR 2
MENU
    
  SCORE
     3 LIST { } 3
2
      FOR i
        IF OVER DUP
i GET POS i 
        THEN OVER i
GET +
        END -1
      STEP SWAP
DROP
      IF DUP SIZE
DUP
      THEN SLST ROT
1 GET GET OVER 2 ==
2.5 * + * 10 *
      ELSE DROP2 0
      END PICT {
# 6d # 44d }
" WIN          $" 4
PICK + 2 GROB REPL
      IF DUP
      THEN 1 OVER
        START 1440
.02 BEEP 2
        STEP
      END 'AMNT'
STO+ DSPA
    
  SFIG {
GROB 9 9 00000000C700EF00FF10EF00C70000000000
GROB 9 9 000008100400E200F100F300F300F300E100
GROB 9 9 0100010001000100010083008300C7000100
GROB 9 9 01008300C700EF00FF10EF00C70083000100
GROB 9 9 0000C600EF00EF00EF00C700830001000000
GROB 9 9 000000000000EF00EF00EF00000000000000
}
  SLST { 0 1 2 3 4
5 }
  SPIN
     WNDWS 1 .0001
.03
      FOR i GETI
PICT { # 40d # 16d
} ROT REPL 880 .005
BEEP i WAIT .001
      STEP DROP2
    
  TBLE
     ERASE { # 0d
# 0d } PVIEW 1 6
      FOR n SFIG n
GET 1 5
        FOR i PICT
{ # 8d # 18d # 66d
# 76d # 86d } i GET
n 1 - 10 * RB 2
LIST 3 PICK REPL
        NEXT DROP
SLST n GET 10 * n 1
- 10 * RB DUP2
PICT { # 38d } ROT
+ ROT 1 GROB REPL
PICT { # 106d } ROT
+ ROT 2 * 50 + 1
GROB REPL
      NEXT 0 WAIT
DROP
    
  WNDWS {
GROB 52 18 FFFFFFFFFFFFF01000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFF30004000801000200040008010002000CFFFF010002000400080100020004000801000EFFF7000801000200040008010002000400080FFFFFFFFFFFFF0
GROB 52 18 FFFFFFFFFFFFF01000EFFF70008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFF30004000801000200040008010002000CFFFF01000200040008010002000400080FFFFFFFFFFFFF0
GROB 52 18 FFFFFFFFFFFFF010002000CFFFF010002000400080100020004000801000EFFF70008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFF300040008010002000400080FFFFFFFFFFFFF0
GROB 52 18 FFFFFFFFFFFFF010002000400080FFFF30004000801000200040008010002000CFFFF010002000400080100020004000801000EFFF700080100020004000801000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFFFFFFFFFFF0
GROB 52 18 FFFFFFFFFFFFF010002000400080100020004000801000200040008010002000400080FFFF30004000801000200040008010002000CFFFF010002000400080100020004000801000EFFF700080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFFFFFFFFFFF0
}
  WORK
    DIR
    END
END
