Trailing-Edge
-
PDP-10 Archives
-
decuslib20-08
-
decus/20-0175/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