% VAX-11 Librarian V04-00`8ZZ!  z==L  ]ADD_NODE|ADD_NODE_TO_DISPLAYRADJUST_NODE_POINTERS APPEND_FNODEh APPEND_NODECHANGE_OPTIONS CHANGE_SPECCHECK_DIRECTORY_MOVE^CREATE_DIRECTORY!CRT"DEFINE_PASTE_BOARD$DEFINE_SMG_LAYOUT&DELETE_DIRECTORY. DELETE_FILE0 DELETE_FILES5 DELETE_NODE6 DIR_TO_FILE7| DRAW_SCREEN: EDIT_FILE= EXECUTE_DCL@2 EXIT_SWINGB FILE_OPTIONSB FILE_TO_DIRDT FIND_NODEE FREE_NODE]ADD_NODE|ADD_NODE_TO_DISPLAYRADJUST_NODE_POINTERS APPEND_FNODEh APPEND_NODECHANGE_OPTIONS CHANGE_SPECCHECK_DIRECTORY_MOVE^CREATE_DIRECTORY!CRT"DEFINE_PASTE_BOARD$DEFINE_SMG_LAYOUT&DELETE_DIRECTORY. DELETE_FILE0 DELETE_FILES5 DELETE_NODE6 DIR_TO_FILE7| DRAW_SCREEN: EDIT_FILE= EXECUTE_DCL@2 EXIT_SWINGB FILE_OPTIONSB FILE_TO_DIRDT FIND_NODEE FREE_NODE[7| DRAW_SCREEN: EDIT_FILE= EXECUTE_DCL@2 EXIT_SWINGB FILE_OPTIONSB FILE_TO_DIRDT FIND_NODEE FREE_NODEF GET_LOCATIONGGET_STARTING_LOCATIONI>HARDCOPYLbHELPN HELP_FILERPLISTV> LOAD_DISPLAYZ  LOAD_FILES\ LOAD_NODESd|MODIFY_FILE_PROTe MOVE_FILEk MOVE_NODEn^ PD_BAR_CHOICEp PD_DRAW_BARq PD_GET_CHOICEsxPD_LIST_CHOICEw PD_LOAD_BARy PD_UNDRAW_BARz PRINT_FILE7 DIR_TO_FILE MOVE_NODEUPDATE_WINDOW1NDOWT[7| DRAW_SCREEN: EDIT_FILE= EXECUTE_DCL@2 EXIT_SWINGB FILE_OPTIONSB FILE_TO_DIRDT FIND_NODEE FREE_NODEF GET_LOCATIONGGET_STARTING_LOCATIONI>HARDCOPYLbHELPN HELP_FILERPLISTV> LOAD_DISPLAYZ  LOAD_FILES\ LOAD_NODESd|MODIFY_FILE_PROTe MOVE_FILEk MOVE_NODEn^ PD_BAR_CHOICEp PD_DRAW_BARq PD_GET_CHOICEsxPD_LIST_CHOICEw PD_LOAD_BARy PD_UNDRAW_BARz PRINT_FILE7 DIR_TO_FILE MOVE_NODE UPDATE_WINDOW1NDOWTn^ PD_BAR_CHOICEp PD_DRAW_BARq PD_GET_CHOICEsxPD_LIST_CHOICEw PD_LOAD_BARy PD_UNDRAW_BARz PRINT_FILE}P PRINT_MESSAGE~PROCESS_COMMAND RECORD_STRUCTURE0REDEFINE_SMG_LAYOUTVRENAME_DIRECTORY RENAME_FILERRESET_TERMINAL SET_NOTABl SHOW_FILES6SM_ALLOW_REPAINTSM_REPAINT_SCREENXSWING^ SWING_TABLESTRANSLATE_LOGICALUPDATE_FILE_WINDOW UPDATE_SCREENUPDATE_WINDOW1n^ PD_BAR_CHOICEp PD_DRAW_BARq PD_GET_CHOICEsxPD_LIST_CHOICEw PD_LOAD_BARy PD_UNDRAW_BARz PRINT_FILE}P PRINT_MESSAGE~PROCESS_COMMAND RECORD_STRUCTURE0REDEFINE_SMG_LAYOUTVRENAME_DIRECTORY RENAME_FILERRESET_TERMINAL SET_NOTABl SHOW_FILES6SM_ALLOW_REPAINTSM_REPAINT_SCREENXSWING^ SWING_TABLESTRANSLATE_LOGICALUPDATE_FILE_WINDOW UPDATE_SCREENUPDATE_WINDOW1 1RQ^(Qbn^SXXV,Vn PQ^$ FREE_NODEPVŏ#VX,H0>0H;?P`H 4H/?8< FILE_TO_DIRŏ#P@K?QaT@K?PV`1TUŏ#UQ) H/?A/?HO?PT`ŏ#P@K?PV`TTŏ#UP@O?QaQ@O?PV`TUYQUŏ#UP) H/?@/?ď#YIO?YViHO?YUiTP.DIR;1 KADD_NODE FREE_NODESTR$TRIM FILE_TO_DIRa$CODE$PDATAP$LOCAL PD_COMMONI NODE_INFO/SMG_INFOBPPPP`PYP&P6APww1`+O &01>ADD_NODE_TO_DISPLAY0127-Mar-1989 11:0427-Mar-1989 11:04VAX FORTRAN V5.0-1LP     PQ-P RdUUdE  WSTR$TRIMŏ HX(HHPWk`HP`PPWP,PG H*~^(Gn,n HQ^ I APPEND_FNODESTR$TRIM$CODE$PDATA$$LOCAL PD_COMMONI NODE_INFO/SMG_INFO7P >PPPww1P &016 APPEND_NODE0127-Mar-1989 11:0427-Mar-1989 11:04VAX FORTRAN V5.0-1,P$PO[}PQ} PQV FREE_NODEPѼмѼffLмPŏ#@,P@O?P`ŏ#P@(>P`ռŏ#P@0> @;?Qa8 $@/?(, FILE_TO_DIR@STR$TRIMŏ#W(G0>G;?Pk`k ( G/?*~ ^( n( nG/?Q^ŏ#WGC?Pf`G??Pм`GG?P`fPP@0^(nG;?P`PG0>YP^(Pin^SZZX,Xn PQ^ммP@,P*.dir;1 O APPEND_NODE FREE_NODE FILE_TO_DIRSTR$TRIM$CODE$PDATAP$LOCAL PD_COMMONI NODE_INFO/SMG_INFO65PAP&dPP:PVP Pww1&JQ &019CHANGE_OPTIONS0127-Mar-1989 11:1327-Mar-1989 11:13VAX FORTRAN V5.0-16PP PH[kռ(P`$޼0PD_LIST_CHOICEѼG EXECUTE_DCLѼH8SMG$ERASE_DISPLAYUPDATE_WINDOW1ѼIR SHOW_FILESR HCHANGE_OPTIONSPD_LIST_CHOICE EXECUTE_DCLSMG$ERASE_DISPLAYUPDATE_WINDOW1 SHOW_FILES$CODE$PDATAT$LOCAL PD_COMMONI NODE_INFO/SMG_INFO9P2P ;PSEP*WP aP lP"yPww1Q &016 CHANGE_SPEC0127-Mar-1989 11:1327-Mar-1989 11:13VAX FORTRAN V5.0-1TPPO[ŏ#VF;?P`PPXXTTF0>PTQA`[F0>PTQA`.TTY^(nYYXF0>PX^(XI`nXWWZŏ#P@;?WgW@0>TW^(WdnWYYZ,Zn PQ^F0> F;?P`$ F/? FILE_TO_DIRP.DIR;1 O CHANGE_SPEC FILE_TO_DIR$CODE$PDATA,$LOCAL PD_COMMONI NODE_INFO/SMG_INFO(P+;PMPww1Q &01?CHECK_DIRECTORY_MOVE0127-Mar-1989 11:1327-Mar-1989 11:13VAX FORTRAN V5.0-1PH$[Pмŏ#QRAK?QaQQի1PPŏ#QAK?QaQQի1PPŏ#QAK?QaQQի1PPŏ#QAK?QЀaQQի1PPŏ#QAK?QaQQի1PPŏ#QAK?QaQQիPPŏ#QAK?QaQQիPPŏ#QAO?QaQQŏ#QAO?QaQQŏ#QAO?QaQQ1[ŏ#QAO?QaQQ1ŏ#QAO?QaQQ1ŏ#QAO?QaQQ1ŏ# QAO?QaQQ1Kŏ#QA??QPaQQԫЫP HCHECK_DIRECTORY_MOVE$CODE$PDATA$$LOCAL PD_COMMONI NODE_INFO/SMG_INFO6P|(>5  t5 =,=4 t4 < 0<3 $,t3 ;HP4;2hpt2:8:1t8*40,0(H$` xF{{ PRINT_MESSAGE@ PRINT_MESSAGE@ PRINT_MESSAGE@PKh[ PRINT_MESSAGEV(SMG$SET_CURSOR_ABS@SMG$READ_STRINGl STR$UPCASE)1ˀ PRINT_MESSAGE^(+nXŏ#P@;?QaQ@0>RQ^(Qbn^SYYW,Wn PQ^˸˜ LIB$FIND_FILEP1˼ FILE_TO_DIR^(n˜PP^(Pn^SYYW,Wn PQ^˼ LIB$FIND_FILEP1 FILE_TO_DIR^(nˠPP^(Pn^SYYW,Wn PQ^$ LIB$FIND_FILEP1D FILE_TO_DIR^(nˤPP^(Pn^SYYW,Wn PQ^h LIB$FIND_FILEP1ˈ FILE_TO_DIR^(n˨PP^(Pn^SYYW,Wn PQ^ˬ LIB$FIND_FILEP1, FILE_TO_DIR^(nˬPP^(Pn^SYYW,Wn PQ^ LIB$FIND_FILEP1 FILE_TO_DIR^(n˰PP^(Pn^SYYW,Wn PQ^4 LIB$FIND_FILEPT FILE_TO_DIR˴PPhlp DELETE_FILESxLIB$FIND_FILE_END˰PPˀ˄ˈ DELETE_FILES1ZːLIB$FIND_FILE_ENDˬPP˘˜ˠ DELETE_FILES1˨LIB$FIND_FILE_END˨PP˰˴˸ DELETE_FILES1rLIB$FIND_FILE_ENDˤPP DE-LETE_FILES1LIB$FIND_FILE_ENDˠPP DELETE_FILES1LIB$FIND_FILE_END˜PP DELETE_FILES1LIB$FIND_FILE_ENDŏ#P@;?P`PP DELETE_FILESPWWYPYI0WWWI0ADJUST_NODE_POINTERS LOAD_DISPLAYŏ#P@??YiYY@C?P`PP  UPDATE_SCREEN4 PRINT_MESSAGEH PRINT_MESSAGE\ PRINT_ME.SSAGEPYES*.dirS KDELETE_DIRECTORY LIB$FIND_FILE PRINT_MESSAGESMG$SET_CURSOR_ABSSMG$READ_STRING STR$UPCASE FILE_TO_DIR DELETE_FILESLIB$FIND_FILE_ENDADJUST_NODE_POINTERS LOAD_DISPLAY UPDATE_SCREEN~$CODE$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFOR$EXITTPU$TPUSMG$RESTORE_PHYSICAL_SCREEN LOAD_FILESUPDATE_FILE_WINDOWr$CODE8$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFO)CP#wPP P;fP ww1ӕX &016 EXECUTE_DCL0127-Mar-1989 11:1727-Mar-1989 11:17VAX FORTRAN V5.0-1 PDCL Command$ Press RETURN to continue P  $ ?SMG$LABEL_BORDER@ \ SMG$READ_STRING@ LIB$PUT_OUTPUT@ LIB$GET_INPUT@PH[ SMG$SAVE_PHYSICAL_SCREENSMG$ERASE_DISPLAY(SMG$LABEL_BORDER4SMG$SET_CURSOR_ABSDSMG$PASTE_VIRTUAL_DISPLAY`SMG$READ_STRINGˌSTR$TRIM@˜SMG$UNPASTE_VIRTUAL_DISPLAY˨PROCESS_COMMAND˸LIB$PUT_OUTPUT LIB$GET_INPUTSMG$RESTORE_PHYSICAL_SCREEN H EXECUTE_DCLSMG$SAVE_PHYSICAL_SCREENSMG$ERASE_DISPLAYSMG$LABEL_BORDERSMG$SET_CURSOR_ABSSMG$PASTE_VIRTUAL_DISPLAYSMG$READ_STRINGSTR$TRIMSMG$UNPASTE_VIRTUAL_DISPLAYPROCESS_COMMANDLIB$PUT_OUTPUT LIB$GET_INPUTSMG$RESTORE_PHYSICAL_SCREENp$CODE7$PDATA$LOCAL PD_COMMONAI NODE_INFO/SMG_INFOww1 /Y &015 EXIT_SWING0127-Mar-1989 11:1827-Mar-1989 11:18VAX FORTRAN V5.0-1PPstop/id=0SYS$COMMANDSHOW DEFAULTP  PROCESS_COMMAND@  P RESET_TERMINAL@ &d& LIB$DO_COMMAND@PH[+PROCESS_COMMAND2'B SYS$DASSGN2)$ SYS$DASSGN#(RECORD_STRUCTURE0SMG$DELETE_PASTEBOARD<SMG$CHANGE_PBD_CHARACTERISTICSXRESET_TERMINALlLIB$DO_COMMAND H EXIT_SWINGPROCESS_COMMAND SYS$DASSGNRECORD_STRUCTURESMG$DELETE_PASTEBOARDSMG$CHANGE_PBD_CHARACTERISTICSRESET_TERMINALLIB$DO_COMMANDo$CODE3$PDATAt$LOCAL PD_COMMONI NODE_INFO/SMG_INFOP(>PEP Cww1 vY &017 FILE_OPTIONS0127-Mar-1989 11:2727-Mar-1989 11:27VAX FORTRAN V5.0-1PP PH[kռP`$޼0PD_LIST_CHOICEѼ EXECUTE_DCL H FILE_OPTIONSPD_LIST_CHOICE EXECUTE_DCL;$CODE$PDATAL$LOCAL PD_COMMONI NODE_INFO/SMG_INFOP2Pww1D@(Z &016 FILE_TO_DIR0127-Mar-1989 11:2727-Mar-1989 11:27VAX FORTRAN V5.0-1 P<000000.P (<DPK[}PQPk}PQ P}PQPTTUE[E<TVVWWXH .W.D <YY ( LIB$INDEXPXYP,> PH <XYP,] PH [W Y4 8D LIB$INDEXPWWPPYR-Qb TVUUVP} |H FIND_NODEl$CODE$PDATA $LOCAL PD_COMMONI NODE_INFO/SMG_INFO$P&P6P1KP\Pww1 [ &014 FREE_NODE0127-Mar-1989 11:2727-Mar-1989 11:27VAX FORTRAN V5.0-1lPDirectory structure is too largeP  PRINT_MESSAGE@ G PRINT_MESSAGE@PH[\ѬL PRINT_MESSAGEpŏ#P@;?Qa@K?Qa@O?P`QQpŏ#QP@;?RbR@;?Rb@K?Rb@O?P`QPQQp PRINT_MESSAGEЫP H FREE_NODE PRINT_MESSAGE$CODE%$PDATA,$LOCAL PD_COMMONI NODE_INFO/SMG_INFO-P.P5bPRpP3PPww1[ &01H7 GET_LOCATION0127-Mar-1989 11:2727-Mar-1989 11:27VAX FORTRAN V5.0-1PSYS$DISKP LIB$SYS_TRNLOG@P0( SYS$SETDDIR2P,P r to continue list or CTRL/Z to continue with SWING %DIRECT-W-NOFILES, no files found Hit to continue with SWING PPP`e RP`|P(PP|(P(P>@ SMG$PUT_CHARS@S!UU SMG$PUT_WITH_SCROLL@!ww SMG$PUT_CHARS@|PK|[, PD\<SMG$CREATE_VIRTUAL_DISPLAYTSMG$CREATE_VIRTUAL_DISPLAYdSMG$CREATE_VIRTUAL_DISPLAY|SMG$SET_DISTPLAY_SCROLL_REGIONVŏ#P@;?QaQ@0>RQ^(Qbn^SW^(nXXWW˄WV^ˈˌ SMG$PUT_CHARSV^˨SMG$PASTE_VIRTUAL_DISPLAY˼SMG$PASTE_VIRTUAL_DISPLAYSMG$PASTE_VIRTUAL_DISPLAYPVV1WŏP\XH4* LIB$FIND_FILEPVV1H4*  LIB$INDEX(\YIb(H4*0P~^@4 STR$RIGHT^H*HL LIB$FIND_FILEPVVIblpSMG$PUT_WITH_SCROLL\1H*ˀˌ LIB$INDEXߞIcUH*ˤP~^˴˨ STR$RIGHT^(^((Icn(^((Ibn(PnQ^˸SMG$PUT_WITH_SCROLL\W SMG$PUT_CHARSWuSMG$SET_CURSOR_ABSPVWSMG$READ_KEYSTROKEPVѫSMG$DELETE_VIRTUAL_DISPLAYSMG$DELETE_VIRTUAL_DISPLAY SMG$DELETE_VIRTUAL_DISPLAY1ѫ WSMG$ERASE_DISPLAYPV1\ OTS$CVT_L_TI^(n ^( n,n Q^(SMG$PUT_WITH_SCROLLի4SMG$PUT_WITH_SCROLLDSMG$PUT_WITH_SCROLLX VSMG$PUT_CHARSWtSMG$SET_CURSOR_ABSW|SMG$READ_KEYSTROKEѫ ˈSMG$ERASE_DISPLAYːSMG$DELETE_VIRTUAL_DISPLAY˘SMG$DELETE_VIRTUAL_DISPLAYˠSMG$DELETE_VIRTUAL_DISPLAYW˨LIB$FIND_FILE_ENDP*.*;*Total files:  KLISTSMG$CREATE_VIRTUAL_DISPLAYSMG$SET_DISPLAY_SCROLL_REGION SMG$PUT_CHARSSMG$PASTE_VIRTUAL_DISPLAY LIB$FIND_FILE LIB$INDEX STR$RIGHTSMG$PUT_WITH_SCROLLSMG$SET_CURSOR_ABSSMG$READ_KWEYSTROKESMG$DELETE_VIRTUAL_DISPLAYSMG$ERASE_DISPLAY OTS$CVT_L_TILIB$FIND_FILE_END$CODE$PDATA,$LOCAL PD_COMMONI NODE_INFO/SMG_INFOePvPLDP[PPIPP!PpP {P P9P&ww1`6^ &017 LOAD_DISPLAY0127-Mar-1989 11:3027-Mar-1989 11:30VAX FORTRAN V5.0-1PP The current directory wasX not found in your save fileP      5 PRINT_MESSAGE@PH[\ RԢbPޢ QPѢ̋ PD_UNDRAW_BARSMG$ERASYE_DISPLAYSMG$ERASE_DISPLAY SMG$ERASE_DISPLAY(SMG$CHANGE_PBD_CHARACTERISTICS<SMG$SET_DISPLAY_SCROLL_REGIONTL PD_LOAD_BARX PD_DRAW_BARѢ̋PP` PD_UNDRAW_BARhSMG$ERASE_DISPLAYpSMG$ERASE_DISPLAYxSMG$ERASE_DISPLAYˀSMG$CHANGE_PBD_CHARACTERISTICS˔SMG$SET_DISPLAY_SCROLL_REGIONˬˤ PD_LOAD_BAR˰ PD_DRAW_BAR˸MSMG$BEGIN_PASTEBOARD_UPDATESMG$ERASE_DISPLAYТLSTբLUTVZF0WՇާADD_NODE_TO_DISPLAYUSTTSUSVFWՇէէŏ#P@G?Q a@C?Qa@??QaQQQ~^@G?P`SMG$CHANGE_RENDITION^UTSSMG$END_PASTEBOARD_UPDATE PRINT_MESSAGE H LOAD_DISPLAYSMG$CHANGE_PBD_CHARACTERISTICSSMG$CHANGE_RENDITION PD_UNDRAW_BARSMG$ERASE_DISPLAYSMG$SET_DISPLAY_SCROLL_REGION PD_LOAD_BAR PD_DRAW_BARSMG$BEGIN_PASTEBOARD_UPDATEADD_NODE_TO_DISPLA[YSMG$END_PASTEBOARD_UPDATE PRINT_MESSAGE$CODER$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFOfP DP_OPTPhP`PU'P'7PaPmsPSxPN}PIP ww1a &015 LOAD_FILES0127-Mar-1989 11:3027-Mar-1989 11:30VAX FORTRAN V5.0-1 P.DIRToo many files; not all displayedP \$! H PRINT_MESSAGE@PK[<\VWŏ VXHP`,n H,n H\VH^(+nŏ#P@;?\l\@0>X\^(\hn\YYV,Vn PQ^kH LIB$FIND_FILEP, LIB$INDEXP8 APPEND_FNODE@LIB$FIND_FILE_ENDHP PRINT_MESSAGEH +P*.*;* K LOAD_FILES LIB$FIND_FILE LIB$INDEX APPEND_FNODELIB$FIND_FILE_E]ND PRINT_MESSAGE$CODE0$PDATA\$LOCAL PD_COMMONI NODE_INFO/SMG_INFO!P#PPPww1Qb &015 LOAD_NODES0127-Mar-1989 11:3027-Mar-1989 11:30VAX FORTRAN V5.0-1PSTART<SYS$DISKCannot SWING to another device.SWING_SAVESearching directory structure...000000.DIR;18 P  ^  h  CLI$PRESENT@ x  CLI$GET_VALUE@P P P 8 P ( ( LIB$SYS_TRNLOG@& ` 1 1 PRINT_MESSAGE@( ( LIB$SYS_TRNLOG@8 8 @ &   Q, Q LIB$SYS_TRNLOG@, X D H (  \ _I# \ \ PRINT_MESSAGE@P   P  }P  P   P  P 4 L P P d | P  P   P P  ` P P   P P $ PK( [<PQ\RQSC0TԄRPQVԬlH CLI$PRESENTP1X CLI$GET_VALUE2PPPPlhSYS$EXITp STR$UPCASE- | GET_LOCATIONTTWG[G<TTT,T ƗWƶ˘LIB$SYS_TRNLOG- Ɨ˰a PRINT_MESSAGELIB$SYS_TRNLOGWP,PG (2ƽ(ƺWƹƹ1 GET_LOCATIONWWTDƺ>Dƺ.Dƺ]Wƺ LIB$INDEXPP[@ƺ]~WPP^(Pƺn^SYYX,Xn 2ƽPQ^W,2ƽ LIB$SYS_TRNLOGP_~PP^(Pƾn^SXXW ^( n W X,Wn XƽPQ^Xk1X ^( n^(ƽnY YWWWX^ $ LIB$FIND_FILEX^P1X ^( n^(ƽnY YWW4WX^8<FOR$OPENX^Pb1 FOR$READ_SU߬L FOR$IO_L_R FOR$IO_L_R߬ FOR$IO_L_R FOR$IO_ENDЬLXWլL FOR$READ_SUWP@0PL FOR$IO_X_SE FOR$IO_ENDXWWX FOR$READ_SUŏ#XP@0>P`xt FOR$IO_X_SE FOR$IO_ENDWX| FOR$CLOSE#1ˌ PRINT_MESSAGEˠ APPEND_NODE˸ LIB$FIND_FILEP1 LIB$INDEXP1 APPEND_NODE LIB$FIND_FILEP1 APPEND_NODE, LIB$FIND_FILEcP1D APPEND_NODE\ LIB$FIND_FILEP1t APPEND_NODEˌ LIB$FIND_FILEPˤ APPEND_NODE˼ LIB$FIND_FILEP APPEND_NODE LIB$FIND_FILEP APPEND_NODELIB$FIND_FILE_ENDLIB$FIND_FILE_END$LIB$FIND_FILE_END1p,LIB$FIND_FILE_END1H4LIB$FIND_FILE_END1 <LIB$FIND_FILE_END1DLIB$FIND_FILE_ENDPCURRENTSWING_SAVE:swing.sav K LOAD_NODES CLI$PRESENT dCLI$GET_VALUE LIB$FIND_FILELIB$SYS_TRNLOGSYS$EXIT STR$UPCASE GET_LOCATION PRINT_MESSAGE LIB$INDEXFOR$OPEN FOR$CLOSE APPEND_NODELIB$FIND_FILE_END$CODE$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFO FOR$IO_END FOR$IO_L_R FOR$IO_X_SE FOR$READ_SUZPiP PPPP3P P -PGPOPXPsP P@ PMKP PPeP.PP5PETP;}P PPPPP\P43P ww1Tc &01;MODIFY_FILE_PROT0127-Mar-1989 11:3027-Mar-1989 11:30VAX FORTRAN V5.0-1PPXP PH[}PQPkT LIB$MOVC5TP`UPP`jP`P` |H PD_GET_CHOICE PD_BAR_CHOICEPD_LIST_CHOICE$CODE$PDATAt`$LOCAL PD_COMMONG%PDPOZP9PGP0P,PPP ww1.@i &019PD_LIST_CHOICE0127-Mar-1989 11:3127-Mar-1989 11:31VAX FORTRAN V5.0-1PpPD DTP``X`X`\u`P`dl`dP`hP`PIP[Ь$}PQ8Լ$RS$P`PRPRP<PTD$@DPTD$HBXLSTR$TRIMSPPBBPPSRRSk\SMG$CREATE_VIRTUAL_DISPLAYЫSkRSPPQA$P`PPPQA$TRtdx| SMG$PUT_CHARSЫP@PPQA$TRːd˔˘ SMG$PUT_CHARSЫP@SPPP R PP vR PP ޼˸˴SMG$BEGIN_PASTEBOARD_UPDATE޼˼SMG$PASTE_VIRTUAL_DISPLAY޼SMG$REPASTE_VIRTUAL_DISPLAY޼SMG$END_PASTEBOARD_UPDATETUVW~^RkSMG$CHANGE_RENDITION^V1V 1T1U1SMG$SET_CURSOR_ABSЫR޼VSMG$READ_KEYSTROKEЫVVRRW$T1VRSRWW1VѼѼ׼$TVѼѼּ$TVTS$P`PSPwSQQXH$QaQVQ QVQUSWSWRB<R$SMG$CHANGE_RENDITIONG~^XW@SMG$CHANGE_RENDITION^ЫWW1޼d\SMG$UNPASTE_VIRTUAL_DISPLAYT,n 8 PPS(C$8PPSC$P`PP  IPD_LIST_CHOICE SMG$CREATE_VIRTUAL_DISPLAYSTR$TRIM SMG$PUT_CHARSSMG$BEGIN_PASTEBOARD_UPDATESMG$PASTE_VIRTUAL_DISPLAYSMG$REPASTE_VIRTUAL_DISPLAYSMG$END_PASTEBOARD_UPDATESMG$CHANGE_RENDITIxONSMG$SET_CURSOR_ABSSMG$READ_KEYSTROKESMG$UNPASTE_VIRTUAL_DISPLAY.$CODE $PDATA$LOCAL PD_COMMON+PDPpP)P+P PPPHPBP<PPPPPPPPPP P,Pw8P#BPLPXPK`PeP>xP+PPP3PP*ww1 k &016 PD_LOAD_BAR0127-Mar-1y989 11:3227-Mar-1989 11:32VAX FORTRAN V5.0-1WP,PD D@HPK([ЬRSP`PRPRPPTD PTD$Bԫ4(STR$TRIMSPPBBPPSRR޼@8SMG$CREATE_VIRTUAL_DISPLAYPSMG$ERASE_DISPLAY޼dXSMG$CHANGE_VIRTUAL_DISPLAYSRPPRPQQPPQQSSzQQSSQQRSUSޫVUQQQPfQWWQQWWQUWWXHYІTTtixQP~^ˌ| SMG$PUT_CHARS^SUR K PD_LOAD_BARSMG$CREATE_VIRTUAL_DISPLAYSMG$CHANGE_VIRTUAL_DISPLAYSTR$TRIMSMG$ERASE_DISPLAY SMG$PUT_CHARS>$CODE$PDATA$LOCAL PD_COMMON.PDmP|PPPP]ww1j8m &018 PD_UNDRAW_BAR0127-Mar-1989 11:322 {7-Mar-1989 11:32VAX FORTRAN V5.0-1LPPH[޼kSMG$UNPASTE_VIRTUAL_DISPLAY| H PD_UNDRAW_BARSMG$UNPASTE_VIRTUAL_DISPLAY$CODE$PDATA $LOCAL PD_COMMONww1@$cm &015 PRINT_FILE0127-Mar-1989 11:3227-Mar-1989 11:32VAX FORTRAN V5.0-1P.DIR;1 Sent file to printer.Cannot print a directory.8P21| PXl PRINT_MESSAGE@H4@8880 PRINT_MESSAGE@++ PRINT_MESSAGE@PH0[ŏ HP@Qa$0 LIB$INDEXP1D PRINT_MESSAGEPSMG$SET_CURSOR_ABSŏ HP`@dhSTR$TRIM, E }2xTRANSLATE_LOGICALP˄STR$TRIM\«^(nЫV^(PnVk^(knkWWVV˔V\^˘˜ LIB$SPAWN\^\«^(nЫV^(enVV˰V\^˴˸ LIB$SPAWN\^ PRINT_MESSAGE PRINT_MESSAGEEPSWING$PRINT/noidentify/nonotify $print/noidentify/nonotify  H PRINT_FILETRANSLATE_LOGICAL LIB$INDEX PRINT_MESSAGESMG$SET_CURSOR_ABSSTR$TRIM LIB$SPAWN$CODE$PDATA$$LOCAL PD_COMMON~I NODE_INFO/SMG_INFO .PzPUP;P ww1/o &018 PRINT_MESSAGE0127-Mar-1989 11:3227-Mar-1989 11:32VAX FORTRAN V5.0-1P SWING: P P H[}PQP - nkk SMG$ERASE_DISPLAYSMG$ERASE_LINEk$SMG$ERASE_DISPLAY, SMG$PUT_CHARS EXIT_SWING~ FOR$WRITE_SLD FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END߫LFOR$STOP H PRINT_MESSAGESMG$ERASE_DISPLAYSMG$ERASE_LINE SMG$PUT_CHARS EXIT_SWING$CODE$PDATAT$LOCAL PD_COMMONI NODE_INFO/SMG_INFOFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL3PD%P(P=PUP^P5P ww1%vo &01:PROCESS_COMMAND 0127-Mar-1989 11:3227-Mar-1989 11:32VAX FORTRAN V5.0-1APdPH[}PQ LIB$SPAWN HPROCESS_COMMAND LIB$SPAWN$CODE$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFOww1Ϻo &01;RECORD_STRUCTURE0127-Mar-1989 11:3227-Mar-1989 11:32VAX FORTRAN V5.0-1PSaving directory structureNL:Finished saving directory structureUnable to record directory structure P  PRINT_MESSAGE@4    d  LIB$SPAWN@ LIB$SPAWN@ I#### PRINT_MESSAGE@$G$G PRINT_MESSAGE@PO[ЫVX#PQPŏ#QRB;?ScBK?ScBO?RbPQ LOAD_NODES LOAD_DISPLAY UPDATE_SCREEN( PRINT_MESSAGEkY ^( ln^(nW WZZ4ZY^8< LIB$FIND_FILEY^P1LLIB$DELETE_FILEP1TSTR$TRIMdhlMODIFY_FILE_PROTP|LIB$DELETE_FILEPVY ^( wn^(nW WZ^(nZZ˄ZY^ˈ˜ LIB$SPAWNY^ˬLIB$DELETE_FILEPV1˴LIB$FIND_FILE_ENDY ^( wn^(nW WZZ˼ZY^VFOR$OPENY^P1 FOR$WRITE_SUݨL FOR$IO_L_V FOR$IO_L_Vݨ FOR$IO_L_V FOR$IO_ENDШLYVYިPZ FOR$WRITE_SUj<8 FOR$IO_X_SE FOR$IO_END ZYVVZV FOR$WRITE_SUŏ#ZP@0>P` FOR$IO_X_SE FOR$IO_ENDVZ FOR$CLOSE# PRINT_MESSAGE, PRINT_MESSAGElPswing.sav;*Q SET PROT=(S:D,O:D,G:D,W:D) Qswing.sav ORECORD_STRUCTUREMODIFY_FILE_PROT LIB$FIND_FILELIB$DELETE_FILE LOAD_NODES LOAD_DISPLAY UPDATE_SCREEN PRINT_MESSAGESTR$TRIM LIB$SPAWNLIB$FIND_FILE_ENDFOR$OPEN FOR$CLOSE$CODE$PDATAD$LOCAL PD_COMMONI NODE_INFO/SMG_INFO FOR$IO_END FOR$IO_L_V FOR$IO_X_SE FOR$WRITE_SUQPRPK,P'PPP P^PP,,P5ww1>Jp &01>REDEFINE_SMG_LAYOUT0127-Mar-1989 11:3327-Mar-1989 11:33VAX FORTRAN V5.0-1 PP˴@;?P`˸ DIR_TO_FILEP1Y LIB$INDEXPP^(Pn^SZ^(nZZ˰ZY^˴ LIB$SPAWNY^Y^(nX^(X˰nXVVZZ˰ZY^˴LIB$RENAME_FILEY^PYY1Zݏ.DIRX^(X˰nXWWV«^(nЫWWVV˰VZ^˴ŏ#P @0>@;?Vf( @/? FILE_TO_DIRZ^Zݏ.DIRX^(X˰nXWWV«^(nЫWWV^(nVVVZ^0 LIB$SPAWNZ^ԫD MOVE_NODEADJUST_NODE_POINTERS LOAD_DISPLAYŏ#P@C?ZjZZ@??P`PPP UPDATE_SCREENd PRINT_MESSAGEYtp SYS$GETMSGﰫˈ PRINT_MESSAGE˔SMG$ERASE_DISPLAY1Ѽ1Y $Vŏ#P@G?WgWW~^˨@G?P`˴˜SMG$CHANGE_RENDITION^ PRINT_MESSAGEVVV^SMG$SET_CURSOR_ABS^WW1SMG$READ_KEYSTROKEZŏ#P@G?P`PPʓk kW1kPPXXH0PPPP UPDATE_SCREEN1kPPXXH0PLPPLP UPDATE_SCREEN1kPXPXQA0PPPP UPDATE_SCREENkPXXQPQA0XXXPX UPDATE_SCREENWPP~^SMG$SET_CURSOR_ABS^1wŏ# WGG?P`V^˨GG?Wg˴˜SMG$CHANGE_RENDITION^k k1CHECK_DIRECTORY_MOVEPP UPDATE_SCREEN PRINT_MESSAGEŏ# P@0>@;?P`,$ DIR_TO_FILEP1W LIB$INDEXPP^(Pn^SV^(nVVVW^8 LIB$SPAWNW^W^(nŏ#P@;?XhX@0>QX^(XanXZZVVVW^LLIB$RENAME_FILEW^P 1Vl LIB$INDEXPZ LIB$INDEXPZPP^(PJn^SXŏ#P@;?QaQ@0>ZQ^(Qjn^SWWX^(nXXXV^x LIB$SPAWNV^ MOVE_NODEADJUST_NODE_POINTERS LOAD_DISPLAYŏ# P@C?VfVV@??P`PPP UPDATE_SCREEN˔ PRINT_MESSAGEЫ tp SYS$GETMSGﰫˈ PRINT_MESSAGE˔SMG$ERASE_DISPLAY˔SMG$ERASE_DISPLAYPSET PROT=(S:RWED,O:RWED) .DIR;1SET PROT=(S:RWE,O:RWE) *.dir;1 RENAME_DIRECTORYLIB$RENAME_FILE SYS$GETMSG DIR_TO_FILECHECK_DIRECTORY_MOVE PRINT_MESSAGESMG$SET_CURSOR_ABSSMG$READ_STRING STR$UPCASE LIB$SPAWN LIB$INDEX FILE_TO_DIR MOVE_NODEADJUST_NODE_POINTERS LOAD_DISPLAY UPDATE_SCREENSMG$ERASE_DISPLAYSMG$CHANGE_RENDITIONSMG$READ_KEYSTROKE $CODE#$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFOPP?PBKP1SP)[P!dPmPPPJP4|P'P PUPC@P|P PPP7P PPPP;P PP PP;1P 6P@PPPV\PGbPA|P PP PP PPWPPP(P P ww1@t &016 RENAME_FILE0127-Mar-1989 11:3327-Mar-1989 11:33VAX FORTRAN V5.0-1rP.DIR;1 New name: File has been renamed.Cannot rename directory with the filer.lPdd | PRINT_MESSAGE@  l SMG$READ_STRING@dlll  PRINT_MESSAGE@ht<'7P7 PRINT_MESSAGE@PHd[ŏ HP@Qa( LIB$INDEXP1< PRINT_MESSAGEHSMG$SET_CURSOR_ABS`SMG$READ_STRINGˌ STR$UPCASEŏ HP˘@˜ˠLIB$RENAME_FILEP\\˴ PRINT_MESSAGE\ SYS$GETMSGﰫ PRINT_MESSAGE LOAD_FILESUPDATE_FILE_WINDOW PRINT_MESSAGE  H RENAME_FILELIB$RENAME_FILE LIB$INDEX PRINT_MESSAGESMG$SET_CURSOR_ABSSMG$READ_STRING STR$UPCASE SYS$GETMSG LOAD_FILESUPDATE_FILE_WINDOW$CODE_$PDATAd$LOCAL PD_COMMONI NODE_INFO/SMG_INFO .P{P P%P ww1 9u &019RESET_TERMINAL0127-Mar-1989 11:3327-Mar-1989 11:33VAX FORTRAN V5.0-1 P    # PH[}PQPЬ SYS$ASSIGNk<޼P4SYS$QIOWi HRESET_TERMINAL SYS$ASSIGNSYS$QIOW:$CODE$PDATAp$LOCALww1`av &014 SET_NOTAB0127-Mar-1989 11:3327-Mar-1989 11:33VAX FORTRAN V5.0-1LPP   '   #  PH[}PQPЬ SYS$ASSIGNk<޼P4SYS$QIOW޻RТޢlh FOR$JIBCLRPТ k|tSYS$QIOWs H SET_NOTAB SYS$ASSIGNSYS$QIOW FOR$JIBCLRe$CODE$PDATA$LOCALww1x &015 SHOW_FILES0127-Mar-1989 11:3327-Mar-1989 11:33VAX FORTRAN V5.0-1P ( P4 PRINT_MESSAGE@ PP GPTPYP bP kPxP}P P P`PP P P>PP  P PPP Pww1`| &01;SM_ALLOW_REPAINT0127-Mar-1989 11:3327-Mar-1989 11:33VAX FORTRAN V5.0-1nPPPH[SM_REPAINT_SCREENPP kSMG$SET_OUT_OF_BAND_ASTS HSM_ALLOW_REPAINTSM_REPAINT_SCREENSMG$SET_OUT_OF_BAND_ASTS$CODE$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFOww1%} & 01<SM_REPAINT_SCREEN0127-Mar-1989 11:3427-Mar-1989 11:34VAX FORTRAN V5.0-19PPH[kSMG$REPAINT_SCREEN HSM_REPAINT_SCREENSMG$REPAINT_SCREEN$CODE$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFOww1@PJV010SWING0115-Aug-1987 15:4715-Aug-1987 15:47VAX FORTRAN V4.5-219 SWINGwP FYou must use a DEC CRT terminal Advanced video option required SWINGTRANSFER$ADDRESS(PPH0@0 PRINT_MESSAGE@  PP PRINT_MESSAGE@ c0 RR PRINT_MESSAGE@ ( (,$ P|H[Ы\kR$CRTP4 PRINT_MESSAGEDEFINE_PASTE_BOARD@SMG$CREATE_VIRTUAL_DISPLAYPSMG$CREATE_VIRTUAL_DISPLAY`SMG$CREATE_VIRTUAL_DISPLAYpSMG$CREATE_VIRTUAL_DISPLAYˀSMG$SET_DISPLAY_SCROLL_REGIONˈSMG$CREATE_VIRTUAL_DISPLAY˘SMG$SET_DISPLAY_SCROLL_REGIONGET_STARTING_LOCATION LOAD_NODESDEFINE_SMG_LAYOUT LOAD_DISPLAY DRAW_SCREENST\1RkˠSMG$READ_KEYSTROKEkR˴ PRINT_MESSAGEŏ#P@G?P`PPkUԫ R(Rg PD_GET_CHOICE U PRINT_MESSAGEѫ [R R"RREReRXRRx\1RqRQ SYS$SETDDIR EXIT_SWING1RPPPQQA0PPP UPDATE_SCREEN1RPPQQA0PLPPLP UPDATE_SCREEN1RPQPQVF0PPPP UPDATE_SCREEN1RPQQVPVF0QQQPQ UPDATE_SCREEN1RbRBPФLLQPQVF0PPP UPDATE_SCREEN1RtRT UPDATE_SCREEN1RCURc CREATE_DIRECTORY1RRURrRENAME_DIRECTORY1RMURmRENAME_DIRECTORY1RDURd DELETE_DIRECTORY1RPURp HARDCOPYRSURs$RECORD_STRUCTUREROURo CHANGE_OPTIONSRHRhR'UR 5HELPPP~^8,SMG$SET_CURSOR_ABS^¹D1< EXIT_SWINGP3 |HSWINGSMG$CREATE_VIRTUAL_DISPLAY SYS$SETDDIRCRT PRINT_MESSAGEDEFINE_PASTE_BOARDSMG$SET_DISPLAY_SCROLL_REGIONGET_STARTING_LOCATION LOAD_NODESDEFINE_SMG_LAYOUT LOAD_DISPLAY DRAW_SCREENSMG$READ_KEYSTROKE PD_GET_CHOICE EXIT_SWING UPDATE_SCREENCREATE_DIRECTORYRENAME_DIRECTORYDELETE_DIRECTORYHARDCOPYRECORD_STRUCTURECHANGE_OPTIONSHELPSMG$SET_CURSOR_ABSk$CODEq$PDATAP$LOCAL PD_COMMONI NODE_INFOSMG_INFODPPPPPP P@P;(P21P):P CPLPQP ZP _PlP uPPP7PPPPyP;P PP P3P;1P 6P@PPP\PGbPA|P PP PP P6P PPYP PP/P!P *P 5P @PEP NP YPdPiP rP }PPP P PPP P P|PP P PXPP P  P4P !P*P/P 8P  kww1Д &V1.0( SWING_TABLESV1.027-MAR-1989 11:37-VAX/VMS Command Definition Utility (V4-001) SWING_TABLES CLI$TABLESP SWIN ,(@T SWING0$STARTCURRENTww1C} &01<TRANSLATE_LOGICAL0127-Mar-1989 11:3427-Mar-1989 11:34VAX FORTRAN V5.0-1PLNM$PROCESSLNM$JOBLNM$SYSTEMP < SYS$TRNLNM@D d SYS$TRNLNM@l  SYS$TRNLNM@QNQP|ˀ SYS$SETDDIR H UPDATE_SCREEN SYS$SETDDIRSMG$BEGIN_PASTEBOARD_UPDATESMG$CHANGE_RENDITIONUPDATE_WINDOW1SMG$END_PASTEBOARD_UPDATESMG$MOVE_VIRTUAL_DISPLAYD$CODE$PDATA$LOCAL PD_COMMONI NODE_INFO/SMG_INFO)P<PPHP?Pww1% &019UPDATE_WINDOW10127-Mar-1989 11:3427-Mar-1989 11:34VAX FORTRAN V5.0-16PPPH[1ŏ#P@;?P`PPPPkkSMG$ERASE_LINE\ŏ#P@;?QaQ@0>RQ^(Qbn^SV^(nWWVVV\^ SMG$PUT_CHARS\^ HUPDATE_WINDOW1SMG$ERASE_LINE SMG$PUT_CHARS$CODE$PDATA8$LOCAL PD_COMMONI NODE_INFO/SMG_INFOP