Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - 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 [    :    XCDR  `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	+ <,, <, <, 2Fw+ 2Fw	*U*U(+ 2Fu+ 2Fw+ 2Fp+ 2Fu+ 3F~+ 	(U*U*2Fp+ 2Fy+ 2F}+ 2Ft+ 2F~+ 2F~+ 	**U*" 3F~+ 2Fu+ 2Ft+$ 2Fx+& 2F}+' 2F~	*U(*+) 2F~+* 2F~+,.	6b0b++44 <, $	(U*32D	+ $A	0D+3 <,@d	@d
 D
 D1 D D D* ~ F	*T
"; F F D D/:0d+ 2Fq+ & F/ 3F{+ 3Fz	"D(E
D+ 3Fx++= $. D
"&. $  H/$8&I | 	"Q"D(L.& ~ H*dL $.D+= $. D1"&. $ 
 H/$8&S"Q
UU"&  ~ H.$8&V $.D+=  D+=7D1+ <,	D"`20J` R	`20J` R
`zR
e5KJ2e
hf6	"E*].$D0"1/&.00F.
 D."..
 . D0 0 2D~+>08&k	"TE*n $ D0 0 q F <, $.
 D-"&/
.- - F
 D0 0 T  v <,:0; 
+v,7D
+ <, {_DZD0 0 <,	D"`>\c_<F
b` Rd`vec_<F
f`>qc_<F
w`@Ry`>{	*DQ*~:0; +},7D+ <,.$ D+"/&.+ + F, D0 0	 T" <,:0; ,+, <, <, ~2D+3D+ r F*+
@t@#@0@\1@|1@\7@A@,F@DP@\Y@l[@<f@
tp@$@
	 T"D
1D+ v D+ $A	5D | D $A	0D+ ~ D <	"D(E(, 3Dr+3D~+3dy3$o+++ s D t D $ D	*!  D+ <, <,	D"c_<F
~` R`>c_<F
` R	`v
c_<F
b_9b_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!h4`20J6` R6`}K9b_
G:e5KJ=e
hf@`}KA(B+; <,, <, <, <, $.	6b0b+1+@	@d@@D@t@,@<@\'@\)@D-@t0@,1@9@T:@
;@L>@t@@4A@
C	*(DJ44	<,,+F o  Ap  Ap / Ap,~x	(UU(S/`-sr
*X	*Q(Q"[*hpp`-s	*drM@TM@
R@lS@|T@TV@$W@<[@<^@,`@
a@dc@e@f@4i@Ll	"DpP9$P	(E"x:$$*P9$	 "P9$P9	"D	$P;$
u@
Lw@
\z@
|@l@,@\@@t
@$@4@\@@4@L@\ @uz	D"`@\:B`20JC` RD`20JEc_<F
Fe5KJG`20JL` RL{h3	D"{/zM
F~
g?zv	&.\	gd
	D"qp:
yP80KoP7
P7
R!b
6	D"P6P5P5P49
Ix3
F|*	D",9,w05-g-w05.y/0?/	D"w040	0&>1	qG19#S z
si9 Kw	D"
_
8{7uSfqo8g#a?	]k	D"8S`+Ip8?T{rM{%#5f	D"3S@gVR{!\3?VSSo3+>	D"?Lzi)![~3WSIzUGw
2G0e=Y23-o0b}F)V	D"2^[1bi8S-3`G&bU>I-M	D"3(bAC-a),w3+,c,tU;	D",O.
cQ	D"'' 
 u7
a9&"	D"&k}#zZ@}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;-9TX@}hB	"D"I,' PF/)(AR SPSATIOAORDEMSTX,I4D)("H HOWECARDLOBSEO:. OK?(R N,D	 YESF&OA ',$/(,3)(X STARf3)M BEhNG')(' SPEA@N	LQ('TFORMAT')('FORMAT:E(',A1,'-'TYPE ONLY)')('NTYPEE"HELP"BFORIEXPLANATION',/)	RZ(80A1)('ERROR7INCFORMAT,OTRYOAGAIN.',/)('THERE"AREFOURyMETHODS!OFFORMATENTR	#bY:',/,'1 -pSTANDARDFORMAT',/,'2 -FORTRANOBJECT-TIME',/,'3-dUSE SAME@FORMATAS 	DkPREVIOUSLY',/,'4-0DIALOGUE',//,',WHICHMETHOD?(1,2,3OR4)f',$)('HOWMANYFIELDS?,	fs',$)(I)('RESPONSEERROR',/)('ENTERTYPES*OFEFIELDS(A,FPORI)Z10PERLINE',/)	|(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@~@
@((	 	W80	W8@  @"KbND \ <, ,~xD"	W8`}K0K	qGo[G@`@(( HUgJ0HUgJ@  dd"P 4dd @	"P
G"N<9 \ p @ p B p D p D@d3$0`2+2b+@f	 @0b1b+0 +6b0b++4
44 <, @ <,	*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 &/ $!(hH 

jJ.$	*Q
DB8&>"D!$D+Od   Ap  Ap,~xx	(QQJpxxpxxp@	@L
@T@\@d@,$@5@L<@<D@<E@TF@lI@J@$K@
M@lN@4O@P@dQ(@Sx	D"`~Z0`~Z7
	D"P4%p		qG
sN
_OSP	D"?Q+RT
o[GF<5(wL0wL@	"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 @# D3d+!$ D+ DD.$	( U
 D/$dD 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  D6 +!$ D+	*@
D3  D+2 <,,!$} D   Ap  Ap,~xx(;X	D"wL`~Z+`aj-`20J5` R5
	D"	0K	D"		qG+<;:o[7	D"
u
a4U3A1-0q]
@l0@
3@D4@D7@,:@L;@L<((? 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((	 ;pS0;pS@ 
]"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
@$@<(( `0`@e <y2DSK  STUDR.DAT  @	"DgS,L@ \ p @ p @ p B p D p F0@1@++1"	 +0$0d2+2@+3B+ $3D+ D <, <, < , <, <,	D"``e@
`e@`e@b
G`8Bc_<F
	 
@ <, $<2d  D $<$. Dg <, <, 0d<+	*E("  g D+  5 F 0F+  F"g&p Fj	"Q($ F  D  D@d+ $ D+( $ D+* $ D	*
U
-   Ap  Ap,~P 

pP	 @5@25P(>@2Pg@2@	@t@4
@\@D@<@
"@\&@|)@
*@$,@<-@|0@l4@
5@9@,;@<?@
A"Eh	D"`8Bc_<F
`8Bc_<F
`e@&`e@'yxH	"`ePxH&'`eP&'y1qp:)0K	D")5zGghIg%h
`eP%h
	qG	D"
s?
_;S9?52!&+04,
	D"	*ou)[G-e,
8A-DAG! i30i3@	"D"\p	"D"		

	"D"
	
	

	"D"<__``aab	"D"bccddeeff	"D"g	g	h
hi
ijk	"D"kllmmnn#o(o- p2 r{P{P#$DSK  DUNCAN.DAT @	"DIVt87 \q p @\ p @ p B p D^ p F0@1@++1"	 A+0$0d2+@f0@+ & F3B+ &3Fp+ Fp <,	 (Q  <,"&
 $
 D] ] 3d+>]8& $.] D] <, s	*A(U_DZD  <,:; +,@d ] 3F+ &# F.$	( T" Dq <, t_DZD  <,:; +%,"& $ D 	**A(* ^3d^+>8&*  D@f^ ^3H^+.$ D 3D+ 	*
U*3 
 ^/
^j"^.^h H^. .  ^ H 	**U ;. 
.
 
.
 
0
(
^
( L F^ 
 ] 2D1*<+	 ((Dj $p D^ 
 ] 2D0*<+ ] ] 
/
l/
	 U*ULj
 J^"^ D\ ^ D  D@d+ $ D $	**U D+S $ D q \ Ap  Ap,~Ptuv
r
s"@D]putP](@	@t@<
T@$V@
\W@Z@^@_ @cPq(	D"
i3b_9b_
G`8Bc_<F
` R`8B#c_<F
&` R(	D"y?
y?
%h	D"Wqp:0KqP6P5z-P5	D"P4x=\Ig\}]	]^ Pb^ _	D"|9p	qGq
s
ZS^?
V	D"	ToWuSG&3,I	D"NwDcFO7;1'* M-) 9*	D"h %(%