Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-09 - decus/20-34/rehlp4.for
There are 3 other files named rehlp4.for in the archive. Click here to see a list.
      SUBROUTINE REHELP(ITTY)
C     RENBR(REHLP4/VAX11 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  specification  of  output  renumbered  fil,
     325He and/or specification of/20H output listing file,
     449H, then = and list of input files using 80 charact,
     512Hers or  less/33H per  line.   & or , must termina,
     648Hte line if next line continues command.  Command/
     749H can be read from file if specification of file i,
     832Hs typed with @.  Filetypes .FOR,)
      WRITE(ITTY,2)
    2 FORMAT(42H .LPT,  .FOR  and  .RNB  are defaults for ,
     139Hrenumbering, listing, input and command/7H files.,
     249H  File specifications  can  include  node,  devic,
     325He,  directory,  filename,/20H filetype  and  vers,
     449Hion.   If  2  output  specifications  are given, ,
     512Hcomma should/33H separate these and switch with a,
     648Ht least 1 must imply use.   Switches  have  form/
     749H /letter:number:number  where  numbers  are optio,
     832Hnal.  Title for each page can be)
      WRITE(ITTY,3)
    3 FORMAT(42H specified between apostrophes and implies,
     139H that associated  specification  is  of/7H listin,
     27Hg file.//35H Following switches are recognized.//
     349H A followed by number of spaces to add left of st,
     432Hatements in IF THEN block or  in/3X,10HDO loop.  ,
     522H/A or /A:0 equals /A:1/23H B followed by smallest,
     638H statement number in renumbered output/8H C colum,
     749Hn formatted renumbered output with statement numb,
     824Hers ending in column  5./3X,18HStatement text wil,
     919Hl start in column 7)
      WRITE(ITTY,4)
    4 FORMAT(42H E followed by number of extra tables of c,
     132Hontents.  /E or /E:0 equals /E:1/13H F listing de,
     249Hvice has form feed.  Pages in listing  will  be  ,
     319Hseparated  by  form/3X,23Hfeeds  if  output  is  ,
     449Hto  LPT  device.  /F can be followed by number of,
     56H lines/3X,37Hprintable per page.  /F or /F:0 equal,
     67Hs /F:60/39H G followed by number of blank lines to,
     742H be listed between FORTRAN statements.  No/3X,1He,
     849Hxtra blank lines are listed between comment lines,
     925H.  /G or /G:0 equals /G:1)
      WRITE(ITTY,5)
    5 FORMAT(42H I followed  by  increment  between  state,
     139Hment  numbers  in  renumbered   output./3X,4HNega,
     249Htive  increment,  such as specified by /I:-1, giv,
     325Hes smallest number at end/3X,17Hof program.  Smal,
     449Hlest number will be absolute value  of  increment,
     512H  unless  /B/3X,30Hspecifies non-zero smallest nu,
     629Hmber.  /I or /I:0 equals /I:1/16H J followed by n,
     749Humber of blank lines to be at top of 1st, at bott,
     816Hom  of  2nd  and)
      WRITE(ITTY,6)
    6 FORMAT(3X,39Htop of 3rd pages, etc.  This can be fol,
     139Hlowed by number of blank lines to be at/3X,4Hbott,
     249Hom of 1st, at top of 2nd and bottom of 3rd pages,,
     325H etc.  These blank  lines/3X,17Hare  inserted  to,
     449H  allow  top  binding  of  unburst  fanfold paper,
     512H and must be/3X,30Hincluded in printing line limi,
     623Ht specified by /F or /L/22H K long lines are to b,
     724He kept intact in listing/21H L pages in listing w,
     849Hill be separated by counted line feeds.  /L can b,
     911He  followed)
      WRITE(ITTY,7)
    7 FORMAT(3X,39Hby  number  of lines printable per page,
     139H.  This can be followed by total number/3X,4Hof l,
     249Hines per page.  /S:0 is assumed if /S has not alr,
     325Heady been  selected.   /L/3X,17Hor /L:0 equals /L,
     46H:60:66/40H M if issued not followed by a number, o,
     541Hld statement numbers are maintained.   If/3X,2HM ,
     649H is  followed  by  2  numbers,  then  these are l,
     727Howest and highest statement/3X,15Hnumbers to be m,
     87Hodified/39H P followed by first page number in lis,
     929Hting.  /P or /P:0 equals /P:1)
      WRITE(ITTY,8)
    8 FORMAT(42H S followed by number of characters printa,
     139Hble beyond normal right margin.  Excess/3X,4Hchar,
     249Hacters  are  right  justified  on  following  lin,
     325He.   /S  or /S:0 gives 70/3X,17Hcharacter lines. ,
     416H /S:13 equals /K/29H T tab formatted renumbered o,
     549Hutput.  Tab character will precede statement text/
     649H U column formatted renumbered output with statem,
     732Hent numbers starting  in  column/3X,10H1.  Statem,
     831Hent text will start in column 7/14H V listing is ,
     929Hto be viewed on this terminal)
      WRITE(ITTY,9)
    9 FORMAT(42H W followed by width of tab stop columns t,
     139Ho  be  used  when  converting  tabs  to/3X,4Hspac,
     249Hes  in  comment  lines.   Tabs  in  comment  line,
     325Hs  are  not  converted in/3X,17Hrenumbered output,
     444H unless /W is typed.  /W or /W:0 equals /W:8//1H ,
     549HListing file is identified by /E, /F, /G, /J, /K,,
     631H /L, /P, /S, /V or '.   Default/14H options  are ,
     749H initial  page  number  1,  form  feeds,  intact ,
     818Hlong lines, single/27H spacing, and 1 table of co,
     97Hntents./)
      WRITE(ITTY,10)
   10 FORMAT(42H Renumbered output is identified by /B, /C,
     139H, /I, /M, /T or  /U.   Default  options/7H are sm,
     249Hallest statement number 1, increment 1 and column,
     38H format./)
      RETURN
      END