Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : JOBHUNT.ZIP
Filename : JOBMENU.PRG

 
Output of file : JOBMENU.PRG contained in archive : JOBHUNT.ZIP

*!!* dBASE CONVERT - dBASE III File Conversion Aid v2.01 1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* Program..: JOBMENU.PRG
* AUTHOR...: DENNIS W. CHRISTENSEN
* DATE.....: 86/12/28
* NOTICE...: COPYRIGHT 1986, ALL RIGHTS RESERVED
* NOTES....:
* reserved.: select, selectnum
*
SET TALK OFF
SET BELL OFF
SET DELIMITER OFF

*!! Logical constant converted.
DO WHILE .T.

CLEAR
@ 1,20 SAY "==============================================="
@ 2,20 SAY "||"
@ 2,25 SAY " JOB HUNT TRACKING SYSTEM "
@ 2,65 SAY "||"
@ 3,20 SAY "==============================================="
@ 4,20 SAY "||"
@ 4,65 SAY "||"
@ 5,20 SAY "||"
@ 5,65 SAY "||"
@ 6,20 SAY "||"
@ 6,65 SAY "||"
@ 7,20 SAY "||"
@ 7,65 SAY "||"
@ 8,20 SAY "||"
@ 8,65 SAY "||"
@ 9,20 SAY "||"
@ 9,65 SAY "||"
@ 10,20 say "||"
@ 10,65 SAY "||"
@ 11,20 SAY "||"
@ 11,65 SAY "||"
@ 12,20 SAY "||"
@ 12,65 SAY "||"
@ 13,20 SAY "==============================================="
@ 4,27 SAY " * MAIN JOB TRACKING MENU * "
@ 5,27 SAY " 0. EXIT "
@ 6,27 SAY " 1. ADD EMPLOYER RECORD "
@ 7,27 SAY " 2. EDIT/VIEW EMPLOYER RECORD "
@ 8,27 SAY " 3. SCREEN COMPANIES IN DATABASE"
@ 9,27 SAY " 4. SCREEN BY CITY, STATE "
@ 10,27 SAY " 5. VIEW/PRINT MAILING LABELS "
@ 11,27 SAY " 6. SYSTEM INFORMATION "
@ 12,27 SAY " 7. DELETE RECORDS/PACK DATABASE "
STORE 8 TO selectnum
DO WHILE selectnum < 0 .OR. selectnum > 7
STORE " " TO select
@ 13,33 SAY " select : : "
@ 13,42 GET select PICTURE "#"
READ
STORE VAL(select) TO selectnum
ENDDO

DO CASE
CASE selectnum= 0
CLEAR
RETURN

CASE selectnum= 1
DO JOBADD.PRG

CASE selectnum= 2
DO JOBEDIT.PRG

CASE selectnum= 3
DO JOBVIEW.PRG

CASE selectnum= 4
DO JOBSCREN.PRG

CASE selectnum= 5
DO JOBLABEL.PRG

CASE selectnum= 6
DO JOBINFO.PRG

CASE selectnum= 7
DO JOBMAINT.PRG

ENDCASE

ENDDO T
* EOF: JOBMENU.PRG