Article 1402 of vmsnet.sources:
Path: nntpd.lkg.dec.com!pa.dec.com!news1.digital.com!nntp-hub2.barrnet.net!news3.near.net!transfer.stratus.com!news.mathworks.com!mvb.saic.com!vmsnet-sources
From: ragosta@merlin.arc.nasa.gov
Newsgroups: vmsnet.sources
Subject: Sorted Directory Help, part 02/02
Date: Mon, 18 Sep 1995 21:01:30 GMT
Message-ID: <59845454@MVB.SAIC.COM>
Organization: Aeroflightdynamics Directorate
Lines: 340
Followup-To: vmsnet.sources.d
Approved: Mark.Berryman@Mvb.Saic.Com

Submitted-by: ragosta@merlin.arc.nasa.gov
Posting-number: Volume 7, Issue 61
Archive-name: sdir/part02

-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
XC*`20`20`20`20`20ASSUMPTIONS`20AND`20RESTRICTIONS`20:
XC*`20`20`20`20`20`20`20`20`20`20NOT`20TRANSPORTABLE.
XC*`20`20`20`20`20`20`20`20`20`20ASSUMES`20CURRENT`20DIRECTORY`20AND`20FILE`20T
VYPE`20'.DAT'`20IF`20NONE`20GIVEN
XC*
XC*`20`20`20`20`20LANGUAGE`20AND`20COMPILER`20:
XC*`20`20`20`20`20`20`20`20`20`20ANSI`20FORTRAN`2077
XC*
XC*`20`20`20`20`20VERSION`20AND`20DATE`20:
XC*`20`20`20`20`20`20`20`20`20`20VERSION`20I.0`20`20-`20`2020-JUN-1988
XC*
XC*`20`20`20`20`20CHANGE`20HISTORY`20:
XC*`20`20`20`20`20`20`20`20`20`2020-JUN-1988`20`20-`20`20INITIAL`20VERSION
XC*`20`20`20`20`20`20`20`20`20`2029-JUN-1990`20`20-`20`20BUG`20FIXED`20WHILE`20
VREUSING`20"OUT"`20AS`20WORK`20BUFFER
XC*`20`20`20`20`20`20`20`20`20`20`208-FEB-1991`20`20-`20`20CHANGED`20TO`20INTEG
VER`20FUNCTION`20TO`20RETURN`20ISTAT
XC*`20`20`20`20`20`20`20`20`20`2015-AUG-1995`20`20-`20`20Internal`20work`20area
V`20increased`20to`20255
XC*
XC***********************************************************************
XC*
X`20`20`20`20`20`20INCLUDE`20'($FABDEF)'
X`20`20`20`20`20`20INCLUDE`20'($NAMDEF)'
X`20`20`20`20`20`20RECORD`20/FABDEF/`20FAB
X`20`20`20`20`20`20RECORD`20/NAMDEF/`20NAM
X`20`20`20`20`20`20CHARACTER`20*255`20WORK
X`20`20`20`20`20`20CHARACTER`20*(*)`20SPEC,`20DEFAULT,`20PART,`20OUT
X`20`20`20`20`20`20INTEGER`20SYS$PARSE
X`20`20`20`20`20`20INTEGER`20*2`20II
XC
X`20`20`20`20`20`20parse`20=`200
X`20`20`20`20`20`20CALL`20CAPS(PART)
X`20`20`20`20`20`20IF`20(PART(1:2)`20.EQ.`20'NO')`20THEN`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20!`20NODE
X`20`20`20`20`20`20`20`20`20I`20=`20INDEX(SPEC,'::')
X`20`20`20`20`20`20`20`20`20IF`20(I`20.NE.`200)`20THEN
X`20`20`20`20`20`20`20`20`20`20`20`20OUT`20=`20SPEC(1:I+1)
X`20`20`20`20`20`20`20`20`20ELSE
X`20`20`20`20`20`20`20`20`20`20`20`20I`20=`20INDEX(DEFAULT,'::')
X`20`20`20`20`20`20`20`20`20`20`20`20IF`20(I`20.NE.`200)`20THEN
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20OUT`20=`20DEFAULT(1:I+1)
X`20`20`20`20`20`20`20`20`20`20`20`20ELSE
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20CALL`20TRANSL8('SYS$NODE',OUT)
X`20`20`20`20`20`20`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20ELSE
X`20`20`20`20`20`20`20`20`20NAM.NAM$L_ESA`20=`20%LOC`20(`20WORK`20)
X`20`20`20`20`20`20`20`20`20NAM.NAM$B_ESS`20=`20LEN`20(`20WORK`20)
X`20`20`20`20`20`20`20`20`20NAM.NAM$B_NOP`20=`20NAM$V_SYNCHK
X`20`20`20`20`20`20`20`20`20NAM.NAM$B_BID`20=`20NAM$C_BID
X`20`20`20`20`20`20`20`20`20NAM.NAM$B_BLN`20=`20NAM$C_BLN
XC
X`20`20`20`20`20`20`20`20`20FAB.FAB$L_DNA`20=`20%LOC`20(`20DEFAULT`20)
X`20`20`20`20`20`20`20`20`20FAB.FAB$B_DNS`20=`20LENGTH`20(`20DEFAULT`20)
X`20`20`20`20`20`20`20`20`20FAB.FAB$L_FNA`20=`20%LOC`20(`20SPEC`20)
X`20`20`20`20`20`20`20`20`20FAB.FAB$B_FNS`20=`20LENGTH`20(`20SPEC`20)
X`20`20`20`20`20`20`20`20`20FAB.FAB$L_NAM`20=`20%LOC`20(`20NAM`20)
X`20`20`20`20`20`20`20`20`20FAB.FAB$B_BID`20=`20FAB$C_BID
X`20`20`20`20`20`20`20`20`20FAB.FAB$B_BLN`20=`20FAB$C_BLN
XC
X`20`20`20`20`20`20`20`20`20ISTAT`20=`20SYS$PARSE`20(`20FAB`20)
X`20`20`20`20`20`20`20`20`20IF`20(.NOT.`20ISTAT)`20go`20to`201000
X`20`20`20`20`20`20`20`20`20WORK`20(NAM.NAM$B_ESL+1:)`20=`20'`20'
XC
X`20`20`20`20`20`20`20`20`20IF`20(PART(1:2)`20.EQ.`20'DE')`20THEN`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20!`20DEVICE
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20NAM.NAM$B_DEV
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(II,LEN(OUT))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20NAM.NAM$L_DEV
X`20`20`20`20`20`20`20`20`20ELSE`20IF`20(PART(1:2)`20.EQ.`20'DI')`20THEN`20`20
V`20`20`20`20`20`20`20`20`20`20!`20DIRECTORY
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20NAM.NAM$B_DIR
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(II,LEN(OUT))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20NAM.NAM$L_DIR
X`20`20`20`20`20`20`20`20`20ELSE`20IF`20(PART(1:2)`20.EQ.`20'NA')`20THEN`20`20
V`20`20`20`20`20`20`20`20`20`20!`20NAME
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20NAM.NAM$B_NAME
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(II,LEN(OUT))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20NAM.NAM$L_NAME
X`20`20`20`20`20`20`20`20`20ELSE`20IF`20(PART(1:1)`20.EQ.`20'T')`20THEN`20`20
V`20`20`20`20`20`20`20`20`20`20`20!`20TYPE
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20NAM.NAM$B_TYPE
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(II,LEN(OUT))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20NAM.NAM$L_TYPE
X`20`20`20`20`20`20`20`20`20ELSE`20IF`20(PART(1:1)`20.EQ.`20'V')`20THEN`20`20
V`20`20`20`20`20`20`20`20`20`20`20!`20VERSION
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20NAM.NAM$B_VER
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(II,LEN(OUT))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20NAM.NAM$L_VER
X`20`20`20`20`20`20`20`20`20ELSE`20IF`20(PART(1:1)`20.EQ.`20'L')`20THEN`20`20
V`20`20`20`20`20`20`20`20`20`20`20!`20LONG`20NAME
X`20`20`20`20`20`20`20`20`20`20`20`20J`20=`20NAM.NAM$B_DEV`20+`20NAM.NAM$B_DIR
V
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(LEN(OUT),(LEN(WORK)-J))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20%LOC(WORK)`20+`20J
X`20`20`20`20`20`20`20`20`20ELSE`20IF`20((PART(1:1)`20.EQ.`20'F')`20.OR.
X`20`20`20`20`20$`20`20`20`20`20`20`20`20`20`20`20`20(PART(1:1)`20.EQ.`20'`20')
V)`20THEN`20`20`20`20`20`20`20`20`20`20`20!`20FULL`20
X`20`20`20`20`20`20`20`20`20`20`20`20II`20=`20MIN0(LEN(OUT),LEN(WORK))
X`20`20`20`20`20`20`20`20`20`20`20`20I`20`20=`20%LOC(WORK)
X`20`20`20`20`20`20`20`20`20ELSE
X`20`20`20`20`20`20`20`20`20`20`20`20RETURN
X`20`20`20`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20`20`20`20CALL`20LIB$MOVC5`20(`20II,`20%VAL(I),`2032,`20LEN(O
VUT),`20%REF(OUT))
X`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20RETURN
X1000`20`20parse=`20istat
X`20`20`20`20`20`20out`20=`20'`20'
X`20`20`20`20`20`20return
X`20`20`20`20`20`20END
XC
XC---END`20PARSE
XC
Xc`20`20`20`20`20`20`20`20.title`20caps
Xc;
Xc;`20`20`20Author:`20`20Arthur`20E.`20Ragosta
Xc;
Xc;`20`20`20Make`20all`20lowercase`20characters`20capitals.
Xc;
Xc;`20`20`20`20`20`20`20STRING`20=`20'This`20Is`20A`20String.'
Xc;`20`20`20`20`20`20`20CALL`20CAPS`20(`20STRING`20)
Xc;
Xc;`20`20`20Results`20in`20STRING`20=`20'THIS`20IS`20A`20STRING.'
Xc;
Xc`20`20`20`20`20`20`20`20.entry`20`20caps,`5Em<>
Xc
Xc`20`20`20`20`20`20`20`20movl`20`20`20`204(ap),r1`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20;loc`20of`20descriptor`20to`20r1
Xc`20`20`20`20`20`20`20`20movzwl`20`20(r1),r0`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20;length`20to`20r0
Xc`20`20`20`20`20`20`20`20subl3`20`20`20#1,4(r1),r1`20`20`20`20`20`20`20`20`20
V`20`20`20`20;location`20to`20r1
Xc
Xcloop:`20`20`20cmpb`20`20`20`20(r1)`5Br0`5D,#96
Xc`20`20`20`20`20`20`20`20bleq`20`20`20`20next`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20;Less`20than`20"a"?
Xc`20`20`20`20`20`20`20`20cmpb`20`20`20`20(r1)`5Br0`5D,#122
Xc`20`20`20`20`20`20`20`20bgtr`20`20`20`20next`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20;Greater`20than`20"z"?
Xc`20`20`20`20`20`20`20`20subb2`20`20`20#32,(r1)`5Br0`5D`20`20`20`20`20`20`20
V`20`20`20`20`20;Its`20LC...`20CAP`20it!
Xcnext:`20`20`20sobgtr`20`20r0,loop`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20;check`20for`20end`20of`20string
Xc
Xc`20`20`20`20`20`20`20`20ret
Xc`20`20`20`20`20`20`20`20.end
Xc;
Xc;`20`20Portable`20FORTRAN`20version
Xc;
X`20`20`20`20`20`20SUBROUTINE`20CAPS`20(`20STRING`20)
XC*
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**`20`20`20`20`20`20
V`20`20`20`20CAPS`20`20`20`20`20`20`20`20`20`20`20`20`20**
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*
XC*`20`20`20`20`20SUBPROGRAM`20:
XC*`20`20`20`20`20`20`20`20`20`20CAPITALIZE
XC*
XC*`20`20`20`20`20AUTHOR`20:
XC*`20`20`20`20`20`20`20`20`20`20ART`20RAGOSTA
XC*`20`20`20`20`20`20`20`20`20`20MS`20219-3
XC*`20`20`20`20`20`20`20`20`20`20NASA`20AMES`20RESEARCH`20CENTER
XC*`20`20`20`20`20`20`20`20`20`20MOFFETT`20FIELD,`20CA`20`2094035
XC*`20`20`20`20`20`20`20`20`20`20(415)`20604-5558
XC*
XC*`20`20`20`20`20PURPOSE`20:
XC*`20`20`20`20`20`20`20`20`20`20TO`20REPLACE`20A`20STRING`20WITH`20THE`20SAME
V`20STRING`20BUT`20ONLY`20CAPITAL
XC*`20`20`20`20`20`20`20`20`20`20LETTERS.
XC*
XC*`20`20`20`20`20INPUT`20ARGUMENTS`20:
XC*`20`20`20`20`20`20`20`20`20`20STRING`20-`20THE`20STRING`20TO`20BE`20CAPITALI
VZED
XC*
XC*`20`20`20`20`20OUTPUT`20ARGUMENTS`20:
XC*`20`20`20`20`20`20`20`20`20`20STRING`20-`20THE`20CAPITALIZED`20STRING
XC*
XC*`20`20`20`20`20ASSUMPTIONS`20AND`20RESTRICTIONS`20:
XC*`20`20`20`20`20`20`20`20`20`20THE`20COLLATING`20SEQUENCE`20MUST`20HAVE`20'Z'
V`20>`20'A'`20AND`20ALL`20CHARACTERS
XC*`20`20`20`20`20`20`20`20`20`20IN`20THE`20UPPER`20CASE`20ALPHABET`20AND`20LOW
VER`20CASE`20ALPHABET`20CONTIGUOUS
XC*
XC*`20`20`20`20`20LANGUAGE`20AND`20COMPILER`20:
XC*`20`20`20`20`20`20`20`20`20`20ANSI`20FORTRAN`2077
XC*
XC*`20`20`20`20`20VERSION`20AND`20DATE`20:
XC*`20`20`20`20`20`20`20`20`20`20VERSION`20I.0`20`20`20`20`20`201-OCT-84
XC*
XC*`20`20`20`20`20CHANGE`20HISTORY`20:
XC*`20`20`20`20`20`20`20`20`20`20`201-OCT-84`20`20`20`20INITIAL`20VERSION
XC*
XC***********************************************************************
XC*
X`20`20`20`20`20`20CHARACTER`20*(*)`20STRING
XC
X`20`20`20`20`20`20IC`20=`20ICHAR('A')`20-`20ICHAR('a')
X`20`20`20`20`20`20DO`2010`20I`20=`201,`20LEN(STRING)
X`20`20`20`20`20`20`20`20`20IF`20((STRING(I:I)`20.GE.`20'a')`20.AND.`20(STRING(
VI:I)`20.LE.`20'z'))
X`20`20`20`20`20$`20`20`20`20`20`20STRING(I:I)`20=`20CHAR(`20IC`20+`20ICHAR(STR
VING(I:I))`20)
X10`20`20`20`20`20`20`20CONTINUE
X`20`20`20`20`20`20RETURN
X`20`20`20`20`20`20END
XC
XC---END`20CAPS
XC
X`20`20`20`20`20`20SUBROUTINE`20TRANSL8`20(`20LOGIC,`20PHYSIC`20)
XC*
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**`20`20`20`20`20`20
V`20`20`20`20TRANSL8`20`20`20`20`20`20`20`20`20`20**
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20**********************
V*********
XC*
XC*`20`20`20`20`20SUBPROGRAM`20:
XC*`20`20`20`20`20`20`20`20`20`20TRANSLATE`20LOGICAL
XC*
XC*`20`20`20`20`20AUTHOR`20:
XC*`20`20`20`20`20`20`20`20`20`20Arthur`20E.`20Ragosta
XC*`20`20`20`20`20`20`20`20`20`20MS`20219-3
XC*`20`20`20`20`20`20`20`20`20`20NASA`20Ames`20Research`20Center
XC*`20`20`20`20`20`20`20`20`20`20Moffett`20Field,`20Ca.`20`2094035
XC*`20`20`20`20`20`20`20`20`20`20(415)`20604-5558
XC*
XC*`20`20`20`20`20PURPOSE`20:
XC*`20`20`20`20`20`20`20`20`20`20TRANSLATE`20A`20LOGICAL`20NAME`20INTO`20A`20PH
VYSICAL`20NAME
XC*
XC*`20`20`20`20`20INPUT`20ARGUMENTS`20:
XC*`20`20`20`20`20`20`20`20`20`20LOGIC`20-`20LOGICAL`20NAME
XC*
XC*`20`20`20`20`20OUTPUT`20ARGUMENTS`20:
XC*`20`20`20`20`20`20`20`20`20`20PHYSIC`20-`20PHYSICAL`20NAME`20(TRANSLATION)
XC*
XC*`20`20`20`20`20SUBPROGRAM`20REFERENCES`20:
XC*`20`20`20`20`20`20`20`20`20`20CAPS,`20`20LENGTH,`20`20SYS$TRNLNM
XC*
XC*`20`20`20`20`20ASSUMPTIONS`20AND`20RESTRICTIONS`20:
XC*`20`20`20`20`20`20`20`20`20`20NOT`20TRANSPORTABLE
XC*`20`20`20`20`20`20`20`20`20`20RETURNS`20ONLY`20THE`20MOST`20USER`20SPECIFIC
V`20TRANSLATION
XC*
XC*`20`20`20`20`20LANGUAGE`20AND`20COMPILER`20:
XC*`20`20`20`20`20`20`20`20`20`20ANSI`20FORTRAN`2077
XC*
XC*`20`20`20`20`20CHANGE`20HISTORY`20:
XC*`20`20`20`20`20`20`20`20`20`2020-JUN-1988`20`20-`20`20INITIAL`20VERSION
XC*
XC***********************************************************************
XC*
X`20`20`20`20`20`20INCLUDE`20'($LNMDEF)'
X`20`20`20`20`20`20INCLUDE`20'($SSDEF)'
X`20`20`20`20`20`20CHARACTER`20*(*)`20LOGIC,`20PHYSIC
X`20`20`20`20`20`20CHARACTER`20*80`20LOGC
X`20`20`20`20`20`20DIMENSION`20ITMLST(4)
X`20`20`20`20`20`20INTEGER*2`20ITEM(2)
X`20`20`20`20`20`20EQUIVALENCE`20(ITEM(1),ITMLST(1))
X`20`20`20`20`20`20INTEGER`20SYS$TRNLNM
XC
X`20`20`20`20`20`20LOGC`20=`20LOGIC
X`20`20`20`20`20`20CALL`20CAPS`20(LOGC)
X`20`20`20`20`20`20ITEM(1)`20`20`20=`20LEN(PHYSIC)
X`20`20`20`20`20`20ITEM(2)`20`20`20=`20LNM$_STRING
X`20`20`20`20`20`20ITMLST(2)`20=`20%LOC(PHYSIC)
X`20`20`20`20`20`20ITMLST(3)`20=`20%LOC(LP)
X`20`20`20`20`20`20ITMLST(4)`20=`200
XC
XC`20---`20SEARCH`20USER-SPECIFIC`20(E.G.,`20PROCESS,`20JOB)`20TABLES`20AT`20TH
VE
XC`20---`20`20HIGHEST`20PRIORITY,`20THEN`20GROUP`20AND`20SYSTEM
XC
X10`20`20`20`20LL`20=`20LENGTH`20(`20LOGC`20)
X`20`20`20`20`20`20IF`20(LOGC(LL:LL)`20.EQ.`20':')`20LL`20=`20LL`20-`201
X`20`20`20`20`20`20ISTAT`20=`20SYS$TRNLNM`20(`20,`20'LNM$PROCESS',`20LOGC(1:LL)
V,,`20ITMLST`20)
X`20`20`20`20`20`20IF`20(ISTAT`20.EQ.`20SS$_NOLOGNAM)`20THEN
X`20`20`20`20`20`20`20`20`20ISTAT`20=`20SYS$TRNLNM`20(`20,`20'LNM$JOB',`20LOGC(
V1:LL),,`20ITMLST`20)
X`20`20`20`20`20`20`20`20`20IF`20(ISTAT`20.EQ.`20SS$_NOLOGNAM)`20THEN
X`20`20`20`20`20`20`20`20`20`20`20`20ISTAT`20=`20SYS$TRNLNM`20(`20,`20'LNM$GROU
VP',`20LOGC(1:LL),,`20ITMLST`20)
X`20`20`20`20`20`20`20`20`20`20`20`20IF`20(ISTAT`20.EQ.`20SS$_NOLOGNAM)`20THEN
V
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20ISTAT`20=`20SYS$TRNLNM`20(`20,`20
V'LNM$SYSTEM',`20LOGC(1:LL),,
X`20`20`20`20`20$`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20ITMLST`20)
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20IF`20(ISTAT`20.EQ.`20SS$_NOLOGNAM
V)`20THEN
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20PHYSIC`20=`20LOGC
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20RETURN
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20PHYSIC`20(LP+1:)`20=`20'`20'
XC
XC`20---`20DO`20MULTIPLE`20TRANSLATIONS
XC
X`20`20`20`20`20`20IF`20(ISTAT`20.EQ.`20SS$_NORMAL)`20THEN
X`20`20`20`20`20`20`20`20`20LOGC`20=`20PHYSIC
X`20`20`20`20`20`20`20`20`20GO`20TO`2010
X`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20RETURN
X`20`20`20`20`20`20END
XC
XC---END`20TRANSL8
XC
$ call unpack SDIR.FOR;1 1866234451 "" 69 1 1
$ v=f$verify(v)
$ exit


