home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBEDIT.PRG < prev    next >
Text File  |  1987-02-04  |  3KB  |  91 lines
  1. * PROGRAM..: JOBEDIT.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. GO TOP
  14. *
  15. STORE 0 TO mNUM
  16. STORE T TO ADD
  17. DO WHILE ADD
  18.    STORE ' ' TO ANS
  19.    @  1,25 SAY "** EDIT EMPLOYER RECORD **"
  20.    @  3,10 SAY "ENTER COMPANY NUMBER(001)|";
  21.            GET mNUM PICTURE '999'
  22.    READ
  23.    LOCATE FOR mNUM = #
  24. IF .NOT. EOF .AND. COMPANY # '                    '
  25.    @ 2, 0 ERASE
  26.    @  3, 5 SAY "COMPANY:";
  27.    GET COMPANY PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  28.    @  4, 5 SAY "KEY PERSON:";
  29.   GET KEYPERS1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  30.    @  5, 5 SAY "ADDRESS:";
  31.    GET ADDRESS PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  32.    @  6, 5 SAY "CITY:";
  33.            GET CITY PICTURE 'XXXXXXXXXXXXXXXXXXXX'
  34.    @  6,35 SAY "STATE:";
  35.            GET STATE PICTURE 'XX'
  36.    @  6,49 SAY "ZIPCODE:";
  37.            GET ZIP PICTURE '99999.9999'
  38.    @  7,5  SAY "PHONES:";
  39.            GET PHONE PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  40.    @  9, 5 SAY "COMPANY PURPOSE:";
  41.    GET PURPOSE PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  42.    @ 10, 5 SAY "COMPANY OFFICES:";
  43.    GET OFFICES PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  44.    @ 12, 5 SAY "CONTACT 1:";
  45.   GET CONTACT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  46.    @ 13, 5 SAY "CONTACT 2:";
  47.   GET CONTACT2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  48.    @ 15, 5 SAY "REMARKS:";
  49.   GET REM1     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  50.    @ 16, 5 SAY "        ";
  51.   GET REM2     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  52.    @ 17, 5 SAY "        ";
  53.   GET REM3     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  54.    @ 18, 5 SAY "        ";
  55.   GET REM4     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  56.    @ 19, 5 SAY "        ";
  57.   GET REM5     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  58.    @ 20, 5 SAY "        ";
  59.   GET REM6     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  60.    @ 21, 5 SAY "        ";
  61.   GET REM7     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  62.    @ 22, 5 SAY "        ";
  63.   GET REM8     PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  64.    READ
  65. ELSE
  66.    @ 5,10 SAY " RECORD DOES NOT EXIST..."
  67.    @ 24,10 WAIT
  68. ENDIF
  69.    *
  70.    * This routine allows for another record to be added.
  71.    @ 24,10 SAY "DO YOU WANT TO EDIT ANOTHER EMPLOYER RECORD? (Y/N) ";
  72.    GET ANS PICTURE '!'
  73.            READ
  74.    IF ANS = "Y"
  75.       ERASE
  76.       SELECT PRIMARY
  77.       APPEND BLANK
  78.       LOOP
  79.    ELSE
  80.       STORE F TO ADD
  81.    ENDIF
  82. ENDDO   WHILE ADD
  83. USE
  84. CLEAR
  85. RELEASE
  86. RETURN
  87. * EOF: JOBEDIT.PRG
  88.  
  89. XXXXXXXXXXXXXXXXXXXXX'
  90.    @ 18, 5 SAY "        ";
  91.   GET REM4