(DEFUN ONSERR(S)
    (IF (/= S "Fonksiyon iptal edildi!!!")
       (PRINC (STRCAT "n\Error: " S))
    )
    (SETQ *ERROR* OERR)
    (PRINC)
)
(DEFUN MODES (A)
  (SETQ MLST nil)
  (REPEAT (LENGTH A)
    (SETQ MLST (APPEND MLST (LIST (LIST (CAR A) (GETVAR (CAR A))))))
    (SETQ A (CDR A)))
)
(DEFUN MODER ()
  (REPEAT (LENGTH MLST)
    (SETVAR (CAAR MLST) (CADAR MLST))
    (SETQ MLST (CDR MLST)))
)
(DEFUN ON()
    (SETQ ABC (GETVAR "LASTPOINT"))
    (SETQ M (CAR ABC))
    (SETQ X (RTOS M 2 2))
    )
(DEFUN OM()
    (SETQ ABC (GETVAR "LASTPOINT"))
    (SETQ N (CADR ABC))
    (SETQ Y (RTOS N 2 2))
)
(DEFUN C:kr (/ AB OERR OS OC OB OG OH E OD)
    (SETVAR "BLIPMODE" 0)
    (SETVAR "GRIDMODE" 0)
    (SETVAR "CMDECHO" 1)
    (SETVAR "LUPREC" 4)
    (SETVAR "DIMZIN" 0)
    (setq yb  (getvar "textsize"))
    (setvar "textsize" yb)
(setq nokta 3)
(while nokta
(SETQ nokta (GETPOINT "\n Belirtmek istediginiz noktayż seciniz..."))
(progn
(COMMAND "INSERT" "xy" nokta   yb yb 0 (ON) (OM) )
))        
(MODER)
)