Trailing-Edge
-
PDP-10 Archives
-
decuslib10-13
-
rehlp5.for
There are 3 other files named rehlp5.for in the archive. Click here to see a list.
SUBROUTINE REHELP(ITTY)
C RENBR(REHLP5/PDP10 TYPE INSTRUCTIONS)
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
WRITE(ITTY,1)
1 FORMAT(' This program renumbers and/or lists FORTRA',
1'N programs. Commands typed by user'/' consist ',
2' of name of output renumbered file and/or name o',
3'f output listing file,'/' then = and list of input',
4' files using 80 characters or less per line. & ',
5' or ,'/' must terminate line if next line cont',
6'inues command. Command can be read from'/' file i',
7'f name of file is typed with @. Extensions .NEW, ',
8'.LPT, .FOR and .RNB are')
WRITE(ITTY,2)
2 FORMAT(' defaults for renumbering, listing, inp',
1'ut and command files. File names can'/' include ',
2'device and path to 1 SFD level. If 2 output nam',
3'es are given, comma'/' should separate these a',
4'nd switch with at least 1 must imply use. Switche',
5's have'/' form /letter:number:number where numbers',
6' are optional. Title for each page can'/' be sp',
7'ecified between apostrophes and implies that assoc',
8'iated name is of listing'/' file.'//' Following sw',
9'itches are recognized.'/)
WRITE(ITTY,3)
3 FORMAT(' A followed by number of spaces to add left',
1' of statements in IF THEN block or in'/3X,'DO loo',
2'p. /A or /A:0 equals /A:1'/' B followed by smalle',
3'st statement number in renumbered output'/' C colu',
4'mn formatted renumbered output with statement numb',
5'ers ending in column 5.'/3X,'Statement text will ',
6'start in column 7'/' E followed by number of extra',
7' tables of contents. /E or /E:0 equals /E:1'/' F ',
8'listing device has form feed. Pages in listing w',
9'ill be separated by form')
WRITE(ITTY,4)
4 FORMAT(3X,'feeds if output is to LPT device. ',
1' /F can be followed by number of lines'/3X,'printa',
2'ble per page. /F or /F:0 equals /F:60'/' G follow',
3'ed by number of blank lines to be listed between F',
4'ORTRAN statements. No'/3X,'extra blank lines are ',
5'listed between comment lines. /G or /G:0 equals /',
6'G:1'/' I followed by increment between stateme',
7'nt numbers in renumbered output.'/3X,'Negativ',
8'e increment, such as specified by /I:-1, gives s',
9'mallest number at end')
WRITE(ITTY,5)
5 FORMAT(3X,'of program. Smallest number will be abs',
1'olute value of increment unless /B'/3X,'specif',
2'ies non-zero smallest number. /I or /I:0 equals /',
3'I:1'/' J followed by number of blank lines to be a',
4't top of 1st, at bottom of 2nd and'/3X,'top of ',
5'3rd pages, etc. This can be followed by number of',
6' blank lines to be at'/3X,'bottom of 1st, at top o',
7'f 2nd and bottom of 3rd pages, etc. These blank ',
8'lines'/3X,'are inserted to allow top binding ',
9' of unburst fanfold paper and must be')
WRITE(ITTY,6)
6 FORMAT(3X,'included in printing line limit specifie',
1'd by /F or /L'/' K long lines are to be kept intac',
2't in listing'/' L pages in listing will be separat',
3'ed by counted line feeds. /L can be followed'/3X,
4'by number of lines printable per page. This can',
5' be followed by total number'/3X,'of lines per pag',
6'e. /S:0 is assumed if /S has not already been se',
7'lected. /L'/3X,'or /L:0 equals /L:60:66'/' M if ',
8'issued not followed by a number, old statement num',
9'bers are maintained. If')
WRITE(ITTY,7)
7 FORMAT(3X,'M is followed by 2 numbers, then ',
1'these are lowest and highest statement'/3X,'number',
2's to be modified'/' P followed by first page numbe',
3'r in listing. /P or /P:0 equals /P:1'/' S followe',
4'd by number of characters printable beyond normal ',
5'right margin. Excess'/3X,'characters are right ',
6' justified on following line. /S or /S:0 giv',
7'es 70'/3X,'character lines. /S:13 equals /K'/' T ',
8'tab formatted renumbered output. Tab character wi',
9'll precede statement text')
WRITE(ITTY,8)
8 FORMAT(' U column formatted renumbered output with ',
1'statement numbers starting in column'/3X,'1. St',
2'atement text will start in column 7'/' V listing i',
3's to be viewed on this terminal'/' W followed by w',
4'idth of tab stop columns to be used when conve',
5'rting tabs to'/3X,'spaces in comment lines. ',
6' Tabs in comment lines are not converted in'/
73X,'renumbered output unless /W is typed. /W or /W',
8':0 equals /W:8'//' Listing file is identified by /',
9'E, /F, /G, /J, /K, /L, /P, /S, /V or ''. Default')
WRITE(ITTY,9)
9 FORMAT(' options are initial page number 1, f',
1'orm feeds, intact long lines, single'/' spacing,',
2' and 1 table of contents.'//' Renumbered output is',
3' identified by /B, /C, /I, /M, /T or /U. Defaul',
4't options'/' are smallest statement number 1, inc',
5'rement 1 and column format.'/)
RETURN
END