home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / puclmenu.zip / PUCLMENU.PRG < prev   
Text File  |  1987-03-10  |  11KB  |  370 lines
  1. *
  2. * Penultimate Clipper Menu Program. (Version .999999)
  3. * By Henry J. Franzoni III
  4. * No rights reserved.
  5. * Released into the public domain 03/10/87.
  6. * There is no assurance that this will work work any specific purpose.
  7. * I am not responsible for any damages resulting from the use of this code.
  8. * Clipper is a trademark of Nantucket, Inc.
  9. *
  10. SET SCOREBOARD OFF
  11. SET CONFIRM OFF
  12. SET TALK OFF
  13. PUBL MSCOLO,SCOLOR,MENULEN,LEVEL1,LEVEL2,FRAM2
  14. MENULEN= 1                 && MEMVAR FOR MENU LENGTH
  15. LEVEL1 = 1                 && MEMVAR FOR 1ST MENU
  16. LEVEL2 = 1                 && MEMVAR FOR NESTED MENUS
  17. MSCOLO=IIF (ISCOLOR(), 'GR+/B,W+/R,N+,,R/W','W+/N,N/W,N+,,I')
  18. SCOLOR=IIF (ISCOLOR(), 'N/BG,W+/BR,N+,,RB+/W','N/W,W+/N,N+,,I')
  19. FRAM2=CHR(201)+CHR(205)+CHR(187)+CHR(186)+CHR(188)+CHR(205)+CHR(200)+CHR(186)+CHR(32)
  20. SET COLO TO &MSCOLO
  21. SET MESSAGE TO
  22. DO WHIL (LEVEL1 != 0)
  23. IF LASTKEY()=27
  24. ELSE
  25. SET COLO TO &MSCOLO
  26. @ 2,0 CLEA
  27. SET COLO TO &SCOLOR
  28. @ 24,0 SAY SPAC(80)
  29. SET COLO TO &MSCOLO
  30. ENDI
  31. @ 0,0 SAY SPAC(25)+"ADJUSTABLE CLIPPER MASTER MENU"+SPAC(25)
  32. @ 1,0 PROMPT "Database Access " MESSAGE ""
  33. @ 1,16 PROMPT "Report on Data  " MESSAGE ""
  34. @ 1,32 PROMPT "Set System Opts " MESSAGE ""
  35. @ 1,48 PROMPT "Enter New Info  " MESSAGE ""
  36. @ 1,64 PROMPT "Utilities Menu  " MESSAGE ""
  37. MENU TO LEVEL1
  38. IF (LEVEL1 != 0)            && ESC TO EXIT
  39. DO CASE
  40. CASE LEVEL1=1
  41. MENULEN=12
  42. CASE LEVEL1=2
  43. MENULEN=22
  44. CASE LEVEL1=3
  45. MENULEN=22
  46. CASE LEVEL1=4
  47. MENULEN=22
  48. CASE LEVEL1=5
  49. MENULEN=22
  50. ENDC
  51. SET MESSAGE TO 24
  52. DO SUB_MENU WITH LEVEL1-1
  53. SET MESSAGE TO
  54. ENDI
  55. ENDD
  56. RETU
  57. *
  58. PROC SUB_MENU
  59. PARA MENU_NUMBER
  60. SET COLO TO &SCOLOR
  61. IF MENU_NUMBER!=0
  62. @ 2,((MENU_NUMBER*16)-1),MENULEN,(((MENU_NUMBER+1)*16)-1) BOX FRAM2
  63. ELSE
  64. @ 2,0,MENULEN,15 BOX FRAM2
  65. ENDI
  66. DO CASE
  67. CASE MENU_NUMBER=0
  68. @ 3,1 PROMPT "A Choice # 1  " MESSAGE "Help msg 1"
  69. @ 4,1 PROMPT "B Choice # 2  " MESSAGE "Help msg 2"
  70. @ 5,1 PROMPT "C Choice # 3  " MESSAGE "Help msg 3"
  71. @ 6,1 PROMPT "D Choice # 4  " MESSAGE "Help msg 4"
  72. @ 7,1 PROMPT "E Choice # 5  " MESSAGE "Help msg 5"
  73. @ 8,1 PROMPT "F Choice # 6  " MESSAGE "Help msg 6"
  74. @ 9,1 PROMPT "G Choice # 7  " MESSAGE "Help msg 7"
  75. @ 10,1 PROMPT "H Choice # 8  " MESSAGE "Help msg 8"
  76. @ 11,1 PROMPT "I Choice # 9  " MESSAGE "Help msg 9"
  77. CASE MENU_NUMBER=1
  78. @ 3, MENU_NUMBER*16 PROMPT "A Choice # 1  " MESSAGE "Help msg 1"
  79. @ 4, MENU_NUMBER*16 PROMPT "B Choice # 2  " MESSAGE "Help msg 2"
  80. @ 5, MENU_NUMBER*16 PROMPT "C Choice # 3  " MESSAGE "Help msg 3"
  81. @ 6, MENU_NUMBER*16 PROMPT "D Choice # 4  " MESSAGE "Help msg 4"
  82. @ 7, MENU_NUMBER*16 PROMPT "E Choice # 5  " MESSAGE "Help msg 5"
  83. @ 8, MENU_NUMBER*16 PROMPT "F Choice # 6  " MESSAGE "Help msg 6"
  84. @ 9, MENU_NUMBER*16 PROMPT "G Choice # 7  " MESSAGE "Help msg 7"
  85. @ 10, MENU_NUMBER*16 PROMPT "H Choice # 8  " MESSAGE "Help msg 8"
  86. @ 11, MENU_NUMBER*16 PROMPT "I Choice # 9  " MESSAGE "Help msg 9"
  87. @ 12, MENU_NUMBER*16 PROMPT "J Choice # 10 " MESSAGE "Help msg 10"
  88. @ 13, MENU_NUMBER*16 PROMPT "K Choice # 11 " MESSAGE "Help msg 11"
  89. @ 14, MENU_NUMBER*16 PROMPT "L Choice # 12 " MESSAGE "Help msg 12"
  90. @ 15, MENU_NUMBER*16 PROMPT "M Choice # 13 " MESSAGE "Help msg 13"
  91. @ 16, MENU_NUMBER*16 PROMPT "N Choice # 14 " MESSAGE "Help msg 14"
  92. @ 17, MENU_NUMBER*16 PROMPT "O Choice # 15 " MESSAGE "Help msg 15"
  93. @ 18, MENU_NUMBER*16 PROMPT "P Choice # 16 " MESSAGE "Help msg 16"
  94. @ 19, MENU_NUMBER*16 PROMPT "Q Choice # 17 " MESSAGE "Help msg 17"
  95. @ 20, MENU_NUMBER*16 PROMPT "R Choice # 18 " MESSAGE "Help msg 18"
  96. @ 21, MENU_NUMBER*16 PROMPT "S Choice # 19 " MESSAGE "Help msg 19"
  97. CASE MENU_NUMBER=2
  98. @ 3, MENU_NUMBER*16 PROMPT "A Choice # 1  " MESSAGE "Help msg 1"
  99. @ 4, MENU_NUMBER*16 PROMPT "B Choice # 2  " MESSAGE "Help msg 2"
  100. @ 5, MENU_NUMBER*16 PROMPT "C Choice # 3  " MESSAGE "Help msg 3"
  101. @ 6, MENU_NUMBER*16 PROMPT "D Choice # 4  " MESSAGE "Help msg 4"
  102. @ 7, MENU_NUMBER*16 PROMPT "E Choice # 5  " MESSAGE "Help msg 5"
  103. @ 8, MENU_NUMBER*16 PROMPT "F Choice # 6  " MESSAGE "Help msg 6"
  104. @ 9, MENU_NUMBER*16 PROMPT "G Choice # 7  " MESSAGE "Help msg 7"
  105. @ 10, MENU_NUMBER*16 PROMPT "H Choice # 8  " MESSAGE "Help msg 8"
  106. @ 11, MENU_NUMBER*16 PROMPT "I Choice # 9  " MESSAGE "Help msg 9"
  107. @ 12, MENU_NUMBER*16 PROMPT "J Choice # 10 " MESSAGE "Help msg 10"
  108. @ 13, MENU_NUMBER*16 PROMPT "K Choice # 11 " MESSAGE "Help msg 11"
  109. @ 14, MENU_NUMBER*16 PROMPT "L Choice # 12 " MESSAGE "Help msg 12"
  110. @ 15, MENU_NUMBER*16 PROMPT "M Choice # 13 " MESSAGE "Help msg 13"
  111. @ 16, MENU_NUMBER*16 PROMPT "N Choice # 14 " MESSAGE "Help msg 14"
  112. @ 17, MENU_NUMBER*16 PROMPT "O Choice # 15 " MESSAGE "Help msg 15"
  113. @ 18, MENU_NUMBER*16 PROMPT "P Choice # 16 " MESSAGE "Help msg 16"
  114. @ 19, MENU_NUMBER*16 PROMPT "Q Choice # 17 " MESSAGE "Help msg 17"
  115. @ 20, MENU_NUMBER*16 PROMPT "R Choice # 18 " MESSAGE "Help msg 18"
  116. @ 21, MENU_NUMBER*16 PROMPT "S Choice # 19 " MESSAGE "Help msg 19"
  117. CASE MENU_NUMBER=3
  118. @ 3, MENU_NUMBER*16 PROMPT "A Choice # 1  " MESSAGE "Help msg 1"
  119. @ 4, MENU_NUMBER*16 PROMPT "B Choice # 2  " MESSAGE "Help msg 2"
  120. @ 5, MENU_NUMBER*16 PROMPT "C Choice # 3  " MESSAGE "Help msg 3"
  121. @ 6, MENU_NUMBER*16 PROMPT "D Choice # 4  " MESSAGE "Help msg 4"
  122. @ 7, MENU_NUMBER*16 PROMPT "E Choice # 5  " MESSAGE "Help msg 5"
  123. @ 8, MENU_NUMBER*16 PROMPT "F Choice # 6  " MESSAGE "Help msg 6"
  124. @ 9, MENU_NUMBER*16 PROMPT "G Choice # 7  " MESSAGE "Help msg 7"
  125. @ 10, MENU_NUMBER*16 PROMPT "H Choice # 8  " MESSAGE "Help msg 8"
  126. @ 11, MENU_NUMBER*16 PROMPT "I Choice # 9  " MESSAGE "Help msg 9"
  127. @ 12, MENU_NUMBER*16 PROMPT "J Choice # 10 " MESSAGE "Help msg 10"
  128. @ 13, MENU_NUMBER*16 PROMPT "K Choice # 11 " MESSAGE "Help msg 11"
  129. @ 14, MENU_NUMBER*16 PROMPT "L Choice # 12 " MESSAGE "Help msg 12"
  130. @ 15, MENU_NUMBER*16 PROMPT "M Choice # 13 " MESSAGE "Help msg 13"
  131. @ 16, MENU_NUMBER*16 PROMPT "N Choice # 14 " MESSAGE "Help msg 14"
  132. @ 17, MENU_NUMBER*16 PROMPT "O Choice # 15 " MESSAGE "Help msg 15"
  133. @ 18, MENU_NUMBER*16 PROMPT "P Choice # 16 " MESSAGE "Help msg 16"
  134. @ 19, MENU_NUMBER*16 PROMPT "Q Choice # 17 " MESSAGE "Help msg 17"
  135. @ 20, MENU_NUMBER*16 PROMPT "R Choice # 18 " MESSAGE "Help msg 18"
  136. @ 21, MENU_NUMBER*16 PROMPT "S Choice # 19 " MESSAGE "Help msg 19"
  137. CASE MENU_NUMBER=4
  138. @ 3, MENU_NUMBER*16 PROMPT "A Choice # 1  " MESSAGE "Help msg 1"
  139. @ 4, MENU_NUMBER*16 PROMPT "B Choice # 2  " MESSAGE "Help msg 2"
  140. @ 5, MENU_NUMBER*16 PROMPT "C Choice # 3  " MESSAGE "Help msg 3"
  141. @ 6, MENU_NUMBER*16 PROMPT "D Choice # 4  " MESSAGE "Help msg 4"
  142. @ 7, MENU_NUMBER*16 PROMPT "E Choice # 5  " MESSAGE "Help msg 5"
  143. @ 8, MENU_NUMBER*16 PROMPT "F Choice # 6  " MESSAGE "Help msg 6"
  144. @ 9, MENU_NUMBER*16 PROMPT "G Choice # 7  " MESSAGE "Help msg 7"
  145. @ 10, MENU_NUMBER*16 PROMPT "H Choice # 8  " MESSAGE "Help msg 8"
  146. @ 11, MENU_NUMBER*16 PROMPT "I Choice # 9  " MESSAGE "Help msg 9"
  147. @ 12, MENU_NUMBER*16 PROMPT "J Choice # 10 " MESSAGE "Help msg 10"
  148. @ 13, MENU_NUMBER*16 PROMPT "K Choice # 11 " MESSAGE "Help msg 11"
  149. @ 14, MENU_NUMBER*16 PROMPT "L Choice # 12 " MESSAGE "Help msg 12"
  150. @ 15, MENU_NUMBER*16 PROMPT "M Choice # 13 " MESSAGE "Help msg 13"
  151. @ 16, MENU_NUMBER*16 PROMPT "N Choice # 14 " MESSAGE "Help msg 14"
  152. @ 17, MENU_NUMBER*16 PROMPT "O Choice # 15 " MESSAGE "Help msg 15"
  153. @ 18, MENU_NUMBER*16 PROMPT "P Choice # 16 " MESSAGE "Help msg 16"
  154. @ 19, MENU_NUMBER*16 PROMPT "Q Choice # 17 " MESSAGE "Help msg 17"
  155. @ 20, MENU_NUMBER*16 PROMPT "R Choice # 18 " MESSAGE "Help msg 18"
  156. @ 21, MENU_NUMBER*16 PROMPT "S Choice # 19 " MESSAGE "Help msg 19"
  157. ENDC
  158. SET KEY 19 TO LEFT_ARROW
  159. SET KEY 4 TO RIGHT_ARROW
  160. MENU TO LEVEL2
  161. SET KEY 19 TO
  162. SET KEY 4 TO
  163. DO CASE
  164. CASE MENU_NUMBER=0
  165. DO CASE
  166. CASE LEVEL2=1
  167. *DO SOMETHING
  168. CASE LEVEL2=2
  169. *DO SOMETHING
  170. CASE LEVEL2=3
  171. *DO SOMETHING
  172. CASE LEVEL2=4
  173. *DO SOMETHING
  174. CASE LEVEL2=5
  175. *DO SOMETHING
  176. CASE LEVEL2=6
  177. *DO SOMETHING
  178. CASE LEVEL2=7
  179. *DO SOMETHING
  180. CASE LEVEL2=8
  181. *DO SOMETHING
  182. CASE LEVEL2=9
  183. *DO SOMETHING
  184. ENDC
  185. CASE MENU_NUMBER=1
  186. DO CASE
  187. CASE LEVEL2=1
  188. *DO SOMETHING
  189. CASE LEVEL2=2
  190. *DO SOMETHING
  191. CASE LEVEL2=3
  192. *DO SOMETHING
  193. CASE LEVEL2=4
  194. *DO SOMETHING
  195. CASE LEVEL2=5
  196. *DO SOMETHING
  197. CASE LEVEL2=6
  198. *DO SOMETHING
  199. CASE LEVEL2=7
  200. *DO SOMETHING
  201. CASE LEVEL2=8
  202. *DO SOMETHING
  203. CASE LEVEL2=9
  204. *DO SOMETHING
  205. CASE LEVEL2=10
  206. *DO SOMETHING
  207. CASE LEVEL2=11
  208. *DO SOMETHING
  209. CASE LEVEL2=12
  210. *DO SOMETHING
  211. CASE LEVEL2=13
  212. *DO SOMETHING
  213. CASE LEVEL2=14
  214. *DO SOMETHING
  215. CASE LEVEL2=15
  216. *DO SOMETHING
  217. CASE LEVEL2=16
  218. *DO SOMETHING
  219. CASE LEVEL2=17
  220. *DO SOMETHING
  221. CASE LEVEL2=18
  222. *DO SOMETHING
  223. CASE LEVEL2=19
  224. *DO SOMETHING
  225. ENDC
  226. CASE MENU_NUMBER=2
  227. DO CASE
  228. CASE LEVEL2=1
  229. *DO SOMETHING
  230. CASE LEVEL2=2
  231. *DO SOMETHING
  232. CASE LEVEL2=3
  233. *DO SOMETHING
  234. CASE LEVEL2=4
  235. *DO SOMETHING
  236. CASE LEVEL2=5
  237. *DO SOMETHING
  238. CASE LEVEL2=6
  239. *DO SOMETHING
  240. CASE LEVEL2=7
  241. *DO SOMETHING
  242. CASE LEVEL2=8
  243. *DO SOMETHING
  244. CASE LEVEL2=9
  245. *DO SOMETHING
  246. CASE LEVEL2=10
  247. *DO SOMETHING
  248. CASE LEVEL2=11
  249. *DO SOMETHING
  250. CASE LEVEL2=12
  251. *DO SOMETHING
  252. CASE LEVEL2=13
  253. *DO SOMETHING
  254. CASE LEVEL2=14
  255. *DO SOMETHING
  256. CASE LEVEL2=15
  257. *DO SOMETHING
  258. CASE LEVEL2=16
  259. *DO SOMETHING
  260. CASE LEVEL2=17
  261. *DO SOMETHING
  262. CASE LEVEL2=18
  263. *DO SOMETHING
  264. CASE LEVEL2=19
  265. *DO SOMETHING
  266. ENDC
  267. CASE MENU_NUMBER=3
  268. DO CASE
  269. CASE LEVEL2=1
  270. *DO SOMETHING
  271. CASE LEVEL2=2
  272. *DO SOMETHING
  273. CASE LEVEL2=3
  274. *DO SOMETHING
  275. CASE LEVEL2=4
  276. *DO SOMETHING
  277. CASE LEVEL2=5
  278. *DO SOMETHING
  279. CASE LEVEL2=6
  280. *DO SOMETHING
  281. CASE LEVEL2=7
  282. *DO SOMETHING
  283. CASE LEVEL2=8
  284. *DO SOMETHING
  285. CASE LEVEL2=9
  286. *DO SOMETHING
  287. CASE LEVEL2=10
  288. *DO SOMETHING
  289. CASE LEVEL2=11
  290. *DO SOMETHING
  291. CASE LEVEL2=12
  292. *DO SOMETHING
  293. CASE LEVEL2=13
  294. *DO SOMETHING
  295. CASE LEVEL2=14
  296. *DO SOMETHING
  297. CASE LEVEL2=15
  298. *DO SOMETHING
  299. CASE LEVEL2=16
  300. *DO SOMETHING
  301. CASE LEVEL2=17
  302. *DO SOMETHING
  303. CASE LEVEL2=18
  304. *DO SOMETHING
  305. CASE LEVEL2=19
  306. *DO SOMETHING
  307. ENDC
  308. CASE MENU_NUMBER=4
  309. DO CASE
  310. CASE LEVEL2=1
  311. *DO SOMETHING
  312. CASE LEVEL2=2
  313. *DO SOMETHING
  314. CASE LEVEL2=3
  315. *DO SOMETHING
  316. CASE LEVEL2=4
  317. *DO SOMETHING
  318. CASE LEVEL2=5
  319. *DO SOMETHING
  320. CASE LEVEL2=6
  321. *DO SOMETHING
  322. CASE LEVEL2=7
  323. *DO SOMETHING
  324. CASE LEVEL2=8
  325. *DO SOMETHING
  326. CASE LEVEL2=9
  327. *DO SOMETHING
  328. CASE LEVEL2=10
  329. *DO SOMETHING
  330. CASE LEVEL2=11
  331. *DO SOMETHING
  332. CASE LEVEL2=12
  333. *DO SOMETHING
  334. CASE LEVEL2=13
  335. *DO SOMETHING
  336. CASE LEVEL2=14
  337. *DO SOMETHING
  338. CASE LEVEL2=15
  339. *DO SOMETHING
  340. CASE LEVEL2=16
  341. *DO SOMETHING
  342. CASE LEVEL2=17
  343. *DO SOMETHING
  344. CASE LEVEL2=18
  345. *DO SOMETHING
  346. CASE LEVEL2=19
  347. *DO SOMETHING
  348. ENDC
  349. ENDC
  350. @ 24,0 SAY SPAC(80)
  351. SET COLO TO &MSCOLO
  352. IF LASTKEY()=27
  353. IF MENU_NUMBER!=0
  354. @ 2,((MENU_NUMBER*16)-1),MENULEN,(((MENU_NUMBER+1)*16)-1) BOX ""
  355. ELSE
  356. @ 2,0,MENULEN,15 BOX ""
  357. ENDI
  358. ENDI
  359. RETU
  360. *
  361. PROC LEFT_ARROW
  362. PARA PN, PL, RV
  363. KEYBOARD CHR(27) + CHR(5) + CHR(13)
  364. RETU
  365. *
  366. PROC RIGHT_ARROW
  367. PARA PN, PL, RV
  368. KEYBOARD CHR(27) + CHR(4) + CHR(13)
  369. RETU
  370.