Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50546/admhlp.for
There is 1 other file named admhlp.for in the archive. Click here to see a list.
      SUBROUTINE ADMHLP(ITTY,KNDMSG,IMOD)
C     RENBR(/INSTRUCTIONS FOR JOB ADMINISTRATOR)/M:99999
C
C     DONALD BARTH, YALE SCHOOL OF MANAGEMENT
C
      DATA LTRSPA/1H /
    1 FORMAT(1X/' (press RETURN to continue)',$)
    2 FORMAT(1A1)
    3 FORMAT(1X)
      LTRNOW=LTRSPA
C
C     TRANSFER TO WRITE STATEMENT FOR DESIRED MESSAGE
      IF(IMOD.NE.0)GO TO 7
      GO TO(
     1  100, 200, 300, 400, 500, 600, 700, 800, 900,1000,
     2    6,1200,1300,1400,1500,1600,1700,1800,1900,2000,
     3 2100,2200,2300,2400,2500,2600),KNDMSG
      GO TO 6
    7 GO TO(
     1  100, 200, 350, 450, 550, 650, 750, 850, 950,1050,
     2    6,1200,1300,1400,1500,1600,1750,1850,1900,2000,
     3 2100,2200,2300,2400,2500,2600),KNDMSG
      GO TO 6
C
C     DESCRIBE THE COMMANDS
      GO TO 5
  100 CONTINUE
      WRITE(ITTY,101)
  101 FORMAT(36H Type one of the following commands:/3H EN,
     145HTER   to enter the schedule for another firm./1H ,
     249HEXIT    to save the schedules entered so far and ,
     323Hexit.  You later resume/9X,19Hentering additional,
     440H schedules or modify existing schedules./6H LIST ,
     53X,42Hto list the numbers identifying the firms./1H ,
     649HMODIFY  and a firm number to modify the schedule ,
     714Hfor that firm./31H PRINT   to get a disk file lis,
     831Hting information for all firms.)
      WRITE(ITTY,102)
  102 FORMAT(42H SAVE    to save the schedules entered so ,
     131Hfar.  You can continue to enter/9X,11Hadditional ,
     240Hschedules and modify existing schedules./6H SHOW ,
     33X,46Hand a firm number to list the schedule for tha,
     47Ht firm.)
C
C     NUMBER OF FIRM
      GO TO 5
  200 CONTINUE
      WRITE(ITTY,201)
  201 FORMAT(42H Type the number which identifies the firm,
     133H.  If you do not know the number,/12H merely pres,
     249Hs the RETURN key to get back to the "WHAT NEXT?" ,
     318Hquestion, and then/11H type LIST.)
C
C     NAME OF FIRM
      GO TO 5
  300 CONTINUE
      WRITE(ITTY,301)
  301 FORMAT(42H Type the name of the firm.  Merely press ,
     136Hthe RETURN key if you do not want to/9H enter th,
     232He schedule for another firm now.)
      GO TO 5
  350 CONTINUE
      WRITE(ITTY,351)
  351 FORMAT(42H Type the name of the firm.  Merely press ,
     136Hthe RETURN key if you want to retain/9H the old ,
     25Hname.)
C
C     NAME OF DIVISION
      GO TO 5
  400 CONTINUE
      WRITE(ITTY,401)
  401 FORMAT(42H Type the name of the division.  Merely pr,
     139Hess the RETURN key if the division name/7H is to ,
     29Hbe blank.)
      GO TO 5
  450 CONTINUE
      WRITE(ITTY,451)
  451 FORMAT(42H Type the name of the division.  Press the,
     137H * key and then the RETURN key if the/9H division,
     249H name was specified earlier, but you want it to b,
     316He blank instead./29H Merely press the RETURN key ,
     444Hif you want to retain the old division name.)
C
C     ADDRESS
      GO TO 5
  500 CONTINUE
      WRITE(ITTY,501)
  501 FORMAT(42H Type the address of the firm.  Merely pre,
     138Hss the RETURN key if the address is to/8H be blan,
     22Hk.)
      GO TO 5
  550 CONTINUE
      WRITE(ITTY,551)
  551 FORMAT(42H Type the address of the firm.  Press the ,
     136H* key and then the RETURN key if the/9H address ,
     249Hwas specified earlier, but you want it to be blan,
     318Hk instead.  Merely/27H press the RETURN key if yo,
     433Hu want to retain the old address.)
