%%HP: T(3)A(R)F(.);
@ DRIP, an animation by Doug Cannon
DIR
  SETUP
    \<< FAUC ST\-> 'FAUC' STO { SETUP ST\-> } PURGE
    \>>
  ST\->
    \<< \-> S
      \<< "" 1 S SIZE
        FOR N S N GET +
        NEXT STR\->
      \>>
    \>>
  DRIP
    \<< 0 \-> DONE
      \<< ERASE { # 0d # 0d } PVIEW
PICT { # 0d # 14d } FAUC REPL
PICT { # 0d # 62d } WAT REPL
PICT { # 84d # 59d } "DOUG CANNON" 1 \->GROB REPL
        DO 1 9
          FOR N PICT { # 22d # 30d } FSH N GET REPL 2 N / WAIT
            IF KEY
            THEN 9 'N' STO DROP 1 'DONE' STO
            END
          NEXT PICT { # 22d # 30d } D REPL
PICT { # 22d # 33d } D REPL
PICT { # 22d # 36d } D REPL
PICT { # 22d # 39d } D REPL
PICT { # 22d # 42d } D REPL
PICT { # 22d # 45d } D REPL
PICT { # 22d # 48d } D REPL
PICT { # 22d # 51d } D REPL
PICT { # 19d # 54d } H1 REPL 8000 RAND * .005 BEEP
PICT { # 17d # 57d } H2 REPL
PICT { # 15d # 58d } H3 REPL
PICT { # 14d # 59d } H4 REPL
PICT { # 13d # 58d } H5 REPL
PICT { # 12d # 58d } H6 REPL
PICT { # 11d # 58d } H7 REPL
PICT { # 10d # 59d } H8 REPL
PICT { # 10d # 60d } H9 REPL
PICT { # 8d # 61d } H10 REPL
        UNTIL KEY DONE OR
        END
        IF DONE NOT
        THEN DROP
        END
      \>>
    \>>
  FAUC {
"GROB 27 16 00C0C00000EFF10070EFF100F1CCC000F30C0000FFFFF700FFFFFF10FFF"
"FFF30FFFFFF30FFFFFF70F300CF70F1000F7070000E7000000E7000000C7000000C70" }
  WAT
GROB 51 2 CFFFFFFFFFF700FFFFFFFFFFFF70
  D
GROB 5 9 00000040E0F1F1F1E0
  FSH { GROB 5 1 C0
GROB 5 1 E0
GROB 5 2 E1C0
GROB 5 3 E1E1C0
GROB 5 4 E1F1F1E0
GROB 5 5 E0F1F1F1E0
GROB 5 6 E0E0F1F1F1E0
GROB 5 7 C0E0F1F1F1F1E0
GROB 5 8 80C0C0E0F1F1F1E0 }
  H1
GROB 11 9 000000000000020007008F008F00BF607770
  H2
GROB 15 6 000008000C102E32FEB7FFF7
  H3
GROB 19 4 000000002000E07830FBFE70
  H4
GROB 21 3 E000E0F308F1E1E0F0
  H5
GROB 23 5 600003F00087600003000000FF3EF7
  H6
GROB 25 6 60000C00F0000E1060000C0000000000FF10FF10FF7CFF10
  H7
GROB 27 6 0000000060000030F000087060000030FFF8FF70FFFFFF70
  H8
GROB 29 4 00000000600000C0F00000E1FFFBFFF1
  H9
GROB 29 3 0000000030000081FFFFFFF1
  H10
GROB 31 1 00000000
END
