%%HP: T(3)A(D)F(.);
@ BOUNCE by Douglas R. Cannon
\<< {
GROB 10 10 0F008610C630C630C630C63086100F0000000000
GROB 10 12 000000000F008610C630C630C630C63086100F0000000000
GROB 10 13 00000000000000000F008610C630C630C630C63086100F000000
GROB 10 13 0000000000000000000000000F008610C630C630C630C6308F10
GROB 11 13 000000000000000000000000000000000F008610C6304620EF70
} PICT RCL 0 \-> G P
X
  \<<
    IFERR LCD\-> PICT STO
    { # 0d # 0d } PVIEW
    PICT { # 0d # 0d } # 131d # 14d BLANK REPL
    1 14
      FOR I 1 5
        FOR J PICT X R\->B # 1d 2 \->LIST G J GET REPL 'X' 1 STO+
        NEXT 600 .005 800 .005 BEEP BEEP 4 1
        FOR J PICT X R\->B # 1d 2 \->LIST G J GET REPL 'X' 1 STO+ -1
        STEP
      NEXT
    THEN
    END TEXT P PICT STO
  \>>
\>>