Title RapidCalc
Dec [result],[temp],[num],[prompt]

%new
Let [result]=0.00

%next
Echo [result]
Echo :
Input [prompt]

CopyVar [temp]=[prompt]:'1','1'
If [temp]='+' Goto add
If [temp]='-' Goto sub
If [temp]='/' Goto div
If [temp]='*' Goto mul
If [temp]='?' Goto help
UpVar [temp]=[temp]
If [temp]='N' Goto new
If [temp]='L' Goto letresult
If [temp]='C' Cls
If [temp]='Q' Exit
Goto next

%add
GetLen [temp]=[prompt]
CopyVar [num]=[prompt]:'2',[temp]
CalcVar [result]=[result]+[num]
Goto next

%sub
GetLen [temp]=[prompt]
CopyVar [num]=[prompt]:'2',[temp]
CalcVar [result]=[result]-[num]
Goto next

%div
GetLen [temp]=[prompt]
CopyVar [num]=[prompt]:'2',[temp]
CalcVar [result]=[result]/[num]
Goto next

%mul
GetLen [temp]=[prompt]
CopyVar [num]=[prompt]:'2',[temp]
CalcVar [result]=[result]*[num]
Goto next

%help
EchoLn.
EchoLn ----------------------------------------------------------------
EchoLn RapidCalc - Simple Calculator
EchoLn Public Domain by J.M.K S.F.
EchoLn.
EchoLn Command:                 Name:                   Example:
EchoLn.
EchoLn +                        Add                     +12
EchoLn -                        Subtract                -12
EchoLn *                        Multiple                *12
EchoLn /                        Divide                  /12
EchoLn ?                        This Help               ?
EchoLn l                        Let result              l
EchoLn n                        New calculation         n
EchoLn c                        Clear                   c
EchoLn q                        Quit                    q
EchoLn ----------------------------------------------------------------
EchoLn.
Goto next

%letresult
Echo Enter a new result: 
Input [result]
Goto next
End