home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / CODE_1.ARC / TEM_MENU.PRG < prev    next >
Encoding:
Text File  |  1988-11-04  |  730 b   |  30 lines
  1. * ________.PRG
  2. * __________ MENU module written by:  ____________
  3. *     created: 10/11/88
  4. * last update: 10/11/88
  5. *
  6. * Module called from ________.PRG
  7. *
  8. DO WHILE .T.
  9.    CLEAR
  10.    menu_opt=1
  11.    @ 03,00 SAY REPLICATE(CHR(196),79)               && Single Top Border Line
  12.    @ 23,00 SAY REPLICATE(CHR(196),79)               && Block Bottom Border Line
  13.    @ 24,00 SAY sys_comm
  14.    @ 01,00      PROMPT "________" MESSAGE "_______________"
  15.    @ 01,COL()+2 PROMPT "________" MESSAGE "_______________"
  16.    MENU TO menu_opt
  17.    DO CASE
  18.       CASE menu_opt=0
  19.          EXIT
  20.          *
  21.       CASE menu_opt=1
  22.          DO ________
  23.          *
  24.       CASE menu_opt=2
  25.          DO ________
  26.          *
  27.    ENDCASE
  28. ENDDO
  29. RETURN
  30.