home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
jobhunt.zip
/
JOBMAINT.PRG
< prev
next >
Wrap
Text File
|
1987-03-24
|
1KB
|
34 lines
* Program..: JOBMAINT.PRG
* Author...: DENNIS W. CHRISTENSEN
* ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
* Notice...: Copyright 1986, All Rights Reserved
* DATE.....: MAR 24, 1987
* Reserved.: select, selectnum
*
ERASE
USE EMPLOYER
STORE ' ' TO ANS
STORE 0 TO mREC
@ 2, 10 SAY "** DELETE RECORDS/PACK DATABASE **"
@ 5, 15 SAY "ENTER RECORD NUMBER TO DELETE-->";
GET mREC PICTURE '999'
READ
IF mREC > 0
GOTO mREC
DELETE
ENDIF
@ 7, 15 SAY "DO YOU WISH TO PACK THE DATABASE NOW? (Y/N)";
GET ANS PICTURE 'X'
READ
IF ANS = 'Y'
@ 10,25 SAY "PACKING EMPLOYER DATABASE..."
PACK
ENDIF
@ 3, 0 ERASE
RETURN
* EOF: JOBMAINT.PRG
Rent-A-Consultant