home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / V4 / tcw.z / calculator.bas < prev    next >
BASIC Source File  |  1997-10-08  |  436b  |  13 lines

  1. 'TCAPI Calculator
  2.  
  3. sub main()
  4.     Title$="TCAPI Calculator"
  5.     Prompt$ = "Enter a valid Enable Basic numeric expression. (e.g. " & Chr(34) & "sqr(64) / 2" & Chr(34) &")"
  6.     Default$ = "sqr(64)/2"
  7.     E$ = InputBox$(Prompt$, Title$, Default$)
  8.     If E$ <> "" Then
  9. TCWBasicRun "A#="+E$+Chr(10)&"Title$="&Chr(34)&"TCAPI Calculator"&Chr(34)+Chr(10)&"Result=MsgBox"&"(" &Chr(34)&E$ & " = "&Chr(34)&"+Str("&"A#"&"),0,Title$)"
  10.     End If
  11. end sub
  12.  
  13.