$(~NOPE.BCKNOPE.BCK;BACKUP/LOG [.NOPE...]*.* USER_DISK:[ANONYMOUS]NOPE.BCK/SAVE BRODIE df@V6.2 _FPSVX1::  _DPA1006: V6.2 ~ 6*[NOPE]FREEWARE.RELEASE_FORM;3+,= . / 4P -0123KPWO56vE @76m @89GHJ Release Form= OpenVMS Freeware CD Release Form6 -----------------' DEVELOPER RELEASE FORM:K As the owner/developer of this software, I release it to beD included on the OpenVMS Freeware CD-ROM. I expect noJ renumerances or payments for the use of this software from/ Digital or Digital's customers.K _______________________? Thoas Bodoh> Hughes STXM bodoh@edcmail.cr.usgs.govB Kent C. BrodieP Medical College of WisconsinF brodie@cpg.mcw.edu*[NOPE]FREEWARE_DEMO.COM;4+,A . / 4# -0123KPWO56Սb @7A@89GHJ $ set noon#$ olddir = f$environment("default")$ mydisk = f$trnlmn("SYS$DISK")!$ workdir = mydisk+f$directory()$ cpu = f$getsyi("arch_name")$ nope := $'workdir'nope_'cpu'$ nope sys$login:*.*$ set def 'olddir'$ exit*[NOPE]FREEWARE_DEMO.TXT;1+,B . / 4K -0123KPWO56@76W=@89GHJ NOPEC Nope was born out of the need for a way to see what files would beHpurged if a purge were done, and also show how many blocks would be made5available. Nope should be set up as a symbol thusly; NOPE :==$disk:[dev]NOPE ---------KIf you are running this from the freeware MENU, then NOPE will be executed,Iand show you what files would be removed, *IF* you purged your SYS$LOGIN:+directory. [Note: NO FILES ARE REMOVED.]*[NOPE]FREEWARE_README.TXT;1+,< . / 4U X-0123KPWO 56i @7q=@89GHJHNOPE,System Management,Show files that WOULD be purged if $PURGE is done NOPEC Nope was born out of the need for a way to see what files would beHpurged if a purge were done, and also show how many blocks would be made5available. Nope should be set up as a symbol thusly; NOPE :==$SYS$MANAGER:NOPE; Note that Nope may reside in any directory and requires noGprivileges as long as the files to be referenced are not read protectedfrom the user.= Nope works with the same file specification syntax as purge;" NOPE Look at current directory, NOPE [...] Look at current directory tree0 NOPE [*...]*.OBJ Look at all .obj on this diskF Nope lists directories as it checks them, but if you specify any partMof the filename or extension (*.obj, check.*) it only lists those directoriesIthat contained files fitting that specification. Nope also gives a grandHtotal at the end, including the number of files that would be purged and3the number of allocated blocks that would be freed.= Nope has come in very handy in determining whether we shouldKschedule a global purge on our user disks. Also, about the time you decidePto blindly purge a directory, you may find yourself in the wrong directory. TheMreason for the name Nope is that it is a subset of the words NOPurgE and alsoNI wanted to make it very different from PURGE (somebody suggested NOPURGE, but2sometimes my fingers think faster than my brain!).F I hope that DEC will see this, and will somehow incorporate a similarfunction into DCL.P********************************************************************************P* DISCLAIMER * DISCLAIMER * DISCLAIMER * DISCLAIMER * DISCLAIMER * DISCLAIMER * C Neither I nor the U.S. Geological Survey assume any responsibilityKwhatsoever for any use, misuse or abuse of this software. This software isKprovided with the intent that system managers will use it wisely to enhancetheir systems.P* DISCLAIMER * DISCLAIMER * DISCLAIMER * DISCLAIMER * DISCLAIMER * DISCLAIMER * P********************************************************************************G EROS stands for Earth Resources Observation Systems and is not relatedJin any way with the skin mag of the same name. We are a government agencyKwhich primarily archives, enhances and sells products utilizing LANDSAT andother remote sensing data.8 Written and submitted (to the DECUS SIG collection) by: Thomas Bodoh U.S.G.S. / EROS data center Mundt Federal Building Sioux Falls, SD 57198 (605) 594-6830U============================================================================= May, 1997:HSubmission note: I've resurrected this nifty utility from the "VAX87C"HFall 1987 VAX SIG DECUS tape. It's a tool that I still use today, andquite often I might add. EI've successfully recompiled it under OpenVMS/Alpha V6.2-1H3, and the/original .EXE still runs under OpenVMS/VAX 6.2.GI've received permission from Tom to post this on the Freeware CD, withthe following notes:FA) Tom cannot in any way support this package (see original disclaimer0 above), as he no longer uses VMS systems, andFB) Tom now works for Hughes STX, not the USGS as noted in his originalI README file. (for reference, his addr is bodoh@edcmail.cr.usgs.gov)Enjoy.OKent C. Brodie - Systems & Network Manager Internet: HMedical College of Wisconsin MaBellNet: +1 414 456 5080NClinical Practice Group (http://www.cpg.mcw.edu/www/staff/brodie.html)@ "Keep your hands and feet inside the ride at all times..."*[NOPE]NOPE_ALPHA.EXE;1+,, ./ 4 -0123 KPWO56?7v :@89GHJ h(?0@@  $?NOPEV1.0A11-20$ $ $J $( 8 DECC$SHR_0014& LIBOTS_001@4}SYS$PUBLIC_VECTORS_001%-30s %d G`&0''0"p F @'&%s*.*;* %s @008"P  %d total blocks in %d files Error %d on close Error %d on open %-30s Error %d on search Error %d on parse # "~8^@^HcG0[#CGC>C8{4G>޶9wZk(=0Pb# @ӀBbG4GUZkcG8]@]HP#kG#'~"^4G^ ~(08޴@HP>X^`>GGPGx!8H[GEG0@>`"BZkt>B"G!v?HGBZk8@Bt>"CbGd^>C޲8`D@@Zk==`1H_&1?JB&2DF=D"#E"GBZk$=$B"b!v HC @$<C`TGK@ZkÀB} N@bCtG LZkB bC4G@ZkDBCb4GDDhAZk b BG(bGp@TG[EZk0B8bG4G|TZk$GGGGʂ BCb4G[AZkD B(b G BGTG@EZk0BG8b4GaTZk]G"p@IpHCC.PJ>=r.?FSrJr> .0BJ"FxFGU/G0 CUK" @KGxGG9D@U-GUI_G(BB]"b #A CG @CGtG\Zk$@B= HbCGGtG\Zk C@B} Hb ,CGtG@ H < C\ZkC BB!A. (bCCRAJA>TGGDZkGB A bGC%DGtGb\ZkYB= bC4G-@ZkD]BDbC _E DD4G@Zk G!?$! D`B ="  BhbCGTGP[Zk B0@(bGTGDZk0@^G BTG(b@DZk0B8bG4GSZkBCb4Ge@Zk " G BG(bTG$@DZk0BG8b4GSZk`B hbCGTG"[Zk B*R@ ]0@(bGtGDZk ]0@@,@B HbCGGtG(\Zk CG ,@ H < BGG(btGgDZk0B8b4G4GSZkG]]4G }(08ݤ@HP=X]`p#kTX@`P` : P`pp 0 0 @DECC$SHR@LIBOTS@SYS$PUBLIC_VECTORS! NOPEDEC C V5.5-002TRANSFER$BREAK$GOmain O O O O O c O  O W  d d g i h f j k k n k p n n k o m w w u {                                      _       < @__main8 *[NOPE]NOPE_VAX.EXE;1+,.Q/ 4QO-0123 KPWOO5 6 Yj7$:@89GHJD0DX0205(N hD NOPEV1.0N04-007 ABB C ?@!d FORRTL_001!  LIBRTL_001Y       N *.*;*.*;*.*;*/sys$disk...*;*.*;*DIR.DIRP`D ,,LX $*.*;*%sError %d on parse Error %d on search %s %-30s Error %d on open Error %d on close %-30s %d %d total blocks in %d files DCLMCRSHELLerror 0not ownerno such file or directoryno such processinterrupted system calli/o errorno such device or addressarg list too longexec format errorbad file numberno childrenno more processesnot enough corepermission deniedbad addressblock device requiredmount device busyfile existscross-device linkno such devicenot a directoryis a directoryinvalid argumentfile table overflowtoo many open filesnot a typewritertext file busyfile too largeno space left on deviceillegal seekread-only file systemtoo many linksbroken pipemath argumentresult too largeI/O stream emptySYS$LOGINSYS$COMMANDSYS$DISKLNM$FILE_DEVPATH=HOME=TERM=USER=PATHHOMETERMUSERft1-132ft1-80ft1ft2-132ft2-80ft2ft3-132ft3-80ft3ft4-132ft4-80ft4ft5-132ft5-80ft5ft6-132ft6-80ft6ft7-132ft7-80ft7ft8-132ft8-80ft8la12-132la12-80la12la120-132la120-80la120la24-132la24-80la24la34-132la34-80la34la36-132la36-80la36la38-132la38-80la38unknown-132unknown-80unknownvk100-132vk100-80vk100vt05-132vt05-80vt05vt100-132vt100-80vt100vt101-132vt101-80vt101vt102-132vt102-80vt102vt105-132vt105-80vt105vt125-132vt125-80vt125vt131-132vt131-80vt131vt132-132vt132-80vt132vt173-132vt173-80vt173vt52-132vt52-80vt52vt55-132vt55-80vt55vt200-132vt200-80vt200undefinedLNM$FILE_DEV SHELL$FILE_ D T d     # $ 5 J̄*55Q$5d,5 |Ą45<5DD5L5 T5  \5 D  Ԅ  d5 $  l5 t5|5l@AHr555  5(5555Ā5̀5Ԁ5܀5PD55\555 !!!!!̂!! 5!""Ă"5"5#  x |  2DT`r%9M^m|#^+W(g(P{(`LؐL5PXVPN(P#(Ѭf5ߧݼ 45P0PSˏSRRSߧ SZZUY[HPSˏSRR!Sʂ1SߧSWSCOSCRB%B]RVB;VRX RB۞FTVZVRPZRRT6PDXUXT|4HVZVc4Fߧ01PXUXRPURRT5P13P0PSˏSRRAS#]~3PPߧ5YY1SߧIGSPSˏSRRSߧ[S ]~ 3PPߧnY [1(XUXTL3H1PY[ߧxFPVAXC$EXECMBX .LNM$PROCESSԬ>m^^S|~S~~^S߯ ~^TcdяPM|~?xdPP P@<]dq2P P@^l@4P\<^ n^S|~߮~~^T|~d ЎR|~^T|~|~Rc|~dϗP[~ZjBP[j@ݬ ݬݬϵЏ5P1ѭ  ЏL5P1~>nYЫXYP0 ^^SYR0Oi Џ~|~S~~P~~߮~~^Q ~^Tad~^ZvЬTЭU~~T\XPQTNU/P TU^TUVV^(Ud([nnV~^T] ~^R|~߮~~^V|~fb<~PяBnS1 )~^SXϧ~~~~ZS~T 2jPU ~^TdUPPЫ PЏ\5P109^^U nR^S0P1Zn[k[1WnSZGV5*4RIUeUTVDRTU[TW R* %HZ P%ƅPP(P&c^SR^S0hP1W1tIP76РРy[nkZZR^S0#PCZn[kkךZЬ [0@PZЬ[03P nR^S0=P4P ,ШPRR^nSЬT|~|~Rc|~<1~< ~ ʏ< ~T |~ݏݏݏ?`PPPը ߨ]P[P03-!`PР P] ^]PP`ݠݠP(ЎPРPlЏL5P1[k9kZ Z[l լЪݪjkZv(ЎPЏT5P1\Pf'PP|~߮S~ ~@~^T|~d: VPPVVZ VnVZVZZn0nZɔkЬPЏL5P0[甼PЬWP0 g0m Pg֧PЬWP0 0PP֧g,P߬ l~n ߬l~n0 1ЬUЬRSVSrVSw Sa1b+VP0>HЭZYЭ\0 1HSwhP#Sa}TTUƨ,i[ .g0#[ [8Ч$ i0  P, [$'Z(!<(PPZTT(PS,nTc, ZVgZ0[x [[Z[P0 iPP0 0 ЬUVP0ՎYЬPPP3P0 Ш,045ǂVЦ  h0PJӏ4 ӏ4 Џ5P1E:Tæ HUUTЦ U}T~^R~l>n~l>nYY~l> nRQP0ЎP0 P0?}UʏVP0l;Ь P gPY0L Yl@NlZZެ\0y @hP>ˏQя Q Џ5P1ӏQhP)P0KЎP0 яPӏ Џ5P1Ph,3/*Z ZPZP0tWP0)^^[߬ݬ[|%P PZ0JЎPPW1,WP0}5Ь[ЏZ:Zk Џ5P0* [QZ0[Z0PZЬWP04Ь~^[0ЬP0  ,P0 0 Z P@9 *h0M,h02<6R)@<=k4ϊV0zP)VY" ZԺ ^ A 0Џ5P0[0PkVFV<UUV(WhWP[ kQkR0R R QRQPVFV<UUV "ӏQQfӏQQfQfPP[0] V0P&UEU<TTUSSe,kPkP[0' V0iPUEU<TTUePkPWXV k[k),k$=k?WWUaU zUUUW vWP-Wh  fPPVPPQAQQ iPQAQQiPQAϻQQiQiQяzPW# ,QPPp$QW QP0IWZѬZ1k[ZZJ[kWާ2XYZ~PQ{ PPQ0Q~PCP*P'PZPRZPQPR P1lЏL5P0,<P0PZ,jjШ(U |~?jP0XʓX $X(<hХ$(ЎXUUPЏ 4`U|~ߪ$|~,<2~~NOPE.BCK[NOPE]NOPE_VAX.EXE;1Q2X# PЧ<gP0ЏPѧ $,çQQ(<(Q,QP,<ЧR,gPAb<"Ч(Ч 8iя P i0,}U~>?TV,TVTU ЏP1TP.1 EU12~T^, EUn1U1f f ;,%, ~}U~ޮVU0}UT}U~1f  ,1JPf P1Q+Q, Q,E  ,U:E U/,'Q1P Q $QQ EU1_Q~P (UfVSUfJ@E@xUTT^^S, R R RU S,^V^SUT^1~U"V(ˏ@Sя@S,iQ@i?VUVVVV<(SVS SPP( SPP$T^}Uя P i0), P` çPP6P ,nPSЧ QçP PQQ$Q$(P(P(ZQ0>}PZŬQQ0%}P}PWXԭ|~|~ݭPRR ݭx߭K;RREG|~c;я|P cݬ:ݬ:RP?ݬ: ^Rԭ:\P\\P}PRQRPRPЬQ:aìQP|}SV:dVTQR (RdcQTVcЬP}SVЬ WD:dVTQRRWWRVRW(RdcQTVЏVVWWV ,nVcVWЬP|}QV:aQS:bVRQP (PbcQRVcЬP}QЬ W5V:aQS:bVRQPPWWPPW(PbcQRVڔcЬP<^,nnUЬQ6ЬR :a&P@nQT:dUTQ*QdnUìQP<^,nnUЬQ6ЬR :a&P@nQT:dUTQ+QdnUìQP|^,nnUЬQ.P@nЬQQT:dUTQ*QdnUQP Ь S}QP P SPbPPPx^İͤ>ԭа԰ޭ>ܰޭ>ޭ>ԭe e(̤ЭȤPФRb<RRR|~?ɿPP)|~|~2﫿~ѽ؏B 22~PRRԤRSRPc֤Հ 1@P P`PݴߧDP ߧIФ RPߧNФ RPߧSФ RP 1D<~PԭЬTT,PSPPIPRb3STbPbSQa=QPQP`=QPRbͰSЬސܐ<~PRRڟP2P@bRRPR⟭⟭P  ^߭AнSЬRRݏ5PS,Ь Q&RBP`aBP`BP`S1ЬR1bSѬE4=S$RBFRb S QP QSЬPCR`bCRРbCRРbQ P^﨤RϤ RP^sWЬSSRRRRaVSYS kTVeT`VJRP RTP@:QaS@3P`UaR S USxVPPVTVTWP^ݬEȣﻣݏ$5P^߭нQQЬP|`yQмgPЬQѡ\5< PЬP} pPP~ݏd5}P~ЬP}n p}nPѠ0] `~P~PQЁP}R}T}V}X}Z}\Ё^}P~}P}PѠ\5 Р RѢ0< PRRԱݠpP1Sս ~ ЬPԀ}R}T}V}X}Z}\Э|PBP xPPP8ЬPЬ`)~P~հ0[0ݏ\5<l^T]P^QR0լ+#ЬPՀ} p}pmpʏPQơ}]ǡ}P]Ь STRcSݬݬPRc}]RPPPPPPPl լPaX`^,n^P`RЭP`RPxR~nhPW>RWЭVf*:QfQRhPg(RWVPPYX$^,n$ ЬV:fQVQV,nnn(iPW1&HC>,nPPƐϞPVܞﰖ:fQVQ<,nPPƐϞPVܞw:fQVQ,n`P`PR,TZP\0PWhP hGRHP.SP@,S,iP RPPşhRPP|VP^,nPPƐϞPЬܞ:QQ,n`P`PZf\0PRR[P@fn\ RfPPЬQС(Pՠ04Q0W^,n$܈:QìQЬ,nnn;PV/V&g:fQVQQQ (QfgPVPP ЬPР RSbcՠb_YP~PJcPQcccbP. .b0bbQ.bbP/bQPP ^Ь R]> .b/brPbPPnnb~P/bSn:.nQQS/cSbPPnSbbS:]ncQQb :>ncQQbPЬXШ W[gVЬZZYZ/gY1ZZ Z.ШYZk(  gkkkk/cZ ШYkk k/g.BZ@1ШYkkk k/g.g.gYk k0gPPgPYPPI(YYgZ!g*VQQgYY:%YfQQ?aQVPPYQVZkPPЬ P/`.`.`PЬ PQaa/`.`.`.`aP\_\S\G\ ;\@~-\<~\ P`P P`P [^,n$0,n0lլYЬYPѬPPZЬVTWS|QP.PPPSR/P/PQQ1RSЬVTW, |$$$(ЏЏЏ04Q8W<Po  8P1   1[,,$T$PTP- >  .,,$T$PTPH,U- -e$-.e,VWB.,,dT1    Y,PPX  ..`[`,  .,,( ,<PP,],,Z~,nPPƐϞP؞ܞ>PP,,n`P`PRPTZP\0PRR,$k1X, 1   Y1,P.,],,VW .,,VW ,P% .,, I ',Q.,,PQPa* *,,.,,VW$N   $k1e,nPPƐϞP؞ܞﺍPP,,n`P`PRPTZP\0P$kd1  #,$k6PWHP|SP(PTnSP@PYYY W~P*.RYWR PP P'WRPݬPSP(PnT1f$kWPPkXWά^,n0nT, |n$$$(ЏЏЏ,n$004:QìQ8ЬS8SSQ[5Q%ܑQ?׊QQSVVVTXRdPdTVRXQQWWQQ]ȑQ-#QӑQ]S-QSSW͑SQ QQSQQ]1WP-^- ZP).;!.; ::"":[<]>z.h-9*.]>.$-]&>"-.]>.]>[<]>jx.-".]>DR.--.]>*,- -*% p/1/hD.o;"n.} ;u@" !"".( ./*- -*?[]-eVAXCMSG@@8@HH@( x0HP @FORRTLLIBRTL NOPE main 7  SHELL$FROM_VMS2lSHELL$FROM_VMS 2l XT8mSHELL$$RMS_PARSE m (PnTERMINATE_PARSE Pn @   pnSHELL$TRANSLATE_VMS pn o -n TRANSLATE_VMS n 7&~ro DEFAULT_DIR ro <%p COPY_TOKEN p t@ :Kq INSERT_MINUS Kq E*uq DOTDOTDOT uq t2q NODE_ACTION q    q DEVICE_ACTION q   q FILE_ACTION q   q TYPE_ACTION q   qVERSION_ACTION q : qDIR_TOP_ACTION q _ q DIR_ACTION q   rSET_WILD r r SET_WILD_PCT r CLI$DATAr~ _LIB$KEY0$r~ _LIB$STATE$tCLI$READ_ONLY_DATA2lCLI$CODESHELL$CLI_NAMEHshell$cli_nameIshell$is_shellEQ oH  SHELL$TO_VMSr SHELL$TO_VMS r >\  G J   v   wSHELL$$VMS_FILE w ѹA b e  'y SAVE_NODE 'y !,SySAVE_DEV Sy 4#vySAVE_DIRECTORY vy _?7$z SAVE_NAME $z ;z SAVE_TYPE ;z &  _z SAVE_VERS z ]z SET_FILETYPE z zSET_REGULAR_EXP z zSET_WILD z z SET_VERSION z zCOPY_STR z K,!{FREE_DIRECTORY_DESCRIPTORS { ,{ MATCH_REGEX { A' F ||MATCH_SUBSTRING || P $'Q|PRUNE_FILESPEC | O%m} FIND_LAST_DOT m} ".}TERMINATE_PARSE } P    CLI$READ_ONLY_DATAr~ _LIB$KEY0$ _LIB$STATE$rCLI$CODE  . ABS . C$DATAC$$MAIN#Lc$$mainP expand_bufferR lowercase/R get_paramsq)Sget_terminal_typeQzU c$$ctrlc_handoU c$$cond_handUy #L0y " y  'y! "& C$$TRANSLATEb c$$translatef bC$GETENV cgetenvM cC$SIGNAL ddeclare_control_c_handlerD esignalessignal&egsignal'q d#! $  SHELL$CLINTkSHELL$GET_ARGV k 55k$CODE$SHELL$MATCH_WILD}SHELL$MATCH_WILD}CLI$CODEC$SIGVEC gsigvec-hsigblock5bh sigsetmaskisigpause4Bisigstack>y g*[NOPE]SRC.DIR;1+, . / 4 -0123 KPWO 56j7 @7@K @89GHJINOPE.C9 NOPE.OBJ_ALPHA+  NOPE.OBJ_VAX*[NOPE.SRC]NOPE.C;1+,9 ./ 4P V- 0123KPWO 56F: @7k @89GHJP/*******************************************************************************E* NOPE - Nopurge utility. NOPE was born out of the need for a way toN* determine which files would be purged if a purge were done. The user shouldO* define a symbol "NOPE :==$SYS$PRIV:NOPE" which will allow the user to use the* NOPE utility thusly;* NOPE (same as NOPE *.*;*)(* NOPE [...] (same as NOPE [...]*.*;*)5* NOPE *.C (examine only files with extension '.C')(* NOPE DEV:[*...] (examine entire disk*H* Each directory that has files matching the filespec are displayed, butL* only those files which would be purged are displayed. The allocated blockM* count is displayed for each file, and a total line is displayed at the end.*C* This program is an example of the use of the RMS routines $PARSE,O* $SEARCH, $OPEN and $CLOSE. First, $PARSE 'sets up' for the search. Then theM* $SEARCH is performed in a loop. Also within the loop, $OPEN and $CLOSE are9* invoked to determine file allocation only if necessary.*G* May, 1997: KCB: On AXP, this must be compiled with "/standard=VAXC"P*******************************************************************************/#include #include #include #include #include main(argc,argv) int argc; char *argv[];{4 struct FAB wild_fab; /* Used in wildcard search */> struct NAM wild_nam; /* Used in conjunction with wild_fab */? struct FAB size_fab; /* Used in retreiving file allocation */2 char template[] = "*.*;*"; /* Default template */9 char fullname[256]; /* Input file spec given by user */= char expanded[256]; /* File spec after logical expansion */, char result[256]; /* Result from search *// char last_name[256]; /* Last search result */ char last_dir[256]; char *pointer1;E int tot_blocks, tot_files, this_dirlen, last_dirlen, compare_namlen;7 int last_namlen, this_namlen, compare_dirlen, counter; register status;'/* Initialize the wildcard FAB & NAM */ wild_fab = cc$rms_fab; wild_nam = cc$rms_nam; wild_fab.fab$l_fna = fullname; wild_fab.fab$b_fac = FAB$M_GET; wild_fab.fab$l_fop = FAB$V_NAM; wild_fab.fab$l_nam = &wild_nam; wild_fab.fab$l_dna = template;' wild_fab.fab$b_dns = strlen(template); wild_nam.nam$l_esa = expanded; wild_nam.nam$b_ess = 255; wild_nam.nam$l_rsa = result; wild_nam.nam$b_rss = 255;#/* Initialize the size FAB & NAM */ size_fab = cc$rms_fab; size_fab.fab$l_fna = result; size_fab.fab$b_fac = FAB$M_GET;# size_fab.fab$b_shr = FAB$M_SHRGET;+/* First parse the file spec given to us */ argv++; if (argc == 1) strcpy(fullname,template); else sscanf(*argv,"%s",&fullname);' wild_fab.fab$b_fns = strlen(fullname);/ if (((status = SYS$PARSE(&wild_fab)) &1) != 1) {' printf("Error %d on parse\n",status); exit(status); }/* Main loop */> for(tot_blocks = tot_files = last_namlen = last_dirlen = 0;;) {1 if (((status = SYS$SEARCH(&wild_fab)) &1) != 1) { if (status == RMS$_NMF) break; else {* printf("Error %d on search\n",status); exit(status); } }# expanded[wild_nam.nam$b_esl] = 0;! result[wild_nam.nam$b_rsl] = 0;; /* Establish some pointers and counters for comparison */0 for (counter=0;result[counter] != 0;counter++) { if (result[counter] == ']') this_dirlen = counter + 1; if (result[counter] == '\;') {( this_namlen = counter - this_dirlen; break; } }" pointer1 = &result[this_dirlen];3 /* Compare directories, print if new directory */ if (this_dirlen > last_dirlen) compare_dirlen = this_dirlen; else compare_dirlen = last_dirlen;3 if (strncmp(last_dir,result,compare_dirlen) != 0) { last_namlen = this_namlen;+ strncpy(last_name,pointer1,this_namlen);! last_name[this_namlen] = '\0'; last_dirlen = this_dirlen;( strncpy(last_dir,result,this_dirlen); last_dir[this_dirlen] = '\0'; printf(" %s\n",last_dir); continue; } < /* Compare filename, print if this file would be purged */ if (this_namlen > last_namlen) compare_namlen = this_namlen; else compare_namlen = last_namlen;6 if (strncmp(last_name,pointer1,compare_namlen) == 0) {' size_fab.fab$b_fns = strlen(result);0 if (((status = SYS$OPEN(&size_fab)) &1) != 1) { if (status == RMS$_FLK) {# printf("%-30s\n", (strchr(result,']') + 1)); tot_files++; continue; }( printf("Error %d on open\n",status); exit(status); }1 if (((status = SYS$CLOSE(&size_fab)) &1) != 1) {) printf("Error %d on close\n",status); exit(status); }0 printf("%-30s %d\n",(strchr(result,']') + 1), size_fab.fab$l_alq); tot_files++;$ tot_blocks += size_fab.fab$l_alq; } else { last_namlen = this_namlen;+ strncpy(last_name,pointer1,this_namlen);! last_name[this_namlen] = '\0'; } }+ printf("\n %d total blocks in %d files\n", tot_blocks,tot_files); exit(SS$_NORMAL);}*[NOPE.SRC]NOPE.OBJ_ALPHA;1+,+ ./ 4<- 0123KPWO56?7RA @89GHJ@@NOPEV1.0 9-MAY-1997 09:41DEC C V5.5-002  $ABS$i$CODE$ $LITERAL$$LINK$$DATA$$BSS$ $READONLY_ADDR$ $READONLY$DECC$GA_RMS_NAMDECC$GA_RMS_FAB(JMAIN DECC$STRLEN DECC$STRCPY DECC$GXSSCANF SYS$PARSE DECC$GXPRINTF DECC$EXIT SYS$SEARCH DECC$STRNCMP DECC$STRNCPYSYS$OPEN DECC$STRCHR SYS$CLOSE(J@__MAIN DECC$MAIN DECC$EXIT DECC$$SHELL_HANDLEROTS$MOVE =# "~8^@^HcG0[#CGC>C8{4G>޶@Zk(=0Pb# @ӀBbG4G@ZkcG8]@]HP#kG#'~"^4G^ ~(08޴@HP>X^`>GGPGx!8H[GEG0@>`"@Zkt>B"G!v?HG@Zk8@Bt>"CbGd^>C޲8`D@@Zk==`1H_&1?JB&2DF=D"#E"G@Zk$=$B"b!v HC @$<C`TG@ZkÀB} N@bCtG@ZkB bC4G@ZkDBCb4GDD@Zk b BG(bGp@TG@Zk0B8bG4G@Zk$GGGGʂ BCb4G@ZkD B(b G BGTG@Zk0BG8b4G@Zk]G"p@IpHCC.PJ>=r.?FSrJr> .0BJ"FxFGU/G0 CUK" @KGxGG9D@U-GUI_G(BB]"b #A CG @CGtG@Zk$@B= HbCGGtG@Zk C@B} Hb ,CGtG@ H < C@ZkC BB!A. (bCCRAJA>TGG@ZkGB A bGC%DGtG@ZkY%3H~NOPE.BCK+  [NOPE.SRC]NOPE.OBJ_ALPHA;1 B= bC4G@ZkD]BDbC _E DD4G@Zk G!?$! D`B ="  BhbCGTG@Zk B0@(bGTG@Zk0@^G BTG(b@@Zk0B8bG4G@ZkBCb4G@Zk " G BG(bTG$@@Zk0BG8b4G@Zk`B hbCGTG@Zk B*R@ ]0@(bGtG@Zk ]0@@,@B HbCGGtG@Zk CG ,@ H < BGG(btG@Zk0B8b4G4G@ZkG]]4G }(08ݤ@HP=X]`p#k4$G\ DECC$MAIN4Db#@ DECC$MAIN4X@\ DECC$MAIN4lG DECC$EXIT4pb#@ DECC$EXIT4|@ DECC$EXIT4 G$OTS$MOVE4  @$OTS$MOVE4 (G@OTS$MOVE4 <@@OTS$MOVE4 DG| DECC$STRLEN4 Tb# DECC$STRLEN4 x@| DECC$STRLEN4 GOTS$MOVE4 @OTS$MOVE4G  DECC$STRCPY4b# DECC$STRCPY4@  DECC$STRCPY4G0 DECC$GXSSCANF4 b# DECC$GXSSCANF4,@0 DECC$GXSSCANF4 0GH DECC$STRLEN4 8b# DECC$STRLEN4 D@H DECC$STRLEN4PGp SYS$PARSE4Xb# SYS$PARSE4l@p SYS$PARSE4xG DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G SYS$SEARCH4b# SYS$SEARCH4@ SYS$SEARCH4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4 G DECC$STRNCMP4 b# DECC$STRNCMP4 @ DECC$STRNCMP 4G DECC$STRNCPY4b# DECC$STRNCPY4 @ DECC$STRNCPY4GD DECC$STRNCPY4b# DECC$STRNCPY4@@D DECC$STRNCPY4HGx DECC$GXPRINTF4Xb# DECC$GXPRINTF4t@x DECC$GXPRINTF4 G DECC$STRNCMP4 b# DECC$STRNCMP4 @ DECC$STRNCMP4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4GSYS$OPEN4b#SYS$OPEN4@SYS$OPEN4G( DECC$STRCHR4b# DECC$STRCHR4$@( DECC$STRCHR4(G@ DECC$GXPRINTF40b# DECC$GXPRINTF4<@@ DECC$GXPRINTF4PGd DECC$GXPRINTF4Xb# DECC$GXPRINTF4`@d DECC$GXPRINTF4dGx DECC$EXIT4hb# DECC$EXIT4t@x DECC$EXIT4xG SYS$CLOSE4b# SYS$CLOSE4@ SYS$CLOSE4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G0 DECC$STRNCPY4b# DECC$STRNCPY4,@0 DECC$STRNCPY4HGd DECC$GXPRINTF4Xb# DECC$GXPRINTF4`@d DECC$GXPRINTF4dGx DECC$EXIT4hb# DECC$EXIT4t@x DECC$EXIT$ $=@4 %d total blocks in %d files Error %d on close 8= Error %d on open P= %-30s h= Error %d on search =Error %d on parse  = %-30s %d  DECC$GXSSCANFSYS$OPEN SYS$SEARCH7DECC$GA_RMS_NAMP DECC$STRCPY DECC$STRNCMP DECC$STRLEN8OTS$MOVE;=0";=p  DECC$GXPRINTF DECC$EXIT DECC$STRNCPY7DECC$GA_RMS_FAB DECC$STRCHR=%s=*.*;* %s   SYS$CLOSE SYS$PARSE=08";=P 7DECC$$SHELL_HANDLER= DECC$MAIN: :=*"! NOPEDEC C V5.5-002? ?= 4=TRANSFER$BREAK$GOU U= 44= main4= O O O O O c O  O W  d d g i h f j k k n k p n n k o m w w u {                                      _       <$ $= 4: := 4= ` `= 4@4= __main84: := 4=  =  @*[NOPE.SRC]NOPE.OBJ_VAX;1+,. / 4 p - 0123KPWO56a7& l @89GHJ1NOPEV1.023-OCT-1987 08:22VAX C V2.3-024P*.*;*P%s PError %d on parse PError %d on search 0P %s 5P%-30s IPError %d on open [PError %d on close nP%-30s %d xP %d total blocks in %d files P^ C$MAIN_ARGSW(g(P CC$RMS_FAB(` CC$RMS_NAMLؐLSTRLENPXVPN(P CC$RMS_FAB(ѬSTRCPYߧݼSSCANFSTRLENP SYS$PARSEPSˏSRRSߧ PRINTFSEXITZUY[ SYS$SEARCHPSˏSRR!Sʂ1SߧPRINTFSEXITWSCOSCRB%B]RVB;VRX RB۞FTVZVRPZRRSTRNCMPPDXUXTSTRNCPYHVZVSTRNCPYFߧ0PRINTF1PXUXRPURRTSTRNCMPP1STRLENP0SYS$OPENPSˏSRRAS#]~STRCHRPPߧ5PRINTFY1SߧIPRINTFSEXITR NOPE main 7   CC$RMS_NAM CC$RMS_FAB CC$RMS_RAB CC$RMS_XABALL CC$RMS_XABDAT CC$RMS_XABFHC CC$RMS_XABKEY CC$RMS_XABPRO CC$RMS_XABRDT CC$RMS_XABSUM CC$RMS_XABTRM SYS$CLOSESTRCHRSYS$OPENSTRNCPYSTRNCMP SYS$SEARCHEXITPRINTF SYS$PARSESSCANFSTRCPYSTRLEN MAIN C$MAIN_ARGS$CODE$DATA$CHAR_STRING_CONSTANTS SYS$CLOSEPSˏSRRSߧ[PRINTFSEXIT ]~STRCHRPPߧnPRINTFY [1(XUXTSTRNCPYH1PY[ߧxPRINTFEXITPST~NOPE.BCKs dpLPHA;1 Jx&FwSȰHEK1Aۀ;iLaLNkv٘oӱq &e|p<*w`oJS.34wR@gl .y<;ICwiL7j7v9BUL6j{D]Hb dPUA*P{WDG;1q&UqhjD~Eꞑ3G[<ά]F~kO:B#"9Y<>ZbmQ'4s`` G (_{7@z3*pzS67 i+?q @Ed&GGGĀ62toCR{hq 7ΣP#sr#>&j.Uϓ`sG0mZ_CEIoe㥂-t=u%,3*$(o_ vuv?"3&?#2F"v6.{~?;o`e73P()sDk t~LNP,D96D6Da *!$t*":)l5_}>Dqq^En vp<$qSx-Wt%("q4ːxTv5%QۇJP(5$pG#$3kxqb6{9`נzSm4i#UyB9}2yA85$w=X;#<3Ocge. vx2͢2qbzztl5+vp_lw!oEn$bx*ңL,2/$):r]p]pjn91)8pm?{3R/0 H$W/Wvwx;#yvvACis`vx20vx3R7!t0($w2N(~Ч 4E\ s_<_I M0$$Ϙ^garrB2 G$5r$2`J"^?$67.rX!p(aW(;maqJ;5,q^(#vt!pn]p%Eis'pq'q^'NE4# xh&9sLV]p_$K"7 ]]J%$r#Vv"q5 28332k* gZil,| _Ў)k#lh p%, m~s]!߯ 02!${ *":€r\Y'_prr5r!X_!/^cc!`ad+!2e1Xğbmvž\)m; \>d5png{ $/$"" $rp$̌(a^ieO#5alӭK]խĝoyC$QC\oNIP8C%MGKs~d+ЭW:, P݄W,L2F}|R;PwTQ[ (S$ZQT*fcЬ]@C>C (iJDdgTaQ*RS)ԨVRT*bT]̓LVW4Wf,6ncج3PlD:8aq$嫭.VLVRP` 'PccQ՚)S{P|QW5V0DʼE@2Ts|Ylvq>ri'5>1t!%e 4L~:;}u1Pw3Uds +mm[M>zpbe)"Hds0|.snЬQYGׯ-]VU‡QQknUuQP  SQPQ- J$PP0x^UͣWTާ,Zޮv+j|ĄͥȦԭаN>G^ޭ>~z>~eGM4T1_(`iΤЭȤ ܘREA@Rb=Rr]LTJ9!{ȧѫ`#{w ~680=.<ש;ໆ0=5dAT ߟDEV$G|S1̘X`Ҵ^ٌit:8G#Ȥ-B5&QKcȘf xS^x#!kp+riSq>!!&||.Ry=lx>'FgiT`Ygۡr"v%)j9=ڲi)b۟͒OĦdvݹ Ou$_#NB_vbG <;uvFե!$uWϩ73$2))&ttNONxQ]x`$8u7P,b; fiA#Zs1pbs/a:ώ| &غȠb$J٪;&^.t,W Suhc(vLQB@VGRfRB"ZD&aRVi fEoV4OR.ُBDݽݲ'zQ_OXW1 Gb}᫼_X(DϺ=BLY'TW+S<^tDVJ }W%tPPaQ QPO]Ǩ( PDxڸ]l |[9PRfuƕhdZ3J \SFw\UJ TfObgEbF+FbjG=Eb V\1Di)SSq^pLmM6`0dx~&9zh5JeJsgFV1Rd]S ZPYYR &9dteqYs6uw?upY d1!1"2$,s`9#m7sh0v6:stNle'H !Q|Zx!%46u665=rie=9pzp ^!txw27n,n fw1q>ur3N>4<#xd//xb7g`}tT,2&}Q#%@&8.:=)xaVL\YJkph'GB$ #^ ?YVj_|5 pU=,..(''|vv:v$!*p0 15yRfD2 8aOR1 ?<Df$?vh|Je*Lk?m;jp54k.pE55`]vwjuv{f6q'Sq1i<޺WmJ4SdvrzyS^Z,v;:dtx9̓r0)-09sbZs8>1`~oq*mwp5#SSZZ\Y @o~ցeXk3 /g"ZbQ` / { *NLmH"B6`VpQOHvfJph*:'7x Nlfx' , ^ ,lhl Ank%em ?)p5vc'M,0a /p Ybr1c~P9 asZIFb s tf`e6g$7_1d r\w`yqO@7xZ?T \*hso$% lϚ\uFbucbdA Y`q( ؋Q#ٛߩn%6u=y+k!`,74.?'by.XMR;cG7 iǵ`Ur?r"!&3ߩ@3h=!˷Zߋ4&%3v2C}5@w aC]I{c&@; ;!,Beҗulv撑'a06dv&}!7H=͖Ν!Bܥx0=3H"q%}dTwlh|{ `Ap:l myyv~ 9a*P'T/ `?ziW[Db'9q9#+oy9fx}~9h/9(IzOx>~z滟J|ZL݇饐& b!wX~h#UR !]nP5=pmq\VL#מT:tϋze z+weR|oix͆w Ō`q0reݛ-yeu{$kgo)Gj@_qjB{|`t\(q`#$siG;;@*)7)6~$x#=/:#'ruyWXprnvidub with klghntE^r that =8)F|628P69!`CP * IgC_A MDR * BISCLAIME+ DIcELAIMER,ne w * IgCCAIMDR *hBISCLAIRAg+ PN,******'noiimrzxcd~l****:***+***r,********H )**********'n { 14ozEwsce [M j tş-xŌ9tiޒ$|j0{t]|8lsw[/5H#^?w4T` s$Ҁs{.-JfN9ض-g94;3&u[sE>x2g㋺BdIdڸ09wod#(O9!Ԧ*`uE!]#}h7wRT p2^PȌWMpEw(KMUU^ sģ]/x!@-!82qWI]&wc2<<==c==!!! L84R%ҍ!l> n :pc{3`+*pl}9ؔ9%|䳾.>'/hz#\;:VAq~z|ᩥK“ep\9NW؏>}1v9ddӹ5$!߼rWli-%rȟ'JL؟ȳi<vwk8qȦd~2b7|]ãpns=XǜN^na)kU$O\bSV1pG4w$_f7-y`zPX7iE$r3/q&{K%b]upj!q&ăOv]?jt;&o `%/a#} )"ԓ&`>r$UJFsce7O+8̛ɸr`kJkce+i2~nv3%9f|;õP+VcRPpylr EwtYV.u2?F2% !Ag gh2ow_Wp !?3qc4u1SȴĚ 1@7=}}WL!G^|5L{*9wPTVrw&61?y4$&,|tIf*nt|% Ҽ1ж'xGHkh5|7{ ΁Sz7ֹB#v^),+|/`*ws z9Y2 r-m}{| vo@k!v`LTW)^J ,QEd0 V{]N E' 9Rh1+QФ"-jT"hOV暩\׏$]ީ;> QQUl+W_͟N2,ӥ9Ð23SvR7^.ȭpЍPkYUJvvo^4y=\.ͩEQWS#! 0k#]ArOndT ZީԯO2S۩֯,]EHY([UQFQPP .XU(YQyYR WQIQH},]wHYH*Wm%9r Ij +&:2 >;I~i6gya]OfsrYg@*ɯPIЯ5!VQQG/b"+B,`7͚NehcB7Ňƥ;]d`%KpKl ޙiGJhAޓ2 V^HE7e3x5Z"FnGi~g|Y0 ppWF魴1DͯέU~~ҭ߭ "P"B/t te=V.~odM]U~Q]VhPЭR&ԏQPWXTPVUYo^ض:S:Sk齵!';#鯻 U @ 9vPR謻ЭPZҌbЬ _Qxl}P]lRA vQP@bP`SQ=YxQQ@Pt9 <.Ь P |~ݬn~ ~^R|F#ТNP YQq `QQQ,(˭갏 ԭ >խДTT),PSPQI뼼6P[߽*""[" *>SPa^z*u /mW*ZE S͛Qլ(`OV ~붣dDR\ki R6DaR6V@`4RaVoRoRQ"S0RaRr-R(cJRPؕ+&&6:W"'S¬!h+""fh݀`!/$\/=/SʯX*Ὼ6ޗSu19 c aBX**mXt\SV2.a(XP.P%Q0esD͒GJ!kE]v0=arCe Ϥ %!c@H}-3XLĀk bD?+59 $tmn ^ʕ?P<$ton Mse X&ECk tVhkObXGCM; VU)cfM %ҹ )e Vc[fێ$ C @V*"RpU,B.B R'&RݡS \Bn*aUZ  3=' Gp$/-" @5'^TEɄ?z.. "S+$ PRVA,("CX&1vRGR" UrٟȶPoWr ]S$E.\GS$UPzox@V + 5Ö:RS`W辭||1ɗ]HYVyuBP ;;cSz+"춽eYf*-U 'c "kQǴcewFc-32j4)x4-L9F&W_rjP!zkU+tς SVMlVF5+p4>BQ l\Qݚ "^^Rμ]v02|RIi +& LhF"] Xg+U׳v[*W L/Vƅ?"_+lBJఁG %鉇+-LRb:`:.t_+[wU|~A0R6Z+ۭL̢ JTF2 X+󭶵Tٔ##,/8z,UcLOPֽQQa>P|`VpQt+ [^nyT q~P ߍd67 $|ҭlZbTdm,\_ b5R| RҀfPvTT|zZ||z\҃p߀WZ*e(RHcZE twCn4],!PT0)SSv OU@}pA0ڈg3Ş@9W4}S2LU@c1+xG$L礅_Jxl:rmi'F6?TD4fj,?~ |zKMT MXBe JMAIi,JGYHl&W(y^K.h;pSQ3Bd}}fQj2Ô ؒvE V=)V m[p٤k?3|S#;CFklFobHM^oq{[`,G@십 a d"]W@lWaCt0WzQbNRK8ND&?*bsQ&SU-QSVi}.NjmR}eiʥg^ PK,ϱ$YξHr<~{.'!k}ڍKqbjy2 ԂC"C_8*d|ٯu$9mĪ5K+PMb{Q@ jLnئi[ wA#C*GD'x)[ k(;PH6M /raG!؀3q# M^Z AۿFU9tϾ)pV{+o2E=7k8nb(y4-i Z61kDq?1̮:j]z@G;s2V?^{.KHWgQhِY<Z+S?7k4BE]J[K1SeOAR)T;ʞIΰ=A()(B}O(QHa( M߽"5吜yҋpEE QB<S `bj@Qd'C~!}SB0Yo-rRj=Y|@|ɵPAHn{p԰G\UyPR5& qG~ZG Gk>RߌpL/ Ӯqu knKشFgZkYPГD9$#4o&HiQ)vQDv8A !8\@M40*V~%SR bG_")3`ۏYMpC7 "*IOH$M^9DbziT6% tkRQ"SMrsԈ V7%bwA@@Vk w 0G\ȕ@\<|76Q(P2+)n죡Fŷ\D@:hPYo8ZZ}4`@sALs{só!A)V88IPq ;:~FcpU:{儔[;$Rq8ؐ ދ'V XzJed;6O[]ղO vPJ>R^iO,?(kH DbWF 7,WG01>ᗸGmYE_$m{4rW8uHa=uEemGrmk/g.g.gYk k0gPPgPYPPI(YYgZ!g*VQQgYY:%YfQQ?aQVPPYQVZkPPЬ P/`.`.`PЬ PQaa/`.`.`.`aP\_\S\G\ ;\@~-\<~\ P`P P`P [^,n$0,nhlլYЬXPҬPPZЬVTWS|RP.PXgUPS*Q/1PQQ1RSЬVTW, R|b$r$.$(_ Џ (114Q8W<Po  8T1   1[,,`GwJTP- >  .,,$T$PTP,U-EBM]-e$-.e,VWB.,,dT[&BVsJH[eARڜs  Y,PPX  ..`[`,  .,,( .;Q](LhGo"oP-^0JQPD蝺쓺Obo=l1>,0/RLiL1\LOW&Xбg>P\ \0c6 Ue5eX.D1G 2.E3%jL  ;,2"j|HЈ"-y8%R*4׏܏,h$0o$':BPê[YVRyo0S "$g1s t[,֮,Ю$V$PVP- h .,֮,Ю$V$PVP=Ю,T- h-d-.d֮,( $/< PP,. *֮gVѬI53 Ю,P. [,֮, .,֮,( ,<PP,],֮,,֮,1 Ю,P.׮,],֮,( ,<PP, .,֮,(,<PP, Ю,P%.,֮, < !,Q.,֮,TPQP a**,֮,.,֮,(,<PP,,$gTPPЬ P,V W(WWf:f:fP|Ь P,V (f:fPY^Ь U$W XЬVVP/V-Vis-Vi5XЧЮTTg$- iץd 5 P%ЮPV Ь Xe֥PD*oFO7:\:a|+Э"V!Ѩ-hЬRCU!VQ. Sz QRWR?w R RЬP3Ќ P!aѬCOЬ"P f ƫ  :P PЬ(P PԬOZ-V~fYS{P`W O:[YgVQQXAW[[#X[f%2SZY:p+WWXPmϬ XQ(Q8((YgYfF KnW\fY:?YgQU\U%gQì aPPW<Y:YgQQ ligQQX%40-0^мPPPJ؍ XPT$VRLРSV7UݢHɦHW=]]/+/Sß?_eCekCk/_e.p.p=߮o}"_"S oCo/S/S/[]߻/[*]*(+"[<[/ ]*/[oњ+oҊ o[u :ZïҚPjUL Unp.LP`ФTP\`ZPPPUwԬSQկ/QRQPRa%%/PЬ/^ՠ07Q 0PФTЩRΚQ;Q >S8SSQ[5Q%KQ?׊QQ^TVT_XRȕdPdTVRXXQWtpQQ]ȑ-#QґQ\X-QXW͑SQ QBԂQQ ^- Q-  v >.+0..1rXۛvE>?֣)+SAG ::"":[<]>z.h-9*,p]>.$-]&>"-.]>.]>[<]>jx.-".]>DR.--:0]>*,-= -*% p/1/hD.o;"n.} ;u@"  !"".( ./*-  -<?[]-*.*;*%sError %d on parse Error %d on search %s %-30s Error %d on open Error %d on close %-30s %d %d total blocks in %d files DCLMCRSHELLerror 0not ownerno such file or directoryno such procgssintetrupudrE{ystem c`ly/o b$371M=( such device or addressarg list too longexec format errorbad file numberno childrenno more processesnot enough corepermission deniedbad addressblock device requiredmount device busyfile existscross-device linkno such devicenot a directoryis a directoryinvalid argumentfile table overflowtoo many open filesnot a typewritertext file busyfile too largeno space left on deviceillegal seekread-only file systemtoo many linksbroken pipemath argumentresult t/o l!rgeI/Ostram fmptySYS$LOGINSYS$COMMANDSYS$DIPKLOM$FqLE_EVATH)HOOE=CRMUST=DTHMOMTEHUFR@ft'13ft.80et1xnt2532bt25=0Vq2.q3-a62ft3-90ftfu4 132ft4-80ft4ftu-132ft5-80ft5ft6-132ft6-80ft6ft7-132ft7-80ft7ft8-132ft8-80ft>F#3cfa132la12-80la12la120-132la120-80la120la24-132la24-86L%#``Lla34-132la34-80la34la36-132la36-80la36la38-132la38-80la38unknown-132unknown-80unknownvk100-132vk100-80vk100vt05-132vt05-80vt05vt100-132vt100-80vt:0vt14bav9vr%01)UQir0 vt8;8#4vt2/>}23/0v37,tp0411tu040wt7v31/0tu3,ttutw232t1,0v0/:36w110;6,%vv52x'}pa}tR99jc`k%vFY5x'zu|au`O;+d}c$ 2t29h!ddQnNDKL]QESLLӹGNCmSHELL$$RMS_PARSE m (P* IRM-BATE_PARSE Pn @   pnSHELL$TQA@RGTE\VCRpk -n TRANSLATE_VMS n 7&~ro DEFAULT_DIR ro <%p COPY_TOKEN p t@ :Kq INSLRZ^I@NUX ExE  ! *$tq DkTDOUDOT9%up d J8~$2qzDG_ACAON m5  Q "?5 څq DHC@_ACxzN y  |Ă &>5w zyEXACT ON qD< *R?5 "q Tp_JCTI L q֛  dWD VEvSIOC_ACNN5 7 ti>5~(IR_DOP_ATI_N Pq _KHrqqIB_ACNN5  ~7˿aGT_DILDa 5;(>5f a_BILDKQCTf ~7{ Հ5[LI$aA85rd |B?KEY`,q~ _L %SHATE45CLIxPEAZ_ON^D_TA52l=CSI$CKp%!&WHEmL$CIN`ME"H!szlcliwmDg4E5Rhel is}sheh"Eӯ M\5   SHELL$TO_VMSr SHELL$TO_VMS r >\  G J   x|REL9D@P`r 3 |c. J #wSHELL$$VMS_FILE w ѹA b e h+(g6*PWW&fT蝞Wt\e35jWrXӎYAޞXWmYpt6hi:߻åG"|REREfp\顙^✭[4ЧQϏ>1Qܧ1!ST UIj[%孬R16ۅS[5T!/Qz3U` ;SW^E_ΔZ-SBu-C3ԪA #4Vc@;>XR^ ^RRsah۞OG[B|P]CdR!'_XUF#rILJh,sOc0rߧ0g>DSYFIU(ROլ 1QzXu&3ÝGOR-P,]=#~QlVEݕY WS#KI]۸Nᾭ+YbsZS']V`_~"> P&\l+ 1 УWXSr4mHcK *\OCRQNkzP ^OCGEEOFX ,LN_P4CEX[YYD]I 'xEd\^~zݤLФQۯL|^gf{K靗}ԏ FY|;dnP@, _@,iOԹoq 1}bP*PdBs^4\@P N19-뻹6wLW~#d!% ,,R~,^T~zݮc|}drzS$PVORS SYS0N=(T^j _H*m+AXJOJC@zuLC$VOmESSES9ISDTERIA򺿼yE ݬeϽ]p[1i lwSp~>o_YP6c']lYU0O*(IL~_2Sy&Z1x`~~Q—m6e bP뻟 m;(@ЃTмBUhS~tCpa5wXqPnxE:'iC_t l^T~V[= qvDg3h%V^Tq] ~=vXl`xo^~~yd QaoAp~cnRэMl*8+`в&Z8#|A.|ZR//0kԡW:u>V}e2drWQ'EP~i]u3b"$ rR!_R12XZ'iZUWfQ׬#ET[5PWћ#6TFY PVݮ#Eu-j(~iH~ :[#Rf*oQr־a¢QO\P˓Q3z kH/ymL4n\\Т wh((V((.xy!fUi%Vm\,T2AQ"ZҰ1u#'\R:< Q%TR$b}5P_blRЮ|}!ڍ t3Ц f%<6x ; ~BĊ> $cc vanmu_|~6 ${>*O%WPC\XNYw_~Ў3nz=TdU ,|}(0&(3srӕ| g3"~Ry};R^R-UԤ[XP-TK!aR03Vdp[v<^9ܸ8^leVQ].PMPfe:5hU}S0g:2#vh@}ѣ-Ьw#jri ѷ9P S#\ݮ ,.|.Ǹ ߂YXbҍ [>}n G# $q ߳[!tnR_:'US1lY|iR;/AZToc^@W E !1T+kяcei-!ݘ !P |c~Q~PDOE!YЬPОӜŜÜ߃H}]q[K z}ۿQh[UZak6PCgP@۬FG>w]{7-qV3A-cNeAl #w8a-6|APv`灅wdܖBPm7ap?Џ5yC<P@c^]P Р PPяzPP PBPPP~~X^^YZ[01 i 0!iEi i10J0ЩWVfVWWGUU*UJ0UTDeV VVߩVUPJݩPvPU1gg[k[ZJ[JZq0NBcmR+-[_+ZүGn8t[j0s[ԏMdUZZ(Z3kk[|k| HV0AP[|O|~ݎ0iO~H<35<P hZPeHA P+AZVZi WWP0PFo(`cVYލޥmTSdTRB S_SR4=M㞠xѰYT=2/,{A. ,N_PD.MCGx! EQ  DNA 0FOP CTG CBT TEF CIF SUP SCF SPL TMD TMP NEF RCK WCK DLT MXV RWO POS RWC FSZ ?  MRS 6@*RAT CR BLK FTN PRN ?RFM FIX VAR VFC UDF STM STMLFSTMCR?SHR GET PUT DEL UPD NIL UPI MSE  MBC 7 MBF 6ROP ASY TMO  TMO  *CTX @STM BIN NOCVTSWC XNO6*^n1*;N@[@/M15SrS%GTRcR9[SN!WY}$[NPUP|YW$NUtPaT]LA0(SYX$ISK U$LNM$PROEE~Sy90V4Oo^Z1V!4 P||O. Y|zOe5(BUϊlPU\;'TiTL TTPP*n~0Ў%TF(3-"9(D;>+..*|zA>*|.&( B+Uz)*-W OPE2M^u_te!!{tC8t -r2Jhe :lpVc5B'Ƌnpa1j_j8˜\k4t^lv3pXeS_HEwO2j5r6H#ng}Q;.[epQJkh$>us,2AC]-R,4D a6q l_It` 1~q gH6eLpE:x$}{XcuoVD9c9gf]U1rpJ &z)>w _k9:W8ayQ7@ vRP*VWJ5?N1l/^.eUnIhl9jm6z$*|TEL\I_Yrtds5OJux6YGrf{ 1BG7qk hvU*;9kf/<}ty}Uy U;clb8$KEpfCikpe,fvn"p(6za[p(-_wi7zݜI;g>5ovi|Up;4ю|Zi4ď}cc>`脆{uw6.O/hg 25$Bc|vPj0!r@c='+IJ>x/uW6tlp CS73-Y}m 8 ?$wz@ 6?|1y)v">2x@0.1a8Gy}{<65c-m73`x!ג?9z0 0 g?t/T!1^/1S^;`P3#rkjTav|3<}U3w(mcpIe{;}ju2ta`u= fLmj(ji=絔vBj5>$W$#h#6zfRb rmqkU9b~em5fdjMzZC,P.+z.%.}+z %?jM|>-|*(|8#P+*z;;.z.M.f*$7o3hk83r3B~:kAHb> oo|) 32cc{e "JBhci <=a*>x'.ތ7M5L6cxrd3`k)Pqmpe`1v%k!\k0OnW)q8z<3@ 2KaQ.7>_%`3fp9:5;ji% pw>z2,VS.Ea5X#zce=?نcU#U3ph8j~p?jxlwh*?}f7?Rgwq:'W9&S{bCfG|bg 4fmb6߶Ĕ?5b >ۙ2oh4vBrgbߚjtl{B%Ea.(pb sE6A~r[5 1{0_2G-(IeuEM,#u-{ f1p)b8k *31vA_>Qwb1R x Qx5Zrah ,-.,[`+_ l#aS9(k*"#YP 8e/g>t5Bk7P78`(DbJO5r pbaKtqm`~~k$fs~dh@vk}uz_v5[MAw?ЮIPIWe=55`#\I5k=ts5[fm9 3_eaVJІgi)Ne(KaP0+{4Yxbxp8P 'Yu1v/Rw!q+? лR`Lr(./,(]:Lmq?yhj=$/(%r^f.~vd6xkmHjp9ih9l5 ?+ 9hj&faNc 9I Fd&+ dle%mp9I O}*hle%ha0j&'YnJC?DХ{pi8=hQ1uGTot5.qm$akC75ad񀕛k#pQ'||4hln3l7x> qrTI!p e?ye!%gVV$s7rr!y=>|7y?5 8h{=JTtcU@vUe`.`xu%w3)& .S(5P >>1A4f2A.a9GW_M1jmgZaCsy`7?4:=*n]nF`!P8Y U,A{Qhiqrlk8 &k>Duf=g%|w"#\ߜ?]km_^΋f9,cvxXsC 3?ue`I: 2;[gd++)4< YX# _'x+:; Qu@i^u`e  J}h|j0 ,- G#(?!g;&ד4su$kk$UV9?p#4 t .ʧ_i9Cho|U,3|xěp`0Coe7f"fю%eS~ZڬU9+ )z 05 #KW5lon]j ㏅*prmra dzv2h9GpY-$'ubvsyp8>ӯ i(:~gQi"]5nm{vg7hzsrk_s9B)ivm}? ((v}gS`ꋞ}n65jI#h|2;c0 |Osvrn=.s{`)qPlt3za1(Uk|v>-q9?^J1ك孋9mE{;YbXi *f?CyT.$~a?!rSn"#g`qry>PY h됒D:sP5Y P<SzR s$xiw8Y7DIi&7v|saQ:"<4Vzq8e0Y9~yY ;}[ Ia}0uw)>b#ce\0#gh%(= [d]d(s qYsC;c٥ (P܇]7? 1P\.x)UDH)H!a9,rlT}jBX` 5 Y _ss*s $Q\S^gO$aW?;~`$z_9І h ף$e*~֣-c%5Ss clb=Yۡ{fI> Y_c39pHO;r@\9p68mGgbIwByl3}., gXX^bgpKrk []p _"YiRbn{|i a$ "á*Ο"ʍ<3moZ˒lﳝ6{,sá-tn$LroyǏm2m5a Ƴv]\OAϲP ݏ.KPՠMޠ `PR<P0PWvR~Ue8PZUWTUHWk2XhP0A0ǂVV(f`&ǩYY$i,%VVf,QYYiX0(Ц$֧$YiDX<ˏ@Vя@VC=2-<PP P0wYP$PPP1@>@9 *h0M,h01<6R(jgsW4BAݚkMO@UUJlKi <PR6[ R@7 |Rpd P0SISPPxP0PSVSUX ,D~~^|~;|RҎͷ\bǀS> ݏ^[|Gcb<~7ا@x,1 ,B,'f:4^+u&u&;=V V  HKoV5H#8SQp6Џ5P4[X[X0>9k{4*ɊP9N VY" ?kZݞ_ۜANz +B~Џ5P(R[0t*F[VFN<UV(Wm%P[ k3Qo]bXKG@UNO!RQHRF\B/"ӀDuU]+BNMQQiUFBZESVDZ0uGVP&UEU<TWUHe-k PkFFduL V0iHUKS ePkPrx8AGWj1,k$n2@;~@_WUaM zX[AX nWAns-xL fPPVZVS'QQ iPQM\V'KSPQ@ϣQQ-C :Q#QW#U,|TWQPPp$ P tOP0IOZѥW@'rO.[ZZ [kWާ2XYZxI{ PHQ0Q~WP*FۺM'PZPrZPQUInP1mȏL5Xx!KA<P SZ<kjШ(U&x?jUNrX}.hgX_/O{ tXTWԮџC)$Ş8.vi92<*$(1=0`6n P $T/eCiZc U!ڕb t|\){# '4>ͬrjC^lO)~jyn:h6CEP/P>tncx;qzB@X0+F(w?x;OQOGXs4Mc)RhkБXAZ;Då!Dt:RWCJnֺ WZ-J>N#A੃8nI$䜩bUD-q~?nď4"/ȾJ, U_$ҪW2,X1`35AtQ OS TD T@Ha#άUcqΐ|e.UxIs4D[䊁0W=3 UPq!%vX(RnoI?⧟8P/ɺv@CbCPgUWg@hME(\0FUj {m< kTiI wUqA6E YD@SŴvEgaMF:zU!aqjRӪoPbPW4m7qU[ GPCTw4w_c0CANx璩HH!!c(jGhŇz <#HH{܀QP" ?S/ O,v"g/I5W0O:>&