Google
 

Trailing-Edge - PDP-10 Archives - BB-D480C-SB_1981 - codeta.rel
There are 12 other files named codeta.rel in the archive. Click here to see a list.
0LnV0 @	
LnDS4xk!4y
A4y&Bb
LnH
"e;l
"dkl_0<$	*Ln=bLnQZLn=
v-
w9
wU0
v
vj-
v}G+o	1r2P)Q-VVpSBbLnQ]VVpS,Yr*}7t
_%6#*M,ZbLnQZM,	-4v;SQbLnQ]4v;S+VpKMbLnQ[VpK*gY|F<bLnQZgY|F*eD%9bLnQZeD%*gZ&*.	bLnQZgZ&*,(Q$s'bLnQ\(Q$s+^}:3&bLnQ[^}:3*0KbLnQZ0K*ubLnQZu	*gY{+bLnQZgY{+-NpKbLnQ]NpK*gZ<bLnQZgZ<*gYcGbLnQZgYcG(D -0 w&(A 7V`c	bLnQXD*gZ9ebLnQZgZ9e*gY{%bLnQZgY{%*gYK,bLnQZgYK,
J~VbLnQ@	(@+2N+Z`c+7V`b+
@	` AP	 	 PP X((
((((	 $((
(
((	(00000000	 -((
8888888888	 58888888888888888	 >(@@@@@@@@@@@@	 F@@@@@@@@@@@@@@	 OPHHHM	 W	 `	 h	 q	 y	 	 
	 	 S4pP ASSIGNMENT3P IF@STFN OR AR	 $RAY ASSIGNMENT5CP DO` END STATEMENT FUNCTION2AP IFARGUMENTAN AR	 ,RAYPX PUNCH5H DATAPX PRINT5 SUBROUTINEX OPEN	 50 INTEGER0 LOGICALE IMPLICIT  X FIND P CALL.`X REWI	 =ND%  PARAMETERPX REREADBP GOTOu( DIMENSIONP PAUS	 FEP RETURN0 DOUBLEPRECISION FORMATh INCLUDEX BACK	 N3P ENTRY%( EQUIVALENCE+@X DECODE	U8 NAMELISTPX ACCEPT	 W BLOCKDATA X READ.`X UNLOAD5 FUNCTIONX CLOSE.`X	 _ ENDFILE0 REALX SKIP X WRITEE8 EXTERNALe( COMMON	 h+@X ENCODE0 COMPLEXP CONTINUE`P ASSIGNPX TYPEP STOP p PROGRAMA	D"bLnO@bLnQ@bLnQ@bLnQ@
JLnE
LnO
LnQbLnQ@sbLnQ@t	 u "$%	 }'(* +-	D"bLnQ@xbLnQ@{bLnQ@|bLnQ@|bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@	 .0235 78;<	D"bLnQ@bLnQ@	bLnQ@bLnQ@
bLnQ@bLnQ@bLnQ@bLnQ@	 >?ACDFG IK	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@ LNOQRTUWX	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@ bLnQ@ bLnQ@!bLnQ@"	 #Z[]	 +^`a 4	D"bLnQ@#bLnQ@$bLnQ@)bLnQ@+bLnQ@,bLnQ@/e
sqeVZqoerv3n	D"bZ3lbM@kbM-ib}RshbM3fc6N3ef7ceQbe4v<`	D"b}
S_bKs]cu5s\fjsZe4v
Yb2dsWbXd3UdQ3Tb_BsR	D"bq3Pb})SOb2IMc^\@Lc(|3JbeD%SHe53Fe{/sEba`3C	D"c.a|sAe5*3@etQ3>e5!%3<bD8:;cK|9c^'b8d(Q%36c^}.35	D"dr:`S3eW[S1e
hS0b\|E3.e5s-d(Q"i*b}
e}&be3,!%eV?[t"D"by
1!bZ@ge%