REM --------------------------------------------------------------
  REM Uses temporary files JOBS.TMP and JOBS.ADD.
  REM --------------------------------------------------------------
  dim Copyright as string
  Copyright = "Job Entry v1.0 (C) 1995 David W. Croft"

  dim Company as string
  dim Job_Title as string
  dim Location as string
  dim Description as string
  dim Education as string
  dim Experience as string
  dim Citizenship as string
  dim Telephone as string
  dim Contact as string
  dim Additional as string
  Additional = "No"
  dim Add_Name as string
  Add_Name = "No"

  dim Option as string
  Option = ""
  dim LIne as string
  REM --------------------------------------------------------------
  REM --------------------------------------------------------------

  sub Message_Save
  REM --------------------------------------------------------------
    dim Message as string
    Message = "Jobs.Tmp"
    dim MsgHeader as MessageHeader
  REM --------------------------------------------------------------
    open Message for output as #1
    ? #1, "JOB AREA...................:  ";
    ? #1, Conference.Name
    ? #1, "JOB TITLE..................:  ";
    ? #1, Job_Title
    ? #1, "LOCATION (CITY, STATE).....:  ";
    ? #1, Location
    ? #1, "COMPANY NAME...............:  ";
    ? #1, Company
    ? #1, "COMPANY CONTACT PERSON.....:  ";
    ? #1, Contact
    ? #1, "COMPANY TELEPHONE..........:  ";
    ? #1, Telephone
    ? #1, "CITIZENSHIP REQUIREMENTS...:  ";
    ? #1, Citizenship
    ? #1, "EDUCATIONAL REQUIREMENTS...:  ";
    ? #1, Education
    ? #1, "EXPERIENCE REQUIREMENTS....:  ";
    ? #1, Experience
    if Description <> "" then
      ? #1, ""
      ? #1, Description
    end if
    if Additional = "Yes" then
      ? #1, ""
      open "Jobs.Add" for input as #2
      while not EOF ( 2 )
        input #2, Line
        print #1, Line
      wend
      close ( 2 )
    end if
    if Add_Name = "Yes" then
      ? #1, ""
      ? #1, "FOR ADDITIONAL INFORMATION ABOUT THIS JOB, PLEASE CONTACT"
      ? #1, "E-Mail...:  "; User.Name
      ? #1, "Voice....:  "; User.PhoneNumber
      ? #1, "Data.....:  "; User.DataNumber
      ? #1, "Fax......:  "; User.FaxNumber
    end if
    close #1
    MsgHeader.From      = Company
    MsgHeader.FromTitle = Str ( User.UserID )
    MsgHeader.To        = Job_Title
    MsgHeader.ToTitle   = "JOB ENTRY"
    MsgHeader.Subject   = Location
    AddMessage ( MsgHeader, Message )
  end sub

  while Option <> "Q"
    Cls
    ? Copyright
    ?
    ? " 1  JOB AREA...................:  ";
    ? Conference.Name
    ? " 2  JOB TITLE..................:  ";
    ? Job_Title
    ? " 3  LOCATION (CITY, STATE).....:  ";
    ? Location
    ? " 4  COMPANY NAME...............:  ";
    ? Company
    ? " 5  COMPANY CONTACT PERSON.....:  ";
    ? Contact
    ? " 6  COMPANY TELEPHONE..........:  ";
    ? Telephone
    ? " 7  CITIZENSHIP REQUIREMENTS...:  ";
    ? Citizenship
    ? " 8  EDUCATIONAL REQUIREMENTS...:  ";
    ? Education
    ? " 9  EXPERIENCE REQUIREMENTS....:  ";
    ? Experience
    ? "10  BRIEF JOB DESCRIPTION......:  "
    ? Description
    ? "11  ADDITIONAL INFORMATION.....:  ";
    ? Additional
    ? "12  ADD YOUR NAME AND NUMBER...:  ";
    ? Add_Name
    ?
    ? "Option (Q = Quit/Save/Abort):  ";
    input Option
    Option = UCase ( Option )
    if Option = "Q" then
      if InputYesNo ( "Save this job entry (Y/n)?  ", true ) then
        Message_Save
      end if
      if InputYesNo ( "Make another job entry (Y/n)?  ", true ) then
        Option = ""
        if not InputYesNo ( "Do you want to keep this data for the next entry (Y/n)?  ", true ) then
          Company = ""
          Job_Title = ""
          Location = ""
          Description = ""
          Education = ""
          Experience = ""
          Citizenship = ""
          Telephone = ""
          Contact = ""
          Additional = "No"
          Add_Name = "No"
          if Exists ( "Jobs.Add" ) then
            Del ( "Jobs.Add" )
          end if
        end if
      end if
    elseif Option = "1" then
      ? " 1  JOB AREA...................:  "
      ? "Please choose one of the following job area conferences."
      Join
    elseif Option = "2" then
      ? " 2  JOB TITLE..................:  ";
      input Job_Title
    elseif Option = "3" then
      ? " 3  LOCATION (CITY, STATE).....:  ";
      input Location
    elseif Option = "4" then
      ? " 4  COMPANY NAME...............:  ";
      input Company
    elseif Option = "5" then
      ? " 5  COMPANY CONTACT PERSON.....:  ";
      input Contact
    elseif Option = "6" then
      ? " 6  COMPANY TELEPHONE..........:  ";
      input Telephone
    elseif Option = "7" then
      ? " 7  CITIZENSHIP REQUIREMENTS...:  ";
      input Citizenship
    elseif Option = "8" then
      ? " 8  EDUCATIONAL REQUIREMENTS...:  ";
      input Education
    elseif Option = "9" then
      ? " 9  EXPERIENCE REQUIREMENTS....:  ";
      input Experience
    elseif Option = "10" then
      ? "10  BRIEF JOB DESCRIPTION......:  "
      ? "Please limit this brief description to one line."
      input Description
    elseif Option = "11" then
      ? "11  ADDITIONAL INFORMATION.....:  "
      if InputYesNo ( "Include additional information? (Y/n):  ", true ) then
        if EditFile ( "Jobs.Add", 100, "ADDITIONAL INFORMATION" ) then
          Additional = "Yes"
        end if
      else
        Additional = "No"
      end if
    elseif Option = "12" then
      ? "12  ADD YOUR NAME AND NUMBER...:  "
      if InputYesNo ( "Do you want to list your name and numbers " \
        + "as another contact? (y/N):  ", false ) then
        Add_Name = "Yes"
      else
        Add_Name = "No"
      end if
    else
      Beep
    end if
  wend
  if Exists ( "Jobs.Tmp" ) then
    del ( "Jobs.Tmp" )
  end if
  if Exists ( "Jobs.Add" ) then
    del ( "Jobs.Add" )
  end if
  Cls
  ? Copyright
  ?
  ? "Please register this software."
  ?
  ? "The author may be reached via e-mail at"
  ?
  ? "  Wyrm BBS of Pasadena, CA:  (818) 793-2426"
  ? "  MSI HQ BBS              :  (805) 873-2400"
  ? "  CompuServe              :  [76600,102]"
  ?
  WaitEnter