Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0034/reusr3.for
There are 6 other files named reusr3.for in the archive. Click here to see a list.
SUBROUTINE REUSER
C RENBR(REUSR3/DIALOG OF FILE NAMES 1 PER LINE)
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
C THIS VERSION OF THE USER COMMAND DIALOG PROCESSOR
C FOR RENBR ASKS THE USER TO SUPPLY THE NAMES OF ONE OR
C BOTH OUTPUT FILES AND THE NAMES ONE OR MORE INPUT
C FILES. RENUMBERING IS PERFORMED IF, AND ONLY IF, THE
C USER SUPPLIES A NAME FOR THE RENUMBERED OUTPUT FILE.
C LISTING IS PERFORMED IF, AND ONLY IF, THE USER
C SUPPLIES A NAME FOR THE LISTING FILE. A SINGLE INPUT
C FILE CAN CONTAIN MANY PROGRAMS AND/OR ROUTINES, OR
C MERELY A PORTION OF A PROGRAM OR ROUTINE. ALL INPUT
C FILES ARE COPIED INTO EACH OF THE OUTPUT FILES.
C THE LIST OF INPUT FILES IS TERMINATED BY TYPING A
C BLANK INPUT FILE NAME. AFTER TYPING A BLANK INPUT
C FILE NAME, A NEW SET OF OUTPUT AND INPUT FILES CAN BE
C ESTABLISHED. PROCESSING IS TERMINATED BY TYPING
C BLANK NAMES FOR BOTH POSSIBLE OUTPUT FILES.
C
COMMON/RNBONE/I ,IALPHA,IBASE ,IBR ,IBREAK,
1IEND ,IENTER,IEOF ,IERR ,IFILL ,IFORM ,IHIHDO,
2IIN ,ILEVEL,ILPT ,INCR ,INCSAV,INDENT,INITOC,
3INRCPY,INRFND,INIOPR,IOUT ,IPAGE ,IPASS ,ISPACE,
4ISPLIT,ISPR ,ISTART,ISTN ,ITAB ,ITBL ,ITITLE,
5ITTY ,J ,JBGN ,JBREAK,JEND ,JEOF ,JFORM ,
6JIN ,JIN1 ,JLEVEL,JMPBGN,JMPEND,JOUT ,JPASS ,
7JSPLIT,JSTN ,JTAB ,JTTY ,K ,KLEVEL,KNDGRP,
8KNT ,MAXPRT,KNTONE,KNTPNT,KNTSPL,KNTTOC,KNTTWO,
9KOMENT,KOMKNT,KOMNUM,KONTRL,KOUNT ,KPAGE
COMMON/RNBTWO/MASTER,KPYEND,KSTN ,KTAB ,KUTNUM,
1KUTPNT,KUTSPL,L ,LCLNUM,LCLPNT,LCLSPL,LEFT ,
2LIKE ,LMTTOC,LOW1 ,LOW2 ,LOWDO ,LOWER ,
3LPTTTY,LRGSPL,LRGNUM,LRGPNT,LRGTOC,LSTKNT,LSTN ,
4LSTSTN,LTAB ,M ,MANY ,MAXEND,MAXLIN,MAXPNT,
5MAXSPL,MAXTOC,MID ,MOST ,MOVE ,MSTN ,MTAB ,
6N ,NCD ,NEED ,NEWNUM,NEWSTN,NONFOR,
7NSTN ,NUM ,LOWTOC,NXTLST,IPOINT,JPOINT,NXTEND,
8KEND ,NTAB ,IFREAR,KPOINT,KBGN ,LEND ,LNGNAM,
9LOWSHO,ININAM,JTBL ,NOWTOC,LPOINT,INIPRT,JOBNUM
COMMON/RNBTHR/MODBAS,MODINC,MODMAX,MODMIN,MODNEW,
1MODOLD,KMDMIN,KMDMAX,ITRACE,LNGCOM,LNGNXT,KPASS
COMMON/RNBFOU/INRSTR(21) ,JPNT (10) ,MCHOPR(50) ,
1 NNEW (1000),NOLD (1000),NOTOPR(50) ,NUMPNT(5000),
2 NUMPRS(515) ,NUMTOC(112) ,NUMTYP(7) ,LINREF(9)
COMMON/RNBFIV/LTRCCC,LTRCLN,LTREQL,LTREXC,LTRHHH,
1LTRLFT,LTRMNS,LTRPLS,LTRQOT,LTRRIT,LTRSEM,LTRSLA,
2LTRSPC,LTRTAB,LWRCCC,LWRHHH,LTRNOW,LTR1ST,LTR2ND,
3LTRREF,LTRDDD,LWRDDD,LTREEE,LWREEE,LTRDOT,LTRSTR
COMMON/RNBSIX/LTRABC(26) ,LTRBGN(5) ,LTRBIG(2211),
1 LTRDGT(10) ,LTREND(3) ,LTRFLG(7) ,LTRKEY(5) ,
2 LTROPR(50) ,LTRPRS(247) ,LTRSPL(2000),LTRTOC(168) ,
3 LTRTOP(117) ,LTRTTL(5) ,LTRTYP(55) ,LTRUSE(6) ,
4 LWRABC(26) ,LWRBGN(5) ,LWREND(3) ,LWRFLG(7) ,
5 LWRKEY(5) ,LWRPRS(247) ,LWRTTL(5) ,LTRNAM(10) ,
6 LTRSRT(26) ,LWRSRT(26) ,LTR120(120)
DOUBLE PRECISION FILSRC,FILRNB,FILLPT,FILSPC
DATA FILSPC/' '/
C
C DETERMINE IF THIS IS FIRST TIME THIS ROUTINE CALLED
JPASS=1
IF(MASTER.GT.1)GO TO 8
IPAGE=0
INCR=0
IF(MASTER.EQ.1)WRITE(ITTY,1)
1 FORMAT(14H RENBR (01/79)/1X)
C
C OPEN LISTING FILE
2 WRITE(ITTY,3)
3 FORMAT(' OUTPUT LISTING FILE: ',$)
READ(JTTY,11)FILLPT
IF(FILLPT.EQ.FILSPC)GO TO 4
IPAGE=1
OPEN(UNIT=ILPT,FILE=FILLPT,ACCESS='SEQOUT',
1DEVICE='LPT')
C
C OPEN RENUMBERED OUTPUT FILE
4 WRITE(ITTY,5)
5 FORMAT(' OUTPUT RENUMBERED FILE: ',$)
READ(JTTY,11)FILRNB
IF(FILRNB.EQ.FILSPC)GO TO 6
INCR=1
OPEN(UNIT=IOUT,FILE=FILRNB,ACCESS='SEQOUT')
GO TO 9
6 IF(IPAGE.NE.0)GO TO 9
IF(MASTER.NE.1)GO TO 16
WRITE(ITTY,7)
7 FORMAT(' AT LEAST 1 OUTPUT FILE MUST BE SPECIFIED')
GO TO 2
C
C OPEN INPUT FILE
8 CLOSE(UNIT=IIN)
9 WRITE(ITTY,10)
10 FORMAT(' INPUT SOURCE FILE: ',$)
READ(JTTY,11)FILSRC
11 FORMAT(1A10)
IF(FILSRC.EQ.FILSPC)GO TO 14
OPEN(UNIT=IIN,FILE=FILSRC,ACCESS='SEQIN',ERR=12)
GO TO 17
12 WRITE(ITTY,13)
13 FORMAT(' FILE CAN NOT BE READ')
GO TO 9
14 IF(MASTER.NE.1)GO TO 16
WRITE(ITTY,15)
15 FORMAT(' FIRST INPUT FILE MUST BE SPECIFIED')
GO TO 9
C
C RETURN TO CALLING PROGRAM
16 JPASS=0
17 RETURN
C349844660542':$
END