Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : JOBHUNT.ZIP
Filename : JOBLABEL.PRG
*
SET HEADING OFF
SET SAFETY OFF
* Program..: JOBLABEL.PRG
* Author...: Dennis W Christensen
* Date.....: 03/24/87
* Notice...: Copyright 1986, All Rights Reserved
* Reserved.: select, condition, extra
*
SET TALK OFF
SET BELL OFF
STORE "S" TO select
STORE "S" TO mANS
STORE " " TO mSTATE
USE EMPLOYER
CLEAR
@ 2, 0 SAY "E M P L O Y E R M A I L I N G L A B E L S"
@ 2,72 SAY DTOC(DATE())
@ 3, 0 SAY "========================================"
@ 3,40 SAY "========================================"
CLEAR GETS
@ 5,0 SAY "(A)LL or by (S)tate -->";
GET mANS PICTURE "X"
READ
IF mANS = "S"
@ 5,0 SAY "Enter State choice -->";
GET mSTATE PICTURE "XX"
READ
ENDIF
STORE " " TO select
@ 7,0 SAY "Output to the screen or printer? [S/P] ";
GET select PICTURE "!"
READ
DO CASE
CASE select = "S"
CLEAR
CASE select = "P"
@ 10,20 SAY "ENSURE PRINTER ON WITH CORRECT LABELS..."
WAIT
SET PRINT ON
OTHERWISE
CLEAR
SET BELL ON
SET TALK ON
RETURN
ENDCASE
* ---Enter FOR
* ---STORE "STATE = 'CA'" TO condition
STORE " " TO condition
STORE 0 TO CTR
DO CASE
CASE mANS # 'S'
DO WHILE .NOT. EOF() .AND. (mANS # 'S'.OR. mANS # 's')
IF CTR >= 5 .AND. select = 'S'
WAIT
CLEAR
STORE 0 TO CTR
ENDIF
IF condition <> " "
IF .NOT. (&condition)
SKIP
LOOP
ENDIF
ENDIF
STORE 0 TO extra
IF COMPANY # ' '
? TRIM(COMPANY)
IF KEYPERS1 # ' '
? TRIM(KEYPERS1)
ENDIF
? TRIM(ADDRESS)
? trim(CITY) + ', ' + STATE + ' ' + TRIM(ZIP)
?
ENDIF
DO WHILE extra > 0
?
STORE extra - 1 TO extra
ENDDO
SKIP
STORE CTR+1 TO CTR
ENDDO
*
CASE mANS = 'S'
LOCATE FOR STATE = mSTATE
DO WHILE .NOT. EOF() .AND. (mANS = 'S'.OR. mANS = 's')
IF CTR >= 5 .AND. select = 'S'
WAIT
CLEAR
STORE 0 TO CTR
ENDIF
IF condition <> " "
IF .NOT. (&condition)
CONTINUE
ENDIF
ENDIF
STORE 0 TO extra
IF COMPANY # ' '
? TRIM(COMPANY)
IF KEYPERS1 # ' '
? TRIM(KEYPERS1)
ENDIF
? TRIM(ADDRESS)
? trim(CITY) + ', ' + STATE + ' ' + TRIM(ZIP)
?
ENDIF
DO WHILE extra > 0
?
STORE extra - 1 TO extra
ENDDO
CONTINUE
STORE CTR+1 TO CTR
ENDDO
ENDCASE
*
IF select = 'P'
EJECT
SET PRINT OFF
ENDIF
?
? "THAT'S ALL ..."
CLEAR ALL
SET TALK ON
SET BELL ON
WAIT
RETURN
* EOF: JOBLABEL.PRG
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/