%%HP: T(3)A(R)F(.);
@ Animated rotating globe by John Peterson, BYU
\<< {
GROB 64 64 000000EFF700000000000EBFFF30000000008FFFFFF100000000FFFFFFF700000008FFFFFFFF1000000EFFFFFFFF3000000FFFFFFFFFF000008FFFFFFFFFF10000EFFFFFFFFFF30000FFFFFFFFFFF70008FFFFFFFFFFFF0008FFFFFFFFFFFD100CFFFFFFFFFFFF300E7FFFFFFFFFFF200FF8FFFFFFFFFD500FFFFFFFFFFFFD608FFFFFFFFFFFFB808FFFFFFFFFFFF9C1CFFFFFFFFFFFF741CFFFFF3EFFFFF301EFFFFF3CFFFF7002EFF7FF18FFCF7403EFFFFF00F38F3C07EFFFF300F18F7C06FFFFF400F14E7C16FFFFD700E04E7C14FFFFF100E1463C3DFFFFF100C1061CBCFFFFF000818D1EB8FFFFF000100F5F889FFF7000000F97E8DFFF3000000EDF789FFF1000000EFFF99FFF00000008FFFF9FF7040000083AFF1FF700080008F9DF1FF700000000EF7F1FFF000000002C3E1EFF8100000000C71EFF8100000000F72EFFE100000008F72EFFE100000008F72EF7E10000000EF36CF7E91000008FF34CF7E00000008FF348F7C0000000CFF188F300000000CFF181F700000000CFF001E300000000CFF003C300000000EF7006C100000000EC3004000000200008300800000020000C100810000000000E00003000000000060000608010000003000081000C00008100000300001000C000000600000000300000081000000810000000700000060000000081FFFFF1000000000EFFFF300000000000EFF7000000
GROB 64 64 0000006FF700000000000EDBFF30000000008BFFFFF100000000FEFFFFF700000008FFFFFFFF100000067FFFFFFF3000000BFFFFFFFFF0000089FFFFFFFFF100006CFFFFFFFFF300003FFFFFFFFFF700089FFFFFFFFFFF0008C7DFFFFFFFFF100CCF7FFFFFFFFF3006CF3EFFFFFFFF300BEFB3EFFFFFFF7001FFFFFFFFFFFF708DFFFFFFFFFFFFF08CFFFFFFFFFFFFF14EFFFFFFFFFFFFF14EFFFFFFF3EFFFF16FFFFFFFF3CFFF722FFFFF7FF10F7F736FFFFFFFF10F3E77EFFFFFFF300F1E779FFFFFFF400E1A769FFFFFFFF00E1AF69FFFFFFF300C1A7E1FFFFFFF100C385E1FFFFFFF10003C3F1ECFFFFF000208BB108FFFFF000008FF10CFFFF7000008FF108FFFF3000000FF108FFFF1000000EF100FFFF08000006F100EFFF0000100EF900EFFF0000000CF100EFFF00000004E100CFFF810000004100EFFF810000006280EFFFD10000006200EFFFE10000007200CFF3E10000003600CFF3E810000C34008FF3E000000C34008FF3E000000E18000FF10000000E18100FF10000000E00100EF00000000F00300CF00000008700600C30000000830042000000001003008800000008008100810000000000C0000300000000006000060000110000300008100000C008100000300000800C0000006400000003000000810000008100000007000000600000000810EFEF1000000000EFFFF300000000000EFF7000000
GROB 64 64 000000EFF700000000000E7CBF30000000008F0EFFF100000000FEDFFFF70000000838FFFFFF100000060E9FFFFF300000030FFFFFFFF00000810EFFFFFFF10000E00EFFFFFFF30000308FFFFFFFF7000810CFFFFFFFFF000881CFAFFFFFFF100401CFFDFFFFFF300600CFF8FFFFFF300304EFFC0FFFFF700100FFFFFFFFFF70810EFFFFFFFFFFF0800EFFFFFFFFFFF1400EFFFFFFFFFFF1400FFFFFFFFF9FF3600FFFFFFFFF1FF3200FFFFFF7FF1CF3201FFFFFFFFF0C3720AFFFFFFFF70C37308FFFFFFFF90837108FFFFFFFFF0837100FFFFFFFF3007F100FFFFFFFF3007E100EFFFFFFF3006E300C7EFFFFF1080E300008FFFFF1000E30000CFFFF70000C700008FFFF30000CF00008FFFF10000CF10000FFFF10100CF10000EFFF10040CF10100EFFF00000CF10000EFFF10000CF10000CFFF130004F10000EFFF930004E10010EFFFD30004E10000EFFFE10006E10000EFF7E10002E90000CFF3E91002C30000CFF3E00003C100008FF3E000018100008FF00000818300008FF00000800300000F700000C00700000E300000400600000E000000200C0010000000803008004000000088100810000000000C00003000000000060000600000012003000081000000048100000B00000004C000000E5020000030000008F00000081000000070000006000000008100EFF1000000000EEFFF300000000000EFF7000000
GROB 64 64 000000EFF600000000000EF7CF30000000008FF1CFF100000000FFC5FFF700000008330EFFFF1000000E100FEFFF3000000F100FFFFFF000008F000EFFFFF10000E7000CFFFFF30000F1000FFFFFF7000830000FFFFFFF000810818FFEFFFF100C00030FF7FFFF300600000FF5EFFF300B00009FF77CFF700300008FFFFFFF70810008FFFFFFFFF0810000FFFFFFFFF1C00000FFFFFFFFF1C00008FFFFFFFFF3E00008FFFFFFFFB3E10008FFFFFFFF33E10048FFFFFFFF1721008CFFFFFFFF0633000CFFFFFFF71671000CFFFFFFFF36F10008FFFFFFFF1CF10000FFFFFFFF0CF70000EFFFFFFF0CFF0000CFCFFFFF0CFF0000000FFFF708FF0000008FFFF708FF3000000FFFF308FFF000000FFFF108FFF300000EFFF128FFF300000CFFF00AFFF300100CFFF008FFF300000CFFF10CFFF300000CFFF804FFF100000CFFFC04EFF100010EFFFE04EFF100000EFFFF06AFF100000EFF3712EFF120000CFF97124FF100000CFF93034F7000000CFF93018F7000000CFF00818F70000008F700800F70000008F300C00F70000008F100400E700000087000200C7000400000003008700080000008100870000000000C0000F000000000060000E1000000011300008300000000C100000F01000000E000000E0B001000300000081310000810000000F10000060000000083000EF1000000000E1FFF300000000000EFF7000000
GROB 64 64 000000EFF700000000000EFF5C30000000008FFF3CF100000000F7E9BDF700000008F3600FFF1000000EF30007FF3000000FF3000FFFF000008FF3000CFFF10000EFF3000CFFF30000FF70000EFFF70008F700000EFFFF0008F300070EFFFF100CF1000C0CFFEF300EF0000008FFCF300F7400004CFFDC700F1000000CFFFF708F100000CFFFFFF0893000008FFFFFF1C93000008FFFFFF1CC3000008FFFFFF1EF7000008FFFFFF3EBF100008FFFFFF3E9F300088FFFFFF7E30200089FFFFFF7930200008FFFFFF7197300008FFFFFF71FF100000FFFFFFF1FF300000EFFFFFB9CFF10000CFFFFFB1DFF300008F9FFFB1EFF30000000FFFB5EFF30000008EFFB5EFFF1000000FFFB1EFFFF000000EFF91EFFFF300000EFFD1EFFFF300000CFF91EFFFF700100CFF81CFFFF300000CFFC1CFFFF300000CFF618FFFF100000EFF728FFFF100020EFF720FFFF000000EFF720EFFF000000EFF360CFFF020000EFF340CFFF000000EFF340CFF3000000EFD180DFF1000000EF81818FF1000000EF80018FF0000000E7C003EFF0000000E340060F70000000E020040F700001000030080F300002000810081E100000000C00003C100000000600006C30000000430000893000000081000003F1800000C0000006C085001030000008104800081000000078500006000000008B1000E1000000000E78FF300000000000EFF7000000
GROB 64 64 000000EFF700000000000EFDFD30000000008FFFFFE100000000FFF93EA700000008F9F010CF1000000EFFF100CF3000000FFFF3008FF000008FFFF7000EF10000EFFFF7000CF30000FFFFF0000CF70008FFFF00000CFF0008FFF3000C1CFF100CFFF1000038FF300EFFF0000000F7300FFF70100002FF700DFF10000000FF708DFB1000000EFFF08E783000000CFFF14E7870000008FFF14E3CF000000CFFF36CBFF100000CFFF32CF1FF100008FFF328F1FE100088FFF720F700300009FFF710C700300008FFF71003E3300008FFF7100FFF100000FFFF100EFF700000EFFF1080FFF30000CFFF1004FFF700008FEF1008FFF7000000CF102CFFF7000000EF106CFFFF300000CF100CFFFFF10000CF100CFFFFF70000CF100CFFFFF700008F1008FFFFF700208F1008FFFFF700008F1000FFFFF30000871000EFFFF10000C72000EFFFF10001C72000CFFFF10000E720000FFFF00000E360000FFFF02000E340000FFFF00000E3C0000FFF100000E18C001FFF000000F181000FFF000000F001000FF7000000F003006EF70000087006000EF30000083004000FF10004003008000EF00004081008100E3000000C0000300E300000060000600E300000030000810C300000810000030CB14000C00000060870C2043000000810081208100000007007100600000000819300C1000000000EF7CF300000000000EFF7000000
GROB 64 64 000000EFF700000000000EFFFF30000000008FFFBFE100000000FFFF3FE700000008FF7C7C0C1000000EFFFFF1083000000BFFFFF300F0000089FFFFF700C100006CFFFFF7008300003EFFFFF1000700081FFFFF10000F00080FFFFF00083E10040FFFF700007E30060FFFF700000830030FFFF340000A70010FFFF000000870810FFFE000000CF0800FF0C3000008F1400EF087000008F1400EF0EF000008F16008FCFF000008F36008FF0FF10000F32000FF0BE30002F72000CF30020004F710000E30060000E71000083C320000E7100000FFF30000CF100000EFF70000CF1000080FFF30008F1000004FFFF0008F1000000FFFF000081000028FFFF0000C1000068FFFF700081000008FFFFF1008100000CFFFFF7008100000CFFFFF70085000008FFFFF70487000000FFFFF700C3000000FFFFF30041000000EFFFF30046000000EFFFF108460000008FFFF100620000000FFFF000260000000FFFF8002C2000000FFF7000348000000FFF1000181041001FFF0008181000008FF70008001000008FF3000C003000089FF10004006000008FF00002004000008F700023008000008F3000A1008100008F0000C000030000C700006000060000C300003000081000C300081000003000CB140C0000006000830C030000008100004C8100000007000E10600000000810970C1000000000EFF3E300000000000EFF7000000
GROB 64 64 0000006FF700000000000EFFFF30000000008FFFFFF100000000FFFFFFE700000008FFFF3FB91000000E3FFFFFF0300000070FFFFFF1C00000810EFFFFF3810000600EFFFFF7030000300FFFFFF1060008100FFFFF700C0008000FFFFF300E1004000FFFFF100C3006000FFFFF10002003000EFFFF02006001000CFFF70000C081000CFF7F00008080000CFF0C100081410008FF0C700001430000FF0EF00001660000CFCFF100032600008FF0FF10026000000FF0AF10072000000CF700300710000000E70060061000000007C72004100000000EFF300C100000000CFF700C5000000001EFF3089000000008EFF7089000000000EFF7081000000040FFF70890000000C8FFFF183000000008FFFF783100000008FFFFF81100000008FFFFF83020000000FFFFFCB640000000EFFFFC1200000000EFFF747000000000EFFF342810000000CFFF342C200000008FFF3661000000000FFF1262000000000FFF9240120000000FFF0340081000008FF301804000A0088FF18181000000008FF1800100000000CFF0C0030000000CCF70400600000000EF30200400000000EF00300800000000F708100810000000F10C000030000008F006000060000008700300008100000C308100000300000CD8C000000600000C38300000081000008C1000000070000C360000000081001FC1000000000ECFFB300000000000EFF7000000
GROB 64 64 0000006FF700000000000EFFFF30000000008FFFFFF100000000FFFFFFF7000000083FFFFFEF1000000EC78FFFFF3000000F708FFFFFF0000081000EFFFFF1000060000CFFFFF3000030000CFFFF76000810000CFFFF3C000800000CFFFF38100400000CFFFF303006000008FFFF302003000000FFFF324001000000EFFF104081100000EFFB308080100000CF70F081406000008F70E10140C300000D70F301600700000CFCF702A004000008FF8F322010000000FF0F3620000000008F706410000000000C70443000000000007E54500000000000EF7C300000000000CFF87040000000001FF91080000000008EFB5001000000000FFB5200000000040FFB70800000000C8FFF1C00000000008FFF1E02000000008FFF9002000000008FFF1500000000000FFF3889120000000FFF1008000000000FF71800000000000EF76200600000000EF7E308310000000CF72A11000000000CF3E801000000000CF3C002201000000EF3C00000C000000EF18000010005004EF18310000000000FF00300000000008FF0030000000000BF500E1000000000CF20043000000000E730086000000000EB10087000000000FC0000F100000008760000E00000000C330000830000000E910000030000000EF000000600000006300000081000000C10000000700000C700000000810002F1000000000E1EFF300000000000EFF7000000
GROB 64 64 0000006FF700000000000E7FFF30000000008FFFFFF100000000FFEFFFF700000008F3EFFFFF1000000E70E3CFFF3000000FDF108FFFF000008700000FFFF10000E100000CFFF30000F0000008FFF7000830000008FFFF000810000008FFFF100C00000000FFFF300600000000EFFF2003000000008FFF4003000000000FFF5081001000000FFF9081002000000EF1B1C4004100000CF16140000F100008F1E1600008700000CBF2A01000600000CF93A000400000008F976000000000000E7650000000000000741C0000000000006730200000000000CF901000000000008F123004000000004F14000C000000008F104000100000000F104400000000002F185008000000003FF00020000000000FB00830200000008FF18000200000008F730110000000000FFE0024916000000F700000800000000770003000000000076012000A00000007E033008210000007E002580000000003E130180000000003C320001201000083C70000000C00008187000008000820E18F801000000000C00F200000000000E00F000000000008700E160000000000300C1C1000000008300838100000000C100878100000000E00007C9000000007000068100000008300008190000000C100000320000000E0000006100000003000000810000008100000007000000700000000870000D1000000000E30FF300000000000EFF7000000
GROB 64 64 0000006FF700000000000EF7FF30000000008FFFFFF100000000FFFDFFF700000008FF78FFFF1000000E7F10F0FF3000000F33AF10CFF000008F9100000FF10000EF6000000CF30000FF30000008F70008F700000008FF00087300000000FF100CF100000000EF300EF000000000CF300770000000008F700F50000000000FF08F00008000000EF08740000100000CF1C322000C00000871C1000000F10000F360000000870000E3E0604000060000C3E020000800000087E020000000000007F020000000000006F000300000000004F40001000000000CF28040000000000C720481004000000C3100100081000008B100020002000008F00002800000000CF700C4008000000CFFE0000600000008FF900007040000087FF3080004000008FD7E001200000008F8FC10068134000C1F105000001000049F30000600000004A730C02000A00004AF70803000310006AF70001980000002EFF0E00180000002CFF1C00001180003CFF30000000060018FF70000004008A18FF70180000000800FF72000000000C00FF700000000004006E708100000002004870070000000300806087000000810081C083000000C0000380C110000060000600C00000003000081088000008100000300100000C00000060200000030000008100000081000000070000006000000008F7000C1000000000EF18F300000000000EFF7000000
GROB 64 64 0000006FF600000000000EFF7F30000000008FFFFFF100000000FFFFFFF700000008FFFF1CFF1000000EFF8F087E3000000FFF836F08F000008FFF810000E10000EFF7600000830000FFFF100000070008FFF70000000E0008FF130000000C100CFFD10000000C300EFDF100000008300FF9B000000000700FF98000000000608FF40000040000C08FF2800000100081CFF1401000A00081CF700000000F0003EF00000000083002E760010800002002E360010000800006E330010000000004F370800000000004F370000500000004F97010001000000CD864080800000008FC74004030080008FF12000200001008FF81000040002008FFF0000040100008DFFF100890001008DFFF7D0000400008DCFFFC0000E04008D736FF30010040081FFBF3E102400018197067810048A11C100F400500008004108FC0000060000420CFD1080200070420EFF1080300850620EFF3000158000268FFF70C0018000248FFFF080000901340FFFF100000002180FFFF100000018181EFFF380400008001EFFF90000000C003C7FF100000004006C1EF106000002004008F10C100003008000600E100081008100C0070000C00003008083200060000600008100003000081000880008100000300080000C00000060002000030000008100000081000000070000006000000008FFF00C1000000000EFF1C300000000000EFF7000000
GROB 64 64 000000EFF600000000000EFFFB30000000008FFFFFF100000000FFFFFFF700000008FFFFF78F1000000EFFFF870E3000000FFFFF81D3C000008FFFFF8000810000EFFFFF6000030000FFFFFF3000060008FFFFFD10000C0008FFFF3C000008100CFFFF37000000300EFFFBF7000000200FFFF3E7000000400FFFF324000000408FFFF310000020808FFFF91800004081CFFFF70401008201CFFF710000000E11EFFF100000000032A7FF810010800062E3F3810010000206E1F7810010000004D9E7830810000004D8E7C70000A00004D8A347030002000CD0E067408001000898F0F7400806002838FA70200020006810FE3C100004004810FEFF000008800810EFFFF10003104810CFFDFFB100060810C1D5FF9100078830CFD16FF6001088100FF73F3C10220C1001E70CE83002ED100000FD00A0008410000CFC0000030420000EFD1080200520000FFF1081308720008FFF300092126000EFFF70E080124000EFFFF0C000434000EFFFF00000018000EFFFF10000C18100EFFFF14010800100CFFFF50000C003008FDFF00000400600818F700100200410000C7003003008200008108308100810000830E10C00003000001074060000600000003003000081000008808100000300000800C00000060000010030000008100000081000000070000006000000008FFFF0C1000000000EFFF9300000000000EFF7000000
GROB 64 64 0000006FF600000000000EFFFF30000000008FFFFFF100000000FFFFFFF700000008FFFFFFFC1000000EFFFFF7E13000000FFFFFFFC4F000008FFFFFFF90810000EFFFFFFFD0030000FFFFFFFF70060008FFFFFFFB300C0008FFFFFFF81008100CFFFFFFFC1000300EFFFFFFCF1000200FFFFFFF971000400FFFFFFF112000408FFFFFFF110000908FFFFFFF804000A1CFFFFFFF704800C1C7FFFFFF10000081E7FFFFF100000003E3EFCFD810010202E1E3CF3810010007E0E1CF7810010004F0E12F7830010004F0E02F787000030470C02B3C7060080C70C10B04F80018083081670EF800881C3010C72F0400020C3000CFC78200002830008FEFF100002910000FFFFF300C2810000EFFDFFF100A90000C1ABEF3300B10100CF93AEF7048100000FFF2E7C1493000001C60CF850D700000000E90010470000000CFD10005E0000000EFD10444E0000000FFF30466E2000008FFF300A3E300000FFFF70343C100000FFFF70303C100000FFFFF00018000000FFFFF00818100000EFFFF01900100000EFFF710C00300000EFEF700400600000E0CF301200404000000F10330080800000060C9100810000000E0EC00003000000068770000E0000000081300008910000004A100000340000004C00000060000008030000008100000081000000070000006000000008FFFF7D1000000000EFFFF300000000000EFF7000000
GROB 64 64 000000EFF700000000000EFFFF30000000008FFFFFF100000000FFFFFFF700000008FFFFFFFF1000000EFFFFFFFF3000000FFFFFFFFFF000008FFFFFFFFFA10000EFFFFFFFFF230000FFFFFFFFFF360008FFFFFFFFFF3C0008FFFFFFFFF138100CFFFFFFFFF330300EFFFFFFFF7F302007FFFFFFFFFC50400FFFFFFFFFFC40408FFFFFFFFFF800808FFFFFFFFFF40181CFFFFFFFFFF30111CFF7CFFFFFF10001EFF7CFFFFF000002EFF38F7CFD030403EFF10F38F3830406EF700F18F7830804FFF00F04F7070804FFF00F04F78F0005FF300E04B38F030EFF300E10718E802AFF10081CE0CE808CFF108008F4E14009FF000008F9F0500CF7000000FDFF100CF7000000EFFFF30EF3000000CFFBFF78F3800000836FFF68F30040008F33CFFCF30000000EFF7F9DF300000001CD06BFF73000000000E504F73000000008F604EF300000000EFE05EF300000000EFF07E3300000008FFF02E333000000FFFF82C730000000FFFF83C770000000FFFF018700000000FFFF818700000000FFFFC00F00000000FFFFC00F00000000FBF740060000000070F330040008000000E13008000010000068100810000000006E0000300000000027000062100000000300008104000000C100000300100000C00000060000000030000008100000081000000070000006000000008FFFFFF1000000000EFFFF300000000000EFF7000000
} 1 1 .1 \-> G I d w
  \<< ERASE { # 0h # 0h } PVIEW
    WHILE 1
    REPEAT PICT { # 20h # 0h } G I 1 + GET EVAL REPL
      IF w 0 >
      THEN w WAIT
      END
      IF w -1 ==
      THEN 0 WAIT
        IF 26.1 \=/
        THEN .1 'w' STO
        END
      END
      IF KEY
      THEN
        CASE DUP 36 ==
          THEN 1 'd' STO
          END DUP 34 ==
          THEN -1 'd' STO
          END DUP 26 ==
          THEN -1 'w' STO
          END DUP 35 ==
          THEN w .05 + 'w' STO
          END DUP 25 ==
          THEN
            IF w 0 >
            THEN w .05 - 'w' STO
            ELSE 2000 .1 BEEP
            END
          END
        END DROP
      END I d + 15 MOD 'I' STO
    END
  \>>
\>>