%%HP: T(3)A(R)F(.);
@ Skunk, by Douglas R. Cannon
DIR
  SETUP
    \<< CLLCD
"Please wait" 1
DISP
"10 seconds..." 2
DISP BOARD ST\->
'BOARD' STO SKSHP
ST\-> 'SKSHP' STO
DICE ST\-> 'DICE' STO
WAVES ST\-> 'WAVES'
STO DOTS ST\-> 'DOTS'
STO DESTIN ST\->
'DESTIN' STO PLANT
ST\-> 'PLANT' STO POT
ST\-> 'POT' STO
SHAPES ST\-> 'SHAPES'
STO { SETUP ST\-> }
PURGE
    \>>

  ST\->
    \<< \-> S
      \<< "" 1 S SIZE
        FOR N S N GET +
        NEXT STR\->
      \>>
    \>>

  SKUNK
    \<< 0 0 0 0 \-> N KY HP SK
      \<< BOARD {
# 0h # 0h } { # 82h
# 1Ch } SUB PICT
STO { # 0h # 0h }
PVIEW PICT { # 1Fh
# 1Fh } "OPTIONS:"
1 \->GROB REPL PICT {
# 1Fh # 26h }
"1) HP AS PLAYER #1"
1 \->GROB REPL PICT {
# 1Fh # 2Dh }
"2) HP AS PLAYER #2"
1 \->GROB REPL PICT {
# 1Fh # 34h }
"3) TWO PLAYERS" 1
\->GROB REPL
        DO
          IF KY
          THEN 200 .1 BEEP
          END
          DO 1 'N' STO+ PICT { # 17h # 26h } WAVES N GET REPL N 10
            IF ==
            THEN 0 'N' STO
            END
          UNTIL KEY
          END 'KY' STO
        UNTIL KY 82 \>= KY 84 \<= AND
        END KY 81 - 'HP' STO
        IF KY 84 \=/
        THEN PICT {
# 17h # 1Eh } # 50h
# 1Eh BLANK REPL
PICT { # 1Fh # 1Fh
} "SKILL LEVEL:" 1
\->GROB REPL PICT {
# 1Fh # 26h }
"1) TERRIBLY EASY"
1 \->GROB REPL PICT {
# 1Fh # 2Dh }
"2) AVERAGE" 1
\->GROB REPL PICT {
# 1Fh # 34h }
"3) CHALLENGING" 1
\->GROB REPL 1 'N'
STO 0 'KY' STO
          DO
            IF KY
            THEN 200 .1 BEEP
            END
            DO PICT { # 14h # 26h } DOTS N GET REPL 1 'N' STO+ 5 N
              IF ==
              THEN 1 'N' STO
              END
            UNTIL KEY
            END 'KY' STO
          UNTIL KY 82 \>= KY 84 \<= AND
          END KY 81 - 'SK' STO
        END PICT { # 14h # 1Eh } # 5Ah # 1Eh BLANK REPL
PICT { # 1Fh # 1Fh } "DESTINATION SCORE:" 1 \->GROB REPL
PICT { # 1Fh # 26h } "1) 100 POINTS" 1 \->GROB REPL
PICT { # 1Fh # 2Dh } "2) 200 POINTS" 1 \->GROB REPL
PICT { # 1Fh # 34h } "3) 300 POINTS" 1 \->GROB REPL
1 'N' STO 0 'KY' STO
        DO
          IF KY
          THEN 200 .1 BEEP
          END
          DO PICT { # 16h # 26h } BALLS N GET REPL 'N' 1 STO+ N 11
            IF ==
            THEN 1 'N' STO
            END
          UNTIL KEY
          END 'KY' STO
        UNTIL KY 82 \>= KY 84 \<= AND
        END KY 81 - 100 * SK HP SKMAIN
      \>>
    \>>

  ABOUT
    \<< PICT
{ # 0h # 0h } BOARD { # 1Fh # 1Eh } "BROUGHT TO YOU BY:" 1 \->GROB REPL
{ # 1Fh # 24h } "DOUGLAS R. CANNON" 1 \->GROB REPL
{ # 23h # 2Ah } "BYU, PROVO, UTAH" 1 \->GROB REPL
{ # 2Ch # 30h } "AUGUST 1991" 1 \->GROB REPL
{ # 0h # 37h } # 83h # 9h BLANK REPL
{ # 3h # 38h } "dougc@bert.cs.byu.edu" 2 \->GROB REPL REPL
{ # 0h # 0h } PVIEW
      DO
      UNTIL KEY
      END DROP
    \>>

  SKMAIN
    \<<
[ 0 0 ]
1 { { # 45h # 1Eh }
{ # 45h # 26h } } \->
DEST SK HP SC P C
      \<< PICT { # 0h # 0h } BOARD
        CASE HP 1 ==
          THEN { # 32h # 1Eh } "HP" 2 \->GROB REPL
          END HP 2 ==
          THEN { # 2Ch # 1Eh } SHAPES 1 GET GXOR
{ # 32h # 26h } "HP" 2 \->GROB REPL
{ # 2Ch # 1Eh } SHAPES 1 GET GXOR
          END
        END { # 19h # 38h } DESTIN DEST 100 / GET REPL REPL
        DO PICT { # 2Ch # 1Eh } SHAPES 1 GET GXOR
          IF P HP ==
          THEN SC HP SK DEST HPTURN
          ELSE SC P GET DEST TURN
          END MYTH DUP SIGN DUP
          IF
          THEN
            IF 0 <
            THEN P ERNUM
            END SC P GET + DUP 'SC' P ROT PUT C P GET DNUM
          ELSE DROP2
          END 3 ERNUM 0 { # 45h # 2Eh } DNUM P 1 == 2 1 IFTE 'P' STO
        UNTIL SC 1 GET DEST \>= SC 2 GET DEST \>= OR P 1 == AND SC ARRY\->
DROP \=/ AND
        END DEST SK HP SC FANF
      \>>
    \>>

  NEWS
    \<< 0 \-> M C A
      \<< 1 M SIZE
        FOR N PICT C M N N SUB 1 \->GROB DUP SIZE DROP 'A' STO REPL
2000 .005 BEEP C 1 GET A + 'C' 1 ROT PUT
        NEXT
      \>>
    \>>

  DNUM
    \<< \-> N C
      \<< PICT C N 2 \->GROB REPL
      \>>
    \>>

  NANNY @ nyah-nyah tune
    \<< 554 .3 659 .3 740 .075 554 .15 659 .075 659 .15 1 6
      FOR N BEEP
      NEXT
    \>>

  Roll
    \<< 0 0 \-> D1 D2
      \<< RAND 6 * 1 + IP 'D1' STO RAND 6 * 1 + IP 'D2' STO
PICT { # 5h # 6h } DICE D1 GET REPL
4000 .03 BEEP PICT { # 6Bh # 6h } DICE D2 GET REPL
4000 .03 BEEP D1 D2
      \>>
    \>>

  ERNUM
    \<< PICT # 45h ROT R\->B # 8h * # 16h + 2 \->LIST # 19h # 8h BLANK REPL
    \>>

  TURN
    \<< 0 0 0 0 0 \-> SC DEST POT D1 D2 KY DONE
      \<<
        DO KEY NOT 0 IFT
        UNTIL NOT
        END
        DO
          DO
          UNTIL KEY
          END 'KY' STO
          IF KY 35 ==
          THEN QUIT
          END
          IF KY 11 ==
          THEN Roll 'D2' STO 'D1' STO
            IF D1 1 == D2 1 == AND
            THEN DEST DSK 1 'DONE' STO SC NEG
            END
            IF D1 1 == D2 1 == OR DONE NOT AND
            THEN D1 D2 DEST SK 1 'DONE' STO 0
            END
            IF DONE NOT
            THEN 'POT' D1 D2 + STO+ POT { # 45h # 2Eh } DNUM
            END
          END
          IF KY 16 \=/ KY 11 \=/ AND
          THEN 200 .1 BEEP
          END
        UNTIL KY 16 == DONE OR
        END DONE NOT POT IFT
      \>>
    \>>

  HPTURN
    \<< 0 0 0 0 0 \-> SC HP SL DEST KP POT D1 D2 DONE
      \<<
        CASE SL 1 ==
          THEN 5 'KP' STO
          END SL 2 ==
          THEN 3 'KP' STO
          END SL 3 ==
          THEN 1 'KP' STO
          END
        END
        DO 'KP' 1 STO- Roll 'D2' STO 'D1' STO
          IF D1 1 == D2 1 == AND
          THEN DEST DSK 1 'DONE' STO SC HP GET NEG
          END
          IF D1 1 == D2 1 == OR DONE NOT AND
          THEN D1 D2 DEST SK 1 'DONE' STO 0
          END
          IF DONE NOT
          THEN 'POT' D1 D2 + STO+ POT { # 45h # 2Eh } DNUM
          END
          IF SL 3 ==
          THEN SC HP GET SC HP 1 == 2 1 IFTE
GET > 16 23 IFTE POT \<= 0 1 IFTE 'KP' STO
          END
          IF SC HP GET POT + DEST \>=
          THEN 0 'KP' STO
          END
          IF HP 2 == SC HP 1 == 2 1 IFTE
GET SWAP OVER DEST \>= AND SWAP SC HP GET POT + \>= AND
          THEN 1 'KP' STO
          END
        UNTIL KP 0 \<= DONE OR
        END DONE NOT POT IFT
      \>>
    \>>

  QUIT
    \<< 0 \-> KY
      \<< CLLCD "Do you REALLY" 2 DISP "want to quit?" 3 DISP TEXT 1000 .3 BEEP
        DO
          DO
          UNTIL KEY
          END 'KY' STO
          IF KY 31 \=/ KY 52 \=/ AND
          THEN 200 .1 BEEP
          END
          IF KY 52 ==
          THEN KILL
          END
        UNTIL KY 32 ==
        END { # 0h # 0h } PVIEW
      \>>
    \>>

  FANF
    \<< 0 1 0 \-> DEST SK HP SC C WON ME
      \<<
        IF HP 3 \=/
        THEN SC ARRY\-> DROP > HP 1 == OVER AND SWAP NOT HP 2 == AND OR
        ELSE 0
        END DUP 'ME' STO 'HPWON' 'YOUWON' IFTE 'WON' STO 0 24
        FOR N PICT # 1Eh N R\->B 2 \->LIST 'C' STO C SKSHP REPL
PICT C WON N 2 / 1 + GET REPL 2
        STEP PICT { # 1Eh # 36h } SHAPES 6 GET REPL
        IF ME
        THEN NANNY
        ELSE 1 4
         FOR N 1 2
            FOR O PICT { # 20h # 1Ch } SHAPES 5 GET GXOR 10000 .005 BEEP
            NEXT
          NEXT
        END 1 WAIT PICT { # 1Eh # 3h } # 47h # 12h BLANK REPL
"FINAL SCORE:" { # 1Fh # 0h } NEWS
        IF HP 1 ==
        THEN { # 21h # 6h } "HP: "
        ELSE { # 1Fh # 6h } "#1: "
        END SC 1 GET \->STR + SWAP NEWS
        IF HP 2 ==
        THEN { # 21h # Ch } "HP: "
        ELSE { # 1Fh # Ch } "#2: "
        END SC 2 GET \->STR + SWAP NEWS
        IF HP 3 \=/
        THEN "SKILL: "
          CASE SK 1 ==
            THEN "EASY"
            END SK 2 ==
            THEN "AVERAGE"
            END SK 3 ==
            THEN "CHALLENGING"
            END
          END + { # 1Fh # 12h } NEWS
        END # 1Eh SC ARRY\-> DROP > # 5h # Bh IFTE 2 \->LIST 'C' STO
        DO KEY NOT 0 IFT
        UNTIL NOT
        END
        DO PICT C SHAPES 7 GET GXOR .5 WAIT
        UNTIL KEY
        END DROP
      \>>
    \>>

  SK
    \<< 0 \-> D1 D2 DEST C
      \<< PICT { # 20h # 38h } SHAPES 3 GET REPL
        IF D1 1 ==
        THEN { # 2h # 2h }
        ELSE { # 68h # 2h }
        END 'C' STO 1 4
        FOR N PICT C SHAPES 2 GET GXOR 2000 .01 BEEP
        NEXT PICT { # 19h # 38h } DESTIN DEST 100 / GET REPL
      \>>
    \>>

  DSK
    \<< 1 0 \-> DEST D C
      \<< PICT { # 22h # 38h } SHAPES 4 GET REPL
PICT { # 20h # 2h } SHAPES 5 GET GXOR 1 4
        FOR N PICT # 2h # 66h D * + { # 2h } + 'C' STO C SHAPES 2 GET GXOR
2000 .02 BEEP 'D' 1
          IF D
          THEN STO-
          ELSE STO+
          END PICT C SHAPES 2 GET GXOR 1000 .02 BEEP
        NEXT PICT { # 20h # 2h } SHAPES 5 GET GXOR
PICT { # 19h # 38h } DESTIN DEST 100 / GET REPL
      \>>
    \>>

  MYTH
    \<< RAND 40 * IP
      IF 1 ==
      THEN
        IF RAND 2 * IP
        THEN 2 3
          FOR N PICT { # 0h # 1Eh } PLANT N GET REPL
          NEXT 2 1
          FOR N PICT { # 0h # 1Eh } PLANT N GET REPL -1
          STEP
        ELSE 2 3
          FOR N PICT { # 67h # 1Eh } POT N GET REPL
          NEXT 2 1
          FOR N PICT { # 67h # 1Eh } POT N GET REPL -1
          STEP
        END
      END
    \>>

  BOARD {
"GROB 131 64 0FFFFF10040E70CFCF00E70000CFFFF700CFFFFF700A02404848082400"
"00FFFFFF10E30008F0051A504B4B0CA50008F0000E30E00000E08E2A501B4B0AA50108"
"30000830700000C14F5A582B4B09A5820C10000070700000C1ABB8545A4B8AA5450C10"
"00007030000081D5795ABA4B4BA5AB0C0000006030000089EAE25D5A4BABA0D50C0000"
"00603000008571D5DE2B4BCB22E20C0000006030000089E2A2571B4BEB05610C000000"
"6030000081D5499B4B4B6B8A800C0000006030000081AB88D54B4B2B47500C00000060"
"300E0081471AF24B4B4BAB200C00830060300F10818E2A714B4B6BD5100C00C7006030"
"0F10810D5AF24B4B4BE2200C00C70060300F10812AB8D54B4B4379500C00C70060300E"
"008154799B4B4B4BB8B00C0083006030000089A8E2571B4B4F54710C00000060300000"
"8571D5DE2B4B4F2DE20C0000006030000089EAE25D5A4B4795D50C0000006030000081"
"D5795AB84B4B85AB0C0000006030000081ABB854797B45A5471C00000060300000814F"
"5A58E20B42A58E2C00000060700000C18E2A50D5EB41A50D5C10000070700000C1051A"
"50ABCBC0A50ABC10000070E00000E00A024047184024047930000830E30008F0040E70"
"8ACF00E708A8F0000E30CFFFFF70000000050000000050FFFFFF100FFFFF1000000002"
"0000000020CFFFF700000000000000000000000000000000000000000F10000082480C"
"1000000000FF100000008F3000008268022000000000FF10000000C7300000C7481230"
"00000000EF00000000E120000082483A2000000000EF00000C30F0000000C748162000"
"000000FF10000E7078F00000824802200000000CFF70000F703CF1000082E80C100000"
"0007BDE1008FF83EF3000000080000000000CBD6B7008FF81F8300016D1B0C10000000"
"ED6BDE0081F8930300036DEA0220000000FFFFFF1080CDC101000728FA123000000030"
"000810008DC000000F6D3B3A20000008FFFFFF30878D6C70000728DB1620000008D6D6"
"D630CF9D6FF000036DEB02200000086D6D6D20EFBDEFF000016D0A0C10000008BBBBBB"
"30E33FFFF0000000080000000008D6D6D630E16F70F1000F83F90C100000086D6D6D20"
"ECFFF7C1000154480220000008FFFFFF30CCF0E7810001544812300000003000081048"
"FFF381000154483A20000000FFFFFF1008308380000F44481620000000ED6BDE0000FF"
"F180000144480220000000CBD6B70000E0E000000183480C100000000FBDE100008F30"
"0000000000000000000008FF3000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7000000010"
"00000000000000000040000000F833C0100000000000000000004F83E830FD73C01000"
"00000000000000004FD7FD70BD63C0100000000000000000004BD63C00BD63C0100000"
"000000000000004BD6FC30FD63C0100000000000000000004FD7E970FC63C010000000"
"0000000000004FC78160BD7FD71000000000000000000043C6FD70B93FD71000000000"
"000000000043C6E830"
}
  SKSHP {
"GROB 71 31 0000000000000000000000000000000000000018F10F3F308F100008280"
"1012120A010000458610D2D20B610000AB8614C2D28A614000D7961AC2D24A61A008EE"
"261592D2AA6151047D569EA2D2DA69E20ABAB45792DAEA24710D5475BBC2D2FA88B00A"
"B8A4D5C2DAF24950047156E2D2DAD2A22008E22671D2DAC2D51000D58EB0D2D2DAEA00"
"00AB8E50D2DAD6750000479EB0D2D2DAB800088E2671D2D2DC5610041D56E2D2D2DE2E"
"200A2AB4D5C2D2D71D500D5475BBC2D2DB4BB00ABAB45792D2D56571047D569E22D2D2"
"69E208EE261D5ED25961D500D7961AB0C29861AB00AB861479F258614710458618E2F2"
"38618E20828010D50218010D50018F10A2F308F10A2000000041000000041000000080"
"000000080" }
  DICE {
"{ GROB 19 17 00000000000000000000000000000000000000700008F00008F00008F"
"000007000000000000000000000000000000000000000 GROB 19 17 000830000C700"
"00C70000C70000830000000000000000000000000000000000000000000E00000F1000"
"0F10000F10000E00000 GROB 19 17 000830000C70000C70000C70000830000000007"
"00008F00008F00008F000007000000000E00000F10000F10000F10000E00000 GROB 1"
"9 17 E00830F10C70F10C70F10C70E0083000000000000000000000000000000000000"
"0000000E00830F10C70F10C70F10C70E00830 GROB 19 17 E00830F10C70F10C70F10"
"C70E0083000000000700008F00008F00008F000007000000000E00830F10C70F10C70F"
"10C70E00830 GROB 19 17 E07830F9FC70F9FC70F9FC70E0783000000000000000000"
"0000000000000000000000000E07830F9FC70F9FC70F9FC70E07830 }"
}
  WAVES {
"{ GROB 6 20 70E0C1838383C1E0707070E0C1838383C1E07070 GROB 6 20 E0C1838"
"383C1E0707070E0C1838383C1E0707070 GROB 6 20 C1838383C1E0707070E0C18383"
"83C1E0707070E0 GROB 6 20 838383C1E0707070E0C1838383C1E0707070E0C1 GROB"
" 6 20 8383C1E0707070E0C1838383C1E0707070E0C183 GROB 6 20 83C1E0707070E"
"0C1838383C1E0707070E0C18383 GROB 6 20 C1E0707070E0C1838383C1E0707070E0"
"C1838383 GROB 6 20 E0707070E0C1838383C1E0707070E0C1838383C1 GROB 6 20 "
"707070E0C1838383C1E0707070E0C1838383C1E0 GROB 6 20 7070E0C1838383C1E07"
"07070E0C1838383C1E070 }"
}
  DOTS {
"{ GROB 9 19 C000E100CC000E106C00F0006C000E106C00F0006C000E106C00F0006C"
"000E10CC00E100C000 GROB 9 19 8100C30081006C00FE106C0000006C00FE106C000"
"0006C00FE106C0000006600FF0066000000 GROB 9 19 030087006300F0006C000E10"
"6C00F0006C000E106C00F0006C000E106C00F000630087000300 GROB 9 19 0000660"
"0FF00660000006C00FE106C0000006C00FE106C0000006C00FE106C008100C3008100 "
"}" }
  BALLS {
GROB 7 18 C1E3E3E3C10000C1632263C1C1E3E3E3C100
GROB 7 18 E3E3E3C100000000C16363E3E3E3E3C10000
GROB 7 18 F7E3C1000000000000C163F7F7E3C1000000
GROB 7 18 E3E3E3C100000000C16363E3E3E3E3C10000
GROB 7 18 C1E3E3E3C10000C1632263C1C1E3E3E3C100
GROB 7 18 00C1E3E3E3C1C1632263C10000C1E3E3E3C1
GROB 7 18 0000C1E3E3E3E36363C100000000C1E3E3E3
GROB 7 18 000000C1E3F7F763C1000000000000C1E3F7
GROB 7 18 0000C1E3E3E3E36363C100000000C1E3E3E3
GROB 7 18 00C1E3E3E3C1C1632263C10000C1E3E3E3C1
}
  DESTIN {
"{ GROB 81 8 0000000E0F3E70000000000000000B8255A0000000000000008A8255A0"
"000000000000000A8255A0000000000000000A8255A0000000000000000A8255A00000"
"00000000000A8255A0000000000000008F3F3E7000000000 GROB 81 8 0000000F3E7"
"CF0000000000000008055AA41000000000000000055AA41000000000000000835AA410"
"00000000000000705AA41000000000000008205AA41000000000000008205AA4100000"
"0000000008F7E7CF000000000 GROB 81 8 0000000F3E7CF0000000000000008055AA"
"41000000000000000055AA41000000000000000E35AA41000000000000000055AA4100"
"0000000000000055AA41000000000000008055AA41000000000000000F3E7CF0000000"
"00 }" }
  YOUWON {
GROB 1 1 00
GROB 1 1 00
GROB 1 1 00
GROB 71 2 00000000000300000000C100000003000070
GROB 71 2 C16F9F91E913F9F91363B9FC81B9999FC813
GROB 71 2 6ED0F681BD9D0FED030E703681CED603ED81
GROB 71 2 0C6033C0CED6036F810C6033C0CB76036F81
GROB 71 2 066813E0CB7681668106EC03F0C93EC03600
GROB 71 2 03C70ED1C81C7C1CC0E10000000000000C00
GROB 71 2 000000000000000830000000000000000000
GROB 1 1 00
GROB 1 1 00
GROB 1 1 00 }
  HPWON {
GROB 1 1 00
GROB 71 2 0000000000000000000F7BFFF00000000000
GROB 71 2 0F730EF000000000000F1308F00000000000
GROB 71 2 078100E00003000000078100E00003000070
GROB 71 2 038100C0E913F9F91303C7C7C0B9999FC813
GROB 71 2 01CCCC80BD9D0FED0301CCCC80CED603ED81
GROB 71 2 01666680CED6036F8101666680CB76036F81
GROB 71 2 0366E3C0CB76816681030030C0C93EC03600
GROB 71 2 070030E0C81C7C1CC0070030E00000000C00
GROB 71 2 0F1818F000000008300F781EF00000000000
GROB 71 2 0FFBDFF00000000000000000000000000000
GROB 1 1 00
GROB 1 1 00 }
  PLANT {
"{ GROB 30 24 00000F1000008F300000C7300000E1200C30F0000E7078F00F703CF18"
"FF83EF38FF81F8381F8930380CDC101008DC000878D6C70CF9D6FF0EFBDEFF0E33FFFF"
"0E16F70F1ECFFF7C1CCF0E78148FFF3810830838000FFF18000E0E000008F3000 GROB"
" 30 24 00008F000000CF100000EB100C30F0100E7878F00F783CF18FF81EF38FFC1F8"
"381FC830380CDC101008DC000878D6C70CF9D6FF0EFBDEFF0EFBDEFF0E17FF0F1E06F7"
"0C1CCFFF7814CF0E78108FFF3800830838000FFF10000E0E000008F3000 GROB 30 24"
" 0000C7000000EF000C30FD000E7878F00F783CF18FF81EF38FF81F8381ED170380CD9"
"30100CDD100878DEE70CF9D6FF0EFBDEFF0EFBDEFF0E1FDE0F1E06F70C1C06F70814CF"
"FF7810CF0E78008FFF3800830830000FFF10000E0E000008F3000 }"
}
  POT {
"{ GROB 27 24 00EF300000EF300000CF100000CF100000EF300008FFF0000E6BD3008"
"7BD6F00CBD6BD10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDADAD6"
"0DADADA50FFFFFF7060000030EFFFFF30CBD6BD1087BD6F000E7BD30000FF7000 GROB"
" 27 24 000000000000000000EF300000EF300000CF100000CF100000EF3000087BF00"
"00FBDE700CBD6BF10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDADA"
"D60DADADA50FFFFFF7070000070EFFFFF30EBD6BD30C7BD6F100FFFF700 GROB 27 24"
" 0000000000000000000000000000000000EF300000EF300000CF100000CF100000FF7"
"0000EBDE300CBD6BF10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDA"
"DAD60DADADA50FFFFFF7070000070EFFFFF30CBD6BF100EFFF300 }"
}
  SHAPES {
"{ GROB 18 15 1EFF303EFF307EFF30FEFF307EFF303EFF301EFF300000001EFF303EF"
"F307EFF30FEFF307EFF303EFF301EFF30 GROB 25 25 0FFFF100CFFFF700EFFFFF00E"
"FFFFF00FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF1"
"0FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFF"
"F10EFFFFF00EFFFFF00CFFFF7000FFFF100 GROB 67 8 E7ECD9B377EEFDF170DFAE49"
"A2557AF5F25050A749A65D3A049250D7A349AE5D1A749250EBA349AE5D1A7492700AA7"
"49AA5D3A049200FBAE4FA2557AF5F270E7EC9F9377EEFDF170 GROB 63 8 F7CFC9BF3"
"70EF937DBA759AE550AF9255AA459A2550A08255AA459AE350A78255AA459AE350A783"
"75AA459A2550A0000DBA75FAE5DFAF937F7CF8F9F3FFEF937 GROB 67 25 040810030"
"3008100000E08100303008100000F18100303008100008B3810120302810100C178183"
"20303818300E0E01C12038380C10070C11E0303C300E000E080170303E3006000C1089"
"30303630200008308D10303230700000708F00303038300000E0870030303C100000C1"
"8F0030303E000000838D103030378100000789303030B38300020E01703030F1070007"
"0C11E03030F01E000E0E01C12030781C100C178183003038183008B381070030181070"
"00F1810E00300810E000E0810C1E300810C1004081083C300810830000000070000000"
"070000000020000000020 GROB 71 1 FFFFFFF9CFFFFFFF94 GROB 71 7 EFFFFFFF1"
"000000004FFFFFFFF339AC23E64FFFFFFFF3292BC2512FFFFFFFF394294A312FFFFFFF"
"F3D29429800FFFFFFFF3B19429901EFFFFFFF1000000000 }"
}
END