Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50546/jobhlp.for
There is 1 other file named jobhlp.for in the archive. Click here to see a list.
SUBROUTINE JOBHLP(ITTY,KNDMSG,LTRBFR,LMTBFR,MAXBFR,IVIDEO)
C RENBR(/JOBS PROGRAM, ISSUE INSTRUCTIONS)/M:99999
C
C DONALD BARTH, YALE SCHOOL OF MANAGEMENT
C
C THIS ROUTINE IS PART OF THE JOB INTERVIEW REQUEST SYSTEM
C
C ITTY = UNIT NUMBER FOR READING AND WRITING TO TERMINAL
C KNDMSG = SELECTS WHICH MESSAGE IS TO BE ISSUED
C LTRBFR = RETURNED WITH COMMAND TYPED BY USER IF THE
C MESSAGE IS LONGER THAN 1 SCREEN.
C LMTBFR = MAXIMUM NUMBER OF CHARACTERS IN COMMAND TYPED
C BY THE USER
C MAXBFR = RETURNED WITH NUMBER OF CHARACTERS TYPED BY THE
C USER IF MESSAGE IS LONGER THAN 1 SCREEN
C IVIDEO = SELECTS WHETHER SCREEN IS CLEARED
C = -1, PAPER OUTPUT, DO NOT ISSUE FORM FEEDS
C = 0, SCROLLING VIDEO, DO NOT ISSUE FORM FEEDS
C = 1, CLEAR SCREEN AT START AND IN MIDDLE OF LONG
C MESSAGES.
C = 2, DO NOT CLEAR SCREEN AT START, BUT DO CLEAR
C SCREEN IN MIDDLE OF LONG MESSAGES.
C
DIMENSION LTRBFR(LMTBFR)
1 FORMAT(1X/' (press RETURN to continue)',$)
2 FORMAT(1A1)
3 FORMAT(1X)
MAXBFR=0
C
C INDICATE IF ISSUE FORM FEEDS AFTER FULL SCREENS
IF(IVIDEO.LE.0)GO TO 8
C
C IF ON VIDEO TERMINAL AND ARE GOING TO ISSUE MULTIPLE
C PAGES, THEN ISSUE FORM FEED THAT PUTS NEXT TYPING ON
C TOP LINE OF THE SCREEN.
IF(IVIDEO.EQ.1)CALL RSMWIP(ITTY)
8 CONTINUE
C
C TRANSFER TO WRITE STATEMENT FOR DESIRED MESSAGE
GO TO(
1 100, 200, 300, 400, 500, 600, 700, 800, 900, 6,
2 1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,
3 2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,
4 3100,3200,3300,3400,3500,3600,3700,3800),KNDMSG
GO TO 6
C
C ASK FOR THE NAME OF THE USER
GO TO 5
100 CONTINUE
WRITE(ITTY,101)
101 FORMAT(42H Type your name exactly as you want to hav,
139He it appear on the lists which are/7H given ,
218Hto the recruiters.)
C
C INITIAL QUESTION IF NAME IS CORRECT OR TERMINAL TYPE
GO TO 5
1200 CONTINUE
WRITE(ITTY,1201)
1201 FORMAT(36H Type one of the following commands://2H Y,
149HES If you want your name to be given to the recr,
226Huiters exactly as you have/6X,16Hspecified it her,
32He./44H NO If you want to change how your name is,
411H to appear.)
GO TO 5
3000 CONTINUE
WRITE(ITTY,3001)
3001 FORMAT(42H You are assumed to be using a slow hardco,
137Hpy terminal which types directly onto/7H paper.)
GO TO 5
3100 CONTINUE
WRITE(ITTY,3101)
3101 FORMAT(42H You are assumed to be using a fast video ,
131Hterminal on which the last line/14H displayed app,
249Hears at the bottom of the screen forcing the prev,
313Hious lines to/15H scroll upward.)
GO TO 5
3200 CONTINUE
WRITE(ITTY,3201)
3201 FORMAT(42H You are assumed to be using a video termi,
139Hnal on which this program can erase the/7H screen,
223H when the screen fills.)
GO TO 5
3300 CONTINUE
WRITE(ITTY,3301)
3301 FORMAT(42H If this assumption about the type of term,
139Hinal which you are using is wrong, then/7H you sh,
249Hould select the proper type of terminal by typing,
321H one of the following/24H instead of YES or NO. ,
449HYou will again be asked whether your name is corr,
54Hect.//41H SLOW if you are using a hardcopy ter,
638Hminal which types directly onto paper./8H FAST ,
749H if you are using a video terminal on which the ,
819Hlast line displayed/10X,22Happears at the bottom ,
943Hof the screen forcing the previous lines to)
WRITE(ITTY,3302)
3302 FORMAT(10X,14Hscroll upward./20H PAGING if you are,
149H using a video terminal on which this program can,
210H erase the/10X,29Hscreen when the screen fills.)
C
C DESCRIBE THE COMMANDS
GO TO 5
2200 CONTINUE
WRITE(ITTY,2201)
2201 FORMAT(42H You will be asked the question "WHAT NEXT,
139H?" repeatedly by this program. This/7H progra,
249Hm expects that you will use a number rather tha,
325Hn a name to identify each/20H firm with which you,
449H want to request an interview. To request an int,
512Herview with/33H a particular firm you would firs,
66Ht type/40H LIST to discover the number assigne,
713Hd to the firm/24H and then you would type/5H REQU,
849HEST followed by the number assigned to the firm./
9)
WRITE(ITTY,2202)
2202 FORMAT(42H Other commands which you can type in resp,
137Honse to the "WHAT NEXT?" request are:/9H CANCEL ,
249H followed by the number assigned to a firm to can,
320Hcel a request for an/10X,10Hinterview./8H PRIORIT,
449HY followed by the number assigned to a firm to ch,
524Hange the priority of (or/10X,17Hthe bid for) a re,
623Hquest for an interview./22H REPORT to obtain a ,
749Hlist of the firms with which you have already req,
86Huested/10X,11Hinterviews./21H SAVE to save a c,
947Hopy of the requests which you have made so far.)
WRITE(ITTY,2203)
2203 FORMAT(42H TIME followed by the number assigned ,
138Hto a firm to change the times when you/10X,4Hwoul,
244Hd prefer to have the interview be scheduled./2H F,
349Hinally, when you have finished your requests, typ,
430He the EXIT command in response/15H to the "WHAT ,
549HNEXT?" request to save your requests and to quit ,
617Hthe program. You/28H will be able to run the pro,
735Hgram later to modify your requests.)
C
C SHORT LIST OF THE COMMANDS
GO TO 5
200 CONTINUE
WRITE(ITTY,201)
201 FORMAT(42H The following is a summary of the availab,
110Hle options//27H CANCEL to cancel request/4H EXI,
231HT to save requests and exit/14H LIST to l,
327Hist firms and their numbers/18H NAME to chang,
442He how your name is shown to the recruiters/4H PAP,
547HER to obtain a file which you can then print/
635H PRIORITY to change priority or bid/10H REPORT ,
728Hto list requests made so far/17H REQUEST to requ,
813Hest interview/32H SAVE to save requests but n,
97Hot exit)
WRITE(ITTY,202)
202 FORMAT(42H TIME to change preferred dates or tim,
12Hes//43H The following options select terminal type/
2/35H SLOW for paper output terminal/9H FAST ,
331H for video without screen clear/14H PAGING for ,
423Hvideo with screen clear///20H Now you can either ,
549Hpress the return key to get a more detailed expla,
67Hnation,/39H or you can type a word in this list to,
734H perform the corresponding option.)
IF(IVIDEO.LT.0)GO TO 203
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
203 CONTINUE
C
C LONG LIST OF WHAT NEXT OPTIONS
WRITE(ITTY,204)
204 FORMAT(42H CANCEL and a firm number to cancel a re,
139Hquest for an interview with the firm./10X,3HIf ,
249H you cancel a request you have made during the ,
319Hcurrent stage, then/10X,22Hyou will regain the ab,
449Hility to make another request and to reuse the/
510X,35Hpriority bid used for this request./7H EXIT ,
63X,46Hto save the requests which you have made so fa,
725Hr and then exit from this/10X,16Hprogram. You ,
849Hcan run this program later, as often as you wa,
96Hnt, to)
WRITE(ITTY,205)
205 FORMAT(10X,38Hchange your requests. You must, howev,
133Her, complete your selections by/10X,9Hthe anno,
249Hunced due date. Your requests cannot be process,
313Hed unless you/10X,28Huse the SAVE option to save ,
443Hyour requests or the EXIT option to exit/10X,
517Hfrom the program./28H LIST to list the number,
649Hs identifying the firms. These numbers are ne,
74Heded/10X,38Hfor the REQUEST, PRIORITY, TIME and CA,
814HNCEL commands./31H NAME to check or change ho,
940Hw your name will be shown to recruiters.)
WRITE(ITTY,206)
206 FORMAT(42H PAPER to write a report of the firms w,
139Hith which you have requested interviews/10X,3Hint,
249Ho a file which you can then print. This repor,
319Ht contains the same/10X,22Hinformation about each,
449H request as is shown to you directly by the/
510X,15HREPORT command./26H PRIORITY and a firm numbe,
649Hr to change the priority of (or the bid for) a r,
76Hequest/10X,31Hfor an interview with the firm./2H R,
849HEPORT to list the firms with which you have r,
930Hequested interviews so far.)
WRITE(ITTY,207)
207 FORMAT(10X,38HRequested times and the priorities,
133H or bids you assigned to these/10X,9Hrequests ,
215Hare also shown.)
IF(IVIDEO.LT.0)GO TO 208
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
208 CONTINUE
WRITE(ITTY,209)
209 FORMAT(42H REQUEST and a firm number to request an ,
125Hinterview with that firm./20H SAVE to save th,
249He requests which you have made so far. If the co,
312Hmputer dies,/10X,29Hthen these will be the req,
442Huests which will be in effect when you run/10X,
549Hthis program the next time. The SAVE command doe,
622Hs not exit you from/10X,19Hthis program. You ,
749Hcan continue to request additional interviews now,
81H./45H TIME and a firm number to change the dat,
936He and/or the times at which you)
WRITE(ITTY,210)
210 FORMAT(10X,38Hwould prefer to have your interview,
133H with the firm be scheduled. You/10X,9Hwill be a,
249Hsked to specify the date when you would like ,
313Hto have the/10X,28Hinterview if the firm is h,
443Holding interviews on more than 1 date. You/10X,
549Hwill then be asked to specify the time at which y,
622Hou most prefer to have/10X,19Hthe interview. You,
749H can specify additional times in decreasing order,
83H of/10X,39Hpreference. If you have specified a da,
932Hte, then the times will apply)
WRITE(ITTY,211)
211 FORMAT(10X,38Honly for that date. If you have not,
133H specified a date, then the times/10X,9Hwill appl,
249Hy on any date. After you have specified as many ,
313Htimes as you/10X,28Hwant, merely press the RETUR,
443HN key again to get back to the "WHAT NEXT?"/10X,
58Hrequest.//37H Following commands change how termin,
643Hal you are using is handled by this program//2H S,
749HLOW if running this program from a slow or ha,
815Hrdcopy terminal)
WRITE(ITTY,212)
212 FORMAT(42H FAST if running this program from a f,
139Hast video terminal which cannot clear/10X,3Hthe,
221H screen between pages)
IF(IVIDEO.LT.0)GO TO 213
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
213 CONTINUE
WRITE(ITTY,214)
214 FORMAT(42H PAGING if running this program from a f,
139Hast video terminal which can clear the/10X,3Hscr,
243Heen when instructed to do so by the program)
C
C ASK FOR IDENTIFICATION CODE OF FIRM
GO TO 5
300 CONTINUE
WRITE(ITTY,301)
301 FORMAT(42H Type the number which identifies the firm,
134H with which you want to request an/11H interview.,
249H If you do not know this number, merely press th,
320He RETURN key now and/25H issue the LIST command i,
439Hn response to the "WHAT NEXT?" request.)
GO TO 5
1000 CONTINUE
WRITE(ITTY,1001)
1001 FORMAT(42H Type the number which identifies the firm,
135H with which you want to cancel your/10H request f,
249Hor an interview. If you do not know this number,,
317H merely press the/28H RETURN key now and issue th,
448He REPORT command in response to the "WHAT NEXT?"/
59H request.)
GO TO 5
1100 CONTINUE
WRITE(ITTY,1101)
1101 FORMAT(42H Type the number which identifies the firm,
134H with which you want to change the/11H priority o,
249Hf your request for an interview. If you do not k,
316Hnow this number,/29H merely press the RETURN key ,
449Hnow and issue the REPORT command in response to t,
52Hhe/22H "WHAT NEXT?" request.)
GO TO 5
1800 CONTINUE
WRITE(ITTY,1801)
1801 FORMAT(42H Type the number which identifies the firm,
134H with which you want to change the/11H times when,
249H you would like to have the interview be held. I,
317Hf you do not know/28H this number, merely press t,
449Hhe RETURN key now and issue the REPORT command in/
538H response to the "WHAT NEXT?" request.)
C
C AFTER SHOWING FIRM NAME, ASK IF THIS IS THE CORRECT FIRM
GO TO 5
400 CONTINUE
WRITE(ITTY,401)
401 FORMAT(36H Type one of the following commands:/3H YE,
131HS If this is the correct firm./14H NO If this ,
249His not the correct firm. The option which you re,
316Hquested will not/6X,13Hbe performed.)
C
C ASK IF USER WANTS TO SEE A SUMMARY OF THE FIRMS REQUESTED
GO TO 5
500 CONTINUE
WRITE(ITTY,501)
501 FORMAT(42H You cannot request interviews at this tim,
132He. However, you can review your/13H current requ,
249Hests and the action taken on your earlier request,
32Hs.//36H Type one of the following commands./4H YES,
438H If you want to review your requests./8H NO If,
541H you do not want to review your requests.)
C
C ASK IF USER WANTS PAPER COPY OF REPORT
GO TO 5
3600 CONTINUE
WRITE(ITTY,3601)
3601 FORMAT(42H The interviews which you have requested c,
136Han be summarized in a file which you/9H can then,
27H print.//36H Type one of the following commands:/
349H YES If this if you want to obtain a file which ,
419Hyou can then print./26H NO If this if you do no,
537Ht want a paper copy of your requests.)
C
C PRIORITY ASSIGNMENT TYPE 1
C ASK USER TO ASSIGN PRIORITY VALUE
GO TO 5
2100 CONTINUE
WRITE(ITTY,2101)
2101 FORMAT(42H You must specify a different number as t,
139Hhe priority for each request. The/7H reques,
249Ht to which you assign a priority of 1 should be t,
325Hhe request which you most/20H want to be successf,
449Hul. The requests to which you assign higher num,
512Hbers should/33H be the ones, in turn, about,
648H which you are less concerned. If you assign a/
749H priority number to the current firm which is the,
832H same as the priority number)
WRITE(ITTY,2102)
2102 FORMAT(42H which you have already assigned to some o,
139Hther firm, then that other firm will be/7H instea,
249Hd assigned the lowest numbered priority (i.e., of,
325H most concern to you)/20H which is not curr,
449Hently in use. You should make sure that there ar,
512He no gaps in/33H the priority values which you as,
648Hsign before you EXIT the final time from the/
749H program. If there are gaps, i.e., if one of t,
832Hhe numbers 1 through N is not in)
WRITE(ITTY,2103)
2103 FORMAT(42H use where N is the number of interviews w,
139Hhich you have requested, then some of/7H your ,
249Hrequests will be treated as of less concern to y,
325Hou than they need be. If/20H you later decide th,
449Hat you want to change the priorities of your req,
512Huests, then/33H you can issue the PRIORITY comm,
648Hand in response to the "WHAT NEXT?" request. If/
749H you are requesting interviews in the second sta,
832Hge when the excess interview)
WRITE(ITTY,2104)
2104 FORMAT(42H slots which were not assigned in the fi,
139Hrst stage are being requested, then you/7H can ag,
249Hain assign priorities starting with 1; you do no,
325Ht have to select values/20H which are greater t,
448Hhan those which you selected in the first stage.)
C
C PRIORITY ASSIGNMENT TYPE 2
C ASK IF USER WANTS TO ASSIGN HIGH PRIORITY TO REQUEST
GO TO 5
600 CONTINUE
WRITE(ITTY,601)
601 FORMAT(42H You can assign a high priority to a limit,
133Hed number of requests. If you do/12H assign such,
249H a high priority to the current request, then you,
317Hr request will be/28H honored before a low priori,
449Hty made by anyone else in the current stage of th,
51He/15H current round.//25H Type one of the followin,
611Hg commands:/34H YES If you want to assign a high,
726H priority to this request./19H NO If you do not,
848H want to assign a high priority to this request.)
C
C PRIORITY ASSIGNMENT TYPE 3
C ASK AMOUNT USER WANTS TO BID
GO TO 5
2400 CONTINUE
WRITE(ITTY,2401)
2401 FORMAT(42H Type the amount that you want to bid on y,
139Hour request for an interview with this/7H firm. ,
249H This will be a number of zero or greater. ,
325H The highest bids will be/20H assigned interviews,
449H first, then the next highest, and so on. While ,
512Hyou can bid/33H zero on your request, such ,
648Hzero bids will be assigned last, and will be the/
749H least likely to get an interview if the firm is ,
832Hoversubscribed. The total of)
WRITE(ITTY,2402)
2402 FORMAT(42H your bids for all of your requests is ,
139Hlimited. If you bid more than you have/7H left, ,
249Hthen the excess will be removed from the lo,
325Hwest of your bids for/20H interviews with oth,
49Her firms.)
C
C ASK IF USER WANTS TO SEE A SUMMARY OF THE FIRMS REQUESTED
GO TO 5
700 CONTINUE
WRITE(ITTY,701)
701 FORMAT(42H NOTE: if you answer YES to the following,
138H question, then you CANNOT revise your/8H intervi,
249Hew requests further unless you contact the SOM co,
322Hmputer services staff.)
C
C ASK IF USER REALLY WANTS TO SUBMIT
GO TO 5
800 CONTINUE
WRITE(ITTY,801)
801 FORMAT(36H Type one of the following commands:/3H YE,
149HS If you do not want to make any further changes,
221H in your requests for/6X,21Hinterviews during the,
349H current stage of the current round. Your reques,
42Hts/6X,41Hcannot be processed until and unless you ,
532Hcomplete the SUBMIT option. You/6X,10Hwill be un,
649Hable to revise your interview requests further un,
716Hless you contact/6X,26Hthe SOM computer services ,
86Hstaff./40H NO If you still want to make changes ,
932Hin your requests for interviews.)
C
C TELL USER WHAT PROGRAM THIS IS
GO TO 5
900 CONTINUE
WRITE(ITTY,901)
901 FORMAT(42H This program allows you to sign up for an,
135Hy of the firms which are conducting/10H open inte,
249Hrviews in the near future. You should type ? if ,
321Hyou do not understand/24H any question and want f,
420Hurther instructions.//24H If you see that you hav,
549He made a mistake in the line which you are typing,
67H, press/39H the key marked on various terminals as,
739H DEL, DELETE or RUBOUT as many times as/7H are ne,
849Hcessary to back up past the character in error, t,
920Hhen type the correct)
WRITE(ITTY,902)
902 FORMAT(42H character and the rest of the line. DO N,
137HOT use the keys marked with arrows to/9H correct ,
29Hanything.)
C
C TO MANY INTERVIEWS REQUESTED
GO TO 5
1300 CONTINUE
WRITE(ITTY,1301)
1301 FORMAT(42H You have already requested as many interv,
133Hiews in the current round as this/12H program can,
249H process. If you really want to request an inter,
320Hview with this firm,/25H then you will have to ca,
432Hncel one of your other requests.)
GO TO 5
1900 CONTINUE
WRITE(ITTY,1901)
1901 FORMAT(42H You have already requested as many interv,
133Hiews during the current interview/12H season as y,
249Hou are allowed. If you really want to request an,
320H interview with this/25H firm, then you will have,
438H to cancel one of your other requests.)
GO TO 5
3400 CONTINUE
WRITE(ITTY,3401)
3401 FORMAT(42H You have already requested as many interv,
136Hiews during the current round as you/9H are allo,
249Hwed. If you really want to request an interview ,
320Hwith this firm, then/25H you will have to cancel ,
427Hone of your other requests.)
GO TO 5
3500 CONTINUE
WRITE(ITTY,3501)
3501 FORMAT(42H You have already requested as many interv,
136Hiews during the current stage of the/9H current ,
249Hround as you are allowed. If you really want to ,
320Hrequest an interview/25H with this firm, then you,
448H will have to cancel one of your other requests.)
C
C INSTRUCTIONS FOR SELECTING TIMES
GO TO 5
2000 CONTINUE
WRITE(ITTY,2001)
2001 FORMAT(42H Please note that you are not required to ,
138Hstate any time preferences. If you do/8H state s,
249Home time preferences, then we will attempt to hon,
323Hor them, but no promise/22H is made or implied. ,
449HIf you do not want to state any time preferences,,
59H then you/37H should merely press the RETURN key i,
632Hn response to the next question.)
GO TO 5
1600 CONTINUE
WRITE(ITTY,1601)
1601 FORMAT(42H Type the starting times of the interviews,
138H you prefer, one per line and with the/8H most de,
249Hsired time first. When you have specified all of,
324H the starting times that/21H interest you, merely,
449H press the RETURN key again without having typed ,
58Hanything/38H else. You should type the times in a,
643H form similar to 3:15pm, although the am is/3H no,
749Ht needed for morning interviews and the colon and,
827H minutes are not needed for/18H interviews which ,
918Hstart on the hour.)
GO TO 5
1700 CONTINUE
WRITE(ITTY,1701)
1701 FORMAT(36H Type one of the following commands:/3H YE,
149HS If you have specified the starting times of th,
227He interviews which you most/6X,15Hdesire for this,
36H firm./40H NO If you want to specify more starti,
437Hng times. These will be given lesser/6X,6Hprefer,
545Hence than the ones you have already typed in.)
GO TO 5
2300 CONTINUE
WRITE(ITTY,2301)
2301 FORMAT(42H Type the date when you prefer to have the,
139H interview with this firm. This date/7H can b,
249He typed in any conventional manner such as 3-FEB-,
325H83 or FEBRUARY 3, 83. If/20H possible, your inte,
449Hrview will be scheduled on the date you request,
512H. You can/33H only specify a single such date.,
648H You will be asked later to specify the time of/
749H the day when you prefer to have the interview. ,
832HThose times will only be given)
WRITE(ITTY,2302)
2302 FORMAT(42H higher priorities on this date. Merely ,
139Hpress the RETURN key now if you have no/7H prefer,
249Hence about the date when the interview is schedul,
325Hed, or if you want the/20H times that you will,
449H specify to be given higher priority on all dates,
51H.)
C
C INSTRUCTIONS FOR ENTERING PASSWORD
GO TO 5
1400 CONTINUE
WRITE(ITTY,1401)
1401 FORMAT(42H The password which you have specified can,
125Hnot be used because it is/20H computationally sim,
249Hilar to a password already in use. This does not,
310H mean that/35H these passwords are visually simil,
43Har./32H Please select another password.)
GO TO 5
3700 CONTINUE
WRITE(ITTY,3701)
3701 FORMAT(42H The password that you have selected is no,
133Ht meant to be used at this point./12H Please sele,
220Hct another password.)
GO TO 5
1500 CONTINUE
WRITE(ITTY,1501)
1501 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you specified the correct password and you ,
229Hreally do want to start a new/6X,13Hset of interv,
312Hiew requests/33H NO if you requested some inter,
441Hviews earlier but you specified the wrong/6X,2Hpa,
510Hssword now)
GO TO 5
2500 CONTINUE
WRITE(ITTY,2501)
2501 FORMAT(42H If this is the first time that you have u,
139Hsed this program, then you should type/7H a wor,
249Hd or a short phrase which you do not believe can ,
325Hbe guessed by anyone else/20H who will be running,
449H this program. This word or phrase will be used ,
512H to prevent/33H anyone else gaining access to y,
648Hour requests through this program. This word or/
749H phrase is not related to and does not depend upo,
832Hn the password through which you)
WRITE(ITTY,2502)
2502 FORMAT(42H may have gained access to the account f,
139Hrom which you are running this program./7H The wo,
249Hrd or the words of a phrase must be formed from t,
325Hhe alphabetic letters A/20H through Z and th,
449He digits 0 through 9. No other characters are a,
512Hllowed. The/33H word or phrase, counting the sep,
648Harations between the words of a phrase as 1/
749H character each, can contain up to 20 characters./
8/48H If you have used this program before, and merel,
933Hy wish to review or modify your)
WRITE(ITTY,2503)
2503 FORMAT(42H requests, then you must type the word or ,
139Hthe phrase which you specified when you/7H first ,
249Hran this program, but you do not need to match th,
325He cases of any of the/20H alphabetic letters,
449H A through Z in the word or phrase. You can ,
512Htype capital/33H alphabetic letters where you ori,
648Hginally specified lower case letters, and vice/
749H versa. You will have to contact the comp,
832Huter services staff if you have/13H forgotten yo,
912Hur password.)
C
C ERROR IN THE PASSWORD FILE
GO TO 5
2600 CONTINUE
WRITE(ITTY,2601)
2601 FORMAT(42H Through an administrative error, the numb,
135Her which you have been assigned has/10H also been,
249H assigned to someone else. Please contact the JO,
310HBS program/35H administrator to have this problem,
446H corrected. You cannot run this program until/
56H then.)
C
C PASSWORD ASSIGNED TO USER
GO TO 5
2700 CONTINUE
WRITE(ITTY,2701)
2701 FORMAT(42H You must prove that you know both the ,
139Hnumber and the password which were/7H assign,
249Hed to you in order to gain access to this ,
325Hprogram. Please type the/20H password now. This,
449H password is not related to and does not depen,
512Hd upon the/33H password through which you may ,
648Hhave gained access to the account from which you/
749H are running this program. You will have ,
832Hto contact the JOBS program)
WRITE(ITTY,2702)
2702 FORMAT(42H administrator if you have forgotten eithe,
131Hr your number or your password.)
C
C ASK NUMBER ASSOCIATED WITH THE PASSWORD
GO TO 5
2800 CONTINUE
WRITE(ITTY,2801)
2801 FORMAT(42H You must prove that you know both the ,
139Hnumber and the password which were/7H assign,
249Hed to you in order to gain access to this program,
325H. Please type the number/20H now. You can type ,
449Hthe password to the right of the number or on the,
512H next line./33H You will have to contact the ,
648HJOBS program administrator if you have forgotten/
737H either your number or your password.)
C
C USER SELECTED PASSWORD
GO TO 5
2900 CONTINUE
WRITE(ITTY,2901)
2901 FORMAT(42H If this is the first time that you have u,
139Hsed this program, then you should type/7H a wor,
249Hd or a short phrase which you do not believe can ,
325Hbe guessed by anyone else/20H who will be running,
449H this program. This word or phrase will be used ,
512H to prevent/33H anyone else gaining access t,
648Ho your interview requests through this program./
749H This word or phrase is not related to and does ,
832Hnot depend upon the password)
WRITE(ITTY,2902)
2902 FORMAT(42H through which you may have gained a,
139Hccess to the account from which you are/7H runnin,
249Hg this program. The word or the words of a phras,
325He must be formed from the/20H alphabetic letters,
449H A through Z and the digits 0 through 9. No othe,
512Hr characters/33H are allowed. The word or phrase,
648H, counting the separations between the words of/
749H a phrase as 1 character each, can contain up to ,
814H20 characters./)
WRITE(ITTY,2903)
2903 FORMAT(42H If you have used this program before, and,
139H merely wish to review or modify your/7H interv,
249Hiew requests, then you must type the word ,
325H or the phrase which you/20H specified when you ,
449Hfirst ran this program, but you do not need to,
512H match the/33H cases of any of the alphabetic,
648H letters A through Z in the word or phrase. You/
749H can type capital alphabetic letters where you or,
832Higinally specified lower case)
WRITE(ITTY,2904)
2904 FORMAT(42H letters, and vice versa. You will,
139H have to contact the JOBS program/7H admini,
244Hstrator if you have forgotten your password.)
C
C ASK IF REALLY WANT TO CANCEL REQUEST MADE IN PREVIOUS STAGE
GO TO 5
3800 CONTINUE
WRITE(ITTY,3801)
3801 FORMAT(42H You requested this interview prior to the,
135H current stage. If you cancel this/10H request, ,
249Hthen this interview or your position on the waiti,
315Hng list will be/30H allocated to someone else. C,
449Hancelling this request will not regain for you th,
51He/45H ability to make an additional interview requ,
634Hest and it will not regain for you/11H the abilit,
749Hy to make an additional high priority request or ,
818Hauction bid. Once/27H you have cancelled this re,
929Hquest, you cannot restore it./)
WRITE(ITTY,3802)
3802 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you really want to cancel your request for ,
228Han interview with this firm./17H NO if you stil,
349Hl want to have an interview with this firm, or if,
411H you got to/6X,25Hthis question by mistake.)
GO TO 5
C
C RETURN TO CALLING PROGRAM
5 WRITE(ITTY,3)
6 RETURN
END