(defun _autoload (app)
; (princ "Auto:(load ") (princ app) (princ ")") (terpri)
  (load app)
)

(defun _autoqload (quoi app cmdliste / qapp symnam)
  (setq qapp (strcat "\"" app "\""))
  (setq initstring "\nInitializing...")
  (mapcar
   '(lambda (cmd / nom_cmd)
      (progn
        (setq nom_cmd (strcat "C:" cmd))
        (if (not (eval (read nom_cmd)))
            (eval
             (read (strcat
                    "(defun " nom_cmd "( / rtn)"
                    "(setq m:err *error* *error* *merrmsg*)"
                    "(if (ai_ffile " qapp ")"
                    "(progn (princ initstring)"
                    "(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"
                    "(ai_nofile " qapp "))"
                    "(setq *error* m:err m:err nil)"
                    "rtn)"
                    ))))))
   cmdliste)
  nil
)

(defun autoload (app cmdliste)
  (_autoqload "" app cmdliste)
)

(defun ai_ffile (app)
  (or (findfile (strcat app ".lsp"))
      (findfile (strcat app ".exp"))
      (findfile (strcat app ".exe"))
      (findfile (strcat app ".arx"))
      (findfile app)
  )
)

(defun ai_nofile (filename)
  (princ
    (strcat "\nThe file "
            filename
            "(.lsp/.exe/.arx) was not found in your search path folders."
    )
  )
  (princ "\nCheck the installation of the support files and try again.")
  (princ)
)

