%%HP: T(1)A(R)F(.);
 CLEAR
"Using ROT
Enter A B C"
"" INPUT OBJ  A B
C
  
"Rotating A B C" A
"A" TAG B "B" TAG
C "C" TAG ROT
  

