%%HP: T(1)A(D)F(.);
«
"MEAN VT READING?"
{ ":FL€: 
:FR€: " {
1 0 } V } INPUT
OBJ DUP
  IF 90 >
  THEN SWAP 270
SWAP HMS- 90 + HMS+
HMS 2 / HMS
  ELSE SWAP 270
SWAP HMS- 90 HMS+
HMS+ HMS 2 / HMS
  END "VT" TAG
»