home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p066 / 1.img / AEC-A.MNU < prev    next >
Encoding:
AudoCAD Menu  |  1989-08-07  |  393.9 KB  |  15,225 lines
  1. ***POP1
  2. [Space]
  3. [Area and Width]^C^C(F:LODF "a:q011") (progn(setq f:list '(a:q011 144.0 "sqft" "square footage" "arwall1line"))(princ))(f:rept nil);
  4. [Width x Depth]^C^C(F:LODF "a:q021") (progn(setq f:list '(a:q021 144.0 "sqft" "arwall1line"))(princ))(f:rept nil);
  5. [Dynamic]^C^C(F:LODF "a:q031") (progn(setq f:list '(a:q031 144.0 "sqft" "arwall1line"))(princ))(f:rept nil);
  6. [Custom]^C^C(F:UNDO);(F:ERR) (F:LODF "a:r011");(F:LODF "a:r01a");(F:LODF "a:rept") +
  7. (setq v:rst 1) (a:r01a)
  8. [~--]
  9. [Set Wall Ht.]$s=au001s1 'setvar userr5 \$s=
  10. [Space to Wall]^C^C(F:UNDO);(F:ERR) $s=osnapb (F:LODF "a:r02a") (F:LODF "a:r02b") +
  11. (setq v:rst 1)(F:LODF "a:rept") (a:r02b)
  12. [~--]
  13. [Display Space]^C^C(progn(command "layer" "thaw" "arwall1line" "off" "arwall" "")(princ))
  14. [Display Wall]^C^C(progn(command "layer" "fr" "arwall1line" "on" "arwall" "")(princ))
  15. [Display Both]^C^C(progn(command "layer" "thaw" "arwall1line" "on" "arwall" "")(princ))
  16.  
  17. ***POP2
  18. [Walls]
  19. [Contin. Wall]^C^C(F:LODF "a:j051") (progn(setq f:list '(a:j051 "arwall"))(princ))(f:rept nil);
  20. [End Caps]^C^C(graphscr)(F:LODF "a:j041") (progn(setq f:list '(a:j041 "arwall"))(princ))(f:rept nil);
  21. [~--]
  22. [L Intersection]^C^C(F:LODF "a:k04a") (progn(setq f:list '(a:k04a '(12 12)))(princ))(f:rept nil);
  23. [T Intersection]^C^C(F:LODF "a:k051") (progn(setq f:list '(a:k051 '(12 12)))(princ))(f:rept nil);
  24. [X Intersection]^C^C(F:LODF "a:k061") (progn(setq f:list '(a:k061 '(12 12)))(princ))(f:rept nil);
  25. [~--]
  26. [Align Walls &]^C^C$I=AWALL $I=*
  27. [ Add Spaces...]^C^C$I=AWALL $I=*
  28. [~--]
  29. [Hatch]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=ar05a
  30. [Set Wall Thk.]$s=popar06a
  31.  
  32. ***POP3
  33. [Doors]
  34. [Single-swing Left]^C^C+
  35. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  36. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  37. (setq v:d_tp "do0" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  38. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  39. (getvar "tracewid") "aud1das" "ARWINDOWSPEC")
  40. [Single-swing Right]^C^C+
  41. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  42. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  43. (setq v:d_tp "do1" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  44. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  45. (getvar "tracewid") "aud1das" "ARWINDOWSPEC")
  46. [Single-swing Double]^C^C+
  47. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  48. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  49. (setq v:d_tp "do4" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  50. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  51. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  52. [Double-swing Single]^C^C+
  53. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  54. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  55. (setq v:d_tp "do2" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  56. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  57. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  58. [Double-swing Double]^C^C+
  59. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  60. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  61. (setq v:d_tp "do5" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  62. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  63. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  64. [Others]^C^C+
  65. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  66. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1")) +
  67. (progn (setq v:othr T v:d_ri nil v:d_un 0 v:d_nd "" v:d_sh v:dsht +
  68. v:d_ht v:dht v:d_cv T +
  69. f:list '(a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  70. (getvar "tracewid") "aud1das" "ARDOORSPEC")) (f:cls)) $s=adotype3 +
  71. (progn (prompt "Select an opening type: ") (setq v:d_tp (getstring)) +
  72. (princ)) \
  73. [~--]
  74. [Window ]^C^C+
  75. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  76. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  77. (setq v:d_tp "wi0" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  78. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  79. (getvar "tracewid") "auw1das" "ARWINDOWSPEC")
  80. [~--]
  81. [Uniform]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  82. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW")) +
  83. (princ))(f:rept nil);
  84. [ Storefront]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  85. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW")) +
  86. (princ))(f:rept nil);
  87. [Alternating]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  88. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW")) +
  89. (princ))(f:rept nil);
  90. [ Storefront]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  91. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW")) +
  92. (princ))(f:rept nil);
  93. [~--]
  94. [Edit ]^C^C(F:PRMP) $S=af04a
  95. [Modes]^C^C(f:prmp) $s=adomodes
  96. [~--]
  97. [Install]^C^C(progn (f:lodf "a:doin") (f:lodf "a:util") +
  98. (f:lodf "a:dobw") (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") +
  99. (f:lodf "a:dof1") (setq f:list '(a:doin "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  100. "doerror" "wierror"))(princ)) (f:rept nil);
  101.  
  102. ***POP4
  103. [Symbols]
  104. [Structural...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  105. (cond +
  106. (v:2d         (menucmd "I=STRUCTURAL")(menucmd "I=*")) +
  107. (T            (menucmd "I=3DSTRUCT")(menucmd "I=*")))
  108. [~--]
  109. [Plumbing 1...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  110. (cond +
  111. (v:2d         (menucmd "I=PLUMB1")(menucmd "I=*")) +
  112. (T            (menucmd "I=3DPLUMB1")(menucmd "I=*")))
  113. [Plumbing 2...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  114. (cond +
  115. (v:2d         (menucmd "I=PLUMB2")(menucmd "I=*")) +
  116. (T            (menucmd "I=3DPLUMB2")(menucmd "I=*")))
  117. [~--]
  118. [Electrical...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  119. (cond +
  120. (v:2d         (menucmd "I=ELECTRICAL")(menucmd "I=*")) +
  121. (T            (menucmd "I=3DELECT")(menucmd "I=*")))
  122. [~--]
  123. [Light/Ceil 1...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  124. (cond +
  125. (v:2d         (menucmd "I=LIGHT/CLG1")(menucmd "I=*")) +
  126. (T            (menucmd "I=3DLIGHT1")(menucmd "I=*")))
  127. [Light/Ceil 2...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  128. (cond +
  129. (v:2d         (menucmd "I=LIGHT/CLG2")(menucmd "I=*")) +
  130. (T            (menucmd "I=3DLIGHT2")(menucmd "I=*")))
  131. [~--]
  132. [Furniture 1...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  133. (cond +
  134. (v:2d         (menucmd "I=FURN1")(menucmd "I=*")) +
  135. (T            (menucmd "I=3DFURN1")(menucmd "I=*")))
  136. [Furniture 2...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  137. (cond +
  138. (v:2d         (menucmd "I=FURN2")(menucmd "I=*")) +
  139. (T            (menucmd "I=3DFURN2")(menucmd "I=*")))
  140. [Furniture 3...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  141. (cond +
  142. (v:2d         (menucmd "I=FURN3")(menucmd "I=*")) +
  143. (T            (menucmd "I=3DFURN3")(menucmd "I=*")))
  144. [~--]
  145. [Appliance...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  146. (cond +
  147. (v:2d         (menucmd "I=APPLIANCES")(menucmd "I=*")) +
  148. (T            (menucmd "I=3DAPPL")(menucmd "I=*")))
  149. [Vert/Stairs...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  150. (cond +
  151. (v:2d         (menucmd "I=STAIRS")(menucmd "I=*")) +
  152. (T            (menucmd "I=3DSTAIRS")(menucmd "I=*")))
  153. [User-defined...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  154. (cond +
  155. (v:2d         (menucmd "I=USER")(menucmd "I=*")) +
  156. (T            (menucmd "I=3DUSER")(menucmd "I=*")))
  157. [Site...]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  158. (cond +
  159. (v:2d         (menucmd "I=SITE")(menucmd "I=*")) +
  160. (T            (menucmd "I=3DSITE")(menucmd "I=*")))
  161. [Tags...]^C^C$I=itags $I=*
  162. [Title...]^C^C(menucmd "I=TITLE")(menucmd "I=*")
  163.  
  164. ***POP5
  165. [Roof]
  166. [3-sided Plan]^C^C(F:LODF "a:zclk") (F:LODF "a:n01a") (F:LODF "a:zpng") +
  167. (progn(setq f:list '(a:n01a "arroofplan" "arheader" "arwall1line" T))(princ))(f:rept nil);
  168. [4-sided Plan]^C^C(F:LODF "a:zclk") (F:LODF "a:n01a") (F:LODF "a:zpng") +
  169. (progn(setq f:list '(a:n01a "arroofplan" "arheader" "arwall1line" nil))(princ))(f:rept nil);
  170. [~--]
  171. [Create 3-D Roof]^C^C(F:LODF "a:roof") (F:LODF "a:zclk") (f:lodf "a:tria") +
  172. (progn(setq f:list '(a:roof "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  173. [ From Plan]^C^C(F:LODF "a:roof") (F:LODF "a:zclk") (f:lodf "a:tria") +
  174. (progn(setq f:list '(a:roof "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  175. [~--]
  176. [Soffit & Fascia]^C^C(f:lodf "a:soff") (progn(setq f:list '(a:soff))(princ))(f:rept nil);
  177. [Modes]^C^C(F:PRMP) $s=roofmode
  178. [~--]
  179. [Domes/Others]^C^C(F:LODF "a:n031") (progn(setq f:list '(a:n031 "rf3dface"))(princ))(f:rept nil);
  180. [~--]
  181. [Delete External]^C^C(f:lodf "a:eras") (a:eras)
  182. [ Files]^C^C(f:lodf "a:eras") (a:eras)
  183.  
  184. ***POP6
  185. [Display]
  186. ['Pan   ]'pan
  187. ['Redraw]'redraw
  188. ['Zoom Dynamic]'zoom d
  189. ['Zoom Previous]'zoom p
  190. ['Zoom Window]'zoom w
  191. [Zoom Extents]^C^Czoom e
  192. [Zoom All]^C^Czoom a
  193. [~--]
  194. [Set Display>]^C^C$p6=SETD $p6=*
  195. [~--]
  196. [Convert to 2-D]^C^C(progn +
  197. (setq a:j01b nil a:j01c nil a:j01d nil a:j01e nil a:j01f nil a:j01g nil v:j01h nil v:j01i nil) +
  198. (terpri)(prompt "Select the symbol types that you want to convert.")+
  199. (terpri)(prompt "Pick DONE when finished. ")(princ)) $S=aj01a2;
  200. [Convert to 3-D]^C^C(progn +
  201. (setq a:j01b nil a:j01c nil a:j01d nil a:j01e nil a:j01f nil a:j01g nil v:j01h nil v:j01i nil) +
  202. (terpri)(prompt "Select the symbol types that you want to convert.")+
  203. (terpri)(prompt "Pick DONE when finished. ")(princ)) $S=aj01a3;
  204. [Error Messages]^C^C(f:prmp) $s=AJ01B;
  205. [~--]
  206. [Hide Lines]^C^C^Phide^P;
  207. [Thickness]$s=au001s1 'setvar thickness
  208.  
  209. ***POP7
  210. [Elev/Sect]
  211. [Draft Elevation]^C^C(F:LODF "a:p01a") (F:LODF "a:p01b") (F:LODF "a:zeln") +
  212. (F:LODF "a:zclk") (F:LODF "a:zxla") (progn(setq f:list '(a:p01a "arelvtn" "arheader"))(princ))(f:rept nil);
  213. [Draft Section]^C^C(F:LODF "a:xxsc");(progn(setq f:list '(a:xxsc))(princ))(f:rept nil);
  214. [Tilt-up]^C^C(F:LODF "a:y13a") (progn(setq f:list '(a:y13a))(princ))(f:rept nil);
  215. [~--]
  216. [Door Details]^C^C(f:lodf "a:type")(progn(setq f:list '(a:type "ao01a"))(princ))(f:rept nil);
  217. [Window Details]^C^C(f:lodf "a:type")(progn(setq f:list '(a:type "ao02a"))(princ))(f:rept nil);
  218. [Other Details]^C^C(f:prmp);$s=ao03a
  219. [Hatch Patterns]^C^C(F:UNDO);(F:ERR)(f:lodf "a:p031") (F:PRMP) $s=ap03a
  220.  
  221. ***POP8
  222. [Utility]
  223. [AutoCAD]^C^C(cond +
  224. ((setq a (findfile "acad.mnx")) (progn(command "menu" (substr a 1(- (strlen a) 4))))) +
  225. (T (progn (terpri)(princ " ") (terpri) (princ " ")(terpri) (princ "Cannot find acad.mnx")(princ))))
  226. [AutoShade...]^C^C(F:LODF "a:shade") $i=as $i=*
  227. [~--]
  228. [Cancel]^C^C(F:UNDO);(F:ERR) (progn (F:MODR) (setvar "highlight" 1) (setvar "osmode" 0) +
  229. (setvar "menuecho" 1) (F:RLAY) +
  230. (if V:STXT (progn (command "style" "" "" V:STXT "" "" "" "" "") +
  231. (setq V:STXT nil))) (F:CLS))
  232. [Erase ]^C^C$S=X $S=ERASE ^C^C(F:UNDO);(F:ERR) erase
  233. [Redo]redo
  234. [U]U
  235. [Undo Back]Undo back
  236. [~--]
  237. [Dimension>]^C^C$p8=PDIM1 $p8=*
  238. [Edit 1...]^C^C$I=EDIT1 $I=*
  239. [Edit 2...]^C^C$I=EDIT2 $I=*
  240. [Edit 3>]^C^C$p8=EDIT3 $p8=*
  241. [Inquiry>]^C^C$p8=INQ $p8=*
  242. [Linetypes...]^C^C$i=ltypes $i=*
  243. [Modes 1>]^C^C$p8=SETPOP $p8=*
  244. [Modes 2>]^C^C$p8=SETPOP2 $p8=*
  245. [Settings...]^C^C(command "ddrmodes")
  246. [Text>]^C^C$p8=AUITEXT $p8=*
  247. [Util/Plot>]^C^C$p8=UTIL $p8=*
  248.  
  249. ***ICON
  250. **poly
  251. [Set Polymesh and Polyline Variables]
  252. [aec-a(pmq)]'setvar surftype 5
  253. [aec-a(pmc)]'setvar surftype 6
  254. [aec-a(pmb)]'setvar surftype 8
  255. [aec-a(plq)]'setvar splinetype 5
  256. [aec-a(plc)]'setvar splinetype 6
  257. [ Set SPLINESEGS]'setvar splinesegs \
  258. [ Set SPLFRAME]'setvar splframe \
  259. [ Set DENSITY]'setvar surfu \'setvar surfv \
  260. [ Cancel ]^C^C
  261.  
  262.  
  263. **STRUCTURAL
  264. [Structural Symbols]
  265. [aec-2(a12)]^C^C(F:LODF "a:a121") (progn(setq f:list '(a:a121))(princ))(f:rept nil);
  266. [aec-2(b12)]^C^C(F:LODF "a:ax25");(a:ax25 "b12sm" "l2");(F:UNDO);(F:ERR) $S=a1061s1 (F:LODF "a:b121") +
  267. (progn (terpri)(prompt " ")(terpri)(princ "Select a steel channel shape: ")(princ))
  268. [aec-2(c12)]^C^C(F:LODF "a:ax25");(a:ax25 "c12sm" "l2");(F:UNDO);(F:ERR) $S=a1062s1 (F:LODF "a:b121") +
  269. (progn (terpri)(prompt " ")(terpri)(princ "Select a wide flange shape: ")(princ))
  270. [aec-2(d12)]^C^C(F:LODF "a:d121") (progn(setq f:list '(a:d121))(princ))(f:rept nil);
  271. [aec-2(e12)]^C^C(F:LODF "a:e121") (progn(setq f:list '(a:e121))(princ))(f:rept nil);
  272. [aec-2(f12)]^C^C(F:LODF "a:f121") (progn(setq f:list '(a:f121))(princ))(f:rept nil);
  273. [aec-2(g12)]^C^C(F:LODF "a:g121") (progn(setq f:list '(a:g121))(princ))(f:rept nil);
  274. [aec-2(h12)]^C^C(F:LODF "a:ax25");(a:ax25 "h12sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1187SA 
  275. [ Cancel ]^C
  276. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "12h" "lh2");$I=*
  277.  
  278. **PLUMB1
  279. [Plumbing Symbols 1]
  280. [aec-2(a13)]^C^C(F:LODF "a:ax25");(a:ax25 "a13sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1013S1
  281. [aec-2(b13)]^C^C(F:LODF "a:ax25");(a:ax25 "b13sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1038SA
  282. [aec-2(c13)]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ac131" T V:x V:y V:zs V:ze T +
  283. nil "PLDFLT" "au013t1" (list '("PLUNAME" "DBL SINK")) "mpfixtspec"))(f:prmp);$s=a1063s1
  284. [aec-2(d13)]^C^C(setq V:x 28 V:y 21 V:zs 17 V:ze 0);+
  285. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ad131" T V:x V:y V:zs +
  286. V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "TOILET")) "mpfixtspec"))(princ))(f:rept nil);
  287. [aec-2(e13)]^C^C(setq V:x 30 V:y 20 V:r 0 V:zs 16 V:ze 0);+
  288. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ae131" T V:x V:y V:zs V:ze T T +
  289. "PLDFLT" "au013t1" (list '("PLUNAME" "TOILET")) "mpfixtspec"))(princ))(f:rept nil);
  290. [aec-2(f13)]^C^C(F:LODF "a:ax25");(a:ax25 "f13sm" "l2");+
  291. (setq f:list '(F:INSR nil T nil "mpfixture" V:b T V:x V:y V:zs V:ze T nil +
  292. "PLDFLT" "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(f:prmp);$s=a1138sa
  293. [aec-2(g13)]^C^C(setq V:x 12 V:y 18 V:zs 24 V:ze 24);+
  294. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ag131" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  295. "au013t1" (list '("PLUNAME" "URINAL")) "mpfixtspec"))(princ))(f:rept nil);
  296. [aec-2(h13)]^C^C(F:LODF "a:ax25");(a:ax25 "h13sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1188SA
  297. [ Cancel ]^C
  298. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "13h" "lh2");$I=*
  299. [ Plumbing 2]$I=PLUMB2 $I=*
  300.  
  301. **PLUMB2
  302. [Plumbing Symbols 2]
  303. [aec-2(a14)]^C^C(F:LODF "a:ax25");(a:ax25 "a14sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1014SA
  304. [aec-2(b14)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1039S1
  305. [aec-2(c14)]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ac141" T V:x V:y V:zs V:ze T nil +
  306. "PLDFLT" "au013t1" (list '("PLUNAME" "SINK")) "mpfixtspec"))(f:prmp);$s=a1064s1
  307. [aec-2(d14)]^C^C(F:LODF "a:ax25");(a:ax25 "d14sm" "l2");+
  308. (setq f:list '(F:INSR nil T nil "araccessory" V:bar T V:x V:y V:zs V:ze +
  309. T nil nil nil nil nil))(f:prmp);$s=a1089s1
  310. [aec-2(e14)]^C^C(F:LODF "a:e14a") (F:LODF "a:e14b") (progn(setq f:list '(a:e14b))(princ))(f:rept nil);
  311. [aec-2(f14)]^C^C(F:LODF "a:g211");(F:LODF "a:e14a");(F:LODF "a:f141");(F:PRMP);$S=AF14SA \+
  312. (progn(setq f:list '(a:f141 a))(princ))(f:rept nil);
  313. [aec-2(g14)]^C^C(F:LODF "a:e14a") (F:LODF "a:g141") (progn(setq f:list '(a:g141))(princ))(f:rept nil);
  314. [aec-2(h14)]^C^C(F:LODF "a:ax25");(a:ax25 "h14sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1189SA
  315. [ Cancel ]^C
  316. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "14h" "lh2");$I=*
  317. [ Plumbing 1]$I=PLUMB1 $I=*
  318.  
  319. **ELECTRICAL
  320. [Electrical Symbols]
  321. [aec-2(a15)]^C^C(F:LODF "a:a151") (progn(setq f:list '(a:a151 "eepower"))(princ))(f:rept nil);
  322. [aec-2(b15)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  323. (progn(setq f:list '(F:INSR nil nil '(("osmode") (512)) "eepower" "ab151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  324. [aec-2(c15)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  325. (progn(setq f:list '(F:INSR nil nil nil "eepower" "ac151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  326. [aec-2(d15)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);+
  327. (progn(setq f:list '(F:INSR nil nil nil "eecomm" "ad151" T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept nil);
  328. [aec-2(e15)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  329. (progn(setq f:list '(F:INSR nil nil nil "eecomm" "ae151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  330. [aec-2(f15)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));+
  331. (setq V:y V:x V:r 0);(progn(setq f:list '(F:INSR nil nil nil "eecomm" +
  332. "af151" T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept nil);
  333. [aec-2(g15)]^C^C(F:LODF "a:ax25");(a:ax25 "g15sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1165SA 
  334. [aec-2(h15)]^C^C(F:LODF "a:ax25");(a:ax25 "h15sm" "l2");(F:ERR) (F:PRMP) $S=A1190S1
  335. [ Cancel ]^C
  336. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "15h" "lh2");$I=*
  337.  
  338. **LIGHT/CLG1
  339. [Light/Ceiling Symbols 1]
  340. [aec-2(a16)]^C^C(F:LODF "a:ax25");(a:ax25 "a16sm" "l2");+
  341. (setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  342. (setq f:list '(F:INSR nil nil nil "eelighting" V:b T V:x V:y V:zs V:ze V:r nil +
  343. "LIDFLT" "au015t1" (list '("LIDESCR" "SPOT LIGHT")) "eelightspec"))(f:prmp);$s=a1016s1
  344. [aec-2(b16)]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  345. (progn(setq f:list '(F:INSR nil nil nil "eelighting" "ab161" T V:x V:y V:zs V:ze T nil +
  346. "LIDFLT" "au015t1" (list '("LIDESCR" "WALL MT INCA")) "eelightspec"))(princ))(f:rept nil);
  347. [aec-2(c16)]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  348. (progn(setq f:list '(F:INSR nil nil nil "eelightem" "ac161" T V:x V:y V:zs V:ze V:r nil +
  349. "LIDFLT" "au015t1" (list '("LIDESCR" "EXIT CEILING")) "eelightspec"))(princ))(f:rept nil);
  350. [aec-2(d16)]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96);+
  351. (progn(setq f:list '(F:INSR nil nil nil "eelighting" "ad161" T V:x V:y V:zs V:ze T nil +
  352. "LIDFLT" "au015t1" (list '("LIDESCR" "EXIT WALL")) "eelightspec"))(princ))(f:rept nil);
  353. [aec-2(e16)]^C^C(F:LODF "a:ax25");(a:ax25 "e16sm" "l2");+
  354. (setq V:zs 4 V:ze 96);+
  355. (setq f:list '(F:INSR nil nil nil "eelightem" V:b T V:x V:y V:zs V:ze T +
  356. nil "LIDFLT" "au015t1" (list '("LIDESCR" "EMERGENCY LIGHT")) "eelightspec"))(f:prmp);$s=a1116sa
  357. [aec-2(f16)]^C^C(setq V:zs 4 V:ze 96);+
  358. (setq f:list '(F:INSR nil nil nil "mhdiff" "af161" T V:x V:y +
  359. V:zs V:ze T nil nil nil nil nil))(f:prmp);$s=a1141s1
  360. [aec-2(g16)]^C^C(setq V:zs 4 V:ze 96);+
  361. (setq f:list '(F:INSR nil nil nil "mhdiff" "ag161" T V:x V:y +
  362. V:zs V:ze T nil nil nil nil nil))(f:prmp);$s=a1166s1
  363. [aec-2(h16)]^C^C(F:LODF "a:h161");(F:LODF "a:h16a")(f:lodf "a:rept") +
  364. (setq v:rst 1)(a:h16a)
  365. [ Cancel ]^C
  366. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "16h" "lh2");$I=*
  367. [ Light/Ceiling2]$I=LIGHT/CLG2 $I=*
  368.  
  369. **LIGHT/CLG2
  370. [Light/Ceiling Symbols 2]
  371. [aec-2(a17)]^C^C(setq V:zs 4 V:ze 96);+
  372. (setq f:list '(F:INSR nil nil nil "eelightfl" "aa171" T V:x V:y V:zs V:ze T nil +
  373. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO STRIP")) "eelightspec"))(f:prmp);$s=a1017s1
  374. [aec-2(b17)]^C^C(f:lodf "a:othr") (setq v:x 48 v:y 12 V:zs 4 V:ze 96);+
  375. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ab171" T V:x V:y V:zs V:ze T nil +
  376. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ));+
  377. (a:othr "fixture" 3 "flo")
  378. [aec-2(c17)]^C^C(setq V:x 48 V:y 12 V:zs 4 V:ze 96);+
  379. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ab171" T V:x V:y V:zs V:ze T nil +
  380. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  381. [aec-2(d17)]^C^C(setq V:x 48 V:y 24 V:zs 4 V:ze 96);+
  382. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ad171" T V:x V:y V:zs V:ze T nil +
  383. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  384. [aec-2(e17)]^C^C(setq V:x 24 V:y 24 V:zs 4 V:ze 96);+
  385. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ae17a" T V:x V:y V:zs V:ze T nil "LIDFLT" +
  386. "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  387. [aec-2(f17)]^C^C(F:LODF "a:ax25");(a:ax25 "f17sm" "l2");+
  388. (setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96);+
  389. (setq f:list '(F:INSR nil nil nil "eelighting" V:b T V:x V:y V:zs V:ze T nil "LIDFLT" "au015t1" +
  390. (list '("LIDESCR" "SPOT LIGHT")) "eelightspec"))(f:prmp);$s=a1142s1
  391. [aec-2(g17)]^C^C(f:lodf "a:g171")(progn(setq f:list '(a:g171))(princ))(f:rept nil)
  392. [aec-2(h17)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1192S1
  393. [ Cancel ]^C
  394. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "17h" "lh2");$I=*
  395. [ Light/Ceiling1]$I=LIGHT/CLG1 $I=*
  396.  
  397.  
  398. **FURN1
  399. [Furniture Symbols 1]
  400. [aec-2(a18)]^C^C(F:LODF "a:ax25");(a:ax25 "a18sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1018SA
  401. [aec-2(b18)]^C^C(F:LODF "a:ax25");(a:ax25 "b18sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=A1043SA
  402. [aec-2(c18)]^C^C(F:LODF "a:ax25");(a:ax25 "c18sm" "l2");+
  403. (setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze +
  404. T nil "FUDFLT" "au017t1" (list '("FURNAME" "EXEC CHAIR")) "fmspec"))(f:prmp);$s=a1068sa
  405. [aec-2(c19)]^C^C(f:prmp);$s=ah20b
  406. [aec-2(d19)]^C^C(f:prmp);$s=ah20a
  407. [aec-2(e19)]^C^C(progn(setq f:list '(F:INSR nil T nil "fmchair" "ac191" T V:x V:y V:zs V:ze T +
  408. nil "FUDFLT" "au017t1" (list '("FURNAME" "SOFA")) "fmspec"))(princ))(f:prmp);$S=A1069S1
  409. [aec-2(e18)]^C^C(F:LODF "a:ax25");(a:ax25 "d19sm" "l2");+
  410. (progn(setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  411. (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(princ)) (F:PRMP);$S=A1094S1
  412. [aec-2(h18)]^C^C(f:lodf "a:othr") (setq v:x 36 v:y 36 v:zs 36 V:ze 0);+
  413. (progn(setq f:list '(F:INSR nil T nil "fmmisc" "azsct" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  414. "au017t1" (list '("FURNAME" "BOX")) "fmspec"))(princ));+
  415. (a:othr "box" 13 "box")
  416. [ Cancel ]^C^C
  417. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "18h" "lh2");$I=*
  418. [ Furniture 2]$I=FURN2 $I=*
  419. [ Furniture 3]$I=FURN3 $I=*
  420.  
  421. **FURN2
  422. [Furniture Symbols 2]
  423. [aec-2(a19)]^C^C(setq f:list '(F:INSR nil T nil "fmtable" "aa191" T V:x V:y V:zs V:ze T nil +
  424. "FUDFLT" "au017t1" (list '("FURNAME" "CONF TABLE")) "fmspec"))(f:prmp);$s=a1019s1
  425. [aec-2(b19)]^C^C(progn (terpri)(prompt " ")(terpri)+
  426. (prompt "Select either a table or a wood grain finish from screen menu.")+
  427. (princ)) (setq f:list '(F:INSR nil T nil "fmtable" "ab19a" T V:x V:y V:zs +
  428. V:ze T nil "FUDFLT" "au017t1" (list '("FURNAME" "TABLE")) "fmspec"))$s=a1044sa
  429. [aec-2(d18)]^C^C(F:LODF "a:ax25");(a:ax25 "d18sm" "l2");+
  430. (setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze +
  431. T nil "FUDFLT" "au017t1" (list '("FURNAME" "DESK")) "fmspec"))(f:prmp);$s=a1093sa
  432. [aec-2(f18)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "f18"))(princ))(f:rept nil);
  433. [aec-2(g18)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "g18"))(princ))(f:rept nil);
  434. [aec-2(f19)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "f19"))(princ))(f:rept nil);
  435. [aec-2(g19)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "g19"))(princ))(f:rept nil);
  436. [aec-2(h19)]^C^C(F:LODF "a:ax25");(a:ax25 "h19sm" "l2");+
  437. (setq f:list '(F:INSR nil nil nil "fmplant" V:b T V:x V:y V:zs V:ze +
  438. V:r nil nil nil nil nil))(f:prmp) $s=a1194sa
  439. [ Cancel ]^C^C
  440. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "19h" "lh2");$I=*
  441. [ Furniture 1]$I=FURN1 $I=*
  442. [ Furniture 3]$I=FURN3 $I=*
  443.  
  444. **FURN3
  445. [Furniture Symbols 3]
  446. [aec-2(a20)]^C^C(setq f:list '(F:INSR nil T nil "fmtable" V:b T V:x V:y V:zs V:ze T nil +
  447. "FUDFLT" "au017t1" (list '("FURNAME" "CONF TABLE W/CHAIR")) "fmspec"))(f:prmp);$s=a1020s1
  448. [aec-2(b20)]^C^C(F:LODF "a:b20a") (progn(setq f:list '(a:b20a "fmpartition"))(princ))(f:rept nil);
  449. [aec-2(c20)]^C^C(F:LODF "a:ax25");(a:ax25 "c20sm" "l2");+
  450. (setq f:list '(F:INSR nil T nil "fmfile" V:b T V:x V:y V:zs V:ze T nil +
  451. "FUDFLT" "au017t1" (list '("FURNAME" "FILE")) "fmspec"))(f:prmp);$s=a1070sa
  452. [aec-2(d20)]^C^C(setq f:list '(F:INSR nil T nil "fmcase" "ad20a" T V:x V:y V:zs V:ze +
  453. T nil "FUDFLT" "au017t1" '() "fmspec"))(f:prmp);$s=a1095s1
  454. [aec-2(e20)]^C^C(F:LODF "a:ax25");(a:ax25 "e20sm" "l2");+
  455. (setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze +
  456. T nil "FUDFLT" "au017t1" (list '("FURNAME" "CREDENZA")) "fmspec"))(f:prmp);$s=a1120s1
  457. [aec-2(f20)]^C^C(setq f:list '(F:INSR nil T nil "fmequip" "af201" T V:x V:y V:zs V:ze T nil +
  458. "FUDFLT" "au017t1" (list '("FURNAME" "COPY MACHINE")) "fmspec"))(f:prmp);$s=a1145s1
  459. [aec-2(g20)]^C^C(F:LODF "a:ax25");(a:ax25 "g20sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=a1170S1
  460. [aec-2(h20)]^C^C(F:LODF "a:ax25");(a:ax25 "h20sm" "l2");+
  461. (setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  462. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(f:prmp);$s=a1195sa
  463. [ Cancel ]^C
  464. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "20h" "lh2");$I=*
  465. [ Furniture 1]$I=FURN1 $I=*
  466. [ Furniture 2]$I=FURN2 $I=*
  467.  
  468. **APPLIANCES
  469. [Appliance Symbols]
  470. [aec-2(a21)]^C^C(setq V:x (* (getvar "userr3") 0.3125));(setq V:y V:x V:r 0 V:zs 1 V:ze 96);+
  471. (progn(setq f:list '(F:INSR nil nil nil "arappliance" "aa211" T V:x V:y V:zs V:ze V:r nil +
  472. "APDFLT" "au016t1" (list '("APLNAME" "FAN")) "arapplspec"))(princ))(f:rept nil);
  473. [aec-2(b21)]^C^C(setq f:list '(F:INSR nil T nil "arappliance" "ab211" T V:x V:y V:zs V:ze T nil +
  474. "APDFLT" "au016t1" (list '("APLNAME" "RANGE")) "arapplspec"))(f:prmp);$s=a1046s1
  475. [aec-2(c21)]^C^C(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  476. "APDFLT" "au016t1" (list '("APLNAME" "REFRIGERATOR")) "arapplspec"))(f:prmp);$s=a1071sa
  477. [aec-2(d21)]^C^C(setq f:list '(F:INSR nil T nil "arappliance" "ad211" T V:x V:y V:zs V:ze +
  478. T nil "APDFLT" "au016t1" (list '("APLNAME" "OVEN")) "arapplspec"))(f:prmp);$s=a1096s1
  479. [aec-2(e21)]^C^C(F:LODF "a:ax25");(a:ax25 "e21sm" "l2");+
  480. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T +
  481. nil "APDFLT" "au016t1" (list '("APLNAME" "DISHWASHER")) "arapplspec"))(f:prmp);$s=a1121s1
  482. [aec-2(f21)]^C^C(F:LODF "a:ax25");(a:ax25 "f21sm" "l2");+
  483. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  484. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1146sa
  485. [aec-2(g21)]^C^C(F:LODF "a:ax25");(a:ax25 "g21sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=ag21a
  486. [aec-2(h21)]^C^C(F:LODF "a:ax25");(a:ax25 "h21sm" "l2");+
  487. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  488. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1196sa
  489. [ Cancel ]^C
  490. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "21h" "lh2");$I=*
  491.  
  492. **USER
  493. [User-defined 2D Symbols]
  494. [aec-2(a23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U1")(menucmd "S=aa23a")(terpri)(prompt " ")(terpri)+
  495. (prompt "The current library is ")(princ V:unme)+
  496. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  497. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  498. [aec-2(b23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U2")(menucmd "S=aa23a") (terpri)+
  499. (prompt "The current library is ")(princ V:unme)+
  500. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  501. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  502. [aec-2(c23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U3")(menucmd "S=aa23a") (terpri)+
  503. (prompt "The current library is ")(princ V:unme)+
  504. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  505. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  506. [aec-2(d23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U4")(menucmd "S=aa23a") (terpri)+
  507. (prompt "The current library is ")(princ V:unme)+
  508. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  509. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  510. [aec-2(e23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U5")(menucmd "S=aa23a") (terpri)+
  511. (prompt "The current library is ")(princ V:unme)+
  512. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  513. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  514. [aec-2(f23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U6")(menucmd "S=aa23a") (terpri)+
  515. (prompt "The current library is ")(princ V:unme)+
  516. (prompt ".  To insert a previously defined symbol, ")(terpri) +
  517. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  518. [aec-2(g23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  519. (prompt "The current library is ")(princ V:unme)+
  520. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  521. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  522. [aec-2(h23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  523. (prompt "The current library is ")(princ V:unme)+
  524. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  525. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  526. [ User Library ]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=aa23j
  527. [ Cancel ]^C
  528.  
  529. **SITE
  530. [Site Symbols]
  531. [aec-2(a24)]^C^C(F:LODF "a:a24a") (f:lodf "a:rept")(f:lodf "a:rep2")(a:a24a "lssidewalk");
  532. [aec-2(b24)]^C^C(F:LODF "a:b24a") (progn(setq f:list '(a:b24a "lssidewalk"))(princ))(f:rept nil);
  533. [aec-2(c24)]^C^C(F:UNDO);(F:ERR) (setq V:W 108.0 V:D 240.0 V:P 90.0) (F:PRMP) $s=a1074sa
  534. [aec-2(d24)]^C^C(F:LODF "a:ax25");(a:ax25 "d24sm" "l2");(F:ERR) (F:PRMP) $S=A1099S1
  535. [aec-2(e24)]^C^C(f:lodf "a:e24a")(F:LODF "a:ax25");(a:ax25 "e24sm" "l2");(progn (menucmd "S=A1124SA") (terpri)(prompt " ")+
  536. (terpri)(prompt "Pick a tree style from the screen menu.")(princ)) \
  537. [aec-2(f24)]^C^C(setq V:x 72 V:y 72);+
  538. (progn(setq f:list '(F:INSR nil nil nil "lsstriping" "af241" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  539. [aec-2(g24)]^C^C(F:LODF "a:g241") (progn(setq f:list '(a:g241 (* (getvar "userr3") 0.125)))(princ))(f:rept nil);
  540. [aec-2(h24)]^C^C(F:LODF "a:ax25");(a:ax25 "h24sm" "l2");+
  541. (setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1199sa
  542. [ Cancel ]^C
  543. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "24h" "lh2");$I=*
  544.  
  545. **TITLE
  546. [Title Symbols]
  547. [aec-2(a25)]^C^C(F:LODF "a:ax25");(a:ax25 "a25sm" "l2");+
  548. (setq V:x (getvar "userr3") V:y V:x V:r 0) +
  549. (setq f:list '(F:INSR nil nil nil "arnorth" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1025s1
  550. [aec-2(b25)]^C^C(F:LODF "a:ax25");(a:ax25 "b25sm" "l2");(F:UNDO);(F:ERR) (F:PRMP) $S=ab251
  551. [aec-2(c25)]^C^C(graphscr)(princ)(F:LODF "a:c251") (progn(setq f:list '(a:c251 "artblock"))(princ))(f:rept nil);
  552. [aec-2(d25)]^C^C(F:LODF "a:d251") (progn(setq f:list '(a:d251))(princ))(f:rept nil);
  553. [aec-2(e25)]^C^C(f:lodf "a:e251") (f:lodf "a:e25a") (progn(setq f:list '(a:e25a))(princ))(f:rept nil)
  554. [aec-2(f25)]^C^C(f:lodf "a:f251") (progn(setq f:list '(a:f251))(princ))(f:rept "a1150s1")
  555. [aec-2(g25)]^C^C(f:lodf "a:c101")(progn (setq f:list '(a:ettt))(princ))(f:rept nil)
  556. [aec-2(h25)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1200S1
  557. [ Cancel ]^C
  558. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "25h" "lh2");$I=*
  559.  
  560. **LTYPES
  561. [Linetypes]
  562. [aec-a(g08)]^C^C(f:lodf "a:g081")(setq lname "DASH1") (F:PRMP) $s=a1158s1
  563. [aec-a(g09)]^C^C(f:lodf "a:g081")(setq lname "CENTER") (F:PRMP) $s=a1158s1
  564. [aec-a(g10)]^C^C(f:lodf "a:g081")(setq lname "DASH2") (F:PRMP) $s=a1158s1
  565. [aec-a(h08)]^C^C(f:lodf "a:g081")(progn(setq f:list '(a:g081 "light"))(princ))(f:rept "a1158s1");
  566. [aec-a(h09)]^C^C(f:lodf "a:g081")(progn(setq f:list '(a:g081 "medium"))(princ))(f:rept "a1158s1");
  567. [aec-a(h10)]^C^C(f:lodf "a:g081")(progn(setq f:list '(a:g081 "heavy"))(princ))(f:rept "a1158s1");
  568. [ Cancel ]^C
  569.  
  570. **EDIT1
  571. [Edit 1]
  572. [aec-a(w21)]^C^C$S=X $S=ARRAY ^C^C(F:UNDO);ARRAY
  573. [aec-a(x14)]^C^C$S=X $S=BREAKSPL ^C^C(F:UNDO);BREAK \F \@
  574. [aec-a(x13)]^C^C$S=X $S=BREAK2P ^C^C(F:UNDO);BREAK \F
  575. [aec-a(x15)]^C^C$S=X $S=COPY ^C^C(f:undo);copy
  576. [aec-a(x21)]^C^C$S=X $S=CHAMFER ^C^C(F:UNDO);CHAMFER
  577. [aec-a(w22)]^C^C$S=X $S=DIVIDE ^C^C(F:UNDO);DIVIDE
  578. [aec-a(w20)]^C^C$S=X $S=EXPLODE ^C^C(F:UNDO);EXPLODE
  579. [aec-a(x16)]^C^C$S=X $S=EXTEND ^C^C(F:UNDO);EXTEND
  580. [aec-a(x20)]^C^C$S=X $S=FILLET ^C^C(F:UNDO);FILLET
  581. [aec-a(x19)]^C^C$S=X $S=FILLET0 ^C^C(F:UNDO);FILLET R 0;;
  582. [aec-a(y21)]^C^C(F:LODF "a:y211") (progn(setq f:list '(a:y211))(princ))(f:rept nil);
  583. [aec-a(x22)]^C^C$S=X $S=MEASURE ^C^C(F:UNDO);MEASURE
  584. [ Edit 2 ]^C^C$I=EDIT2 $I=*
  585. [ Edit 3 ]^C^C$p8=EDIT3 $p8=*
  586. [ Cancel ]^C
  587.  
  588. **EDIT2
  589. [Edit 2]
  590. [aec-a(x12)]^C^C$S=X $S=MIRROR ^C^C(F:UNDO);MIRROR
  591. [aec-a(w15)]^C^C$S=X $S=MOVE ^C^C(f:undo);move
  592. [aec-a(w14)]^C^C$S=X $S=OFFSET ^C^C(F:UNDO);offset
  593. [aec-a(w19)]^C^C(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  594. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  595. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  596. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  597. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  598. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  599. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  600. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  601. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  602. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  603. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  604. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  605. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  606. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  607. (setq *error* m:err m:err nil)(princ))(princ) PEDITM 
  608. [aec-a(w13)]^C^C$S=X $S=ROTATE ^C^C(F:UNDO);ROTATE
  609. [aec-a(w12)]^C^C$S=X $S=SCALE ^C^C(F:UNDO);SCALE
  610. [aec-a(x17)]^C^C$S=X $S=STRETCH ^C^C(F:UNDO);STRETCH C
  611. [aec-a(x18)]^C^C$S=X $S=TRIM ^C^C(F:UNDO);TRIM
  612. [aec-a(y15)]^C^C$S=X $S=XYCOPY (f:lodf "a:copy")(a:copy)(progn(setq f:list '(c:copy:))(princ))(f:rept nil);
  613. [aec-a(y14)]^C^C$S=X $S=XYMOVE (F:LODF "a:move")(a:move)(progn(setq f:list '(c:move:))(princ))(f:rept nil);
  614. [aec-a(y12)]^C^C(F:LODF "a:y12a") (F:LODF "a:y12b") +
  615. (F:LODF "a:zaqd") (progn(setq f:list '(a:y12a "a"))(princ))(f:rept nil);
  616. [aec-a(y13)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=ay131
  617. [ Edit 1 ]^C^C$I=EDIT1 $I=*
  618. [ Edit 3 ]^C^C$p8=EDIT3 $p8=*
  619. [ Cancel ]^C
  620.  
  621. **EDIT3
  622. [Edit 3*]
  623. [Attdefault]^C^C(F:LODF "a:attb") (a:attb) $s=attaga
  624. [Attedit 1]^C^C$S=ATTEDIT ^C^C(F:UNDO);ATTEDIT
  625. [Attedit 2]^C^C(f:lodf "a:ddat") (progn(setq f:list '(a:ddat))(princ))(f:rept nil);
  626. [Attributes]^C^C$s=ae01sa
  627. [Change ]^C^C$S=X $S=CHANGE ^C^C(F:UNDO);CHANGE
  628. [Chprop ]^C^C$S=X $S=CHPROP ^C^C(F:UNDO);CHPROP
  629. [Change XYZ]^C^C(F:LODF "a:y161") (progn(setq f:list '(a:y161))(princ))(f:rept nil);
  630. [Match ]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=ay22a
  631. [Oops ]^C^C(F:UNDO);(F:ERR) OOPS
  632. [~--]
  633. [Edit 1...]^C^C$I=EDIT1 $I=*
  634. [Edit 2...]^C^C$I=EDIT2 $I=*
  635. [~--]
  636. [Exit]^C^C$p8=pop8 $p8=* $s=s
  637.  
  638.  
  639. **STAIRS
  640. [Vertical Symbols]
  641. [aec-a(a22)]^C^C(F:LODF "a:a22a");(F:LODF "a:y12b");+
  642. (progn(setq f:list '(a:a22a a))(princ)) +
  643. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  644. [aec-a(b22)]^C^C(F:LODF "a:b221");(F:LODF "a:y12b");+
  645. (progn(setq f:list '(a:b221 a))(princ)) +
  646. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  647. [aec-a(c22)]^C^C(F:LODF "a:c221");(F:LODF "a:y12b");+
  648. (progn(setq f:list '(a:c221 a))(princ)) +
  649. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  650. [aec-a(d22)]^C^C(F:LODF "a:d221");(F:LODF "a:y12b");+
  651. (progn(setq f:list '(a:d221 a))(princ)) +
  652. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  653. [aec-a(e22)]^C^C(F:LODF "a:e221");(F:LODF "a:a22d") (progn(setq f:list '(a:e221))(princ))(f:rept nil);
  654. [aec-a(f22)]^C^C(F:LODF "a:f221") (progn(setq f:list '(a:f221))(princ))(f:rept nil);
  655. [aec-a(g22)]^C^C(setq V:b "ag22a") +
  656. (setq f:list '(F:INSR nil nil nil "arelvtr" V:b T V:x V:y 1 0 +
  657. T nil nil nil nil nil))(f:prmp);$s=a1172s1
  658. [aec-a(h22)]^C^C(setq f:list '(F:INSR nil nil nil "arstair" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1197sa
  659. [ Cancel ]^C
  660.  
  661. **INQ
  662. [Inquiry*]
  663. [Area]$S=X $S=AREA ^C^CAREA
  664. [DBlist]^C^C(F:UNDO);(F:ERR) DBLIST
  665. [Distance]$S=X $S=DIST ^C^CDIST
  666. [ID]$S=X $S=ID ^C^CID
  667. [Help]$s=at06sa
  668. [Layer]^C^C(F:UNDO);(F:ERR) $s=a4030sa layer;
  669. [List]$S=X $S=LIST ^C^CLIST
  670. [AEC Status]^C^C(f:lodf "a:doos") (f:lodf "a:t031") (a:t031)
  671. [Time]^C^C(F:UNDO);(F:ERR) TIME
  672. [~--]
  673. [Exit]^C^C$p8=pop8 $p8=* $s=s
  674.  
  675. **PDIM1
  676. [Dimension*]
  677. [Dim1]$S=DIM ^C^C(F:UNDO);DIM1
  678. [Dimvars...]^C^C$I=IVAR1 $I=* 
  679. [Exit]EXIT;(F:CLS);$S=S
  680. [Redraw]REDRAW
  681. [Status]^C^C(F:UNDO);(F:ERR) DIM1 STATUS
  682. [Undo]UNDO
  683. [~--]
  684. [Aligned]$S=DIMLINEAR ^C^C(F:UNDO);DIM ALIGNED
  685. [Angular]$S=DIM ^C^C(F:UNDO);DIM ANGULAR
  686. [Baseline]$S=DIMLINEAR ^C^C(F:UNDO);dim BASE
  687. [Center]$S=DIM ^C^C(F:UNDO);DIM CENTER
  688. [Continue]$S=DIMLINEAR ^C^C(F:UNDO);dim CONTIN
  689. [Diameter]$S=DIM ^C^C(F:UNDO);DIM DIAMETER
  690. [Horiz]$S=DIMLINEAR ^C^C(F:UNDO);DIM HORIZ
  691. [Leader]$S=DIM ^C^C(F:UNDO);DIM LEADER
  692. [Radius]$S=DIM ^C^C(F:UNDO);DIM RADIUS
  693. [Rotated]$S=DIM ^C^C(F:UNDO);DIM ROTATED
  694. [Vertical]$S=DIMLINEAR ^C^C(F:UNDO);DIM VERT
  695. [~--]
  696. [Exit]^C^C$p8=pop8 $p8=* $s=s
  697.  
  698. **UTIL
  699. [Util/Plot*]
  700. [Background]^C^C(F:LODF "a:v24a")+
  701. (progn(terpri)(prompt " ")(terpri)+
  702. (prompt "Enter the background drawing type from the screen menu: ")(princ)) $S=A4099S1
  703. [Schedule]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=av25a
  704. [Calculator]^C^C$S=a1224s1 
  705. [FM Interface]^C^C$S=AFMMGMT
  706. [External]^C^C$S=X $S=EXCOMDS (F:UNDO);(F:ERR) (F:PRMP)
  707. [ Commands]^C^C$S=X $S=EXCOMDS (F:UNDO);(F:ERR) (F:PRMP)
  708. [Setup]^C^C(command "menu" (strcat V:ACAM "setup1"))
  709. [~--]
  710. [End]^C^C$S=X $S=END (F:UNDO);(F:ERR) (F:PRMP) 
  711. [Save]^C^C(F:UNDO);(F:ERR) SAVE
  712. [Quit]^C^C$S=X $S=quit (F:UNDO);(F:ERR) (F:PRMP)
  713. [~--]
  714. [Plot]^C^C(F:UNDO);(F:ERR) PLOT
  715. [PRplot]^C^C(F:UNDO);(F:ERR) PRPLOT
  716. [~--]
  717. [Exit]^C^C$p8=pop8 $p8=* $s=s
  718.  
  719. **AUITEXT
  720. [Text*]
  721. [Aligned]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT A
  722. [Center]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT C
  723. [Fit]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT F
  724. [Left/Cont]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT
  725. [Middle]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT M
  726. [Right]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT R
  727. [~--]
  728. [Import Text]^C^C(F:LODF "a:rtxt") (progn(setq f:list '(a:rtxt))(princ))(f:rept nil);
  729. [Change Text]^C^C(F:LODF "a:ctxt") (progn(setq f:list '(a:ctxt))(princ))(f:rept nil);
  730. [~--]
  731. [Exit]^C^C$p8=pop8 $p8=* $s=s
  732.  
  733. **SETD
  734. [Set Display*]
  735. [Dview Options...]^C^C$i=dviewi $i=*
  736. [UCS Dialogue...]^C^C$S=X $s=ucs1 dducs
  737. [UCS Options...]^C^C$S=X $S=ucs1 $i=ucs $i=*
  738. [UCS Previous]^C^CUCS p
  739. [Viewports...]^C^C$S=X $S=vports $i=vporti $i=*
  740. [~--]
  741. [Compass]^C^C$S=X $S=VPOINT VPOINT;;
  742. [Rosette...]^C^C$I=3Dviews $I=*
  743. [~--]
  744. [Exit]^C^C$p6=pop6 $p6=* $s=s
  745.  
  746. **SETPOP
  747. [Modes 1*]
  748. [2-D Symbols]^C^C(setvar "USERI5" 0) (progn (terpri)(prompt " ")(terpri)+
  749. (prompt "You are now inserting 2-D symbols.")(princ)) $p8=*
  750. [3-D Symbols]^C^C(setvar "USERI5" 51) (progn(terpri)(prompt " ")(terpri)+
  751. (prompt "You are now inserting 3-D symbols.")(princ)) $p8=*
  752. [Att Box On]^C^C(progn(setvar "useri2" 0)(setvar "attdia" 1)(terpri) +
  753. (prompt "Attribute dialogue box prompting is ON.")(terpri)(princ)) $p8=*
  754. [Att Box Off]^C^C(progn(setvar "useri2" 1)(setvar "attdia" 0) +
  755. (terpri)(prompt "Attribute dialogue box prompting is OFF.")(terpri)(princ)) $p8=*
  756. [Att Num Only]^C^C(setvar "useri2" 49)+
  757. (progn (terpri)(prompt " ")(terpri)+
  758. (prompt "You will be prompted only for attribute numbers.")(princ)) $p8=*
  759. [Att Pmpt All]^C^C(setvar "useri2" 0)+
  760. (progn (terpri)(prompt " ")(terpri)+
  761. (prompt "You will be prompted for all attributes.")(princ)) $p8=*
  762. [Att Pmpt Off]^C^C(setvar "useri2" 1) +
  763. (progn (terpri)(prompt " ")(terpri)+
  764. (prompt "You will not be prompted for any attributes.")(princ)) $p8=*
  765. [Library On]^C^C(progn(setq v:expt nil)(terpri) +
  766. (prompt "Library slides will be displayed automatically.")(terpri)(princ)) $p8=*
  767. [Library Off]^C^C(progn(setq v:expt 1)(terpri) +
  768. (prompt "Library slides will NOT be displayed automatically.")(terpri)(princ)) $p8=*
  769. [Repeat On]^C^C(progn(setq v:rept 1)(terpri) +
  770. (prompt "Commands will be repeated automatically.")(terpri)(princ)) $p8=*
  771. [Repeat Off]^C^C(progn(setq v:rept nil)(terpri) +
  772. (prompt "Commands will NOT be repeated automatically.")(terpri)(princ)) $p8=*
  773. [Repeat Pmpt]^C^C(progn(setq v:rept 2)(terpri) +
  774. (prompt "Command repeating will be prompted.")(terpri)(princ)) $p8=*
  775. [~--]
  776. [Size Symbol]^C^C(progn (terpri)(prompt " ")(terpri)+
  777. (setq V:ELEC (F:AQD "a1001sbj" "Enter a symbol size." V:ELEC nil))) \$p8=*
  778. [ Electrical]^C^C(progn (terpri)(prompt " ")(terpri)+
  779. (setq V:ELEC (F:AQD "a1001sbj" "Enter a symbol size." V:ELEC nil))) \$p8=*
  780. [Size Symbol]^C^C(progn (terpri)(prompt " ")(terpri)+
  781. (setq V:LGT (F:AQD "a1001sbj" "Enter a symbol size." V:LGT nil))) \$p8=*
  782. [ Lighting  ]^C^C(progn (terpri)(prompt " ")(terpri)+
  783. (setq V:LGT (F:AQD "a1001sbj" "Enter a symbol size." V:LGT nil))) \$p8=*
  784. [~--]
  785. [Modes 2>]^C^C$p8=SETPOP2 $p8=*
  786. [Exit]^C^C$p8=pop8 $p8=* $s=s
  787.  
  788. **SETPOP2
  789. [Modes 2*]
  790. [2-pt ins On]^C^C(setq V:2PT T) (progn (terpri)(prompt " ")(terpri)+
  791. (prompt "2pt insertion mode is on.")(princ))
  792. [2-pt ins Off]^C^C(setq V:2PT nil) (progn (terpri)(prompt " ")(terpri)+
  793. (prompt "2pt insertion mode is off.")(princ))
  794. [~--]
  795. [Aperture]^C^C$S=X $S=APERTURE (progn (terpri)(prompt " ")(terpri)+
  796. (prompt "Pick APERTUR: or PICKBOX: from the screen menu.")(princ))
  797. [Dragmode]$S=X $S=DRAGMODE ^C^CDRAGMODE
  798. [Osnap]$S=X $S=OSNAPB ^C^COSNAP
  799. [Qtext]$S=X $S=QTEXT ^C^C(F:UNDO);QTEXT
  800. [Text]^C^C$S=X $S=TEXTSET (F:UNDO);(F:ERR) (F:PRMP)
  801. [~--]
  802. [Modes 1>]^C^C$p8=SETPOP $p8=*
  803. [Exit]^C^C$p8=pop8 $p8=* $s=s
  804.  
  805. **as
  806. [Autoshade]
  807. [aec-a(camera)]^C^C$S=X $S=CAMERA (F:UNDO);(F:ERR) camera \\\$i=as $i=*
  808. [aec-a(point)]^C^C$S=X $S=LIGHTS (F:UNDO);(F:ERR) LIGHT \p \$i=as $i=*
  809. [aec-a(directed)]^C^C$S=X $S=LIGHTS (F:UNDO);(F:ERR) LIGHT \d \\$i=as $i=*
  810. [aec-a(scene)]^C^C$S=X $S=ACTION (F:UNDO);(F:ERR) scene
  811. [aec-a(filmroll)]^C^C$S=X $S=ACTION (F:UNDO);(F:ERR) filmroll
  812. [ Cancel ]^c
  813.  
  814. **ucs
  815. [User Coordinate System Options]
  816. [ Set to World]^C^Cucs world
  817. [aec-a(left)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  818. ucs 3p \@0,-1,0 @0,0,1 
  819. [ Set to Screen]^C^Cucs view
  820. [aec-a(top)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  821. ucs 3p \@1,0,0 @0,1,0 
  822. [aec-a(front)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  823. ucs 3p \@1,0,0 @0,0,1 
  824. [aec-a(bottom)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  825. ucs 3p \@1,0,0 @0,-1,0 
  826. [aec-a(back)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  827. ucs 3p \@-1,0,0 @0,0,1 
  828. [aec-a(right)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  829. ucs 3p \@0,1,0 @0,0,1 
  830. [ Cancel ]^c^c
  831.  
  832. **vporti
  833. [Viewport Settings (Current is dominant)]
  834. [aec-a(vp1)]^C^CVPORTS;SI
  835. [aec-a(vp3v)]^C^CVPORTS;SI;;3;v
  836. [aec-a(vp3h)]^C^CVPORTS;SI;;3;h
  837. [aec-a(vp4)]^C^CVPORTS;SI;;4
  838. [aec-a(vp2v)]^C^CVPORTS;SI;;2;v
  839. [aec-a(vp3r)]^C^CVPORTS;SI;;3;r
  840. [aec-a(vp3l)]^C^CVPORTS;SI;;3;l
  841. [aec-a(vp4l)]^C^CUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  842. VPORTS;SI;;2;;(setvar "CVPORT" (car (cadr (vports))))(princ);;2;;;J;;+
  843. (car (cadr (vports)));(setvar "CVPORT" (car (cadr (vports))))(princ)+
  844. ;;3;h;(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT"+
  845. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);ZOOM;A;+
  846. (setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  847. ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  848. (princ);ZOOM;A;UNDO;E 
  849. [aec-a(vp2h)]^C^CVPORTS;SI;;2;h
  850. [aec-a(vp3a)]^C^CVPORTS;SI;;3;a;
  851. [aec-a(vp3b)]^C^CVPORTS;SI;;3;b;
  852. [aec-a(vp4r)]^C^CUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  853. VPORTS;SI;;2;;;2;;(setvar "CVPORT" (car (caddr (vports))));;j;;+
  854. (car (caddr (vports)));(setvar "CVPORT" (car (cadr (vports))));;3;h;+
  855. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  856. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  857. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  858. (setvar "gridmode" m:g)(princ);ZOOM;A;UNDO;E 
  859. [ Join Viewports]^C^CVPORTS;J
  860. [ Restore Saved]^C^CVPORTS;R;
  861. [ List Saved]^C^CVPORTS;?;
  862. [ Cancel ]^c^c
  863.  
  864.  
  865. **dviewi
  866. [DVIEW Options]
  867. [aec-a(dvca)]^C^C$S=X $S=DVIEW select;\dview;p;;ca;\\;
  868. [aec-a(dvzo)]^C^C$S=X $S=DVIEW select;\dview;p;;z;\;
  869. [aec-a(dvpa)]^C^C$S=X $S=DVIEW select;\dview;p;;pa;\\;
  870. [ Cancel ]^c^c
  871.  
  872. **itags
  873. [Tags 1]
  874. [aec-a(a08)]^C^C(F:LODF "a:a081") +
  875. (progn(setq f:list '(a:a081 "artag" "aa08a" "aa08b" (* (getvar "userr3"))))(princ))(f:rept nil);
  876. [aec-a(a09)]^C^C(F:LODF "a:a081") +
  877. (progn(setq f:list '(a:a081 "artag" "aa09a" "aa09b" (* (getvar "userr3"))))(princ))(f:rept nil);
  878. [aec-a(a10)]^C^C(F:LODF "a:a081") +
  879. (progn(setq f:list '(a:a081 "artag" "aa101" nil (* (getvar "userr3"))))(princ))(f:rept nil);
  880. [aec-a(b08)]^C^C(F:LODF "a:b081") (progn(setq f:list '(a:b081))(princ))(f:rept nil);
  881. [aec-a(b09)]^C^C(F:LODF "a:b09a") (progn(setq f:list '(a:b09a "argrid"))(princ))(f:rept nil);
  882. [aec-a(b10)]^C^C(F:LODF "a:b101") (progn(setq f:list '(a:b101))(princ))(f:rept nil);
  883. [aec-a(c08)]^C^C(graphscr)(princ)(F:LODF "a:c081") (progn(setq f:list '(a:c081 "aralptarg" (* (getvar "userr3"))))(princ))(f:rept nil);
  884. [aec-a(c10)]^C^C(command "view" "s" "return")(f:lodf "a:c101")(progn(setq f:list '(a:c101))(princ))(f:rept nil);
  885. [aec-a(d08)]^C^C(f:undo);(f:err) (f:lodf "a:d081")(progn(setq f:list '(a:d081))(princ)) (f:rept nil);
  886. [aec-a(d09)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1084S1
  887. [aec-a(d10)]^C^C(graphscr)(princ)(F:LODF "a:d101") (progn(setq f:list '(a:d101 "arnote" (* (getvar "userr3"))))(princ))(f:rept nil);
  888. [aec-a(e08)]^C^C(F:LODF "a:e081") (progn(setq f:list '(a:e081 "ae08b" "ae08b" '() "artag"))(princ))(f:rept nil);
  889. [aec-a(e09)]^C^C(F:LODF "a:e081") (progn(setq f:list '(a:e081 "ae09b" "ae09b" '() "artag"))(princ))(f:rept nil);
  890. [aec-a(e10)]^C^C(F:UNDO);(F:ERR) $S=OSNAP (F:LODF "a:e101");+
  891. (progn(setq f:list '(a:e101))(princ))(f:rept nil);
  892. [ Add'l Tags ]^C^C(F:UNDO);(F:ERR) (setq V:x (* (getvar "userr3") 0.125) V:y V:x);+
  893. (f:lodf "a:tags") (f:lodf "a:d081")(f:prmp) $s=atags
  894. [ Cancel ]^c
  895.  
  896. **IVAR1
  897. [Dimension Variables 1]
  898. [aec-a(aecarrow)]^c^c(setq ech (getvar "cmdecho"));(setvar "cmdecho" 0);dim dimtsz 0 dimasz 0.03 dimblk arrow exit +
  899. (setvar "cmdecho" ech) (progn (terpri)(prompt " ")(terpri)+
  900. (prompt "AEC ARCH ARROW will be used at the end of dimension lines.")(princ))
  901. [aec-a(aectick)]^c^c(setq ech (getvar "cmdecho"));(setvar "cmdecho" 0);dim dimtsz 0 dimasz 0.03 dimblk tick exit +
  902. (setvar "cmdecho" ech) (progn (terpri)(prompt " ")(terpri)+
  903. (prompt "AEC ARCH TICK will be used at the end of dimension lines.")(princ))
  904. [aec-a(aarrow)]^c^c(setq ech (getvar "cmdecho"));(setvar "cmdecho" 0);dim dimtsz 0 dimasz 0.18 dimblk . exit +
  905. (setvar "cmdecho" ech) (progn (terpri)(prompt " ")(terpri)+
  906. (prompt "ACAD ARROW will be used at the end of dimension lines.")(princ))
  907. [aec-a(atick)]^c^c(setq ech (getvar "cmdecho"));(setvar "cmdecho" 0);dim dimtsz 0.1 dimasz 0.18 dimblk . exit +
  908. (setvar "cmdecho" ech) (progn (terpri)(prompt " ")(terpri)+
  909. (prompt "ACAD TICK will be used at the end of dimension lines.")(princ))
  910. [aec-a(dimalt)]^C^CDIM ^PDIMALT^P \$I=*
  911. [aec-a(dimaltd)]^C^CDIM ^PDIMALTD^P \$I=*
  912. [aec-a(dimaltf)]^C^CDIM ^PDIMALTF^P \$I=*
  913. [aec-a(dimapost)]^C^CDIM ^PDIMAPOST^P \$I=*
  914. [aec-a(dimaso)]^C^CDIM ^PDIMASO^P \$I=*
  915. [aec-a(dimasz)]^C^CDIM ^PDIMASZ^P \$I=*
  916. [aec-a(dimblk)]^C^CDIM ^PDIMBLK^P \$I=*
  917. [aec-a(dimcen)]^C^CDIM ^PDIMCEN^P \$I=*
  918. [ Status]^c^c$I=IVAR1 dim status exit
  919. [ Dimvar 2]^C^C$i=IVAR2 $i=*
  920. [ Dimvar 3]^C^C$i=IVAR3 $i=*
  921. [ Cancel]^C
  922.  
  923. **IVAR2
  924. [Dimension Variables 2]
  925. [aec-a(dimdle)]^C^CDIM ^PDIMDLE^P \$I=*
  926. [aec-a(dimdli)]^C^CDIM ^PDIMDLI^P \$I=*
  927. [aec-a(dimexe)]^C^CDIM ^PDIMEXE^P \$I=*
  928. [aec-a(dimexo)]^C^CDIM ^PDIMEXO^P \$I=*
  929. [aec-a(dimlfac)]^C^CDIM ^PDIMLFAC^P \$I=*
  930. [aec-a(dimpost)]^C^CDIM ^PDIMPOST^P \$I=*
  931. [aec-a(dimrnd)]^C^CDIM ^PDIMRND^P \$I=*
  932. [aec-a(dimscale)]^C^CDIM ^PDIMSCALE^P \$I=*
  933. [aec-a(dimse1)]^C^CDIM ^PDIMSE1^P \$I=*
  934. [aec-a(dimse2)]^C^CDIM ^PDIMSE2^P \$I=*
  935. [aec-a(dimtad)]^C^CDIM ^PDIMTAD^P \$I=*
  936. [aec-a(dimtih)]^C^CDIM ^PDIMTIH^P \$I=*
  937. [ Dimvar 1]^C^C$i=IVAR1 $i=*
  938. [ Dimvar 3]^C^C$i=IVAR3 $i=*
  939. [ Cancel]^C
  940.  
  941. **IVAR3
  942. [Dimension Variables 3]
  943. [aec-a(dimtoh)]^C^CDIM ^PDIMTOH^P \$I=*
  944. [aec-a(dimlim)]^C^CDIM ^PDIMLIM^P \$I=*
  945. [aec-a(dimtol)]^C^CDIM ^PDIMTOL^P \$I=*
  946. [aec-a(dimtm)]^C^CDIM ^PDIMTM^P \$I=*
  947. [aec-a(dimtp)]^C^CDIM ^PDIMTP^P \$I=*
  948. [aec-a(dimsho)]^C^CDIM ^PDIMSHO^P \$I=*
  949. [aec-a(dimtsz)]^C^CDIM ^PDIMTSZ^P \$I=*
  950. [aec-a(dimtxt)]^C^CDIM ^PDIMTXT^P \$I=*
  951. [aec-a(dimzin)]^C^CDIM ^PDIMZIN^P \$I=*
  952. [ Dimvar 1]^C^C$i=IVAR1 $i=*
  953. [ Dimvar 2]^C^C$i=IVAR2 $i=*
  954. [ Cancel]^C
  955.  
  956. **3DViews
  957. [Select View Direction]
  958. [aec-a(ul)]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  959. [aec-a(l)]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  960. [aec-a(ll)]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  961. [aec-a(blank)]
  962. [aec-a(u)]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  963. [aec-a(p)]^C^CPLAN;;
  964. [aec-a(lo)]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  965. [aec-a(blank)]
  966. [aec-a(ur)]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  967. [aec-a(r)]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  968. [aec-a(lr)]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  969. [aec-a(blank)]
  970. [ Cancel]^C
  971.  
  972. **AWALL
  973. [Wall Alignment & Adding Interior Spaces]
  974. [aec-a(n04)]'graphscr 'setvar USERI1 2;
  975. [aec-a(n05)]'graphscr 'setvar USERI1 0;
  976. [aec-a(n06)]'graphscr 'setvar USERI1 1;
  977. [aec-a(l04)]^C^C(graphscr)(F:LODF "a:zpng") (F:LODF "a:l041") (progn(setq f:list '(a:l041))(princ))(f:rept nil);
  978. [aec-a(l05)]^C^C(graphscr)(F:LODF "a:l051") (progn(setq f:list '(a:l051))(princ))(f:rept nil);
  979. [aec-a(l06)]^C^C(graphscr)(F:LODF "a:l061") (progn(setq f:list '(a:l061))(princ))(f:rept nil);
  980. [ Cancel ]^C
  981.  
  982.  
  983. **3DSTRUCT
  984. [Structural Symbols]
  985. [aec-3(a312)]^C^C(F:LODF "a:a121") (progn(setq f:list '(a:a121))(princ))(f:rept nil);
  986. [aec-3(b312)]^C^C(F:LODF "a:ax25");(a:ax25 "b312sm" "l3");(F:UNDO);(F:ERR) $S=a1061s1 (F:LODF "a:b121") +
  987. (progn (terpri)(prompt " ")(terpri)(princ "Select a steel channel shape: ")(princ))
  988. [aec-3(c312)]^C^C(F:LODF "a:ax25");(a:ax25 "c312sm" "l3");(F:UNDO);(F:ERR) $S=a1062s1 (F:LODF "a:b121") +
  989. (progn (terpri)(prompt " ")(terpri)(princ "Select a wide flange shape: ")(princ))
  990. [aec-3(d312)]^C^C(F:LODF "a:d121") (progn(setq f:list '(a:d121))(princ))(f:rept nil);
  991. [aec-3(e312)]^C^C(F:LODF "a:e121") (progn(setq f:list '(a:e121))(princ))(f:rept nil);
  992. [aec-3(f312)]^C^C(F:LODF "a:f121") (progn(setq f:list '(a:f121))(princ))(f:rept nil);
  993. [aec-3(g312)]^C^C(F:LODF "a:g121") (progn(setq f:list '(a:g121))(princ))(f:rept nil);
  994. [aec-3(h312)]^C^C(F:LODF "a:ax25");(a:ax25 "h312sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1187SA
  995. [ Cancel ]^C
  996. [ Symbol Library ]^C^C(F:LODF "a:ax25");(a:ax25 "312h" "lh3");$I=*
  997.  
  998. **3DPLUMB1
  999. [Plumbing Symbols 1]
  1000. [aec-3(a313)]^C^C(F:LODF "a:ax25");(a:ax25 "a313sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1013S1
  1001. [aec-3(b313)]^C^C(F:LODF "a:ax25");(a:ax25 "b313sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1038SA
  1002. [aec-3(c313)]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ac131" T V:x V:y V:zs V:ze T +
  1003. nil "PLDFLT" "au013t1" (list '("PLUNAME" "DBL SINK")) "mpfixtspec"))(f:prmp);$s=a1063s1
  1004. [aec-3(d313)]^C^C(setq V:x 28 V:y 21 V:zs 17 V:ze 0);+
  1005. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ad131" T V:x V:y V:zs +
  1006. V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "TOILET")) "mpfixtspec"))(princ))(f:rept nil);
  1007. [aec-3(e313)]^C^C(setq V:x 30 V:y 20 V:r 0 V:zs 16 V:ze 0);+
  1008. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ae131" T V:x V:y V:zs V:ze T T +
  1009. "PLDFLT" "au013t1" (list '("PLUNAME" "TOILET")) "mpfixtspec"))(princ))(f:rept nil);
  1010. [aec-3(f313)]^C^C(F:LODF "a:ax25");(a:ax25 "f313sm" "l3");+
  1011. (setq f:list '(F:INSR nil T nil "mpfixture" V:b T V:x V:y V:zs V:ze T nil +
  1012. "PLDFLT" "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(f:prmp);$s=a1138sa
  1013. [aec-3(g313)]^C^C(setq V:x 12 V:y 18 V:zs 24 V:ze 24);+
  1014. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ag131" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  1015. "au013t1" (list '("PLUNAME" "URINAL")) "mpfixtspec"))(princ))(f:rept nil);
  1016. [aec-3(h313)]^C^C(F:LODF "a:ax25");(a:ax25 "h313sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1188SA
  1017. [ Cancel ]^C
  1018. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "313h" "lh3");$I=*
  1019. [ Plumbing 2]$I=3DPLUMB2 $I=*
  1020.  
  1021. **3DPLUMB2
  1022. [Plumbing Symbols 2]
  1023. [aec-3(a314)]^C^C(F:LODF "a:ax25");(a:ax25 "a314sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1014SA
  1024. [aec-3(b314)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1039S1
  1025. [aec-3(c314)]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ac141" T V:x V:y V:zs V:ze T nil +
  1026. "PLDFLT" "au013t1" (list '("PLUNAME" "SINK")) "mpfixtspec"))(f:prmp);$s=a1064s1
  1027. [aec-3(d314)]^C^C(F:LODF "a:ax25");(a:ax25 "d314sm" "l3");+
  1028. (setq f:list '(F:INSR nil T nil "araccessory" V:bar T V:x V:y V:zs V:ze +
  1029. T nil nil nil nil nil))(f:prmp);$s=a1089s1
  1030. [aec-3(e314)]^C^C(F:LODF "a:e14a") (F:LODF "a:e14b") (progn(setq f:list '(a:e14b))(princ))(f:rept nil);
  1031. [aec-3(f314)]^C^C(F:LODF "a:g211");(F:LODF "a:e14a");(F:LODF "a:f141");(F:PRMP);$S=AF14SA \+
  1032. (progn(setq f:list '(a:f141 a))(princ))(f:rept nil);
  1033. [aec-3(g314)]^C^C(F:LODF "a:e14a") (F:LODF "a:g141") (progn(setq f:list '(a:g141))(princ))(f:rept nil);
  1034. [aec-3(h314)]^C^C(F:LODF "a:ax25");(a:ax25 "h314sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1189SA
  1035. [ Cancel ]^C
  1036. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "314h" "lh3");$I=*
  1037. [ Plumbing 1]$I=3DPLUMB1 $I=*
  1038.  
  1039. **3DELECT
  1040. [Electrical Symbols]
  1041. [aec-3(a315)]^C^C(F:LODF "a:a151") (progn(setq f:list '(a:a151 "eepower"))(princ))(f:rept nil);
  1042. [aec-3(b315)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  1043. (progn(setq f:list '(F:INSR nil nil '(("osmode") (512)) "eepower" "ab151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1044. [aec-3(c315)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  1045. (progn(setq f:list '(F:INSR nil nil nil "eepower" "ac151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1046. [aec-3(d315)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);+
  1047. (progn(setq f:list '(F:INSR nil nil nil "eecomm" "ad151" T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept nil);
  1048. [aec-3(e315)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  1049. (progn(setq f:list '(F:INSR nil nil nil "eecomm" "ae151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1050. [aec-3(f315)]^C^C(setq V:x (* (getvar "userr3") V:ELEC));+
  1051. (setq V:y V:x V:r 0);(progn(setq f:list '(F:INSR nil nil nil "eecomm" +
  1052. "af151" T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept nil);
  1053. [aec-3(g315)]^C^C(F:LODF "a:ax25");(a:ax25 "g315sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1165SA
  1054. [aec-3(h315)]^C^C(F:LODF "a:ax25");(a:ax25 "h315sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1190S1
  1055. [ Cancel ]^C
  1056. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "315h" "lh3");$I=*
  1057.  
  1058. **3DLIGHT1
  1059. [Light/Ceiling Symbols 1]
  1060. [aec-3(a316)]^C^C(F:LODF "a:ax25");(a:ax25 "a316sm" "l3");+
  1061. (setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  1062. (setq f:list '(F:INSR nil nil nil "eelighting" V:b T V:x V:y V:zs V:ze V:r nil +
  1063. "LIDFLT" "au015t1" (list '("LIDESCR" "SPOT LIGHT")) "eelightspec"))(f:prmp);$s=a1016s1
  1064. [aec-3(b316)]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  1065. (progn(setq f:list '(F:INSR nil nil nil "eelighting" "ab161" T V:x V:y V:zs V:ze T nil +
  1066. "LIDFLT" "au015t1" (list '("LIDESCR" "WALL MT INCA")) "eelightspec"))(princ))(f:rept nil);
  1067. [aec-3(c316)]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  1068. (progn(setq f:list '(F:INSR nil nil nil "eelightem" "ac161" T V:x V:y V:zs V:ze V:r nil +
  1069. "LIDFLT" "au015t1" (list '("LIDESCR" "EXIT CEILING")) "eelightspec"))(princ))(f:rept nil);
  1070. [aec-3(d316)]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96);+
  1071. (progn(setq f:list '(F:INSR nil nil nil "eelighting" "ad161" T V:x V:y V:zs V:ze T nil +
  1072. "LIDFLT" "au015t1" (list '("LIDESCR" "EXIT WALL")) "eelightspec"))(princ))(f:rept nil);
  1073. [aec-3(e316)]^C^C(F:LODF "a:ax25");(a:ax25 "e316sm" "l3");(setq V:zs 4 V:ze 96);+
  1074. (setq f:list '(F:INSR nil nil nil "eelightem" V:b T V:x V:y V:zs V:ze T +
  1075. nil "LIDFLT" "au015t1" (list '("LIDESCR" "EMERGENCY LIGHT")) "eelightspec"))(f:prmp);$s=a1116sa
  1076. [aec-3(f316)]^C^C(setq V:zs 4 V:ze 96);+
  1077. (setq f:list '(F:INSR nil nil nil "mhdiff" "af161" T V:x V:y +
  1078. V:zs V:ze T nil nil nil nil nil))(f:prmp);$s=a1141s1
  1079. [aec-3(g316)]^C^C(setq V:zs 4 V:ze 96);+
  1080. (setq f:list '(F:INSR nil nil nil "mhdiff" "ag161" T V:x V:y +
  1081. V:zs V:ze T nil nil nil nil nil))(f:prmp);$s=a1166s1
  1082. [aec-3(h316)]^C^C(F:LODF "a:h161");(F:LODF "a:h16a")(f:lodf "a:rept") +
  1083. (setq v:rst 1)(a:h16a)
  1084. [ Cancel ]^C
  1085. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "316h" "lh3");$I=*
  1086. [ Light/Ceiling2]$I=3DLIGHT2 $I=*
  1087.  
  1088. **3DLIGHT2
  1089. [Light/Ceiling Symbols 2]
  1090. [aec-3(a317)]^C^C(setq V:zs 4 V:ze 96);+
  1091. (setq f:list '(F:INSR nil nil nil "eelightfl" "aa171" T V:x V:y V:zs V:ze T nil +
  1092. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO STRIP")) "eelightspec"))(f:prmp);$s=a1017s1
  1093. [aec-3(b317)]^C^C(f:lodf "a:othr") (setq v:x 48 v:y 12 V:zs 4 V:ze 96);+
  1094. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ab171" T V:x V:y V:zs V:ze T nil +
  1095. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ));+
  1096. (a:othr "fixture" 3 "flo")
  1097. [aec-3(c317)]^C^C(setq V:x 48 V:y 12 V:zs 4 V:ze 96);+
  1098. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ab171" T V:x V:y V:zs V:ze T nil +
  1099. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  1100. [aec-3(d317)]^C^C(setq V:x 48 V:y 24 V:zs 4 V:ze 96);+
  1101. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ad171" T V:x V:y V:zs V:ze T nil +
  1102. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  1103. [aec-3(e317)]^C^C(setq V:x 24 V:y 24 V:zs 4 V:ze 96);+
  1104. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ae17a" T V:x V:y V:zs V:ze T nil "LIDFLT" +
  1105. "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  1106. [aec-3(f317)]^C^C(F:LODF "a:ax25");(a:ax25 "f317sm" "l3");+
  1107. (setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96);+
  1108. (setq f:list '(F:INSR nil nil nil "eelighting" V:b T V:x V:y V:zs V:ze T nil "LIDFLT" "au015t1" +
  1109. (list '("LIDESCR" "SPOT LIGHT")) "eelightspec"))(f:prmp);$s=a1142s1
  1110. [aec-3(g317)]^C^C(f:lodf "a:g171")(progn(setq f:list '(a:g171))(princ))(f:rept nil)
  1111. [aec-3(h317)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1192S1
  1112. [ Cancel ]^C
  1113. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "317h" "lh3");$I=*
  1114. [ Light/Ceiling1]$I=3DLIGHT1 $I=*
  1115.  
  1116.  
  1117. **3DFURN1
  1118. [Furniture Symbols 1]
  1119. [aec-3(a318)]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1018SA
  1120. [aec-3(b318)]^C^C(F:LODF "a:ax25");(a:ax25 "b318sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1043SA
  1121. [aec-3(c318)]^C^C(F:LODF "a:ax25");(a:ax25 "c318sm" "l3");+
  1122. (setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze +
  1123. T nil "FUDFLT" "au017t1" (list '("FURNAME" "EXEC CHAIR")) "fmspec"))(f:prmp);$s=a1068sa
  1124. [aec-3(c319)]^C^C(f:prmp);$s=ah20b
  1125. [aec-3(d319)]^C^C(f:prmp);$s=ah20a
  1126. [aec-3(e319)]^C^C(progn(setq f:list '(F:INSR nil T nil "fmchair" "ac191" T V:x V:y V:zs V:ze T +
  1127. nil "FUDFLT" "au017t1" (list '("FURNAME" "SOFA")) "fmspec"))(princ))(f:prmp);$S=A1069S1
  1128. [aec-3(e318)]^C^C(F:LODF "a:ax25");(a:ax25 "d319sm" "l3");+
  1129. (progn(setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  1130. (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(princ)) (F:PRMP);$S=A1094S1
  1131. [aec-3(h318)]^C^C(f:lodf "a:othr") (setq v:x 36 v:y 36 v:zs 36 V:ze 0);+
  1132. (progn(setq f:list '(F:INSR nil T nil "fmmisc" "azsct" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  1133. "au017t1" (list '("FURNAME" "BOX")) "fmspec"))(princ));+
  1134. (a:othr "box" 13 "box") 
  1135. [ Cancel ]^C
  1136. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "318h" "lh3");$I=*
  1137. [ Furniture 2]$I=3DFURN2 $I=*
  1138. [ Furniture 3]$I=3DFURN3 $I=*
  1139.  
  1140.  
  1141. **3DFURN2
  1142. [Furniture Symbols 2]
  1143. [aec-3(a319)]^C^C(setq f:list '(F:INSR nil T nil "fmtable" "aa191" T V:x V:y V:zs V:ze T nil +
  1144. "FUDFLT" "au017t1" (list '("FURNAME" "CONF TABLE")) "fmspec"))(f:prmp);$s=a1019s1
  1145. [aec-3(b319)]^C^C(progn (terpri)(prompt " ")(terpri)+
  1146. (prompt "Select either a table or a wood grain finish from screen menu.")+
  1147. (princ)) (setq f:list '(F:INSR nil T nil "fmtable" "ab19a" T V:x V:y V:zs +
  1148. V:ze T nil "FUDFLT" "au017t1" (list '("FURNAME" "TABLE")) "fmspec"))$s=a1044sa
  1149. [aec-3(d318)]^C^C(F:LODF "a:ax25");(a:ax25 "d318sm" "l3");+
  1150. (setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze +
  1151. T nil "FUDFLT" "au017t1" (list '("FURNAME" "DESK")) "fmspec"))(f:prmp);$s=a1093sa
  1152. [aec-3(f318)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "f18"))(princ))(f:rept nil);
  1153. [aec-3(g318)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "g18"))(princ))(f:rept nil);
  1154. [aec-3(f319)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "f19"))(princ))(f:rept nil);
  1155. [aec-3(g319)]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "g19"))(princ))(f:rept nil);
  1156. [aec-3(h319)]^C^C(F:LODF "a:ax25");(a:ax25 "h319sm" "l3");+
  1157. (setq f:list '(F:INSR nil nil nil "fmplant" V:b T V:x V:y V:zs V:ze +
  1158. V:r nil nil nil nil nil))(f:prmp) $s=a1194sa
  1159. [ Cancel ]^C
  1160. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "319h" "lh3");$I=*
  1161. [ Furniture 1]$I=3DFURN1 $I=*
  1162. [ Furniture 3]$I=3DFURN3 $I=*
  1163.  
  1164. **3DFURN3
  1165. [Furniture Symbols 3]
  1166. [aec-3(a320)]^C^C(setq f:list '(F:INSR nil T nil "fmtable" V:b T V:x V:y V:zs V:ze T nil +
  1167. "FUDFLT" "au017t1" (list '("FURNAME" "CONF TABLE W/CHAIR")) "fmspec"))(f:prmp);$s=a1020s1
  1168. [aec-3(b320)]^C^C(F:LODF "a:b20a") (progn(setq f:list '(a:b20a "fmpartition"))(princ))(f:rept nil);
  1169. [aec-3(c320)]^C^C(F:LODF "a:ax25");(a:ax25 "c320sm" "l3");+
  1170. (setq f:list '(F:INSR nil T nil "fmfile" V:b T V:x V:y V:zs V:ze T nil +
  1171. "FUDFLT" "au017t1" (list '("FURNAME" "FILE")) "fmspec"))(f:prmp);$s=a1070sa
  1172. [aec-3(d320)]^C^C(setq f:list '(F:INSR nil T nil "fmcase" "ad20a" T V:x V:y V:zs V:ze +
  1173. T nil "FUDFLT" "au017t1" '() "fmspec"))(f:prmp);$s=a1095s1
  1174. [aec-3(e320)]^C^C(F:LODF "a:ax25");(a:ax25 "e320sm" "l3");+
  1175. (setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze +
  1176. T nil "FUDFLT" "au017t1" (list '("FURNAME" "CREDENZA")) "fmspec"))(f:prmp);$s=a1120s1
  1177. [aec-3(f320)]^C^C(setq f:list '(F:INSR nil T nil "fmequip" "af201" T V:x V:y V:zs V:ze T nil +
  1178. "FUDFLT" "au017t1" (list '("FURNAME" "COPY MACHINE")) "fmspec"))(f:prmp);$s=a1145s1
  1179. [aec-3(g320)]^C^C(F:LODF "a:ax25");(a:ax25 "g320sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=a1170S1
  1180. [aec-2(h20)]^C^C(F:LODF "a:ax25");(a:ax25 "h320sm" "l3");+
  1181. (setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  1182. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(f:prmp);$s=a1195sa
  1183. [ Cancel ]^C
  1184. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "320h" "lh3");$I=*
  1185. [ Furniture 1]$I=3DFURN1 $I=*
  1186. [ Furniture 2]$I=3DFURN2 $I=*
  1187.  
  1188.  
  1189. **3DAPPL
  1190. [Appliance Symbols]
  1191. [aec-3(a321)]^C^C(setq V:x (* (getvar "userr3") 0.3125));(setq V:y V:x V:r 0 V:zs 1 V:ze 96);+
  1192. (progn(setq f:list '(F:INSR nil nil nil "arappliance" "aa211" T V:x V:y V:zs V:ze V:r nil +
  1193. "APDFLT" "au016t1" (list '("APLNAME" "FAN")) "arapplspec"))(princ))(f:rept nil);
  1194. [aec-3(b321)]^C^C(setq f:list '(F:INSR nil T nil "arappliance" "ab211" T V:x V:y V:zs V:ze T nil +
  1195. "APDFLT" "au016t1" (list '("APLNAME" "RANGE")) "arapplspec"))(f:prmp);$s=a1046s1
  1196. [aec-3(c321)]^C^C(F:LODF "a:ax25");(a:ax25 "c321sm" "l3");+
  1197. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  1198. "APDFLT" "au016t1" (list '("APLNAME" "REFRIGERATOR")) "arapplspec"))(f:prmp);$s=a1071sa
  1199. [aec-3(d321)]^C^C(setq f:list '(F:INSR nil T nil "arappliance" "ad211" T V:x V:y V:zs V:ze +
  1200. T nil "APDFLT" "au016t1" (list '("APLNAME" "OVEN")) "arapplspec"))(f:prmp);$s=a1096s1
  1201. [aec-3(e321)]^C^C(F:LODF "a:ax25");(a:ax25 "e321sm" "l3");+
  1202. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T +
  1203. nil "APDFLT" "au016t1" (list '("APLNAME" "DISHWASHER")) "arapplspec"))(f:prmp);$s=a1121s1
  1204. [aec-3(f321)]^C^C(F:LODF "a:ax25");(a:ax25 "f321sm" "l3");+
  1205. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  1206. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1146sa
  1207. [aec-3(g321)]^C^C(F:LODF "a:ax25");(a:ax25 "g321sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=ag21a
  1208. [aec-3(h321)]^C^C(F:LODF "a:ax25");(a:ax25 "h321sm" "l3");+
  1209. (setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  1210. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1196sa
  1211. [ Cancel ]^C
  1212. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "321h" "lh3");$I=*
  1213.  
  1214. **3DUSER
  1215. [User-defined 3D Symbols]
  1216. [aec-2(a23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U1")(menucmd "S=aa23a")(terpri)(prompt " ")(terpri)+
  1217. (prompt "The current library is ")(princ V:unme)+
  1218. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1219. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1220. [aec-2(b23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U2")(menucmd "S=aa23a") (terpri)+
  1221. (prompt "The current library is ")(princ V:unme)+
  1222. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1223. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1224. [aec-2(c23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U3")(menucmd "S=aa23a") (terpri)+
  1225. (prompt "The current library is ")(princ V:unme)+
  1226. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1227. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1228. [aec-2(d23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U4")(menucmd "S=aa23a") (terpri)+
  1229. (prompt "The current library is ")(princ V:unme)+
  1230. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1231. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1232. [aec-2(e23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U5")(menucmd "S=aa23a") (terpri)+
  1233. (prompt "The current library is ")(princ V:unme)+
  1234. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1235. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1236. [aec-2(f23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U6")(menucmd "S=aa23a") (terpri)+
  1237. (prompt "The current library is ")(princ V:unme)+
  1238. (prompt ".  To insert a previously defined symbol, ")(terpri) +
  1239. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1240. [aec-2(g23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  1241. (prompt "The current library is ")(princ V:unme)+
  1242. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1243. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1244. [aec-2(h23)]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  1245. (prompt "The current library is ")(princ V:unme)+
  1246. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1247. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1248. [ User Library ]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=aa23j
  1249. [ Cancel ]^C
  1250.  
  1251. **3DSTAIRS
  1252. [Vertical Symbols]
  1253. [aec-3(a322)]^C^C(F:LODF "a:a22a");(F:LODF "a:y12b");+
  1254. (progn(setq f:list '(a:a22a a))(princ)) +
  1255. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1256. [aec-3(b322)]^C^C(F:LODF "a:b221");(F:LODF "a:y12b");+
  1257. (progn(setq f:list '(a:b221 a))(princ)) +
  1258. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1259. [aec-3(c322)]^C^C(F:LODF "a:c221");(F:LODF "a:y12b");+
  1260. (progn(setq f:list '(a:c221 a))(princ)) +
  1261. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1262. [aec-3(d322)]^C^C(F:LODF "a:d221");(F:LODF "a:y12b");+
  1263. (progn(setq f:list '(a:d221 a))(princ)) +
  1264. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1265. [aec-3(e322)]^C^C(F:LODF "a:e221");(F:LODF "a:a22d") (progn(setq f:list '(a:e221))(princ))(f:rept nil);
  1266. [aec-3(f322)]^C^C(princ)(F:LODF "a:f221") (progn(setq f:list '(a:f221))(princ))(f:rept nil);
  1267. [aec-3(g322)]^C^C(setq V:b "ag22a") +
  1268. (setq f:list '(F:INSR nil nil nil "arelvtr" V:b T V:x V:y 1 0 +
  1269. T nil nil nil nil nil))(f:prmp);$s=a1172s1
  1270. [aec-3(h322)]^C^C(setq f:list '(F:INSR nil nil nil "arstair" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1197sa
  1271. [ Cancel ]^C
  1272.  
  1273.  
  1274. **3DSITE
  1275. [Site Symbols]
  1276. [aec-3(a324)]^C^C(F:LODF "a:a24a") (f:lodf "a:rept")(f:lodf "a:rep2")(a:a24a "lssidewalk");
  1277. [aec-3(b324)]^C^C(F:LODF "a:b24a") (progn(setq f:list '(a:b24a "lssidewalk"))(princ))(f:rept nil);
  1278. [aec-3(c324)]^C^C(F:UNDO);(F:ERR) (setq V:W 108.0 V:D 240.0 V:P 90.0) (F:PRMP) $s=a1074sa
  1279. [aec-3(d324)]^C^C(F:LODF "a:ax25");(a:ax25 "g324sm" "l3");(F:UNDO);(F:ERR) (F:PRMP) $S=A1099S1
  1280. [aec-3(e324)]^C^C(f:lodf "a:e24a")(F:LODF "a:ax25");(a:ax25 "e324sm" "l3");+
  1281. (progn (menucmd "S=A1124SA") (terpri)(prompt " ")+
  1282. (terpri)(prompt "Pick a tree style from the screen menu.")(princ)) \
  1283. [aec-3(f324)]^C^C(setq V:x 72 V:y 72);+
  1284. (progn(setq f:list '(F:INSR nil nil nil "lsstriping" "af241" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1285. [aec-3(g324)]^C^C(F:LODF "a:g241") (progn(setq f:list '(a:g241 (* (getvar "userr3") 0.125)))(princ))(f:rept nil);
  1286. [aec-3(h324)]^C^C(F:LODF "a:ax25");(a:ax25 "h324sm" "l3");+
  1287. (setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1199sa
  1288. [ Cancel ]^C
  1289. [ Symbol Library   ]^C^C(F:LODF "a:ax25");(a:ax25 "324h" "lh3");$I=*
  1290.  
  1291. **popar06a 3
  1292. [Wall    ]
  1293. [thicknes]
  1294.  
  1295. [ 2-1/2" ]'setvar tracewid ^P2.5^P;
  1296. [  2x4   ]'setvar tracewid ^P3.5^P;
  1297. [  2x6   ]'setvar tracewid ^P5.5^P;
  1298. [ 1-5/8" ]'setvar tracewid ^P1.625^P;
  1299. [  2x8   ]'setvar tracewid ^P7.25^P;
  1300. [     6" ]'setvar tracewid ^P6.0^P;
  1301. [ 7-5/8" ]'setvar tracewid ^P7.625^P;
  1302. [     8" ]'setvar tracewid ^P8.0^P;
  1303. [    10" ]'setvar tracewid ^P10.0^P;
  1304. [<OTHER> ]'setvar tracewid $S=AU001S1 \$s=
  1305.  
  1306. [WALL HT.]$s=ar06d 'setvar userr5 \
  1307. [EDGE CLN]$s=ar06b
  1308. [SPACE   ]$s=ar06c
  1309. [ <DONE> ]^C^C$s=s
  1310. **attaga 3
  1311. [Attribut]
  1312. [targets ]
  1313.  
  1314. [APPLIANC]^PAppliance^P;
  1315. [CABINET ]^PCabinet^P;
  1316. [DOOR    ]^PDoor^P;
  1317. [FURNITUR]^PFurniture^P;
  1318. [LIGHTING]^PLighting^P;
  1319.  
  1320. [PLUMBING]^PPlumbing^P;
  1321. [ROOM    ]^PRoom^P;
  1322. [STRUCTUR]^PStructure^P;
  1323. [TOILET  ]^PToilet^P;
  1324. [WINDOW  ]^PWindow^P;
  1325.  
  1326. [OTHERS  ]$s=attagb
  1327.  
  1328. [ <DONE> ]^P<DONE>^P;
  1329.  
  1330. **attagb 3
  1331. [Other   ]
  1332. [Attribut]
  1333. [targets ]
  1334.  
  1335. [BOX A8  ]^PA8^P;
  1336. [BOX A9  ]^PA9^P;
  1337. [BOX A10 ]^PA10^P;
  1338.  
  1339. [BOX C25 ]^PC25^P;
  1340.  
  1341. [BOX E8  ]^PE8^P;
  1342. [BOX E9  ]^PE9^P;
  1343.  
  1344.  
  1345. [PREVIOUS]$s=attaga
  1346.  
  1347. [ <DONE> ]^P<DONE>^P;
  1348.  
  1349. **atags 3
  1350. [Add'l ]
  1351. [tags  ]
  1352.  
  1353.  
  1354. [FOS     ]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09a" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "atags");
  1355. [FOC     ]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09b" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "atags");
  1356. [FFL     ]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09c" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "atags");
  1357. [CTR LINE]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09d" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "atags");
  1358. [PROP LIN]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09e" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "atags");
  1359.  
  1360. [USER T1]^C^C(F:UNDO);(F:ERR) (F:LODF "a:f081") (f:lodf "a:tags");+
  1361. (progn(setq b:name "T1")(princ))(progn(setq f:list '(a:tags nil))(princ))(f:rept nil);
  1362. [USER T2]^C^C(F:UNDO);(F:ERR) (F:LODF "a:f081") (f:lodf "a:tags");+
  1363. (progn(setq b:name "T2")(princ))(progn(setq f:list '(a:tags nil))(princ))(f:rept nil);
  1364. [USER T3]^C^C(F:UNDO);(F:ERR) (F:LODF "a:f081") (f:lodf "a:tags");+
  1365. (progn(setq b:name "T3")(princ))(progn(setq f:list '(a:tags nil))(princ))(f:rept nil);
  1366.  
  1367.  
  1368.  
  1369.  
  1370. [<CANCEL>]^C^C$s=s
  1371. ***AUX1
  1372. ;
  1373. $s=osnapb
  1374.  
  1375. ***BUTTONS
  1376. ;
  1377. $S=OSNAPB
  1378. ^C^C
  1379. ^B
  1380. ^O
  1381. ^G
  1382. ^D
  1383. ^E
  1384. ^T
  1385. ***SCREEN
  1386. **S
  1387. [AEC ARCH]^C^C$S=S
  1388. [* * * * ]$S=OSNAPB \$s=
  1389.  
  1390.  
  1391. [Version ]
  1392. [3.0/10  ]
  1393.  
  1394.  
  1395.  
  1396.  
  1397. [< ACAD >]^C^C(F:PRMP) $S=acad
  1398.  
  1399.  
  1400.  
  1401. [(C) 1986]^C^C(progn (terpri)(prompt "Copyright (C) 1986, 1987, 1988, 1989 by Autodesk, Inc.");+
  1402. (terpri)(prompt "Copyright (C) 1986, 1987, 1988 by Archsoft Corp.") (princ));
  1403. [    1987]^C^C(progn (terpri)(prompt "Copyright (C) 1986, 1987, 1988, 1989 by Autodesk, Inc.");+
  1404. (terpri)(prompt "Copyright (C) 1986, 1987, 1988 by Archsoft Corp.") (princ));
  1405. [    1988]^C^C(progn (terpri)(prompt "Copyright (C) 1986, 1987, 1988, 1989 by Autodesk, Inc.");+
  1406. (terpri)(prompt "Copyright (C) 1986, 1987, 1988 by Archsoft Corp.") (princ));
  1407. [    1989]^C^C(progn (terpri)(prompt "Copyright (C) 1986, 1987, 1988, 1989 by Autodesk, Inc.");+
  1408. (terpri)(prompt "Copyright (C) 1986, 1987, 1988 by Archsoft Corp.") (princ));
  1409. [        ]
  1410. [08/07/89]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "AutoCAD AEC Architectural")(princ));
  1411. ***TABLET1
  1412. [A01]^C^C$S=ab01s1
  1413. [A02]^C^C(f:lodf "a:type")(progn(setq f:list '(a:type "ao01a"))(princ))(f:rept nil);
  1414. [A03]^C^C(f:lodf "a:type")(progn(setq f:list '(a:type "ao02a"))(princ))(f:rept nil);
  1415. [A04]^C^C(F:LODF "a:q011") (progn(setq f:list '(a:q011 144.0 "sqft" "square footage" "arwall1line"))(princ))(f:rept nil);
  1416. [A05]^C^C(F:LODF "a:q021") (progn(setq f:list '(a:q021 144.0 "sqft" "arwall1line"))(princ))(f:rept nil);
  1417. [A06]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=an01a
  1418. [A07];
  1419. [A08]^C^C(F:LODF "a:a081") +
  1420. (progn(setq f:list '(a:a081 "artag" "aa08a" "aa08b" (* (getvar "userr3"))))(princ))(f:rept nil);
  1421. [A09]^C^C(F:LODF "a:a081") +
  1422. (progn(setq f:list '(a:a081 "artag" "aa09a" "aa09b" (* (getvar "userr3"))))(princ))(f:rept nil);
  1423. [A10]^C^C(F:LODF "a:a081") +
  1424. (progn(setq f:list '(a:a081 "artag" "aa101" nil (* (getvar "userr3"))))(princ))(f:rept nil);
  1425. [A11];
  1426. [A12]^C^C(F:LODF "a:a121") (progn(setq f:list '(a:a121))(princ))(f:rept nil);
  1427. [A13]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1013S1
  1428. [A14]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1014SA
  1429. [A15]^C^C(F:LODF "a:a151") (progn(setq f:list '(a:a151 "eepower"))(princ))(f:rept nil);
  1430. [A16]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  1431. (setq f:list '(F:INSR nil nil nil "eelighting" V:b T V:x V:y V:zs V:ze V:r nil +
  1432. "LIDFLT" "au015t1" (list '("LIDESCR" "SPOT LIGHT")) "eelightspec"))(f:prmp);$s=a1016s1
  1433. [A17]^C^C(setq V:zs 4 V:ze 96);+
  1434. (setq f:list '(F:INSR nil nil nil "eelightfl" "aa171" T V:x V:y V:zs V:ze T nil +
  1435. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO STRIP")) "eelightspec"))(f:prmp);$s=a1017s1
  1436. [A18]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1018SA
  1437. [A19]^C^C(setq f:list '(F:INSR nil T nil "fmtable" "aa191" T V:x V:y V:zs V:ze T nil +
  1438. "FUDFLT" "au017t1" (list '("FURNAME" "CONF TABLE")) "fmspec"))(f:prmp);$s=a1019s1
  1439. [A20]^C^C(setq f:list '(F:INSR nil T nil "fmtable" V:b T V:x V:y V:zs V:ze T nil +
  1440. "FUDFLT" "au017t1" (list '("FURNAME" "CONF TABLE W/CHAIR")) "fmspec"))(f:prmp);$s=a1020s1
  1441. [A21]^C^C(setq V:x (* (getvar "userr3") 0.3125));(setq V:y V:x V:r 0 V:zs 1 V:ze 96);+
  1442. (progn(setq f:list '(F:INSR nil nil nil "arappliance" "aa211" T V:x V:y V:zs V:ze V:r nil +
  1443. "APDFLT" "au016t1" (list '("APLNAME" "FAN")) "arapplspec"))(princ))(f:rept nil);
  1444. [A22]^C^C(F:LODF "a:a22a");(F:LODF "a:y12b");+
  1445. (progn(setq f:list '(a:a22a a))(princ)) +
  1446. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1447. [A23]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U1")(menucmd "S=aa23a")(terpri)(prompt " ")(terpri)+
  1448. (prompt "The current library is ")(princ V:unme)+
  1449. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1450. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1451. [A24]^C^C(F:LODF "a:a24a") (f:lodf "a:rept")(f:lodf "a:rep2")(a:a24a "lssidewalk");
  1452. [A25]^C^C(setq V:x (getvar "userr3") V:y V:x V:r 0) +
  1453. (setq f:list '(F:INSR nil nil nil "arnorth" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1025s1
  1454. [B01]^C^C$S=convert3d_2d (F:UNDO);(F:ERR) (F:PRMP)
  1455. [B02]^C^C(F:LODF "a:p01a") (F:LODF "a:p01b") (F:LODF "a:zeln") +
  1456. (F:LODF "a:zclk") (F:LODF "a:zxla") (progn(setq f:list '(a:p01a "arelvtn" "arheader"))(princ))(f:rept nil);
  1457. [B03]^C^C(F:LODF "a:xxsc");(progn(setq f:list '(a:xxsc))(princ))(f:rept nil);
  1458. [B04]^C^C(F:UNDO);(F:ERR) (F:LODF "a:r011");(F:LODF "a:r01a");(F:LODF "a:rept") +
  1459. (a:r01a)
  1460. [B05]^C^C(F:LODF "a:q031") (progn(setq f:list '(a:q031 144.0 "sqft" "arwall1line"))(princ))(f:rept nil);
  1461. [B06]^C^C(f:prmp);$s=roof3d
  1462. [B07];
  1463. [B08]^C^C(F:LODF "a:b081") (progn(setq f:list '(a:b081))(princ))(f:rept nil);
  1464. [B09]^C^C(F:LODF "a:b09a") (progn(setq f:list '(a:b09a "argrid"))(princ))(f:rept nil);
  1465. [B10]^C^C(F:LODF "a:b101") (progn(setq f:list '(a:b101))(princ))(f:rept nil);
  1466. [B11];
  1467. [B12]^C^C(F:UNDO);(F:ERR) $S=a1061s1 (F:LODF "a:b121") +
  1468. (progn (terpri)(prompt " ")(terpri)(princ "Select a steel channel shape: ")(princ))
  1469. [B13]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1038SA
  1470. [B14]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1039S1
  1471. [B15]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  1472. (progn(setq f:list '(F:INSR nil nil '(("osmode") (512)) "eepower" "ab151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1473. [B16]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  1474. (progn(setq f:list '(F:INSR nil nil nil "eelighting" "ab161" T V:x V:y V:zs V:ze T nil +
  1475. "LIDFLT" "au015t1" (list '("LIDESCR" "WALL MT INCA")) "eelightspec"))(princ))(f:rept nil);
  1476. [B17]^C^C(f:lodf "a:othr") (setq v:x 48 v:y 12 V:zs 4 V:ze 96);+
  1477. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ab171" T V:x V:y V:zs V:ze T nil +
  1478. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ));+
  1479. (a:othr "fixture" 3 "flo")
  1480. [B18]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1043SA
  1481. [B19]^C^C(progn (terpri)(prompt " ")(terpri)+
  1482. (prompt "Select either a table or a wood grain finish from screen menu.")+
  1483. (princ)) (setq f:list '(F:INSR nil T nil "fmtable" "ab19a" T V:x V:y V:zs +
  1484. V:ze T nil "FUDFLT" "au017t1" (list '("FURNAME" "TABLE")) "fmspec"))$s=a1044sa
  1485. [B20]^C^C(F:LODF "a:b20a") (progn(setq f:list '(a:b20a "fmpartition"))(princ))(f:rept nil);
  1486. [B21]^C^C(setq f:list '(F:INSR nil T nil "arappliance" "ab211" T V:x V:y V:zs V:ze T nil +
  1487. "APDFLT" "au016t1" (list '("APLNAME" "RANGE")) "arapplspec"))(f:prmp);$s=a1046s1
  1488. [B22]^C^C(F:LODF "a:b221");(F:LODF "a:y12b");+
  1489. (progn(setq f:list '(a:b221 a))(princ)) +
  1490. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1491. [B23]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U2")(menucmd "S=aa23a") (terpri)+
  1492. (prompt "The current library is ")(princ V:unme)+
  1493. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1494. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1495. [B24]^C^C(F:LODF "a:b24a") (progn(setq f:list '(a:b24a "lssidewalk"))(princ))(f:rept nil);
  1496. [B25]^C^C(F:PRMP) $S=ab251
  1497. [C01]^C^C(command "menu" (strcat V:ACAM "setup1"))
  1498. [C02]^C^C(f:prmp);$s=ao03a
  1499. [C03]^C^C(F:UNDO);(F:ERR)(f:lodf "a:p031") (F:PRMP) $s=ap03a
  1500. [C04]^C^C(F:UNDO);(F:ERR) $s=osnapb (F:LODF "a:r02a") (F:LODF "a:r02b") +
  1501. (F:LODF "a:rept") (a:r02b)
  1502. [C05]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=ar031
  1503. [C06]^C^C(F:LODF "a:n031") (progn(setq f:list '(a:n031 "rf3dface"))(princ))(f:rept nil);
  1504. [C07];
  1505. [C08]^C^C(graphscr)(princ)(F:LODF "a:c081") (progn(setq f:list '(a:c081 "aralptarg" (* (getvar "userr3"))))(princ))(f:rept nil);
  1506. [C09]^C^C(F:UNDO);(F:ERR) (setq V:x (* (getvar "userr3") 0.125) V:y V:x);+
  1507. (progn (terpri)(prompt " ")(terpri)(prompt "Enter a choice from the screen menu: ")(princ)) $S=A1059S1
  1508. [C10]^C^C(command "view" "s" "return")(f:lodf "a:c101")(progn(setq f:list '(a:c101))(princ))(f:rept nil);
  1509. [C11];
  1510. [C12]^C^C(F:UNDO);(F:ERR) $S=a1062s1 (F:LODF "a:b121") +
  1511. (progn (terpri)(prompt " ")(terpri)(princ "Select a wide flange shape: ")(princ))
  1512. [C13]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ac131" T V:x V:y V:zs V:ze T +
  1513. nil "PLDFLT" "au013t1" (list '("PLUNAME" "DBL SINK")) "mpfixtspec"))(f:prmp);$s=a1063s1
  1514. [C14]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ac141" T V:x V:y V:zs V:ze T nil +
  1515. "PLDFLT" "au013t1" (list '("PLUNAME" "SINK")) "mpfixtspec"))(f:prmp);$s=a1064s1
  1516. [C15]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  1517. (progn(setq f:list '(F:INSR nil nil nil "eepower" "ac151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1518. [C16]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96 V:r 0);+
  1519. (progn(setq f:list '(F:INSR nil nil nil "eelightem" "ac161" T V:x V:y V:zs V:ze V:r nil +
  1520. "LIDFLT" "au015t1" (list '("LIDESCR" "EXIT CEILING")) "eelightspec"))(princ))(f:rept nil);
  1521. [C17]^C^C(setq V:x 48 V:y 12 V:zs 4 V:ze 96);+
  1522. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ab171" T V:x V:y V:zs V:ze T nil +
  1523. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  1524. [C18]^C^C(setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze +
  1525. T nil "FUDFLT" "au017t1" (list '("FURNAME" "EXEC CHAIR")) "fmspec"))(f:prmp);$s=a1068sa
  1526. [C19]^C^C(setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze +
  1527. T nil "FUDFLT" "au017t1" (list '("FURNAME" "DESK")) "fmspec"))(f:prmp);$s=a1093sa
  1528. [C20]^C^C(setq f:list '(F:INSR nil T nil "fmfile" V:b T V:x V:y V:zs V:ze T nil +
  1529. "FUDFLT" "au017t1" (list '("FURNAME" "FILE")) "fmspec"))(f:prmp);$s=a1070sa
  1530. [C21]^C^C(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  1531. "APDFLT" "au016t1" (list '("APLNAME" "REFRIGERATOR")) "arapplspec"))(f:prmp);$s=a1071sa
  1532. [C22]^C^C(F:LODF "a:c221");(F:LODF "a:y12b");+
  1533. (progn(setq f:list '(a:c221 a))(princ)) +
  1534. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1535. [C23]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U3")(menucmd "S=aa23a") (terpri)+
  1536. (prompt "The current library is ")(princ V:unme)+
  1537. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1538. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1539. [C24]^C^C(F:UNDO);(F:ERR) (setq V:W 108.0 V:D 240.0 V:P 90.0) (F:PRMP) $s=a1074sa
  1540. [C25]^C^C(graphscr)(princ)(F:LODF "a:c251") (progn(setq f:list '(a:c251 "artblock"))(princ))(f:rept nil);
  1541. [D01]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=ae01sa
  1542. [D02]^C^C(F:PRMP) $S=ad02a
  1543. [D03]^C^C(F:PRMP) $S=ad02a
  1544. [D04]^C^C(graphscr)(F:LODF "a:zpng") (F:LODF "a:l041") (progn(setq f:list '(a:l041))(princ))(f:rept nil);
  1545. [D05]^C^C(graphscr)(F:LODF "a:l051") (progn(setq f:list '(a:l051))(princ))(f:rept nil);
  1546. [D06]^C^C(graphscr)(F:LODF "a:l061") (progn(setq f:list '(a:l061))(princ))(f:rept nil);
  1547. [D07];
  1548. [D08]^C^C(f:undo);(f:err) (f:lodf "a:d081")(progn(setq f:list '(a:d081))(princ)) (f:rept nil);
  1549. [D09]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1084S1
  1550. [D10]^C^C(graphscr)(princ)(F:LODF "a:d101") (progn(setq f:list '(a:d101 "arnote" (* (getvar "userr3"))))(princ))(f:rept nil);
  1551. [D11];
  1552. [D12]^C^C(F:LODF "a:d121") (progn(setq f:list '(a:d121))(princ))(f:rept nil);
  1553. [D13]^C^C(setq V:x 28 V:y 21 V:zs 17 V:ze 0);(progn(setq f:list '(F:INSR nil T nil "mpfixture" "ad131" T V:x V:y V:zs +
  1554. V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "TOILET")) "mpfixtspec"))(princ))(f:rept nil);
  1555. [D14]^C^C(setq f:list '(F:INSR nil T nil "araccessory" V:bar T V:x V:y V:zs V:ze +
  1556. T nil nil nil nil nil))(f:prmp);$s=a1089s1
  1557. [D15]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);+
  1558. (progn(setq f:list '(F:INSR nil nil nil "eecomm" "ad151" T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept nil);
  1559. [D16]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96);+
  1560. (progn(setq f:list '(F:INSR nil nil nil "eelighting" "ad161" T V:x V:y V:zs V:ze T nil +
  1561. "LIDFLT" "au015t1" (list '("LIDESCR" "EXIT WALL")) "eelightspec"))(princ))(f:rept nil);
  1562. [D17]^C^C(setq V:x 48 V:y 24 V:zs 4 V:ze 96);+
  1563. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ad171" T V:x V:y V:zs V:ze T nil +
  1564. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  1565. [D18]^C^C(f:prmp);$s=ah20b
  1566. [D19]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "f18"))(princ))(f:rept nil);
  1567. [D20]^C^C(setq f:list '(F:INSR nil T nil "fmcase" "ad20a" T V:x V:y V:zs V:ze +
  1568. T nil "FUDFLT" "au017t1" '() "fmspec"))(f:prmp);$s=a1095s1
  1569. [D21]^C^C(setq f:list '(F:INSR nil T nil "arappliance" "ad211" T V:x V:y V:zs V:ze +
  1570. T nil "APDFLT" "au016t1" (list '("APLNAME" "OVEN")) "arapplspec"))(f:prmp);$s=a1096s1
  1571. [D22]^C^C(F:LODF "a:d221");(F:LODF "a:y12b");+
  1572. (progn(setq f:list '(a:d221 a))(princ)) +
  1573. (F:LODF "a:a22d");(f:lodf "a:a22e");(F:PRMP);$S=AA22SA
  1574. [D23]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U4")(menucmd "S=aa23a") (terpri)+
  1575. (prompt "The current library is ")(princ V:unme)+
  1576. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1577. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1578. [D24]^C^C(F:PRMP) $S=A1099S1
  1579. [D25]^C^C(F:LODF "a:d251") (progn(setq f:list '(a:d251))(princ))(f:rept nil);
  1580. [E01]^C^C$S=as091 (F:UNDO);(F:ERR) (F:PRMP)
  1581. [E02]^C^C$s=af04a
  1582. [E03]^C^C+
  1583. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1584. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  1585. (setq v:d_tp "wi0" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  1586. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1587. (getvar "tracewid") "auw1das" "ARWINDOWSPEC")
  1588. [E04]^C^C(F:LODF "a:k04a") (progn(setq f:list '(a:k04a '(12 12)))(princ))(f:rept nil);
  1589. [E05]^C^C(F:LODF "a:k051") (progn(setq f:list '(a:k051 '(12 12)))(princ))(f:rept nil);
  1590. [E06]^C^C(F:LODF "a:k061") (progn(setq f:list '(a:k061 '(12 12)))(princ))(f:rept nil);
  1591. [E07];
  1592. [E08]^C^C(F:LODF "a:e081") (progn(setq f:list '(a:e081 "ae08b" "ae08b" '() "artag"))(princ))(f:rept nil);
  1593. [E09]^C^C(F:LODF "a:e081") (progn(setq f:list '(a:e081 "ae09b" "ae09b" '() "artag"))(princ))(f:rept nil);
  1594. [E10]^C^C(F:UNDO);(F:ERR) $S=OSNAP (F:LODF "a:e101");+
  1595. (progn(setq f:list '(a:e101))(princ))(f:rept nil);
  1596. [E11];
  1597. [E12]^C^C(F:LODF "a:e121") (progn(setq f:list '(a:e121))(princ))(f:rept nil);
  1598. [E13]^C^C(setq V:x 30 V:y 20 V:r 0 V:zs 16 V:ze 0);+
  1599. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ae131" T V:x V:y V:zs V:ze T T +
  1600. "PLDFLT" "au013t1" (list '("PLUNAME" "TOILET")) "mpfixtspec"))(princ))(f:rept nil);
  1601. [E14]^C^C(F:LODF "a:e14a") (F:LODF "a:e14b") (progn(setq f:list '(a:e14b))(princ))(f:rept nil);
  1602. [E15]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  1603. (progn(setq f:list '(F:INSR nil nil nil "eecomm" "ae151" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1604. [E16]^C^C(setq V:zs 4 V:ze 96);+
  1605. (setq f:list '(F:INSR nil nil nil "eelightem" V:b T V:x V:y V:zs V:ze T +
  1606. nil "LIDFLT" "au015t1" (list '("LIDESCR" "EMERGENCY LIGHT")) "eelightspec"))(f:prmp);$s=a1116sa
  1607. [E17]^C^C(setq V:x 24 V:y 24 V:zs 4 V:ze 96);+
  1608. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "ae17a" T V:x V:y V:zs V:ze T nil "LIDFLT" +
  1609. "au015t1" (list '("LIDESCR" "FLUO LIGHT FIXT")) "eelightspec"))(princ))(f:rept nil);
  1610. [E18]^C^C(f:prmp);$s=ah20a
  1611. [E19]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "g18"))(princ))(f:rept nil);
  1612. [E20]^C^C(setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze +
  1613. T nil "FUDFLT" "au017t1" (list '("FURNAME" "CREDENZA")) "fmspec"))(f:prmp);$s=a1120s1
  1614. [E21]^C^C(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T +
  1615. nil "APDFLT" "au016t1" (list '("APLNAME" "DISHWASHER")) "arapplspec"))(f:prmp);$s=a1121s1
  1616. [E22]^C^C(graphscr)(princ)(F:LODF "a:e221");(F:LODF "a:a22d") (progn(setq f:list '(a:e221))(princ))(f:rept nil);
  1617. [E23]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U5")(menucmd "S=aa23a") (terpri)+
  1618. (prompt "The current library is ")(princ V:unme)+
  1619. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  1620. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1621. [E24]^C^C(f:lodf "a:e24a")(progn (menucmd "S=A1124SA") (terpri)(prompt " ")+
  1622. (terpri)(prompt "Pick a tree style from the screen menu.")(princ)) \
  1623. [E25]^C^C(f:lodf "a:e251") (f:lodf "a:e25a") (progn(setq f:list '(a:e25a))(princ))(f:rept nil)
  1624. [F01]^C^C^C^C(F:LODF "a:v24a")+
  1625. (progn(terpri)(prompt " ")(terpri)+
  1626. (prompt "Enter the background drawing type from the screen menu: ")(princ)) $S=A4099S1
  1627. [F02]^C^C+
  1628. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1629. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1")) +
  1630. (progn (setq v:othr T v:d_ri nil v:d_un 0 v:d_nd "" v:d_sh v:dsht +
  1631. v:d_ht v:dht v:d_cv T +
  1632. f:list '(a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1633. (getvar "tracewid") "aud1das" "ARDOORSPEC")) (f:cls)) $s=adotype3 +
  1634. (progn (prompt "Select an opening type: ") (setq v:d_tp (getstring)) +
  1635. (princ)) \
  1636. [F03]^C^C+
  1637. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1638. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  1639. (setq v:d_tp "do2" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  1640. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1641. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  1642. [F04]'graphscr 'setvar USERI1 2;
  1643. [F05]'graphscr 'setvar USERI1 0;
  1644. [F06]'graphscr 'setvar USERI1 1;
  1645. [F07];
  1646. [F08]^C^C(F:UNDO);(F:ERR) (F:LODF "a:f081") (f:lodf "a:tags");+
  1647. (progn(setq b:name "T1")(princ))(progn(setq f:list '(a:tags T))(princ))(f:rept nil);
  1648. [F09]^C^C(F:UNDO);(F:ERR) (F:LODF "a:f081") (f:lodf "a:tags");+
  1649. (progn(setq b:name "T2")(princ))(progn(setq f:list '(a:tags T))(princ))(f:rept nil);
  1650. [F10]^C^C(F:UNDO);(F:ERR) (F:LODF "a:f081") (f:lodf "a:tags");+
  1651. (progn(setq b:name "T3")(princ))(progn(setq f:list '(a:tags T))(princ))(f:rept nil);
  1652. [F11];
  1653. [F12]^C^C(F:LODF "a:f121") (progn(setq f:list '(a:f121))(princ))(f:rept nil);
  1654. [F13]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" V:b T V:x V:y V:zs V:ze T nil +
  1655. "PLDFLT" "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(f:prmp);$s=a1138sa
  1656. [F14]^C^C(F:LODF "a:g211");(F:LODF "a:e14a");(F:LODF "a:f141");(F:PRMP);$S=AF14SA \+
  1657. (progn(setq f:list '(a:f141 a))(princ))(f:rept nil);
  1658. [F15]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);(progn(setq f:list '(F:INSR nil nil nil "eecomm" +
  1659. "af151" T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept nil);
  1660. [F16]^C^C(setq V:zs 4 V:ze 96);(setq f:list '(F:INSR nil nil nil "mhdiff" "af161" T V:x V:y +
  1661. V:zs V:ze T nil nil nil nil nil))(f:prmp);$s=a1141s1
  1662. [F17]^C^C(setq V:x (* (getvar "userr3") V:LGT));(setq V:y V:x V:zs 4 V:ze 96);+
  1663. (setq f:list '(F:INSR nil nil nil "eelighting" V:b T V:x V:y V:zs V:ze T nil "LIDFLT" "au015t1" +
  1664. (list '("LIDESCR" "SPOT LIGHT")) "eelightspec"))(f:prmp);$s=a1142s1
  1665. [F18]^C^C(setq f:list '(F:INSR nil T nil "fmchair" "ac191" T V:x V:y V:zs V:ze T +
  1666. nil "FUDFLT" "au017t1" (list '("FURNAME" "SOFA")) "fmspec"))(f:prmp);$s=a1069s1
  1667. [F19]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "f19"))(princ))(f:rept nil);
  1668. [F20]^C^C(setq f:list '(F:INSR nil T nil "fmequip" "af201" T V:x V:y V:zs V:ze T nil +
  1669. "FUDFLT" "au017t1" (list '("FURNAME" "COPY MACHINE")) "fmspec"))(f:prmp);$s=a1145s1
  1670. [F21]^C^C(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  1671. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1146sa
  1672. [F22]^C^C(graphscr)(princ)(F:LODF "a:f221") (progn(setq f:list '(a:f221))(princ))(f:rept nil);
  1673. [F23]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U6")(menucmd "S=aa23a") (terpri)+
  1674. (prompt "The current library is ")(princ V:unme)+
  1675. (prompt ".  To insert a previously defined symbol, ")(terpri) +
  1676. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  1677. [F24]^C^C(setq V:x 72 V:y 72);+
  1678. (progn(setq f:list '(F:INSR nil nil nil "lsstriping" "af241" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept nil);
  1679. [F25]^C^C(f:lodf "a:f251") (progn(setq f:list '(a:f251))(princ))(f:rept "a1150s1")
  1680. [G01]^C^C(f:lodf "a:doos") (f:lodf "a:t031") (a:t031)
  1681. [G02]^C^C+
  1682. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1683. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  1684. (setq v:d_tp "do4" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  1685. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1686. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  1687. [G03]^C^C+
  1688. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1689. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  1690. (setq v:d_tp "do5" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  1691. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1692. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  1693. [G04]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=ar05a
  1694. [G05]$s=popar06a
  1695. [G06]$s=ar06d 'setvar userr5 \
  1696. [G07];
  1697. [G08]^C^C(f:lodf "a:g081")(setq lname "DASH1") (F:PRMP) $s=a1158s1
  1698. [G09]^C^C(f:lodf "a:g081")(setq lname "CENTER") (F:PRMP) $s=a1158s1
  1699. [G10]^C^C(f:lodf "a:g081")(setq lname "DASH2") (F:PRMP) $s=a1158s1
  1700. [G11];
  1701. [G12]^C^C(F:LODF "a:g121") (progn(setq f:list '(a:g121))(princ))(f:rept nil);
  1702. [G13]^C^C(setq V:x 12 V:y 18 V:zs 24 V:ze 24);+
  1703. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ag131" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  1704. "au013t1" (list '("PLUNAME" "URINAL")) "mpfixtspec"))(princ))(f:rept nil);
  1705. [G14]^C^C(F:LODF "a:e14a") (F:LODF "a:g141") (progn(setq f:list '(a:g141))(princ))(f:rept nil);
  1706. [G15]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1165SA 
  1707. [G16]^C^C(setq V:zs 4 V:ze 96);(setq f:list '(F:INSR nil nil nil "mhdiff" "ag161" T V:x V:y +
  1708. V:zs V:ze T nil nil nil nil nil))(f:prmp);$s=a1166s1
  1709. [G17]^C^C(f:lodf "a:g171")(progn(setq f:list '(a:g171))(princ))(f:rept nil)
  1710. [G18]^C^C(setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze +
  1711. T nil "FUDFLT" "au017t1" (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(f:prmp);$s=a1094s1
  1712. [G19]^C^C(F:LODF "a:f181") (progn(setq f:list '(a:f181 "g19"))(princ))(f:rept nil);
  1713. [G20]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=a1170S1
  1714. [G21]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=ag21a
  1715. [G22]^C^C(setq V:b "ag22a") +
  1716. (setq f:list '(F:INSR nil nil nil "arelvtr" V:b T V:x V:y 1 0 +
  1717. T nil nil nil nil nil))(f:prmp);$s=a1172s1
  1718. [G23]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=AG23A
  1719. [G24]^C^C(F:LODF "a:g241") (progn(setq f:list '(a:g241 (* (getvar "userr3") 0.125)))(princ))(f:rept nil);
  1720. [G25]^C^C(f:lodf "a:c101") (progn(setq f:list '(a:ettt))(princ))(f:rept nil)
  1721. [H01]^C^C$S=X $S=ah01a (F:UNDO);(F:ERR) (F:PRMP)
  1722. [H02]^C^C+
  1723. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1724. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  1725. (setq v:d_tp "do0" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  1726. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1727. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  1728. [H03]^C^C+
  1729. (progn (f:undo) (f:err) (f:lodf "a:doos") (f:lodf "a:util") (f:lodf "a:dobw") +
  1730. (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") (f:lodf "a:dof1") +
  1731. (setq v:d_tp "do1" v:d_ri nil v:d_un 0 v:d_nd "") (f:cls)) +
  1732. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  1733. (getvar "tracewid") "aud1das" "ARDOORSPEC")
  1734. [H04]^C^C(graphscr)(F:LODF "a:j041") (progn(setq f:list '(a:j041 "arwall"))(princ))(f:rept nil);
  1735. [H05]^C^C(F:LODF "a:j051") (progn(setq f:list '(a:j051 "arwall"))(princ))(f:rept nil);
  1736. [H06]^C^C(F:LODF "a:j051") (progn(setq f:list '(a:j051 "arwall"))(princ))(f:rept nil);
  1737. [H07];
  1738. [H08]^C^C(f:lodf "a:g081")(progn(setq f:list '(a:g081 "light"))(princ))(f:rept "a1158s1");
  1739. [H09]^C^C(f:lodf "a:g081")(progn(setq f:list '(a:g081 "medium"))(princ))(f:rept "a1158s1");
  1740. [H10]^C^C(f:lodf "a:g081")(progn(setq f:list '(a:g081 "heavy"))(princ))(f:rept "a1158s1");
  1741. [H11];
  1742. [H12]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1187SA
  1743. [H13]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1188SA
  1744. [H14]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1189SA
  1745. [H15]^C^C(F:PRMP) $S=A1190S1
  1746. [H16]^C^C(F:UNDO);(F:ERR) (F:LODF "a:h161");(F:LODF "a:h16a");(F:LODF "a:rept") +
  1747. (a:h16a)
  1748. [H17]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1192S1
  1749. [H18]^C^C(f:lodf "a:othr") (setq v:x 36 v:y 36 v:zs 36 V:ze 0);+
  1750. (progn(setq f:list '(F:INSR nil T nil "fmmisc" "azsct" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  1751. "au017t1" (list '("FURNAME" "BOX")) "fmspec"))(princ));+
  1752. (a:othr "box" 13 "box")
  1753. [H19]^C^C(setq f:list '(F:INSR nil nil nil "fmplant" V:b T V:x V:y V:zs V:ze +
  1754. V:r nil nil nil nil nil))(f:prmp) $s=a1194sa
  1755. [H20]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  1756. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(f:prmp);$s=a1195sa
  1757. [H21]^C^C(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  1758. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1196sa
  1759. [H22]^C^C(setq f:list '(F:INSR nil nil nil "arstair" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1197sa
  1760. [H23]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=aa23j
  1761. [H24]^C^C(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(f:prmp);$s=a1199sa
  1762. [H25]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1200S1
  1763. [I01]
  1764. [I02]
  1765. [I03]
  1766. [I04]
  1767. [I05]
  1768. [I06]
  1769. [I07]
  1770. [I08]
  1771. [I09]
  1772. [I10]
  1773. [I11]
  1774. [I12]
  1775. [I13]
  1776. [I14]
  1777. [I15]
  1778. [I16]
  1779. [I17]
  1780. [I18]
  1781. [I19]
  1782. [I20]
  1783. [I21]
  1784. [I22]
  1785. [I23]
  1786. [I24]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1224S1
  1787. [I25]^C^C(F:UNDO);(F:ERR) (F:PRMP) $S=A1224S1
  1788. **UTILITY1
  1789. **OSNAPB 3
  1790. [CENter  ]^PCEN^P;
  1791. [ENDpoint]^PENDp^P;
  1792.  
  1793. [INSert'n]^PINS^P;
  1794. [INTersec]^PINT^P;
  1795.  
  1796. [MIDpoint]^PMID^P;
  1797. [NEARest ]^PNEAR^P;
  1798.  
  1799. [NODe    ]^PNOD^P;
  1800. [NONe    ]^PNON^P;
  1801.  
  1802. [PERpend ]^PPER^P;
  1803. [QUAdrant]^PQUA^P;
  1804.  
  1805. [TANgent ]^PTAN^P;
  1806.  
  1807. [ <LAST> ]$s=
  1808. **OSNAPD 3
  1809. [Osnap   ]
  1810.  
  1811. [CENter  ]^PCEN^P;
  1812. [ENDpoint]^PENDp^P;
  1813.  
  1814. [INTersec]^PINT^P;
  1815. [MIDpoint]^PMID^P;
  1816.  
  1817. [NEARest ]^PNEAR^P;
  1818. [NONe    ]^PNON^P;
  1819.  
  1820. [NODe    ]^PNOD^P;
  1821. [PERpend ]^PPER^P;
  1822.  
  1823. [OFFSET  ]Offset
  1824. [FROM    ]Offset
  1825. [INTERSEC]Offset
  1826. **OSNAPE 3
  1827. [Osnap   ]
  1828.  
  1829. [CENter  ]^PCEN^P;
  1830. [ENDpoint]^PENDp^P;
  1831.  
  1832. [INTersec]^PINT^P;
  1833. [MIDpoint]^PMID^P;
  1834.  
  1835. [NEARest ]^PNEAR^P;
  1836. [NONe    ]^PNON^P;
  1837.  
  1838. [QUAdrant]^PQUA^P;
  1839. [TANgent ]^PTAN^P;
  1840.  
  1841. [--------];
  1842. [ AS IS  ];
  1843. [--------];
  1844.  
  1845. **OSNAPU 3
  1846. [Osnap   ]
  1847.  
  1848. [CENter  ]^PCEN^P;
  1849. [ENDpoint]^PENDp^P;
  1850.  
  1851. [INSert'n]^PINS^P;
  1852. [INTersec]^PINT^P;
  1853.  
  1854. [MIDpoint]^PMID^P;
  1855. [NEARest ]^PNEAR^P;
  1856.  
  1857. [NODe    ]^PNOD^P;
  1858. [PERpend ]^PPER^P;
  1859.  
  1860. [QUAdrant]^PQUA^P;
  1861. [TANgent ]^PTAN^P;
  1862.  
  1863. [UNDO    ]^PU^P;
  1864. **OSNAPL 3
  1865. [Osnap   ]
  1866.  
  1867. [CENter  ]^PCEN^P;
  1868. [ENDpoint]^PENDp^P;
  1869.  
  1870. [INSert'n]^PINS^P;
  1871. [INTersec]^PINT^P;
  1872.  
  1873. [MIDpoint]^PMID^P;
  1874. [NEARest ]^PNEAR^P;
  1875.  
  1876. [NODe    ]^PNOD^P;
  1877. [PERpend ]^PPER^P;
  1878.  
  1879. [QUAdrant]^PQUA^P;
  1880. [TANgent ]^PTAN^P;
  1881.  
  1882. [ <LAST> ]$s=
  1883. **OSNAPS 3
  1884. [Osnap   ]
  1885.  
  1886. [CENter  ]^PCEN^P;
  1887. [ENDpoint]^PENDp^P;
  1888.  
  1889. [INSert'n]^PINS^P;
  1890. [INTersec]^PINT^P;
  1891.  
  1892. [MIDpoint]^PMID^P;
  1893. [NEARest ]^PNEAR^P;
  1894.  
  1895. [NODe    ]^PNOD^P;
  1896. [PERpend ]^PPER^P;
  1897.  
  1898. [QUAdrant]^PQUA^P;
  1899. [TANgent ]^PTAN^P;
  1900.  
  1901. [PREVIOUS ]$s=ag21a
  1902. **AU001S1 3
  1903. [Number  ]
  1904.  
  1905. [   1  ]^P1^P\
  1906. [   2  ]^P2^P\
  1907. [   3  ]^P3^P\
  1908. [   4  ]^P4^P\
  1909. [   5  ]^P5^P\
  1910. [   6  ]^P6^P\
  1911. [   7  ]^P7^P\
  1912. [   8  ]^P8^P\
  1913. [   9  ]^P9^P\
  1914. [   0  ]^P0^P\
  1915. [ FEET   ]^P'^P\
  1916. [  /     ]^P/^P\
  1917. [  -     ]^P-^P\
  1918. [ PERIOD ]^P.^P\
  1919. [<RETURN>];
  1920. [ <LAST> ]$s=
  1921. **AU002S1 3
  1922. [Number  ]
  1923.  
  1924. [  1  ]^P1^P\
  1925. [  2  ]^P2^P\
  1926. [  3  ]^P3^P\
  1927. [  4  ]^P4^P\
  1928. [  5  ]^P5^P\
  1929. [  6  ]^P6^P\
  1930. [  7  ]^P7^P\
  1931. [  8  ]^P8^P\
  1932. [  9  ]^P9^P\
  1933. [  0  ]^P0^P\
  1934.  
  1935.  
  1936. [LETTER]$S=AU002S2
  1937. [ SKIP * ]*;
  1938. [< PASS >]^P-^P;
  1939. [<RETURN>];
  1940. **AU002S2 3
  1941. [Letter ]
  1942.  
  1943. [  A  ]^PA^P\
  1944. [  B  ]^PB^P\
  1945. [  C  ]^PC^P\
  1946. [  D  ]^PD^P\
  1947. [  E  ]^PE^P\
  1948. [  F  ]^PF^P\
  1949. [  G  ]^PG^P\
  1950. [  H  ]^PH^P\
  1951. [  I  ]^PI^P\
  1952. [  J  ]^PJ^P\
  1953. [  K  ]^PK^P\
  1954. [  L  ]^PL^P\
  1955. [  M  ]^PM^P\
  1956. [<OTHERS>]$S=AU002S3
  1957. [NUMBERS ]$S=AU002S1
  1958. [<RETURN>];
  1959. **AU002S3 3
  1960. [Letter]
  1961.  
  1962. [  N  ]^PN^P\
  1963. [  O  ]^PO^P\
  1964. [  P  ]^PP^P\
  1965. [  Q  ]^PQ^P\
  1966. [  R  ]^PR^P\
  1967. [  S  ]^PS^P\
  1968. [  T  ]^PT^P\
  1969. [  U  ]^PU^P\
  1970. [  V  ]^PV^P\
  1971. [  W  ]^PW^P\
  1972. [  X  ]^PX^P\
  1973. [  Y  ]^PY^P\
  1974. [  Z  ]^PZ^P\
  1975. [ <LAST>]$S=AU002S2;
  1976. [NUMBERS ]$S=AU002S1
  1977. [<RETURN>];
  1978. **AU002SA 3
  1979. [Letter ]
  1980.  
  1981. [  A  ]^PA^P;
  1982. [  B  ]^PB^P;
  1983. [  C  ]^PC^P;
  1984. [  D  ]^PD^P;
  1985. [  E  ]^PE^P;
  1986. [  F  ]^PF^P;
  1987. [  G  ]^PG^P;
  1988. [  H  ]^PH^P;
  1989. [  I  ]^PI^P;
  1990. [  J  ]^PJ^P;
  1991. [  K  ]^PK^P;
  1992. [  L  ]^PL^P;
  1993. [  M  ]^PM^P;
  1994.  
  1995. [<OTHERS>]$S=AU002SB
  1996. [<CANCEL>]^C^COsnap non (F:CLS) $S=S
  1997. **AU002SB 3
  1998. [Letter]
  1999.  
  2000. [  N  ]^PN^P;
  2001. [  O  ]^PO^P;
  2002. [  P  ]^PP^P;
  2003. [  Q  ]^PQ^P;
  2004. [  R  ]^PR^P;
  2005. [  S  ]^PS^P;
  2006. [  T  ]^PT^P;
  2007. [  U  ]^PU^P;
  2008. [  V  ]^PV^P;
  2009. [  W  ]^PW^P;
  2010. [  X  ]^PX^P;
  2011. [  Y  ]^PY^P;
  2012. [  Z  ]^PZ^P;
  2013.  
  2014. [ <LAST>]$S=AU002SA;
  2015. [<CANCEL>]^C^COsnap non (F:CLS) $S=S
  2016. **AU004S1 3
  2017. [Rotation]
  2018. [angle   ]
  2019.  
  2020.  
  2021. [    0   ]^P0^P;
  2022. [   45   ]^P45^P;
  2023.  
  2024. [   90   ]^P90^P;
  2025. [  135   ]^P135^P;
  2026.  
  2027. [  180   ]^P180^P;
  2028. [  225   ]^P225^P;
  2029.  
  2030. [  270   ]^P270^P;
  2031. [  315   ]^P315^P;
  2032.  
  2033. [ <LAST> ]$s=
  2034. [<CANCEL>]^C^Cosnap non (F:CLS) $S=S
  2035. **AU004do 3
  2036. [Preset  ]
  2037. [rot. ang]
  2038.  
  2039. [    0   ]^P0^P;$s=
  2040. [   45   ]^P45^P;$s=
  2041.  
  2042. [   90   ]^P90^P;$s=
  2043. [  135   ]^P135^P;$s=
  2044.  
  2045. [  180   ]^P180^P;$s=
  2046. [  225   ]^P225^P;$s=
  2047.  
  2048. [  270   ]^P270^P;$s=
  2049. [  315   ]^P315^P;$s=
  2050.  
  2051. [ PROMPT ]^PPROMPT^P;$s=
  2052. [ <LAST> ]$s=
  2053. [<CANCEL>]^C^C(F:CLS) $S=S
  2054. **AZFRACT 3
  2055. [ 2-point]
  2056. [  menu  ]
  2057.  
  2058. [  1/8   ]^P0.125^P;
  2059. [  1/4   ]^P0.25^P;
  2060. [  1/3   ]^P0.333^P;
  2061.  
  2062. [  3/8   ]^P0.375^P;
  2063. [  1/2   ]^P0.5^P;
  2064. [  5/8   ]^P0.625^P;
  2065.  
  2066. [  2/3   ]^P0.666^P;
  2067. [  3/4   ]^P0.75^P;
  2068. [  7/8   ]^P0.875^P;
  2069.  
  2070. [<OTHER> ]$S=AZNUMP
  2071.  
  2072. [<CANCEL>]^C^C(F:CLS) $S=S
  2073. **AZNUMP 3
  2074. [ Number ]
  2075.  
  2076. [   1  ]^P1^P\
  2077. [   2  ]^P2^P\
  2078. [   3  ]^P3^P\
  2079. [   4  ]^P4^P\
  2080. [   5  ]^P5^P\
  2081. [   6  ]^P6^P\
  2082. [   7  ]^P7^P\
  2083. [   8  ]^P8^P\
  2084. [   9  ]^P9^P\
  2085. [   0  ]^P0^P\
  2086. [ FEET   ]^P'^P\
  2087. [  /     ]^P/^P\
  2088. [  -     ]^P-^P\
  2089. [ PERIOD ]^P.^P\
  2090. [<RETURN>];
  2091. [ <LAST>]$S=AZFRACT
  2092. **AU007S1 3
  2093. [Color]
  2094.  
  2095. [ALMOND  ]^PALMOND^P;
  2096. [AVOCADO ]^PAVOCADO^P;
  2097. [BLACK   ]^PBLACK^P;
  2098. [BLUE    ]^PBLUE^P;
  2099. [BONE    ]^PBONE^P;
  2100. [BROWN   ]^PBROWN^P;
  2101.  
  2102. [H. GOLD ]^PHARVEST GOLD^P;
  2103. [GREEN   ]^PGREEN^P;
  2104. [PINK    ]^PPINK^P;
  2105. [S. STEEL]^PSTAIN. STEEL^P;
  2106. [VANILLA ]^PVANILLA^P;
  2107. [WHITE   ]^PWHITE^P;
  2108. [YELLOW  ]^PYELLOW^P;
  2109. [ SKIP * ]*;
  2110. [< PASS >]^P-^P;
  2111. **au009s1 3
  2112.  
  2113.  
  2114.  
  2115. [--------]^PY^P;
  2116. [        ]^PY^P;
  2117. [  YES   ]^PY^P;
  2118. [        ]^PY^P;
  2119. [--------]^PY^P;
  2120.  
  2121. [--------]^PN^P;
  2122. [        ]^PN^P;
  2123. [   NO   ]^PN^P;
  2124. [        ]^PN^P;
  2125. [--------]^PN^P;
  2126.  
  2127.  
  2128. [ <LAST> ]$s=
  2129. [<CANCEL>]^C^C(F:CLS) $S=S
  2130. **au009dr 3
  2131.  
  2132.  
  2133.  
  2134. [--------]^PY^P;
  2135. [        ]^PY^P;
  2136. [  YES   ]^PY^P;
  2137. [        ]^PY^P;
  2138. [--------]^PY^P;
  2139.  
  2140. [--------]^PN^P;
  2141. [        ]^PN^P;
  2142. [   NO   ]^PN^P;
  2143. [        ]^PN^P;
  2144. [--------]^PN^P;
  2145.  
  2146.  
  2147. [PREVIOUS]$s=adomain1
  2148. [<CANCEL>]^C^C(F:CLS) $S=S
  2149. **AU010S1 3
  2150. [Offset  ]
  2151.  
  2152.  
  2153.  
  2154.  
  2155.  
  2156. [-------]@;
  2157. [       ]@;
  2158. [ AS IS ]@;
  2159. [       ]@;
  2160. [-------]@;
  2161.  
  2162.  
  2163.  
  2164.  
  2165.  
  2166.  
  2167. [<CANCEL>]^C^C(F:CLS) $S=S
  2168. **AZATB 3
  2169. [Attribut]
  2170. [prompt  ] 
  2171.  
  2172.  
  2173. [--------];
  2174. [ NUMBER ];
  2175. [ ONLY   ];
  2176. [--------];
  2177.  
  2178.  
  2179. [--------]^PALL^P;
  2180. [        ]^PALL^P;
  2181. [  ALL   ]^PALL^P;
  2182. [        ]^PALL^P;
  2183. [--------]^PALL^P;
  2184.  
  2185.  
  2186. [<CANCEL>]^C^C(F:CLS) $S=S
  2187. **AU011S1 3
  2188. [Cost   ]
  2189.  
  2190. [   1  ]^P1^P\
  2191. [   2  ]^P2^P\
  2192. [   3  ]^P3^P\
  2193. [   4  ]^P4^P\
  2194. [   5  ]^P5^P\
  2195. [   6  ]^P6^P\
  2196. [   7  ]^P7^P\
  2197. [   8  ]^P8^P\
  2198. [   9  ]^P9^P\
  2199. [   0  ]^P0^P\
  2200.  
  2201. [ PERIOD ]^P.^P\
  2202.  
  2203. [<RETURN>];
  2204. [ SKIP * ]*;
  2205. [< PASS >]^P-^P;
  2206. **AU013SA 3
  2207. [Fixture]
  2208. [descrip.]
  2209.  
  2210. [SINK    ]^PSINK^P;
  2211. [JAN.SINK]^PJANITOR SINK^P;
  2212. [GARB.DSP]^PGARBAGE DISPOSAL^P;
  2213. [DRINKING]^PDRINKING FOUNT.^P;
  2214. [TOILET  ]^PTOILET^P;
  2215. [URINAL  ]^PURINAL^P;
  2216. [TUB     ]^PTUB^P;
  2217. [SHOWER  ]^PSHOWER^P;
  2218. [LAVATORY]^PLAVATORY^P;
  2219. [BIDET   ]^PBIDET^P;
  2220. [SPA     ]^PSPA^P;
  2221. [DRAIN   ]^PDRAIN^P;
  2222. [H2O HEAT]^PWATER HEATER^P;
  2223. [ SKIP * ]*;
  2224. [< PASS >]^P-^P;
  2225. **AU013SB 3
  2226. [Fixture]
  2227. [manufact]
  2228.  
  2229. [AMER.STA]^PAMERICAN STANDARD^P;
  2230. [AO SMITH]^PA.O. SMITH^P;
  2231. [AQUARIUS]^PAQUARIUS^P;
  2232. [BRADLEY ]^PBRADLEY^P;
  2233. [CRANE   ]^PCRANE^P;
  2234. [ELJER   ]^PELJER^P;
  2235.  
  2236. [ELKAY   ]^PELKAY^P;
  2237. [HOYT    ]^PHOYT^P;
  2238. [KOHLER  ]^PKOHLER^P;
  2239. [MOEN    ]^PMOEN^P;
  2240. [OASIS   ]^POASIS^P;
  2241. [UNIV.RUN]^PUNIVERSAL RUNDLE^P;
  2242. [ SKIP * ]*;
  2243. [< PASS >]^P-^P;
  2244. **AU014SA 3
  2245. [Toilet]
  2246. [access.]
  2247. [descrip.]
  2248.  
  2249. [T.P.DISP]^PTOILET PAPER DISPENSER^P;
  2250. [TOWELDSP]^PPAPER TOWEL DISPENSER^P;
  2251. [WASTE   ]^PWASTE^P;
  2252. [SOAP DSP]^PSOAP DISPENSER^P;
  2253. [GRAB BAR]^PGRAB BAR^P;
  2254. [TOWELBAR]^PTOWEL BAR^P;
  2255. [MED. CAB]^PMEDICINE CABINET^P;
  2256. [SEATCVR ]^PSEAT COVER DISPENSER^P;
  2257. [STALL   ]^PTOILET STALL PARTITIONS^P;
  2258. [STALL DR]^PTOILET STALL DOORS^P;
  2259. [FEM.DSP ]^PFEMININE PRODUCT DISPENSER^P;
  2260. [FEMWASTE]^PFEMININE PRODUCT WASTE^P;
  2261. [ SKIP * ]*;
  2262. [< PASS >]^P-^P;
  2263. **AU014SB 3
  2264. [T.A.]
  2265. [manufact]
  2266.  
  2267.  
  2268. [ACCES.SP]^PACCES. SPECIAL.^P;
  2269. [AMER.DIS]^PAMER. DISP. CO.^P;
  2270. [BAR.FREE]^PBARRIER FREE^P;
  2271. [BOBRICK ]^PBOBRICK^P;
  2272. [BRADLEY ]^PBRADLEY^P;
  2273. [ELEC.AIR]^PELECTRIC AIR^P;
  2274. [KETCHAM ]^PKETCHAM^P;
  2275. [PARKER  ]^PPARKER^P;
  2276. [TSM     ]^PTUBULAR SPEC. MFG^P;
  2277. [WLD DRY ]^PWORLD DRYER^P;
  2278.  
  2279.  
  2280. [ SKIP * ]*;
  2281. [< PASS >]^P-^P;
  2282. **AU014SC 3
  2283. [Mounting]^P
  2284.  
  2285.  
  2286.  
  2287. [--------]^PSURFACE^P;
  2288. [        ]^PSURFACE^P;
  2289. [SURFACE ]^PSURFACE^P;
  2290. [        ]^PSURFACE^P;
  2291. [--------]^PSURFACE^P;
  2292.  
  2293. [--------]^PRECESSED^P;
  2294. [        ]^PRECESSED^P;
  2295. [RECESSED]^PRECESSED^P;
  2296. [        ]^PRECESSED^P;
  2297. [--------]^PRECESSED^P;
  2298.  
  2299. [ SKIP * ]*;
  2300. [< PASS >]^P-^P;
  2301. **AU015SA 3
  2302. [Fixture]
  2303. [descript]
  2304.  
  2305.  
  2306. [DOWN LT ]^PDOWN LIGHT^P;
  2307. [CEILING ]^PCEILING^P;
  2308. [WALL    ]^PWALL^P;
  2309.  
  2310. [FLOOR   ]^PFLOOR^P;
  2311. [LANDSCAP]^PLANDSCAPE^P;
  2312.  
  2313. [POLE    ]^PPOLE^P;
  2314. [TRACK   ]^PTRACK^P;
  2315.  
  2316. [STAIR   ]^PSTAIR^P;
  2317.  
  2318. [ SKIP * ]*;
  2319. [< PASS >]^P-^P;
  2320. **AU015SB 3
  2321. [Manufact]
  2322.  
  2323. [BENJAMIN]^PBENJAMIN^P;
  2324. [COLUMBIA]^PCOLUMBIA^P;
  2325. [HALO    ]^PHALO^P;
  2326. [KOCH&LWY]^PKOCH_&_LOWY^P;
  2327. [LIGHTOLR]^PLIGHTOLIER^P;
  2328. [LITHONIA]^PLITHONIA^P;
  2329. [MANVILLE]^PMANVILLE^P;
  2330. [MARCO   ]^PMARCO^P;
  2331. [PEERLESS]^PPEERLESS^P;
  2332. [PRESCOLT]^PPRESCOLITE^P;
  2333. [PROGRESS]^PPROGRESS^P;
  2334. [STAFF   ]^PSTAFF^P;
  2335. [STERNBRG]^PSTERNBERG^P;
  2336. [WELLMADE]^PWELLMADE^P;
  2337. [ SKIP * ]*;
  2338. [< PASS >]^P-^P;
  2339. **AU015SC 3
  2340. [Lamp    ]
  2341. [types   ]
  2342.  
  2343.  
  2344.  
  2345. [INCAD   ]$S=au015sd ^PINCAD-^P\
  2346.  
  2347. [FLURSCNT]$S=au015sd ^PFLUORES-^P\
  2348.  
  2349. [HID     ]$S=au015sf ^PHID-^P\
  2350.  
  2351. [QUARTZ  ]$S=au015sf ^PQUARTZ-^P\
  2352.  
  2353.  
  2354.  
  2355.  
  2356. [ SKIP * ]*;
  2357. [< PASS >]-;
  2358. **AU015SD 3
  2359. [Lamp    ]
  2360. [types 2 ]
  2361.  
  2362. [Incad   ]
  2363. [A       ]^PA^P;
  2364. [R20     ]$S=AU015SE ^PR20-^P\
  2365. [R30     ]$S=AU015SE ^PR30-^P\
  2366. [R40     ]$S=AU015SE ^PR40-^P\
  2367.  
  2368. [Flurscnt]
  2369. [F20     ]^PF20^P;
  2370. [F30     ]^PF30^P;
  2371. [F40     ]^PF40^P;
  2372. [F96     ]^PF96^P;
  2373. [CIRCULAR]^PCIRCULAR^P;
  2374.  
  2375. [ SKIP * ]*;
  2376. [< PASS >]-;
  2377. **AU015SE 3
  2378. [Lamp    ]
  2379. [types   ]
  2380.  
  2381.  
  2382. [--------]^PFLOOD^P;
  2383. [     ]^PFLOOD^P;
  2384. [ FLOOD  ]^PFLOOD^P;
  2385. [     ]^PFLOOD^P;
  2386. [--------]^PFLOOD^P;
  2387.  
  2388. [--------]^PSPOT^P;
  2389. [     ]^PSPOT^P;
  2390. [  SPOT  ]^PSPOT^P;
  2391. [     ]^PSPOT^P;
  2392. [--------]^PSPOT^P;
  2393.  
  2394. [ SKIP * ]*;
  2395. [< PASS >]^P-^P;
  2396. **AU015SF 3
  2397. [Lamp    ]
  2398. [types 2 ]
  2399.  
  2400.  
  2401. [Hid     ]
  2402. [MERC VAP]^PMERCURY^P;
  2403. [MTL HLDE]^PMTL HALIDE^P;
  2404. [SODIUM  ]^PSODIUM^P;
  2405.  
  2406.  
  2407.  
  2408. [Quartz  ]
  2409. [INFRARED]^PINFRARED^P;
  2410. [HALOGEN ]^PHALOGEN^P;
  2411.  
  2412.  
  2413. [ SKIP * ]*;
  2414. [< PASS >]^P-^P;
  2415. **AU015SG 3
  2416. [Lamp    ]
  2417. [wattage ]
  2418.  
  2419. [   20   ]^P20^P;
  2420. [   30   ]^P30^P;
  2421. [   40   ]^P40^P;
  2422. [   60   ]^P60^P;
  2423. [   75   ]^P75^P;
  2424. [  100   ]^P100^P;
  2425. [  125   ]^P125^P;
  2426. [  250   ]^P250^P;
  2427. [  400   ]^P400^P;
  2428. [ 1000   ]^P1000^P;
  2429. [22(8"D) ]^P22(8"D)^P;
  2430. [32(12"D)]^P32(12"D)^P;
  2431. [40(16"D)]^P40(16"D)^P;
  2432. [ SKIP * ]*;
  2433. [< PASS >]^P-^P;
  2434. **AU015SH 3
  2435. [Mounting]
  2436. [types   ]
  2437.  
  2438.  
  2439. [LAY-IN  ]^PLAY-IN^P;
  2440.  
  2441. [RECESSED]^PRECESSED^P;
  2442.  
  2443. [SURFACE ]^PSURFACE^P;
  2444.  
  2445.  
  2446. [PENDANT ]^PPENDANT^P;
  2447.  
  2448. [FREE STD]^PFREE-STD^P;
  2449.  
  2450.  
  2451. [ SKIP * ]*;
  2452. [< PASS >]^P-^P;
  2453. **AU016SA 3
  2454. [Furn.  ]
  2455. [descrip]
  2456.  
  2457. [CREDENZA]^PCREDENZA^P;
  2458. [DESK    ]$S=AU016SADESK
  2459.  
  2460. [TABLE   ]$S=AU016SATABLE ^PTABLE-^P\
  2461. [FILE    ]$S=AU016SAFILE ^PFILE-^P\
  2462.  
  2463. [CHAIR   ]$S=AU016SACHAIR ^PCHAIR-^P\
  2464. [COUCH   ]^PCOUCH^P;
  2465.  
  2466. [BOOK CA ]^PBOOK CASE^P;
  2467. [COPY    ]^PCOPY MACHINE^P;
  2468. [SHELVING]^PSHELVING^P;
  2469.  
  2470. [ SKIP * ]*;
  2471. [< PASS >]^P-^P;
  2472. **AU016SADESK 3
  2473. [Desk   ]
  2474. [Type   ]
  2475.  
  2476.  
  2477. [--------]^PEXECUTIVE DESK^P;
  2478. [EXECUTIV]^PEXECUTIVE DESK^P;
  2479. [--------]^PEXECUTIVE DESK^P;
  2480.  
  2481.  
  2482. [Secretar]
  2483. [--------]^PSEC DSK RT RET^P;
  2484. [W/RT RET]^PSEC DSK RT RET^P;
  2485. [--------]^PSEC DSK RT RET^P;
  2486.  
  2487. [--------]^PSEC DSK LF RET^P;
  2488. [W/LT RET]^PSEC DSK LF RET^P;
  2489. [--------]^PSEC DSK LF RET^P;
  2490.  
  2491. **AU016SATABLE 3
  2492. [Table ]
  2493. [type  ]
  2494.  
  2495.  
  2496. [CONFER ]^PCONF.^P;
  2497.  
  2498. [DINING ]^PDINING^P;
  2499.  
  2500. [COFFEE ]^PCOFFEE^P;
  2501.  
  2502. [END    ]^PEND^P;
  2503.  
  2504. [WORK   ]^PWORK^P;
  2505.  
  2506.  
  2507.  
  2508.  
  2509.  
  2510. **AU016SAFILE 3
  2511. [ File  ]
  2512. [ type  ]
  2513.  
  2514.  
  2515. [--------]^PREGULAR^P;
  2516. [REGULAR ]^PREGULAR^P;
  2517. [--------]^PREGULAR^P;
  2518.  
  2519.  
  2520. [--------]^PLATERAL^P;
  2521. [LATERAL ]^PLATERAL^P;
  2522. [--------]^PLATERAL^P;
  2523.  
  2524.  
  2525. [--------]^PLEGAL^P;
  2526. [ LEGAL  ]^PLEGAL^P;
  2527. [--------]^PLEGAL^P;
  2528.  
  2529. **AU016SACHAIR 3
  2530. [Chair ]
  2531. [type  ]
  2532.  
  2533.  
  2534.  
  2535. [EXEC  ]^PEXEC.^P;
  2536.  
  2537. [SECR  ]^PSEC.^P;
  2538.  
  2539. [GUEST ]^PGUEST^P;
  2540.  
  2541. [ARM   ]^PARM^P;
  2542.  
  2543.  
  2544.  
  2545.  
  2546.  
  2547.  
  2548. **AU016SB 3
  2549. [Manfact]
  2550.  
  2551. [MOD MODE]^PMODRN MODE^P;
  2552. [HARTER  ]^PHARTER^P;
  2553. [KIMBALL ]^PKIMBALL^P;
  2554. [SHW WLKR]^PSHAW/WALKER^P;
  2555. [GUNLOCKE]^PGUNLOCKE^P;
  2556. [HERM MLR]^PHERMAN MILLER^P;
  2557. [G.F.    ]^PG.F.^P;
  2558. [KNOLL   ]^PKNOLL^P;
  2559. [STENDIG ]^PSTENDIG^P;
  2560. [HAWORTH ]^PHAWORTH^P;
  2561. [HARPER  ]^PHARPER^P;
  2562. [STL CASE]^PSTEEL CASE^P;
  2563. [ALL STL ]^PALL STEEL^P;
  2564.  
  2565. [ SKIP * ]*;
  2566. [< PASS >]^P-^P;
  2567. **AU016SC 3
  2568. [Fin/Fabr]
  2569.  
  2570. [GROUP 1]^PGROUP 1^P;
  2571. [GROUP 2]^PGROUP 2^P;
  2572.  
  2573. [GROUP 3]^PGROUP 3^P;
  2574. [GROUP 4]^PGROUP 4^P;
  2575.  
  2576. [GROUP 5]^PGROUP 5^P;
  2577. [GROUP 6]^PGROUP 6^P;
  2578.  
  2579. [GROUP 7]^PGROUP 7^P;
  2580. [GROUP 8]^PGROUP 8^P;
  2581.  
  2582. [GROUP 9]^PGROUP 9^P;
  2583. [GROUP 10]^PGROUP 10^P;
  2584. [ SKIP * ]*;
  2585. [< PASS >]^P-^P;
  2586. **AU017SA 3
  2587. [Applianc]
  2588. [type]
  2589.  
  2590. [COOKTOP ]^PCOOKTOP^P;
  2591. [RANGE   ]^PRANGE^P;
  2592. [REFRIG. ]^PREFRIGERATOR^P;
  2593. [FREEZER ]^PFREEZER^P;
  2594.  
  2595. [OVEN    ]^POVEN^P;
  2596. [DISHWASH]^PDISHWASHER^P;
  2597. [COMPACT.]^PTRASH COMPACT.^P;
  2598.  
  2599. [WASHER  ]^PWASHER^P;
  2600. [DRYER   ]^PDRYER^P;
  2601. [WASH/DRY]^PWASHER/DRYER^P;
  2602. [MICROWAV]^PMICROWAVE^P;
  2603. [ SKIP * ]*;
  2604. [< PASS >]^P-^P;
  2605. **AU017SB 3
  2606. [Manufact]
  2607.  
  2608. [CERVITOR]^PCERVITOR^P;
  2609. [CRESTLYN]^PCRESTLYN^P;
  2610. [FRIGIDAR]^PFRIGIDAIRE^P;
  2611. [G.E.    ]^PGENERAL ELECTRIC^P;
  2612.  
  2613. [HOBART  ]^PHOBART^P;
  2614. [HOTPOINT]^PHOTPOINT^P;
  2615. [JENN-AIR]^PJENN-AIR^P;
  2616. [MOD.MAID]^PMODRN MAID^P;
  2617.  
  2618. [SEARS   ]^PSEARS^P;
  2619. [T. WKING]^PTHERMO./WASTEKING^P;
  2620. [WHIRLPL.]^PWHIRLPOOL^P;
  2621. [WESTINGH]^PWESTINGHOUSE^P;
  2622. [ SKIP * ]*;
  2623. [< PASS >]^P-^P;
  2624. **AU018SA 3
  2625. [Room ]
  2626. [name ]
  2627.  
  2628. [OFFICE-]$S=auw1mcs ^POFFICE-^P\
  2629. [ENTRY  ]^PENTRY^P;
  2630. [CONF.  ]^PCONF.^P;
  2631. [MEN    ]^PMEN^P;
  2632. [WOMEN  ]^PWOMEN^P;
  2633. [SEC.-  ]$S=auw1mcs ^PSEC.-^P\
  2634. [LIVING ]^PLIVING^P;
  2635. [KITCHEN]^PKITCHEN^P;
  2636. [BATH-  ]$S=auw1mcs ^PBATH-^P\
  2637. [BEDRM- ]$S=auw1mcs ^PBEDROOM-^P\
  2638. [DINING ]^PDINING^P;
  2639. [GARAGE ]^PGARAGE^P;
  2640. [CORR   ]^PCORRIDOR^P;
  2641. [ SKIP * ]*;
  2642. [< PASS >]^P-^P;
  2643. **AU018SB 3
  2644. [Floor ]
  2645. [cover]
  2646.  
  2647. [CARPET  ]$S=AU001S1 ^PCP-^P\
  2648. [SHT VINL]$S=AU001S1 ^PSV-^P\
  2649.  
  2650. [CER TILE]$S=AU001S1 ^PCT-^P\
  2651. [PAVER   ]$S=AU001S1 ^PPV-^P\
  2652.  
  2653. [HARDWOOD]$S=AU001S1 ^PHW-^P\
  2654. [EPOXY   ]$S=AU001S1 ^PEP-^P\
  2655.  
  2656. [CONCRETE]$S=AU001S1 ^PCO-^P\
  2657. [SPECIAL ]$S=AU001S1 ^PSP-^P\
  2658.  
  2659. [NONE    ]^PNONE^P;
  2660. [ SKIP * ]*;
  2661. [< PASS >]^P-^P;
  2662. **AU018SC 3
  2663. [Base   ]
  2664. [boards ]
  2665.  
  2666. [WD  BASE]$S=AU001S1 ^PWB-^P\
  2667. [RUB BASE]$S=AU001S1 ^PRB-^P\
  2668.  
  2669. [SHT VINL]$S=AU001S1 ^PSV-^P\
  2670. [CER TILE]$S=AU001S1 ^PCT-^P\
  2671.  
  2672. [CAR BASE]$S=AU001S1 ^PCB-^P\
  2673. [EPOXY   ]$S=AU001S1 ^PEP-^P\
  2674.  
  2675. [CONCRETE]$S=AU001S1 ^PCO-^P\
  2676. [SPECIAL ]$S=AU001S1 ^PSP-^P\
  2677.  
  2678. [NONE    ]^PNONE;
  2679. [ SKIP * ]*;
  2680. [< PASS >]^P-;
  2681. **AU018SD 3
  2682. [Wall    ]
  2683. [texture]
  2684.  
  2685.  
  2686. [SMOOTH ]^PSM^P;
  2687.  
  2688. [SPRAY  ]^PSP^P;
  2689.  
  2690.  
  2691. [STIPPLE]^PST^P;
  2692.  
  2693. [SK TRWL]^PSK^P;
  2694.  
  2695.  
  2696.  
  2697.  
  2698. [ SKIP * ]*;
  2699. [< PASS >]^P-^P;
  2700. **AU018SE 3
  2701. [Wall]
  2702.  
  2703.  
  2704. [PAINT   ]$S=AU018SG
  2705. [WAL COV ]$S=AU001S1 ^PWC-^P\
  2706.  
  2707. [PANELING]$S=AU001S1 ^PPN-^P\
  2708. [CER TILE]$S=AU001S1 ^PCT-^P\
  2709.  
  2710. [KYDEX   ]$S=AU001S1 ^PKY-^P\
  2711. [MIRROR  ]$S=AU001S1 ^PMR-^P\
  2712.  
  2713. [FIRE TP ]^PFT;
  2714. [SPECIAL ]$S=AU001S1 ^PSP-^P\
  2715.  
  2716. [NONE    ]^PNONE^P;
  2717. [ SKIP * ]*;
  2718. [< PASS >]^P-^P;
  2719. **AU018SF 3
  2720. [Ceiling]
  2721.  
  2722.  
  2723. [PAINT   ]$S=AU018SG
  2724.  
  2725. [HUNG CLG]$S=AU001S1 ^PHC-^P\
  2726.  
  2727. [SP TEXT ]$S=AU001S1 ^PSPT-^P\
  2728.  
  2729.  
  2730. [FIRE TP ]^PFT^P;
  2731.  
  2732. [SPECIAL ]$S=AU001S1 ^PSP-^P\
  2733.  
  2734.  
  2735. [NONE    ]^PNONE^P;
  2736. [ SKIP * ]*;
  2737. [< PASS >]^P-^P;
  2738. **AU018SG 3
  2739. [Paint]
  2740. [code]
  2741.  
  2742.  
  2743. [PT-A    ]$S=AU001S1 ^PPT-A^P;
  2744. [PT-B    ]$S=AU001S1 ^PPT-B^P;
  2745.  
  2746. [PT-C    ]$S=AU001S1 ^PPT-C^P;
  2747.  
  2748. [PT-D    ]$S=AU001S1 ^PPT-D^P;
  2749. [PT-E    ]$S=AU001S1 ^PPT-E^P;
  2750.  
  2751. [PT-F    ]$S=AU001S1 ^PPT-F^P;
  2752. [PT-G    ]$S=AU001S1 ^PPT-G^P;
  2753. [PT-H    ]$S=AU001S1 ^PPT-H^P;
  2754.  
  2755. [ SKIP * ]*;
  2756. [< PASS >]^P-^P;
  2757. **AU019SA 3
  2758. [Mounting]
  2759. [type    ]
  2760.  
  2761.  
  2762.  
  2763. [WALL MT]^PWALL MT^P;
  2764.  
  2765. [BASE   ]^PBASE^P;
  2766.  
  2767. [CEIL MT]^PCEILING MT^P;
  2768.  
  2769.  
  2770. [FREE   ]^PFREE STANDING^P;
  2771.  
  2772. [STANDING]^PFREE STANDING^P;
  2773.  
  2774. [ SKIP * ]*;
  2775. [< PASS >]^P-^P;
  2776. **AU019SB 3
  2777. [Finish  ]
  2778.  
  2779.  
  2780.  
  2781.  
  2782. [L.P.]^PLAM. PLASTIC^P;
  2783.  
  2784. [ST  ]^PSTAINLESS^P;
  2785.  
  2786.  
  2787. [MT  ]^PMETAL^P;
  2788.  
  2789. [PG  ]^PPAINT GRADE^P;
  2790.  
  2791.  
  2792.  
  2793. [ SKIP * ]*;
  2794. [< PASS >]^P-^P;
  2795. **AU019SC 3
  2796. [Quality]
  2797.  
  2798.  
  2799. [--------]^PECONOMY^P;
  2800. [ECONOMY ]^PECONOMY^P;
  2801. [--------]^PECONOMY^P;
  2802.  
  2803.  
  2804. [--------]^PCUSTOM^P;
  2805. [ CUSTOM ]^PCUSTOM^P;
  2806. [--------]^PCUSTOM^P;
  2807.  
  2808.  
  2809. [--------]^PPREMIUM^P;
  2810. [QUALITY ]^PPREMIUM^P;
  2811. [--------]^PPREMIUM^P;
  2812. [ SKIP * ]*;
  2813. [< PASS >]^P-^P;
  2814. **au020s1 3
  2815. [Line]
  2816. [type]
  2817.  
  2818.  
  2819. [--------]^C^C(progn(setq a 0)(princ))
  2820. [        ]^C^C(progn(setq a 0)(princ))
  2821. [ SOLID  ]^C^C(progn(setq a 0)(princ))
  2822. [        ]^C^C(progn(setq a 0)(princ))
  2823. [--------]^C^C(progn(setq a 0)(princ))
  2824.  
  2825. [--------]^C^C(progn(setq a 1)(princ))
  2826. [        ]^C^C(progn(setq a 1)(princ))
  2827. [ HIDDEN ]^C^C(progn(setq a 1)(princ))
  2828. [        ]^C^C(progn(setq a 1)(princ))
  2829. [--------]^C^C(progn(setq a 1)(princ))
  2830.  
  2831.  
  2832. [<CANCEL>]^C^C(F:CLS) $S=S
  2833. **au020s2 3
  2834. [Line]
  2835. [type]
  2836.  
  2837.  
  2838. [--------]s
  2839. [        ]s
  2840. [ SOLID  ]s
  2841. [        ]s
  2842. [--------]s
  2843.  
  2844. [--------]h
  2845. [        ]h
  2846. [ HIDDEN ]h
  2847. [        ]h
  2848. [--------]h
  2849.  
  2850. [PREVIOUS]$s=
  2851. [<CANCEL>]^C^C(F:CLS) $S=S
  2852. **au020sl 3
  2853. [Line]
  2854. [type]
  2855.  
  2856.  
  2857. [--------]s
  2858. [        ]s
  2859. [ SOLID  ]s
  2860. [        ]s
  2861. [--------]s
  2862.  
  2863. [--------]h
  2864. [        ]h
  2865. [ HIDDEN ]h
  2866. [        ]h
  2867. [--------]h
  2868.  
  2869.  
  2870. [<CANCEL>]^C^C(F:CLS) $S=S
  2871. **aa01a 3
  2872. [Storefnt]
  2873. [ height ]
  2874.  
  2875. [7'-0"   ]^P84^P;
  2876. [7'-2"   ]^P86^P;
  2877. [7'-4"   ]^P88^P;
  2878. [7'-6"   ]^P90^P;
  2879. [7'-8"   ]^P92^P;
  2880. [7'-10"  ]^P94^P;
  2881. [8'-0"   ]^P96^P;
  2882. [8'-2"   ]^P98^P;
  2883. [8'-4"   ]^P100^P;
  2884. [8'-6"   ]^P102^P;
  2885. [8'-8"   ]^P104^P;
  2886. [8'-10"  ]^P106^P;
  2887. [9'-0"   ]^P108^P;
  2888. [<OTHER> ]$S=au001s1
  2889. [<CANCEL>]^C^C(F:CLS) $S=S
  2890. **aa01b 3
  2891. [ Header ]
  2892. [ height ]
  2893.  
  2894. [0'-2"   ]^P2^P;
  2895. [0'-4"   ]^P4^P;
  2896. [0'-6"   ]^P6^P;
  2897. [0'-8"   ]^P8^P;
  2898. [0'-10"  ]^P10^P;
  2899. [1'-0"   ]^P12^P;
  2900. [1'-2"   ]^P14^P;
  2901. [1'-4"   ]^P16^P;
  2902. [1'-6"   ]^P18^P;
  2903. [1'-8"   ]^P20^P;
  2904. [1'-10"  ]^P22^P;
  2905. [2'-0"   ]^P24^P;
  2906. [2'-2"   ]^P26^P;
  2907. [<OTHER> ]$S=au001s1
  2908. [<CANCEL>]^C^C(F:CLS) $S=S
  2909. **aa01c 3
  2910. [ Lite   ]
  2911. [ height ]
  2912.  
  2913. [6'-0"   ]^P6'^P;
  2914. [6'-2"   ]^P6'2^P;
  2915. [6'-4"   ]^P6'4^P;
  2916. [6'-6"   ]^P6'6^P;
  2917. [6'-8"   ]^P6'8^P;
  2918. [6'-10"  ]^P6'10^P;
  2919. [7'-0"   ]^P7'^P;
  2920. [7'-2"   ]^P7'2^P;
  2921. [7'-4"   ]^P7'4^P;
  2922. [7'-6"   ]^P7'6^P;
  2923. [7'-8    ]^P7'8^P;
  2924. [7'-10"  ]^P7'10^P;
  2925. [8'-0"   ]^P8'^P;
  2926. [<OTHER> ]$S=au001s1
  2927. [<CANCEL>]^C^C(F:CLS) $S=S
  2928. **aa01d 3
  2929. [  Sill  ]
  2930. [  depth ]
  2931.  
  2932. [  2x4   ]^P3.5^P;
  2933. [  2x6   ]^P5.75^P;
  2934. [  2x8   ]^P7.75^P;
  2935.  
  2936. [ 1-5/8" ]^P1.62^P;
  2937. [     6" ]^P6.0^P;
  2938. [ 7-5/8" ]^P7.62^P;
  2939. [     8" ]^P8.0^P;
  2940. [    10" ]^P10.0^P;
  2941. [11-5/8" ]^P11.62^P;
  2942. [    12" ]^P12.0^P;
  2943.  
  2944. [<OTHER> ]$s=au001s1
  2945.  
  2946. [<CANCEL>]^C^C(F:CLS) $S=S
  2947. **aa01e 3
  2948. [ Sill   ]
  2949. [ height ]
  2950.  
  2951. [0'-2"   ]^P2^P;
  2952. [0'-4"   ]^P4^P;
  2953. [0'-6"   ]^P6^P;
  2954. [0'-8"   ]^P8^P;
  2955. [0'-10"  ]^P10^P;
  2956. [1'-0"   ]^P12^P;
  2957. [1'-2"   ]^P14^P;
  2958. [1'-4"   ]^P16^P;
  2959. [1'-6"   ]^P18^P;
  2960. [1'-8"   ]^P20^P;
  2961. [1'-10"  ]^P22^P;
  2962. [2'-0"   ]^P24^P;
  2963. [2'-2"   ]^P26^P;
  2964. [<OTHER> ]$S=au001s1
  2965. [<CANCEL>]^C^C(F:CLS) $S=S
  2966. **aa01f 3
  2967. [ Header ]
  2968. [  depth ]
  2969.  
  2970. [  2x4   ]^P3.5^P;
  2971. [  2x6   ]^P5.75^P;
  2972. [  2x8   ]^P7.75^P;
  2973.  
  2974. [ 1-5/8" ]^P1.62^P;
  2975. [     6" ]^P6.0^P;
  2976. [ 7-5/8" ]^P7.62^P;
  2977. [     8" ]^P8.0^P;
  2978. [    10" ]^P10.0^P;
  2979. [11-5/8" ]^P11.62^P;
  2980. [    12" ]^P12.0^P;
  2981.  
  2982. [<OTHER> ]$s=au001s1
  2983.  
  2984. [<CANCEL>]^C^C(F:CLS) $S=S
  2985. **aa05a 3
  2986. [Window  ]
  2987. [width   ]
  2988.  
  2989. [2'-0" ]^P2'^P;
  2990. [2'-6" ]^P2'6^P;
  2991.  
  2992. [3'-0" ]^P3'^P;
  2993. [3'-6" ]^P3'6^P;
  2994.  
  2995. [4'-0" ]^P4'^P;
  2996. [4'-6" ]^P4'6^P;
  2997.  
  2998. [5'-0" ]^P5'^P;
  2999. [5'-6" ]^P5'6^P;
  3000. [6'-0" ]^P6'^P;
  3001.  
  3002. [OTHER ]$S=au001s1
  3003. [<CANCEL>]^C^C(F:CLS) $S=S
  3004. **aa05b 3
  3005. [Window ]
  3006. [height]
  3007.  
  3008. [1'-6" ]^P1'6^P;
  3009. [2'-0" ]^P2'^P;
  3010. [2'-6" ]^P2'6^P;
  3011. [3'-0" ]^P3'^P;
  3012. [3'-6" ]^P3'6^P;
  3013.  
  3014. [4'-0" ]^P4'^P;
  3015. [4'-6" ]^P4'6^P;
  3016. [5'-0" ]^P5'^P;
  3017. [5'-6" ]^P5'6^P;
  3018. [6'-0" ]^P6'^P;
  3019.  
  3020. [OTHER ]$S=AU001S1
  3021.  
  3022. [<CANCEL>]^C^C(F:CLS) $S=S
  3023. **aa05c 3
  3024. [ Header ]
  3025. [ height ]
  3026.  
  3027. [    3"  ]^P3^P;
  3028. [    6"  ]^P6^P;
  3029.  
  3030. [ 1'-0"  ]^P1'^P;
  3031. [ 2'-0"  ]^P2'^P;
  3032.  
  3033. [ 2'-6"  ]^P2'6^P;
  3034. [ 3'-0"  ]^P3'^P;
  3035.  
  3036. [ 4'-0"  ]^P4'^P;
  3037. [ 5'-0"  ]^P5'^P;
  3038.  
  3039. [<OTHER> ]$S=au001s1
  3040.  
  3041. [<CANCEL>]^C^C(F:CLS) $S=S
  3042. **ab01s1 3
  3043. [Modes 1]
  3044.  
  3045.  
  3046. [Repeat  ]
  3047. [ON]^C^C(progn(setq v:rept 1)(terpri) +
  3048. (prompt "Commands will be repeated automatically.")(terpri)(princ))
  3049. [OFF]^C^C(progn(setq v:rept nil)(terpri) +
  3050. (prompt "Commands will NOT be repeated automatically.")(terpri)(princ))
  3051. [PROMPT]^C^C(progn(setq v:rept 2)(terpri) +
  3052. (prompt "Command repeating will be prompted.")(terpri)(princ))
  3053.  
  3054.  
  3055. [ROOF    ]^C^C(F:PRMP) $s=roofmode
  3056.  
  3057.  
  3058. [DOOR AND]^C^C(F:PRMP) $s=adomodes
  3059. [WINDOW  ]^C^C(F:PRMP) $s=adomodes
  3060.  
  3061.  
  3062. [ <MORE> ]$s=ab01s2
  3063. [<CANCEL>]^C^C(F:CLS) $S=S
  3064. **ab01s2 3
  3065. [Modes 2]
  3066.  
  3067. [2-pt ins]
  3068. [ ON     ]^C^C(setq V:2PT T) (progn (terpri)(prompt " ")(terpri)+
  3069. (prompt "2pt insertion mode is on.")(princ))
  3070. [ OFF    ]^C^C(setq V:2PT nil) (progn (terpri)(prompt " ")(terpri)+
  3071. (prompt "2pt insertion mode is off.")(princ))
  3072.  
  3073. [Insert  ]
  3074. [symbols:]
  3075. [ 2-D    ](setvar "USERI5" 0) (progn (terpri)(prompt " ")(terpri)+
  3076. (prompt "You are now inserting 2-D symbols.")(princ))
  3077. [ 3-D    ](setvar "USERI5" 51) (progn(terpri)(prompt " ")(terpri)+
  3078. (prompt "You are now inserting 3-D symbols.")(princ))
  3079.  
  3080. [Re-size ]
  3081. [symbol: ]
  3082. [ELCTRCAL]^C^C(progn (terpri)(prompt " ")(terpri)+
  3083. (setq V:ELEC (F:AQD "a1001sbj" "Enter a symbol size." V:ELEC nil))) \$s=ab01s2
  3084. [LIGHTING]^C^C(progn (terpri)(prompt " ")(terpri)+
  3085. (setq V:LGT (F:AQD "a1001sbj" "Enter a symbol size." V:LGT nil))) \$S=ab01s2
  3086.  
  3087. [ <LAST> ]$s=ab01s1
  3088. [<CANCEL>]^C^C(F:CLS) $S=S
  3089. **AA22SA 3
  3090. [Stair   ]
  3091. [type    ]
  3092.  
  3093. [--------]^C^C(setq a "2")(f:lodf "a:a22c") (f:rept "aa22sa");
  3094. [  2-D   ]^C^C(setq a "2")(f:lodf "a:a22c") (f:rept "aa22sa");
  3095. [--------]^C^C(setq a "2")(f:lodf "a:a22c") (f:rept "aa22sa");
  3096.  
  3097.  
  3098. [--------]^C^C(setq a "3")(f:lodf "a:a22b") (f:rept "aa22sa");
  3099. [  3-D   ]^C^C(setq a "3")(f:lodf "a:a22b") (f:rept "aa22sa");
  3100. [--------]^C^C(setq a "3")(f:lodf "a:a22b") (f:rept "aa22sa");
  3101.  
  3102.  
  3103. [--------]^C^C(setq a "B")(f:lodf "a:a22c")(f:lodf "a:a22b") (f:rept "aa22sa");
  3104. [  BOTH  ]^C^C(setq a "B")(f:lodf "a:a22c")(f:lodf "a:a22b") (f:rept "aa22sa");
  3105. [--------]^C^C(setq a "B")(f:lodf "a:a22c")(f:lodf "a:a22b") (f:rept "aa22sa");
  3106.  
  3107. [<CANCEL>]^C^C(F:CLS) $S=S
  3108. **AA22SB 3
  3109. [Type of ]
  3110. [nosing  ]
  3111.  
  3112.  
  3113. [--------]^PE^P;
  3114. [        ]^PE^P;
  3115. [EXTRUDED]^PE^P;
  3116. [        ]^PE^P;
  3117. [--------]^PE^P;
  3118.  
  3119. [--------]^PA^P;
  3120. [        ]^PA^P;
  3121. [ANGULAR ]^PA^P;
  3122. [        ]^PA^P;
  3123. [--------]^PA^P;
  3124.  
  3125.  
  3126. [<CANCEL>]^C^C(F:CLS) $S=S
  3127. **AA22SC 3
  3128. [Return  ]
  3129. [types   ]
  3130.  
  3131. [LONG    ]AA22C
  3132.  
  3133. [SHORT   ]AA22B
  3134.  
  3135. [L-SHAPED]AA22D
  3136.  
  3137. [CORNER  ]AA22E
  3138.  
  3139. [CUSTOM  ]CUST
  3140.  
  3141.  
  3142. [<START  ]ZXC1
  3143. [ AGAIN> ]ZXC1
  3144.  
  3145. [<CANCEL>]^C^C(F:CLS) $S=S
  3146. **AA22SD 3
  3147. [Change  ]
  3148.  
  3149.  
  3150. [--------]^PN^P;
  3151. [ NUMBER ]^PN^P;
  3152. [   OF   ]^PN^P;
  3153. [ STAIRS ]^PN^P;
  3154. [--------]^PN^P;
  3155.  
  3156. [--------]^PF^P;
  3157. [ FLOOR- ]^PF^P;
  3158. [  TO-   ]^PF^P;
  3159. [ FLOOR  ]^PF^P;
  3160. [ HEIGHT ]^PF^P;
  3161. [--------]^PF^P;
  3162.  
  3163.  
  3164. [<CANCEL>]^C^C(F:CLS) $S=S
  3165. **A1026SHJ 3
  3166. [Window  ]
  3167. [pattern ]
  3168.  
  3169.  
  3170. [--------]^PA^P;
  3171. [        ]^PA^P;
  3172. [   A    ]^PA^P;
  3173. [        ]^PA^P;
  3174. [--------]^PA^P;
  3175.  
  3176. [--------]^PB^P;
  3177. [        ]^PB^P;
  3178. [   B    ]^PB^P;
  3179. [        ]^PB^P;
  3180. [--------]^PB^P;
  3181.  
  3182.  
  3183. [<CANCEL>]^C^C(F:CLS) $S=S
  3184. **ab101 3
  3185. [Note   ]
  3186.  
  3187.  
  3188. [--------]arrow
  3189. [        ]arrow
  3190. [ ARROW  ]arrow
  3191. [        ]arrow
  3192. [--------]arrow
  3193.  
  3194. [--------]note
  3195. [        ]note
  3196. [  NOTE  ]note
  3197. [        ]note
  3198. [--------]note
  3199.  
  3200.  
  3201.  
  3202. [<CANCEL>]^C^C(F:CLS) $S=S
  3203. **ab101a 3
  3204. [Note    ]
  3205.  
  3206.  
  3207. [ARROW   ]^PT^P;
  3208. [ HEAD   ]^PT^P;
  3209. [TYPE    ]^PT^P;
  3210.  
  3211. [ARROW   ]^PS^P;
  3212. [ HEAD   ]^PS^P;
  3213. [SCALE   ]^PS^P;
  3214.  
  3215. [LAYER   ]^PL^P;
  3216.  
  3217. [TEXT    ]^PH^P;
  3218. [HEIGHT  ]^PH^P;
  3219.  
  3220.  
  3221. [<CANCEL>]^C^C(F:CLS) $S=S
  3222. **ab101b 3
  3223. [Layer   ]
  3224.  
  3225.  
  3226. [ARNOTE  ]^PA^P;
  3227.  
  3228. [OTHER   ]^PO^P;
  3229.  
  3230.  
  3231.  
  3232. [SCREEN  ]^PS^P;
  3233. [PICK    ]^PP^P;
  3234.  
  3235.  
  3236.  
  3237.  
  3238.  
  3239.  
  3240. [<CANCEL>]^C^C(F:CLS) $S=S
  3241. **ab101c 3
  3242. [Type    ]
  3243.  
  3244.  
  3245. [A       ]^PA^P;
  3246.  
  3247. [B       ]^PB^P;
  3248.  
  3249. [C       ]^PC^P;
  3250.  
  3251. [D       ]^PD^P;
  3252.  
  3253. [OTHER   ]^PO^P;
  3254.  
  3255.  
  3256.  
  3257.  
  3258.  
  3259. [<CANCEL>]^C^C(F:CLS) $S=S
  3260. **ad03a 3
  3261. [ Door   ]
  3262. [ width  ]
  3263.  
  3264. [2'-0"   ]^P2'^P;
  3265. [2'-2"   ]^P2'2^P;
  3266.  
  3267. [2'-4"   ]^P2'4^P;
  3268. [2'-6"   ]^P2'6^P;
  3269.  
  3270. [2'-8"   ]^P2'8^P;
  3271. [2'-10"  ]^P2'10^P;
  3272.  
  3273. [3'-0"   ]^P3'^P;
  3274. [3'-6"   ]^P3'6^P;
  3275. [<OTHER> ]$S=au001s1
  3276.  
  3277.  
  3278. [<CANCEL>]^C^C(F:CLS) $S=S
  3279. **ad02a 3
  3280. [Store   ]
  3281. [ fronts ]
  3282.  
  3283.  
  3284. [--------]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  3285. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3286. [UNIFORM ]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  3287. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3288. [PANEL   ]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  3289. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3290. [        ]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  3291. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3292. [--------]^C^C(F:LODF "a:a01a");(F:LODF "a:a01b");+
  3293. (progn(setq f:list '(a:a01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3294.  
  3295.  
  3296. [--------]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  3297. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3298. [ALTERNAT]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  3299. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3300. [PANEL   ]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  3301. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3302. [        ]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  3303. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3304. [--------]^C^C(F:LODF "a:c01a");(F:LODF "a:c01b");+
  3305. (progn(setq f:list '(a:c01b "ARGLAZING" "ARWALL" "ARWINDOW"))(princ))(f:rept nil);
  3306.  
  3307. [<CANCEL>]^C^C(F:CLS) $S=S
  3308. **ad03b 3
  3309. [Door   ]
  3310. [height]
  3311.  
  3312.  
  3313.  
  3314. [6'-8"  ]^P6'8^P;
  3315.  
  3316. [7'-0"  ]^P7'^P;
  3317.  
  3318. [8'-0"  ]^P8'^P;
  3319.  
  3320. [9'-0"  ]^P9'^P;
  3321.  
  3322. [10'-0" ]^P10'^P;
  3323. [<OTHER> ]$S=au001s1
  3324.  
  3325.  
  3326. [<CANCEL>]^C^C(F:CLS) $S=S
  3327. **ad081 3
  3328. [Break   ]
  3329. [symbol  ]
  3330.  
  3331.  
  3332.  
  3333. [- - - - ]^Pscale^P;
  3334. [SIZE OF ]^Pscale^P;
  3335. [BREAK   ]^Pscale^P;
  3336. [SYMBOL  ]^Pscale^P;
  3337. [- - - - ]^Pscale^P;
  3338.  
  3339.  
  3340.  
  3341.  
  3342.  
  3343.  
  3344.  
  3345. [<CANCEL>]^C^C(F:CLS) $S=S
  3346. **ad081a 3
  3347. [Plotted ]
  3348. [break   ]
  3349. [symbol  ]
  3350. [size    ]
  3351.  
  3352. [   1/16"]^P0.0625^P;
  3353.  
  3354. [   1/8" ]^P0.125^P;
  3355.  
  3356. [   3/16"]^P0.1875^P;
  3357.  
  3358. [   1/4" ]^P0.25^P;
  3359.  
  3360. [<OTHER> ]$s=au001s1
  3361.  
  3362.  
  3363.  
  3364. [<CANCEL>]^C^C(F:CLS) $S=S
  3365. **ae01sa 3
  3366. [Attrbuts]
  3367.  
  3368.  
  3369. [Prompts ]
  3370. [NUM ONLY]^Csetvar useri2 49;+
  3371. (progn (terpri)(prompt " ")(terpri)+
  3372. (prompt "You will be prompted only for attribute numbers.")(princ))
  3373. [ALL   ]^Csetvar useri2 0;+
  3374. (progn (terpri)(prompt " ")(terpri)+
  3375. (prompt "You will be prompted for all attributes.")(princ))
  3376. [OFF   ]^Csetvar useri2 1 +
  3377. (progn (terpri)(prompt " ")(terpri)+
  3378. (prompt "You will not be prompted for any attributes.")(princ))
  3379.  
  3380.  
  3381. [INSERT  ]$S=ae01sb
  3382. [BLOCK   ]$S=ae01sb
  3383.  
  3384. [EDIT    ]^C^C(F:LODF "a:b05e");(a:b05e)
  3385. [ATTRBUTS]^C^C(F:LODF "a:b05e");(a:b05e)
  3386.  
  3387.  
  3388.  
  3389. [<CANCEL>]^C^C(F:CLS) $S=S
  3390. **ae01sb 3
  3391. [insert  ]
  3392. [attrbuts]
  3393.  
  3394. [WINDOWS]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "WIDFLT" "auw1das" '() "ARWINDOWSPEC"))(princ))(f:rept nil);
  3395. [DOORS]^C^C(F:LODF "a:zatb") (progn (setq f:list '(a:zatb "DODFLT" "aud1das" '() "ARDOORSPEC"))(princ))(f:rept nil);
  3396.  
  3397. [STRCTURE]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "STDFLT" "au012t1" '() "STSPEC"))(princ))(f:rept nil);
  3398. [PLUMBING]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "PLDFLT" "au013t1" '() "MPFIXTSPEC"))(princ))(f:rept nil);
  3399.  
  3400. [TOILET]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "TODFLT" "au014t1" '() "ARACCSPEC"))(princ))(f:rept nil);
  3401. [LIGHTING]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "LIDFLT" "au015t1" '() "EELIGHTSPEC"))(princ))(f:rept nil);
  3402. [FURNITUR]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "FUDFLT" "au017t1" '() "FMSPEC"))(princ))(f:rept nil);
  3403.  
  3404. [APPLIANC]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "APDFLT" "au016t1" '() "ARAPPLSPEC"))(princ))(f:rept nil);
  3405. [CAB FIN]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "CADFLT" "au019t1" '() "artag"))(princ))(f:rept "A1084S1");
  3406. [ROOM FIN]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "RODFLT" "au018t1" '() "artag"))(princ))(f:rept "A1084S1");
  3407.  
  3408. [<CANCEL>]^C^C(F:CLS) $S=S
  3409. **ae01a 3
  3410. [ Case   ]
  3411. [ width  ]
  3412.  
  3413. [ 5'-0"  ]^P60^P;
  3414.  
  3415. [ 6'-0"  ]^P72^P;
  3416.  
  3417. [ 8'-0"  ]^P96^P;
  3418.  
  3419. [ 9'-0"  ]^P108^P;
  3420.  
  3421. [10'-0"  ]^P120^P;
  3422.  
  3423. [12'-0"  ]^P144^P;
  3424.  
  3425. [<OTHER> ]$S=AU001S1
  3426.  
  3427. [<CANCEL>]^C^C(F:CLS) $S=S
  3428. **ae01c 3
  3429. [ Case   ]
  3430. [ width  ]
  3431.  
  3432. [2'-0"   ]^P2'^P;
  3433. [2'-2"   ]^P2'2^P;
  3434.  
  3435. [2'-4"   ]^P2'4^P;
  3436. [2'-6"   ]^P2'6^P;
  3437.  
  3438. [2'-8"   ]^P2'8^P;
  3439. [2'-10"  ]^P2'10^P;
  3440.  
  3441. [3'-0"   ]^P3'^P;
  3442. [3'-6"   ]^P3'6^P;
  3443. [<OTHER> ]$S=au001s1
  3444.  
  3445.  
  3446. [<CANCEL>]^C^C(F:CLS) $S=S
  3447. **ae01d 3
  3448. [Case  ]
  3449. [height]
  3450.  
  3451.  
  3452.  
  3453. [6'-8"  ]^P6'8^P;
  3454.  
  3455. [7'-0"  ]^P7'^P;
  3456.  
  3457. [8'-0"  ]^P8'^P;
  3458.  
  3459. [9'-0"  ]^P9'^P;
  3460.  
  3461. [10'-0" ]^P10'^P;
  3462.  
  3463.  
  3464.  
  3465. [<CANCEL>]^C^C(F:CLS) $S=S
  3466. **AS091 3
  3467. [Text    ]
  3468. [Utility ]
  3469.  
  3470.  
  3471. [IMPORT  ]^C^C(F:LODF "a:rtxt") (progn(setq f:list '(a:rtxt))(princ))(f:rept "as091");
  3472. [ TEXT   ]^C^C(F:LODF "a:rtxt") (progn(setq f:list '(a:rtxt))(princ))(f:rept "as091");
  3473. [ FILE   ]^C^C(F:LODF "a:rtxt") (progn(setq f:list '(a:rtxt))(princ))(f:rept "as091");
  3474.  
  3475.  
  3476. [CHANGE  ]^C^C(F:LODF "a:ctxt") (progn(setq f:list '(a:ctxt))(princ))(f:rept "as091");
  3477. [ TEXT   ]^C^C(F:LODF "a:ctxt") (progn(setq f:list '(a:ctxt))(princ))(f:rept "as091");
  3478. [STRING  ]^C^C(F:LODF "a:ctxt") (progn(setq f:list '(a:ctxt))(princ))(f:rept "as091");
  3479.  
  3480.  
  3481.  
  3482.  
  3483.  
  3484. [<CANCEL>]^C^C$s=s
  3485. **af04a 3
  3486. [Edit   ]
  3487.  
  3488. [INSTALL ]^C^C(progn (f:lodf "a:doin") (f:lodf "a:util") +
  3489. (f:lodf "a:dobw") (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") +
  3490. (f:lodf "a:dof1") (setq f:list '(a:doin "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3491. "doerror" "wierror"))(princ)) (f:rept nil);
  3492.  
  3493. [MODES   ]^C^C(F:PRMP) $S=adomodes
  3494.  
  3495. [STATUS]^C^C(f:lodf "a:doos") (f:lodf "a:t031")    (a:t031)
  3496.  
  3497. [ATTRBUTS]^C^C(F:PRMP) $S=af04b
  3498.  
  3499.  
  3500. [OFFSET]^C^C(F:ERR) (F:UNDO) (f:lodf "a:util") (f:lodf "a:doof") +
  3501. (f:lodf "a:dor1") (f:lodf "a:dobw") (f:lodf "a:dobs") (f:lodf "a:dobc") +
  3502. (f:lodf "a:dodh") (progn (setq f:list +
  3503. '(a:doof "ARWALL" "ARDOOR" "ARHEADER" "ARGLAZING" "ARWHEADER")) +
  3504. (princ)) (f:rept "af04a");
  3505.  
  3506. [REMOVE  ]^C^C(F:ERR) (F:UNDO) +
  3507. (f:lodf "a:dorm") (f:lodf "a:dor1") (f:lodf "a:util") +
  3508. (progn (setq f:list '(a:dorm "ARWALL" "ARDOOR" "ARHEADER" "ARGLAZING" "ARWHEADER")) +
  3509. (princ)) (f:rept "af04a");
  3510.  
  3511. [DR SWING]^C^C(F:PRMP) $s=af04c
  3512.  
  3513. [<CANCEL>]^C^C$S=S
  3514. **af04b 3
  3515. [Attrbuts]
  3516.  
  3517. [Prompts ]
  3518. [NUM ONLY]^Csetvar useri2 49;+
  3519. (progn (terpri)(prompt " ")(terpri)+
  3520. (prompt "You will be prompted only for attribute numbers.")(princ))
  3521. [ALL   ]^Csetvar useri2 0;+
  3522. (progn (terpri)(prompt " ")(terpri)+
  3523. (prompt "You will be prompted for all attributes.")(princ))
  3524. [OFF   ]^Csetvar useri2 1 +
  3525. (progn (terpri)(prompt " ")(terpri)+
  3526. (prompt "You will not be prompted for any attributes.")(princ))
  3527.  
  3528. [Insert  ]
  3529. [block:  ]
  3530. [DOOR    ]^C^C(F:LODF "a:zatb") (progn (setq f:list '(a:zatb "DODFLT" "aud1das" '() "ARDOORSPEC"))(princ))(f:rept nil);
  3531. [WINDOW  ]^C^C(F:LODF "a:zatb") (progn (setq f:list '(a:zatb "WIDFLT" "auw1das" '() "ARWINDOWSPEC"))(princ))(f:rept nil);
  3532.  
  3533. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  3534. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  3535.  
  3536.  
  3537. [ <LAST>]^C^C(F:CLS) (F:PRMP) $S=
  3538. [<CANCEL>]^C^C$s=s
  3539. **af04c 3
  3540. [Door Swg]
  3541.  
  3542. [Set to: ]
  3543. [ CLOSED ]^C^C+
  3544. (setq v:d_sw "0") +
  3545. (progn(terpri)(prompt "Door swing set to 0 degrees (closed).");+
  3546. (prompt "However, it does not affect Fastdoor. ") +
  3547. (princ))
  3548. [ 45 DEG.]^C^C+
  3549. (setq v:d_sw "1") +
  3550. (progn(terpri)(prompt "Door swing set to 45 degrees. ");+
  3551. (prompt "However, it does not affect Fastdoor.") +
  3552. (princ))
  3553. [ 90 DEG.]^C^C+
  3554. (setq v:d_sw "2") +
  3555. (progn(terpri)(prompt "Door swing set to 90 degrees. ");+
  3556. (prompt "However, it does not affect Fastdoor. ") +
  3557. (princ))
  3558. [180 DEG.]^C^C+
  3559. (setq v:d_sw "3") +
  3560. (progn(terpri)(prompt "Door swing set to 180 degrees.");+
  3561. (prompt "However, it does not affect Fastdoor. ") +
  3562. (princ))
  3563.  
  3564. [Change: ]
  3565. [ CLOSED ]^C^C(f:lodf "a:f041") (setq f:list '(a:f041 0 "0" "ardoor"))(f:rept "af04c");
  3566. [ 45 DEG.]^C^C(f:lodf "a:f041") (setq f:list '(a:f041 45 "1" "ardoor"))(f:rept "af04c");
  3567. [ 90 DEG.]^C^C(f:lodf "a:f041") (setq f:list '(a:f041 90 "2" "ardoor"))(f:rept "af04c");
  3568. [180 DEG.]^C^C(f:lodf "a:f041") (setq f:list '(a:f041 180 "3" "ardoor"))(f:rept "af04c");
  3569.  
  3570. [REFLECT]^C^C(F:LODF "a:dors") (setq f:list '(a:dors "ARDOOR"))(f:rept "af04c");
  3571.  
  3572. [PREVIOUS]$s=af04a
  3573. [<CANCEL>]^C^C$s=s
  3574. **adomodes 3
  3575. [Modes  ]
  3576.  
  3577. [Fastdoor]
  3578. [ON      ]^C^C(progn(setq v:d_fd T)(terpri)(prompt "Fastdoor mode is on.")(princ))
  3579. [OFF     ]^C^C(progn(setq v:d_fd nil)(terpri)(prompt "Fastdoor mode is off.")(princ))
  3580.  
  3581. [Door Hdr]
  3582. [ON      ]^C^C(progn(setq v:dhdr T)(command "layer" "on" "arheader" "")(terpri)(prompt "Door header layer is on.")(princ))
  3583. [OFF     ]^C^C(progn(setq v:dhdr nil)(command "layer" "off" "arheader" "")(terpri)(prompt "Door header layer is off.")(princ))
  3584.  
  3585. [INITIAL ]^C^C(f:undo);(f:err);(f:lodf "a:doos") (a:doos T)
  3586. [OSNAP   ]^C^C(f:undo);(f:err);(f:lodf "a:doos") (a:doos T)
  3587.  
  3588. [ROT. ANG]^C^C+
  3589. (progn(setq v:d_ro (f:aqs "au004do" "Enter initial rotation angle" v:d_ro))(princ));
  3590. [ <MORE> ]$s=adomod2
  3591. [ <LAST> ]$s=
  3592. [<MODES1>]$s=ab01s1
  3593. [<CANCEL>]^C^C$s=s
  3594. **adomodes1 3
  3595. [Door    ]
  3596.  
  3597. [Prompt  ]
  3598. [for:    ]
  3599.  
  3600. [SILL    ]^C^C+
  3601. (progn (setq v:d_hs (strcat "s" (substr v:d_hs 2 1))) (f:cls) +
  3602. (prompt "Sill height will be prompted during the 3-D door insertion.") +
  3603. (princ))
  3604. [HEIGHT  ]^C^C+
  3605. (progn (setq v:d_hs (strcat "s" (substr v:d_hs 2 1))) (f:cls) +
  3606. (prompt "Sill height will be prompted during the 3-D door insertion.") +
  3607. (princ))
  3608.  
  3609. [HEADER  ]^C^C+
  3610. (progn (setq v:d_hs (strcat "h" (substr v:d_hs 2 1))) (f:cls) +
  3611. (prompt "Header height will be prompted during the 3-D door insertion.") +
  3612. (princ))
  3613. [HEIGHT  ]^C^C+
  3614. (progn (setq v:d_hs (strcat "h" (substr v:d_hs 2 1))) (f:cls) +
  3615. (prompt "Header height will be prompted during the 3-D door insertion.") +
  3616. (princ))
  3617.  
  3618. [NONE    ]^C^C+
  3619. (progn (setq v:d_hs (strcat "n" (substr v:d_hs 2 1))) (f:cls) +
  3620. (prompt "Sill or header height will not be prompted during the 3-D door insertion.") +
  3621. (princ))
  3622.  
  3623. [SET     ]^C^C+
  3624. (progn (setq v:dsht (f:aqd "ado0sill" "Enter sill height" v:dsht nil)) (princ)) \
  3625. [SILL HT.]^C^C+
  3626. (progn (setq v:dsht (f:aqd "ado0sill" "Enter sill height" v:dsht nil)) (princ)) \
  3627.  
  3628. [ <LAST> ]$s=
  3629. [<CANCEL>]^C^C$s=s
  3630. **adomodes2 3
  3631. [Window  ]
  3632.  
  3633. [Prompt  ]
  3634. [for:    ]
  3635.  
  3636. [SILL    ]^C^C+
  3637. (progn (setq v:d_hs (strcat (substr v:d_hs 1 1) "s")) (f:cls) +
  3638. (prompt "Sill height will be prompted during the 3-D window insertion.") +
  3639. (princ))
  3640. [HEIGHT  ]^C^C+
  3641. (progn (setq v:d_hs (strcat (substr v:d_hs 1 1) "s")) (f:cls) +
  3642. (prompt "Sill height will be prompted during the 3-D window insertion.") +
  3643. (princ))
  3644.  
  3645. [HEADER  ]^C^C+
  3646. (progn (setq v:d_hs (strcat (substr v:d_hs 1 1) "h")) (f:cls) +
  3647. (prompt "Header height will be prompted during the 3-D window insertion.") +
  3648. (princ))
  3649. [HEIGHT  ]^C^C+
  3650. (progn (setq v:d_hs (strcat (substr v:d_hs 1 1) "h")) (f:cls) +
  3651. (prompt "Header height will be prompted during the 3-D window insertion.") +
  3652. (princ))
  3653.  
  3654.  
  3655.  
  3656. [SET     ]^C^C+
  3657. (progn (setq v:wsht (f:aqd "awi0sill" "Enter sill height" v:wsht nil)) (princ)) \
  3658. [SILL HT.]^C^C+
  3659. (progn (setq v:wsht (f:aqd "awi0sill" "Enter sill height" v:wsht nil)) (princ)) \
  3660.  
  3661. [ <LAST> ]$s=
  3662. [<CANCEL>]^C^C$s=s
  3663. **adoos 3
  3664. [Initial ]
  3665. [osnap   ]
  3666.  
  3667. [ENDpoint]1;$s=
  3668. [INTersec]32;$s=
  3669.  
  3670. [MIDpoint]2;$s=
  3671. [NEARest ]512;$s=
  3672.  
  3673. [NODe    ]8;$s=
  3674. [NONe    ]0;$s=
  3675.  
  3676. [QUAdrant]16;$s=
  3677.  
  3678. [INT.&END]33;$s=
  3679. [END &MID]3;$s=
  3680. [ <LAST> ]$s=
  3681. [<CANCEL>]^C^C$s=s
  3682. **adomain1 3
  3683. [Dr/windw]
  3684.  
  3685. [TYPE    ]^C^C$s=adotype1 (progn (f:undo) (f:err) +
  3686. (setq v:d_nd "" v:d_sh v:dsht v:d_ht v:dht v:d_cv T +
  3687. f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3688. "aud1das" "ARDOORSPEC")) (f:cls) +
  3689. (prompt "Select an opening type: ") (setq v:d_tp (getstring)) (princ)) \
  3690.  
  3691. [SIZE    ]^C^C(progn (f:undo) (f:err) +
  3692. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3693. (getvar "tracewid") (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3694. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC")) (princ))
  3695.  
  3696. [INS. PT ]^C^C(f:lodf "a:domr") (a:dois) \+
  3697. (progn (setq f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" +
  3698. "arwheader" (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3699. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC"))) +
  3700. (f:rept "adomain1") (princ))
  3701.  
  3702. [MIRROR  ]^C^C+
  3703. (f:lodf "a:domr") (a:domr) +
  3704. (progn (setq f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" +
  3705. "arwheader" (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3706. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC"))) +
  3707. (f:rept "adomain1") (princ))
  3708.  
  3709. [OSNAP   ]^C^C(progn (f:undo) (f:err) (a:doos T) +
  3710. (setq f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3711. (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3712. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC"))) +
  3713. (f:rept "adomain1") (princ)) \
  3714.  
  3715. [ROT. ANG]^C^C(progn +
  3716. (setq v:d_ro (f:aqs "au004do" "Enter initial rotation angle" v:d_ro))(princ)) \+
  3717. (progn(setq f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3718. (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3719. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC"))) +
  3720. (f:rept "adomain1") (princ))
  3721.  
  3722.  
  3723. [UNDO    ]^C^C(progn (f:undo) (f:err) +
  3724. (a:dof4 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3725. (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3726. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC")) (princ))
  3727. [INSTALL ]^C^C(progn (f:lodf "a:doin") (f:lodf "a:util") +
  3728. (f:lodf "a:dobw") (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") +
  3729. (f:lodf "a:dof1") (setq f:list '(a:doin "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3730. "doerror" "wierror"))(princ)) (f:rept nil);
  3731. [<CANCEL>]^C^C$s=s
  3732. **adomod2 3
  3733. [Modes  ]
  3734.  
  3735. [2-pt ins]
  3736. [ON      ]^C^C(setq V:2PT T) (progn (terpri)(prompt " ")(terpri)+
  3737. (prompt "2pt insertion mode is on.")(princ))
  3738. [OFF     ]^C^C(setq V:2PT nil) (progn (terpri)(prompt " ")(terpri)+
  3739. (prompt "2pt insertion mode is off.")(princ))
  3740.  
  3741.  
  3742. [Sill/hdr]
  3743. [height: ]
  3744. [DOOR    ]^C^C$s=adomodes1
  3745. [WINDOW  ]^C^C$s=adomodes2
  3746.  
  3747.  
  3748. [ERROR   ]^C^C(f:prmp) $S=AJ01B
  3749. [MESSAGES]^C^C(f:prmp) $S=AJ01B
  3750.  
  3751. [ <LAST> ]$s=adomodes
  3752. [<CANCEL>]^C^C$s=s
  3753. **adomain2 3
  3754. [Dr/windw]
  3755. [options ]
  3756.  
  3757. [TYPE    ]^C^C$s=adotype1 (progn (f:undo) (f:err) +
  3758. (setq v:d_nd "" v:d_sh v:dsht v:d_ht v:dht v:d_cv T +
  3759. f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3760. "aud1das" "ARDOORSPEC")) (f:cls) +
  3761. (prompt "Select an opening type: ") (setq v:d_tp (getstring)) (princ)) \
  3762.  
  3763. [SIZE    ]^C^C(progn (f:undo) (f:err) +
  3764. (a:dof1 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3765. (getvar "tracewid") (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3766. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC")) (princ))
  3767.  
  3768. [INS. PT ]^C^C(f:lodf "a:domr") (a:dois) \+
  3769. (progn (setq f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" +
  3770. "arwheader" (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3771. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC"))) +
  3772. (f:rept "adomain1") (princ))
  3773.  
  3774. [UNDO    ]^C^C(progn (f:undo) (f:err) +
  3775. (a:dof4 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3776. (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3777. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC")) (princ))
  3778.  
  3779. [MIRROR  ]^C^C+
  3780. (f:lodf "a:domr") (a:domr) +
  3781. (progn (setq f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" +
  3782. "arwheader" (if (= v:d_tp "wi0") "auw1das" "aud1das") +
  3783. (if (= v:d_tp "wi0") "ARWINDOWSPEC" "ARDOORSPEC"))) +
  3784. (f:rept "adomain1") (princ))
  3785.  
  3786. [ROT. ANG]$s=au004s1
  3787.  
  3788. [INSTALL ]^C^C(progn (f:lodf "a:doin") (f:lodf "a:util") +
  3789. (f:lodf "a:dobw") (f:lodf "a:dobs") (f:lodf "a:dobc") (f:lodf "a:dodh") +
  3790. (f:lodf "a:dof1") (setq f:list '(a:doin "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3791. "doerror" "wierror"))(princ)) (f:rept nil);
  3792.  
  3793. [<CANCEL>]^C^C$s=s
  3794. **adotype1 3
  3795. [Dr type ]
  3796.  
  3797. [Single  ]
  3798. [leaf:   ]
  3799.  
  3800. [LEFT    ]do0 +
  3801. (progn (setq v:d_wd v:dwd) +
  3802. (f:rept nil) (princ))
  3803.  
  3804. [RIGHT   ]do1 +
  3805. (progn (setq v:d_wd v:dwd) +
  3806. (f:rept nil) (princ))
  3807.  
  3808. [DOUBLE  ]$s=adotype5
  3809. [SWING   ]$s=adotype5
  3810.  
  3811. [WINDOW  ]wi0 +
  3812. (progn (setq v:d_wd v:wwd v:d_ht v:wht v:d_sh v:wsht +
  3813.       f:list '(a:dof2 "arwall" "ardoor" "arheader" "arglazing" "arwheader" +
  3814. "auw1das" "ARWINDOWSPEC")) +
  3815. (f:rept nil) (princ))
  3816.  
  3817. [DBL LEAF]$s=adotype2
  3818.  
  3819. [ <MORE> ]$s=adotype3
  3820. [<CANCEL>]^C^C$s=s
  3821. **adotype2 3
  3822. [Dr type ]
  3823.  
  3824. [Double  ]
  3825. [leaf:   ]
  3826.  
  3827. [SINGLE  ]do4 +
  3828. (progn (setq v:d_wd v:ddwd) +
  3829. (f:rept nil) (princ))
  3830. [SWING   ]do4 +
  3831. (progn (setq v:d_wd v:ddwd) +
  3832. (f:rept nil) (princ))
  3833.  
  3834. [DOUBLE  ]do5 +
  3835. (progn (setq v:d_wd v:ddwd) +
  3836. (f:rept nil) (princ))
  3837. [SWING   ]do5 +
  3838. (progn (setq v:d_wd v:ddwd) +
  3839. (f:rept nil) (princ))
  3840.  
  3841.  
  3842.  
  3843.  
  3844. [SGL LEAF]$s=adotype1
  3845.  
  3846. [ <MORE> ]$s=adotype3
  3847. [<CANCEL>]^C^C$s=s
  3848. **adotype3 3
  3849. [Dr type ]
  3850.  
  3851. [CASED OP]do6 +
  3852. (progn (setq v:d_wd v:cdwd) +
  3853. (f:rept nil) (princ))
  3854.  
  3855. [SLIDING ]$s=adotype6
  3856.  
  3857. [GARAGE  ]do9 +
  3858. (progn (setq v:d_wd v:gdwd) +
  3859. (f:rept nil) (princ))
  3860.  
  3861. [POCKET  ]$s=adotype7
  3862.  
  3863. [BI-FOLD ]$s=adotype8
  3864.  
  3865.  
  3866.  
  3867. [SGL LEAF]$s=adotype1
  3868.  
  3869. [DBL LEAF]$s=adotype2
  3870. [<CANCEL>]^C^C$s=s
  3871. **adotype4 3
  3872. [Number  ]
  3873. [of doors]
  3874.  
  3875. [--------]^C^C+
  3876. (progn (setq v:d_nd "2") +
  3877. (f:rept nil) (princ))
  3878. [   2    ]^C^C+
  3879. (progn (setq v:d_nd "2") +
  3880. (f:rept nil) (princ))
  3881. [--------]^C^C+
  3882. (progn (setq v:d_nd "2") +
  3883. (f:rept nil) (princ))
  3884.  
  3885.  
  3886. [--------]^C^C+
  3887. (progn (setq v:d_tp "do7" v:d_nd "3") +
  3888. (f:rept nil) (princ))
  3889. [   3    ]^C^C+
  3890. (progn (setq v:d_tp "do7" v:d_nd "3") +
  3891. (f:rept nil) (princ))
  3892. [--------]^C^C+
  3893. (progn (setq v:d_tp "do7" v:d_nd "3") +
  3894. (f:rept nil) (princ))
  3895.  
  3896.  
  3897. [--------]^C^C+
  3898. (progn (setq v:d_tp "do7" v:d_nd "4") +
  3899. (f:rept nil) (princ))
  3900. [   4    ]^C^C+
  3901. (progn (setq v:d_tp "do7" v:d_nd "4") +
  3902. (f:rept nil) (princ))
  3903. [--------]^C^C+
  3904. (progn (setq v:d_tp "do7" v:d_nd "4") +
  3905. (f:rept nil) (princ))
  3906.  
  3907. [<CANCEL>]^C^C$s=s
  3908. **adotype5 3
  3909. [Double  ]
  3910. [swing   ]
  3911.  
  3912. [--------]do2 +
  3913. (progn (setq v:d_wd v:dwd) +
  3914. (f:rept nil) (princ))
  3915. [        ]do2 +
  3916. (progn (setq v:d_wd v:dwd) +
  3917. (f:rept nil) (princ))
  3918. [LEFT    ]do2 +
  3919. (progn (setq v:d_wd v:dwd) +
  3920. (f:rept nil) (princ))
  3921. [        ]do2 +
  3922. (progn (setq v:d_wd v:dwd) +
  3923. (f:rept nil) (princ))
  3924. [--------]do2 +
  3925. (progn (setq v:d_wd v:dwd) +
  3926. (f:rept nil) (princ))
  3927.  
  3928.  
  3929. [--------]do3 +
  3930. (progn (setq v:d_wd v:dwd) +
  3931. (f:rept nil) (princ))
  3932. [        ]do3 +
  3933. (progn (setq v:d_wd v:dwd) +
  3934. (f:rept nil) (princ))
  3935. [RIGHT   ]do3 +
  3936. (progn (setq v:d_wd v:dwd) +
  3937. (f:rept nil) (princ))
  3938. [        ]do3 +
  3939. (progn (setq v:d_wd v:dwd) +
  3940. (f:rept nil) (princ))
  3941. [--------]do3 +
  3942. (progn (setq v:d_wd v:dwd) +
  3943. (f:rept nil) (princ))
  3944.  
  3945.  
  3946. [<CANCEL>]^C^C$s=s
  3947. **adotype6 3
  3948. [Sliding ]
  3949. [glass   ]
  3950.  
  3951. [--------]do7 +
  3952. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3953. (prompt "Select number of doors from the screen menu: ") (princ))
  3954. [        ]do7 +
  3955. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3956. (prompt "Select number of doors from the screen menu: ") (princ))
  3957. [LEFT    ]do7 +
  3958. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3959. (prompt "Select number of doors from the screen menu: ") (princ))
  3960. [        ]do7 +
  3961. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3962. (prompt "Select number of doors from the screen menu: ") (princ))
  3963. [--------]do7 +
  3964. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3965. (prompt "Select number of doors from the screen menu: ") (princ))
  3966.  
  3967.  
  3968. [--------]do8 +
  3969. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3970. (prompt "Select number of doors from the screen menu: ") (princ))
  3971. [        ]do8 +
  3972. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3973. (prompt "Select number of doors from the screen menu: ") (princ))
  3974. [RIGHT   ]do8 +
  3975. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3976. (prompt "Select number of doors from the screen menu: ") (princ))
  3977. [        ]do8 +
  3978. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3979. (prompt "Select number of doors from the screen menu: ") (princ))
  3980. [--------]do8 +
  3981. $s=adotype4 (progn (setq v:d_wd v:sdwd) (f:cls) +
  3982. (prompt "Select number of doors from the screen menu: ") (princ))
  3983.  
  3984.  
  3985. [<CANCEL>]^C^C$s=s
  3986. **adotype7 3
  3987. [Pocket  ]
  3988.  
  3989.  
  3990. [--------]doa +
  3991. (progn (setq v:d_wd v:pdwd) +
  3992. (f:rept nil) (princ))
  3993. [        ]doa +
  3994. (progn (setq v:d_wd v:pdwd) +
  3995. (f:rept nil) (princ))
  3996. [LEFT    ]doa +
  3997. (progn (setq v:d_wd v:pdwd) +
  3998. (f:rept nil) (princ))
  3999. [        ]doa +
  4000. (progn (setq v:d_wd v:pdwd) +
  4001. (f:rept nil) (princ))
  4002. [--------]doa +
  4003. (progn (setq v:d_wd v:pdwd) +
  4004. (f:rept nil) (princ))
  4005.  
  4006.  
  4007.  
  4008. [--------]dob +
  4009. (progn (setq v:d_wd v:pdwd) +
  4010. (f:rept nil) (princ))
  4011. [        ]dob +
  4012. (progn (setq v:d_wd v:pdwd) +
  4013. (f:rept nil) (princ))
  4014. [RIGHT   ]dob +
  4015. (progn (setq v:d_wd v:pdwd) +
  4016. (f:rept nil) (princ))
  4017. [        ]dob +
  4018. (progn (setq v:d_wd v:pdwd) +
  4019. (f:rept nil) (princ))
  4020. [--------]dob +
  4021. (progn (setq v:d_wd v:pdwd) +
  4022. (f:rept nil) (princ))
  4023.  
  4024. [<CANCEL>]^C^C$s=s
  4025. **adotype8 3
  4026. [Bi-fold ]
  4027.  
  4028.  
  4029. [--------]doc +
  4030. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4031. (princ))
  4032. [        ]doc +
  4033. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4034. (princ))
  4035. [LEFT    ]doc +
  4036. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4037. (princ))
  4038. [        ]doc +
  4039. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4040. (princ))
  4041. [--------]doc +
  4042. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4043. (princ))
  4044.  
  4045.  
  4046. [--------]dod +
  4047. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4048. (princ))
  4049. [        ]dod +
  4050. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4051. (princ))
  4052. [RIGHT   ]dod +
  4053. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4054. (princ))
  4055. [        ]dod +
  4056. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4057. (princ))
  4058. [--------]dod +
  4059. $s=adotype9 (progn (prompt "Select number of doors from the screen menu: ") +
  4060. (princ))
  4061.  
  4062.  
  4063. [<CANCEL>]^C^C$s=s
  4064. **adotype9 3
  4065. [Bi-fold ]
  4066.  
  4067.  
  4068. [--------]^C^C(progn (setq v:d_nd "2" v:d_wd v:bdwd) (f:cls) +
  4069. (f:rept nil) (princ))
  4070. [        ]^C^C(progn (setq v:d_nd "2" v:d_wd v:bdwd) (f:cls) +
  4071. (f:rept nil) (princ))
  4072. [SINGLE  ]^C^C(progn (setq v:d_nd "2" v:d_wd v:bdwd) (f:cls) +
  4073. (f:rept nil) (princ))
  4074. [        ]^C^C(progn (setq v:d_nd "2" v:d_wd v:bdwd) (f:cls) +
  4075. (f:rept nil) (princ))
  4076. [--------]^C^C(progn (setq v:d_nd "2" v:d_wd v:bdwd) (f:cls) +
  4077. (f:rept nil) (princ))
  4078.  
  4079.  
  4080. [--------]^C^C(progn (setq v:d_tp "doc" v:d_nd "4" v:d_wd v:bdwd) (f:cls) +
  4081. (f:rept nil) (princ))
  4082. [        ]^C^C(progn (setq v:d_tp "doc" v:d_nd "4" v:d_wd v:bdwd) (f:cls) +
  4083. (f:rept nil) (princ))
  4084. [DOUBLE  ]^C^C(progn (setq v:d_tp "doc" v:d_nd "4" v:d_wd v:bdwd) (f:cls) +
  4085. (f:rept nil) (princ))
  4086. [        ]^C^C(progn (setq v:d_tp "doc" v:d_nd "4" v:d_wd v:bdwd) (f:cls) +
  4087. (f:rept nil) (princ))
  4088. [--------]^C^C(progn (setq v:d_tp "doc" v:d_nd "4" v:d_wd v:bdwd) (f:cls) +
  4089. (f:rept nil) (princ))
  4090.  
  4091.  
  4092. [<CANCEL>]^C^C$s=s
  4093. **adoinspt 3
  4094. [Insertn]
  4095. [Point   ]
  4096.  
  4097.  
  4098.  
  4099. [LEFT    ]1;
  4100.  
  4101.  
  4102. [CENTER  ]2;
  4103.  
  4104.  
  4105. [RIGHT   ]3;
  4106.  
  4107.  
  4108.  
  4109.  
  4110.  
  4111. [<CANCEL>]^C^C$s=s
  4112. **adooffset 3
  4113. [Offset  ]
  4114.  
  4115. [--------]dist
  4116. [        ]dist
  4117. [SET     ]dist
  4118. [DISTANCE]dist
  4119. [        ]dist
  4120. [--------]dist
  4121.  
  4122.  
  4123. [--------]nooff
  4124. [        ]nooff
  4125. [NO      ]nooff
  4126. [OFFSET  ]nooff
  4127. [        ]nooff
  4128. [--------]nooff
  4129.  
  4130. [<CANCEL>]^C^C$s=s
  4131. **awi0sill 3
  4132. [Sill    ]
  4133. [Height  ]
  4134.  
  4135.  
  4136. [   3" ]^P3^P;
  4137. [   6" ]^P6^P;
  4138. [   9" ]^P9^P;
  4139. [1'-0" ]^P1'^P;
  4140. [1'-6" ]^P1'6^P;
  4141. [2'-0" ]^P2'^P;
  4142. [2'-6" ]^P2'6^P;
  4143. [3'-0" ]^P3'^P;
  4144. [3'-6" ]^P3'6^P;
  4145. [4'-0" ]^P4'^P;
  4146.  
  4147. [OTHER ]$S=AU001S1
  4148. [ <LAST> ]$s=
  4149. [<CANCEL>]^C^C(F:CLS) $S=S
  4150. **ado0sill 3
  4151. [Sill    ]
  4152. [Height  ]
  4153.  
  4154. [   0" ]^P0^P;
  4155. [   3" ]^P3^P;
  4156. [   6" ]^P6^P;
  4157. [   9" ]^P9^P;
  4158. [1'-0" ]^P1'^P;
  4159. [1'-6" ]^P1'6^P;
  4160. [2'-0" ]^P2'^P;
  4161. [2'-6" ]^P2'6^P;
  4162. [3'-0" ]^P3'^P;
  4163. [3'-6" ]^P3'6^P;
  4164.  
  4165. [OTHER ]$S=AU001S1
  4166.  
  4167. [ <LAST> ]$s=
  4168. [<CANCEL>]^C^C(F:CLS) $S=S
  4169. **awi0head 3
  4170. [Header  ]
  4171. [Height  ]
  4172.  
  4173. [ 6'-0"  ]^P6'^P;
  4174. [ 6'-6"  ]^P6'6^P;
  4175. [ 6'-8"  ]^P6'8^P;
  4176. [ 7'-0"  ]^P7'^P;
  4177. [ 7'-3"  ]^P7'3^P;
  4178. [ 7'-6"  ]^P7'6^P;
  4179. [ 7'-9"  ]^P7'9^P;
  4180. [ 8'-0"  ]^P8'^P;
  4181. [ 8'-6"  ]^P8'6^P;
  4182. [ 9'-0"  ]^P9'^P;
  4183.  
  4184. [OTHER   ]$S=AU001S1
  4185.  
  4186. [<CANCEL>]^C^C(F:CLS) $S=S
  4187. **ado0head 3
  4188. [Header  ]
  4189. [Height  ]
  4190.  
  4191. [ 6'-0"  ]^P6'^P;
  4192. [ 6'-6"  ]^P6'6^P;
  4193. [ 6'-8"  ]^P6'8^P;
  4194. [ 7'-0"  ]^P7'^P;
  4195. [ 7'-3"  ]^P7'3^P;
  4196. [ 7'-6"  ]^P7'6^P;
  4197. [ 7'-9"  ]^P7'9^P;
  4198. [ 8'-0"  ]^P8'^P;
  4199. [ 8'-6"  ]^P8'6^P;
  4200. [ 9'-0"  ]^P9'^P;
  4201.  
  4202. [OTHER   ]$S=AU001S1
  4203.  
  4204. [<CANCEL>]^C^C(F:CLS) $S=S
  4205. **af011 3
  4206. [Garage  ]
  4207. [door    ]
  4208. [width   ]
  4209.  
  4210.  
  4211. [8'-0"   ]^P96^P;
  4212.  
  4213. [9'-0"   ]^P108^P;
  4214.  
  4215. [12'-0"  ]^P144^P;
  4216.  
  4217. [16'-0"  ]^P192^P;
  4218.  
  4219. [18'-0"  ]^P216^P;
  4220.  
  4221. [<OTHER> ]$S=AU001S1
  4222.  
  4223. [<CANCEL>]^C^C(F:CLS) $S=S
  4224. **convert3d_2d 3
  4225. [Convert ]
  4226. [to:     ]
  4227.  
  4228. [2-D     ]^C^C(progn +
  4229. (setq a:j01b nil a:j01c nil a:j01d nil a:j01e nil a:j01f nil a:j01g nil v:j01h nil v:j01i nil) +
  4230. (terpri)(prompt "Select the symbol types that you want to convert.")+
  4231. (terpri)(prompt "Pick DONE when finished. ")(princ)) $S=aj01a2;
  4232.  
  4233. [3-D     ]^C^C(progn +
  4234. (setq a:j01b nil a:j01c nil a:j01d nil a:j01e nil a:j01f nil a:j01g nil v:j01h nil v:j01i nil) +
  4235. (terpri)(prompt "Select the symbol types that you want to convert.")+
  4236. (terpri)(prompt "Pick DONE when finished. ")(princ)) $S=aj01a3;
  4237.  
  4238.  
  4239. [ERROR   ]^C^C(f:prmp) $S=AJ01B
  4240. [MESSAGES]^C^C(f:prmp) $S=AJ01B
  4241.  
  4242.  
  4243.  
  4244.  
  4245.  
  4246.  
  4247.  
  4248. [<CANCEL>]^C^C$s=s
  4249. **ah01a 3
  4250. [  AEC  ]
  4251. [Utility]
  4252.  
  4253.  
  4254.  
  4255. [CALCULTR]^C^C$s=a1224s1
  4256.  
  4257.  
  4258. [SCHEDULE]^C^C$s=av25a
  4259.  
  4260.  
  4261. [FM      ]^C^C$S=AFMMGMT
  4262. [Intrface]^C^C$S=AFMMGMT
  4263.  
  4264.  
  4265.  
  4266.  
  4267. [<CANCEL>]^C^C(F:CLS) $S=S
  4268. **ae01b 3
  4269. [Number]
  4270. [of]
  4271. [doors]
  4272.  
  4273.  
  4274. [--------]^P2^P;
  4275. [   2    ]^P2^P;
  4276. [--------]^P2^P;
  4277.  
  4278. [--------]^P3^P;
  4279. [   3    ]^P3^P;
  4280. [--------]^P3^P;
  4281.  
  4282. [--------]^P4^P;
  4283. [   4    ]^P4^P;
  4284. [--------]^P4^P;
  4285.  
  4286. [<CANCEL>]^C^C(F:CLS) $S=
  4287. **aud1maS 3
  4288. [ Door   ]
  4289. [ width  ]
  4290.  
  4291. [2'-0"   ]^P2'-0"^P;
  4292. [2'-2"   ]^P2'-2"^P;
  4293.  
  4294. [2'-4"   ]^P2'-4"^P;
  4295. [2'-6"   ]^P2'-6"^P;
  4296.  
  4297. [2'-8"   ]^P2'-8"^P;
  4298. [2'-10"  ]^P2'-10"^P;
  4299.  
  4300. [3'-0"   ]^P3'-0"^P;
  4301. [3'-6"   ]^P3'-6"^P;
  4302. [<OTHER> ]$S=au001s1
  4303.  
  4304.  
  4305. [<CANCEL>]^C^C(F:CLS) $S=S
  4306. **aud1mbS 3
  4307. [Door   ]
  4308. [height]
  4309.  
  4310.  
  4311.  
  4312. [6'-8"  ]^P6'-8"^P;
  4313.  
  4314. [7'-0"  ]^P7'-0"^P;
  4315.  
  4316. [8'-0"  ]^P8'-0"^P;
  4317.  
  4318. [9'-0"  ]^P9'-0"^P;
  4319.  
  4320. [10'-0" ]^P10'-0"^P;
  4321.  
  4322.  
  4323.  
  4324. [<CANCEL>]^C^C(F:CLS) $S=S
  4325. **aud1mCS 3
  4326. [Number]
  4327.  
  4328.  
  4329. [   1  ]^P1^P\
  4330. [   2  ]^P2^P\
  4331. [   3  ]^P3^P\
  4332. [   4  ]^P4^P\
  4333. [   5  ]^P5^P\
  4334. [   6  ]^P6^P\
  4335. [   7  ]^P7^P\
  4336. [   8  ]^P8^P\
  4337. [   9  ]^P9^P\
  4338. [   0  ]^P0^P\
  4339.  
  4340. [ PERIOD]^P.^P\
  4341. [<RETURN>];
  4342. [ SKIP * ]*;
  4343. [<CANCEL>]^C^C(F:CLS) $S=S
  4344. **aud1mCS1 3
  4345. [Number]
  4346.  
  4347.  
  4348. [   1  ]^P1^P\
  4349. [   2  ]^P2^P\
  4350. [   3  ]^P3^P\
  4351. [   4  ]^P4^P\
  4352. [   5  ]^P5^P\
  4353. [   6  ]^P6^P\
  4354. [   7  ]^P7^P\
  4355. [   8  ]^P8^P\
  4356. [   9  ]^P9^P\
  4357. [   0  ]^P0^P\
  4358.  
  4359.  
  4360. [<RETURN>];
  4361. [ SKIP * ]*;
  4362. [<CANCEL>]^C^C(F:CLS) $S=S
  4363. **aud1mDS 3
  4364. [Room ]
  4365.  
  4366.  
  4367. [OFFICE-]^P$S=auw1mcs OFFICE-^P\
  4368. [ENTRY  ]^PENTRY^P;
  4369. [CONF.  ]^PCONF.^P;
  4370. [MEN    ]^PMEN^P;
  4371. [WOMEN  ]^PWOMEN^P;
  4372. [SEC.-  ]^P$S=auw1mcs SEC.-^P\
  4373. [LIVING ]^PLIVING^P;
  4374. [KITCHEN]^PKITCHEN^P;
  4375. [BATH-  ]^P$S=auw1mcs BATH-^P\
  4376. [BEDRM- ]^P$S=auw1mcs BEDROOM-^P\
  4377. [DINING ]^PDINING^P;
  4378. [GARAGE ]^PGARAGE^P;
  4379. [CORR   ]^PCORRIDOR^P;
  4380. [ SKIP * ]*;
  4381. [< PASS >]^P-^P;
  4382. **aud1mES 3
  4383. [  Door     ]
  4384. [  type  ]
  4385.  
  4386. [FLUSH   ]^PF^P;
  4387. [FLUSH-G ]^PFG^P;
  4388.  
  4389. [GLASS   ]^PG^P;
  4390. [VIEWING ]^PFV^P;
  4391.  
  4392. [NARROW  ]^PNL^P;
  4393. [LOUVERED]^PL^P;
  4394.  
  4395. [LB      ]^PLB^P;
  4396. [PANELED ]^PP^P;
  4397. [SLIDER  ]^PSL^P;
  4398. [BLIND   ]^PBL^P;
  4399. [ SKIP * ]*;
  4400. [< PASS >]^P-^P;
  4401. **aud1mFS 3
  4402. [Hardware]
  4403.  
  4404. [Group 1 ]^P1^P;
  4405. [Group 2 ]^P2^P;
  4406.  
  4407. [Group 3 ]^P3^P;
  4408. [Group 4 ]^P4^P;
  4409.  
  4410. [Group 5 ]^P5^P;
  4411. [Group 6 ]^P6^P;
  4412.  
  4413. [Group 7 ]^P7^P;
  4414. [Group 8 ]^P8^P;
  4415.  
  4416. [Group 9 ]^P9^P;
  4417. [Group 10]^P10^P;
  4418. [ SKIP * ]*;
  4419. [< PASS >]^P-^P;
  4420. **aud1mGS 3
  4421. [Door   ]
  4422. [rating]
  4423.  
  4424.  
  4425. [20MIN  ]^P20MIN^P;
  4426.  
  4427. [45MIN  ]^P45MIN^P;
  4428.  
  4429.  
  4430. [60MIN  ]^P60MIN^P;
  4431.  
  4432. [90MIN  ]^P90MIN^P;
  4433.  
  4434.  
  4435. [NON-RATE]^PNON-RATE^P;
  4436.  
  4437. [ SKIP * ]*;
  4438. [< PASS >]^P-^P;
  4439. **aud1mHS 3
  4440. [Door   ]
  4441. [const.]
  4442.  
  4443.  
  4444. [Wood    ]^PWD^P;
  4445.  
  4446. [HOL CORE]^PWD-HC^P;
  4447.  
  4448. [SLD CORE]^PWD-SC^P;
  4449.  
  4450.  
  4451.  
  4452. [STEEL   ]^PST^P;
  4453.  
  4454. [ALUMINUM]^PAL^P;
  4455.  
  4456. [ SKIP * ]*;
  4457. [< PASS >]^P-^P;
  4458. **aud1mIS 3
  4459. [Door  ]
  4460. [glass]
  4461.  
  4462. [FLOAT   ]^PFL^P;
  4463. [INSULATE]^PINS^P;
  4464. [LAMINATE]^PLAM^P;
  4465. [MIRROR  ]^PMIR^P;
  4466. [PATTERN ]^PPAT^P;
  4467.  
  4468. [PLATE   ]^PPL^P;
  4469. [ACRYLIC ]^PPLX^P;
  4470. [REFLECT ]^PREF^P;
  4471. [SHEET   ]^PSH^P;
  4472. [TEMPERED]^PTEM^P;
  4473.  
  4474. [N/A     ]^PN/A^P;
  4475. [ SKIP * ]*;
  4476. [< PASS >]^P-^P;
  4477. **aud1mJS 3
  4478. [Door   ]
  4479. [finish]
  4480.  
  4481.  
  4482.  
  4483.  
  4484. [PAINT-G ]^PPG^P;
  4485.  
  4486. [STAIN   ]^PST^P;
  4487.  
  4488. [SPECIAL ]^PSP^P;
  4489.  
  4490. [ANODIZED]^PAL^P;
  4491.  
  4492.  
  4493.  
  4494. [ SKIP * ]*;
  4495. [< PASS >]^P-^P;
  4496. **aud1mKS 3
  4497. [Door  ]
  4498. [thicknes]
  4499.  
  4500.  
  4501. [--------]^P1-3/8^P;
  4502. [        ]^P1-3/8^P;
  4503. [ 1-3/8  ]^P1-3/8^P;
  4504. [        ]^P1-3/8^P;
  4505. [--------]^P1-3/8^P;
  4506.  
  4507. [--------]^P1-3/4^P;
  4508. [        ]^P1-3/4^P;
  4509. [ 1-3/4  ]^P1-3/4^P;
  4510. [        ]^P1-3/4^P;
  4511. [--------]^P1-3/4^P;
  4512.  
  4513. [ SKIP * ]*;
  4514. [< PASS >]^P-^P;
  4515. **aud1mLS 3
  4516. [Door-]
  4517. [frame]
  4518. [const.]
  4519.  
  4520.  
  4521.  
  4522. [WOOD    ]^PWD^P;
  4523.  
  4524. [STEEL   ]^PST^P;
  4525.  
  4526. [ST STEEL]^PSS^P;
  4527.  
  4528. [ALUMINUM]^PAL^P;
  4529.  
  4530.  
  4531.  
  4532. [ SKIP * ]*;
  4533. [< PASS >]^P-^P;
  4534. **aud1mMS 3
  4535. [Door    ]
  4536. [frame  ]
  4537. [finish]
  4538.  
  4539.  
  4540.  
  4541.  
  4542. [PAINT   ]^PPG^P;
  4543.  
  4544. [STAIN   ]^PST^P;
  4545.  
  4546. [SPECIAL ]^PSP^P;
  4547.  
  4548. [ANODIZED]^PAN^P;
  4549.  
  4550.  
  4551. [ SKIP * ]*;
  4552. [< PASS >]^P-^P;
  4553. **aud1mNS 3
  4554. [Header ]
  4555. [detail]
  4556.  
  4557. [  /A  ]^P/A^P\
  4558. [   1  ]^P1^P\
  4559. [   2  ]^P2^P\
  4560. [   3  ]^P3^P\
  4561. [   4  ]^P4^P\
  4562. [   5  ]^P5^P\
  4563. [   6  ]^P6^P\
  4564. [   7  ]^P7^P\
  4565. [   8  ]^P8^P\
  4566. [   9  ]^P9^P\
  4567. [   0  ]^P0^P\
  4568.  
  4569. [<RETURN>];
  4570. [ SKIP * ]*;
  4571. [< PASS >]^P-^P;
  4572. **aud1mOS 3
  4573. [Jamb   ]
  4574. [detail]
  4575.  
  4576. [  /A  ]^P/A^P\
  4577. [   1  ]^P1^P\
  4578. [   2  ]^P2^P\
  4579. [   3  ]^P3^P\
  4580. [   4  ]^P4^P\
  4581. [   5  ]^P5^P\
  4582. [   6  ]^P6^P\
  4583. [   7  ]^P7^P\
  4584. [   8  ]^P8^P\
  4585. [   9  ]^P9^P\
  4586. [   0  ]^P0^P\
  4587.  
  4588. [<RETURN>];
  4589. [ SKIP * ]*;
  4590. [< PASS >]^P-^P;
  4591. **aud1mPS 3
  4592. [Sill   ]
  4593. [detail]
  4594.  
  4595. [  /A  ]^P/A^P\
  4596. [   1  ]^P1^P\
  4597. [   2  ]^P2^P\
  4598. [   3  ]^P3^P\
  4599. [   4  ]^P4^P\
  4600. [   5  ]^P5^P\
  4601. [   6  ]^P6^P\
  4602. [   7  ]^P7^P\
  4603. [   8  ]^P8^P\
  4604. [   9  ]^P9^P\
  4605. [   0  ]^P0^P\
  4606.  
  4607. [<RETURN>];
  4608. [ SKIP * ]*;
  4609. [< PASS >]^P-^P;
  4610. **aud1mQS 3
  4611. [Remarks]
  4612.  
  4613. [   1  ]^P1^P\
  4614. [   2  ]^P2^P\
  4615. [   3  ]^P3^P\
  4616. [   4  ]^P4^P\
  4617. [   5  ]^P5^P\
  4618. [   6  ]^P6^P\
  4619. [   7  ]^P7^P\
  4620. [   8  ]^P8^P\
  4621. [   9  ]^P9^P\
  4622. [   0  ]^P0^P\
  4623.  
  4624. [<COMMA>]^P,^P\
  4625.  
  4626. [<RETURN>];
  4627. [ SKIP * ]*;
  4628. [< PASS >]^P-^P;
  4629. **auw1mas 3
  4630. [Window  ]
  4631. [width   ]
  4632.  
  4633. [2'-0" ]^P2'-0"^P;
  4634. [2'-6" ]^P2'-6"^P;
  4635.  
  4636. [3'-0" ]^P3'-0"^P;
  4637. [3'-6" ]^P3'-6"^P;
  4638.  
  4639. [4'-0" ]^P4'-0"^P;
  4640. [4'-6" ]^P4'-6"^P;
  4641.  
  4642. [5'-0" ]^P5'-0"^P;
  4643. [5'-6" ]^P5'-6"^P;
  4644.  
  4645. [6'-0" ]^P6'-0"^P;
  4646.  
  4647. [OTHER ]$S=au001s1
  4648. **auw1mbs 3
  4649. [Window ]
  4650. [height]
  4651.  
  4652. [1'-6" ]^P1'-6"^P;
  4653. [2'-0" ]^P2'-0"^P;
  4654. [2'-6" ]^P2'-6"^P;
  4655. [3'-0" ]^P3'-0"^P;
  4656. [3'-6" ]^P3'-6"^P;
  4657.  
  4658. [4'-0" ]^P4'-0"^P;
  4659. [4'-6" ]^P4'-6"^P;
  4660. [5'-0" ]^P5'-0"^P;
  4661. [5'-6" ]^P5'-6"^P;
  4662. [6'-0" ]^P6'-0"^P;
  4663.  
  4664. [OTHER ]$S=AU001S1
  4665. [ SKIP * ]*;
  4666. [< PASS >]^P-^P;
  4667. **auw1mCS 3
  4668. [Number]
  4669.  
  4670. [   1  ]^P1^P\
  4671. [   2  ]^P2^P\
  4672. [   3  ]^P3^P\
  4673. [   4  ]^P4^P\
  4674. [   5  ]^P5^P\
  4675. [   6  ]^P6^P\
  4676. [   7  ]^P7^P\
  4677. [   8  ]^P8^P\
  4678. [   9  ]^P9^P\
  4679. [   0  ]^P0^P\
  4680.  
  4681. [PERIOD]^P.^P\
  4682.  
  4683. [<RETURN>];
  4684. [ SKIP * ]*;
  4685. [< PASS >]^P-^P;
  4686. **auw1mDS 3
  4687. [Room ]
  4688.  
  4689. [OFFICE-]^P$S=auw1mcs OFFICE-^P\
  4690. [ENTRY  ]^PENTRY^P;
  4691. [CONF.  ]^PCONF.^P;
  4692. [MEN    ]^PMEN^P;
  4693. [WOMEN  ]^PWOMEN^P;
  4694. [SEC.-  ]^P$S=auw1mcs SEC.-^P\
  4695.  
  4696. [LIVING ]^PLIVING^P;
  4697. [KITCHEN]^PKITCHEN^P;
  4698. [BATH-  ]^P$S=auw1mcs BATH-^P\
  4699. [BEDRM- ]^P$S=auw1mcs BEDROOM-^P\
  4700. [DINING ]^PDINING^P;
  4701. [GARAGE ]^PGARAGE^P;
  4702. [CORR   ]^PCORRIDOR^P;
  4703. [ SKIP * ]*;
  4704. [< PASS >]^P-^P;
  4705. **auw1mES 3
  4706. [Window ]
  4707. [type]
  4708.  
  4709. [FIXED   ]^PF^P;
  4710. [CASEMENT]^PCS^P;
  4711.  
  4712. [SGL HUNG]^PSH^P;
  4713. [DBL HUNG]^PDH^P;
  4714.  
  4715. [AWNG-IN ]^PAI^P;
  4716. [AWNG-OUT]^PAO^P;
  4717.  
  4718. [HOPR-IN ]^PHI^P;
  4719. [HOPR-OUT]^PHO^P;
  4720. [SLIDER  ]^PSL^P;
  4721. [JALOSIE ]^PJL^P;
  4722. [ SKIP * ]*;
  4723. [< PASS >]^P-^P;
  4724. **auw1mFS 3
  4725. [Window ]
  4726. [const.]
  4727.  
  4728.  
  4729.  
  4730.  
  4731. [WOOD    ]^PWD^P;
  4732.  
  4733. [STEEL   ]^PST^P;
  4734.  
  4735. [ST STEEL]^PSS^P;
  4736.  
  4737. [ALUMINUM]^PAL^P;
  4738.  
  4739.  
  4740.  
  4741. [ SKIP * ]*;
  4742. [< PASS >]^P-^P;
  4743. **auw1mGS 3
  4744. [Window]
  4745. [glass]
  4746.  
  4747. [ACRYLIC ]^PPLX^P;
  4748. [FLOAT   ]^PFL^P;
  4749.  
  4750. [INSULATE]^PINS^P;
  4751. [LAMINATE]^PLAM^P;
  4752. [MIRROR  ]^PMIR^P;
  4753.  
  4754. [PATTERN ]^PPAT^P;
  4755. [PLATE   ]^PPL^P;
  4756.  
  4757. [REFLECT ]^PREF^P;
  4758. [SHEET   ]^PSH^P;
  4759. [TEMPERED]^PTEM^P;
  4760. [ SKIP * ]*;
  4761. [< PASS >]^P-^P;
  4762. **auw1mHS 3
  4763. [Window ]
  4764. [finish]
  4765.  
  4766.  
  4767.  
  4768.  
  4769. [PAINT-G ]^PPG^P;
  4770.  
  4771. [STAIN   ]^PST^P;
  4772.  
  4773. [SPECIAL ]^PSP^P;
  4774.  
  4775. [ANODIZED]^PAL^P;
  4776.  
  4777.  
  4778.  
  4779. [ SKIP * ]*;
  4780. [< PASS >]^P-^P;
  4781. **auw1mIS 3
  4782. [Window]
  4783. [glass ]
  4784. [thicknes]
  4785.  
  4786.  
  4787.  
  4788. [1/16 ]^P1/16^P;
  4789.  
  4790. [1/8  ]^P1/8^P;
  4791.  
  4792.  
  4793. [1/4  ]^P1/4^P;
  4794.  
  4795. [1/2  ]^P1/2^P;
  4796.  
  4797.  
  4798. [ SKIP * ]*;
  4799. [< PASS >]^P-^P;
  4800. **auw1mJS 3
  4801. [Header ]
  4802. [detail]
  4803.  
  4804. [  /A  ]^P/A^P\
  4805. [   1  ]^P1^P\
  4806. [   2  ]^P2^P\
  4807. [   3  ]^P3^P\
  4808. [   4  ]^P4^P\
  4809. [   5  ]^P5^P\
  4810. [   6  ]^P6^P\
  4811. [   7  ]^P7^P\
  4812. [   8  ]^P8^P\
  4813. [   9  ]^P9^P\
  4814. [   0  ]^P0^P\
  4815.  
  4816. [<RETURN>];
  4817. [ SKIP * ]*;
  4818. [< PASS >]^P-^P;
  4819. **auw1mKS 3
  4820. [Jamb   ]
  4821. [detail]
  4822.  
  4823. [  /A  ]^P/A^P\
  4824. [   1  ]^P1^P\
  4825. [   2  ]^P2^P\
  4826. [   3  ]^P3^P\
  4827. [   4  ]^P4^P\
  4828. [   5  ]^P5^P\
  4829. [   6  ]^P6^P\
  4830. [   7  ]^P7^P\
  4831. [   8  ]^P8^P\
  4832. [   9  ]^P9^P\
  4833. [   0  ]^P0^P\
  4834.  
  4835. [<RETURN>];
  4836. [ SKIP * ]*;
  4837. [< PASS >]^P-^P;
  4838. **auw1mLS 3
  4839. [Sill   ]
  4840. [detail]
  4841.  
  4842. [  /A  ]^P/A^P\
  4843. [   1  ]^P1^P\
  4844. [   2  ]^P2^P\
  4845. [   3  ]^P3^P\
  4846. [   4  ]^P4^P\
  4847. [   5  ]^P5^P\
  4848. [   6  ]^P6^P\
  4849. [   7  ]^P7^P\
  4850. [   8  ]^P8^P\
  4851. [   9  ]^P9^P\
  4852. [   0  ]^P0^P\
  4853.  
  4854. [<RETURN>];
  4855. [ SKIP * ]*;
  4856. [< PASS >]^P-;
  4857. **auw1mMS 3
  4858. [Remarks]
  4859.  
  4860. [   1  ]^P1^P\
  4861. [   2  ]^P2^P\
  4862. [   3  ]^P3^P\
  4863. [   4  ]^P4^P\
  4864. [   5  ]^P5^P\
  4865. [   6  ]^P6^P\
  4866. [   7  ]^P7^P\
  4867. [   8  ]^P8^P\
  4868. [   9  ]^P9^P\
  4869. [   0  ]^P0^P\
  4870.  
  4871. [ COMMA ]^P,^P\
  4872.  
  4873. [<RETURN>];
  4874. [ SKIP * ]*;
  4875. [< PASS >]^P-^P;
  4876. **auw1mzs 3
  4877. [  Sill  ]
  4878. [ height ]
  4879.  
  4880. [    3"  ]^P3"^P;
  4881. [    6"  ]^P6"^P;
  4882.  
  4883. [ 1'-0"  ]^P1'-0"^P;
  4884. [ 2'-0"  ]^P2'-0"^P;
  4885.  
  4886. [ 2'-6"  ]^P2'-6"^P;
  4887. [ 3'-0"  ]^P3'-0"^P;
  4888.  
  4889. [ 4'-0"  ]^P4'-0"^P;
  4890. [ 5'-0"  ]^P5'-0"^P;
  4891.  
  4892. [<OTHER> ]$S=au001s1
  4893.  
  4894. [<CANCEL>]^C^C(F:CLS) $S=S
  4895. **A1001SBJ 3
  4896. [ Number ]
  4897.  
  4898. [   1    ]^P1^P\
  4899. [   2    ]^P2^P\
  4900. [   3    ]^P3^P\
  4901. [   4    ]^P4^P\
  4902. [   5    ]^P5^P\
  4903. [   6    ]^P6^P\
  4904. [   7    ]^P7^P\
  4905. [   8    ]^P8^P\
  4906. [   9    ]^P9^P\
  4907. [   0    ]^P0^P\
  4908. [ FEET   ]^P'^P\
  4909. [  /     ]^P/^P\
  4910. [  -     ]^P-^P\
  4911. [ PERIOD ]^P.^P\
  4912. [<RETURN>];
  4913. [<CANCEL>]^C^C(F:CLS) $S=S
  4914. **A1001SCJ 3
  4915. [Mullion ]
  4916. [type    ]
  4917.  
  4918.  
  4919. [--------]^PR^P;
  4920. [        ]^PR^P;
  4921. [RECTANGL]^PR^P;
  4922. [        ]^PR^P;
  4923. [--------]^PR^P;
  4924.  
  4925. [--------]^PC^P;
  4926. [        ]^PC^P;
  4927. [ CUSTOM ]^PC^P;
  4928. [        ]^PC^P;
  4929. [--------]^PC^P;
  4930.  
  4931.  
  4932. [<CANCEL>]^C^C(F:CLS) $S=S
  4933. **A1001SDJ 3
  4934. [Lite    ]
  4935. [location]
  4936.  
  4937.  
  4938. [--------]^PI^P;
  4939. [INTERIOR]^PI^P;
  4940. [--------]^PI^P;
  4941.  
  4942. [--------]^PM^P;
  4943. [ MIDDLE ]^PM^P;
  4944. [--------]^PM^P;
  4945.  
  4946. [--------]^PE^P;
  4947. [EXTERIOR]^PE^P;
  4948. [--------]^PE^P;
  4949.  
  4950.  
  4951. [<CANCEL>]^C^C(F:CLS) $S=S
  4952. **A1001SDK 3
  4953. [Mullion ]
  4954. [location]
  4955.  
  4956.  
  4957. [--------]^PI^P;
  4958. [INTERIOR]^Pw^P;
  4959. [--------]^PI^P;
  4960.  
  4961. [--------]^PM^P;
  4962. [ MIDDLE ]^PM^P;
  4963. [--------]^PM^P;
  4964.  
  4965. [--------]^PE^P;
  4966. [EXTERIOR]^PE^P;
  4967. [--------]^PE^P;
  4968.  
  4969.  
  4970. [<CANCEL>]^C^C(F:CLS) $S=S
  4971. **A1001SEJ 3
  4972. [Custom  ]
  4973. [mullion ]
  4974. [symbol  ]
  4975. [name    ]
  4976.  
  4977.  
  4978. [SAMPLE  ]^Pcustmull^P;
  4979.  
  4980.  
  4981. [You can ]
  4982. [place   ]
  4983. [your own]
  4984. [mullion ]
  4985. [symbol  ]
  4986. [name    ]
  4987. [here.   ]
  4988.  
  4989. [<CANCEL>]^C^C(F:CLS) $S=S
  4990. **A1001SFJ 3
  4991. [Custom  ]
  4992. [symbol  ]
  4993. [mullion ]
  4994. [width   ]
  4995.  
  4996.  
  4997. [  2     ]^P2^P;
  4998.  
  4999.  
  5000. [You can ]
  5001. [place   ]
  5002. [your own]
  5003. [mullion ]
  5004. [width   ]
  5005. [here.   ]
  5006.  
  5007.  
  5008. [<CANCEL>]^C^C(F:CLS) $S=S
  5009. **A1001SGJ 3
  5010. [Custom  ]
  5011. [symbol  ]
  5012. [mullion ]
  5013. [depth   ]
  5014.  
  5015.  
  5016. [  5     ]^P5^P;
  5017.  
  5018.  
  5019. [You can ]
  5020. [place   ]
  5021. [your own]
  5022. [mullion ]
  5023. [depth   ]
  5024. [here.   ]
  5025.  
  5026.  
  5027. [<CANCEL>]^C^C(F:CLS) $S=S
  5028. **A1001SHJ 3
  5029. [Custom  ]
  5030. [symbol  ]
  5031. [mullion ]
  5032. [X scale ]
  5033. [factor  ]
  5034.  
  5035. [  1     ]^P1^P;
  5036.  
  5037.  
  5038. [You can ]
  5039. [place   ]
  5040. [your own]
  5041. [mullion ]
  5042. [X scale ]
  5043. [factor  ]
  5044. [here.   ]
  5045.  
  5046. [<CANCEL>]^C^C(F:CLS) $S=S
  5047. **A1001SIJ 3
  5048. [Custom  ]
  5049. [symbol  ]
  5050. [mullion ]
  5051. [Y scale ]
  5052. [factor  ]
  5053.  
  5054. [  1     ]^P1^P;
  5055.  
  5056.  
  5057. [You can ]
  5058. [place   ]
  5059. [your own]
  5060. [mullion ]
  5061. [Y scale ]
  5062. [factor  ]
  5063. [here.   ]
  5064.  
  5065. [<CANCEL>]^C^C(F:CLS) $S=S
  5066. **A1013S1 3
  5067. [Drinking]
  5068. [fountain]
  5069.  
  5070.  
  5071.  
  5072. [REGULAR ]^C^C(progn (setq V:x 12 V:y 12 V:zs 6 V:ze 40));+
  5073. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "aa13a" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  5074. "au013t1" (list '("PLUNAME" "DRNKNG FNTN")) "mpfixtspec"))(princ))(f:rept "A1013S1");
  5075. [ Ht. 40"]
  5076. [HANDICAP]^C^C(progn (setq V:x 18 V:y 14 V:zs 6 V:ze 40));+
  5077. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "aa13b" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  5078. "au013t1" (list '("PLUNAME" "DRNKNG FNTN")) "mpfixtspec"))(princ))(f:rept "A1013S1");
  5079. [ Ht. 34"]
  5080. [RECESSED]^C^C(progn (setq V:x 12 V:y 16 V:zs 6 V:ze 34));+
  5081. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "aa13c" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  5082. "au013t1" (list '("PLUNAME" "DRNKNG FNTN")) "mpfixtspec"))(princ))(f:rept "A1013S1");
  5083. [ Ht. 40"]
  5084. [SEMI-REC]^C^C(progn (setq V:x 12 V:y 16 V:zs 6 V:ze 40));+
  5085. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "aa13d" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  5086. "au013t1" (list '("PLUNAME" "DRNKNG FNTN")) "mpfixtspec"))(princ))(f:rept "A1013S1");
  5087. [ Ht. 40"]
  5088. [CIRCULAR]^C^C(progn (setq V:x 12 V:y 12 V:zs 4 V:ze 40));+
  5089. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "aa13e" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  5090. "au013t1" (list '("PLUNAME" "DRNKNG FNTN")) "mpfixtspec"))(princ))(f:rept "A1013S1");
  5091. [ Ht. 40"]
  5092.  
  5093.  
  5094. [<CANCEL>]^C^C(F:CLS) $S=S
  5095. **A1014SA 3
  5096. [Floor   ]
  5097. [drain  ]
  5098.  
  5099.  
  5100. [--------]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14a" T V:x V:y 1 0 V:r nil "PLDFLT" +
  5101. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sb
  5102. [        ]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14a" T V:x V:y 1 0 V:r nil "PLDFLT" +
  5103. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sb
  5104. [ROUND   ]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14a" T V:x V:y 1 0 V:r nil "PLDFLT" +
  5105. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sb
  5106. [        ]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14a" T V:x V:y 1 0 V:r nil "PLDFLT" +
  5107. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sb
  5108. [--------]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14a" T V:x V:y 1 0 V:r nil "PLDFLT" +
  5109. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sb
  5110.  
  5111. [--------]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14b" T V:x V:y 1 0 T nil "PLDFLT" +
  5112. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sc
  5113. [        ]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14b" T V:x V:y 1 0 T nil "PLDFLT" +
  5114. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sc
  5115. [RECT    ]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14b" T V:x V:y 1 0 T nil "PLDFLT" +
  5116. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sc
  5117. [        ]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14b" T V:x V:y 1 0 T nil "PLDFLT" +
  5118. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sc
  5119. [--------]^C^C(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14b" T V:x V:y 1 0 T nil "PLDFLT" +
  5120. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(f:prmp);$s=a1014sc
  5121.  
  5122.  
  5123. [<CANCEL>]^C^C(F:CLS) $S=S
  5124. **A1014SB 3
  5125. [Round   ]
  5126. [drain  ]
  5127.  
  5128.  
  5129.  
  5130. [6" DIA. ]^C^C(setq V:x 6 V:y 6 V:r 0)(f:rept "A1014SB");
  5131.  
  5132. [8" DIA. ]^C^C(setq V:x 8 V:y 8 V:r 0)(f:rept "A1014SB");
  5133.  
  5134. [10" DIA.]^C^C(setq V:x 10 V:y 10 V:r 0)(f:rept "A1014SB");
  5135.  
  5136. [12" DIA.]^C^C(setq V:x 12 V:y 12 V:r 0)(f:rept "A1014SB");
  5137.  
  5138.  
  5139. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 6 V:r 0);+
  5140. (progn(setq f:list '(F:INSR nil nil nil "mpfixture" +
  5141. "aa14a" T V:x V:y V:zs V:ze V:r nil "PLDFLT" "au013t1" +
  5142. (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(princ));+
  5143. (a:othr "drain" 22 "a1014sb")(f:rept "A1014SB")
  5144.  
  5145. [PREVIOUS ]$s=A1014SA
  5146. [<CANCEL>]^C^C(F:CLS) $S=S
  5147. **A1014SC 3
  5148. [Rectang.]
  5149. [drain  ]
  5150.  
  5151.  
  5152.  
  5153. [6"X6"   ]^C^C(setq V:x 6 V:y 6 V:r 0)(f:rept "A1014SC");
  5154.  
  5155. [6"X8"   ]^C^C(setq V:x 6 V:y 8 V:r 0)(f:rept "A1014SC");
  5156.  
  5157. [12"X8"  ]^C^C(setq V:x 12 V:y 8 V:r 0)(f:rept "A1014SC");
  5158.  
  5159.  
  5160. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 6 v:y 6 v:r 0);+
  5161. (progn(setq f:list '(F:INSR nil nil nil "mpfixture" "aa14b" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  5162. "au013t1" (list '("PLUNAME" "FLOOR DRAIN")) "mpfixtspec"))(princ));+
  5163. (a:othr "dimension" 5 "a1014sc")
  5164.  
  5165.  
  5166.  
  5167. [PREVIOUS ]$s=A1014SA
  5168. [<CANCEL>]^C^C(F:CLS) $S=S
  5169. **aa151 3
  5170. [Conduit ]
  5171.  
  5172. [CENter]CENTER;
  5173. [ENDpoint]ENDPOINT;
  5174. [INSert]INSERT;
  5175.  
  5176. [INTersec]INTERSEC;
  5177. [MIDpoint]MIDPOINT;
  5178. [NEArest]NEAREST;
  5179.  
  5180. [NODe]NODE;
  5181. [PERpend]PERPEND;
  5182. [QUAdrant]QUA;
  5183. [TANgent ]TANG;
  5184.  
  5185. [UNDO    ]U;
  5186.  
  5187. [DONE    ];
  5188. **A1016S1 3
  5189. [Ceiling ]
  5190. [light]
  5191.  
  5192.  
  5193.  
  5194. [--------]^C^C(setq V:b "aa16a")(f:rept "A1016S1");
  5195. [SURFACE ]^C^C(setq V:b "aa16a")(f:rept "A1016S1");
  5196. [MOUNTED ]^C^C(setq V:b "aa16a")(f:rept "A1016S1");
  5197. [--------]^C^C(setq V:b "aa16a")(f:rept "A1016S1");
  5198.  
  5199. [--------]^C^C(setq V:b "aa16b")(f:rept "A1016S1");
  5200. [RECESSED]^C^C(setq V:b "aa16b")(f:rept "A1016S1");
  5201. [DOWNLIT ]^C^C(setq V:b "aa16b")(f:rept "A1016S1");
  5202. [--------]^C^C(setq V:b "aa16b")(f:rept "A1016S1");
  5203.  
  5204.  
  5205.  
  5206. [<CANCEL>]^C^C(F:CLS) $S=S
  5207. **A1017S1 3
  5208. [Fluorsnt]
  5209. [strip   ]
  5210.  
  5211.  
  5212. [36"     ]^C^C(setq V:x 36 V:y 4 V:r 0)(f:rept "A1017S1");
  5213. [48"     ]^C^C(setq V:x 48 V:y 4 V:r 0)(f:rept "A1017S1");
  5214.  
  5215. [60"     ]^C^C(setq V:x 60 V:y 4 V:r 0)(f:rept "A1017S1");
  5216. [72"     ]^C^C(setq V:x 72 V:y 4 V:r 0)(f:rept "A1017S1");
  5217.  
  5218. [84"     ]^C^C(setq V:x 84 V:y 4 V:r 0)(f:rept "A1017S1");
  5219. [96"     ]^C^C(setq V:x 96 V:y 4 V:r 0)(f:rept "A1017S1");
  5220.  
  5221.  
  5222. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 36 V:y 4 V:zs 4 V:ze 96);+
  5223. (progn(setq f:list '(F:INSR nil nil nil "eelightfl" "aa171" T V:x V:y V:zs V:ze T nil +
  5224. "LIDFLT" "au015t1" (list '("LIDESCR" "FLUO STRIP")) "eelightspec"))(princ));+
  5225. (a:othr "strip" 4 "a1017s1")
  5226.  
  5227.  
  5228. [<CANCEL>]^C^C(F:CLS) $S=S
  5229. **A1018SA 3
  5230. [Secretry]
  5231. [chair   ]
  5232.  
  5233.  
  5234.  
  5235. [--------]^C^C(setq f:list '(F:INSR nil T nil "fmchair" "aa18b" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  5236. "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sb
  5237. [SECRETRY]^C^C(setq f:list '(F:INSR nil T nil "fmchair" "aa18b" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  5238. "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sb
  5239. [--------]^C^C(setq f:list '(F:INSR nil T nil "fmchair" "aa18b" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  5240. "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sb
  5241.  
  5242.  
  5243. [--------]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" "aa18a" T V:x V:y V:zs V:ze T nil +
  5244. "FUDFLT" "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sc
  5245. [SECRETRY]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" "aa18a" T V:x V:y V:zs V:ze T nil +
  5246. "FUDFLT" "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sc
  5247. [UNDER   ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" "aa18a" T V:x V:y V:zs V:ze T nil +
  5248. "FUDFLT" "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sc
  5249. [--------]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" "aa18a" T V:x V:y V:zs V:ze T nil +
  5250. "FUDFLT" "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(f:prmp);$s=a1018sc
  5251.  
  5252.  
  5253.  
  5254. [<CANCEL>]^C^C(F:CLS) $S=S
  5255. **A1018SB 3
  5256. [Open    ]
  5257. [secretry]
  5258. [chair   ]
  5259.  
  5260. [(Seat   ]
  5261. [ht. 18")]
  5262.  
  5263.  
  5264. [16x18   ]^C^C(setq V:x 16 V:y 18 V:r 0 V:zs 18 V:ze 0)(f:rept "A1018SB");
  5265.  
  5266. [18x18   ]^C^C(setq V:x 18 V:y 18 V:r 0 V:zs 18 V:ze 0)(f:rept "A1018SB");
  5267.  
  5268.  
  5269.  
  5270. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 16 v:y 18 v:zs 18 v:r 0 V:ze 0);+
  5271. (progn(setq f:list '(F:INSR nil T nil "fmchair" "aa18b" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  5272. "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(princ));+
  5273. (a:othr "chair" 6 "a1018sb")
  5274.  
  5275. [PREVIOUS ]$s=A1018SA
  5276. [<CANCEL>]^C^C(F:CLS) $S=S
  5277. **A1018SC 3
  5278. [Under-  ]
  5279. [desk    ]
  5280. [secretry]
  5281. [chair  ]
  5282.  
  5283. [(Seat   ]
  5284. [ht. 18")]
  5285.  
  5286.  
  5287. [16x18   ]^C^C(setq V:x 16 V:y 18 V:r 0 V:zs 18 V:ze 0)(f:rept "A1018SC");
  5288.  
  5289. [18x18   ]^C^C(setq V:x 18 V:y 18 V:r 0 V:zs 18 V:ze 0)(f:rept "A1018SC");
  5290.  
  5291.  
  5292. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 16 v:y 18 v:zs 18 V:ze 0);+
  5293. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" "aa18a" T V:x V:y V:zs V:ze T nil +
  5294. "FUDFLT" "au017t1" (list '("FURNAME" "SEC CHAIR")) "fmspec"))(princ));+
  5295. (a:othr "chair" 6 "a1018sc")
  5296.  
  5297. [PREVIOUS ]$s=A1018SA
  5298. [<CANCEL>]^C^C(F:CLS) $S=S
  5299. **A1019S1 3
  5300. [Oval    ]
  5301. [table   ]
  5302.  
  5303. [ Ht. 29" ]
  5304.  
  5305.  
  5306. [60X30   ]^C^C(setq V:x 60 V:y 30 V:r 0 V:zs 29 V:ze 0)(f:rept "A1019S1");
  5307. [60X36   ]^C^C(setq V:x 60 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "A1019S1");
  5308.  
  5309. [72X36   ]^C^C(setq V:x 72 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "A1019S1");
  5310.  
  5311. [84X36   ]^C^C(setq V:x 84 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "A1019S1");
  5312.  
  5313. [96X36   ]^C^C(setq V:x 96 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "A1019S1");
  5314.  
  5315. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 72 v:y 36 v:r 0 v:zs 29 V:ze 0);+
  5316. (progn(setq f:list '(F:INSR nil T nil "fmtable" "aa191" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  5317. "au017t1" (list '("FURNAME" "CONF TABLE")) "fmspec"))(princ));+
  5318. (a:othr "table" 7 "a1019s1")
  5319.  
  5320. [<CANCEL>]^C^C(F:CLS) $S=S
  5321. **A1020S1 3
  5322. [Confrnce]
  5323. [table & ]
  5324. [chair   ]
  5325.  
  5326. [12' wide]
  5327. [12 SEATS]^C^C(setq V:b "aa20a" V:x 1 V:y 1 V:zs 1 V:ze 0)(f:rept "A1020S1");
  5328. [14 SEATS]^C^C(setq V:b "aa20b" V:x 1 V:y 1 V:zs 1 V:ze 0)(f:rept "A1020S1");
  5329.  
  5330. [14' wide]
  5331. [14 SEATS]^C^C(setq V:b "aa20c" V:x 1 V:y 1 V:zs 1 V:ze 0)(f:rept "A1020S1");
  5332. [16 SEATS]^C^C(setq V:b "aa20d" V:x 1 V:y 1 V:zs 1 V:ze 0)(f:rept "A1020S1");
  5333.  
  5334. [16' wide]
  5335. [16 SEATS]^C^C(setq V:b "aa20e" V:x 1 V:y 1 V:zs 1 V:ze 0)(f:rept "A1020S1");
  5336. [18 SEATS]^C^C(setq V:b "aa20f" V:x 1 V:y 1 V:zs 1 V:ze 0)(f:rept "A1020S1");
  5337.  
  5338.  
  5339. [<CANCEL>]^C^C(F:CLS) $S=S
  5340. **A1022SEJ 3
  5341. [Handrail]
  5342. [types   ]
  5343.  
  5344.  
  5345. [SHORT   ]aa22e
  5346.  
  5347. [LONG    ]aa22g
  5348.  
  5349. [L-SHAPED]aa22i
  5350.  
  5351. [CORNER  ]aa22d
  5352.  
  5353.  
  5354.  
  5355. [CUSTOM  ]aa22c
  5356.  
  5357.  
  5358. [<CANCEL>]^C^C(F:CLS) $S=S
  5359. **aa23a 3
  5360. [ Symbol ]
  5361. [ names  ]
  5362.  
  5363. [   A    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5364. (terpri)(prompt "Retrieving symbol A"))(progn(setq f:list '(a:a23b ubox "A" 0))(princ))(f:rept "aa23a");
  5365. [   B    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5366. (terpri)(prompt "Retrieving symbol B"))(progn(setq f:list '(a:a23b ubox "B" 1))(princ))(f:rept "aa23a");
  5367. [   C    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5368. (terpri)(prompt "Retrieving symbol C"))(progn(setq f:list '(a:a23b ubox "C" 2))(princ))(f:rept "aa23a");
  5369. [   D    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5370. (terpri)(prompt "Retrieving symbol D"))(progn(setq f:list '(a:a23b ubox "D" 3))(princ))(f:rept "aa23a");
  5371. [   E    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5372. (terpri)(prompt "Retrieving symbol E"))(progn(setq f:list '(a:a23b ubox "E" 4))(princ))(f:rept "aa23a");
  5373. [   F    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5374. (terpri)(prompt "Retrieving symbol F"))(progn(setq f:list '(a:a23b ubox "F" 5))(princ))(f:rept "aa23a");
  5375. [   G    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5376. (terpri)(prompt "Retrieving symbol G"))(progn(setq f:list '(a:a23b ubox "G" 6))(princ))(f:rept "aa23a");
  5377. [   H    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5378. (terpri)(prompt "Retrieving symbol H"))(progn(setq f:list '(a:a23b ubox "H" 7))(princ))(f:rept "aa23a");
  5379. [   I    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5380. (terpri)(prompt "Retrieving symbol I"))(progn(setq f:list '(a:a23b ubox "I" 8))(princ))(f:rept "aa23a");
  5381. [  J-R   ]$S=aa23b
  5382. [  S-Z   ]$S=aa23c
  5383. [DEFINE  ]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  5384. (cond +
  5385. (v:2d(f:prmp)) +
  5386. (T(progn (terpri)(prompt " ")(terpri)+
  5387. (prompt "To define a 3-D symbol, you must first define a 2-D version of")(terpri)+
  5388. (prompt "it, then pick DEFINE again. Select a letter name for the symbol.")(princ))));+
  5389. $S=aa23d
  5390. [DELETE  ]^C^C(progn (terpri)(prompt " ")(terpri)+
  5391. (prompt "Select a letter name for the symbol to delete.")(princ)) $S=aa23m
  5392. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5393. (terpri)(prompt "Display user box ")(a:a23c ubox)(princ));
  5394. [<CANCEL>]^C^C(F:CLS) $S=S
  5395. **aa23b 3
  5396. [ Symbol ]
  5397. [ names  ]
  5398.  
  5399. [   J    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5400. (terpri)(prompt "Retrieving symbol J"))(progn(setq f:list '(a:a23b ubox "J" 9))(princ))(f:rept "aa23b");
  5401. [   K    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5402. (terpri)(prompt "Retrieving symbol K"))(progn(setq f:list '(a:a23b ubox "K" 10))(princ))(f:rept "aa23b");
  5403. [   L    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5404. (terpri)(prompt "Retrieving symbol L"))(progn(setq f:list '(a:a23b ubox "L" 11))(princ))(f:rept "aa23b");
  5405. [   M    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5406. (terpri)(prompt "Retrieving symbol M"))(progn(setq f:list '(a:a23b ubox "M" 12))(princ))(f:rept "aa23b");
  5407. [   N    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5408. (terpri)(prompt "Retrieving symbol N"))(progn(setq f:list '(a:a23b ubox "N" 13))(princ))(f:rept "aa23b");
  5409. [   O    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5410. (terpri)(prompt "Retrieving symbol O"))(progn(setq f:list '(a:a23b ubox "O" 14))(princ))(f:rept "aa23b");
  5411. [   P    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5412. (terpri)(prompt "Retrieving symbol P"))(progn(setq f:list '(a:a23b ubox "P" 15))(princ))(f:rept "aa23b");
  5413. [   Q    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5414. (terpri)(prompt "Retrieving symbol Q"))(progn(setq f:list '(a:a23b ubox "Q" 16))(princ))(f:rept "aa23b");
  5415. [   R    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5416. (terpri)(prompt "Retrieving symbol R"))(progn(setq f:list '(a:a23b ubox "R" 17))(princ))(f:rept "aa23b");
  5417. [  A-I   ]$S=aa23a
  5418. [  S-Z   ]$S=aa23c
  5419. [DEFINE  ]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  5420. (cond +
  5421. (v:2d(f:prmp)) +
  5422. (T(progn (terpri)(prompt " ")(terpri)+
  5423. (prompt "To define a 3-D symbol, you must first define a 2-D version of")(terpri)+
  5424. (prompt "it, then pick DEFINE again. Select a letter name for the symbol.")(princ))));+
  5425. $S=aa23d
  5426. [DELETE  ]^C^C(progn (terpri)(prompt " ")(terpri)+
  5427. (prompt "Select a letter name for the symbol to delete.")(princ)) $S=aa23m
  5428. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5429. (terpri)(prompt "Display user box ")(a:a23c ubox)(princ));
  5430. [<CANCEL>]^C^C(F:CLS) $S=S
  5431. **aa23c 3
  5432. [ Symbol ]
  5433. [ names  ]
  5434.  
  5435. [   S    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5436. (terpri)(prompt "Retrieving symbol S"))(progn(setq f:list '(a:a23b ubox "S" 18))(princ))(f:rept "aa23c");
  5437. [   T    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5438. (terpri)(prompt "Retrieving symbol T"))(progn(setq f:list '(a:a23b ubox "T" 19))(princ))(f:rept "aa23c");
  5439. [   U    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5440. (terpri)(prompt "Retrieving symbol U"))(progn(setq f:list '(a:a23b ubox "U" 20))(princ))(f:rept "aa23c");
  5441. [   V    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5442. (terpri)(prompt "Retrieving symbol V"))(progn(setq f:list '(a:a23b ubox "V" 21))(princ))(f:rept "aa23c");
  5443. [   W    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5444. (terpri)(prompt "Retrieving symbol W"))(progn(setq f:list '(a:a23b ubox "W" 22))(princ))(f:rept "aa23c");
  5445. [   X    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5446. (terpri)(prompt "Retrieving symbol X"))(progn(setq f:list '(a:a23b ubox "X" 23))(princ))(f:rept "aa23c");
  5447. [   Y    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5448. (terpri)(prompt "Retrieving symbol Y"))(progn(setq f:list '(a:a23b ubox "Y" 24))(princ))(f:rept "aa23c");
  5449. [   Z    ]^C^C(F:LODF "a:a23b") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5450. (terpri)(prompt "Retrieving symbol Z"))(progn(setq f:list '(a:a23b ubox "Z" 25))(princ))(f:rept "aa23c");
  5451.  
  5452. [  A-I   ]$S=aa23a
  5453. [  J-R   ]$S=aa23b
  5454. [DEFINE  ]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  5455. (cond +
  5456. (v:2d(f:prmp)) +
  5457. (T(progn (terpri)(prompt " ")(terpri)+
  5458. (prompt "To define a 3-D symbol, you must first define a 2-D version of")(terpri)+
  5459. (prompt "it, then pick DEFINE again. Select a letter name for the symbol.")(princ))));+
  5460. $S=aa23d
  5461. [DELETE  ]^C^C(progn (terpri)(prompt " ")(terpri)+
  5462. (prompt "Select a letter name for the symbol to delete.")(princ)) $S=aa23m
  5463. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5464. (terpri)(prompt "Display user box ")(a:a23c ubox)(princ));
  5465. [<CANCEL>]^C^C(F:CLS) $S=S
  5466. **aa23d 3
  5467. [ Define ]
  5468. [ symbol ]
  5469.  
  5470. [   A    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol A")(princ));+
  5471. (progn(setq f:list '(a:a23a ubox "A" 0))(princ))(f:rept "aa23d");
  5472. [   B    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol B")(princ));+
  5473. (progn(setq f:list '(a:a23a ubox "B" 1))(princ))(f:rept "aa23d");
  5474. [   C    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol C")(princ));+
  5475. (progn(setq f:list '(a:a23a ubox "C" 2))(princ))(f:rept "aa23d");
  5476. [   D    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol D")(princ));+
  5477. (progn(setq f:list '(a:a23a ubox "D" 3))(princ))(f:rept "aa23d");
  5478. [   E    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol E")(princ));+
  5479. (progn(setq f:list '(a:a23a ubox "E" 4))(princ))(f:rept "aa23d");
  5480. [   F    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol F")(princ));+
  5481. (progn(setq f:list '(a:a23a ubox "F" 5))(princ))(f:rept "aa23d");
  5482. [   G    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol G")(princ));+
  5483. (progn(setq f:list '(a:a23a ubox "G" 6))(princ))(f:rept "aa23d");
  5484. [   H    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol H")(princ));+
  5485. (progn(setq f:list '(a:a23a ubox "H" 7))(princ))(f:rept "aa23d");
  5486. [   I    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol I")(princ));+
  5487. (progn(setq f:list '(a:a23a ubox "I" 8))(princ))(f:rept "aa23d");
  5488. [  J-R   ]$S=aa23e
  5489. [  S-Z   ]$S=aa23f
  5490. [INSERT  ]$s=aa23a
  5491. [DELETE  ]^C^C(f:prmp) $S=aa23m
  5492. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5493. (terpri)(prompt "Display user box ")(a:a23c ubox)(princ));
  5494. [<CANCEL>]^C^C(F:CLS) $S=S
  5495. **aa23e 3
  5496. [ Define ]
  5497. [ symbol ]
  5498.  
  5499. [   J    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol J")(princ));+
  5500. (progn(setq f:list '(a:a23a ubox "J" 9))(princ))(f:rept "aa23e");
  5501. [   K    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol K")(princ));+
  5502. (progn(setq f:list '(a:a23a ubox "K" 10))(princ))(f:rept "aa23e");
  5503. [   L    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol L")(princ));+
  5504. (progn(setq f:list '(a:a23a ubox "L" 11))(princ))(f:rept "aa23e");
  5505. [   M    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol M")(princ));+
  5506. (progn(setq f:list '(a:a23a ubox "M" 12))(princ))(f:rept "aa23e");
  5507. [   N    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol N")(princ));+
  5508. (progn(setq f:list '(a:a23a ubox "N" 13))(princ))(f:rept "aa23e");
  5509. [   O    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol O")(princ));+
  5510. (progn(setq f:list '(a:a23a ubox "O" 14))(princ))(f:rept "aa23e");
  5511. [   P    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol P")(princ));+
  5512. (progn(setq f:list '(a:a23a ubox "P" 15))(princ))(f:rept "aa23e");
  5513. [   Q    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol Q")(princ));+
  5514. (progn(setq f:list '(a:a23a ubox "Q" 16))(princ))(f:rept "aa23e");
  5515. [   R    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol R")(princ));+
  5516. (progn(setq f:list '(a:a23a ubox "R" 17))(princ))(f:rept "aa23e");
  5517. [  A-I   ]$S=aa23d
  5518. [  S-Z   ]$S=aa23f
  5519. [INSERT  ]$s=aa23a
  5520. [DELETE  ]^C^C(f:prmp) $S=aa23m
  5521. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5522. (terpri)(prompt "Display user box ")(a:a23c ubox)(princ));
  5523. [<CANCEL>]^C^C(F:CLS) $S=S
  5524. **aa23f 3
  5525. [ Define ]
  5526. [ symbol ]
  5527.  
  5528. [   S    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol S")(princ));+
  5529. (progn(setq f:list '(a:a23a ubox "S" 18))(princ))(f:rept "aa23f");
  5530. [   T    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol T")(princ));+
  5531. (progn(setq f:list '(a:a23a ubox "T" 19))(princ))(f:rept "aa23f");
  5532. [   U    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol U")(princ));+
  5533. (progn(setq f:list '(a:a23a ubox "U" 20))(princ))(f:rept "aa23f");
  5534. [   V    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol V")(princ));+
  5535. (progn(setq f:list '(a:a23a ubox "V" 21))(princ))(f:rept "aa23f");
  5536. [   W    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol W")(princ));+
  5537. (progn(setq f:list '(a:a23a ubox "W" 22))(princ))(f:rept "aa23f");
  5538. [   X    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol X")(princ));+
  5539. (progn(setq f:list '(a:a23a ubox "X" 23))(princ))(f:rept "aa23f");
  5540. [   Y    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol Y")(princ));+
  5541. (progn(setq f:list '(a:a23a ubox "Y" 24))(princ))(f:rept "aa23f");
  5542. [   Z    ]^C^C(F:LODF "a:a23a")(progn(terpri)(setq v:dpmt T)(princ "Symbol Z")(princ));+
  5543. (progn(setq f:list '(a:a23a ubox "Z" 25))(princ))(f:rept "aa23f");
  5544.  
  5545. [  A-I   ]$S=aa23d
  5546. [  J-R   ]$S=aa23e
  5547. [INSERT  ]$s=aa23a
  5548. [DELETE  ]^C^C(f:prmp) $S=aa23m
  5549. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5550. (terpri)(prompt "Display user box ")(a:a23c ubox)(princ));
  5551. [<CANCEL>]^C^C(F:CLS) $S=S
  5552. **aa23g 3
  5553. [Block    ]
  5554. [options  ]
  5555.  
  5556.  
  5557. [ADD     ]a;(progn (terpri)(prompt " ")(terpri)+
  5558. (prompt "Pick DONE from screen menu when finished.")(princ))
  5559.  
  5560. [CROSSING]c;(progn (terpri)(prompt " ")(terpri)+
  5561. (prompt "Pick DONE from screen menu when finished.")(princ))
  5562.  
  5563. [LAST    ]l;(progn (terpri)(prompt " ")(terpri)+
  5564. (prompt "Pick DONE from screen menu when finished.")(princ))
  5565.  
  5566. [REMOVE  ]r;(progn (terpri)(prompt " ")(terpri)+
  5567. (prompt "Pick DONE from screen menu when finished.")(princ))
  5568.  
  5569. [WINDOW  ]w;(progn (terpri)(prompt " ")(terpri)+
  5570. (prompt "Pick DONE from screen menu when finished.")(princ))
  5571.  
  5572.  
  5573. [ <DONE> ]$S=S
  5574.  
  5575. [<CANCEL>]^C^C(F:CLS) $S=S
  5576. **aa23h 3
  5577. [Attribut]
  5578. [options ]
  5579.  
  5580.  
  5581.  
  5582. [DOOR    ]^PDO^P;
  5583. [WINDOW  ]^PWI^P;
  5584. [STRUCTRL]^PST^P;
  5585. [PLUMBING]^PPL^P;
  5586. [TLT. ACC]^PTO^P;
  5587. [LIGHTING]^PLI^P;
  5588. [FURNITUR]^PFU^P;
  5589. [APPLIANC]^PAP^P;
  5590.  
  5591.  
  5592.  
  5593.  
  5594. [ NONE   ]^PNO^P;
  5595. **aa23m 3
  5596. [ Delete ]
  5597. [ symbol ]
  5598.  
  5599. [   A    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol A")(princ));+
  5600. (progn(setq f:list '(a:a23e ubox "A" 0))(princ))(f:rept "aa23m");
  5601. [   B    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol B")(princ));+
  5602. (progn(setq f:list '(a:a23e ubox "B" 1))(princ))(f:rept "aa23m");
  5603. [   C    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol C")(princ));+
  5604. (progn(setq f:list '(a:a23e ubox "C" 2))(princ))(f:rept "aa23m");
  5605. [   D    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol D")(princ));+
  5606. (progn(setq f:list '(a:a23e ubox "D" 3))(princ))(f:rept "aa23m");
  5607. [   E    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol E")(princ));+
  5608. (progn(setq f:list '(a:a23e ubox "E" 4))(princ))(f:rept "aa23m");
  5609. [   F    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol F")(princ));+
  5610. (progn(setq f:list '(a:a23e ubox "F" 5))(princ))(f:rept "aa23m");
  5611. [   G    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol G")(princ));+
  5612. (progn(setq f:list '(a:a23e ubox "G" 6))(princ))(f:rept "aa23m");
  5613. [   H    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol H")(princ));+
  5614. (progn(setq f:list '(a:a23e ubox "H" 7))(princ))(f:rept "aa23m");
  5615. [   I    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol I")(princ));+
  5616. (progn(setq f:list '(a:a23e ubox "I" 8))(princ))(f:rept "aa23m");
  5617. [  J-R   ]$S=aa23n
  5618. [  S-Z   ]$S=aa23o
  5619. [INSERT  ]$s=aa23a
  5620. [DEFINE  ]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  5621. (cond +
  5622. (v:2d(f:prmp)) +
  5623. (T(progn (terpri)(prompt " ")(terpri)+
  5624. (prompt "To define a 3-D symbol, you must first define a 2-D version of")(terpri)+
  5625. (prompt "it, then pick DEFINE again. Select a letter name for the symbol.")(princ))));+
  5626. $S=aa23d
  5627. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5628. (terpri)(prompt "Display user box ")(princ ubox)(a:a23c ubox)(princ))
  5629. [<CANCEL>]^C^C(F:CLS) $S=S
  5630. **aa23n 3
  5631. [ Delete ]
  5632. [ symbol ]
  5633.  
  5634. [   J    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol J")(princ));+
  5635. (progn(setq f:list '(a:a23e ubox "J" 9))(princ))(f:rept "aa23m");
  5636. [   K    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol K")(princ));+
  5637. (progn(setq f:list '(a:a23e ubox "K" 10))(princ))(f:rept "aa23m");
  5638. [   L    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol L")(princ));+
  5639. (progn(setq f:list '(a:a23e ubox "L" 11))(princ))(f:rept "aa23m");
  5640. [   M    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol M")(princ));+
  5641. (progn(setq f:list '(a:a23e ubox "M" 12))(princ))(f:rept "aa23m");
  5642. [   N    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol N")(princ));+
  5643. (progn(setq f:list '(a:a23e ubox "N" 13))(princ))(f:rept "aa23m");
  5644. [   O    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol O")(princ));+
  5645. (progn(setq f:list '(a:a23e ubox "O" 14))(princ))(f:rept "aa23m");
  5646. [   P    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol P")(princ));+
  5647. (progn(setq f:list '(a:a23e ubox "P" 15))(princ))(f:rept "aa23m");
  5648. [   Q    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol Q")(princ));+
  5649. (progn(setq f:list '(a:a23e ubox "Q" 16))(princ))(f:rept "aa23m");
  5650. [   R    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol R")(princ));+
  5651. (progn(setq f:list '(a:a23e ubox "R" 17))(princ))(f:rept "aa23m");
  5652. [  A-I   ]$S=aa23m
  5653. [  S-Z   ]$S=aa23o
  5654. [INSERT  ]$s=aa23a
  5655. [DEFINE  ]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  5656. (cond +
  5657. (v:2d(f:prmp)) +
  5658. (T(progn (terpri)(prompt " ")(terpri)+
  5659. (prompt "To define a 3-D symbol, you must first define a 2-D version of")(terpri)+
  5660. (prompt "it, then pick DEFINE again. Select a letter name for the symbol.")(princ))));+
  5661. $S=aa23d
  5662. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5663. (terpri)(prompt "Display user box ")(princ ubox)(a:a23c ubox)(princ))
  5664. [<CANCEL>]^C^C(F:CLS) $S=S
  5665. **aa23o 3
  5666. [ Delete ]
  5667. [ symbol ]
  5668.  
  5669. [   S    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol S")(princ));+
  5670. (progn(setq f:list '(a:a23e ubox "S" 18))(princ))(f:rept "aa23m");
  5671. [   T    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol T")(princ));+
  5672. (progn(setq f:list '(a:a23e ubox "T" 19))(princ))(f:rept "aa23m");
  5673. [   U    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol U")(princ));+
  5674. (progn(setq f:list '(a:a23e ubox "U" 20))(princ))(f:rept "aa23m");
  5675. [   V    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol V")(princ));+
  5676. (progn(setq f:list '(a:a23e ubox "V" 21))(princ))(f:rept "aa23m");
  5677. [   W    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol W")(princ));+
  5678. (progn(setq f:list '(a:a23e ubox "W" 22))(princ))(f:rept "aa23m");
  5679. [   X    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol X")(princ));+
  5680. (progn(setq f:list '(a:a23e ubox "X" 23))(princ))(f:rept "aa23m");
  5681. [   Y    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol Y")(princ));+
  5682. (progn(setq f:list '(a:a23e ubox "Y" 24))(princ))(f:rept "aa23m");
  5683. [   Z    ]^C^C(F:LODF "a:a23e")(progn(terpri)(setq v:dpmt T)(princ "Symbol Z")(princ));+
  5684. (progn(setq f:list '(a:a23e ubox "Z" 25))(princ))(f:rept "aa23m");
  5685. [  A-I   ]$S=aa23m
  5686. [  J-R   ]$S=aa23n
  5687.  
  5688. [INSERT  ]$s=aa23a
  5689. [DEFINE  ]^C^C(setq v:2d (= (getvar "useri5") 0)) +
  5690. (cond +
  5691. (v:2d(f:prmp)) +
  5692. (T(progn (terpri)(prompt " ")(terpri)+
  5693. (prompt "To define a 3-D symbol, you must first define a 2-D version of")(terpri)+
  5694. (prompt "it, then pick DEFINE again. Select a letter name for the symbol.")(princ))));+
  5695. $S=aa23d
  5696. [DISPLAY ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5697. (terpri)(prompt "Display user box ")(princ ubox)(a:a23c ubox)(princ))
  5698. [<CANCEL>]^C^C(F:CLS) $S=S
  5699. **a1023sH 3
  5700. [Block    ]
  5701. [options  ]
  5702.  
  5703.  
  5704. [ADD     ]a
  5705.  
  5706. [CROSSING]c
  5707.  
  5708. [LAST    ]l
  5709.  
  5710. [REMOVE  ]r
  5711.  
  5712. [WINDOW  ]w
  5713.  
  5714.  
  5715. [<RETURN>] $S=S
  5716.  
  5717. [<CANCEL>]^C^C(F:CLS) $S=S
  5718. **aa23j 3
  5719. [User-   ]
  5720. [defined ]
  5721. [symbols ]
  5722.  
  5723.  
  5724. [SELECT A]^C^C(F:LODF "a:h18b")(a:h18b)
  5725. [LIBRARY ]^C^C(F:LODF "a:h18b")(a:h18b)
  5726.  
  5727. [CREATE A]^C^C(F:LODF "a:h18a")(a:h18a)
  5728. [LIBRARY ]^C^C(F:LODF "a:h18a")(a:h18a)
  5729.  
  5730. [DISPLAY ]^C^C(f:prmp) $S=aa23k
  5731. [A SUB-  ]^C^C(f:prmp) $S=aa23k
  5732. [LIBRARY ]^C^C(f:prmp) $S=aa23k
  5733.  
  5734.  
  5735.  
  5736. [<CANCEL>]^C^C(F:CLS) $S=S
  5737. **aa23k 3
  5738. [Sub-libs]
  5739.  
  5740.  
  5741. [   U1   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5742. (terpri)(prompt "User box U1")(setq v:dpmt T f:list '(a:a23c "U1"))(princ))(f:rept "aa23k");
  5743. [   U2   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5744. (terpri)(prompt "User box U2")(setq v:dpmt T f:list '(a:a23c "U2"))(princ))(f:rept "aa23k");
  5745. [   U3   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5746. (terpri)(prompt "User box U3")(setq v:dpmt T f:list '(a:a23c "U3"))(princ))(f:rept "aa23k");
  5747. [   U4   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5748. (terpri)(prompt "User box U4")(setq v:dpmt T f:list '(a:a23c "U4"))(princ))(f:rept "aa23k");
  5749. [   U5   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5750. (terpri)(prompt "User box U5")(setq v:dpmt T f:list '(a:a23c "U5"))(princ))(f:rept "aa23k");
  5751. [   U6   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5752. (terpri)(prompt "User box U6")(setq v:dpmt T f:list '(a:a23c "U6"))(princ))(f:rept "aa23k");
  5753. [   U7   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5754. (terpri)(prompt "User box U7")(setq v:dpmt T f:list '(a:a23c "U7"))(princ))(f:rept "aa23k");
  5755. [   U8   ]^C^C(F:LODF "a:a23c") (progn (terpri)(prompt " ")(terpri)(prompt " ")+
  5756. (terpri)(prompt "User box U8")(setq v:dpmt T f:list '(a:a23c "U8"))(princ))(f:rept "aa23k");
  5757.  
  5758.  
  5759.  
  5760.  
  5761.  
  5762.  
  5763. [<CANCEL>]^C^C(F:CLS) $S=S
  5764. **aa23l 3
  5765. [Layer   ]
  5766. [type    ]
  5767.  
  5768. [APPLIANC]$s=uapplian
  5769. [DOOR/WND]$s=udoors
  5770. [ELECTRIC]$s=uelectri
  5771. [ELEVTION]$s=uelevtio
  5772. [FURNITUR]$s=ufurnitu
  5773. [LINES   ]$s=ulines
  5774. [PLUMBING]$s=uplumbin
  5775. [ROOFS   ]$s=uroofs
  5776. [SITE    ]$s=usite
  5777. [STRUCTRL]$s=ustructr
  5778. [TAGS    ]$s=utags
  5779. [TITLE   ]$s=utitle
  5780. [VERTICAL]$s=uvertica
  5781. [WALLS   ]$s=uwalls
  5782.  
  5783. **uapplian 3
  5784. [Applianc]
  5785.  
  5786.  
  5787.  
  5788. [APPLIANC]^Parappliance^P;
  5789.  
  5790. [APPLSPEC]^Parapplspec^P;
  5791.  
  5792. [SCABINET]^Parscabinet^P;
  5793.  
  5794. [DCABINET]^Pardcabinet^P;
  5795.  
  5796.  
  5797.  
  5798.  
  5799. [ <LAST>]$s=aa23l
  5800.  
  5801.  
  5802. **udoors 3
  5803. [Door & ]
  5804. [window ]
  5805.  
  5806.  
  5807. [DOOR    ]^Pardoor^P;
  5808. [HEADER  ]^Parheader^P;
  5809. [DOORSPEC]^Pardoorspec^P;
  5810.  
  5811. [WINDOW  ]^Parwindow^P;
  5812. [WHEADER ]^Parwheader^P;
  5813. [WNSPEC  ]^Parwindowspec^P;
  5814. [GLAZING ]^Parglazing^P;
  5815.  
  5816. [FLOOR   ]^Parfloor^P;
  5817.  
  5818. [ <LAST>]$s=aa23l
  5819.  
  5820.  
  5821. **uelectri 3
  5822. [Elec. & ]
  5823. [lighting]
  5824.  
  5825.  
  5826. [CEILING ]^Parceiling^P;
  5827. [LIGHTIN ]^Peelighting^P;
  5828. [LIGHTFL ]^Peelightfl^P;
  5829. [LIGHTEM ]^Peelightem^P;
  5830. [LT. SPEC]^Peelightspec^P;
  5831. [CONTROL ]^Peecontrol^P;
  5832.  
  5833.  
  5834. [ <MORE>]$s=uelectr2
  5835.  
  5836.  
  5837. [ <LAST>]$s=aa23l
  5838.  
  5839.  
  5840. **uelectr2 3
  5841. [Elec. & ]
  5842. [lighting]
  5843.  
  5844.  
  5845.  
  5846. [DIFFUSER]^Pmhdiff^P;
  5847. [COMM    ]^Peecomm^P;
  5848. [PANEL   ]^Peepanel^P;
  5849. [SWITCH  ]^Peeswitch^P;
  5850. [POWER   ]^Peepower^P;
  5851. [FAN     ]^Pmhfan^P;
  5852.  
  5853.  
  5854.  
  5855.  
  5856. [ <LAST>]$s=uelectri
  5857.  
  5858.  
  5859. **uelevtio 3
  5860. [Elevtion]
  5861.  
  5862.  
  5863. [WINDOW  ]^Parelwindow^P;
  5864.  
  5865. [DOOR    ]^Pareldoor^P;
  5866.  
  5867. [DR HINGE]^Pareldhinge^P;
  5868.  
  5869. [WD HINGE]^Parelwhinge^P;
  5870.  
  5871. [ELEVTION]^Parelvtn^P;
  5872.  
  5873.  
  5874.  
  5875. [ <LAST>]$s=aa23l
  5876.  
  5877.  
  5878. **ufurnitu 3
  5879. [Furnitur]
  5880.  
  5881. [DESK    ]^Pfmdesk^P;
  5882. [CHAIR   ]^Pfmchair^P;
  5883. [CASE    ]^Pfmcase^P;
  5884. [FILE    ]^Pfmfile^P;
  5885. [TABLE   ]^Pfmtable^P;
  5886. [PARTITN ]^Pfmpartition^P;
  5887. [PLANT   ]^Pfmplant^P;
  5888. [EQUIP   ]^Pfmequip^P;
  5889. [FURNSPEC]^Pfmspec^P;
  5890. [MISC    ]^Pfmmisc^P;
  5891. [WD.GRAIN]^Pfmwdgrain^P;
  5892.  
  5893.  
  5894. [ <LAST>]$s=aa23l
  5895.  
  5896.  
  5897. **ulines 3
  5898. [Lines   ]
  5899.  
  5900. [LIGHT   ]^Plight^P;
  5901. [MEDIUM  ]^Pmedium^P;
  5902. [HEAVY   ]^Pheavy^P;
  5903. [CENTERL ]^Pcenterl^P;
  5904. [CENTERM ]^Pcenterm^P;
  5905. [CENTERH ]^Pcenterh^P;
  5906. [DASH1L  ]^Pdash1l^P;
  5907. [DASH1M  ]^Pdash1m^P;
  5908. [DASH1H  ]^Pdash1h^P;
  5909. [DASH2L  ]^Pdash2l^P;
  5910. [DASH2M  ]^Pdash2m^P;
  5911. [DASH2H  ]^Pdash2h^P;
  5912.  
  5913. [ <LAST>]$s=aa23l
  5914.  
  5915.  
  5916. **uplumbin 3
  5917. [Plumbing]
  5918.  
  5919.  
  5920. [FIXTURE ]^Pmpfixture^P;
  5921.  
  5922. [FIXTSPEC]^Pmpfixtspec^P;
  5923.  
  5924. [PARTITN ]^Parpartition^P;
  5925.  
  5926. [ACCESSRY]^Paraccessory^P;
  5927.  
  5928. [ACCSPEC ]^Paraccspec^P;
  5929.  
  5930.  
  5931.  
  5932. [ <LAST>]$s=aa23l
  5933.  
  5934.  
  5935. **uroofs 3
  5936. [Roofs   ]
  5937.  
  5938.  
  5939.  
  5940. [ROOFPLAN]^Parroofplan^P;
  5941.  
  5942. [3D FACE ]^Prf3dface^P;
  5943.  
  5944. [3D LINE ]^Prf3dline^P;
  5945.  
  5946.  
  5947.  
  5948.  
  5949.  
  5950.  
  5951. [ <LAST>]$s=aa23l
  5952.  
  5953.  
  5954. **usite 3
  5955. [Site]
  5956.  
  5957. [PROPRTYL]^Plspropl^P;
  5958. [PROPRTYM]^Plspropm^P;
  5959. [PROPRTYH]^Plsproph^P;
  5960. [CONTOUR ]^Plscontour^P;
  5961. [CURB    ]^Plscurb^P;
  5962. [STRIPING]^Plsstriping^P;
  5963. [VEHICLE ]^Plsvehicle^P;
  5964. [UTILITY ]^Plsutil^P;
  5965. [SIDEWALK]^Plssidewalk^P;
  5966. [TREEDC  ]^Plstreedc^P;
  5967. [MISC.   ]^Plsmisc^P;
  5968.  
  5969.  
  5970. [ <LAST>]$s=aa23l
  5971.  
  5972.  
  5973. **ustructr 3
  5974. [Structrl]
  5975.  
  5976.  
  5977.  
  5978. [WOOD    ]^Pstwood^P;
  5979. [METAL   ]^Pstmetal^P;
  5980. [CONCRETE]^Pstconcrete^P;
  5981. [HWOOD   ]^Psthwood^P;
  5982. [HCONCRET]^Psthconcrete^P;
  5983. [HMETAL  ]^Psthmetal^P;
  5984. [STR.SPEC]^Pstspec^P;
  5985.  
  5986.  
  5987.  
  5988.  
  5989. [ <LAST>]$s=aa23l
  5990.  
  5991.  
  5992. **utags 3
  5993. [Tags]
  5994.  
  5995.  
  5996. [ALP.NOTE]^Paralpnote^P;
  5997. [ALP.TARG]^Paralptarg^P;
  5998. [GEN.NOTE]^Pargennote^P;
  5999. [TAG     ]^Partag^P;
  6000. [GRID    ]^Pargrid^P;
  6001. [DIM     ]^Pardim^P;
  6002. [NOTE    ]^Parnote^P;
  6003. [NOTEPRES]^Parnotepres^P;
  6004. [FINISH  ]^Parfinish^P;
  6005.  
  6006.  
  6007.  
  6008. [ <LAST>]$s=aa23l
  6009.  
  6010.  
  6011. **utitle 3
  6012. [Title]
  6013.  
  6014.  
  6015. [TBLOCK  ]^Partblock^P;
  6016.  
  6017. [TTEXT   ]^Parttext^P;
  6018.  
  6019. [NORTH   ]^Parnorth^P;
  6020.  
  6021. [SCALE   ]^Parscale^P;
  6022.  
  6023. [REVISION]^Parrevision^P;
  6024.  
  6025.  
  6026.  
  6027. [ <LAST>]$s=aa23l
  6028.  
  6029.  
  6030. **uvertica 3
  6031. [Vertical]
  6032. [trans.  ]
  6033.  
  6034.  
  6035.  
  6036. [STAIR   ]^Parstair^P;
  6037.  
  6038. [HANDRAIL]^Parhandrail^P;
  6039.  
  6040. [ELEVATOR]^Parelvtr^P;
  6041.  
  6042. [3D STAIR]^Parstair3d^P;
  6043.  
  6044.  
  6045.  
  6046. [ <LAST>]$s=aa23l
  6047.  
  6048.  
  6049. **uwalls 3
  6050. [Walls]
  6051.  
  6052. [SPACE   ]^parwall1line^p;
  6053.  
  6054. [WALL    ]^Parwall^P;
  6055.  
  6056. [WALLTEX ]^Parwalltex^P;
  6057.  
  6058. [PARTIAL ]^Parpartialht^P;
  6059.  
  6060.  
  6061.  
  6062.  
  6063.  
  6064.  
  6065. [ <LAST>]$s=aa23l
  6066.  
  6067.  
  6068. **a1024sA 3
  6069. [Sidewalk]
  6070.  
  6071.  
  6072. [ARC     ]AR $S=A1024SB
  6073.  
  6074. [LINE    ]LI
  6075.  
  6076. [UNDO    ]UN
  6077.  
  6078.  
  6079.  
  6080.  
  6081. [ <DONE> ]^C^C(F:UNDO)(progn(setq f:list '(a:a24a "lssidewalk")) +
  6082. (a:rep2 'a:a24b)(princ))
  6083.  
  6084.  
  6085.  
  6086.  
  6087. [<CANCEL>]^C^C(F:CLS) $S=S
  6088. **A1024SB 3
  6089. [Sidewalk]
  6090.  
  6091. [ARC     ]ARC
  6092.  
  6093. [ANGLE   ]AN
  6094. [CENTER  ]CE
  6095. [DIRECT'N]DI
  6096. [RADIUS  ]RA
  6097. [2ND PT  ]SE
  6098. [UNDO    ]UN
  6099.  
  6100. [LINE    ]LI $S=A1024SA
  6101.  
  6102.  
  6103. [ <DONE> ]^C^C(F:UNDO)(progn(setq f:list '(a:a24a "lssidewalk")) +
  6104. (a:rep2 'a:a24b)(princ))
  6105.  
  6106.  
  6107. [<CANCEL>]^C^C(F:CLS) $S=S
  6108. **A1025S1 3
  6109. [North   ]
  6110. [arrow   ]
  6111.  
  6112. [--------]^C^C(setq V:b "aa25a")(f:rept "A1025S1");
  6113. [        ]^C^C(setq V:b "aa25a")(f:rept "A1025S1");
  6114. [ TRUE   ]^C^C(setq V:b "aa25a")(f:rept "A1025S1");
  6115. [ NORTH  ]^C^C(setq V:b "aa25a")(f:rept "A1025S1");
  6116. [        ]^C^C(setq V:b "aa25a")(f:rept "A1025S1");
  6117. [--------]^C^C(setq V:b "aa25a")(f:rept "A1025S1");
  6118.  
  6119. [--------]^C^C(setq V:b "aa25b")(f:rept "A1025S1");
  6120. [        ]^C^C(setq V:b "aa25b")(f:rept "A1025S1");
  6121. [REFRENCE]^C^C(setq V:b "aa25b")(f:rept "A1025S1");
  6122. [ NORTH  ]^C^C(setq V:b "aa25b")(f:rept "A1025S1");
  6123. [        ]^C^C(setq V:b "aa25b")(f:rept "A1025S1");
  6124. [--------]^C^C(setq V:b "aa25b")(f:rept "A1025S1");
  6125.  
  6126. [<CANCEL>]^C^C(F:CLS) $S=S
  6127. **A1026SBJ 3
  6128. [Numbers ]
  6129.  
  6130. [   1    ]^P1^P\
  6131. [   2    ]^P2^P\
  6132. [   3    ]^P3^P\
  6133. [   4    ]^P4^P\
  6134. [   5    ]^P5^P\
  6135. [   6    ]^P6^P\
  6136. [   7    ]^P7^P\
  6137. [   8    ]^P8^P\
  6138. [   9    ]^P9^P\
  6139. [   0    ]^P0^P\
  6140.  
  6141. [  FEET  ]^P'^P\
  6142.  
  6143. [<RETURN>];
  6144.  
  6145. [<CANCEL>]^C^C(F:CLS) $S=S
  6146. **A1026SCJ 3
  6147. [Mullion ]
  6148. [type    ]
  6149.  
  6150.  
  6151. [--------]^PR^P;
  6152. [        ]^PR^P;
  6153. [RECTANGL]^PR^P;
  6154. [        ]^PR^P;
  6155. [--------]^PR^P;
  6156.  
  6157. [--------]^PC^P;
  6158. [        ]^PC^P;
  6159. [ CUSTOM ]^PC^P;
  6160. [        ]^PC^P;
  6161. [--------]^PC^P;
  6162.  
  6163. [<CANCEL>]^C^C(F:CLS) $S=S
  6164. **A1026SDJ 3
  6165. [Lite    ]
  6166. [location]
  6167.  
  6168.  
  6169. [--------]^PB^P;
  6170. [  BACK  ]^PB^P;
  6171. [--------]^PB^P;
  6172.  
  6173. [--------]^PM^P;
  6174. [ MIDDLE ]^PM^P;
  6175. [--------]^PM^P;
  6176.  
  6177. [--------]^PF^P;
  6178. [ FRONT  ]^PF^P;
  6179. [--------]^PF^P;
  6180.  
  6181.  
  6182. [<CANCEL>]^C^C(F:CLS) $S=S
  6183. **A1026SEJ 3
  6184. [Custom  ]
  6185. [mullion ]
  6186. [symbol  ]
  6187. [name    ]
  6188.  
  6189.  
  6190. [SAMPLE  ]ab01c;
  6191.  
  6192.  
  6193. [You can ]
  6194. [place   ]
  6195. [your own]
  6196. [mullion ]
  6197. [symbol  ]
  6198. [name    ]
  6199. [here.   ]
  6200.  
  6201. [<CANCEL>]^C^C(F:CLS) $S=S
  6202. **A1026SFJ 3
  6203. [Custom  ]
  6204. [symbol  ]
  6205. [mullion ]
  6206. [width   ]
  6207.  
  6208.  
  6209. [  4     ]^P4^P;
  6210.  
  6211.  
  6212. [You can ]
  6213. [place   ]
  6214. [your own]
  6215. [mullion ]
  6216. [width   ]
  6217. [here.   ]
  6218.  
  6219.  
  6220. [<CANCEL>]^C^C(F:CLS) $S=S
  6221. **A1026SGJ 3
  6222. [Custom  ]
  6223. [symbol  ]
  6224. [mullion ]
  6225. [depth   ]
  6226.  
  6227.  
  6228. [  12    ]^P12^P;
  6229.  
  6230.  
  6231. [You can ]
  6232. [place   ]
  6233. [your own]
  6234. [mullion ]
  6235. [depth   ]
  6236. [here.   ]
  6237.  
  6238.  
  6239. [<CANCEL>]^C^C(F:CLS) $S=S
  6240. **A1038SA 3
  6241. [Floor   ]
  6242. [sink    ]
  6243.  
  6244.  
  6245. [--------]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13a" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6246. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sb
  6247. [        ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13a" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6248. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sb
  6249. [CORNER  ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13a" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6250. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sb
  6251. [        ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13a" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6252. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sb
  6253. [--------]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13a" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6254. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sb
  6255.  
  6256. [--------]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13b" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6257. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sc
  6258. [        ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13b" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6259. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sc
  6260. [RECTANG.]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13b" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6261. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sc
  6262. [        ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13b" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6263. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sc
  6264. [--------]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab13b" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6265. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(f:prmp);$s=a1038sc
  6266.  
  6267.  
  6268. [<CANCEL>]^C^C(F:CLS) $S=S
  6269. **A1038SB 3
  6270. [Corner ]
  6271. [floor  ]
  6272. [sink   ]
  6273.  
  6274. [Depth 4"]
  6275.  
  6276.  
  6277. [18" RAD.]^C^C(setq V:x 18 V:y 18 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SB");
  6278.  
  6279. [24" RAD.]^C^C(setq V:x 24 V:y 24 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SB");
  6280.  
  6281. [30" RAD.]^C^C(setq V:x 30 V:y 30 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SB");
  6282.  
  6283.  
  6284. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 30 v:y 30 v:r 0 v:zs 4 V:ze 0);+
  6285. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ab13a" T V:x V:y V:zs V:ze T +
  6286. nil "PLDFLT" "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(princ));+
  6287. (a:othr nil 8 "a1038sb")
  6288.  
  6289. [PREVIOUS ]$s=A1038SA
  6290. [<CANCEL>]^C^C(F:CLS) $S=S
  6291. **A1038SC 3
  6292. [Rectang.]
  6293. [floor   ]
  6294. [sink   ]
  6295.  
  6296. [Depth 4"]
  6297.  
  6298. [24"x24" ]^C^C(setq V:x 24 V:y 24 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SC");
  6299. [30"x30" ]^C^C(setq V:x 30 V:y 30 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SC");
  6300. [36"x36" ]^C^C(setq V:x 36 V:y 36 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SC");
  6301.  
  6302. [22"x18" ]^C^C(setq V:x 18 V:y 22 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SC");
  6303. [24"x20" ]^C^C(setq V:x 20 V:y 24 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SC");
  6304. [30"x24" ]^C^C(setq V:x 24 V:y 30 V:r 0 V:zs 4 V:ze 0)(f:rept "A1038SC");
  6305.  
  6306. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:x 24 v:y 24 v:r 0 v:zs 4 V:ze 0);+
  6307. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ab13b" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6308. "au013t1" (list '("PLUNAME" "FLOOR SINK")) "mpfixtspec"))(princ));+
  6309. (a:othr nil 9 "A1038SC")
  6310.  
  6311. [PREVIOUS ]$s=A1038SA
  6312. [<CANCEL>]^C^C(F:CLS) $S=S
  6313. **A1039S1 3
  6314. [Bathtub ]
  6315.  
  6316. [(Rim ht.]
  6317. [  1'6")]
  6318.  
  6319.  
  6320. [2'6x5'0]^C^C(setq V:x 60 V:y 30 V:zs 18 V:ze 0);+
  6321. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab141" T V:x V:y V:zs V:ze T T +
  6322. "PLDFLT" "au013t1" (list '("PLUNAME" "BATH TUB")) "mpfixtspec"))(princ))(f:rept "A1039S1");
  6323.  
  6324. [2'6x5'6]^C^C(setq V:x 66 V:y 30 V:zs 18 V:ze 0);+
  6325. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ab141" T V:x V:y V:zs V:ze T T +
  6326. "PLDFLT" "au013t1" (list '("PLUNAME" "BATH TUB")) "mpfixtspec"))(princ))(f:rept "A1039S1");
  6327.  
  6328.  
  6329.  
  6330. [OTHER ]^C^C(f:lodf "a:othr") (setq v:x 60 v:y 30 v:zs 18 V:ze 0);+
  6331. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ab141" T V:x V:y V:zs V:ze T T "PLDFLT" +
  6332. "au013t1" (list '("PLUNAME" "BATH TUB")) "mpfixtspec"))(princ));+
  6333. (a:othr nil 10 "A1039S1")
  6334.  
  6335.  
  6336.  
  6337.  
  6338. [<CANCEL>]^C^C(F:CLS) $S=S
  6339. **A1043SA 3
  6340. [Guest  ]
  6341. [chair  ]
  6342.  
  6343.  
  6344. [ARM     ]^C^C(setq V:b "ab18a");+
  6345. (setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6346. "au017t1" (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(f:prmp);$s=a1043sb
  6347.  
  6348. [ARM-UNDR]^C^C(setq V:b "ab18b");+
  6349. (setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" V:b T V:x V:y V:zs V:ze T nil +
  6350. "FUDFLT" "au017t1" (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(f:prmp);$s=a1043sb
  6351.  
  6352.  
  6353.  
  6354. [SWIVEL ]^C^C(setq V:b "ab18c");+
  6355. (setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6356. "au017t1" (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(f:prmp);$s=a1043sb
  6357.  
  6358. [SW-UNDER]^C^C(setq V:b "ab18d");+
  6359. (setq f:list '(F:INSR nil T '(("osmode") (512)) "fmchair" V:b T V:x V:y V:zs V:ze T nil +
  6360. "FUDFLT" "au017t1" (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(f:prmp);$s=a1043sb
  6361.  
  6362.  
  6363.  
  6364.  
  6365. [<CANCEL>]^C^C(F:CLS) $S=S
  6366. **A1043SB 3
  6367. [Guest  ]
  6368. [chair ]
  6369.  
  6370. [(Seat  ]
  6371. [ht. 18")]
  6372.  
  6373.  
  6374. [23x20   ]^C^C(setq V:x 23 V:y 20 V:r 0 V:zs 18 V:ze 0)(f:rept "A1043SB");
  6375.  
  6376. [24x23   ]^C^C(setq V:x 24 V:y 23 V:r 0 V:zs 18 V:ze 0)(f:rept "A1043SB");
  6377.  
  6378. [26x24   ]^C^C(setq V:x 26 V:y 24 V:r 0 V:zs 18 V:ze 0)(f:rept "A1043SB");
  6379.  
  6380. [30x27   ]^C^C(setq V:x 30 V:y 27 V:r 0 V:zs 18 V:ze 0)(f:rept "A1043SB");
  6381.  
  6382. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 23 V:y 20 V:r 0 V:zs 18 V:ze 0);+
  6383. (progn(setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6384. "au017t1" (list '("FURNAME" "GUEST CHAIR")) "fmspec"))(princ));+
  6385. (a:othr "chair" 6 "A1043SB")
  6386. [PREVIOUS ]$s=A1043SA
  6387. [<CANCEL>]^C^C(F:CLS) $S=S
  6388. **A1044SA 3
  6389. [Table   ]
  6390. [Ht. 29" ]
  6391.  
  6392. [22x18   ]^C^C(setq V:x 22 V:y 18 V:zs 29 V:ze 0)(progn(setq f:list '(F:INSR nil +
  6393. T nil "fmtable" "ab19a" T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  6394. (list '("FURNAME" "TABLE")) "fmspec"))(princ))(f:rept "A1044SA");
  6395. [24x20   ]^C^C(setq V:x 24 V:y 20 V:zs 29 V:ze 0)(progn(setq f:list '(F:INSR nil +
  6396. T nil "fmtable" "ab19a" T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  6397. (list '("FURNAME" "TABLE")) "fmspec"))(princ))(f:rept "A1044SA");
  6398. [30x24   ]^C^C(setq V:x 30 V:y 24 V:zs 29 V:ze 0)(progn(setq f:list '(F:INSR nil +
  6399. T nil "fmtable" "ab19a" T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  6400. (list '("FURNAME" "TABLE")) "fmspec"))(princ))(f:rept "A1044SA");
  6401. [36x36   ]^C^C(setq V:x 36 V:y 36 V:zs 29 V:ze 0)(progn(setq f:list '(F:INSR nil +
  6402. T nil "fmtable" "ab19a" T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  6403. (list '("FURNAME" "TABLE")) "fmspec"))(princ))(f:rept "A1044SA");
  6404. [48x60   ]^C^C(setq V:x 48 V:y 60 V:zs 29 V:ze 0)(progn(setq f:list '(F:INSR nil +
  6405. T nil "fmtable" "ab19a" T V:x V:y V:zs V:ze T nil "FUDFLT" "au017t1" +
  6406. (list '("FURNAME" "TABLE")) "fmspec"))(princ))(f:rept "A1044SA");
  6407.  
  6408. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 22 V:y 18 V:zs 29 V:ze 0);+
  6409. (progn(setq f:list '(F:INSR nil T nil "fmtable" "ab19a" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6410. "au017t1" (list '("FURNAME" "TABLE")) "fmspec"))(princ));+
  6411. (a:othr "table" 7 "A1044SA")
  6412.  
  6413.  
  6414.  
  6415. [WD GRAIN]^C^C(F:PRMP) $S=a1044sb \
  6416.  
  6417.  
  6418.  
  6419. [<CANCEL>]^C^C(F:CLS) $S=S
  6420. **a1044SB 3
  6421. [ Wood  ]
  6422. [ grain ]
  6423.  
  6424.  
  6425. [--------]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19b" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6426. [STRAIGHT]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19b" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6427. [--------]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19b" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6428.  
  6429. [--------]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19c" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6430. [SWIRL   ]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19c" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6431. [--------]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19c" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6432.  
  6433. [--------]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19d" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6434. [SIMPLE  ]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19d" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6435. [--------]^C^C(F:LODF "a:b191") (progn(setq f:list '(a:b191 "ab19d" "fmwdgrain"))(princ))(f:rept "A1044Sb");
  6436.     
  6437. [PREVIOUS ]^C^C^C^C(progn (terpri)(prompt " ")(terpri)+
  6438. (prompt "Select either a table or a wood grain finish from screen menu.")+
  6439. (princ));$s=A1044SA
  6440. [<CANCEL>]^C^C(F:CLS) $S=S
  6441. **a1045SA 3
  6442. [Panel]
  6443. [height]
  6444.  
  6445. [3'-6"]^P42.0^P;
  6446. [4'-0"]^P48.0^P;
  6447. [4'-6"]^P54.0^P;
  6448.  
  6449. [5'-0"]^P60.0^P;
  6450. [5'-6"]^P66.0^P;
  6451.  
  6452. [6'-0"]^P72.0^P;
  6453. [6'-6"]^P78.0^P;
  6454.  
  6455. [7'-0"]^P84.0^P;
  6456.  
  6457. [OTHER ]$s=au001s1
  6458.  
  6459. [<CANCEL>]^C^C(F:CLS) $S=S
  6460. **a1045SB 3
  6461. [Panel]
  6462. [width]
  6463.  
  6464. [1'-6"]^P18.0^P;
  6465.  
  6466. [2'-0"]^P24.0^P;
  6467.  
  6468. [2'-6"]^P30.0^P;
  6469.  
  6470. [3'-0"]^P36.0^P;
  6471.  
  6472. [3'-6"]^P42.0^P;
  6473.  
  6474. [4'-0"]^P48.0^P;
  6475.  
  6476. [OTHER ]$s=au001s1
  6477.  
  6478. [<CANCEL>]^C^C(F:CLS) $S=S
  6479. **a1045SC 3
  6480. [Panel]
  6481. [thicknes]
  6482.  
  6483.  
  6484. [1"]^P1.0^P;
  6485.  
  6486. [1 1/4"]^P1.25^P;
  6487.  
  6488. [1 1/2"]^P1.5^P;
  6489.  
  6490. [1 3/4"]^P1.75^P;
  6491.  
  6492. [2"]^P2.0^P;
  6493.  
  6494. [OTHER ]$s=au001s1
  6495.  
  6496.  
  6497. [<CANCEL>]^C^C(F:CLS) $S=S
  6498. **a1045sd 3
  6499. [Number]
  6500. [of end]
  6501. [pieces]
  6502.  
  6503.  
  6504. [--------]^P1^P;
  6505. [   1    ]^P1^P;
  6506. [--------]^P1^P;
  6507.  
  6508. [--------]^P2^P;
  6509. [   2    ]^P2^P;
  6510. [--------]^P2^P;
  6511.  
  6512. [--------]^P0^P;
  6513. [  NONE  ]^P0^P;
  6514. [--------]^P0^P;
  6515.  
  6516. [<CANCEL>]^C^C(F:CLS) $S=S
  6517. **A1046S1 3
  6518. [Range   ]
  6519.  
  6520. [(Burner ]
  6521. [ height ]
  6522. [ 35.5") ]
  6523.  
  6524. [21x25   ]^C^C(setq V:x 25 V:y 21 V:r 0 V:zs 35.5 V:ze 0)(f:rept "A1046S1");
  6525.  
  6526. [27x25   ]^C^C(setq V:x 25 V:y 27 V:r 0 V:zs 35.5 V:ze 0)(f:rept "A1046S1");
  6527.  
  6528. [30x27   ]^C^C(setq V:x 27 V:y 30 V:r 0 V:zs 35.5 V:ze 0)(f:rept "A1046S1");
  6529.  
  6530.  
  6531. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 25 V:y 21 V:r 0 V:zs 35.5 V:ze 0);+
  6532. (progn(setq f:list '(F:INSR nil T nil "arappliance" "ab211" T V:x V:y V:zs V:ze T nil "APDFLT" +
  6533. "au016t1" (list '("APLNAME" "RANGE")) "arapplspec"))(princ));+
  6534. (a:othr "range" 11 "A1046S1")
  6535.  
  6536.  
  6537.  
  6538. [<CANCEL>]^C^C(F:CLS) $S=S
  6539. **ab251 3
  6540. [Revision]
  6541.  
  6542. [REVISION]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25a" "arrevision"))(princ))(f:rept "Ab251");
  6543. [TRIANGLE]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25a" "arrevision"))(princ))(f:rept "Ab251");
  6544.  
  6545. [SMALL   ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25b" "arrevision"))(princ))(f:rept "Ab251");
  6546. [CLOUD   ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25b" "arrevision"))(princ))(f:rept "Ab251");
  6547.  
  6548. [MEDIUM  ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25c" "arrevision"))(princ))(f:rept "Ab251");
  6549. [CLOUD   ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25c" "arrevision"))(princ))(f:rept "Ab251");
  6550.  
  6551. [LARGE   ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25d" "arrevision"))(princ))(f:rept "Ab251");
  6552. [CLOUD   ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25d" "arrevision"))(princ))(f:rept "Ab251");
  6553.  
  6554. [L-SHAPED]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25e" "arrevision"))(princ))(f:rept "Ab251");
  6555. [CLOUD   ]^C^C(F:LODF "a:b251") (progn(setq f:list '(a:b251 "ab25e" "arrevision"))(princ))(f:rept "Ab251");
  6556.  
  6557. [<CANCEL>]^C^C(F:CLS) $S=S
  6558. **A1059S1 3
  6559. [Add'l   ]
  6560. [tags    ]
  6561.  
  6562.  
  6563. [FOS     ]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09a" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1059S1");
  6564.  
  6565. [FOC     ]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09b" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1059S1");
  6566.  
  6567. [FFL     ]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09c" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1059S1");
  6568.  
  6569. [CTR LINE]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09d" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1059S1");
  6570.  
  6571. [PROP LNE]^C^C(progn(setq f:list '(F:INSR nil nil nil "artag" "ac09e" T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1059S1");
  6572.  
  6573.  
  6574.  
  6575.  
  6576. [<CANCEL>]^C^C(F:CLS) $S=S
  6577. **A1060SA 3
  6578. [ Alpha  ]
  6579. [ Pages  ]
  6580.  
  6581. [ View:  ]
  6582. [PAGE  1 ]^P1^P;
  6583. [PAGE  2 ]^P2^P;
  6584. [PAGE  3 ]^P3^P;
  6585. [PAGE  4 ]^P4^P;
  6586. [PAGE  5 ]^P5^P;
  6587. [PAGE  6 ]^P6^P;
  6588. [ <MORE> ]^PM^P;
  6589.  
  6590. [DEFINE  ]^PD^P;
  6591. [PAGE    ]^PD^P;
  6592.  
  6593. [RETURN  ]^C^C(command "view" "r" "return")(F:RLAY);(F:MODR) $S=S
  6594. [TO DWG. ]^C^C(command "view" "r" "return")(F:RLAY);(F:MODR) $S=S
  6595. [<CANCEL>]^C^COsnap non (F:CLS) $S=S
  6596. **A1060SB 3
  6597. [ View     ]
  6598. [ more   ]
  6599. [ pages  ]
  6600.  
  6601. [PAGE  7 ]^P7^P;
  6602. [PAGE  8 ]^P8^P;
  6603. [PAGE  9 ]^P9^P;
  6604. [PAGE  10]^P10^P;
  6605. [PAGE  11]^P11^P;
  6606. [PAGE  12]^P12^P;
  6607. [PAGE  13]^P13^P;
  6608. [PAGE  14]^P14^P;
  6609. [PAGE  15]^P15^P;
  6610. [PAGE  16]^P16^P;
  6611. [PAGE  17]^P17^P;
  6612.  
  6613. [ <LAST>]^PL^P;
  6614. [<CANCEL>]^C^C(F:CLS) $S=S
  6615. **A1060SC 3
  6616. [ Define ]
  6617. [ Alpha  ]
  6618. [ Pages  ]
  6619.  
  6620. [PAGE  1 ]^P1^P;
  6621. [PAGE  2 ]^P2^P;
  6622. [PAGE  3 ]^P3^P;
  6623. [PAGE  4 ]^P4^P;
  6624. [PAGE  5 ]^P5^P;
  6625. [PAGE  6 ]^P6^P;
  6626. [PAGE  7 ]^P7^P;
  6627. [PAGE  8 ]^P8^P;
  6628. [PAGE  9 ]^P9^P;
  6629. [PAGE  10]^P10^P;
  6630.  
  6631. [ <MORE> ]^PM^P;
  6632. [ <VIEW> ]^C^C(f:lodf "a:c101")(progn(setq f:list '(a:c101))(princ))(f:rept nil);$s=a0160sa
  6633. [<CANCEL>]^C^C(F:CLS) $S=S
  6634. **A1060SD 3
  6635. [ Define ]
  6636. [ more   ]
  6637. [ pages  ]
  6638.  
  6639.  
  6640. [PAGE  11]^P11^P;
  6641. [PAGE  12]^P12^P;
  6642. [PAGE  13]^P13^P;
  6643. [PAGE  14]^P14^P;
  6644. [PAGE  15]^P15^P;
  6645. [PAGE  16]^P16^P;
  6646. [PAGE  17]^P17^P;
  6647.  
  6648.  
  6649. [ <LAST>]^PL^P;
  6650.  
  6651.  
  6652. [<CANCEL>]^C^C(F:CLS) $S=S
  6653. **A1060SE 3
  6654. [Define  ]
  6655. [view    ]
  6656.  
  6657.  
  6658. [--------]^PC^P;
  6659. [        ]^PC^P;
  6660. [CURRENT ]^PC^P;
  6661. [        ]^PC^P;
  6662. [--------]^PC^P;
  6663.  
  6664. [--------]^PW^P;
  6665. [        ]^PW^P;
  6666. [ WINDOW ]^PW^P;
  6667. [        ]^PW^P;
  6668. [--------]^PW^P;
  6669.  
  6670.  
  6671. [<CANCEL>]^C^C(F:CLS) $S=S
  6672. **A1060SF 3
  6673. [Notes   ]
  6674.  
  6675. [RECORD  ]^PA^P;
  6676. [ALPHA   ]^PA^P;
  6677. [NOTE    ]^PA^P;
  6678.  
  6679. [RECORD  ]^PG^P;
  6680. [GENERAL ]^PG^P;
  6681. [NOTE    ]^PG^P;
  6682.  
  6683. [EDIT    ]^PE^P;
  6684. [NOTE    ]^PE^P;
  6685.  
  6686. [RETURN  ]^C^Cview r return snap off (F:RLAY);(F:MODR) $S=S
  6687. [TO DWG. ]^C^Cview r return snap off (F:RLAY);(F:MODR) $S=S
  6688.  
  6689. [PREVIOUS]^PP^P;
  6690. [<CANCEL>]^C^C(F:CLS) $S=S
  6691. **A1061S1 3
  6692. [Steel   ]
  6693. [channel ]
  6694. [shapes  ]
  6695.  
  6696.  
  6697. [--------]^C^C(progn(setq f:list '(a:b121 "steel channel" "s"))(princ))(f:rept "a1061s1");
  6698. [        ]^C^C(progn(setq f:list '(a:b121 "steel channel" "s"))(princ))(f:rept "a1061s1");
  6699. [S SHAPE ]^C^C(progn(setq f:list '(a:b121 "steel channel" "s"))(princ))(f:rept "a1061s1");
  6700. [        ]^C^C(progn(setq f:list '(a:b121 "steel channel" "s"))(princ))(f:rept "a1061s1");
  6701. [--------]^C^C(progn(setq f:list '(a:b121 "steel channel" "s"))(princ))(f:rept "a1061s1");
  6702.  
  6703. [--------]^C^C(progn(setq f:list '(a:b121 "steel channel" "others"))(princ))(f:rept "a1061s1");
  6704. [        ]^C^C(progn(setq f:list '(a:b121 "steel channel" "others"))(princ))(f:rept "a1061s1");
  6705. [ OTHERS ]^C^C(progn(setq f:list '(a:b121 "steel channel" "others"))(princ))(f:rept "a1061s1");
  6706. [        ]^C^C(progn(setq f:list '(a:b121 "steel channel" "others"))(princ))(f:rept "a1061s1");
  6707. [--------]^C^C(progn(setq f:list '(a:b121 "steel channel" "others"))(princ))(f:rept "a1061s1");
  6708.  
  6709. [<CANCEL>]^C^C(F:CLS) $S=S
  6710. **A1062S1 3
  6711. [Wide    ]
  6712. [flange  ]
  6713. [shapes  ]
  6714.  
  6715.  
  6716. [--------]^C^C(progn(setq f:list '(a:b121 "wide flange" "s"))(princ))(f:rept "a1062s1");
  6717. [        ]^C^C(progn(setq f:list '(a:b121 "wide flange" "s"))(princ))(f:rept "a1062s1");
  6718. [S SHAPE ]^C^C(progn(setq f:list '(a:b121 "wide flange" "s"))(princ))(f:rept "a1062s1");
  6719. [        ]^C^C(progn(setq f:list '(a:b121 "wide flange" "s"))(princ))(f:rept "a1062s1");
  6720. [--------]^C^C(progn(setq f:list '(a:b121 "wide flange" "s"))(princ))(f:rept "a1062s1");
  6721.  
  6722. [--------]^C^C(progn(setq f:list '(a:b121 "wide flange" "others"))(princ))(f:rept "a1062s1");
  6723. [        ]^C^C(progn(setq f:list '(a:b121 "wide flange" "others"))(princ))(f:rept "a1062s1");
  6724. [ OTHERS ]^C^C(progn(setq f:list '(a:b121 "wide flange" "others"))(princ))(f:rept "a1062s1");
  6725. [        ]^C^C(progn(setq f:list '(a:b121 "wide flange" "others"))(princ))(f:rept "a1062s1");
  6726. [--------]^C^C(progn(setq f:list '(a:b121 "wide flange" "others"))(princ))(f:rept "a1062s1");
  6727.  
  6728. [<CANCEL>]^C^C(F:CLS) $S=S
  6729. **A1063S1 3
  6730. [Double  ]
  6731. [sink    ]
  6732.  
  6733. [(Counter]
  6734. [ht. 36")]
  6735.  
  6736.  
  6737. [W  x  D ]
  6738.  
  6739. [32"x21" ]^C^C(setq V:y 32 V:x 21 V:r 0 V:zs 8 V:ze 36)(f:rept "A1063S1");
  6740.  
  6741. [33"x22" ]^C^C(setq V:y 33 V:x 22 V:r 0 V:zs 8 V:ze 36)(f:rept "A1063S1");
  6742.  
  6743.  
  6744. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:y 32 V:x 21 V:r 0 V:zs 8 V:ze 36);+
  6745. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ac131" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6746. "au013t1" (list '("PLUNAME" "DBL SINK")) "mpfixtspec"))(princ));+
  6747. (a:othr nil 12 "A1063S1")
  6748.  
  6749.  
  6750. [<CANCEL>]^C^C(F:CLS) $S=S
  6751. **A1064S1 3
  6752. [Sink    ]
  6753.  
  6754. [(Counter]
  6755. [ht. 36")]
  6756.  
  6757.  
  6758.  
  6759. [W  x  D ]
  6760.  
  6761. [24"x21" ]^C^C(setq V:x 21 V:y 24 V:r 0 V:zs 9 V:ze 36)(f:rept "A1064S1");
  6762.  
  6763. [25"x22" ]^C^C(setq V:x 22 V:y 25 V:r 0 V:zs 9 V:ze 36)(f:rept "A1064S1");
  6764.  
  6765. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 21 V:y 24 V:r 0 V:zs 9 V:ze 36);+
  6766. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "ac141" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  6767. "au013t1" (list '("PLUNAME" "SINK")) "mpfixtspec"))(princ));+
  6768. (a:othr nil 12 "A1064S1")
  6769.  
  6770.  
  6771.  
  6772. [<CANCEL>]^C^C(F:CLS) $S=S
  6773. **A1068SA 3
  6774. [Exec    ]
  6775. [chair   ]
  6776.  
  6777.  
  6778. [RECTANG ]^C^C(setq V:b "ac18a")(f:prmp);$s=a1068sb
  6779. [REC-UNDR]^C^C(setq V:b "ac18b")(f:prmp);$s=a1068sb
  6780.  
  6781. [CURVED  ]^C^C(setq V:b "ac18c")(f:prmp);$s=a1068sb
  6782. [CUR-UNDR]^C^C(setq V:b "ac18d")(f:prmp);$s=a1068sb
  6783.  
  6784. [TAPERED ]^C^C(setq V:b "ac18e")(f:prmp);$s=a1068sb
  6785. [TAP-UNDR]^C^C(setq V:b "ac18f")(f:prmp);$s=a1068sb
  6786.  
  6787. [SIDE    ]^C^C(setq V:b "ac18g")(f:prmp);$s=a1068sb
  6788. [SID-UNDR]^C^C(setq V:b "ac18h")(f:prmp);$s=a1068sb
  6789.  
  6790.  
  6791. [<CANCEL>]^C^C(F:CLS) $S=S
  6792. **A1068SB 3
  6793. [Chair   ]
  6794.  
  6795. [(Seat      ]
  6796. [ht. 18")]
  6797.  
  6798. [16x20   ]^C^C(setq V:x 16 V:y 20 V:zs 18 V:ze 0)(f:rept "a1068sb");
  6799.  
  6800. [22x24   ]^C^C(setq V:x 22 V:y 24 V:zs 18 V:ze 0)(f:rept "a1068sb");
  6801.  
  6802. [27x30   ]^C^C(setq V:x 27 V:y 30 V:zs 18 V:ze 0)(f:rept "a1068sb");
  6803.  
  6804. [30x30   ]^C^C(setq V:x 30 V:y 30 V:zs 18 V:ze 0)(f:rept "a1068sb");
  6805.  
  6806. [36x32   ]^C^C(setq V:x 36 V:y 32 V:zs 18 V:ze 0)(f:rept "a1068sb");
  6807.  
  6808. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 16 V:y 20 V:zs 18 V:ze 0);+
  6809. (progn(setq f:list '(F:INSR nil T nil "fmchair" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6810. "au017t1" (list '("FURNAME" "EXEC CHAIR")) "fmspec"))(princ));+
  6811. (a:othb "chair" T nil "A1068SB" T)
  6812. [PREVIOUS ]$s=a1068sa
  6813. [<CANCEL>]^C^C(F:CLS) $S=S
  6814. **A1069S1 3
  6815. [Sofa    ]
  6816.  
  6817. [(Seat      ]
  6818. [ht. 16")]
  6819.  
  6820.  
  6821.  
  6822. [72X36   ]^C^C(setq V:x 36 V:y 72 V:r 0 V:zs 16 V:ze 0)(f:rept "A1069S1");
  6823.  
  6824. [96X36   ]^C^C(setq V:x 36 V:y 96 V:r 0 V:zs 16 V:ze 0)(f:rept "A1069S1");
  6825.  
  6826.  
  6827. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 36 V:y 72 V:r 0 V:zs 16 V:ze 0);+
  6828. (progn(setq f:list '(F:INSR nil T nil "fmchair" "ac191" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6829. "au017t1" (list '("FURNAME" "SOFA")) "fmspec"))(princ));+
  6830. (a:othb "sofa" T nil "A1069S1" T)
  6831.  
  6832.  
  6833.  
  6834.  
  6835. [<CANCEL>]^C^C(F:CLS) $S=S
  6836. **A1070SA 3
  6837. [File    ]
  6838. [cabinet ]
  6839.  
  6840.  
  6841. [Letter/]
  6842. [legal  ]
  6843. [  2 DWR ]^C^C(setq V:b "ac20a2" V:zs 28 V:ze 0)(f:prmp);$s=a1070sb
  6844. [  3 DWR ]^C^C(setq V:b "ac20a3" V:zs 41 V:ze 0)(f:prmp);$s=a1070sb
  6845. [  4 DWR ]^C^C(setq V:b "ac20a4" V:zs 52 V:ze 0)(f:prmp);$s=a1070sb
  6846.  
  6847. [Lateral ]
  6848. [  2 DWR ]^C^C(setq V:b "ac20b2" V:zs 28 V:ze 0)(f:prmp);$s=a1070sb
  6849. [  3 DWR ]^C^C(setq V:b "ac20b3" V:zs 42 V:ze 0)(f:prmp);$s=a1070sb
  6850. [  4 DWR ]^C^C(setq V:b "ac20b4" V:zs 54 V:ze 0)(f:prmp);$s=a1070sb
  6851. [  5 DWR ]^C^C(setq V:b "ac20b5" V:zs 68 V:ze 0)(f:prmp);$s=a1070sb
  6852.  
  6853.  
  6854. [<CANCEL>]^C^C(F:CLS) $S=S
  6855. **A1070SB 3
  6856. [File    ]
  6857.  
  6858.  
  6859. [Letter  ]
  6860. [ 15x29  ]^C^C(setq V:x 29 V:y 15 V:r 0)(f:rept "a1070sb");
  6861. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 29 V:y 15 V:r 0);+
  6862. (progn(setq f:list '(F:INSR nil T nil "fmfile" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6863. "au017t1" (list '("FURNAME" "FILE")) "fmspec"))(princ));+
  6864. (a:othb "file cabinet" nil nil "A1070Sb" T)
  6865.  
  6866. [Legal   ]
  6867. [ 18x29  ]^C^C(setq V:x 29 V:y 18 V:r 0)(f:rept "a1070sb");
  6868. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 29 V:y 18 V:r 0);+
  6869. (progn(setq f:list '(F:INSR nil T nil "fmfile" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6870. "au017t1" (list '("FURNAME" "FILE")) "fmspec"))(princ));+
  6871. (a:othb "file cabinet" nil nil "A1070Sb" T)
  6872.  
  6873. [Lateral ]
  6874. [ 30x18  ]^C^C(setq V:x 18 V:y 30 V:r 0)(f:rept "a1070sb");
  6875. [ 36x18  ]^C^C(setq V:x 18 V:y 36 V:r 0)(f:rept "a1070sb");
  6876. [ 42x18  ]^C^C(setq V:x 18 V:y 42 V:r 0)(f:rept "a1070sb");
  6877. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 18 V:y 30 V:r 0);+
  6878. (progn(setq f:list '(F:INSR nil T nil "fmfile" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  6879. "au017t1" (list '("FURNAME" "FILE")) "fmspec"))(princ));+
  6880. (a:othb "file cabinet" nil nil "A1070Sb" T)
  6881. [PREVIOUS ]$S=A1070SA
  6882. [<CANCEL>]^C^C(F:CLS) $S=S
  6883. **A1071SA 3
  6884. [Refrig.]
  6885.  
  6886.  
  6887. [--------]^C^C$S=A1071SB (setq V:b "ac21a") (F:PRMP) 
  6888. [STANDARD]^C^C$S=A1071SB (setq V:b "ac21a") (F:PRMP) 
  6889. [--------]^C^C$S=A1071SB (setq V:b "ac21a") (F:PRMP) 
  6890.  
  6891. [--------]^C^C$S=A1071SC (setq V:b "ac21b") (F:PRMP) 
  6892. [SIDE    ]^C^C$S=A1071SC (setq V:b "ac21b") (F:PRMP) 
  6893. [BY SIDE ]^C^C$S=A1071SC (setq V:b "ac21b") (F:PRMP) 
  6894. [--------]^C^C$S=A1071SC (setq V:b "ac21b") (F:PRMP) 
  6895.  
  6896. [--------]^C^C$S=A1071SD (setq V:b "ac21c") (F:PRMP) 
  6897. [COMPACT ]^C^C$S=A1071SD (setq V:b "ac21c") (F:PRMP) 
  6898. [--------]^C^C$S=A1071SD (setq V:b "ac21c") (F:PRMP) 
  6899.  
  6900.  
  6901. [<CANCEL>]^C^C(F:CLS) $S=S
  6902. **A1071SB 3
  6903. [Refrig.]
  6904. [ (std.  ]
  6905. [  size) ]
  6906.  
  6907. [ Ht. 64" ]
  6908.  
  6909. [24x27   ]^C^C(setq V:x 27 V:y 24 V:r 0 V:zs 64 V:ze 0)(f:rept "a1071sb");
  6910. [28x27   ]^C^C(setq V:x 27 V:y 28 V:r 0 V:zs 64 V:ze 0)(f:rept "a1071sb");
  6911.  
  6912. [28x29   ]^C^C(setq V:x 29 V:y 28 V:r 0 V:zs 64 V:ze 0)(f:rept "a1071sb");
  6913. [30x30   ]^C^C(setq V:x 30 V:y 30 V:r 0 V:zs 64 V:ze 0)(f:rept "a1071sb");
  6914.  
  6915. [33x31   ]^C^C(setq V:x 31 V:y 33 V:r 0 V:zs 64 V:ze 0)(f:rept "a1071sb");
  6916. [35x31   ]^C^C(setq V:x 31 V:y 35 V:r 0 V:zs 64 V:ze 0)(f:rept "a1071sb");
  6917.  
  6918. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 27 V:y 24 V:r 0 V:zs 64 V:ze 0 V:b "ac21a");+
  6919. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  6920. "au016t1" (list '("APLNAME" "REFRIGERATOR")) "arapplspec"))(princ));+
  6921. (a:othb "refrigerator" T nil "A1071SB" T)
  6922. [PREVIOUS ]$s=A1071SA
  6923. [<CANCEL>]^C^C(F:CLS) $S=S
  6924. **A1071SC 3
  6925. [Refrig. ]
  6926. [(side      ]
  6927. [by side)]
  6928.  
  6929. [ Ht. 66"]
  6930.  
  6931.  
  6932.  
  6933. [31x31   ]^C^C(setq V:x 31 V:y 31 V:r 0 V:zs 66 V:ze 0)(f:rept "a1071sc");
  6934.  
  6935. [33x31   ]^C^C(setq V:x 31 V:y 33 V:r 0 V:zs 66 V:ze 0)(f:rept "a1071sc");
  6936.  
  6937. [36x31   ]^C^C(setq V:x 31 V:y 36 V:r 0 V:zs 66 V:ze 0)(f:rept "a1071sc");
  6938.  
  6939.  
  6940. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 31 V:y 31 V:r 0 V:zs 66 V:ze 0 V:b "ac21a");+
  6941. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  6942. "au016t1" (list '("APLNAME" "REFRIGERATOR")) "arapplspec"))(princ));+
  6943. (a:othb "refrigerator" T nil "A1071SC" T)
  6944. [PREVIOUS ]$s=A1071SA
  6945. [<CANCEL>]^C^C(F:CLS) $S=S
  6946. **A1071SD 3
  6947. [Compact]
  6948. [refrig.]
  6949.  
  6950.  
  6951. [ Ht. 22"]
  6952. [ 15x18  ]^C^C(setq V:x 18 V:y 15 V:r 0 V:zs 22 V:ze 0)(f:rept "a1071sd");
  6953.  
  6954. [ Ht. 36"]
  6955. [ 18x24  ]^C^C(setq V:x 24 V:y 18 V:r 0 V:zs 36 V:ze 0)(f:rept "a1071sd");
  6956. [ 24x24  ]^C^C(setq V:x 24 V:y 24 V:r 0 V:zs 36 V:ze 0)(f:rept "a1071sd");
  6957.  
  6958.  
  6959. [<OTHER> ]^C^C(f:lodf "a:othr")(setq V:b "ac21c")(setq V:x 18 V:y 15 V:r 0 V:zs 22 V:ze 0);+
  6960. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  6961. "au016t1" (list '("APLNAME" "REFRIGERATOR")) "arapplspec"))(princ));+
  6962. (a:othr "refrigerator" 7 "A1071SD")
  6963.  
  6964.  
  6965.  
  6966. [PREVIOUS ]$s=A1071SA
  6967. [<CANCEL>]^C^C(F:CLS) $S=S
  6968. **a1074sa 3
  6969. [Parking ]
  6970. [strip   ]
  6971. [layout  ]
  6972.  
  6973.  
  6974. [DEFINE  ]^C^C(F:LODF "a:c24a")(a:c24a)
  6975. [STALL   ]^C^C(F:LODF "a:c24a")(a:c24a)
  6976.  
  6977.  
  6978. [SINGLE  ]^C^C(setq V:B nil) (F:PRMP) $s=a1074sd
  6979. [ROW     ]^C^C(setq V:B nil) (F:PRMP) $s=a1074sd
  6980.  
  6981. [DOUBLE  ]^C^C(setq V:B t) (F:PRMP) $s=a1074sd
  6982. [ROW     ]^C^C(setq V:B t) (F:PRMP) $s=a1074sd
  6983.  
  6984.  
  6985.  
  6986. [<CANCEL>]^C^C(F:CLS) $s=s
  6987. **a1074sb 3
  6988. [Parking ]
  6989. [stall   ]
  6990.  
  6991.  
  6992. [Width   ]
  6993. [8'-0"   ]^P96^P;
  6994. [8'-6"   ]^P102^P;
  6995. [9'-0"   ]^P108^P;
  6996. [9'-6"   ]^P114^P;
  6997.  
  6998.  
  6999. [Depth   ]
  7000. [16'-0"  ]^P192^P;
  7001. [18'-0"  ]^P216^P;
  7002. [19'-0"  ]^P228^P;
  7003. [20'-0"  ]^P240^P;
  7004.  
  7005. [<CANCEL>]^C^C(F:CLS) $S=S
  7006. **a1074sc 3
  7007. [Parking]
  7008. [angle]
  7009.  
  7010. [90 DEG.]^P90^P;
  7011.  
  7012. [Right]
  7013. [75 DEG.]^P75^P;
  7014. [60 DEG.]^P60^P;
  7015. [45 DEG.]^P45^P;
  7016. [30 DEG.]^P30^P;
  7017.  
  7018. [Left]
  7019. [75 DEG.]^P105^P;
  7020. [60 DEG.]^P120^P;
  7021. [45 DEG.]^P135^P;
  7022. [30 DEG.]^P150^P;
  7023.  
  7024. [<CANCEL>]^C^C(F:CLS) $S=S
  7025. **a1074sd 3
  7026. [Parking ]
  7027. [row     ]
  7028.  
  7029.  
  7030.  
  7031. [START PT]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" T))(princ))(f:rept "a1074sd");
  7032. [   +    ]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" T))(princ))(f:rept "a1074sd");
  7033. [END PT  ]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" T))(princ))(f:rept "a1074sd");
  7034.  
  7035.  
  7036.  
  7037. [START PT]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" nil))(princ))(f:rept "a1074sd");
  7038. [   +    ]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" nil))(princ))(f:rept "a1074sd");
  7039. [ NO. OF ]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" nil))(princ))(f:rept "a1074sd");
  7040. [ SPACES ]^C^C(F:LODF "a:c24b") (progn(setq f:list '(a:c24b "LSSTRIPING" nil))(princ))(f:rept "a1074sd");
  7041.  
  7042. [PREVIOUS ]$s=a1074sa
  7043. [<CANCEL>]^C^C(F:CLS) $S=S
  7044. **A1075SA 3
  7045. [Drawing ]
  7046. [number  ]
  7047.  
  7048.  
  7049. [   1  ]^P1^P\
  7050. [   2  ]^P2^P\
  7051. [   3  ]^P3^P\
  7052. [   4  ]^P4^P\
  7053. [   5  ]^P5^P\
  7054. [   6  ]^P6^P\
  7055. [   7  ]^P7^P\
  7056. [   8  ]^P8^P\
  7057. [   9  ]^P9^P\
  7058. [   0  ]^P0^P\
  7059.  
  7060. [ PERIOD ]^P.^P\
  7061.  
  7062. [<RETURN>];
  7063. **A1075SB 3
  7064. [Drawing ]
  7065. [number  ]
  7066.  
  7067. [   A  ]^PA^P\
  7068. [   1  ]^P1^P\
  7069. [   2  ]^P2^P\
  7070. [   3  ]^P3^P\
  7071. [   4  ]^P4^P\
  7072. [   5  ]^P5^P\
  7073. [   6  ]^P6^P\
  7074. [   7  ]^P7^P\
  7075. [   8  ]^P8^P\
  7076. [   9  ]^P9^P\
  7077. [   0  ]^P0^P\
  7078.  
  7079. [ PERIOD ]^P.^P\
  7080.  
  7081. [<RETURN>];
  7082. **A1075SC 3
  7083. [Drawing ]
  7084.  
  7085. [DETAIL  ]^PDETAIL^P\
  7086. [ELEVATIN]^PELEVATION^P\
  7087.  
  7088. [ELECTRIC]^PELECTRICAL PLAN^P\
  7089. [FINISH  ]^PFINISH PLAN^P\
  7090.  
  7091. [FLOOR   ]^PFLOOR PLAN^P\
  7092. [FURNITUR]^PFURNITURE PLAN^P\
  7093.  
  7094. [ROOF    ]^PROOF PLAN^P\
  7095. [SECTION ]^PSECTION^P\
  7096.  
  7097. [SITE    ]^PSITE PLAN^P\
  7098. [SPACE   ]^PSPACE PLAN^P\
  7099.  
  7100. [<CANCEL>]^C^C(F:CLS) $S=S
  7101. **A1075SD 3
  7102. [Scale   ]
  7103.  
  7104. [1/40"=1']^P1/40"=1'-0"^P;
  7105. [1/20"=1']^P1/20"=1'-0"^P;
  7106. [1/16"=1']^P1/16"=1'-0"^P;
  7107.  
  7108. [ 1/8"=1']^P1/8"=1'-0"^P;
  7109. [ 1/4"=1']^P1/4"=1'-0"^P;
  7110. [ 1/2"=1']^P1/2"=1'-0"^P;
  7111.  
  7112. [ 3/4"=1']^P3/4"=1'-0"^P;
  7113. [   1"=1']^P1"=1'-0"^P;
  7114. [   3"=1']^P3"=1'-0"^P;
  7115.  
  7116. [  HALF  ]^PHALF^P;
  7117. [  FULL  ]^PFULL^P;
  7118.  
  7119. [<CANCEL>]^C^C(F:CLS) $S=S
  7120. **A1084S1 3
  7121. [Finish  ]
  7122.  
  7123.  
  7124.  
  7125. [--------]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "CADFLT" "au019t1" '() "artag"))(princ))(f:rept "A1084S1");
  7126. [CABINET ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "CADFLT" "au019t1" '() "artag"))(princ))(f:rept "A1084S1");
  7127. [FINISH  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "CADFLT" "au019t1" '() "artag"))(princ))(f:rept "A1084S1");
  7128. [--------]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "CADFLT" "au019t1" '() "artag"))(princ))(f:rept "A1084S1");
  7129.  
  7130.  
  7131. [--------]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "RODFLT" "au018t1" '() "artag"))(princ))(f:rept "A1084S1");
  7132. [ROOM    ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "RODFLT" "au018t1" '() "artag"))(princ))(f:rept "A1084S1");
  7133. [FINISH  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "RODFLT" "au018t1" '() "artag"))(princ))(f:rept "A1084S1");
  7134. [--------]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "RODFLT" "au018t1" '() "artag"))(princ))(f:rept "A1084S1");
  7135.  
  7136.  
  7137.  
  7138. [<CANCEL>]^C^C(F:CLS) $S=S
  7139. **A1089S1 3
  7140. [Grab bar]
  7141. [ Ht. 34" ]
  7142.  
  7143. [Left    ]
  7144. [ 28x28  ]^C^C(setq V:x 28 V:y 28 V:bar "ad14a" V:zs 28 V:ze 34)(f:rept "A1089S1");
  7145. [ 48x32  ]^C^C(setq V:x 48 V:y 48 V:bar "ad14b" V:zs 48 V:ze 34)(f:rept "A1089S1");
  7146. [ 52x34   ]^C^C(setq V:x 52 V:y 52 V:bar "ad14c" V:zs 52 V:ze 34)(f:rept "A1089S1");
  7147. [Center  ]
  7148. [ 18     ]^C^C(setq V:x 18 V:y 18 V:bar "ad14d" V:zs 18 V:ze 34)(f:rept "A1089S1");
  7149. [ 30     ]^C^C(setq V:x 30 V:y 30 V:bar "ad14e" V:zs 30 V:ze 34)(f:rept "A1089S1");
  7150. [ 48     ]^C^C(setq V:x 48 V:y 48 V:bar "ad14f" V:zs 48 V:ze 34)(f:rept "A1089S1");
  7151. [ 52     ]^C^C(setq V:x 52 V:y 52 V:bar "ad14g" V:zs 52 V:ze 34)(f:rept "A1089S1");
  7152. [Right   ]
  7153. [ 28x28  ]^C^C(setq V:x 28 V:y -28 V:bar "ad14a" V:zs 28 V:ze 34)(f:rept "A1089S1");
  7154. [ 48x32  ]^C^C(setq V:x 48 V:y -48 V:bar "ad14b" V:zs 48 V:ze 34)(f:rept "A1089S1");
  7155. [ 52x34   ]^C^C(setq V:x 52 V:y -52 V:bar "ad14c" V:zs 52 V:ze 34)(f:rept "A1089S1");
  7156.  
  7157. [<CANCEL>]^C^C(F:CLS) $S=S
  7158. **ad18sa 3
  7159. [Desk    ]
  7160.  
  7161.  
  7162. [Select  ]
  7163. [the side]
  7164. [of the  ]
  7165. [desk    ]
  7166. [for the ]
  7167. [drawer  ]
  7168. [pedestal]
  7169.  
  7170. [  LEFT  ]ad18a
  7171.  
  7172. [  RIGHT ]ad18b
  7173.  
  7174. [  BOTH  ]ad18c
  7175.  
  7176. [<CANCEL>]^C^C(F:CLS) $S=S
  7177. **Ad18sb 3
  7178. [Desk    ]
  7179.  
  7180. [Ht. 29" ]
  7181.  
  7182.  
  7183. [60x30   ]6030
  7184. [66x30   ]6630
  7185. [72x30   ]7230
  7186.  
  7187. [60x36   ]6036
  7188. [66x36   ]6636
  7189. [72x36   ]7236
  7190.  
  7191. [<OTHER> ]0
  7192.  
  7193.  
  7194.  
  7195. [<CANCEL>]^C^C(F:CLS) $S=S
  7196. **A1093SA 3
  7197. [Desk    ]
  7198.  
  7199.  
  7200. [Select  ]
  7201. [the side]
  7202. [of the  ]
  7203. [desk    ]
  7204. [for the ]
  7205. [drawer  ]
  7206. [pedestal]
  7207.  
  7208. [  LEFT  ]^C^C(setq V:b "ad18a")(f:prmp);$s=a1093sb
  7209.  
  7210. [  RIGHT ]^C^C(setq V:b "ad18b")(f:prmp);$s=a1093sb
  7211.  
  7212. [  BOTH  ]^C^C(setq V:b "ad18c")(f:prmp);$s=a1093sb
  7213.  
  7214. [<CANCEL>]^C^C(F:CLS) $S=S
  7215. **A1093SB 3
  7216. [Desk    ]
  7217.  
  7218. [(Desk      ]
  7219. [ht. 29")]
  7220.  
  7221. [60x30   ]^C^C(setq V:x 60 V:y 30 V:r 0 V:zs 29 V:ze 0)(f:rept "a1093sb");
  7222. [66x30   ]^C^C(setq V:x 66 V:y 30 V:r 0 V:zs 29 V:ze 0)(f:rept "a1093sb");
  7223. [72x30   ]^C^C(setq V:x 72 V:y 30 V:r 0 V:zs 29 V:ze 0)(f:rept "a1093sb");
  7224.  
  7225. [60x36   ]^C^C(setq V:x 60 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "a1093sb");
  7226. [66x36   ]^C^C(setq V:x 66 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "a1093sb");
  7227. [72x36   ]^C^C(setq V:x 72 V:y 36 V:r 0 V:zs 29 V:ze 0)(f:rept "a1093sb");
  7228.  
  7229.  
  7230. [<OTHER> ]^C^C(f:lodf "a:othr")(setq V:x 60 V:y 30 V:r 0 V:zs 29 V:ze 0);+
  7231. (progn(setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  7232. "au017t1" (list '("FURNAME" "DESK")) "fmspec"))(princ));+
  7233. (a:othr "desk" 7 "A1093SB")
  7234.  
  7235. [PREVIOUS ]$s=a1093sa
  7236. [<CANCEL>]^C^C(F:CLS) $S=S
  7237. **A1094S1 3
  7238. [Pair of]
  7239. [guest  ]
  7240. [chairs ]
  7241. [(Seat      ]
  7242. [ht. 17")]
  7243.  
  7244. [Swivel  ]
  7245. [ 23x20  ]^C^C(setq V:x 23 V:y 20 V:r 0 V:b "ad19a" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7246. [ 24x23  ]^C^C(setq V:x 24 V:y 23 V:r 0 V:b "ad19a" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7247. [ 26x24  ]^C^C(setq V:x 26 V:y 24 V:r 0 V:b "ad19a" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7248. [ 30x27  ]^C^C(setq V:x 30 V:y 27 V:r 0 V:b "ad19a" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7249. [Arm     ]
  7250. [ 23x20  ]^C^C(setq V:x 23 V:y 20 V:r 0 V:b "ad19b" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7251. [ 24x23  ]^C^C(setq V:x 24 V:y 23 V:r 0 V:b "ad19b" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7252. [ 26x24  ]^C^C(setq V:x 26 V:y 24 V:r 0 V:b "ad19b" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7253. [ 30x27  ]^C^C(setq V:x 30 V:y 27 V:r 0 V:b "ad19b" V:zs 17 V:ze 0)(f:rept "A1094S1");
  7254.  
  7255. [<CANCEL>]^C^C(F:CLS) $S=S
  7256. **A1095S1 3
  7257. [Case    ]
  7258.  
  7259. [W xD xH ]
  7260. [24x12x36]^C^C(setq V:x 24 V:y 12 V:r 0 V:zs 36 V:ze 0)(f:rept "A1095S1");
  7261. [30x12x36]^C^C(setq V:x 30 V:y 12 V:r 0 V:zs 36 V:ze 0)(f:rept "A1095S1");
  7262. [36x12x60]^C^C(setq V:x 36 V:y 12 V:r 0 V:zs 60 V:ze 0)(f:rept "A1095S1");
  7263. [42x12x60]^C^C(setq V:x 42 V:y 12 V:r 0 V:zs 60 V:ze 0)(f:rept "A1095S1");
  7264. [60x12x72]^C^C(setq V:x 60 V:y 12 V:r 0 V:zs 72 V:ze 0)(f:rept "A1095S1");
  7265.  
  7266. [24x16x36]^C^C(setq V:x 24 V:y 16 V:r 0 V:zs 36 V:ze 0)(f:rept "A1095S1");
  7267. [30x16x36]^C^C(setq V:x 30 V:y 16 V:r 0 V:zs 36 V:ze 0)(f:rept "A1095S1");
  7268. [36x16x60]^C^C(setq V:x 36 V:y 16 V:r 0 V:zs 60 V:ze 0)(f:rept "A1095S1");
  7269. [42x16x60]^C^C(setq V:x 42 V:y 16 V:r 0 V:zs 60 V:ze 0)(f:rept "A1095S1");
  7270. [60x16x72]^C^C(setq V:x 60 V:y 16 V:r 0 V:zs 72 V:ze 0)(f:rept "A1095S1");
  7271.  
  7272. [<OTHER> ]^C^C(f:lodf "a:othr")(setq V:x 24 V:y 12 V:r 0 V:zs 36 V:ze 0);+
  7273. (progn(setq f:list '(F:INSR nil T nil "fmcase" "ad20a" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  7274. "au017t1" '() "fmspec"))(princ));+
  7275. (a:othr "case" 7 "A1095S1")
  7276.  
  7277. [<CANCEL>]^C^C(F:CLS) $S=S
  7278. **A1096S1 3
  7279. [Oven    ]
  7280.  
  7281. [ Ht.  22"]
  7282.  
  7283. [(42"     ]
  7284. [above   ]
  7285. [finished]
  7286. [floor)  ]
  7287.  
  7288. [26x22   ]^C^C(setq V:x 22 V:y 26 V:r 0 V:zs 22 V:ze 42)(f:rept "A1096S1");
  7289.  
  7290. [24x24   ]^C^C(setq V:x 24 V:y 24 V:r 0 V:zs 22 V:ze 42)(f:rept "A1096S1");
  7291.  
  7292. [26x24   ]^C^C(setq V:x 24 V:y 26 V:r 0 V:zs 22 V:ze 42)(f:rept "A1096S1");
  7293.  
  7294. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 22 V:y 26 V:r 0 V:zs 22 V:ze 42);+
  7295. (progn(setq f:list '(F:INSR nil T nil "arappliance" "ad211" T V:x V:y V:zs V:ze T nil +
  7296. "APDFLT" "au016t1" (list '("APLNAME" "OVEN")) "arapplspec"))(princ));+
  7297. (a:othr "oven" 1 "A1096S1")
  7298.  
  7299. [<CANCEL>]^C^C(F:CLS) $S=S
  7300. **A1099S1 3
  7301. [Vehicle ]
  7302.  
  7303. [BUS     ]^C^C(setq V:b "ad24l") +
  7304. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7305. [COMPACT ]^C^C(setq V:b "ad24c") +
  7306. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7307. [FULL    ]^C^C(setq V:b "ad24e") +
  7308. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7309. [SPORTS  ]^C^C(setq V:b "ad24i") +
  7310. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7311.  
  7312. [MID-SIZE]^C^C(setq V:b "ad24d") +
  7313. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7314. [PANEL   ]^C^C(setq V:b "ad24j") +
  7315. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7316. [PICKUP  ]^C^C(setq V:b "ad24h") +
  7317. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7318. [SEMI    ]^C^C(setq V:b "ad24k") +
  7319. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7320. [SUB-COMP]^C^C(setq V:b "ad24b") +
  7321. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7322. [ST WAGON]^C^C(setq V:b "ad24f") +
  7323. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7324. [VAN     ]^C^C(setq V:b "ad24g") +
  7325. (setq f:list '(F:INSR T nil nil "lsvehicle" V:b T 1 1 1 0 T nil nil nil nil nil))(f:rept "a1099s1");
  7326.  
  7327. [GENERIC ]^C^C(f:lodf "a:othr") (setq v:x 192.0 v:y 72.0 v:zs 60.0 V:ze 0)(setq V:b "ad24a");+
  7328. (progn(setq f:list '(F:INSR T T nil "lsvehicle" V:b T V:x V:y V:zs V:ze T nil nil nil nil nil))(princ));+
  7329. (a:othr "car" 13 "A1099S1")
  7330.  
  7331. [<CANCEL>]^C^C(F:CLS) $S=S
  7332. **A1100SA 3
  7333. [Views   ]
  7334.  
  7335. [WALL    ]WALL
  7336. [CITY INF]CITYINF
  7337. [VIC. MAP]VICMAP
  7338.  
  7339. [LOC. MAP]LOCMAP
  7340. [CONSULT.]CONSULT
  7341. [SCH. DWG]SCHDWG
  7342. [ <MORE> ]$S=A1100SB
  7343.  
  7344. [RETURN  ]^C^C(progn(command "View" "R" "return")(princ)) $s=s
  7345. [TO DWG. ]^C^C(progn(command "View" "R" "return")(princ)) $s=s
  7346.  
  7347. [DEFINE  ]^C^C(f:lodf "a:d25a")(progn(setq f:list '(a:d25a))(princ));+
  7348. (f:rept "A1100SA")
  7349.  
  7350. [TEXT    ]^C^C(f:lodf "a:f251") (progn(setq f:list '(a:f251))(princ))(f:rept "a1150s1")
  7351. [<CANCEL>]^C^COsnap non (F:CLS) $S=S
  7352. **A1100SB 3
  7353. [ViewMore]
  7354. [title   ]
  7355. [pages   ]
  7356.  
  7357. [T-PAGE 1]T-PAGE1
  7358. [T-PAGE 2]T-PAGE2
  7359. [T-PAGE 3]T-PAGE3
  7360. [T-PAGE 4]T-PAGE4
  7361. [T-PAGE 5]T-PAGE5
  7362.  
  7363. [T-PAGE 6]T-PAGE6
  7364. [T-PAGE 7]T-PAGE7
  7365. [T-PAGE 8]T-PAGE8
  7366. [T-PAGE 9]T-PAGE9
  7367.  
  7368. [ <LAST>]$S=A1100SA
  7369.  
  7370. [<CANCEL>]^C^C(F:CLS) $S=S
  7371. **A1100SC 3
  7372. [Define  ]
  7373. [title   ]
  7374. [pages   ]
  7375.  
  7376.  
  7377. [WALL    ]WALL;
  7378. [CITY INF]CITYINF;
  7379. [VIC. MAP]VICMAP;
  7380. [LOC. MAP]LOCMAP;
  7381. [CONSULT.]CONSULT;
  7382. [SCH. DWG]SCHDWG;
  7383.  
  7384. [ <MORE> ]$S=A1100SD
  7385.  
  7386.  
  7387. [VIEW    ]^C^C(F:LODF "a:d251") (progn(setq f:list '(a:d251))(princ))(f:rept "A1100SA");
  7388.  
  7389. [<CANCEL>]^C^C(F:CLS) $S=S
  7390. **A1100SD 3
  7391. [Define  ]
  7392. [more    ]
  7393. [title   ]
  7394. [pages   ]
  7395.  
  7396. [T-PAGE 1]T-PAGE1;
  7397. [T-PAGE 2]T-PAGE2;
  7398. [T-PAGE 3]T-PAGE3;
  7399. [T-PAGE 4]T-PAGE4;
  7400. [T-PAGE 5]T-PAGE5;
  7401. [T-PAGE 6]T-PAGE6;
  7402. [T-PAGE 7]T-PAGE7;
  7403. [T-PAGE 8]T-PAGE8;
  7404. [T-PAGE 9]T-PAGE9;
  7405.  
  7406. [ <LAST>]$S=A1100SC
  7407.  
  7408. [<CANCEL>]^C^C(F:CLS) $S=S
  7409. **A1100SE 3
  7410. [Define  ]
  7411. [view    ]
  7412.  
  7413.  
  7414. [--------]c
  7415. [        ]c
  7416. [CURRENT ]c
  7417. [        ]c
  7418. [--------]c
  7419.  
  7420. [--------]w
  7421. [        ]w
  7422. [WINDOW  ]w
  7423. [        ]w
  7424. [--------]w
  7425.  
  7426.  
  7427. [<CANCEL>]^C^C(F:CLS) $S=S
  7428. **A1114SA 3
  7429. [Toilet]
  7430. [stalls]
  7431.  
  7432. [Compart.]
  7433. [WIDTH   ]^PWIDTH
  7434. [DEPTH   ]^PDEPTH
  7435.  
  7436. [DR WIDTH]^PDOOR
  7437.  
  7438. [Partiton]
  7439. [THICKNES]^PTHICKNESS
  7440. [FRM FLOR]^PFROM
  7441. [HEIGHT  ]^PHEIGHT
  7442.  
  7443. [WALL FIN]^PWALL
  7444.  
  7445. [NONE    ]^PNONE
  7446. [<CANCEL>]^C^C(F:CLS) $S=S
  7447. **A1114SB 3
  7448. [Width of]
  7449. [compart.]
  7450.  
  7451.  
  7452. [30"     ]^P30.0^P;
  7453. [32"     ]^P32.0^P;
  7454.  
  7455. [34"     ]^P34.0^P;
  7456. [36"     ]^P36.0^P;
  7457.  
  7458. [38"     ]^P38.0^P;
  7459. [48"     ]^P48.0^P;
  7460.  
  7461. [60"     ]^P60.0^P;
  7462.  
  7463. [<OTHER> ]$S=AU001S1
  7464.  
  7465. [<CANCEL>]^C^C(F:CLS) $S=S
  7466. **A1114SC 3
  7467. [Depth of]
  7468. [compart.]
  7469.  
  7470.  
  7471.  
  7472. [56"     ]^P56.0^P;
  7473.  
  7474. [58"     ]^P58.0^P;
  7475.  
  7476. [60"     ]^P60.0^P;
  7477.  
  7478.  
  7479. [<OTHER> ]$S=AU001S1
  7480.  
  7481.  
  7482.  
  7483.  
  7484. [<CANCEL>]^C^C(F:CLS) $S=S
  7485. **A1114SD 3
  7486. [Door    ]
  7487. [width   ]
  7488.  
  7489.  
  7490.  
  7491. [24" WIDE]^P24.0^P;
  7492.  
  7493. [28" WIDE]^P28.0^P;
  7494.  
  7495. [30" WIDE]^P30.0^P;
  7496.  
  7497.  
  7498.  
  7499. [<OTHER> ]$S=AU001S1
  7500.  
  7501.  
  7502.  
  7503. [<CANCEL>]^C^C(F:CLS) $S=S
  7504. **A1114SE 3
  7505. [Partit'n]
  7506. [thicknes]
  7507.  
  7508. [3/4"    ]^P0.75^P;
  7509.  
  7510. [5/8"    ]^P0.625^P;
  7511.  
  7512. [7/8"    ]^P0.875^P;
  7513.  
  7514. [  1"    ]^P1.0^P;
  7515.  
  7516. [1-1/4"  ]^P1.25^P;
  7517.  
  7518. [1-1/2"  ]^P1.5^P;
  7519.  
  7520. [<OTHER> ]$S=AU001S1
  7521.  
  7522. [<CANCEL>]^C^C(F:CLS) $S=S
  7523. **A1114SF 3
  7524. [Finish  ]
  7525. [thicknes]
  7526.  
  7527. [0       ]^P0^P;
  7528.  
  7529. [1/2"    ]^P0.5^P;
  7530.  
  7531. [3/4"    ]^P0.75^P;
  7532.  
  7533. [5/8"    ]^P0.625^P;
  7534.  
  7535. [7/8"    ]^P0.875^P;
  7536.  
  7537. [  1"    ]^P1.0^P;
  7538.  
  7539. [1-1/2"  ]^P1.5^P;
  7540.  
  7541. [<OTHER> ]$S=AU001S1
  7542. **a1114sg 3
  7543. [Toilet  ]
  7544. [type    ]
  7545.  
  7546.  
  7547. [--------]f
  7548. [FLOOR MT]f
  7549. [--------]f
  7550.  
  7551. [--------]w
  7552. [WALL HNG]w
  7553. [--------]w
  7554.  
  7555. [--------]c
  7556. [CUSTOM  ]c
  7557. [--------]c
  7558.  
  7559.  
  7560. [<CANCEL>]^C^C(F:CLS) $S=S
  7561. **ttype 3
  7562. [Toilet  ]
  7563. [type    ]
  7564.  
  7565.  
  7566. [--------]f
  7567. [FLOOR MT]f
  7568. [--------]f
  7569.  
  7570. [--------]w
  7571. [WALL HNG]w
  7572. [--------]w
  7573.  
  7574. [--------]c
  7575. [CUSTOM  ]c
  7576. [--------]c
  7577.  
  7578.  
  7579. [<CANCEL>]^C^C(F:CLS) $S=S
  7580. **A1114SH 3
  7581.  
  7582. [Here    ]
  7583. [you can ]
  7584. [create  ]
  7585. [your own]
  7586. [list of ]
  7587. [custom  ]
  7588. [toilet  ]
  7589. [types   ]
  7590.  
  7591. [To begin]
  7592. [ select ]
  7593. ["SAMPLE"]
  7594.  
  7595. [SAMPLE  ]^PAE14E^P;
  7596.  
  7597.  
  7598. [<CANCEL>]^C^C(F:CLS) $S=S
  7599. **A1114SI 3
  7600.  
  7601. [Here you]
  7602. [can     ]
  7603. [place   ]
  7604. [the X, Y]
  7605. [scale   ]
  7606. [factors ]
  7607.  
  7608. [For     ]
  7609. [sample, ]
  7610. [select  ]
  7611. [X then Y]
  7612.  
  7613. [SAMPLE X]^P26^P;
  7614.  
  7615. [SAMPLE Y]^P19^P;
  7616.  
  7617. [<CANCEL>]^C^C(F:CLS) $S=S
  7618. **A1114SJ 3
  7619. [Partit'n]
  7620. [height  ]
  7621. [from    ]
  7622. [floor   ]
  7623.  
  7624.  
  7625. [--------]^P0.0^P;
  7626. [0       ]^P0.0^P;
  7627. [--------]^P0.0^P;
  7628.  
  7629. [--------]^P12.0^P;
  7630. [12"     ]^P12.0^P;
  7631. [--------]^P12.0^P;
  7632.  
  7633.  
  7634. [<OTHER> ]$S=AU001S1
  7635.  
  7636. [<CANCEL>]^C^C(F:CLS) $S=S
  7637. **A1114SK 3
  7638. [Partit'n]
  7639. [height  ]
  7640.  
  7641.  
  7642.  
  7643. [57 "    ]^P57.0^P;
  7644.  
  7645. [58 "    ]^P58.0^P;
  7646.  
  7647. [59 "    ]^P59.0^P;
  7648.  
  7649. [60 "    ]^P60.0^P;
  7650.  
  7651.  
  7652.  
  7653. [<OTHER> ]$S=AU001S1
  7654.  
  7655. [<CANCEL>]^C^C(F:CLS) $S=S
  7656. **A1116SA 3
  7657. [Emergncy]
  7658. [lighting]
  7659.  
  7660.  
  7661. [--------]^C^C(setq V:b "ae16b")(F:PRMP);$S=A1116SB
  7662. [1 LAMP  ]^C^C(setq V:b "ae16b")(F:PRMP);$S=A1116SB
  7663. [--------]^C^C(setq V:b "ae16b")(F:PRMP);$S=A1116SB
  7664.  
  7665. [--------]^C^C(setq V:b "ae16a")(F:PRMP);$S=A1116SB
  7666. [2 LAMPS ]^C^C(setq V:b "ae16a")(F:PRMP);$S=A1116SB
  7667. [--------]^C^C(setq V:b "ae16a")(F:PRMP);$S=A1116SB
  7668.  
  7669. [--------]^C^C(setq V:b "ae16c")(F:PRMP);$S=A1116SC
  7670. [EXIT SGN]^C^C(setq V:b "ae16c")(F:PRMP);$S=A1116SC
  7671. [--------]^C^C(setq V:b "ae16c")(F:PRMP);$S=A1116SC
  7672.  
  7673.  
  7674. [<CANCEL>]^C^C(F:CLS) $S=S
  7675. **A1116SB 3
  7676. [1 or 2  ]
  7677. [lamps   ]
  7678.  
  7679.  
  7680.  
  7681. [2.5x10.5]^C^C(setq V:x 2.5 V:y 10.5)(f:rept "a1116sb");
  7682.  
  7683. [2.5x12  ]^C^C(setq V:x 2.5 V:y 12)(f:rept "a1116sb");
  7684.  
  7685.  
  7686.  
  7687. [<OTHER> ]^C^C(f:lodf "a:othr")(setq V:x 2.5 V:y 10.5 V:zs 4 V:ze 96);+
  7688. (progn(setq f:list '(F:INSR nil nil nil "eelightem" V:b T V:x V:y V:zs V:ze +
  7689. T nil "LIDFLT" "au015t1" (list '("LIDESCR" "EMERGENCY LIGHT")) "eelightspec"))(princ));+
  7690. (a:othr "fixture" 14 "A1116SB")
  7691.  
  7692.  
  7693.  
  7694.  
  7695. [PREVIOUS ]$s=A1116SA
  7696. [<CANCEL>]^C^C(F:CLS) $S=S
  7697. **A1116SC 3
  7698. [Exit    ]
  7699. [sign    ]
  7700.  
  7701.  
  7702.  
  7703. [2x12    ]^C^C(setq V:x 2 V:y 12)(f:rept "a1116sc");
  7704.  
  7705.  
  7706. [4x12    ]^C^C(setq V:x 4 V:y 12)(f:rept "a1116sc");
  7707.  
  7708.  
  7709. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 2 V:y 12 V:zs 4 V:ze 96);+
  7710. (progn(setq f:list '(F:INSR nil nil nil "eelightem" V:b T V:x V:y V:zs V:ze +
  7711. T nil "LIDFLT" "au015t1" (list '("LIDESCR" "EMERGENCY LIGHT")) "eelightspec"))(princ));+
  7712. (a:othr "fixture" 14 "A1116SC")
  7713.  
  7714.  
  7715.  
  7716.  
  7717. [PREVIOUS ]$s=A1116SA
  7718. [<CANCEL>]^C^C(F:CLS) $S=S
  7719. **ae20Sa 3
  7720. [Credenza]
  7721.  
  7722. [Ht. 29" ]
  7723.  
  7724. [4-Door ]
  7725. [  60x18]6018ae20a
  7726. [  66x18]6618ae20a
  7727. [  72x18]7218ae20a
  7728.  
  7729. [2-Door/]
  7730. [2-dwr ]
  7731. [  60x18]6018ae20b
  7732. [  66x18]6618ae20b
  7733. [  72x18]7218ae20b
  7734.  
  7735. [<OTHER>]0
  7736.  
  7737.  
  7738. **Ae20Sb 3
  7739. [Credenza]
  7740.  
  7741. [Ht. 29" ]
  7742.  
  7743.  
  7744. [4-DOOR  ]ae20a
  7745.  
  7746. [2-DOOR/ ]ae20b
  7747. [2-DRAWER]ae20b
  7748.  
  7749.  
  7750.  
  7751.  
  7752.  
  7753.  
  7754.  
  7755.  
  7756.  
  7757. **A1120S1 3
  7758. [Credenza]
  7759. [ Ht. 29" ]
  7760.  
  7761. [4-DOOR ]
  7762. [  60x18]^C^C(setq V:x 60 V:y 18 V:r 0 V:b "ae20a" V:zs 29 V:ze 0)(f:rept "A1120S1");
  7763. [  66x18]^C^C(setq V:x 66 V:y 18 V:r 0 V:b "ae20a" V:zs 29 V:ze 0)(f:rept "A1120S1");
  7764. [  72x18]^C^C(setq V:x 72 V:y 18 V:r 0 V:b "ae20a" V:zs 29 V:ze 0)(f:rept "A1120S1");
  7765. [<OTHER>]^C^C(f:lodf "a:othb") (setq V:x 60 V:y 18 V:r 0 V:b "ae20a" V:zs 29 V:ze 0);+
  7766. (progn(setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs +
  7767. V:ze T nil "FUDFLT" "au017t1" (list '("FURNAME" "CREDENZA")) "fmspec"))(princ));+
  7768. (a:othb "credenza" T nil "A1120S1" T)
  7769.  
  7770. [2-DOOR/]
  7771. [2-DWR  ]
  7772. [  60x18]^C^C(setq V:x 60 V:y 18 V:r 0 V:b "ae20b" V:zs 29 V:ze 0)(f:rept "A1120S1");
  7773. [  66x18]^C^C(setq V:x 66 V:y 18 V:r 0 V:b "ae20b" V:zs 29 V:ze 0)(f:rept "A1120S1");
  7774. [  72x18]^C^C(setq V:x 72 V:y 18 V:r 0 V:b "ae20b" V:zs 29 V:ze 0)(f:rept "A1120S1");
  7775. [<OTHER>]^C^C(f:lodf "a:othb") (setq V:x 60 V:y 18 V:r 0 V:b "ae20b" V:zs 29 V:ze 0);+
  7776. (progn(setq f:list '(F:INSR nil T nil "fmdesk" V:b T V:x V:y V:zs +
  7777. V:ze T nil "FUDFLT" "au017t1" (list '("FURNAME" "CREDENZA")) "fmspec"))(princ));+
  7778. (a:othb "credenza" T nil "A1120S1" T)
  7779.  
  7780.  
  7781. [<CANCEL>]^C^C(F:CLS) $S=S
  7782. **A1121S1 3
  7783. [Dishwash]
  7784.  
  7785. [ Ht. 34" ]
  7786.  
  7787.  
  7788. [Under-  ]
  7789. [counter ]
  7790. [ 26x24  ]^C^C(setq V:x 26 V:y 24 V:b "ae21a" V:zs 34 V:ze 0)(f:rept "A1121S1");
  7791. [ 26x25  ]^C^C(setq V:x 26 V:y 25 V:b "ae21a" V:zs 34 V:ze 0)(f:rept "A1121S1");
  7792. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 26 V:y 24 V:b "ae21a" V:zs 34 V:ze 0);+
  7793. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  7794. "au016t1" (list '("APLNAME" "DISHWASHER")) "arapplspec"))(princ));+
  7795. (a:othr "dishwasher" 7 "A1121S1")
  7796.  
  7797. [Convertb]
  7798. [ 26x24  ]^C^C(setq V:x 26 V:y 24 V:b "ae21b" V:zs 34 V:ze 0)(f:rept "A1121S1");
  7799. [ 26x25  ]^C^C(setq V:x 26 V:y 25 V:b "ae21b" V:zs 34 V:ze 0)(f:rept "A1121S1");
  7800.  
  7801. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:x 26 V:y 24 V:b "ae21b" V:zs 34 V:ze 0);+
  7802. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  7803. "au016t1" (list '("APLNAME" "DISHWASHER")) "arapplspec"))(princ));+
  7804. (a:othb "dishwasher" T nil "A1121S1" T)
  7805.  
  7806. [<CANCEL>]^C^C(F:CLS) $S=S
  7807. **A1124SA 3
  7808. [Tree  ]
  7809. [styles]
  7810.  
  7811. [  A]^C^C(setq V:b "ae24a")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7812. [  B]^C^C(setq V:b "ae24b")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7813.  
  7814. [  C]^C^C(setq V:b "ae24c")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7815. [  D]^C^C(setq V:b "ae24d")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7816.  
  7817. [  E]^C^C(setq V:b "ae24e")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7818. [  F]^C^C(setq V:b "ae24f")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7819.  
  7820. [  G]^C^C(setq V:b "ae24g")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7821. [  H]^C^C(setq V:b "ae24h")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7822.  
  7823. [SHADOW]^C^C(setq V:b "ae24i")(progn(setq f:list '(a:e24a))(princ))(f:rept "a1124sa");
  7824.  
  7825. [<CANCEL>]^C^C(F:CLS) $S=S
  7826. **A1124SB 3
  7827. [Tree  ]
  7828. [diameter]
  7829.  
  7830. [  3' DIA]36
  7831. [  5' DIA]60
  7832.  
  7833. [ 10' DIA]120
  7834. [ 15' DIA]180
  7835.  
  7836. [ 20' DIA]240
  7837. [ 25' DIA]300
  7838.  
  7839. [ 30' DIA]360
  7840. [ 40' DIA]480
  7841.  
  7842. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:xtr 36 v:ztr 60);+
  7843. (progn(setq f:list '(F:INSR nil T nil "lstreedc" V:b T V:xtr V:y V:ztr 0 V:r +
  7844. nil nil nil nil nil))(princ));+
  7845. (a:othr nil 15 "A1124SB")
  7846. [PREVIOUS ]$s=a1124sa
  7847. [<CANCEL>]^C^C(F:CLS) $S=S
  7848. **A1124SC 3
  7849. [Tree  ]
  7850. [height]
  7851.  
  7852. [  5' ]60
  7853. [ 10' ]120
  7854.  
  7855. [ 15' ]180
  7856. [ 20' ]240
  7857.  
  7858. [ 30' ]360
  7859. [ 40' ]480
  7860.  
  7861. [ 50' ]600
  7862. [ 60' ]720
  7863.  
  7864. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:xtr 36 v:ztr 60);+
  7865. (progn(setq f:list '(F:INSR nil T nil "lstreedc" V:b T V:xtr V:y V:ztr 0 V:r +
  7866. nil nil nil nil nil))(princ));+
  7867. (a:othr nil 15 "A1124SC")
  7868. [PREVIOUS ]$s=a1124sa
  7869. [<CANCEL>]^C^C(F:CLS) $S=S
  7870. **A1125SA 3
  7871. [Title   ]
  7872. [names   ]                     
  7873.  
  7874.  
  7875. [WALL    ]WALL
  7876. [CITY INF]CITY
  7877.  
  7878. [VIC. MAP]VICINITY
  7879. [LOC. MAP]LOCATION
  7880.  
  7881. [CONSULT.]CONSULTANT
  7882. [SCH. DWG]SCHEDULE
  7883.  
  7884.  
  7885.  
  7886.  
  7887.  
  7888. [<CANCEL>]^C^C(F:CLS) $S=S
  7889. **A1125SB 3
  7890. [Box  ]
  7891.  
  7892. [W  x  H ]
  7893. [(Plotted]
  7894. [ size)  ]
  7895. [4" x 4" ]4
  7896. [4" x 6" ]6
  7897. [4" x 8" ]8
  7898. [4" x 9" ]9
  7899. [4" x10" ]10
  7900. [4" x11" ]11
  7901. [6" x 4" ]24
  7902. [8" x 4" ]32
  7903. [9" x 4" ]36
  7904. [<OTHER> ]^PO^P;
  7905. [DYNAMIC ]^PD^P;
  7906.  
  7907. [<CANCEL>]^C^C(F:CLS) $S=S
  7908. **a1133sA 3
  7909. [ Tag   ]
  7910. [ names  ]
  7911.  
  7912. [   A    ]A
  7913. [   B    ]B
  7914. [   C    ]C
  7915. [   D    ]D
  7916. [   E    ]E
  7917. [   F    ]F
  7918. [   G    ]G
  7919. [   H    ]H
  7920. [   I    ]I
  7921. [  J-R  ]$S=a1133sB
  7922. [  S-Z  ]$S=a1133sC
  7923.  
  7924. [ DEFINE ]^C^C(progn(setq f:list '(a:f081))(princ))(f:rept "a1133sd");
  7925. [PREVIOUS ]$s=atags
  7926. [<CANCEL>]^C^C(F:CLS) $S=S
  7927. **a1133sB 3
  7928. [ Tag   ]
  7929. [ names  ]
  7930.  
  7931. [   J    ]J
  7932. [   K    ]K
  7933. [   L    ]L
  7934. [   M    ]M
  7935. [   N    ]N
  7936. [   O    ]O
  7937. [   P    ]P
  7938. [   Q    ]Q
  7939. [   R    ]R
  7940. [  A-I   ]$S=A1133SA
  7941. [  S-Z   ]$S=A1133SC
  7942.  
  7943. [ DEFINE ]^C^C(progn(setq f:list '(a:f081))(princ))(f:rept "a1133se");
  7944. [PREVIOUS ]$s=atags
  7945. [<CANCEL>]^C^C(F:CLS) $S=S
  7946. **A1133SC 3
  7947. [ Tag   ]
  7948. [ names  ]
  7949.  
  7950. [   S    ]S
  7951. [   T    ]T
  7952. [   U    ]U
  7953. [   V    ]V
  7954. [   W    ]W
  7955. [   X    ]X
  7956. [   Y    ]Y
  7957. [   Z    ]Z
  7958.  
  7959. [  A-I  ]$S=a1133sA
  7960. [  J-R  ]$S=a1133sB
  7961.  
  7962. [ DEFINE ]^C^C(progn(setq f:list '(a:f081))(princ))(f:rept "a1133sf");
  7963. [PREVIOUS ]$s=atags
  7964. [<CANCEL>]^C^C(F:CLS) $S=S
  7965. **a1133sD 3
  7966. [ Define ]
  7967. [  tag   ]
  7968.  
  7969. [   A    ]A
  7970. [   B    ]B
  7971. [   C    ]C
  7972. [   D    ]D
  7973. [   E    ]E
  7974. [   F    ]F
  7975. [   G    ]G
  7976. [   H    ]H
  7977. [   I    ]I
  7978.  
  7979. [  J-R   ]$S=A1133SE
  7980. [  S-Z   ]$S=A1133SF
  7981. [ INSERT ]^C^C(progn(setq f:list '(a:tags nil))(princ))(f:rept nil);
  7982. [PREVIOUS ]$s=a1133sa
  7983. [<CANCEL>]^C^C(F:CLS) $S=S
  7984. **a1133sE 3
  7985. [ Define ]
  7986. [  tag   ]
  7987.  
  7988. [   J    ]J
  7989. [   K    ]K
  7990. [   L    ]L
  7991. [   M    ]M
  7992. [   N    ]N
  7993. [   O    ]O
  7994. [   P    ]P
  7995. [   Q    ]Q
  7996. [   R    ]R
  7997.  
  7998. [  A-I   ]$S=A1133SD
  7999. [  S-Z   ]$S=A1133SF
  8000. [ INSERT ]^C^C(progn(setq f:list '(a:tags nil))(princ))(f:rept nil);
  8001. [PREVIOUS ]$s=a1133sb
  8002. [<CANCEL>]^C^C(F:CLS) $S=S
  8003. **A1133SF 3
  8004. [ Define ]
  8005. [  tag   ]
  8006.  
  8007. [   S    ]S
  8008. [   T    ]T
  8009. [   U    ]U
  8010. [   V    ]V
  8011. [   W    ]W
  8012. [   X    ]X
  8013. [   Y    ]Y
  8014. [   Z    ]Z
  8015.  
  8016. [  A-I   ]$S=A1133SD
  8017. [  J-R   ]$S=A1133SE
  8018. [ INSERT ]^C^C(progn(setq f:list '(a:tags nil))(princ))(f:rept nil);
  8019.  
  8020. [PREVIOUS ]$s=a1133sc
  8021. [<CANCEL>]^C^C(F:CLS) $S=S
  8022. **b1133sA 3
  8023. [ Tag   ]
  8024. [ names  ]
  8025.  
  8026. [   A    ]A
  8027. [   B    ]B
  8028. [   C    ]C
  8029. [   D    ]D
  8030. [   E    ]E
  8031. [   F    ]F
  8032. [   G    ]G
  8033. [   H    ]H
  8034. [   I    ]I
  8035. [  J-R  ]$S=b1133sB
  8036. [  S-Z  ]$S=b1133sC
  8037.  
  8038.  
  8039. [ DEFINE ]^C^C(progn(setq f:list '(a:f081))(princ))(f:rept "b1133sd");
  8040. [<CANCEL>]^C^C(F:CLS) $S=S
  8041. **b1133sB 3
  8042. [ Tag   ]
  8043. [ names  ]
  8044.  
  8045. [   J    ]J
  8046. [   K    ]K
  8047. [   L    ]L
  8048. [   M    ]M
  8049. [   N    ]N
  8050. [   O    ]O
  8051. [   P    ]P
  8052. [   Q    ]Q
  8053. [   R    ]R
  8054. [  A-I   ]$S=b1133SA
  8055. [  S-Z   ]$S=b1133SC
  8056.  
  8057.  
  8058. [ DEFINE ]^C^C(progn(setq f:list '(a:f081))(princ))(f:rept "b1133se");
  8059. [<CANCEL>]^C^C(F:CLS) $S=S
  8060. **b1133SC 3
  8061. [ Tag   ]
  8062. [ names  ]
  8063.  
  8064. [   S    ]S
  8065. [   T    ]T
  8066. [   U    ]U
  8067. [   V    ]V
  8068. [   W    ]W
  8069. [   X    ]X
  8070. [   Y    ]Y
  8071. [   Z    ]Z
  8072.  
  8073. [  A-I  ]$S=b1133sA
  8074. [  J-R  ]$S=b1133sB
  8075.  
  8076.  
  8077. [ DEFINE ]^C^C(progn(setq f:list '(a:f081))(princ))(f:rept "b1133sf");
  8078. [<CANCEL>]^C^C(F:CLS) $S=S
  8079. **b1133sD 3
  8080. [ Define ]
  8081. [  tag   ]
  8082.  
  8083. [   A    ]A
  8084. [   B    ]B
  8085. [   C    ]C
  8086. [   D    ]D
  8087. [   E    ]E
  8088. [   F    ]F
  8089. [   G    ]G
  8090. [   H    ]H
  8091. [   I    ]I
  8092.  
  8093. [  J-R   ]$S=b1133SE
  8094. [  S-Z   ]$S=b1133SF
  8095.  
  8096. [ INSERT ]^C^C(progn(setq f:list '(a:tags T))(princ))(f:rept nil);
  8097. [<CANCEL>]^C^C(F:CLS) $S=S
  8098. **b1133sE 3
  8099. [ Define ]
  8100. [  tag   ]
  8101.  
  8102. [   J    ]J
  8103. [   K    ]K
  8104. [   L    ]L
  8105. [   M    ]M
  8106. [   N    ]N
  8107. [   O    ]O
  8108. [   P    ]P
  8109. [   Q    ]Q
  8110. [   R    ]R
  8111.  
  8112. [  A-I   ]$S=b1133SD
  8113. [  S-Z   ]$S=b1133SF
  8114.  
  8115. [ INSERT ]^C^C(progn(setq f:list '(a:tags T))(princ))(f:rept nil);
  8116. [<CANCEL>]^C^C(F:CLS) $S=S
  8117. **b1133SF 3
  8118. [ Define ]
  8119. [  tag   ]
  8120.  
  8121. [   S    ]S
  8122. [   T    ]T
  8123. [   U    ]U
  8124. [   V    ]V
  8125. [   W    ]W
  8126. [   X    ]X
  8127. [   Y    ]Y
  8128. [   Z    ]Z
  8129.  
  8130. [  A-I   ]$S=b1133SD
  8131. [  J-R   ]$S=b1133SE
  8132.  
  8133. [ INSERT ]^C^C(progn(setq f:list '(a:tags T))(princ))(f:rept nil);
  8134.  
  8135. [<CANCEL>]^C^C(F:CLS) $S=S
  8136. **A1138SA 3
  8137. [Lavatory]
  8138.  
  8139. [ Ht. 32"]
  8140.  
  8141. [Oval    ]
  8142. [ 16x17  ]^C^C(setq V:x 16 V:y 17 V:b "af13a" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8143. [ 20x24  ]^C^C(setq V:x 20 V:y 24 V:b "af13a" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8144. [ 22x26  ]^C^C(setq V:x 22 V:y 26 V:b "af13a" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8145. [ 19x19  ]^C^C(setq V:x 19 V:y 19 V:b "af13a" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8146. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:b "af13a" V:x 16 V:y 17 v:zs 6 v:ze 32);+
  8147. (progn(setq f:list '(F:INSR nil T nil "mpfixture" v:b T V:x V:y V:zs V:ze T nil+
  8148. "PLDFLT" "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(princ));+
  8149. (a:othr "lavatory" 16 "A1138SA")
  8150. [Rectang.]
  8151. [ 15x18  ]^C^C(setq V:x 15 V:y 18 V:b "af13b" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8152. [ 18x20  ]^C^C(setq V:x 18 V:y 20 V:b "af13b" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8153. [ 20x30  ]^C^C(setq V:x 20 V:y 30 V:b "af13b" V:zs 6 V:ze 32)(f:rept "A1138SA");
  8154. [<OTHER> ]^C^C(f:lodf "a:othr") (setq v:b "af13b" V:x 15 V:y 18 V:zs 6 V:ze 32);+
  8155. (progn(setq f:list '(F:INSR nil T nil "mpfixture" v:b T V:x V:y V:zs V:ze T nil "PLDFLT" +
  8156. "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(princ));+
  8157. (a:othr "lavatory" 16 "A1138SA")
  8158.  
  8159. [ <MORE> ]$S=A1138SB
  8160. [<CANCEL>]^C^C(F:CLS) $S=S
  8161. **A1138SB 3
  8162. [More    ]
  8163. [lav's   ]
  8164.  
  8165. [ Ht. 32"]
  8166.  
  8167. [Corner  ]
  8168. [ 18" RAD]^C^C(setq V:x 18 V:y 18 V:b "af13c" V:zs 6 V:ze 32)(f:rept "A1138SB");
  8169. [ 11" RAD]^C^C(setq V:x 11 V:y 11 V:b "af13c" V:zs 6 V:ze 32)(f:rept "A1138SB");
  8170. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 18 V:y 18 V:zs 6 V:ze 32);+
  8171. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "af13c" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  8172. "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(princ));+
  8173. (a:othr "lavatory" 16 "A1138SA")
  8174.  
  8175. [Handicap]
  8176. [ 27x20.5]^C^C(setq V:x 27 V:y 20.5 V:b "af13d" V:zs 6 V:ze 32)(f:rept "A1138SB");
  8177. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 27 V:y 20.5 V:zs 6 V:ze 32);+
  8178. (progn(setq f:list '(F:INSR nil T nil "mpfixture" "af13d" T V:x V:y V:zs V:ze T nil "PLDFLT" +
  8179. "au013t1" (list '("PLUNAME" "LAV")) "mpfixtspec"))(princ));+
  8180. (a:othr "lavatory" 16 "A1138SA")
  8181.  
  8182.  
  8183. [ <LAST>]$S=A1138SA
  8184.  
  8185. [<CANCEL>]^C^C(F:CLS) $S=S
  8186. **af14a 3
  8187. [Lavatory]
  8188.  
  8189. [Oval    ]
  8190. [ 16x17  ]1617af13a
  8191. [ 20x24  ]2024af13a
  8192. [ 22x26  ]2226af13a
  8193. [ 19x19  ]1919af13a
  8194. [<OTHER> ]OTHRaf13a
  8195.  
  8196. [Rectang.]
  8197. [ 15x18  ]1518af13b
  8198. [ 18x20  ]1820af13b
  8199. [ 20x30  ]2030af13b
  8200. [<OTHER> ]OTHRaf13b
  8201.  
  8202. [ CUSTOM ]CUSTaf13b
  8203.  
  8204. [ <MORE> ]$S=Af14b
  8205.  
  8206. **af14b 3
  8207. [More    ]
  8208. [lav's   ]
  8209.  
  8210.  
  8211. [Corner  ]
  8212. [ 18" RAD]1818af13c
  8213. [ 11" RAD]1111af13c
  8214. [<OTHER> ]OTHRaf13c
  8215.  
  8216. [Handicap]
  8217. [ 27x20.5]2720af13d
  8218. [<OTHER> ]OTHRaf13d
  8219.  
  8220.  
  8221.  
  8222. [ CUSTOM ]CUSTaf13b
  8223.  
  8224. [ <LAST>]$S=af14a
  8225.  
  8226.  
  8227. [<CANCEL>]^C^C(F:CLS) $S=S
  8228. **AF14SA 3
  8229. [Counter ]
  8230. [type    ]
  8231.  
  8232. [--------](setq a "2")
  8233. [  2-D   ](setq a "2")
  8234. [--------](setq a "2")
  8235.  
  8236.  
  8237. [--------](setq a "3")
  8238. [  3-D   ](setq a "3")
  8239. [--------](setq a "3")
  8240.  
  8241.  
  8242. [--------](setq a "B")
  8243. [  BOTH  ](setq a "B")
  8244. [--------](setq a "B")
  8245.  
  8246. [<CANCEL>]^C^C(F:CLS) $S=S
  8247. **A1139SA 3
  8248. [Lavatory]
  8249.  
  8250. [Counter ]
  8251. [DEPTH   ]^PD^P;
  8252. [HEIGHT  ]^PCH^P;
  8253.  
  8254. [Wal Fnsh]
  8255. [THICKNES]^PFI^P;
  8256.  
  8257. [Splash  ]
  8258. [START   ]^PSS^P;
  8259. [BACK    ]^PSW^P;
  8260. [END     ]^PSE^P;
  8261. [HEIGHT  ]^PSG^P;
  8262.  
  8263. [NONE    ]^PNO^P;
  8264.  
  8265. [<CANCEL>]^C^C(F:CLS) $S=S
  8266. **A1139SB 3
  8267. [Depth of]
  8268. [counter ]
  8269.  
  8270.  
  8271.  
  8272. [22"     ]^P22.0^P;
  8273.  
  8274. [24"     ]^P24.0^P;
  8275.  
  8276. [26"     ]^P26.0^P;
  8277.  
  8278. [30"     ]^P30.0^P;
  8279.  
  8280. [40"     ]^P40.0^P;
  8281.  
  8282. [<OTHER> ]$S=AU001S1
  8283.  
  8284. [<CANCEL>]^C^C(F:CLS) $S=S
  8285. **A1139SC 3
  8286. [Splash  ]
  8287. [guard   ]
  8288. [thicknes]
  8289.  
  8290. [0       ]^P0^P;
  8291.  
  8292. [1/4"    ]^P0.25^P;
  8293. [3/8"    ]^P0.375^P;
  8294. [1/2"    ]^P0.5^P;
  8295. [5/8"    ]^P0.625^P;
  8296.  
  8297. [3/4"    ]^P0.75^P;
  8298. [  1"    ]^P1.0^P;
  8299. [1-1/4"  ]^P1.25^P;
  8300. [1-1/2"  ]^P1.5^P;
  8301.  
  8302. [<OTHER> ]$S=AU001S1
  8303.  
  8304. **A1139SD 3
  8305. [Finish  ]
  8306. [thicknes]
  8307.  
  8308. [0       ]^P0^P;
  8309.  
  8310. [1/2"    ]^P0.5^P;
  8311. [5/8"    ]^P0.625^P;
  8312.  
  8313. [3/4"    ]^P0.75^P;
  8314. [  1"    ]^P1.0^P;
  8315.  
  8316. [1-1/4"  ]^P1.25^P;
  8317. [1-1/2"  ]^P1.5^P;
  8318.  
  8319.  
  8320. [<OTHER> ]$S=AU001S1
  8321.  
  8322. [<CANCEL>]^C^C(F:CLS) $S=S
  8323. **A1139SE 3
  8324. [Lavatory]
  8325. [type    ]
  8326.  
  8327.  
  8328. [--------]af14a
  8329. [        ]af14a
  8330. [REGULAR ]af14a
  8331. [        ]af14a
  8332. [--------]af14a
  8333.  
  8334. [--------]cu $S=A1139SF
  8335. [        ]cu $S=A1139SF
  8336. [ CUSTOM ]cu $S=A1139SF
  8337. [        ]cu $S=A1139SF
  8338. [--------]cu $S=A1139SF
  8339.  
  8340.  
  8341. [<CANCEL>]^C^C(F:CLS) $S=S
  8342. **A1139SF 3
  8343.  
  8344. [Here    ]
  8345. [you can ]
  8346. [create  ]
  8347. [your own]
  8348. [list of ]
  8349. [custom  ]
  8350. [lavatory]
  8351. [types   ]
  8352.  
  8353. [To begin]
  8354. [ select ]
  8355. ["SAMPLE"]
  8356.  
  8357. [SAMPLE  ]af14b $S=A1139SG
  8358.  
  8359.  
  8360. [<CANCEL>]^C^C(F:CLS) $S=S
  8361. **A1139SG 3
  8362.  
  8363. [Here you]
  8364. [can     ]
  8365. [place   ]
  8366. [the X, Y]
  8367. [scale   ]
  8368. [factors ]
  8369.  
  8370. [For     ]
  8371. [sample, ]
  8372. [select  ]
  8373. [X then Y]
  8374.  
  8375. [SAMPLE X]18
  8376.  
  8377. [SAMPLE Y]21
  8378.  
  8379. [<CANCEL>]^C^C(F:CLS) $S=S
  8380. **A1139SH 3
  8381. [Counter ]
  8382. [height  ]
  8383.  
  8384.  
  8385.  
  8386. [29"     ]^P29.0^P;
  8387.  
  8388. [30"     ]^P30.0^P;
  8389.                 
  8390. [31"     ]^P31.0^P;
  8391.  
  8392. [32"     ]^P32.0^P;
  8393.  
  8394. [36"     ]^P36.0^P;
  8395.  
  8396. [<OTHER> ]$S=AU001S1
  8397.  
  8398. [<CANCEL>]^C^C(F:CLS) $S=S
  8399. **A1139SI 3
  8400. [Splash  ]
  8401. [height  ]
  8402.  
  8403.  
  8404.  
  8405. [0      ]^P0^P;
  8406.  
  8407. [2"     ]^P2.0^P;
  8408.  
  8409. [4"     ]^P4.0^P;
  8410.  
  8411. [6"     ]^P6.0^P;
  8412.  
  8413.  
  8414.  
  8415. [<OTHER> ]$S=AU001S1
  8416.  
  8417.  
  8418. [<CANCEL>]^C^C(F:CLS) $S=S
  8419. **A1139TA 3
  8420. [Lavatory]
  8421.  
  8422. [Counter ]
  8423. [DEPTH   ]^PD^P;
  8424.  
  8425. [Wal Fnsh]
  8426. [THICKNES]^PFI^P;
  8427.  
  8428. [Splash  ]
  8429. [START   ]^PSS^P;
  8430. [BACK    ]^PSW^P;
  8431. [END     ]^PSE^P;
  8432.  
  8433.  
  8434.  
  8435. [NONE    ]^PNO^P;
  8436.  
  8437. [<CANCEL>]^C^C(F:CLS) $S=S
  8438. **A1141S1 3
  8439. [Supply  ]
  8440. [diffuser]
  8441.  
  8442.  
  8443. [16x16   ]^C^C(setq V:x 16.0 V:y 16.0 V:r 0)(f:rept "A1141S1");
  8444. [18x18   ]^C^C(setq V:x 18.0 V:y 18.0 V:r 0)(f:rept "A1141S1");
  8445.  
  8446. [20x20   ]^C^C(setq V:x 20.0 V:y 20.0 V:r 0)(f:rept "A1141S1");
  8447. [22x22   ]^C^C(setq V:x 22.0 V:y 22.0 V:r 0)(f:rept "A1141S1");
  8448.  
  8449. [24x24   ]^C^C(setq V:x 24.0 V:y 24.0 V:r 0)(f:rept "A1141S1");
  8450. [24x48   ]^C^C(setq V:x 24.0 V:y 48.0 V:r 0)(f:rept "A1141S1");
  8451. [48x48   ]^C^C(setq V:x 48.0 V:y 48.0 V:r 0)(f:rept "A1141S1");
  8452.  
  8453. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 16.0 V:y 16.0 V:r 0 V:zs 4 V:ze 96);+
  8454. (progn(setq f:list '(F:INSR nil nil nil "mhdiff" "af161" T V:x +
  8455. V:y V:zs V:ze T nil nil nil nil nil))(princ));+
  8456. (a:othr "diffuser" 14 "A1141S1")
  8457.  
  8458.  
  8459. [<CANCEL>]^C^C(F:CLS) $S=S
  8460. **A1142S1 3
  8461. [Spot-   ]
  8462. [light   ]
  8463.  
  8464.  
  8465. [--------]^C^C(setq V:b "af17a")(f:rept "A1142S1");
  8466. [        ]^C^C(setq V:b "af17a")(f:rept "A1142S1");
  8467. [WALL MT ]^C^C(setq V:b "af17a")(f:rept "A1142S1");
  8468. [        ]^C^C(setq V:b "af17a")(f:rept "A1142S1");
  8469. [--------]^C^C(setq V:b "af17a")(f:rept "A1142S1");
  8470.  
  8471. [--------]^C^C(setq V:b "af17b")(f:rept "A1142S1");
  8472. [        ]^C^C(setq V:b "af17b")(f:rept "A1142S1");
  8473. [CEILING ]^C^C(setq V:b "af17b")(f:rept "A1142S1");
  8474. [        ]^C^C(setq V:b "af17b")(f:rept "A1142S1");
  8475. [--------]^C^C(setq V:b "af17b")(f:rept "A1142S1");
  8476.  
  8477.  
  8478. [<CANCEL>]^C^C(F:CLS) $S=S
  8479. **A1143SA 3
  8480. [Options ]
  8481.  
  8482.  
  8483. [DESK   ]^PDE^P;
  8484.  
  8485. [RETURN ]^PRE^P;
  8486.  
  8487. [CHAIR  ]^PCH^P;
  8488.  
  8489.  
  8490.  
  8491. [NONE   ]^PNO^P;
  8492.  
  8493.  
  8494.  
  8495.  
  8496.  
  8497. [<CANCEL>]^C^C(F:CLS) $S=S
  8498. **A1143SB 3
  8499. [Options ]
  8500.  
  8501.  
  8502.  
  8503.  
  8504. [DESK    ]^PDE^P;
  8505.  
  8506. [RETURN  ]^PRE^P;
  8507.  
  8508. [CHAIR   ]^PCH^P;
  8509.  
  8510. [GUEST CH]^PGU^P;
  8511.  
  8512.  
  8513. [NONE   ]^PNO^P;
  8514.  
  8515.  
  8516. [<CANCEL>]^C^C(F:CLS) $S=S
  8517. **A1143SC 3
  8518. [Options ]
  8519.  
  8520.  
  8521.  
  8522.  
  8523. [DESK    ]^PDE^P;
  8524.  
  8525. [RETURN  ]^PRE^P;
  8526.  
  8527. [CHAIR   ]^PCH^P;
  8528.  
  8529. [CREDENZA]^PCR^P;
  8530.  
  8531.  
  8532. [NONE   ]^PNO^P;
  8533.  
  8534.  
  8535. [<CANCEL>]^C^C(F:CLS) $S=S
  8536. **A1143SD 3
  8537. [Options ]
  8538.  
  8539.  
  8540.  
  8541.  
  8542. [DESK    ]^PDE^P;
  8543.  
  8544. [CHAIR   ]^PCH^P;
  8545.  
  8546. [GUEST CH]^PGU^P;
  8547.  
  8548. [CREDENZA]^PCR^P;
  8549.  
  8550.  
  8551. [NONE   ]^PNO^P;
  8552.  
  8553.  
  8554. [<CANCEL>]^C^C(F:CLS) $S=S
  8555. **af18sa 3
  8556. [Options ]
  8557.  
  8558.  
  8559. [DESK    ]^PDE^P;
  8560.  
  8561. [RETURN  ]^PRE^P;
  8562.  
  8563. [CHAIR   ]^PCH^P;
  8564.  
  8565. [GUEST CH]^PGU^P;
  8566.  
  8567. [CREDENZA]^PCR^P;
  8568.  
  8569.  
  8570. [NONE   ]^PNO^P;
  8571.  
  8572.  
  8573. [<CANCEL>]^C^C(F:CLS) $S=S
  8574. **AF18SB 3
  8575. [Desk    ]
  8576. [Return  ]
  8577.  
  8578.  
  8579. [w x d   ]
  8580.  
  8581. [42x18  ]^P1842
  8582.  
  8583. [36x18  ]^P1836
  8584.  
  8585. [30x18  ]^P1830
  8586.  
  8587. [<OTHER>]^PC
  8588.  
  8589.  
  8590.  
  8591.  
  8592. [<CANCEL>]^C^C(F:CLS) $S=S
  8593. **af18sc 3
  8594. [Guest   ]
  8595. [Chair   ]
  8596.  
  8597. [SECRETRL]Secretrlaa18a
  8598.  
  8599. [Executiv]
  8600. [RECTANG ]Exec-Recac18a
  8601. [CURVED  ]Exec-Curac18c
  8602.  
  8603. [Dining  ]
  8604. [TAPERED ]Dini-Tapac18e
  8605. [SIDE    ]Dini-Sidac18g
  8606.  
  8607. [Guest  ]
  8608. [SWIVEL  ]Guest-Swad19a
  8609. [ARM     ]Guest-Arad19b
  8610.  
  8611.  
  8612.  
  8613. **af18sd 3
  8614. [Chair   ]
  8615.  
  8616. [Secretal]
  8617. [Exec. & ]
  8618. [dining  ]
  8619. [16x20   ]1620
  8620. [22x24   ]2224
  8621. [27x30   ]2730
  8622. [30x30   ]3030
  8623. [36x32   ]3632
  8624.  
  8625. [Guest  ]
  8626. [23x20   ]2320
  8627. [24x23   ]2423
  8628. [26x24   ]2624
  8629. [30x27   ]3027
  8630.  
  8631. [<OTHER> ]C
  8632. **af18se 3
  8633. [Chair   ]
  8634.  
  8635. [SECRETRL]Secretrlaa18a
  8636.  
  8637. [Executiv]
  8638. [RECTANG ]Exec-Recac18a
  8639. [CURVED  ]Exec-Curac18c
  8640.  
  8641.  
  8642.  
  8643.  
  8644.  
  8645.  
  8646.  
  8647.  
  8648.  
  8649.  
  8650.  
  8651.  
  8652. **af18sf 3
  8653. [Chair   ]
  8654.  
  8655. [Secretal]
  8656. [Exec. & ]
  8657. [dining  ]
  8658. [16x20   ]1620
  8659. [22x24   ]2224
  8660. [27x30   ]2730
  8661. [30x30   ]3030
  8662. [36x32   ]3632
  8663.  
  8664.  
  8665.  
  8666.  
  8667.  
  8668.  
  8669.  
  8670. [<OTHER> ]C
  8671. **A1143SE 3
  8672. [Desk    ]
  8673.  
  8674.  
  8675. [60x30   ]^P6030^P;
  8676.  
  8677. [66x30   ]^P6630^P;
  8678.  
  8679. [72x30   ]^P7230^P;
  8680.  
  8681. [60x36   ]^P6036^P;
  8682.  
  8683. [66x36   ]^P6636^P;
  8684.  
  8685. [72x36   ]^P7236^P;
  8686.  
  8687. [<OTHER> ]^PC^P;
  8688.  
  8689. [<CANCEL>]^C^C(F:CLS) $S=S
  8690. **A1143SG 3
  8691. [Chair   ]
  8692.  
  8693.  
  8694. [SECRETRL]Secretrlaa18a
  8695.  
  8696.  
  8697. [Executiv]
  8698. [RECTANG ]Exec-Recac18a
  8699. [CURVED  ]Exec-Curac18c
  8700.  
  8701. [Dining  ]
  8702. [TAPERED ]Dini-Tapac18e
  8703. [SIDE    ]Dini-Sidac18g
  8704.  
  8705.  
  8706. [GUEST   ]^C^C(F:PRMP);$S=A1143SI
  8707.  
  8708. [<CANCEL>]^C^C(F:CLS) $S=S
  8709. **A1143SH 3
  8710. [Chair   ]
  8711.  
  8712.  
  8713.  
  8714. [16x20   ]1620
  8715.  
  8716. [22x24   ]2224
  8717.  
  8718. [27x30   ]2730
  8719.  
  8720. [30x30   ]3030
  8721.  
  8722. [36x32   ]3632
  8723.  
  8724. [<OTHER> ]C
  8725.  
  8726.  
  8727. [<CANCEL>]^C^C(F:CLS) $S=S
  8728. **A1143SI 3
  8729. [Guest   ]
  8730. [chair   ]
  8731.  
  8732.  
  8733.  
  8734.  
  8735. [SWIVEL  ]Guest-Swab18c
  8736.  
  8737. [ARM     ]Guest-Arab18a
  8738.  
  8739.  
  8740.  
  8741.  
  8742. [SECRETRL]^C^C(F:PRMP);$S=A1143SG
  8743. [EXECUTIV]^C^C(F:PRMP);$S=A1143SG
  8744.  
  8745.  
  8746. [<CANCEL>]^C^C(F:CLS) $S=S
  8747. **A1143SJ 3
  8748. [Guest   ]
  8749. [chair   ]
  8750.  
  8751.  
  8752.  
  8753. [23x20   ]2320
  8754.  
  8755. [24x23   ]2423
  8756.  
  8757. [26x24   ]2624
  8758.  
  8759. [30x27   ]3027
  8760.  
  8761.  
  8762. [<OTHER> ]C
  8763.  
  8764.  
  8765. [<CANCEL>]^C^C(F:CLS) $S=S
  8766. **A1143SK 3
  8767. [Credenza]
  8768.  
  8769.  
  8770.  
  8771.  
  8772.  
  8773. [60X18  ]6018
  8774.  
  8775. [66X18  ]6618
  8776.  
  8777. [72X18  ]7218
  8778.  
  8779. [<OTHER>]C
  8780.  
  8781.  
  8782.  
  8783.  
  8784. [<CANCEL>]^C^C(F:CLS) $S=S
  8785. **A1145S1 3
  8786. [Copier ]
  8787.  
  8788. [ Ht. 32" ]
  8789.  
  8790.  
  8791. [W xD xH ]
  8792.  
  8793. [20x14x10]^C^C(setq V:x 14 V:y 20 V:r 0 V:zs 10 V:ze 32)(f:rept "A1145S1");
  8794.  
  8795. [26x22x16]^C^C(setq V:x 22 V:y 26 V:r 0 V:zs 16 V:ze 32)(f:rept "A1145S1");
  8796.  
  8797. [36x24x20]^C^C(setq V:x 24 V:y 36 V:r 0 V:zs 20 V:ze 32)(f:rept "A1145S1");
  8798.  
  8799.  
  8800. [<OTHER>]^C^C(f:lodf "a:othr") (setq V:x 14 V:y 20 V:r 0 V:zs 10 V:ze 32);+
  8801. (progn(setq f:list '(F:INSR nil T nil "fmequip" "af201" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  8802. "au017t1" (list '("FURNAME" "COPY MACHINE")) "fmspec"))(princ));+
  8803. (a:othr "copier" 17 "A1145S1")
  8804.  
  8805.  
  8806. [<CANCEL>]^c^c(F:CLS) $S=S
  8807. **A1146SA 3
  8808. [Washer &]
  8809. [dryer   ]
  8810.  
  8811.  
  8812. [--------]^C^C(setq V:b "af21a" V:d "WASHER" V:zs 1) (F:PRMP) $S=A1146SB
  8813. [ WASHER ]^C^C(setq V:b "af21a" V:d "WASHER" V:zs 1) (F:PRMP) $S=A1146SB
  8814. [--------]^C^C(setq V:b "af21a" V:d "WASHER" V:zs 1) (F:PRMP) $S=A1146SB
  8815.  
  8816. [--------]^C^C(setq V:b "af21b" V:d "DRYER" V:zs 1) (F:PRMP) $S=A1146SB
  8817. [ DRYER  ]^C^C(setq V:b "af21b" V:d "DRYER" V:zs 1) (F:PRMP) $S=A1146SB
  8818. [--------]^C^C(setq V:b "af21b" V:d "DRYER" V:zs 1) (F:PRMP) $S=A1146SB
  8819.  
  8820. [--------]^C^C(setq V:b "af21c" V:d "STACKED" V:zs 2) (F:PRMP) $S=A1146SB 
  8821. [STACKED ]^C^C(setq V:b "af21c" V:d "STACKED" V:zs 2) (F:PRMP) $S=A1146SB 
  8822. [--------]^C^C(setq V:b "af21c" V:d "STACKED" V:zs 2) (F:PRMP) $S=A1146SB 
  8823.  
  8824.  
  8825. [<CANCEL>]^C^C(F:CLS) $S=S
  8826. **A1146SB 3
  8827. [Washer &]
  8828. [dryer  ]
  8829.  
  8830. [ Ht.  36"]
  8831. [(72" for]
  8832. [ Stackd)]
  8833.  
  8834. [ 24X25  ]^C^C(setq V:x 25 V:y 24 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "a1146sb");
  8835. [ 24x27  ]^C^C(setq V:x 27 V:y 24 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "a1146sb");
  8836. [ 25X26  ]^C^C(setq V:x 26 V:y 25 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "a1146sb");
  8837.  
  8838. [ 27X25  ]^C^C(setq V:x 25 V:y 27 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "a1146sb");
  8839. [ 28X25  ]^C^C(setq V:x 25 V:y 28 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "a1146sb");
  8840. [ 28X26  ]^C^C(setq V:x 26 V:y 28 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "a1146sb");
  8841.  
  8842. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 25 V:y 24 V:r 0 V:ze 0 V:zs (* V:zs 36));+
  8843. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  8844. "au016t1" (list (list "APLNAME" d)) "arapplspec"))(princ));+
  8845. (a:othr "appliance" 7 "A1146SB")
  8846. [PREVIOUS ]$s=A1146SA
  8847. [<CANCEL>]^C^C(F:CLS) $S=S
  8848. **A1150S1 3
  8849. [Title   ]
  8850. [text    ]
  8851.  
  8852.  
  8853. [--------]^C^C(f:lodf "a:f251") (progn(setq f:list '(a:f251))(princ))(f:rept "a1150s1")
  8854. [ TEXT   ]^C^C(f:lodf "a:f251") (progn(setq f:list '(a:f251))(princ))(f:rept "a1150s1")
  8855. [--------]^C^C(f:lodf "a:f251") (progn(setq f:list '(a:f251))(princ))(f:rept "a1150s1")
  8856.  
  8857. [--------]^C^C(F:LODF "a:d251") (progn(setq f:list '(a:d251))(princ))(f:rept nil);
  8858. [ VIEW   ]^C^C(F:LODF "a:d251") (progn(setq f:list '(a:d251))(princ))(f:rept nil);
  8859. [--------]^C^C(F:LODF "a:d251") (progn(setq f:list '(a:d251))(princ))(f:rept nil);
  8860.  
  8861. [--------]^C^C(command "view" "r" "return");(F:RLAY);(F:MODR)
  8862. [RETURN  ]^C^C(command "view" "r" "return");(F:RLAY);(F:MODR)
  8863. [TO DWG. ]^C^C(command "view" "r" "return");(F:RLAY);(F:MODR)
  8864. [--------]^C^C(command "view" "r" "return");(F:RLAY);(F:MODR)
  8865.  
  8866. [<CANCEL>]^C^C(F:CLS) $S=S
  8867. **a1158s1 3
  8868. [Line   ]
  8869. [width ]
  8870.  
  8871.  
  8872. [-------]^C^C(progn(setq f:list '(a:g081 (strcat lname "L")))(princ))(f:rept "a1158s1");
  8873. [LIGHT  ]^C^C(progn(setq f:list '(a:g081 (strcat lname "L")))(princ))(f:rept "a1158s1");
  8874. [-------]^C^C(progn(setq f:list '(a:g081 (strcat lname "L")))(princ))(f:rept "a1158s1");
  8875.  
  8876. [-------]^C^C(progn(setq f:list '(a:g081 (strcat lname "M")))(princ))(f:rept "a1158s1");
  8877. [MEDIUM ]^C^C(progn(setq f:list '(a:g081 (strcat lname "M")))(princ))(f:rept "a1158s1");
  8878. [-------]^C^C(progn(setq f:list '(a:g081 (strcat lname "M")))(princ))(f:rept "a1158s1");
  8879.  
  8880. [-------]^C^C(progn(setq f:list '(a:g081 (strcat lname "H")))(princ))(f:rept "a1158s1");
  8881. [HEAVY  ]^C^C(progn(setq f:list '(a:g081 (strcat lname "H")))(princ))(f:rept "a1158s1");
  8882. [-------]^C^C(progn(setq f:list '(a:g081 (strcat lname "H")))(princ))(f:rept "a1158s1");
  8883.  
  8884.  
  8885. [<CANCEL>]^C^C(F:CLS) $S=S
  8886. **A1164SA 3
  8887. [Urinal  ]
  8888. [stalls  ]
  8889.  
  8890. [STALL   ]WI
  8891. [WIDTH   ]WI
  8892.  
  8893. [WALL    ]FI
  8894. [FINISH  ]FI
  8895.  
  8896. [Screen  ]
  8897. [WIDTH   ]LE
  8898. [THICKNES]TH
  8899. [FRM FLOR]S
  8900. [HEIGHT  ]H
  8901.  
  8902. [NONE    ]NO
  8903.  
  8904. [<CANCEL>]^C^C(F:CLS) $S=S
  8905. **A1164SB 3
  8906. [ Stall  ]
  8907. [ width  ]
  8908.  
  8909.  
  8910. [24"     ]^P24.0^P;
  8911.  
  8912. [28"     ]^P28.0^P;
  8913.  
  8914. [30"     ]^P30.0^P;
  8915.  
  8916. [36"     ]^P36.0^P;
  8917.  
  8918.  
  8919. [<OTHER> ]$S=AU001S1
  8920.  
  8921.  
  8922.  
  8923. [<CANCEL>]^C^C(F:CLS) $S=S
  8924. **A1164SC 3
  8925. [Wall    ]
  8926. [finish  ]
  8927.  
  8928. [0       ]^P0^P;
  8929.  
  8930. [1/2"    ]^P0.5^P;
  8931. [5/8"    ]^P0.625^P;
  8932.  
  8933. [3/4"    ]^P0.75^P;
  8934. [  1"    ]^P1.0^P;
  8935.  
  8936. [1-1/4"  ]^P1.25^P;
  8937. [1-1/2"  ]^P1.5^P;
  8938.  
  8939.  
  8940. [<OTHER> ]$S=AU001S1
  8941.  
  8942. [<CANCEL>]^C^C(F:CLS) $S=S
  8943. **A1164SD 3
  8944. [ Screen  ]
  8945. [ width   ]
  8946.  
  8947.  
  8948.  
  8949. [18"     ]^P18.0^P;
  8950.  
  8951. [20"     ]^P20.0^P;
  8952.  
  8953. [24"     ]^P24.0^P;
  8954.  
  8955. [30"     ]^P30.0^P;
  8956.  
  8957.  
  8958. [<OTHER> ]$S=AU001S1
  8959.  
  8960.  
  8961. [<CANCEL>]^C^C(F:CLS) $S=S
  8962. **A1164SE 3
  8963. [Screen  ]
  8964. [thicknes]
  8965.  
  8966. [3/4"    ]^P0.75^P;
  8967.  
  8968. [5/8"    ]^P0.625^P;
  8969.  
  8970. [7/8"    ]^P0.875^P;
  8971.  
  8972. [  1"    ]^P1.0^P;
  8973.  
  8974. [1-1/4"  ]^P1.25^P;
  8975.  
  8976. [1-1/2"  ]^P1.5^P;
  8977.  
  8978. [<OTHER> ]$S=AU001S1
  8979.  
  8980. [<CANCEL>]^C^C(F:CLS) $S=S
  8981. **A1164SF 3
  8982. [ Urinal  ]
  8983. [ type    ]
  8984.  
  8985.  
  8986. [--------]reg
  8987. [        ]reg
  8988. [REGULAR ]reg
  8989. [        ]reg
  8990. [--------]reg
  8991.  
  8992. [--------]cust
  8993. [        ]cust
  8994. [ CUSTOM ]cust
  8995. [        ]cust
  8996. [--------]cust
  8997.  
  8998.  
  8999. [<CANCEL>]^C^C(F:CLS) $S=S
  9000. **A1164SG 3
  9001.  
  9002. [Here    ]
  9003. [you can ]
  9004. [create  ]
  9005. [your own]
  9006. [list of ]
  9007. [custom  ]
  9008. [urinal  ]
  9009. [types   ]
  9010.  
  9011. [To begin]
  9012. [ select ]
  9013. ["SAMPLE"]
  9014.  
  9015. [SAMPLE  ]^Pag14c^P;
  9016.  
  9017.  
  9018. [<CANCEL>]^C^C(F:CLS) $S=S
  9019. **A1164SH 3
  9020.  
  9021. [Here you]
  9022. [can     ]
  9023. [place   ]
  9024. [the X, Y]
  9025. [scale   ]
  9026. [factors ]
  9027.  
  9028. [For     ]
  9029. [sample, ]
  9030. [select  ]
  9031. [X then Y]
  9032.  
  9033. [SAMPLE X]12
  9034.  
  9035. [SAMPLE Y]15
  9036.  
  9037. [<CANCEL>]^C^C(F:CLS) $S=S
  9038. **A1164SI 3
  9039. [Screen  ]
  9040. [height  ]
  9041. [from    ]
  9042. [floor   ]
  9043.  
  9044. [0    ]^P0.0^P;
  9045.  
  9046. [6"    ]^P6.0^P;
  9047.  
  9048. [12"    ]^P12.0^P;
  9049.  
  9050. [18"    ]^P18.0^P;
  9051.  
  9052. [24"  ]^P24.0^P;
  9053.  
  9054. [<OTHER> ]$S=AU001S1
  9055.  
  9056. [<CANCEL>]^C^C(F:CLS) $S=S
  9057. **A1164SJ 3
  9058. [Screen  ]
  9059. [height  ]
  9060.  
  9061.  
  9062.  
  9063.  
  9064. [28"    ]^P28.0^P;
  9065.  
  9066. [42"    ]^P42.0^P;
  9067.  
  9068. [58"    ]^P58.0^P;
  9069.  
  9070.  
  9071.  
  9072.  
  9073. [<OTHER> ]$S=AU001S1
  9074.  
  9075. [<CANCEL>]^C^C(F:CLS) $S=S
  9076. **A1165SA 3
  9077. [Switches]
  9078.  
  9079.  
  9080. [1 POLE  ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9081. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15b" T V:x V:y +
  9082. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9083.  
  9084. [3 WAY   ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9085. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15c" T V:x V:y +
  9086. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9087.  
  9088. [4 WAY   ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9089. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15d" T V:x V:y +
  9090. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9091.  
  9092. [DIMMER  ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9093. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15e" T V:x V:y +
  9094. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9095.  
  9096. [GFI     ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9097. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15f" T V:x V:y +
  9098. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9099.  
  9100. [TIME    ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9101. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15g" T V:x V:y +
  9102. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9103.  
  9104. [W'PROOF ]^C^C(setq V:x (* (getvar "userr3") V:ELEC) V:y V:x) +
  9105. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ag15h" T V:x V:y +
  9106. 1 0 T nil nil nil nil nil))(princ))(f:rept "a1165sa");
  9107.  
  9108. [<CANCEL>]^C^C(F:CLS) $S=S
  9109. **A1166S1 3
  9110. [Return  ]
  9111. [diffuser]
  9112.  
  9113.  
  9114.  
  9115. [2'x2'   ]^C^C(setq V:x 24 V:y 24 V:r 0)(f:rept "A1166S1");
  9116.  
  9117. [2'x4'   ]^C^C(setq V:x 24 V:y 48 V:r 0)(f:rept "A1166S1");
  9118.  
  9119. [4'x4'   ]^C^C(setq V:x 48 V:y 48 V:r 0)(f:rept "A1166S1");
  9120.  
  9121.  
  9122. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 24 V:y 24 V:r 0 V:zs 4 V:ze 96);+
  9123. (progn(setq f:list '(F:INSR nil nil nil "mhdiff" "ag161" T V:x V:y V:zs V:ze +
  9124. T nil nil nil nil nil))(princ));+
  9125. (a:othr "diffuser" 14 "A1166S1")
  9126.  
  9127.  
  9128.  
  9129.  
  9130. [<CANCEL>]^C^C(F:CLS) $S=S
  9131. **A1167SA 3
  9132. [Track   ]
  9133. [length  ]
  9134.  
  9135.  
  9136. [24"     ]^P24.0^P;
  9137.  
  9138. [36"     ]^P36.0^P;
  9139.  
  9140. [48"     ]^P48.0^P;
  9141.  
  9142. [60"     ]^P60.0^P;
  9143.  
  9144. [72"     ]^P72.0^P;
  9145.  
  9146. [<OTHER> ]^P0.0^P;
  9147.  
  9148.  
  9149. [<CANCEL>]^C^C(F:CLS) $S=S;
  9150. **A1170S1 3
  9151. [Typewrtr]
  9152. [ or     ]
  9153. [micro-  ]
  9154. [computer]
  9155.  
  9156.  
  9157. [TYPEWRTR]^C^C(setq V:x 15 V:y 18 V:zs 7 V:ze 26);+
  9158. (progn(setq f:list '(F:INSR nil T nil "fmequip" "ag20a" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  9159. "au017t1" (list '("FURNAME" "TYPEWRITER")) "fmspec"))(princ))(f:rept "a1170s1");
  9160. [(Set at ]
  9161. [ht. 26")]
  9162.  
  9163.  
  9164. [COMPUTER]^C^C(setq V:x 15 V:y 19 V:zs 6 V:ze 29);+
  9165. (progn(setq f:list '(F:INSR nil T nil "fmequip" "ag20b" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  9166. "au017t1" (list '("FURNAME" "COMPUTER")) "fmspec"))(princ))(f:rept "a1170s1");
  9167. [(Set at ]
  9168. [ht. 29")]
  9169.  
  9170.  
  9171.  
  9172. [<CANCEL>]^C^C(F:CLS) $S=S
  9173. **AG21a 3
  9174. [Counter ]
  9175. [  or    ]
  9176. [cabinet ]
  9177.  
  9178. [  3-D  ]
  9179.  
  9180.  
  9181. [--------]^C^C(F:LODF "a:e14a");(F:LODF "a:g211");(f:lodf "a:f141");(F:PRMP);$S=AF14SA \+
  9182. (progn(setq f:list '(a:g211 a))(princ))(f:rept "ag21a");
  9183. [COUNTER ]^C^C^C^C(F:LODF "a:e14a");(F:LODF "a:g211");(f:lodf "a:f141");(F:PRMP);$S=AF14SA \+
  9184. (progn(setq f:list '(a:g211 a))(princ))(f:rept "ag21a");
  9185. [--------]^C^C^C^C(F:LODF "a:e14a");(F:LODF "a:g211");(f:lodf "a:f141");(F:PRMP);$S=AF14SA \+
  9186. (progn(setq f:list '(a:g211 a))(princ))(f:rept "ag21a");
  9187.  
  9188. [--------]^C^C(setq f:list '(F:INSR nil nil nil "arcabinet" V:b +
  9189. T V:x V:y V:zs V:ze T T nil nil nil nil))(f:prmp);$s=a3g21b1
  9190. [CABINET ]^C^C(setq f:list '(F:INSR nil nil nil "arcabinet" V:b +
  9191. T V:x V:y V:zs V:ze T T nil nil nil nil))(f:prmp);$s=a3g21b1
  9192. [--------]^C^C(setq f:list '(F:INSR nil nil nil "arcabinet" V:b +
  9193. T V:x V:y V:zs V:ze T T nil nil nil nil))(f:prmp);$s=a3g21b1
  9194.  
  9195.  
  9196.  
  9197. [<CANCEL>]^C^C(F:CLS) $S=S
  9198. **AG21B 3
  9199.  
  9200. [Counter ]
  9201. [DEPTH   ]^PD^P;
  9202. [HEIGHT  ]^PCH^P;
  9203.  
  9204. [Cabinet ]
  9205. [DEPTH   ]^PU^P;
  9206.  
  9207. [Wal Fnsh]
  9208. [THICKNES]^PFI^P;
  9209.  
  9210. [Splash  ]
  9211. [START   ]^PSS^P;
  9212. [BACK    ]^PSW^P;
  9213. [END     ]^PSE^P;
  9214. [HEIGHT  ]^PSG^P;
  9215.  
  9216. [NONE    ]^PNO^P;
  9217. **AG21C 3
  9218. [Depth of]
  9219. [upper   ]
  9220. [cabinet ]
  9221.  
  9222. [ 8"     ]^P8.0^P;
  9223. [10"     ]^P10.0^P;
  9224.  
  9225. [12"     ]^P12.0^P;
  9226. [14"     ]^P14.0^P;
  9227. [16"     ]^P16.0^P;
  9228. [18"     ]^P18.0^P;
  9229. [20"     ]^P20.0^P;
  9230. [24"     ]^P24.0^P;
  9231. [26"     ]^P26.0^P;
  9232.  
  9233. [<OTHER> ]$S=AU001S1
  9234.  
  9235. [<CANCEL>]^C^C(F:CLS) $S=S
  9236. **AG21D 3
  9237.  
  9238. [Counter ]
  9239. [DEPTH   ]^PD^P;
  9240.  
  9241. [Cabinet ]
  9242. [DEPTH   ]^PU^P;
  9243.  
  9244. [Wal Fnsh]
  9245. [THICKNES]^PFI^P;
  9246.  
  9247. [Splash  ]
  9248. [START   ]^PSS^P;
  9249. [BACK    ]^PSW^P;
  9250. [END     ]^PSE^P;
  9251.  
  9252. [NONE    ]^PNO^P;
  9253.  
  9254. [<CANCEL>]^C^C(F:CLS) $S=S
  9255. **AG23A 3
  9256. [User 7/8]
  9257.  
  9258.  
  9259. [--------]^C^C(progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  9260. (prompt "The current library is ")(princ V:unme)+
  9261. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9262. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9263. [        ]^C^C(progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  9264. (prompt "The current library is ")(princ V:unme)+
  9265. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9266. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9267. [   U7   ]^C^C(progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  9268. (prompt "The current library is ")(princ V:unme)+
  9269. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9270. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9271. [        ]^C^C(progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  9272. (prompt "The current library is ")(princ V:unme)+
  9273. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9274. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9275. [--------]^C^C(progn (setq ubox "U7")(menucmd "S=aa23a") (terpri)+
  9276. (prompt "The current library is ")(princ V:unme)+
  9277. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9278. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9279.  
  9280.  
  9281. [--------]^C^C(progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  9282. (prompt "The current library is ")(princ V:unme)+
  9283. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9284. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9285. [        ]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  9286. (prompt "The current library is ")(princ V:unme)+
  9287. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9288. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9289. [   U8   ]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  9290. (prompt "The current library is ")(princ V:unme)+
  9291. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9292. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9293. [        ]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  9294. (prompt "The current library is ")(princ V:unme)+
  9295. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9296. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9297. [--------]^C^C(F:UNDO);(F:ERR) (progn (setq ubox "U8")(menucmd "S=aa23a") (terpri)+
  9298. (prompt "The current library is ")(princ V:unme)+
  9299. (prompt ".  To insert a previously defined symbol, ")(terpri)+
  9300. (prompt "select a letter name.  To define a symbol, select DEFINE: ")(princ))
  9301.  
  9302.  
  9303. [<CANCEL>]^C^C(F:CLS) $S=S
  9304. **A3G21b1 3
  9305. [  3-D     ]
  9306. [cabinets]
  9307.  
  9308. [Lower   ]
  9309.  
  9310. [1 DOOR  ]^C^C(setq V:b "a3g21a") (F:PRMP) $S=a3G21b2
  9311. [2 DOOR     ]^C^C(setq V:b "a3g21b") (F:PRMP) $S=a3G21b4
  9312. [1DR 1DWR]^C^C(setq V:b "a3g21c") (F:PRMP) $S=a3G21b2
  9313. [2DR 2DWR]^C^C(setq V:b "a3g21d") (F:PRMP) $S=a3G21b4
  9314. [4 DRAWER]^C^C(setq V:b "a3g21e") (F:PRMP) $S=a3G21b2
  9315.  
  9316. [Upper   ]
  9317.  
  9318. [1 DOOR  ]^C^C(setq V:b "a3g21f") (F:PRMP) $S=a3G21b5
  9319. [2 DOOR  ]^C^C(setq V:b "a3g21g") (F:PRMP) $S=a3G21b6
  9320.  
  9321. [PREVIOUS ]$s=ag21a
  9322. [<CANCEL>]^C^C(F:CLS) $S=S
  9323. **a3G21b2 3
  9324. [Lower   ]
  9325. [sngl. dr]
  9326.  
  9327. [Ht. 34.5]
  9328.  
  9329. [W  x  D ]
  9330.  
  9331. [ 6 x 24 ]^C^C(setq V:x 6 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9332. [ 9 x 24 ]^C^C(setq V:x 9 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9333. [12 x 24 ]^C^C(setq V:x 12 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9334. [15 x 24 ]^C^C(setq V:x 15 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9335. [18 x 24 ]^C^C(setq V:x 18 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9336. [21 x 24 ]^C^C(setq V:x 21 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9337. [24 x 24 ]^C^C(setq V:x 24 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b2");
  9338.  
  9339. [OTHER     ]^C^C(f:lodf "a:othb") (setq V:x 6 V:y 24 V:zs 34.5 V:ze 0);+
  9340. (progn(setq f:list '(F:INSR nil nil nil "arcabinet" V:b T V:x V:y V:zs V:ze +
  9341. T T nil nil nil nil))(princ));+
  9342. (a:othb "cabinet" T nil "a3G21b2" T)
  9343. [PREVIOUS ]$s=a3g21b1
  9344. [<CANCEL>]^C^C(F:CLS) $S=S
  9345. **a3G21b4 3
  9346. [Lower   ]
  9347. [dbl. dr.]
  9348.  
  9349. [Ht. 34.5]
  9350. [W  x  D ]
  9351.  
  9352. [24 x 24 ]^C^C(setq V:x 24 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9353. [27 x 24 ]^C^C(setq V:x 27 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9354. [30 x 24 ]^C^C(setq V:x 30 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9355. [33 x 24 ]^C^C(setq V:x 33 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9356. [36 x 24 ]^C^C(setq V:x 36 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9357. [39 x 24 ]^C^C(setq V:x 39 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9358. [42 x 24 ]^C^C(setq V:x 42 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9359. [45 x 24 ]^C^C(setq V:x 45 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9360. [48 x 24 ]^C^C(setq V:x 48 V:y 24 V:zs 34.5 V:ze 0)(f:rept "a3g21b4");
  9361. [OTHER     ]^C^C(f:lodf "a:othb") (setq V:x 24 V:y 24 V:zs 34.5 V:ze 0);+
  9362. (progn(setq f:list '(F:INSR nil nil nil "arcabinet" V:b T V:x V:y V:zs V:ze +
  9363. T T nil nil nil nil))(princ));+
  9364. (a:othb "cabinet" T nil "a3G21b4" T)
  9365. [PREVIOUS ]$s=a3g21b1
  9366. [<CANCEL>]^C^C(F:CLS) $S=S
  9367. **a3G21b5 3
  9368. [Upper   ]
  9369. [sngl. dr]
  9370.  
  9371.  
  9372. [W  x  D ]
  9373.  
  9374. [ 6 x 12 ]^C^C(setq V:x  6 V:y 12 ) (F:PRMP) $S=a3G21b7
  9375. [ 9 x 12 ]^C^C(setq V:x  9 V:y 12 ) (F:PRMP) $S=a3G21b7
  9376. [12 x 12 ]^C^C(setq V:x 12 V:y 12 ) (F:PRMP) $S=a3G21b7
  9377. [15 x 12 ]^C^C(setq V:x 15 V:y 12 ) (F:PRMP) $S=a3G21b7
  9378. [18 x 12 ]^C^C(setq V:x 18 V:y 12 ) (F:PRMP) $S=a3G21b7
  9379. [21 x 12 ]^C^C(setq V:x 21 V:y 12 ) (F:PRMP) $S=a3G21b7
  9380. [24 x 12 ]^C^C(setq V:x 24 V:y 12 ) (F:PRMP) $S=a3G21b7
  9381.  
  9382. [OTHER     ]^C^C(f:lodf "a:othb") (setq V:x 6 V:y 12);+
  9383. (progn(setq f:list '(F:INSR nil nil nil "arcabinet" V:b T V:x V:y V:zs V:ze +
  9384. T T nil nil nil nil))(princ));+
  9385. (a:othb "cabinet" T nil "a3G21b5" T)
  9386.  
  9387. [PREVIOUS ]$s=a3g21b1
  9388. [<CANCEL>]^C^C(F:CLS) $S=S
  9389. **a3G21b6 3
  9390. [Upper   ]
  9391. [dbl. dr.]
  9392.  
  9393. [W  x  D ]
  9394.  
  9395. [24 x 12 ]^C^C(setq V:x 24 V:y 12 ) (F:PRMP) $S=a3G21b7
  9396. [27 x 12 ]^C^C(setq V:x 27 V:y 12 ) (F:PRMP) $S=a3G21b7
  9397. [30 x 12 ]^C^C(setq V:x 30 V:y 12 ) (F:PRMP) $S=a3G21b7
  9398. [33 x 12 ]^C^C(setq V:x 33 V:y 12 ) (F:PRMP) $S=a3G21b7
  9399. [36 x 12 ]^C^C(setq V:x 36 V:y 12 ) (F:PRMP) $S=a3G21b7
  9400. [39 x 12 ]^C^C(setq V:x 39 V:y 12 ) (F:PRMP) $S=a3G21b7
  9401. [42 x 12 ]^C^C(setq V:x 42 V:y 12 ) (F:PRMP) $S=a3G21b7
  9402. [45 x 12 ]^C^C(setq V:x 45 V:y 12 ) (F:PRMP) $S=a3G21b7
  9403. [48 x 12 ]^C^C(setq V:x 48 V:y 12 ) (F:PRMP) $S=a3G21b7
  9404.  
  9405. [OTHER     ]^C^C(f:lodf "a:othb") (setq V:x 24 V:y 12);+
  9406. (progn(setq f:list '(F:INSR nil nil nil "arcabinet" V:b T V:x V:y V:zs V:ze +
  9407. T T nil nil nil nil))(princ));+
  9408. (a:othb "cabinet" T T "a3G21b6" T)
  9409. [PREVIOUS ]$s=a3g21b1
  9410. [<CANCEL>]^C^C(F:CLS) $S=S
  9411. **a3G21b7 3
  9412. [Upper   ]
  9413. [height &]
  9414. [elev.   ]
  9415.  
  9416.  
  9417. [Hgt x El]
  9418.  
  9419. [42"x4'6"]^C^C(setq V:zs 42 V:ze 54)(f:rept "a3g21b7");
  9420. [30"x4'6"]^C^C(setq V:zs 30 V:ze 54)(f:rept "a3g21b7");
  9421. [18"x5'6"]^C^C(setq V:zs 18 V:ze 66)(f:rept "a3g21b7");
  9422. [15"x5'9"]^C^C(setq V:zs 15 V:ze 69)(f:rept "a3g21b7");
  9423. [12"x7'0"]^C^C(setq V:zs 12 V:ze 72)(f:rept "a3g21b7");
  9424.  
  9425. [<OTHER> ]^C^C(f:lodf "a:othb") (setq V:zs 42 V:ze 54);+
  9426. (progn(setq f:list '(F:INSR nil nil nil "arcabinet" V:b T V:x V:y V:zs V:ze +
  9427. T T nil nil nil nil))(princ));+
  9428. (a:othb "cabinet" T T "a3G21b7" T)
  9429.  
  9430.  
  9431. [PREVIOUS ]$s=a3g21b6
  9432. [<CANCEL>]^C^C(F:CLS) $S=S
  9433. **A1172S1 3
  9434. [Elevator]
  9435.  
  9436. [W  x  D ]
  9437. [5-9 x6-8]^C^C(setq V:x 80 V:y 69)(f:rept "A1172S1");
  9438. [5-9 x7-4]^C^C(setq V:x 88 V:y 69)(f:rept "A1172S1");
  9439. [5-9 x8-4]^C^C(setq V:x 100 V:y 69)(f:rept "A1172S1");
  9440. [5-11x6-8]^C^C(setq V:x 80 V:y 71)(f:rept "A1172S1");
  9441. [5-11x7-4]^C^C(setq V:x 88 V:y 71)(f:rept "A1172S1");
  9442. [5-11x8-4]^C^C(setq V:x 100 V:y 71)(f:rept "A1172S1");
  9443. [6-8 x6-8]^C^C(setq V:x 80 V:y 80)(f:rept "A1172S1");
  9444. [6-8 x7-4]^C^C(setq V:x 88 V:y 80)(f:rept "A1172S1");
  9445. [6-8 x8-4]^C^C(setq V:x 100 V:y 80)(f:rept "A1172S1");
  9446. [7-2 x8-4]^C^C(setq V:x 100 V:y 86)(f:rept "A1172S1");
  9447. [7-10x8-4]^C^C(setq V:x 100 V:y 94)(f:rept "A1172S1");
  9448. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 80 V:y 69);+
  9449. (progn(setq f:list '(F:INSR nil nil nil "arelvtr" V:b T V:x V:y 1 0 T nil +
  9450. nil nil nil nil))(princ));+
  9451. (a:othr "elevator shaft" 14 "A1172S1")
  9452.  
  9453.  
  9454. [<CANCEL>]^C^C(F:CLS) $S=S
  9455. **AG24S1 3
  9456. [Osnap   ]
  9457.  
  9458.  
  9459.  
  9460.  
  9461.  
  9462.  
  9463. [--------]^PMID^P;
  9464. [        ]^PMID^P;
  9465. [MIDpoint]^PMID^P;
  9466. [        ]^PMID^P;
  9467. [--------]^PMID^P;
  9468.  
  9469.  
  9470.  
  9471.  
  9472.  
  9473.  
  9474. **A1187SA 3
  9475. [Add'l   ]
  9476. [Structs ]
  9477.  
  9478.  
  9479.  
  9480. [STEEL T ]^C^C(F:LODF "a:h12a") (progn(setq f:list '(a:h12a))(princ))(f:rept "a1187sa");
  9481.  
  9482. [STEEL   ]^C^C(F:LODF "a:h12c") (progn(setq f:list '(a:h12c))(princ))(f:rept "a1187sa");
  9483. [ANGLE   ]^C^C(F:LODF "a:h12c") (progn(setq f:list '(a:h12c))(princ))(f:rept "a1187sa");
  9484.  
  9485.  
  9486.  
  9487. [ATTRIBUT]^C^C(F:PRMP) $S=A1187SC
  9488.  
  9489.  
  9490.  
  9491.  
  9492. [<CANCEL>]^C^C(F:CLS) $S=S
  9493. **A1187SC 3
  9494. [Attrbuts]
  9495.  
  9496.  
  9497. [Prompts ]
  9498. [NUM ONLY]^Csetvar useri2 49;+
  9499. (progn (terpri)(prompt " ")(terpri)+
  9500. (prompt "You will be prompted only for attribute numbers.")(princ))
  9501. [ALL   ]^Csetvar useri2 0;+
  9502. (progn (terpri)(prompt " ")(terpri)+
  9503. (prompt "You will be prompted for all attributes.")(princ))
  9504. [OFF   ]^Csetvar useri2 1 +
  9505. (progn (terpri)(prompt " ")(terpri)+
  9506. (prompt "You will not be prompted for any attributes.")(princ))
  9507.  
  9508.  
  9509. [INSERT  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "STDFLT" "au012t1" '() "STSPEC"))(princ))(f:rept nil);
  9510. [BLOCK   ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "STDFLT" "au012t1" '() "STSPEC"))(princ))(f:rept nil);
  9511.  
  9512.  
  9513. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9514. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9515.  
  9516. [ <LAST> ]$s=
  9517. [<CANCEL>]^C^C(F:CLS) $S=S
  9518. **A1188SA 3
  9519. [Fixtures]
  9520.  
  9521.  
  9522. [SHOWER  ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13a" T V:x +
  9523. V:y V:zs V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "SHOWER")) "mpfixtspec"))(f:prmp);$s=a1188sb
  9524.  
  9525. [SHOWER  ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13b" T V:x +
  9526. V:y V:zs V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "SHOWER")) "mpfixtspec"))(f:prmp);$s=a1188sc
  9527. [ W/SEAT ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13b" T V:x +
  9528. V:y V:zs V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "SHOWER")) "mpfixtspec"))(f:prmp);$s=a1188sc
  9529.  
  9530. [TUB &SPA]^C^C(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13c" T V:x +
  9531. V:y V:zs V:ze T T "PLDFLT" "au013t1" (list '("PLUNAME" "TUB & SPA")) "mpfixtspec"))(f:prmp);$s=a1188sd
  9532.  
  9533. [WTR.HTR.]^C^C(setq f:list '(F:INSR nil T nil "mpfixture" "ah13d" T V:x V:y V:zs V:ze +
  9534. V:r nil "PLDFLT" "au013t1" (list '("PLUNAME" "WATER HEATER")) "mpfixtspec"))(f:prmp);$s=a1188se
  9535.  
  9536.  
  9537. [ <MORE> ]$S=A1188SA1
  9538.  
  9539. [ATTRBUTS]^C^C(F:PRMP) $S=A1188SF
  9540.  
  9541. [<CANCEL>]^C^C(F:CLS) $S=S
  9542. **A1188SA1 3
  9543. [  More  ]
  9544. [fixtures]
  9545.  
  9546.  
  9547. [BIDET   ]^C^C(setq V:x 25 V:y 15 V:zs 16 V:ze 0);+
  9548. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "mpfixture" "ah13e" T V:x V:y V:zs V:ze T T +
  9549. "PLDFLT" "au013t1" (list '("PLUNAME" "BIDET")) "mpfixtspec"))(princ))(f:rept "a1188sa1");
  9550.  
  9551. [FAUCET  ]^C^C(setq V:x 9 V:y 6 V:zs 1 V:ze 24);+
  9552. (progn(setq f:list '(F:INSR nil nil nil "mpfixture" "ah13f" T V:x V:y V:zs V:ze T nil +
  9553. "PLDFLT" "au013t1" (list '("PLUNAME" "FAUCET")) "mpfixtspec"))(princ))(f:rept "a1188sa1");
  9554.  
  9555. [HOSE BIB]^C^C(setq V:x 9 V:y 6 V:zs 1 V:ze 24);+
  9556. (progn(setq f:list '(F:INSR nil nil nil "mpfixture" "ah13g" T V:x V:y V:zs V:ze T nil +
  9557. "PLDFLT" "au013t1" (list '("PLUNAME" "HOSE BIB")) "mpfixtspec"))(princ))(f:rept "a1188sa1");
  9558.  
  9559. [GAS VALV]^C^C(setq V:x 9 V:y 6 V:zs 1 V:ze 24);+
  9560. (progn(setq f:list '(F:INSR nil nil nil "mpfixture" "ah13h" T V:x V:y V:zs V:ze T nil +
  9561. "PLDFLT" "au013t1" (list '("PLUNAME" "GAS VALV")) "mpfixtspec"))(princ))(f:rept "a1188sa1");
  9562.  
  9563.  
  9564. [ATTRBUTS]^C^C(F:PRMP) $S=A1188SF
  9565.  
  9566. [ <LAST>]$S=a1188sa
  9567.  
  9568. [<CANCEL>]^C^C(F:CLS) $S=S
  9569. **A1188SB 3
  9570. [Shower  ]
  9571.  
  9572. [ Ht. 72"]
  9573.  
  9574.  
  9575.  
  9576.  
  9577. [32x34  ]^C^C(setq V:x 32 V:y 34 V:r 0 V:zs 72 V:ze 0)(f:rept "A1188SB");
  9578.  
  9579. [36x36  ]^C^C(setq V:x 36 V:y 36 V:r 0 V:zs 72 V:ze 0)(f:rept "A1188SB");
  9580.  
  9581. [<OTHER>]^C^C(f:lodf "a:othr") (setq V:x 32 V:y 34 V:r 0 V:zs 72 V:ze 0);+
  9582. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13a" T V:x V:y V:zs V:ze T T +
  9583. "PLDFLT" "au013t1" (list '("PLUNAME" "SHOWER")) "mpfixtspec"))(princ));+
  9584. (a:othr "shower" 18 "A1188SB")
  9585.  
  9586.  
  9587.  
  9588.  
  9589. [PREVIOUS ]$s=A1188SA
  9590. [<CANCEL>]^C^C(F:CLS) $S=S
  9591. **A1188SC 3
  9592. [Shower  ]
  9593. [w/seat  ]
  9594.  
  9595. [ Ht.  72"]
  9596.  
  9597.  
  9598.  
  9599. [Seat rt.]
  9600. [ 48x36  ]^C^C(setq V:x 48 V:y 36 V:r 0 V:zs 72 V:ze 0)(f:rept "A1188SC");
  9601. [ 60x36  ]^C^C(setq V:x 60 V:y 36 V:r 0 V:zs 72 V:ze 0)(f:rept "A1188SC");
  9602. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 48 V:y 36 V:r 0 V:zs 72 V:ze 0);+
  9603. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13b" T V:x V:y V:zs V:ze T T +
  9604. "PLDFLT" "au013t1" (list '("PLUNAME" "SHOWER")) "mpfixtspec"))(princ));+
  9605. (a:othr "shower" 18 "A1188SC")
  9606.  
  9607. [Seat lft]
  9608. [ 48x36  ]^C^C(setq V:x -48 V:y -36 V:r 0 V:zs 72 V:ze 0)(f:rept "A1188SC");
  9609. [ 60x36  ]^C^C(setq V:x -60 V:y -36 V:r 0 V:zs 72 V:ze 0)(f:rept "A1188SC");
  9610. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x -48 V:y -36 V:r 0 V:zs 72 V:ze 0);+
  9611. (progn(setq f:list '(F:INSR nil T '(("osmode") (32)) "mpfixture" "ah13b" T V:x V:y V:zs V:ze T T +
  9612. "PLDFLT" "au013t1" (list '("PLUNAME" "SHOWER")) "mpfixtspec"))(princ));+
  9613. (a:othr "shower" 19 "A1188SC") 
  9614. [PREVIOUS ]$s=A1188SA
  9615. [<CANCEL>]^C^C(F:CLS) $S=S
  9616. **A1188SD 3
  9617. [Tub+Spa ]
  9618.  
  9619. [ Ht. 22"]
  9620.  
  9621. [40X40   ]^C^C(setq V:x 40 V:y 40 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9622. [48X48   ]^C^C(setq V:x 48 V:y 48 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9623.  
  9624. [60x60   ]^C^C(setq V:x 60 V:y 60 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9625. [60x36   ]^C^C(setq V:x 60 V:y 36 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9626.  
  9627. [66x36   ]^C^C(setq V:x 66 V:y 36 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9628. [54x42   ]^C^C(setq V:x 54 V:y 42 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9629.  
  9630. [72x44   ]^C^C(setq V:x 72 V:y 44 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9631. [72x60   ]^C^C(setq V:x 72 V:y 60 V:r 0 V:zs 22 V:ze 0)(f:rept "A1188SD");
  9632. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 40 V:y 40 V:r 0 V:zs 22 V:ze 0);+
  9633. (progn(setq f:list '(F:INSR nil nil '(("osmode") (32)) "mpfixture" "ah13c" T V:x V:y V:zs V:ze T T +
  9634. "PLDFLT" "au013t1" (list '("PLUNAME" "TUB & SPA")) "mpfixtspec"))(princ));+
  9635. (a:othr nil 20 "A1188SD")
  9636. [PREVIOUS ]$s=A1188SA
  9637. [<CANCEL>]^C^C(F:CLS) $S=S
  9638. **A1188SE 3
  9639. [Hot     ]
  9640. [water   ]
  9641. [heater  ]
  9642.  
  9643. [ Ht.  38"]
  9644. [ 12" DIA]^C^C(setq V:x 12 V:y 12 V:r 0 V:zs 38 V:ze 0)(f:rept "A1188SE");
  9645. [ 18" DIA]^C^C(setq V:x 18 V:y 18 V:r 0 V:zs 38 V:ze 0)(f:rept "A1188SE");
  9646.  
  9647. [ Ht.  60"]
  9648. [ 20" DIA]^C^C(setq V:x 20 V:y 20 V:r 0 V:zs 60 V:ze 0)(f:rept "A1188SE");
  9649. [ 24" DIA]^C^C(setq V:x 24 V:y 24 V:r 0 V:zs 60 V:ze 0)(f:rept "A1188SE");
  9650.  
  9651. [ 28" DIA]^C^C(setq V:x 28 V:y 28 V:r 0 V:zs 60 V:ze 0)(f:rept "A1188SE");
  9652. [ 30" DIA]^C^C(setq V:x 30 V:y 30 V:r 0 V:zs 60 V:ze 0)(f:rept "A1188SE");
  9653.  
  9654. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 12 V:y 12 V:r 0 V:zs 38 V:ze 0);+
  9655. (progn(setq f:list '(F:INSR nil nil nil "mpfixture" "ah13d" T V:x V:y V:zs V:ze V:r +
  9656. nil "PLDFLT" "au013t1" (list '("PLUNAME" "WATER HEATER")) "mpfixtspec"))(princ));+
  9657. (a:othr "hot water heater" 21 "A1188SE")
  9658. [PREVIOUS ]$s=A1188SA
  9659. [<CANCEL>]^C^C(F:CLS) $S=S
  9660. **A1188SF 3
  9661. [Attrbuts]
  9662.  
  9663.  
  9664. [Prompts ]
  9665. [NUM ONLY]^Csetvar useri2 49;+
  9666. (progn (terpri)(prompt " ")(terpri)+
  9667. (prompt "You will be prompted only for attribute numbers.")(princ))
  9668. [ALL   ]^Csetvar useri2 0;+
  9669. (progn (terpri)(prompt " ")(terpri)+
  9670. (prompt "You will be prompted for all attributes.")(princ))
  9671. [OFF   ]^Csetvar useri2 1 +
  9672. (progn (terpri)(prompt " ")(terpri)+
  9673. (prompt "You will not be prompted for any attributes.")(princ))
  9674.  
  9675.  
  9676. [INSERT  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "PLDFLT" "au013t1" '() "MPFIXTSPEC"))(princ))(f:rept nil);
  9677. [BLOCK   ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "PLDFLT" "au013t1" '() "MPFIXTSPEC"))(princ))(f:rept nil);
  9678.  
  9679.  
  9680. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9681. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9682.  
  9683. [ <LAST> ]$s=
  9684. [<CANCEL>]^C^C(F:CLS) $S=S
  9685. **A1189SA 3
  9686. [Toilet  ]
  9687. [accessry]
  9688.  
  9689. [Fem napk]
  9690. [DISPENSR]^C^C(setq V:x 12 V:y 6.5 V:zs 18 V:ze 48);+
  9691. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9692. "TODFLT" "au014t1" (list '("TOANAME" "FEM NAPK DISPNSR")) "araccspec"))(princ))(f:rept "a1189sa");
  9693. [DISPOSAL]^C^C(setq V:x 11.5 V:y 5 V:zs 8 V:ze 0);+
  9694. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9695. "TODFLT" "au014t1" (list '("TOANAME" "FEM NAPK DISPNSR")) "araccspec"))(princ))(f:rept "a1189sa");
  9696.  
  9697. [SEAT CVR]^C^C(setq V:x 16 V:y 2 V:zs 18 V:ze 34);+
  9698. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9699. "TODFLT" "au014t1" (list '("TOANAME" "SEAT COVER")) "araccspec"))(princ))(f:rept "a1189sa");
  9700. [TOWL BAR]^C^C$S=OSNAPB +
  9701. (setq f:list '(F:INSR nil nil '(("osmode") (512)) "araccessory" "ah14d" T V:x V:y V:zs V:ze T +
  9702. nil "TODFLT" "au014t1" (list '("TOANAME" "TOWEL BAR")) "araccspec"))(f:prmp);$s=a1189sb
  9703. [SOAP DSP]^C^C$S=OSNAPB +
  9704. (setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9705. "TODFLT" "au014t1" (list '("TOANAME" "SOAP DISPENSER")) "araccspec"))(f:prmp);$s=a1189sc
  9706. [PAPR TWL]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" V:b T V:x V:y V:zs V:ze T nil +
  9707. "TODFLT" "au014t1" (list '("TOANAME" "PAPER TOWEL")) "araccspec"))(f:prmp);$s=a1189sd
  9708. [TLT PAPR]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9709. "TODFLT" "au014t1" (list '("TOANAME" "TOILET PAPER DISP.")) "araccspec"))(f:prmp);$s=a1189se
  9710. [MED CAB ]^C^C(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" V:b T V:x V:y V:zs V:ze T nil +
  9711. "TODFLT" "au014t1" (list '("TOANAME" "MEDICINE CAB.")) "araccspec"))(f:prmp);$s=a1189sf
  9712. [<OTHER> ]^C^C$S=AU001S1 (f:lodf "a:othr") (setq V:x 16 V:y 2 V:zs 18 V:ze 34);+
  9713. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9714. "TODFLT" "au014t1" '() "araccspec"))(princ))(a:othr "accessory" 1 "a1189sa");
  9715.  
  9716. [ATTRBUTS]^C(F:PRMP) $S=A1189SG
  9717.  
  9718. [<CANCEL>]^C^C(F:CLS) $S=S
  9719. **A1189SB 3
  9720. [ Towel  ]
  9721. [ Bar    ]
  9722.  
  9723. [ Ht. 42" ]
  9724.  
  9725.  
  9726.  
  9727. [18"     ]^C^C(setq V:x 18 V:y 8 V:r 0 V:zs 2 V:ze 42)(f:rept "A1189SB");
  9728.  
  9729. [24"     ]^C^C(setq V:x 24 V:y 8 V:r 0 V:zs 2 V:ze 42)(f:rept "A1189SB");
  9730.  
  9731. [30"     ]^C^C(setq V:x 30 V:y 8 V:r 0 V:zs 2 V:ze 42)(f:rept "A1189SB");
  9732.  
  9733. [36"     ]^C^C(setq V:x 36 V:y 8 V:r 0 V:zs 2 V:ze 42)(f:rept "A1189SB");
  9734.  
  9735. [<OTHER> ]^C^C$S=AU001S1 (f:lodf "a:othr") +
  9736. (setq V:x 18 V:y 8 V:r 0 V:zs 2 V:ze 42);+
  9737. (progn(setq f:list '(F:INSR nil nil '(("osmode") (512)) "araccessory" "ah14d" T V:x V:y V:zs V:ze T +
  9738. nil "TODFLT" "au014t1" (list '("TOANAME" "TOWEL BAR")) "araccspec"))(princ));+
  9739. (a:othr "bar" 2 "A1189SB");
  9740. [PREVIOUS ]$s=A1189SA
  9741. [<CANCEL>]^C^C(F:CLS) $S=S
  9742. **A1189SC 3
  9743. [Soap    ]
  9744. [dispensr]
  9745.  
  9746. [ Ht. 40" ]
  9747.  
  9748.  
  9749. [W xD xH ]
  9750.  
  9751. [ 5x3x5  ]^C^C(setq V:x 5 V:y 3 V:r 0 V:zs 5 V:ze 40)(f:rept "A1189SC");
  9752.  
  9753. [ 8x3x5  ]^C^C(setq V:x 8 V:y 3 V:r 0 V:zs 5 V:ze 40)(f:rept "A1189SC");
  9754.  
  9755.  
  9756. [<OTHER> ]^C^C$S=AU001S1 (f:lodf "a:othr") (setq V:x 5 V:y 3 V:r 0 V:zs 5 V:ze 40);+
  9757. (progn(setq f:list '(F:INSR nil nil '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T +
  9758. nil "TODFLT" "au014t1" (list '("TOANAME" "SOAP DISPENSER")) "araccspec"))(princ));+
  9759. (a:othr "soap dispenser" 1 "A1189SC")
  9760.  
  9761.  
  9762. [PREVIOUS ]$s=A1189SA
  9763. [<CANCEL>]^C^C(F:CLS) $S=S
  9764. **A1189SD 3
  9765. [Paper   ]
  9766. [towel   ]
  9767. [dispensr]
  9768. [ Ht. 48"]
  9769.  
  9770. [Recessed]
  9771. [ 13x4x16]^C^C(setq V:b "azsct" V:x 13 V:y 4 V:r 0 V:zs 16 V:ze 48)(f:rept "A1189SD");
  9772. [ 14x4x16]^C^C(setq V:b "azsct" V:x 14 V:y 4 V:r 0 V:zs 16 V:ze 48)(f:rept "A1189SD");
  9773. [ 14x7x16]^C^C(setq V:b "azsct" V:x 14 V:y 7 V:r 0 V:zs 16 V:ze 48)(f:rept "A1189SD");
  9774. [ 14x8x16]^C^C(setq V:b "azsct" V:x 14 V:y 8 V:r 0 V:zs 16 V:ze 48)(f:rept "A1189SD");
  9775. [ 18x4x16]^C^C(setq V:b "azsct" V:x 18 V:y 4 V:r 0 V:zs 16 V:ze 48)(f:rept "A1189SD");
  9776. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 13 V:y 4 V:r 0 V:zs 16 V:ze 48);+
  9777. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsct" T V:x V:y V:zs V:ze T nil +
  9778. "TODFLT" "au014t1" (list '("TOANAME" "PAPER TOWEL")) "araccspec"))(princ));+
  9779. (a:othr "dispenser" 1 "A1189SD")
  9780. [Surface ]
  9781. [ 11x4x16]^C^C(setq V:b "azsmd" V:x 11 V:y 4 V:r 0)(f:rept "A1189SD");
  9782. [ 12x6x16]^C^C(setq V:b "azsmd" V:x 12 V:y 6 V:r 0)(f:rept "A1189SD");
  9783. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 11 V:y 4 V:r 0);+
  9784. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9785. "TODFLT" "au014t1" (list '("TOANAME" "PAPER TOWEL")) "araccspec"))(princ));+
  9786. (a:othr "dispenser" 1 "A1189SD")
  9787. [PREVIOUS ]$s=A1189SA
  9788. [<CANCEL>]^C^C(F:CLS) $S=S
  9789. **A1189SE 3
  9790. [Toilet  ]
  9791. [paper   ]
  9792. [dispensr]
  9793. [ Ht. 26"]
  9794.  
  9795. [Recessed]
  9796. [ 6x3x5  ]^C^C(setq V:x 6 V:y 3 V:r 0 V:zs 5 V:ze 26)(f:rept "A1189SE");
  9797. [<OTHER> ]^C^C$S=AU001S1 (f:lodf "a:othr") (setq V:x 6 V:y 3 V:r 0 V:zs 5 V:ze 26);+
  9798. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9799. "TODFLT" "au014t1" (list '("TOANAME" "TOILET PAPER DISP.")) "araccspec"))(princ));+
  9800. (a:othr "dispenser" 1 "A1189SE")
  9801.  
  9802. [Surface ]
  9803. [ 5x3x4  ]^C^C(setq V:x 5 V:y 3 V:r 0 V:zs 4 V:ze 26)(f:rept "A1189SE");
  9804. [ 6x6x5  ]^C^C(setq V:x 6 V:y 6 V:r 0 V:zs 5 V:ze 26)(f:rept "A1189SE");
  9805. [ 16x5x6 ]^C^C(setq V:x 16 V:y 5 V:r 0 V:zs 6 V:ze 26)(f:rept "A1189SE");
  9806. [<OTHER> ]^C^C$S=AU001S1 (f:lodf "a:othr") (setq V:x 5 V:y 3 V:r 0 V:zs 4 V:ze 26);+
  9807. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9808. "TODFLT" "au014t1" (list '("TOANAME" "TOILET PAPER DISP.")) "araccspec"))(princ));+
  9809. (a:othr "dispenser" 1 "A1189SE")
  9810.  
  9811.  
  9812. [PREVIOUS ]$s=A1189SA
  9813. [<CANCEL>]^C^C(F:CLS) $S=S
  9814. **A1189SF 3
  9815. [Medicine]
  9816. [cabinet ]
  9817.  
  9818. [ Ht. 40"]
  9819.  
  9820.  
  9821. [Recessed]
  9822. [15x3-1/2]^C^C(setq V:b "azsct" V:x 15 V:y 3.5 V:r 0 V:zs 20 V:ze 40)(f:rept "A1189SF");
  9823.  
  9824. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 15 V:y 3.5 V:r 0 V:zs 20 V:ze 40);+
  9825. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsct" T V:x V:y V:zs V:ze T nil +
  9826. "TODFLT" "au014t1" (list '("TOANAME" "MEDICINE CAB.")) "araccspec"))(princ));+
  9827. (a:othr "cabinet" 1 "A1189SF")
  9828.  
  9829. [Surface ]
  9830. [mounted ]
  9831. [14x4    ]^C^C(setq V:b "azsmd" V:x 14 V:y 4 V:r 0 V:zs 20 V:ze 40)(f:rept "A1189SF");
  9832.  
  9833. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:b "azsmd" V:x 14 V:y 4 V:r 0 V:zs 20 V:ze 40);+
  9834. (progn(setq f:list '(F:INSR nil T '(("osmode") (512)) "araccessory" "azsmd" T V:x V:y V:zs V:ze T nil +
  9835. "TODFLT" "au014t1" (list '("TOANAME" "MEDICINE CAB.")) "araccspec"))(princ));+
  9836. (a:othr "cabinet" 1 "A1189SF")
  9837. [PREVIOUS ]$s=A1189SA
  9838. [<CANCEL>]^C^C(F:CLS) $S=S
  9839. **A1189SG 3
  9840. [Attrbuts]
  9841.  
  9842.  
  9843. [Prompts ]
  9844. [NUM ONLY]^Csetvar useri2 49;+
  9845. (progn (terpri)(prompt " ")(terpri)+
  9846. (prompt "You will be prompted only for attribute numbers.")(princ))
  9847. [ALL   ]^Csetvar useri2 0;+
  9848. (progn (terpri)(prompt " ")(terpri)+
  9849. (prompt "You will be prompted for all attributes.")(princ))
  9850. [OFF   ]^Csetvar useri2 1 +
  9851. (progn (terpri)(prompt " ")(terpri)+
  9852. (prompt "You will not be prompted for any attributes.")(princ))
  9853.  
  9854.  
  9855. [INSERT  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "TODFLT" "au014t1" '() "ARACCSPEC"))(princ))(f:rept nil);
  9856. [BLOCK   ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "TODFLT" "au014t1" '() "ARACCSPEC"))(princ))(f:rept nil);
  9857.  
  9858.  
  9859. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9860. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9861.  
  9862. [ <LAST> ]$s=
  9863. [<CANCEL>]^C^C(F:CLS) $S=S
  9864. **A1190S1 3
  9865. [Add'l   ]
  9866. [elctrcal]
  9867. [symbols ]
  9868.  
  9869. [Receptcl]
  9870. [SINGLREC]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  9871. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ah15a" T V:x V:y 1 0 T nil nil nil +
  9872. nil nil))(princ))(f:rept "a1190s1");
  9873. [220 V   ]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  9874. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ah15b" T V:x V:y 1 0 T nil nil nil +
  9875. nil nil))(princ))(f:rept "a1190s1");
  9876. [WP REC  ]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x);+
  9877. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepower" "ah15c" T V:x V:y 1 0 T nil nil nil +
  9878. nil nil))(princ))(f:rept "a1190s1");
  9879.  
  9880. [J BOX   ]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);+
  9881. (progn(setq f:list '(F:INSR T nil nil "eepower" "ah15d" T V:x V:y 1 0 V:r nil nil nil +
  9882. nil nil))(princ))(f:rept "a1190s1");
  9883.  
  9884. [THERMOST]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);+
  9885. (progn(setq f:list '(F:INSR T nil nil "eecontrol" "ah15e" T V:x V:y 1 0 V:r nil nil +
  9886. nil nil nil))(princ))(f:rept "a1190s1");
  9887. [BELL    ]^C^C(setq V:x (* (getvar "userr3") V:ELEC));(setq V:y V:x V:r 0);+
  9888. (progn(setq f:list '(F:INSR T nil nil "eecomm" "ah15f" T V:x V:y 1 0 V:r nil +
  9889. nil nil nil nil))(princ))(f:rept "a1190s1");
  9890.  
  9891. [PANEL   ]^C^C(f:lodf "a:othr") +
  9892. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eepanel" "ah15g" T V:x V:y 1 0 T nil nil nil +
  9893. nil nil))(princ));+
  9894. (a:othr "panel" 14 "A1190S1")
  9895. [TV JACK ]^C^C(setq V:x (* (getvar "userr3") 0.3125));(setq V:y V:x);+
  9896. (progn(setq f:list '(F:INSR T nil '(("osmode") (512)) "eecomm" "ah15h" T V:x V:y 1 0 T nil nil nil +
  9897. nil nil))(princ))(f:rept "a1190s1");
  9898.  
  9899. [<CANCEL>]^C^C(F:CLS) $S=S
  9900. **A1191SAJ 3
  9901. [Ceiling ]
  9902. [grid    ]
  9903.  
  9904. [ARC     ]AR $S=A1191SBJ
  9905.  
  9906. [LINE    ]LI
  9907.  
  9908. [UNDO    ]UN
  9909.  
  9910.  
  9911.  
  9912. [ CLOSE  ]CL (F:UNDO)(progn(setq f:list '(a:h161))(a:rept 'a:h16a)(princ))
  9913.  
  9914. [ <DONE> ]^C^C(F:UNDO)(progn(setq f:list '(a:h161))(a:rept 'a:h16a)(princ))
  9915.  
  9916.  
  9917.  
  9918. [<CANCEL>]^C^C(F:CLS) $S=S
  9919. **A1191SBJ 3
  9920. [Ceiling ]
  9921. [grid #2 ]
  9922.  
  9923. [ARC     ]ARC
  9924. [ANGLE   ]AN
  9925. [CENTER  ]CE
  9926.  
  9927. [DIRECT'N]DI
  9928. [RADIUS  ]RA
  9929. [2ND PT  ]SE $S=OSNAPB \$s=
  9930.  
  9931. [LINE    ]LI $s=A1191SAJ
  9932. [UNDO    ]U
  9933.  
  9934. [ CLOSE  ]CL (F:UNDO)(progn(setq f:list '(a:h161))(a:rept 'a:h16a)(princ))
  9935. [ <DONE> ]^C^C(F:UNDO)(progn(setq f:list '(a:h161))(a:rept 'a:h16a)(princ))
  9936.  
  9937. [<CANCEL>]^C^C(F:CLS) $S=S
  9938. **A1192S1 3
  9939. [Attrbuts]
  9940.  
  9941.  
  9942. [Prompts ]
  9943. [NUM ONLY]^Csetvar useri2 49;+
  9944. (progn (terpri)(prompt " ")(terpri)+
  9945. (prompt "You will be prompted only for attribute numbers.")(princ))
  9946. [ALL   ]^Csetvar useri2 0;+
  9947. (progn (terpri)(prompt " ")(terpri)+
  9948. (prompt "You will be prompted for all attributes.")(princ))
  9949. [OFF   ]^Csetvar useri2 1 +
  9950. (progn (terpri)(prompt " ")(terpri)+
  9951. (prompt "You will not be prompted for any attributes.")(princ))
  9952.  
  9953.  
  9954. [INSERT  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "LIDFLT" "au015t1" '() "EELIGHTSPEC"))(princ))(f:rept nil);
  9955. [BLOCK   ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "LIDFLT" "au015t1" '() "EELIGHTSPEC"))(princ))(f:rept nil);
  9956.  
  9957.  
  9958. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9959. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  9960.  
  9961.  
  9962. [<CANCEL>]^C^C(F:CLS) $S=S
  9963. **A1194SA 3
  9964. [Plant   ]
  9965. [type    ]
  9966.  
  9967. [  A     ]^C^C(setq V:b "ah19a" V:zs 2)(f:prmp);$s=a1194sb
  9968.  
  9969. [  B     ]^C^C(setq V:b "ah19b" V:zs 1)(f:prmp);$s=a1194sb
  9970.  
  9971. [  C     ]^C^C(setq V:b "ah19c" V:zs 1)(f:prmp);$s=a1194sb
  9972.  
  9973. [  D     ]^C^C(setq V:b "ah19d" V:zs 2)(f:prmp);$s=a1194sb
  9974.  
  9975. [  E     ]^C^C(setq V:b "ah19e" V:zs 1.5)(f:prmp);$s=a1194sb
  9976.  
  9977. [  F     ]^C^C(setq V:b "ah19f" V:zs 2)(f:prmp);$s=a1194sb
  9978.  
  9979.  
  9980.  
  9981. [<CANCEL>]^C^C(F:CLS) $S=S
  9982. **A1194SB 3
  9983. [Plant   ]
  9984. [diameter]
  9985.  
  9986. [ 6" DIA.]^C^C(setq V:x 6 V:y 6 V:r 0 V:ze 0 V:zs (* V:zs 6))(f:rept "A1194Sb");
  9987.  
  9988. [12" DIA.]^C^C(setq V:x 12 V:y 12 V:r 0 V:ze 0 V:zs (* V:zs 12))(f:rept "A1194Sb");
  9989.  
  9990. [18" DIA.]^C^C(setq V:x 18 V:y 18 V:r 0 V:ze 0 V:zs (* V:zs 18))(f:rept "A1194Sb");
  9991.  
  9992. [24" DIA.]^C^C(setq V:x 24 V:y 24 V:r 0 V:ze 0 V:zs (* V:zs 24))(f:rept "A1194Sb");
  9993.  
  9994. [36" DIA.]^C^C(setq V:x 36 V:y 36 V:r 0 V:ze 0 V:zs (* V:zs 36))(f:rept "A1194Sb");
  9995.  
  9996. [48" DIA.]^C^C(setq V:x 48 V:y 48 V:r 0 V:ze 0 V:zs (* V:zs 48))(f:rept "A1194Sb");
  9997.  
  9998. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 6 V:y 6 V:r 0 V:ze 0 V:zs (* V:zs 6));+
  9999. (progn(setq f:list '(F:INSR nil nil nil "fmplant" V:b T V:x V:y V:zs V:ze +
  10000. V:r nil nil nil nil nil))(princ));+
  10001. (a:othr "plant" 22 "A1194SB")
  10002. [PREVIOUS ]$s=A1194SA
  10003. [<CANCEL>]^C^C(F:CLS) $S=S
  10004. **A1195SA 3
  10005. [Furnitur]
  10006.  
  10007. [Bed @28"]
  10008. [T 39x75]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10009. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:y 39 V:x 75 V:b "ah20a" +
  10010. d "BED" V:zs 28 V:ze 0)(f:rept "A1195SA");
  10011. [D 54x75]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10012. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:y 54 V:x 75 V:b "ah20a" +
  10013. d "BED" V:zs 28 V:ze 0)(f:rept "A1195SA");
  10014. [Q 60x80]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10015. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:y 60 V:x 80 V:b "ah20b" +
  10016. d "BED" V:zs 28 V:ze 0)(f:rept "A1195SA");
  10017. [K 76x80]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10018. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:y 76 V:x 80 V:b "ah20b" +
  10019. d "BED" V:zs 28 V:ze 0)(f:rept "A1195SA");
  10020. [<OTHER>]^C^C(f:lodf "a:othr") (setq V:y 39 V:x 75 V:b "ah20a" V:zs 28 V:ze 0);+
  10021. (progn(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil "FUDFLT" +
  10022. "au017t1" (list '("FURNAME" "BED")) "fmspec"))(princ));+
  10023. (a:othr "bed" 13 "A1195SA")
  10024.  
  10025. [Nt Tabl]
  10026. [18x18x34]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10027. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 18 V:y 18 V:b "ah20e" +
  10028. d "NT TABLE" V:zs 34 V:ze 0)(f:rept "A1195SA");
  10029. [<OTHER>]^C^C(f:lodf "a:othr") (setq V:x 18 V:y 18 V:zs 34 V:ze 0);+
  10030. (progn(setq f:list '(F:INSR nil T nil "fmmisc" "ah20e" T V:x V:y V:zs V:ze T nil "FUDFLT" +
  10031. "au017t1" (list '("FURNAME" "NT TABLE")) "fmspec"))(princ));+
  10032. (a:othr "table" 13 "A1195SA")
  10033.  
  10034.                    
  10035.  
  10036. [ATTRBUTS]$S=A1195SB
  10037.  
  10038. [<CANCEL>]^C^C(F:CLS) $S=S
  10039. **AH20A 3
  10040. [Rectang.]
  10041. [lounge  ]
  10042. [chairs  ]
  10043.            
  10044. [seat 16"]
  10045.  
  10046.  
  10047. [26x24]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10048. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 26 V:y 24 V:b "ah20c" +
  10049. V:d "LOUNGE REC" V:zs 16 V:ze 0)(f:rept "AH20A");
  10050.  
  10051. [28x26]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10052. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 28 V:y 26 V:b "ah20c" +
  10053. V:d "LOUNGE REC" V:zs 16 V:ze 0)(f:rept "AH20A");
  10054.  
  10055. [32x30]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10056. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 32 V:y 30 V:b "ah20c" +
  10057. V:d "LOUNGE REC" V:zs 16 V:ze 0)(f:rept "AH20A");
  10058.  
  10059. [OTHER]^C^C(f:lodf "a:othr") (setq V:x 26 V:y 24 V:b "ah20c" V:zs 16 V:ze 0);+
  10060. (progn(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze +
  10061. T nil "FUDFLT" "au017t1" (list '("FURNAME" "LOUNGE REC")) "fmspec"))(princ));+
  10062. (a:othr "chair" 6 "AH20A")
  10063.  
  10064.  
  10065.  
  10066. [<CANCEL>]^C^C(F:CLS) $S=S
  10067. **AH20B 3
  10068. [Circular]
  10069. [lounge  ]
  10070. [chairs  ]
  10071.            
  10072. [seat 16"]
  10073.  
  10074.  
  10075. [26x24]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10076. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 26 V:y 24 V:b "ah20d" +
  10077. V:d "LOUNGE CURV" V:zs 16 V:ze 0)(f:rept "AH20b");
  10078.  
  10079. [28x26]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10080. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 28 V:y 26 V:b "ah20d" +
  10081. V:d "LOUNGE CURV" V:zs 16 V:ze 0)(f:rept "AH20b");
  10082.  
  10083. [32x30]^C^C(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze T nil +
  10084. "FUDFLT" "au017t1" (list (list "FURNAME" d)) "fmspec"))(setq V:x 32 V:y 30 V:b "ah20d" +
  10085. V:d "LOUNGE CURV" V:zs 16 V:ze 0)(f:rept "AH20b");
  10086.  
  10087. [OTHER]^C^C(f:lodf "a:othr") (setq V:x 26 V:y 24 V:b "ah20d" V:zs 16 V:ze 0);+
  10088. (progn(setq f:list '(F:INSR nil T nil "fmmisc" V:b T V:x V:y V:zs V:ze +
  10089. T nil "FUDFLT" "au017t1" (list '("FURNAME" "LOUNGE REC")) "fmspec"))(princ));+
  10090. (a:othr "chair" 6 "AH20B")
  10091.  
  10092.  
  10093.  
  10094. [<CANCEL>]^C^C(F:CLS) $S=S
  10095. **A1195SB 3
  10096. [Attrbuts]
  10097.  
  10098. [Prompts ]
  10099. [NUM ONLY]^Csetvar useri2 49;+
  10100. (progn (terpri)(prompt " ")(terpri)+
  10101. (prompt "You will be prompted only for attribute numbers.")(princ))
  10102. [ALL   ]^Csetvar useri2 0;+
  10103. (progn (terpri)(prompt " ")(terpri)+
  10104. (prompt "You will be prompted for all attributes.")(princ))
  10105. [OFF   ]^Csetvar useri2 1 +
  10106. (progn (terpri)(prompt " ")(terpri)+
  10107. (prompt "You will not be prompted for any attributes.")(princ))
  10108.  
  10109. [Furnitur]
  10110. [INSERT  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "FUDFLT" "au017t1" '() "FMSPEC"))(princ))(f:rept nil);
  10111. [BLOCK   ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "FUDFLT" "au017t1" '() "FMSPEC"))(princ))(f:rept nil);
  10112.  
  10113.  
  10114. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  10115. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  10116.  
  10117.  
  10118. [ <LAST> ]$s=
  10119. [<CANCEL>]^C^C(F:CLS) $S=S
  10120. **A1196SA 3
  10121. [Applianc]
  10122.  
  10123. [HI LOW  ]^C^C(progn(f:prmp)(setq V:b "ah21a" V:d "HI LOW RANGE")(princ));$s=a1196sb
  10124. [RANGE   ]^C^C(progn(f:prmp)(setq V:b "ah21a" V:d "HI LOW RANGE")(princ));$s=a1196sb
  10125.  
  10126. [GRILL   ]^C^C(progn(f:prmp)(setq V:b "ah21b" V:d "GRILL")(princ));$s=a1196sc
  10127.  
  10128. [KITCHEN ]^C^C(progn(f:prmp)(setq V:d "KITCHEN UNIT")(princ));$s=a1196sd
  10129. [UNIT    ]^C^C(progn(f:prmp)(setq V:d "KITCHEN UNIT")(princ));$s=a1196sd
  10130.  
  10131. [MICROWVE]^C^C(progn(f:prmp)(setq V:b "ah21f" V:d "MICROWAVE")(princ));$s=a1196se
  10132.  
  10133. [TRASH   ]^C^C(progn(f:prmp)(setq V:b "ah21g" V:d "TRASH COMPACTOR")(princ));$s=a1196sf
  10134. [COMPACTR]^C^C(progn(f:prmp)(setq V:b "ah21g" V:d "TRASH COMPACTOR")(princ));$s=a1196sf 
  10135.  
  10136. [ATTRIBUT]^C^C(F:PRMP) $S=A1196SG
  10137.  
  10138. [<CANCEL>]^C^C(F:CLS) $S=S
  10139. **A1196SB 3
  10140. [Hi-low]
  10141. [range ]
  10142.  
  10143. [ Ht. 68"]
  10144.  
  10145.  
  10146.  
  10147. [ 30x28  ]^C^C(setq V:x 28 V:y 30 V:zs 68 V:ze 0)(f:rept "a1196sb");
  10148.  
  10149.  
  10150. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 28 V:y 30 V:zs 68 V:ze 0);+
  10151. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  10152. "au016t1" (list (list "APLNAME" d)) "arapplspec"))(princ));+
  10153. (a:othr "range" 7 "A1196SB")
  10154.  
  10155.  
  10156.  
  10157.  
  10158.  
  10159. [PREVIOUS ]$s=A1196SA
  10160. [<CANCEL>]^C^C(F:CLS) $S=S
  10161. **A1196SC 3
  10162. [Grill   ]
  10163.  
  10164. [ Ht. 35"]
  10165.  
  10166.  
  10167. [ 30x20  ]^C^C(setq V:x 20 V:y 30 V:zs 35 V:ze 0)(f:rept "a1196sc");
  10168.  
  10169. [ 35x20  ]^C^C(setq V:x 20 V:y 35 V:zs 35 V:ze 0)(f:rept "a1196sc");
  10170.  
  10171. [ 47x22  ]^C^C(setq V:x 22 V:y 47 V:zs 35 V:ze 0)(f:rept "a1196sc");
  10172.  
  10173.  
  10174. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 20 V:y 30 V:zs 35 V:ze 0);+
  10175. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil "APDFLT" +
  10176. "au016t1" (list (list "APLNAME" v:d)) "arapplspec"))(princ));+
  10177. (a:othr "grill" 7 "A1196SC")
  10178.  
  10179.  
  10180.  
  10181. [PREVIOUS ]$s=A1196SA
  10182. [<CANCEL>]^C^C(F:CLS) $S=S
  10183. **A1196SD 3
  10184. [Kitchen]
  10185. [unit   ]
  10186. [base   ]
  10187. [W xD xH]
  10188. [39x25x36]^C^C(setq V:y 39 V:x 25 V:r 0 V:b "ah21c1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10189. [42x25x36]^C^C(setq V:y 42 V:x 25 V:r 0 V:b "ah21c1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10190. [48x25x36]^C^C(setq V:y 48 V:x 25 V:r 0 V:b "ah21c1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10191.  
  10192. [51x25x36]^C^C(setq V:y 51 V:x 25 V:r 0 V:b "ah21d1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10193. [54x25x36]^C^C(setq V:y 54 V:x 25 V:r 0 V:b "ah21d1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10194. [60x25x36]^C^C(setq V:y 60 V:x 25 V:r 0 V:b "ah21d1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10195. [69x25x36]^C^C(setq V:y 69 V:x 25 V:r 0 V:b "ah21d1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10196.  
  10197. [84x25x36]^C^C(setq V:y 84 V:x 25 V:r 0 V:b "ah21e1" V:zs 36 V:ze 0)(f:rept "A1196Sd");
  10198.  
  10199. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:y 39 V:x 25 V:r 0 V:b "ah21c1" V:zs 36 V:ze 0);+
  10200. (progn(setq f:list '(F:INSR T T nil "arappliance" V:b T V:x V:y V:zs V:ze +
  10201. T nil "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(princ));+
  10202. (a:othr "unit" 7 "A1196Sd")
  10203. [PREVIOUS ]$s=A1196SA
  10204. [<CANCEL>]^C^C(F:CLS) $S=S
  10205. **AH21D2 3
  10206. [Kitchen]
  10207. [unit]
  10208. [cabinets]
  10209.  
  10210. [Top @84"]
  10211.  
  10212. [Insert ]
  10213. [overhead]
  10214. [cabints?]
  10215.  
  10216.  
  10217. [ YES]^C^C(setq V:b (strcat (substr V:b 1 5) "2") V:x 12 V:ze V:zs);+
  10218. (setq f:list '(F:INSR T T nil "arappliance" V:b "@" V:x V:y (- 84 V:zs) V:ze T nil +
  10219. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(f:prmp);$s=a1196sa
  10220.  
  10221.  
  10222. [ NO ]^C(F:PRMP) $S=A1196SA
  10223.  
  10224.  
  10225. [<CANCEL>]^C^C(F:CLS) $S=S
  10226. **A1196SE 3
  10227. [Micro-  ]
  10228. [wave    ]
  10229. [oven    ]
  10230.  
  10231. [ Ht. 36"]
  10232.  
  10233. [W xD xH ]
  10234.  
  10235. [18x12x10]^C^C(setq V:x 12 V:y 18 V:r 0 V:zs 10 V:ze 36)(f:rept "a1196se");
  10236.  
  10237. [25x24x17]^C^C(setq V:x 25 V:y 24 V:r 0 V:zs 17 V:ze 36)(f:rept "a1196se");
  10238.  
  10239.  
  10240. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 12 V:y 18 V:r 0 V:zs 10 V:ze 36);+
  10241. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  10242. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(princ));+
  10243. (a:othr "oven" 7 "A1196SE")
  10244.  
  10245.  
  10246. [PREVIOUS ]$s=A1196SA
  10247. [<CANCEL>]^C^C(F:CLS) $S=S
  10248. **A1196SF 3
  10249. [Garbage ]
  10250. [Compactr]
  10251.  
  10252. [ Ht. 34"]
  10253.  
  10254.  
  10255. [ 15x18  ]^C^C(setq V:x 18 V:y 15 V:r 0)(f:rept "a1196sf");
  10256.  
  10257.  
  10258. [<OTHER> ]^C^C(f:lodf "a:othr") (setq V:x 18 V:y 15 V:r 0);+
  10259. (progn(setq f:list '(F:INSR nil T nil "arappliance" V:b T V:x V:y V:zs V:ze T nil +
  10260. "APDFLT" "au016t1" (list (list "APLNAME" d)) "arapplspec"))(princ));+
  10261. (a:othr "compactor" 7 "A1196SF")
  10262.  
  10263.  
  10264.  
  10265.  
  10266.  
  10267.  
  10268. [PREVIOUS ]$s=A1196SA
  10269. [<CANCEL>]^C^C(F:CLS) $S=S
  10270. **A1196SG 3
  10271. [Attrbuts]
  10272.  
  10273.  
  10274. [Prompts ]
  10275. [NUM ONLY]^C^Csetvar useri2 49;+
  10276. (progn (terpri)(prompt " ")(terpri)+
  10277. (prompt "You will be prompted only for attribute numbers.")(princ))
  10278. [ALL   ]^C^Csetvar useri2 0;+
  10279. (progn (terpri)(prompt " ")(terpri)+
  10280. (prompt "You will be prompted for all attributes.")(princ))
  10281. [OFF   ]^C^Csetvar useri2 1 +
  10282. (progn (terpri)(prompt " ")(terpri)+
  10283. (prompt "You will not be prompted for any attributes.")(princ))
  10284.  
  10285.  
  10286. [INSERT  ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "APDFLT" "au016t1" '() "ARAPPLSPEC"))(princ))(f:rept nil);
  10287. [BLOCK   ]^C^C(F:LODF "a:zatb") (progn(setq f:list '(a:zatb "APDFLT" "au016t1" '() "ARAPPLSPEC"))(princ))(f:rept nil);
  10288.  
  10289.  
  10290. [EDIT    ]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  10291. [ATTRBUTS]^C^C(F:LODF "a:b05e") (progn(setq f:list '(a:b05e))(princ))(f:rept nil);
  10292.  
  10293. [ <LAST> ]$s=
  10294. [<CANCEL>]^C^C(F:CLS) $S=S
  10295. **A1197SA 3
  10296. [Add'l   ]
  10297. [vertical]
  10298.  
  10299.  
  10300. [Spiral  ]    
  10301. [stair   ]
  10302. [30   DEG]^C^C$S=A1197SB (progn(setq v:x 42 v:b "ah22a")(princ))(f:lodf "a:star") (a:star "stair" 1 "A1197SA")
  10303. [25.7 DEG]^C^C$S=A1197SB (progn(setq v:x 42 v:b "ah22b")(princ))(f:lodf "a:star") (a:star "stair" 1 "A1197SA")
  10304. [22.5 DEG]^C^C$S=A1197SB (progn(setq v:x 42 v:b "ah22c")(princ))(f:lodf "a:star") (a:star "stair" 1 "A1197SA")
  10305.  
  10306. [LADDER  ]^C^C$S=A1197SC (f:lodf "a:star") (progn(setq v:x 24 V:b "ah22f" V:y 4)(princ)) +
  10307. (a:star "ladder" 2 "A1197SA")
  10308.  
  10309. [UP ARROW]^C^C(progn (setq V:b "ah22d1" V:x 6 V:y 6) (princ))(f:lodf "a:star") +
  10310. (a:star nil 3 "A1197SA")
  10311.  
  10312. [DN ARROW]^C^C(progn (setq V:b "ah22d1" V:x 6 V:y 6) (princ))(f:lodf "a:star") +
  10313. (a:star nil 4 "A1197SA")
  10314.  
  10315.  
  10316. [<CANCEL>]^C^C(F:CLS) $S=S
  10317. **A1197SB 3
  10318. [Diam. of]
  10319. [spiral  ]
  10320. [stair   ]^P
  10321.  
  10322. [3'-6"   ]^P42^P;
  10323. [4'-0"   ]^P48^P;
  10324. [4'-6"   ]^P54^P;
  10325. [5'-0"   ]^P60^P;
  10326. [5'-6"   ]^P66^P;
  10327. [6'-0"   ]^P72^P;
  10328. [6'-6"   ]^P78^P;
  10329. [7'-0"   ]^P84^P;
  10330. [7'-6"   ]^P90^P;
  10331. [8'-0"   ]^P96^P;
  10332.  
  10333. [<OTHER> ]$S=AU001S1
  10334.  
  10335. [<CANCEL>]^C^C(F:CLS) $S=S
  10336. **A1197SC 3
  10337. [Width of]
  10338. [ladder  ]
  10339.  
  10340.  
  10341. [2'-0"   ]^P24^P;
  10342.  
  10343. [2'-6"   ]^P30^P;
  10344.  
  10345. [3'-0"   ]^P36^P;
  10346.  
  10347. [3'-6"   ]^P42^P;
  10348.  
  10349. [4'-0"   ]^P48^P;
  10350.  
  10351. [<OTHER> ]$S=AU001S1
  10352.  
  10353.  
  10354. [<CANCEL>]^C^C(F:CLS) $S=S
  10355. **A1199SA 3
  10356. [Add'l   ]
  10357. [sites   ]
  10358.  
  10359. [Field/Ct]
  10360.  
  10361. [BASEBALL]^C^C(setq V:x 1 V:y 1 V:b "ah24a")(f:rept "A1199SA");
  10362. [BASKETBL]^C^C(setq V:x 1 V:y 1 V:b "ah24b")(f:rept "A1199SA");
  10363. [FOOTBALL]^C^C(setq V:x 1 V:y 1 V:b "ah24c")(f:rept "A1199SA");
  10364. [SOCCER  ]^C^C(setq V:x 1 V:y 1 V:b "ah24d")(f:rept "A1199SA");
  10365.  
  10366. [POOL25YD]^C^C(setq V:x 1 V:y 1 V:b "ah24e")(f:rept "A1199SA");
  10367. [POOL 50M]^C^C(setq V:x 1 V:y 1 V:b "ah24f")(f:rept "A1199SA");
  10368. [TENNIS  ]^C^C(setq V:x 1 V:y 1 V:b "ah24g")(f:rept "A1199SA");
  10369. [TRK 400M]^C^C(setq V:x 1 V:y 1 V:b "ah24h")(f:rept "A1199SA");
  10370.  
  10371. [ <MORE> ]^C^C$S=A1199SB
  10372.  
  10373. [<CANCEL>]^C^C(F:CLS) $S=S
  10374. **A1199SB 3
  10375. [Add'l   ]
  10376. [sites #2]
  10377.  
  10378. [Highway ]
  10379. [symbols ]
  10380. [U.S.HIGH]^C^C(setq V:x (* (getvar "userr3") 0.3125))(setq V:y V:x V:b "ah24i" V:ba "ah24p");+
  10381. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10382. [INTER ST]^C^C(setq V:x (* (getvar "userr3") 0.3125))(setq V:y V:x V:b "ah24j" V:ba "ah24q");+
  10383. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10384. [STATE   ]^C^C(setq V:x (* (getvar "userr3") 0.3125))(setq V:y V:x V:b "ah24k" V:ba "ah24r");+
  10385. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10386.  
  10387. [Boats   ]
  10388. [CANOE   ]^C^C(setq V:x 180 V:y 36 V:b "ah24l");+
  10389. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10390. [ROW     ]^C^C(setq V:x 192 V:y 48 V:b "ah24m");+
  10391. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10392. [SAIL    ]^C^C(setq V:x 324 V:y 108 V:b "ah24n");+
  10393. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10394. [SPEED   ]^C^C(setq V:x 282 V:y 96 V:b "ah24o");+
  10395. (progn(setq f:list '(F:INSR nil nil nil "lsmisc" V:b T V:x V:y 1 0 T nil nil nil nil nil))(princ))(f:rept "A1199SB");
  10396.  
  10397. [ <LAST>]^C^C$S=A1199SA
  10398.  
  10399. [<CANCEL>]^C^C(F:CLS) $S=S
  10400. **A1200S1 3
  10401. [Add'l  ]
  10402. [Title  ]
  10403. [items  ]
  10404.  
  10405.  
  10406. [Scale  ]
  10407. [    5' ]^C(setq V:b "ah25a" V:x 1 V:y 1 V:r 0);+
  10408. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10409. [   25' ]^C(setq V:b "ah25b" V:x 1 V:y 1 V:r 0);+
  10410. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10411. [   50' ]^C(setq V:b "ah25c" V:x 1 V:y 1 V:r 0);+
  10412. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10413. [  100' ]^C(setq V:b "ah25d" V:x 1 V:y 1 V:r 0);+
  10414. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10415. [  250' ]^C(setq V:b "ah25e" V:x 1 V:y 1 V:r 0);+
  10416. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10417. [  500' ]^C(setq V:b "ah25f" V:x 1 V:y 1 V:r 0);+
  10418. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10419. [ 1000' ]^C(setq V:b "ah25g" V:x 1 V:y 1 V:r 0);+
  10420. (progn(setq f:list '(F:INSR nil nil nil "arscale" V:b T V:x V:y 1 0 V:r nil nil nil nil nil))(princ))(f:rept "A1200S1");
  10421.  
  10422.  
  10423.  
  10424.  
  10425. [<CANCEL>]^C^C(F:CLS) $S=S
  10426. **A1224S1 3
  10427. [Calcultr]
  10428.  
  10429.  
  10430.  
  10431. [ADD     ]^C^C(F:LODF "a:calc") (progn(setq f:list '(a:calc "Add"))(princ))(f:rept "A1224S1");
  10432.  
  10433. [SUBTRACT]^C^C(F:LODF "a:calc") (progn(setq f:list '(a:calc "Subtract"))(princ))(f:rept "A1224S1");
  10434.  
  10435. [MULTIPLY]^C^C(F:LODF "a:calc") (progn(setq f:list '(a:calc "Multiply"))(princ))(f:rept "A1224S1");
  10436.  
  10437. [DIVIDE  ]^C^C(F:LODF "a:calc") (progn(setq f:list '(a:calc "Divide"))(princ))(f:rept "A1224S1");
  10438.  
  10439.  
  10440.  
  10441. [SQRT    ]^C^C(F:LODF "a:calc") (progn(setq f:list '(a:calc "SQRT"))(princ))(f:rept "A1224S1");
  10442.  
  10443.  
  10444. [<CANCEL>]^C^C(F:CLS) $S=S
  10445. **aj01a 3
  10446. [Select   ]
  10447. [options  ]
  10448.  
  10449.  
  10450. [ADD     ]a;
  10451.  
  10452. [CROSSING]c;
  10453.  
  10454. [LAST    ]l;
  10455.  
  10456. [REMOVE  ]r;
  10457.  
  10458. [WINDOW  ]w;
  10459.  
  10460.  
  10461. [ <DONE> ];$S=S
  10462.  
  10463. [<CANCEL>]^C^C(F:CLS) $S=S
  10464. **aj01ab 3
  10465. [Select   ]
  10466. [options  ]
  10467.  
  10468.  
  10469. [ADD     ]a;
  10470.  
  10471. [CROSSING]c;
  10472.  
  10473. [LAST    ]l;
  10474.  
  10475. [REMOVE  ]r;
  10476.  
  10477. [WINDOW  ]w;
  10478.  
  10479.  
  10480. [ <DONE> ];
  10481.  
  10482. [<CANCEL>]^C^C(F:CLS) $S=S
  10483. **aj01a1 3
  10484. [  3-D   ]
  10485. [options ]
  10486.  
  10487. [Insert  ]
  10488. [symbols:]
  10489. [ 2-D    ]^C^C(setvar "USERI5" 0) (progn (terpri)(prompt " ")(terpri)+
  10490. (prompt "You are now inserting 2-D symbols.")(princ))
  10491. [ 3-D    ]^C^C(setvar "USERI5" 51) (progn(terpri)(prompt " ")(terpri)+
  10492. (prompt "You are now inserting 3-D symbols.")(princ))
  10493.  
  10494. [Convert ]
  10495. [symbols:]
  10496. [ TO 2-D ]^C^C(progn +
  10497. (setq a:j01b nil a:j01c nil a:j01d nil a:j01e nil a:j01f nil a:j01g nil v:j01h nil v:j01i nil v:j01n nil) +
  10498. (terpri)(prompt "Select the symbol types that you want to convert.")+
  10499. (terpri)(prompt "Pick DONE when finished. ")(princ)) $S=aj01a2;
  10500. [ TO 3-D ]^C^C(progn +
  10501. (setq a:j01b nil a:j01c nil a:j01d nil a:j01e nil a:j01f nil a:j01g nil v:j01h nil v:j01i nil v:j01n nil) +
  10502. (terpri)(prompt "Select the symbol types that you want to convert.")+
  10503. (terpri)(prompt "Pick DONE when finished. ")(princ)) $S=aj01a3;
  10504. [ERRORS](f:prmp) $S=AJ01B
  10505.  
  10506. [SHADE  ]^C^C(F:UNDO);(F:ERR) (progn +
  10507. (command "layer" "on" "arheader" "") (princ)) +
  10508. (F:LODF "a:shade") (a:shade) $S=X $s=ASHADE
  10509. [DRAWING]^C^C(F:UNDO);(F:ERR) (progn +
  10510. (command "layer" "on" "arheader" "") (princ)) +
  10511. (F:LODF "a:shade") (a:shade) $S=X $s=ASHADE
  10512.  
  10513. [<CANCEL>]^C^C(F:CLS) $S=S
  10514. **AJ01B 3
  10515. [Error]
  10516. [messages]
  10517.  
  10518.  
  10519. [READ]^C^C(f:lodf "a:eror")(progn(setq f:list '(a:eror "Read"))(princ))(f:rept "aj01b");
  10520.  
  10521. [DISPLAY]^C^C(f:lodf "a:eror")(a:eror "Display")
  10522.  
  10523. [HIDE]^C^C(f:lodf "a:eror")(a:eror "Hide")
  10524.  
  10525. [ERASE]^C^C(f:lodf "a:eror")(a:eror "Erase")
  10526.  
  10527. [RESTORE]^C^C(f:lodf "a:eror")(a:eror "Restore")
  10528. [DRAWING]^C^C(f:lodf "a:eror")(a:eror "Restore")
  10529.  
  10530.  
  10531. [ <LAST> ]$s=
  10532. [<CANCEL>]^C^C(F:CLS) $S=S
  10533. **aj01a2 3
  10534. [Convert ]
  10535. [symbols ]
  10536. [to 2-D  ]
  10537.  
  10538. [DOORS   ](F:LODF "a:j01i") (F:LODF "a:zclk") (setq v:j01h T) +
  10539. (f:lodf "a:dobw") (f:lodf "a:dobc") (f:lodf "a:dobs") +
  10540. (f:lodf "a:dodh") (f:lodf "a:dor1") (f:lodf "a:util") +
  10541. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10542. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10543. [WINDOWS ](F:LODF "a:j01i") (F:LODF "a:zclk") (setq v:j01i T) +
  10544. (f:lodf "a:dobw") (f:lodf "a:dobc") (f:lodf "a:dobs") +
  10545. (f:lodf "a:dodh") (f:lodf "a:dor1") (f:lodf "a:util") +
  10546. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10547. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10548. [PLUMBING]^C^C(F:LODF "a:j01a") (F:LODF "a:j01b") +
  10549. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10550. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10551. [LGHT/CLG]^C^C(F:LODF "a:j01a") (F:LODF "a:j01c") +
  10552. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10553. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10554. [FURNITUR]^C^C(F:LODF "a:j01a") (F:LODF "a:j01d") +
  10555. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10556. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10557. [APPLIANC]^C^C(F:LODF "a:j01a") (F:LODF "a:j01e") +
  10558. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10559. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10560. [USER    ]^C^C(F:LODF "a:j01a") (setq a:j01f T)+
  10561. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10562. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10563. [SITE    ]^C^C(F:LODF "a:j01a") (F:LODF "a:j01g") +
  10564. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10565. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10566. [STOREFNT]^C^C(F:LODF "a:j01n") (F:LODF "a:a01b") (F:LODF "a:c01b") (setq v:j01n T) +
  10567. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10568. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10569.  
  10570. [ALL     ]^C^C(F:LODF "a:zclk") (F:LODF "a:j01a") +
  10571. (F:LODF "a:j01b") (F:LODF "a:j01c") +
  10572. (F:LODF "a:j01d") (F:LODF "a:j01e") +
  10573. (F:LODF "a:j01g") +
  10574. (F:LODF "a:a01b") (F:LODF "a:c01b") +
  10575. (F:LODF "a:j01i") (F:LODF "a:j01n") +
  10576. (F:LODF "a:dobw") (F:LODF "a:dobc") (F:LODF "a:dodh") +
  10577. (F:LODF "a:dobs") (F:LODF "a:dor1") (F:LODF "a:util") +
  10578. (progn (setq v:j01h T v:j01i T a:j01f T v:j01n T v:to3d nil) +
  10579. (terpri) (prompt " ") (terpri) +
  10580. (prompt "Processing -- please wait. ") (princ)) +
  10581. (f:lodf "a:j01a2") (a:j01a2)
  10582. [ <DONE> ]^C^C(f:undo)(f:err)(f:lodf "a:j01a2") (setq v:to3d nil) (a:j01a2)
  10583.  
  10584. [<CANCEL>]^C^C(F:CLS) $S=S
  10585. **aj01a3 3
  10586. [Convert ]
  10587. [symbols ]
  10588. [to 3-D  ]
  10589.  
  10590. [DOORS   ](F:LODF "a:j01i") (F:LODF "a:zclk") (setq v:j01h T) +
  10591. (f:lodf "a:dobw") (f:lodf "a:dobc") (f:lodf "a:dobs") +
  10592. (f:lodf "a:dodh") (f:lodf "a:dor1") (f:lodf "a:util") +
  10593. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10594. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10595. [WINDOWS ](F:LODF "a:j01i") (F:LODF "a:zclk") (setq v:j01i T) +
  10596. (f:lodf "a:dobw") (f:lodf "a:dobc") (f:lodf "a:dobs") +
  10597. (f:lodf "a:dodh") (f:lodf "a:dor1") (f:lodf "a:util") +
  10598. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10599. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10600. [PLUMBING]^C^C(F:LODF "a:j01a") (F:LODF "a:j01b") +
  10601. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10602. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10603. [LGHT/CLG]^C^C(F:LODF "a:j01a") (F:LODF "a:j01c") +
  10604. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10605. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10606. [FURNITUR]^C^C(F:LODF "a:j01a") (F:LODF "a:j01d") +
  10607. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10608. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10609. [APPLIANC]^C^C(F:LODF "a:j01a") (F:LODF "a:j01e") +
  10610. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10611. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10612. [USER    ]^C^C(F:LODF "a:j01a") (setq a:j01f T) +
  10613. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10614. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10615. [SITE    ]^C^C(F:LODF "a:j01a") (F:LODF "a:j01g") +
  10616. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10617. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10618. [STOREFNT]^C^C(F:LODF "a:j01o") (F:LODF "a:a01b");+
  10619. (F:LODF "a:c01b") (setq v:j01n T) +
  10620. (progn (terpri)(prompt "Select the symbol types that you want to convert.")+
  10621. (terpri)(prompt "Pick DONE when finished. ")(princ))
  10622.  
  10623. [ALL     ]^C^C(F:LODF "a:zclk") (F:LODF "a:j01a") +
  10624. (F:LODF "a:j01b") (F:LODF "a:j01c") +
  10625. (F:LODF "a:j01d") (F:LODF "a:j01e") +
  10626. (F:LODF "a:j01g") +
  10627. (F:LODF "a:j01i") (F:LODF "a:j01o") +
  10628. (F:LODF "a:a01b") (F:LODF "a:c01b") +
  10629. (F:LODF "a:dobw") (F:LODF "a:dobc") (F:LODF "a:dodh") +
  10630. (F:LODF "a:dobs") (F:LODF "a:dor1") (F:LODF "a:util") +
  10631. (progn (setq v:j01h T v:j01i T a:j01f T v:j01n T v:to3d T) +
  10632. (terpri) (prompt " ") (terpri) +
  10633. (prompt "Processing -- please wait. ") (princ)) +
  10634. (f:lodf "a:j01a2") (a:j01a2)
  10635. [ <DONE> ]^C^C(f:undo)(f:err)(f:lodf "a:j01a2") (setq v:to3d T) (a:j01a2)
  10636.  
  10637. [<CANCEL>]^C^C(F:CLS) $S=S
  10638. **ASHADE 3
  10639. [LIGHTS:]^C^C(F:UNDO) (F:ERR) $S=X $S=LIGHTS LIGHT
  10640. [CAMERA:]^C^C(F:UNDO) (F:ERR) $S=X $S=CAMERA CAMERA
  10641. [ACTION]$S=X $S=ACTION 
  10642.  
  10643. [CAMVIEW:]^C^CCAMVIEW
  10644. **LIGHTS 3
  10645. [LIGHT:]^C^C(F:UNDO) (F:ERR) $S=X $S=LIGHTS LIGHT
  10646.  
  10647. [Point]p
  10648. [Directed]d
  10649.  
  10650. [Filters]
  10651. .x
  10652. .y
  10653. .z
  10654. .xy
  10655. .xz
  10656. .yz
  10657.  
  10658. [CAMERA:]^C^C(F:UNDO) (F:ERR) $S=X $S=CAMERA CAMERA
  10659. [ACTION]$S=X $S=ACTION
  10660. **CAMERA 3
  10661. [CAMERA:]^C^C(F:UNDO) (F:ERR) $S=X $S=CAMERA CAMERA
  10662.  
  10663. [Filters]
  10664. .x
  10665. .y
  10666. .z
  10667. .xy
  10668. .xz
  10669. .yz
  10670.  
  10671. [CAMVIEW:]^C^CCAMVIEW
  10672.  
  10673.  
  10674. [LIGHTS:]^C^C(F:UNDO) (F:ERR) $S=X $S=LIGHTS LIGHT
  10675. [ACTION]$S=X $S=ACTION
  10676. **ACTION 3
  10677. [ACTION]
  10678.  
  10679. [SCENE:]^C^C(F:UNDO) (F:ERR) $S=X $S=ACTION SCENE
  10680. [FILMROL:]^C^CFILMROLL
  10681.  
  10682.  
  10683.  
  10684.  
  10685.  
  10686. [LIGHTS:]^C^C(F:UNDO) (F:ERR) $S=X $S=LIGHTS LIGHT
  10687. [CAMERA:]^C^C(F:UNDO) (F:ERR) $S=X $S=CAMERA CAMERA
  10688.  
  10689.  
  10690.  
  10691.  
  10692.  
  10693. **AJ05A 3
  10694. [Osnap   ]
  10695.  
  10696. [CENter  ]^PCEN^P;
  10697. [ENDpoint]^PENDp^P;
  10698.  
  10699. [INTersec]^PINT^P;
  10700. [MIDpoint]^PMID^P;
  10701.  
  10702. [NEArest ]^PNEA^P;
  10703. [NONe    ]^PNON^P;
  10704.  
  10705. [PERpend ]^PPER^P;
  10706. [QUAdrant]^PQUA^P;
  10707. [TANgent ]^PTAN^P;
  10708.  
  10709. [CLOSE]c
  10710. [END CAPS]e 
  10711. [OFFSET  ]Offset
  10712. **aj031 3
  10713. [ 3-D    ]
  10714. [util's  ]
  10715.  
  10716.  
  10717. [ HIDE   ]^Phide^P;
  10718. [ LINES  ]^Phide^P;
  10719.  
  10720.  
  10721. [SET UCS ]^C^C(f:undo)(f:err)(f:lodf "a:orig")(a:orig) \$s=aj031
  10722. [Z ORIGIN]^C^C(f:undo)(f:err)(f:lodf "a:orig")(a:orig) \$s=aj031
  10723.  
  10724.  
  10725. [  SET   ]$s=au001s1 'setvar thickness
  10726. [THICKNES]$s=au001s1 'setvar thickness
  10727.  
  10728.  
  10729.  
  10730. [<CANCEL>]^C^C(F:CLS) $S=S
  10731. **ak041 3
  10732. [Cleanup]
  10733. [option ]
  10734.  
  10735.  
  10736.  
  10737.  
  10738.  
  10739. [--------]^PS^P;
  10740. [SELECT  ]^PS^P;
  10741. [WALLS   ]^PS^P;
  10742. [--------]^PS^P;
  10743.  
  10744.  
  10745.  
  10746.  
  10747.  
  10748.  
  10749. [<CANCEL>]^C^C(F:CLS) $S=S
  10750. **an01a 3
  10751. [Roof    ]
  10752. [section ]
  10753. [ (plan  ]
  10754. [  view) ]
  10755.  
  10756.  
  10757.  
  10758. [3-SIDED ]^C^C(F:LODF "a:zclk") (F:LODF "a:n01a") (F:LODF "a:zpng") +
  10759. (progn(setq f:list '(a:n01a "arroofplan" "arheader" "arwall1line" T))(princ))(f:rept nil);
  10760. [SECTION ]^C^C(F:LODF "a:n01a") (F:LODF "a:zpng") +
  10761. (progn(setq f:list '(a:n01a "arroofplan" "arheader" "arwall1line" T))(princ))(f:rept nil);
  10762.  
  10763.  
  10764. [4-SIDED ]^C^C(F:LODF "a:zclk") (F:LODF "a:n01a") (F:LODF "a:zpng") +
  10765. (progn(setq f:list '(a:n01a "arroofplan" "arheader" "arwall1line" nil))(princ))(f:rept nil);
  10766. [SECTION ]^C^C(F:LODF "a:n01a") (F:LODF "a:zpng") +
  10767. (progn(setq f:list '(a:n01a "arroofplan" "arheader" "arwall1line" nil))(princ))(f:rept nil);
  10768.  
  10769.  
  10770.  
  10771.  
  10772. [<CANCEL>]^C^C(F:CLS) $s=s
  10773. **roofangb 3
  10774. [+ 30    ]+30
  10775. [+ 45    ]+45
  10776. [+ 60    ]+60
  10777. [+ 90    ]+90
  10778. [+ 120   ]+120
  10779. [+ 135   ]+135
  10780. [BISECTOR]^PB^P;
  10781. [- 135   ]-135
  10782. [- 120   ]-120
  10783. [- 90    ]-90
  10784. [- 60    ]-60
  10785. [- 45    ]-45
  10786. [- 30    ]-30
  10787. [ HALF   ]^PH^P;
  10788. [ PITCH  ]^PH^P;
  10789. [ UNDO   ]u;
  10790. [ OTHER  ]$s=au001s1
  10791. [<CANCEL>]^C^C(F:CLS) $s=s
  10792. **roofanga 3
  10793.  
  10794. [+ 15    ]+15
  10795. [+ 30    ]+30
  10796. [+ 45    ]+45
  10797. [+ 60    ]+60
  10798. [+ 75    ]+75
  10799. [BISECTOR]^PB^P;
  10800. [- 75    ]-75
  10801. [- 60    ]-60
  10802. [- 45    ]-45
  10803. [- 30    ]-30
  10804. [- 15    ]-15
  10805.  
  10806. [ DOUBLE ]^PD^P;
  10807. [ PITCH  ]^PD^P;
  10808. [ UNDO   ]u;
  10809. [ OTHER  ]$s=au001s1
  10810. [<CANCEL>]^C^C(F:CLS) $s=s
  10811. **roofrake 3
  10812. [Rake    ]
  10813. [distance]
  10814.  
  10815. [    0"  ]^P0^P;
  10816.  
  10817. [    9"  ]^P9^P;
  10818.  
  10819. [   12"  ]^P12^P;
  10820.  
  10821. [   16"  ]^P16^P;
  10822.  
  10823. [   18"  ]^P18^P;
  10824.  
  10825. [   24"  ]^P24^P;
  10826.  
  10827. [<OTHER> ]$s=au001s1
  10828.  
  10829. [<CANCEL>]^C^C(F:CLS) $S=S
  10830. **roofangs 3
  10831. [ Miter ]
  10832. [ angle  ]
  10833.  
  10834. [    0   ]^P0^P;
  10835. [   45   ]^P45^P;
  10836.  
  10837. [   90   ]^P90^P;
  10838. [  135   ]^P135^P;
  10839.  
  10840. [  180   ]^P180^P;
  10841. [  225   ]^P225^P;
  10842.  
  10843. [  270   ]^P270^P;
  10844. [  315   ]^P315^P;
  10845. [ GABLE  ]^Pgable^P;
  10846.  
  10847. [<OTHER> ]$s=au001s1
  10848. [<CANCEL>]^C^C(F:CLS) $S=S
  10849. **roofmode 3
  10850. [ Roof   ]
  10851. [ modes  ]
  10852.  
  10853. [BISECTOR]^C^C(f:prmp);$s=rf3side
  10854.  
  10855.  
  10856. [FASCIA  ]^C^C(f:prmp);$s=rooffac
  10857.  
  10858.  
  10859. [GABLE  ]^C^C(f:prmp);$s=roofgabl
  10860.  
  10861.  
  10862. [SOFFIT  ]^C^C(f:prmp);$s=roofsoff
  10863. [SLOPE   ]^C^C(f:prmp);$s=roofsoff
  10864.  
  10865. [ <LAST> ]$s=
  10866. [<MODES1>]$s=ab01s1
  10867. [<CANCEL>]^C^C(F:CLS) $s=s
  10868. **roofsoff 3
  10869. [ Soffit ]
  10870. [ slope  ]
  10871. [ modes  ] 
  10872.  
  10873. [FLAT    ]^C^C(progn(setq v:soff nil)(terpri) +
  10874. (prompt "The soffit will be drawn flat.")(terpri)(princ))
  10875.  
  10876.  
  10877.  
  10878. [AS ROOF ]^C^C(progn(setq v:soff T)(terpri) +
  10879. (prompt "The soffit slope will be the same slope as the roof.")(terpri)(princ))
  10880.  
  10881.  
  10882.  
  10883. [SLOPED  ]^C^C(cond +
  10884. ((= (type v:soff) 'REAL) (progn(terpri)(princ "The current soffit slope is ")(princ v:soff)(princ))))+
  10885. (progn(terpri)(setq v:soff (getreal "Enter the soffit slope: "))(terpri)(princ));$s=roofslop
  10886.      
  10887.  
  10888.  
  10889. [ <LAST> ]$s=roofmode
  10890. [<CANCEL>]^C^C(F:CLS) $s=s
  10891. **rooffac 3
  10892. [ Fascia ]
  10893. [ modes  ]
  10894.  
  10895. [PLUMB   ]^C^C(progn(setq v:plum nil)(terpri) +
  10896. (prompt "The fascia will be plumb cut.")(terpri)(princ))
  10897. [CUT     ]^C^C(progn(setq v:plum nil)(terpri) +
  10898. (prompt "The fascia will be plumb cut.")(terpri)(princ))
  10899.  
  10900. [SQUARE  ]^C^C(progn(setq v:plum T)(terpri) +
  10901. (prompt "The fascia will be square cut.")(terpri)(princ))
  10902. [CUT     ]^C^C(progn(setq v:plum T)(terpri) +
  10903. (prompt "The fascia will be square cut.")(terpri)(princ))
  10904.  
  10905. [FIXED   ]^C^C(f:lodf "a:othb")(progn(setq v:zs 96.0)(a:othb "fascia" "height" nil nil nil) +
  10906. (setq v:faca v:zs)(terpri) +
  10907. (princ "The fascia height will be fixed at ") +
  10908. (princ (rtos v:faca))(princ));$s=rooffac
  10909. [HEIGHT  ]^C^C(f:lodf "a:othb")(progn(setq v:zs 96.0)(a:othb "fascia" "height" nil nil nil) +
  10910. (setq v:faca v:zs)(terpri) +
  10911. (princ "The fascia height will be fixed at ") +
  10912. (princ (rtos v:faca))(princ));$s=rooffac
  10913.  
  10914. [PROMPT  ]^C^C(progn(setq v:faca nil)(terpri) +
  10915. (princ "You will be prompted for wall height and roof thickness.")(terpri) +
  10916. (princ "Select FIXED HEIGHT to turn prompting off.")(princ))
  10917. [HEIGHT  ]^C^C(progn(setq v:faca nil)(terpri) +
  10918. (princ "You will be prompted for wall height and roof thickness.")(terpri) +
  10919. (princ "Select FIXED HEIGHT to turn prompting off.")(princ))
  10920.  
  10921.  
  10922. [ <LAST> ]$s=roofmode
  10923. [<CANCEL>]^C^C(F:CLS) $s=s
  10924. **roofhg 3
  10925. [Roof    ]
  10926. [overhang]
  10927.  
  10928. [    0"  ]^P0^P;
  10929.  
  10930. [    9"  ]^P9^P;
  10931.  
  10932. [   12"  ]^P12^P;
  10933.  
  10934. [   16"  ]^P16^P;
  10935.  
  10936. [   18"  ]^P18^P;
  10937.  
  10938. [   24"  ]^P24^P;
  10939.  
  10940.  
  10941. [<OTHER> ]$s=au001s1
  10942. [<CANCEL>]^C^C(F:CLS) $S=S
  10943. **roofgabl 3
  10944. [ Gable  ]
  10945. [ modes  ]
  10946.  
  10947. [-------]^C^C(progn(setq v:gctl T)(terpri) +
  10948. (princ "Center line will be visible.")(princ));$s=roofmode
  10949. [CENTER ]^C^C(progn(setq v:gctl T)(terpri) +
  10950. (princ "Center line will be visible.")(princ));$s=roofmode
  10951. [LINE   ]^C^C(progn(setq v:gctl T)(terpri) +
  10952. (princ "Center line will be visible.")(princ));$s=roofmode
  10953. [VISIBLE]^C^C(progn(setq v:gctl T)(terpri) +
  10954. (princ "Center line will be visible.")(princ));$s=roofmode
  10955. [-------]^C^C(progn(setq v:gctl T)(terpri) +
  10956. (princ "Center line will be visible.")(princ));$s=roofmode
  10957.  
  10958. [-------]^C^C(progn(setq v:gctl nil)(terpri) +
  10959. (princ "Center line will be invisible.")(princ));$s=roofmode
  10960. [CENTER ]^C^C(progn(setq v:gctl nil)(terpri) +
  10961. (princ "Center line will be invisible.")(princ));$s=roofmode
  10962. [LINE   ]^C^C(progn(setq v:gctl nil)(terpri) +
  10963. (princ "Center line will be invisible.")(princ));$s=roofmode
  10964. [INVISIB]^C^C(progn(setq v:gctl nil)(terpri) +
  10965. (princ "Center line will be invisible.")(princ));$s=roofmode
  10966. [-------]^C^C(progn(setq v:gctl nil)(terpri) +
  10967. (princ "Center line will be invisible.")(princ));$s=roofmode
  10968.  
  10969.  
  10970. [ <LAST> ]$s=roofmode
  10971. [<CANCEL>]^C^C(F:CLS) $s=s
  10972. **roofslop 3
  10973. [Slope   ]
  10974. [ratio   ]
  10975.  
  10976. [1/8" /FT]^P0.01041666^P $s=roofsoff
  10977. [1/4" /FT]^P0.02083333^P $s=roofsoff
  10978. [1/2" /FT]^P0.41666666^P $s=roofsoff
  10979.  
  10980. [  2/12  ]^P0.1666666^P $s=roofsoff
  10981. [  3/12  ]^P0.25^P $s=roofsoff
  10982. [  4/12  ]^P0.33333^P $s=roofsoff
  10983. [  5/12  ]^P0.4166666^P $s=roofsoff
  10984. [  6/12  ]^P0.5^P $s=roofsoff
  10985. [  7/12  ]^P0.58333^P $s=roofsoff
  10986. [  8/12  ]^P0.6666666^P $s=roofsoff
  10987. [  9/12  ]^P0.75^P $s=roofsoff
  10988.  
  10989. [ <LAST> ]$s=roofsoff
  10990. [<CANCEL>]^C^C(F:CLS) $S=S
  10991. **roof3d 3
  10992. [  3-D   ]
  10993. [  Roof  ]
  10994.  
  10995.  
  10996.  
  10997. [CREATE  ]^C^C(F:LODF "a:roof") (F:LODF "a:zclk") (f:lodf "a:tria") +
  10998. (progn(setq f:list '(a:roof "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  10999. [3-D ROOF]^C^C(F:LODF "a:roof") (F:LODF "a:zclk") (f:lodf "a:tria") +
  11000. (progn(setq f:list '(a:roof "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  11001.  
  11002. [DEL EXTN]^C^C(f:lodf "a:eras") (a:eras)
  11003. [FILES   ]^C^C(f:lodf "a:eras") (a:eras)
  11004.  
  11005. [SOFFIT &]^C^C(f:lodf "a:soff") (progn(setq f:list '(a:soff))(princ))(f:rept nil);
  11006. [FASCIA  ]^C^C(f:lodf "a:soff") (progn(setq f:list '(a:soff))(princ))(f:rept nil);
  11007.  
  11008. [MODES   ]^C^C(f:prmp);$s=roofmode
  11009.  
  11010.  
  11011. [<CANCEL>]^C^C(F:CLS) $s=s
  11012.  
  11013. **an01b 3
  11014. [Roof    ]
  11015. [overhang]
  11016.  
  11017. [    0"  ]^P0^P;
  11018.  
  11019. [    9"  ]^P9^P;
  11020.  
  11021. [   12"  ]^P12^P;
  11022.  
  11023. [   16"  ]^P16^P;
  11024.  
  11025. [   18"  ]^P18^P;
  11026.  
  11027. [   24"  ]^P24^P;
  11028.  
  11029. [ UNDO   ]u;
  11030. [<OTHER> ]$s=au001s1
  11031. [<CANCEL>]^C^C(F:CLS) $S=S
  11032. **an01c 3
  11033. [Roof    ]
  11034. [plan    ]
  11035.  
  11036. [CENter  ]^PCEN^P;
  11037. [ENDpoint]^PENDp^P;
  11038. [INSert'n]^PINS^P;
  11039.  
  11040. [INTersec]^PINT^P;
  11041. [MIDpoint]^PMID^P;
  11042. [NEArest ]^PNEA^P;
  11043.  
  11044. [NODe    ]^PNOD^P;
  11045. [PERpend ]^PPER^P;
  11046. [QUAdrant]^PQUA^P;
  11047.  
  11048. [DISPLAY ]^Pd^P;
  11049. [LAYERS  ]^Pd^P;
  11050. [ UNDO   ]u;
  11051. **an01d 3
  11052. [Fascia  ]
  11053. [depth   ]
  11054.  
  11055. [    0"  ]^P0^P;
  11056.  
  11057. [    6"  ]^P6^P;
  11058.  
  11059. [    9"  ]^P9^P;
  11060.  
  11061. [   12"  ]^P12^P;
  11062.  
  11063. [   15"  ]^P15^P;
  11064.  
  11065. [   18"  ]^P18^P;
  11066.  
  11067. [<OTHER> ]$s=au001s1
  11068.  
  11069. [<CANCEL>]^C^C(F:CLS) $S=S
  11070. **an02a 3
  11071. [Slope   ]
  11072. [ratio   ]
  11073.  
  11074. [1/8" /FT]^P0.01041666^P;
  11075. [1/4" /FT]^P0.02083333^P;
  11076. [1/2" /FT]^P0.41666666^P;
  11077. [  2/12  ]^P0.1666666^P;
  11078. [  3/12  ]^P0.25^P;
  11079. [  4/12  ]^P0.33333^P;
  11080. [  5/12  ]^P0.4166666^P;
  11081. [  6/12  ]^P0.5^P;
  11082. [  7/12  ]^P0.58333^P;
  11083. [  8/12  ]^P0.6666666^P;
  11084. [  9/12  ]^P0.75^P;
  11085. [ SELECT ]s;
  11086. [ SKIP * ]*;
  11087. [<OTHER> ]$s=au001s1
  11088. [<CANCEL>]^C^C(F:CLS) $S=S
  11089. **an02b 3
  11090. [Wall    ]
  11091. [height  ]
  11092.  
  11093.  
  11094. [ 8'-0"  ]^P96^P;
  11095.  
  11096. [ 9'-0"  ]^P108^P;
  11097.  
  11098. [10'-0"  ]^P120^P;
  11099.  
  11100. [12'-0"  ]^P144^P;
  11101.  
  11102.  
  11103. [<OTHER> ]$s=au001s1
  11104.  
  11105.  
  11106.  
  11107. [<CANCEL>]^C^C(F:CLS) $S=S
  11108. **an02c 3
  11109. [3-D roof]
  11110.  
  11111.  
  11112. [--------]^C^C(F:LODF "a:n02a") (F:LODF "a:zclk") +
  11113. (progn(setq f:list '(a:n02a "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  11114. [        ]^C^C(F:LODF "a:n02a") (F:LODF "a:zclk") +
  11115. (progn(setq f:list '(a:n02a "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  11116. [3-D LINE]^C^C(F:LODF "a:n02a") (F:LODF "a:zclk") +
  11117. (progn(setq f:list '(a:n02a "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  11118. [        ]^C^C(F:LODF "a:n02a") (F:LODF "a:zclk") +
  11119. (progn(setq f:list '(a:n02a "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  11120. [--------]^C^C(F:LODF "a:n02a") (F:LODF "a:zclk") +
  11121. (progn(setq f:list '(a:n02a "rf3dline" "arheader" "arwall1line"))(princ))(f:rept nil);
  11122.  
  11123.  
  11124. [--------]^C^C(F:LODF "a:n02b") +
  11125. (progn(setq f:list '(a:n02b "rf3dface" "rf3dface,arwall,rf3dline,ardoor,arwindow" "arheader" "arwall1line"))(princ))(f:rept nil);
  11126. [        ]^C^C(F:LODF "a:n02b") +
  11127. (progn(setq f:list '(a:n02b "rf3dface" "rf3dface,arwall,rf3dline,ardoor,arwindow" "arheader" "arwall1line"))(princ))(f:rept nil);
  11128. [3-D FACE]^C^C(F:LODF "a:n02b") +
  11129. (progn(setq f:list '(a:n02b "rf3dface" "rf3dface,arwall,rf3dline,ardoor,arwindow" "arheader" "arwall1line"))(princ))(f:rept nil);
  11130. [        ]^C^C(F:LODF "a:n02b") +
  11131. (progn(setq f:list '(a:n02b "rf3dface" "rf3dface,arwall,rf3dline,ardoor,arwindow" "arheader" "arwall1line"))(princ))(f:rept nil);
  11132. [--------]^C^C(F:LODF "a:n02b") +
  11133. (progn(setq f:list '(a:n02b "rf3dface" "rf3dface,arwall,rf3dline,ardoor,arwindow" "arheader" "arwall1line"))(princ))(f:rept nil);
  11134.  
  11135.  
  11136. [<CANCEL>]^C^C(F:CLS) $s=s
  11137. **an02e 3
  11138. [Zoom    ]
  11139.  
  11140. [--------]all;
  11141. [ALL     ]all;
  11142. [--------]all;
  11143.  
  11144.  
  11145. [--------]previous;
  11146. [PREVIOUS]previous;
  11147. [--------]previous;
  11148.  
  11149.  
  11150. [--------]window;
  11151. [WINDOW  ]window;
  11152. [--------]window;
  11153.  
  11154.  
  11155. [<CANCEL>]^C^C(F:CLS) $S=S
  11156. **an02f 3
  11157. [Display ]
  11158. [layers  ]
  11159.  
  11160. [Roof    ]
  11161. [3-D LINE]^Prf3dline,^P\
  11162. [3-D FACE]^Prf3dface,^P\
  11163.  
  11164. [WALL    ]^Parwall,^P\
  11165. [HEADER  ]^Parheader,^P\
  11166.  
  11167. [DOOR    ]^Pardoor,^P\
  11168. [WINDOW  ]^Parwindow,^P\
  11169.  
  11170. [ALL DWG.]^P*,^P\
  11171. [LAYERS  ]^P*,^P\
  11172.  
  11173. [ <DONE> ];
  11174.  
  11175. **an02g 3
  11176. [3-d roof]
  11177. [  line  ]
  11178.  
  11179. [CENter  ]^PCEN^P;
  11180. [ENDpoint]^PENDp^P;
  11181. [INSert'n]^PINS^P;
  11182.  
  11183. [INTersec]^PINT^P;
  11184. [MIDpoint]^PMID^P;
  11185. [NEArest ]^PNEA^P;
  11186.  
  11187. [NODe    ]^PNOD^P;
  11188. [PERpend ]^PPER^P;
  11189. [QUAdrant]^PQUA^P;
  11190.  
  11191. [DISPLAY ]^Pd^P;
  11192. [LAYERS  ]^Pd^P;
  11193.  
  11194. **an03a 3
  11195. [Domed   ]
  11196. [roofs   ]
  11197.  
  11198.  
  11199. [Standard]
  11200. [CONE    ]^PC^P;
  11201. [DISH    ]^PDI^P;
  11202. [DOME    ]^PDO^P;
  11203. [SPHERE  ]^PS^P;
  11204.  
  11205.  
  11206. [Non-    ]
  11207. [standard]
  11208. [ELIPSOID]^PE^P;
  11209. [QUICK   ]^PQ^P;
  11210.  
  11211.  
  11212. [<CANCEL>]^C^C(F:CLS) $S=S
  11213. **an03b 3
  11214. [Domed   ]
  11215. [roofs   ]
  11216.  
  11217.  
  11218.  
  11219. [DISH    ]^PDI^P;
  11220.  
  11221. [DOME    ]^PDO^P;
  11222.  
  11223. [SPHERE  ]^PS^P;
  11224.  
  11225.  
  11226.  
  11227.  
  11228.  
  11229.  
  11230.  
  11231. [<CANCEL>]^C^C(F:CLS) $S=S
  11232. **an101 3
  11233. [3-D line]
  11234.  
  11235.  
  11236. [.X      ].x;
  11237.  
  11238. [.Y      ].y;
  11239.  
  11240. [.Z      ].z;
  11241.  
  11242. [.XY     ].xy;
  11243.  
  11244. [CLOSE   ]cl;
  11245.  
  11246. [CONTINUE]^C^C3dline
  11247.  
  11248. [UNDO    ]u;
  11249.  
  11250. [<CANCEL>]^C^C(F:CLS) $s=s
  11251. **ao01a 3
  11252. [ElevSymb]
  11253. [ (door) ]
  11254.  
  11255. [Single  ]
  11256. [FLUSH   ]S/FLUSH
  11257. [FRENCH  ]S/FRENCH
  11258.  
  11259. [Double  ]
  11260. [FLUSH   ]D/FLUSH
  11261. [FRENCH  ]D/FRENCH
  11262.  
  11263. [HINGE MK]HINGE/MK
  11264.  
  11265. [ <MORE> ]$s=ao01b
  11266.  
  11267. [LIBRARY ]^C^C(F:LODF "a:ax25");(a:ax25 "ao011" "h1");(f:rept nil)
  11268.  
  11269. [<CANCEL>]^C^C(F:CLS) $S=S
  11270. **ao01b 3
  11271. [ElevSymb]
  11272. [ (door) ]
  11273.  
  11274. [Sldg Gls]
  11275. [2 DOORS ]2DOOR
  11276. [3 DOORS ]3DOOR
  11277. [4 DOORS ]4DOOR
  11278.  
  11279. [TRIM    ]TRIM
  11280.  
  11281. [DOORKNOB]DKNOB
  11282.  
  11283. [ARROW   ]DARROW
  11284.  
  11285. [REFL MK ]REFLMK
  11286.  
  11287.  
  11288. [ <LAST>]$s=ao01a
  11289. **ao02a 3
  11290. [ElevSymb]
  11291. [(window)]
  11292.  
  11293. [Sliders ]
  11294. [2-WINDOW]2WINDOW
  11295. [3-WINDOW]3WINDOW
  11296. [4-WINDOW]4WINDOW
  11297. [Casement]
  11298. [2-WINDOW]2CASEW
  11299. [3-WINDOW]3CASEW
  11300. [4-WINDOW]4CASEW
  11301.  
  11302. [D/S HUNG]D/SHUNG
  11303. [AWNING  ]AWNING
  11304.  
  11305. [ <MORE> ]$s=ao02b
  11306. [LIBRARY ]^C^C(F:LODF "a:ax25");(a:ax25 "ao021" "h1");(f:rept nil)
  11307. [<CANCEL>]^C^C(F:CLS) $S=S
  11308. **ao02b 3
  11309. [ElevSymb]
  11310. [(window)]
  11311.  
  11312. [FIXED   ]FIXED
  11313.  
  11314. [TRIM    ]WTRIM
  11315.  
  11316. [DIV-LITE]DIV-LITE
  11317.  
  11318. [ARROW   ]ARROW
  11319.  
  11320. [REFL MK ]REFLMK
  11321.  
  11322. [HINGE MK]HINGE.MK
  11323.  
  11324.  
  11325. [ <LAST>]$s=ao02a
  11326. [<CANCEL>]^C^C(F:CLS) $S=S
  11327. **ao101 3
  11328. [3-D face]
  11329.  
  11330.  
  11331. [.X      ].x;
  11332.  
  11333. [.Y      ].y;
  11334.  
  11335. [.Z      ].z;
  11336.  
  11337. [.XY     ].xy;
  11338.  
  11339. [CLOSE   ];^C^C
  11340.  
  11341. [CONTINUE]^C^C3dface
  11342.  
  11343.  
  11344.  
  11345. [<CANCEL>]^C^C(F:CLS) $s=s
  11346. **azdra 3
  11347. [Width   ]
  11348.  
  11349.  
  11350. [   1/16"]^P0.0625^P;
  11351. [   1/8" ]^P0.125^P;
  11352. [   1/4" ]^P0.25^P;
  11353.  
  11354. [   1/2" ]^P0.5^P;
  11355. [   3/4" ]^P0.75^P;
  11356. [   1"   ]^P1^P;
  11357.  
  11358. [ 1-1/4" ]^P1.25^P;
  11359. [ 1-1/2" ]^P1.5^P;
  11360. [   2"   ]^P2.0^P;
  11361.  
  11362. [<OTHERS>]^P$s=au001s1
  11363.  
  11364. [<CANCEL>]^C^C(F:CLS) $S=S
  11365. **azdrb 3
  11366. [Width   ]
  11367.  
  11368. [   1/2" ]^P0.5^P;
  11369. [   3/4" ]^P0.75^P;
  11370. [   1"   ]^P1^P;
  11371.  
  11372. [ 1-1/4" ]^P1.25^P;
  11373. [ 1-1/2" ]^P1.5^P;
  11374. [   2"   ]^P2^P;
  11375.  
  11376. [ 2-1/2" ]^P2.5^P;
  11377. [   3"   ]^P3^P;
  11378. [ 3-1/2" ]^P3.5^P;
  11379. [   4"   ]^P4.0^P;
  11380.  
  11381. [<OTHERS>]^P$s=au001s1
  11382.  
  11383. [<CANCEL>]^C^C(F:CLS) $S=S
  11384. **ao03a 3
  11385. [Plumbing]
  11386. [ elev.  ]
  11387.  
  11388.  
  11389. [--------]^C^C(F:PRMP);$S=ao03b
  11390. [        ]^C^C(F:PRMP);$S=ao03b
  11391. [ FRONT  ]^C^C(F:PRMP);$S=ao03b
  11392. [        ]^C^C(F:PRMP);$S=ao03b
  11393. [--------]^C^C(F:PRMP);$S=ao03b
  11394.  
  11395. [--------]^C^C(F:PRMP);$S=ao03d
  11396. [        ]^C^C(F:PRMP);$S=ao03d
  11397. [ SIDE   ]^C^C(F:PRMP);$S=ao03d
  11398. [        ]^C^C(F:PRMP);$S=ao03d
  11399. [--------]^C^C(F:PRMP);$S=ao03d
  11400.  
  11401.  
  11402. [<CANCEL>]^C^C(F:CLS) $S=S
  11403. **ao03b 3
  11404. [ Front  ]
  11405. [ elev.  ]
  11406.  
  11407.  
  11408. [WTR CLOS]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11409. "ao03a" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03b");
  11410.  
  11411. [TUB-ENCL]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11412. "ao03c" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03b");
  11413.  
  11414. [PED SINK]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11415. "ao03d" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03b");
  11416.  
  11417. [OVL SINK]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11418. "ao03e" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03b");
  11419.  
  11420. [TOWL RNG]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11421. "ao03f" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03b");
  11422.  
  11423.  
  11424. [ <MORE>]$S=ao03c
  11425. [PREVIOUS]$S=ao03a
  11426. [<CANCEL>]^C^C(F:CLS) $S=S
  11427. **ao03c 3
  11428. [Ft.elev.]
  11429. [(cont.) ]
  11430.  
  11431.  
  11432. [18" TBAR]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11433. "ao03g" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03c");
  11434.  
  11435. [24" TBAR]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11436. "ao03h" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03c");
  11437.  
  11438. [TP HOLDR]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11439. "ao03i" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03c");
  11440.  
  11441. [MEDI CAB]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11442. "ao03j" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03c");
  11443.  
  11444. [36" GRAB]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11445. "ao03k" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03c");
  11446.  
  11447. [44" GRAB]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11448. "ao03l" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03c");
  11449.  
  11450. [ <LAST>]$S=ao03b
  11451. [<CANCEL>]^C^C(F:CLS) $S=S
  11452. **ao03d 3
  11453. [  Side  ]
  11454. [  elev. ]
  11455.  
  11456.  
  11457.  
  11458. [WTR CLOS]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11459. "ao03m" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03d");
  11460.  
  11461. [TUB-ENCL]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11462. "ao03o" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03d");
  11463.  
  11464. [PED SINK]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11465. "ao03p" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03d");
  11466.  
  11467. [MEDI CAB]^C^C(setq V:x 1 V:y 1 V:zs 1 V:ze 0) (progn(setq f:list '(F:INSR T nil nil "arelvtn" +
  11468. "ao03q" T V:x V:y V:zs V:ze 0 T nil nil nil nil))(princ))(f:rept "ao03d");
  11469.  
  11470.  
  11471.  
  11472.  
  11473. [PREVIOUS]$S=ao03a
  11474. [<CANCEL>]^C^C(F:CLS) $S=S
  11475. **ap011 3
  11476. [Select   ]
  11477. [options  ]
  11478.  
  11479.  
  11480. [ADD     ]a
  11481.  
  11482. [LAST    ]l
  11483.  
  11484. [REMOVE  ]r
  11485.  
  11486. [WINDOW  ]w
  11487.  
  11488. [CROSSING]c
  11489.  
  11490.  
  11491. [<RETURN>];
  11492.  
  11493. [<CANCEL>]^C^C(F:CLS) $S=S
  11494. **ap03a 3
  11495. [Hatch   ]
  11496. [patterns]
  11497.  
  11498. [AEC Arch]
  11499. [MISC.   ]^C^C(F:PRMP) $S=ap03a1
  11500. [BLOCK   ]^C^C(F:PRMP) $S=ap03a2
  11501. [BRICK   ]^C^C(F:PRMP) $S=ap03a3
  11502. [ROOF    ]^C^C(F:PRMP) $S=ap03a4
  11503.  
  11504. [AutoCAD ]
  11505. [ANSI    ]^C^C(F:PRMP) $S=ap03a5
  11506. [A - D   ]^C^C(F:PRMP) $S=ap03a6
  11507. [E - I   ]^C^C(F:PRMP) $S=ap03a7
  11508. [L - S   ]^C^C(F:PRMP) $S=ap03a8
  11509. [S - Z   ]^C^C(F:PRMP) $S=ap03a9
  11510.  
  11511.  
  11512. [<CANCEL>]^C^C(F:CLS) $S=S
  11513. **ap03a1 3
  11514. [Misc    ]
  11515. [hatch   ]
  11516. [patterns]
  11517.  
  11518. [LIBRARY ]^C^C(F:LODF "a:ax25");(a:ax25 "ap03c" "h1");
  11519.  
  11520. [ANGLE   ]^C^C(progn(setq f:list '(a:p031 "AR-ANGLE" 5 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11521. [BAR     ]^C^C(progn(setq f:list '(a:p031 "AR-BAR" 5 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11522. [CONCRETE]^C^C(progn(setq f:list '(a:p031 "AR-CONC" 2 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11523. [H-BONE  ]^C^C(progn(setq f:list '(a:p031 "AR-HBONE" 1 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11524. [LINE    ]^C^C(progn(setq f:list '(a:p031 "AR-LINE" 5 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11525. [NET     ]^C^C(progn(setq f:list '(a:p031 "AR-NET" 5 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11526. [PARQUET ]^C^C(progn(setq f:list '(a:p031 "AR-PARQ1" 1 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11527. [SAND    ]^C^C(progn(setq f:list '(a:p031 "AR-SAND" 5 "s=ap03a1"))(princ))(f:rept "ap03a1");
  11528.  
  11529.  
  11530. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11531. [<CANCEL>]^C^C(F:CLS) $S=S
  11532. **ap03a2 3
  11533. [Block   ]
  11534. [hatch   ]
  11535. [patterns]
  11536.  
  11537. [LIBRARY ]^C^C(F:LODF "a:ax25");(a:ax25 "ap03a" "h1");
  11538.  
  11539.  
  11540. [Mortar  ]
  11541. [joints: ]
  11542.  
  11543. [ONE-LINE]^C^C(F:PRMP) $S=ap03a2a
  11544.  
  11545. [TWO-LINE]^C^C(F:PRMP) $S=ap03a2b
  11546.  
  11547.  
  11548.  
  11549. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11550. [<CANCEL>]^C^C(F:CLS) $S=S
  11551. **ap03a2a 3
  11552. [Block   ]
  11553. [patterns]
  11554. [without ]
  11555. [mortar  ]
  11556.  
  11557.  
  11558. [Stretchr]
  11559. [  8x8   ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x8" 1 "s=ap03a2a"))(princ))(f:rept "ap03a2a");
  11560. [  8x16  ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x16" 1 "s=ap03a2a"))(princ))(f:rept "ap03a2a");
  11561.  
  11562. [Stacked ]
  11563. [  8x8   ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x8-ST" 1 "s=ap03a2a"))(princ))(f:rept "ap03a2a");
  11564. [  8x16  ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x16-ST" 1 "s=ap03a2a"))(princ))(f:rept "ap03a2a");
  11565.  
  11566.  
  11567. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11568.  
  11569. [<CANCEL>]^C^C(F:CLS) $S=S
  11570. **ap03a2b 3
  11571. [Block   ]
  11572. [patterns]
  11573. [with    ]
  11574. [mortar  ]
  11575.  
  11576.  
  11577. [Stretchr]
  11578. [  8x8   ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x8-M" 1 "s=ap03a2b"))(princ))(f:rept "ap03a2b");
  11579. [  8x16  ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x16-M" 1 "s=ap03a2b"))(princ))(f:rept "ap03a2b");
  11580.  
  11581. [Stacked ]
  11582. [  8x8   ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x8-STM" 1 "s=ap03a2b"))(princ))(f:rept "ap03a2b");
  11583. [  8x16  ]^C^C(progn(setq f:list '(a:p031 "AR-BL-8x16-STM" 1 "s=ap03a2b"))(princ))(f:rept "ap03a2b");
  11584.  
  11585.  
  11586. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11587.  
  11588. [<CANCEL>]^C^C(F:CLS) $S=S
  11589. **ap03a3 3
  11590. [Brick   ]
  11591. [hatch   ]
  11592. [patterns]
  11593.  
  11594. [LIBRARY ]^C^C(F:LODF "a:ax25");(a:ax25 "ap03b" "h1");
  11595.  
  11596.  
  11597. [Mortar  ]
  11598. [joints  ]
  11599.  
  11600. [ONE-LINE]^C^C(F:PRMP) $S=ap03a3a
  11601.  
  11602. [TWO-LINE]^C^C(F:PRMP) $S=ap03a3b
  11603.  
  11604.  
  11605.  
  11606. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11607. [<CANCEL>]^C^C(F:CLS) $S=S
  11608. **ap03a3a 3
  11609. [Brick   ]
  11610. [patterns]
  11611. [without ]
  11612. [mortar  ]
  11613.  
  11614. [ECONOMY ]^C^C(progn(setq f:list '(a:p031 "AR-BR-ECON" 1 "s=ap03a3a"))(princ))(f:rept "ap03a3a");
  11615. [ENGINEER]^C^C(progn(setq f:list '(a:p031 "AR-BR-ENG" 1 "s=ap03a3a"))(princ))(f:rept "ap03a3a");
  11616.  
  11617. [ENGLISH ]^C^C(progn(setq f:list '(a:p031 "AR-BR-ENGL" 1 "s=ap03a3a"))(princ))(f:rept "ap03a3a");
  11618. [FLEMISH ]^C^C(progn(setq f:list '(a:p031 "AR-BR-FLEM" 1 "s=ap03a3a"))(princ))(f:rept "ap03a3a");
  11619.  
  11620. [STANDARD]^C^C(progn(setq f:list '(a:p031 "AR-BR-STD" 1 "s=ap03a3a"))(princ))(f:rept "ap03a3a");
  11621. [UTILITY ]^C^C(progn(setq f:list '(a:p031 "AR-BR-UTIL" 1 "s=ap03a3a"))(princ))(f:rept "ap03a3a");
  11622.  
  11623.  
  11624. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11625.  
  11626. [<CANCEL>]^C^C(F:CLS) $S=S
  11627. **ap03a3b 3
  11628. [Brick   ]
  11629. [patterns]
  11630. [with    ]
  11631. [mortar  ]
  11632.  
  11633. [ECONOMY ]^C^C(progn(setq f:list '(a:p031 "AR-BR-ECON-M" 1 "s=ap03a3b"))(princ))(f:rept "ap03a3b");
  11634. [ENGINEER]^C^C(progn(setq f:list '(a:p031 "AR-BR-ENG-M" 1 "s=ap03a3b"))(princ))(f:rept "ap03a3b");
  11635.  
  11636. [ENGLISH ]^C^C(progn(setq f:list '(a:p031 "AR-BR-ENGL-M" 1 "s=ap03a3b"))(princ))(f:rept "ap03a3b");
  11637. [FLEMISH ]^C^C(progn(setq f:list '(a:p031 "AR-BR-FLEM-M" 1 "s=ap03a3b"))(princ))(f:rept "ap03a3b");
  11638.  
  11639. [STANDARD]^C^C(progn(setq f:list '(a:p031 "AR-BR-STD-M" 1 "s=ap03a3b"))(princ))(f:rept "ap03a3b");
  11640. [UTILITY ]^C^C(progn(setq f:list '(a:p031 "AR-BR-UTIL-M" 1 "s=ap03a3b"))(princ))(f:rept "ap03a3b");
  11641.  
  11642.  
  11643. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11644.  
  11645. [<CANCEL>]^C^C(F:CLS) $S=S
  11646. **ap03a4 3
  11647. [Roof    ]
  11648. [hatch   ]
  11649. [patterns]
  11650.  
  11651. [LIBRARY ]^C^C(F:LODF "a:ax25");(a:ax25 "ap03d" "h1");
  11652.  
  11653. [PLYWOOD ]^C^C(progn(setq f:list '(a:p031 "AR-R-PLYWOOD" 1 "s=ap03a4"))(princ))(f:rept "ap03a4");
  11654.  
  11655. [RANDOM  ]^C^C(progn(setq f:list '(a:p031 "AR-R-ROOF" 4 "s=ap03a4"))(princ))(f:rept "ap03a4");
  11656. [LINES   ]^C^C(progn(setq f:list '(a:p031 "AR-R-ROOF" 4 "s=ap03a4"))(princ))(f:rept "ap03a4");
  11657.  
  11658. [SHAKES  ]^C^C(progn(setq f:list '(a:p031 "AR-R-SHAKE" 1 "s=ap03a4"))(princ))(f:rept "ap03a4");
  11659.  
  11660. [SHINGLES]^C^C(progn(setq f:list '(a:p031 "AR-R-SHINGLE" 1 "s=ap03a4"))(princ))(f:rept "ap03a4");
  11661.  
  11662.  
  11663. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11664. [<CANCEL>]^C^C(F:CLS) $S=S
  11665. **ap03a5 3
  11666. [Autocad ]
  11667. [hatch   ]
  11668. [patterns]
  11669.  
  11670.  
  11671. [ANSI31  ]^C^C(progn(setq f:list '(a:p031 "ANSI31" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11672. [ANSI32  ]^C^C(progn(setq f:list '(a:p031 "ANSI32" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11673. [ANSI33  ]^C^C(progn(setq f:list '(a:p031 "ANSI33" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11674. [ANSI34  ]^C^C(progn(setq f:list '(a:p031 "ANSI34" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11675. [ANSI35  ]^C^C(progn(setq f:list '(a:p031 "ANSI35" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11676. [ANSI36  ]^C^C(progn(setq f:list '(a:p031 "ANSI36" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11677. [ANSI37  ]^C^C(progn(setq f:list '(a:p031 "ANSI37" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11678. [ANSI38  ]^C^C(progn(setq f:list '(a:p031 "ANSI38" 0 "s=ap03a5"))(princ))(f:rept "ap03a5");
  11679.  
  11680.  
  11681. [ <LAST>]^C^C(F:PRMP) $S=ap03a 
  11682.  
  11683. [<CANCEL>]^C^C(F:CLS) $S=S
  11684. **ap03a6 3
  11685. [Autocad ]
  11686. [hatch   ]
  11687. [patterns]
  11688.  
  11689. [ANGLE   ]^C^C(progn(setq f:list '(a:p031 "ANGLE" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11690. [BOX     ]^C^C(progn(setq f:list '(a:p031 "BOX" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11691. [BRASS   ]^C^C(progn(setq f:list '(a:p031 "BRASS" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11692. [BRICK   ]^C^C(progn(setq f:list '(a:p031 "BRICK" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11693. [CLAY    ]^C^C(progn(setq f:list '(a:p031 "CLAY" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11694. [CORK    ]^C^C(progn(setq f:list '(a:p031 "CORK" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11695. [CROSS   ]^C^C(progn(setq f:list '(a:p031 "CROSS" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11696. [DASH    ]^C^C(progn(setq f:list '(a:p031 "DASH" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11697. [DOLMIT  ]^C^C(progn(setq f:list '(a:p031 "DOLMIT" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11698. [DOTS    ]^C^C(progn(setq f:list '(a:p031 "DOTS" 0 "s=ap03a6"))(princ))(f:rept "ap03a6");
  11699.  
  11700. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11701.  
  11702. [<CANCEL>]^C^C(F:CLS) $S=S
  11703. **ap03a7 3    
  11704. [Autocad ]    
  11705. [hatch   ]
  11706. [patterns]
  11707.  
  11708. [EARTH   ]^C^C(progn(setq f:list '(a:p031 "EARTH" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11709. [ESCHER  ]^C^C(progn(setq f:list '(a:p031 "ESCHER" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11710. [FLEX    ]^C^C(progn(setq f:list '(a:p031 "FLEX" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11711. [GRASS   ]^C^C(progn(setq f:list '(a:p031 "GRASS" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11712. [GRATE   ]^C^C(progn(setq f:list '(a:p031 "GRATE" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11713. [HEX     ]^C^C(progn(setq f:list '(a:p031 "HEX" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11714. [HONEY   ]^C^C(progn(setq f:list '(a:p031 "HONEY" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11715. [HOUND   ]^C^C(progn(setq f:list '(a:p031 "HOUND" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11716. [INSUL   ]^C^C(progn(setq f:list '(a:p031 "INSUL" 0 "s=ap03a7"))(princ))(f:rept "ap03a7");
  11717.  
  11718.  
  11719. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11720.  
  11721. [<CANCEL>]^C^C(F:CLS) $S=S
  11722. **ap03a8 3
  11723. [Autocad ]
  11724. [hatch   ]
  11725. [patterns]
  11726.  
  11727. [LINE    ]^C^C(progn(setq f:list '(a:p031 "LINE" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11728. [MUDST   ]^C^C(progn(setq f:list '(a:p031 "MUDST" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11729. [NET     ]^C^C(progn(setq f:list '(a:p031 "NET" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11730. [NET3    ]^C^C(progn(setq f:list '(a:p031 "NET3" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11731. [PLAST   ]^C^C(progn(setq f:list '(a:p031 "PLAST" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11732. [PLASTI  ]^C^C(progn(setq f:list '(a:p031 "PLASTI" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11733. [SACNCR  ]^C^C(progn(setq f:list '(a:p031 "SACNCR" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11734. [SQUARE  ]^C^C(progn(setq f:list '(a:p031 "SQUARE" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11735. [STARS   ]^C^C(progn(setq f:list '(a:p031 "STARS" 0 "s=ap03a8"))(princ))(f:rept "ap03a8");
  11736.  
  11737.  
  11738. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11739.  
  11740. [<CANCEL>]^C^C(F:CLS) $S=S
  11741. **ap03a9 3
  11742. [Autocad ]
  11743. [hatch   ]
  11744. [patterns]
  11745.  
  11746.  
  11747.  
  11748. [STEEL   ]^C^C(progn(setq f:list '(a:p031 "STEEL" 0 "s=ap03a9"))(princ))(f:rept "ap03a9");
  11749. [SWAMP   ]^C^C(progn(setq f:list '(a:p031 "SWAMP" 0 "s=ap03a9"))(princ))(f:rept "ap03a9");
  11750. [TRANS   ]^C^C(progn(setq f:list '(a:p031 "TRANS" 0 "s=ap03a9"))(princ))(f:rept "ap03a9");
  11751. [TRIANG  ]^C^C(progn(setq f:list '(a:p031 "TRIANG" 0 "s=ap03a9"))(princ))(f:rept "ap03a9");
  11752. [ZIGZAG  ]^C^C(progn(setq f:list '(a:p031 "ZIGZAG" 0 "s=ap03a9"))(princ))(f:rept "ap03a9");
  11753.  
  11754.  
  11755.  
  11756. [ <LAST>]^C^C(F:PRMP) $S=ap03a
  11757.  
  11758.  
  11759. [<CANCEL>]^C^C(F:CLS) $S=S
  11760. **ar01a 3
  11761. [Custom  ]
  11762. [space   ]
  11763. [creator ]  
  11764.  
  11765.  
  11766. [ARC     ]AR $S=ar01b
  11767.  
  11768. [CLOSE   ]CL (F:UNDO)(progn(setq f:list '(a:r011 144.0 "sqft" v:name "arwall1line" 12)) +
  11769. (a:rept 'a:r01a)(princ))
  11770.  
  11771. [LINE    ]LI
  11772.  
  11773. [UNDO    ]UN
  11774.  
  11775.  
  11776. [ <DONE> ]^C^C(F:UNDO)(progn(setq f:list '(a:r011 144.0 "sqft" v:name "arwall1line" 12)) +
  11777. (a:rept 'a:r01a)(princ))
  11778.  
  11779.  
  11780. [<CANCEL>]^C^C(F:CLS) $S=S
  11781. **ar01b 3
  11782. [Custom  ]
  11783. [space #2]
  11784. [creator ]
  11785.  
  11786. [ARC     ]ARC
  11787. [ANGLE   ]AN
  11788. [CENTER  ]CE
  11789. [CLOSE   ]CL (F:UNDO)(progn(setq f:list '(a:r011 144.0 "sqft" v:name "arwall1line" 12)) +
  11790. (a:rept 'a:r01a)(princ))
  11791. [DIRECT'N]DI
  11792. [RADIUS  ]RA
  11793. [2ND PT  ]SE
  11794.  
  11795. [LINE    ]LI $s=ar01a
  11796. [UNDO    ]U
  11797.  
  11798. [ <DONE> ]^C^C(F:UNDO)(progn(setq f:list '(a:r011 144.0 "sqft" v:name "arwall1line" 12)) +
  11799. (a:rept 'a:r01a)(princ))
  11800.  
  11801. [<CANCEL>]^C^C(F:CLS) $S=S
  11802. **ar02a 3
  11803. [Space to]
  11804. [wall    ]
  11805.  
  11806.  
  11807. [ARC     ]AR $S=ar02b
  11808.  
  11809. [CLOSE   ]CL (F:UNDO)(f:modr)(progn(setq f:list '(A:R02A "arwall" "arwall1line")) +
  11810. (a:rept 'a:r02b)(princ))
  11811.  
  11812. [LINE    ]LI
  11813.  
  11814. [UNDO    ]UN
  11815.  
  11816.  
  11817.  
  11818. [ <DONE> ]^C^C(F:UNDO)(f:modr)(progn(setq f:list '(A:R02A "arwall" "arwall1line")) +
  11819. (a:rept 'a:r02b)(princ))
  11820.  
  11821.  
  11822. [<CANCEL>]^C^C(F:CLS) $S=S
  11823. **ar02b 3
  11824. [Space to]
  11825. [wall #2 ]
  11826.  
  11827. [ARC     ]ARC
  11828.  
  11829. [ANGLE   ]AN
  11830. [CENTER  ]CE
  11831. [CLOSE   ]CL (F:UNDO)(f:modr)(progn(setq f:list '(A:R02A "arwall" "arwall1line")) +
  11832. (a:rept 'a:r02b)(princ))
  11833. [DIRECT'N]DI
  11834. [RADIUS  ]RA
  11835. [2ND PT  ]SE $S=OSNAPB \$s=
  11836.  
  11837. [LINE    ]LI $s=ar02a
  11838. [UNDO    ]U
  11839.  
  11840. [ <DONE> ]^C^C(F:UNDO)(f:modr)(progn(setq f:list '(A:R02A "arwall" "arwall1line")) +
  11841. (a:rept 'a:r02b)(princ))
  11842.  
  11843. [<CANCEL>]^C^C(F:CLS) $S=S
  11844. **ar02bcp 3
  11845.  
  11846.  
  11847.  
  11848. [--------]^Pchange^P;
  11849. [        ]^Pchange^P;
  11850. [CHANGE  ]^Pchange^P;
  11851. [        ]^Pchange^P;
  11852. [--------]^Pchange^P;
  11853.  
  11854. [--------]^PProceed^P;
  11855. [        ]^PProceed^P;
  11856. [PROCEED ]^PProceed^P;
  11857. [        ]^PProceed^P;
  11858. [--------]^PProceed^P;
  11859.  
  11860.  
  11861.  
  11862. [<CANCEL>]^C^C(F:CLS) $S=S
  11863. **ar05a 3
  11864. [Hatch   ]
  11865.  
  11866. [INSULATN]^C^C(F:LODF "a:o051") (progn(setq f:list '(a:o051 "arwalltex" "ins"))(princ))(f:rept nil);
  11867.  
  11868. [CROSS   ]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-net"))(princ))(f:rept nil);
  11869. [HATCH     ]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-net"))(princ))(f:rept nil);
  11870.  
  11871. [CONCRETE]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-conc"))(princ))(f:rept nil);
  11872.  
  11873. [DIAGONAL]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-angle"))(princ))(f:rept "ar05a");
  11874. [LINES   ]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-angle"))(princ))(f:rept "ar05a");
  11875.  
  11876. [BARS    ]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-bar"))(princ))(f:rept "ar05a");
  11877.  
  11878. [PARALLEL]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-line"))(princ))(f:rept "ar05a");
  11879. [LINES   ]^C^C(F:LODF "a:r051") (progn(setq f:list '(a:r051 "arwalltex" "ar-line"))(princ))(f:rept "ar05a");
  11880.  
  11881. [<CANCEL>]^C^C(F:CLS) $S=S
  11882. **ar05b 3
  11883. [Plotted ]
  11884. [hatch   ]
  11885. [distance]
  11886.  
  11887. [   1/64"]^P0.015625^P;
  11888.  
  11889. [   1/32"]^P0.03125^P;
  11890.  
  11891. [   1/16"]^P0.0625^P;
  11892.  
  11893. [   1/8" ]^P0.125^P;
  11894.  
  11895. [   1/4" ]^P0.25^P;
  11896.  
  11897. [<OTHER> ]$s=au001s1
  11898.  
  11899.  
  11900. [<CANCEL>]^C^C(F:CLS) $S=S
  11901. **ar06b 3
  11902. [Edge    ]
  11903. [clean   ]
  11904.  
  11905.  
  11906.  
  11907. [--------]'setvar useri4 1 $S=
  11908. [DO CLEAN]'setvar useri4 1 $S=
  11909. [--------]'setvar useri4 1 $S=
  11910.  
  11911.  
  11912. [--------]'setvar useri4 0 $S=
  11913. [DO NOT  ]'setvar useri4 0 $S=
  11914. [CLEAN   ]'setvar useri4 0 $S=
  11915. [--------]'setvar useri4 0 $S=
  11916.  
  11917.  
  11918.  
  11919. [<CANCEL>]$S=
  11920. **ar06c 3
  11921. [Space   ]
  11922. [layout  ]
  11923.  
  11924.  
  11925. [--------]'setvar userr4 0 $S=
  11926. [INCLUDE ]'setvar userr4 0 $S=
  11927. [WALL    ]'setvar userr4 0 $S=
  11928. [THICKNES]'setvar userr4 0 $S=
  11929. [--------]'setvar userr4 0 $S=
  11930.  
  11931.  
  11932.  
  11933. [--------]'setvar userr4 1 $S=
  11934. [CLEAR   ]'setvar userr4 1 $S=
  11935. [SPACE   ]'setvar userr4 1 $S=
  11936. [--------]'setvar userr4 1 $S=
  11937.  
  11938.  
  11939.  
  11940. [<CANCEL>]$S=
  11941. **ar06d 3
  11942. [Wall    ]
  11943. [height  ]
  11944.  
  11945.  
  11946. [ 8'-0"  ]^P96^P $s=
  11947.  
  11948. [ 9'-0"  ]^P108^P $s=
  11949.  
  11950. [10'-0"  ]^P120^P $s=
  11951.  
  11952. [12'-0"  ]^P144^P $s=
  11953.  
  11954.  
  11955. [<OTHER> ]$s=au001s1 \$s= $s=
  11956.  
  11957.  
  11958.  
  11959. [<CANCEL>]$S=
  11960. **ar031 3
  11961. [Space   ]
  11962. [and wall]
  11963. [diagrams]
  11964.  
  11965. [Display:]
  11966.  
  11967. [ SPACE  ]^C^C(progn(command "layer" "thaw" "arwall1line" "off" "arwall" "")(princ))
  11968.  
  11969. [  WALL  ]^C^C(progn(command "layer" "fr" "arwall1line" "on" "arwall" "")(princ))
  11970.  
  11971. [ SPACE &]^C^C(progn(command "layer" "thaw" "arwall1line" "on" "arwall" "")(princ))
  11972. [  WALL  ]^C^C(progn(command "layer" "thaw" "arwall1line" "on" "arwall" "")(princ))
  11973.  
  11974.  
  11975. [  WALL  ]$s=au001s1 'setvar userr5 \$s=
  11976. [ HEIGHT ]$s=au001s1 'setvar userr5 \$s=
  11977.  
  11978. [<CANCEL>]^C^C(F:CLS) $S=S
  11979. **av25a 3
  11980. [Schedule]
  11981.  
  11982.  
  11983. [EXTRACT ](F:PRMP) $s=av25b
  11984. [SCHEDULE](F:PRMP) $s=av25b
  11985. [DATA    ](F:PRMP) $s=av25b
  11986.  
  11987.  
  11988. [EDIT    ](F:PRMP) $s=av25c
  11989. [SCHEDULE](F:PRMP) $s=av25c
  11990.  
  11991.  
  11992. [UPDATE  ]^C^C(if (setq a (open "s$doors.dbf" "r")) +
  11993. (progn (close a) (menucmd "s=av25d") (f:prmp)) +
  11994. (progn (terpri) (prompt " ")(terpri) (prompt " ")(terpri) +
  11995. (prompt "The Schedule Manager program has not yet been installed.") (princ)))
  11996. [DRAWING ]^C^C(if (setq a (open "s$doors.dbf" "r")) +
  11997. (progn (close a) (menucmd "s=av25d") (f:prmp)) +
  11998. (progn (terpri) (prompt " ")(terpri) (prompt " ")(terpri) +
  11999. (prompt "The Schedule Manager program has not yet been installed.") (princ)))
  12000. [ATTRIBUT]^C^C(if (setq a (open "s$doors.dbf" "r")) +
  12001. (progn (close a) (menucmd "s=av25d") (f:prmp)) +
  12002. (progn (terpri) (prompt " ")(terpri) (prompt " ")(terpri) +
  12003. (prompt "The Schedule Manager program has not yet been installed.") (princ)))
  12004.  
  12005.  
  12006. [<CANCEL>]^C^C(F:CLS) $S=S
  12007. **av25b 3
  12008. [Building]
  12009. [elements]
  12010.  
  12011. [APPLIANC]^C^C(F:LODF "a:v25a") (a:v25a "ap" nil)
  12012. [CAB. FIN]^C^C(F:LODF "a:v25a") (a:v25a "ca" nil)
  12013. [DOOR    ]^C^C(F:LODF "a:v25a") (a:v25a "do" nil)
  12014.  
  12015. [FURNITUR]^C^C(F:LODF "a:v25a") (a:v25a "fu" nil)
  12016. [LIGHTING]^C^C(F:LODF "a:v25a") (a:v25a "li" nil)
  12017. [PLUMBING]^C^C(F:LODF "a:v25a") (a:v25a "pl" nil)
  12018.  
  12019. [ROOM FIN]^C^C(F:LODF "a:v25a") (a:v25a "ro" nil)
  12020. [STRUCTUR]^C^C(F:LODF "a:v25a") (a:v25a "st" nil)
  12021. [TOILT AC]^C^C(F:LODF "a:v25a") (a:v25a "to" nil)
  12022. [WINDOW  ]^C^C(F:LODF "a:v25a") (a:v25a "wi" nil)
  12023. [< ALL > ]^C^C(F:LODF "a:v25a") +
  12024. (a:v25a "all" '("ap" "ca" "do" "fu" "li" "pl" "ro" "st" "to" "wi"))
  12025.  
  12026. [ <LAST>](F:PRMP) $s=av25a
  12027. **av25c 3
  12028. [Edit    ]
  12029. [schedule]
  12030.  
  12031.  
  12032. [Place   ]
  12033. [your own]
  12034. [schedule]
  12035. [manager ]
  12036. [here    ]
  12037.  
  12038.  
  12039. [SAMPLE  ]^C^C(F:LODF "a:v25c") (a:v25c)
  12040. [SCHEDULE]^C^C(F:LODF "a:v25c") (a:v25c)
  12041. [MANAGER]^C^C(F:LODF "a:v25c") (a:v25c)
  12042.  
  12043. [ <LAST>]$s=av25a
  12044.  
  12045. [<CANCEL>]^C^C(F:CLS) $S=S
  12046. **av25d 3
  12047. [Update  ]
  12048. [attribut]
  12049.  
  12050. [APPLIANC]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "aptemp.txt") 387 "arapplspec")
  12051. [CABINET ]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "catemp.txt") 227 "artag")
  12052.  
  12053. [DOORS   ]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "dotemp.txt") 611 "ardoorspec")
  12054. [FURNITUR]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "futemp.txt") 387 "fmspec")
  12055.  
  12056. [LIGHT   ]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "litemp.txt") 323 "eelightspec")
  12057. [PLUMBING]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "pltemp.txt") 291 "mpfixtspec")
  12058.  
  12059. [ROOM FIN]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "rotemp.txt") 387 "artag")
  12060. [STRUCTUR]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "sttemp.txt") 131 "stspec")
  12061.  
  12062. [TOILT AC]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "totemp.txt") 291 "araccspec")
  12063. [WINDOWS ]^C^C(F:LODF "a:v25b") (a:v25b (strcat v:acas "witemp.txt") 515 "arwindowspec")
  12064. [ <LAST>](F:PRMP) $s=av25a
  12065. **a4099s1 3
  12066. [Create]
  12067. [backgrnd]
  12068.  
  12069. [ALARM   ]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12070. f:list '(a:v24a "alarm" "arheader")))(f:rept "a4099s1");
  12071. [DEMOLITN]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12072. f:list '(a:v24a "demolitn" nil)))(f:rept "a4099s1");
  12073. [ELECTRIC]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12074. f:list '(a:v24a "electric" "arheader")))(f:rept "a4099s1");
  12075. [FACILITY]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12076. f:list '(a:v24a "facility" "arheader")))(f:rept "a4099s1");
  12077. [FINISH  ]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12078. f:list '(a:v24a "finish" "arheader")))(f:rept "a4099s1");
  12079. [MECHANIC]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12080. f:list '(a:v24a "mechanic" "arheader")))(f:rept "a4099s1");
  12081. [PLUMBING]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12082. f:list '(a:v24a "plumbing" "arheader")))(f:rept "a4099s1");
  12083. [REF CLG ]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12084. f:list '(a:v24a "refclg" nil)))(f:rept "a4099s1");
  12085. [ROOF    ]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12086. f:list '(a:v24a "roof" nil)))(f:rept "a4099s1");
  12087. [SITE    ]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12088. f:list '(a:v24a "site" nil)))(f:rept "a4099s1");
  12089. [SPRINKLR]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12090. f:list '(a:v24a "sprinklr" nil)))(f:rept "a4099s1");
  12091. [STRUCTRL]^c^c(progn(setq v:dpmt "Enter the background drawing type from the screen menu: "+
  12092. f:list '(a:v24a "structrl" nil)))(f:rept "a4099s1");
  12093.  
  12094.  
  12095. [<CANCEL>]^C^C(F:CLS) $S=S
  12096. ***TABLET2
  12097. [J01]$S=X $S=HIDE
  12098. [J02]$S=X $S=VPOINT ^C^CVPOINT;;
  12099. [J03]$S=X $S=ELEVTHK ^C^CELEV
  12100. [J04]$S=X $S=UCS1 ^C^CUCS
  12101. [J05]^C^CUCS;PREV
  12102. [J06]^C^CUCS;V
  12103. [J07];
  12104. [J08]^O
  12105. [J09]$S=X $S=ZOOM 'ZOOM W
  12106. [J10]$S=X $S=LINE ^C^CLINE
  12107. [J11]$S=X ^C^CREGEN
  12108. [K01]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  12109. [K02]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  12110. [K03]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  12111. [K04]$S=X $S=UCS1 ^C^CUCS
  12112. [K05]^C^CUCS;;
  12113. [K06]^C^CPLAN;W
  12114. [K07];
  12115. [K08]^O
  12116. [K09]$S=X $S=ZOOM 'ZOOM W
  12117. [K10]$S=X $S=PLINE ^C^CPLINE
  12118. [K11]'REDRAW
  12119. [L01]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  12120. [L02]^C^CPLAN;;
  12121. [L03]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  12122. [L04]$S=X $S=DVIEW ^C^CDVIEW
  12123. [L05]$S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  12124. [L06]$S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  12125. [L07];
  12126. [L08]^D
  12127. [L09]$S=X $S=ZOOM 'ZOOM D
  12128. [L10]$S=X $S=ARC ^C^CARC
  12129. [L11]'REDRAW
  12130. [M01]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  12131. [M02]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  12132. [M03]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  12133. [M04]$S=X $S=DVIEW ^C^CDVIEW
  12134. [M05]$S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  12135. [M06]$S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  12136. [M07];
  12137. [M08]^Q
  12138. [M09]$S=X $S=ZOOM 'ZOOM A
  12139. [M10]$S=X $S=CIRCLE ^C^CCIRCLE
  12140. [M11]'REDRAW
  12141. [N01]^C^C(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  12142. (setq *error* m:err m:err nil)(princ))(cond ((null C:LIGHT)(vmon)+
  12143. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  12144. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  12145. (menucmd "S=X")(menucmd "S=LIGHTS")(setq *error* m:err m:err nil))(progn (terpri);+
  12146. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  12147. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  12148. (setq *error* m:err m:err nil)(princ))))+
  12149. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=LIGHTS")(princ)));+
  12150. (if (and C:LIGHT as-err)(C:LIGHT)(prompt "LIGHT is not properly loaded."))(princ)
  12151. [N02]^C^C(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  12152. (setq *error* m:err m:err nil)(princ))(cond ((null C:CAMERA)(vmon)+
  12153. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  12154. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  12155. (menucmd "S=X")(menucmd "S=CAMERA")(setq *error* m:err m:err nil))(progn (terpri);+
  12156. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  12157. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  12158. (setq *error* m:err m:err nil)(princ))))+
  12159. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=CAMERA")(princ)));+
  12160. (if (and C:CAMERA as-err)(C:CAMERA)(prompt "CAMERA is not properly loaded."))(princ)
  12161. [N03]^C^C(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  12162. (setq *error* m:err m:err nil)(princ))(cond ((null C:LIGHT)(vmon)+
  12163. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  12164. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  12165. (menucmd "S=X")(menucmd "S=ACTION")(setq *error* m:err m:err nil))(progn (terpri);+
  12166. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  12167. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  12168. (setq *error* m:err m:err nil)(princ))))+
  12169. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ACTION")(princ)))
  12170. [N04]$S=X $S=3D ^C^CRULESURF
  12171. [N05]$S=X $S=3D ^C^CREVSURF
  12172. [N06]$S=X $S=3DFACE ^C^C3DFACE
  12173. [N07];
  12174. [N08]'GRAPHSCR
  12175. [N09]$S=X $S=ZOOM 'ZOOM P
  12176. [N10]$S=X $S=ELLIPSE ^C^CELLIPSE
  12177. [N11]'REDRAW
  12178. [O01]$S=X $S=VPORTS ^C^CVPORTS
  12179. [O02]$S=X $S=VPORTS ^C^CVPORTS;JOIN
  12180. [O03]^C^CVPORTS;SI
  12181. [O04]$S=X $S=3D ^C^CEDGESURF
  12182. [O05]$S=X $S=3D ^C^CTABSURF
  12183. [O06]$S=X $S=3DPOLY ^C^C3DPOLY
  12184. [O07];
  12185. [O08]^E
  12186. [O09]$S=X $S=ZOOM 'ZOOM E
  12187. [O10]$S=X $S=POLYGON ^C^CPOLYGON
  12188. [O11]'REDRAW
  12189. [P01];
  12190. [P02];
  12191. [P03];
  12192. [P04];
  12193. [P05];
  12194. [P06];
  12195. [P07];
  12196. [P08]^G
  12197. [P09]$S=X $S=ZOOM 'ZOOM
  12198. [P10]$S=X $S=POINT ^C^CPOINT
  12199. [P11]'REDRAW
  12200. [Q01]$S=X $S=BLOCK ^C^CBLOCK
  12201. [Q02]$S=X $S=INSERT ^C^CINSERT
  12202. [Q03]$S=X $S=ATTDEF ^C^CATTDEF
  12203. [Q04];
  12204. [Q05]^C^C(F:UNDO);(F:ERR) $s=a4030sa layer;
  12205. [Q06]^C^C(F:UNDO);(F:ERR) $s=a4030sa layer;
  12206. [Q07];
  12207. [Q08]^B
  12208. [Q09]$S=X $S=PAN 'PAN
  12209. [Q10]^C^CDONUT
  12210. [Q11]'REDRAWALL
  12211. [R01]$S=X $S=WBLOCK ^C^CWBLOCK
  12212. [R02]$S=X $S=MINSERT ^C^CMINSERT
  12213. [R03]$S=X $S=ATTDEF ^C^CATTDEF
  12214. [R04];
  12215. [R05]^C^C(F:UNDO);(F:ERR) $s=a4030sa LAYER ? *;;
  12216. [R06]^C^CLAYER S (prompt "Select DONE from the screen menu to complete the command")(princ);$S=a4030sb $S=del_5
  12217. [R07];
  12218. [R08]^B
  12219. [R09]$S=X $S=DS
  12220. [R10]$S=X $S=DR
  12221. [R11]'REDRAWALL
  12222. ***TABLET3
  12223.  
  12224.  
  12225.  
  12226. ^P<135^P;
  12227. ^P<135^P;
  12228. ^P<90^P;
  12229. ^P<90^P;
  12230. ^P<45^P;
  12231. ^P<45^P;
  12232.  
  12233.  
  12234.  
  12235. ^P<180^P;
  12236. ^P<180^P;
  12237. ^P<^P\
  12238. ^P<^P\
  12239. ^P<0^P;
  12240. ^P<0^P;
  12241.  
  12242.  
  12243.  
  12244. ^P<225^P;
  12245. ^P<225^P;
  12246. ^P<270^P;
  12247. ^P<270^P;
  12248. ^P<315^P;
  12249. ^P<315^P;
  12250.  
  12251.  
  12252.  
  12253. ^H
  12254. ^H
  12255. ^H
  12256. ^H
  12257. ^H
  12258. ^H
  12259.  
  12260.  
  12261.  
  12262. ^P7/8^P\
  12263. ^P7/8^P\
  12264. ^P/16^P\
  12265. ^P/16^P\
  12266. ^P/32^P\
  12267. ^P/32^P\
  12268.  
  12269.  
  12270.  
  12271. ^P1/2^P\
  12272. ^P1/2^P\
  12273. ^P5/8^P\
  12274. ^P5/8^P\
  12275. ^P3/4^P\
  12276. ^P3/4^P\
  12277.  
  12278.  
  12279.  
  12280. ^P1/8^P\
  12281. ^P1/8^P\
  12282. ^P1/4^P\
  12283. ^P1/4^P\
  12284. ^P3/8^P\
  12285. ^P3/8^P\
  12286.  
  12287.  
  12288.  
  12289. ^P-^P\
  12290. ^P-^P\
  12291. ^P/^P\
  12292. ^P/^P\
  12293. ^PX^P\
  12294. ^PX^P\
  12295.  
  12296.  
  12297.  
  12298. ^P@^P\
  12299. ^P@^P\
  12300. ^P'^P\
  12301. ^P'^P\
  12302. ^P"^P\
  12303. ^P"^P\
  12304.  
  12305.  
  12306.  
  12307. ^P7^P\
  12308. ^P7^P\
  12309. ^P8^P\
  12310. ^P8^P\
  12311. ^P9^P\
  12312. ^P9^P\
  12313.  
  12314.  
  12315.  
  12316. ^P4^P\
  12317. ^P4^P\
  12318. ^P5^P\
  12319. ^P5^P\
  12320. ^P6^P\
  12321. ^P6^P\
  12322.  
  12323.  
  12324.  
  12325. ^P1^P\
  12326. ^P1^P\
  12327. ^P2^P\
  12328. ^P2^P\
  12329. ^P3^P\
  12330. ^P3^P\
  12331.  
  12332.  
  12333.  
  12334. ^P0^P\
  12335. ^P0^P\
  12336. ^P.^P\
  12337. ^P.^P\
  12338. ^P,^P\
  12339. ^P,^P\
  12340. ***TABLET4
  12341. [S01];
  12342. [S02];
  12343. [S03];
  12344. [S04];
  12345. [S05];
  12346. [S06];
  12347. [S07];
  12348. [S08];
  12349. [S09];
  12350. [S10];
  12351. [S11];
  12352. [S12];
  12353. [S13];
  12354. [S14];
  12355. [S15];
  12356. [S16];
  12357. [S17];
  12358. [S18];
  12359. [S19];
  12360. [S20];
  12361. [S21];
  12362. [S22];
  12363. [S23];
  12364. [S24];
  12365. [S25];
  12366. [T01]^C^C(F:UNDO);(F:ERR) TIME
  12367. [T02]$S=X $S=ID ^C^CID
  12368. [T03]^C^C(F:UNDO);(F:ERR) (F:PRMP) STATUS
  12369. [T04]$S=X $S=LIST ^C^CLIST
  12370. [T05]$s=at06sa
  12371. [T06]$s=at06sa
  12372. [T07];
  12373. [T08]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT
  12374. [T09]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT C
  12375. [T10]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT R
  12376. [T11];
  12377. [T12]^C^COSNAP NONE
  12378. [T13]CENTER
  12379. [T14]ENDPOINT
  12380. [T15]INSERT
  12381. [T16]INTERSEC
  12382. [T17]MIDPOINT
  12383. [T18]NEAREST
  12384. [T19]NODE
  12385. [T20]PERPEND
  12386. [T21]QUADRANT
  12387. [T22]TANGENT
  12388. [T23];
  12389. [T24]^C^C(F:UNDO);(F:ERR) SAVE
  12390. [T25]^C^C(F:UNDO);(F:ERR) SAVE
  12391. [U01]^C^C(F:UNDO);(F:ERR) DBLIST
  12392. [U02]$S=X $S=AREA ^C^CAREA
  12393. [U03]$S=X $S=DIST ^C^CDIST
  12394. [U04]$S=X $S=LIST ^C^CLIST
  12395. [U05]$s=at06sa
  12396. [U06]$s=at06sa
  12397. [U07];
  12398. [U08]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT A
  12399. [U09]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT M
  12400. [U10]$S=X $S=DTEXT ^C^C(F:UNDO);DTEXT F
  12401. [U11];
  12402. [U12]^C^C(F:UNDO);(F:ERR) $S=S (progn (F:MODR) (setvar "highlight" 1) (setvar "osmode" 0) +
  12403. (setvar "menuecho" 1) (F:RLAY) +
  12404. (if V:STXT (progn (command "style" "" "" V:STXT "" "" "" "" "") +
  12405. (setq V:STXT nil))) (F:CLS))
  12406. [U13]^C^C(F:UNDO);(F:ERR) $S=S (progn (F:MODR) (setvar "highlight" 1) (setvar "osmode" 0) +
  12407. (setvar "menuecho" 1) (F:RLAY) +
  12408. (if V:STXT (progn (command "style" "" "" V:STXT "" "" "" "" "") +
  12409. (setq V:STXT nil))) (F:CLS))
  12410. [U14]^C^C$s=au141
  12411. [U15]^C^CREDO
  12412. [U16]MULTIPLE
  12413. [U17]WINDOW
  12414. [U18]LAST
  12415. [U19]PREVIOUS
  12416. [U20]CROSSING
  12417. [U21]REMOVE
  12418. [U22]ADD
  12419. [U23];
  12420. [U24]^C^C$S=X $S=END (F:UNDO);(F:ERR) (F:PRMP) 
  12421. [U25]^C^C$S=X $S=quit (F:UNDO);(F:ERR) (F:PRMP) 
  12422. [V01];
  12423. [V02];
  12424. [V03];
  12425. [V04];
  12426. [V05];
  12427. [V06];
  12428. [V07];
  12429. [V08];
  12430. [V09];
  12431. [V10];
  12432. [V11];
  12433. [V12];
  12434. [V13];
  12435. [V14];
  12436. [V15];
  12437. [V16];
  12438. [V17];
  12439. [V18];
  12440. [V19];
  12441. [V20];
  12442. [V21];
  12443. [V22];
  12444. [V23];
  12445. [V24]^C^C(F:UNDO);(F:ERR) FILES
  12446. [V25]^C^C(F:UNDO);(F:ERR) FILES 
  12447. [W01]^C^C(F:UNDO);(F:ERR) DIM1 STATUS
  12448. [W02]^C^C$S=VAR1 DIM
  12449. [W03]UNDO
  12450. [W04]'REDRAW
  12451. [W05]EXIT;(F:CLS);$S=S
  12452. [W06]EXIT;(F:CLS);$S=S
  12453. [W07];
  12454. [W08]^C^C$S=X $S=TEXTSET (F:UNDO);(F:ERR) (F:PRMP) 
  12455. [W09]$S=X $S=SNAP ^C^CSNAP
  12456. [W10]$S=X $S=GRID ^C^CGRID
  12457. [W11];
  12458. [W12]$S=X $S=SCALE ^C^C(F:UNDO);SCALE
  12459. [W13]$S=X $S=ROTATE ^C^C(F:UNDO);ROTATE
  12460. [W14]$S=X $S=OFFSET ^C^C(F:UNDO);offset
  12461. [W15]$S=X $S=MOVE ^C^CMOVE
  12462. [W16]$S=X $S=ERASE ^C^C(F:UNDO);erase
  12463. [W17]$S=X $S=ERASE ^C^C(F:UNDO);erase
  12464. [W18]^C^C(F:UNDO);(F:ERR) OOPS
  12465. [W19]^C^C+
  12466. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  12467. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  12468. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  12469. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  12470. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  12471. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  12472. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  12473. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  12474. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  12475. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  12476. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  12477. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  12478. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  12479. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  12480. (setq *error* m:err m:err nil)(princ))(princ) PEDITM 
  12481. [W20]$S=X $S=EXPLODE ^C^C(F:UNDO);EXPLODE
  12482. [W21]$S=X $S=ARRAY ^C^C(F:UNDO);ARRAY
  12483. [W22]$S=X $S=DIVIDE ^C^C(F:UNDO);DIVIDE
  12484. [W23];
  12485. [W24]^C^C(F:UNDO);(F:ERR) PLOT
  12486. [W25]^C^C(F:UNDO);(F:ERR) PRPLOT
  12487. [X01]$S=DIM ^C^C(F:UNDO);DIM1
  12488. [X02]$S=DIM ^C^C(F:UNDO);DIM LEADER
  12489. [X03]$S=DIMLINEAR ^C^C(F:UNDO);dim BASE
  12490. [X04]$S=DIMLINEAR ^C^C(F:UNDO);dim CONTIN
  12491. [X05]$S=DIMLINEAR ^C^C(F:UNDO);DIM VERT
  12492. [X06]$S=DIMLINEAR ^C^C(F:UNDO);DIM HORIZ
  12493. [X07];
  12494. [X08]$S=X $S=AXIS ^C^CAXIS
  12495. [X09]$S=X $S=SET (F:UNDO);(F:ERR) (F:PRMP) 
  12496. [X10]$S=X $S=OSNAPB ^C^COSNAP
  12497. [X11];
  12498. [X12]$S=X $S=MIRROR ^C^C(F:UNDO);MIRROR
  12499. [X13]$S=X $S=BREAK2P ^C^C(F:UNDO);BREAK \F
  12500. [X14]$S=X $S=BREAKSPL ^C^C(F:UNDO);BREAK \F \@
  12501. [X15]^C^C$S=X $S=COPY (F:UNDO);(F:ERR) COPY
  12502. [X16]$S=X $S=EXTEND ^C^C(F:UNDO);EXTEND
  12503. [X17]$S=X $S=STRETCH ^C^C(F:UNDO);STRETCH C
  12504. [X18]$S=X $S=TRIM ^C^C(F:UNDO);TRIM
  12505. [X19]$S=X $S=FILLET0 ^C^C(F:UNDO);FILLET R 0;;
  12506. [X20]$S=X $S=FILLET ^C^C(F:UNDO);FILLET
  12507. [X21]$S=X $S=CHAMFER ^C^C(F:UNDO);CHAMFER
  12508. [X22]$S=X $S=MEASURE ^C^C(F:UNDO);MEASURE
  12509. [X23];
  12510. [X24]$S=X $S=UT 
  12511. [X25]$S=X $S=A4125mas (F:UNDO);(F:ERR) (F:PRMP) 
  12512. [Y01]$S=DIM ^C^C(F:UNDO);DIM CENTER
  12513. [Y02]$S=DIM ^C^C(F:UNDO);DIM RADIUS
  12514. [Y03]$S=DIM ^C^C(F:UNDO);DIM DIAMETER
  12515. [Y04]$S=DIM ^C^C(F:UNDO);DIM ANGULAR
  12516. [Y05]$S=DIM ^C^C(F:UNDO);DIM ROTATED
  12517. [Y06]$S=DIMLINEAR ^C^C(F:UNDO);DIM ALIGNED
  12518. [Y07];
  12519. [Y08]$S=X $S=QTEXT ^C^C(F:UNDO);QTEXT
  12520. [Y09]$S=X $S=DRAGMODE ^C^CDRAGMODE
  12521. [Y10]^C^C$S=X $S=APERTURE (progn (terpri)(prompt " ")(terpri)+
  12522. (prompt "Pick APERTUR: or PICKBOX: from the screen menu.")(princ))
  12523. [Y11];
  12524. [Y12]^C^C(F:LODF "a:y12a") (F:LODF "a:y12b") +
  12525. (F:LODF "a:zaqd") (progn(setq f:list '(a:y12a "a"))(princ))(f:rept nil);
  12526. [Y13]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=ay131
  12527. [Y14]^C^C$S=X $S=XYMOVE (F:UNDO);(F:ERR) (F:LODF "a:move") move:;
  12528. [Y15]^C^C$S=X $S=XYCOPY (F:UNDO);(F:ERR) (F:LODF "a:copy") copy:;
  12529. [Y16]$S=X $S=CHANGE ^C^C(F:UNDO);CHANGE
  12530. [Y17]$S=X $S=CHANGE ^C^C(F:UNDO);CHANGE
  12531. [Y18]$S=ATTEDIT ^C^C(F:UNDO);ATTEDIT
  12532. [Y19]^C^C(F:LODF "a:y161") (progn(setq f:list '(a:y161))(princ))(f:rept nil);
  12533. [Y20]^C^C$S=X $S=CHPROP ^C^C(F:UNDO);CHPROP
  12534. [Y21]^C^C(F:LODF "a:y211") (progn(setq f:list '(a:y211))(princ))(f:rept nil);
  12535. [Y22]^C^C(F:UNDO);(F:ERR) (F:PRMP) $s=ay22a
  12536. [Y23];
  12537. [Y24]$S=X $S=EXCOMDS (F:UNDO);(F:ERR) (F:PRMP) 
  12538. [Y25]$S=X $S=EXCOMDS (F:UNDO);(F:ERR) (F:PRMP) 
  12539. **au141 3
  12540. [ UNDO ]
  12541.  
  12542.  
  12543. [--------]U
  12544. [        ]U
  12545. [U       ]U
  12546. [        ]U
  12547. [--------]U
  12548.  
  12549.  
  12550. [--------]Undo back
  12551. [        ]Undo back
  12552. [U BACK  ]Undo back
  12553. [        ]Undo back
  12554. [--------]UNdo back
  12555.  
  12556.  
  12557. [<CANCEL>]^C^C(F:CLS) $S=S
  12558. **ay121 3
  12559. [  3-D   ]
  12560. [ array  ]
  12561.  
  12562. [--------]^PDiagonal^P;
  12563. [DIAGONAL]^PDiagonal^P;
  12564. [--------]^PDiagonal^P;
  12565.  
  12566.  
  12567. [--------]^PPolar^P;
  12568. [ POLAR  ]^PPolar^P;
  12569. [--------]^PPolar^P;
  12570.  
  12571.  
  12572. [--------]^PRectangular^P;
  12573. [RECTANGR]^PRectangular^P;
  12574. [--------]^PRectangular^P;
  12575.  
  12576. [<CANCEL>]^C^C(F:CLS) $S=S
  12577. **ay131 3
  12578. [  3-D   ]
  12579. [ rotate ]
  12580.  
  12581.  
  12582. [--------]^C^C(F:LODF "a:y12a") (F:LODF "a:zaqd") (progn(setq f:list '(a:y12a "r"))(princ))(f:rept nil);
  12583. [ANY     ]^C^C(F:LODF "a:y12a") (F:LODF "a:zaqd") (progn(setq f:list '(a:y12a "r"))(princ))(f:rept nil);
  12584. [ANGLE   ]^C^C(F:LODF "a:y12a") (F:LODF "a:zaqd") (progn(setq f:list '(a:y12a "r"))(princ))(f:rept nil);
  12585. [--------]^C^C(F:LODF "a:y12a") (F:LODF "a:zaqd") (progn(setq f:list '(a:y12a "r"))(princ))(f:rept nil);
  12586.  
  12587.  
  12588. [--------]^C^C(F:LODF "a:y13a") (progn(setq f:list '(a:y13a))(princ))(f:rept nil);
  12589. [90 DEG. ]^C^C(F:LODF "a:y13a") (progn(setq f:list '(a:y13a))(princ))(f:rept nil);
  12590. [TILT-UP ]^C^C(F:LODF "a:y13a") (progn(setq f:list '(a:y13a))(princ))(f:rept nil);
  12591. [--------]^C^C(F:LODF "a:y13a") (progn(setq f:list '(a:y13a))(princ))(f:rept nil);
  12592.  
  12593.  
  12594.  
  12595. [<CANCEL>]^C^C(F:CLS) $S=S
  12596. **ay22a 3
  12597. [Match   ]
  12598.  
  12599.  
  12600. [MATCH   ]^C^C(F:LODF "a:y22b") (progn(setq f:list '(a:y22b))(princ))(f:rept "ay22a");
  12601. [PROPERTY]^C^C(F:LODF "a:y22b") (progn(setq f:list '(a:y22b))(princ))(f:rept "ay22a");
  12602.  
  12603.  
  12604. [SET     ]^C^C(F:LODF "a:y22a") (progn(setq f:list '(a:y22a))(princ))(f:rept "ay22a");
  12605. [CURRENT ]^C^C(F:LODF "a:y22a") (progn(setq f:list '(a:y22a))(princ))(f:rept "ay22a");
  12606. [LAYER   ]^C^C(F:LODF "a:y22a") (progn(setq f:list '(a:y22a))(princ))(f:rept "ay22a");
  12607.  
  12608.  
  12609. [TURN OFF]^C^C(F:LODF "a:y22c") (progn(setq f:list '(a:y22c))(princ))(f:rept "ay22a");
  12610. [LAYER   ]^C^C(F:LODF "a:y22c") (progn(setq f:list '(a:y22c))(princ))(f:rept "ay22a");
  12611.  
  12612.  
  12613.  
  12614. [<CANCEL>]^C^C(F:CLS) $S=S
  12615. **ay22b 3
  12616. [Match   ]
  12617.  
  12618.  
  12619. [Color   ]^PC^P;
  12620.  
  12621. [Height  ]^PH^P;
  12622.  
  12623. [LAyer   ]^PLA^P;
  12624.  
  12625. [LType   ]^PLT^P;
  12626.  
  12627. [Thick   ]^PT^P;
  12628.  
  12629. [Ins.Pt. ]^PI^P;
  12630.  
  12631.  
  12632.  
  12633. [<CANCEL>]^C^C(F:CLS) $S=S
  12634. **a4030sa 3
  12635. [Layer   ]
  12636.  
  12637. [LISTING ]^P? ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$s=a4030sb
  12638.  
  12639. [SET     ]^Ps ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$S=a4030sb $S=del_5
  12640. [MAKE    ]^Pm ^P
  12641. [ON      ]^Pon ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$s=a4030sb
  12642. [OFF     ]^Poff ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$s=a4030sb
  12643.  
  12644. [COLOR   ]^Pcolor ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$S=a4030sc \$s=a4030sb
  12645. [LTYPE   ]^Pltype ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$S=a4030sd \$s=a4030sb
  12646.  
  12647. [FREEZE  ]^Pfreeze ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$s=a4030sb \
  12648. [THAW    ]^Pthaw ^P(prompt "Select DONE from the screen menu to complete the command")(princ);$s=a4030sb \
  12649.  
  12650. [ <DONE> ];$S=S
  12651.  
  12652. [<CANCEL>]^C^C(F:CLS) $S=S
  12653. **del_5 5
  12654.  
  12655. **a4030sb 3
  12656. [Layer   ]
  12657. [type    ]
  12658. [ALL     ]^P*^P $s=
  12659. [APPLIANC]$s=applianc
  12660. [DOOR/WND]$s=ldoors
  12661. [ELECTRIC]$s=electric
  12662. [ELEVTION]$s=elevtion
  12663. [FURNITUR]$s=furnitur
  12664. [LINES   ]$s=lines
  12665. [PLUMBING]$s=plumbing
  12666. [ROOFS   ]$s=roofs
  12667. [SITE    ]$s=lsite
  12668. [STRUCTRL]$s=structrl
  12669. [TAGS    ]$s=tags
  12670. [TITLE   ]$s=ltitle
  12671. [VERTICAL]$s=vertical
  12672. [WALLS   ]$s=walls
  12673. [ <DONE> ]$s= ;
  12674. **vertical 3
  12675. [Vertical]
  12676. [trans.  ]
  12677.  
  12678. [ALL]^Parstair,arhandrail,arelvtr,arstair3d,^P\
  12679.  
  12680. [STAIR   ]^Parstair,^P\
  12681.  
  12682. [HANDRAIL]^Parhandrail,^P\
  12683.  
  12684. [ELEVATOR]^Parelvtr,^P\
  12685.  
  12686. [3D STAIR]^Parstair3d,^P\
  12687.  
  12688. [  COMMA ]^P,^P\
  12689.  
  12690. [ <MORE> ]$s=a4030sb
  12691. [ <DONE> ]^H$S=A4030SA ;
  12692. [<CANCEL>]^C^C(F:CLS) $S=S
  12693. **elevtion 3
  12694. [Elevtion]
  12695.  
  12696. [ALL]^Parel*,^P\
  12697.  
  12698. [WINDOW  ]^Parelwindow,^P\
  12699. [DOOR    ]^Pareldoor,^P\
  12700. [DR HINGE]^Pareldhinge,^P\
  12701. [WD HINGE]^Parelwhinge,^P\
  12702. [ELEVTION]^Parelvtn,^P\
  12703.  
  12704.  
  12705.  
  12706.  
  12707.  
  12708.  
  12709. [ <MORE> ]$s=a4030sb
  12710. [ <DONE> ]^H$S=A4030SA ;
  12711. [<CANCEL>]^C^C(F:CLS) $S=S
  12712. **roofs 3
  12713. [Roofs   ]
  12714.  
  12715. [ALL]^Parroof*,rf3dface,rf3dline,^P\
  12716.  
  12717. [ROOFPLAN]^Parroofplan,^P
  12718. [3-D FACE]^Prf3dface,^P\
  12719. [3-D LINE]^Prf3dline,^P\
  12720.  
  12721.  
  12722.  
  12723.  
  12724.  
  12725.  
  12726.  
  12727. [ <MORE> ]$s=a4030sb
  12728. [ <DONE> ]^H$S=A4030SA ;
  12729.  
  12730. [<CANCEL>]^C^C(F:CLS) $S=S
  12731. **rfcir1 3
  12732.  
  12733.  
  12734.  
  12735.  
  12736.  
  12737.  
  12738. [--------]^PC^P;
  12739. [        ]^PC^P;
  12740. [ CENTER ]^PC^P;
  12741. [        ]^PC^P;
  12742. [--------]^PC^P;
  12743.  
  12744.  
  12745.  
  12746.  
  12747.  
  12748. [ UNDO   ]u;
  12749. [<CANCEL>]^C^C(F:CLS) $S=S
  12750. **rf3side 3
  12751. [Bisector]
  12752. [modes   ]
  12753.  
  12754. [3-Sided ]
  12755.  
  12756. [--------]^C^C(progn(setq v:eqbi T)(terpri) +
  12757. (prompt "3-Sided sections will be created symmetrically.")(terpri)(princ));$s=roofmode
  12758. [EQUAL   ]^C^C(progn(setq v:eqbi T)(terpri) +
  12759. (prompt "3-Sided sections will be created symmetrically.")(terpri)(princ));$s=roofmode
  12760. [BISECTOR]^C^C(progn(setq v:eqbi T)(terpri) +
  12761. (prompt "3-Sided sections will be created symmetrically.")(terpri)(princ));$s=roofmode
  12762. [--------]^C^C(progn(setq v:eqbi T)(terpri) +
  12763. (prompt "3-Sided sections will be created symmetrically.")(terpri)(princ));$s=roofmode
  12764.  
  12765. [--------]^C^C(progn(setq v:eqbi nil)(terpri) +
  12766. (prompt "3-Sided sections will NOT be created symmetrically.")(terpri)(princ));$s=roofmode
  12767. [UNEQUAL ]^C^C(progn(setq v:eqbi nil)(terpri) +
  12768. (prompt "3-Sided sections will NOT be created symmetrically.")(terpri)(princ));$s=roofmode
  12769. [BISECTOR]^C^C(progn(setq v:eqbi nil)(terpri) +
  12770. (prompt "3-Sided sections will NOT be created symmetrically.")(terpri)(princ));$s=roofmode
  12771. [--------]^C^C(progn(setq v:eqbi nil)(terpri) +
  12772. (prompt "3-Sided sections will NOT be created symmetrically.")(terpri)(princ));$s=roofmode
  12773.  
  12774.  
  12775. [ <LAST> ]$s=
  12776. [<CANCEL>]^C^C(F:CLS) $S=S
  12777. **A4030SC 3
  12778. [Layer   ]
  12779. [colors  ]
  12780.  
  12781.  
  12782. [RED     ]^PRED^P;
  12783. [YELLOW  ]^PYELLOW^P;
  12784.  
  12785. [GREEN   ]^PGREEN^P;
  12786. [CYAN    ]^PCYAN^P;
  12787.  
  12788. [BLUE    ]^PBLUE^P;
  12789. [MAGENTA ]^PMAGENTA^P;
  12790.  
  12791. [WHITE   ]^PWHITE^P;
  12792.  
  12793. [<OTHER> ]$S=AU001S1
  12794.  
  12795. [<CANCEL>]^C^C(F:CLS) $S=S
  12796. **A4030SD 3
  12797. [LineType]
  12798.  
  12799.  
  12800. [CENTER  ]^PCENTER^P;
  12801.  
  12802. [CONTINUS]^PCONTINUOUS^P;
  12803.  
  12804. [DASHDOT ]^PDASHDOT^P;
  12805.  
  12806. [DASHED  ]^PDASHED^P;
  12807.  
  12808. [DOT     ]^PDOT^P;
  12809.  
  12810. [HIDDEN  ]^PHIDDEN^P;
  12811.  
  12812. [PHANTOM ]^PPHANTOM^P;
  12813.  
  12814. [<CANCEL>]^C^C(F:CLS) $S=S
  12815. **lines 3
  12816. [Lines   ]
  12817. [ALL     ]^Plight,medium,heavy,center*,dash*,^P\
  12818. [LIGHT   ]^Plight,^P\
  12819. [MEDIUM  ]^Pmedium,^P\
  12820. [HEAVY   ]^Pheavy,^P\
  12821. [CENTERL ]^Pcenterl,^P\
  12822. [CENTERM ]^Pcenterm,^P\
  12823. [CENTERH ]^Pcenterh,^P\
  12824. [DASH1L  ]^Pdash1l,^P\
  12825. [DASH1M  ]^Pdash1m,^P\
  12826. [DASH1H  ]^Pdash1h,^P\
  12827. [DASH2L  ]^Pdash2l,^P\
  12828. [DASH2M  ]^Pdash2m,^P\
  12829. [DASH2H  ]^Pdash2h,^P\
  12830. [  COMMA ]^P,^P\
  12831. [ <MORE> ]$s=a4030sb
  12832. [ <DONE> ]^H$S=a4030sa ;
  12833. [<CANCEL>]^C^C(F:CLS) $S=S
  12834. **tags 3
  12835. [Tags]
  12836.  
  12837. [ALL     ]^Partag*,argrid*,ardim*,arnote*,aralp*,argennote,arfinish,^P\
  12838. [ALP.NOTE]^Paralpnote,^P\
  12839. [ALP.TARG]^Paralptarg,^P\
  12840. [GEN.NOTE]^Pargennote,^P\
  12841. [TAG     ]^Partag,^P\
  12842. [GRID    ]^Pargrid,^P\
  12843. [DIM     ]^Pardim,^P\
  12844. [NOTE    ]^Parnote,^P\
  12845. [NOTEPRES]^Parnotepres,^P\
  12846. [FINISH  ]^Parfinish,^P\
  12847.  
  12848. [  COMMA ]^P,^P\
  12849. [ <MORE> ]$s=a4030sb
  12850. [ <DONE> ]^H$S=A4030SA ;
  12851.  
  12852. [<CANCEL>]^C^C(F:CLS) $S=S
  12853. **ldoors 3
  12854. [Door & ]
  12855. [window ]
  12856. [ALL]^Pardoor*,arheader,arwindow*,arwheader,arglazing,arfloor,^P\
  12857.  
  12858. [DOOR    ]^Pardoor,^P\
  12859. [HEADER  ]^Parheader,^P\
  12860. [DOORSPEC]^Pardoorspec,^P\
  12861.  
  12862. [WINDOW  ]^Parwindow,^P\
  12863. [WHEADER ]^Parwheader,^P\
  12864. [WNSPEC  ]^Parwindowspec,^P\
  12865. [GLAZING ]^Parglazing,^P\
  12866.  
  12867. [FLOOR   ]^Parfloor,^P\
  12868. [  COMMA ]^P,^P\
  12869. [ <MORE> ]$s=a4030sb
  12870. [ <DONE> ]^H$S=A4030SA ;
  12871. [<CANCEL>]^C^C(F:CLS) $S=S
  12872. **walls 3
  12873. [Walls]
  12874.  
  12875. [ALL]^Parwall*,arpartialht,arheader,^P\
  12876.  
  12877. [WALL    ]^Parwall,^P\
  12878.  
  12879. [WALLTEX ]^Parwalltex,^P\
  12880.  
  12881. [PARTIAL ]^Parpartialht,^P\
  12882.  
  12883. [SPACE   ]^parwall1line,^p\
  12884.  
  12885. [  COMMA ]^P,^P\
  12886.  
  12887.  
  12888. [ <MORE> ]$s=a4030sb
  12889. [ <DONE> ]^H$S=A4030SA ;
  12890. [<CANCEL>]^c^c(F:CLS) $s=s
  12891. **structrl 3
  12892. [Structrl]
  12893.  
  12894. [ALL]^Pst*,^P\
  12895.  
  12896. [WOOD    ]^Pstwood,^P\
  12897. [METAL   ]^Pstmetal,^P\
  12898. [CONCRETE]^Pstconcrete,^P\
  12899. [HWOOD   ]^Psthwood,^P\
  12900. [HCONCRET]^Psthconcrete,^P\
  12901. [HMETAL  ]^Psthmetal,^P\
  12902. [STR.SPEC]^Pstspec,^P\
  12903.  
  12904. [  COMMA ]^P,^P\
  12905.  
  12906. [ <MORE> ]$s=a4030sb
  12907. [ <DONE> ]^H$S=A4030SA ;
  12908.  
  12909. [<CANCEL>]^C^C(F:CLS) $S=S
  12910. **plumbing 3
  12911. [Plumbing]
  12912.  
  12913. [ALL]^Pmpfixt*,arpartition,aracc*,^P\
  12914.  
  12915. [FIXTURE ]^Pmpfixture,^P\
  12916. [FIXTSPEC]^Pmpfixtspec,^P\
  12917.  
  12918. [PARTITN ]^Parpartition,^P\
  12919. [ACCESSRY]^Paraccessory,^P\
  12920. [ACCSPEC ]^Paraccspec,^P\
  12921.  
  12922. [  COMMA ]^P,^P\
  12923.  
  12924. [ <MORE> ]$s=a4030sb
  12925.  
  12926. [ <DONE> ]^H$S=A4030SA ;
  12927.  
  12928. [<CANCEL>]^C^C(F:CLS) $S=S
  12929. **electric 3
  12930. [Elec. & ]
  12931. [lighting]
  12932.  
  12933.  
  12934. [ALL]^Pee*,arceiling,mh*,^P\
  12935. [CEILING ]^Parceiling,^P\
  12936. [LIGHTIN ]^Peelighting,^P\
  12937. [LIGHTFL ]^Peelightfl,^P\
  12938. [LIGHTEM ]^Peelightem,^P\
  12939. [LT. SPEC]^Peelightspec,^P\
  12940. [CONTROL ]^Peecontrol,^P\
  12941.  
  12942.  
  12943.  
  12944. [  COMMA ]^P,^P\
  12945. [ <MORE> ]$s=electri2
  12946. [ <DONE> ]^H$S=A4030SA ;
  12947. [<CANCEL>]^C^C(F:CLS) $S=S
  12948. **electri2 3
  12949. [Elec. & ]
  12950. [lighting]
  12951. [ALL]^Pee*,arceiling,mh*,^P\
  12952.  
  12953.  
  12954. [DIFFUSER]^Pmhdiff,^P\
  12955. [COMM    ]^Peecomm,^P\
  12956. [PANEL   ]^Peepanel,^P\
  12957. [SWITCH  ]^Peeswitch,^P\
  12958. [POWER   ]^Peepower,^P\
  12959. [FAN     ]^Pmhfan,^P\
  12960.  
  12961.  
  12962.  
  12963. [  COMMA ]^P,^P\
  12964. [ <MORE> ]$s=a4030sb
  12965. [ <DONE> ]^H$S=A4030SA ;
  12966. [<CANCEL>]^C^C(F:CLS) $S=S
  12967. **furnitur 3
  12968. [Furnitur]
  12969. [ALL]^Pfm*,^P\
  12970. [DESK    ]^Pfmdesk,^P\
  12971. [CHAIR   ]^Pfmchair,^P\
  12972. [CASE    ]^Pfmcase,^P\
  12973. [FILE    ]^Pfmfile,^P\
  12974. [TABLE   ]^Pfmtable,^P\
  12975. [PARTITN ]^Pfmpartition,^P\
  12976. [PLANT   ]^Pfmplant,^P\
  12977. [EQUIP   ]^Pfmequip,^P\
  12978. [FURNSPEC]^Pfmspec,^P\
  12979. [MISC    ]^Pfmmisc,^P\
  12980. [WD.GRAIN]^Pfmwdgrain,^P\
  12981. [  COMMA ]^P,^P\
  12982. [ <MORE> ]$s=a4030sb
  12983. [ <DONE> ]^H$S=A4030SA ;
  12984.  
  12985. [<CANCEL>]^C^C(F:CLS) $S=S
  12986. **applianc 3
  12987. [Applianc]
  12988.  
  12989.  
  12990. [ALL]^Parscabinet,ardcabinet,arappliance,arapplspec,^P\
  12991.  
  12992. [APPLIANC]^Parappliance,^P\
  12993. [APPLSPEC]^Parapplspec,^P\
  12994.  
  12995. [SCABINET]^Parscabinet,^P\
  12996. [DCABINET]^Pardcabinet,^P\
  12997.  
  12998. [  COMMA ]^P,^P\
  12999.  
  13000. [ <MORE> ]$s=a4030sb
  13001.  
  13002. [ <DONE> ]^H$S=A4030SA ;
  13003.  
  13004. [<CANCEL>]^C^C(F:CLS) $S=S
  13005. **lsite 3
  13006. [Site]
  13007. [ALL]^Pls*,^P\
  13008. [PROPRTYL]^Plspropl,^P\
  13009. [PROPRTYM]^Plspropm,^P\
  13010. [PROPRTYH]^Plsproph,^P\
  13011. [CONTOUR ]^Plscontour,^P\
  13012. [CURB    ]^Plscurb,^P\
  13013. [STRIPING]^Plsstriping,^P\
  13014. [VEHICLE ]^Plsvehicle,^P\
  13015. [UTILITY ]^Plsutil,^P\
  13016. [SIDEWALK]^Plssidewalk,^P\
  13017. [TREEDC  ]^Plstreedc,^P\
  13018. [MISC.   ]^Plsmisc,^P\
  13019. [  COMMA ]^P,^P\
  13020. [ <MORE> ]$s=a4030sb
  13021. [ <DONE> ]^H$S=A4030SA ;
  13022.  
  13023. [<CANCEL>]^C^C(F:CLS) $S=S
  13024. **ltitle 3
  13025. [title]
  13026.  
  13027. [ALL]^Partblock,arttext,arnorth,arscale,arrevision,^P\
  13028.  
  13029. [TBLOCK  ]^Partblock,^P\
  13030. [TTEXT   ]^Parttext,^P\
  13031.  
  13032. [NORTH   ]^Parnorth,^P\
  13033. [SCALE   ]^Parscale,^P\
  13034. [REVISION]^Parrevision,^P\
  13035.  
  13036. [  COMMA ]^P,^P\
  13037.  
  13038. [ <MORE> ]$s=a4030sb
  13039.  
  13040. [ <DONE> ]^H$S=A4030SA ;
  13041.  
  13042. [<CANCEL>]^C^C(F:CLS) $S=S
  13043. **at06sa 3
  13044. [HELP   ]'HELP
  13045.  
  13046. [ALP.NOTE]^C^C(F:LODF "a:ax25");(a:ax25 "at06a" "h");
  13047. [ALP.PAGE]^C^C(F:LODF "a:ax25");(a:ax25 "at06b" "h");
  13048. [BACKGRND]^C^C(F:LODF "a:ax25");(a:ax25 "at06c" "h");
  13049. [DOORS   ]^C^C(F:LODF "a:ax25");(a:ax25 "at06d" "h");
  13050. [FURNITUR]^C^C(F:LODF "a:ax25");(a:ax25 "at06e" "h");
  13051. [PARKING ]^C^C(F:LODF "a:ax25");(a:ax25 "at06f" "h");
  13052. [ROOF 3D ]^C^C(F:LODF "a:ax25");(a:ax25 "at06g" "h");
  13053. [SCHEDULE]^C^C(F:LODF "a:ax25");(a:ax25 "at06h" "h");
  13054. [STAIRS  ]^C^C(F:LODF "a:ax25");(a:ax25 "at06i" "h");
  13055. [STORFRNT]^C^C(F:LODF "a:ax25");(a:ax25 "at06j" "h");
  13056. [STR.GRID]^C^C(F:LODF "a:ax25");(a:ax25 "at06k" "h");
  13057. [STR.MEM ]^C^C(F:LODF "a:ax25");(a:ax25 "at06l" "h");
  13058. [USER DEF]^C^C(F:LODF "a:ax25");(a:ax25 "at06m" "h");
  13059.  
  13060. [ <MORE>]$s=at06sb
  13061. [ <DONE>]$s=s
  13062. **at06sb 3
  13063. [HELP   ]'HELP
  13064.  
  13065. [Space   ]
  13066. [DIAGRAMS]^C^C(F:LODF "a:ax25");(a:ax25 "at06n" "h1");
  13067. [CONVERSN]^C^C(F:LODF "a:ax25");(a:ax25 "at06o" "h1");
  13068.  
  13069. [Walls   ]
  13070. [CLEANUP ]^C^C(F:LODF "a:ax25");(a:ax25 "at06p" "h1");
  13071. [CREATION]^C^C(F:LODF "a:ax25");(a:ax25 "at06q" "h1");
  13072. [HATCHING]^C^C(F:LODF "a:ax25");(a:ax25 "at06r" "h1");
  13073. [I-WALLS ]^C^C(F:LODF "a:ax25");(a:ax25 "at06s" "h1");
  13074. [L-WALLS ]^C^C(F:LODF "a:ax25");(a:ax25 "at06t" "h1");
  13075. [U-WALLS ]^C^C(F:LODF "a:ax25");(a:ax25 "at06u" "h1");
  13076.  
  13077. [WINDOWS ]^C^C(F:LODF "a:ax25");(a:ax25 "at06v" "h1");
  13078.  
  13079. [ <LAST>]$S=at06sa
  13080. [ <DONE>]$s=s
  13081.  
  13082.  
  13083.  
  13084.  
  13085.  
  13086.  
  13087. **acad
  13088. [AUTOCAD]$S=S
  13089. [* * * *]$S=OSNAPB \$s=
  13090. [SETUP]^C^C(progn (terpri) (prompt "Warning. This routine draws another border.") +
  13091. (terpri)(load "setup")(princ)) $S=X $S=UNITS
  13092.  
  13093. [BLOCKS]$S=X $S=BL
  13094. [DIM:]$S=X $S=DIM ^C^CDIM
  13095. [DISPLAY]$S=X $S=DS
  13096. [DRAW]$S=X $S=DR
  13097. [EDIT]$S=X $S=ED
  13098. [INQUIRY]$S=X $S=INQ
  13099. [LAYER:]$S=X $S=LAYER ^C^CLAYER
  13100. [SETTINGS]$S=X $S=SET
  13101. [PLOT]$S=X $S=PLOT
  13102. [UCS:]$S=X $S=UCS1 ^C^CUCS
  13103. [UTILITY]$S=X $S=UT
  13104.  
  13105. [3D]$S=X $S=3D
  13106. [ASHADE]^C^C(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  13107. (setq *error* m:err m:err nil)(princ))(cond ((null C:SCENE)(vmon)+
  13108. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  13109. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  13110. (menucmd "S=X")(menucmd "S=ASHADE")(setq *error* m:err m:err nil))(progn (terpri);+
  13111. (prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
  13112. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  13113. (setq *error* m:err m:err nil)(princ))))+
  13114. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ASHADE")(princ))) 
  13115.  
  13116. [SAVE:]^C^CSAVE
  13117. **a4125mas 3
  13118. [Change  ]
  13119. [template]
  13120.  
  13121. [AUTOCAD ]^C^C(cond +
  13122. ((setq a (findfile "acad.mnx")) (progn(command "menu" (substr a 1(- (strlen a) 4))))) +
  13123. (T (progn (terpri)(princ " ") (terpri) (princ " ")(terpri) (princ "Cannot find acad.mnx")(princ))))
  13124.  
  13125.  
  13126.  
  13127. [        ]
  13128. [You can ]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13129. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13130. (princ))
  13131. [place   ]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13132. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13133. (princ))
  13134. [your own]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13135. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13136. (princ))
  13137. [custom  ]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13138. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13139. (princ))
  13140. [software]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13141. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13142. (princ))
  13143. [menu    ]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13144. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13145. (princ))
  13146. [calls   ]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13147. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13148. (princ))
  13149. [here    ]^C^C(progn (terpri)(prompt " ")(terpri)(prompt "Sample prompt:")(terpri)+
  13150. (prompt "See Customizing AutoCAD in the AutoCAD Reference Manual.")+
  13151. (princ))
  13152. [        ]
  13153.  
  13154. **a4125mbs 3
  13155. [Custom  ]
  13156. [Template]
  13157.  
  13158. [  1  ]^C^Cscript (strcat V:ACAS "custom1")
  13159. [  2  ]^C^Cscript (strcat V:ACAS "custom2")
  13160. [  3  ]^C^Cscript (strcat V:ACAS "custom3")
  13161. [  4  ]^C^Cscript (strcat V:ACAS "custom4")
  13162. [  5  ]^C^Cscript (strcat V:ACAS "custom5")
  13163. [  6  ]^C^Cscript (strcat V:ACAS "custom6")
  13164. [  7  ]^C^Cscript (strcat V:ACAS "custom7")
  13165. [  8  ]^C^Cscript (strcat V:ACAS "custom8")
  13166. [  9  ]^C^Cscript (strcat V:ACAS "custom9")
  13167. [ 10  ]^C^Cscript (strcat V:ACAS "custom10")
  13168. [ 11  ]^C^Cscript (strcat V:ACAS "custom11")
  13169. [ 12  ]^C^Cscript (strcat V:ACAS "custom12")
  13170. [ 13  ]^C^Cscript (strcat V:ACAS "custom13")
  13171.  
  13172. [<CANCEL>]^C^C(F:CLS) $S=S
  13173. **X 3
  13174.  
  13175.  
  13176.  
  13177.  
  13178.  
  13179.  
  13180.  
  13181.  
  13182.  
  13183.  
  13184.  
  13185.  
  13186.  
  13187.  
  13188.  
  13189. [ <LAST> ]$S= $S=
  13190. [  DRAW  ]^C^C$S=X $S=DR
  13191. [  EDIT  ]^C^C$S=X $S=ED
  13192. **HEADER
  13193. [AUTOCAD]$S=S
  13194. [* * * *]$S=OSNAPB
  13195. **BL 3
  13196. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  13197. [BASE:]$S=X $S=BASE ^C^CBASE
  13198. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  13199. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  13200. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  13201. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  13202. **DS 3
  13203.  
  13204. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  13205. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  13206. [PAN:]'PAN
  13207. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  13208. [REDRAW:]'REDRAW
  13209. [REDRALL:]'REDRAWALL
  13210. [REGEN:]^C^CREGEN
  13211. [REGNALL:]^C^CREGENALL
  13212. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  13213. [VIEW:]$S=X $S=VIEW 'VIEW
  13214. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  13215. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  13216. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  13217. **DR 3
  13218. [ARC]$S=X $S=ARC
  13219. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  13220. [CIRCLE]$S=X $S=CIRCLE
  13221. [DONUT:]$S=X $S=DONUT ^C^CDONUT
  13222. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  13223. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  13224. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  13225. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  13226. [LINE:]$S=X $S=LINE ^C^CLINE
  13227. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  13228. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  13229. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  13230.  
  13231. [<NEXT>]$S=DR2
  13232. **DR2 3
  13233. [POINT:]$S=X $S=POINT ^C^CPOINT
  13234. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  13235. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  13236. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  13237. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  13238. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  13239. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  13240.  
  13241. [3D]$S=X $S=3D
  13242.  
  13243.  
  13244.  
  13245. [previous]$S=X $S=DR
  13246.  
  13247. [__LAST__]$S= $S=
  13248. **ED 3
  13249. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  13250. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  13251. [DDATTE:]^C^CDDATTE
  13252. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  13253. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  13254. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  13255. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  13256. [COPY:]$S=X $S=COPY ^C^CCOPY
  13257. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  13258. [ERASE:]$S=X $S=ERASE ^C^Cerase
  13259. [EXPLODE:]$S=X $S=EXPLODE ^C^CEXPLODE
  13260. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  13261. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  13262. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  13263.  
  13264. [<NEXT>]$S=ED2
  13265.  
  13266. **ED2 3
  13267. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  13268. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  13269. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  13270. [PEDIT:]^C^C+
  13271. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  13272. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  13273. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  13274. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  13275. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  13276. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  13277. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  13278. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  13279. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  13280. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  13281. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  13282. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  13283. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  13284. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  13285. (setq *error* m:err m:err nil)(princ))(princ) PEDITM 
  13286. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  13287. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  13288. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  13289. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  13290. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  13291. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  13292.  
  13293.  
  13294. [previous]$S=ED
  13295.  
  13296.  
  13297. [_<LAST>_]$S=ED
  13298. **INQ 3
  13299. [AREA:]$S=X $S=AREA ^C^CAREA
  13300. [DBLIST:]^CDBLIST
  13301. [DIST:]$S=X $S=DIST ^C^CDIST
  13302. [HELP:]HELP
  13303. [ID:]$S=X $S=ID ^C^CID
  13304. [LIST:]$S=X $S=LIST ^C^CLIST
  13305. [STATUS:]^C^CSTATUS
  13306. [TIME:]^C^CTIME
  13307. **SET 3
  13308. [DDEMODES]'DDEMODES
  13309. [DDRMODES]'DDRMODES
  13310. [--------]
  13311. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  13312. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  13313. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  13314. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  13315. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  13316. [ELEV:]^C^CELEV
  13317. [GRID:]$S=X $S=GRID ^C^CGRID
  13318. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  13319. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  13320. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  13321.  
  13322. [next]$S=X $S=SET2
  13323. **SET2 3
  13324. [LTSCALE:]^C^CLTSCALE
  13325. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  13326. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  13327. [SETVAR:]$S=X $S=SETVAR 'SETVAR
  13328. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  13329. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  13330. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  13331. [UCS:]$S=X $S=UCS1 ^C^CUCS
  13332. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  13333. [UNITS:]^CUNITS
  13334. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  13335.  
  13336.  
  13337.  
  13338. [previous]$S=X $S=SET
  13339. **PLOT 3
  13340.  
  13341. [ C   D]
  13342. [ H   E]
  13343. [ O   V]
  13344. [ O   I]
  13345. [ S   C]
  13346. [ E   E]
  13347.  
  13348.  
  13349. [PLOTTER]^C^CPLOT
  13350.  
  13351. [PRINTER]^C^CPRPLOT
  13352. **UT 3
  13353. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  13354. [DXF/DXB]$S=X $S=DXF
  13355. [FILES:]^C^CFILES
  13356. [IGES]$S=X $S=IGES
  13357. [MENU:]$S=a4125mas
  13358. [PURGE:]$S=X $S=PURGE ^C^CPURGE
  13359. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  13360. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  13361. [SLIDES]$S=X $S=SLIDES
  13362.  
  13363. [External]$S=X $S=EXCOMDS
  13364. [Commands]$S=X $S=EXCOMDS
  13365.  
  13366. [END]$S=X $S=END
  13367. [QUIT]$S=X $S=QUIT
  13368. **BLOCK 3
  13369. [BLOCK:]^C^CBLOCK
  13370. ?
  13371.  
  13372. Window
  13373. Last
  13374. Previous
  13375. Crossing
  13376. Remove
  13377. Add
  13378.  
  13379. Yes
  13380. [OOPS]^C^COOPS
  13381. **INSERT 3
  13382. [INSERT:]^C^CINSERT
  13383. ?
  13384. [*]*\
  13385. corner
  13386. xyz
  13387. drag
  13388.  
  13389. Scale
  13390. Xscale
  13391. Yscale
  13392. Zscale
  13393. Rotate
  13394. **WBLOCK 3
  13395. [WBLOCK:]^C^CWBLOCK
  13396.  
  13397. =
  13398. [*]^P*^P;
  13399. [blank];
  13400.  
  13401. Window
  13402. Last
  13403. Previous
  13404. Crossing
  13405. Remove
  13406. Add
  13407. Undo
  13408. **MINSERT 3
  13409. [MINSERT:]^C^CMINSERT
  13410. ?
  13411.  
  13412. corner
  13413. xyz
  13414. drag
  13415. **DIM 3
  13416. [DIM:]^C^CDIM
  13417. [DIM1:]^C^CDIM1
  13418.  
  13419. [LINEAR]$S=DIMLINEAR
  13420. [angular]ANG
  13421. [diametr]DIAM
  13422. [radius]RAD
  13423. [center]CENTER
  13424. [leader]LEADER
  13425. [dim vars]$S=VAR1
  13426. [redraw]'redraw
  13427. [status]STAT
  13428. undo
  13429. style
  13430.  
  13431. [  EXIT  ]EXIT;(F:CLS) $S=S
  13432. [ <NEXT> ]$S=FORMAT
  13433. [<CANCEL>]^C^C(F:CLS) $S=S
  13434. **DIMLINEAR 3
  13435. [DIM:]^C^CDIM
  13436. [DIM1:]^C^CDIM1
  13437.  
  13438. [horiz]HOR
  13439. [vrtical]VERT
  13440. [aligned]ALI
  13441. [rotated]ROT
  13442.  
  13443. [baselin]BASE
  13444. [continu]CONT
  13445.  
  13446. [  EXIT  ]EXIT;(F:CLS) $S=S
  13447.  
  13448.  
  13449.  
  13450. [ <LAST> ]$S=
  13451.  
  13452. [<CANCEL>]^C^C(F:CLS);$S=S
  13453. **OF 3
  13454.  
  13455.  
  13456.  
  13457. [--------]$S=DIM ON
  13458. [        ]$S=DIM ON
  13459. [   ON   ]$S=DIM ON
  13460. [        ]$S=DIM ON
  13461. [--------]$S=DIM ON
  13462.  
  13463.  
  13464. [--------]$S=DIM OFF
  13465. [        ]$S=DIM OFF
  13466. [  OFF   ]$S=DIM OFF
  13467. [        ]$S=DIM OFF
  13468. [--------]$S=DIM OFF
  13469.  
  13470.  
  13471. [<CANCEL>]^C^C(F:CLS) $S=S
  13472. **FORMAT 3
  13473.  
  13474. [DIM:]^C^CDIM
  13475. [DIM1:]^C^CDIM1
  13476.  
  13477. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  13478. [UPDATE]$S=X $S=UPDATE UPDATE
  13479. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  13480.  
  13481.  
  13482.  
  13483.  
  13484.  
  13485.  
  13486.  
  13487.  
  13488.  
  13489. [DIM MENU]$S=DIM ^C^CDIM
  13490. [<CANCEL>]^C^C(F:CLS) $S=S
  13491. **HOMETEXT 3
  13492. [DIM:]^C^CDIM
  13493. [DIM1:]^C^CDIM1
  13494.  
  13495. HOMETEXT
  13496.  
  13497. Window
  13498. Last
  13499. Previous
  13500. Crossing
  13501. Remove
  13502. Add
  13503. Undo
  13504.  
  13505.  
  13506.  
  13507.  
  13508. [DIM MENU]$S=DIM ^C^CDIM
  13509. [<CANCEL>]^C^C(F:CLS) $S=S
  13510. **UPDATE 3
  13511. [DIM:]^C^CDIM
  13512. [DIM1:]^C^CDIM1
  13513.  
  13514. UPDATE
  13515.  
  13516. Window
  13517. Last
  13518. Previous
  13519. Crossing
  13520. Remove
  13521. Add
  13522. Undo
  13523.  
  13524.  
  13525.  
  13526.  
  13527. [DIM MENU]$S=DIM ^C^CDIM
  13528. [<CANCEL>]^C^C(F:CLS) $S=S
  13529. **NEWTEXT 3
  13530. [DIM:]^C^CDIM
  13531. [DIM1:]^C^CDIM1
  13532.  
  13533. [NEWTEXT]NEWTEXT
  13534.  
  13535. Window
  13536. Last
  13537. Previous
  13538. Crossing
  13539. Remove
  13540. Add
  13541. Undo
  13542.  
  13543.  
  13544.  
  13545.  
  13546. [DIM MENU]$S=DIM ^C^CDIM
  13547. [<CANCEL>]^C^C(F:CLS) $S=S
  13548. **ATTDEF 3
  13549. [ATTDEF:]^C^CATTDEF
  13550.  
  13551. Invisibl
  13552. Constant
  13553. Verify
  13554. [Preset]P
  13555.  
  13556. Aligned
  13557. [Centered]C
  13558. Fit
  13559. Middle
  13560. Right
  13561. Style
  13562. **BASE 3
  13563. [BASE:]^C^CBASE
  13564. **LAYER 3
  13565. [DDLMODES]'DDLMODES
  13566. [LAYER:]^C^CLAYER
  13567. [?]? *
  13568.  
  13569. Make
  13570. Set
  13571. New
  13572. ON
  13573. OFF
  13574. [Color]COLOR $S=LACOLOR \$S=
  13575. [Ltype]LTYPE $S=LALT \$S=
  13576. Freeze
  13577. Thaw
  13578. **LACOLOR 3
  13579. [COLOR]
  13580.  
  13581. [red]RED
  13582. [yellow]YELLOW
  13583. [green]GREEN
  13584. [cyan]CYAN
  13585. [blue]BLUE
  13586. [magenta]MAGENTA
  13587. [white]WHITE
  13588.  
  13589.  
  13590.  
  13591. **LALT 3
  13592. [LINETYPE]
  13593.  
  13594. [contin.]CONTINUOUS
  13595. [dashed]DASHED
  13596. [hidden]HIDDEN
  13597. [center]CENTER
  13598. [phantom]PHANTOM
  13599. [dot]DOT
  13600. [dashdot]dashdot
  13601. [border]border
  13602. [divide]divide
  13603.  
  13604. **ZOOM 3
  13605. [ZOOM:]^C^C'ZOOM
  13606.  
  13607. All
  13608. [Center]C
  13609. [Dynamic]D
  13610. Extents
  13611. Left
  13612. Previous
  13613. Window
  13614.  
  13615. Yes
  13616. No
  13617. **ATTDISP 3
  13618. [ATTDISP:]^C^CATTDISP
  13619.  
  13620. normal
  13621. ON
  13622. OFF
  13623. **PAN 3
  13624. [PAN:]^C^CPAN
  13625. **DVIEW 3
  13626. [DVIEW:]^C^CDview
  13627.  
  13628. Window
  13629. Last
  13630. Previous
  13631. Crossing
  13632. Remove
  13633. Add
  13634.  
  13635. [By Layer](defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  13636. (progn (setq m:err *error* *error* berror);+
  13637. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  13638. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  13639. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) 
  13640. [--------]
  13641. [Dviewblk]^C^CDVIEW;;
  13642.  
  13643. [ Dview ]$S=X $S=DVIEW1
  13644. [Options]$S=X $S=DVIEW1
  13645. **DVIEW1 3
  13646. CAmera
  13647. TArget
  13648. Distance
  13649. POints
  13650. PAn
  13651. Zoom
  13652. TWist
  13653. [CLip]Clip $S=X $S=DVIEW2
  13654. Hide
  13655. Off
  13656. Undo
  13657.  
  13658. [eXit]Exit $S=X $S=S
  13659. **DVIEW2 3
  13660. [Back]Back $S=X $S=BACK
  13661. [Front]Front $S=X $S=FRONT
  13662. [Off]Off $S=X $S=DVIEW1
  13663. **BACK 3
  13664. [ back]
  13665. [clipping]
  13666.  
  13667. [ON]On $S=X $S=DVIEW1
  13668. [OFF]Off $S=X $S=DVIEW1
  13669. **FRONT 3
  13670. [ front]
  13671. [clipping]
  13672.  
  13673. [ON]On $S=X $S=DVIEW1
  13674. [OFF]Off $S=X $S=DVIEW1
  13675.  
  13676. [Eye]Eye $S=X $S=DVIEW1
  13677. **RGNAUTO 3
  13678. [RGNAUTO:]^C^CREGENAUTO
  13679.  
  13680. ON
  13681. OFF
  13682. **VIEW 3
  13683. [VIEW:]^C^CVIEW
  13684. ?
  13685.  
  13686. Delete
  13687. Restore
  13688. Save
  13689. Window
  13690. **VPORTS 3
  13691. [VPORTS:]^C^CVPORTS
  13692.  
  13693. Save
  13694. Restore
  13695. Delete
  13696. Join
  13697. Single
  13698. ?
  13699.  
  13700. [2]2 $S=X $S=VP2
  13701. [3]3 $S=X $S=VP3
  13702. 4
  13703. **VP2 3
  13704.  
  13705. [Horizont]H $S=X $S=VPORTS
  13706. [Vertical]V $S=X $S=VPORTS
  13707. **VP3 3
  13708.  
  13709. [Horizont]H $S=X $S=VPORTS
  13710. [Vertical]V $S=X $S=VPORTS
  13711. [Above]A $S=X $S=VPORTS
  13712. [Below]B $S=X $S=VPORTS
  13713. [Left]L $S=X $S=VPORTS
  13714. [Right]R $S=X $S=VPORTS
  13715. **LINE 3
  13716. [LINE:]^C^CLINE
  13717.  
  13718. [continue]^C^CLINE;;
  13719. close
  13720. undo
  13721. .x
  13722. .y
  13723. .z
  13724. .xy
  13725. .xz
  13726. .yz
  13727. **3D 3
  13728. [EDGSURF:]^C^CEDGESURF
  13729. [REVSURF:]^C^CREVSURF
  13730. [RULSURF:]^C^CRULESURF
  13731. [TABSURF:]^C^CTABSURF
  13732.  
  13733. [Surftb1:]'SETVAR SURFTAB1
  13734. [Surftb2:]'SETVAR SURFTAB2
  13735.  
  13736. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  13737. [3DMESH:]^C^C3DMESH
  13738. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  13739.  
  13740. [  3d   ]^C^C(progn(setq m:err *error*)(princ))+
  13741. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  13742. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  13743. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  13744. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  13745. (prompt "Check installation of the Support Files and try again.");+
  13746. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  13747. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  13748. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);
  13749. [objects]^C^C(progn(setq m:err *error*)(princ))+
  13750. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  13751. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  13752. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  13753. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  13754. (prompt "Check installation of the Support Files and try again.");+
  13755. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  13756. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  13757. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);
  13758.  
  13759. **3D2 3
  13760.  
  13761. Box
  13762. Cone
  13763. Dish
  13764. Dome
  13765. Mesh
  13766. Pyramid
  13767. Sphere
  13768. Torus
  13769. Wedge
  13770. **ELEVTHK 3
  13771. [ELEV:]^C^CELEV
  13772.  
  13773. [CHANGE:]^C^CCHANGE
  13774. Window
  13775. Last
  13776. Previous
  13777. Crossing
  13778. Remove
  13779. Add
  13780. Undo
  13781. [Elev]PROP E
  13782. [Thick]PROP T
  13783. **HIDE 3
  13784. [HIDE ?]
  13785.  
  13786. [YES]^C^CHIDE
  13787. [NO]$S= $S=
  13788. **VPOINT 3
  13789. [VPOINT:]^C^CVPOINT
  13790.  
  13791. [rotate]rotate;
  13792. [axes];
  13793. [plan]none 0,0,1
  13794.  
  13795. [HIDE:]$S=X $S=HIDE
  13796. **VPOINT3D 3
  13797. [ Angle  ]^C^CVPOINT R;;
  13798. [from XY ]^C^CVPOINT R;;
  13799. [ Plane  ]^C^CVPOINT R;;
  13800. [    +80 ]<<80
  13801. [    +60 ]<<60
  13802. [    +45 ]<<45
  13803. [    +30 ]<<30
  13804. [    +10 ]<<10
  13805. [      0 ]<<0.0000001
  13806. [    -10 ]<<350
  13807. [    -30 ]<<330
  13808. [    -45 ]<<315
  13809. [    -60 ]<<300
  13810. [    -80 ]<<280
  13811. **PLINE 3
  13812. [PLINE:]^C^CPLINE
  13813.  
  13814. [Arc]ARC $S=PARC
  13815. close
  13816. length
  13817. undo
  13818. width
  13819. halfwid
  13820.  
  13821. [FILL ON]'SETVAR FILLMODE 1
  13822. [FILL OFF]'SETVAR FILLMODE 0
  13823. **PARC 3
  13824. [POLYARC]
  13825.  
  13826. [angle]$S=X $S=PARCANG A
  13827. [CEnter]$S=X $S=PARCEN CE
  13828. [tanDir]DIR \DRAG
  13829. [Radius]$S=X $S=PARCRAD R
  13830. [2nd PT]S \DRAG
  13831. [CLose]$S=X $S=PLINE CLOSE
  13832.  
  13833. undo
  13834.  
  13835. [contline]$S=X $S=PLINE L
  13836.  
  13837. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  13838. **PARCANG 3
  13839. [ANGLE]
  13840.  
  13841. [center]C drag $S=X $S=PARC
  13842. [radius]R \ $S=X $S=PARC
  13843. [drag]drag $S=X $S=PARC
  13844. **PARCEN 3
  13845. [CENTER]
  13846.  
  13847. [angle]A drag $S=X $S=PARC
  13848. [length]L drag $S=X $S=PARC
  13849. [drag]drag $S=X $S=PARC
  13850. **PARCRAD 3
  13851. [RADIUS]
  13852.  
  13853. [angle]A \drag $S=X $S=PARC A \drag
  13854. [drag]drag $S=X $S=PARC
  13855. **OFFSET 3
  13856. [OFFSET:]^C^COFFSET
  13857.  
  13858. Through
  13859. [last];
  13860. **ARC 3
  13861. [ARC]
  13862.  
  13863. [3-point:]^C^CARC \\DRAG
  13864. [S,C,E:]^C^CARC \C \DRAG
  13865. [S,C,A:]^C^CARC \C \A DRAG
  13866. [S,C,L:]^C^CARC \C \L DRAG
  13867. [S,E,A:]^C^CARC \E \A
  13868. [S,E,R:]^C^CARC \E \R
  13869. [S,E,D:]^C^CARC \E \D DRAG
  13870. [C,S,E:]^C^CARC C \\DRAG
  13871. [C,S,A:]^C^CARC C \\A DRAG
  13872. [C,S,L:]^C^CARC C \\L DRAG
  13873. [CONTIN:]^C^CARC ;DRAG
  13874. **CIRCLE 3
  13875. [CIRCLE]
  13876.  
  13877. [CEN,RAD:]^C^CCIRCLE \DRAG
  13878. [CEN,DIA:]^C^CCIRCLE \D
  13879. [2 POINT:]^C^CCIRCLE 2P \DRAG
  13880. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  13881. [TTR:]^C^CCIRCLE TTR
  13882. **ASHADE 3
  13883.  
  13884. [Requires]
  13885. [ASHADE ]
  13886. [program]
  13887.  
  13888. [   *    ]
  13889.  
  13890. [contact]
  13891. [your]
  13892. [Dealer]
  13893. [for info]
  13894. **ELLIPSE 3
  13895. [ELLIPSE:]^C^CELLIPSE
  13896.  
  13897. [Center]C
  13898. Rotation
  13899. Iso
  13900. Diameter
  13901. **POLYGON 3
  13902. [POLYGON:]^C^CPOLYGON
  13903.  
  13904. Edge
  13905. [I-scribe]I
  13906. [C-scribe]C
  13907. **SHAPE 3
  13908. [SHAPE:]^C^CSHAPE
  13909. ?
  13910.  
  13911. [LOAD:]^C^CLOAD
  13912. ?
  13913. **DONUT 3
  13914. [DONUT:]^C^CDONUT
  13915. **SKETCH 3
  13916. [SKETCH:]^C^CSKETCH
  13917.  
  13918. Connect
  13919. Erase
  13920. Record
  13921.  
  13922. [eXit]x
  13923. quit
  13924.  
  13925. [-------]'SETVAR SKPOLY 1
  13926. [SKPOLY:]'SETVAR SKPOLY 1
  13927. [SKLINE:]'SETVAR SKPOLY 0
  13928. [-------]'SETVAR SKPOLY 0
  13929. **SOLID 3
  13930. [SOLID:]^C^CSOLID
  13931.  
  13932. [FILL ON]'SETVAR FILLMODE 1
  13933. [FILL OFF]'SETVAR FILLMODE 0
  13934. **POINT 3
  13935. [POINT:]^C^CPOINT
  13936. .x
  13937. .y
  13938. .z
  13939. .xy
  13940. .xz
  13941. .yz
  13942.  
  13943. [Complex]
  13944. [Points]
  13945. [example:]^C^CVSLIDE points
  13946. [remove]^C^CREDRAW
  13947. [example:]^C^CREDRAW
  13948. [Pdmode:]'SETVAR PDMODE
  13949. [Pdsize:]'SETVAR PDSIZE
  13950. **POINT 3
  13951. [POINT:]^C^CPOINT
  13952. .x
  13953. .y
  13954. .z
  13955. .xy
  13956. .xz
  13957. .yz
  13958.  
  13959. [Complex]
  13960. [Points]
  13961. [example:]^C^CVSLIDE points
  13962. [remove]^C^CREDRAW
  13963. [example:]^C^CREDRAW
  13964. [Pdmode:]'SETVAR PDMODE
  13965. [Pdsize:]'SETVAR PDSIZE
  13966. **HATCH 3
  13967. [HATCH:]^C^CHATCH
  13968. ?
  13969.  
  13970. u
  13971. u,o
  13972. u,i
  13973. Yes
  13974.  
  13975. Window
  13976. Last
  13977. Previous
  13978. Crossing
  13979. Remove
  13980. Add
  13981. Undo
  13982. **3DFACE 3
  13983. [3DFACE:]^C^C3DFACE
  13984.  
  13985. .x
  13986. .y
  13987. .z
  13988. .xy
  13989. .xz
  13990. .yz
  13991.  
  13992. [Invisibl]I
  13993.  
  13994. [ShowEdge](setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) 
  13995. [HideEdge](setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) 
  13996.  
  13997. **3DPOLY 3
  13998. [3DPOLY:]^C^C3DPOLY
  13999.  
  14000. Close
  14001. Undo
  14002. .x
  14003. .y
  14004. .z
  14005. .xy
  14006. .xz
  14007. .yz
  14008. **ID 3
  14009. [ID:]^C^CID
  14010.  
  14011. .x
  14012. .y
  14013. .z
  14014. .xy
  14015. .xz
  14016. .yz
  14017. **LIMITS 3
  14018. [LIMITS:]^C^CLIMITS
  14019.  
  14020. ON
  14021. OFF
  14022. **UCS1 3
  14023. [UCS:]^C^CUCS
  14024. [DDUCS:]^C^CDDUCS
  14025.  
  14026. ?
  14027. Previous
  14028. Restore
  14029. [Save]S
  14030. Delete
  14031. World
  14032.  
  14033. [RENAME:]^C^CRename UCS
  14034. [Follow:]'SETVAR UCSFOLLOW
  14035.  
  14036. [next]$S=X $S=UCS2
  14037. **UCS2 3
  14038. [UCS:]$S=X $S=UCS1 ^C^CUCS
  14039.  
  14040. Origin
  14041. Zaxis
  14042. 3point
  14043.  
  14044. X
  14045. Y
  14046. Z
  14047.  
  14048. View
  14049. Entity
  14050.  
  14051. [previous]$S=X $S=UCS1
  14052. **UCSICON 3
  14053. [UCSICON:]^C^CUCSICON
  14054.  
  14055. ON
  14056. OFF
  14057.  
  14058. All
  14059. Origin
  14060. Noorigin
  14061. **PLAN 3
  14062. [PLAN:]^C^CPLAN
  14063.  
  14064. Current
  14065. UCS
  14066. World
  14067.  
  14068. [Follow:]'SETVAR UCSFOLLOW
  14069. **LIST 3
  14070. [LIST:]^C^CLIST
  14071.  
  14072. Window
  14073. Last
  14074. Previous
  14075. Crossing
  14076. Remove
  14077. Add
  14078. Undo
  14079. **AREA 3
  14080. [AREA:]^C^CAREA
  14081.  
  14082. Entity
  14083. Add
  14084. Subtract
  14085. **DIST 3
  14086. [DIST:]^C^CDIST
  14087. **TEXT 3
  14088. [TEXT:]^C^C(F:UNDO);TEXT
  14089. [DTEXT:]^C^C(F:UNDO);DTEXT
  14090.  
  14091. [centered]C
  14092. right
  14093. aligned
  14094. middle
  14095. fit
  14096. style
  14097.  
  14098. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  14099. **TEXTSET 5
  14100. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
  14101.  
  14102. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2
  14103.  
  14104. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  14105. **STYLE 3
  14106. [STYLE:]^C^CSTYLE
  14107. ?
  14108.  
  14109. [Fonts]$S=X $S=F1
  14110.  
  14111. Yes
  14112. No
  14113.  
  14114. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  14115. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  14116. **F1 3
  14117. Cyrillic
  14118. Cyriltlc
  14119. Greekc
  14120. Greeks
  14121. Gothice
  14122. Gothicg
  14123. Gothici
  14124. Italicc
  14125. Italict
  14126. Romanc
  14127. Romand
  14128. Romans
  14129.  
  14130.  
  14131.  
  14132.  
  14133. [next]$S=X $S=F2
  14134. [STYLMNU]$S=X $S=STYLE
  14135. **F2 3
  14136. Romant
  14137. Scriptc
  14138. Scripts
  14139. Syastro
  14140. Symap
  14141. Symath
  14142. Symeteo
  14143. Symusic
  14144.  
  14145.  
  14146.  
  14147.  
  14148.  
  14149.  
  14150.  
  14151.  
  14152. [previous]$S=X $S=F1
  14153. [STYLMNU]$S=X $S=STYLE
  14154. **DTEXT 3
  14155. [DTEXT:]^C^C(F:UNDO);DTEXT
  14156. [TEXT:]^C^C(F:UNDO);TEXT
  14157.  
  14158. [centered]C
  14159. right
  14160. aligned
  14161. middle
  14162. fit
  14163. style
  14164.  
  14165. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  14166. **AXIS 3
  14167. [AXIS:]^C^CAXIS
  14168.  
  14169. [axs=snap]SNAP
  14170.  
  14171. ON
  14172. OFF
  14173. Aspect
  14174. **BLIPMODE 3
  14175. [BLIPS:]^C^CBLIPMODE
  14176.  
  14177. ON
  14178. OFF
  14179. **END 3
  14180. END ?
  14181.  
  14182. [Yes]^C^CEND
  14183. [No]$S=S
  14184. **quit 3
  14185. quit ?
  14186.  
  14187. [Yes]^C^Cquit Y
  14188. [No]$S=S
  14189. **VAR1 3
  14190. [dimalt]$S=OF DIMALT \
  14191. [dimaltd]DIMALTD \
  14192. [dimaltf]DIMALTF \
  14193. [dimapost]DIMAPOST \
  14194. [dimaso]$S=OF DIMASO \
  14195. [dimasz]DIMASZ \
  14196. [--------]
  14197. [dimblk]DIMBLK \
  14198. [dimblk1]DIMBLK1 \
  14199. [dimblk2]DIMBLK2 \
  14200. [dimcen]DIMCEN \
  14201. [dimdle]DIMDLE \
  14202. [dimdli]DIMDLI \
  14203. [dimexe]DIMEXE \
  14204. [--------]
  14205. [next]$S=VAR2
  14206. [DIM MENU]$S=DIM
  14207. [<CANCEL>]^C^C(F:CLS) $S=S
  14208. **VAR2 3
  14209. [dimexo]DIMEXO \
  14210. [dimlfac]DIMLFAC \
  14211. [dimlim]$S=OF DIMLIM \
  14212. [dimpost]DIMPOST \
  14213. [dimrnd]DIMRND \
  14214. [dimsah]$S=OF DIMSAH \
  14215. [dimscale]DIMSCALE \
  14216. [dimse1]$S=OF DIMSE1 \
  14217. [dimse2]$S=OF DIMSE2 \
  14218. [dimsho]$S=OF DIMSHO \
  14219. [dimsoxd]$S=OF DIMSOXD \
  14220. [dimtad]$S=OF DIMTAD \
  14221. [dimtih]$S=OF DIMTIH \
  14222. [dimtix]$S=OF DIMTIX \
  14223.  
  14224. [previous]$S=VAR1
  14225. [next]$S=VAR3
  14226. [DIM MENU]$S=DIM
  14227. **VAR3 3
  14228. [dimtm]DIMTM \
  14229. [dimtofl]$S=OF DIMTOFL \
  14230. [dimtoh]$S=OF DIMTOH \
  14231. [dimtol]$S=OF DIMTOL \
  14232. [dimtp]DIMTP \
  14233. [dimtsz]DIMTSZ \
  14234. [dimtvp]DIMTVP \
  14235. [dimtxt]DIMTXT \
  14236. [dimzin]$S=DIMZIN DIMZIN \
  14237.  
  14238.  
  14239.  
  14240.  
  14241.  
  14242. [previous]$S=VAR2
  14243. [DIMMENU]$S=DIM
  14244.  
  14245. [<CANCEL>]^C^C(F:CLS) $S=S
  14246. **DIMZIN 4
  14247. [  New]
  14248. [ Dimzin]
  14249. [ Value]
  14250.  
  14251.  
  14252.  
  14253.  
  14254. [0]$S= $S= 0
  14255. [1]$S= $S= 1
  14256. [2]$S= $S= 2
  14257. [3]$S= $S= 3
  14258. **LINETYPE 3
  14259. [LINETYP:]^C^CLINETYPE
  14260. ?
  14261.  
  14262. Load
  14263. Create
  14264. [Set]S $S=CHLT \$S=
  14265.  
  14266. Yes
  14267. No
  14268. **LIMITS 3
  14269. [LIMITS:]^C^CLIMITS
  14270.  
  14271. On
  14272. Off
  14273. **SNAP 3
  14274. [SNAP:]^C^CSNAP
  14275.  
  14276. ON
  14277. OFF
  14278. [Aspect]$S=X ASPECT
  14279. [Rotate]$S=X ROTATE
  14280. [Style]S $S=SNAPSTYLE
  14281. **SNAPSTYLE 11
  14282. Iso
  14283. Standard
  14284. **TABLET 3
  14285. [TABLET:]^C^CTABLET
  14286.  
  14287. cal
  14288. [CONFIG]CFG 4 25 9 11 9 9 13 25 7 Y
  14289. [RE-CFG]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  14290. ON
  14291. OFF
  14292. Yes
  14293. No
  14294. **OSNAPC 3
  14295. [OSNAP:]^C^COSNAP
  14296.  
  14297. [CENter]^PCENTER,^P\
  14298. [ENDpoint]^PENDPOINT^P\
  14299. [INSert]^PINSERT^P\
  14300. [INTersec]^PINTERSEC^P\
  14301. [MIDpoint]^PMIDPOINT^P\
  14302. [NEArest]^PNEAREST^P\
  14303. [NODe]^PNODE^P\
  14304. [PERpend]^PPERPEND^P\
  14305. [QUAdrant]^PQUADRANT^P\
  14306. [TANgent]^PTANGENT^P\
  14307.  
  14308. [,]^P,^P\
  14309. **DRAGMODE 3
  14310. [DRAGMODE]^C^CDRAGMODE
  14311.  
  14312. [ON]ON $S=S
  14313. [OFF]OFF $S=S
  14314. [Auto]A $S=S
  14315. **ELEV 3
  14316. [ELEV:]^C^CELEV
  14317. **GRID 3
  14318. [GRID:]^C^CGRID
  14319.  
  14320. [grd=snap]SNAP
  14321.  
  14322. ON
  14323. OFF
  14324. Aspect
  14325. **HANDLES 3
  14326. [HANDLES:]^C^CHANDLES
  14327.  
  14328. [ON]ON
  14329. [DESTROY]DESTROY
  14330.  
  14331. **SETVAR 3
  14332. [SETVAR:]^C^CSETVAR
  14333. ?
  14334.  
  14335. ['SETVAR]'SETVAR
  14336. **QTEXT 3
  14337. [QTEXT:]^C^C(F:UNDO);QTEXT
  14338.  
  14339. ON
  14340. OFF
  14341. [REGEN:]REGEN
  14342. **VIEWRES 3
  14343. [VIEWRES:]^C^CVIEWRES
  14344.  
  14345. No
  14346. Yes
  14347.  
  14348. 100
  14349. 500
  14350.  
  14351. [RGNAUTO:]^C^CREGENAUTO
  14352. **APERTURE 3
  14353.  
  14354.  
  14355. [--------]'SETVAR APERTURE $S=APVAL
  14356. [        ]'SETVAR APERTURE $S=APVAL
  14357. [APERTUR:]'SETVAR APERTURE $S=APVAL
  14358. [        ]'SETVAR APERTURE $S=APVAL
  14359. [--------]'SETVAR APERTURE $S=APVAL
  14360.  
  14361.  
  14362. [--------]'SETVAR PICKBOX $S=APVAL
  14363. [        ]'SETVAR PICKBOX $S=APVAL
  14364. [PICKBOX:]'SETVAR PICKBOX $S=APVAL
  14365. [        ]'SETVAR PICKBOX $S=APVAL
  14366. [--------]'SETVAR PICKBOX $S=APVAL
  14367.  
  14368.  
  14369.  
  14370. [<CANCEL>]$S=S
  14371. **APVAL 3
  14372. [Number  ]
  14373. [values  ]
  14374.  
  14375. [1]^P1^P;$S=
  14376. [2]^P2^P;$S=
  14377. [3]^P3^P;$S=
  14378. [4]^P4^P;$S=
  14379. [5]^P5^P;$S=
  14380. [6]^P6^P;$S=
  14381. [7]^P7^P;$S=
  14382. [8]^P8^P;$S=
  14383. [9]^P9^P;$S=
  14384. [10]^P10^P;$S=
  14385. [15]^P15^P;$S=
  14386. **ARRAY 3
  14387. [ARRAY:]^C^CARRAY
  14388.  
  14389. Window
  14390. Last
  14391. Previous
  14392. Crossing
  14393. Remove
  14394. Add
  14395. Undo
  14396.  
  14397. Rectang
  14398. Polar
  14399. Circular
  14400. Yes
  14401. **EXPLODE 3
  14402. [EXPLODE:]^C^CEXPLODE
  14403. **ROTATE 3
  14404. [ROTATE:]^C^CROTATE
  14405.  
  14406. Window
  14407. Last
  14408. Previous
  14409. Crossing
  14410. Remove
  14411. Add
  14412. Undo
  14413.  
  14414. Referenc
  14415. **SELECT 3
  14416. [SELECT:]^C^CSELECT
  14417.  
  14418. Window
  14419. Last
  14420. Previous
  14421. Crossing
  14422. Remove
  14423. Add
  14424. Undo
  14425. **SCALE 3
  14426. [SCALE:]^C^CSCALE
  14427.  
  14428. Window
  14429. Last
  14430. Previous
  14431. Crossing
  14432. Remove
  14433. Add
  14434. Undo
  14435.  
  14436. Referenc
  14437. **XFORM 3
  14438. [XFORM:]^C^CXFORM
  14439.  
  14440. Window
  14441. Last
  14442. Previous
  14443. Crossing
  14444. Remove
  14445. Add
  14446. Undo
  14447.  
  14448. Referenc
  14449. **BREAK 3
  14450. [BREAK:]^C^CBREAK
  14451.  
  14452. First
  14453. @
  14454. **BREAK2P 3
  14455. [BREAK:]^C^CBREAK \F
  14456. **BREAKSPL 3
  14457. [BREAK:]^C^CBREAK \F \@
  14458. **MOVE 3
  14459. [MOVE:]^C^CMOVE
  14460.  
  14461. Window
  14462. Last
  14463. Previous
  14464. Crossing
  14465. Remove
  14466. Add
  14467. Undo
  14468. **COPY 3
  14469. [COPY:]^C^CCOPY
  14470.  
  14471. Window
  14472. Last
  14473. Previous
  14474. Crossing
  14475. Remove
  14476. Add
  14477. Undo
  14478.  
  14479. Multiple
  14480. **XYMOVE 3
  14481. [MOVE:]^C^C$s=x $s=xymove (F:UNDO);(F:ERR) (F:LODF "a:move") move:;
  14482.  
  14483. Window
  14484. Last
  14485. Previous
  14486. Crossing
  14487. Remove
  14488. Add
  14489. Undo
  14490.  
  14491. **XYCOPY 3
  14492. [COPY:]^C^C$s=x $s=xycopy (F:UNDO);(F:ERR) (F:LODF "a:copy") copy:;
  14493.  
  14494. Window
  14495. Last
  14496. Previous
  14497. Crossing
  14498. Remove
  14499. Add
  14500. Undo
  14501.  
  14502. Multiple
  14503.  
  14504. **UNDO 3
  14505. [UNDO:]^C^CUNDO
  14506.  
  14507. [Back 1]^C^CUNDO 1
  14508.  
  14509. [Auto]$S=X $S=UNDOA Auto
  14510. Back
  14511. End
  14512. Group
  14513. Mark
  14514. [Control]$S=X $S=UNDOC Control
  14515.  
  14516. Yes
  14517. No
  14518.  
  14519. [REDO:]REDO
  14520. **UNDOC 3
  14521. All
  14522. None
  14523. One
  14524. **UNDOA 3
  14525. On 
  14526. Off
  14527. **ERASE 3
  14528. [ERASE:]^C^C$s=x $s=erase erase
  14529.  
  14530. Window
  14531. Last
  14532. Previous
  14533. Crossing
  14534. Remove
  14535. Add
  14536. Undo
  14537.  
  14538.  
  14539. [OOPS:]^C^COOPS
  14540. **PSEL 3
  14541.  
  14542. Window
  14543. Last
  14544. Crossing
  14545.  
  14546. Yes
  14547. No
  14548. **P0 3
  14549. [PEDIT:]^C^C+
  14550. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  14551. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  14552. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  14553. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  14554. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  14555. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  14556. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  14557. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  14558. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  14559. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  14560. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  14561. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  14562. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  14563. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  14564. (setq *error* m:err m:err nil)(princ))(princ) PEDITM
  14565.    
  14566. Close
  14567. Open
  14568. Join
  14569. Width
  14570. [Ed Vrtx]E $S=X $S=PVERTED
  14571. [Fit Curv]Fit
  14572. Spline
  14573. Decurve
  14574. [Undo]U
  14575. [eXit]X $S=X $S=S
  14576.  
  14577. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  14578. **P8 3
  14579. [PEDIT:]^C^C+
  14580. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  14581. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  14582. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  14583. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  14584. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  14585. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  14586. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  14587. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  14588. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  14589. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  14590. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  14591. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  14592. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  14593. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  14594. (setq *error* m:err m:err nil)(princ))(princ) PEDITM
  14595.  
  14596. Close
  14597. Open
  14598. [Ed Vrtx]E $S=X $S=3DPVERTED
  14599. Spline
  14600. Decurve
  14601. [Undo]U
  14602. [eXit]X $S=X $S=S
  14603.  
  14604. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  14605. **P16 3
  14606. [PEDIT:]^C^C
  14607. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  14608. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  14609. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  14610. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  14611. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  14612. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  14613. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  14614. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  14615. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  14616. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  14617. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  14618. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  14619. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  14620. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  14621. (setq *error* m:err m:err nil)(princ))(princ) PEDITM
  14622.  
  14623. [Ed Vrtx]E $S=X $S=3DMVERTED
  14624. Smooth
  14625. Desmooth
  14626. [Mclose]M
  14627. [Nclose]N
  14628. [Mopen]M
  14629. [Nopen]N
  14630.  
  14631. [Undo]U
  14632. [eXit]X $S=X $S=S
  14633.  
  14634. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  14635. **PVERTED 3
  14636. [ED VRTX]
  14637.  
  14638. Next
  14639. Previous
  14640. Break
  14641. Insert
  14642. Move
  14643. Straight
  14644. Width
  14645. Tangent
  14646. Go
  14647. Regen
  14648. [Undo]X U $S=X $S=P0
  14649. [eXit]X $S=X $S=P0
  14650. **3DPVERTED 3
  14651. [ED VRTX]
  14652.  
  14653. Next
  14654. Previous
  14655. Break
  14656. Insert
  14657. Move
  14658. Regen
  14659. Straight
  14660. [eXit]X $S=X $S=P8
  14661. **3DMVERTED 3
  14662. [ED VRTX]
  14663.  
  14664. Next
  14665. Previous
  14666. Left
  14667. Right
  14668. Up
  14669. Down
  14670. Move
  14671. Regen
  14672. [eXit]X $S=X $S=P16
  14673. **PVARS 3
  14674. [Polyvars]$i=poly $i=*
  14675.  
  14676. [SPLframe]'SETVAR SPLFRAME
  14677. [ On]1
  14678. [ Off]0
  14679. [SPLsegs]'SETVAR SPLINESEGS
  14680. [SPLtype]'SETVAR SPLINETYPE
  14681. [ Quad]5
  14682. [ Cubic]6
  14683. [SURFtype]'SETVAR SURFTYPE
  14684. [ Quad]5
  14685. [ Cubic]6
  14686. [ Bezier]8
  14687. [UDensity]'SETVAR SURFU
  14688. [VDensity]'SETVAR SURFV
  14689. **TRIM 3
  14690. [TRIM:]^C^CTRIM
  14691.  
  14692. Window
  14693. Last
  14694. Previous
  14695. Crossing
  14696. Remove
  14697. Add
  14698. Undo
  14699. **ATTEXT 3
  14700. [ATTEXT:]^C^CATTEXT
  14701.  
  14702. CDF
  14703. SDF
  14704. DXF
  14705. ENTITIES
  14706.  
  14707. Window
  14708. Last
  14709. Previous
  14710. Crossing
  14711. Remove
  14712. Add
  14713. Undo
  14714. **SLIDES 3
  14715. [MSLIDE:]^C^CMSLIDE;
  14716.  
  14717. Yes
  14718. No
  14719.  
  14720. [VSLIDE:]^C^CVSLIDE;
  14721. **SCRIPT 3
  14722. [SCRIPT:]^C^CSCRIPT
  14723.  
  14724. [DELAY:]^C^CDELAY
  14725. [RESUME:]^C^CRESUME
  14726. [RSCRIPT:]^C^CRSCRIPT
  14727. **PURGE 3
  14728. [PURGE:]^C^CPURGE
  14729. Block
  14730. LAyer
  14731. LType
  14732. Style
  14733. Shape
  14734. All
  14735.  
  14736. Yes
  14737. No
  14738. **RENAME 3
  14739. [RENAME:]^C^CRENAME
  14740.  
  14741. Block
  14742. LAyer
  14743. LType
  14744. Style
  14745. Ucs
  14746. VIew
  14747. VPort
  14748.  
  14749. **DXF 3
  14750. [DXFIN:]^C^CDXFIN
  14751.  
  14752. [DXFOUT:]^C^CDXFOUT
  14753. 16
  14754. ENTITIES
  14755.  
  14756. Window
  14757. Last
  14758. Previous
  14759. Crossing
  14760. Remove
  14761. Add
  14762. Undo
  14763.  
  14764. [DXBIN:]^C^CDXBIN
  14765. **IGES 3
  14766. [IGESIN:]^C^CIGESIN
  14767.  
  14768. [IGESOUT:]^C^CIGESOUT
  14769. **EXTEND 3
  14770. [EXTEND:]^C^CEXTEND
  14771.  
  14772. Window
  14773. Last
  14774. Previous
  14775. Crossing
  14776. Remove
  14777. Add
  14778. Undo
  14779.  
  14780. [SELECT:]^C^CSELECT
  14781. [ZOOM W:]^C^CZOOM W
  14782.  
  14783. **STRETCH 3
  14784. [STRETCH:]^C^C$s=x $s=stretch STRETCH C
  14785.  
  14786. Window
  14787. Last
  14788. Previous
  14789. Crossing
  14790. Remove
  14791. Add
  14792. Undo
  14793.  
  14794. **MIRROR 3
  14795. [MIRROR:]^C^C$s=x $s=mirror MIRROR
  14796. Window
  14797. Last
  14798. Previous
  14799. Crossing
  14800. Remove
  14801. Add
  14802. Undo
  14803.  
  14804. Yes
  14805. No
  14806.  
  14807. **FILLET0 3
  14808. [FILLET:0]^FILLET R 0;;
  14809.  
  14810. [polyline]P
  14811. **FILLET 3
  14812. [FILLET:]^C^CFILLET
  14813.  
  14814. [radius]R \FILLET
  14815. [radius 0]R 0 FILLET
  14816. polyline
  14817. **CHAMFER 3
  14818. [CHAMFR:]^C^CCHAMFER
  14819.  
  14820. [distance]D \\CHAMFER
  14821. [dist = 0]D 0 0 CHAMFER
  14822. polyline
  14823. **DIVIDE 3
  14824. [DIVIDE:]^C^CDIVIDE
  14825.  
  14826. Block
  14827. Yes
  14828. No
  14829. **MEASURE 3
  14830. [MEASURE:]^C^CMEASURE
  14831.  
  14832. Block
  14833. Yes
  14834. No
  14835. **CHANGE 3
  14836. [CHANGE:]^C^CCHANGE
  14837. Window
  14838. Last
  14839. Previous
  14840. Crossing
  14841. Remove
  14842. Add
  14843. Undo
  14844. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  14845. [Chroma]^C^CVSLIDE chroma
  14846. [ Restore]^C^CREDRAW
  14847. [Elev]PROP ELEV
  14848. [LAyer]PROP LAYER
  14849. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  14850. [Thicknes]PROP THICKNESS
  14851. **CHPROP 3
  14852. [CHPROP:]^C^CCHPROP
  14853. Window
  14854. Last
  14855. Previous
  14856. Crossing
  14857. Remove
  14858. Add 
  14859. Undo
  14860. [Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  14861. [Chroma]^C^CVSLIDE chroma
  14862. [ Restore]^C^CREDRAW
  14863. [LAyer]PROP LAYER
  14864. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
  14865. [Thicknes]PROP THICKNESS
  14866. **ay161 3
  14867. [Scale ]
  14868. [ to   ]
  14869. [change]
  14870.  
  14871.  
  14872. [-------]^PX^P;
  14873. [   X   ]^PX^P;
  14874. [-------]^PX^P;
  14875.  
  14876. [-------]^PY^P;
  14877. [   Y   ]^PY^P;
  14878. [-------]^PY^P;
  14879.  
  14880. [-------]^PZ^P;
  14881. [   Z   ]^PZ^P;
  14882. [-------]^PZ^P;
  14883.  
  14884. [ <DONE> ];
  14885. **CHCOLOR 3
  14886. COLOR
  14887.  
  14888. [bylayer]BYLAYER
  14889. [byblock]BYBLOCK
  14890.  
  14891. [red]RED
  14892. [yellow]YELLOW
  14893. [green]GREEN
  14894. [cyan]CYAN
  14895. [blue]BLUE
  14896. [magenta]MAGENTA
  14897. [white]WHITE
  14898.  
  14899.  
  14900.  
  14901. **CHLT 3
  14902. LTYPE
  14903.  
  14904. [bylayer]BYLAYER
  14905. [byblock]BYBLOCK
  14906.  
  14907. [contin.]CONTINUOUS
  14908. [dashed]DASHED
  14909. [hidden]HIDDEN
  14910. [center]CENTER
  14911. [phantom]PHANTOM
  14912. [dot]DOT
  14913. [dashdot]DASHDOT
  14914. [border]BORDER
  14915.  
  14916.  
  14917.  
  14918. **COLOR 3
  14919. [COLOR:]^C^CCOLOR
  14920.  
  14921. bylayer
  14922. byblock
  14923.  
  14924. red
  14925. yellow
  14926. green
  14927. cyan
  14928. blue
  14929. magenta
  14930. white
  14931. **ATTEDIT 3
  14932. [ATTEDIT:]^C^CATTEDIT
  14933. Window
  14934. Last
  14935. Previous
  14936. Crossing
  14937. Remove
  14938. Add
  14939. Undo
  14940. Value
  14941. Change
  14942. Replace
  14943. Position
  14944. height
  14945. Angle
  14946. Style
  14947. Layer
  14948. [Color]$S=ATTCOLOR C
  14949. Next
  14950. **ATTCOLOR 3
  14951. [COLOR]
  14952.  
  14953. [red]RED $S=
  14954. [yellow]YELLOW $S=
  14955. [green]GREEN $S=
  14956. [cyan]CYAN $S=
  14957. [blue]BLUE $S=
  14958. [magenta]MAGENTA $S=
  14959. [white]WHITE $S=
  14960.  
  14961.  
  14962.  
  14963.  
  14964.  
  14965.  
  14966.  
  14967.  
  14968.  
  14969.  
  14970. **UNITS 2
  14971.  
  14972. [Unit     ]
  14973. [Type     ]
  14974.  
  14975.  
  14976. [SCIENTFC]1;
  14977.  
  14978. [DECIMAL ]2;
  14979.  
  14980. [ENGINRNG]3;
  14981.  
  14982. [ARCHTECT]4;
  14983.  
  14984. [METRIC  ]5;
  14985.  
  14986.  
  14987.  
  14988.  
  14989.  
  14990.  
  14991. **U1 2
  14992.  
  14993. [Scientfc]
  14994. [Scale     ]
  14995.  
  14996.  
  14997. [4 TIMES ]4.0;
  14998.  
  14999. [2 TIMES ]2.0;
  15000.  
  15001. [FULL     ]1.0;
  15002.  
  15003. [HALF     ]0.5;
  15004.  
  15005. [QUARTER ]0.25;
  15006.  
  15007. [OTHER     ]0;
  15008.  
  15009.  
  15010.  
  15011.  
  15012. **U2 2
  15013.  
  15014. [Decimal ]
  15015. [Scale     ]
  15016.  
  15017.  
  15018. [4 TIMES ]4.0;
  15019.  
  15020. [2 TIMES ]2.0;
  15021.  
  15022. [FULL     ]1.0;
  15023.  
  15024. [HALF     ]0.5;
  15025.  
  15026. [QUARTER ]0.25;
  15027.  
  15028. [OTHER     ]0;
  15029.  
  15030.  
  15031.  
  15032.  
  15033. **U3 2
  15034.  
  15035. [Enginrng]
  15036. [Scale     ]
  15037.  
  15038.  
  15039. [1"=10'  ]120.0;
  15040. [1"=20'  ]240.0;
  15041.  
  15042. [1"=30'  ]360.0;
  15043. [1"=40'  ]480.0;
  15044.  
  15045. [1"=50'  ]600.0;
  15046. [1"=60'  ]720.0;
  15047.  
  15048. [1"=80'  ]960.0;
  15049. [1"=100' ]1200.0;
  15050.  
  15051. [OTHER     ]0;
  15052.  
  15053.  
  15054. **U4 2
  15055.  
  15056. [Archtect]
  15057.  
  15058.  
  15059. [1/40"=1']480.0;
  15060. [1/20"=1']240.0;
  15061. [1/16"=1']192.0;
  15062. [ 1/8"=1']96.0;
  15063. [ 1/4"=1']48.0;
  15064.  
  15065. [ 1/2"=1']24.0;
  15066. [ 3/4"=1']16.0;
  15067. [   1"=1']12.0;
  15068. [   3"=1']4.0;
  15069. [   6"=1']2.0;
  15070. [  FULL  ]1.0;
  15071.  
  15072. [OTHER    >]0;
  15073.  
  15074.  
  15075. **U5 2
  15076.  
  15077. [Metric  ]
  15078.  
  15079. [ 1:5000 ]5000.0;
  15080. [ 1:2000 ]2000.0;
  15081. [ 1:1000 ]1000.0;
  15082. [ 1:500  ]500.0;
  15083. [ 1:200  ]200.0;
  15084.  
  15085. [ 1:100  ]100.0;
  15086. [ 1:75     ]75.0;
  15087. [ 1:50     ]50.0;
  15088. [ 1:20     ]20.0;
  15089. [ 1:10     ]10.0;
  15090. [ 1:5     ]5.0;
  15091. [  FULL  ]1.0;
  15092.  
  15093. [OTHER    >]0;
  15094.  
  15095.  
  15096. **ENGLISH 2
  15097.  
  15098. [Horizntl]
  15099.  
  15100. [ Sheet  ]
  15101. [ Size     ]
  15102.  
  15103. [A-8.5x11]11.0 8.5;
  15104. [B- 11x17]17.0 11.0;
  15105. [C- 22x34]34.0 22.0;
  15106. [   18x24]24.0 18.0;
  15107.  
  15108. [D- 24X36]36.0 24.0;
  15109. [   30x42]42.0 30.0;
  15110. [E- 36x42]42.0 36.0;
  15111.  
  15112. [OTHER    >]0 0;
  15113.  
  15114. [VERTCAL>]^C$S=ENGVERT
  15115.  
  15116.  
  15117. **ENGVERT 2
  15118.  
  15119. [Vertical]
  15120.  
  15121. [ Sheet  ]
  15122. [ Size     ]
  15123.  
  15124. [A-8.5x11]8.5 11.0;
  15125. [B- 11x17]11.0 17.0;
  15126. [C- 22x34]22.0 34.0;
  15127. [   18x24]18.0 24.0;
  15128.  
  15129. [D- 24X36]24.0 36.0;
  15130. [   30x42]30.0 42.0;
  15131. [E- 36x42]36.0 42.0;
  15132.  
  15133. [OTHER    >]0 0;
  15134.  
  15135. [HORZNTL>]^C$S=ENGLISH
  15136.  
  15137.  
  15138. **METRIC 2
  15139.  
  15140. [Horizntl]
  15141.  
  15142. [ Sheet  ]
  15143. [ Size     ]
  15144.  
  15145. [1189x841]1189.0 841.0;
  15146. [1000x707]1000.0 707.0;
  15147. [ 841x594]841.0 594.0;
  15148.  
  15149. [ 594x420]594.0 420.0;
  15150. [ 420x297]420.0 297.0;
  15151. [ 297x210]297.0 210.0;
  15152.  
  15153. [OTHER    >]0 0;
  15154.  
  15155.  
  15156. [VERTCAL>]^C$S=METRICVERT
  15157.  
  15158.  
  15159. **METRICVERT 2
  15160.  
  15161. [Vertical]
  15162.  
  15163. [ Sheet  ]
  15164. [ Size     ]
  15165.  
  15166. [1189x841]841.0 1189.0;
  15167. [1000x707]707.0 1000.0;
  15168. [ 841x594]594.0 841.0;
  15169.  
  15170. [ 594x420]420.0 594.0;
  15171. [ 420x297]297.0 420.0;
  15172. [ 297x210]210.0 297.0;
  15173.  
  15174. [<OTHER> ]0 0;
  15175.  
  15176.  
  15177. [HORZNTL>]^C$S=METRIC
  15178.  
  15179.  
  15180. **EXCOMDS 3
  15181. [External]
  15182. [commands]
  15183.  
  15184.  
  15185. [CATALOG:]CATALOG
  15186. [DEL:]DEL
  15187. [DIR:]DIR
  15188. [EDIT:]EDIT
  15189. [SH:]SH
  15190. [SHELL:]SHELL
  15191. [TYPE:]TYPE
  15192.  
  15193.  
  15194.  
  15195.  
  15196. **TEXT1 33
  15197. $S=X $S=TEXT ^C^C(F:UNDO);TEXT
  15198. $S=X $S=TEXT ^C^C(F:UNDO);TEXT C
  15199. $S=X $S=TEXT ^C^C(F:UNDO);TEXT R
  15200. **TEXT2 58
  15201. $S=X $S=TEXT ^C^C(F:UNDO);TEXT A
  15202. $S=X $S=TEXT ^C^C(F:UNDO);TEXT M
  15203. $S=X $S=TEXT ^C^C(F:UNDO);TEXT F
  15204.  
  15205. **AFMMGMT 3
  15206. [FM      ]
  15207. [Intrface]
  15208.  
  15209. [This    ]
  15210. [space   ]
  15211. [reserved]
  15212. [for     ]
  15213. [future  ]
  15214. [develop-]
  15215. [ment.   ]
  15216.  
  15217.  
  15218. [Please  ]
  15219. [do not  ]
  15220. [modify. ]
  15221.  
  15222.  
  15223. [<CANCEL>]^C^C(F:CLS) $S=S
  15224.  
  15225.