***BUTTONS
;
$p1=*
^c^c^c^p(Progn (GraphScr) (Princ))
^B
^O
^G
^D
^E
^T
***POP1
[Tools]
[OSNAP]^c^c^c$p1= $p1=* OSNAP \
CENter
ENDpoint
INSert
[INTersection]INT
MIDpoint
NEArest
NODe
[PERpendicular]PER
QUAdrant
[QUICK,]QUICK,^Z$p1=*
TANgent
NONE
[~--]
[FILTERS...   ]$p1=filters $p1=*
[Cancel]^c^c^c
[U]^c^c^cU
[Redo]^c^c^cREDO
[List]^c^c^cLIST

**filters
[Filters]
.X
.Y
.Z
.XY
.XZ
.YZ
[TOOLS...]$p1= $p1=*

***POP2
[Draw]
[Line]*^c^c^c$S=X $s=line line
[Arc]*^c^c^c$S=X $s=poparc arc
[Circle]*^c^c^c$S=X $s=popcircl circle
[Polyline]*^c^c^c$S=X $s=pline pline
[3D Polyline]*^c^c^c$S=X $S=3dpoly 3dpoly
[Insert]^c^c^csetvar attdia 1 $S=X $s=insert insert
[Dtext]*^c^c^c$S=X $s=Dtext Dtext
[Hatch...]^c^c^c$i=hatch1 $i=*
[3D Construction...]$i=3dobjects $i=*

***POP3
[Modify]
[Erase]*^c^c^c$S=X $s=erase erase si auto
[Move]*^c^c^c$S=X $s=move move si auto
[Copy]*^c^c^c$S=X $s=copy copy si auto
[Properties]*^c^c^c$S=X $S=chprop chprop si auto
[Break]*^c^c^c$S=X $S=break break
[Fillet]*^c^c^c$S=X $S=fillet fillet
[Mirror]*^c^c^c$S=X $S=mirror mirror auto
[Trim]*^c^c^c$S=X $s=trim trim auto
[Extend]*^c^c^c$S=X $s=extend extend auto
[Stretch]*^c^c^c$S=X $s=stretch stretch crossing
[Explode]*^c^c^c$S=X $s=explode explode
[Edit Polylines]^c^c^c^p+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^p

***POP4
[Display]
[Redraw]'redraw
[~--]
[Zoom Window]'zoom w
[Zoom Previous]'zoom p
[Zoom All]^c^c^czoom a
[Zoom Dynamic]'zoom d
[~--]
[Pan]'pan
[Dview Options...]^c^c^c$i=dviewi $i=*
[Vpoint 3D...]^c^c^c$S=X $S=VPOINT3D $i=3dviews $i=*
[~--]
[Plan View (UCS)]^c^c^cplan;;
[Plan View (World)]^c^c^cplan wo
[~--]
[Set Viewports...]^c^c^c$S=X $S=vports $i=vporti $i=*

***POP5
[Settings]
[UCS Dialogue...]^c^c^c$S=X $s=ucs1 dducs
[UCS Options...]^c^c^c$S=X $S=ucs1 $i=ucs $i=*
[UCS Previous]^c^c^cUCS P
[~--]
[Drawing Aids...]'ddrmodes
[Entity Creation...]'ddemodes
[Modify Layer...]'ddlmodes

***POP6
[AutoFont]
[Tangent Arc]^c^c^cArc;\E;\D;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\
[Direction Arc]^c^c^cArc;\E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\+
;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\+
;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\;(GetVar "LastPoint");E;\D;\
[~--]
[Point 0,0]0,0
[Last Point]@
[Change Point]*^c^c^cChange;\;\
[Stretch Crossing]*^c^c^cStretch C \\ \\
[Explode]*^c^c^cExplode
[~--]
[Snap Up]SnapUp
[Snap Down]SnapDn
[Pan]'Pan \\
[Zoom Window]'Zoom W \\
[Zoom Previous]'Zoom P
[Zoom Dynamic]'Zoom D
[Zoom  .75x]'Zoom .75x
[Zoom 1.25x]'Zoom 1.25x
[Restore View Normal]'View;R;Normal

***POP7
[File ]
[Save ]^c^c^cSave;
[End  ]^c^c^cend
[Quit ]^c^c^c$S=X $s=quit quit
[~--  ]
[Plot ]^c^c^cplot
[Print]^c^c^cprplot

***POP8
[Help]
[Help]'help

***SCREEN
**AFONT1
[Dr.Lisp ]
[AutoFont]
[--------]'Redraw
[Define  ]^c^c^c^p(If (Null Afont1) (Load "/DRL/AFont1") +
(PrinC)) (DefChr)
[Charactr]^c^c^c^p(If (Null Afont1) (Load "/DRL/AFont1") +
(PrinC)) (DefChr)

