home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBSCREN.PRG < prev    next >
Text File  |  1987-02-04  |  3KB  |  126 lines
  1. * Program..: JOBSCREN.PRG
  2. * Author...: DENNIS W. CHRISTENSEN
  3. * ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
  4. * Notice...: Copyright 1986, All Rights Reserved
  5. * DATE.....: MAR 21, 1987
  6. * Reserved.: select, selectnum
  7. *
  8. ERASE
  9. USE EMPLOYER
  10. GO TOP
  11. SET TALK OFF
  12. SET ECHO OFF
  13. SET ESCAPE ON
  14. SET DELETED ON
  15. @ 1,15 SAY "** SCREEN COMPANIES IN DATABASE **"
  16. STORE '                    ' TO mCITY
  17. STORE '  ' TO mSTATE
  18. STORE 1 TO ANSS
  19. STORE ' ' TO ANS
  20. STORE 2 TO MLINE
  21. STORE 'S' TO ANSP
  22. @ 3,25 SAY "1-->  BY STATE"
  23. @ 4,25 SAY "2-->  BY CITY"
  24. @ 6,25 SAY "YOUR CHOICE-->" GET ANSS PICTURE '9'
  25. READ
  26. @ 9,20 SAY "DISPLAY TO (S)CREEN OR (P)RINT-->" GET ANSP
  27. READ
  28. @ 7,0 ERASE
  29. IF ANSS = 1
  30.    @ 7,0 ERASE
  31.    @ 7,20 SAY "ENTER STATE CODE (Tx)-->"
  32.    @ 7,45 GET mSTATE PICTURE 'XX'
  33.    READ
  34.    @ 2, 0 ERASE
  35.    LOCATE FOR STATE = mSTATE
  36.    IF STATE # mSTATE
  37.       @ 10,20 SAY "STATE SELECTION NOT FOUND..."
  38.       WAIT
  39.       RETURN
  40.    ENDIF
  41.    IF ANSP = 'P'
  42.       @ 10,15 SAY "ENSURE PRINTER IS ONLINE WITH CORRECT PAPER..."
  43.       WAIT
  44.       @ 10,0 ERASE
  45.       @ 10,25 SAY "NOW PRINTING..."
  46.       SET FORMAT TO PRINT
  47.       @ MLINE,10 SAY "** EMPLOYER LISTING FOR STATE-->"+mSTATE
  48.       STORE MLINE+2 TO MLINE
  49.    ENDIF
  50.       DO WHILE .NOT. EOF .AND. STATE = mSTATE
  51.          IF MLINE >= 22 .AND. ANSP = 'S'
  52.             @ 24, 20 SAY "CONTINUE (Y/N):";
  53.             GET ANS PICTURE 'X'
  54.             READ
  55.             IF ANS = 'Y' .OR. ANS = 'y'
  56.                STORE 2 TO MLINE
  57.                @  2, 0  ERASE
  58.             ELSE
  59.                ERASE
  60.                RETURN
  61.             ENDIF
  62.          ENDIF
  63.       @ MLINE, 1 SAY #
  64.       @ MLINE, 10 SAY COMPANY
  65.       STORE MLINE+1 TO MLINE
  66.       CONTINUE
  67.    ENDDO
  68. ENDIF
  69. *
  70. IF ANSS = 2
  71.    @ 7,0 ERASE
  72.    @ 6,20 SAY "ENTER CITY-->"
  73.    @ 6,33 GET mCITY PICTURE 'XXXXXXXXXXXXXXXXXXXX'
  74.    READ
  75.    @ 2, 0 ERASE
  76.    LOCATE FOR CITY = mCITY
  77.    IF CITY # mCITY
  78.       @ 10,20 SAY "CITY SELECTION NOT FOUND..."
  79.       WAIT
  80.       RETURN
  81.    ENDIF
  82.    IF ANSP = 'P'
  83.       @ 10,15 SAY "ENSURE PRINTER IS ONLINE WITH CORRECT PAPER..."
  84.       WAIT
  85.       @ 10,0 ERASE
  86.       @ 10,25 SAY "NOW PRINTING..."
  87.       SET FORMAT TO PRINT
  88.       @ MLINE,10 SAY "** EMPLOYER LISTING FOR CITY-->"+mCITY
  89.       STORE MLINE+2 TO MLINE
  90.    ENDIF
  91.       DO WHILE .NOT. EOF .AND. CITY = mCITY
  92.          IF MLINE = 22
  93.             @ 24, 20 SAY "CONTINUE (Y/N):";
  94.             GET ANS PICTURE 'X'
  95.             READ
  96.             IF ANS = 'Y'.OR. ANS = 'y'
  97.                STORE 2 TO MLINE
  98.                @  2, 0  ERASE
  99.             ELSE
  100.                WAIT
  101.                ERASE
  102.                RETURN
  103.             ENDIF
  104.          ENDIF
  105.          @ MLINE, 0 SAY #
  106.          @ MLINE, 15 SAY COMPANY
  107.          STORE MLINE+1 TO MLINE
  108.          CONTINUE
  109.      ENDDO
  110. ENDIF
  111. @ MLINE, 25 SAY "** EOF **"
  112. IF ANSP = 'P'
  113.    EJECT
  114.    SET FORMAT TO SCREEN
  115.    @ 10,25 SAY "PRINTING COMPLETED..."
  116. ENDIF
  117. WAIT
  118. RETURN
  119. * EOF: JOBSCREN.PRG
  120.  
  121.  
  122.  
  123.  
  124. e " " to select
  125.    @ 18,0  clear
  126.    @ 17,33 say "select : : "