ETAR2VMSV2.0-113-SEP-1994 16:03DEC C V4.0-000  $ABS$iL$CODE$& $LITERAL$h$LINK$@$DATA$$BSS$ $READONLY$ DECC$FCLOSE DECC$FOPEN DECC$GPRINTF DECC$GSCANF DECC$GSPRINTF DECC$GSSCANF DECC$FREAD DECC$EXIT DECC$STRCAT DECC$STRNCMP DECC$STRCHR DECC$STRRCHR DECC$STRLEN DECC$STRCPY CMA$TIS_ERRNO_GET_ADDR DECC$TOLOWER DECC$TOUPPERDECC$GA___CTYPE DECC$CTIME DECC$CLOSE DECC$CREAT DECC$WRITE DECC$MKDIRSTR$MATCH_WILDEXTRACTLISTVERBOSETHE_WAITDOTBINMODEAUTOMODETARFILE DATE_POLICYVMSMUNCHHEADERBUFFERPATHNAMECURDIR NEW_DIRECTORYNEWFILEOUTFILETEMPCREATIONLINKNAME  VMSCREATION0 VMSCREATION0JxHDR_READ0J DECODE_HEADER0J@  SCAN_TITLE CLEANUP_DIRE0JpMAKE_NEW0J0hCOPYFILE(J@TARSKIP0JH VMS_CLEANUP(J0TAR2VMS(JPOPENTAR OTS$DIV_I OTS$MOVEMOTS$FILL =GkG;F!0@a/aK$Dk#TG~^ ^(~08@޴HPX>`GGGBG""b@Zk4G  0B8b"@ZkpB4Gxb4G@Zk¤`B4Ge_"hbGG@ZkG' G0BG@Zkb#4G@G(`G A%0BAA@Zk=sH&0B2?JGSFC vH!@=@Zk@B vH?& @Hb0A"="TG@Zk%?$! D4G(@B0FI`G.RGJG>g.gJ8oF.`G.TGJ؍F(8F&8F$0B"8b"@Zk`"0BG8bTG@Zk pBxb4G4G@Zk,' B4GbPHJ@Zk',pHA'H0D'<'.'J8/F?G.4G4GGJ8NF@pBxb@Zk,H5 @5@F8 DG`B@@b#R_BrF)@ GG@ GPBGXb4G@ZkGb#@0BG8bTG"@Zk4 G1"BG@ZkpBGxbGTG@Zk%G0b#l@"G@b"%GEs"AD0B8b@ZkTG"5AUAD0B8b"@Zk%@b# %@`BeGhb4G_"G@ZkG'!"?G4G8D PB4GXb@ZkpB4Gxb4G@Zk4G0B8b"@ZkPB4GXb@Zk4GpB4Gxb@Zk0B4G8b`"@Zk4GPBXb@ZkpB4Gxb4G@ZkG] ](}08@ݤHPX=`p#kp#_"~G0^8^@~HPX޴`hp>x^GGG¤G@GFX@0B4Gf8bG@ZkGX4GBb@"@Zk B4G(b@Zk4G@B4GHb@ZkG 'B@GFG@D5GGG.J8F FF B@UBaG 0BB0`B0B B!QBBRBb3`J0Jq1BrRB8qB0BG@ZkBGb]!CGG@Zk@ C8FF@ G4D4G!B@bJ"F@B7I@""tG@ZkXB"Hb""GGG? B@bJ@""F@B7!H"tG@ZkhB"b"""GGGBb@ZkG( XGBTGb "@Zk0@b#0@ GX"@tGB`Bb1"G@ZkBG@ZkG0BG8bGtG@ZkB GbG4G@ZkVG+ C C"D& @@B@2F xB5BDAGGG@Zk"0B @8b#8FDFGGGtG@Zk$@ G0BGf4G8b_"G@ZkGBGb4G@Zk@4GDXBb"@Zk B4G(b@Zk4G@B4GHb@ZkXB4Gb@"@Zk4G B(b@Zk@B4GHb4G@Zk XGBTGb"@Zk4G B(b@Zk@B4GHb4G@ZkBp""FGJ1"@TGBDbGG@ZkƠTG`"XBb"@Zk"(,)P Ex( x¤,ݰB(]"bGGtG@ZkG0]G8]@}HPXݤ`hp=x]#k#~^^~ (08GGGBGP"GG@ZkBGbGTG@ZkG%.tGr%HBbGQ%JTG2F%>G@ZkGBGbGTG@ZkG%.Gr%HBbGQ%JTG2F%>G@ZkG@BX""HbGTGtG@Zk/"BG@Zk GBG@ZkGb#|@pBGxbGTG@ZkGBGG@ZkSG./"BGVJ>@Zk#.J%#9,9H%D.GqHPJF> GhBR@%D .GuyJTJF>Y/9#YK_/GKG -tGB`JGOIE=@ZkBG@Zk H%,G`@0B #8b%H/G%D%DXKoJGG?TG@Zk0B`""8bGTG@ZkBG@Zk4G-GI$,GGudJ$H%D 0`@@.TJF>. JGG]]} (08@#k#G~TG^^~ (0޴8GGG0B4G8bG@ZkGK B(bG@ZkG8DP B(b@ZkD IGPBG@Zk H@`@ @!F, F. FJEF @@@F#. JF.GzK8bGPJTGF0B>G@ZkG BG(b@Zk8D@@0D?  =|tGG G@"@TG1?B$FPBGXbh"@ZkGG]]} (0ݤ8@#k# (;"~^TG8[@{G@ZkG] #k#`4G~^_"[GG`{@ZkG] #k#~^^~ (0GGG0 ` _ BGd4G(b_"G@Zk #`@GG]]} (0@#kGH4GBbH"@Zk ð#~^^ ~(08޴@HG({G""PBG@Zk @¤PBGG@Zk"0B""8b ]"tG@ZkpB "4Gxb@ZkPBGG@Zk',G"g"""`BA'H'< "hb(1"GG@Zk' ,@HH9 @]@ @@@g."tJdF."J.#g/G#WJazJJ[zK9BaGz?]B B BG. @JD."J/"0BaH8bXK|"G?C"""tG@Zk0Bd"8bC"""tG@Zkl"0BC"8b""tG@Zk0Bt"8bC"""tG@Zk 0B""8b]"GtG@Zk'"@@G/ 8@FG@@SFG4J@.".#0/P#p/UJWJJY:K0 JAaK5J'K7J'H@9!K@!!H"@B@B @G.#"BVJJ6J@_e#"BG1 ; aC8 F B5FG3aJ GW."/","W/RTJVKGJGH7#JYYK2AJH6J'K@'H@9!K"@B@B G.#"BTJJ4J@]_#@@F BGTGb@ZkB4Gb4G@Zk,` GFHtGHD@1@.J"DD# 0B8b""@ZkG]G] }(08ݤ@HP#kG#0 ~^^~ (0޴8,GGGCH ¤GgH#`G(BG0bGTG@Zk @@%.0@ ,Q%J HrH2F%> 8BG@b4G@ZkpH%,A%H0D%<%. E"C2JgHG]G]} (0ݤ8@#k4pG DECC$FOPEN4b# DECC$FOPEN4@ DECC$FOPEN4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$FREAD4b# DECC$FREAD4@ DECC$FREAD4G DECC$STRLEN4@ DECC$STRLEN4(G8 DECC$STRLEN44@8 DECC$STRLEN4HGx DECC$STRLEN4t@x DECC$STRLEN45xGSTR$MATCH_WILD46b#STR$MATCH_WILD45@STR$MATCH_WILD4 G4 DECC$GPRINTF4(b# DECC$GPRINTF40@4 DECC$GPRINTF438GL DECC$GSCANF44@b# DECC$GSCANF43H@L DECC$GSCANF4TGh DECC$EXIT4Xb# DECC$EXIT4d@h DECC$EXIT41pG DECC$TOLOWER42xb# DECC$TOLOWER41@ DECC$TOLOWER4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT470GD CLEANUP_DIRE488b# CLEANUP_DIRE47@@D CLEANUP_DIRE4XGp DECC$GPRINTF4`b# DECC$GPRINTF 4l@p DECC$GPRINTF4 G DECC$STRCPY4 @ DECC$STRCPY4G DECC$STRCAT4b# DECC$STRCAT4@ DECC$STRCAT4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4 G0 DECC$GPRINTF4$b# DECC$GPRINTF4,@0 DECC$GPRINTF4DGd DECC$FREAD4Pb# DECC$FREAD4`@d DECC$FREAD4+G DECC$FCLOSE4,b# DECC$FCLOSE4+@ DECC$FCLOSE4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4+G DECC$FCLOSE4,b# DECC$FCLOSE4+@ DECC$FCLOSE4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G  DECC$GPRINTF4b# DECC$GPRINTF4@  DECC$GPRINTF4+G  DECC$FCLOSE4,b# DECC$FCLOSE4+@  DECC$FCLOSE4 G4 DECC$EXIT4(b# DECC$EXIT40@4 DECC$EXIT4G DECC$FREAD4b#0 DECC$FREAD4@ DECC$FREAD4G DECC$GPRINTF4b#0 DECC$GPRINTF4 @ DECC$GPRINTF4+G$ DECC$FCLOSE4,b#0 DECC$FCLOSE4+ @$ DECC$FCLOSE4(G8 DECC$EXIT40b#0 DECC$EXIT44@8 DECC$EXIT4%G OTS$DIV_I4&b#0 OTS$DIV_I4%@ OTS$DIV_I4%G  OTS$DIV_I4&b#0 OTS$DIV_I4%@  OTS$DIV_I4 <Gl DECC$GSPRINTF4 Db#0 DECC$GSPRINTF4 h@l DECC$GSPRINTF4 G DECC$GSPRINTF4 b#0 DECC$GSPRINTF4 @ DECC$GSPRINTF4'G DECC$CREAT4(b#0 DECC$CREAT4'@ DECC$CREAT4G  DECC$GPRINTF4b#0 DECC$GPRINTF4@  DECC$GPRINTF4 0GH DECC$GSPRINTF4 8b#0 DECC$GSPRINTF4 D@H DECC$GSPRINTF4HGT DECC$STRLEN4P@T DECC$STRLEN4-XGp DECC$WRITE4.`b#0 DECC$WRITE4-l@p DECC$WRITE4)pG DECC$CLOSE 4*xb#0 DECC$CLOSE4)@ DECC$CLOSE4/GOTS$FILL4/@OTS$FILL4-G DECC$WRITE4.b#0 DECC$WRITE4- @ DECC$WRITE4 G8 DECC$FREAD4( b#0 DECC$FREAD44 @8 DECC$FREAD4)@ GT DECC$CLOSE4*H b#0 DECC$CLOSE4)P @T DECC$CLOSE4h Gx DECC$GPRINTF4l b#0 DECC$GPRINTF4t @x DECC$GPRINTF4+x G DECC$FCLOSE4, b#0 DECC$FCLOSE4+ @ DECC$FCLOSE4 G DECC$EXIT4 b#0 DECC$EXIT4 @ DECC$EXIT4 G DECC$GPRINTF4 b#0 DECC$GPRINTF4 @ DECC$GPRINTF4+ G DECC$FCLOSE4, b#0 DECC$FCLOSE4+ @ DECC$FCLOSE4 G DECC$EXIT4 b#0 DECC$EXIT4 @ DECC$EXIT4 G DECC$GPRINTF4 b#0 DECC$GPRINTF4 @ DECC$GPRINTF4+ G DECC$FCLOSE4, b#0 DECC$FCLOSE4+ @ DECC$FCLOSE4 G, DECC$EXIT4 b#0 DECC$EXIT4( @, DECC$EXIT4P Gh DECC$GPRINTF4X b#0 DECC$GPRINTF4d @h DECC$GPRINTF4| G DECC$GPRINTF4 b#0 DECC$GPRINTF4 @ DECC$GPRINTF4# G VMSMUNCH4$ b#0VMSMUNCH4# @ VMSMUNCH4 @ GX DECC$STRCPY4 T @X DECC$STRCPY4X Gp DECC$STRCHR4` b#@ DECC$STRCHR4l @p DECC$STRCHR4 G DECC$STRCHR4 b#@ DECC$STRCHR4 @ DECC$STRCHR4 G DECC$STRCHR4 b#@ DECC$STRCHR4 @ DECC$STRCHR4 G DECC$STRCHR4 b#@ DECC$STRCHR4 @ DECC$STRCHR4 G$ DECC$STRNCMP4 b#@ DECC$STRNCMP4 @$ DECC$STRNCMP4 , G8 DECC$STRCPY4 4 @8 DECC$STRCPY4 @ GL DECC$STRCPY4 H @L DECC$STRCPY4X Gp DECC$STRRCHR4 ` b#@ DECC$STRRCHR4l @p DECC$STRRCHR4 x G DECC$STRCPY4  @ DECC$STRCPY4  G DECC$STRCPY4  @ DECC$STRCPY4 H Gd DECC$STRCPY 4 ` @d DECC$STRCPY4h Gt DECC$STRLEN4p @t DECC$STRLEN4 G DECC$STRCAT4 b#@ DECC$STRCAT4 @ DECC$STRCAT4 G DECC$STRCAT4 b#@ DECC$STRCAT4 @ DECC$STRCAT4 G DECC$STRLEN4 @ DECC$STRLEN4G DECC$MKDIR4b# DECC$MKDIR4@ DECC$MKDIR<GCMA$TIS_ERRNO_GET_ADDR<b#CMA$TIS_ERRNO_GET_ADDR<@CMA$TIS_ERRNO_GET_ADDR<GCMA$TIS_ERRNO_GET_ADDR<b#CMA$TIS_ERRNO_GET_ADDR<@CMA$TIS_ERRNO_GET_ADDR4G DECC$STRLEN4@ DECC$STRLEN4tb# DECC$MKDIR4G DECC$MKDIR4@ DECC$MKDIR<GCMA$TIS_ERRNO_GET_ADDR<b#CMA$TIS_ERRNO_GET_ADDR<@CMA$TIS_ERRNO_GET_ADDR4G$ DECC$GPRINTF4b# DECC$GPRINTF4 @$ DECC$GPRINTF4hG| DECC$FOPEN4p{# DECC$FOPEN4x@| DECC$FOPEN4G DECC$FREAD4{#x DECC$FREAD4@ DECC$FREAD4G8 DECC$FREAD4(b#@ DECC$FREAD44@8 DECC$FREAD4xG DECC$GPRINTF4|b#@ DECC$GPRINTF4@ DECC$GPRINTF4 G DECC$STRCPY4 @ DECC$STRCPY4 G DECC$STRCPY4 @ DECC$STRCPY4G DECC$GSSCANF4b# DECC$GSSCANF4 @ DECC$GSSCANF4 G( DECC$CTIME4 b# DECC$CTIME4 $@( DECC$CTIME4 (G8 DECC$STRCPY4 4@8 DECC$STRCPY4 LGt DECC$GSPRINTF4 `b# DECC$GSPRINTF4 p@t DECC$GSPRINTF44G` DECC$GSSCANF4<b# DECC$GSSCANF4\@` DECC$GSSCANF4`G| DECC$GSSCANF4hb# DECC$GSSCANF4x@| DECC$GSSCANF4G DECC$GSSCANF4b# DECC$GSSCANF4@ DECC$GSSCANF4G DECC$GSSCANF4b# DECC$GSSCANF4@ DECC$GSSCANF4G DECC$GSSCANF4b# DECC$GSSCANF4@ DECC$GSSCANF4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$EXIT @4b# DECC$EXIT4@ DECC$EXIT4G DECC$GSSCANF4b# DECC$GSSCANF4@ DECC$GSSCANF4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4G DECC$TOUPPER4b# DECC$TOUPPER4@ DECC$TOUPPER =0'tar: directory checksum error for %s (=(%2.2s-%3.3s-%4.4s %8.8s.00H=(tar: EOF hit while skipping. h=0# %s =0" --> %s =(tar: error writing file %s =0#tar: unexpected EOF on tar file. =H:*** This file is a link to %s tar: error creating %s @=(tar: error reading tar file. `=(tar: error reading tarfile. =(tar: EOF hit on tarfile. =8+ ---> %s =(tar: error creating %s = %s (y/n/q/a) ? =&tar: error opening tarfile. =0 ;7DECC$GA___CTYPE=0 H;=@| ; DECC$STRCHR DECC$TOUPPER=%sp DECC$EXIT=;7LINKNAME=%o7CREATION7 VMSCREATION=0 ;=P 7HEADER; DECC$GSSCANF7PATHNAME DECC$STRCPY DECC$GSPRINTF DECC$CTIME DECC$GPRINTF=0 ;=@<  DECC$FREAD7BUFFER=0 ;= =0 P;= 7TARFILE=rb DECC$FOPEN=0 p;=@| CMA$TIS_ERRNO_GET_ADDR DECC$MKDIR7VERBOSE0 DECC$STRLEN=0  ;=@< 7TEMPp DECC$STRCAT DECC$STRNCMP7CURDIR=./=]7DOT DECC$STRRCHR8 OTS$MOVEM=mbc=16#VMSMUNCH= %s %8d%c%s 7AUTOMODE7BINMODE% OTS$DIV_I' DECC$CREAT) DECC$CLOSE=00 h;= + DECC$FCLOSE- DECC$WRITE= alq=%dmrs=512= rfm=fix= rfm=stmlf8OTS$FILL7 DATE_POLICY=rat=cr7LIST1 DECC$TOLOWER=%6o %8d %s %s 7NEWFILE7OUTFILE=0 0;=p 7 NEW_DIRECTORY7THE_WAIT3 DECC$GSCANF5STR$MATCH_WILD7 CLEANUP_DIRE7EXTRACT z=(!@#%^&*()+=|~`[]{}':;<>,?\" =&__$______X___________________ ==-%$TAR2VMSDEC C V4.0-000 O=KC=8Cqw=$$ELEV:[LEVITTE.WRK.VMSTAR]TAR2VMS.C;6 O=KCB=Wח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1STDIO P=LDC>sח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1STDLIB P=LDC>Õח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1STRING O=KCB=iח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1ERRNO O=KCB=cOח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1CTYPE N=JBA<Sɕח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1TIME P=LDC>e֕ח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1UNIXIO O=KCB= Wח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1STDIO N=JBA< 3ח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1STAT Q=MED? 6ؕח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1UNIXLIB Q=MED? `ח$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;1DESCRIP Q=MED? }ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1SSDEF R=NFE@Z~ŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1STRDEF X=TLKFRiŗ&SYS$COMMON:[SYSLIB]SYS$STARLET_C.TLB;1 STR$ROUTINES Q=MED?2l=C+ELEV:[LEVITTE.WRK.VMSTAR]VMSTAR_CMDLINE.H;8 I=E=<7'@*#ELEV:[LEVITTE.WRK.VMSTAR]VMSTAR.H;5 K=G?>9T(ɗ>%ELEV:[LEVITTE.WRK.VMSTAR]VMSMUNCH.H;1 J=F>=8",=$ELEV:[LEVITTE.WRK.VMSTAR]VMSTARP.H;3 I=E=<7'@*#ELEV:[LEVITTE.WRK.VMSTAR]VMSTAR.H;5 P=  |    }- .   n o 3 5 K  |   d, 7c d            5 6 a   &   !   &4 J" I 4= mode 4= uid 4= gid 4=*" bytecount char e4=  e4=@8_iobuf _cnt _ptr e4=@_base e4=SK`_flagh_filep_pad1x_pad2 e4=  j e4= 4=tarfp y e4= 4=E=linktype.  VMSCREATION4= vmscreation  e4 v= 44= __iscntrl4= 60 $= 4 = __c := (4= 0 = 044= tar2vms04=| k k k v v ~             4    r       ? ~%0 4 $= 44 <=! argc e4=   e4= argv  e4=nfstatus file_type j flag argiprocess e4= argp  e4=  e4= ptr  e4=  e4={dsc$descriptor@ dsc$w_length dsc$b_dtype dsc$b_class dsc$a_pointer  e4=%pattern  e4=# candidate  e4=buffer .=  /4=  = fp =  .=  /4=  = stat =  := 04= 8 = h404=copyfileh4=                           ! ! C G D L S V$ X _ s q q s s s v y< $= l4 1=  e4=!outfile e4=nbytesinbytes fil s ictlchars eightbitcharsnchars e4=  e4=7/ VMStimbuf@actime e4=! modtime e4=! (vtb e4=binfile .=  g4=  l=LD.  alq >e4 =  .=  g4=  l=LD.  alq e4 =  :=  4=  _=  4@4= scan_title 4=              n          , $= @ 4 =  e4= line e4=  e4= dire De4=  e4=fname me4=  e4= end1 e4=;3 len len2 i ind := D4= ` = p44=make_newp4=|{                , $= t4 =  e4= want e4=4,statuscreated e4= dotp e4 := $4=  = P44= opentarP4=1)(     $= T4 k=  j e4= fp e4 := x4= @ = 4x4=hdr_read4=(     $= 4 =  e4= buffer e4= stat := 4= H = 4@4= tarskip4=1)(   , " $= 4 &="bytes i := D4=  t= 44= decode_header4=  , , 0 0 5 9 9 9 9 : : :X D D D D DX F F F F F H S S S S4 $= 4 '=80 idate unsigned long e4= bintim +e4=>6chksumvalue ll e4= ptr e4 := 4=  = H44= vms_cleanupH4=RJI ` ` ` i m k( i , $= L4 =  e4= string 3e4=7/ i flag c e4= p e4=<4. 4=badchars e4=<4.  4= translate e4 := (4=  =