    1PRINT "don.mcdonald.1_line.calculator, [1993]"'"<Return>"
    2PRINT "  6 +  3  <Ret>"
    3INPUT " append: + - * / ^ E2, DIV1-MOD, PI,1234 ()... <Ret>"; R
    4:REPEAT
    5:INPUT SPC4; A$
    6:A$=STR$(R)+A$
    7:R=EVAL(A$)
    8:PRINT"= ";R;
    9:UNTIL FALSE