Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0174/rsmquo.for
There is 1 other file named rsmquo.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 THIS VERSION USES ' RATHER THAN H NOTATION FOR THE
C CHARATERS WHICH ARE TO BE TYPED USING THE FORMAT
C STATEMENTS. IT WAS PRODUCED BY INSERTING A .USE'
C COMMAND INTO THE START OF THE FILE PROCESSED BY THE
C FORMAT PROGRAM.
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(' This program is a very simple editor for r',
1'esumes. You can run the program as'/' many ti',
2'mes as are necessary to type in and revise the c',
3'ontents of the resume.'/' The program is meant to ',
4'be usable even if you do not have any previous co',
5'mputer'/' experience. If you do not know what to ',
6'do at any point, the program will supply'/' instru',
7'ctions if you will press the ? key without typing ',
8'anything else, and then'/' press the RETURN key.'/)
WRITE(ITTY,102)
102 FORMAT(' The resume is divided into sections, with ',
1'lines being ruled between these. You'/' will fi',
2'rst be asked to specify the information to be i',
3'n the name and address'/' sections and in the educ',
4'ation section. In the name and address sections',
5', you'/' will be asked to specify specific ',
6'information. The initial lines of the'/' educat',
7'ion section are standardized, although you will be',
8' able to change them')
WRITE(ITTY,103)
103 FORMAT(' later. After showing the standardized po',
1'rtion to you, the program will ask for'/' you to s',
2'upply any additional information which you want to',
3' have in the education'/' section. You will no',
4't be asked for any specific information in the edu',
5'cation'/' section or in any later sections, the in',
6'formation which you supply is up to you.'//' After',
7' you have finished with the education section, yo',
8'u will be asked "What')
WRITE(ITTY,104)
104 FORMAT(' next?" You will repeated return to this qu',
1'estion when you have finished entering'/' or modif',
2'ying portions of your resume. You can enter the t',
3'ext of a new section'/' by typing the word C',
4'REATE in response to the "What next?" request, an',
5'd then'/' naming the new section when asked to do ',
6'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(' manner you choose. The program will then',
1' ask you to type the text to be in the'/' new sect',
2'ion. The text within each section will be shifted',
3' to the right of the'/' left edge of the page',
4'. The name of the section will appear at the uppe',
5'r left'/' corner of the section exactly as you typ',
6'ed it.'//' In the education section, and in the se',
7'ctions which you name yourself, you can'/' type ',
8'as little or as much as you want on a line, the pr',
9'ogram will accumulate the')
WRITE(ITTY,107)
107 FORMAT(' words into lines of approximately equal le',
1'ngth. If you type more than will fit'/' across ',
2'the width of the screen, ignore the automatic retu',
3'rn to the left edge of'/' the screen and just keep',
4' on typing. You must, however, press the RETUR',
5'N key'/' when you have finished typing whate',
6'ver you want to be on the line. You can'/' termin',
7'ate entering text into the section by pressing ',
8' the RETURN key again'/' without having typed a',
9'nything else before it.'/)
WRITE(ITTY,108)
108 FORMAT(' You can erase errors immediately after you',
1' have typed them by using the DEL or'/' RUBOUT ',
2'keys, but you CANNOT correct errors by using ',
3'the cursor keys (those'/' marked with arrows) or t',
4'he BACKSPACE key. If you have already presse',
5'd the'/' RETURN key, or if you have typed more th',
6'an will fit onto one line of the screen,'/' then y',
7'ou will have to wait until you have finished ente',
8'ring the text in the')
WRITE(ITTY,109)
109 FORMAT(' section before you can return to correct t',
1'he errors. At that time you can issue'/' a DRAFT ',
2'command in response to the "What next?" request to',
3' discover the number'/' of the line in error',
4', and then you can issue an EDIT command to corre',
5'ct 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(' error.'//' The following conventions are a',
1'llowed by this program.'//' A line containing only',
2' a * (the asterisk) produces a blank line in the r',
3'esume.'/' A line starting with a * will be separat',
4'e from the previous line.'/' A line starting with ',
5'a - (the minus sign) will bear a bullet at its lef',
6't end.'/' A line starting with a word, phrase or d',
7'ate followed by a * and then more text'/' will h',
8'ave the word, phrase or date to the left of the ma',
9'rgin.')
WRITE(ITTY,112)
112 FORMAT(' A ^ character (the circumflex) in front of',
1' a word darkens that word.'/' A _ character (the u',
2'nderscore) in front of a word underlines that word',
3'.'//' A single * in a line marks the location in t',
4'he line which is to be lined up with'/' the left m',
5'argin. You will see the * if you issue a DRAFT co',
6'mmand in response to'/' the "What next?" request a',
7'fter you have finished entering the text in ',
8' the'/' section, but the * will not appear in the ',
9'final version of the resume. The name')
WRITE(ITTY,113)
113 FORMAT(' of the section will appear on the same lin',
1'e as the first line of the text in the'/' section ',
2'unless this text also starts with a *.'//' When yo',
3'u are viewing a lengthy batch of instructions, or ',
4' a rough draft or a'/' proof of your resume, t',
5'he program will pause each time the screen has fil',
6'led and'/' instruct you to "press RETURN to contin',
7'ue". 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(' the resume will continue when you press t',
1'he RETURN key located at the right end'/' of the k',
2'eyboard. If you want to cancel the typing ',
3'of the rest of the'/' instructions or of the r',
4'est of the resume, then you can instead type the c',
5'ommand'/' which you want to have be processed next',
6' before pressing the RETURN key.'//' You can save ',
7'an unfinished version of your resume by issuing an',
8' EXIT command in')
WRITE(ITTY,116)
116 FORMAT(' response to the "What next?" request. ',
1'You can then run this program later to'/' revise o',
2'r to add to the resume. When you have produced ',
3' the version of the'/' resume which you want',
4' to have included in the collection of resumes, th',
5'en you'/' must issue the SUBMIT command in respons',
6'e to the "What next?" request. Your'/' resume',
7' will not be included in the collection if you ',
8'do not select the SUBMIT'/' option.')
C
C SHORT LIST OF WHAT NEXT OPTIONS
GO TO 5
200 CONTINUE
WRITE(ITTY,201)
201 FORMAT(' The following is a summary of the availabl',
1'e options'//' AFTER to insert line after anothe',
2'r PAPER to get a paper copy of resume'/' ALL',
36X,'so all sections show',11X,'PROOF to show for',
4'matted resume'/' APPEND to append to a section',
59X,'RENAME to rename a section'/' BEFORE to ins',
6'ert line before another REPLACE to replace line'/
7' BREAK to break before a line',9X,'RULE to ',
8'break 1 section into 2')
WRITE(ITTY,202)
202 FORMAT(' BULLET to begin line with bullet',6X,'SA',
1'VE to save resume but not exit'/' CANCEL to ',
2'start over',18X,'SKIP to skip blank line befor',
3'e line'/' CREATE to create a new section',8X,'SU',
4'BMIT to submit resume when all done'/' DELETE ',
5'to delete a line',15X,'SWITCH to move lines with',
6'in a section'/' DRAFT to show resume as you typ',
7'ed it TYPE to type a line'/' EDIT to chang',
8'e part of a line',7X,'UNRULE to merge 2 sections',
9' into 1'/' EXIT to save resume and exit')
WRITE(ITTY,203)
203 FORMAT(' JOIN to remove break before line fo',
1'llowing select terminal type'/' LENGTH to calcul',
2'ate length of resume SLOW for paper output te',
3'rminal'/' MOVE to move a section',14X,'FAST ',
4' for video without screen clear'/' ONLY so on',
5'ly one section shows',6X,'PAGING for video with ',
6'screen clear'///' Now you can either press the ret',
7'urn key to get a more detailed explanation,'/' or ',
8'you can type a word in this list to perform the co',
9'rresponding option.')
IF(IVIDEO.LT.0)GO TO 204
WRITE(ITTY,1)
CALL GETLIN(ITTY,LTRBFR,LMTBFR,MAXBFR)
IF(MAXBFR.GT.0)GO TO 6
IF(IVIDEO.GT.0)CALL RSMWIP(ITTY)
204 CONTINUE
C
C LONG LIST OF WHAT NEXT OPTIONS
WRITE(ITTY,205)
205 FORMAT(' The following is a more complete descripti',
1'on of the available options'//' AFTER and line n',
2'umber to insert new line after that line'/' ALL ',
3' so DRAFT and PROOF options show all sections'/' ',
4'APPEND and section name to append new lines to th',
5'e end of that section'/' BEFORE and line number t',
6'o insert new line before that line'/' BREAK and ',
7'line number to cause that line not to continue pre',
8'vious line'/' BULLET and line number to cause tha',
9't line to begin with bullet')
WRITE(ITTY,206)
206 FORMAT(' CANCEL to cancel current resume and start',
1' over. This command cannot be'/9X,'abbreviated.'/
2' CREATE and section name to create a new section'/
3' DELETE and line number to delete that line'/' DR',
4'AFT to list current section or entire resume as ',
5'you typed it. PROOF option'/9X,'would show reform',
6'atted lines.'/' EDIT and line number to change ',
7'part of that line. You can insert, remove,'/9X,'c',
8'apitalize, darken or underline words and phrases.')
WRITE(ITTY,207)
207 FORMAT(' EXIT to save resume, then exit. You ca',
1'n revise resume later. Use SUBMIT'/9X,'option lat',
2'er when resume is finished.'/' JOIN and line nu',
3'mber to cause that line to continue previous line'/
4' LENGTH to calculate number of lines in resume wh',
5'en typeset.'/' MOVE and section name to move th',
6'at section before another section'/)
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(' ONLY and section name so that DRAFT and',
1' PROOF options show only that section.'/9X,'Opposi',
2'te of ALL option.'/' PAPER to write resume to fi',
3'le which you can type or print later. You will be'/
49X,'asked which printer and type of resume you want',
5'.'/' PROOF to list formatted version of current ',
6'section or entire resume. DRAFT'/9X,'options woul',
7'd show lines as you typed them.'/' RENAME and sec',
8'tion name to rename that section. Type capitals a',
9'nd small')
WRITE(ITTY,210)
210 FORMAT(9X,'letters exactly as you want them to appe',
1'ar.'/' REPLACE and line number to replace that ent',
2'ire line'/' RULE and section name to create a s',
3'ection having this name from the lower'/9X,'portio',
4'n of an existing section. You will be asked to id',
5'entify the first'/9X,'line which is to be in the n',
6'ew section.'/' SAVE to save resume but not exit',
7'. You can continue to make revisions.'/' SKIP ',
8'and line number to skip a line before that line.')
WRITE(ITTY,211)
211 FORMAT(' SUBMIT if you have completed resume. Thi',
1's command cannot be abbreviated.'/9X,'After issuin',
2'g this command, the resume cannot be changed later',
3'.'/' SWITCH and 3 line numbers to move several li',
4'nes within a section. Only the'/9X,'first line nu',
5'mber can appear to the right of the SWITCH command',
6'. The'/9X,'others must be typed separately. The ',
7'lines identified by the first and'/9X,'second numb',
8'ers are moved to just above the line identified by',
9' the third')
WRITE(ITTY,212)
212 FORMAT(9X,'number. The first number identifies the',
1' top line to be moved. The'/9X,'second number ide',
2'ntifies the bottom line to be moved. The first an',
3'd')
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(9X,'second number would be the same if only ',
1'1 line is to be moved.'/' TYPE and line number ',
2'to type that line'/' UNRULE and section name to m',
3'erge this section with the preceding section.'//' ',
4'Following commands change how terminal you are usi',
5'ng is handled by this program'//' SLOW if runni',
6'ng this program from a slow or hardcopy terminal'/
7' FAST if running this program from a fast video',
8' terminal which cannot clear'/9X,'the screen betwe',
9'en pages')
WRITE(ITTY,215)
215 FORMAT(' PAGING if running this program from a fas',
1't video terminal which can clear the'/9X,'screen w',
2'hen 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(' The first section in your resume will list',
1' your educational background. This'/' section ',
2'is assumed to start with the following information',
3':')
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(' The lines in the final resumes will be wid',
1'er than shown here, so that fewer'/' lines m',
2'ay be needed for this information. If the da',
3'tes are wrong, you can'/' change these later using',
4' the EDIT option. The words which are shown unde',
5'rlined'/' by circumflexs or up-arrows will be dar',
6'ker in the final resume than the rest of'/' the te',
7'xt.'//' Now, in response to the question mark prom',
8'pt which will appear below, please')
WRITE(ITTY,402)
402 FORMAT(' type any additional information which ',
1' is to be included in the education'/' section.',
2' If you begin the first or any line which you typ',
3'e with a * (asterisk)'/' then this line will st',
4'art on a new line in the resume. If you begin the',
5' first'/' or any line which you type with a - (min',
6'us 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(' a bullet in the resume. If you do not be',
1'gin the first line which you type with'/' either a',
2' * or a -, then what you type will be merged in',
3'to the automatically'/' supplied start of the e',
4'ducation section. If you want to continue the edu',
5'cation'/' section by describing your areas of emph',
6'asis, then the first line which you type'/' should',
7' begin with a *. If you forget to type the *, you',
8' can later use the BREAK'/' option to insert the a',
9'sterisk.'/)
WRITE(ITTY,405)
405 FORMAT(' Press the RETURN key an extra time when yo',
1'u have typed all of the information'/' which is',
2' to be in this section.'//' You can obtain detaile',
3'd instructions about the conventions used for ',
4'entering'/' text by typing the ? key now. If y',
5'ou can also review these same instructions'/' late',
6'r, whenever you are creating or appending to a sec',
7'tion.')
C
C DESCRIBE ENTRY OF SECTION (KNDMSG=5)
GO TO 5
500 CONTINUE
WRITE(ITTY,501)
501 FORMAT(' The special conventions recognized by this',
1' program are summarized below'//' *',21X,'produces',
2' completely blank line'/' text',18X,'continues pre',
3'vious line unless this contained only *'/' *text',
417X,'starts new line'/' -text',17X,'starts new line',
5' with bullet to left'/' --text',16X,'starts new li',
6'ne indented same as if marked with bullet'/' ---te',
7'xt',15X,'starts new line in 2nd level list with bu',
8'llet to left'/' ----text',14X,'starts new line in ',
9'2nd level list but without bullet'/)
WRITE(ITTY,502)
502 FORMAT(' Date*text',13X,'starts new line with date ',
1'to left'/' Date*-text',12X,'starts new line with d',
2'ate and bullet to left'/' Date*--text',11X,'starts',
3' new line with date and indented as if with bullet'/
4' text**right text',6X,'forces text after ** to rig',
5'ht edge, doesn''t start new line'/' *text**right t',
6'ext starts new line, text after ** is forced t',
7'o right edge'/' date*text**right text new line wit',
8'h date to left, text after ** forced to right')
WRITE(ITTY,503)
503 FORMAT(' date*-text**right text new line with date ',
1'and bullet, text after ** at right'//' ^words ^in ',
2'^a ^phrase would darken (boldface) the words in th',
3'e phrase'/' ^multi^national',7X,'would darken mult',
4'i but not national'/' _words _in _a _phrase would ',
5'underline the words in the phrase'/' _multi_nation',
6'al',7X,'would underline multi but not national')
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(/' You can type as many lines of text as nec',
1'essary in this section. Press the'/' RETURN ',
2' key an extra time when you have typed all of the ',
3'information which is to'/' be in this section. Th',
4'e words which you type will be wrapped around t',
5'o form'/' lines of approximately equal length. ',
6'Type an asterisk (the * character) at the'/' start',
7' of each line which is not to be run-in with the p',
8'revious lines. Type a')
WRITE(ITTY,506)
506 FORMAT(' minus sign (the - character), rather than',
1' an asterisk, if the line is to have a'/' bullet t',
2'o its left. To have a blank line appear in the ',
3'resume, type a line'/' containing only an aster',
4'isk.'//' If something, such as a word or words or ',
5'a date, is to appear to the left of the'/' margin,',
6' first type the word or words which are to ap',
7'pear to the left of the'/' margin, and then on the',
8' same line type an asterisk followed in turn ',
9'by the')
WRITE(ITTY,507)
507 FORMAT(' ordinary text to be in the body of the',
1' document. Follow the asterisk with a'/' minus si',
2'gn if the text which has the word or words or date',
3' to its left is also'/' to bear a bullet. Th',
4'e first line in a section will start on the same l',
5'ine as'/' the section name unless this first line ',
6'starts with or contains an asterisk.'//' Insert 2 ',
7'minus signs at the start of (or after the asterisk',
8' in) a line which is'/' to be aligned with the it',
9'ems in a list but which is not to bear a bullet.')
WRITE(ITTY,508)
508 FORMAT(' Insert 3 minus signs at the start of a lin',
1'e which is to be in an inner list and'/' which is',
2' to bear a bullet.')
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(' Insert 4 minus signs at the start of a lin',
1'e which is to be aligned with the'/' items in',
2' an inner list but which is not to bear a bullet.'//
3' Your name and the names which are typed at the up',
4'per left corners of the various'/' sections will b',
5'e typed darker than normal. To force any other wo',
6'rd or phrase to'/' be typed darker than normal, pr',
7'ecede the word or each word of the phrase by a'/
8' circumflex or an up-arrow character (the ^ ',
9'character). The circumflex and')
WRITE(ITTY,511)
511 FORMAT(' up-arrow are markings which identify the s',
1'ame character on different types of'/' keyboard',
2's. Similarly, to force a word or a phrase to be',
3' underlined when it is'/' typed, precede the word ',
4'or each word in the phrase with an underscore or',
5' left'/' arrow (the _ character). The underscor',
6'e and left arrow are also markings which'/' identi',
7'fy a single character on different types of keyboa',
8'rds. Use the keys on')
WRITE(ITTY,512)
512 FORMAT(' the main keyboard, do not use the left',
1' pointing arrow key or the up pointing'/' arrow ke',
2'y on the small keyboard to right of the main ',
3' keyboard. A second'/' appearance of the cir',
4'cumflex or of the underscore can appear within a w',
5'ord to'/' cause the remainder of the word to be ty',
6'ped in the normal fashion after the'/' preced',
7'ing portion of the word has been typed eith',
8'er darker than normal or'/' underlined respectivel',
9'y.'/)
WRITE(ITTY,513)
513 FORMAT(' As an example of the use of these special ',
1'characters, the following lines of'/' 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(' 1975-1976*^Sixth ^Universal ^Bank New York',
1', New York'/' *Promoted from _Janitor to _Vice _Pr',
2'esident'//' would type the year range at the left ',
3'edge of the page, cause the bank name to'/' be t',
4'yped darker than normal and underline the position',
5' titles on the next line.'//' To right justify a p',
6'hrase in a line which is to be typed on the lette',
7'r quality'/' typewriter, insert 2 asterisks (**',
8') between the text which is to be flush with')
WRITE(ITTY,516)
516 FORMAT(' the left margin and that which is to be fl',
1'ush with the right margin. The **'/' does not',
2' itself cause a new line in the output. If you wa',
3'nt the line containing'/' the ** to start a new li',
4'ne, then either a single * must appear somewhere t',
5'o the'/' left of the ** or a - must appear at',
6' the start of the line. If you want the'/' next l',
7'ine to start a new line, then either a * or a - mu',
8'st appear at the start')
WRITE(ITTY,517)
517 FORMAT(' of the next line. The ** is taken ',
1' to be a single space if the resume is'/' typeset.'/
2/' For example, the following lines of text'//' Sum',
3'mer 1978*^Little ^Bank ^and ^Trust ^Company**New Y',
4'ork, New York'/' *_Teller'/' *Responsible for the ',
5'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(' would produce the following lines in the r',
1'esume.'//' Summer 1978',9X,'Little Bank and Trust ',
2'Company',13X,'New York, New York'/21X,'Teller'/21X,
3'Responsible for the handling of many cents each da',
4'y'//' in which the company name would be darkened ',
5'and the job title underlined. Since'/' the termi',
6'nal which you are using to input the contents of ',
7'your resume probably'/' cannot itself display dark',
8'ened or underlined characters, such specially modi',
9'fied')
WRITE(ITTY,520)
520 FORMAT(' characters are instead indicated when you',
1' display a proof of your resume on the'/' terminal',
2' by their being underlined with circumfle',
3'xs or underscores,'/' respectively, on the ',
4'next line. Each of the specially modified charact',
5'ers is'/' underlined although you only had to mark',
6' each word once when you typed it in'/' origin',
7'ally. Don''t worry about the extra, otherwise bla',
8'nk line which is shown on')
WRITE(ITTY,521)
521 FORMAT(' your terminal since the characters underli',
1'ned by the circumflexs or underscores'/' will ap',
2'pear properly darkened or underlined when the resu',
3'me is finally typed or'/' typeset.'//' The example',
4' shown earlier would be displayed on the terminal ',
5' in the following'/' 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(' Summer 1978',9X,'Little Bank and Trust Com',
1'pany',13X,'New York, New York'/21X,'^^^^^^ ^^^^ ^^',
2'^ ^^^^^ ^^^^^^^'/21X,'Teller'/21X,'______'/21X,'Re',
3'sponsible for the handling of many cents each day'//
4' Now type the next line which is to be in this sec',
5'tion. Merely press the RETURN'/' key without t',
6'yping anything else before it if you have complet',
7'ed the entry of'/' the text in this section.')
C
C SHORT LIST OF EDIT OPTIONS
GO TO 5
600 CONTINUE
WRITE(ITTY,601)
601 FORMAT(' The following is a summary of the availabl',
1'e edit options'//' AFTER to insert to right of i',
2'tem'/' BEFORE to insert at left of item'/' BOLD ',
3' to make item darker'/' DELETE to delete item'/
4' BREAK to break line before item'/' BULLET to b',
5'reak line and insert bullet'/' LOWER to convert ',
6'item to lower case'/' MIXED to capitalize starts',
7' of words'/' NEXT to find next appearance of it',
8'em'/' NORMAL to remove underlining and bolding'/
9' REPLACE to replace item')
WRITE(ITTY,602)
602 FORMAT(' SPACE to insert space to left of item'/
1' UNDERLINE to underline item'/' UPPER to convert',
2' item to upper case'/////' Now you can either pres',
3's the return key to get a more detailed explanatio',
4'n,'/' or you can type a word in this list to perfo',
5'rm 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(' The following is a more complete descripti',
1'on of the edit options'//' AFTER to insert a wor',
2'd or a phrase to the right of the item just found.'/
3' BEFORE to insert a word or a phrase to the left ',
4'of the item just found.'/' BOLD to insert a cir',
5'cumflex at the start of a word or at the start of ',
6'each'/9X,'word of a phrase to cause the word or th',
7'e phrase to be darker than'/9X,'normal.'/' DELETE ',
8' to delete the item just found')
WRITE(ITTY,605)
605 FORMAT(' BREAK to cause the item just found to ap',
1'pear at the start of a new line in the'/9X,'resume',
2'. (The line is split and * is inserted.)'/' BULLE',
3'T to cause the item just found to appear at the s',
4'tart of a new line which'/9X,'bears a bullet in th',
5'e resume. (The line is split and - is inserted.)'/
6' LOWER to convert the alphabetic letters in the ',
7'word or phrase all to lower'/9X,'case (small lette',
8'rs).'/' MIXED to convert the first letter of the',
9' word or of each of the words in a')
WRITE(ITTY,606)
606 FORMAT(9X,'phrase to upper case (capital letters) a',
1'nd the second and subsequent'/9X,'letters to lower',
2' case (small letters). "the job" or "THE JOB" wou',
3'ld be'/9X,'converted to "The Job"'/' NEXT to se',
4'arch for the next appearance of the same item furt',
5'her to the right'/' NORMAL to remove the undersco',
6're and/or the circumflex at the start of a word or'/
79X,'at the start of each word of a phrase to keep t',
8'he word or the phrase'/9X,'from being underlined a',
9'nd 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(' REPLACE to replace the item just found by ',
1'something else. To remove a space'/9X,'incorrectl',
2'y typed within a word or between a word and a foll',
3'owing'/9X,'punctuation mark, it is necessary to se',
4'arch for the two parts, issue a'/9X,'REPLACE comma',
5'nd, and type in the two parts without the space. ',
6'To'/9X,'convert "jo b" to "job", search for jo b i',
7'ncluding the space, issue the'/9X,'REPLACE command',
8', and replace by job without the space.')
WRITE(ITTY,609)
609 FORMAT(' SPACE to insert a space to the left of t',
1'he item just found. Use this if you'/9X,'forgot t',
2'o separate 2 words. To convert "thejob" to "the j',
3'ob", search'/9X,'for the word job, then select SPA',
4'CE.'/' UNDERLINE to insert an underscore at the st',
5'art of a word or at the start of each'/9X,'word of',
6' a phrase to cause the word or the phrase to be un',
7'derlined.'/' UPPER to convert the alphabetic let',
8'ters in the word or phrase all to upper'/9X,'case ',
9'(capital letters).'/)
WRITE(ITTY,610)
610 FORMAT(' or merely press the RETURN key to select a',
1'nother option')
C
C DESCRIBE SEARCH IN EDIT FUNCTION (KNDMSG=7)
GO TO 5
700 CONTINUE
WRITE(ITTY,701)
701 FORMAT(' Type a character, a sequence of characters',
1', a word or a phrase which appears in'/' the line.',
2' Alphabetic letters which you type will match eit',
3'her the upper or'/' lower case versions of the sam',
4'e letters in the line regardless of which cases'/
5' which you type. You do not need to type undersco',
6'res and circumflexs. You will'/' be able to do an',
7'y of the following if the item is found in the lin',
8'e.'//' 1 delete the item'/' 2 replace the item b',
9'y something else')
WRITE(ITTY,702)
702 FORMAT(' 3 Convert the item to upper case, lower c',
1'ase or capitalize the first letter in'/4X,'each wo',
2'rd in the item.'/' 4 Cause the item to be darker ',
3'than normal, to be underlined or to cause the'/4X,
4'item to be typed normally without darkening and wi',
5'thout underlining.'/' 5 insert a word or a phrase',
6' either at the left or at the right of the item'/
7' 6 attach a letter or a sequence of letters eithe',
8'r to the left end or to the'/4X,'right end of the ',
9'item')
WRITE(ITTY,703)
703 FORMAT(' 7 insert a space to the left of the item,',
1' but not to its right (to insert a'/4X,'space in "',
2'thejob", search for the word job)'/' 8 cause the ',
3'item to begin a new line in the resulting document',
4' and optionally'/4X,'to cause the new line to begi',
5'n with a bullet'/' 9 search for the next occurren',
6'ce of the item on the same line'//' or press the R',
7'ETURN 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(' Type a word or a phrase which is to be ins',
1'erted to the left of the item just'/' found, but s',
2'eparated from it.')
GO TO 5
900 CONTINUE
WRITE(ITTY,901)
901 FORMAT(' Type a word or a phrase which is to be ins',
1'erted to the right of the item just'/' found, but ',
2'separated from it.')
GO TO 5
1100 CONTINUE
WRITE(ITTY,1101)
1101 FORMAT(' Type the letter or letters which are to re',
1'place the item just found.')
GO TO 5
1200 CONTINUE
WRITE(ITTY,1201)
1201 FORMAT(' Type the characters which are to be attach',
1'ed to the left end of the item just'/' found.')
GO TO 5
1300 CONTINUE
WRITE(ITTY,1301)
1301 FORMAT(' Type the characters which are to be attach',
1'ed to the right end of the item just'/' found.')
GO TO 5
1700 CONTINUE
WRITE(ITTY,1701)
1701 FORMAT(' Type the letter or letters which are to re',
1'place the item just found.')
C
C VARIOUS EXIT MESSAGES
GO TO 5
2200 CONTINUE
WRITE(ITTY,2201)
2201 FORMAT(' The current version of your resume has bee',
1'n saved. You can run this program'/' later t',
2'o revise your resume. When you have completed',
3' your resume, you must'/' select the SUBMIT option',
4' in this program to submit the final version.')
GO TO 5
2300 CONTINUE
WRITE(ITTY,2301)
2301 FORMAT(' The final version of your resume has been ',
1'submitted. You will not be able to'/' revise y',
2'our resume further unless you contact the RESUME p',
3'rogram administrator.')
GO TO 5
2400 CONTINUE
WRITE(ITTY,2401)
2401 FORMAT(' Follow the instructions given in the RESUM',
1'E Program Users Guide for typing this'/' file on ',
2'the letter quality printer.')
GO TO 5
3800 CONTINUE
WRITE(ITTY,3801)
3801 FORMAT(' This file can be printed on narrow paper a',
1't either 10 or 12 characters per inch.')
GO TO 5
4200 CONTINUE
WRITE(ITTY,4201)
4201 FORMAT(' This file should be printed on wide paper.')
GO TO 5
4300 CONTINUE
WRITE(ITTY,4301)
4301 FORMAT(' This file can be printed on narrow paper a',
1't 12 characters per inch'/' or on wide paper at 10',
2' characters per inch.')
GO TO 5
7000 CONTINUE
WRITE(ITTY,7001)
7001 FORMAT(' You would type the following to print the ',
1'file'/' PRINT RESUME.DOC')
GO TO 5
7100 CONTINUE
WRITE(ITTY,7101)
7101 FORMAT(' You would type the following on the letter',
1' quality printer'/' HC'/' RESUME.DOC'/' G')
GO TO 5
2500 CONTINUE
WRITE(ITTY,2501)
2501 FORMAT(' You submitted the final version of your re',
1'sume earlier. You will not be able to'/' revise ',
2'your resume further unless you contact the RESUME ',
3'program administrator.'/' You can, however, produc',
4'e a copy of your resume to be typed on the ',
5'Diablo'/' terminal or to be listed on the line pri',
6'nter.')
C
C INSERT COMMAND MESSAGE
GO TO 5
2600 CONTINUE
WRITE(ITTY,2601)
2601 FORMAT(' Type the line of text which you want to in',
1'sert into the document. If you type'/' more th',
2'an will fit across the width of the screen, ignor',
3'e the automatic return'/' to the left edge of the ',
4'screen and just keep on typing. You must, ho',
5'wever,'/' press the RETURN key when you have fi',
6'nished typing whatever you want to be on'/' the li',
7'ne.'/' Press only the RETURN key if you got to thi',
8's question by accident.')
C
C WARNING ABOUT SUBMIT COMMAND
GO TO 5
2700 CONTINUE
WRITE(ITTY,2701)
2701 FORMAT(' NOTE: if you answer YES to the following ',
1'question, then you CANNOT revise your'/' resume f',
2'urther unless you contact the RESUME program admin',
3'istrator.')
C
C TYPE OF LOCAL FILE IF ULTIMATE RESUME IS TYPESET
GO TO 5
2800 CONTINUE
WRITE(ITTY,2801)
2801 FORMAT(' Type one of the following commands:'/' NAR',
1'ROW if using the fast printer to proof the cont',
2'ents but not the line'/11X,'lengths of a resume. ',
3'The resulting file can be printed on narrow'/11X,
4'paper.'/' PRINTED if using the fast printer to p',
5'roof the contents and the line lengths'/11X,'of a ',
6'resume for which the final copy will be typed on t',
7'he letter'/11X,'quality typewriter. The resulting',
8' file can be printed on narrow paper')
WRITE(ITTY,2802)
2802 FORMAT(11X,'at 12 characters per inch or on wide pa',
1'per at 10 characters per inch.'/' TYPED if usi',
2'ng the letter quality typewriter to produce the fi',
3'nal version of'/11X,'a resume. The file cannot be',
4' printed on the fast printer since it'/11X,'contai',
5'ns instructions for boldfacing which can only be p',
6'roperly'/11X,'handled by the letter quality typewr',
7'iter.'/' TYPESET if using the fast printer to ch',
8'eck the appearance of the resume when')
WRITE(ITTY,2803)
2803 FORMAT(11X,'it is typeset. The resulting file must',
1' be printed on wide paper.'/' or merely press the ',
2'RETURN key if you do not want a paper copy of your',
3' resume'/' now.')
C
C TYPE OF LOCAL FILE IF ULTIMATE RESUME IS NOT TYPESET
GO TO 5
4100 CONTINUE
WRITE(ITTY,4101)
4101 FORMAT(' Type one of the following commands:'/' NAR',
1'ROW if using the fast printer to proof the cont',
2'ents but not the line'/11X,'lengths of a resume. ',
3'The resulting file can be printed on narrow'/11X,
4'paper.'/' PRINTED if using the fast printer to p',
5'roof the contents and the line lengths'/11X,'of a ',
6'resume for which the final copy will be typed on t',
7'he letter'/11X,'quality typewriter. The resulting',
8' file can be printed on narrow paper')
WRITE(ITTY,4102)
4102 FORMAT(11X,'at 12 characters per inch or on wide pa',
1'per at 10 characters per inch.'/' TYPED if usi',
2'ng the letter quality typewriter to produce the fi',
3'nal version of'/11X,'a resume. The file cannot be',
4' printed on the fast printer since it'/11X,'contai',
5'ns instructions for boldfacing which can only be p',
6'roperly'/11X,'handled by the letter quality typewr',
7'iter.'/' or merely press the RETURN key if you do ',
8'not want a paper copy of your resume'/' now.')
C
C WARNING ABOUT CANCEL COMMAND
GO TO 5
2900 CONTINUE
WRITE(ITTY,2901)
2901 FORMAT(' NOTE: if you answer YES to the following ',
1'question, then the current version of'/' your res',
2'ume will be cancelled, and you will have to start ',
3'over.')
GO TO 5
2100 CONTINUE
WRITE(ITTY,2101)
2101 FORMAT(' NOTE: if you answer YES to the following ',
1'question, then all of the changes you'/' have mad',
2'e to this resume will be discarded.')
C
C VARIOUS MESSAGES ABOUT ADDRESSES AND PHONES
GO TO 5
3000 CONTINUE
WRITE(ITTY,3001)
3001 FORMAT(' Type the first line of address.'/' Press o',
1'nly the RETURN key if no address is desired.')
GO TO 5
3100 CONTINUE
WRITE(ITTY,3101)
3101 FORMAT(' Type the first phone number to be included',
1' with address.'/' Press only the RETURN key if no ',
2'phone number is to be included.')
GO TO 5
3200 CONTINUE
WRITE(ITTY,3201)
3201 FORMAT(' Type the first line of second address.'/' ',
1'Press only the RETURN key if no second address is ',
2'desired.')
GO TO 5
3300 CONTINUE
WRITE(ITTY,3301)
3301 FORMAT(' Type the first phone number to be included',
1' with second address.'/' Press only the RETURN key',
2' if no phone number is to be included with s',
3'econd'/' address.')
GO TO 5
3400 CONTINUE
WRITE(ITTY,3401)
3401 FORMAT(' Type the next line of address.'/' Press on',
1'ly the RETURN key if address is complete.')
GO TO 5
3500 CONTINUE
WRITE(ITTY,3501)
3501 FORMAT(' Type the next phone number to be included ',
1'with address.'/' Press only the RETURN key if list',
2' of phone numbers is complete.')
GO TO 5
3600 CONTINUE
WRITE(ITTY,3601)
3601 FORMAT(' Type the next line of second address.'/' P',
1'ress only the RETURN key if second address is comp',
2'lete.')
GO TO 5
3700 CONTINUE
WRITE(ITTY,3701)
3701 FORMAT(' Type the next phone number to be included ',
1'with second address.'/' Press only the RETURN key ',
2'if list of phone numbers with second address',
3' is'/' complete.')
C
C TELL USER WHAT PROGRAM THIS IS
GO TO 5
3900 CONTINUE
WRITE(ITTY,3901)
3901 FORMAT(' RESUME'/' Accepts resumes for the student ',
1'resume collection.')
C
C PASSWORD ASSIGNED TO USER
GO TO 5
4000 CONTINUE
WRITE(ITTY,4001)
4001 FORMAT(' You must prove that you know both the n',
1'umber and the password which were'/' assigned',
2' to you in order to gain access to this pro',
3'gram. Please type the'/' password now. This pass',
4'word is not related to and does not depend upo',
5'n the'/' password through which you may have gai',
6'ned access to the account from which you'/' are ru',
7'nning this program. You will have to conta',
8'ct the RESUME program'/' administrator if you h',
9'ave forgotten either your number or your password.')
C
C ASK NUMBER ASSOCIATED WITH THE PASSWORD
GO TO 5
4400 CONTINUE
WRITE(ITTY,4401)
4401 FORMAT(' You must prove that you know both the n',
1'umber and the password which were'/' assigned',
2' to you in order to gain access to this program. ',
3'Please type the number'/' now. You can type the p',
4'assword to the right of the number or on the next ',
5' line.'/' You will have to contact the RESUME pro',
6'gram administrator if you have forgotten'/' either',
7' your number or your password.')
C
C INSTRUCTIONS FOR ENTERING NAME SECTION
GO TO 5
4500 CONTINUE
WRITE(ITTY,4501)
4501 FORMAT(' Ready to start a new resume.'//' You will ',
1'now supply your name, address and phone number. Y',
2'our name and address'/' will appear exactly as yo',
3'u type them. If you type your name in upper case,',
4' then'/' it will be in upper case on the top lin',
5'e of your resume. Your name will'/' automat',
6'ically be darkened. You will be able to supply',
7' 2 addresses. The left'/' address will be lined u',
8'p with the left edge of the paper if you later l',
9'ook at')
WRITE(ITTY,4502)
4502 FORMAT(' this information on the terminal or print',
1' this information on the line-printer.'/' However,',
2' the left address will line up with the left edge',
3' of the descriptive'/' text of the resume when ',
4'it is printed on the letter quality typewriter.'//
5' The lines of the name and address are stored in ',
6'sections named NAME for the'/' name, LOCAL f',
7'or the local or main address and PERMANENT for t',
8'he permanent or'/' secondary address. The phone',
9' numbers are considered to be part of the')
WRITE(ITTY,4503)
4503 FORMAT(' addresses, although you will be asked sepa',
1'rately for them. If you do not supply'/' a perman',
2'ent address now, but later decide that you want o',
3'ne, merely create a'/' section named PERMANEN',
4'T by typing CREATE PERMANENT in response to the',
5' "What'/' next?" question. The text which you wou',
6'ld put into such a new section is copied'/' into ',
7'the resume broken into lines exactly as you type',
8'd them. The NAME, LOCAL')
WRITE(ITTY,4504)
4504 FORMAT(' and PERMANENT sections do not need to be l',
1'ocated before the other sections, they'/' will be ',
2'sorted out and printed first regardless of where t',
3'hey are located.')
C
C INITIAL REQUEST FOR WHETHER INSTRUCTIONS ARE WANTED
GO TO 5
6400 CONTINUE
WRITE(ITTY,6401)
6401 FORMAT(' Type one of the following commands:'//' YE',
1'S',6X,'if you want a list of instructions now'/' N',
2'O',7X,'if you already know how to run this program')
GO TO 5
6500 CONTINUE
WRITE(ITTY,6501)
6501 FORMAT(' You are assumed to be using a slow hardcop',
1'y terminal which types directly onto'/' paper.')
GO TO 5
6600 CONTINUE
WRITE(ITTY,6601)
6601 FORMAT(' You are assumed to be using a fast video t',
1'erminal on which the last line'/' displayed appear',
2's at the bottom of the screen forcing the previous',
3' lines to'/' scroll upward.')
GO TO 5
6700 CONTINUE
WRITE(ITTY,6701)
6701 FORMAT(' You are assumed to be using a video termin',
1'al on which this program can erase the'/' screen w',
2'hen the screen fills.')
GO TO 5
6800 CONTINUE
WRITE(ITTY,6801)
6801 FORMAT(' If this assumption about the type of termi',
1'nal which you are using is wrong, then'/' you shou',
2'ld select the proper type of terminal by typing on',
3'e of the following'/' instead of YES or NO. You w',
4'ill again be asked whether you want instructions.'//
5' SLOW if you are using a hardcopy terminal whi',
6'ch types directly onto paper.'/' FAST if you a',
7're using a video terminal on which the last line d',
8'isplayed'/10X,'appears at the bottom of the screen',
9' forcing the previous lines to')
WRITE(ITTY,6802)
6802 FORMAT(10X,'scroll upward.'/' PAGING if you are u',
1'sing a video terminal on which this program can er',
2'ase the'/10X,'screen when the screen fills.')
C
C VARIOUS SHORT HELP MESSAGES
GO TO 5
4600 CONTINUE
WRITE(ITTY,4601)
4601 FORMAT(' Type one of the following'/' the number wh',
1'ich identifies the resume which is to be edited'/
2' -1 to exit'/' -2 to select a resume by the passwo',
3'rd chosen by the student'/' or merely press the RE',
4'TURN key to select another class.')
GO TO 5
4700 CONTINUE
WRITE(ITTY,4701)
4701 FORMAT(' Type the name of the new section. This na',
1'me will darkened and appear to the'/' upper left o',
2'f the text in the section. The name will appear 1',
3' line above the'/' text if the first line in the s',
4'ection starts with a single asterisk. The name'/
5' will be capitalized only where you type capital l',
6'etters. Do not include either'/' circumflexes or ',
7'underscores.')
GO TO 5
4800 CONTINUE
WRITE(ITTY,4801)
4801 FORMAT(' Type one of the following commands:'/' YES',
1' if you want to edit this resume'/' NO if this is',
2' not the resume you mean to edit')
GO TO 5
4900 CONTINUE
WRITE(ITTY,4901)
4901 FORMAT(' The line number is the number which is dis',
1'played to the left of the line when'/' you issue a',
2' DRAFT command. If you do not know the line numbe',
3'r, merely press the'/' return key here, then type ',
4'DRAFT in response to the "WHAT NEXT?" question. I',
5'f'/' the DRAFT command does not show the line you ',
6'want, then type the ALL command so'/' that the DRA',
7'FT command will show all sections.')
GO TO 5
5000 CONTINUE
WRITE(ITTY,5001)
5001 FORMAT(' Type one of the following commands:'/' YES',
1' if this is the correct line'/' NO if you typed t',
2'he wrong line number')
GO TO 5
5100 CONTINUE
WRITE(ITTY,5101)
5101 FORMAT(' Type one of the following commands:'/' YES',
1' if you want to cancel the current contents of you',
2'r resume'/' NO if you got to this question by acc',
3'ident')
GO TO 5
7200 CONTINUE
WRITE(ITTY,7201)
7201 FORMAT(' Type one of the following commands:'/' YES',
1' if you want to cancel all the changes you have ma',
2'de to this resume'/' NO if you got to this questi',
3'on by accident')
GO TO 5
5200 CONTINUE
WRITE(ITTY,5201)
5201 FORMAT(' Type one of the following commands:'/' YES',
1' if you do not want to add more lines to this sect',
2'ion'/' NO if you got to this question by accident')
GO TO 5
5300 CONTINUE
WRITE(ITTY,5301)
5301 FORMAT(' Type one of the following commands:'/' YES',
1' if you do not want to make any more changes ever'/
2' NO if you got to this question by accident')
GO TO 5
5400 CONTINUE
WRITE(ITTY,5401)
5401 FORMAT(' Type one of the following commands:'/' YES',
1' if you want to type resume on Diablo or list on p',
2'rinter'/' NO if you do not want a copy of your re',
3'sume')
GO TO 5
5500 CONTINUE
WRITE(ITTY,5501)
5501 FORMAT(' Type one of the following commands:'/' Yes',
1' if you really mean to create a new section by spl',
2'itting off the lower'/5X,'portion of an existing s',
3'ection.'/' NO if you want to select some other op',
4'tion instead')
GO TO 5
5600 CONTINUE
WRITE(ITTY,5601)
5601 FORMAT(' Type one of the following commands:'/' YES',
1' if you really mean to remove the ruling and secti',
2'on name at the start of'/5X,'this section so that ',
3'this section is merged with the preceding section'/
4' NO if you want to select some other option inste',
5'ad')
GO TO 5
5700 CONTINUE
WRITE(ITTY,5701)
5701 FORMAT(' Identify the group of students for whom re',
1'sumes are to be modified by typing the'/' right 2 ',
2'digits of the year in which these students are exp',
3'ected to graduate.'/' You would type 84 for studen',
4'ts in the graduating class of 1984.')
C
C USER SELECTED PASSWORD
GO TO 5
5800 CONTINUE
WRITE(ITTY,5801)
5801 FORMAT(' If this is the first time that you have us',
1'ed this program, then you should type'/' a word ',
2'or a short phrase which you do not believe can be ',
3'guessed by anyone else'/' who will be running this',
4' program. This word or phrase will be used to p',
5'revent'/' anyone else gaining access to your re',
6'sume through this program. This word or'/' phrase',
7' is not related to and does not depend upon the pa',
8'ssword through which you')
WRITE(ITTY,5802)
5802 FORMAT(' may have gained access to the account fr',
1'om which you are running this program.'/' The word',
2' or the words of a phrase must be formed from the ',
3'alphabetic letters A'/' through Z and the di',
4'gits 0 through 9. No other characters are allowed',
5'. The'/' word or phrase, counting the separations',
6' between the words of a phrase as 1'/' charac',
7'ter each, can contain up to 20 characters.'//' If ',
8'you have used this program before, and merely wish',
9' to review or modify your')
WRITE(ITTY,5803)
5803 FORMAT(' resume, then you must type the word or t',
1'he phrase which you specified when you'/' first ra',
2'n this program, but you do not need to match the c',
3'ases of any of the'/' alphabetic letters A ',
4'through Z in the word or phrase. You can type c',
5'apital'/' alphabetic letters where you originally ',
6'specified lower case letters, and vice'/' versa.',
73X,'You will have to contact the RESUME program a',
8'dministrator if you have'/' forgotten your passwor',
9'd.')
GO TO 5
6900 CONTINUE
WRITE(ITTY,6901)
6901 FORMAT(' Through an administrative error, the numbe',
1'r which you have been assigned has'/' also been as',
2'signed to someone else. Please contact the RESUME',
3' program'/' administrator to have this problem cor',
4'rected. You cannot run this program until'/' then',
5'.')
GO TO 5
5900 CONTINUE
WRITE(ITTY,5901)
5901 FORMAT(' The password which you have specified cann',
1'ot be used because it is'/' computationally simila',
2'r to a password already in use. This does not mea',
3'n that'/' these passwords are visually similar.'/
4' Please select another password.')
GO TO 5
7300 CONTINUE
WRITE(ITTY,7301)
7301 FORMAT(' Your password can be 1 or more words and u',
1'p to 20 letters and digits. If you'/' have not us',
2'ed this program before, select a password unlikely',
3' to be chosen by'/' others. If you started your r',
4'esume earlier, type the password you chose then.'//
5' If this is the first time you have used this prog',
6'ram, but this program says that'/' it is continuin',
7'g a resume begun previously, then please type EXIT',
8' when this'/' program asks "WHAT NEXT?" and run th',
9'is program again to select another password.')
GO TO 5
6000 CONTINUE
WRITE(ITTY,6001)
6001 FORMAT(' You will now be asked what you want the pr',
1'ogram to do. You are asked this each'/' time th',
2'e program completes what you last asked it to d',
3'o. If you do not know'/' what options are availab',
4'le, then you should press the ? key and the RETURN',
5' key.'//' You will probably want to start by speci',
6'fying some of the text which is to'/' appear',
7' in the resume. To do so, you respond to the',
8' "What next?" request by')
WRITE(ITTY,6002)
6002 FORMAT(' typing the word CREATE. You will then be ',
1'asked to specify the name of the'/' section.',
23X,'A typical section name would be EDUCATION or WO',
3'RK EXPERIENCE, but you'/' can choose any you want.',
4' Use capital letters only where you want th',
5'em to'/' appear. The section name will appear at',
6' the upper left corner of the section in'/' dark l',
7'ettering and will also be the name by which you su',
8'bsequently refer to the'/' section if you want to',
9' modify the name or contents of the section.'/)
WRITE(ITTY,6003)
6003 FORMAT(' After you have selected the CREATE option ',
1'and named the section, the program'/' will di',
2'splay a ? to indicate that you should type a line ',
3'of text which is to be'/' inserted into the sectio',
4'n. If you do not know how the program expects y',
5'ou to'/' indicate sub-section names, or the sta',
6'rts of lines which are not to be wrapped'/' around',
7', or words which are to be either darkened or unde',
8'rlined, then you should')
WRITE(ITTY,6004)
6004 FORMAT(' here also press the ? key and the RETURN',
1' key. The program will accept as many'/' lines as',
2' you want to place into the section. When you ha',
3've finished entering'/' text into the section',
4', merely press the RETURN key again without having',
5' typed'/' anything else before it to return to the',
6' "What next?" 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(' Type one of the following commands:'/' YES',
1' if you specified the correct password and you rea',
2'lly do want to start a new'/5X,'resume'/' NO if y',
3'ou started your resume earlier but you specified t',
4'he wrong password now')
GO TO 5
6200 CONTINUE
WRITE(ITTY,6201)
6201 FORMAT(' Type the number of the class containing th',
1'e students whose resumes are to be'/' edited'/' or',
2' type -1 to exit.')
GO TO 5
6300 CONTINUE
WRITE(ITTY,6301)
6301 FORMAT(' Type one of the following commands:'/' ATT',
1'ACHED If the text which has just been found and t',
2'he text which is to be'/11X,'inserted are to be at',
3'tached together rather than separated by a space.'/
4' SEPARATED If the text which has just been found a',
5'nd the text which is to be'/11X,'inserted are to b',
6'e separated by a space rather than attached togeth',
7'er.')
GO TO 5
C
C RETURN TO CALLING PROGRAM
5 WRITE(ITTY,3)
6 RETURN
END