Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-09 - decus/20-34/rehlp2.for
There are 3 other files named rehlp2.for in the archive. Click here to see a list.
      SUBROUTINE REHELP(ITTY)
C     RENBR(REHLP2/DIALOG OF SWITCHES THEN NAMES 1 PER LINE
C
C     DONALD BARTH, HARVARD BUSINESS SCHOOL
C
      WRITE(ITTY,1)
    1 FORMAT(42H This program renumbers and/or lists FORTR,
     139HAN programs.  The user  will  first  be/7H asked ,
     249H to specify whatever options are desired.  If the,
     325H user specifies an option/20H which logically app,
     449Hlies  only  to  a  listing,  then  a  listing  is,
     512H  generated./33H Likewise,  if  the  user  specif,
     648Hies  an option which logically applies only when/
     749H renumbering, then the FORTRAN text will be  renu,
     832Hmbered.   If  both  listing  and)
      WRITE(ITTY,2)
    2 FORMAT(42H renumbering  are  requested  at  the same,
     139H time, then it will be the FORTRAN text/7H after ,
     249Hrenumbering which is listed.  All of the options ,
     325H specified  by  the  user/20H must  be  typed  on,
     449H a single line.  The user does not need to specif,
     512Hy any option/33H for which the standard value is ,
     648Hacceptable, with the exception, of course,  that/
     749H enough  options must be specified to select whet,
     832Hher listing or renumbering is to/13H be performed,
     91H./)
      WRITE(ITTY,3)
    3 FORMAT(42H Each option is specified by typing a lett,
     139Her or a letter with a following  number/7H or  nu,
     249Hmbers.  These letter and number combinations can ,
     325Hhave the forms /letter or/20H /letter:number or /,
     449Hletter:number:number where the initial slash and ,
     512H the  colons/33H are  optional.   Thus  A5  and  ,
     648HL60 66  are  equivalent  to  /A:5  and  /L:60:66/
     714H respectively.//30H If a listing is requested, th,
     849Hen the user will be asked for a title to be  plac,
     92Hed)
      WRITE(ITTY,4)
    4 FORMAT(42H at the top of each page, and for the name,
     139H of the file to which the listing is to/7H be wri,
     249Htten.  If renumbering is requested, then the user,
     325H will be  asked  for  the/20H name  of  the  file,
     449H into which the renumbered text is to be copied. ,
     512H After these/33H resulting files have been specif,
     648Hied, the user will be asked to specify the  name/
     743H of the first or only file to be processed.//2H T,
     849Hhe user will then be asked repeatedly to specify ,
     930Hthe next file to be processed.)
      WRITE(ITTY,5)
    5 FORMAT(42H If  the  user  specifies  a second or a s,
     139Hubsequent file, then the text resulting/7H from t,
     249Hhe processing of these additional files  will  be,
     325H  appended  to  the  same/20H listing or renumber,
     449Hed files as the first.  Usually, only a single fi,
     512Hle should be/33H processed if the file is being r,
     648Henumbered.  This single file  would  contain  as/
     749H many routines as are convenient.  However, sever,
     832Hal related files might be listed)
      WRITE(ITTY,6)
    6 FORMAT(42H at the same time so that they appear toge,
     139Hther in a single listing with a  single/7H table ,
     249H of contents.  Once all of the files which are to,
     325H be processed at the same/20H time have been spec,
     449Hified, the user should merely press the RETURN ke,
     512Hy when asked/33H to  specify  the  next file.  Th,
     648He user will then be asked to specify the options/
     749H for the next file or files which are  to  be  pr,
     832Hocessed  separately  from  those)
      WRITE(ITTY,7)
    7 FORMAT(42H already  processed.  If no more files are,
     139H to be processed at this time, then the/7H user s,
     249Hhould merely press the RETURN key again to exit f,
     316Hrom the program.//28H The letters which can be us,
     449Hed to select the various options are listed below,
     51H.//44H A followed by number of spaces to add left ,
     637Hof statements in IF THEN block or  in/3X,6HDO loo,
     726Hp.  /A or /A:0 equals /A:1/19H B followed by smal,
     842Hlest statement number in renumbered output)
      WRITE(ITTY,8)
    8 FORMAT(42H C column formatted renumbered output with,
     139H statement numbers ending in column  5./3X,4HStat,
     233Hement text will start in column 7/12H E followed ,
     349Hby number of extra tables of contents.  /E or /E:,
     413H0 equals /E:1/32H F listing device has form feed.,
     549H  Pages in listing  will  be  separated  by  form/
     63X,46Hfeeds  if  output  is  to  LPT  device.  /F ca,
     732Hn be followed by number of lines/3X,10Hprintable ,
     834Hper page.  /F or /F:0 equals /F:60)
      WRITE(ITTY,9)
    9 FORMAT(42H G followed by number of blank lines to be,
     139H listed between FORTRAN statements.  No/3X,4Hextr,
     249Ha blank lines are listed between comment lines.  ,
     322H/G or /G:0 equals /G:1/23H I followed  by  increm,
     449Hent  between  statement  numbers  in  renumbered ,
     59H  output./3X,34HNegative  increment,  such as spec,
     644Hified by /I:-1, gives smallest number at end/3X,
     749Hof program.  Smallest number will be absolute val,
     829Hue  of  increment  unless  /B/3X,13Hspecifies non,
     946H-zero smallest number.  /I or /I:0 equals /I:1)
      WRITE(ITTY,10)
   10 FORMAT(42H J followed by number of blank lines to be,
     139H at top of 1st, at bottom  of  2nd  and/3X,4Htop ,
     249Hof 3rd pages, etc.  This can be followed by numbe,
     325Hr of blank lines to be at/3X,17Hbottom of 1st, at,
     449H top of 2nd and bottom of 3rd pages, etc.  These ,
     512Hblank  lines/3X,30Hare  inserted  to  allow  top ,
     648H binding  of  unburst  fanfold paper and must be/
     73X,46Hincluded in printing line limit specified by /,
     87HF or /L/39H K long lines are to be kept intact in ,
     97Hlisting)
      WRITE(ITTY,11)
   11 FORMAT(42H L pages in listing will be separated by c,
     139Hounted line feeds.  /L can be  followed/3X,4Hby  ,
     249Hnumber  of lines printable per page.  This can be,
     325H followed by total number/3X,17Hof lines per page,
     449H.  /S:0 is assumed if /S has not already been  se,
     512Hlected.   /L/3X,23Hor /L:0 equals /L:60:66/4H M i,
     649Hf issued not followed by a number, old statement ,
     728Hnumbers are maintained.   If/3X,14HM  is  followe,
     849Hd  by  2  numbers,  then  these are lowest and hi,
     915Hghest statement/3X,22Hnumbers to be modified)
      WRITE(ITTY,12)
   12 FORMAT(42H P followed by first page number in listin,
     126Hg.  /P or /P:0 equals /P:1/19H S followed by numb,
     249Her of characters printable beyond normal right ma,
     313Hrgin.  Excess/3X,29Hcharacters  are  right  justi,
     449Hfied  on  following  line.   /S  or /S:0 gives 70/
     53X,33Hcharacter lines.  /S:13 equals /K/9H T tab fo,
     649Hrmatted renumbered output.  Tab character will pr,
     720Hecede statement text/25H U column formatted renum,
     849Hbered output with statement numbers starting  in ,
     97H column)
      WRITE(ITTY,13)
   13 FORMAT(3X,39H1.  Statement text will start in column,
     12H 7/44H V listing is to be viewed on this terminal.,
     236H  Only 1 input file can be specified/9H W follow,
     349Hed by width of tab stop columns to  be  used  whe,
     423Hn  converting  tabs  to/3X,19Hspaces  in  comment,
     549H  lines.   Tabs  in  comment  lines  are  not  co,
     610Hnverted in/3X,32Hrenumbered output unless /W is t,
     729Hyped.  /W or /W:0 equals /W:8//15H Listing is req,
     849Huested by /E, /F, /G, /J, /K, /L, /P,  /S  and  /,
     917HV.   The  default)
      WRITE(ITTY,14)
   14 FORMAT(42H options  are  initial  page  number  1,  ,
     139Hform  feeds,  intact long lines, single/7H spacin,
     227Hg, and 1 table of contents.//17H Renumbered is re,
     349Hquested by /B, /C, /I, /M, /T and /U.  The defaul,
     415Ht  options  are/30H smallest statement number 1, ,
     530Hincrement 1 and column format./)
      RETURN
      END