%%HP: T(3)A(D)F(.);
@ CUBE, by Paul Lancaster
DIR
  CUBE
    \<< " A B C D" DUP 'M' STO
        " E F G H" DUP 'T' STO
        " I J K L" DUP 'W' STO
        " M N O P" DUP 'F' STO 1 15
      START RAND 8 * CEIL
        CASE DUP 1 ==
          THEN DROP ONE
          END DUP 2 ==
          THEN DROP TWO
          END DUP 3 ==
          THEN DROP TRE
          END DUP 4 ==
          THEN DROP FOUR
          END DUP 5 ==
          THEN DROP FIVE
          END DUP 6 ==
          THEN DROP SIX
          END DUP 7 ==
          THEN DROP SEVN
          END DROP EIGT
        END
      NEXT { ONE TWO TRE FOUR FIVE SIX TRE FOUR FIVE SIX SEVN EIGT } MENU
    \>>
  HELP
    \<< INST.GR PICT STO { } PVIEW
    \>>
  ONE
    \<< F 3 8 SUB F 1 2 SUB + 'F' STO 4 DROPN M T W F
    \>>
  TWO
    \<< W 3 8 SUB W 1 2 SUB + 'W' STO 4 DROPN M T W F
    \>>
  TRE
    \<< T 3 8 SUB T 1 2 SUB + 'T' STO 4 DROPN M T W F
    \>>
  FOUR
    \<< M 3 8 SUB M 1 2 SUB + 'M' STO 4 DROPN M T W F
    \>>
  FIVE
    \<< C1 B 1 2 SUB A 3 8 SUB + 'M' STO
        C 1 2 SUB B 3 8 SUB + 'T' STO
        D 1 2 SUB C 3 8 SUB + 'W' STO
        A 1 2 SUB D 3 8 SUB + 'F' STO 4 DROPN M T W F
    \>>
  SIX
    \<< C1 A 1 2 SUB B 3 4 SUB + A 5 8 SUB + 'M' STO
        B 1 2 SUB C 3 4 SUB + B 5 8 SUB + 'T' STO
        C 1 2 SUB D 3 4 SUB + C 5 8 SUB + 'W' STO
        D 1 2 SUB A 3 4 SUB + D 5 8 SUB + 'F' STO 4 DROPN M T W F
    \>>
  SEVN
    \<< C1 A 1 4 SUB B 5 6 SUB + A 7 8 SUB + 'M' STO
        B 1 4 SUB C 5 6 SUB + B 7 8 SUB + 'T' STO
        C 1 4 SUB D 5 6 SUB + C 7 8 SUB + 'W' STO
        D 1 4 SUB A 5 6 SUB + D 7 8 SUB + 'F' STO 4 DROPN M T W F
    \>>
  EIGT
    \<< C1 A 1 6 SUB B 7 8 SUB + 'M' STO
        B 1 6 SUB C 7 8 SUB + 'T' STO
        C 1 6 SUB D 7 8 SUB + 'W' STO
        D 1 6 SUB A 7 8 SUB + 'F' STO 4 DROPN M T W F
    \>>
  C1
    \<< M 'A' STO T 'B' STO W 'C' STO F 'D' STO
    \>>
  CST 0
  INST.GR
GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000757065370E42A3892830242998DDD000002510155101A6B08A28202A654584410000277015370DEAA38118302EE5C98CD000002510155109A2A08218002AA54194410000257067370EA2A3811880EA295D8C510000000000000000000000000000000000000020505050375057507570520BB993B3000050502050555055505520D288AAA801000070707070352025507520D388A99B010000504020405550255015205388AAA801000050405040375027701720520BBAA331000000000000000000000000000000000000007337303505652701D5A28475600000000055515055051DA00B5CA28215100000000053573032052DB605DDB281722000000000555150520545B40154B2821240000000007537503207352701D5A38472310000000000000000000000000000000000000000009EA02A220E42D1CDD1CD18D545490E600052A02A2204AA4084514504454D6B0AA0003E40AA2204E6C184D14D1445455F0A600052406B2204AA408450450445454D0AA0009E402AEE04A2D18C50C508DDD5490EA00000000000000000000000000000000000003670770371184A188EAE0EE0EAE0E2D000212051055114DA28DAA204A04A2026510022205703551CDB28AAAE04A04EE0EE5100242051055B145B288A4204A04A202A51007320710571145A188E4E04E04AE0E2D00000000000000000000000000000000000000000075D1855067590E2770000000000000000015504450115B02A020000000000000000075D18420275F0EA620000000000000000019400550412D02A420000000000000000019C1C45037290E2720000000000000000000000000000000000000000000000775300200003000600030000000000000015550050000500010005000000000000007553707000030001000500000000000000155500500005000100050000000000000017750050000300060003000000000000000000000000000000000000000000000000737000700007000E000A000000000000002510001000010001000A00000000000000237770700007000D000E000000000000002510001000010009000A00000000000000257000700001000E000A00000000000000000000000000000000000000000000000071D10040000400090002000000000000002151004000040005000200000000000000255DD140000400030002000000000000002B5100400005000500020000000000000021D1004000070009000E00000000000000000000000000000000000000000000000079E00022008400070007000000000000005B200063008500050005000000000000005FEEE0A2008700050007000000000000005D2000220086000500010000000000000079E00022008400070001000000000000000000000000000000000000000000000000
  M 0
  T 0
  W 0
  F 0
  D 0
  C 0
  B 0
  A 0
END
