home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 2002 March
/
PCWMAR02.iso
/
software
/
turbocad
/
V4
/
tcw.z
/
calculator.bas
< prev
next >
Wrap
BASIC Source File
|
1997-10-08
|
436b
|
13 lines
'TCAPI Calculator
sub main()
Title$="TCAPI Calculator"
Prompt$ = "Enter a valid Enable Basic numeric expression. (e.g. " & Chr(34) & "sqr(64) / 2" & Chr(34) &")"
Default$ = "sqr(64)/2"
E$ = InputBox$(Prompt$, Title$, Default$)
If E$ <> "" Then
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$)"
End If
end sub