home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 193.img / AAUPGRD1.ZIP / AUTOARCH / DOOR.MNU < prev    next >
Text File  |  1990-02-19  |  7KB  |  339 lines
  1. ***BUTTONS
  2. ;
  3. ENDP,INT,MID,QUICK;\
  4. ^C
  5. ***SCREEN
  6. **S
  7. [- Door -]$s=s
  8. [DOORCALL](princ "Loading DOORCALL ")(nl doorcall "/archp/doorcall")(princ);$S=S
  9. [Schedule](nl billmat "/cci/billmat")(BILLMAT (strcat drive "/arch/door1"))(PRINC);
  10. [Quantity](nl billmat "/cci/billmat")(BILLMAT (strcat drive "/arch/door2"))(PRINC);
  11. [--------]
  12. [DTYPE]$S=DTYPE
  13. [DMAT'L]$S=DMATL
  14. [HEIGHT]$S=HEIGHT
  15. [THICKNESS]$S=THICKNESS
  16. [DFINISH]$S=DFINISH
  17. [U-CUT]$S=U-CUT
  18. [UL]$S=UL
  19. [HDW]$S=HDW
  20. [FTYPE]$S=FTYPE
  21. [FMAT'L]$S=FMATL
  22. [FFIN]$S=FFIN
  23. [JAMB]$S=JAMB
  24. [HEAD]$S=HEAD
  25. [REMARKS]$S=REMARKS
  26. [lastmenu]$s=
  27. [AutoArch]menu arch;
  28. **DTYPE 3
  29. [D TYPES]
  30. [  ?](setq zdtype (getstring "Door type: "));$S=DMATL
  31. [  F](setq zdtype "F");$S=DMATL
  32. [  N](setq zdtype "N");$S=DMATL
  33. [  G](setq zdtype "G");$S=DMATL
  34. [  FG](setq zdtype "FG");$S=DMATL
  35. [  P6](setq zdtype "P6");$S=DMATL
  36. [  B](setq zdtype "B");$S=DMATL
  37. [  BL](setq zdtype "BL");$S=DMATL
  38. [  OH](setq zdtype "OH");$S=DMATL
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47. **DMATL 3
  48. [D MAT'L]
  49. [ ?](setq zdmatl (getstring "Door material: "));$S=HEIGHT
  50. [ WD/SC](setq zdmatl "WD/SC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  51. [ WD/HC](setq zdmatl "WD/HC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  52. [ WD/IC](setq zdmatl "WD/IC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  53. [ WD/MC](setq zdmatl "WD/MC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  54. [ ALUM](setq zdmatl "ALUM");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  55. [ ES/HC](setq zdmatl "ES/HC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  56. [ ES/IC](setq zdmatl "ES/IC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  57. [ HM/HC](setq zdmatl "HM/HC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  58. [ HM/IC](setq zdmatl "HM/IC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  59. [ HM/MC](setq zdmatl "HM/MC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  60. [ WM/HC](setq zdmatl "WM/HC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  61. [ WM/IC](setq zdmatl "WM/IC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  62. [ WM/MC](setq zdmatl "WM/MC");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  63. [ WS   ](setq zdmatl "WS");(if (and metric (not (equal scaleb 40. 0.001)))(menucmd "s=MHEIGHT")(menucmd "s=HEIGHT"));
  64.  
  65.  
  66. **HEIGHT 3
  67. [HEIGHT]
  68. [ ?](setq zdheight (getdist "Door height: "));$S=THICKNESS
  69. [ 6'-6"](setq zdheight "6'-6");$S=THICKNESS
  70. [ 6'-8"](setq zdheight "6'-8");$S=THICKNESS
  71. [ 7'-0"](setq zdheight "7'-0");$S=THICKNESS
  72. [ 8'-0"](setq zdheight "8'-0");$S=THICKNESS
  73. [ 9'-0"](setq zdheight "9'-0");$S=THICKNESS
  74. [ 10'-0"](setq zdheight "10'-0");$S=THICKNESS
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85. **MHEIGHT 3
  86. [HEIGHT]
  87. [ ?](setq zdheight (getdist "Door height: "));$S=MTHICKNESS
  88. [ 1.95](setq zdheight (rtos (* 1.95 scaleb)));$S=MTHICKNESS
  89. [ 2.00](setq zdheight (rtos (* 2.00 scaleb)));$S=MTHICKNESS
  90. [ 2.10](setq zdheight (rtos (* 2.10 scaleb)));$S=MTHICKNESS
  91. [ 2.40](setq zdheight (rtos (* 2.40 scaleb)));$S=MTHICKNESS
  92. [ 2.50](setq zdheight (rtos (* 2.50 scaleb)));$S=MTHICKNESS
  93. [ 3.00](setq zdheight (rtos (* 3.00 scaleb)));$S=MTHICKNESS
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104. **THICKNESS 3
  105. [THICKNES]
  106. [ ?](setq zdthick (getdist "Door thickness: "));$S=DFINISH
  107. [ 1 3/4"](setq zdthick "1 3/4");$S=DFINISH
  108. [ 1 3/8"](setq zdthick "1 3/8");$S=DFINISH
  109. [ 1 1/8"](setq zdthick "1 1/8");$S=DFINISH
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123. **MTHICKNESS 3
  124. [THICKNES]
  125. [ ?](setq zdthick (getdist "Door thickness: "));$S=DFINISH
  126. [ .044](setq zdthick (rtos (* scaleb 0.044)));$S=DFINISH
  127. [ .034](setq zdthick (rtos (* scaleb 0.034)));$S=DFINISH
  128. [ .028](setq zdthick (rtos (* scaleb 0.028)));$S=DFINISH
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. **DFINISH 3
  143. [D FINISH]
  144. [ ?](setq zdfin (getstring "Door finish: "));$S=U-CUT
  145. [ -](setq zdfin "-");$S=U-CUT
  146. [ PNTD](setq zdfin "PNTD");$S=U-CUT
  147. [ STND](setq zdfin "STND");$S=U-CUT
  148. [ CLR](setq zdfin "CLR");$S=U-CUT
  149. [ ANOD](setq zdfin "ANOD");$S=U-CUT
  150. [ MILL](setq zdfin "MILL");$S=U-CUT
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161. **U-CUT 3
  162. [U-CUT]
  163. [ -](setq zu-cut "-");$S=UL
  164. [ YES](setq zu-cut "YES");$S=UL
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180. **UL 3
  181. [UL]
  182. [ ?](setq zul (getstring "U.L. rating: "));$S=HDW
  183. [ -](setq zul "-");$S=HDW
  184. [ A](setq zul "A");$S=HDW
  185. [ B](setq zul "B");$S=HDW
  186. [ C](setq zul "C");$S=HDW
  187. [ D](setq zul "D");$S=HDW
  188. [ E](setq zul "E");$S=HDW
  189. [ 20](setq zul "20");$S=HDW
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199. **HDW 3
  200. [HDW]
  201. [ ?](setq zhdw (getstring "Hardware: "));$S=FTYPE
  202. [ 1](setq zhdw "1");$S=FTYPE
  203. [ 2](setq zhdw "2");$S=FTYPE
  204. [ 3](setq zhdw "3");$S=FTYPE
  205. [ 4](setq zhdw "4");$S=FTYPE
  206. [ 5](setq zhdw "5");$S=FTYPE
  207. [ 6](setq zhdw "6");$S=FTYPE
  208. [ 7](setq zhdw "7");$S=FTYPE
  209. [ 8](setq zhdw "8");$S=FTYPE
  210. [ 9](setq zhdw "9");$S=FTYPE
  211. [ 10](setq zhdw "10");$S=FTYPE
  212. [ 11](setq zhdw "11");$S=FTYPE
  213. [ 12](setq zhdw "12");$S=FTYPE
  214. [ 13](setq zhdw "13");$S=FTYPE
  215. [ 14](setq zhdw "14");$S=FTYPE
  216. [ 15](setq zhdw "15");$S=FTYPE
  217. [ 16](setq zhdw "16");$S=FTYPE
  218. **FTYPE 3
  219. [FR. TYPE]
  220. [ ?](setq zftype (getstring "Frame type: "));$S=FMATL
  221. [ A](setq zftype "A");$S=FMATL
  222. [ A2](setq zftype "A2");$S=FMATL
  223. [ AT](setq zftype "AT");$S=FMATL
  224. [ A2T](setq zftype "A2T");$S=FMATL
  225. [ AFS](setq zftype "AFS");$S=FMATL
  226. [ AFS2](setq zftype "AFS2");$S=FMATL
  227. [ A2FS2](setq zftype "A2FS2");$S=FMATL
  228. [ FSAT](setq zftype "FSAT");$S=FMATL
  229. [ AFS2T](setq zftype "AFS2T");$S=FMATL
  230. [ A2FS2T2](setq zftype "A2FS2T2");$S=FMATL
  231. [ AS](setq zftype "AS");$S=FMATL
  232. [ BF](setq zftype "BF");$S=FMATL
  233. [ AS2](setq zftype "AS2");$S=FMATL
  234. [ B](setq zftype "B");$S=FMATL
  235. [ B2](setq zftype "B2");$S=FMATL
  236. [ BF2](setq zftype "BF2");$S=FMATL
  237. **FMATL 3
  238. [F MAT'L]
  239. [ ?](setq zfmatl (getstring "Frame material: "));$S=FFIN
  240. [ HM](setq zfmatl "HM");$S=FFIN
  241. [ WD](setq zfmatl "WD");$S=FFIN
  242. [ ALUM](setq zfmatl "ALUM");$S=FFIN
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256. **FFIN 3
  257. [F FINISH]
  258. [ ?](setq zffin (getstring "Frame finish: "));$S=JAMB
  259. [ -](setq zffin "-");$S=JAMB
  260. [ PNTD](setq zffin "PNTD");$S=JAMB
  261. [ STND](setq zffin "STND");$S=JAMB
  262. [ CLR](setq zffin "CLR");$S=JAMB
  263. [ ANOD](setq zffin "ANOD");$S=JAMB
  264. [ MILL](setq zffin "MILL");$S=JAMB
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275. **JAMB 3
  276. [JAMB]
  277. [ ?](setq zjamb (getstring T "Jamb details: "));$S=HEAD
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294. **HEAD 3
  295. [HEAD]
  296. [ ?](setq zhead (getstring T "Head details: "));$S=REMARKS
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313. **REMARKS 3
  314. [REMARKS]
  315. [ ?](setq zremarks (getstring T "Remarks: "));$S=S
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331. ***tablet1
  332. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  333. ***tablet2
  334. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  335. ***tablet3
  336. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  337. ***tablet4
  338. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  339.