ETAR2VMSV2.0-1 7-MAR-1995 12:48DEC C V4.1-001  $ABS$i$CODE$$ $LITERAL$$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 VMSCREATION0JLHDR_READ0J@P DECODE_HEADER0J  SCAN_TITLE CLEANUP_DIRE0JHMAKE_NEW0J@COPYFILE(J TARSKIP0J VMS_CLEANUP(JLTAR2VMS(JOPENTAR OTS$DIV_I OTS$MOVEMOTS$FILL =#GGCG>?DBa/aK$DG#k#~@^H^PGG<8=Gbb@ "  8"4G(B0b@Zk4G4GBb@ZkP4Gb`@4C" PB@ZkGb@4G <I $$}< tBC`8$ݢNBB@Zk8K`HG8=$= L!C!=G}3vJrQ@JrF}4G5Jrq@JF@B@Zk8K`HG@" =G4vJqQ JF4G5Jqq JF$ݢ0B$ݲ"="TGhBpb@Zk%?$! D4G  ]_BXbsBSFX@.UJ>.J8F3"/K G.b[/[K8NG)@ , H8 D$8"@"TG(B0b@Zk""TGXB`b@Zk 4G4GBb@Zk",! PHJ4GHBPb@Zk".qHPJF>bS.SJ8NF@4G4GBb@Zk",H5@".J5 BD t.tJ8lF`X ݢB8BF0@"BtGb5@04GBb@Zk4Gb@8p""TG(B0b@Zk08D0=!? H"xB@ZkH"TGhBpb@ZkH  TGbf@ @"!?@D" "1 BRb@G(B0b@Zk 5@ "!U @D8@""TG(B0b@Zk  "4Gxb^@4G448F "4GBb@Zk4G4GBb@Zk48 "4G(B0b@Zk 4GBb@Zk4G4GBb@Zk484G(B0b@Zk 4GBb@Zk4G4GBb@ZkG@]H]P`#k#~P^X^`GG<8=48BDv "q4G_"GBb@Zk4Cx"4GBb@Zk4G`Bhb@Zk4G4GBb@Zkx@4=?@DR$ 8]4} SB84UF (( = C'(] Cz/zK]GD8DFF=?F!F }FdB]_FUABrF@$0B$ݦB 0B (0C($=,L =Bb@Zk$ N =Bb@Zk $=]!C C8GG$B BF4Gݲ@"@"#8=_"2B?"Bb@ZkGGGtG0B8b@Zk<B"hb"@"GGBb@Zk0@"@"8?"B?"Bb@ZkGGGtG0B8b@Zk<B"pb""@"GGBb@Zk00"X"<=TGBb@Zk84=0@4G bQ@ ,,"1 "81"8BtG0B8b@Zk0= " pB@ZkGGtGPBXb@Zk,04GBb@Zki498= C, C0D3 =?B8]" SBQF 88ݢ"6B BGGB@Zk0 "=8? @8D G"8ݢDGtGPBXb@Zk,48=00B8C t4G_"GBb@Zk404GBb@Zk48=?@D"4GBb@Zk4G`Bhb@Zk4G4GBb@Zk4x"4GBb@Zk4G`Bhb@Zk4G4GBb@Zk,"<=TGBb@Zk4G`Bhb@Zk4G4GBb@Zkx"H""A}TGdF<GGGBb@Zk"8"TGBb@Zk`PF"=`bs0`F`<]"GtGBb@ZkGGP]X]`p#k#~(^0^8GG$ =] H"`B@Zk GTG B(b@ZkC=tG.uQJTJF> GTG B(b@ZkC=G.uQJTJF>$@""TGtG0B8b@Zk$$=1"`B@Zk$=`B@Zk4G`bo@GTGpBxb@ZkC"`B@Zkhݢ/XK?=!"`B@Zk4G ݲ C8/8K( =C,HD GBPBr.t2JSrJtFr>P ]Cz/zKEG @ ݢG"6C/aJXKG? 0@ B2.2J%F tG.{tJUJF> "`B@Zk = B@Zk H @.JFGF ."r7KQ7J2F7> "TGPBXb@Zk X""TGPBXb@ZkB@Zk4G ==}.J` =.JإF 0C ]Gb/`J[bK`Gb?=! =GG(]0]8@#k#~^ ^(GG4G GTG0B8b@ZkCCG B(b@Zk8DGMG B(b@ZkD D=0B@Zk H @ ]}SBBTF"@"C/KF=Gy/aJ[yKaGy?GTG0B8b@ZkCG B(b@Zk8D G]@ @bsB BtF`"=TGBb@ZkGG] ](0#k#~^G (;"TG0[8{@ZkCG] #k#~^G C;a4G_"G[{@ZkCG] #k#~^^ GG  @`4G_"GBb@ZkC= ]1QB ="4GBb@Zk GG]] 0#k#~(^0^8~@GG  88"" B@Zk" B@Zk"0""]tG B(b@ZkHbc 4G@BHb@ZkGG B@ZkH".! VJ>"1"HBR"HbH"H"G0B8b@Zk`, @`HH9 @ 0,"A0H'H]/@ B2.R"2J$Ft."tJ."w5JVJF>"/9#XKK9 C b[/{#Z[KGK]OC@`, `HD".! JBr.R"tHSrJtFr>|"0""BR"tG B(b@Zkd"0""BR"tG B(b@Zkl"0""BR"tG B(b@Zkt"0""BR"tG B(b@Zk"0""]"tG B(b@Zk "1"B ]r.R"RrJGJ2AJ B ]ݢ"ݲ#]b{#[C @},c @HH H = @ " _"B ]ݢ F ""TGBb@Zk4G4GBb@Zkbc",! H`@.JDB2.R"Q2J'J1&Bt."StJgJD5¦֢"`""8BtG B(b@ZkGG(]0]8}@P#k#~ ^(^0~8GG @ , HG?D1 0 HHTGBb@ZkC=]2B}03tB0C .J.xqJWJF> =0 C =}`C=!'H'H4G B(b@Zk.qHPJF>]0@B] G ](]0}8@#k4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4 G DECC$EXIT4b# DECC$EXIT4 @ DECC$EXIT4 G DECC$STRLEN4 @ DECC$STRLEN4 8G@ DECC$STRLEN4 <@@ DECC$STRLEN4 G DECC$STRLEN4 @ DECC$STRLEN4 GSTR$MATCH_WILD4b#STR$MATCH_WILD4@STR$MATCH_WILD4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G DECC$GSCANF4b# DECC$GSCANF4@ DECC$GSCANF4 G DECC$EXIT4b# DECC$EXIT4 @ DECC$EXIT4G  DECC$TOLOWER4b# DECC$TOLOWER4@  DECC$TOLOWER4 XGd DECC$EXIT4\b# DECC$EXIT4 `@d DECC$EXIT4G CLEANUP_DIRE4b# CLEANUP_DIRE4@ CLEANUP_DIRE4G( DECC$GPRINTF 4 b# DECC$GPRINTF4$@( DECC$GPRINTF4LGT DECC$STRCPY4P@T DECC$STRCPY4`Gl DECC$STRCAT4db# DECC$STRCAT4h@l DECC$STRCAT4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4G  DECC$GPRINTF4b# DECC$GPRINTF4@  DECC$GPRINTF4 PG\ DECC$FCLOSE4 Tb# DECC$FCLOSE4 X@\ DECC$FCLOSE4 dGp DECC$EXIT4hb# DECC$EXIT4 l@p DECC$EXIT4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4 G DECC$FCLOSE4 b# DECC$FCLOSE4 @ DECC$FCLOSE4 G DECC$EXIT4b# DECC$EXIT4 @ DECC$EXIT4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF4 G DECC$FCLOSE4 b# DECC$FCLOSE4 @ DECC$FCLOSE4 G DECC$EXIT4b# DECC$EXIT4 @ DECC$EXIT4G DECC$FREAD4b#@ DECC$FREAD4@ DECC$FREAD4G DECC$GPRINTF4b#@ DECC$GPRINTF4@ DECC$GPRINTF4 G DECC$FCLOSE4 b#@ DECC$FCLOSE4 @ DECC$FCLOSE4 G DECC$EXIT4b#@ DECC$EXIT4 @ DECC$EXIT4G OTS$DIV_I4b#@ OTS$DIV_I4@ OTS$DIV_I4G OTS$DIV_I4b#@ OTS$DIV_I4@ OTS$DIV_I4`Gl OTS$DIV_I4db#@ OTS$DIV_I4h@l OTS$DIV_I4|G DECC$GSPRINTF4 b#@ DECC$GSPRINTF4@ DECC$GSPRINTF4G DECC$CREAT4b#@ DECC$CREAT4@ DECC$CREAT4G OTS$DIV_I4b#@ OTS$DIV_I4@ OTS$DIV_I4G DECC$GSPRINTF4 b#@ DECC$GSPRINTF4@ DECC$GSPRINTF4 G DECC$CREAT4 b#@ DECC$CREAT4 @ DECC$CREAT4< GH DECC$GPRINTF4@ b#@ DECC$GPRINTF4D @H DECC$GPRINTF4 G DECC$GSPRINTF4  b#@ DECC$GSPRINTF 4 @ DECC$GSPRINTF4  G DECC$STRLEN4  @ DECC$STRLEN4! G DECC$WRITE4" b#@ DECC$WRITE4! @ DECC$WRITE4 G DECC$CLOSE4 b#@ DECC$CLOSE4 @ DECC$CLOSE4@ GH OTS$FILL4D @H OTS$FILL4!| G DECC$WRITE4" b#@ DECC$WRITE4! @ DECC$WRITE4 G DECC$FREAD4 b#@ DECC$FREAD4 @ DECC$FREAD4 G DECC$CLOSE4 b#@ DECC$CLOSE4 @ DECC$CLOSE4 G DECC$GPRINTF4 b#@ DECC$GPRINTF4 @ DECC$GPRINTF4  G( DECC$FCLOSE4  b#@ DECC$FCLOSE4 $ @( DECC$FCLOSE4 0 G< DECC$EXIT44 b#@ DECC$EXIT4 8 @< DECC$EXIT4P G\ DECC$GPRINTF4T b#@ DECC$GPRINTF4X @\ DECC$GPRINTF4 h Gt DECC$FCLOSE4 l b#@ DECC$FCLOSE4 p @t DECC$FCLOSE4 | G DECC$EXIT4 b#@ DECC$EXIT4  @ DECC$EXIT4 G DECC$GPRINTF4 b#@ DECC$GPRINTF4 @ DECC$GPRINTF4  G DECC$FCLOSE4  b#@ DECC$FCLOSE4  @ DECC$FCLOSE4  G DECC$EXIT4 b#@ DECC$EXIT4  @ DECC$EXIT4 G DECC$GPRINTF4 b#@ DECC$GPRINTF4 @ DECC$GPRINTF48 GD DECC$GPRINTF4< b#@ DECC$GPRINTF4@ @D DECC$GPRINTF4# G VMSMUNCH4$ b#@VMSMUNCH4# @ VMSMUNCH4 G DECC$STRCPY4 @ DECC$STRCPY4' G DECC$STRCHR4( b# DECC$STRCHR4' @ DECC$STRCHR4'< GH DECC$STRCHR4(@ b# DECC$STRCHR4'D @H DECC$STRCHR4) G DECC$STRNCMP4* b# DECC$STRNCMP4) @ DECC$STRNCMP4 G DECC$STRCPY4 @ DECC$STRCPY4 G DECC$STRCPY4 @ DECC$STRCPY4+ G DECC$STRRCHR4, b# DECC$STRRCHR4+ @ DECC$STRRCHR4 G DECC$STRCPY4 @ DECC$STRCPY4 G( DECC$STRCPY4$@( DECC$STRCPY 4 G( DECC$STRCPY4$@( DECC$STRCPY4 4G< DECC$STRLEN4 8@< DECC$STRLEN4G DECC$STRCAT4b# DECC$STRCAT4@ DECC$STRCAT4G DECC$STRCAT4b# DECC$STRCAT4@ DECC$STRCAT4 G DECC$STRLEN4 @ DECC$STRLEN4/|G DECC$MKDIR40b# 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_ADDR4 G DECC$STRLEN4 @ DECC$STRLEN4/`Gl DECC$MKDIR40db# DECC$MKDIR4/h@l DECC$MKDIR<-|GCMA$TIS_ERRNO_GET_ADDR<.b#CMA$TIS_ERRNO_GET_ADDR<-@CMA$TIS_ERRNO_GET_ADDR4G DECC$GPRINTF4b# DECC$GPRINTF4@ DECC$GPRINTF41$G0 DECC$FOPEN42({# DECC$FOPEN41,@0 DECC$FOPEN4|G DECC$FREAD4{# DECC$FREAD4@ DECC$FREAD4G DECC$FREAD4b#  DECC$FREAD4@ DECC$FREAD4 G, DECC$GPRINTF4$b#  DECC$GPRINTF4(@, DECC$GPRINTF4G DECC$STRCPY4@ DECC$STRCPY4G DECC$STRCPY4@ DECC$STRCPY43G DECC$GSSCANF44b#@ DECC$GSSCANF43@ DECC$GSSCANF45G DECC$CTIME46b#@ DECC$CTIME45@ DECC$CTIME4G DECC$STRCPY4@ DECC$STRCPY4,G8 DECC$GSPRINTF4 0b#@ DECC$GSPRINTF44@8 DECC$GSPRINTF43HGT DECC$GSSCANF44Lb#@ DECC$GSSCANF43P@T DECC$GSSCANF43lGx DECC$GSSCANF44pb#@ DECC$GSSCANF43t@x DECC$GSSCANF43G DECC$GSSCANF44b#@ DECC$GSSCANF43@ DECC$GSSCANF43G DECC$GSSCANF44b#@ DECC$GSSCANF43@ DECC$GSSCANF43G DECC$GSSCANF44b#@ DECC$GSSCANF43@ DECC$GSSCANF4G DECC$GPRINTF4b#@ DECC$GPRINTF4@ DECC$GPRINTF t4 G DECC$EXIT4b#@ DECC$EXIT4 @ DECC$EXIT43XGd DECC$GSSCANF44\b#@ DECC$GSSCANF43`@d DECC$GSSCANF4'G DECC$STRCHR4(b# DECC$STRCHR4'@ DECC$STRCHR47hGt DECC$TOUPPER48lb# DECC$TOUPPER47p@t DECC$TOUPPER =(tar: error reading tarfile.  =(tar: EOF hit on tarfile. @=8+ ---> %s p=(tar: error creating %s = %s (y/n/q/a) ? =(tar: error opening tarfile. =0" --> %s =(tar: error writing file %s =0#tar: unexpected EOF on tar file. 8=H:*** This file is a link to %s tar: error creating %s x=(tar: error reading tar file. =0# %s =(tar: EOF hit while skipping. =0'tar: directory checksum error for %s =$%2.2s-%3.3s-%4.4s %8.8s.00 = 0 ;=7DECC$GA___CTYPE7EXTRACT0 DECC$TOLOWER DECC$GSCANF DECC$STRCAT DECC$STRCPY;7LINKNAME;CREATION e5@;7NEWFILE DECC$FCLOSE DECC$STRLEN7 NEW_DIRECTORY DECC$EXIT7TEMP=0@ L;=` ; DECC$GPRINTF;7PATHNAME7OUTFILE7HEADER7THE_WAITPSTR$MATCH_WILD ;;=%6o %8d %s %s  CLEANUP_DIRE@;;=%s7LIST= rat=cr%s %8d%c%s 8OTS$FILL= rfm=fix7BINMODE DECC$FREAD7 VMSCREATION DECC$CREAT DECC$CLOSE OTS$DIV_I=0P ;=p 7BUFFERp DECC$GSPRINTF=alq=%d! DECC$WRITE7 DATE_POLICY= mrs=5127AUTOMODE7VERBOSE#VMSMUNCH8 OTS$MOVEM= rfm=stmlf=mbc=16=0(  ;=@ ' DECC$STRCHR) DECC$STRNCMP=./H7CURDIR7DOT=]``;p+ DECC$STRRCHR=0 H;=0 -CMA$TIS_ERRNO_GET_ADDR/ DECC$MKDIR=0 ;= 7TARFILE=rb1 DECC$FOPEN=0 L;= =0 ;=0 =0( P;=P 3 DECC$GSSCANF=%ox=5 DECC$CTIME=0 ;=@ 7 DECC$TOUPPER; z=(!@#%^&*()+=|~`[]{}':;<>,?\" =&__$______X___________________ ==-%$TAR2VMSDEC C V4.1-001 O=KC=8&d*c$$INST:[LEVITTE.WRK.VMSTAR]TAR2VMS.C;8 O=KCB=+$hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STDIO P=LDC>_”hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STDLIB P=LDC>kƔhl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STRING O=KCB=^“hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2ERRNO O=KCB=Pehl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2CTYPE N=JBA<K˔hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2TIME P=LDC>Ӕhl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2UNIXIO O=KCB= +$hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STDIO N=JBA< c.hl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2STAT Q=MED? ߓՔhl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2UNIXLIB Q=MED? Zhl$SYS$COMMON:[SYSLIB]DECC$RTLDEF.TLB;2DESCRIP 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 R=NFE@R0c,INST:[LEVITTE.WRK.VMSTAR]VMSTAR_CMDLINE.H;14 I=E=<7 /c#INST:[LEVITTE.WRK.VMSTAR]VMSTAR.H;8 K=G?>9(ɗ>%INST:[LEVITTE.WRK.VMSTAR]VMSMUNCH.H;2 J=F>=8=$INST:[LEVITTE.WRK.VMSTAR]VMSTARP.H;4 I=E=<7 /c#INST:[LEVITTE.WRK.VMSTAR]VMSTAR.H;8 P=  }    }, -     d f |  }   qk 7   2 3  $  %     i j a   * #! " B! C J *t " K 4= mode 4= uid 4= gid 4=*" bytecount char e4=  e4=@8_iobuf _cnt _ptr e4=@_base e4=SK`_flagh_filep_pad1x_pad2 e4=  k e4= 4=tarfp z e4= 4=E=linktype.  VMSCREATION4= vmscreation  e4 y= 44= __iscntrl4= g< $= 4 = __c := <4= L = L44= tar2vmsL4=     0  $= p4 $=! <argc e4=  ) e4= 8argv 8 e4=nf4status0 file_type ,j (flag $argi process 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 := 4=  ,= 4@4=copyfile4= 3  U U U U S a=ؼ  $= @4 <=  e4=!<outfile  e4=8nbytes4inbytes 0fil ,s (i$ctlchars eightbitchars nchars c e4=  e4=7/ VMStimbuf@actime e4=! modtime e4=! vtb e4=binfile .=  H4=  l=LD.  @alq 3e4 = l .=  4=  l=LD.  @alq e4 = l :=  4=  =  44= scan_title 4=\TS $ 0  $=  4 =  e4= $line re4=  e4= dire e4=  e4=fname e4=  e4= end1 e4=;3 len len2  i ind := ,4=  = H44=make_newH4=2*)    $= h4 =  e4= want e4=4,status created e4= dotp e4 := 4=  x= 44= opentar4= F $= 4 k=  k e4= fp ne4 := 44= H y= L44=hdr_readL4= P $= d4 =  e4=  buffer e4= stat := 4= X = 4 4= tarskip4=' \ d $= 4 &=" bytes i := 44=  = P4@4= decode_headerP4=SKJ nȄ$ $ ,  $= p4 '=80 idate unsigned long *e4= bintim @e4=>6chksum value ll e4= ptr e4 := d4= 4 = 44= vms_cleanup4=-%$ <  $= 4 =  e4= string #e4=7/ i  flag c e4= p re4=<4. 4=badchars e4=<4.  4= translate e4 := 4= 4 =