Trailing-Edge
-
PDP-10 Archives
-
decuslib10-13
-
rehlp1.for
There are 3 other files named rehlp1.for in the archive. Click here to see a list.
SUBROUTINE REHELP(ITTY)
C RENBR(REHLP1/PDP10 TYPE INSTRUCTIONS)
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
WRITE(ITTY,1)
1 FORMAT(42H This program renumbers and/or lists FORTR,
139HAN programs. Commands typed by user/7H consis,
249Ht of name of output renumbered file and/or nam,
325He of output listing file,/20H then = and list of ,
449Hinput files using 80 characters or less per line,
512H. & or ,/33H must terminate line if next l,
648Hine continues command. Command can be read from/
749H file if name of file is typed with @. Extension,
832Hs .NEW, .LPT, .FOR and .RNB are)
WRITE(ITTY,2)
2 FORMAT(42H defaults for renumbering, listing, in,
139Hput and command files. File names can/7H includ,
249He device and path to 1 SFD level. If 2 output ,
325Hnames are given, comma/20H should separate th,
449Hese and switch with at least 1 must imply use. S,
512Hwitches have/33H form /letter:number:number where,
648H numbers are optional. Title for each page can/
749H be specified between apostrophes and implies th,
832Hat associated name is of listing/6H file.//4H Fol,
931Hlowing switches are recognized./)
WRITE(ITTY,3)
3 FORMAT(42H A followed by number of spaces to add lef,
139Ht of statements in IF THEN block or in/3X,4HDO l,
228Hoop. /A or /A:0 equals /A:1/17H B followed by sm,
344Hallest statement number in renumbered output/2H C,
449H column formatted renumbered output with statemen,
530Ht numbers ending in column 5./3X,12HStatement te,
625Hxt will start in column 7/20H E followed by numbe,
749Hr of extra tables of contents. /E or /E:0 equals,
85H /E:1/41H F listing device has form feed. Pages i,
940Hn listing will be separated by form)
WRITE(ITTY,4)
4 FORMAT(3X,39Hfeeds if output is to LPT device.,
139H /F can be followed by number of lines/3X,4Hprin,
240Htable per page. /F or /F:0 equals /F:60/6H G fol,
349Hlowed by number of blank lines to be listed betwe,
426Hen FORTRAN statements. No/3X,16Hextra blank line,
549Hs are listed between comment lines. /G or /G:0 e,
610Hquals /G:1/35H I followed by increment between,
746H statement numbers in renumbered output./3X,
849HNegative increment, such as specified by /I:-1,,
929H gives smallest number at end)
WRITE(ITTY,5)
5 FORMAT(3X,39Hof program. Smallest number will be ab,
139Hsolute value of increment unless /B/3X,4Hspec,
249Hifies non-zero smallest number. /I or /I:0 equal,
36Hs /I:1/40H J followed by number of blank lines to ,
441Hbe at top of 1st, at bottom of 2nd and/3X,2Hto,
549Hp of 3rd pages, etc. This can be followed by num,
627Hber of blank lines to be at/3X,15Hbottom of 1st, ,
749Hat top of 2nd and bottom of 3rd pages, etc. Thes,
814He blank lines)
WRITE(ITTY,6)
6 FORMAT(3X,39Hare inserted to allow top binding ,
139H of unburst fanfold paper and must be/3X,4Hincl,
249Huded in printing line limit specified by /F or /L/
346H K long lines are to be kept intact in listing/
449H L pages in listing will be separated by counted ,
532Hline feeds. /L can be followed/3X,10Hby number,
649H of lines printable per page. This can be follo,
719Hwed by total number/3X,23Hof lines per page. /S:,
849H0 is assumed if /S has not already been selected,
96H. /L/3X,23Hor /L:0 equals /L:60:66)
WRITE(ITTY,7)
7 FORMAT(42H M if issued not followed by a number, old,
139H statement numbers are maintained. If/3X,4HM i,
249Hs followed by 2 numbers, then these are low,
325Hest and highest statement/3X,17Hnumbers to be mod,
45Hified/41H P followed by first page number in listi,
527Hng. /P or /P:0 equals /P:1/18H S followed by num,
649Hber of characters printable beyond normal right m,
714Hargin. Excess/3X,28Hcharacters are right just,
849Hified on following line. /S or /S:0 gives 7,
91H0/3X,33Hcharacter lines. /S:13 equals /K)
WRITE(ITTY,8)
8 FORMAT(42H T tab formatted renumbered output. Tab c,
136Hharacter will precede statement text/9H U column,
249H formatted renumbered output with statement numbe,
323Hrs starting in column/3X,19H1. Statement text ,
422Hwill start in column 7/23H V listing is to be vie,
520Hwed on this terminal/25H W followed by width of t,
649Hab stop columns to be used when converting t,
77Habs to/3X,36Hspaces in comment lines. Tabs ,
842Hin comment lines are not converted in)
WRITE(ITTY,9)
9 FORMAT(3X,39Hrenumbered output unless /W is typed. ,
122H/W or /W:0 equals /W:8//22H Listing file is ident,
249Hified by /E, /F, /G, /J, /K, /L, /P, /S, /V or '.,
33X,7HDefault/36H options are initial page number,
445H 1, form feeds, intact long lines, single/1H ,
533Hspacing, and 1 table of contents.//11H Renumbered,
649H output is identified by /B, /C, /I, /M, /T or /,
721HU. Default options/24H are smallest statement ,
840Hnumber 1, increment 1 and column format./)
RETURN
END