%%HP: T(1)A(R)F(.);
 CLEAR CLLCD
" INPUT OBJ in rows
Enter the numbers and
press  after.
Press <ENTER> after
the last number"
2 DISP 5 WAIT
"INPUT OBJ in rows"
{ ":Vo:
:a:
:t:" {
1 0 } } INPUT OBJ
 VO A T
   CLEAR 'VO+A*T'
NUM "V" TAG
  