C
C     DATE
      GO TO 5
  600 CONTINUE
      WRITE(ITTY,601)
  601 FORMAT(42H Type the date when the firm will intervie,
     133Hw.  This date can be typed in any/12H conventiona,
     241Hl form such as 1 Jan 83 or January 1, 83.)
      GO TO 5
  650 CONTINUE
      WRITE(ITTY,651)
  651 FORMAT(42H Type the date when the firm will intervie,
     133Hw.  This date can be typed in any/12H conventiona,
     249Hl form such as 1 Jan 83 or January 1, 83.  Merely,
     317H press the RETURN/28H key if you want to retain t,
     412Hhe old date.)
C
C     LENGTH OF INTERVIEWS
      GO TO 5
  700 CONTINUE
      WRITE(ITTY,701)
  701 FORMAT(42H Type the length of the interviews in minu,
     138Htes.  A profile of starting times must/8H have be,
     245Hen established for interviews of this length.//
     349H Profiles have been established for interviews of,
     423H the following lengths.)
      GO TO 5
  750 CONTINUE
      WRITE(ITTY,751)
  751 FORMAT(42H Type the length of the interviews in minu,
     138Htes.  A profile of starting times must/8H have be,
     249Hen established for interviews of this length.  If,
     323H you change the length,/22H then you will have to,
     449H reenter the schedule for each recruiter.  Merely,
     510H press the/35H RETURN key if you want to retain t,
     631Hhe length specified previously.//13H Profiles hav,
     749He been established for interviews of the followin,
     810Hg lengths.)
C
C     NUMBER OF INTERVIEWERS
      GO TO 5
  800 CONTINUE
      WRITE(ITTY,801)
  801 FORMAT(42H Type the number of schedules.  This shoul,
     139Hd be the smallest whole number equal to/7H or jus,
     249Ht greater than the number of open schedules.  For,
     324H example, you would type/21H 3 here if there are ,
     449H2 and 1/2 open schedules.  If you type 0, then th,
     57His firm/21H will not be entered.)
      GO TO 5
  850 CONTINUE
      WRITE(ITTY,851)
  851 FORMAT(42H Type the number of schedules.  This shoul,
     139Hd be the smallest whole number equal to/7H or jus,
     249Ht greater than the number of open schedules.  For,
     324H example, you would type/21H 3 here if there are ,
     449H2 and 1/2 open schedules.  If you type 0, then th,
     57His firm/39H will be cancelled.  Merely press the R,
     642HETURN key if you want to retain the number/4H of ,
     731Hschedules specified previously.//13H NOTE:  Indiv,
     849Hidual schedules can be cancelled by setting the s,
     919Htarting time of the)
      WRITE(ITTY,852)
  852 FORMAT(42H first interview to after the starting tim,
     130He of the final interview or by/15H indicating tha,
     249Ht all of the interviews in these schedules are to,
     312H be skipped.)
C
C     STARTING TIME
      GO TO 5
  900 CONTINUE
      WRITE(ITTY,901)
  901 FORMAT(42H Type the starting time of the first inter,
     136Hview for this schedule.  If the last/9H intervie,
     249Hw starts in the afternoon, then either follow the,
     323H minutes digits with pm/22H or type the time in t,
     449Hhe 24 hour system.  Either 2 or 14 or 2:00 or 2:0,
     56H0pm or/40H 14:00 could be used to represent 2 in t,
     613Hhe afternoon.//31H The starting time of the first,
     740H interview must be one of the following:)
      GO TO 5
  950 CONTINUE
      WRITE(ITTY,951)
  951 FORMAT(42H Type the starting time of the first inter,
     136Hview for this schedule.  If the last/9H intervie,
     249Hw starts in the afternoon, then either follow the,
     323H minutes digits with pm/22H or type the time in t,
     449Hhe 24 hour system.  Either 2 or 14 or 2:00 or 2:0,
     56H0pm or/40H 14:00 could be used to represent 2 in t,
     638Hhe afternoon.  Merely press the RETURN/8H key if ,
     749Hyou want to retain the starting time specified pr,
     89Heviously.//36H The starting time of the first inte,
     935Hrview must be one of the following:)
C
C     ENDING TIME
      GO TO 5
 1000 CONTINUE
      WRITE(ITTY,1001)
 1001 FORMAT(42H Type the starting time of the last interv,
     135Hiew for this schedule.  If the last/10H interview,
     249H starts in the afternoon, then either follow the ,
     322Hminutes digits with pm/23H or type the time in th,
     449He 24 hour system.  Either 2 or 14 or 2:00 or 2:00,
     55Hpm or/41H 14:00 could be used to represent 2 in th,
     612He afternoon.//32H The starting time of the final ,
     739Hinterview must be one of the following:)
      GO TO 5
 1050 CONTINUE
      WRITE(ITTY,1051)
 1051 FORMAT(42H Type the starting time of the last interv,
     135Hiew for this schedule.  If the last/10H interview,
     249H starts in the afternoon, then either follow the ,
     322Hminutes digits with pm/23H or type the time in th,
     449He 24 hour system.  Either 2 or 14 or 2:00 or 2:00,
     55Hpm or/41H 14:00 could be used to represent 2 in th,
     637He afternoon.  Merely press the RETURN/9H key if y,
     749Hou want to retain the last time slot specified pr,
     89Heviously.//36H The starting time of the final inte,
     935Hrview must be one of the following:)
