1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-24 15:29:23 +00:00
millfork/examples/crossplatform/calculator.mfk
2018-12-20 00:47:42 +01:00

39 lines
693 B
Plaintext

import stdio
#if CBM_64
import c64_basic
#elseif CBM_264
import c264_basic
#elseif ZX_SPECTRUM || NEC_PC_88
// no imports needed
#else
#error Unsupported platform
#endif
void main() {
word a
word b
putstrz("enter first number:"z)
new_line()
a = readword()
while errno != err_ok {
putstrz("that wasn't a number, try again:"z)
new_line()
a = readword()
}
putstrz("enter second number:{n}"z)
b = readword()
while errno != err_ok {
putstrz("that wasn't a number, try again:"z)
new_line()
b = readword()
}
putstrz("the sum is:"z)
new_line()
putword(a + b)
new_line()
}