Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0174/rsmhlp.for
There is 1 other file named rsmhlp.for in the archive. Click here to see a list.
SUBROUTINE RSMHLP(ITTY,KNDMSG,LTRBFR,LMTBFR,MAXBFR,IVIDEO)
C RENBR(/RESUME, ISSUE INSTRUCTIONS)/M:99999
C
C DONALD BARTH, YALE SCHOOL OF MANAGEMENT
C
C THIS ROUTINE IS PART OF THE STUDENT RESUME 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, 6, 6, 6,1700, 6, 6, 6,
3 2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,
4 3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,
5 4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,
6 5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,
7 6100,6200,6300,6400,6500,6600,6700,6800,6900,7000,
8 7100,7200,7300),KNDMSG
GO TO 6
C
C ***********************
C * *
C * THE HELP MESSAGES *
C * *
C ***********************
C
C COMPLETE DESCRIPTION
GO TO 5
100 CONTINUE
WRITE(ITTY,101)
101 FORMAT(42H This program is a very simple editor for ,
139Hresumes. You can run the program as/7H many ,
249Htimes as are necessary to type in and revise th,
325He contents of the resume./20H The program is mean,
449Ht to be usable even if you do not have any previo,
512Hus computer/33H experience. If you do not know ,
648Hwhat to do at any point, the program will supply/
749H instructions if you will press the ? key without,
832H typing anything else, and then/13H press the RE,
99HTURN key./)
WRITE(ITTY,102)
102 FORMAT(42H The resume is divided into sections, with,
139H lines being ruled between these. You/7H will ,
249Hfirst be asked to specify the information to b,
325He in the name and address/20H sections and in the,
449H education section. In the name and address se,
512Hctions, you/33H will be asked to specify sp,
648Hecific information. The initial lines of the/
749H education section are standardized, although you,
832H will be able to change them)
WRITE(ITTY,103)
103 FORMAT(42H later. After showing the standardized p,
139Hortion to you, the program will ask for/7H you to,
249H supply any additional information which you want,
325H to have in the education/20H section. You wil,
449Hl not be asked for any specific information in t,
512Hhe education/33H section or in any later sections,
648H, the information which you supply is up to you.//
749H After you have finished with the education secti,
832Hon, you will be asked "What)
WRITE(ITTY,104)
104 FORMAT(42H next?" You will repeated return to this q,
139Huestion when you have finished entering/7H or mod,
249Hifying portions of your resume. You can enter th,
325He text of a new section/20H by typing the wo,
449Hrd CREATE in response to the "What next?" reque,
512Hst, and then/33H naming the new section when aske,
648Hd to do so. You can name the section in any)
IF(IVIDEO.LT.0)GO TO 105
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
105 CONTINUE
WRITE(ITTY,106)
106 FORMAT(42H manner you choose. The program will the,
139Hn ask you to type the text to be in the/7H new se,
249Hction. The text within each section will be shif,
325Hted to the right of the/20H left edge of the,
449H page. The name of the section will appear at th,
512He upper left/33H corner of the section exactly as,
614H you typed it.//30H In the education section, and,
749H in the sections which you name yourself, you c,
82Han/44H type as little or as much as you want on a ,
937Hline, the program will accumulate the)
WRITE(ITTY,107)
107 FORMAT(42H words into lines of approximately equal l,
139Hength. If you type more than will fit/7H across,
249H the width of the screen, ignore the automatic r,
325Heturn to the left edge of/20H the screen and just,
449H keep on typing. You must, however, press the ,
512H RETURN key/33H when you have finished typin,
648Hg whatever you want to be on the line. You can/
749H terminate entering text into the section by p,
832Hressing the RETURN key again/13H without havi,
933Hng typed anything else before it./)
WRITE(ITTY,108)
108 FORMAT(42H You can erase errors immediately after yo,
139Hu have typed them by using the DEL or/7H RUBOUT,
249H keys, but you CANNOT correct errors by usi,
325Hng the cursor keys (those/20H marked with arrows),
449H or the BACKSPACE key. If you have already ,
512Hpressed the/33H RETURN key, or if you have typed,
648H more than will fit onto one line of the screen,/
749H then you will have to wait until you have finish,
832Hed entering the text in the)
WRITE(ITTY,109)
109 FORMAT(42H section before you can return to correct ,
139Hthe errors. At that time you can issue/7H a DRAF,
249HT command in response to the "What next?" request,
325H to discover the number/20H of the line in ,
449Herror, and then you can issue an EDIT command to,
512H correct the)
IF(IVIDEO.LT.0)GO TO 110
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
110 CONTINUE
WRITE(ITTY,111)
111 FORMAT(7H error.//31H The following conventions are ,
124Hallowed by this program.//20H A line containing o,
249Hnly a * (the asterisk) produces a blank line in t,
310Hhe resume./35H A line starting with a * will be s,
431Heparate from the previous line./14H A line starti,
549Hng with a - (the minus sign) will bear a bullet a,
615Ht its left end./30H A line starting with a word, ,
749Hphrase or date followed by a * and then more te,
82Hxt/44H will have the word, phrase or date to the l,
918Heft of the margin.)
WRITE(ITTY,112)
112 FORMAT(42H A ^ character (the circumflex) in front o,
127Hf a word darkens that word./18H A _ character (th,
249He underscore) in front of a word underlines that ,
35Hword.//40H A single * in a line marks the location,
441H in the line which is to be lined up with/5H the ,
549Hleft margin. You will see the * if you issue a D,
627HRAFT command in response to/18H the "What next?" ,
749Hrequest after you have finished entering the ,
814H text in the)
WRITE(ITTY,113)
113 FORMAT(42H section, but the * will not appear in the,
139H final version of the resume. The name/7H of the,
249H section will appear on the same line as the firs,
325Ht line of the text in the/20H section unless this,
427H text also starts with a *.//17H When you are vie,
549Hwing a lengthy batch of instructions, or a roug,
615Hh draft or a/30H proof of your resume, the pro,
749Hgram will pause each time the screen has filled a,
82Hnd/44H instruct you to "press RETURN to continue".,
937H Typing of the instructions or of)
IF(IVIDEO.LT.0)GO TO 114
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
114 CONTINUE
WRITE(ITTY,115)
115 FORMAT(42H the resume will continue when you press ,
139Hthe RETURN key located at the right end/7H of the,
249H keyboard. If you want to cancel the typin,
325Hg of the rest of the/20H instructions or of ,
449Hthe rest of the resume, then you can instead type,
512H the command/33H which you want to have be proces,
640Hsed next before pressing the RETURN key.//5H You ,
749Hcan save an unfinished version of your resume by ,
827Hissuing an EXIT command in)
WRITE(ITTY,116)
116 FORMAT(42H response to the "What next?" request. ,
139H You can then run this program later to/7H revise,
249H or to add to the resume. When you have produc,
325Hed the version of the/20H resume which you ,
449H want to have included in the collection of resum,
512Hes, then you/33H must issue the SUBMIT command in,
648H response to the "What next?" request. Your/
749H resume will not be included in the collection,
832H if you do not select the SUBMIT/8H option.)
C
C SHORT LIST OF WHAT NEXT OPTIONS
GO TO 5
200 CONTINUE
WRITE(ITTY,201)
201 FORMAT(42H The following is a summary of the availab,
110Hle options//34H AFTER to insert line after ano,
245Hther PAPER to get a paper copy of resume/1H ,
33HALL,6X,20Hso all sections show,11X,12HPROOF to ,
421Hshow formatted resume/24H APPEND to append to a,
58H section,9X,28HRENAME to rename a section/4H BEF,
649HORE to insert line before another REPLACE to ,
712Hreplace line/32H BREAK to break before a line,
89X,34HRULE to break 1 section into 2)
WRITE(ITTY,202)
202 FORMAT(35H BULLET to begin line with bullet,6X,1HS,
135HAVE to save resume but not exit/10H CANCEL ,
213Hto start over,18X,28HSKIP to skip blank line ,
311Hbefore line/33H CREATE to create a new section,
48X,39HSUBMIT to submit resume when all done/4H DEL,
522HETE to delete a line,15X,19HSWITCH to move li,
620Hnes within a section/25H DRAFT to show resume ,
739Has you typed it TYPE to type a line/7H EDIT ,
83X,24Hto change part of a line,7X,15HUNRULE to mer,
920Hge 2 sections into 1)
WRITE(ITTY,203)
203 FORMAT(33H EXIT to save resume and exit/6H JOIN ,
14X,46Hto remove break before line following selec,
215Ht terminal type/30H LENGTH to calculate length ,
345Hof resume SLOW for paper output terminal/1H ,
426HMOVE to move a section,14X,15HFAST for vi,
524Hdeo without screen clear/21H ONLY so only one,
614H section shows,6X,28HPAGING for video with scre,
78Hen clear///36H Now you can either press the return,
840H key to get a more detailed explanation,)
WRITE(ITTY,204)
204 FORMAT(42H or you can type a word in this list to pe,
131Hrform the corresponding option.)
IF(IVIDEO.LT.0)GO TO 205
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
205 CONTINUE
C
C LONG LIST OF WHAT NEXT OPTIONS
WRITE(ITTY,206)
206 FORMAT(42H The following is a more complete descript,
128Hion of the available options//16H AFTER and lin,
243He number to insert new line after that line/3H AL,
349HL so DRAFT and PROOF options show all section,
41Hs/45H APPEND and section name to append new lines,
527H to the end of that section/18H BEFORE and line ,
642Hnumber to insert new line before that line/4H BRE,
749HAK and line number to cause that line not to co,
820Hntinue previous line/25H BULLET and line number ,
939Hto cause that line to begin with bullet)
WRITE(ITTY,207)
207 FORMAT(42H CANCEL to cancel current resume and star,
131Ht over. This command cannot be/9X,11Habbreviated,
21H./45H CREATE and section name to create a new sec,
34Htion/42H DELETE and line number to delete that li,
42Hne/44H DRAFT to list current section or entire r,
536Hesume as you typed it. PROOF option/9X,7Hwould s,
622Hhow reformatted lines./23H EDIT and line numbe,
749Hr to change part of that line. You can insert, r,
86Hemove,/9X,37Hcapitalize, darken or underline words,
913H and phrases.)
WRITE(ITTY,208)
208 FORMAT(42H EXIT to save resume, then exit. You c,
135Han revise resume later. Use SUBMIT/9X,8Hoption l,
229Hater when resume is finished./16H JOIN and lin,
349He number to cause that line to continue previous ,
44Hline/42H LENGTH to calculate number of lines in r,
519Hesume when typeset./26H MOVE and section name ,
643Hto move that section before another section/)
IF(IVIDEO.LT.0)GO TO 209
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
209 CONTINUE
WRITE(ITTY,210)
210 FORMAT(42H ONLY and section name so that DRAFT an,
139Hd PROOF options show only that section./9X,4HOppo,
219Hsite of ALL option./26H PAPER to write resume t,
349Ho file which you can type or print later. You wi,
45Hll be/9X,38Hasked which printer and type of resume,
510H you want./35H PROOF to list formatted version ,
643Hof current section or entire resume. DRAFT/9X,
743Hoptions would show lines as you typed them./3H RE,
849HNAME and section name to rename that section. T,
922Hype capitals and small)
WRITE(ITTY,211)
211 FORMAT(9X,39Hletters exactly as you want them to app,
14Hear./42H REPLACE and line number to replace that e,
210Hntire line/35H RULE and section name to create,
342H a section having this name from the lower/9X,1Hp,
449Hortion of an existing section. You will be asked,
522H to identify the first/9X,20Hline which is to be ,
619Hin the new section./26H SAVE to save resume bu,
748Ht not exit. You can continue to make revisions./
849H SKIP and line number to skip a line before th,
98Hat line.)
WRITE(ITTY,212)
212 FORMAT(42H SUBMIT if you have completed resume. Th,
133His command cannot be abbreviated./9X,9HAfter iss,
249Huing this command, the resume cannot be changed l,
35Hater./41H SWITCH and 3 line numbers to move sever,
436Hal lines within a section. Only the/9X,7Hfirst l,
549Hine number can appear to the right of the SWITCH ,
613Hcommand. The/9X,29Hothers must be typed separate,
742Hly. The lines identified by the first and/9X,1Hs,
849Hecond numbers are moved to just above the line id,
921Hentified by the third)
WRITE(ITTY,213)
213 FORMAT(9X,39Hnumber. The first number identifies th,
128He top line to be moved. The/9X,14Hsecond number ,
249Hidentifies the bottom line to be moved. The firs,
35Ht and)
IF(IVIDEO.LT.0)GO TO 214
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
214 CONTINUE
WRITE(ITTY,215)
215 FORMAT(9X,39Hsecond number would be the same if only,
123H 1 line is to be moved./22H TYPE and line numb,
220Her to type that line/25H UNRULE and section name,
349H to merge this section with the preceding section,
41H.//44H Following commands change how terminal you ,
536Hare using is handled by this program//9H SLOW ,
649Hif running this program from a slow or hardcopy t,
77Herminal/39H FAST if running this program from a,
839H fast video terminal which cannot clear/9X,4Hthe ,
920Hscreen between pages)
WRITE(ITTY,216)
216 FORMAT(42H PAGING if running this program from a fa,
137Hst video terminal which can clear the/9X,6Hscreen,
240H when instructed to do so by the program)
C
C TELL USER ABOUT INITIAL CONTENTS OF RESUME
GO TO 5
300 CONTINUE
WRITE(ITTY,301)
301 FORMAT(42H The first section in your resume will lis,
139Ht your educational background. This/7H sectio,
249Hn is assumed to start with the following informat,
34Hion:)
GO TO 5
C AT THIS POINT, THE CALLING PROGRAM WILL LIST
C THE INITIAL CONTENTS OF THE EDUCATION SECTION.
C THE .PAGE POSITION COMMAND BELOW MUST AGREE WITH
C THE NUMBER OF LINES IN THE DISPLAY OF THIS SECTION.
400 CONTINUE
WRITE(ITTY,401)
401 FORMAT(42H The lines in the final resumes will be wi,
139Hder than shown here, so that fewer/7H lines ,
249H may be needed for this information. If the,
325H dates are wrong, you can/20H change these later ,
449Husing the EDIT option. The words which are shown,
512H underlined/33H by circumflexs or up-arrows wil,
648Hl be darker in the final resume than the rest of/
710H the text.//34H Now, in response to the question ,
847Hmark prompt which will appear below, please)
WRITE(ITTY,402)
402 FORMAT(42H type any additional information which,
139H is to be included in the education/7H sectio,
249Hn. If you begin the first or any line which you ,
325Htype with a * (asterisk)/20H then this line wi,
449Hll start on a new line in the resume. If you beg,
512Hin the first/33H or any line which you type with ,
648Ha - (minus sign) then this line will start with)
IF(IVIDEO.LT.0)GO TO 403
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
403 CONTINUE
WRITE(ITTY,404)
404 FORMAT(42H a bullet in the resume. If you do not b,
139Hegin the first line which you type with/7H either,
249H a * or a -, then what you type will be merged ,
325H into the automatically/20H supplied start of ,
449Hthe education section. If you want to continue t,
512Hhe education/33H section by describing your areas,
648H of emphasis, then the first line which you type/
749H should begin with a *. If you forget to type th,
832He *, you can later use the BREAK/13H option to in,
918Hsert the asterisk./)
WRITE(ITTY,405)
405 FORMAT(42H Press the RETURN key an extra time when y,
139Hou have typed all of the information/7H which ,
225His to be in this section.//19H You can obtain det,
349Hailed instructions about the conventions used ,
413Hfor entering/32H text by typing the ? key now,
549H. If you can also review these same instructions/
649H later, whenever you are creating or appending to,
711H a section.)
C
C DESCRIBE ENTRY OF SECTION (KNDMSG=5)
GO TO 5
500 CONTINUE
WRITE(ITTY,501)
501 FORMAT(42H The special conventions recognized by thi,
130Hs program are summarized below//2H *,21X,6Hproduc,
224Hes completely blank line/5H text,18X,9Hcontinues,
343H previous line unless this contained only */3H *t,
43Hext,17X,15Hstarts new line/6H -text,17X,8Hstarts n,
527Hew line with bullet to left/7H --text,16X,5Hstart,
649Hs new line indented same as if marked with bullet/
78H ---text,15X,34Hstarts new line in 2nd level list ,
819Hwith bullet to left/9H ----text,14X,10Hstarts new,
942H line in 2nd level list but without bullet/)
WRITE(ITTY,502)
502 FORMAT(10H Date*text,13X,24Hstarts new line with dat,
19He to left/11H Date*-text,12X,18Hstarts new line wi,
226Hth date and bullet to left/12H Date*--text,11X,
349Hstarts new line with date and indented as if with,
47H bullet/17H text**right text,6X,15Hforces text aft,
543Her ** to right edge, doesn't start new line/3H *t,
649Hext**right text starts new line, text after *,
725H* is forced to right edge/20H date*text**right te,
849Hxt new line with date to left, text after ** forc,
911Hed to right)
WRITE(ITTY,503)
503 FORMAT(42H date*-text**right text new line with date,
135H and bullet, text after ** at right//9H ^words ^,
249Hin ^a ^phrase would darken (boldface) the words i,
312Hn the phrase/16H ^multi^national,7X,10Hwould dark,
425Hen multi but not national/20H _words _in _a _phra,
542Hse would underline the words in the phrase/4H _mu,
612Hlti_national,7X,30Hwould underline multi but not ,
78Hnational)
IF(IVIDEO.LT.0)GO TO 504
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
504 CONTINUE
WRITE(ITTY,505)
505 FORMAT(/41H You can type as many lines of text as ne,
140Hcessary in this section. Press the/6H RETUR,
249HN key an extra time when you have typed all of t,
326Hhe information which is to/19H be in this section,
449H. The words which you type will be wrapped aro,
513Hund to form/32H lines of approximately equal l,
649Hength. Type an asterisk (the * character) at the/
749H start of each line which is not to be run-in wit,
832Hh the previous lines. Type a)
WRITE(ITTY,506)
506 FORMAT(42H minus sign (the - character), rather tha,
139Hn an asterisk, if the line is to have a/7H bullet,
249H to its left. To have a blank line appear in th,
325He resume, type a line/20H containing only an ,
49Hasterisk.//36H If something, such as a word or wor,
545Hds or a date, is to appear to the left of the/1H ,
649Hmargin, first type the word or words which a,
731Hre to appear to the left of the/14H margin, and t,
849Hhen on the same line type an asterisk followed ,
918H in turn by the)
WRITE(ITTY,507)
507 FORMAT(42H ordinary text to be in the body of th,
139He document. Follow the asterisk with a/7H minus ,
249Hsign if the text which has the word or words or d,
325Hate to its left is also/20H to bear a bullet,
449H. The first line in a section will start on the ,
512Hsame line as/33H the section name unless this fir,
644Hst line starts with or contains an asterisk.//1H ,
749HInsert 2 minus signs at the start of (or after th,
831He asterisk in) a line which is)
WRITE(ITTY,508)
508 FORMAT(42H to be aligned with the items in a list bu,
132Ht which is not to bear a bullet./13H Insert 3 min,
249Hus signs at the start of a line which is to be in,
319H an inner list and/26H which is to bear a bullet,
41H.)
IF(IVIDEO.LT.0)GO TO 509
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
509 CONTINUE
WRITE(ITTY,510)
510 FORMAT(42H Insert 4 minus signs at the start of a li,
139Hne which is to be aligned with the/7H items ,
249Hin an inner list but which is not to bear a bulle,
32Ht.//43H Your name and the names which are typed at,
438H the upper left corners of the various/8H section,
549Hs will be typed darker than normal. To force any,
624H other word or phrase to/21H be typed darker than,
749H normal, precede the word or each word of the ph,
811Hrase by a/34H circumflex or an up-arrow cha,
947Hracter (the ^ character). The circumflex and)
WRITE(ITTY,511)
511 FORMAT(42H up-arrow are markings which identify the ,
139Hsame character on different types of/7H keyboa,
249Hrds. Similarly, to force a word or a phrase to,
325H be underlined when it is/20H typed, precede the ,
449Hword or each word in the phrase with an undersco,
512Hre or left/33H arrow (the _ character). The u,
648Hnderscore and left arrow are also markings which/
749H identify a single character on different types o,
832Hf keyboards. Use the keys on)
WRITE(ITTY,512)
512 FORMAT(42H the main keyboard, do not use the lef,
139Ht pointing arrow key or the up pointing/7H arrow ,
249Hkey on the small keyboard to right of the ma,
325Hin keyboard. A second/20H appearance of the,
449H circumflex or of the underscore can appear with,
512Hin a word to/33H cause the remainder of the word ,
648Hto be typed in the normal fashion after the/
749H preceding portion of the word has been ty,
832Hped either darker than normal or/13H underlined r,
912Hespectively./)
WRITE(ITTY,513)
513 FORMAT(42H As an example of the use of these special,
139H characters, the following lines of/5H text/)
IF(IVIDEO.LT.0)GO TO 514
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
514 CONTINUE
WRITE(ITTY,515)
515 FORMAT(42H 1975-1976*^Sixth ^Universal ^Bank New Yor,
111Hk, New York/34H *Promoted from _Janitor to _Vice ,
210H_President//34H would type the year range at the ,
347Hleft edge of the page, cause the bank name to/
449H be typed darker than normal and underline the po,
531Hsition titles on the next line.//13H To right jus,
649Htify a phrase in a line which is to be typed on t,
719Hhe letter quality/26H typewriter, insert 2 as,
849Hterisks (**) between the text which is to be flus,
96Hh with)
WRITE(ITTY,516)
516 FORMAT(42H the left margin and that which is to be f,
139Hlush with the right margin. The **/7H does n,
249Hot itself cause a new line in the output. If you,
325H want the line containing/20H the ** to start a n,
449Hew line, then either a single * must appear somew,
512Hhere to the/33H left of the ** or a - must a,
648Hppear at the start of the line. If you want the/
749H next line to start a new line, then either a * o,
832Hr a - must appear at the start)
WRITE(ITTY,517)
517 FORMAT(42H of the next line. The ** is taken,
139H to be a single space if the resume is/7H typese,
22Ht.//41H For example, the following lines of text//
349H Summer 1978*^Little ^Bank ^and ^Trust ^Company**,
418HNew York, New York/9H *_Teller/15H *Responsible f,
538Hor the handling of many cents each day/)
IF(IVIDEO.LT.0)GO TO 518
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
518 CONTINUE
WRITE(ITTY,519)
519 FORMAT(42H would produce the following lines in the ,
17Hresume.//12H Summer 1978,9X,19HLittle Bank and Tru,
210Hst Company,13X,18HNew York, New York/21X,6HTeller/
321X,45HResponsible for the handling of many cents ea,
46Hch day//39H in which the company name would be dar,
542Hkened and the job title underlined. Since/4H the,
649H terminal which you are using to input the cont,
728Hents of your resume probably/17H cannot itself di,
849Hsplay darkened or underlined characters, such spe,
915Hcially modified)
WRITE(ITTY,520)
520 FORMAT(42H characters are instead indicated when yo,
139Hu display a proof of your resume on the/7H termin,
249Hal by their being underlined with circum,
325Hflexs or underscores,/20H respectively, on ,
449Hthe next line. Each of the specially modified c,
512Hharacters is/33H underlined although you only had,
648H to mark each word once when you typed it in/
749H originally. Don't worry about the extra, otherw,
832Hise blank line which is shown on)
WRITE(ITTY,521)
521 FORMAT(42H your terminal since the characters underl,
139Hined by the circumflexs or underscores/7H will ,
249Happear properly darkened or underlined when the r,
325Hesume is finally typed or/9H typeset.//8H The exa,
449Hmple shown earlier would be displayed on the term,
524Hinal in the following/8H manner://)
IF(IVIDEO.LT.0)GO TO 522
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
522 CONTINUE
WRITE(ITTY,523)
523 FORMAT(12H Summer 1978,9X,23HLittle Bank and Trust C,
16Hompany,13X,18HNew York, New York/21X,10H^^^^^^ ^^^,
219H^ ^^^ ^^^^^ ^^^^^^^/21X,6HTeller/21X,6H______/21X,
349HResponsible for the handling of many cents each d,
42Hay//43H Now type the next line which is to be in t,
538Hhis section. Merely press the RETURN/8H key wi,
649Hthout typing anything else before it if you hav,
724He completed the entry of/21H the text in this sec,
85Htion.)
C
C SHORT LIST OF EDIT OPTIONS
GO TO 5
600 CONTINUE
WRITE(ITTY,601)
601 FORMAT(42H The following is a summary of the availab,
115Hle edit options//29H AFTER to insert to right o,
26Hf item/34H BEFORE to insert at left of item/3H BO,
325HLD to make item darker/20H DELETE to delete i,
43Htem/34H BREAK to break line before item/6H BULLE,
534HT to break line and insert bullet/11H LOWER to,
627H convert item to lower case/18H MIXED to capita,
720Hlize starts of words/25H NEXT to find next app,
815Hearance of item/30H NORMAL to remove underlining,
912H and bolding/24H REPLACE to replace item)
WRITE(ITTY,602)
602 FORMAT(40H SPACE to insert space to left of item/
128H UNDERLINE to underline item/17H UPPER to conve,
221Hrt item to upper case/////20H Now you can either ,
349Hpress the return key to get a more detailed expla,
47Hnation,/39H or you can type a word in this list to,
534H perform the corresponding option.)
IF(IVIDEO.LT.0)GO TO 603
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
603 CONTINUE
C
C LONG LIST OF EDIT OPTIONS
WRITE(ITTY,604)
604 FORMAT(42H The following is a more complete descript,
123Hion of the edit options//21H AFTER to insert a ,
249Hword or a phrase to the right of the item just fo,
34Hund./42H BEFORE to insert a word or a phrase to t,
431Hhe left of the item just found./14H BOLD to in,
549Hsert a circumflex at the start of a word or at th,
615He start of each/9X,27Hword of a phrase to cause t,
739Hhe word or the phrase to be darker than/9X,4Hnorm,
83Hal./38H DELETE to delete the item just found)
WRITE(ITTY,605)
605 FORMAT(42H BREAK to cause the item just found to a,
139Hppear at the start of a new line in the/9X,4Hresu,
243Hme. (The line is split and * is inserted.)/3H BU,
349HLLET to cause the item just found to appear at t,
428Hhe start of a new line which/9X,14Hbears a bullet,
549H in the resume. (The line is split and - is inse,
66Hrted.)/40H LOWER to convert the alphabetic lette,
737Hrs in the word or phrase all to lower/9X,6Hcase (,
815Hsmall letters)./30H MIXED to convert the first ,
947Hletter of the word or of each of the words in a)
WRITE(ITTY,606)
606 FORMAT(9X,39Hphrase to upper case (capital letters) ,
129Hand the second and subsequent/9X,13Hletters to lo,
249Hwer case (small letters). "the job" or "THE JOB",
39H would be/9X,22Hconverted to "The Job"/9H NEXT ,
449Hto search for the next appearance of the same ite,
522Hm further to the right/23H NORMAL to remove the ,
649Hunderscore and/or the circumflex at the start of ,
79Ha word or/9X,34Hat the start of each word of a phr,
834Hase to keep the word or the phrase/9X,9Hfrom bein,
947Hg underlined and from being darker than normal.)
IF(IVIDEO.LT.0)GO TO 607
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
607 CONTINUE
WRITE(ITTY,608)
608 FORMAT(42H REPLACE to replace the item just found by,
135H something else. To remove a space/9X,8Hincorrec,
249Htly typed within a word or between a word and a f,
38Hollowing/9X,35Hpunctuation mark, it is necessary t,
435Ho search for the two parts, issue a/9X,8HREPLACE ,
549Hcommand, and type in the two parts without the sp,
68Hace. To/9X,35Hconvert "jo b" to "job", search for,
736H jo b including the space, issue the/9X,7HREPLACE,
847H command, and replace by job without the space.)
WRITE(ITTY,609)
609 FORMAT(42H SPACE to insert a space to the left of ,
137Hthe item just found. Use this if you/9X,6Hforgot,
249H to separate 2 words. To convert "thejob" to "th,
314He job", search/9X,28Hfor the word job, then selec,
48Ht SPACE./38H UNDERLINE to insert an underscore at ,
543Hthe start of a word or at the start of each/9X,
649Hword of a phrase to cause the word or the phrase ,
717Hto be underlined./28H UPPER to convert the alph,
849Habetic letters in the word or phrase all to upper/
99X,23Hcase (capital letters)./)
WRITE(ITTY,610)
610 FORMAT(42H or merely press the RETURN key to select ,
114Hanother option)
C
C DESCRIBE SEARCH IN EDIT FUNCTION (KNDMSG=7)
GO TO 5
700 CONTINUE
WRITE(ITTY,701)
701 FORMAT(42H Type a character, a sequence of character,
138Hs, a word or a phrase which appears in/8H the lin,
249He. Alphabetic letters which you type will match ,
319Heither the upper or/26H lower case versions of th,
449He same letters in the line regardless of which ca,
53Hses/43H which you type. You do not need to type u,
637Hnderscores and circumflexs. You will/9H be able ,
749Hto do any of the following if the item is found i,
811Hn the line.//19H 1 delete the item/10H 2 replac,
928He the item by something else)
WRITE(ITTY,702)
702 FORMAT(42H 3 Convert the item to upper case, lower ,
138Hcase or capitalize the first letter in/4X,5Heach ,
217Hword in the item./28H 4 Cause the item to be dar,
349Hker than normal, to be underlined or to cause the/
44X,46Hitem to be typed normally without darkening an,
522Hd without underlining./23H 5 insert a word or a ,
649Hphrase either at the left or at the right of the ,
74Hitem/42H 6 attach a letter or a sequence of lette,
835Hrs either to the left end or to the/4X,8Hright en,
913Hd of the item)
WRITE(ITTY,703)
703 FORMAT(42H 7 insert a space to the left of the item,
135H, but not to its right (to insert a/4X,8Hspace in,
235H "thejob", search for the word job)/10H 8 cause ,
349Hthe item to begin a new line in the resulting doc,
420Hument and optionally/4X,22Hto cause the new line ,
522Hto begin with a bullet/23H 9 search for the next,
640H occurrence of the item on the same line//5H or p,
745Hress the RETURN key to select another option.)
IF(IVIDEO.LT.0)GO TO 704
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
704 CONTINUE
C
C DESCRIBE REPLACEMENT TEXT IN EDIT FUNCTION (KNDMSG=8 THROUGH 13
GO TO 5
800 CONTINUE
WRITE(ITTY,801)
801 FORMAT(42H Type a word or a phrase which is to be in,
135Hserted to the left of the item just/10H found, bu,
220Ht separated from it.)
GO TO 5
900 CONTINUE
WRITE(ITTY,901)
901 FORMAT(42H Type a word or a phrase which is to be in,
136Hserted to the right of the item just/9H found, b,
221Hut separated from it.)
GO TO 5
1100 CONTINUE
WRITE(ITTY,1101)
1101 FORMAT(42H Type the letter or letters which are to r,
127Heplace the item just found.)
GO TO 5
1200 CONTINUE
WRITE(ITTY,1201)
1201 FORMAT(42H Type the characters which are to be attac,
136Hhed to the left end of the item just/7H found.)
GO TO 5
1300 CONTINUE
WRITE(ITTY,1301)
1301 FORMAT(42H Type the characters which are to be attac,
137Hhed to the right end of the item just/7H found.)
GO TO 5
1700 CONTINUE
WRITE(ITTY,1701)
1701 FORMAT(42H Type the letter or letters which are to r,
127Heplace the item just found.)
C
C VARIOUS EXIT MESSAGES
GO TO 5
2200 CONTINUE
WRITE(ITTY,2201)
2201 FORMAT(42H The current version of your resume has be,
139Hen saved. You can run this program/7H later ,
249H to revise your resume. When you have comple,
325Hted your resume, you must/20H select the SUBMIT o,
449Hption in this program to submit the final version,
51H.)
GO TO 5
2300 CONTINUE
WRITE(ITTY,2301)
2301 FORMAT(42H The final version of your resume has been,
139H submitted. You will not be able to/7H revise,
249H your resume further unless you contact the RESUM,
324HE program administrator.)
GO TO 5
2400 CONTINUE
WRITE(ITTY,2401)
2401 FORMAT(42H Follow the instructions given in the RESU,
139HME Program Users Guide for typing this/7H file o,
229Hn the letter quality printer.)
GO TO 5
3800 CONTINUE
WRITE(ITTY,3801)
3801 FORMAT(42H This file can be printed on narrow paper ,
139Hat either 10 or 12 characters per inch.)
GO TO 5
4200 CONTINUE
WRITE(ITTY,4201)
4201 FORMAT(42H This file should be printed on wide paper,
11H.)
GO TO 5
4300 CONTINUE
WRITE(ITTY,4301)
4301 FORMAT(42H This file can be printed on narrow paper ,
125Hat 12 characters per inch/20H or on wide paper at,
224H 10 characters per inch.)
GO TO 5
7000 CONTINUE
WRITE(ITTY,7001)
7001 FORMAT(42H You would type the following to print the,
15H file/18H PRINT RESUME.DOC)
GO TO 5
7100 CONTINUE
WRITE(ITTY,7101)
7101 FORMAT(42H You would type the following on the lette,
117Hr quality printer/3H HC/11H RESUME.DOC/2H G)
GO TO 5
2500 CONTINUE
WRITE(ITTY,2501)
2501 FORMAT(42H You submitted the final version of your r,
139Hesume earlier. You will not be able to/7H revise,
249H your resume further unless you contact the RESU,
325HME program administrator./20H You can, however, p,
449Hroduce a copy of your resume to be typed on ,
512H the Diablo/33H terminal or to be listed on the ,
613Hline printer.)
C
C INSERT COMMAND MESSAGE
GO TO 5
2600 CONTINUE
WRITE(ITTY,2601)
2601 FORMAT(42H Type the line of text which you want to i,
139Hnsert into the document. If you type/7H more ,
249Hthan will fit across the width of the screen, ig,
325Hnore the automatic return/20H to the left edge of,
449H the screen and just keep on typing. You mus,
512Ht, however,/33H press the RETURN key when you,
648H have finished typing whatever you want to be on/
710H the line./35H Press only the RETURN key if you g,
832Hot to this question by accident.)
C
C WARNING ABOUT SUBMIT COMMAND
GO TO 5
2700 CONTINUE
WRITE(ITTY,2701)
2701 FORMAT(42H NOTE: if you answer YES to the following,
139H question, then you CANNOT revise your/7H resume,
249H further unless you contact the RESUME program ad,
312Hministrator.)
C
C TYPE OF LOCAL FILE IF ULTIMATE RESUME IS TYPESET
GO TO 5
2800 CONTINUE
WRITE(ITTY,2801)
2801 FORMAT(36H Type one of the following commands:/3H NA,
149HRROW if using the fast printer to proof the co,
223Hntents but not the line/11X,18Hlengths of a resum,
347He. The resulting file can be printed on narrow/
411X,6Hpaper./36H PRINTED if using the fast printer,
543H to proof the contents and the line lengths/11X,
649Hof a resume for which the final copy will be type,
715Hd on the letter/11X,26Hquality typewriter. The r,
844Hesulting file can be printed on narrow paper)
WRITE(ITTY,2802)
2802 FORMAT(11X,38Hat 12 characters per inch or on wide p,
131Haper at 10 characters per inch./14H TYPED if ,
249Husing the letter quality typewriter to produce th,
318He final version of/11X,23Ha resume. The file can,
443Hnot be printed on the fast printer since it/11X,
549Hcontains instructions for boldfacing which can on,
614Hly be properly/11X,27Hhandled by the letter quali,
714Hty typewriter./31H TYPESET if using the fast pr,
848Hinter to check the appearance of the resume when)
WRITE(ITTY,2803)
2803 FORMAT(11X,38Hit is typeset. The resulting file mus,
127Ht be printed on wide paper./18H or merely press t,
249Hhe RETURN key if you do not want a paper copy of ,
311Hyour resume/5H now.)
C
C TYPE OF LOCAL FILE IF ULTIMATE RESUME IS NOT TYPESET
GO TO 5
4100 CONTINUE
WRITE(ITTY,4101)
4101 FORMAT(36H Type one of the following commands:/3H NA,
149HRROW if using the fast printer to proof the co,
223Hntents but not the line/11X,18Hlengths of a resum,
347He. The resulting file can be printed on narrow/
411X,6Hpaper./36H PRINTED if using the fast printer,
543H to proof the contents and the line lengths/11X,
649Hof a resume for which the final copy will be type,
715Hd on the letter/11X,26Hquality typewriter. The r,
844Hesulting file can be printed on narrow paper)
WRITE(ITTY,4102)
4102 FORMAT(11X,38Hat 12 characters per inch or on wide p,
131Haper at 10 characters per inch./14H TYPED if ,
249Husing the letter quality typewriter to produce th,
318He final version of/11X,23Ha resume. The file can,
443Hnot be printed on the fast printer since it/11X,
549Hcontains instructions for boldfacing which can on,
614Hly be properly/11X,27Hhandled by the letter quali,
714Hty typewriter./31H or merely press the RETURN key,
847H if you do not want a paper copy of your resume/
95H now.)
C
C WARNING ABOUT CANCEL COMMAND
GO TO 5
2900 CONTINUE
WRITE(ITTY,2901)
2901 FORMAT(42H NOTE: if you answer YES to the following,
139H question, then the current version of/7H your r,
249Hesume will be cancelled, and you will have to sta,
38Hrt over.)
GO TO 5
2100 CONTINUE
WRITE(ITTY,2101)
2101 FORMAT(42H NOTE: if you answer YES to the following,
139H question, then all of the changes you/7H have m,
237Hade to this resume will be discarded.)
C
C VARIOUS MESSAGES ABOUT ADDRESSES AND PHONES
GO TO 5
3000 CONTINUE
WRITE(ITTY,3001)
3001 FORMAT(32H Type the first line of address./7H Press ,
145Honly the RETURN key if no address is desired.)
GO TO 5
3100 CONTINUE
WRITE(ITTY,3101)
3101 FORMAT(42H Type the first phone number to be include,
115Hd with address./30H Press only the RETURN key if ,
234Hno phone number is to be included.)
GO TO 5
3200 CONTINUE
WRITE(ITTY,3201)
3201 FORMAT(39H Type the first line of second address./
149H Press only the RETURN key if no second address i,
210Hs desired.)
GO TO 5
3300 CONTINUE
WRITE(ITTY,3301)
3301 FORMAT(42H Type the first phone number to be include,
122Hd with second address./23H Press only the RETURN ,
249Hkey if no phone number is to be included wit,
39Hh second/9H address.)
GO TO 5
3400 CONTINUE
WRITE(ITTY,3401)
3401 FORMAT(31H Type the next line of address./8H Press o,
142Hnly the RETURN key if address is complete.)
GO TO 5
3500 CONTINUE
WRITE(ITTY,3501)
3501 FORMAT(42H Type the next phone number to be included,
114H with address./31H Press only the RETURN key if l,
233Hist of phone numbers is complete.)
GO TO 5
3600 CONTINUE
WRITE(ITTY,3601)
3601 FORMAT(38H Type the next line of second address./1H ,
149HPress only the RETURN key if second address is co,
27Hmplete.)
GO TO 5
3700 CONTINUE
WRITE(ITTY,3701)
3701 FORMAT(42H Type the next phone number to be included,
121H with second address./24H Press only the RETURN k,
249Hey if list of phone numbers with second add,
38Hress is/10H complete.)
C
C TELL USER WHAT PROGRAM THIS IS
GO TO 5
3900 CONTINUE
WRITE(ITTY,3901)
3901 FORMAT(7H RESUME/32H Accepts resumes for the student,
119H resume collection.)
C
C PASSWORD ASSIGNED TO USER
GO TO 5
4000 CONTINUE
WRITE(ITTY,4001)
4001 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 t,
832Ho contact the RESUME program)
WRITE(ITTY,4002)
4002 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
4400 CONTINUE
WRITE(ITTY,4401)
4401 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 RE,
648HSUME program administrator if you have forgotten/
737H either your number or your password.)
C
C INSTRUCTIONS FOR ENTERING NAME SECTION
GO TO 5
4500 CONTINUE
WRITE(ITTY,4501)
4501 FORMAT(29H Ready to start a new resume.//9H You will,
149H now supply your name, address and phone number. ,
223H Your name and address/22H will appear exactly a,
349Hs you type them. If you type your name in upper ,
410Hcase, then/35H it will be in upper case on the t,
546Hop line of your resume. Your name will/
649H automatically be darkened. You will be able ,
732Hto supply 2 addresses. The left/13H address will,
849H be lined up with the left edge of the paper if y,
919Hou later look at)
WRITE(ITTY,4502)
4502 FORMAT(42H this information on the terminal or prin,
139Ht this information on the line-printer./7H Howeve,
249Hr, the left address will line up with the left e,
325Hdge of the descriptive/20H text of the resume ,
449Hwhen it is printed on the letter quality typewrit,
53Her.//42H The lines of the name and address are sto,
639Hred in sections named NAME for the/7H name, ,
749H LOCAL for the local or main address and PERMA,
825HNENT for the permanent or)
WRITE(ITTY,4503)
4503 FORMAT(42H secondary address. The phone numbers ,
139H are considered to be part of the/7H addres,
249Hses, although you will be asked separately for th,
325Hem. If you do not supply/20H a permanent address,
449H now, but later decide that you want one, merel,
512Hy create a/33H section named PERMANENT by t,
648Hyping CREATE PERMANENT in response to the "What/
749H next?" question. The text which you would put i,
832Hnto such a new section is copied)
WRITE(ITTY,4504)
4504 FORMAT(42H into the resume broken into lines exac,
139Htly as you typed them. The NAME, LOCAL/7H and PE,
249HRMANENT sections do not need to be located before,
325H the other sections, they/20H will be sorted out ,
449Hand printed first regardless of where they are lo,
56Hcated.)
C
C INITIAL REQUEST FOR WHETHER INSTRUCTIONS ARE WANTED
GO TO 5
6400 CONTINUE
WRITE(ITTY,6401)
6401 FORMAT(36H Type one of the following commands://2H Y,
12HES,6X,38Hif you want a list of instructions now/
23H NO,7X,40Hif you already know how to run this prog,
33Hram)
GO TO 5
6500 CONTINUE
WRITE(ITTY,6501)
6501 FORMAT(42H You are assumed to be using a slow hardco,
137Hpy terminal which types directly onto/7H paper.)
GO TO 5
6600 CONTINUE
WRITE(ITTY,6601)
6601 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
6700 CONTINUE
WRITE(ITTY,6701)
6701 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
6800 CONTINUE
WRITE(ITTY,6801)
6801 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 you want instruct,
55Hions.//40H SLOW if you are using a hardcopy te,
639Hrminal which types directly onto paper./7H FAST ,
73X,46Hif you are using a video terminal on which the,
820H last line displayed/10X,21Happears at the bottom,
944H of the screen forcing the previous lines to)
WRITE(ITTY,6802)
6802 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 VARIOUS SHORT HELP MESSAGES
GO TO 5
4600 CONTINUE
WRITE(ITTY,4601)
4601 FORMAT(26H Type one of the following/12H the number ,
149Hwhich identifies the resume which is to be edited/
211H -1 to exit/34H -2 to select a resume by the pass,
326Hword chosen by the student/19H or merely press th,
437He RETURN key to select another class.)
GO TO 5
4700 CONTINUE
WRITE(ITTY,4701)
4701 FORMAT(42H Type the name of the new section. This n,
135Hame will darkened and appear to the/10H upper lef,
249Ht of the text in the section. The name will appe,
319Har 1 line above the/26H text if the first line in,
449H the section starts with a single asterisk. The ,
54Hname/42H will be capitalized only where you type c,
638Hapital letters. Do not include either/8H circumf,
721Hlexes or underscores.)
GO TO 5
4800 CONTINUE
WRITE(ITTY,4801)
4801 FORMAT(36H Type one of the following commands:/3H YE,
133HS if you want to edit this resume/12H NO if this,
235H is not the resume you mean to edit)
GO TO 5
4900 CONTINUE
WRITE(ITTY,4901)
4901 FORMAT(42H The line number is the number which is di,
136Hsplayed to the left of the line when/9H you issu,
249He a DRAFT command. If you do not know the line n,
323Humber, merely press the/22H return key here, then,
449H type DRAFT in response to the "WHAT NEXT?" quest,
58Hion. If/38H the DRAFT command does not show the l,
642Hine you want, then type the ALL command so/4H tha,
743Ht the DRAFT command will show all sections.)
GO TO 5
5000 CONTINUE
WRITE(ITTY,5001)
5001 FORMAT(36H Type one of the following commands:/3H YE,
129HS if this is the correct line/16H NO if you type,
223Hd the wrong line number)
GO TO 5
5100 CONTINUE
WRITE(ITTY,5101)
5101 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you want to cancel the current contents of y,
210Hour resume/35H NO if you got to this question by,
39H accident)
GO TO 5
7200 CONTINUE
WRITE(ITTY,7201)
7201 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you want to cancel all the changes you have ,
219Hmade to this resume/26H NO if you got to this qu,
318Hestion by accident)
GO TO 5
5200 CONTINUE
WRITE(ITTY,5201)
5201 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you do not want to add more lines to this se,
25Hction/41H NO if you got to this question by accid,
33Hent)
GO TO 5
5300 CONTINUE
WRITE(ITTY,5301)
5301 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you do not want to make any more changes eve,
21Hr/44H NO if you got to this question by accident)
GO TO 5
5400 CONTINUE
WRITE(ITTY,5401)
5401 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you want to type resume on Diablo or list on,
28H printer/38H NO if you do not want a copy of your,
37H resume)
GO TO 5
5500 CONTINUE
WRITE(ITTY,5501)
5501 FORMAT(36H Type one of the following commands:/3H Ye,
149Hs if you really mean to create a new section by s,
222Hplitting off the lower/5X,20Hportion of an existi,
311Hng section./34H NO if you want to select some ot,
418Hher option instead)
GO TO 5
5600 CONTINUE
WRITE(ITTY,5601)
5601 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you really mean to remove the ruling and sec,
225Htion name at the start of/5X,17Hthis section so t,
349Hhat this section is merged with the preceding sec,
44Htion/42H NO if you want to select some other opti,
510Hon instead)
GO TO 5
5700 CONTINUE
WRITE(ITTY,5701)
5701 FORMAT(42H Identify the group of students for whom r,
139Hesumes are to be modified by typing the/7H right ,
249H2 digits of the year in which these students are ,
321Hexpected to graduate./24H You would type 84 for s,
440Htudents in the graduating class of 1984.)
C
C USER SELECTED PASSWORD
GO TO 5
5800 CONTINUE
WRITE(ITTY,5801)
5801 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,
648H your resume 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,5802)
5802 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,5803)
5803 FORMAT(42H resume, 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 RESUME p,
832Hrogram administrator if you have/13H forgotten yo,
912Hur password.)
GO TO 5
6900 CONTINUE
WRITE(ITTY,6901)
6901 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 RE,
312HSUME program/33H administrator to have this probl,
448Hem corrected. You cannot run this program until/
56H then.)
GO TO 5
5900 CONTINUE
WRITE(ITTY,5901)
5901 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
7300 CONTINUE
WRITE(ITTY,7301)
7301 FORMAT(42H Your password can be 1 or more words and ,
136Hup to 20 letters and digits. If you/9H have not,
249H used this program before, select a password unli,
320Hkely to be chosen by/25H others. If you started ,
449Hyour resume earlier, type the password you chose ,
55Hthen.//40H If this is the first time you have used,
641H this program, but this program says that/5H it i,
749Hs continuing a resume begun previously, then plea,
822Hse type EXIT when this)
WRITE(ITTY,7302)
7302 FORMAT(42H program asks "WHAT NEXT?" and run this pr,
139Hogram again to select another password.)
GO TO 5
6000 CONTINUE
WRITE(ITTY,6001)
6001 FORMAT(42H You will now be asked what you want the p,
139Hrogram to do. You are asked this each/7H time ,
249Hthe program completes what you last asked it t,
325Ho do. If you do not know/20H what options are av,
449Hailable, then you should press the ? key and the ,
511HRETURN key.//33H You will probably want to start ,
648Hby specifying some of the text which is to/
749H appear in the resume. To do so, you respon,
832Hd to the "What next?" request by)
WRITE(ITTY,6002)
6002 FORMAT(42H typing the word CREATE. You will then be,
139H asked to specify the name of the/7H sectio,
249Hn. A typical section name would be EDUCATION or,
325H WORK EXPERIENCE, but you/20H can choose any you ,
449Hwant. Use capital letters only where you wa,
512Hnt them to/33H appear. The section name will a,
648Hppear at the upper left corner of the section in/
749H dark lettering and will also be the name by whic,
832Hh you subsequently refer to the)
WRITE(ITTY,6003)
6003 FORMAT(42H section if you want to modify the name or,
125H contents of the section.//19H After you have sel,
249Hected the CREATE option and named the section, ,
313H the program/32H will display a ? to indicate t,
449Hhat you should type a line of text which is to be/
549H inserted into the section. If you do not know h,
632How the program expects you to/13H indicate su,
749Hb-section names, or the starts of lines which ar,
819He not to be wrapped)
WRITE(ITTY,6004)
6004 FORMAT(42H around, or words which are to be either d,
139Harkened or underlined, then you should/7H here ,
249Halso press the ? key and the RETURN key. The pr,
325Hogram will accept as many/20H lines as you want t,
449Ho place into the section. When you have finish,
512Hed entering/33H text into the section, merely,
648H press the RETURN key again without having typed/
749H anything else before it to return to the "What n,
814Hext?" request.)
IF(IVIDEO.LT.0)GO TO 6005
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
6005 CONTINUE
GO TO 5
6100 CONTINUE
WRITE(ITTY,6101)
6101 FORMAT(36H Type one of the following commands:/3H YE,
149HS if you specified the correct password and you r,
228Heally do want to start a new/5X,6Hresume/6H NO i,
349Hf you started your resume earlier but you specifi,
425Hed the wrong password now)
GO TO 5
6200 CONTINUE
WRITE(ITTY,6201)
6201 FORMAT(42H Type the number of the class containing t,
135Hhe students whose resumes are to be/7H edited/1H ,
219Hor type -1 to exit.)
GO TO 5
6300 CONTINUE
WRITE(ITTY,6301)
6301 FORMAT(36H Type one of the following commands:/3H AT,
149HTACHED If the text which has just been found and,
224H the text which is to be/11X,17Hinserted are to b,
349He attached together rather than separated by a sp,
44Hace./42H SEPARATED If the text which has just been,
534H found and the text which is to be/11X,8Hinserted,
649H are to be separated by a space rather than attac,
713Hhed together.)
GO TO 5
C
C RETURN TO CALLING PROGRAM
5 WRITE(ITTY,3)
6 RETURN
END