[Cleanup ]^c^c^c^p(If (Null Afont1) (Load "/DRL/AFont1") (PrinC)) +
(Progn (If (And TypSpc ChrFil Font) (SavCh1) +
(Prompt "You must use Define Character before using Cleanup. ")) (PrinC))

[ViewSpac]^c^c^c^p(ViewSpac)

[Spacing]^c^c^c^p(If (Null Afont1) (Load "/DRL/AFont1") (PrinC)) +
(Progn (If (And Spacing TypSpc ChrFil Font) (Spacing) +
(Prompt "You must use Define Character before using Spacing. ")) (PrinC))

[Save    ]^c^c^c^p(If (Null Afont1) (Load "/DRL/AFont1") (PrinC)) +
(SavCh2)
[Charactr]^c^c^c^p(If (Null Afont1) (Load "/DRL/AFont1") (PrinC)) +
(SavCh2)

[PostProc]$S=AFONT2

[FontTest]^c^c^c^p(If (Null C:FontTest) (Load "/DRL/FontTest") (PrinC)) +
FontTest
[---><---]$S=OSnap
[Dr.Lisp ]$S=DRLISP

**AFONT2
[Dr.Lisp ]
[AutoFont]
[--------]'Redraw
[Post    ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (PostProc)
[Process ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (PostProc)

[Save    ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (SavFil)
[Font    ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (SavFil)
                                    
[Compile ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (EndSes)
[Font    ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (EndSes)

[All     ]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (AllPost)
[PostProc]^c^c^c^p(If (Null Afont2) (Load "/DRL/AFont2") +
(PrinC)) (AllPost)

[PreProc ]$S=Afont1

[FontTest]^c^c^c^p(If (Null C:FontTest) (Load "/DRL/FontTest") (PrinC)) +
FontTest
[--------]'Redraw
[Dr.Lisp ]$S=DRLISP

**OSnap
[Obj Snap]^c^c^cOSnap
[  ON    ]^c^c^cOSnap
[--------]'Redraw $S=
[CENter]CENTER $S=
[ENDpoint]ENDPOINT $S=
[INSert]INSERT $S=
[INTersec]INTERSEC $S=
[MIDpoint]MIDPOINT $S=
[NEArest]NEAREST $S=
[NODe]NODE $S=
[PERpend]PERPEND $S=
[QUAdrant]QUADRANT $S=
[QUICK,]QUICK,^Z
[TANgent]TANGENT $S=
[NONE]NONE $S=
[--------]'Redraw $S=
[Obj Snap]^c^c^cOSnap OFF
[  OFF   ]^c^c^cOSnap OFF

[LastMenu]$S=

**DRLISP
[Dr.Lisp ]
[--------]'Redraw
[Cleanup ]$S=DRLCLEAN
[Draw    ]$S=DRLDRAW
[Edit    ]$S=DRLEDIT
[Fonts   ]$S=DRLFONT
[Layer   ]$S=DRLLAY
[Text    ]$S=DRLTEXT
[Snaps   ]$S=DRLSNAP

[Report  ]$S=DRLRPT
[MultiDwg]$S=DRLMULTI
[Program ]$S=DRLPROG
[Misc    ]$S=DRLMISC

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[---><---]$S=DRLOSNP
[__LAST__]$S=
[PrevMenu]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
**DRLOSNP
[Obj.Snap]
[--------]'Redraw $S=
[CENter]CENTER $S=
[ENDpoint]ENDPOINT $S=
[INSert]INSERT $S=
[INTersec]INTERSEC $S=
[MIDpoint]MIDPOINT $S=
[NEArest]NEAREST $S=
[NODe]NODE $S=
[PERpend]PERPEND $S=
[QUAdrant]QUADRANT $S=
[QUICK,]QUICK,^Z
[TANgent]TANGENT $S=
[NONE]NONE $S=

**DRLSEL
[SelectOb]
[--------]'Redraw
[Select'n]$S=DRLSS
[Sets    ]$S=DRLSS

[Filter  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[AllObjs ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LastObj ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[SaveLast]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Get     ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ NewObjs]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use     ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ NewObjs]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLSS
[Sel.Sets]
[--------]'Redraw

[Save   1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use    1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Add To 1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Del Fr 1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Clear  1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Save   2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use    2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Add To 2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Del Fr 2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Clear  2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLFILT
[ObFilter]
[--------]'Redraw
[Filter  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Attrib]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Block]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Color]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Elev]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LAyer]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LInetype]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[TExtStyl]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[THick]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ent TYpe]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLPNTS1
[Points 1]
[--------]'Redraw
[DwgBasPt]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LinInter]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[PerpFrm ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[PolarFrm]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[RelatFrm]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[HorzLock]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[VertLock]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[MidOf2  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[NOverD  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[PtGroup ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[+-+-+-+-]$S=DRLSEL
[..MORE..]$S=SPPOINTS2
[Dr.Lisp ]$S=DRLISP
**SPPOINTS2
[Points 2]
[--------]'Redraw
[SavePt 1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use Pt 1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[SavePt X]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use Pt X]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[SaveDsp1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use Dsp1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[SaveDspX]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use DspX]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[AutoAng ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[DistCalc]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[UseCalc ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[..MORE..]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLSNAP
[ Snaps  ]
[--------]'Redraw
[SaveSnp1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use Snp1]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[SaveSnp2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use Snp2]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[SaveSnpX]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Use SnpX]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Ask Snap]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[OrthoTog]^o
[Snap Tog]^b
[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLDRAW
[  Draw  ]
[--------]'Redraw
[AryIntvl]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[BlkLine ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MkBlkLin]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[CrvText ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[DirecArc]^c^c^cArc;\E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\+
;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\+
;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\;@;E;\D;\
[Legend  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ParaLins]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[PtGroup ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Sequence]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[TanFrmTo]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Tang Arc]^c^c^cArc;\E;\D;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\
[TheDate ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLEDIT
[ Edit 1 ]
[--------]'Redraw
[Break@  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ChgAtts ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ChgBlkLy]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[CopyAtts]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[CpyRotMv]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ExplObjs]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[IncrAtt ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LineFill]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LnToPln ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MirrAtts]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))


[  MORE  ]$S=DRLEDIT2
[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLEDIT2
[ Edit 2 ]
[--------]'Redraw
[MultiExt]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MultiTrm]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[PlineWid]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Replace ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[RevObjs ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[RotMove ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[RotMvAtt]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Snip    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Swap    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))



[  MORE  ]$S=DRLEDIT
[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLCRM
[CpyRotMv]
[--------]'Redraw

[CpyRotMv]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Last Pnt]@

[OrthoTog]^o
[Snap Tog]^b






**DRLRM
[RotMove ]
[--------]'Redraw

[RotMove ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Last Pnt]@

[OrthoTog]^o
[Snap Tog]^b






[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLCLEAN
[Cleanup ]
[--------]'Redraw

[BlkPurge]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[DelDups ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Heal    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[RegenObj]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))





[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLLAY
[ Layer  ]
[--------]'Redraw

[CurrLay ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Isolate ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[LayMod  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[LaySet  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[RenLays ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[SetLayer]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**LAYSET
[ LaySet ]
[--------]'Redraw

[Create  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LayerSet]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
 
[Restore ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LayerSet]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Query   ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LayerSet]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))


[CurrLay]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLLMOD
[ LayMod ]
[--------]'Redraw

[LayMod  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[ON      ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[OFF     ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Color   ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Ltype   ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Freeze  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Thaw    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Done    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))


[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLFONT
[ Fonts  ]
[--------]'Redraw

[CB-O]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[HL-O]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[HM-O]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[HB-O]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[OP-O]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[OP-F]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLTEXT
[  Text  ]
[--------]'Redraw

[CpyChgTx]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[DistText]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[PosiText]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[RotCrvTx]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[TextCase]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[TextFile]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[TextLeft]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[TextMod ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Underlin]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))



[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLRPT
[ Report ]
[--------]'Redraw

[AttRpt  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[BlkRpt  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Running ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[PtGroup ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Walk Blk]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Walk Ent]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Walk SS ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLMULTI
[MultiDwg]
[--------]'Redraw

[Clip    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[DwgExec ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[GetBlk  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MakeBlk ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MakeDwgs]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MakeIcon]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MakeSld ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[MultiDwg]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Replace ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))



[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLPROG
[Program ]
[--------]'Redraw
[LoadTemp]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[LoadFunc]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Run Func]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Load Src]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Copy Src]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ResetErr]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ConvKelv]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Walk Blk]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Walk Ent]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Walk SS ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[ObjExec ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[TblExec ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**DRLMISC
[  Misc  ]
[--------]'Redraw

[Capture ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Script  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))
[Temp    ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[Script  ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))


[Headline]^c^c^c^p(If (Null C:Headline) (Load "/DRL/HeadLine") (PrinC))

[SaveMsg ]^p(Progn (Prompt "Unavailable in Sample Utility package. ") (PrinC))

[+-+-+-+-]$S=DRLSEL
[........]$S=DRLPNTS1
[Dr.Lisp ]$S=DRLISP
**