;adder.lsp      aj 22May03
;A hello world reofeam that adds two numbers
;
(defun c:ADDER()
  (setq strName (getstring T "\nWhatis your name? "))  ; T is to allow for spaces ie Tom Brown
  (prompt "\nThat's a nice name." strName)
  (setq realNum1 (getreal "\nEnter a number: ")
        realNum2 (getreal "\nEnter another number: ")
        realTotal (+ realNum1 realNum2))
  (prompt (realtotal))
)

    Source: geocities.com/wpsmoke/acadalisptrng/adder

               ( geocities.com/wpsmoke/acadalisptrng)                   ( geocities.com/wpsmoke)