%%HP: T(1)A(R)F(.);

  DO CLEAR
"Continuous Program 
Enter Q (quantity) 
P (price) "
"" INPUT OBJ  A B
     CLLCD
"quantity " A STR
+ 1 DISP .01 WAIT
"price    " B STR
+ 2 DISP .01 WAIT
"Total " 'A*B' NUM
STR + 4 DISP .01
WAIT
"  Pressione <ENTER>
     to continue!"
6 DISP 0 WAIT
    
  UNTIL 1 2 ==
  END

