home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBADD.PRG < prev    next >
Text File  |  1987-02-04  |  3KB  |  83 lines
  1. * PROGRAM..: JOBADD.PRG
  2. * DATE.....: 03/21/87
  3. * AUTHOR...: DENNIS W. CHRISTENSEN
  4. * ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
  5. * NOTICE....: COPYRIGHT 1986, ALL RIGHTS RESERVED
  6. *
  7. SET TALK OFF
  8. SET BELL OFF
  9. SET COLON OFF
  10. ERASE
  11. *
  12. USE EMPLOYER
  13. APPEND BLANK
  14. *
  15. STORE T TO ADD
  16. DO WHILE ADD
  17.    STORE ' ' TO ANS
  18.    @  1,25 SAY "** ADD NEW EMPLOYER RECORD **"
  19.    @  3, 5 SAY "COMPANY:";
  20.    GET COMPANY PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  21.    @  4, 5 SAY "KEY PERSON:";
  22.   GET KEYPERS1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  23.    @  5, 5 SAY "ADDRESS:";
  24.    GET ADDRESS PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  25.    @  6, 5 SAY "CITY:";
  26.            GET CITY PICTURE 'XXXXXXXXXXXXXXXXXXXX'
  27.    @  6,35 SAY "STATE:";
  28.            GET STATE PICTURE 'XX'
  29.    @  6,49 SAY "ZIPCODE:";
  30.            GET ZIP PICTURE '99999-9999'
  31.    @  7,5  SAY "PHONES:";
  32.            GET PHONE PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  33.    @  9, 5 SAY "COMPANY PURPOSE:";
  34.    GET PURPOSE PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  35.    @  10, 5 SAY "COMPANY OFFICES:";
  36.    GET OFFICES PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  37.    @ 12, 5 SAY "CONTACT 1:";
  38.   GET CONTACT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  39.    @ 13, 5 SAY "CONTACT 2:";
  40.   GET CONTACT2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  41.    @ 15, 5 SAY "REMARKS:";
  42.   GET REM1     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  43.    @ 16, 5 SAY "        ";
  44.   GET REM2     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  45.    @ 17, 5 SAY "        ";
  46.   GET REM3     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  47.    @ 18, 5 SAY "        ";
  48.   GET REM4     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  49.    @ 19, 5 SAY "        ";
  50.   GET REM5     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  51.    @ 20, 5 SAY "        ";
  52.   GET REM6     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  53.    @ 21, 5 SAY "        ";
  54.   GET REM7     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  55.    @ 22, 5 SAY "        ";
  56.   GET REM8     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  57.    READ
  58.    *
  59.    * This routine allows for another record to be added.
  60.    @ 24,10 SAY "DO YOU WANT TO ADD ANOTHER EMPLOYER RECORD? (Y/N) ";
  61.    GET ANS PICTURE '!'
  62.            READ
  63.    IF ANS = "Y"
  64.       ERASE
  65.       SELECT PRIMARY
  66.       APPEND BLANK
  67.       LOOP
  68.    ELSE
  69.       STORE F TO ADD
  70.    ENDIF
  71. ENDDO   WHILE ADD
  72. USE
  73. CLEAR
  74. RELEASE
  75. RETURN
  76. * EOF: JOBADD.PRG
  77.  5 SAY "        ";
  78.   GET REM3     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  79.    @ 18, 5 SAY "        ";
  80.   GET REM4     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  81.    @ 19, 5 SAY "        ";
  82.   GET REM5     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  83.    @ 20, 5 SAY "