C
C     TIMES OF SKIPPED INTERVIEWS
      GO TO 5
 1700 CONTINUE
      WRITE(ITTY,1701)
 1701 FORMAT(42H Type the starting time of any interview w,
     135Hhich is between the first and final/10H interview,
     249Hs, but which will not be included in this schedul,
     318He.  If the skipped/27H interview starts in the af,
     449Hternoon, then either follow the minutes digits wi,
     55Hth pm/41H or type the time in the 24 hour system. ,
     636H Either 2 or 14 or 2:00 or 2:00pm or/9H 14:00 co,
     749Huld be used to represent 2 in the afternoon.  Mer,
     820Hely press the RETURN)
      WRITE(ITTY,1702)
 1702 FORMAT(42H key an extra time after you have specifie,
     139Hd all of the interviews which are to be/7H skippe,
     22Hd.//43H The starting time of the skipped interview,
     330H must be one of the following:)
      GO TO 5
 1750 CONTINUE
      WRITE(ITTY,1751)
 1751 FORMAT(42H Type the starting time of any interview w,
     135Hhich is between the first and final/10H interview,
     249Hs, but which will not be included in this schedul,
     319He.  If an interview/26H which was previously indi,
     449Hcated as being skipped is instead to be held, the,
     56Hn type/40H its time again.  If the skipped intervi,
     639Hew starts in the afternoon, then either/7H follow,
     749H the minutes digits with pm or type the time in t,
     818Hhe 24 hour system.)
      WRITE(ITTY,1752)
 1752 FORMAT(42H Either 2 or 14 or 2:00 or 2:00pm or 14:00,
     136H could be used to represent 2 in the/9H afternoo,
     249Hn.  Merely press the RETURN key an extra time aft,
     321Her you have specified/24H all of the interviews w,
     423Hhich are to be skipped.//21H The starting time of,
     549H the skipped interview must be one of the followi,
     63Hng:)
C
C     MAXIMUM NUMBER OF INTERVIEWS ALLOWED FOR 1 STUDENT IN 1ST STAGE
      GO TO 5
 1200 CONTINUE
      WRITE(ITTY,1201)
 1201 FORMAT(42H Type the maximum total number of intervie,
     136Hws which each student can request in/9H this sta,
     249Hge of this round.  Merely press the RETURN key if,
     323H you want to retain the/22H number specified prev,
     47Hiously.)
C
C     MAXIMUM NUMBER OF INTERVIEWS FOR 1 STUDENT IN ALL STAGES THIS ROUN
      GO TO 5
 2100 CONTINUE
      WRITE(ITTY,2101)
 2101 FORMAT(42H Type the maximum total number of intervie,
     136Hws which each student can request in/9H all stag,
     249Hes of this round.  Merely press the RETURN key if,
     323H you want to retain the/22H number specified prev,
     47Hiously.)
C
C     MAXIMUM NUMBER OF INTERVIEWS FOR 1 STUDENT DURING SEASON
      GO TO 5
 2400 CONTINUE
      WRITE(ITTY,2401)
 2401 FORMAT(42H Type the maximum total number of intervie,
     136Hws which each student can request in/9H all stag,
     249Hes of all rounds during the entire interview seas,
     321Hon.  Merely press the/24H RETURN key if you want ,
     442Hto retain the number specified previously.)
C
C     MAXIMUM BID FOR A SINGLE FIRM
      GO TO 5
 2300 CONTINUE
      WRITE(ITTY,2301)
 2301 FORMAT(42H Type the maximum amount which each studen,
     136Ht can bid for a single firm.  Merely/9H press th,
     249He RETURN key if you want to retain the number spe,
     318Hcified previously.)
