11 lines
525 B
Text
11 lines
525 B
Text
INTEGER PROC FNMathGetSumAPlusBI( INTEGER A, INTEGER B )
|
|
RETURN( A + B )
|
|
END
|
|
//
|
|
PROC Main()
|
|
STRING s1[255] = "3"
|
|
STRING s2[255] = "2"
|
|
IF ( NOT ( Ask( "math: get: sum: a: plus: a (choose a number between -1000 and 1000) = ", s1, _EDIT_HISTORY_ ) ) AND ( Length( s1 ) > 0 ) ) RETURN() ENDIF
|
|
IF ( NOT ( Ask( "math: get: sum: a: plus: b (choose a number between -1000 and 1000) = ", s2, _EDIT_HISTORY_ ) ) AND ( Length( s2 ) > 0 ) ) RETURN() ENDIF
|
|
Message( FNMathGetSumAPlusBI( Val( s1 ), Val( s2 ) ) ) // gives e.g. 5
|
|
END
|