q[VAX-11 Librarian V2A.00a  Y!4z   CFILL CONTROL| CRELBRSYMEMULATORFIELDLPGETFIELD%GETHELP(rGETSTR)`IGETCHAR+.NUMPAD,NUMPARSE-RANGE1&RANJE 1܉010CFILL01 4-Nov-1981 16:59 4-Nov-1981 16:59VAX-11 FORTRAN V2.3-53 CFILL CFILL_PP defaults to all alpha.  No programs on file Program # not on file Program has an erroneous format Do you want to save this program card? Enter card title: PP?WRITE_SF FOR$IO_T_DSp FOR$IO_T_DS FOR$IO_END1J۫1۫1۫1۫~ FOR$WRITE_SF FOR$IO_L_R FOR$IO_END1۫ ~ FOR$WRITE_SFP@˼˸ FOR$IO_T_DS FOR$IO_END1۫1Џ$11Џ$P04Џ$ ~ FOR$WRITE_SF\L˼˸ FOR$IO_T_DS FOR$IO_ENDLԫ8ZP\@`1֫8ѫ81 ~ FOR$WRITE_SFp lP@PRP P P PV3P,iPHoPyP P P PP!PPP PWPQP.P P 'PFP+ P : P M ww19d[03 CRELBRSYM023-NOV-1981 12:58 VAX-11 Macro V02.45 CRELBRSYM RMS$_EOF . ABS . . BLANK .P  CRELBRSYM&$ABS$5PPPPPPPPPPHLPCMNPRMS$_EOF( CRELBRSYM CRELBRSYM- . BLANK .HLPCMNww1D013EMULATOR0124-Nov-1981 08:4924-Nov-1981 08:49VAX-11 FORTRAN V2.3-53#EMULATOREMULA 1Pn01 0FIELD0125-Nov-1981 09:5025-Nov-1981 09:50VAX-11 FORTRAN V2.3-53 FIELD FIELDr]PPPL[}PQм мkkPkZJ+J k PkmH LFIELDJ$CODE$PDATA $LOCAL%P0P 7PJww &F cD|D CFILL@tD CFILL@|D CFILL@p` PtlD CFILL@PR/Q QQQ Q SDANQQQ QPO,[ A_c] CFILL@\kgck CFILL@m   gck CFILL@0`ck CFILL@)QlQQ PO\[}PQ((~ FOR$WRITE_SF4 FOR$IO_T_DS, FOR$IO_T_Dˀ FOR$IO_T_DS FOR$IO_ENDЏ$1۫ ~ FOR$WRITE_SFˀ FOR$IO_T_DS FOR$IO_ENDЏ$1˨IGETCHARPkP~ FOR$WRITE_SL˰ FOR$IO_T_DS FOR$IO_END1۫P @ ~ FOR$WRITE_SFP@˼˸ FOR$IO_T_DS FOR$IO_END1 ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_END1۫1PPPP1T013EMULATOR0125-Nov-1981 13:1625-Nov-1981 13:16VAX-11 FORTRAN V2.3-53#EMULATOREMULATORZP+N)+)+) Can not insert lines here... ERROR FROM TERMINAL - RETRY *Erased*P Last line entered: Continue.... Processing line # Leaving verify mode. Last line verified: Leaving data entry mode Leaving alter mode Leaving insert modedP`PRO_END1۫ ~ FOR$WRITE_SFP@˼˸ FOR$IO_T_DS FOR$IO_END1۫1Џ$11Џ$P04Џ$ ~ FOR$WRITE_SF\L˼˸ FOR$IO_T_DS FOR$IO_ENDLԫ8ZP\@`1֫8ѫ81 ~ FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_T_DSx FOR$IO_T_DSp FOR$IO_T_DS FOR$IO_END˨IGETCHARPk۫1۫1̴˨NUMPAD ~  &lP F cDdlD CFILL@dD CFILL@p` PdlD CFILL@PR/Qj QQQ Q SDANQQQ QPP Pv PlP'7P ?P7uPj PGPP PP PPP"PxPz P P4P!PPPPPPPFP!(PGVPPuPPPP PPP$PzPx P P4P! P9 PA PX P8 P P  P P  PA P  P.4 P POD1۫ ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS FOR$IO_END1۫1˘GETFIELDZYX1ЩPP Ы PP$Щ0 PѩPP ~ FOR$WRITE_SF0\P\PPLh FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END11ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~ F& ww1[012GETHELP0123-Nov-1981 12:5223-Nov-1981 12:52VAX-11 FORTRAN V2.3-53!GETHELPGETHELPP PHELP$LIBPP(<PK'P LBR$OPEN@PPPPPPOP[}PQ4 CRELBRSYMXLBR$INI_CONTROL,n ,n ,n ,n P@4lx LIB$INDEXPYYYPQ,PA4 , ЫXЫ WYYWWZZPPP˄J4ˈˌ LIB$INDEXPYXXXWZP,PJ4 YЫYЫVXWXVVZZPPP˄J4ˈ˘ LIB$INDEXPXYY YVZ P,P(J4 W XYVY$$ZZPPP˄J4ˈˤ LIB$INDEXPY((,ѫ($Z,P,PJ4 VY˸LBR$OPEN- n- n- n LBR$GET_HELP LBR$GET_HELP LBR$GET_HELP LBR$GET_HELP< LBR$CLOSEPHELP OGETHELP CRELBRSYMLBR$INI_CONTROL LIB$INDEXLBR$OPEN LBR$GET_HELP LBR$CLOSE$CODE$PDATA$LOCALHLPCMNaUPmP PAPPA P%PG^PP3 )PP PPP <0ww1=H׃011GETSTR0117-Nov-1981 09:0217-Nov-1981 09:02VAX-11 FORTRAN V2.3-53 GETSTR GETSTR^P+) ,P, D CFILL@4Q Q  PH [}PQP Լ< k,CFILL@IGETCHARPּP@Ѽk *ЫP@׼둫~ FOR$WRITE_SF$ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END HGETSTRCFILLIGETCHAR$CODE $PDATAh$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFCPTPdP/$ww1݉܉013IGETCHAR01 4-Nov-1981 16:59 4-Nov-1981 16:59VAX-11 FORTRAN V2.3-53#IGETCHAR+IGETCHARUPSYS$COMMANDTP? d SYS$TRNLOG@H\P IO$_READVBLKQlPND[}PQk( SYS$TRNLOG֚PPYYYYZYZPPDJHL SYS$ASSIGNPPЫPkЫ h|`SYS$QIOW NIGETCHAR SYS$TRNLOG SYS$ASSIGNSYS$QIOW IO$_READVBLKn$CODE $PDATA$LOCALPF)PSP ,nww1܉011NUMPAD01 4-Nov-1981 17:00 4-Nov-1981 17:00VAX-11 FORTRAN V2.3-53 NUMPAD NUMPADPPH[}PQ;0U1I2O3J4K5L6M7,8.9QA+WS-ED,RF.C HNUMPAD$CODE$PDATA$LOCALuP! -P,P7PBPMPXPcPmPwPPPPPPPPPww1VB013NUMPARSE0118-Nov-1981 07:4618-Nov-1981 07:46VAX-11 FORTRAN V2.3-53#NUMPARSENUMPARSE\P,PPL[}PQP ԼԼ < kkѫ1P@09Ы091ZPZPPJ. FOR$READ_IF߼ FOR$IO_L_R FOR$IO_ENDZPZPPJ FOR$READ_IF߼  FOR$IO_L_R FOR$IO_ENDA1r LNUMPARSE$CODE$PDATA$$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$READ_IF:6PHPNPSP bP jPpP~xP=P9*ww1@<010RANGE0119-Nov-1981 09:1019-/Nov-1981 09:10VAX-11 FORTRAN V2.3-53 RANGE RANGEP No such line... NO SUCH LINE pP```RXP PO`[}PQP)!~ FOR$WRITE_SL8 FOR$IO_T_DS FOR$IO_ENDVW(! (!(R<PPkkZ(ZkZZPP,n PJXXk1XZJ09VVX09VVëXPP YYZZ ZZPЎQ,QI PJW(R(!VW( 0.^*.(R^(*(W(R(!W( kXVWX) ( ) R(R )R(R~~(Zj FOR$READ_KU FOR$IO_T_DS FOR$IO_END@ FOR$READ_IFߪ FOR$IO_L_R FOR$IO_END)R(``Ъ 0j FOR$READ_KU  FOR$IO_T_DS FOR$IO_ENDH FOR$READ_IFߪ  FOR$IO_L_R FOR$IO_ENDj FOR$REA1D_SU FOR$IO_END~ FOR$WRITE_SLP FOR$IO_T_DS FOR$IO_END(R(R ( FOR$READ_KU FOR$IO_T_DS FOR$IO_END@ FOR$READ_IF FOR$IO_L_R FOR$IO_END!P000000 ORANGE!$CODE'$PDATA$LOCALCOM1COM2COM3COM4 OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SU FOR$READ_KU FOR$READ_KU FOR$WRITE_SL FOR$ 2READ_IF"PPPP PPPRPOPP P P#PP)P 9P HP TPjP P P PP P1Pq?PTPNRF!ww13܉010RANJE01 4-Nov-1981 16:52 4-Nov-1981 16:52VAX-11 FORTRAN V2.3-53 RANJE RANJEP, PP N[}PQ P3ԫ ԫkԼԼ<- n1ѫ1YI 09Ы09ZZYY$J ($ FOR$READ_IFk FOR$IO_L_R FOR$IO_ENDԫ kԫ kk.мk^k*м k:ԫ!k kkԫ k k*ռмռȼPPѼмѼ м Ѽ м  NRANJEe$CODE$PDATA0$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$READ_IF7PEPWP]P aP nPVtPzPJP PPXPPPPPP P  P PP!P+P4P FPB6ewwl1h012CONTROL01 4-Dec-1981 07:44 4-Dec-1981 07:44VAX-11 FORTRAN V2.3-53!CONTROLCONTROLAP Using program :P Do you wish to re-enter it? P,+)+N))+P Enter program A. defaults to all alpha.  No programs on file Program # not on file Program has an erroneous format Do you want to save this program card? Enter card title: PP6_c] CFILL@\kgck CFILL@m   gck CFILL@0`ck CFILL@)QlQQ PO\[}PQ((~ FOR$WRITE_SF4 FOR$IO_T_DS, FOR$IO_T_D8  &lP F cDdlD CFILL@dD CFILL@p` PdlD CFILL@PR/Qj QQQ Q SDANQQQ QPEND1۫ ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS FOR$IO_END1۫1˘GETFIELDZYX1 PPЩPP$Щ0 PѩPP ~ FOR$WRITE_SF0\P\PPLh FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END11ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~fTRY1˄IGETCHARNPL1ˌFOR$OPENP1~? FOR$READ_SF߫  FOR$IO_L_Rѫ P@ˤˠ FOR$IO_T_DS  FOR$IO_END~ FOR$WRITE_SL ˨˨ FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSE1V#1CFILLxGETSTREk FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDFOR$OPENP1ԫ֫Xѫ1~ FOR$READ_SL FOR$IO_END~? FOR$READ_SF߫A FOR$IO_END˘GETFIELD1۫ ~ FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_END˘GETFIELD1ˬIGETCHARPkP~ FOR$WRITE_SL˴ FOR$IO_T_DS FOR$IO_END1۫P @ ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS FOR$IO_END1 ~ FOR$WRITE_SF FOR$IO_T_DSP FOR$IO_T_DS FOR$IO_END1۫1PPPP1A_T_DS FOR$IO_ENDY ~ FOR$WRITE_SF FOR$IO_END֨11۫1Ы \I ~ FOR$WRITE_SF\\\P@˼˸ FOR$IO_T_DS\ FOR$IO_ENDPzPQ{QQPPZ ~ FOR$WRITE_SF\\Zp FOR$IO_T_DSZ\Z, FOR$IO_END\ ۑ۫1Џ$11Џ$P04Џ$ ~ FOR$WRITE_SF\L˼˸ FOR$IO_T_DS FOR$IO_ENDLԫ8ZP\HY]_c] CFILL@i\gcg CFILL@    cg CFILL@8 `cg CFILL@)QdQQQ PO\[}PQ((~ FOR$WRITDD1۫ ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS FOR$IO_END1۫1˘GETFIELDZYX1ЩPP Ы PP$Щ0 PѩPP ~ FOR$WRITE_SF0\P\PPLh FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_END11ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~ FDO_T_DS FOR$IO_END~ FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL$ FOR$IO_T_DS FOR$IO_END1Ѫ~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_ENDѪ~ FOR$WRITE_SFˠˠ FOR$IO_T_DS FOR$IO_END1۫˨CONTROL1۫~ FOR$WRITE_SL, FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1۫˨CONTROL1̴ ۏ~ ~ FOR$WRITE_SFp FOR$IHTRY1˄IGETCHARNPL1ˌFOR$OPENP1~? FOR$READ_SF߫  FOR$IO_L_Rѫ P@ˤˠ FOR$IO_T_DS  FOR$IO_END~ FOR$WRITE_SL ˨˨ FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSE1V#1CFILLxGETSTREk FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDFOR$OPENP1ԫ֫Xѫ1~ FOR$READ_SL FOR$IO_END~? FOR$READ_SF߫FIO_END11ԫ8P@1֫8ѫ81 ~ FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_T_DSx FOR$IO_T_DSp FOR$IO_T_DS FOR$IO_END˨IGETCHARPk۫1۫1˨NUMPAD ~ FOR$WRITE_SFp FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END1= P@ ~ FOR$WRITE_SFp FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_ENDP@Q\L+HPzPX{XXPPZ ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\Z, FOR$IO_END\ ۑ۫1˘GETFIELDY\ЩPP Ы PP$CFILL ~ FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_END1X1ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FORHRij FOR$WRITE_SUH FOR$IO_T_DS FOR$IO_ENDPPh1ZUêPWWЪP@h LIB$INDEXPVPVPPPWЪP@t LIB$INDEXPVVQVWЪP@ˈ LIB$INDEXPXPXPPPWЪP@˔ LIB$INDEXPXXQXWЪP@˨ LIB$INDEXPYPYPPPWЪP@˴ LIB$INDEXPYYQYWЪP@ LIB$INDEXP\P\PPPWЪP@ LIB$INDEXYY]_c] CFILL@i\gc$g CFILL@$   c$g CFILL@$`c$g CFILL@)QTQQQ PO\[}PQ00~ J FOR$IO_END(`` 1?~ FOR$WRITE_SL FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1(R"X FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_ENDX FOR$READ_KUH FOR$IO_T_DS FOR$IO_END4 FOR$READ_IF FOR$IO_L_R FOR$IO_END(XFOR$REWRITE_SULTE_SL FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSE1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSE1$1 CFILLxGETSTRˌFOR$OPENPYg~? FOR$READ_SF߫  FOR$IO_L_RЫ PPPPPPXѫXP@ˤˠ FOR$IO_T_DSX FOR$IO_ENDk4 LIB$INDEXP~ FOR$READ_SL FOR$IO_END1~? FOR$READ_SF߫  FOR$IO_L_RLPPP\ P@P IPIPP3XP+aP"PP PEP3P+P"PP PP;P~PGePz PMPP!PPP P[KPsPJ|P>P Pv PlP'7P ?P7uPj PGPP PP PPP"PxPz P P4P!PPPPPPPFP!(PGVPPuPPPPY FOR$WRITE_SF4 FOR$IO_T_DS, FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF FOR$IO_ENDˀGETSTRY1ˌIGETCHARNPL1˔FOR$OPENP1~? FOR$READ_SF߫  FOR$IO_L_Rѫ P@ˬ˨ FOR$IO_T_DS  FOR$IO_END~ FOR$WRITE_SL ˰˰ FOR$IO_T_DS FOR$IO_END˸ FOR$CLOSE1V#1CFILLˀGETSTREk FOR$READ_IF߫ FOR$IO_L_R FOR$WX FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END1D1ԫ4P@1֫4ѫ41 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_ENDˬIGETCHARPk۫1۫1ˬNUMPAD ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1= P@O` FOR$IO_T_DS FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END11̴1+1-1 1091 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_ENDˬNUMPADˑ+-,.09ѪP۬O~ FOR$WRITE_SF8 FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DSSDS FOR$IO_END˘GETFIELD1۫ ~ FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_END˘GETFIELD1ˬIGETCHARPkP~ FOR$WRITE_SL˴ FOR$IO_T_DS FOR$IO_END1۫P @ ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS FOR$IO_END1 ~ FOR$WRITE_SF FOR$IO_T_DSP FOR$IO_T_DS FOR$IO_END1۫1PPPP1Q+L1)ZתЫ PPЪPP\$ FOR$WRITE_IFߪ FOR$IO_L_R FOR$IO_END~^4,CFILL^XjFOR$REWRITE_SU8 FOR$IO_T_DS FOR$IO_ENDY(RX֪@ FOR$WRITE_IFߪ FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_END(Rj FOR$WRITE_SU8 FOR$IO_T_DS FOR$IO_END(RX"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_END)R(R)SPzPX{XXPPZ ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\Z, FOR$IO_END\ ۑ۫1˘GETFIELDY\ЩPP Ы PP$CFILL ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END1X1ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FORS$IO_L_R FOR$IO_END(`l`Ы  1~ FOR$WRITE_SLP FOR$IO_T_DSH FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLX FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_END1(R"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_ENDH FOR$READ_KU8 FOR$IO_T_DS FOR$IO_END$ FOR$READ_IF FOR$IO_L_R FOR$IO_END(XFOR$REWU(ѫ((\L+L(ߑЫ(\\PPZ\PPPP ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\Z,\( FOR$IO_END1K ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_END1$ ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_END1J۫1۫1۫1۫~ FOR$WRITE_SF FOR$IO_L_R FOR$IO_UPPPP\ P?P HPIOP2WP*`P!PPEP2P*P!PPPf P~PGdPs PMPP!PPP P[JPrPJ{P>P P P P'6P> >P7tPc~PPwPPPPQP P *PhPqPPR P P4)PkPluPPFP!PGP&PCP2HPMPdPiP tPP PVEND1۫ ~ FOR$WRITE_SFP@˼ FOR$IO_T_DS FOR$IO_END1۫1˘GETFIELDZYX1 PPЩPP$Щ0 PѩPP ~ FOR$WRITE_SF0\P\PPLh FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END11ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~_ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_ENDˬIGETCHARPk۫1۫1ȴˬNUMPAD ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1EP@h֩1ש ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END1 ~ FOR$WRITE_SF\$Z\ZPPLh FOR$IO_T_DS FOR$IO_ENDZ1۫1Ы \I ~ FOR$WRITE_SFY~ FOR$WRITE_SFD FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˨˨ FOR$IO_T_DS FOR$IO_END1ѫѫPLCFILL)ʰ(P)ʰ(P`1ADSNѫ+PZ@֫ѫP)ʰ(P)ʰ(P`1VH~ FOR$WRITE_SFL FOR$IO_T_DS˸ FOR$IO_T_DSL FOR$IO_TY8 FOR$IO_T_DS FOR$IO_END(RX"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_END)R(R)Ri(Rij FOR$WRITE_SU8 FOR$IO_T_DS FOR$IO_ENDPPh1~ FOR$WRITE_SFЫ ZZːː FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\\ FOR$IO_END~ FOR$WRITE_SFPPːː FOR$IO_T_DS FOR$IO_END1\(`l` xPTVY]_c] CFILL@4i\gc$g CFILL@$   c$g CFILL@$`c$g CFILL@_c] CFILL@)Q@Q[OSE)Ȱ (P)Ȱ(P`1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1~ FOR$WRITE_SL FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END˸ FOR$CLOSE1~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_END˸ FOR$CLOSE1$1(CFILLˀGETSTR˔FOR$OPENPYf~? FOR$READ_SF߫  FOR$IO_L_RЫ PPPPPPXѫXP@ˬ˨ FOR$IO_T_DSX FOR$IOx~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF FOR$IO_ENDˈGETSTRY1˔IGETCHARNPL1˔IGETCHARP ˜FOR$OPENP1~? FOR$READ_SF߫ FOR$IO_L_RѫP@˴˰ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL˸˸ FOR$IO_T_DS FOR$IO_END FOR$CLOSE1I#1CFILLˈGETSTREk FOR$READ_IF]P P4MPPPPFP!PGPJPgPSlPqPPP-PP PPPrP|P|P4PKPP3 P; P F PsN P Y P`q P P P P(6 P A PxI P)q PHy P  P5 PS P PC P P P P P P  PE PK PQ PW P ] P[c PUm P( P! P9 P P Pv P Px P4 PD P<fNDPzPX{XXPPZ ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\Z, FOR$IO_END\ ۑ۫1˘GETFIELDY\ PPЩPP$CFILL ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END1X1ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS`_X FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END1D1ԫ4P@1֫4ѫ41 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_ENDˬIGETCHARPk۫1۫1ˬNUMPAD ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1= P@a\\\P@˼ FOR$IO_T_DS\ FOR$IO_ENDPzPX{XXPPZ ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\Z, FOR$IO_END\ ۑ۫1˘GETFIELDY\ PPЩPP$CFILL ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END1X1ѩ$1P@h ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_ENDԫ4P@`1ѫ41֫4 ~ FOR$WRITE_SFa8 FOR$IO_T_DS FOR$IO_END(RX"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_END)R(R)Ri(Rij FOR$WRITE_SU8 FOR$IO_T_DS FOR$IO_ENDPPh1~ FOR$WRITE_SFЫ ZZːː FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\\ FOR$IO_END~ FOR$WRITE_SFPPːː FOR$IO_T_DS FOR$IO_END1\(`l` b` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_ENDˬIGETCHARPk۫1۫1ȴˬNUMPAD ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1EP@h֩1ש ~ FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END1$~^CFILL^ ~ FOR$WRITE_SF\$Z\ZPPLh FOR$IO_T_DS FOR$IO_ENDZ1۫ˬCONTROL1۫cˬCONTROL1\Z۫1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF   FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1Ѫ~ FOR$WRITE_SLP FOR$IO_T_DS FOR$IO_ENDѪ~ FOR$WRITE_SFːː FOR$IO_T_DS FOR$IO_END1c۫ˬCONTROL1Ĺe۫~ FOR$WRITE_SL FOR$IO_T_DSH FOR$IO_T_DS FOR$IO_END1۫ˬCONTROL1̴ ۏ~ ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END1 1̴1+1-1 1091 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_ENDˬNUMPADˑeP P4MPPPPFP!PGPJPgPSlPqPPP-PP PPPrP|P|P4PKPP3 P; P F PsN P Y P`q P P P P(6 P A PxI P)q PHy P  P5 PS P PC P P P P P P  PE PK PQ PW P ] P[c PUm P( P! P9 P P Pv P Px P4 PD P<q+-,.09ѪP۬O~ FOR$WRITE_SF8 FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END11ԫ4P@1֫4ѫ41 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_ENDˬIGETCHARPk۫1۫1lPTVY]_c] CFILL@4i\gc$g CFILL@$   c$g CFILL@$`c$g CFILL@_c] CFILL@)Q@QhTE_SL FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSE1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSE1$1 CFILLxGETSTRˌFOR$OPENPYg~? FOR$READ_SF߫  FOR$IO_L_RЫ PPPPPPXѫXP@ˤˠ FOR$IO_T_DSX FOR$IO_ENDk4 LIB$INDEXP~ FOR$READ_SL FOR$IO_END1~? FOR$READ_SF߫  FOR$IO_L_Rl FOR$WRITE_SF8 FOR$IO_T_DS0 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF FOR$IO_END˄GETSTRY1ːIGETCHARNPL1ːIGETCHARP ˘FOR$OPENP1~? FOR$READ_SF߫ FOR$IO_L_RѫP@˰ˬ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL˴˴ FOR$IO_T_DS FOR$IO_END˼ FOR$CLOSE1I#1CFILL˄GETSTREk FOR$READ_IF߫ jSFX FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF FOR$IO_T_DS` FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_END1B1ԫ4P@1֫4ѫ41 ~ FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_T_DSh FOR$IO_T_DS` FOR$IO_T_DS FOR$IO_ENDˬIGETCHARPk۫1۫1ˬNUMPAD ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1= P@l~ FOR$WRITE_SFD FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˨˨ FOR$IO_T_DS FOR$IO_END1ѫѫPLCFILL)ʰ(P)ʰ(P`1ADSNѫ+PZ@֫ѫP)ʰ(P)ʰ(P`1VH~ FOR$WRITE_SFL FOR$IO_T_DS˸ FOR$IO_T_DSL FOR$IO_Tl_SU8 FOR$IO_T_DS FOR$IO_END(RX"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_END)R(R)Ri(Rij FOR$WRITE_SU8 FOR$IO_T_DS FOR$IO_ENDPPh1~ FOR$WRITE_SFЫ ZZːː FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\\ FOR$IO_END~ FOR$WRITE_SFPPːː FOR$IO_T_DS FOR$IO_END1\(`l` }QQ PO\[}PQ00~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END0AlCFILLЏnoneA~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_ENDZ0ЏA ʰ,n P~ FOR$WRITE_SLˀ FOR$IO_T_DS FOR$IO_END䑻0,A ʰ(P~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFnEND1˼ FOR$CLOSE)Ȱ (P)Ȱ(P`1~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_END1~ FOR$WRITE_SL FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END˼ FOR$CLOSE1~ FOR$WRITE_SL$ FOR$IO_T_DS FOR$IO_END˼ FOR$CLOSE1$1,CFILL˄GETSTR˘FOR$OPENPYf~? FOR$READ_SF߫ FOR$IO_L_RЫPPPPPPXѫXP@˰ˬ FOR$IO_T} FOR$IO_ENDˈGETSTRڑY10,B ʰ(P`~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF FOR$IO_ENDˈGETSTRY1˔IGETCHARNPL1˔IGETCHARP ˜FOR$OPENP1~? FOR$READ_SF߫ FOR$IO_L_RѫP@˴˰ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL˸˸ FOR$IO_T_DS FOR$IO_END FOR$CLOSE1I#1pPy P P4QPPPPFP!PG#PNPkPTpPuPPP-PP PPPwPPP4PKPP8 P@ P K PxS P ^ Pev P P P P(; P F P}N P)v PM~ P  P: PS P PC P P P P P P  PJ PP PV P\ P b P[h PUr P( P! P9 P P% P{ P P} P4 PDxF FOR$IO_T_DSL FOR$IO_T_DS FOR$IO_END1Z-ʰ AP@-ʰ BP@`H~ FOR$WRITE_SFD FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˰˰ FOR$IO_T_DS FOR$IO_END1ѫѫPTCFILL)ʰ (P)ʰ(P`1ADSNѫ+PZ@֫ѫP)ʰrˬNUMPAD ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_END1= P@ ~ FOR$WRITE_SF` FOR$IO_T_DSX FOR$IO_T_DS FOR$IO_ENDP@Q\L+L1ZתЫ PPЪPP\$ FOR$WRITE_IFߪ FOR$IO_L_R FOR$IO_END~^4,CFILL^XjFOR$REWRITE_SU8 FOR$IO_T_DS FOR$IO_ENDsY(RX֪@ FOR$WRITE_IFߪ FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_END(Rj FOR$WRITE_SU8 FOR$IO_T_DS FOR$IO_END(RX"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_END)R(R)Ri(Rij FOR$WRITE_SU8 FOR$IO_T_DS FOR$IO_ENDPPh1~ FOR$WRITE_SFЫ ZZːː FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF\\Z` FOR$IO_T_DSZ\t\ FOR$IO_END~ FOR$WRITE_SFPPːː% FOR$IO_T_DS FOR$IO_END1\(`l` )R  FOR$READ_SU8 FOR$IO_T_DS FOR$IO_END$ FOR$READ_IF߫  FOR$IO_L_R FOR$IO_END(`l`Ы  1e~ FOR$WRITE_SLP FOR$IO_T_DSH FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLX FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLu` FOR$IO_T_DS FOR$IO_END1(R"H FOR$WRITE_IF߫ FOR$IO_L_R FOR$IO_ENDH FOR$READ_KU8 FOR$IO_T_DS FOR$IO_END$ FOR$READ_IF FOR$IO_L_R FOR$IO_END(XFOR$REWRITE_SU8 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLh FOR$IO_T_DS FOR$IO_ENDu wP PM  PC P'9P AP7wPP8PPPPPr@PfHP/RPPPP PR P4TP!wPPPPFP!PGIPtPPTPPPP-PP/P;PDPPPP4P!" PK( P- P P P  Px P  Pe P- P4 PU P( P  P} P) PM P  P: PS P PC0 P; PD PM PV P] P e P P P P P  P[ PU P( P! P9L Pe Pq P P P} P4 PD! P< P& P! P PP9P_PpPP PPPb_PzP8PC/PPkP PW=PWP&PPP| wwzQQ PO\[}PQ00~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END0AlCFILLЏnoneA~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_ENDZ0ЏA ʰ,n P~ FOR$WRITE_SLˀ FOR$IO_T_DS FOR$IO_END䑻0,A ʰ(P~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFz FOR$IO_END1 FOR$CLOSE)Ȱ (P)Ȱ(P`1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1~ FOR$WRITE_SL FOR$IO_T_DS߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END FOR$CLOSE1~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END FOR$CLOSE1$10CFILLˈGETSTR˜FOR$OPENP( (YX~? FOR$READ_SF߫ FOR$IO_L_RЫPPPPPPXѫXP@ FOR$IO_ENDˈGETSTRڑY10,B ʰ(P`~ FOR$WRITE_SF< FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF FOR$IO_ENDˈGETSTRY1˔IGETCHARNPL1˔IGETCHARP ˜FOR$OPENP1~? FOR$READ_SF߫ FOR$IO_L_RѫP@˴˰ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL˸˸ FOR$IO_T_DS FOR$IO_END FOR$CLOSE1I#1`11APPPPH~ FOR$WRITE_SF FOR$IO_T_DST FOR$IO_T_DS FOR$IO_END1Z-ʰ AP@-ʰ BP@`H~ FOR$WRITE_SFL FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˸˸ FOR$IO_T_DS FOR$IO_END1ѫѫPdCFILL)ʰ (P)ʰ(P`1AD}H~ FOR$WRITE_SF FOR$IO_T_DSP FOR$IO_T_DS FOR$IO_END1Z-ʰ AP@-ʰ BP@`H~ FOR$WRITE_SFH FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˴˴ FOR$IO_T_DS FOR$IO_END1ѫѫPXCFILL)ʰ (P)ʰ(P`1ADSNѫ+PZ@CFILLˈGETSTREk FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDFOR$OPENP1ԫ֫Xѫ1~S FOR$READ_SL FOR$IO_END~? FOR$READ_SF߫ FOR$IO_L_RЫYYPPYYZѫZP@˴˰ FOR$IO_T_DSZ FOR$IO_END~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END+1Y Y˸ LIB$INDEXP$Ы$ ѫ ZJAJSJDJNJ+1 ~ FOR$READ_SL FOR$IO_END~ FOR$READ_SL FOR$IO_END1 FOR$CLOSE)Ȱ*(P)Ȱ.(P`1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1~ FOR$WRITE_SL FOR$IO_T_DS߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END FOR$CLOSE1~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END FOR$CLOSE1$10CFILLˈGETSTR˜FOR$OPENP( (YX~? FOR$READ_SF߫ FOR$IO_L_RЫPPPPPPXѫXP@˴˰ FOR$IO_T_DSX FOR$IO_END(ZZkPPDJHL LIB$INDEXP~ FOR$READ_SL FOR$IO_END1Ϻ~? FOR$READ_SF߫ FOR$IO_L_RЫZZPPZZWѫWP@˴˰ FOR$IO_T_DSW FOR$IO_END~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END+1uZ Z˸X LIB$INDEXP$Ы$ ѫ P@ADNS+1  FOR$CLOSE)ɰ*(P)ɰ.(P`11APPPPH~ FOR$WRITE_SF FOR$IO_T_DST FOR$IO_T_DS FOR$IO_END1Z-ʰ AP@-ʰ BP@`H~ FOR$WRITE_SFL FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˸˸ FOR$IO_T_DS FOR$IO_END1ѫѫPdCFILLCFILLˈGETSTREk FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDFOR$OPENP1ԫ֫Xѫ1~ FOR$READ_SL FOR$IO_END~? FOR$READ_SF߫ FOR$IO_L_RЫYYPPYYZѫZP@˴˰ FOR$IO_T_DSZ FOR$IO_END~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END+1Y Y˸ LIB$INDEXP$Ы$ ѫ ZJAJSJDJNJ+1 ~ FOR$READ_SL FOR$IO_END~ FOR$READ_SL FOR$IO_END1 FOR$CLOSE)Ȱ*(P)Ȱ.(P`1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1~ FOR$WRITE_SL FOR$IO_T_DS߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END FOR$CLOSE1~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END FOR$CLOSE1$10CFILLˈGETSTR˜FOR$OPENP( (YX~? FORHPPPhPPPVPqP wPQPVP~PPPl1PyP'PP:P&PPP PP.PPl"P 8P DPPPEPPPPEPUP7hPoPvP}P PP P PP@PR'P >P mPuPVP,PHPP P  P P!P!(P/P6P <PWBPQbP.nP P PFP P$READ_SF߫ FOR$IO_L_RЫPPPPPPXѫXP@˴˰ FOR$IO_T_DSX FOR$IO_END(ZZkPPDJHL LIB$INDEXP~ FOR$READ_SL FOR$IO_END1Ϻ~? FOR$READ_SF߫ FOR$IO_L_RЫZZPPZZWѫWP@˴˰ FOR$IO_T_DSW FOR$IO_END~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END+1uZ Z˸X LIB$INDEXP$Ы$ ѫ P@ADNS+1AxCFILL)ʰ*(P)ʰ.(P`1ADSNѫ+PZ@֫ѫP)ʰC*(P)ʰ.(P`1H~ FOR$WRITE_SFT FOR$IO_T_DS FOR$IO_T_DST FOR$IO_T_DS\ FOR$IO_T_DS FOR$IO_END11H~ FOR$WRITE_SFˌ FOR$IO_T_DS FOR$IO_ENDˈGETSTR򑫤Y1˔FOR$OPENV~ FOR$WRITE_SFˬ FOR$IO_T_DS FOR$IO_ENDˈGETSTR[ FOR$WRITE_SFk FOR$IO_T_DS FOR$IO_END[ FOR$WRITE_SF4 FOR$IO_T_DS FOR$IO_END FOR$CLOSEѫZJ+J*PA B S OCONTROLCFILLGETSTRIGETCHARFOR$OPEN FOR$CLOSE LIB$INDEX $CODE2$PDATA$LOCALCOM1COM2COM3COM4 OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_SL FOR$WRITE_SF FOR$WRITE_SL FOR$READ_IF(P,NPOP/PhHPPPhP3PPVPqP wPQPVP~PPPl1PyP'PP:P&PPP PP.PPl"P 8P DPPPEPPPPEPUP7hPoPvP}P PP P P'P@PR'P >P mPuPVP,P]PP P P "P .P6P!=PDPKP QPWWPQwP.P P PFP' P P  P  ww  FOR$CLOSE)ɰ*(P)ɰ.(P`11APPPPH~ FOR$WRITE_SF FOR$IO_T_DST FOR$IO_T_DS FOR$IO_END1Z-ʰ AP@-ʰ BP@`H~ FOR$WRITE_SFL FOR$IO_T_DS FOR$IO_END1N~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDѫV~ FOR$WRITE_SFPP˸˸ FOR$IO_T_DS FOR$IO_END1ѫѫPdCFILLAxCFILL~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END)ʰ*(P)ʰ.(P`1ADSNѫ+PZ@֫ѫP)ʰ*(P)ʰ.(P`1H~ FOR$WRITE_SFT FOR$IO_T_DS FOR$IO_T_DST FOR$IO_T_DS\ FOR$IO_T_DS FOR$IO_END11H~ FOR$WRITE_SFˌ FOR$IO_T_DS FOR$IO_ENDˈGETSTR򑫤Y1˔FOR$OPENV~ FOR$WRITE_SFˬ FOR$IO_T_DS FOR$IO_ENDˈGETSTR[ FOR$WRITE_SFk FOR$IO_T_DS FOR$IO_END[ FOR$WRITE_SF4 FOR$IO_T_DS FOR$IO_END FOR$CLOSEѫZJ+J*PA B S OCONTROLCFILLGETSTRIGETCHARFOR$OPEN FOR$CLOSE LIB$INDEX $CODE2$PDATA$LOCALCOM1COM2COM3COM4 OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_SL FOR$WRITE_SF FOR$WRITE_SL FOR$READ_IF(P,NPOP/PhHPPPhPQPPVPqP wPQPVP~PPPl1PyP'PP:P&PPP PP.PPl"P 8P DPPPEPPPPEPUP7hPoPvP}P PP P PEP@PR'P >P mPuPVP,P{PP P-*P @P LPTP![PbPiP oPWuPQP.P P PF PE P P  P  ww