millfork/examples/c64/calculator.mfk

import stdio
import c64_basic

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()
}