home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p066 / 1.img / SETUP1.MNU < prev    next >
Encoding:
Text File  |  1989-05-19  |  6.5 KB  |  333 lines
  1. ***BUTTONS
  2. ;
  3. $S=OSNAPB
  4. ^C^CREDRAW
  5. ^B
  6. ^O
  7. ^G
  8. ^D
  9. ^E
  10. ^T
  11. ***SCREEN
  12. **S
  13. [AEC ARCH]$S=S
  14.  
  15. [Drawing ]
  16. [Scale   ]
  17.  
  18. [1/40"=1']^C(setvar "userr3" 480) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  19. [1/20"=1']^C(setvar "userr3" 240) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  20. [1/16"=1']^C(setvar "userr3" 192) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  21. [ 1/8"=1']^C(setvar "userr3" 96) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  22. [ 1/4"=1']^C(setvar "userr3" 48) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  23. [ 1/2"=1']^C(setvar "userr3" 24) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  24. [ 3/4"=1']^C(setvar "userr3" 16) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  25. [   1"=1']^C(setvar "userr3" 12) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  26. [   3"=1']^C(setvar "userr3" 4) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  27. [   6"=1']^C(setvar "userr3" 2) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  28. [  FULL  ]^C(setvar "userr3" 1) (setq c (getvar "userr3")) (F:PRMP) $S=SHEETENGHORZ
  29.  
  30. [OTHER   ]^C$S=OTHERENG (setq c (getreal "Enter the scale factor: ")) \+
  31. (cond +
  32. ((or (= c nil) (= c 0)) +
  33. (progn (terpri)(prompt "The scale factor cannot be zero.")(menucmd "S=S")(princ))) +
  34. (T (setvar "userr3" c) (F:PRMP) (menucmd "S=SHEETENGHORZ")))
  35. [EXIT    ]^Cmenu (strcat V:ACAM "aec-a");
  36. [<TABLET>]^C^C$S=S1
  37. **S1
  38. [ Tablet ]
  39. [ config.]
  40.  
  41.  
  42.  
  43. [--------]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  44. tablet CFG 4
  45. [ FIRST  ]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  46. tablet CFG 4
  47. [ TIME   ]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  48. tablet CFG 4
  49. [--------]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  50. tablet CFG 4
  51.  
  52.  
  53. [--------]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  54. tablet CFG 4 y
  55. [ RE-    ]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  56. tablet CFG 4 y
  57. [CONFIG. ]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  58. tablet CFG 4 y
  59. [--------]^C^C$S=S1A (f:lodf "a:ax25");(a:ax25 "tabconfg" "h1");+
  60. tablet CFG 4 y
  61.  
  62.  
  63.  
  64.  
  65. [<CANCEL>]^C^C$S=S;
  66. **S1A 2
  67.  
  68. [Menu #1 ]
  69. [25 COLS.]^P25^P;
  70. [ 9 ROWS ]^P9^P;
  71.  
  72. [Menu #2 ]
  73. [11 COLS.]^P11^P;
  74. [ 9 ROWS ]^P9^P;
  75.  
  76. [Menu #3 ]
  77. [ 9 COLS.]^P9^P;
  78. [13 ROWS ]^P13^P;
  79.  
  80. [Menu #4 ]
  81. [25 COLS.]^P25^P;
  82. [ 7 ROWS ]^P7^P;
  83.  
  84. [-YES-   ]^PY^P;
  85. [<DONE>  ]^C^C$S=S +
  86. (progn (terpri)(prompt "Select scale and sheet size from screen menu.")(princ))
  87. **S2
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95. [Working.]
  96.  
  97. [Please  ]
  98. [wait.   ]
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108. **OTHERENG 3
  109. [ Scale  ]
  110. [e.g.  if]
  111. [1/4"=1',]
  112. [S.F.= 48]
  113.  
  114. [   1    ]^P1^P\
  115. [   2    ]^P2^P\
  116. [   3    ]^P3^P\
  117. [   4    ]^P4^P\
  118. [   5    ]^P5^P\
  119. [   6    ]^P6^P\
  120. [   7    ]^P7^P\
  121. [   8    ]^P8^P\
  122. [   9    ]^P9^P\
  123. [   0    ]^P0^P\
  124. [PERIOD  ]^P.^P\
  125. [ RETURN ];
  126. [<CANCEL>]^C^C$S=S
  127. **SHEETENGHORZ 3
  128. [Horizntl]
  129. [ Sheet  ]
  130. [ Size   ]
  131.  
  132. [A-8.5x11]^C(setq V:Y (* 7.5 c) V:X (* 9 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  133. [B- 11x17]^C(setq V:Y (* 10 c) V:X (* 15 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  134. [C- 17x22]^C(setq V:Y (* 16 c) V:X (* 20 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  135. [   18x24]^C(setq V:Y (* 17 c) V:X (* 22 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  136. [D- 22x34]^C(setq V:Y (* 21 c) V:X (* 32 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  137. [   24x36]^C(setq V:Y (* 23 c) V:X (* 34 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  138. [   30x42]^C(setq V:Y (* 29 c) V:X (* 40 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  139. [E- 34x44]^C(setq V:Y (* 33 c) V:X (* 42 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  140. [   36x42]^C(setq V:Y (* 35 c) V:X (* 40 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  141.  
  142. [OTHER   ]^C$S=SHEETYE (initget 1) +
  143. (setq yo (getreal "Enter vertical dimension of the sheet in inches: ")) \(initget 1) +
  144. $S=SHEETXE (setq xo (getreal "Enter horizontal dimension of the sheet in inches: ")) \+
  145. (setq V:Y (* (- yo 1) c) V:X (* (- xo 2) c)) $S=S2 (load (strcat V:ACAL "setaec"))
  146. [VERTICAL]^C(F:PRMP) $S=SHEETENGVERT
  147.  
  148. [<CANCEL>]^C^C$S=S
  149. **SHEETENGVERT 3
  150. [Vertical]
  151. [ Sheet  ]
  152. [ Size   ]
  153.  
  154. [A-8.5x11]^C(setq V:X (* 6.5 c) V:Y (* 10 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  155. [B- 11x17]^C(setq V:X (* 9 c) V:Y (* 16 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  156. [C- 17x22]^C(setq V:X (* 15 c) V:Y (* 21 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  157. [   18x24]^C(setq V:X (* 16 c) V:Y (* 23 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  158. [D- 22x34]^C(setq V:X (* 20 c) V:Y (* 33 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  159. [   24x36]^C(setq V:X (* 22 c) V:Y (* 35 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  160. [   30x42]^C(setq V:X (* 28 c) V:Y (* 41 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  161. [E- 34x44]^C(setq V:X (* 32 c) V:Y (* 43 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  162. [   36x42]^C(setq V:X (* 34 c) V:Y (* 41 c)) $S=S2 (load (strcat V:ACAL "setaec"))
  163.  
  164. [OTHER   ]^C$S=SHEETXE (initget 1) +
  165. (setq xo (getreal "Enter horizontal dimension of the sheet in inches: ")) \(initget 1) +
  166. $S=SHEETYE (setq yo (getreal "Enter vertical dimension of the sheet in inches: ")) \+
  167. (setq V:Y (* (- yo 1) c) V:X (* (- xo 2) c)) $S=S2 (load (strcat V:ACAL "setaec"))
  168. [HORIZNTL]^C$S=SHEETENGHORZ
  169.  
  170. [<CANCEL>]^C^C$S=S
  171. **SHEETYE 3
  172. [Vertical]
  173. [Dimnsion]
  174. [of Sheet]
  175.  
  176. [   1    ]^P1^P\
  177. [   2    ]^P2^P\
  178. [   3    ]^P3^P\
  179. [   4    ]^P4^P\
  180. [   5    ]^P5^P\
  181. [   6    ]^P6^P\
  182. [   7    ]^P7^P\
  183. [   8    ]^P8^P\
  184. [   9    ]^P9^P\
  185. [   0    ]^P0^P\
  186. [PERIOD  ]^P.^P\
  187. [ RETURN ];
  188.  
  189. [<CANCEL>]^C^C$S=S
  190. **SHEETXE 3
  191. [Horizntl]
  192. [Dimnsion]
  193. [of Sheet]
  194.  
  195. [   1    ]^P1^P\
  196. [   2    ]^P2^P\
  197. [   3    ]^P3^P\
  198. [   4    ]^P4^P\
  199. [   5    ]^P5^P\
  200. [   6    ]^P6^P\
  201. [   7    ]^P7^P\
  202. [   8    ]^P8^P\
  203. [   9    ]^P9^P\
  204. [   0    ]^P0^P\
  205. [PERIOD  ]^P.^P\
  206. [ RETURN ];
  207.  
  208. [<CANCEL>]^C^C$S=S
  209. ***TABLET1
  210.  
  211. ***TABLET2
  212.  
  213. ***TABLET3
  214.  
  215.  
  216.  
  217. ^P<<135^P
  218. ^P<<135^P
  219. ^P<<90^P
  220. ^P<<90^P
  221. ^P<<45^P
  222. ^P<<45^P
  223.  
  224.  
  225.  
  226. ^P<<180^P
  227. ^P<<180^P
  228. ^P<\^P
  229. ^P<\^P
  230. ^P<<0^P
  231. ^P<<0^P
  232.  
  233.  
  234.  
  235. ^P<<225^P
  236. ^P<<225^P
  237. ^P<<270^P
  238. ^P<<270^P
  239. ^P<<315^P
  240. ^P<<315^P
  241.  
  242.  
  243.  
  244. ^H
  245. ^H
  246. ^H
  247. ^H
  248. ^H
  249. ^H
  250.  
  251.  
  252.  
  253. ^P7/8\^P
  254. ^P7/8\^P
  255. ^P/16\^P
  256. ^P/16\^P
  257. ^P/32\^P
  258. ^P/32\^P
  259.  
  260.  
  261.  
  262. ^P1/2\^P
  263. ^P1/2\^P
  264. ^P5/8\^P
  265. ^P5/8\^P
  266. ^P3/4\^P
  267. ^P3/4\^P
  268.  
  269.  
  270.  
  271. ^P1/8\^P
  272. ^P1/8\^P
  273. ^P1/4\^P
  274. ^P1/4\^P
  275. ^P3/8\^P
  276. ^P3/8\^P
  277.  
  278.  
  279.  
  280. ^P-\^P
  281. ^P-\^P
  282. ^P/\^P
  283. ^P/\^P
  284. ^PX\^P
  285. ^PX\^P
  286.  
  287.  
  288.  
  289. ^P@\^P
  290. ^P@\^P
  291. ^P'\^P
  292. ^P'\^P
  293. ^P"\^P
  294. ^P"\^P
  295.  
  296.  
  297.  
  298. ^P7\^P
  299. ^P7\^P
  300. ^P8\^P
  301. ^P8\^P
  302. ^P9\^P
  303. ^P9\^P
  304.  
  305.  
  306.  
  307. ^P4\^P
  308. ^P4\^P
  309. ^P5\^P
  310. ^P5\^P
  311. ^P6\^P
  312. ^P6\^P
  313.  
  314.  
  315.  
  316. ^P1\^P
  317. ^P1\^P
  318. ^P2\^P
  319. ^P2\^P
  320. ^P3\^P
  321. ^P3\^P
  322.  
  323.  
  324.  
  325. ^P0\^P
  326. ^P0\^P
  327. ^P.\^P
  328. ^P.\^P
  329. ^P,\^P
  330. ^P,\^P
  331. ***TABLET4
  332.  
  333.