Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0137/aplb10.rel
There is 1 other file named aplb10.rel in the archive. Click here to see a list.
 0@&'[zZ	 aS              B    .    /REGR     /STP      DSK  /OUT      	 jE    ~9    (K    HELP      /OUTPUT   N    LPT       CONTINUE  0    DSK  	 r     C    TTY  ?FINI      /FREQ     Z    I    /CORL     /BANK     ]    O    	 {A    /    0z        ,    TTY        FINISH    @INPUT.DAT _SAME      	 :    {[    `7     END       /TAB      pa         OUTPUT.DATP    	 
     LPT  DSK  SEQOUT    SEQINSEQOUT    RANDIN     BINARY     @B`	 D('+INPUT? (for help type HELP) '$)('+INPUT? ',$)('+OUTPUT? (for help type HELP) ',$	 L)('+OUTPUT? ',$)('+Either a colon was missing or the file name',' is too long'/)	 U(80A1)('+Device ',A6,' does not exist'/)('+Device  'A6,' cannot do input'/)('+De	 ]vice ',A6,' cannot do output.'/)('WMU',I3,'.',I3)('+Only a /COPIES switch may f	 follow a LPT:'/)('+Illegal character "',A1,'" in COPIES swicth'/)('+Copies must be be	 ntween 1 and 63.'/)(I2)('+Only switch available if for the LPT'/)('+Non-director	 wy devices require no additional information'/)('+File name too long'/)('+Charact	 er"',A1,'" is not valid in a file name'/)('+Only one period is allowed in the fil	 e name.'/)('+BANK files must be read from the disk'/)('+Bank files can not be used 	 for output.'/)('+PROJECT or PROGRAMMER number cannont be longer'/'  than 6 character	 s'/)('+Illegal character "',A1,'" in PROJECT-PROGRAMMMER',' number'/)('+ Comma missi	 !ng between PROJECT and PROGRAMMER number'/)(O10)('+Nothing should follow the closin	 *g bracket for the',' PROJECT-PROGRAMMER number'/)('+File not found or protected'/)	 2('R ',4A1,4X)('+You must have answered this question in this',' program previously 	 ;to use "SAME" now.'/)('+You cannot do a /OUT while answering a /OUT'/)(' No outp	 Cut defined yet'/)('+To use the CONTINUE an input must have already been',' defined	 L.'/)(' The answer to this question defines where the program is'/' to find the data.	 T  It usually consists of a device, and'/' possibly a file name with or without a PROJ	 ]ECT-PROGRAMMER'/' number.  Devices may be specified by their physical'/' or logical n	 eame followed by a colon (:).  If the'/' device is a directory device (DSK, DTA), then	 n a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the devi	 vce used is a magtape or dectape, the tape'/' must be mounted, and in the case of a ma	 gtape it must'/' be positioned.'/'0DEFAULTS:'/' (1) If no input devices is specified 	 but a filename is'/'     given, the default device will be DSK:.'/' (2) If a device w	 hich requires a filename and extension'/'     is specified, but no filename is given 	 INPUT.DAT'/'     will be used.'/' (3) If no response is given (CARRIAGE RETURN is ent	 !ered)'/'     the default is TTY:.'/' (4) If DSK: is specified as the input device, bu	 )t no')('     PROJECT-PROGRAMMER number is used, the PROJECT-'/'     PROGRAMMER nu	 2mber of the job is used.'/'0EXAMPLES:'/'  DSK:DATA.DAT'/'  TEST.DAT[220,220]'/'   MTA	 ::'/'0The following responses may also be used after the first'/' response to this que	 Cstion.'/' "CONTINUE" - (For MAGTAPE) Use the next set of data'/' "SAME" - Use same de	 Kvice specifications as used before.'/' "FINI" - End of run.'/' "/PROG" - User may ini	 Ttiate the run of a bank program'/'          (STP, BANK, TAB, FREQ, CORL, or REGR) fro	 \m'/'          this program.'/' "/OUTPUT" - Redefine the output device, the program wi	 ell'/'             respond with "OUTPUT? ".'/)('0The answer to this question defines t	 mhe destination'/' for the program''s results.  It usually consists of a device'/' and	 v possibly a filename with or without an extension.'/' Devices may be indicated by the	 ~ir physical or'/' logical name followed by a colon (:).  If the device is'/' a direct	 ory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number ma	 y follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mount	 ed, and in the case of the magtape, it must'/' be positioned.  If the device is a lin	  eprinter, the user'/' may request multiple copies by following the "LPT:" with'/' a "	 )/COPIES:" and the number of copies desired (1-63).'/'0DEFAULTS:'/' (1) - If no input 	 1device is specified but a filename is'/'       given, the default device will be DSK:	 :')(' (2) - If a device which requires a filename and extension"'/'       is specif	 Bied but no filename is given OUTPUT.DAT is'/'       used.'/' (3) - If no response is 	 Kgiven (a CARRIAGE RETURN is entered),'/'       the default is TTY:.'/' (4) - If LPT: 	 Sis spedified and no /COPEIS switch is used,'/'       1 copy is assumed.'/'0EXAMPLES:' \/'  DSK:SAM.F4'/'  LPT:/COPIES:3'/'  MTA:'/)	"D"S< \` p @ p Bp p Bp p B p B= p	*"( B @C5  $.DC@d } D y D  D@d~ <,	*(@c <,@d & F?2d+3FC+2D+ <,,3D	D"`zZ@
