% VAX-11 Librarian V03-00#h@1!>~~/279(  1:IOPEN6JJJNXT3OUTWRD4WORD1:IOPEN6JJJNXT3OUTWRD4WORD  !"#$%&'()*+,-./012=1ۅ1011OUTWRD0120-May-1983 17:2220-May-1983 17:22VAX-11 FORTRAN V3.0-2 OUTWRDI2/1'tDRB1:[SCI.JILL]WORD.FOR;1990 N\P  NPNN OUTWRDP|HtN[}PQP 1Џ - kLIB$ERASE_PAGE1- k  FOR$WRITE_SF$ FOR$IO_T_DS 51@ 101S/WORD0120-May-1983 17:2220-May-1983 17:224VAX-11 FORTRAN V3.0-2- WORDI2/1'tDRB1:[SCI.JILL]WORD.FOR;199 P AG \N Enter: ^Z to EXIT? Unique words Bad Size of Good Size of BadWord? {Cmd} {Out_file} {Word} {aaaaa} {aa...{bb}} {aa?bb} {Flags} {-Line} {-Pack} {Other} {/EDIT} {/EDT} {$ dcl_cmdC} {EXIT} {Lst <*} <= Reading Siz of Good Siz of Bad, ZEROED Enter: ^Z to exit... Good Ok `' `' *NO*+ ?> \Z<----EndCan't have Dot's at start Siz of BadPP   `PPP PpPP`00 OUTWRD@4<3,G MZ ^<1@1011JJJNXT0120-May-1983 17:2220-May-1983 17:22VAX-11 FORTRAN V3.0-2 JJJNXTI2/1'tDRB1:[SCI.JILL]WORD.FOR;199~ $P JJJNXT\PH>V^L޼ˀм˔PFOR$OPENV^ЫPPWORDS.L |HIOPEN IUNIT-LUNOPNPFNAME`FDIR<b.JPILISTPL SYS$GETJPI INXw LIB$INDEXFOR$OPEN$CODE $PDATA@$LOCAL PP<P PP«PЫQ-PA A PP<P PP«PЫQ,PA kЫP PT TTPP TPPPQ-PAp nTѫTL1ѫ<1 FOR$WRITE_SF< PP PPPP0QAp40 FOR$IO_T_DS FOR$IO_END PPPPP <PQQPQRS,QCp PBpL18ѫ<1 FOR$WRITE_SF 4PaP 4PPPQP^(PApn^SVݏ ?> VV0^˯40 FOR$IO_T_V_DS FOR$IO_END4Pë4P PPP PPP PQQPQRS,PCp QBp1 <LPPLPQP^(PApn^SVݏ ?> V <PPPPPQ,Vn PApPQ^1` 4P@PIOPEN 4QPA( `$ LIB$INDEXPXˈOUTWRDЏa \ XXPP X PP\~Q,n PA PQ^ JJCTCP1RPĹb֡شŸ~~ 4PP 4 PPP0QA 4024~ FOR$READ_KF| FOR$IO_T_DS FOR$IO_ENDV,~ 4PP 4 PPQP^(PA@n^S\\\0\V^4ˈOUTWRDV^z \˘OUTWRDˠOUTWRD1(  1˨OUTWRD LIB$INDEXPc`ѫ`~ FOR$WRITE_SL˰ FOR$IO_T_DS FOR$IO_END1 `PP ` PPQ,PA  ``P P PP PQ,PA  P˸JJLENPd-P nԫdëdd`h JJCTCP1 hP@IOPEN hQPA~ hPP h PPP0QA`402h~ FOR$READ_KF| FOR$IO_T_DS FOR$IO_END JJCTCP1~2h~ FOR$READ_SF| FOR$IO_T_DS FOR$IO_END `PPd ` PPQ-PA@ `1իdëdhPP PhPP h PPQ-PA@ P1PV,~ hPP h PPQP^(PA@n^S\\\0\V^4ˈ4OUTWRDV^1hYOUTWRDOUTWRD1W(  1<~ FOR$READ_SFt FOR$IO_T_DS FOR$IO_ENDDJJLENPl l P@\2lpݫp FOR$WRITE_SF lPP l PPP0QA 40 FOR$IO_T_DS FOR$IO_ENDX11eOUTWRD~ FOR$WRITE_SL$~ FOR$IO_L_VT FOR$IO_T_DS߫ FOR$IO_L_R\ FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SLk FOR$IO_L_R FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPP  $500 ITIM ISEXIT 9000%OUTWRD FOR$CLOSEJJUCMDJ ISINFLFOR$OPENL 1000 1500 +2000 NEWFLG .2010 JJJNXT 2300 JJUPP. ,2100 2200 IRET JJUFIL3 hPP<QA(@ ~ 4PP 4 PPQP^(PA n^S\\ ~\\0\V^48 LIB$INDEXV^P1V PP }PPP0QA`4 ~ 4PP 4 PPQP^(PA n^S\\ ~\\<\V^@D LIB$INDEXV^PիP11 4P@PIOPEN 4QPA~~ 4PP 4 PPP0QA 4024~ FOR$READ_KF| FOR$IO_T_DS FOR$IO_END֫$k}1kP4kQQ PPP i}PP 4QQ 4 QQPPQ^(Q@ n^SV ~VP,Vn @(PQ^4kPPk ~ FOR$WRITE_SLk FOR$IO_L_RX FOR$IO_T_DS FOR$IO_ENDի FOR$WRITE_SF` FOR$IO_T_DS 4PP 4 PPP0QA 40 FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END1֫ѫ}1P4QQ PPP }PP 4QQ 4 QQPPQ^(Q@ n^SV ~VP,Vn @`PQ^4jPP ~ FOR$WRITE_SL߫ FOR$IO_L_R\ FOR$IO_T_DS FOR$IO_ENDL1X1ի FOR$WRITE_SFp FOR$IO_T_DS 4PP 4 PPP0QA 40 FOR$IO_T_DSx FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFˀ FOR$IO_T_DS  FOR$IO_L_R FOR$IO_ENDѫ44 4PP 4 PPP0QA 4ˈOUTWRD1ːLIB$ERASE_PAGELIB$SET_CURSOR( k DJJLENP4 4PP 4 PPP0WQA 4˜ LIB$INDEXP<( 0@˨LIB$ERASE_LINE0~^˸˴LIB$ERASE_LINE^0~^˸˴LIB$ERASE_LINE^LIB$PUT_SCREEN0~^LIB$PUT_SCREEN^0~^˸˴LIB$SET_CURSOR^ѫ<< PP PPPP0QAp40~^LIB$PUT_SCREEN^ 4PP 4 PPP0QA 4LIB$PUT_SCREEN4

