Sorry, I forgot who wrote this one.
(defun C:SVARS ()
(setq ilist nil
var_list '("ACADLSPASDOC" "ACADPREFIX" "ACADVER"
"ACISOUTVER" "AFLAGS" "ANGBASE"
"ANGDIR" "APBOX" "APERTURE"
"AREA" "ATTDIA" "ATTMODE"
"ATTREQ" "AUDITCTL" "AUNITS"
"AUPREC" "AUTOSNAP" "BACKZ"
"BINDTYPE" "BLIPMODE" "CDATE"
"CECOLOR" "CELTSCALE" "CELTYPE"
"CELWEIGHT" "CHAMFERA" "CHAMFERB"
"CHAMFERC" "CHAMFERD" "CHAMMODE"
"CIRCLERAD" "CLAYER" "CMDACTIVE"
"CMDDIA" "CMDECHO" "CMDNAMES"
"CMLJUST" "CMLSCALE" "CMLSTYLE"
"COMPASS" "COORDS" "CPLOTSTYLE"
"CPROFILE" "CTAB" "CURSORSIZE"
"CVPORT" "DATE" "DBMOD"
"DCTCUST" "DCTMAIN" "DEFLPLSTYLE"
"DEFPLSTYLE" "DELOBJ" "DEMANDLOAD"
"DIASTAT" "DIMADEC" "DIMALT"
"DIMALTD" "DIMALTF" "DIMALTRND"
"DIMALTTD" "DIMALTTZ" "DIMALTU"
"DIMALTZ" "DIMAPOST" "DIMASO"
"DIMASZ" "DIMATFIT" "DIMAUNIT"
"DIMAZIN" "DIMBLK" "DIMBLK1"
"DIMBLK2" "DIMCEN" "DIMCLRD"
"DIMCLRE" "DIMCLRT" "DIMDEC"
"DIMDLE" "DIMDLI" "DIMDSEP"
"DIMEXE" "DIMEXO" "DIMFIT"
"DIMFRAC" "DIMGAP" "DIMJUST"
"DIMLDRBLK" "DIMLFAC" "DIMLIM"
"DIMLUNIT" "DIMLWD" "DIMLWE"
"DIMPOST" "DIMRND" "DIMSAH"
"DIMSCALE" "DIMSD1" "DIMSD2"
"DIMSE1" "DIMSE2" "DIMSHO"
"DIMSOXD" "DIMSTYLE" "DIMTAD"
"DIMTDEC" "DIMTFAC" "DIMTIH"
"DIMTIX" "DIMTM" "DIMTMOVE"
"DIMTOFL" "DIMTOH" "DIMTOL"
"DIMTOLJ" "DIMTP" "DIMTSZ"
"DIMTVP" "DIMTXSTY" "DIMTXT"
"DIMTZIN" "DIMUNIT" "DIMUPT"
"DIMZIN" "DISPSILH" "DISTANCE"
"DONUTID" "DONUTOD" "DRAGMODE"
"DRAGP1" "DRAGP2" "DWGCHECK"
"DWGCODEPAGE" "DWGNAME" "DWGPREFIX"
"DWGTITLED" "EDGEMODE" "ELEVATION"
"EXPERT" "EXPLMODE" "EXTMAX"
"EXTMIN" "EXTNAMES" "FACETRATIO"
"FACETRES" "FILEDIA" "FILLETRAD"
"FILLMODE" "FONTALT" "FONTMAP"
"FRONTZ" "FULLOPEN" "GRIDMODE"
"GRIDUNIT" "GRIPBLOCK" "GRIPCOLOR"
"GRIPHOT" "GRIPS" "GRIPSIZE"
"HANDLES" "HIDEPRECISION" "HIGHLIGHT"
"HPANG" "HPBOUND" "HPDOUBLE"
"HPNAME" "HPSCALE" "HPSPACE"
"HYPERLINKBASE" "IMAGEHLT" "INDEXCTL"
"INETLOCATION" "INSBASE" "INSNAME"
"INSUNITS" "INSUNITSDEFSOURCE"
"INSUNITSDEFTARGET" "ISAVEBAK"
"ISAVEPERCENT" "ISOLINES" "LASTANGLE"
"LASTPOINT" "LASTPROMPT" "LENSLENGTH"
"LIMCHECK" "LIMMAX" "LIMMIN"
"LISPINIT" "LOCALE" "LOGFILEMODE"
"LOGFILENAME" "LOGFILEPATH" "LOGINNAME"
"LTSCALE" "LUNITS" "LUPREC"
"LWDEFAULT" "LWDISPLAY" "LWUNITS"
"MAXACTVP" "MAXSORT" "MBUTTONPAN"
"MEASUREINIT" "MEASUREMENT" "MENUCTL"
"MENUECHO" "MENUNAME" "MIRRTEXT"
"MODEMACRO" "MTEXTE" "NOMUTT"
"OFFSETDIST" "OFFSETGAPTYPE" "OLEHIDE"
"OLEQUALITY" "OLESTARTUP" "ORTHOMODE"
"OSMODE" "OSNAPCOORD" "PAPERUPDATE"
"PDMODE" "PDSIZE" "PELLIPSE"
"PERIMETER" "PFACEVMAX" "PICKADD"
"PICKAUTO" "PICKBOX" "PICKDRAG"
"PICKFIRST" "PICKSTYLE" "PLATFORM"
"PLINEGEN" "PLINETYPE" "PLINEWID"
"PLOTID" "PLOTROTMODE" "PLOTTER"
"PLQUIET" "POLARADDANG" "POLARANG"
"POLARDIST" "POLARMODE" "POLYSIDES"
"POPUPS" "PROJECTNAME" "PROJMODE"
"PROXYGRAPHICS" "PROXYNOTICE" "PROXYSHOW"
"PSLTSCALE" "PSPROLOG" "PSQUALITY"
"PSTYLEMODE" "PSTYLEPOLICY" "PSVPSCALE"
"PUCSBASE" "QTEXTMODE" "RASTERPREVIEW"
"REFEDITNAME" "REGENMODE" "RTDISPLAY"
"SAVEFILE" "SAVEFILEPATH" "SAVENAME"
"SAVETIME" "SCREENBOXES" "SCREENMODE"
"SCREENSIZE" "SDI" "SHADEDGE"
"SHADEDIF" "SHORTCUTMENU" "SHPNAME"
"SKETCHINC" "SKPOLY" "SNAPANG"
"SNAPBASE" "SNAPISOPAIR" "SNAPMODE"
"SNAPSTYL" "SNAPTYPE" "SNAPUNIT"
"SOLIDCHECK" "SORTENTS" "SPLFRAME"
"SPLINESEGS" "SPLINETYPE" "SURFTAB1"
"SURFTAB2" "SURFTYPE" "SURFU"
"SURFV" "SYSCODEPAGE" "TABMODE"
"TARGET" "TDCREATE" "TDINDWG"
"TDUCREATE" "TDUPDATE" "TDUSRTIMER"
"TDUUPDATE" "TEMPPREFIX" "TEXTEVAL"
"TEXTFILL" "TEXTQLTY" "TEXTSIZE"
"TEXTSTYLE" "THICKNESS" "TILEMODE"
"TOOLTIPS" "TRACEWID" "TRACKPATH"
"TREEDEPTH" "TREEMAX" "TRIMMODE"
"TSPACEFAC" "TSPACETYPE" "TSTACKALIGN"
"TSTACKSIZE" "UCSAXISANG" "UCSBASE"
"UCSFOLLOW" "UCSICON" "UCSNAME"
"UCSORG" "UCSORTHO" "UCSVIEW"
"UCSVP" "UCSXDIR" "UCSYDIR"
"UNDOCTL" "UNDOMARKS" "UNITMODE"
"VIEWCTR" "VIEWDIR" "VIEWMODE"
"VIEWSIZE" "VIEWTWIST" "VISRETAIN"
"VSMAX" "VSMIN" "WHIPARC"
"WMFBKGND" "WORLDUCS" "WORLDVIEW"
"WRITESTAT" "XCLIPFRAME" "XEDIT"
"XFADECTL" "XLOADCTL" "XLOADPATH"
"XREFCTL" "ZOOMFACTOR"
)
)
(foreach v var_list
(and (getvar v)
(setq ilist (cons (cons v (getvar v)) ilist))
)
)
(foreach XX ilist
(print XX)
(princ)
)
(TEXTSCR)
(princ)
)