>P - K&z(ZTASSCRTYBTRANSTCHROBFTCHROSTTCHROUTCLEARYETRANSFHARDVJJ$NLRDVJJ$NLWRTJJARGSJJCMD*JJCMDCPxJJFTPJJGETJJINFNJJINFSJJLENJJMESSJJMESSETJJNLPARJJNLRD#JJNLWR&JJOPENIN'JJPANY)JJJPOPN-JJPSCRT.DJJPSCRTS/ JJPSHP2JJPSLPEJJPSTEKFJJPSTEKSGJJPUCHARHJJPUWAITI JJPUWRITEXJJQDIVXJJQSUBKJJTAPETJJTERMMBJJTIMENJJUPPOJJWRDVML$GETVML$PUTOMOVEP@SENDQ<SETYTRANSLQ2VECRWRTCHRSWRTSTRCLEARFHARDVJJ$NLMARJJCMD*JJCMDCPxJJFTPJJGETJJLENTJJMARJJMESSJJNLPARJJNLRD#JJNLWR&JJOPENIN'JJPANY)JJJPOPN-JJPSCRT.DJJPSCRTS/ JJPSHP2JJPSLPEJJPSTEKFJJPSTEKSGJJPUCHARHJJPUWAITI JJPUWRITEXJJQUADKJJTAPEMBJJTIMENJJUPPOJJWRDOMOVEP@SENDQ<SETY TRANSLATEQ2VECRWRTCHRSWRTSTRFP 010CLEAR0113-Apr-1980 14:4113-Apr-1980 14:41!VAX-11 FORTRAN IV-PLUS V1.3-22  CLEAR CLEAR'PPPH[kJJPANY HCLEARJJPANY-$CODE$PDATA$LOCALBP 01/HARD0113-Apr-1980 14:4113-Apr-1980 14:41!VAX-11 FORTRAN IV-PLUS V1.3-22  HARD HARD'PPPH[kJJPANY HHARDJJPANY-$CODE$PDATA$LOCAL-P 010JJCMD0113-Apr-1980 14:4113-Apr-1980 14:41!VAX-11 FORTRAN IV-PLUS V1.3-22 N JJCMD JJCMDA- P QIP RP 010JJLEN0113-Apr-1980 14:4113-Apr-1980 14:41!VAX-11 FORTRAN IV-PLUS V1.3-22  JJLEN JJLENIP;PH[}PQPk^PfP2PP%rP 011JJNLRD0113-Apr-1980 14:4213-Apr-1980 14:42F!VAX-11 FORTRAN IV-PLUS V1.3-22  JJNLRD JJNLRDP$$: *SKIP*( *DOESN'T CONTAIN* ,)--Subs. err**_*--N* err**--Value err** **EOF** $Pd PPX2P<OHPOYc8 !%' )67t; =X J70i7 WcT|aP    PPP PPP :. 2fP 013JJPUCHAR0113-Apr-1980 14:4313-Apr-1980 14:43!VAX-11 FORTRAN IV-PLUS V1.3-22 #JJPUCHARJJPUCHAR P*+-:=#6PH[ kzkP{PPP@ HJJPUCHARP-0$CODE$PDATA $LOCAL PP)P4 0P 013JJPUWAIT0113-Apr-1980 14:4313-Apr-1980 14:43!VAX-11 FORTRAN IV-PLUS V1.3-22 #JJPUWAITJJPUWAIT8PNPH[}PQPk SYS$BINTIM SYS$SETIMR( SYS$WAITFRF HJJPUWAIT SYS$BINTIM SYS$SETIMR SYS$WAITFR--$CODE$PDATA@$LOCAL-8P 014 JJPUWRITE0113-Apr-1980 14:4313-Apr-1980 14:43!VAX-11 FORTRAN IV-PLUS V1.3-22 1% JJPUWRITE JJPUWRITEAOP P  PPO[ЬkYX޼ $CHROBF( SYS$WAITFR1 FOR$WRITE_SFмZYIh FOR$IO_B_RZY FOR$IO_ENDмWYYZ J]Ih IhP0PJ^IhP0PJ_J_9J_ J^IhJ_WY~+^80CHROBF^( SYS$WAITFRYk6 O JJPUWRITECHROBF SYS$WAITFR|$CODE$PDATA$LOCALJJPCOMM OTS$LINKAGE FOR$IO_END FOR$IO_B_R FOR$WRITE_SF/"P>PHP-uPmP)PP '@P 011JJTAPE0113-Apr-1980 14:4313-Apr-1980 14:43Y!VAX-11 FORTRAN IV-PLUS V1.3-22  JJTAPE JJTAPEPTAPE will be rewoundTAPE*ERR* P $ !P SYS$ASSIGN@ P ) PH[м4ЬޫPFOR$INI_DES1_R2ի FOR$WRITE_SL8 FOR$IO_T_DS FOR$IO_END˸ SYS$ASSIGNPkPPHSYS$QIOWPkPм ˄P@(˘Ы ˜|SYS$QIOWPkPp2ЫPU FOR$WRITE_SF˰ FOR$IO_T_DSk FOR$IO_L_R FOR$IO_ENDFOR$STOP7 HJJTAPE SYS$ASSIGNSYS$QIOW$CODE%$PDATA$LOCAL OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SLFOR$INI_DES1_R2(!PBOPVcPBPPP)RP 011JJTIME0113-Apr-1980 14:4413-Apr-1980 14:44!VAX-11 FORTRAN IV-PLUS V1.3-22  JJTIME JJTIMEO_P?@@@@@@@@@@:#@'="@abcdefghi@@@@@@@jklmnopqr@@@@@@@@stuvwxyz@@@@@@@@@@@@@@@@@@@@@@@ABCDEFGHI@@@@@@!JKLMNOPQR@@@@@@@@STUVWXYZ@@@@@@0123456789@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@?.)]&-/@@@@@@@@@,("#%@@@@@@@@@@_=@^'\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ABCDEFGHI@@@@@@@JKLMWNOPQR@@@@@@;@STUVWXYZ@@@@@@0123456789@@@@@@Q.@Q.@@ TRANSLATE@ . BLANK ."