proc eeeval: DO AT 10,5 :PRINT "Calc:", TRAP INPUT n$ IF n$="" :CONTINUE :ENDIF IF ERR=-114 :BREAK :ENDIF CLS :AT 10,4 PRINT "Result:",n$;"=";EVAL(n$) UNTIL 0 endp