7 lines
165 B
Text
7 lines
165 B
Text
(DEFUN A-PLUS-B ()
|
|
(DISPLAY "Enter two numbers separated by a space.")
|
|
(NEWLINE)
|
|
(DISPLAY "> ")
|
|
(DEFINE A (READ))
|
|
(DEFINE B (READ))
|
|
(+ A B))
|