%%HP: T(3)A(D)F(.);
@ TANK by Douglas R. Cannon
\<< {
GROB 16 10 0C100EFF0FFF0F708FF14002CFF3AD67E6B5CFF3
GROB 16 10 0C100EFF0FFF0F708FF14002CFF36BD66BD6CFF3
GROB 16 10 0C100EFF0FFF0F708FF14002CFF3E6B5AD67CFF3
} {
GROB 16 10 0830FF70FFE006C08FF14002CFF3E6B5AD67CFF3
GROB 16 10 0830FF70FFE006C08FF14002CFF36BD66BD6CFF3
GROB 16 10 0830FF70FFE006C08FF14002CFF3AD67E6B5CFF3
} PICT RCL # 0d # 0d \-> T1 T2 P X Y
  \<<
    IFERR # 163d # 64d PDIM PICT { # 16d # 0d } LCD\-> REPL
    { # 16d # 0d } PVIEW PICT { # 16d # 0d } # 131d # 14d BLANK REPL
    1 12
      FOR I 1 3
        FOR J PICT X # 4d 2 \->LIST T1 J GET REPL 'X' # 1d STO+
        NEXT
      NEXT # 148d 'Y' STO 1 12
      FOR I 1 3
        FOR J PICT Y # 4d 2 \->LIST T2 J GET REPL 'Y' # 1d STO-
        NEXT
      NEXT
      \<< GROB 7 2 0707 # 51d \-> BU X
        \<< 200 .02 300 .02 BEEP BEEP PICT { # 47d # 5d } BU GXOR 1 16
          FOR I PICT X # 5d 2 \->LIST BU REPL # 4d 'X' STO+
          NEXT
        \>>
      \>> EVAL
      \<< {
GROB 14 14 00000000000008308F708FE006C00000C3E02001EFF1D6B37BD2EFF1
GROB 14 14 000000700FF00FD10C8100000000000000002001E1E1D2B37BD2EFF1
GROB 14 14 0EF10EB3081300000000000000000000000000002001D0A370C2EFF1
GROB 15 14 00360000000000000000000000000000000000000000100270C2E1E1
GROB 15 14 0000000000000000000000000000000000000000000000004082E0C1
} \-> BL
        \<< 1 5
          FOR I PICT { # 114d # 0d } BL I GET REPL
            400 I / .01 BEEP 300 I / .01 BEEP
          NEXT
        \>>
      \>> EVAL 2 WAIT 1 38
      FOR I 1 3
        FOR J PICT X # 4d 2 \->LIST T1 J GET REPL 'X' # 1d STO+
        NEXT
      NEXT
    THEN
    END TEXT P PICT STO
  \>>
\>>
