%%HP: T(3)A(R)F(.);
@ The Factory, an animation by Doug Cannon
DIR
  SETUP
    \<<
	F1 ST\-> 'F1' STO
	F2 ST\-> 'F2' STO
	F3 ST\-> 'F3' STO
	F4 ST\-> 'F4' STO
	F5 ST\-> 'F5' STO
	F6 ST\-> 'F6' STO
	F7 ST\-> 'F7' STO
	F8 ST\-> 'F8' STO
	{ SETUP ST\-> } PURGE
    \>>
  ST\->
    \<< \-> S
      \<< "" 1 S SIZE
        FOR N S N GET +
        NEXT STR\->
      \>>
    \>>
  DOIT
    \<<
	F1 PICT STO { # 0d # 0d } PVIEW
	PICT { # 0d # 35d } "THE FACTORY" 1 \->GROB REPL
	PICT { # 0d # 41d } "BY: DOUGLAS R. CANNON" 1 \->GROB REPL
	PICT { # 0d # 47d } "ORIGINALLY WRITTEN FOR THE HP28s" 1 \->GROB REPL
	PICT { # 0d # 53d } "IN AUGUST 1989" 1 \->GROB REPL
      DO
	PICT { # 0d # 0d } F1 REPL
	PICT { # 0d # 0d } F2 REPL
	PICT { # 0d # 0d } F3 REPL
	PICT { # 0d # 0d } F4 REPL
	PICT { # 0d # 0d } F5 REPL
	PICT { # 0d # 0d } F6 REPL
	PICT { # 0d # 0d } F7 REPL
	PICT { # 0d # 0d } F8 REPL
      UNTIL KEY
      END DROP
    \>>
  F1 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
"FF000000000000F3F3F3F3FBBAA20000000000FFFF10000000D2D2D2D2DE5553006003"
"03030000EFF70000D2D2D2D2DEAAF708F1878787030300081000D2D2D2D2D75D0408FD"
"878787878703002000F3F3F3F3FFFAF700F2030303878787032000FFFFFFFFFF1FF700"
"008FFFF0030387872000CCCCCCCCCC2C04000000000FFFF103872000000000000C4C04"
"0002000000000EFF732000000000000C48F7000C000000008FFF702000CCCCCCCCCC28"
"F70C000000FFFF7000002000FFFFFFFFFF18040F308FFF000000606020000000000000"
"08040F306000006060F0F02000000000000008F70E10706060F0F0F0F0200000000000"
"0008F70000F0F0F0F0F06068100000000000000C040000F0F0F06068FFF70000000000"
"00000C04000070606FFFF70000000000000000000FF70000EFFFF0000000000000FFFF"
"FFFFFFFAF7000000000000000000000000000000007D04000000000000000000000018"
"18181818BA040000000000000000000000242424242C5DF7000000FFFFFFFFFFFFF700"
"7E7E7E7E7EAAA2000008C7830000000008004242424247555300081CEFC7830000008B"
"107E7E7E7EFBAAA18FFF3C6CEEC7830083CF10FFFFFFFFFFFFF0CC0D7CEE6CEEC783C7"
"EE10CCCCCCCCC02760FF0CBCC7EE6CEEC7EE6C10000000000E57EFEF0CBC83C7EE6CEE"
"6CEE10000000000E5260CC014C0083C7EF6CEFCF10CCCCCCCCC02200BFFF38000083C7"
"FFD78B00FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F2 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
"FF000000000000E7E7E7E7EFBAA200C0000000FFFF10000000A5A5A5A5AD555300F306"
"06000000EFF70000A5A5A5A5AFAAF700F30F0F06060600081000A5A5A5A5A75D0400E1"
"0F0F0F0F0F06002000E7E7E7E7EFFA04000C06060F0F0F0F002000FFFFFFFFFF1FF700"
"028FFFF606060F06200099999999993CF7000000000FFFF1060F2000000000000C4C04"
"0000000000000EFF7F2000000000000C48040C02000000008FFF762000666666666628"
"F70F3C0000FFFF7000002000FFFFFFFFFF18F70F308FFF000000303020000000000000"
"08040E1000003030387870200000000000000804000810387878787870200000000000"
"0008F7000C38787878703038100000000000000CF7000C7870303038FFF70000000000"
"00000C04000870300FFFF70000000000000000000F040000BFFFF0000000000000FFFF"
"FFFFFFFAF7000000000000000000000000000000007DF700000000000000000000000C"
"0C0C0C0CBA040000000000000000000000121212121E5DF7000000FFFFFFFFFFFFF700"
"3F3F3F3F3FAAA20008180700000000000F002121212127555300081C9F07000000078F"
"103F3F3F3FBBAAA18FFF3CDD9F0700078FCD10FFFFFFFFFFFFF0C81D7CD8DD9F078FCD"
"D81066666666603760FF1CBCCDD8DD9FCDD8DD10000000000C57EFEF1CBC8FCDD8DDD8"
"DD9F10000000000E4260C8114C078FCFD8DF9F0F1099999999932200BFFF3800078FEF"
"BF070800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F3 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100818FFF"
"FF000000000000CFCFCFCFCFBAA200C3000000FFFF100000004B4B4B4B4F555300C70C"
"0C0C0000EFF700004B4B4B4B4FAAF700870E1E1E1C00000810004B4B4B4B475DF70003"
"0E1E1E1E1C0C002000CFCFCFCFCFFA0400000C0C0C0E1E1E102000FFFFFFFFFF1F0400"
"0C8FFFF00C0E1E10200033333333393CF7000200000FFFFD0C0C2000000000000C4CF7"
"0C00000000000EFF7E3000000000000648040F30000000008FFF7E3000333333333328"
"040F320000FFFF70000C2000FFFFFFFFFF18F70E1C8FFF000008181020000000000000"
"08F70000000008181C3C30200000000000000804000608181C3C3C3C30200000000000"
"000804000F0C3C3C3C381818100000000000000CF7000F1C3C381818FFF70000000000"
"00000CF7000E18181FFFF70000000000000000000F04000C8FFFF0000000000000FFFF"
"FFFFFFFA04000000000000000000000000000000007DF7000000000000000000000006"
"0606060EBAF70000000000000000000000090909090D5DF7000810FFFFFFFFFFFFF700"
"9F9F9F9F9FAAA200081800000000000E0F009090909097555300081C1E0000000E0F9F"
"109F9F9F9F9BAAA18FFF3C3F1E000E0F9BB910FFFFFFFFFFFFF0C03D7CBB3F1E0F9BB1"
"BB10333333333B3760FF3CBCB1BB3F9BB1BB3F10000000000C47EFEF3CBC9BB1BBB1BB"
"3F1E1000000000064260C0314C0F9FB1BF3F1E081033333333332200BFFF380E0FDF7F"
"1E000800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F4 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100068FFF"
"FF0000000000009F9F9F9F9FBAA2000F000000FFFF10000000969696969E5553000F18"
"18100000EFF70000969696969EAAF7000E1C3C3818181008100096969696975DF7000C"
"0C3C3C3C3C381020009F9F9F9F9FFAF7000008181C3C3C3C302000FFFFFFFFFF1F0400"
"008FFFF818181C30200066666666603C040C0C00000FFFF108102000000000000C5CF7"
"0F32000000000EFF7C2000000000000E48F70F30000000008FFF7E3000999999999328"
"040E100000FFFF70000E3000FFFFFFFFFF180400028FFF00000C0C0C20000000000000"
"08F7000C00000C0C0E1E102000000000000008F700810C0C0E1E1E1E10200000000000"
"00080400C30E1E1E1E1C0C08100000000000000C0400C70E1E1C0C08FFF70000000000"
"00000CF700870C0C0FFFF70000000000000000000FF700038FFFF0000000000000FFFF"
"FFFFFFFA04000000000000000000000000000000007D04000000000000000000000003"
"0303030BBAF70008100000000000000000848484848C5DF7000810FFFFFFFFFFFFF700"
"CFCFCFCFCFAAA2000818000000000C1E3C004848484847555300081C1000000C1E3F7E"
"10CFCFCFCFCBAAA18FFF3C3C100C1E37736F10FFFFFFFFFFFFF0C06D7C7E3C1E377367"
"7B1099999999993760FF7CBC677E3773677E3F10000000000C47EFEF7CBC736773677E"
"3C1E10000000000C4260C0614C3F736F7E3C100C1066666666662200BFFF381EBFFE3C"
"10000800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F5 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
"FF0000000000003F3F3F3F3FBAA20008100000FFFF100000002D2D2D2D2D5553000C30"
"30300000EFF700002D2D2D2D2FAAF7000C7878703030000810002D2D2D2D275D040008"
"7878787870303020003F3F3F3FBFFAF70000303038787878702000FFFFFFFFFF1FF70C"
"008FFFF0303878702000CCCCCCCCC02C040F3000000FFFF130302000000000000E5C04"
"0F3C000000000EFF702000000000000E58F70E12000000008FFF762000CCCCCCCCC028"
"F700000000FFFF70000F2000FFFFFFFFFF180400008FFF000006060F20000000000000"
"08040002000006060F0F062000000000000008F7000C06060F0F0F0F00200000000000"
"0008F700C00F0F0F0F060608100000000000000C0400F30F0F060608FFF70000000000"
"00000C0400F306060FFFF70000000000000000000FF700E18FFFF0000000000000FFFF"
"FFFFFFFAF7000000000000000000000000000000007D04000810000000000000000081"
"81818189BA040008100000000000000000424242424E5DF7000810FFFFFFFFFFFFF700"
"E7E7E7E7EFAAA2000818000000083C7838002424242427555300081C0000083C7EFC78"
"10E7E7E7E7EBAAA18FFF3C30083C7EE6CEEC10FFFFFFFFFFFFF0C0CD7C783C7EE6CEE6"
"CE10CCCCCCCCCC2760FFFCBCEC7EE6CEEC7EEE10000000000C47EFEFFCBCCEE6CEEC78"
"3C7E10000000000C4260C0C14CF6CEFC7830083C10CCCCCCCCCC2200BFFF387FFD7830"
"00000800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F6 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
"FF0000000000007E7E7E7E7EBAA20000600000FFFF100000005A5A5A5A5E5553000070"
"60600000EFF700005A5A5A5A5EAAF70000F0F0F06060000810005A5A5A5A575D040000"
"F0F0F0F0F0606020007E7E7E7EFFFA040C00706060F0F0F0F02000FFFFFFFFFF1FF70F"
"30EFFFF06060F0F0200099999999932CF70F3000000FFFF160602000000000000E4C04"
"0E10000000000EFF702000000000000C5804000C000000008FFF702000666666666038"
"F700020000FFFF7000032000FFFFFFFFFF18F700008FFF000000038720000000000000"
"0804000000000303038787200000000000000804006203038787878703200000000000"
"0008F708FD87878787870308100000000000000CF708F1878703030BFFF70000000000"
"00000C0400F003030FFFF70000000000000000000F0400008FFFF0000000000000FFFF"
"FFFFFFFAF7000000000000000000000000000000007DF70000000000000000000000C0"
"C0C0C0C8BA040008100000000000000000212121212D5DF7000810FFFFFFFFFFFFF700"
"F3F3F3F3FFAAA200081800000078F07008001212121217555300081C000078FCF9F078"
"10F3F3F3F3FBAAA18FFF3C0078FCDD8DD9F810FFFFFFFFFFFFF0C06D7C78FCDD8DDD8D"
"D91066666666662760FF7CBCFCDD8DD9FCDD8D10000000000C47EFEF7CBCDD8DD9F078"
"FCDD10000000000C4260C0614C8DF9F0700078FC1099999999993200BFFF38FBF07000"
"00007800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F7 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
"FF000000000000FCFCFCFCFCBAA20000000000FFFF10000000B4B4B4B4BC55530000F0"
"C0C00000EFF70000B4B4B4B4BEAAF70008E1E1E1C0C000081000B4B4B4B4B75DF70810"
"E1E1E1E1E1C0C02000FCFCFCFCFFFA040E70C0C0C0E1E1E1E12000FFFFFFFFFF1F040E"
"788FFFF0C0C0E1E1200033333333332CF70C3030000FFFF1C0C0200000000000064CF7"
"0000000000000EFF702000000000000C48040000000000008FFF702000333333333938"
"0400081000FFFF7000002000FFFFFFFFFF18F700048FFF000081818120000000000000"
"08F7003000008181C3C3C32000000000000008040CF08181C3C3C3C3C3200000000000"
"0008040CF4C3C3C3C3818189100000000000000CF70878D3C3818108FFF70000000000"
"00000CF7000081810FFFF70000000000000000000F0400008FFFF0000000000000FFFF"
"FFFFFFFA04000000000000000000000000000000007DF7000000000000000000000060"
"60606068BAF70000000000000000000000909090909C5DF7000810FFFFFFFFFFFFF700"
"F9F9F9F9FFAAA20008180000E0F1E00008000909090907555300081C00E0F9F3F1E008"
"10F9F9F9F9FBAAA18FFF3CE0F9BB1BB3F1E810FFFFFFFFFFFFF0C03D7CF9BB1BBB1BB3"
"F91033333333332760FF3CBCBB1BB3F9BB1BBB10000000000647EFEF3CBC1BB3F1E0F9"
"BB1B10000000000C4260C0314CF3F1E000E0F9FB10333333333B3200BFFF38F1E00000"
"00E0F900FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  F8 {
"GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
"FF000000000000F9F9F9F9F9BAA20000000000FFFF10000000696969696D5553000081"
"81810000EFF70000696969696FAAF70038D3C3C381810008100069696969675DF70CF4"
"C3C3C3C3C381812000F9F9F9F9FFFAF70CF0818181C3C3C3C32000FFFFFFFFFF1F0408"
"708FFFF08181C3C3200066666666662C04000400000FFFF181812000000000000C4CF7"
"0008100000000EFF702000000000000C48F70000000000008FFF702000999999999938"
"0400000000FFFF7000C02000FFFFFFFFFF18040810BFFF000000C0E120000000000000"
"08F70E780000C0C0C0E1E12000000000000008F70E70C0C0E1E1E1E1C0200000000000"
"0008040C30E1E1E1E1E1C008100000000000000C040008E1E1C0C0C8FFF70000000000"
"00000CF70000F0C00FFFF70000000000000000000FF700008FFFF0000000000000FFFF"
"FFFFFFFA04000000000000000000000000000000007D04000000000000000000000030"
"30303038BAF70000000000000000000000484848484C5DF7000000FFFFFFFFFFFFF700"
"FCFCFCFCFEAAA200081800C1E3C1000008008484848487555300081CC1E3F7E3C10008"
"10FCFCFCFCFBAAA18FFF3CE3773677E3C10810FFFFFFFFFFFFF0C81D7C7736773677E3"
"C91099999999932760FF1CBC3677E3773677EB10000000000E47EFEF1CBC77E3C1E377"
"367F10000000000C5260C8114CE3C100C1E3F73E1066666666663200BFFF38C1000000"
"C1EBFF00FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
END
