Here's a goofy little .lsp function. Might be fun to replace someone's line command with and see what happens < eg >
(defun c:fun (/ pta n ck)
(setq pta (getpoint "Please Choose Start Point")
n 1)
(while (setq ck (cadr (grread t)))
(grdraw pta ck n)
(if (> n 16)
(setq n 1)
(setq n (1+ n))
)
)
)
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!