Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0137/aplib.rel
There is 1 other file named aplib.rel in the archive. Click here to see a list.
0 @ " ,[ ] oDTA0 S INPUT. DSK OUTAAE A.AAAH N OUTPTTTY F I xL / A DTA9 .DAT [ : X CDR ` M P LPT DSK @ 0 1(' 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 BO FIND THE INPUT DATA. IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH KOR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE S:'//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 dX,'CDR:',6X,'CARD READER (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X, m'DTA#:',5X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X,'MTA#:',5X,' uMAGTAPE 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 1N, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///) (' EXAMPLES: 9 DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE: THE BFOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1) SAME COMMAND. IF THE J DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENT SER "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 dTO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3) l A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///) u('-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 0ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO OUTPUT DEVICE 9IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) I AF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME J IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. RA 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 cE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'///' EXAMPLES: LPT:/2'/14X,'RPT.DA lT'/14X,'DTA0:NAME.DAT'///) "D( S< \ o p @ p @ p @ / p @ p @ p @ 6D + < " , , $ 2D + < , , < , < , 2F w+ 2F w *U*U( + 2F u+ 2F w+ 2F p+ 2F u+ 3F ~+ (U*U* 2F p+ 2F y+ 2F }+ 2F t+ 2F ~+ 2F ~+ **U* " 3F ~+ 2F u+ 2F t+ $ 2F x+ & 2F }+ ' 2F ~ *U( *+ ) 2F ~+ * 2F ~+ ,. 6b 0b + + 4 4 < , $ (U* 32D + $ A 0D + 3 < , @d @d
D
D 1 D D D * ~ F *T
" ; F F D D /: 0d + 2F q+ & F / 3F {+ 3F z "D(E
D+ 3F x+ + = $ . D
"& . $ H /$ 8& I | "Q"D( L.& ~ H *d L $ .D + = $ . D 1"& . $
H /$ 8& S "Q
U U"& ~ H .$ 8& V $ .D + = D + =7D 1+ < , D" ` 20J ` R ` 20J ` R
` zR
e5 KJ 2e
hf 6 "E* ].$ D 0" 1/& . 0 0 F .
D ." ..
. D 0 0 2D ~+ > 08& k "TE* n $ D 0 0 q F < , $ .
D -"& /
. - - F
D 0 0 T v < , : 0;
+ v, 7D
+ < , {_D ZD 0 0 < , D"` > \c_<F
b` R d` v ec_<F
f` > qc_<F
w` @R y` > { *D Q* ~: 0; + }, 7D + < , .$ D +" /& . + + F , D 0 0 T " < , : 0; ,+ , < , < , ~2D + 3D + r F * +
@t @ #@ 0@\ 1@| 1@\ 7@ A@, F@D P@\ Y@l [@ < f@
t p@$ @
T"D
1D + v D + $ A 5D | D $ A 0D + ~ D < "D(E( , 3D r+ 3D ~+ 3d y3$ o+ + + s D t D $ D * ! D + < , < , D"c_<F
~` R ` > c_<F
` R ` v
c_<F
b_9 b_9 # (*T $ 1D + $ .D + # D - D . 2D ~+ $ A 5D q (A* - D $ A 0D + v D z D $ A 1D + < , 7D + 3 5 < , , " 0D + < , + < , + 0D + < , ( > 0D + < , <8, < , D"c!h $c!h 4` 20J 6` R 6` }K 9b_
G :e5 KJ =e
hf @` }K A ( B+ ; < , , < , < , < , $ . 6b 0b + 1+ @ @d@@D@t@,@< @\'@\)@D-@t0@,1@9@T:@
;@L>@t@@4A@
C *(D J4 4 < , , + F o Ap Ap / Ap ,~ x (UU( S /` - s r
*X *Q(Q" [ *h p p ` - s * d r M@TM@
R@lS@|T@TV@$W@<[@<^@,`@
a@dc@ e@f@4i@Ll " D p P 9 $ P (E " x : $ $ * P 9 $ " P 9 $ P 9 " D $ P ; $
u@
Lw@
\z@
|@l @,@\@ @t
@$ @4@\@ @4@L@\ @ u z D"`@\: B` 20J C` R D` 20J Ec_<F
Fe5 KJ G` 20J L` R L {h3 D" {/ zM
F~
g ? zv &.\ gd
D"qp:
y P8 0K oP7
P7
R!b
6 D"P6 P5 P5 P4 9
Ix3
F| * D" , 9 ,w05 - g -w05 . y /0? / D"w04 0 0 &> 1 qG 1 9# S z
s i 9 K w D"
_
8{ 7 u S f q o 8g # a ? ] k D" 8S ` + I p 8? T { r M {% # 5 f D" 3S @ g V R { ! \ 3? V S S o 3+ > D" ? L zi ) ! [ ~ 3 W S I zU G w
2G 0 e = Y 23 - o 0 b} F ) V D" 2 ^ [ 1 bi 8 S -3 ` G & bU > I - M D" 3 ( bA C - a ) ,w 3 + ,c , tU ; D" ,O .
c Q D" ' '
u 7
a 9 & " D" &k } # 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 TX @ }hB "D" I,' P F/) ( AR SP SATIO AORDE M S TX,I4 D) ( " H HOW ECARD LOBSE O :. OK? (R N ,D YES F &OA ',$/ (,3) (X STAR f3)M BEh NG')(' SPE A @ N L Q('TFORMAT') ('FORMAT:E(',A1,' -'TYPE ONLY)') ('NTYPEE"HELP"BFORIEXPLANATION',/) R Z(80A1) (' ERROR7INCFORMAT,OTRYOAGAIN.',/) (' THERE"ARE FOURyMETHODS!OF FORMATENTR # bY:',/,' 1 -pSTANDARDFORMAT',/,' 2 - FORTRAN OBJECT-TIME',/,' 3 -dUSE SAME@FORMAT AS D kPREVIOUSLY',/,'4 -0DIALOGUE',//,',WHICH METHOD?(1,2,3 OR 4)f',$)(' HOW MANY FIELDS?, f s',$) (I) (' RESPONSE ERROR',/) ('ENTER TYPES*OFEFIELDS(A,FPOR I)Z10 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 @ ~ @
@ ( ( W 8 0 W 8 @ @ " KbND \ < , ,~ x D" W 8 ` }K 0K qG o [ G @ ` @ ( ( HUgJ 0 HUgJ @ dd"P 4dd @ "P
G"N<9 \ p @ p B p D p D @d 3$ 0` 2+ 2b + @f @ 0b 1b + 0 + 6b 0b + + 4
4 4 < , @ < , *A(@ 7$ + D $} D + D D < , !$} $ D + A(A" < , @ < , 7$ + F F < , " F T "&} F + 7$ .$ ( D " ( " 3D + < , @ < "P(P *, 7$ + F &} F F F < , D"
HUgJ `aj ` wL ` ~Z `aj ` wL ` ~Z `aj )` wL * " 1 !( H F !$ D + D D < , !$ D " "E
9& F @f !( H F & / $ !( h H
j J .$ *Q
D B8& >" D !$ D + Od Ap Ap ,~ x x (QQ J p x x p x x p @ @L
@T @\ @d @, $@ 5@L <@< D@< E@T F@l I@ J@$ K@
M@l N@4 O@ P@d Q (@ S x D"` ~Z 0` ~Z 7
D"P4 %p qG
s N
_ O S P D" ? Q + R T
o [ G F < 5 ( wL 0 wL @ "D" &E < ^ vz O!
n-d
[u; "h0 "D" Mvm
fH,
se" QR o2 z2 "D ~ < l { ~ 0 x@ y~j @ ( (' ?ERROR IN SUBROUTINE CUNO',/) "* GVup \ p @ p @ # D 3d + !$ D + D D .$ ( U
D /$ d D D " 4& 5f D + !$} 2$ + (U(* : !$ D D " ( (v H !(@ (U (rp ( H !&t &4 F &} &p F !&lL *U*Q* " F $4 D F PT
* < , @ < , 4 D 6 + !$ D + *@
D 3 D + 2 < , , !$} D Ap Ap ,~ x x ( ; X D" wL ` ~Z +`aj -` 20J 5` R 5
D" 0K D" qG + < ; : o [ 7 D"
u
a 4 U 3 A 1 - 0 q ]
@l 0@
3@D 4@D 7@, :@L ;@L < ( ( ? 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 ( ( ;pS 0 ;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
@$@< ( ( ` 0 ` @ e < y 2DSK STUDR.DAT @ "D gS,L@ \ p @ p @ p B p D p F 0@ 1@ + + 1" + 0$ 0d 2+ 2@ + 3B + $ 3D + D < , < , < , < , < , D"` `e @
`e @ `e @ b
G ` 8B c_<F
@ < , $ <2d D $ <$ . D g < , < , 0d <+ *E(" g D + 5 F 0F + F " g &p F j "Q( $ F D D @d + $ D + ( $ D + * $ D *
U
- Ap Ap ,~ P
p P @ 5 @ 2 5 P ( > @ 2 P g @ 2 @ @ t @4
@\ @D @< @
"@\ &@ | )@
*@$ ,@< -@| 0@l 4@
5@ 9@, ;@< ?@
A " E h D"` 8B c_<F
` 8B c_<F
`e @ &`e @ ' y xH "`e P xH &' `e P &' y 1 qp: ) 0K D" ) 5 zG g h Ig %h
`e P %h
qG D"
s ?
_ ; S 9 ? 5 2! & + 0 4 ,
D" * o u ) [ G - e ,
8A - D A G ! i 3 0 i 3 @ "D" \ p "D"
"D"
"D" < _ _ ` ` a a b "D" b c c d d e e f f "D" g g h
h i
i j k "D" k l l m m n n # o ( o - p 2 r {P {P # $DSK DUNCAN.DAT @ "D IVt87 \ q p @ \ p @ p B p D ^ p F 0@ 1@ + + 1" A + 0$ 0d 2+ @f 0@ + & F 3B + & 3F p+ F p < , (Q < , "&
$
D ] ] 3d + > ]8& $ . ] D ] < , s *A(U _D ZD < , : ; + , @d ] 3F + & # F .$ ( T " D q < , t_D ZD < , : ; + %, "& $ D **A( * ^3d ^+ > 8& * D @f ^ ^3H ^+ .$ D 3D + *
U* 3
^/
^j " ^. ^h H ^. . ^ H **U ;.
.
.
0
(
^
( L F ^
] 2D 1* <+ (( Dj $p D ^
] 2D 0* <+ ] ]
/
l /
U*U Lj
J ^" ^ D \ ^ D D @d + $ D $ ** U D + S $ D q \ Ap Ap ,~ P t u v
r
s "@ D ]p u tP ] ( @ @ t @<
T@$ V@
\ W@ Z@ ^@ _ @ c P q ( D"
i 3 b_9 b_
G ` 8B c_<F
` R ` 8B #c_<F
&` R ( D" y ?
y ?
%h D" W qp: 0K qP6 P5 z- P5 D"P4 x= \ Ig \ } ] ] ^ Pb ^ _ D" |9 p qG q
s
Z S ^ ?
V D" T o W u S G & 3 , I D" N w D c F O 7 ; 1 ' * M - ) 9 * D" h % ( %