(vmon)
(defun C:ANSI ()
(prompt "ANSI.LSP     Version 1.0     by Graham Company")
(terpri)
	(setvar "cmdecho" 0)
(graphscr)
	(command "layer" "m" "DIM" "c" "green" "")
	(setq INPT (getpoint "\nPick insertion point "))
	(setq TOL (getstring "\nEnter tolerance: "))
	(setq DAT (getstring "\nEnter datum: "))
	(menucmd "i=ansi")(menucmd "i=*")
)