16 lines
412 B
Plaintext
16 lines
412 B
Plaintext
! RosettaCode: Integer Arithmetic
|
|
! True BASIC v6.007
|
|
! Translated from BaCon example.
|
|
PROGRAM Integer_Arithmetic
|
|
INPUT PROMPT "Enter integer A: ": a
|
|
INPUT PROMPT "Enter integer B: ": b
|
|
PRINT
|
|
PRINT a;" + ";b;" is ";a+b
|
|
PRINT a;" - ";b;" is ";a-b
|
|
PRINT a;" * ";b;" is ";a*b
|
|
PRINT a;" / ";b;" is ";INT(a/b);
|
|
PRINT "MOD(";a;", ";b;") is "; MOD(a,b)
|
|
PRINT "POW(";a;", ";b;") is ";INT(a^b)
|
|
GET KEY done
|
|
END
|