home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pay1per.zip
/
PAYEMPS.PRG
< prev
next >
Wrap
Text File
|
1987-01-15
|
1KB
|
56 lines
* Program..: CRTXEDIT.PRG
* Author...: Martin J. Michaelson
* Date.....: 01/15/87
* Notice...: Copyright (c) 1987, MJM, All Rights Reserved
* Notes....:
* Reserved.: selectnum
*
select 1
DO WHILE .T.
* ---Display menu options, centered on the screen.
* draw menu border and print heading
CLEAR
@ 2, 8 TO 14,71 DOUBLE
@ 3,24 SAY [P E R S O N N E L R E C O R D S]
@ 4,9 TO 4,70 DOUBLE
* ---display detail lines
@ 7,30 SAY [1. ADD INFORMATION]
@ 8,30 SAY [2. CHANGE INFORMATION]
@ 9,30 SAY [3. REVIEW INFORMATION]
@ 12, 30 SAY '0. RETURN TO MAIN MENU'
STORE 0 TO selectnum
@ 14,33 SAY " Select "
@ 14,42 GET selectnum PICTURE "9" RANGE 0,4
READ
DO CASE
CASE selectnum = 0
RETURN
CASE selectnum = 1
* DO ADD INFORMATION
SET FORMAT TO CRTX
APPEND
SET FORMAT TO
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 2
do editemps
CASE selectnum = 3
* DO REVIEW INFORMATION
BROWSE
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
ENDCASE
ENDDO T
RETURN
* EOF: CRTXEDIT.PRG