%%HP: T(3)A(D)F(.);
\<< { } TMENU 1 1
  WHILE 1
  REPEAT SCREEN -1
WAIT KEYEVAL
  END
\>>