Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/VIEWGEN.ARC/SAM_MENU.PRG

Text File | 1985-11-05 | 2KB | 60 lines

* Program.: SAM_MENU.PRG
* Author..: Your Name
* Date....: 11/05/85
* Notice..: Copyright 1985, Your Company, All Rights Reserved
* Version.: dBASE III, version 1.1
* Notes...: Main menu for NAMES.DBF
*
PARAMETER choice
CLEAR
SET COLOR TO &WindowAtr
@  1, 0 SAY "╔═══════════════════════════════════════"
@  1,40 SAY "═══════════════════════════════════════╗"
@  2, 0 SAY "║"
@  2,26 SAY "N A M E S    M A I N    M E N U"
@  2,79 SAY "║"
@  3, 0 SAY "╠═══════════════════════════════════════"
@  3,40 SAY "═══════════════════════════════════════╣"
@  4, 0 SAY "║"
@  4,79 SAY "║"
@  5, 0 SAY "║"
@  5,79 SAY "║"
@  6, 0 SAY "║"
@  6,79 SAY "║"
@  7, 0 SAY "║"
@  7,79 SAY "║"
@  8, 0 SAY "║"
@  8,79 SAY "║"
@  9, 0 SAY "║"
@  9,79 SAY "║"
@ 10, 0 SAY "║"
@ 10,79 SAY "║"
@ 11, 0 SAY "║"
@ 11,79 SAY "║"
@ 12, 0 SAY "║"
@ 12,79 SAY "║"
@ 13, 0 SAY "║"
@ 13,79 SAY "║"
@ 14, 0 SAY "║"
@ 14,79 SAY "║"
@ 15, 0 SAY "╚═══════════════════════════════════════"
@ 15,40 SAY "═══════════════════════════════════════╝"
SET COLOR TO &PromptAtr
@  5,33 SAY " 0. Quit"
@  6,33 SAY " 1. Append"
@  7,33 SAY " 2. Browse"
@  8,33 SAY " 3. Edit/View"
@  9,33 SAY " 4. Help"
@ 10,33 SAY " 5. Labels"
@ 11,33 SAY " 6. Pack"
@ 12,33 SAY " 7. Report"
@ 15,33 SAY " select : : "
@ 15,42 SAY ""
DO GetKey WITH choice,"01234567QABEHLPR"
* ---Number becomes first letter of menu selection.
IF choice $ "01234567"
   choice = SUBSTR( "QABEHLPR",VAL( choice ) + 1,1 )
ENDIF
RETURN
* EOF: SAM_MENU.PRG