home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 190.img / AA2.ZIP / ARCHP / DOOR.MNU < prev    next >
Encoding:
Text File  |  1989-04-10  |  5.3 KB  |  301 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");$S=HEIGHT
  51. [ WD/HC](setq zdmatl "WD/HC");$S=HEIGHT
  52. [ WD/IC](setq zdmatl "WD/IC");$S=HEIGHT
  53. [ WD/MC](setq zdmatl "WD/MC");$S=HEIGHT
  54. [ ALUM](setq zdmatl "ALUM");$S=HEIGHT
  55. [ ES/HC](setq zdmatl "ES/HC");$S=HEIGHT
  56. [ ES/IC](setq zdmatl "ES/IC");$S=HEIGHT
  57. [ HM/HC](setq zdmatl "HM/HC");$S=HEIGHT
  58. [ HM/IC](setq zdmatl "HM/IC");$S=HEIGHT
  59. [ HM/MC](setq zdmatl "HM/MC");$S=HEIGHT
  60. [ WM/HC](setq zdmatl "WM/HC");$S=HEIGHT
  61. [ WM/IC](setq zdmatl "WM/IC");$S=HEIGHT
  62. [ WM/MC](setq zdmatl "WM/MC");$S=HEIGHT
  63. [ WS](setq zdmatl "WS");$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. **THICKNESS 3
  86. [THICKNES]
  87. [ ?](setq zdthick (getdist "Door thickness: "));$S=DFINISH
  88. [ 1 3/4"](setq zdthick "1 3/4");$S=DFINISH
  89. [ 1 3/8"](setq zdthick "1 3/8");$S=DFINISH
  90. [ 1 1/8"](setq zdthick "1 1/8");$S=DFINISH
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104. **DFINISH 3
  105. [D FINISH]
  106. [ ?](setq zdfin (getstring "Door finish: "));$S=U-CUT
  107. [ -](setq zdfin "-");$S=U-CUT
  108. [ PNTD](setq zdfin "PNTD");$S=U-CUT
  109. [ STND](setq zdfin "STND");$S=U-CUT
  110. [ CLR](setq zdfin "CLR");$S=U-CUT
  111. [ ANOD](setq zdfin "ANOD");$S=U-CUT
  112. [ MILL](setq zdfin "MILL");$S=U-CUT
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123. **U-CUT 3
  124. [U-CUT]
  125. [ -](setq zu-cut "-");$S=UL
  126. [ YES](setq zu-cut "YES");$S=UL
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. **UL 3
  143. [UL]
  144. [ ?](setq zul (getstring "U.L. rating: "));$S=HDW
  145. [ -](setq zul "-");$S=HDW
  146. [ A](setq zul "A");$S=HDW
  147. [ B](setq zul "B");$S=HDW
  148. [ C](setq zul "C");$S=HDW
  149. [ D](setq zul "D");$S=HDW
  150. [ E](setq zul "E");$S=HDW
  151. [ 20](setq zul "20");$S=HDW
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161. **HDW 3
  162. [HDW]
  163. [ ?](setq zhdw (getstring "Hardware: "));$S=FTYPE
  164. [ 1](setq zhdw "1");$S=FTYPE
  165. [ 2](setq zhdw "2");$S=FTYPE
  166. [ 3](setq zhdw "3");$S=FTYPE
  167. [ 4](setq zhdw "4");$S=FTYPE
  168. [ 5](setq zhdw "5");$S=FTYPE
  169. [ 6](setq zhdw "6");$S=FTYPE
  170. [ 7](setq zhdw "7");$S=FTYPE
  171. [ 8](setq zhdw "8");$S=FTYPE
  172. [ 9](setq zhdw "9");$S=FTYPE
  173. [ 10](setq zhdw "10");$S=FTYPE
  174. [ 11](setq zhdw "11");$S=FTYPE
  175. [ 12](setq zhdw "12");$S=FTYPE
  176. [ 13](setq zhdw "13");$S=FTYPE
  177. [ 14](setq zhdw "14");$S=FTYPE
  178. [ 15](setq zhdw "15");$S=FTYPE
  179. [ 16](setq zhdw "16");$S=FTYPE
  180. **FTYPE 3
  181. [FR. TYPE]
  182. [ ?](setq zftype (getstring "Frame type: "));$S=FMATL
  183. [ A](setq zftype "A");$S=FMATL
  184. [ A2](setq zftype "A2");$S=FMATL
  185. [ AT](setq zftype "AT");$S=FMATL
  186. [ A2T](setq zftype "A2T");$S=FMATL
  187. [ AFS](setq zftype "AFS");$S=FMATL
  188. [ AFS2](setq zftype "AFS2");$S=FMATL
  189. [ A2FS2](setq zftype "A2FS2");$S=FMATL
  190. [ FSAT](setq zftype "FSAT");$S=FMATL
  191. [ AFS2T](setq zftype "AFS2T");$S=FMATL
  192. [ A2FS2T2](setq zftype "A2FS2T2");$S=FMATL
  193. [ AS](setq zftype "AS");$S=FMATL
  194. [ BF](setq zftype "BF");$S=FMATL
  195. [ AS2](setq zftype "AS2");$S=FMATL
  196. [ B](setq zftype "B");$S=FMATL
  197. [ B2](setq zftype "B2");$S=FMATL
  198. [ BF2](setq zftype "BF2");$S=FMATL
  199. **FMATL 3
  200. [F MAT'L]
  201. [ ?](setq zfmatl (getstring "Frame material: "));$S=FFIN
  202. [ HM](setq zfmatl "HM");$S=FFIN
  203. [ WD](setq zfmatl "WD");$S=FFIN
  204. [ ALUM](setq zfmatl "ALUM");$S=FFIN
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218. **FFIN 3
  219. [F FINISH]
  220. [ ?](setq zffin (getstring "Frame finish: "));$S=JAMB
  221. [ -](setq zffin "-");$S=JAMB
  222. [ PNTD](setq zffin "PNTD");$S=JAMB
  223. [ STND](setq zffin "STND");$S=JAMB
  224. [ CLR](setq zffin "CLR");$S=JAMB
  225. [ ANOD](setq zffin "ANOD");$S=JAMB
  226. [ MILL](setq zffin "MILL");$S=JAMB
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237. **JAMB 3
  238. [JAMB]
  239. [ ?](setq zjamb (getstring T "Jamb details: "));$S=HEAD
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256. **HEAD 3
  257. [HEAD]
  258. [ ?](setq zhead (getstring T "Head details: "));$S=REMARKS
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275. **REMARKS 3
  276. [REMARKS]
  277. [ ?](setq zremarks (getstring T "Remarks: "));$S=S
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293. ***tablet1
  294. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  295. ***tablet2
  296. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  297. ***tablet3
  298. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  299. ***tablet4
  300. (PRINC "NO TABLET MENU. GO BACK TO AUTOARCH MENU")
  301.