PT TTPP TPPPQ-PAp nTѫTL1ѫ<1 FOR$WRITE_SF< PP PPPP0QAp40 FOR$IO_T_DS FOR$IO_END PPPPP <PQQPQRS,QCp PBpL18ѫ<1 FOR$WRITE_SF 4PoP 4PPPQP^(PApn^SVݏ ?> VV0^˯40 FOR$IO_T_V_DS FOR$IO_END4Pë4P PPP PPP PQQPQRS,PCp QBp1 <LPPLPQP^(PApn^SVݏ ?> V <PPPPPQ,Vn PApPQ^1` 4P@PIOPEN 4QPA( `$ LIB$INDEXPXˈOUTWRDЏa \ XXPP X PP\~Q,n PA PQ^ JJCTCP1RĹp֡شŸ~~ 4PP 4 PPP0QA 4024~ FOR$READ_KF| FOR$IO_T_DS FOR$IO_ENDV,~ 4PP 4 PPQP^(PA@n^S\\\0\V^4ˈOUTWRDV^z \˘OUTWRDˠOUTWRD1(  1˨OUTWRD LIB$INDEXPq`ѫ`~ FOR$WRITE_SL˰ FOR$IO_T_DS FOR$IO_END1 `PP ` PPQ,PA  ``P P PP PQ,PA  P˸JJLENPd-P nԫdëdd`h JJCTCP1 hP@IOPEN hQPA~ hPP h PPP0QA`402h~ FOR$READ_KF| FOR$IO_T_DS FOR$IO_END JJCTCP1~2h~ FOR$READ_SF| FOR$IO_T_DS FOR$IO_END `PPr ` PPQ-PA@ `1իdëdhPP PhPP h PPQ-PA@ P1PV,~ hPP h PPQP^(PA@n^S\\\0\V^4ˈ˚OUTWRDV^1hYOUTWRDOUTWRD1W(  1<~ FOR$READ_SFt FOR$IO_T_DS FOR$IO_ENDDJJLENPl l P@\2lpݫp FOR$WRITE_SF lPP l PPP0QA 40 FOR$IO_T_DS FOR$IO_ENDX11sOUTWRD~ FOR$WRITE_SL$~ FOR$IO_L_VT FOR$IO_T_DS߫ FOR$IO_L_R\ FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SLk FOR$IO_L_R FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPP  $500 ITIM ISEXIT 9000%OUTWRD FOR$CLOSEJJUCMD ISINFLFOR$OPENL 1000 1500 +2000 NEWFLG .2010 JJJNXT 2300 JJUPP. ,2100 2200 IRET JJUFIL3 vNUMB NLINE NUMG JJLEN- J2311  2312 LNL.JJLOW LIB$SPAWN^  2310 LN4 !52 u55 2305 50I'LIB$PUT_SCREENLIB$SET_SCROLL LN LIB$INDEXd J4000 3000 U 2500  2505 II  2650 2770 IOPENV G2750 2900 2800  2810 NLCwJLIB$ERASE_LINE 2820LIB$GET_SCREENO LN2 8000 2850 LN1 LOC 2910 IN ~2912 LN3 2915 ^2920 INX IX 3900 LDOT LTRL LTST 4900 4500 4100 Z4600 N IUN$CODE$PDATA$LOCALJJU_SWIJJU_FIL OUTDEVFOR$IxNIT_UNDER FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$READ_KF FOR$WRITE_SF FOR$WRITE_SL FOR$WRITE_IFefP"PN:PJP>P&Pb)P+PwRPbPPPPI4P: PjPtLP%P?tPJPymPPPsP*P PPP  PT|PqPl P2 P  Pj P  P/M PZ P: P P/ PZ Py P~ P  P} P P# P P% PfUPP&!P|,P2PhPyP/PPRPP0P8 PP6PiPtP PPPPPePfPP/PKP`P9PPP>PP:^R֡wwPPPPP`UP9hPPP>PP:[O zNUMB NLINE NUMG JJLEN- J2311  2312 LNLJJLOW LIB$SPAWN$^  2310 LN4 !52 u55 2305 50I'LIB$PUT_SCREENLIB$SET_SCROLLS LN LIB$INDEX$d J4000 3000 U 2500  2505 II  2650 2770 IOPENV G2750 2900 2800  2810 NLC{JLIB$ERASE_LINE 2820LIB$GET_SCREENO LN2 8000 2850 LN1 LOC 2910 IN ~2912 LN3 2915 ^2920 INX IX 3900 LDOT LTRL LTST 4900 4500 4100 Z4600 N IUN$CODE$PDATA$LOCALJJU_SWIJJU_FIL OUTDEVFOR$I|NIT_UNDER FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$READ_KF FOR$WRITE_SF FOR$WRITE_SL FOR$WRITE_IFIefP"PN:PJP>P&Pb)P+PwRPbPPPPI4P: PjPtLP%P?tPJPymPPPsP*P PPP  PT|PqPl P2 P  Pj P  P/M PZ P: P P/ PZ Py P~ P  P P P# P P% PfUPP&!P|,P2PhPyP/PPRPP0P8 PP6PiPtP PPPPPePfPP/PKP`P9PPP>PP:^R֡ww#ww P% PfUPP&!PZ,P2PhPyP/PPRgPwP0P8 PP6PGPRP PPPiPPCPDPP P)P`P9PPP>PP:9]Q֡IOww !P]P`<bP Q@ IOPENP|H[