home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBVIEW.PRG < prev   
Text File  |  1987-02-04  |  1KB  |  42 lines
  1. * Program..: JOBVIEW.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 15, 1987
  6. * Reserved.: select, selectnum
  7. *
  8. ERASE
  9. USE EMPLOYER
  10. GO TOP
  11. SET TALK OFF
  12. SET ECHO OFF
  13. SET DELETED ON
  14. @ 1, 15 SAY "** SCREEN COMPANIES IN DATABASE **"
  15. STORE ' ' TO ANS
  16. STORE 2 TO MLINE
  17. DO WHILE .NOT. EOF
  18. IF MLINE >= 22
  19.   @ 24, 20 SAY "CONTINUE (Y/N):";
  20.   GET ANS PICTURE 'X'
  21.   READ
  22.   IF ANS = 'Y'.OR. ANS = 'y'
  23.      STORE 2 TO MLINE
  24.      @  2, 0  ERASE
  25.   ELSE
  26.      ERASE
  27.      RETURN
  28.   ENDIF
  29. ENDIF
  30. @ MLINE, 0 SAY #
  31. @ MLINE, 10 SAY COMPANY
  32. STORE MLINE+1 TO MLINE
  33. SKIP
  34. ENDDO
  35. @ MLINE, 25 SAY "** EOF **"
  36. WAIT
  37. * EOF: JOBVIEW.PRG
  38.  
  39.  
  40.  
  41.  
  42.                                                                                                                   340-8443