home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / EX_EVAL.OPL < prev    next >
Text File  |  1992-08-27  |  174b  |  11 lines
  1. proc eeeval:
  2. DO
  3. AT 10,5 :PRINT "Calc:",
  4. TRAP INPUT n$
  5. IF n$="" :CONTINUE :ENDIF
  6. IF ERR=-114 :BREAK :ENDIF
  7. CLS :AT 10,4
  8. PRINT "Result:",n$;"=";EVAL(n$)
  9. UNTIL 0
  10. endp
  11.