Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0137/aplb10.rel
There is 1 other file named aplb10.rel in the archive. Click here to see a list.
0 @ &' [ zZ a S 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 / 0 z , TTY FINISH @ INPUT.DAT _SAME : { [ ` 7 END /TAB p a OUTPUT.DATP
LPT DSK SEQOUT SEQIN SEQOUT 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 B p p B p p B p B = p *"( B @ C5 $ .D C@d } D y D D @d ~ < , *(@ c < , @d & F ?2d + 3F C+ 2D + < , , 3D D" ` zZ@
` zZ@ b9 c(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 *d 6 $ D C D C 3F
+ *"A* ; 3F + 3F + ; 3F + > 0f + H : : C+ 9 *A( D < , , + < , |_D ZD < , : ; + H, D"` &'@ !` lZ "` zZ@ 5` zZ@ =` zZ@ ?` 20J D` R E` > Fc_<F
I @A L < , 6D + A< , < , + C1D + A 5D .< , T " T`< , + L` 20J Nc<F
O` 20J Tc_<F
U` 20J Xc_<F
Ycw]bw ] *( ` < , < , 7D + \: C 3F
+ 3F + d 3F {+ < U
U* h, , + C 2F s+ 2F z+ k 2F + m 2F w+ n *U(U
q2F j+ p 2F b+ q 2F + s $ .D C
D D
$ D .d C C *(U y 3F
+ 3F + z 3& q+ 2f k+ } 0f + H *A : : C+ y < , C < , + < @ @ @t @ @d @T @t !@D "@$ +@t -@t 6@ D@L F@ \ P@
V@
t Z@
| j@L v@t , D"` > _c_<F
`` W 3 a` zZ@ e` 20J h` R i` zZ@ {` 20J c_<F
"A*T
, + 1D +
2D
+ D
D < , _D ZD (
< , : ; + , < , < , ?0$ 0d + ( 4D < , ( $ D"` 20J ` R ` > c_<F
` R ` v c_<F
` &'@ bK^ ( T( D a < , !&p83f K+ & F nA 4FF K"F ? ?1f 2+ "A $"& 2.f ? ?$ .& F 7f + ( $ D a < , 6$ D"` &'@ b_9 ` &'@ ` &'@ ` &'@ "` zZ@ &` zZ@ '` &'@ )e
hf * "
++ ( $ D a < , @d < , + A 4D C U * 40D +
: C 2F {+ < , , + C 3F
+ 5 "P <3F + ; A 5D < , , D"` zZ@ +` &'@ -e
hf .` zZ@ /`TUR 0` 20J 8` R 9` zZ@ <` 20J ? *T*D( @+ |
F *dA $ D C 3F
+ 3F + E 3F + G ((* I 0f + H : : C+ D < , , + r C P Q0D +
< , < , < , 3D c2F c7 + 3D f2F g Q(T* Z7 + 3D x2F y7 + Z3D e2F f7 + \3D 2F 7 + ^3D u2F v7 *E P( b+ `3D w2F x7 + b3D 2F 7 + 3D p2F q7 + 3D h2F i7 + *
E" k3D m2F n7 + j3D 2F 7 + $3D t2F u7 + n3D 2F 7 + p3D l (*( s2F m7 + @h B |ZD 3H
+ 3H e+ 3( q+ *@ |3h k+ x @ @
@D@4
d@t @D%@+@</@ /@ 41@L6@$6@|:@lA@$M@|O@$S@
T (T }2h v+ 2( {+ | < , < , D"` R @` zZ@ F` zZ@ H` 20J M` R Nb_9 T` > Uc_<F
V` 20J *
* + : B1F + < , , + *dv $ 3D B+ D 3D
+ (U
: 1d + + M e F < , < , $ D : 0d + *U*Q( 2F e+ 2F d+
2F o+
2F l+ & F A 5F < TU , , + 7D C+ < , , + C 2D D"c_<F
` 20J ` R ` > c_<F
` 20J ` R ` 20J ` R *T*A" "+ = |
F *d# $ D .d C C 3F + 3F }+ 3& q "T
T ++ 2f + + 0f + H : : C+ & < , , + < "A 3, C < , + < , , + 1D + 2D
+ "& $ * < H /$ 8&<
D + 9 < , < , D"` zZ@ "` zZ@ '` 20J 1` R 2` 20J 3c_<F
5` 20J 6` R 7` > @ (U A < , < , |
F *dD $ D .d C 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` v Bc_<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 @d 2D C+ < , 7D + < , , + ( o4D < , ( $ D"` zZ@ _` zZ@ c` 20J d` R ec!h j` 20J l` R l` &'@ nbK^ p ( T( r D a < , !&p83f K+ & F nA 4FoF K"F ? ?1f 2+ "A z"& 2.f ? ?$ .& F 7f + ( $ D a < , 6$ D"` &'@ qb_9 s` &'@ t` &'@ v` &'@ x` zZ@ |` zZ@ }` &'@ e
hf " + ( $ D a < , @d 1D + 6D C+ < , 0D + AD(
< , + 0 < , ( ( ( . = F < D"` zZ@ ` &'@ e
hf ` zZ@ `TUR `TUR
`TUR
` &'@ ` &'@ (U
Q( f F K F A 4F s F A 4F h F 7F C+ f ?
"F K! 0F + "( 2/ ?h H K0F + @ @H ( 3H o2J p+ "@4 $0F + #
@1
@2d@3
@3T @4!@4L&@3,& ), D"` &'@ ` &'@ ` &'@ ` &'@ ` &'@ ` zZ@ !` &'@ "` zZ@ %` &'@ & *P*( ) _D @ZD < , : ; @+ +, @d "& $ F ? D 6& K+ (P
2 < , ( 3H o2J p+ 1 F K"F ? ?1f 2+ "& 2.f ? ?$ " :.& F 7f + ( $ D"` > )c_<F
,` R .` &'@ 1bK^ 2` &'@ 3` &'@ 6` zZ@ :` zZ@ ; ( = D a < , 6$ + ( $ D a < , : ; ?+ 1 < , ( F( 5D < , , + ( D"` &'@ =e
hf >` zZ@ ?` &'@ Ae
hf Be>r&X E` &'@ F` 20J H` R H *
K ( <&
F " ( . < F =@f !& 2F K+ " S & F F K"F ? ?1f 2+ "& 2.F ? < , C0D + < , n *P \A 5D zA 4D < , + f"& $ F > D 6& K D"` &'@ J` &'@ L` &'@ N` &'@ P` &'@ R` &'@ Tb_9 XbK^ [`@\: _ * b+ < , ( 3H o2J p+ b F K"F ? ?1f 2+ "& 2.f ? ? @ k$ .& F 7f + ( $ D a < , 6$ + ( $ D"` &'@ bbK^ c` &'@ d` &'@ g` zZ@ k` zZ@ l` &'@ ne
hf o` zZ@ p ( * r D a < , : ; >+ b < , 7D + < , , + jZD
{!(p82h K+ *dz < , , + @ @ L(@79@7D?@7|C@6TC@ lE@8tI@:4T@:lX@;$[@;d_@ ,`@=j@=Tp@>
t@<dt@ Lv@>ty *T"U* D D C D B $ D C!$ D + @d D B D C+ ( 5D < , D"` &'@ re
hf s` }K v` 20J x` R x` &'@ {` 20J }` R ~` &'@ "A Q
, + ( ( <&
F " ( . < * "@ F =@f !& 2F K+ & F F K"F ? ?1f 2+ "& 2.F ? < , C "P 1D + &+ f C1D + < , D"` 20J
` R
` &'@
` &'@ ` &'@ ` &'@ ` &'@ ` &'@ b_9 " , < , , + < , , < , , + ` Ap p (D"
( Ap p Ap = Ap Ap ,~ p ` *Q*E 0 a i g ?X a i g ? p x ` a *E*" 9 i g ?X a i g ? ` a i g ?X a @ @?D@4|@
@A @BT@C
@ L @Cd"@5%@>\.@C$/@>40@=t3@;6@8L7@8$8@7d;@0D> *Q"U
A i g ? p a X =p ` *Q*E
I a i g ?X a i g ? p a ` d (E
E
R dx p h k p =p X Z D X D"` 20J ` R ` 20J ` R !` 20J "` R #` 20J $` R $` zZ@ Z @ ^ G X I X M X f N P @ @0@@.,C@- E@<H@dI@$L@LO@
P@ TS@ DT@$U@$W@Y@|Z@$]@\`@|c@Df D j U $ X V 0 rX Y 0 X ] 0 P { P a $ $ X c X g $ X D"` zZ@ ]` zZ@ `` zZ@ c` zZ@ f` zZ@ n` zZ@ s` zZ@ w` zZ@ ` zZ@ @ l P U $ P " p $ ? h @ @di@ m@ dn@ tq@
<s@
Lv@
|w@
z@ t|@
@<@T@l @\
@
@<@L * P ~ P ^ X q X @ u X | P U A ' @ X ~ $ X " @# 0 P U @ X P@ 8 X $ P U @ P D Z & $ = X & X "( b / h H p P ^ H U* k p P ^ 8 p P ^ ^ tP s 2 $ h X ( | 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 ~ ` h X = X B X E X L ^X D"` zZ@ A` zZ@ E` zZ@ ^` zZ@ a` zZ@ z` zZ@ ` zZ@ ` zZ@
` zZ@ * ?X i QX : & D ` zZ@ ` zZ@ ` zZ@ %vf ` &'P %vf l ` &'P lX
Cn %\j "
E: ` zZP
E: zt
F~
x6 h ` zZPh8b$ D ` zZT8b$HCg
+ ` &'P
+ %V' ` zZP %V'_9Gg xj ` zZP xj ?
XO* @ zL Y}JZ P7 D P6 4v9h %g| P6 ` zZP [; ` zZP [;P5 D } P5 %p P4 tJ3 ` zZStJ3 zu =` &'P zu D"
F| =PK >PK >PJ ? g6 ?PJ @PI @PI A %i D"` zZP %i PH A
s Z 2] a 6 j 9 - D" K m
2I / 1 k @ 8{ * S7 o S W D" q p 25 f W b 8g /# p ? Y {M = 2! & D" ] C a { 8S } r + {9 y -5 W I l D" / k v 8? v { s i {% -! Z 5 D" W C 3S v g u % U E - ; {7 S -3 6 G s
u 6 & / ' ' 1 M D"
a 6 !3 & * m i 8} E 9 T D" U 1 !
D" % | A - !
? - &W & E " 8U 2 D" > M - " w 3 ? # &C
! * E D" U A q ; w j 9s &
9 %s " a U u 3
I D " t O f 9K 5 % 3 ; 97 2 s
@Cl@D$@D< ( ( zZ 0 zZ @ }hB (Ti " .[ ] sDTA0 S INPUTB . DSK OUTAAE A.AAAH K N OUTPTT {C TTY F I L O / A 0 U DTA9 .DAT [ : X CDR ` 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 + D 3 3 D A$ 5D D A$ 0D + D $ . 6b 0b + + 4
4 4 4 < , , " D + < , , D" zZ ` }hB@ ` }hB@ ` }hB@ ` }hB@ ` 20J ` R ` }hB@ ` 20J " (U* D < , < , 2D |+ 2D }+ 2D z+ 2D } *U** + 2D s+ 2D y+ 3D + 2D s+ 2D + " *U*U
%2D + $ 2D x+ % 2D + ' 2D + ( 3D + 2D {+ *U*U* - 2D ~+ - 2D z+ . 2D {+ 0 2D }+ 1 2D z+ 3 3D "E*U* 6+ 2D y+ 2D x+ 7 2D }+ 9 2D + : 2D + < *T >2D + = 2D + ? $ . 6b 0b + + 4 4 @d 2 < , $ (* G2D + $ A 0D + G < , @d @d D
D
D 3 D D D + *UA( O F F F D D 1: 0d + 2F u+ & F 1 3F + (Q
" X3F + 3F ~+ + R $ . D
"& . $ H /$ 8& ^ (T( ` .& H *d ` $ .D + R $ @ @ , @ d @
@T @l @d @t @$ @| !@$ ,@L 6@< C@
E@4 E@ K@
L V@
t [ *" e. D 3"& . $ .D *T Q* m+ R D + R7D 3+ < , .$ D 1" 3/& . 1 1 F
e5 KJ Fe
hf J` }hB@ K` > qc_<F
v
U* y < , < , 6D 1+ $ .
D 0" 0.
0 D 2 2 2D + * * > 28& $ D 2 2 u F < , $ .
D /"& /
. / / F
*"*
D 2 2 < , : 2;
+
, 7D
+ < , _D ZD 2 2 < "Q , : 2; + , 7D + < , D"` R x` v yc_<F
z` > c_<F
` R
` R "E* .$ D -" /& . - - F - D 2 2 < , : 2; -+ , < , Q
@* < , 2D + 3D + v F + !" 1D + | D + $ $ (QA" (A 5D D $ A 0D + D < , 3D v+ 3D + *( 03d 3$ s+ + / 2D |+ $ A 4D + w D x D $ D * * 9 D , < , < , 1D + $ .D + ; D / D 0@d D"` > c_<F
` R ` v c_<F
` }hB@ $b_9 -b_9 :c!h ; UP
A < , _D ,ZD < , : ; ,+ D, "& $ D . . (U"U J2D + > .8&I . 2F u+ 2F z+ M 2F y+ O $ D @ @
d@ $ n@
4 o@ {@@<@l@\ @,$@\'@
*@<-@t-@ 2@6@T?@$A@,L ("( R2D + $ A 5D t D $ A 0D + z D D $ A [1D + < , 7D + [ < , , " 0D + < , D"` }hB@ A` v Bc_<F
E` R G` }hB@ Qc!h \` 20J ^` R _` }hB@ _ * P b+
@d 4 0D + $ ? D 4 < , + 2 0D + < , 0D " j+ < , <a, $ 3D 2+ A 5D < , + 5 $ 2d + p3D 4 ( s+ < , $ D 43D 2+ n D 2 < , D"` }K a` }hB@ cb_
G fe5 KJ ie
hf k` }K l`@\: pc_(Ti@ qb_9 t ( P" x@d 4 0D + $ ? D 4 < , $ A D 1D + F + F (D @ F F F F + D D"e5 KJ w` }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
` 2R c<F
"*@( $ . 6b 0b + D+ 4 4 4 4 < , , + r,~ *@ x P 4
+X (T(Q * +h p p ` / @ @ L@ d @D
@"4@",@!@ D@!|@ 4@ t @ < @ 4!@
#@ \$@D(@4+@$-@T. * 0 w v x X D"e5 KJ ` 20J ` R ` }hB@ c_(Ti@ c_(Ti@ c_(Ti@ c_(Ti@ "c_(Ti@ 1 @ 4 5 X 9 X g = @ < @ P = $ P " E > $ $ + P = $ @ M P = $ P = (@ V $ P > $ P @ @ $0@\2@|3@,6@T9@d<@
?@dB@D@$G@TI@4M@tN@$R@dS@<W@lX@|\ D ^ = $ X ? ` f ` X A zX ( o ; = $ . $ X x z D"` }hB@ 3` }hB@ 6` }hB@ 9c_(Ti@ \` }hB@ bc_(Ti@ h` }hB@ j` }hB@ m` }hB@ r @ {h3 ~Ly zr c_(TiP zr {/ oi ` }hBPoi %\j D ` }hBP %\j
F~
zp c_(TiP zp g ? ` }hBP g ? zv %jI ` }hBP %jI &.\ gd
%jL ` }hBP %jLqp:
y P8 D 0K rP7
P7
R!b
c_(TiTR!b
p P6 @ P5
Xm c_(TiP
Xm /85 ` }hBP /85P5 P4 9 "
LB /88 c_(TiP /88
Ix3
F| +PI +PI , P %i w06 -PH - 9 . .w05 / g /w05 0 D" y 1w04 1 2b[u@ 2 &M 3 &AQ ` }hBP &AQ &> 3ol D"` }hBPol {6 4 ~2 4 qG 5 9# a V
s
9 D K 0 D"
_ i% 8{ C 7 J S q i 8g ] # 2 D" ? ] h} 8S + C + I hi 8? - D" { E {% ; 5 { hU 3S | g 9 {E E D" { 6 ! p C r 3? 2 S ; {1 q o / 3+ . D" ? < { 2 zi A ! $ [ 3 - S > zU D" G
` { m p 3 * ? ? zu ? zA 3 w D" s m 2o \ + A j 2[ X E Q {s h 2G W D" / = n { 23 o 0 b} ) j {K { 2 D" [ 2 bi ; g {7 -3 S G 3 bU A ^ {# D" - R 3 5 bA
{ t - z{ e ,w 3 6 D" zg | ,c N $ tU g zS ! ,O M &
w ' e ' # ,'
c ) D" Q - * D" ?W e ' '
u K
a = ?C b & G ?/ b &k D &C u
D 97 H s ^ 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 @d 1 D 1 "P & ( F 2 D /2D + < , 0D + < , , 0d + < , ( < , < , @D ZD 2 2 < , : 2; + , 11D + *(A 2D >+ 2D ?+ 3D A+ " $ . 0
A J'.$ 8& "@*" " $ D 1 0$ + ( . D 2" 2 $ D 2 2 2D A+ : 28& ' "U"P * $ D 1+ 2 2D ?+ * $ D . 0 < , D" (T$ ` }K ` 20J ` R ` 20J c_<F
` zR c_<F
` R (T
D* 1" 2 $ F D 2 2 < , : 2; + 3, " 2 $ 3H ?: / (
92H @+ "( .H /.$ 8& 7 $ 2d /+ + & .F . 3f + . / PT
B( . F 2 21$ + < , @_D ZD 2 2 < , : 2; + G "A ( J, + / 0D + < , < , , $ D + = 1 Ap ,~ A S X 0 3 X 0 4 $ " [X 8 $ P 2 @ @,
@T @| @D @ #@D &@ ,@$ ;@ C@L K@ L N@\ Q@ T S@\ T@ W@ Z@$ \@T _ @ A a 9 $ X 8 $ " iX 0 : D"` > 0c_<F
4` R 6` zR Ec_<F
H` R J` }K M` 20J N` R O D" zM
Zo %[4 / %j7 0K =P7 P6 D"P6 P5 P5 P4
s W
_ S T ? +
D" Q o S [ I G 4 ? j 3 + N h D" G o G [ e G C 3 > ; 3 9 7 d D" w 3 c 2
u : ' '
a K D" & U / 4 A ; - 9 pS @
] "w X }n X>]"< 6v,c Tql#qD0 ](
U6 vNw @ "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
 F & X&) &h
*Q U* * &'4 F h !& F *E( 3 ,~ x x
D" ;pS `K `aj 06 05 ;pS ) 0K D" Q- qG 9 o 8 [ G 5 h04
@ x @ | 8@ 9 ( ( 9 DS 0 DS @ [nU X }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 D d !( (* d !& F j !(} j !$ D H !( *
U* H < , @ < , @ H
*E*T
* J H H H F F < ,
"" "
J ( (@ H
0 ( 0 ( (@ ( Q * ( @ D D < , @ D $` $u "E 3 " $J ( ( $p D (D*@ ; H (lr " D.
,4 ( ( p (p (@(@" L F F < , @ D
,J
,j
,l (DD U (t8 (nO (@
,
"T @ ] . @ .f` " H (Q*T f &n " (U*Q
n
&` (D U* w &` &R & (
(@ D
F F < , @
*U*
J J J < ,
D" ,~ x x x x x x x D" DS `K `aj `aj !`aj .`aj N`aj ` ~Z
Q D" 8$ D" S 08 07
h D" R ] 0K
R Q- Q
D" T % qG
S ? + D o [ G
@$@< ( ( HUTv 0 HUTv @ 0 uj^
` !u (4 @ 0 "@ G"N
Q \ p @ p B p D !$F D 0 1" + + + A$ * U D F F @h 0D 0b + + 2&
+
" H < , @ (P H 4D < , "@ < , D D 1d + d $} D D "@"( !$ D 0D + !& F !&*2f + @f 0D +
F < , (*P " @ < , @ D 2$ 2d
+ < , @ !$ d *P(
*3d + "@ @F + !$ @D @ 0D + @< , @ @D @d "D *U"* 3 D D 3D + D !$ d 3$ + 3 D *E( ;+ , D $ 2d D 3d + !$ D Ap ,~ x " Dx x x @ @ l @D
HUTv ` ~Z `aj dYPyt `K !`K #` ~Z (`aj 0 D" T h
s G
I S J D" ? [ G A A > D" A 9 C - ) D& RGW!u \ @ @ "
U
]?X{ \ p @ p B 4@ # D D @f D D 2d + **D" " F < ,
@ D 7f + " & 3F + 1& "E* 0D + + 3f
+ 6f + 3f + 7& + F F "*U
!& F !$ D D D d 2D + !$ D 7d P(U( "+ !$ D + !$ D @d !&@ F H
J &} *U(" * F
J H F 2d + !& F F !$ d !&w f f **Q* 3 F D F D H D *UE* ; D H F 7f + !& F 3H + 2D + 0 D + $!$ *( D D + C!$ D + D@d Ap ,~ x D"
YPyt ` ~Z
] D" 4z ) 0K ] D" qG
_ @ S G ? + o I D" [ G G
a G U F A E - C q B D ] 0 I $ 5 h04 @ `@ @\ @ @< @d @t $@l 0@l @@
B@ 4 C@| E@$ F@d G@$ G@ I ( ( J
= Utz 0 Utz @ 0 (*U+ YHa 6EW t/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 ,~ D 7D + *@(( D 1d t+ & t F 7& .& (( .& / F 7& .& ( T ( .& / F 6F + < , , f h H ( !& (A
T " F < , 4 < , 4 F F + < , @ "ET
*D D !$ D + ( < , 4 D < , @ D *P*U 3 D + - < , @ D D F < , *(* ; @ D D $ . 2d + < ,
4 $ . D / D7 .& (/& "* .
j h ( h ", .
l " L H .$ 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 D 5$ @f + !$ D D 1d t+ 6& + < , D" Utz ` 20J ` R `aj )`aj 1`aj 5`DR :b f Q` WG W @ ~, < , @ < , " @ @ d !*z
!(j ( (U*P* H + |@d D H F 2& + * 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 (@< -@l 5@L <@ O@
< X@ l b@
| v@
y@ z@ z@T @L@ ' (E*A" 2 Ap Ap
,~ p x p *
: x x p x x x x "D Cx x x x x x X @ @1@
1@D8@l9@
:@t<@
=@
t>@
?@@@$A@TB@
C@\D@
E@DF@,G@TH @ J X D"` 20J ~` R ~`aj `
` WG" ` WG" `aj Q D" f
U q e Utz 07 D"07 06 h 06 05 Z 1
0K P5
P4
zG
Kg
D"w05
Q i qG
s
_ S
D" ? {M X +
{% O o z} v [ D" zi u G 1 zU J ? 1 {) z zA < + 9 { y 8 D" : o = [ < G L u% ' 3 | t} 3 z D" m tU >
a - B U ( C D ( O
0
@ 5$3, <@;b` F yD t80&_BnU ]S > @ "U
@" G5` \ J H F D p @ # & !$ D (E
"@ U F " D D < , @ F 7d + !$ D *U
,~ x D"
` ~Z
07 06 06 05 D"0K ;-9 qG o [ G h04 @ x @ @L ( ( (TX 0 (TX @ }hB "D" IRVAT F,$) A(YES S A & M) S' ST TOM B DNG') " HS MU E OVE LR BE :. / (ER',,D YESENF OF AILE /R NO, RECXVERAB f3)PUT h ') (' ST @ Q('DFORMAT') (' FORMAT:"(',A1,' -MTYPE ONLY)') (' TYPEp"HELP"FOR EXPLANATION',/) Z(80A1) (' ERROR IN FORMAT, TRY AGAIN.',/) (' THERE ARE FOUR METHODS OF FORMAT3ENTR bY:',/,' 1 - STANDARD FORMAT',/,'2-fFORTRAN OBJECT-TIME',/,' 3 -0USESAME FORMAT AS kPREVIOUSLY',/,' 4 - DIALOGUE',//,'WHICH METHOD?(1,2,3OR 4).',$)(' 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 + *d 6b P0b + + 4 U" "4 4 : P; + M1D + " Q $ D P P 3H A+ 2H ; QU *+ + : P8& ' $ D N+ + - $ D D M . < , D" (TX ` 20J ` R ` 20J c_<F
` 20J ` R ` zR c_<F
(T
D* 2" Q $ F D P P < , : P; + 4, " Q $ 3H ;: I (* :2H @+ "( .H I.$ 8& 87$ I+ *4D . & .F . 3f + ( . / C ( . F Q Q1& + > < , < , + 0 0D + < , "@
@ K, Od + > < , , $ D +
@d < , D"` > 1c_<F
5` R 7` zR Gc_<F
H` 20J K` R K` 20J M` R N D* Q, < , < , P0$ 0d + 6b P0b + U+ 4 ,4
4 !4 Z $ 3D + J D < , , + P $ 2D + D < , , < , b < , D"` 20J Q` R Q` zR Rc<F
S` 20J \` R ]` 20J `` R a` zR b (* c 0d 0d s+ + _ $ 3D + J D < , , + `" @ @t @ @L @ !@
#@ +@$ ,@4 .@\ 0@4 <@ E@d I@ $ M@, P@
| W@
t Z@ ^@
T f "U(E
j $ F D P @ZD P. '3H + *d l@d + : P; + l "T
s+ < , , < , " $ F D P P. < , : P; + x "*D" {, " $ F M D P @ZD P. '3H + *d ~ $ 3D + J ( D < , , D"c_<F
c` 20J h` R i` 20J t` R t` zR uc_<F
y` R {` 20J *U"Q
+ s: P; M+ ~ A D H" $ D P P. 2D =+ < D H+ * ( : P8&
< , < , H3D A+ < , , < , , " $ "U* . @j'.$ 8&@d & F & F D D F J ; F @d "P $ . D 2d + < , < , < , D"` R ` 20J c_<F
` 20J ` R ` 20J ` R ` 20J "c_<F
# P*E
% < , : 7H K+ * .
/
J.
K2j + 3( J+ '"* /
.
0j s *UE
-+ +
2j + -. "
., .
L " .& . 2& O+ . *A"U( 63F =+ /3H J+ & . F O"& / . J/ K. O O > H .$ 8&< "U*U( > $ . K/ J.d K F J > F @f 3F + ! 2$ + 6" /& . (*U( G F 4F < , "$ . D : ? F : > D . 2D = " O+ < , + : . F & / . F 0f 1+ E < , *( X . 2D =+ Q: : F < , . < , " $ F I *" ` D P P < , : P; I+ a, f & d ? D D $ D *U i > F F + @d < , D"` zR $c_<F
%d]3: H`Q- Pd]3: Wd]3: \` > ^c_<F
b` R d T m, < , < , 2$ J+ $ 3D + J D < , , + l (*U u3D J+ $ . D N"& / . J/ . N N > H .$ 8&{ $ . *U E ~/ J.D @ F . < , " $ F G D P P < , : P * ; G+ , < , D"` 20J l` R m` zR nc_<F
o` 20J s` R t` > 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 ,~ h Oh *"P # ` h X Q +X S $ X V X D"` 20J ` R ` 20J ` R ` 20J ` R ` }hB@ )` }hB@ ,` }hB@ 0 *@ 4 I Z @ ( P Q Z ( < $ X M Z @ ( X ( E t X @ @#@!L@ @D @t"@$@'@|)@$,@4/@T0@l3@|6@9@L<@l>@|A@ ,C @( G [ X ^ X Z t ( O $ P X t X q X * X f t $ X D"` }hB@ 3` }hB@ >` }hB@ C` }hB@ F` }hB@ I` }hB@ L` }hB@ Q` }hB@ T` }hB@ W @( \ t X w X | d $ X t X } ( H mX X X @ u $ @ @ TF@
I@
$L@
4O@ DQ@
T@
W@
,Z@<^@Ta@d@Lf@|i@
l@4m@Lp@$s T w X $ K $ $ $ O P ( $ X D"` }hB@ [` }hB@ ^` }hB@ a` }hB@ f` }hB@ i` }hB@ m` }hB@ p` }hB@ s` }hB@ x @* ! X q $ X (
t P $ X % X ' ( X ( X @ t X * X 0 %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 &Q8 oi ` }hBPoi %\j ` }hBP %\j
D
Zo %[4 &' &, g ? ` }hBP g ? O +E3
%jI ` }hBP %jI
- / %jL ` }hBP %jL , -X2 %j7 D"
~7
P8 0K :P7 P7 .? P6 ! @P6 P5 /85 ` }hBP /85 y/ P5 P4 %p HN D" {m )t* PL G HPK Hl l Q qG Q 9# f
s ) a q 9 a D" K Z
_ iY ' W ^ 8{ ` 7 W S {a D" q Z VA
8g ~ # T ? i1 % ] ^ j $ 8S D" Q {9 I P 8? " { W i {% Qa | D" 3S $ g V b hA ] { } 3? ' S O ha { z} D" o z~{u L 3+ < ? L zi }! [ [ 5 3 7 S I D" ca u Q w 3 { ? F |y M 2o x + C |e J 2[ v D" A |Q I 2G s > c q PA s 23 o E 2 p D" [ ?
D" 4 uq vY Z zS ,O
3 tA D p z? D" ,; f w 9 @ ,' c ' ? } ' $ D" ?C & d ] V ?/ &k x pa . D" ? &W w t ? &C a
& l D" A t 9 %s l
& ( ( ( B Q- 0 Q- @ 5 A , @ h "Q C3 \ p @ p @ #p B p B .$ / &$ D 4D 1d
D" + < , : . F: . F" ( / $ . / "(T . D 4D 7F + : . H : . F < , & *P
E . F Ap ,~ h h D"Q- d]3: d]3: (x %hD &' O
+E3 D"ZS 0K )t* qG + o
[ D G u 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 & D 5D 6F + (*
0F + $ D .d . F 1D + " $ .D "P &$ D + Ap ,~ D"
]3: k[+ 051 w %vS y/ )t*
D" qG o [ G q
5 @ ~ @
@ ( ( (Uj 0 (Uj @ }hB 3G & 9 0 0 X @ (10A1) (I) "P* O&h9 \ p @ #p B p B p D @d < , D ZD T < , : ; + , 3$ + 2d +
< , < , A*E 1$ + 2& + Od + @d F #*d @d : 0d + D" (Uj ` zR c_<F
` R f3G@ 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
/83 g ? ` }hBP g ? %jI ` }hBP %jI %jL ` }hBP %jL %j7 f3GP %j70K P5 /85 ` }hBP /85P5 @ P4 %p
Kg $f3GP
Kg %i ` }hBP %i
&Wj &AQ ` }hBP &AQol ` }hBPol qG
s 3
0 S ? . D" + + o [ ( zU 3 zA
@D &@\ (@ \ +@
.@l 0@| 3@l 4@| 8 ( ( :
(TG" 0 (TG" @ }hB 3G & "D" - . * / ? " + ; "D ALL HELP EMPTY STOP 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'/) "
A O%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 -+ D 2$ *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 #*d 4 . < , < , . < :, 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` 20J H " J6$ + 3< , < , , < K, "& $ $ $3D + *2D .+ > (T(T* R8& P+ @d D " c$ F
I` }hB@ J` }K K` 20J L` R M` }K Nf3G@ Pf3G@ Vf3G@ a c < , + < ,
. < , 6$ + < M, < , , " *P*Q k.D
+
0F + 2D 3D + S7d + a $3$ *+ $ D"` 20J bc_<F
c` 20J ec_<F
g` }hB@ g` }K i` 20J j` R jf3G@ q * *T( s2d )+ r < , < , + g:
2d + L: . @f
. < , U"T { < , ,ZD
. '3H + d*d }6b 0b + + 4 4 ( @d @ @t @T @L @ "@ #@t ,@T A@
H@ L@ N@
S@ \ b@
D g@ l@, *"U* , . F #*d
.
+F7 2D 3D + o: ;
4$ H4D & /
$ F D .$ D "& /
. *U U( D . . '3H+ : 8&: ; + + G < , * . < , 6$ + < h, D"f3G@ r` 20J tc_<F
u` > {c_<F
|f3G@ ` 20J c_<F
` }hB@
* " < , , < , < , 3D *+ . D . F (Q(@ *+ $ . D "& /
. .
' J' .
' J'.$ (T* ( 38&."$ .D
+ 2D ,+ +
< , , 6$ + <!, D"` }K !` 20J "` R #` zR $c_<F
%f3G@ 5` 20J 8` R 8` }hB@ 9 * @ ; '
Ap ,~ h . X P 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 @ l 5 $ X : X ( t < @ $ P @ } $ X @ @tN@R@$S@4W@$Y@4]@ _@ b@ Dd@
$g@
4j@
Lk@
ln@Ds@Tv@,x@<| @( B $ $ $ X J X A S $ $ X T S D"` }hB@ k` }hB@ p` }hB@ sf3G@ wf3G@ }` }hB@ ~` }hB@ ` }hB@ ` }hB@
zM ` }hBP zM %\j ` }hBP %\j
/83 M " g ? ` }hBP g ? +E3 w %V' &/ ` }hBP &/ %j7 f3GP %j7 " xj ` }hBP xj &H
P8 zU ` }hBP zU0K 'P7 D P7 P6 P6 P5 /85 ` }hBP /85P5 P4 %oG D"
N7
PL
PK PK PJ
PJ
Kg $f3GP
KgPI PI PH zV ` }hBP zV w05 w04 D"
ZW %|_
Bg qG _ p
s a
K i D"
_ 7 n S ! # k ? ] j + > D" I { g
5 v g \ @ ! l S [ o D" ? Y [ a : S Z G ; ? V 3 = + V e g D" P Q d 2G
O = b 23 7 o d ) ^ 2 . D" [ b
-3
G N - 3 ] H - D" Y J D"
u
'
D" ' 3 ,
a & M ("'! &k I D" ! / &W } G 0 3 & &C }
@|
( ( / (TJ 0 (TJ @ }hB 3G & " $ CS E H 9 0 ALL - * L A , X M 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$'//) "A O%Lz \ B p @ p @ !p @ !p @ < , 0D + < , "
2D D+ 2D D+ 2D G+ 3D J+ 2D C+ 2D H ( + D" (TJ ` lZ ` }K f3G@ f3G@
f3G@ f3G@ *
2D I+ 3D D+ @d $ D @d "& $ $ $ D 2D J+ > *T*E 8& + @d I J F #*d @d : 3d + J F
7` + + "U
P* # D
3D J+ 2D H3D F+ 2D 3D + &: 1f D #+ 7d + $ ( +3d E+ $2d E+ , &2D J+ "& $ # D"f3G@ f3G@ f3G@ f3G@ f3G@ #f3G@ )f3G@ +f3G@ ,f3G@ . Q 1 H $/$ 8& 0 J D $+ . < , < , < , < , 0$ 2d 9+ + < , < , 6$ D"f3G@ 0f3G@ 1f3G@ 3` > 4c_<F
5` v 6c_<F
7` 20J ;c_<F
< " * =+ < ,
3D F+ 6b 0b + + 4 4 $ D : . "T*E* E F+ : . F
3& 3D + 2D + .D
2D (PT N3D + 2D H+ < , < , + . . .$ D
"& / *P"P V.
: . D'.$ 8& W $ D + H J @ @ t @L @, @ @| "@| *@$ +@t 4@ :@$ >@ A@| C@ C@$ F@ , L@ L@T P@, R ((E" \ D < , < , 2F F3F G+ " $ D . 2D + *T d D + >: 8& b < , < , 6$ + P < =, D"` }hB@ <` }K >` zR Pc_<F
Q` > ]c_<F
^` 20J gc_<F
h` }hB@ i (*@
k" $ . D'.$ 8& l D + O < , , 6$ + < j, * @ s B Ap ,~ h K P
D | @ $ P
@ $ D"` }K j` 20J p` R q` }hB@ q` }K sf3G@ wf3G@ }` }hB@ ` }hB@
@ $ X @ @\ [@
D f@
k@d p@, v@ T w@D y@T |@d @t@,@<@
@
@ L@ \ A $ X & D f3G@
f3G@ ` }hB@ ` }hB@ zM ` }hBP zM %\j ` }hBP %\j
@
/83 g ? ` }hBP g ? w +E3 h%- %V' &/ @ ` }hBP &/ &?; %j7 f3GP %j7 xj ` }hBP xj h {y}
" zU ` }hBP zU0K BP7 P6 P6 P5 /85 ` }hBP /85 D P5 P4 /~
Kg $f3GP
Kg %i ` }hBP %i
zV D"` }hBP zV
w04
%i? qG
_
s K l D"
s X " 7 S q R # ? ] P D" w b + S W G s o P ) [ K G L 3 A C D" 3 C >u >a p w :
u
' y 0 . ! + D"
t@ ( ( K z 0 z @
)z2
D8+ + "D" r( r+ s- s/ t* t u) u. v= "D" v& 5 5 0 6 P 6 X 7 p 7 t 8 x 8 | "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 2SETRA 3N w w "D" x x y y z z { { | "D" | } } ~ ~ " 7~ 8 4 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) "
P Gd0 \ V p @ q p @ U p @ X@d q@f # F X < , < , F 9 F *"T F 6 F 5!( H : F 4 D 7 F $ D 4 F F 8: 60d (+ 3F t+ (UQ " 8 $ D : 6 : q3H+ : :8& 6 3& Y+ 2f Y+ "T Q( $ . 8 D :+ 6 3& [+ 2f Z+ $ . 8 D : 50D + (P " :0D 2d 8+ ! < , D" z ` zR c_<F
bD8+@ bD8+@ bD8+@ bD8+@ bD8+@ bD8+@ (T
E" %" 4 $ F W D T T < , : T; W+ ' $ . 4 D 5 5/& 5 F V (
" - D T < , : T; V+ ., @d 4 :1F + < , @ 4@ 1F (D(P* 62D + F 7 & F 5+ # $ D 9 D X ( *@d 5+ 60d ( *
P >+ 6b :0b + + 4 4 4 A4 B4 B4 4 4 4 4 4 4 ( G+ < , < , D"` > $c_<F
(c_<F
.` R 0d(IYg 3b)z2@ 7bD8+@ ;bD8+@ <` zR H *D*Q* I@d 6+ 6D 5+ : & F :+ 6D 5+ K: & F :+ 6D 5+ N (
D* R :0D + :1D + 1D + E: 6 * J : ( . : H + (E"T* Z 0F + U & F + : & F : : F + $ D 5+ 50d (
* c+ F1D + & F 5 6 A [& Z!& 7 5 F 7+ \ d : 6 "U k A [& Z 5D 7+ : 41d + & F 4 4 6 F $ D 5 *(T* t+ 50d + @d 5: # 7 F!& F :@f 7: ( H : D + = V @ @ @4 @, :@ =@
@@ G@\ G@ J@D M@4 P@
L Z@
4 ]@L `@d b@
D j@
4 n@
t (P"P* | $ 3$ 4 D 4 < , " 4 $ F V D 4 4< , : 4; V+ , **( @d 4" 4 $ D 4 4( "3H 2J 7 + : 48&+ [: & F : "T @
IbD8+@ fbD8+@ kbD8+@ r` > c_<F
` R ` 20J ` R Q , $ D X+ $ D X+ < , < , $ D X+ < , < PQ( , $ D X+ < , , $ D X+ 50d + $5D t: ( H : "E % (
H " $ H T D 66b :0b + + 4 )4 4 4 : & F "Q" -+ D 6"& .F 1D + -0d + 8 X F 7"& .F 8 6 "
U( 61D + < , + .7D + 6 v2h v+ 9 F 6"( .H U
>0f + 8 X D 7"$ .D 8 61D + < , D"` 20J ` R ` 20J c_<F
` 20J c_<F
` 20J ` R ` og 7 *T*U* E+ 8: 6 H0h + 1: 8:
#
q L( J X+ H 6 D q *E
@* M: 6; T+ ( $ 3$ + $ 3$ 8+ 7D 9+ < , @ 4` q "@ " V F + !6D U+ < , < , < , @ 4` q F V q " ^ Ap X Ap ,~ X \ @ @\ |@$
@<@L@l@l!@ )@$,@,.@$5@48@tB@DE@<K@4M@,W@|Z@l] *P*E" a X W X XX * X W X Xh 6 7 qh 6 7 ("D j qX ( 3X 7 : @ ( D"` og Dc^\?~ Sb)z2@ V` 20J Xc_<F
Yc^\?~ Zb)z2@ ]bD8+@ dbD8+@ k A r P ; ( $ $ t X 7 " { : @ ( P = $ A X > X B X (
G $ $ 0 ( X @ @$a@4d@Dg@ti@4k@ \n@ lq@Ds@|w@dx@|z@
}@l@$@@4@|
@
@ M 0 * X Q X ( U ( q D"bD8+@ rbD8+@ vbD8+@ ~bD8+@ bD8+@ 0#
a
" &' b)z2P &' )|G 8+P n +E3 b)z2P +E3 /S b)z2P /S
e # hx # /E 3 p 4 D" h 4 5 X
: {I ;D+& (bD8+PD+&0K V . T D"P7 T .? UP6 UP6 VP5 VP5 WP4 W %p X 9 X @ HN q r5' *bD8+U5' bD8+P w)TS %i D" *
9 qG 9 _ d
s a M D"
}
: K R
_ m M
i = 7 g S D" Y
U | q 9 # i ? q E G
A t ) + n D" {9 j 1 { ( i B D {% n g ' ] D" U E } Z { b S A 8 u B i ] z} ` D" ? [ zi P S zU M A J G / ?
@ o [ '= < G D" U c z %a O @ K ; G ) 5 ' 7
a D" k . x !M G .
@ p @4@D@l@@ ( ( ^ og 0 og @ @ 8 "
KZp @ p @ p @ 6b 0b
+ + 4 4 4 4 4 " 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 U*U 4 4 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 + 2D d D + 4 < , @ + 6D D < "PD" :, @d Ap ,~ x x x x x x (D" B x x x x x x x @ @| 1@ 3@
4@ 6@ 8@ ;@ =@l >@ ?@t @@T A@4 B@ C@t D@T E@4 F@ G@t H " Jx p D"b f )`K +` ~Z -`vv /`|R 1` 0h 7eMPlh :0K HN D" za qG
s E
m F S G ? H + I J D" K o [ G ; Q 8 = 6 ) 4 3 1 D" / -
u D"
a U A = K ( ( L MPv 0 MPv @
)z2 @ @ @@ g&=bp @@ b$ @D bD @ /$ G$ D " . ,F F b @F D"b)z2P &' 9: b)z2P9: +E3 b)z2P +E3 /S b)z2P /S " x9: b)z2P x9: 0@F qG [ G ( ( (IYg 0 (IYg @
)z2 @ x "T" Y> h6 J H F D p p @ p @ p @ p @ D (P @f 3D + F 4f . 2F + 7$ .$ (.$ D ( *@ 3H 2J + H
J
J
D"
(IYg b)z2@ b)z2@ b)z2@
b)z2@
b)z2@ b)z2@ b)z2@ b)z2@ (
J 0h + .$ D 1( + 7$ .$ (.$ D + $ . .d 3$ *QE* +
+ Od Ap Ap Ap Ap
,~ D b)z2@ b)z2@ 0# &' b)z2P &' )|G 9: b)z2P9: +E3 "b)z2P +E3 /S b)z2P /S /E 07 06 06 05 x9: D"b)z2P x9:(IYg 0@F
h3 * D" o [ G zA
tA U 2a @ | @| @$ @T @L @ @| ( ( ' ^\?~ 0 ^\?~ @
)z2 @ ( "U(D" S: LY \ N
L J H F D p p D p F p H p (@* J , L 0$ + , L $ $ .( G( H < , @ 4
" 0 N .( 2h + .( H H0
.
H0 7( .( (.( H " (
D" ^\?~ ` m3 b)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# &' D b)z2P &'
/E 07 07 06 06 05 x9: b)z2P x9: D"0K
h3 *+ y ^\?~ $ 0 o
[ G * i * U ) 2a * @ @,
@$ $@ )@4 *@
*@ *@l 0 ( ( 1
m3 0 m3 @
)z2 @ ( "U( SY \ J H F D p 4@ < , @ 4 4@ 0d + "
"& .f 1$ + ( /& )F ) H .& . 3F + & / *P . . . H .$ 8& "$ / .d " . D" m3 d(IYg b)z2@
,~ X D"b)z2@ b)z2@ b)z2@ b)z2@ b)z2@ b)z2@ b)z2@ b)z2@ b)z2@ @ q 0# &' b)z2P &' )|G
h3 * qG D" a +
o & [ G ! zA tU ! D tA U ! 2a @ @ @$
@| @ l @ d !@
!@ L & ( ( )
vA9 0 vA9 @
)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 F 4f . 2F + " H
J
J
L 7 .$ (.$ D 0( +
., ( L 0H + < , D"vA9 b)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"` 20J c_<F
c_<F
` R ` 20J c_<F
c_<F
#` R %` 20J ) * +" $ $ F D . ( < , : ; + ., $ . .d " ( 43$ + + < , , + 5 < , < , D Ap ,~ <X 0 $ D"c_<F
+c_<F
0` R 2b)z2@ 4` 20J 6` R 6` 20J 8c_<F
9b)z2@ @ B X
0 ( X ( J
0 0 X X " S $ D" b)z2@ Ab)z2@ Fb)z2@ Gb)z2@ Lb)z2@ M 0# (I+ &' b)z2P &' )|G 9: b)z2P9: +E3 b)z2P +E3 /S b)z2P /S /E
" x9: b)z2P x9:0K P5 P5 P4 %p 0@F *
s A
_ S ? @ D" + = i
: A & [ 0 zi G # 3 D" zA tA 2 O U ; R i )
' O U 7 M D" . -
A@D C@d F@, G@
I@, L@| M@\ O@| R@
U ( ( V