Trailing-Edge
-
PDP-10 Archives
-
decuslib20-09
-
decus/20-34/rehlp6.for
There are 3 other files named rehlp6.for in the archive. Click here to see a list.
SUBROUTINE REHELP(ITTY)
C RENBR(REHLP6/DIALOG OF SWITCHES THEN NAMES 1 PER LINE
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
WRITE(ITTY,1)
1 FORMAT(' This program renumbers and/or lists FORTRA',
1'N programs. The user will first be'/' asked t',
2'o specify whatever options are desired. If the us',
3'er specifies an option'/' which logically applies ',
4' only to a listing, then a listing is gene',
5'rated.'/' Likewise, if the user specifies an ',
6'option which logically applies only when'/' renumb',
7'ering, then the FORTRAN text will be renumbered. ',
8' If both listing and')
WRITE(ITTY,2)
2 FORMAT(' renumbering are requested at the same ',
1'time, then it will be the FORTRAN text'/' after re',
2'numbering which is listed. All of the options sp',
3'ecified by the user'/' must be typed on a si',
4'ngle line. The user does not need to specify any ',
5'option'/' for which the standard value is acceptab',
6'le, with the exception, of course, that'/' enough',
7' options must be specified to select whether list',
8'ing or renumbering is to'/' be performed.'/)
WRITE(ITTY,3)
3 FORMAT(' Each option is specified by typing a lette',
1'r or a letter with a following number'/' or numb',
2'ers. These letter and number combinations can hav',
3'e the forms /letter or'/' /letter:number or /lette',
4'r:number:number where the initial slash and the ',
5'colons'/' are optional. Thus A5 and L60 66 ',
6'are equivalent to /A:5 and /L:60:66'/' respec',
7'tively.'//' If a listing is requested, then the us',
8'er will be asked for a title to be placed')
WRITE(ITTY,4)
4 FORMAT(' at the top of each page, and for the name ',
1'of the file to which the listing is to'/' be writt',
2'en. If renumbering is requested, then the user wi',
3'll be asked for the'/' name of the file into',
4' which the renumbered text is to be copied. After',
5' these'/' resulting files have been specified, the',
6' user will be asked to specify the name'/' of the',
7' first or only file to be processed.'//' The user ',
8'will then be asked repeatedly to specify the next ',
9'file to be processed.')
WRITE(ITTY,5)
5 FORMAT(' If the user specifies a second or a su',
1'bsequent file, then the text resulting'/' from the',
2' processing of these additional files will be a',
3'ppended to the same'/' listing or renumbered fi',
4'les as the first. Usually, only a single file sho',
5'uld be'/' processed if the file is being renumbere',
6'd. This single file would contain as'/' many r',
7'outines as are convenient. However, several relat',
8'ed files might be listed')
WRITE(ITTY,6)
6 FORMAT(' at the same time so that they appear toget',
1'her in a single listing with a single'/' table o',
2'f contents. Once all of the files which are to be',
3' processed at the same'/' time have been specified',
4', the user should merely press the RETURN key when',
5' asked'/' to specify the next file. The user w',
6'ill then be asked to specify the options'/' for th',
7'e next file or files which are to be processed ',
8' separately from those')
WRITE(ITTY,7)
7 FORMAT(' already processed. If no more files are ',
1'to be processed at this time, then the'/' user sho',
2'uld merely press the RETURN key again to exit from',
3' the program.'//' The letters which can be used to',
4' select the various options are listed below.'//' ',
5'A followed by number of spaces to add left of stat',
6'ements in IF THEN block or in'/3X,'DO loop. /A o',
7'r /A:0 equals /A:1'/' B followed by smallest state',
8'ment number in renumbered output')
WRITE(ITTY,8)
8 FORMAT(' C column formatted renumbered output with ',
1'statement numbers ending in column 5.'/3X,'Statem',
2'ent text will start in column 7'/' E followed by n',
3'umber of extra tables of contents. /E or /E:0 equ',
4'als /E:1'/' F listing device has form feed. Pages',
5' in listing will be separated by form'/3X,'fe',
6'eds if output is to LPT device. /F can be f',
7'ollowed by number of lines'/3X,'printable per page',
8'. /F or /F:0 equals /F:60')
WRITE(ITTY,9)
9 FORMAT(' G followed by number of blank lines to be ',
1'listed between FORTRAN statements. No'/3X,'extra ',
2'blank lines are listed between comment lines. /G ',
3'or /G:0 equals /G:1'/' I followed by increment ',
4'between statement numbers in renumbered outp',
5'ut.'/3X,'Negative increment, such as specified b',
6'y /I:-1, gives smallest number at end'/3X,'of prog',
7'ram. Smallest number will be absolute value of ',
8'increment unless /B'/3X,'specifies non-zero smal',
9'lest number. /I or /I:0 equals /I:1')
WRITE(ITTY,10)
10 FORMAT(' J followed by number of blank lines to be ',
1'at top of 1st, at bottom of 2nd and'/3X,'top of',
2' 3rd pages, etc. This can be followed by number o',
3'f blank lines to be at'/3X,'bottom of 1st, at top ',
4'of 2nd and bottom of 3rd pages, etc. These blank ',
5' lines'/3X,'are inserted to allow top binding',
6' of unburst fanfold paper and must be'/3X,'incl',
7'uded in printing line limit specified by /F or /L'/
8' K long lines are to be kept intact in listing')
WRITE(ITTY,11)
11 FORMAT(' L pages in listing will be separated by co',
1'unted line feeds. /L can be followed'/3X,'by nu',
2'mber of lines printable per page. This can be fo',
3'llowed by total number'/3X,'of lines per page. /S',
4':0 is assumed if /S has not already been selected',
5'. /L'/3X,'or /L:0 equals /L:60:66'/' M if issued',
6' not followed by a number, old statement numbers a',
7're maintained. If'/3X,'M is followed by 2 n',
8'umbers, then these are lowest and highest statem',
9'ent'/3X,'numbers to be modified')
WRITE(ITTY,12)
12 FORMAT(' P followed by first page number in listing',
1'. /P or /P:0 equals /P:1'/' S followed by number ',
2'of characters printable beyond normal right margin',
3'. Excess'/3X,'characters are right justified ',
4'on following line. /S or /S:0 gives 70'/3X,'c',
5'haracter lines. /S:13 equals /K'/' T tab formatte',
6'd renumbered output. Tab character will precede s',
7'tatement text'/' U column formatted renumbered out',
8'put with statement numbers starting in column'/3X,
9'1. Statement text will start in column 7')
WRITE(ITTY,13)
13 FORMAT(' V listing is to be viewed on this terminal',
1'. Only 1 input file can be specified'/' W followe',
2'd by width of tab stop columns to be used when ',
3' converting tabs to'/3X,'spaces in comment li',
4'nes. Tabs in comment lines are not convert',
5'ed in'/3X,'renumbered output unless /W is typed. ',
6'/W or /W:0 equals /W:8'//' Listing is requested by',
7' /E, /F, /G, /J, /K, /L, /P, /S and /V. The ',
8'default'/' options are initial page number 1,',
9' form feeds, intact long lines, single')
WRITE(ITTY,14)
14 FORMAT(' spacing, and 1 table of contents.'//' Renu',
1'mbered is requested by /B, /C, /I, /M, /T and /U. ',
2' The default options are'/' smallest statement n',
3'umber 1, increment 1 and column format.'/)
RETURN
END