home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBEVAL20.ZIP / CALC.BAS next >
Encoding:
BASIC Source File  |  1992-08-11  |  787 b   |  42 lines
  1. '
  2. '
  3. '
  4. ' A simple calculator to demonstrate Eval
  5. '
  6. '
  7. '
  8. '$INCLUDE: 'eval.bi'
  9.  
  10. ON ERROR GOTO Err.Handler:
  11.  
  12. IF COMMAND$ = "" THEN
  13.  
  14.         PRINT
  15.         PRINT "CALC Ver 1.0  --  Copyright [c] 1990 Applied Design Group"
  16.         PRINT "         Hit RETURN on a blank line to exit."
  17.         PRINT
  18.  
  19.         a$ = " "
  20.         WHILE LEN(a$)
  21.                 b$ = ""
  22.                 LINE INPUT "  calc>", a$
  23.                 IF LEN(a$) THEN PRINT "answer> ";Eval#(a$, b$)
  24.                 IF LEN(b$) THEN PRINT " error> "; b$
  25.                 PRINT
  26.         WEND
  27.  
  28. ELSE
  29.         PRINT Eval#(COMMAND$, b$)
  30.         IF LEN(b$) THEN PRINT " error> "; b$
  31.         PRINT
  32. END IF
  33.  
  34. system
  35.  
  36. Err.Handler:
  37.  
  38.         print "Oops, you hit the wrong buttons!!!"
  39.         system
  40.  
  41. end
  42.