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

 
Output of file : JOBVIEW.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..: JOBVIEW.PRG
* Author...: DENNIS W. CHRISTENSEN
* ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
* Notice...: Copyright 1986, All Rights Reserved
* DATE.....: MAR 15, 1987
* Reserved.: select, selectnum
*
CLEAR
USE EMPLOYER
GO TOP
SET TALK OFF
SET ECHO OFF
SET DELETED ON
@ 1, 15 SAY "** SCREEN COMPANIES IN DATABASE **"
STORE ' ' TO ANS
STORE 2 TO MLINE
DO WHILE .NOT. EOF()
IF MLINE >= 22
@ 24, 20 SAY "CONTINUE (Y/N):";
GET ANS PICTURE 'X'
READ
IF ANS = 'Y'.OR. ANS = 'y'
STORE 2 TO MLINE
@ 2, 0 CLEAR
ELSE
CLEAR
RETURN
ENDIF
ENDIF
@ MLINE, 0 SAY RECNO()
@ MLINE, 10 SAY COMPANY
STORE MLINE+1 TO MLINE
SKIP
ENDDO
@ MLINE, 25 SAY "** EOF **"
WAIT
* EOF: JOBVIEW.PRG