home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / FIG16-1.PRG < prev    next >
Encoding:
Text File  |  1993-01-31  |  1.5 KB  |  34 lines
  1. *****************************************************************
  2. *     * 09/92               FIG16-1.PRG                         *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates types of Menu pads             *
  8. *     *                                                         *
  9. *****************************************************************
  10. CLEAR
  11. DEFINE WINDOW map TITLE "Directions" FROM 10,30 TO 32,90
  12. DEFINE MENU horiz BAR at line 5
  13. DEFINE PAD h1 OF horiz PROMPT "\<Create"
  14. DEFINE PAD h2 OF horiz PROMPT "\<Modify"
  15. DEFINE PAD h3 OF horiz PROMPT "\<Browse"
  16. DEFINE PAD h4 OF horiz PROMPT "C\<hange"
  17. DEFINE PAD h5 OF horiz PROMPT "E\<xit" mark "z"
  18. ON SELECTION PAD h1 OF horiz DO mapper
  19. ACTIVATE MENU horiz
  20. PROCEDURE mapper
  21. ACTIVATE WINDOW map
  22. DEFINE MENU map IN WINDOW map
  23. DEFINE PAD m1 OF map AT  2,24 PROMPT "\<North"
  24. DEFINE PAD m2 OF map AT  6,35 PROMPT "N\<orth East"
  25. DEFINE PAD m3 OF map AT 10,50 PROMPT "\<East"
  26. DEFINE PAD m4 OF map AT 14,35 PROMPT "So\<uth East"
  27. DEFINE PAD m5 OF map AT 18,24 PROMPT "\<South"
  28. DEFINE PAD m6 OF map AT 14,12 PROMPT "So\<uth West"
  29. DEFINE PAD m7 OF map AT 10,2  PROMPT "\<West"
  30. DEFINE PAD m8 OF map AT  6,12 PROMPT "No\<rth West"
  31. DEFINE PAD m9 OF map AT 10,24 PROMPT "\<Central"
  32. ACTIVATE MENU map
  33. DEACTIVATE WINDOW map
  34.