%%HP: T(3)A(D)F(.);
\<< 2 CECILE2
  IF TYPE 6 ==
  THEN
  ELSE PROG
    IF 2 VT TYPE 6
==
    THEN 1 'VT' STO
    ELSE
      IF VT 4 >
      THEN
"   COCOSTORY 
CAN'T HAVE BEEN
 REGISTERED..."
MSGBOX
      ELSE VT 1 +
'VT' STO
      END
    END
    IF VT 4 >
    THEN
    ELSE 'PRO' VT
\->STR + OBJ\-> { {
"COCOSTORY"
      \<< COCOSTOR
GAME
      \>> } } SWAP
STO
"  COCOSTORY HAS
BEEN REGISTERED
     UNDER
  CECILE 2.1 !"
MSGBOX
    END
  END CLEAR HOME
\>>
