20 lines
486 B
Plaintext
20 lines
486 B
Plaintext
IGNORELINE Note: This example includes the math module.
|
|
include arithmeticmodule
|
|
:a
|
|
editvar /newvar /value=a /title=Enter first integer:
|
|
editvar /newvar /value=b /title=Enter second integer:
|
|
editvar /newvar /value=c
|
|
do add -a-,-b-=-c-
|
|
printline -c-
|
|
do subtract a,b
|
|
printline -c-
|
|
do multiply a,b
|
|
printline -c-
|
|
do divide a,b
|
|
printline -c-
|
|
do modulus a,b
|
|
printline -c-
|
|
editvar /newvar /value=d /title=Do you want to calculate more numbers?
|
|
if -d- /hasvalue yes goto :a else goto :end
|
|
:end
|