Sippets from Adesk Uni 2002

while loops and counters
(notice 10 still reports because there is no (princ):

(setq counter 0)
(while (< counter 10)
(prompt (itoa counter))
(setq counter (+ counter 1))
)

if/then statements:

(setq counter 0)
(while (< counter 10)
(prompt (itoa counter))
(setq counter (+ counter 1))
(if (> counter 5) (prompt “B”) (prompt “A”))
)