;;;(princ "\nLoading CUSTOMLOAD.LSP ")
;;;(princ)
;;;==================================================================================================
;;;INITANDSDICHK function moved to separate lisp file
;;;==================================================================================================
;;;CHECK_FOR_DOSLIB function moved to separate lisp file
;;;==================================================================================================
(DEFUN _custload (app) ; (princ "Auto:(load ") (princ app) (princ ")") (terpri)
  (LOAD app)
) ;_ end of defun

(DEFUN _custqload (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 (cust_ai_ffile "
                                          qapp
                                          ")"
                                          "(progn (princ initstring)"
                                          "(_auto"
                                          quoi
                                          "load "
                                          qapp
                                          ") (setq rtn ("
                                          nom_cmd
                                          ")))"
                                          "(cust_ai_nofile "
                                          qapp
                                          "))"
                                          "(setq *error* m:err m:err nil)"
                                          "rtn)"
                                  ) ;_ end of strcat
                            ) ;_ end of read
                      ) ;_ end of eval
                    ) ;_ end of if
             ) ;_ end of progn
           ) ;_ end of lambda
          cmdliste
  ) ;_ end of mapcar
  nil
) ;_ end of defun

(DEFUN custload (app cmdliste) (_custqload "" app cmdliste))

(DEFUN cust_ai_ffile (app)
  (OR (AND (FINDFILE app)(WCMATCH app "*.vlx"))
      (FINDFILE (STRCAT app ".lsp"))
      (FINDFILE (STRCAT app ".exp"))
      (FINDFILE (STRCAT app ".exe"))
      (FINDFILE (STRCAT app ".arx"))
      (FINDFILE app)
  ) ;_ end of or
) ;_ end of defun

(DEFUN cust_ai_nofile (filename)
  (PRINC (STRCAT "\nThe file " filename "(.lsp/.exe/.arx/.vlx) was not found in your search path folders.")
  ) ;_ end of princ
  (PRINC "\nCheck the installation of the support files and try again.")
  (PRINC)
) ;_ end of defun