`zZ@b9c(TbT`&'@`20J` R	 + <,, F+6D+ <,,4D <,, & F	D"`&'@`20J` R`&'@`&'@`20J` R`20J ` R 	 @*E
" <, 1D+ $ D  3F
+ 3&	+ 2f|+(	*U((* AF   H:*d& 1D(+ /&(  
 H.$8&1	(*E*3 1D+ 3D+4 | 
 F	*d6 $ DC D C 3F
+	*"A*; 3F+ 3F+; 3F+> 0f+  H	::C+9 *A(D <,,+ <, |_DZD  <,:; +H,	D"`&'@!`lZ"`zZ@5`zZ@=`zZ@?`20JD` RE`>Fc_<F
I	 @AL <,6D	+A<, <,+C1D+ A	5D.<,	T"T`<,+L`20JNc<F
O`20JTc_<F
U`20JXc_<F
Ycw]bw]	 *(` <, <,7D+\:C 3F
+ 3F+d 3F{+ <	 U
U*h,,+ C 2Fs+ 2Fz+k 2F+m 2Fw+n 	*U(U
q2Fj+p 2Fb+q 2F+s $.DC 
 D	 D
 $ D.dC C	*(Uy 3F
+ 3F+z 3&q+ 2fk+} 0f+  H	*A::C+y <, C <,+ <@	@@t@@d@T@t!@D"@$+@t-@t6@D@LF@	\P@
V@
tZ@
|j@Lv@t ,	D"`>_c_<F
``	W3a`zZ@e`20Jh` Ri`zZ@{`20Jc_<F
	"A*T
,+ 1D+ 
2D
+	 	 D
 
 D	 <, _DZD	(
  <,:; +, <, <, ?0$0d+ ( 4D <, ( $	D"`20J` R`>c_<F
` R`vc_<F
`&'@bK^	(T( Da <, !&p83fK+ & F nA4FFK"F? ?1f2+"A$"&2.f? ?$.& F7f+( $ Da <,6$	D"`&'@b_9`&'@`&'@ `&'@"`zZ@&`zZ@'`&'@)e
hf*	"
++ ( $ Da <,@d <,+ A	4D C	 U *40D+
:C 2F{+ <,,+ C 3F
+5 "P<3F+; A	5D <,,	D"`zZ@+`&'@-e
hf.`zZ@/`TUR0`20J8` R9`zZ@<`20J?	*T*D(@+ | 
 F	*dA $ D C 3F
+ 3F+E 3F+G	((*I 0f+  H	::C+D <,,+r C	 PQ0D+
 <, <, <,3Dc2Fc7+3Df2Fg	 Q(T*Z7+3Dx2Fy7+Z3De2Ff7+\3D2F7+^3Du2Fv7	*E P(b+`3Dw2Fx7+b3D2F7+3Dp2Fq7+3Dh2Fi7+	*
E"k3Dm2Fn7+j3D2F7+$3Dt2Fu7+n3D2F7+p3Dl	(*(s2Fm7+@hB |ZD  	3H
+ 	3He+ 	3(q+ 	*@|3hk+x 	@	@
@D@4
d@t @D%@+@</@/@41@L6@$6@|:@lA@$M@|O@$S@
T(T}2hv+ 	2({+| <, <,	D"` R@`zZ@F`zZ@H`20JM` RNb_9T`>Uc_<F
V`20J	*
*+:B1F+ <,,+*dv $3DB+ D  	3D
+	(U  
:1d++M  e F	 <, <, $ D:0d+ 		*U*Q(2Fe+ 	2Fd+ 
2Fo+ 
2Fl+ & F A	5F < TU,,+7DC+ <,,+ C 2D	D"c_<F
`20J` R`>c_<F
`20J` R`20J` R	*T*A""+= | 
 F	*d# $ D.dC C 3F+ 3F}+ 3&q	"T
T++ 2f++ 0f+  H	::C+& <,,+ <	"A 3, C <,+ <,,+ 1D+ 2D
+"& $* < 	 H	/$8&< 
 D	+9 <, <,	D"`zZ@"`zZ@'`20J1` R2`20J3c_<F
5`20J6` R7`>@	 (UA <, <, | 
 F	*dD $ D.dC C 3F+ 3F
	**Q*J+H 3F+J 3&q+3 2f+3 0f+1  H	::C	*Q*R+G 1D+ 2D
+"& $ 	 H	/$8&W 
 D	+T < 
[, <, <, <, C 3D	D"c_<F
A`vBc_<F
C`zZ@H`zZ@K`>[c_<F
\`v]c_<F
^*U`:C C 3F
+" 3F+b <,,+ @	@4}@d@@ <@!$
@ |@#,@#\ @
!@%d1@%L3@%6@%8@',?@'C@)<S@*\Z@*D^	*T(f D = D@d2DC+ <,7D+ <,,+ ( o4D <, ( $	D"`zZ@_`zZ@c`20Jd` Rec!hj`20Jl` Rl`&'@nbK^p	(T(r Da <, !&p83fK+ & F nA4FoFK"F? ?1f2+"Az"&2.f? ?$.& F7f+( $ Da <,6$	D"`&'@qb_9s`&'@t`&'@v`&'@x`zZ@|`zZ@}`&'@e
hf	"+ ( $ Da <,@d 1D+6DC+ <,0D+	 AD(
 <,+0 <, ( (  (	.=  F<	D"`zZ@`&'@e
hf`zZ@`TUR`TUR
`TUR
`&'@`&'@	(U
Q(f FK 	 F A	4F s F A	4F h F7FC+f?	 
"FK!0F+"(2/?hHK0F+@@H(3Ho2Jp+"@4$0F+# 
@1
@2d@3
@3T@4!@4L&@3,& ),	D"`&'@`&'@`&'@`&'@`&'@`zZ@!`&'@"`zZ@%`&'@&	*P*() _D@ZD  <,:; @++,@d"& $ F? D6&K+	 (P
2 <,(3Ho2Jp+1 FK"F? ?1f2+"&2.f? ?$":.& F7f+( $	D"`>)c_<F
,` R.`&'@1bK^2`&'@3`&'@6`zZ@:`zZ@;	( = Da <,6$+ ( $ Da <,:; ?+1 <,  (F(5D <,,+ (	D"`&'@=e
hf>`zZ@?`&'@Ae
hfBe>r&XE`&'@F`20JH` RH	*
 K (  <&
 F"(	.< F=@f!&2FK+	"S & FFK"F? ?1f2+"&2.F? <, C0D+ <, n*P\A	5D zA	4D <,+f"& $ F> D6&K	D"`&'@J`&'@L`&'@N`&'@P`&'@R`&'@Tb_9XbK^[`@\:_	 *b+ <,(3Ho2Jp+b FK"F? ?1f2+"&2.f? ? @k$.& F7f+( $ Da <,6$+ ( $	D"`&'@bbK^c`&'@d`&'@g`zZ@k`zZ@l`&'@ne
hfo`zZ@p	(*r Da <,:; >+b <,7D+ <,,+ jZD  
{!(p82hK+*dz <,,+ @	@L(@79@7D?@7|C@6TC@lE@8tI@:4T@:lX@;$[@;d_@,`@=j@=Tp@>
t@<dt@Lv@>ty	*T"U* D  D C DB $ DC!$ D+@d  D B DC+  (5D <,	D"`&'@re
hfs`}Kv`20Jx` Rx`&'@{`20J}` R~`&'@	"A Q 
,+ ( (  <&
 F"(	.<	*"@  F=@f!&2FK+ & FFK"F? ?1f2+"&2.F? <, C"P1D+&+f C1D+ <,	D"`20J
` R
`&'@
`&'@`&'@`&'@`&'@`&'@b_9	 ", <,,+ <,, <,,+ `  App	(D"
(  App  Ap = Ap  Ap,~p	`	*Q*E0aig?Xaig?p	x`a*E*"9ig?Xaig?`aig?Xa@	@?D@4|@
@A@BT@C
@L@Cd"@5%@>\.@C$/@>40@=t3@;6@8L7@8$8@7d;@0D>	*Q"U
Aig?paX=p	`	*Q*E
Iaig?Xaig?pa`d	(E
E
Rdxp	hkp=p	X ZDX	D"`20J` R`20J ` R!`20J"` R#`20J$` R$`zZ@Z	 @^GXIXMX fNP@	@0@@.,C@-E@<H@dI@$L@LO@
P@TS@	DT@$U@$W@Y@|Z@$]@\`@|c@Df	 D jU$	XV0	  rXY0X]0	 P{Pa$$Xc Xg$X	D"`zZ@]`zZ@``zZ@c`zZ@f`zZ@n`zZ@s`zZ@w`zZ@`zZ@	 @	lPU$	P"p$?h@	@di@	m@	dn@	tq@
<s@
Lv@
|w@
z@t|@
@<@T@l	@\
@
@<@L	*P~P^XqX	@uX|PU	A'@	X~$	X	"@#0PU@	X	P@8	X$PU@	P	 D Z&$=X&X	"(b/hHpP^H	 U*kpP^8pP^^tP	 s2$	hX(|4	h@	@'|H@(
L@(N@(,R@+,S@+<W@+LY@+\]@,D^@-<a@-|d@1f@1$j@1<n@5
s@5<w@6$x@8|z	 ~`hX=	 XBXEXL ^X	D"`zZ@A`zZ@E`zZ@^`zZ@a`zZ@z`zZ@`zZ@`zZ@
`zZ@*?XiQX:&	D`zZ@`zZ@`zZ@%vf`&'P%vfl`&'PlX
Cn%\j	"
E:`zZP
E:zt
F~
x6h`zZPh8b$	D`zZT8b$HCg
+	 `&'P
+%V'`zZP%V'_9Ggxj`zZPxj?
XO*		@zL	Y}JZP7	D P64v9h%g|P6`zZP[;`zZP[;P5	D }P5%pP4tJ3`zZStJ3zu=`&'Pzu	D"
F|=PK>PK>PJ?g6?PJ@PI@PIA%i	D"`zZP%iPHA
sZ2]a6j9-	D" Km
2I/1k@8{*S7oSW	D"qp25fWb8g/#p?Y{M=2!&	D"]Ca{8S}	r+{9y-5WIl	D"/kv8?v{s	i{%-!Z5	D"WC3Svgu%UE-;{7S-36Gs
u6&/''1 M	D"
a6!3&*mi8}E9T	D"U1!
	D" %|A-!
?-&W&E"8U2	D">M-" w3?#&C
!	*E	D"UAq;wj9s&	
9%s"aUu3
ID"tOf9K5%3;	972 s
@Cl@D$@D<(( zZ0zZ@}hB(Ti".[    ]    	 sDTA0 S    INPUTB    .    DSK  OUTAAE    A.AAAH    K    N    OUTPTT    	 {C    TTY  F    I    L    O    /    A    0U    DTA9 .DAT [    :    XCDR  ` M    P         LPT  DSK  DSK  TTYDAT.TMP @1	 5(' INPUT? (TYPE HELP IF NEEDED)--',$)(' OUTPUT? (TYPE HELP IF NEEDED)--',$)(50A1	 =)(2O)(I)(' FILE DOES NOT EXIST'/)('-THIS ANSWER DEFINES WHERE THE PROGRAM IS T	 FO FIND THE INPUT DATA.  IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH 	 NOR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE	 W:'//6X,'DEVICES',3X,'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/6X,'DS	 K:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6	 hX,'CDR:',6X,'CARD READER  (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,	 p'DTA#:',5X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X,'MTA#:',5X,'	 yMAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DE	 FAULTS:'//' (1)  IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DE	 
FAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSIO	 N IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//'	  (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAU	 #LT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4)  I	 ,F DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVE	 4N, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///)(' EXAMPLES:   	 = DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE:  THE 	 EFOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1)  SAME COMMAND.  IF THE	 N DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENT	 VER "SAME"'//' (2)  FINISH COMMAND.  THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X	 _,'PROGRAM.  THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED.  FAILURE 	 gTO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3)	 p  A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///)	 x('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALL	 Y CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//'	 	 POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X,11('-')/6X,'TTY:',	 5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'	 LINEPRINTER  (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)	 #'/6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILEN	 +AME AND EXTENSION MAY BE USED.)'/6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD 	 4ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO OUTPUT DEVICE 	 <IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2)  I	 EF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME	 M IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. 	 VA CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM T	 ^ERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4)  IF LPT: IS LISTED AS THE OUTPUT DEVIC	 gE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'///' EXAMPLES:    LPT:/2'/14X,'RPT.DA oT'/14X,'DTA0:NAME.DAT'///)	"

S> \r p @	6D+  D3 3 D 	A$5D  D 	A$	 0D+  D $.	6b0b++4
444 <,,"  D+ <,,	D"zZ`}hB@`}hB@`}hB@`}hB@	`20J` R`}hB@`20J	"(U*  D <, <, 2D|+ 2D}+ 2Dz+ 2D}	*U**+ 2Ds+ 2Dy+ 3D+ 2Ds+ 2D+" 	*U*U
%2D+$ 2Dx+% 2D+' 2D+( 3D+ 2D{+	*U*U*- 2D~+- 2Dz+. 2D{+0 2D}+1 2Dz+3 3D	"E*U*6+ 2Dy+ 2Dx+7 2D}+9 2D+: 2D+< 	*T  >2D+= 2D+? $.	6b0b++44@d2 <, $	(*G2D	+ $A	0D+G <,@d	@d D
 D
 D3 D D D+ 	*UA(O F F F D D1:0d+ 2Fu+ & F1 3F+ 	(Q
"X3F+ 3F~++R $. D
"&. $  H/$8&^ (T(` .&  H*d` $.D+R $@	@,@d@
@T@l@d@t@$@|!@$,@L6@<C@
E@4E@	K@
LV@
t[	*"e.D3"&.$.D	*TQ*m+R  D+R7D3+ <,.$ D1"3/&.1 1 F
e5KJFe
hfJ`}hB@K`>qc_<F
v	 
U*y <, <,6D1+ $.
 D0"0.
 0 D2 2 2D+	* *>28& $ D2 2 u F <, $.
 D/"&/
./ / F
	*"*
 D2 2 <,:2; 
+
,7D
+ <, _DZD2 2 <"Q,:2; +,7D+ <,	D"` Rx`vyc_<F
z`>c_<F
`R
` R	"E* .$ D-"/&.- - F- D2 2 <,:2; -+, <,	 Q
@* <, 2D+3D+ v F+!"1D+ | D+$ $	(QA"(A	5D  D $A	0D+  D <, 3Dv+3D+	*(03d3$s++/ 2D|+ $A	4D+ w D x D $ D		* *9  D, <, <, 1D+ $.D+;  D/  D0@d	D"`>c_<F
` R`vc_<F
 `}hB@$b_9-b_9:c!h;	 UP
A <, _D,ZD  <,:; ,+D,"& $ D. . 	(U"U J2D+>.8&I . 2Fu+ 2Fz+M 2Fy+O $ D @	@
d@$n@
4o@{@@<@l@\ @,$@\'@
*@<-@t-@2@6@T?@$A@,L	("(R2D+ $A	5D t D $A	0D+ z D  D $A	 [1D+ <,7D+[ <,,"0D+ <,	D"`}hB@A`vBc_<F
E` RG`}hB@Qc!h\`20J^` R_`}hB@_	* Pb+
@d4 0D+ $? D4 <,+2 	0D+ <, 	0D	 "j+ <, <a, $3D2+A	5D <,+5 $2d+p3D4 (s+ <, $ D43D2+n D2 <,	D"`}Ka`}hB@cb_
Gfe5KJie
hfk`}Kl`@\:pc_(Ti@qb_9t	(P"x@d4 0D+ $? D4 <, $A	 D1D+  F + F(D @  F  F  F  F+  D	D"e5KJw`}hB@xb_
G{c_(Ti@c_(Ti@`}hB@`}hB@`}hB@`}hB@(@  D  D $@	@
R@LV@|Y@4Z@
b@\b@De@g@i@,l@<m@Tq@4t@{@$|@<|@t|@d*  D+6 <,  D+| <,, <, <, <,	D"c_(Ti@c_(Ti@`}hB@`@\:
c_(Ti@
`20J
`2Rc<F
	"*@($.	6b0b+D+4444<,,+r,~	 *@ xP4
+X(T(Q*+hpp`/@	@ L@d	@D
@"4@",@!@D@!|@4@t@<@4!@
#@\$@D(@4+@$-@T.*0wvxX	D"e5KJ`20J` R`}hB@c_(Ti@c_(Ti@c_(Ti@ c_(Ti@"c_(Ti@1	 @45X9Xg=	 @<@P=$P	" E>$$+P=$	 @MP=$P=(@V$P>$P@	@	$0@\2@|3@,6@T9@d<@
?@dB@D@$G@TI@4M@tN@$R@dS@<W@lX@|\	 D ^=$X?`	 f`XAzX(o;=$.$Xxz	D"`}hB@3`}hB@6`}hB@9c_(Ti@\`}hB@bc_(Ti@h`}hB@j`}hB@m`}hB@r	@{h3~Lyzrc_(TiPzr{/oi`}hBPoi%\j	D`}hBP%\j
F~
zpc_(TiPzpg?`}hBPg?zv		 %jI`}hBP%jI&.\	gd
%jL`}hBP%jLqp:
yP8	D0KrP7
P7
R!b
c_(TiTR!b
pP6	@P5
Xmc_(TiP
Xm/85`}hBP/85P5P49	"
LB/88c_(TiP/88
Ix3
F|+PI+PI,P%iw06-PH-9..w05/g/w050	D"y1w041	2b[u@2&M3&AQ`}hBP&AQ&>3ol	D"`}hBPol{64~24	qG59#a V
s
9D K0	D"
_	i%8{C 7JSq	i8g] #2	D"?]	h}8S+ C+I	hi8?-	D"{E{%;5{	hU3S|g9{E	E	D"{6!pCr3?2S;{1qo/3+.	D"?<{2ziA!$[3-S>zU	D"G
`{	mp3*??zu?zA3w	D"sm2o\+Aj2[XEQ {sh2GW	D"/=n{23o0b})j{K{2	D"[2bi;g{7-3SG3bUA^{#	D"-R35bA
{t-z{e,w36	D"zg|,cN$tUgzS!,OM&
w'e'#,'
c)	D"Q-*	D"?We''
 uK
a=?Cb&G?/b&kD&Cu
D97Hs^h@!Dj@!\m@!lp@"\r((u	 (T$0(T$@"I    F    A     >S    (    A    )    {M          @ 	 3(' FORMAT'/)(' FORMAT: (',A1,'-TYPE ONLY)'/)(80A1)(80A1)(' ERROR IN FOR ;MAT, TRY AGAIN.'/)	"D*O$ky \= p @0 p @ !p @0 p @1 p @ p @@d@d1 D1	"P &( F2 D/2D+ <, 0D+ <,,0d+ <,	 ( <, <, @DZD2 2 <,:2; +, 11D+	*(A  2D>+ 2D?+ 3DA+" $ .0 
A J'.$8&	"@*"" $ D1 0$+(. D2"2 $ D2 2 2DA+:28&'"U"P* $ D1+ 2 2D?+* $ D .0 <,	D"(T$`}K`20J` R`20Jc_<F
`zRc_<F
` R	(T
D*1"2 $ F D2 2 <,:2; +3,"2 $ 3H?:/ 	(

92H@+"(.H/.$8&7 $2d/++ &.F.3f+./ 	 PT
B(. F2 21$+ <, @_DZD2 2 <,:2; +G	"A(J,+/ 0D+ <, <,, $ D+ = 1 Ap,~	  ASX03X04$"[X8$P2@	@,
@T@|@D@#@D&@,@$;@C@LK@	LN@\Q@	TS@\T@W@Z@$\@T_	 @ Aa9$X8$"iX0:	D"`>0c_<F
4` R6`zREc_<F
H` RJ`}KM`20JN` RO	D"zM

Zo%[4/%j70K=P7P6	D"P6P5P5P4
sW
_ST?+
	D"QoS[IG4?j3+Nh	D"GoG[eGC3>;397d	D"w3c2
u:''
aK	D"&U/4A;-9pS@ 
]"wX}n X>]"< 6v,c Tql#qD0](
U6vNw @	"T"T(iB@ \ H	 F	 D p @ p B  D!$ D <,	(*U* @
 <, @ 
" F F&F F F&&@	(QD(&@ F F&&&v&@ F &&B	*E"A
"&h
&#4 F &X&)&h
	*Q U**&'4 Fh!& F*E(3    	 	,~xx
	D";pS`K`aj		06	05;pS)0K	D"Q-	qG9o8[G5h04
@x@|8@9((9  DS0 DS@	 [nUX}n"Y X> 6v,c&Tah#1M@ Tql'qBC`$R~$8#TC`[	=u7	J[K`,#}8p"Z$ ].%r:@U6%8u0#)ZM= $2$6"P @P	"U(D MB@ \
 N L J H
 p @	 p B p Dd!(	(*d!& Fj!(}j!$ D 		 H!(	*
U* H <, @ <, @  H
 


	*E*T 


* J H  H H	F F <, 
	"""
 J((@ H
0	(	0 ( 	(@	(Q*(@ D D <, @ 	D	$`	$u 	"E3" $J 	(		(	 $p D	(D*@;  	H	(lr	   		"D.


,4 	( 	(	p(p	(@(@"L F F <, @ 	D  
,J
	,j
	,l	(DDU  (t8	(nO	(@ 


,
 		"T @ ].	@		.f` "  H	(Q*Tf  	&n		 " 	(U*Q
n 			 




 	&`	(DU*w	&`	&R&( 
	


	

	

	(@ D  

 F F <, @

	*U*




 JJ J <, 
 
 
 
  D",~xxxxxxx	D" DS`K`aj`aj!`aj.`ajN`aj`~Z
Q	D"8$	D"S0807
h	D"R]0K
R	Q-	Q

	D"T%	qG

S?+D o[G
@$@<(( HUTv0HUTv@  0 uj^
`!u  (4	 @0	"@G"N
Q \ p @ p B p D!$F D0 1"+++ A$	*U D F F@h0D0b++2&
+
" H <, @ 	(P H4D <,"@ <, D D 1d+d$}D D	"@"(!$ D 0D+!& F!&*2f+@f0D+ 
 F <,	(*P" @ <,@  D2$	2d
+ <,@!$d	*P(
*3d+"@@F+!$@D@0D+@<,@	@D@d"D	*U"*3DD3D+ D!$d3$+3  D	*E(;+,  D $2d D 3d+!$ D   Ap,~x"Dxxx@	@l@D
HUTv`~Z`ajdYPyt`K!`K#`~Z(`aj0	D"Th
sG
ISJ	D"?[GAA>	D"A9C-)D& RGW!u  \ @@	"
U
]?X{ \ p @ p B4@# D  D@fD D2d+	**D"" F	 <,
 @  D7f+"&3F	+ 1&	 "E*0D++ 3f
+6f+ 3f+7&+  F F	"*U
!& F!$D  D  Dd2D+!$ D7d	 P(U("+!$ D+!$ D@d!&@ F  H 
 J&}	*U("* F
 J H F2d+!&FF!$d!&wff	**Q*3 F  D F   D  H D 	*UE*; D  H F7f+!&F3H+2D+0  D+$!$*(D D+C!$ D+D@d   Ap,~x		D"
YPyt`~Z
	]	D"	4z)0K]	D"	qG
_@SG?+oI	D"[GG
aGUFAE-C qBD ]0I$5h04	@`@@\@@<@d@t$@l0@l@@
B@4C@|E@$F@dG@$G@I((J
=Utz0Utz@ 0(*U+YHa6EWt/LEGREES OF FREEDOM WITHIN')(' % FISHER: NEGATIVE F-VALUE')	"U"M'	9 \ L J H F D p @ p @ p @+ O@ p	 P*A 1@@@ ,~+KZ-` p @ <,J,~  D7D+	*@((   D1dt+ &t F7&.&((.&/ F7&.&(	 T (.&/ F6F+ <,,fh H(!&	(A
T" F <,4  <,4  F	  F+ <, @ 	"ET
*D D	!$D+( <,4   D <, @ D	*P*U3 D	+- <, @  D D	 F <,	*(*; @ D D $.2d+ <,
4  $. D /	 D7 .&(/& "*.
jh(h	",.
l	" LH.$8&F+?@d"&.f <,@3 +"$.	 *D(U7 .$( D <, @f 	f D	 $} 	("T"]!$}  D  D!$D"$. D	"A*(f $.2d+ $. D
 
/7 .&(/& 
 . H		"@D"nh 
	

"(.h
 J	l	"


J.$8&m!$**w D5$@f+!$ D  D1dt+6&+ <,	D"Utz`20J` R`aj)`aj1`aj5`DR:bfQ`	WGW	 @ ~, <, @ <," @ @d!*z

!(j(	(U*P* H+|@d  D  H F2&+ * J H
"D H	"DD!$D(.f!$D(.h!&F	(D*  0&+f 


$ D 	*T)$ D!$ D 0D+!$D(1 @	@l@4@4@D@T(@<-@l5@L<@O@
<X@	lb@
|v@
y@z@z@T@L@'	(E*A"2  Ap  Ap    
 
 ,~pxp	*
: xxpxxxx"DCxxxxxxX@	@1@
1@D8@l9@
:@t<@
=@
t>@
?@@@$A@TB@
C@\D@
E@DF@,G@TH @JX	D"`20J~` R~`aj`
`	WG"`	WG"`ajQ	D"f
UqeUtz07	D"0706h	0605Z1
	0K	P5
P4
zG
Kg
	D"w05
Qi	qG
s
_S
	D"?{MX+
{%Ooz}v[	D"ziuG1zUJ?1{)zzA<+9{y8	D":o=[<GLu%'3|t}3z	D"mtU	>
a-BU(CD(O  
0
@  5$3, <@;b`	FyDt80&_BnU]S> @	"U
@"G5` \ J H F D p @#	&!$ D 	(E 




  	"@ U  F "D D <, @ F7d+!$D*U     
 ,~x	D"
`~Z
07060605	D"0K;-9	qGo[Gh04@x@@L((	(TX0(TX@}hB	"D"IRVATF,$)A(YESS	A&M)S' STTOM BDNG')"HS MUE OVELR BE:./(ER',,DYESENF OF AILE /R NO, RECXVERABf3)PUT h')(' ST @	Q('DFORMAT')('FORMAT:"(',A1,'-MTYPE ONLY)')('TYPEp"HELP"FOREXPLANATION',/)	 Z(80A1)('ERRORINFORMAT,TRYAGAIN.',/)('THEREAREFOURMETHODS OFFORMAT3ENTR	 bY:',/,'1-STANDARDFORMAT',/,'2-fFORTRANOBJECT-TIME',/,'3-0USESAMEFORMATAS	 kPREVIOUSLY',/,' 4-DIALOGUE',//,'WHICH METHOD?(1,2,3OR4).',$)('HOWMANY FIELDS? 	 s',$)(I)(' RESPONSE ERROR',/)(' ENTER TYPES OF FIELDS(A,F OR I) 10 PER LINE',/)	 |(10A1)(' ENTER SPECIFICATIONS FOR FIELDS IN THE FOLLOWING'' FORM - A,B,C',A2,/,' 	 WHERE:',/,'  A IS THE CARD OR RECORD',' CONTAINING THE FIELD',/,'  B IS THE STARTING 	 
 2J+*d6bP0b++4	 U""44:P; + M1D+"Q $ DP P 3HA+ 2H; QU*++:P8&' $ DN++- $ D DM . <,	D"(TX`20J` R`20Jc_<F
`20J` R`zRc_<F
	(T
D*2"Q $ F DP P <,:P; +4,"Q $ 3H;:I 	(*:2H@+"(.HI.$8&87$I+*4D. &.F.3f+ (./	  C (. FQ Q1&+> <, <,+0 0D+ <,"@
@K,Od+> <,, $ D+
@d <,	D"`>1c_<F
5` R7`zRGc_<F
H`20JK` RK`20JM` RN	 D*Q, <, <, P0$0d+6bP0b+U+4,4
4!4Z $3D+J D <,,+P $2D+ D <,, <, b <,	D"`20JQ` RQ`zRRc<F
S`20J\` R]`20J`` Ra`zRb(* c 0d0ds++_ $3D+J D <,,+`"@	@t@@L@!@
#@+@$,@4.@\0@4<@E@dI@	$M@,P@
|W@
tZ@^@
Tf	"U(E
j $ F DP @ZD  P. '3H+*dl@d+:P; +l	 "T
s+ <,, <," $ F DP P. <,:P; +x	"*D"{," $ FM DP @ZD  P. '3H+*d~ $3D+J( D <,,	D"c_<F
c`20Jh` Ri`20Jt` Rt`zRuc_<F
y` R{`20J	*U"Q
+s:P; M+~ A DH" $ DP P. 2D=+ < DH+	*(:P8&
 <, <, H3DA+ <,, <,," $	"U* .@j'.$8&@d & F & F D D FJ  ; F@d"P $. D2d+ <, <, <,	D"` R`20Jc_<F
`20J` R`20J` R`20J"c_<F
#	 P*E
% <,:7HK+ *.
/
J.
K2j+3(J+'"*/
.
0js	*UE
-++ 
2j+-."
.,.
 L".&.2&O+ . 	*A"U(63F=+/3HJ+ &. FO"&/.J/K.O O > H.$8&<	"U*U(> $.K/J.d K FJ > F@f3F+! 2$+6"/&.	(*U(G F4F <,"$. D: ? F: > D . 2D=	 "O+ <,+: .  F &/. F0f1+E <,	*(X . 2D=+Q: : F <, . <," $ FI	*"` DP P <,:P; I+a,f& d?D D $ D*Ui > F  F+@d <,	D"`zR$c_<F
%d]3:H`Q-Pd]3:Wd]3:\`>^c_<F
b` Rd	  Tm, <, <, 2$J+ $3D+J D <,,+l 	(*Uu3DJ+ $. DN"&/.J/.N N > H.$8&{ $.	*U E ~/J.D  @ F . <," $ FG DP P <,:P*; G+, <,	D"`20Jl` Rm`zRnc_<F
o`20Js` Rt`>c_<F
` R	 (@"	, <, <, 3D<+L6D+L <,,+^ $3D+J( D <,, <,	D"`20J` R	`zR
c_<F
`}hB@R`20J` R P,"$.D+ <,,+ <,, $@	@
\j@s@@4@L@d@,@D7@|D@|M@|Q@$]@<k@
u@d@l@$	*D"( D :  Ap  Ap N Ap  Ap,~hOh	*"P#`hXQ	  +XS$XVX	D"`20J` R`20J` R`20J` R`}hB@)`}hB@,`}hB@0	*@ 4IZ@(PQZ	( <$XMZ@(X(EtX@	@#@!L@@D @t"@$@'@|)@$,@4/@T0@l3@|6@9@L<@l>@|A@	,C	 @(G[X^XZt	( O$PXtXqX*Xft$X	D"`}hB@3`}hB@>`}hB@C`}hB@F`}hB@I`}hB@L`}hB@Q`}hB@T`}hB@W	 @(\tXwX|	  d$XtX}(H	 mXXX @u$@	@	TF@
I@
$L@
4O@DQ@
T@
W@
,Z@<^@Ta@d@Lf@|i@
l@4m@Lp@$s	 TwX$K$$$OP( $X	D"`}hB@[`}hB@^`}hB@a`}hB@f`}hB@i`}hB@m`}hB@p`}hB@s`}hB@x	 @*!Xq$X	( 
tP $X%	 X'(X(X	 @tX*X0 %X	D"`}hB@`}hB@`}hB@
`}hB@`}hB@`}hB@`}hB@`}hB@ `}hB@#@	@4v@Dx@T{@d~@@D@\@l	@4
@ @!@!@!,@!d@"$@"< @"l# @&5	D `}hB@&>>7(x&Q8oi`}hBPoi%\j`}hBP%\j
	D 
Zo%[4&'&,g?`}hBPg?O+E3
	 %jI`}hBP%jI
-/%jL`}hBP%jL,-X2%j7	D"
~7
P80K:P7P7.?P6!	@P6P5/85`}hBP/85y/P5P4%pHN	D"{m)t*PLGHPKHllQ	qGQ9# f
s)aq9a	D" KZ
_iY'W	^8{` 7WS	{a	D"qZVA
8g~#T?i1%]^j$8S	D" Q{9IP8?"{Wi	{%Qa|	D"3S$gVb	hA]{}3?'SOha{z}	D"oz~{uL3+<?Lzi}![[537SI	D"cauQw3{?F|yM2ox+C|eJ2[v	D"A|QI2Gs>cqPAs23oE2p	D"[?
	D"4uqvYZzS ,O
3tAD	pz?	D",;fw9@,'c'?}'$	D"?C&d]	V?/&kxpa.	D"?&Ww	t?&Ca
&l	D"At9	%sl
&(((B Q-0Q-@ 5    A    ,     @h	"QC3  \ p @ p @ #p B p B .$/&$ D4D1d	 
D"+ <,:.  F:.  F"(/ $./	"(T. D4D7F+:.  H:.  F <,  &*P
E . F   Ap,~hh	D"Q-d]3:	d]3:(x%hD&'O
+E3	D"ZS0K)t*	qG+o
[DGu	ta@|@

@|@4@$@|@((  ]3:0]3:@	"D"0    1    2    3    4    5    6    7    8     9     @	 D(U"]Vl)9 !p @ p @ p @ @ $t D@d & D5D6F+	(*
 0F+ $ D.d.   F 1D+"$.D "P&$ D+  Ap,~	D"
]3:k[+051w%vSy/)t*
D"	qG	o[Gq
5@~@
@((	 (Uj0(Uj@}hB3G& 9    0    0X      @  (10A1)(I)	"P*O&h9 \ p @ #p B p B p D@d <, DZD 	 T <,:; +, 3$+ 2d+
 <, <, 	 A*E 1$+ 2&+Od+@d 	 	 F#*d@d:0d+ 	D"(Uj`zRc_<F
	`Rf3G@f3G@
f3G@	*D
@3F	+:0f+  H#+ 	 D <, <," $ D	**E"" . 2D+  D+:8&" $ D   Ap  Ap	 *,~X$X}("3$P@$	D"f3G@f3G@f3G@`>c_<F
 `}hB@+f3G@.f3G@9oi	"`}hBPoi%\j`}hBP%\j
/83g?`}hBPg?%jI`}hBP%jI	%jL`}hBP%jL%j7f3GP%j70KP5/85`}hBP/85P5	@P4%p
Kg$f3GP
Kg%i`}hBP%i
	&Wj	&AQ`}hBP&AQol`}hBPol	qG
s3
0S?.	D"++o[(zU3	zA
@D&@\(@\+@
.@l0@|3@l4@|8((:
 (TG"0(TG"@}hB3G&	"D"     -    .    *    /    ?    "    +    ;    "DALL  HELP EMPTYSTOP OBS      $     (E    H    9    0    -    L    @,    X`P         $ @p	 (' ENTER # OF VARIABLES OR VARIABLE NAMES'/)(I5)(I5)(5A1)('-ERROR:  NUMBER OF VARI	  ABLES ',I6,' OUTSIDE ALLOWABLE RANGE,'/9X,'TRY AGAIN'/)('-ERROR:  VARIABLE NAME LIST 	 )TOO LONG, CONTACT COMPUTER CENTER STAFF'/9X,'FOR HELP'/)('-ERROR:  RESERVED CHARA	 1CTER "',A1,'" IN VARIABLE NAME'/)('-ERROR:  VARIABLE NAME "',A5,'" IS RESERVED'/)	 :('+RE-ENTER THE LINE'/)('-ERROR:  VARIABLE NAME "',5A1,'" STARTS WITH A NUMBER'/)	 B('-ERROR:  VARIABLE NAME "',A5,'" IS USED IN VARIABLES ',I5,' AND ',I5)('-ENTER C	 KORRECTION IN THE ORDER:  VARIABLE #, COMMA, VARIABLE NAME OR A - TO DELETE'/)(I,A5	 S)('-THIS LINE DEFINES DIRECTLY AND INDIRECTLY THE NUMBER OF VARIABLES TO'/' BE US	 \ED IN THE ANALYSIS.  IF A NUMBER IS ENTERED, IT IS ASSUMED TO BE'/' THE NUMBER OF VAR	 dIABLES AND VARIABLE NAME OPTION IS NOT SELECTED.'//' IF A VARIABLE NAME LIST IS ENTER	 mED, THE NUMBER OF VARIABLES IS'/' COUNTED FROM THE LIST.  VARIABLE NAME LIST SHOULD C	 uONFORM TO THE'/' FOLLOWING RULES:'//' (1)  THE LIST IS COMPOSED OF 1 OR MORE LINES.  	 ~AN ALTMODE OR BLANK'/6X,'LINE MUST FOLLOW IMMEDIATELY AFTER THE LAST VARIABLE NAME'/6	 X,'IS ENTERED.'//' (2)  VARIABLE NAME IS MADE OF 1 TO 5 ALPHANUMERIC CHARACTERS, THE'	 /6X,'FIRST BEING NON-NUMERIC.'//6X,'THE NAMES MAY NOT CONTAIN ANY OF THE FOLLOWING SY	 MBOLS:'//6X,'*      ?      -      /      ,      +      ''      .      BLANK'//6X,'NOR   MAY BE ANY OF THE RESERVED WORDS:'//6X,'ALL    HELP   EMPTY  STOP   OBS'/)	"
AO%H1 \' p @
 #p B #p B @" $ . D'.$8& <	 T ,,@d
 , . F#*d
 <, $ D 	0D+7`++"
 2D)+ 2D(+ 2D++ 	D"(TG"`20J` R	f3G@`lZ
`}hB@f3G@f3G@f3G@	(Q
3D-+  D2$*2d)+"& $ D  2D.+>8& 	(A@ D 3F+ 2F+/$ D" $  H#.$8&$ &2D. '+"& $ # H$	D"f3G@f3G@f3G@f3G@f3G@ f3G@$f3G@$f3G@&f3G@(	"D")/$8&( . D$+& <, <, <, <,7d
+2d+	(U
@
2"
 $ F D , . F#*d4 . <, <, . < :,	D"f3G@)f3G@+`>,c_<F
-`v.c_<F
/f3G@5`>7c_<F
8	 E ; <, $2D.+ - $ F#*d> . D&+< . <, <"Q(C, .  F:; +4+ <, <,	D"`v:c_<F
;f3G@<f3G@>f3G@>f3G@@`>Bc_<F
C`20JH	"J6$+3<,<,, <K,"&$ $$3D+*2D.+>	(T(T*R8&P+@dD"c$ F
I`}hB@J`}KK`20JL` RM`}KNf3G@Pf3G@Vf3G@a	  c <,+ <, 
. <,6$+ <M, <,,"*P*Qk.D
+
  0F+2D3D+S7d+a $3$*+ $	D"`20Jbc_<F
c`20Jec_<F
g`}hB@g`}Ki`20Jj` Rjf3G@q	**T(s2d)+r <, <,+g:
2d+L:.@f 
. <,	 U"T{ <, ,ZD  
. '3H+d*d}6b0b++44(@d@	@t@T@L@"@#@t,@TA@
H@L@N@
S@\b@
Dg@l@,	*"U* , . F#*d 
. 
+F72D3D+o:; 
4$H4D &/
 $ F D.$ D"&/
.	*UU(  D . . '3H+:8&:; ++G <,*  . <,6$+ <h,	D"f3G@r`20Jtc_<F
u`>{c_<F
|f3G@`20Jc_<F
`}hB@ 	 
*" <,, <, <, 3D*+ . D .  F	(Q(@ *+ $. D"&/
.  . 
' J' . 
' J'.$(T*(38&."$.D
+  2D,++
 <,,6$+ <!,	D"`}K!`20J"` R#`zR$c_<F
%f3G@5`20J8` R8`}hB@9	*@; ' 
 Ap,~h.	XP	 C@$P(@L$
P@	@4@

@$@@
"@l+@L5@l7@
:@l;@;@$=@D>@@@DC@TG@dI@tM	 @ O$P@	 W$P@$X	 A`$
X&	X(h/$X	D"`}K:f3G@>`}hB@@f3G@Hf3G@Xf3G@^`}hB@_`}hB@d`}hB@g	 @l5$X:X	(t<@$P@ }$X@	@tN@R@$S@4W@$Y@4]@	_@	b@	Dd@
$g@
4j@
Lk@
ln@Ds@Tv@,x@<|	 @( B$$$XJ	X A S$$XTS	D"`}hB@k`}hB@p`}hB@sf3G@wf3G@}`}hB@~`}hB@`}hB@`}hB@
	zM`}hBPzM%\j`}hBP%\j

/83M	"g?`}hBPg?+E3w%V'&/`}hBP&/%j7f3GP%j7	"xj`}hBPxj&H
P8zU`}hBPzU0K'P7	D P7P6P6P5/85`}hBP/85P5P4	%oG		D"
N7
PL
PKPKPJ
PJ

Kg$f3GP
KgPIPIPHzV`}hBPzVw05w04	D"	
ZW%|_
Bg	qG _p
sa
 Ki	D"
_ 7nS! #k?] j+>	D"I{g
5vg\@!lS[o	D"?Y[a:SZG;?V3=+Veg	D"PQd2G
O=b237od)^2.	D"[b
-3
GN-3]H-	D"YJ	D"
u
'
	D"'3,
a&M("'!&kI	D"!/&W}G 03	&&C}
@|
((/ (TJ0(TJ@}hB3G&"    $    	 CS    E    H    9    0    ALL  -    *    L    A    ,    XM         P    $ @	8	 
(72A1)(I5)('-ERROR:  VARIABLE NUMBER ',I5,' OUTSIDE ALLOWABLE RANGE, RE-ENTER TH	 E LINE'//)('-ERROR:  VARIABLE ',A5,' DOES NOT EXIST, RE-ENTER THE LINE'/)('-EITHER 	 VARIABLE NAMES OR VARIABLE NUMBERS MAY BE USED TO ENTER THE'/' VARIABLES.  MORE THAN 	 %ONE NAME OR'/' NUMBER MAY OCCUPY A LINE AND ARE SEPARATED BY COMMAS.  AN ALTMODE,'/' 	 .DOLLAR SIGN, CONTROL Z OR BLANK LINE MUST BE USED TO TERMINATE THE'/' ENTRIES.  RANGE	 6S MAY BE SPECIFIED BY ENTERING THE TWO EXTREMES'/' SEPARATED BY A MINUS SIGN ("-").   ?FOR EXAMPLE:'/' 1,AGE,10-12$'//)	"AO%Lz \B p @ p @	 !p @ !p @ <, 0D+ <,	"
  2DD+ 2DD+	 2DG+ 3DJ+ 2DC+ 2DH(+ 	D"(TJ`lZ`}Kf3G@f3G@
f3G@f3G@	*
2DI+ 3DD+@d	 $ D@d"&$ $$ D  2DJ+>	*T*E 8&+@d I J F#*d@d	:3d+ J F
7`	++ 	"U
P*#  D
3DJ+2DH3DF+2D3D+&:	1f D#+7d	+ $( +3dE+ $2dE+, &2DJ+"& $ #	D"f3G@f3G@f3G@f3G@f3G@#f3G@)f3G@+f3G@,f3G@.	 Q1 H$/$8&0 J D$+. <, <, <, <, 0$2d 9++ <, <,6$	D"f3G@0f3G@1f3G@3`>4c_<F
5`v6c_<F
7`20J;c_<F
<	" *=+ <, 
3DF+6b0b++44 $ D:. 	"T*E*E F+:.  F 
 3&3D+2D+ .D	 
2D	(PTN3D+2DH+ <, <,+ 	.. .$ D
"&/*P"PV.
 
:. D'.$8&W $ D+H J@	@t@L@,@@|"@|*@$+@t4@:@$>@A@|C@C@$F@	,L@L@TP@,R	((E"\ D <, <, 2FF3FG+" $ D . 2D+*Td  D+>:8&b <, <,6$+P <=,	D"`}hB@<`}K>`zRPc_<F
Q`>]c_<F
^`20Jgc_<F
h`}hB@i	(*@
k" $ . D'.$8&l  D	+O <,,6$+ <j,	*@s B 	 Ap,~hKP
	D|@$P
@$	D"`}Kj`20Jp` Rq`}hB@q`}Ksf3G@wf3G@}`}hB@`}hB@ 
@$X@	@\[@
Df@
k@dp@,v@Tw@Dy@T|@d@t@,@<@
@
@L@\ A$X&	D f3G@
f3G@`}hB@`}hB@zM`}hBPzM%\j`}hBP%\j
	@
/83g?`}hBPg?w+E3h%-%V'&/	@`}hBP&/&?;%j7f3GP%j7xj`}hBPxjh{y}
	"zU`}hBPzU0KBP7P6P6P5/85`}hBP/85	DP5P4/~	
Kg$f3GP
Kg%i`}hBP%i
	zV	D"`}hBPzV
w04
	%i?	qG
 _
s Kl	D"
sX"7SqR#?]P	D"wb+SWGsoP)[KGL3AC	D"3C>u>apw:
u
'y0.!+	D"
t@((K z0z@
)z2
D8++	"D"r(    r+    s-    s/    t*    t     u)    u.    v=    	"D"v&    55 06 P6 X7 p7 t8 x8 |	"D"9!9!#ATAN $     $TANH %     %COSH &     &SINH 	"D"'     'COS  (     (SIN  )     )SQRT *     *ALOG1+0    	"D"+ALOG ,     ,EXP  -     -ACOS .     .ASIN /     /ABS  	"D"0     0INT  1     1RAN  2     2SETRA3N    ww	"D"xxyyzz{{|	"D"|}}~~"7~84 V          9    0    Z    A    9Lf3ANSWER     @`	 9('0*',$)(80A1)(12A1)(I)(10A1)(/,' PROBLEM WITH SUBROUTINE EVAL.',/)	 B(' BAD STATEMENT.',/)(/,1X,A10,' IS NOT DEFINED',/)(/,' WRONG KIND(',I2,') OR KLA	 JS(',I1,') FOR ',A10,/)(/,' ERROR ATTEMPTING TO STORE ',A10,/)(/,' END OF FILE ON  SINPUT IN CALC.',/)(1X,1PE)	"
PGd0 \V p @q p @U p @X@dq@f# FX <, <, F9 F	*"T F6 F5!( H: F4 D7 F $ D4 F F8:60d(+ 3Ft+	(UQ"8 $ D: 6 :  q3H+::8& 6 3&Y+ 2fY+	"T Q( $.8 D:+ 6 3&[+ 2fZ+ $.8 D: 50D+(P" :0D2d8+! <,	D"z`zRc_<F
bD8+@bD8+@bD8+@bD8+@bD8+@bD8+@	(T
E"%"4 $ FW DT T <,:T; W+' $.4 D5 5/& 5 FV	(
"- DT <,:T; V+.,@d4 :1F+ <, @4@ 1F	(D(P*62D+   F7 & F5+# $ D9 DX(*@d5+ 60d(	*
P >+6b:0b++444A4B4B4444444(G+ <, <,	D"`>$c_<F
(c_<F
.` R0d(IYg3b)z2@7bD8+@;bD8+@<`zRH	*D*Q*I@d6+6D5+: & F:+6D5+K: & F:+6D5+N 	(
D*R :0D+ :1D+1D+E: 6 * J : (.: H	+ 	(E"T*Z 	0F+U & F	+: & F: : F	+ $ D5+ 50d	(
*c+F1D+ & F5 6 A[&Z!&	 75 F7+ \d: 6	"U k A[&Z5D7+:41d+ & F4 4 6  F $ D5	*(T*t+ 50d+@d5:# 7 F!& F:@f7: ( H: D	+=V@	@@4 @,:@=@
@@G@\G@J@DM@4P@
LZ@
4]@L`@db@
Dj@
4n@
t	(P"P*|	$3$4D4<,"4$FVD44<,:4; V+,	**(@d4"4 $ D4 4( "3H	2J	7+:48&+[: & F:"T@
IbD8+@fbD8+@kbD8+@r`>c_<F
` R`20J` R	 Q  , $ DX+ $ DX+ <, <, $ DX+ <, <	 PQ(, $ DX+ <,, $ DX+ 50d+$5Dt: ( H:	"E % (
 H	" $ HT D66b:0b++4)444: & F	"Q"-+   D6"&.F1D+-0d+ 8 X  F7"&.F8 6	"
U(61D+ <,+.7D+ 6 	   v2hv+9  F6"(.H U
>0f+ 8 X  D7"$.D8 61D+ <,	D"`20J` R`20Jc_<F
`20Jc_<F
`20J` R`og7	*T*U*E+8: 6 	 H0h+1:8:
# 
q L( J X+H 6 	  Dq	*E
@*M:6; T+( $3$+ $3$8+7D9+ <, @4`  q	"@"V F+!6DU+ <, <, <, @4`  q F V q"^ Ap X Ap,~X\@	@\|@$
@<@L@l@l!@)@$,@,.@$5@48@tB@DE@<K@4M@,W@|Z@l]	*P*E"aXWXXX*XWXXh67qh67	("DjqX(3X7:@(	D"`ogDc^\?~Sb)z2@V`20JXc_<F
Yc^\?~Zb)z2@]bD8+@dbD8+@k	 ArP;($$tX7	"{:@(P=	$	 AX>XBX(
G$$0(X@	@$a@4d@Dg@ti@4k@\n@lq@Ds@|w@dx@|z@	
}@l@$@@4@|
@
	 @M0*XQX(U(q	D"bD8+@rbD8+@vbD8+@~bD8+@bD8+@0#
a
	"&'b)z2P&')|G8+Pn	+E3b)z2P+E3/Sb)z2P/S

e#hx#/E3p4	D"h45X
:{I;D+&(bD8+PD+&0KV.T	D"P7T.?UP6UP6VP5VP5WP4W%pX9X	@HNqr5'*bD8+U5'bD8+Pw)TS%i	D"*
9	qG9 _d
saM	D"
}
: KR
_mM
i= 7gS	D"Y
U|q9 #i?qEG
At)+n	D"{9j1{(iBD{%ng']	D"UE }Z{b	SA8uB i]z}`	D"?[ziPSzUM AJG/?
@o['=<G	D"Ucz%aO@ K;G)5'7
a	D"k.x!MG.

@p@4@D@l@@((^ og0og@  @8	"
KZp @ p @ p @6b0b
++44444	"44444444444444444	 U*U 44 D+	 D+ D+ D+ <, @	*A P(+"d+ <, @+ <, @+ <, @+ <,*A " @+  <, @+" <, @+$ <, @+& <,	D"og`	WG"`DR`>6z`)r`vz!`Rv#`9LR%`aj'*A * @+( <, @+* <, @+, <, @+. <@	@\@l@t@|@@
@@$@,@4@<!@D#@L%@T'@\)@d+@l-@t/	"U"A*1, @+0# D+2Dd D+4 <, @+6D D <	"PD":,@d   Ap,~xxxxxx(D"Bxxxxxxx@	@|1@3@
4@6@8@;@=@l>@?@t@@TA@4B@C@tD@TE@4F@G@tH"Jxp	D"bf)`K+`~Z-`vv/`|R1`0h7eMPlh:0KHN	D"za	qG
sE
mFSG?H+IJ	D"Ko[G;Q8=6)431	D"/-
u	D"
aUA=K((L MPv0MPv@
)z2@@	@@g&=bp@@b$@DbD@/$G$D".,FFb@F	D"b)z2P&'9:b)z2P9:+E3b)z2P+E3/Sb)z2P/S"x9:b)z2Px9:0@F	qG[G((	 (IYg0(IYg@
)z2 @x	"T"Y>h6 J H F Dp p @ p @ p @ p @  D	(P@f3D+   F4f.2F+7$.$(.$ D(*@3H2J+   H 
 J 
 J 
	D"
(IYgb)z2@b)z2@	b)z2@
b)z2@
b)z2@b)z2@b)z2@b)z2@	(
 J0h+.$ D1(+7$.$(.$ D+ $..d3$	*QE*+
+	Od  Ap  Ap  Ap  Ap    
 ,~	Db)z2@b)z2@0#&'b)z2P&')|G9:b)z2P9:+E3	"b)z2P+E3/Sb)z2P/S/E07060605x9:	D"b)z2Px9:(IYg0@F
h3*	 D"o[G zA
tA U 2a @|@|@$@T @L @ @| ((' ^\?~0^\?~@
)z2 @(	"U(D"S:LY \ N
 L	 J	 H F Dp p D p F 	p H p	(@* J , L0$+ , L$$.(G( H <, @4  
	" 0 N.(2h+ .( H H0 
.
 H07(.((.( H"(

  	D"^\?~`m3b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@	  D   F   D   J  .$ D 0D+ .$ D($ .$.d	D"b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@	 @T*%". F F  F+Od+@d p    
	*A. 
	 
:,~x	D"b)z2@%b)z2@%b)z2@&b)z2@'b)z2@'b)z2@(~\/0#&'	Db)z2P&'
/E07	07	060605x9:b)z2Px9:	D"0K
h3*+y^\?~$0o
[	G* i* U)2a*@@,
@$$@)@4*@
*@*@l0((1
 m30m3@
)z2 	 @(	"U(SY  \ J H F Dp4@ <, @4 4@ 0d+	"
"&.f1$+(/&)F)H.&.3F+&/*P...H.$8&"$/.d".	D"m3d(IYgb)z2@
,~X	D"b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@	@q0#&'b)z2P&')|G
h3*		qG	D"a+
	o&[G!zAtU!DtA U!2a@@	@$
@|@l@d!@
!@L&(()
 vA90vA9@
)z2  @p	 (1X,A10,1X,3I15,/,(12X,3I15))(1X,A10,1X,3F,/(12X,3F))(1X,A10,1X,2D25.15,/,(12X,2D25 .15))(' STORAGE EMPTY')(' ERROR IN STORAGE AT LOC ',I5)	"D"g-\ \ p @@d 3D+ D   F4f.2F+ 	"  H 
 J 
 J 
 L7 .$(.$ D0(+ 
.,( L0H+ <,	D"vA9b)z2@b)z2@b)z2@b)z2@b)z2@b)z2@	b)z2@
b)z2@	 *A(( <,"$ $ N D . <,:; +,+	 @(U <, ( <,"$ $ F D . <,:; (P$+!,+7$.$(.$ D <, ( <,	D"`20Jc_<F
c_<F
` R`20Jc_<F
c_<F
#` R%`20J)	* +"$ $ F D .( <,:; +., $..d	" (43$++ <,,+5 <, <,  D   Ap,~ <X0$	D"c_<F
+c_<F
0` R2b)z2@4`20J6` R6`20J8c_<F
9b)z2@@	 BX
0(X	(J
00XX"S$	D"b)z2@Ab)z2@Fb)z2@Gb)z2@Lb)z2@M0#(I+&'b)z2P&'	)|G9:b)z2P9:+E3b)z2P+E3/Sb)z2P/S/E
	"x9:b)z2Px9:0KP5P5P4%p0@F*
sA
_S?@	D"+=i
:A&[0ziG#3	D"zAtA2OU;R i)
'OU7M	D".-
A@DC@dF@,G@
I@,L@|M@\O@|R@
U((V