home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / nannws24.arc / RETMAST.PRG < prev    next >
Encoding:
Text File  |  1988-05-18  |  2.1 KB  |  84 lines
  1. * Program: RETMAST.PRG
  2. * Author:  fho
  3. * Version: Clipper Summer '87
  4. * Notes:   This program illustrates how BEGIN SEQUENCE...
  5. *          [BREAK]...END SEQUENCE can be used to simulate
  6. *          RETURN TO MASTER.
  7. * Copyright (c) 1988 Nantucket Corp.
  8.  
  9. *****
  10. * 1st level menu
  11. *
  12. DO WHILE .T.
  13.     BEGIN SEQUENCE
  14.     CLEAR
  15.     @ 01, 01 SAY "in Master Menu..."
  16.     @ 05, 05 PROMPT " Go one level down "
  17.     @ 06, 05 PROMPT " No operation      "
  18.     @ 07, 05 PROMPT " End               "
  19.     MENU TO first
  20.     DO CASE
  21.         CASE first = 1
  22.             DO menu2            && 2nd level menu
  23.         CASE first = 2
  24.             @ 23, 01 SAY "No-op choice...press any key..."
  25.             INKEY(0)
  26.         CASE first = 3
  27.             EXIT
  28.     ENDCASE
  29.     END SEQUENCE
  30. ENDDO
  31. RETURN
  32.  
  33. *****
  34. * 2nd level menu
  35. *
  36. PROCEDURE menu2
  37.     DO WHILE .T.
  38.         CLEAR
  39.         @ 01, 01 SAY "in MENU2..."
  40.         @ 05, 05 PROMPT " Go one more level down "
  41.         @ 06, 05 PROMPT " No Operation           "
  42.         @ 07, 05 PROMPT " Go to previous level   "
  43.         MENU TO second
  44.         DO CASE
  45.             CASE second = 1
  46.                 DO menu3                && go to third level menu
  47.             CASE second = 2
  48.                 @ 23, 01 SAY "No-op choice...press any key..."
  49.                 INKEY(0)
  50.             CASE second = 3
  51.                 EXIT
  52.         ENDCASE
  53.         @ 24, 01 SAY "exiting..."
  54.         INKEY(0)
  55.     ENDDO
  56. RETURN
  57.  
  58. *****
  59. * 3rd level menu
  60. *
  61. PROCEDURE menu3
  62.     DO WHILE .T.
  63.         CLEAR
  64.         @ 01, 01 SAY "in MENU3..."
  65.         @ 05, 05 PROMPT " Return to Master    "
  66.         @ 06, 05 PROMPT " No Operation        "
  67.         @ 07, 05 PROMPT " Go to previous level"
  68.         MENU TO third
  69.         DO CASE
  70.             CASE third = 1
  71.                 BREAK
  72.             CASE third = 2
  73.                 @ 23, 01 SAY "No-op choice...press any key..."
  74.                 INKEY(0)
  75.             CASE third = 3
  76.                 EXIT
  77.         ENDCASE
  78.         @ 24, 01 SAY "exiting..."
  79.         INKEY(0)
  80.     ENDDO
  81. RETURN
  82.  
  83. * EOP: RETMAST.PRG
  84.