(defun cd:SYS_AcadInfo (/ s v)
  (list
    (getvar "PRODUCT")
    (atof (getvar "ACADVER"))
    (if (wcmatch (strcase (getenv "PROCESSOR_ARCHITECTURE")) "*64*") 64 32)
    (if (setq s (vl-string-search "(" (setq v (ver))))
      (strcase (substr v (+ 2 s) 2))
      "??"
    )
  )
)

  
  (defun commands(name arg1 arg2 arg3 arg4 arg5)
    (cond
      ((>= (cadr (cd:SYS_AcadInfo)) 20.0) ; Acad 2015 version
       (command-s name arg1 arg2 arg3 arg4 arg5)
       )
      ((< (cadr (cd:SYS_AcadInfo)) 20.0) ; bis Acad 2014 version
       	 (command name arg1 arg2 arg3 arg4 arg5)
	 )
       )
      )

(commands "LINE" '(0 0) PAUSE 0 0 0)