home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / aplic / turbocad / tcw.z / calculator.bas < prev    next >
BASIC Source File  |  1997-05-05  |  302b  |  13 lines
  1. sub main()
  2.     
  3.     Title$ = "TCAPI Calculator"
  4.     Prompt$ = "Enter a valid Enable Basic numeric expression. (e.g. " & Chr(34) & "sqr(47) / 2" & Chr(34)
  5.     Default$ = ""
  6.  
  7.     E$ = InputBox$(Prompt$, Title$, Default$)
  8.     If E$ <> "" Then
  9.         TCWBasicRun "A# = " & E$ & Chr(10) & "MsgBox A#"
  10.     End If
  11. end sub
  12.  
  13.