C
C     MAXIMUM TOTAL AMOUNT BID FOR ALL FIRMS
      GO TO 5
 2200 CONTINUE
      WRITE(ITTY,2201)
 2201 FORMAT(42H Type the maximum total number of high pri,
     135Hority requests which can be made by/10H each stud,
     249Hent.  Merely press the RETURN key if you want to ,
     317Hretain the number/22H specified previously.)
      GO TO 5
 2500 CONTINUE
      WRITE(ITTY,2501)
 2501 FORMAT(42H Type the maximum total amount which each ,
     134Hstudent can bid.  Merely press the/11H RETURN key,
     249H if you want to retain the number specified previ,
     36Hously.)
C
C     ASK FOR CLASS NUMBER
      GO TO 5
 1400 CONTINUE
      WRITE(ITTY,1401)
 1401 FORMAT(42H Type the number which identifies the clas,
     137Hs for which the interview schedule is/9H to be en,
     219Htered at this time.)
C
C     ASK IF DISPLAY IS CORRECT
      GO TO 5
 1500 CONTINUE
      WRITE(ITTY,1501)
 1501 FORMAT(35H Type one of the following commands/4H YES,
     15X,46HIf the above information is correct.  You can ,
     220Hlater issue a MODIFY/9X,22Hcommand to change this,
     313H information./3H NO,6X,23HIf the above informatio,
     446Hn is not correct.  You will be able to correct/9X,
     528Hthe information immediately.)
C
C     ASK IF DISPLAY IS CORRECT
      GO TO 5
 2600 CONTINUE
      WRITE(ITTY,2601)
 2601 FORMAT(35H Type one of the following commands/4H YES,
     15X,46HIf the above information is correct.  You will,
     223H be able to modify this/9X,19Hinformation the nex,
     328Ht time you run this program./3H NO,6X,9HIf the ab,
     449Hove information is not correct.  You will be able,
     511H to correct/9X,28Hthe information immediately.)
C
C     ASK WHICH SCHEDULE IS TO BE MODIFIED
      GO TO 5
 1300 CONTINUE
      WRITE(ITTY,1301)
 1301 FORMAT(42H Type the number of the next schedule whic,
     138Hh is to be modified.  Merely press the/8H RETURN ,
     248Hkey if no more schedules are to be modified now.)
C
C     ASK IF REALLY MEAN TO START A NEW ROUND
      GO TO 5
 1600 CONTINUE
      WRITE(ITTY,1601)
 1601 FORMAT(35H Type one of the following commands/4H YES,
     15X,46HIf you really mean to start a new round.  The ,
     224Hlist of companies in the/9X,18Hprevious round wil,
     315Hl be discarded./3H NO,6X,21HIf you instead mean t,
     449Ho continue the former round.  The list of compani,
     52Hes/9X,39Hin the former round will be maintained.)
C
C     ASK IF ALL INTERVIEWS ARE REALLY TO BE CANCELLED
      GO TO 5
 1900 CONTINUE
      WRITE(ITTY,1901)
 1901 FORMAT(35H Type one of the following commands/4H YES,
     15X,46HIf you really mean to terminate the entry of t,
     224Hhis firm.  The firm will/9X,18Hbe removed from th,
     37He list./3H NO,6X,30HIf you typed 0 by accident.  Y,
     437Hou will be asked again to specify the/9X,6Hnumber,
     514H of schedules.)
      GO TO 5
 2000 CONTINUE
      WRITE(ITTY,2001)
 2001 FORMAT(35H Type one of the following commands/4H YES,
     15X,46HIf you really mean to cancel all interviews fo,
     222Hr this firm.  The firm/9X,20Hwill remain in the l,
     312Hist however./3H NO,6X,24HIf you typed 0 by accide,
     443Hnt.  You will be asked again to specify the/9X,
     520Hnumber of schedules.)
C
C     TYPE OF SCHEDULE PROFILE
      GO TO 5
 1800 CONTINUE
      WRITE(ITTY,1801)
 1801 FORMAT(42H There is more than 1 set of possible star,
     133Hting times for interviews of this/12H length.  Pl,
     249Hease select the number identifying the set of sta,
     317Hrting times which/13H are desired.)
      GO TO 5
 1850 CONTINUE
      WRITE(ITTY,1851)
 1851 FORMAT(42H There is more than 1 set of possible star,
     133Hting times for interviews of this/12H length.  Pl,
     249Hease select the number identifying the set of sta,
     317Hrting times which/28H are desired.  Merely press ,
     447Hthe RETURN key if you have already selected the/
     519H schedule you want.)
      GO TO 5
C
C     END-OF-FILE ON TERMINAL REQUIRES CLOSE TO PREVENT INFINITE LOOP
    4 CLOSE(UNIT=ITTY)
      GO TO 6
C
C     RETURN TO CALLING PROGRAM
    5 WRITE(ITTY,3)
    6 RETURN
      END