(DEFUN customload ()
;;;  (PRINC "\nBegin execution of CUSTOMLOAD function. ")
;;;  (PRINC)
;;;  (IF log_it NIL (LOAD "log_it" "\nFile LOG_IT.LSP not loaded! "))
  (IF dlog NIL (LOAD "dlog" "\nFile DLOG.LSP not loaded! "))
  (IF (FINDFILE (STRCAT (GETVAR "loginname") "-custom.lsp"))
    (PROGN
      (LOAD (STRCAT (GETVAR "loginname") "-custom") (STRCAT "\nFile " (STRCASE (STRCAT (GETVAR "loginname") "-custom.lsp")) " not loaded! "))
      (EVAL(READ (STRCAT "("(GETVAR "loginname") "-custom)")))
    )
  )
  (custload "100YR" '("100YR"))
  (custload "ABBR" '("ABBR" "ABBRLOAD"))
  (custload "ABBRLST" '("ABBRLST" "ABBRSRCH"))
  (custload "ABSTR" '("ABSTR" "L2" "L3" "L4" "L5" "L6" "L7" "L8" "L9" "L10"))
  (custload "ACCXES" '("ACCXES"))
  (custload "ADGRID" '("ADGRID"))
  (custload "ADJTAG" '("ADJTAG"))
  (custload "ALBL" '("ALBL"))
  (custload "ALLBND" '("ALLBND"))
  (custload "ALNDATA" '("ALNDATA"))
  (custload "ANGL" '("ANGL"))
  (custload "ARC-CIR" '("ARC-CIR"))
  (custload "ARCHDIMS" '("ARCHDIMS"))
  (custload "ARCHLDRS" '("ARCHLDRS"))
  (custload "ASTA" '("ASTA"))
  (custload "ATTR2TXT" '("ATTR2TXT"))
  (custload "ATTXTJ" '("ATTXTJ"))
  (custload "BL" '("BL"))
  (custload "BLH" '("BLH" "BLL"))
  (custload "BLKCOLT" '("BLKCOLT"))
  (custload "BPLOT" '("BPLOT"))
  (custload "BPLOT2K" '("BPLOT2K"))
  (custload "BPROJ" '("BPROJ"))
  (custload "BRAT" '("BRAT"))
  (custload "BREAL" '("BREAL"))
  (custload "BRKL" '("BRKL"))
  (custload "BS" '("BS"))
  (custload "BSALL" '("BSALL"))
  (custload "BSCL" '("BSCL"))
  (custload "BSTR" '("BSTR"))
  (custload "BUB" '("BUB"))
  (custload "BUBN" '("BUBN"))
  (custload "BUBFIX" '("BUBFIX"))
  (custload "CE2B" '("CE2B"))
  (custload "CHKLASP" '("CHKLASP"))
  (custload "CIR-ARC" '("CIR-ARC"))
  (custload "CLAB" '("CLAB"))
  (custload "CLBL" '("CLBL"))
  (custload "CLG" '("CLG" "MANCLG"))
  (custload "CLG_COLOR" '("CLG_COLOR"))
  (custload "CLOUD" '("CLOUD"))
  (custload "CONOTE" '("CONOTE"))
  (custload "CNL" '("CNL"))
  (custload "CNTAG" '("CNTAG"))
  (custload "CPL" '("CPL"))
  (custload "CSTMP" '("CSTMP"))
  (custload "CTC" '("CTC"))
  (custload "CTOL" '("CTOL"))
  (custload "CURVTBL" '("CTBL"))
  (custload "DARROW" '("DARROW"))
  (custload "DARROW" '("DARROW"))
  (custload "DDUPENT" '("DDUPENT"))
  (custload "DEBUGSETVAR" '("DEBUGSETVAR"))
  (custload "DELAECCDUP" '("DELAECCDUP"));Deletes duplicate AECC_POINT instances (point numbers can be different)
  (custload "DELPTPL" '("DELPTPL"))
  (custload "DELSPOTLDR" '("DELSPOTLDR"))
  (custload "DIMSEG" '("DIMSEG"))
  (custload "DIMSTD" '("DIMSTD"))
  (custload "DIMUCS" '("DIMUCS"))
  (custload "DMLT" '("DMLT"))
  (custload "DPAN" '("DPAN"))
  (custload "DP" '("DP"))
  (custload "DRAWGRID" '("DRAWGRID"))
  (custload "DRIVEWAY" '("DRIVEWAY" "DRVW"))
  (custload "DTTL" '("DTTL"))
  (custload "DTLNOTE" '("DTLNOTE"))
  (custload "DTXT" '("DTXT"))
  (custload "DTLNOTE" '("DTLNOTE"))
  (custload "DUMPLST" '("DUMPLST"))
  (custload "DV0" '("DV0"))
;;;  (custload "ED" '("ED"))
  (custload "EDALN" '("EDALN"))
  (custload "EDBAT" '("EDBAT"))
  (custload "EDDAT" '("EDDAT"))
  (custload "EDDCL" '("EDDCL"))
  (custload "EDFPL" '("EDFPL"))
  (custload "EDGRD" '("EDGRD"))
  (custload "EDHLP" '("EDHLP"))
  (custload "EDIDX" '("EDIDX"))
  (custload "EDLIN" '("EDLIN"))
  (custload "EDLISP" '("EDLISP"))
  (custload "EDLST" '("EDLST"))
  (custload "EDMENU" '("EDMENU"))
  (custload "EDOUT" '("EDOUT"))
  (custload "EDPARA" '("EDPARA"))
  (custload "EDXRL" '("EDXRL"))
  (custload "EDR14" '("EDR14"))
  (custload "EDSCR" '("EDSCR"))
  (custload "EDSHP" '("EDSHP"))
  (custload "EDSVW" '("EDSVW"))
  (custload "EDSVX" '("EDSVX"))
  (custload "EDTXT" '("EDTXT" "EDTDF"))
  (custload "ENDZ" '("ENDZ"))
  (custload "ENGRANGS" '("ENGRANGS"))
  (custload "ENGRDIMS" '("ENGRDIMS"))
  (custload "ENGRLDRS" '("ENGRLDRS"))
  (custload "ENGRLDRSOB" '("ENGRLDRSOB"))
  (custload "ENTEXP" '("ENTEXP"))
  (custload "EPNT" '("EPNT" "ETIN"))
  (custload "ETLT2CONT" '("ETLT2CONT"))
  (custload "FIXBARS" '("FIXBARS"))
  (custload "FIXDCA" '("FIXDCA"))
  (custload "FIXDIMS" '("FIXDIMS"))
  (custload "FLIP" '("FLIP"))
  (custload "FLIPDIM" '("FLIPDIM"))
  (custload "FMLAY" '("FMLAY"))
  (custload "GENT" '("GENT" "EDUMP"))
  (custload "GETEL" '("GETEL"))
  (custload "GLBL" '("GLBL"))
  (custload "GPDGN"
            '("GPDGN" "SYMSTA" "MLGEN" "VIEWSTA" "VIEWPR" "VIEWPT" "VPP" "VPAN" "GETSTA" "PRTAG" "PPGEN" "SETINV" "SETLINE" "DBXNG" "STALBL" "HINTS" "CASEPIPE" "MHLBL" "INITGPDGN" "COVERDIM" "GRADELBL" "PIPELBL" "PARAPP" "DEPTHS" "MHDEPTHS")
  ) ;_ end of custload
  (custload "GRADEBREAK" '("GRADEBREAK" "GBRK"))
  (custload "GSTR" '("GSTR"))
  (custload "HBCMUD" '("HBCMUD"))
  (custload "HDARC" '("HDARC"))
  (custload "HDANG" '("HDANG"))
  (custload "HDAREA" '("HDAREA"))
  (custload "HDBOX" '("HDBOX"))
  (custload "HDCHAR" '("HDCHAR"))
  (custload "HDCIRC" '("HDCIRC"))
  (custload "HDCMUD" '("HDCMUD"))
  (custload "HDPIPE" '("HDPIPE"))
  (custload "HDDO" '("HDDO"))
  (custload "HDTEXT" '("HDTEXT" "HDSPACE" "HDMATCH"))
  (custload "HEAD" '("HEAD"))
  (custload "HARCHDIMS" '("HARCHDIMS"))
  (custload "HARCHLDRS" '("HARCHLDRS"))
  (custload "HENGRDIMS" '("HENGRDIMS"))
  (custload "HENGRLDRS" '("HENGRLDRS"))
  (custload "HRAIL" '("HRAIL"))
  (custload "HSTXT" '("HSTXT"))
  (custload "IBLK" '("IBLK" "NOPE" "WM" "TPED" "CATV" "FOPED" "PP" "LP" "GP" "GW" "MB" "IP" "SIGN" "RWSIGN" "FOSIGN"))
  (custload "IMG" '("IMGPREP" "IMGARC" "IMGDONUT" "IMGPL"))
  (custload "ISOVP" '("ISOVP" "ISOPROF" "ISOTTLB" "ISOV#"))
  (custload "ITREE" '("ITREE"))
  (custload "KBND" '("KBND"))
  (custload "LAMACS"
            '("vl"
              "vlock"
              "brkof"
              "brkon"
              "gof"
              "gon"
              "gofall"
              "gonall"
              "pgof"
              "grof"
              "Mgon"
              "g100"
              "g200"
              "g500"
              "g1k"
              "g1000"
              "pgon"
              "gron"
              "ptof"
              "pton"
              "ptfrz"
              "ptthw"
              "imgof"
              "imgon"
              "imgfrz"
              "imgthw"
              "topon"
              "topof"
              "wdlnof"
              "wdlnon"
              "wdon"
              "wdof"
              "xron"
              "xrof"
              "svon"
              "svof"
              "paton"
              "patof"
              "rwon"
              "rwof"
              "eason"
              "easof"
              "epon"
              "epof"
              "tpon"
              "tpof"
              "exof"
              "exon"
              "txtof"
              "txton"
              "inson"
              "erof"
              "eron"
              "tinof"
              "tinon"
              "ctof"
              "cton"
              "ctthw"
              "ctfrz"
              "ctvpthw"
              "ppof"
              "ppon"
              "ppfr"
              "ppth"
              "hdof"
              "hdon"
              "hrof"
              "hron"
              "rbarof"
              "rbaron"
              "sof"
              "son"
              "fillof"
              "fillon"
              "aon"
              "aof"
              "isoalt"
              "isoaltvp"
              "altof"
              "alt0"
              "alt1"
              "alt2"
              "alt3"
              "alt4"
              "alnn"
              "al##"
              "lev1"
              "lev2"
              "lev3"
              "lev4"
              "lvnn"
              "lv##"
              "plnn"
              "pl##"
              "scnn"
              "sc##"
             )
  ) ;_ end of custload
  (custload "LAPSET" '("LAPSET"))
  (custload "LAYBENT" '("LAYBENT"))
  (custload "LAYERLIST" '("LAYERLIST"))
  (custload "LAYOUTPLT" '("LAYOUTPLT"))
  (custload "LINEMELD" '("LINEMELD" "GLIN"))
  (custload "LLSP" '("LLSP"))
  (custload "LBL" '("LBL"))
  (custload "LBLD" '("LBLD"))
  (custload "LDRFIX" '("LDRFIX"))
  (custload "LOADX" '("LOADX"))
  (custload "LDLSP" '("LDLSP"))
  (custload "LOADPAGESETUPS" '("PGSET"))
  (custload "LSTR" '("LSTR"))
  (custload "LTERM" '("LTERM"))
  (custload "LTIC" '("LTIC"))
  (custload "LTXT" '("LTXT"))
  (custload "LTGEN" '("LTGEN"))
  (custload "LTWID" '("LTWID"))
  (custload "MEASD" '("MEASD"))
  (custload "MENUBACKUP" '("MENUBACKUP"))
  (custload "MGN" '("MGN"))
  (custload "MPN" '("MPN"))
  (custload "MHANG" '("MHANG"))
  (custload "MEE" '("MEE"))
  (custload "MHD" '("MHD"))
  (custload "MHE" '("MHE"))
  (custload "MHP" '("MHP"))
  (custload "MHPL" '("MHPL"))
  (custload "MHSL" '("MHSL"))
  (custload "EL45-FB" '("MJBELL"))
  (custload "MKLAYR" '("MKLAYR" "SVLAYR" "RSLAYR" "(clnmstd)"))
  (custload "ML" '("ML"))
  (custload "MLT" '("MLT"))
  (custload "MOVEZ" '("MOVEZ"))
  (custload "MPDROP" '("MPDROP"))
  (custload "MSS" '("MSS"))
  (custload "MAPTOOLS" '("JOIN"))
  (custload "NEWZ" '("NEWZ" "MATZ" "SHOWZ" "OFFZ" "ZE"))
  (custload "NEXT" '("NEXT" "NEXTDWG" "PREV"))
  (custload "NINT" '("NINT"))
  (custload "NN" '("NN"))
  (custload "NTEST" '("NTEST"))
  (custload "OG" '("OG"))
  (custload "OP" '("OP"))
  (custload "OPEN" '("OPEN"))
  (custload "PARA" '("PARA"))
  (custload "PARAMASK" '("PARAMASK" "PMASK"))
  (custload "PARAPOINT" '("PARAPOINT"))
  (custload "PBRK" '("PBRK"))
  (custload "PBRKD" '("PBRKD"))
  (custload "PESEAL" '("PESEAL"))
  (custload "PGL" '("PGL"))
  (custload "PLAYCD" '("PLAYCD"))
  (custload "PLOT750" '("PLOT750"))
  (custload "PLOC" '("PLOC"))
  (custload "PLOTHP4" '("PLOTHP4"))
  (custload "PLOTJDLS" '("PLOTJDLS"))
  (custload "PLOTS" '("PLOTS"))
  (custload "PLOT650" '("PLOT650"))
  (custload "PLREV" '("PLREV"))
  (custload "PLTL" '("PLTL"))
  (custload "PLTRIM" '("PLTRIM"))
  (custload "PLWID" '("PLWID"))
  (custload "PLXL" '("PLXL"))
  (custload "PLZERO" '("PLZERO"))
  (custload "POPTL"
            '("DRWTL" "ENTTL" "TXTTL" "LAYTL" "SWRTL" "CIVTL" "POPTL" "WTRTL" "MECTL" "STDTL")
  ) ;_ end of custload
  (custload "PLGRID" '("PLGRID"))
  (custload "PPGRID" '("PPGRID"))
  (custload "PPS" '("PPS"))
  (custload "PROCP" '("PROCP"))
  (custload "PSETS" '("PSETS"))
  (custload "PSIZE" '("PSIZE"))
  (custload "PRJMGMT" '("PRJMGMT"))
  (custload "RSPRFX" '("RSPRFX"))
  (custload "PROJ" '("PROJ"))
  (custload "PROPNO" '("PROPNO"))
  (custload "PSLAY" '("PSLAY" "VPF"))
  (custload "PSOLID" '("PSOLID"))
  (custload "PSPACE" '("PSPACE"))
  (custload "PTANK" '("PTANK"))
  (custload "PTDCL" '("PTDCL"))
  (custload "PARAPOINT" '("PTDCL2K" "PARAPOINT" "PPT"))
  (custload "PTNOS" '("PTNOS"))
  (custload "PUCS" '("PUCS"))
  (custload "QSAVE" '("QS" "QSAVE"))
  (custload "QUIT" '("QUIT"))
  (custload "RATTR" '("RATTR"))
  (custload "REATTR" '("REATTR"))
  (custload "RBLK" '("RBLK"))
  (custload "RBUB" '("RBUB" "FIXHOUSES" "FLO" "FLO1" "FLO2" "FLOW" "FLOW1" "FLOW2"))
  (custload "REBAR" '("REBAR" "RCORNER"))
  (custload "RECTANG" '("RECTANG"))
  (custload "REF" '("REF"))
  (custload "REHD" '("REHD"))
  (custload "RELAY" '("RELAY"))
  (custload "RELAYV" '("RELAYV"))
  (custload "REMLT" '("REMLT" "TOGNEW"))
  (custload "RENOTE" '("RENOTE"))
  (custload "REVS" '("REVS"))
  (custload "REROT" '("REROT"))
  (custload "REROTS" '("REROTS"))
  (custload "REVLAY" '("REVLAY"))
  (custload "REVXLAY" '("REVXLAY"))
  (custload "REVTXT" '("REVTXT"))
  (custload "RLAYC" '("RLAYC"))
  (custload "ROTX" '("ROTX"))
  (custload "ROTAG" '("ROTAG"))
  (custload "RRECT" '("RRECT"))
  (custload "RRTXT" '("RRTXT"))
  (custload "RRCHANL" '("RRCHANL"))
  (custload "RXREF" '("RXREF"))
  (custload "SAVE" '("SAVE"))
  (custload "SAVEAS" '("SAVEAS"))
  (custload "SBREST" '("SBREST"))
  (custload "SCS" '("SCS"))
  (custload "SDLBL" '("SDLBL"))
  (custload "SFILL" '("SFILL"))
  (custload "SHOLAY" '("SHOLAY"))
  (custload "SHOTXT" '("SHOTXT"))
  (custload "SHOLAY" '("SHOLAY"))
  (custload "SHOW_LOG" '("SHOW_LOG"))
  (custload "SHOWSIZE" '("SHOWSIZE"))
  (custload "SHTBND" '("SHTBND" "ESBND" "VIEWSHT" "PGRT" "PGLT" "RESJNT"))
  (custload "SHTNDX" '("SHTNDX"))
  (custload "SLAY" '("SLAY"))
  (custload "SLENT" '("SLENT"))
  (custload "SLOPE" '("SLOPE"))
  (custload "SLPB" '("SLPB"))
  (custload "SOLARO" '("SOLARO"))
  (custload "SPLITVP" '("SPLITVP"))
  (custload "SPOTLDRS" '("SPOTLDRS"))
  (custload "SPT" '("SPT"))
  (custload "SRTEXT" '("SRTEXT"))
  (custload "SSLN" '("SSLN"))
  (custload "SSNAP" '("SSNAP"))
  (custload "SSX" '("SSX"))
  (custload "STAIRPL" '("STAIRPL" "STAIREL"))
  (custload "STAT" '("STAT"))
  (custload "STEPZ" '("STEPZ"))
  (custload "STDLAYR" '("STDLAYR"))
  (custload "STDSTYLE" '("STDSTYLE"))
  (custload "SUBT" '("SUBT"))
  (custload "SVDSP" '("SVDSP"))
  (custload "SVIEW" '("SVIEW"))
  (custload "SYMBLT" '("SYMBLT"))
  (custload "TAGS" '("TAGS"))
  (custload "TDLT" '("TDLT" "TDRT" "GRLT" "GRRT" "WDLN" "TREELN" "RRAP" "GLLT" "GLRT" "GEOT" "SEDF" "WIREF" "PLTOOLS"))
  (custload "TEXTOUT" '("TEXTOUT"))
  (custload "THGT" '("THGT"))
  (custload "THGTS" '("THGTS"))
  (custload "THINPL" '("THINPL"))
  (custload "THKFIX" '("THKFIX"))
  (custload "TINMACS" '("MYSAVTIN" "MYCC" "MYI3DL" "MYADDL" "MYERASEL" "MYFF" "MYADDP" "MYERASEP" "MYEDITP"))
  (custload "TNOTE" '("TNOTE"))
  (custload "TOLAYER" '("TOLAYER"))
  (custload "TPAN" '("TPAN"))
  (custload "TSNAP" '("TSNAP" "SNAP0"))
  (custload "TWID" '("TWID"))
  (custload "TX180" '("TX180"))
  (custload "TXANG" '("TXANG"))
  (custload "TXONL" '("TXONL"))
  (custload "TXRAN" '("TXRAN"))
  (custload "TXT2ATTR" '("TXT2ATTR"))
  (custload "TXTBLKS" '("TXTBLKS"))
  (custload "TXTHK" '("TXTHK"))
  (custload "TXTIN" '("TXTIN"))
  (custload "TXTJ" '("TXTJ"))
  (custload "TXTLAYR" '("TXTLAYR"))
  (custload "TXTSTY" '("TXTSTY"))
  (custload "TREE" '("TREE"))
  (custload "TTLB" '("TTLB"))
  (custload "TTARC" '("TTARC")); places two complimentary arcs (completes a circle) tangent to selected (poly)lines on pick point side of (poly)lines
  (custload "UCMUDP" '("UCMUDP"))
  (custload "UUTILS" '("UANGLE" "UDIST" "UINT" "UKWORD" "UPOINT" "UREAL" "USTR"))
  (custload "UBLK" '("UBLK"))
  (custload "UBLKA" '("UBLKA"))
  (custload "ULBL" '("ULBL"))
  (custload "UNSPACE" '("UNSPACE"))
  (custload "USTAEL" '("USTAEL"))
  (custload "UNROT" '("UNROT"))
  (custload "VLX" '("VLX"))
  (custload "VPMNR" '("VPMNR"))
  (custload "VPSET" '("VPSET"))
  (custload "VSTAT" '("VSTAT"))
  (custload "WATERPL" '("WATERPL"))
  (custload "WEDSCR" '("WEDSCR"))
  (custload "WBCLN" '("WBCLN"))
  (custload "XA" '("XA"))
  (custload "XA1" '("XA1"))
  (custload "XI1" '("XI1"))
  (custload "XO1" '("XO1"))
  (custload "XING" '("XING"))
  (custload "XPTS" '("XPTS"))
  (custload "XRFS" '("XRFS"))
  (custload "XRDET" '("XRDET"))
  (custload "XRLAYERS" '("XRLAYERS" "RXRLAY" "RLAYERS"))
  (custload "XRPATH" '("XRPATH"))
  (custload "XRSWAP" '("XRSWAP" "XRSWP_VCTR"))
  (custload "XYSCL" '("XYSCL"))
;;;  (IF (AND (SETQ ourtitle-fillin (SSGET "X" '((0 . "INSERT")(2 . "HUATTBAT"))))
;;;           (>=(SSLENGTH ourtitle-fillin)1)
;;;           (/=(GETVAR"DIMSCALE")0)
;;;      )
;;;    (SETVAR "DIMSCALE" 0)
;;;  )
  (SETVAR "menuecho" 1)
  (SETQ ostr "  Opened for editing....:  " ONAM NIL)
  (dlog)
  (SETVAR "cmdecho" 0)
;;;  (PRINC "\nEnd execution of CUSTOMLOAD function. ")
;;;  (princ)
) ;_ end of defun
(customload)
;;;(princ "\nCUSTOMLOAD.LSP Loaded. ")
;;;(princ)
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;