(defun myautoload ()
  (autoload "ABSTR" '("ABSTR"))
  (autoload "ACCXES" '("ACCXES"))
  (autoload "ADGRID" '("ADGRID"))
  (autoload "100YR" '("100YR"))
  (autoload "AL" '("AL"))
  (autoload "ALLBND" '("ALLBND"))
  (autoload "ANGLINE" '("ANGL"))
  (autoload "ARC-CIR" '("ARC-CIR"))
  (autoload "ASTA" '("ASTA"))
  (autoload "ATTXTJ" '("ATTXTJ"))
  (autoload "BL" '("BL"))
  (autoload "BLH" '("BLH" "BLL"))
  (autoload "BPLOT" '("BPLOT"))
  (autoload "BPROJ" '("BPROJ"))
  (autoload "BRKL" '("BRKL"))
  (autoload "BS" '("BS"))
  (autoload "BSALL" '("BSALL"))
  (autoload "BSCL" '("BSCL"))
  (autoload "BSTR" '("BSTR"))
  (autoload "BUB" '("BUB"))
  (autoload "BUBFIX" '("BUBFIX"))
  (autoload "CE" '("CE"))
  (autoload "CIR-ARC" '("CIR-ARC"))
  (autoload "CLAB" '("CLAB"))
  (autoload "CLBL" '("CLBL"))
  (autoload "CLG" '("CLG"))
  (autoload "CLG_COLOR" '("CLG_COLOR"))
  (autoload "CLOUD" '("CLOUD"))
  (autoload "CTC" '("CTC"))
  (autoload "CPL" '("CPL"))
;;;  (autoload "DED" '("DED"))
  (autoload "DIMSTD" '("DIMSTD"))
  (autoload "DMLT" '("DMLT"))
  (autoload "DT" '("DT"))
  (autoload "DTLNOTE" '("DTLNOTE"))
  (autoload "DP" '("DP"))
  (autoload "DTXT" '("DTXT"))
  (autoload "DTLNOTE" '("DTLNOTE"))
  (autoload "DV0" '("DV0"))
;;;  (autoload "ED" '("ED"))
  (autoload "EDALN" '("EDALN"))
  (autoload "EDBAT" '("EDBAT"))
  (autoload "EDDAT" '("EDDAT"))
  (autoload "EDDCL" '("EDDCL"))
  (autoload "EDHLP" '("EDHLP"))
  (autoload "EDIDX" '("EDIDX"))
  (autoload "EDLIN" '("EDLIN"))
  (autoload "EDLISP" '("EDLISP"))
  (autoload "EDLST" '("EDLST"))
  (autoload "EDMENU" '("EDMENU"))
  (autoload "EDOUT" '("EDOUT"))
  (autoload "EDPARA" '("EDPARA"))
  (autoload "EDR14" '("EDR14"))
  (autoload "EDSCR" '("EDSCR"))
  (autoload "EDSHP" '("EDSHP"))
  (autoload "EDSVW" '("EDSVW"))
  (autoload "EDTXT" '("EDTXT"))
  (autoload "ENDZ" '("ENDZ"))
  (autoload "ENTEXP" '("ENTEXP"))
  (autoload "EPNT" '("EPNT" "ETIN"))
  (autoload "FIXDCA" '("FIXDCA"))
  (autoload "FLIP" '("FLIP"))
  (autoload "FMLAY" '("FMLAY"))
  (autoload "GENT" '("GENT" "EDUMP"))
  (autoload "GPDGN"
	    '("GPDGN" "SYMSTA" "MLGEN" "VIEWSTA" "VIEWPR" "PRTAG")
  )
  (autoload "GOF"
	    '("GOF"	 "PGOF"	    "GOFALL"   "GON"	  "PGON"
	      "GONALL"	 "PTOF"	    "PTON"     "PTFRZ"	  "PTTHW"
	      "EXOF"	 "EXON"	    "TXTOF"    "TXTON"
	     )
  )
  (autoload "GSTR" '("GSTR"))
  (autoload "HDAREA" '("HDAREA"))
  (autoload "HDCHAR" '("HDCHAR"))
  (autoload "HDCMUD" '("HDCMUD"))
  (autoload "HDTEXT" '("HDTEXT"))
  (autoload "HEAD" '("HEAD"))
  (autoload "HRAIL" '("HRAIL"))
  (autoload "HSTXT" '("HSTXT"))
  (autoload "INT" '("INT"))
  (autoload "ISOVP" '("ISOVP" "ISOPROF" "ISOTTLB" "ISOV#"))
  (autoload "ITREE" '("ITREE"))
  (autoload "KBND" '("KBND"))
  (autoload "LAYBENT" '("LAYBENT"))
  (autoload "LINEMELD" '("LINEMELD" "GLIN"))
  (autoload "LLSP" '("LLSP"))
  (autoload "LBL" '("LBL"))
  (autoload "LBLD" '("LBLD"))
  (autoload "LDRFIX" '("LDRFIX"))
  (autoload "LOADX" '("LOADX"))
  (autoload "LDLSP" '("LDLSP"))
  (autoload "LSTR" '("LSTR"))
  (autoload "LT" '("LT"))
  (autoload "LTIC" '("LTIC"))
  (autoload "LTXT" '("LTXT"))
  (autoload "LTGEN" '("LTGEN"))
  (autoload "LTWID" '("LTWID"))
  (autoload "MEASD" '("MEASD"))
  (autoload "MGN" '("MGN"))
  (autoload "MHANG" '("MHANG"))
  (autoload "MEE" '("MEE"))
  (autoload "MHD" '("MHD"))
  (autoload "MHE" '("MHE"))
  (autoload "MHP" '("MHP"))
  (autoload "MHPL" '("MHPL"))
  (autoload "MHSL" '("MHSL"))
  (autoload "MKLAYR"
	    '("MKLAYR" "SVLAYR" "RSLAYR" "(clnmstd)")
  )
  (autoload "ML" '("ML"))
  (autoload "MLT" '("MLT"))
  (autoload "MSS" '("MSS"))
  (autoload "MAPTOOLS" '("JOIN"))
  (autoload "NEWZ" '("NEWZ" "MATZ" "SHOWZ" "OFFZ" "ZE"))
  (autoload "NINT" '("NINT"))
  (autoload "NN" '("NN"))
  (autoload "NTEST" '("NTEST"))
  (autoload "OG" '("OG"))
  (autoload "OP" '("OP"))
  (autoload "PBRK" '("PBRK"))
  (autoload "PBRKD" '("PBRKD"))
  (autoload "PGL" '("PGL"))
  (autoload "PLAYCD" '("PLAYCD"))
  (autoload "PLOT750" '("PLOT750"))
  (autoload "PLOC" '("PLOC"))
  (autoload "PLOTHP4" '("PLOTHP4"))
  (autoload "PLOTJDLS" '("PLOTJDLS"))
  (autoload "PLOTS" '("PLOTS"))
  (autoload "PLOT650" '("PLOT650"))
  (autoload "PLREV" '("PLREV"))
  (autoload "PLTRIM" '("PLTRIM"))
  (autoload "PLWID" '("PLWID"))
  (autoload "PLXL" '("PLXL"))
  (autoload "PLZERO" '("PLZERO"))
  (autoload "PPS" '("PPS"))
  (autoload "PSIZE" '("PSIZE"))
  (autoload "PRJMGMT" '("PRJMGMT"))
  (autoload "PROJ" '("PROJ"))
  (autoload "PSLAY" '("PSLAY" "VPF"))
  (autoload "PSOLID" '("PSOLID"))
  (autoload "PTANK" '("PTANK"))
  (autoload "PTDCL" '("PTDCL"))
  (autoload "PUCS" '("PUCS"))
  (autoload "RATTR" '("RATTR"))
  (autoload "RBLK" '("RBLK"))
  (autoload "RECTANG" '("RECTANG"))
  (autoload "REF" '("REF"))
  (autoload "RELAY" '("RELAY"))
  (autoload "RELAYV" '("RELAYV"))
  (autoload "REMLT" '("REMLT"))
  (autoload "RENOTE" '("RENOTE"))
  (autoload "REVS" '("REVS"))
  (autoload "REROT" '("REROT"))
  (autoload "REVTXT" '("REVTXT"))
  (autoload "RLAYC" '("RLAYC"))
  (autoload "ROTX" '("ROTX"))
  (autoload "RRECT" '("RRECT"))
  (autoload "RTEXT" '("RTEXT"))
  (autoload "RRTXT" '("RRTXT"))
  (autoload "RRCHANL" '("RRCHANL"))
  (autoload "SBREST" '("SBREST"))
  (autoload "SCS" '("SCS"))
  (autoload "SDLBL" '("SDLBL"))
  (autoload "SFILL" '("SFILL"))
  (autoload "SHOTXT" '("SHOTXT"))
  (autoload "SHTNDX" '("SHTNDX"))
  (autoload "SHTBND" '("SHTBND" "ESBND" "VIEWSHT"))
  (autoload "SLAY" '("SLAY"))
  (autoload "SLENT" '("SLENT"))
  (autoload "SLOPE" '("SLOPE"))
  (autoload "SLPB" '("SLPB"))
  (autoload "SOLARO" '("SOLARO"))
  (autoload "SSLN" '("SSLN"))
  (autoload "SSX" '("SSX"))
  (autoload "STAT" '("STAT"))
  (autoload "STDLAYR" '("STDLAYR"))
  (autoload "SUBT" '("SUBT"))
  (autoload "SVDSP" '("SVDSP"))
  (autoload "SVIEW" '("SVIEW"))
  (autoload "SYMBLT" '("SYMBLT"))
  (autoload "TDLT"
	    '("TDLT" "TDRT" "RRAP" "GLLT" "GLRT" "GEOT")
  )
  (autoload "TEXTOUT" '("TEXTOUT"))
  (autoload "THGT" '("THGT"))
  (autoload "THGTS" '("THGTS"))
  (autoload "THINPL" '("THINPL"))
  (autoload "TNOTE" '("TNOTE"))
  (autoload "TOLAYER" '("TOLAYER"))
  (autoload "TPAN" '("TPAN"))
  (autoload "TSNAP" '("TSNAP"))
  (autoload "TWID" '("TWID"))
  (autoload "TX180" '("TX180"))
  (autoload "TXANG" '("TXANG"))
  (autoload "TXONL" '("TXONL"))
  (autoload "TXRAN" '("TXRAN"))
  (autoload "TXTHK" '("TXTHK"))
  (autoload "TXTIN" '("TXTIN"))
  (autoload "TXTJ" '("TXTJ"))
  (autoload "TXTLAYR" '("TXTLAYR"))
  (autoload "TXTSTY" '("TXTSTY"))
  (autoload "TREE" '("TREE"))
  (autoload "TTLB" '("TTLB"))
  (autoload "UCMUDP" '("UCMUDP"))
  (autoload "UUTILS"
	    '("UANGLE" "UDIST" "UINT" "UKWORD" "UPOINT" "UREAL" "USTR")
  )
  (autoload "UBLK" '("UBLK"))
  (autoload "UBLKA" '("UBLKA"))
  (autoload "ULBL" '("ULBL"))
  (autoload "USTAEL" '("USTAEL"))
  (autoload "UNROT" '("UNROT"))
  (autoload "VPSET" '("VPSET"))
  (autoload "VSTAT" '("VSTAT"))
  (autoload "WATERPL" '("WATERPL"))
  (autoload "WBCLN" '("WBCLN"))
  (autoload "XA" '("XA"))
  (autoload "XA1" '("XA1"))
  (autoload "XI1" '("XI1"))
  (autoload "XO1" '("XO1"))
  (autoload "XING" '("XING"))
  (autoload "XRFS" '("XRFS"))
  (autoload "XRDET" '("XRDET"))
  (autoload "XRLAYERS" '("XRLAYERS" "RXRLAY" "RLAYERS"))
  (autoload "XRSWAP" '("XRSWAP"))
  (autoload "XYSCL" '("XYSCL"))
)