Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50521/bank1.chn
There is 1 other file named bank1.chn in the archive. Click here to see a list.
@[    ]    A    I    F    G    E    (    )    D    O    INPUT.DAT (' CREATING A NEW BANK TO BE NAMED - ',A10)('0INPUT? ',$)('0THIS ANSWER DEFINES WHERE THE INPUT DATA IS TO BE FOUND.'/'IT USUALLY CONSISTS OF A DEVICE, A FILENAME AND EXTENSION,'/' AND POSSIBLY A PROJECT PROGRAMMER NUMBER. POSSIBLE DEVICES ARE:'/'     TTY: - TELETYPE'/'     DSK: - DISK'/'     CDR: - CARD READER'/'     DTA#: - DECTAPE (MUST BE MOUNTED ALREADY'/'     MTA#: - MAGTAPE (MUST BE MOUNTED AND POSITIONED)'/'0DEFALUTS:'/'   IF NO INPUT DEVICE IS SPECIFIED, BUT A FILE NAME IS GIVEN,'/'   THE DISK WILL BE USED AS THE DEVICE.'/'0  IF A DEVICE REQUIREING A FILE NAME IS GIVEN BUT NO FILE'/'   NAME IS INDICATED, INPUT.DAT WILL BE ASSUMED.'/'0  IF NO RESPONSE IS GIVEN TTY: WILL BE USED.'/'0  IF DSK: IS SPECIFIED WITHOUT A PROJECT-PROGRAMMER NUMBER'/'   THE USERS PROJECT PROGRAMMER NUMBER WILL BE ASSUMED.'/'0EXAMPLES:'/'     TTY:'/'     DSK:DATA.DAT'/)(' A COLON MUST FOLLOW THE DEVICE AND FILE NAME MAY BE'/' NO LONGER THAN 10 CHARACTERS')(' ILLEGAL CHARACTER IN PROJECT NUMBER')(' MUST BE A COMMA BETWEEN PROJCT AND PROGRAMMER NUMBER')(O10)(' ILLEGAL CHARACTER IN PROGRAMMER NUMBER')(' PROGRAMMER NUMBER TOO LONG')(' ? FILE DOES NOT EXIST')(' HOW MANY VARIABLES? ',$)(I)(' THE MAXIMUM FOR THIS PROGRAM IS 500-FOR MORE SEE DICKHOUCHARD')(' ENTER FORMAT ENCLOSED IN PARENTHESIS'/)(' FORMAT TOO LONG')(' FORMAT MUST BE ENCLOSED IN PARENTHESIS')(' NO BRACKETS WHEN SPECIFYING FILE FOR FORMAT')(' FILE SPECIFIED FOR FORMAT NOT AVAILABLE')(' FORMAT FILE MAY NOT BE SPECIFIED IN A FORMAT FILE')(' UNBALANCED PARENTHESIS')(600A1)(I5)(' CAUTION - NUMBER OF VARIABLES DOES NOT AGREE WITH FORMAT')('0MULTIPLE RECORD FORMAT - ',I4,' RECORDS READ PER READ')(I3)('ORIGINAL VARIABLE NUMBER ',I3,' -',A10)('0ENTER NAMES, DESCRIPTIONS AND MISSING DATA'/)('+ ? ',$)('0THE VARIABLES HAVE ALREADY BEEN GIVEN THE NAMES: V1, V2,'/' V3, V4, ...., AND DESCRIPTIONS: THIS IS THE ORIGINAL'/' VARIABE NO 1, ETC.  NO MISSING DATA SYMBOLS HAVE BEEN'/' ASSUMED.  TO CHANGE THESE, TYPE THE VARIABLE NO, AN EQUALS'/' SIGN, THE NAME OF THE VARIABLE (UP TO 5 CHARACTERS, FIRST'/' MUST BE A LETTER), A SEMICOLON, THE DESCRIPTION (UP TO 40'/' CHARACTERS), A SLASH AND A MISSING DATA SYMBOL.  UP TO 5'/' MISSING DATA SMBOLS MAY BE SPECIFIED FOR ONE VARIABLE.'/' EXAMPLE:'/' 3=SEX ;SEX OF RESPONDANT/3/0/9'/' ANY PORTION (NAME,DESCRIPTION, OR MISSING DATA) WHICH IS'/' NOT INCLUDED , WILL NOT BE CHANGED.  THE NAME MUST BEGIN IN'/' THE FIRST POSITION FOLLOWING THE EQUALS, BUT NONE OF THE'/' OTHER PORTIONS REQUIRE SPECIAL POSITIONING.  RANGES OF'/' VARIABLES MAY BE CHANGED WITH ONE COMMAND, BY INDICATING THE'/' LOWEST VARIABLE NUMBER OF THE RANGE, A MINUS, AND THE LARGEST'/' VARIABLE NUMBER OF THE RANGE.  IF NAMES ARE TO BE CHANGED'/' FOR RANGES, A QUESTION MARK MUST BE IN THE NAME.  THE')(' QUESTION MARK IN THE VARIABLE WILL BE REPLACED WITH A'/' NUMBER, STARTING WITH ONE FOR THE FIRST VARIABLE IN THE'/' RANGE, TWO FOR THE SECOND, ETC.  IF THERE ARE MORE THAN 9'/' VARIABLES IN THE RANGE, TWO QUESTION MARKS MUST BE IN THE'/' NAME.  MISSING DATA MUST BE OF THE SAME TYPE AS VARIABLE'/' IT IS SPECIFIED FOR (ALPHA MISSING DATA SYMBOLS MUST BE'/' ENCLOSED IN QUOTES)'/'0WHEN ALL CHANGES HAVE BEEN MADE TYPE A CARRIAGE RETURN <CR>,'/' TO CONTINUE WITH PROGRAM'/)(' ILLEGAL VARIABLE NUMBER'/)(' NO BRACKETS ON VARIABLE DESCRIPTION FILE'/)(' FILE FOR DESCRIPTION IS UNAVAILABLE'/)(' DESCRIPTION FILE MAY NOT SPECIFY A DESCRIPTION FILE')(I3)(' 2 RANGES INDICATED FOR SINGLE LINE'/)(' RANGE MUST BE SPECIFIED FROM LOW TO HIGH'/)(' ILLEGAL NAME'/)(' TOO MANY VARIABLES IN RANGE FOR NO. OF  ?'/)(I5)(' "',A5,'" IS A RESERVED NAME')(' VARIABLE ',I3,' ALREADY HAS THE NAME ',A5/)(' THE SAME SYMBOLS FOR MISSING DATA CANNOT BE USED FOR'/' TWO DIFFERENT TYPE VARIABLES - NO MISSING DATA ACCEPTED THIS'/' STATEMENT'/)(' ILLEGAL CHARACTER "',A1,'" IN MISSING DATA SYMBOL'/)(' ONLY 1 DECIMLE POINT PER MISSING VALUE'/)(' ONLY 1 E SIGN PER VALUE'/)(' VALID: WAS NOT INDICATED - RANGES MAY NOT BE USED'/)(' TWO - CANNOT BE USED IN THE SAME STATEMENT'/)(G)(' NO - FOR VALID RANGE'/)(' ALPHA MISSING DATA SYMBOLS MUST BE ENCOLOSED IN QUOTES'/)(' MAXIMUM SIZE FOR ALPHA VARIABLE IS 6 CHARACTERS'/)(I)(' TOO MANY MISSING DATA FOR VARIABLE ',I3/)(' 1 VALID RANGE ALREADY ACCEPTED FOR VARIABLE ',I3/)('0ENTER DATA NOW, WHEN FINISHED TYPE A CONTROL Z (^Z)')(' ERROR READING OBSERVATION ',I6)(' PLEASE REENTER THE ENTIRE OBSERVATION '/)(' MORE THAN 5 ERRORS PER HUNDRED OBSERVATIONS - BYE')('1BANK: ',A10,5X,'CREATED: ',2A5/' HAVING ',I3,' VARIABLES, AND ',I6,' OBSERVATIONS').    V    ?    V    DSK  E    (    (    H    STOP 9    9    (@    0    @    0    ALL  -    ?TTY  Z    ;    '    I    I    L    OBS  O    !    !    HELP A    /    A    0/        0D    8,    @=    Z@)    )    xX:    V2   EMPTYXph`7    }@h     P         SEQINDSK  SEQINPROBLEM SEE DICK HOUCHARDDSK  SEQINDSK  SEQOUT    HEADR.TMP BINARY    DSK  RANDOM    BINARY    BANK.TMP  DELETE    DELETE    DSK  SEQINBINARY    HEADR.TMP DELETE    [j` \>v $ D:_ <H, <H,
 <H,, <H, <H,
 ,M3D?+GX"&( $( D; ; ,L2D?+?A>;8&?=@d:e+?X ; D:e@d;:; ;3D:e+?N ,L2F?+?B.$ D;":e/&.; ; ,L H,L.$8&?I :e ? F,L"$.D:e+?C ,M2D>{+?X ,M2D>y+?X ,N2D?+?X ,N2D?+?X ,O2D?+?X <H,,+?6+H ? D.';.0@d.& D.& D.'3D:e+@L & F;:;2d:e+?l ,L3F?+?b ,L3F.%+?l+?]"$.; D: <H,": $ F:c D:[ :[ <H",
::[; :c+?g, ; D:+?m@d: >y D.' ?
 ? F;*d?n@d:[@d:h::2d:e+?| ,L2F>v+?t!& F:h ,L3F.%+?| :[1&+?y <H$,,+?6::[ : ,L F;+?p!$3D:h+@ :[0d+@::[ >v F; <H', ?
_D:bZD:[ :[ <H*,
::[; :b+@, : ,L2D.%+@L ?
 ? F;*d@	@d:[::2d:e+@ ,L3F.(+@ ,L3F?
+@ ,L3&>+@ ,L3f?+@ <H,,,+?6 :[1d+@ <H/,,+?6::[ : ,L F;+@ $3$:[+@ D.&+@+ ;2D?+@#"& $ ; H;/$8&@ ? D;+@ <H2, ?
_D:]ZD:[ :[ <H5,
::[; :]+@%, <H7,	 <H:,
 ?
 ? F;*d@+@d:[::2d:e+@; ,L3F.(+@; ,L3&>+@3 ,L3f?+@5 <H<,,+?6 :[1d+@9 <H?,,+?6::[ : ,L F;+@- $3$:[+@> D.&+@L ;2D?+@D"& $ ; H;/$8&@@ ? D;+@> <HB, ?
_D:xZD:[ :[ <HE,
::[; :x+@F, <HG,	 <HJ,
 <H
,@7D:d+@P <HL,,+?6 <HO, <HS,, <HV, <HY,
 s1dz+@X <HZ,,+H+<H],,@d:o0D:x+$ D.(,D:"?.:/./ : F:s D; ; <Hc,
:;; :s+@g,6D:x+@s <He,"&.:/./ : F:q D; ; <Hh,
:;;:q+@o, $2D:+@v273D?+GX8$2D:+@y/73D>~+A3$2D:+@|272D>z+A.H:o 73H?	:.(.$8&A .,1$,+A% <Hi,,+@X <Hl,,+@X ?	ZD; ; 72F.%+A <Ho,,+@X*dA <Hr, ?	D;$ZD; ; <Hv,
:;; ;$+A, <H	,E7D:d+A <Hw,,+@X :x0D+A" <Hz,,+@X $ D:x <H},+@^ $.., D:6d:o+@^5$A) <I,,4$@X <I, <I,
 :x0F+A. <I
,@f;:; ;2d.,+AN ?ZD:[ :[ ;  73H:y+A/*dA1 ; 73&>~+AG 72f>|+AG"& $ F; D./.;2d.,+AG ?ZD:[ :[ ;../  72H:y+AA1F+AG+A/*dA< ;../ 73&>~+AG 72f>|+AG:./; ;+A: $.; D;"&/.,.; ; 7 H6.$8&AK"$.D.,+A/@d.+ D; $ D:Y:;2d.,+B 73F:|+AP 73F:|+AP 73&>~+AX 73f>|+A[ :Y 7 H{::Y1&,+AP+B $ D.+ ? ? F.!*dA] $ D:[ :[ ; 7 F.!:;::[ 73&>~+Ae 73f>|+A_ .$2D?+Ak"& $ .! H."/$8&Ah ? D."+Ae <I
, <I,
 <I,	 <I,
 ; 73D:|+Ax": $ D:[ :Y ;  7 H{::Y0d,+B::[8&As+AP $.; D: $ D:o : 73F:|::o 73F:|>:o7F:o+B::+Az"&.: $.;2d+B": $ F.0 D:[ $.; D: :/: : D./ :Y ./  7 H{::Y0d,+B:./8&B::[; .0+B : D;+AP"$.:Y D.,7F.++B"., $ { H7.$8&B+AN <I,L+H $ D./ s3D.,+B <I,, .(1d+B <I, <I,
"s $@h%z ./ 
 {2J?+B# * J%z 
 {2J?+B& * J%z 
 {2J?+B( * J%z:
./3j.,+B+ ( H./.$8&B  >x D." ? D.$"s $ F.+ D; <I, <I#,
 <I$,	 ?_D.*ZD:[ :[ <I(,
::[; .*+B4, ."2D?+B= ? .! F.!*dB: ? D.#+B8 ; <I), <I-,
@f.2( <I/, <I3,
:;; .++B0@d:x <I5,,6D:x+BH <I8,,0D+BK <I;, <I>,
5DBM)<H,F6 ,M2D>{+BX ,M2D>y+BX ,N2D?+BX ,N2D?+BX <I@,, <IC,,+BF ,M3D?+GX ,M3D?+F6 ,M3D?
+F6 ,M3D>}+Bp $2D.,@d.+ D:,?,?+F.!*dB`0$+D:[ ., ,L3F?+C:,L3F?c ?	ZD; ; ,L2F.%+Bu <II,,+BF*dBp <IL, ?	D:ZD; ; <IP,
:;;D:+Bx, <H,E7D:d+B,<IQ,,+BF7D:x+C,<IT,,+BF $ D:x <IW,+BF <I[,@d:x+BF :[1D+Bi .#2D?+C
::[; :+C, <Ib,	 <Ie,
+;0$2ds+Bi,.,,,L3D?F $ D.+ ; F:h.d.,+B` .+1D+C# ; D:h D:e+C' ; D:e2$:h+C' <Ij,,+BF $.:e/:h D.):., ? ? F.!*dC* $ D:[ ., ,L3F?+CC ,L3F?+CC ,L3F?+CC :[0F+C8 ,L2f?+C6 ,L2&?+C8 <Im,,+BF ., ,L3F?+C6 ,L3F?
+C6 ,L3F>z+C6 ,L3F?+C6 :[0f+CA ,L H.!::[:.,1d(+C, :[1D+D
@d:X ?ZD:[ &2&:X+CI :[ .!2F>x+CL :[ .!3F>x::X*dCE .)1D+CV0$+CP &3f:X+CV0$2+CR :X0&+CV :X0&+CV <Ip,,+BF"&/:e.:h :h F: D; ? .! F:U*dCY7D:X+Cv $.;/:h D:[ <Is, <Iv,
 <Ix,	 <I{,
 ?ZD: : :u3F?*dCb ?ZD:Y :Y :U2F>x*dCe"&.: : :Y 
:u J :U::Y.$8&Ci :Y0d+Cv :Y :U2F>x+Cv1D+Ct :Y/& :Y :V H:U.$8&Cr ? D:X+Cn <I~, <J,
 ..2D?3D>{+C|2D?3D>+C|2D?+C <J, <J,
+D"s $ D:[ :[3D;+D )n2H..+D <J, <J,
+D::[8&D ; .. F)n:;; :+CY ., ,L3F?+D ,L3F?+D!:.,1f(+D
+BF ?,? F;*dD $ D:[:.,0d(+D ., ,L3F?+D :[0f+D ,L H;::[+D"&/:e.:h :h F:Z D;( <J
:;; :Z+D+D
:., $3D:+D
 .)1$+D-"&/:e.:h :h D; :h ;  %z3H%z+D, <J,, $ D:+D
:;8&D'@d:n .,*,L2H>w+D: ,M2H?+D: ,M2H?+D: ,N2H?+D: ,N2H?+D: ,O2H?+D: &.F.,+& F:n3D:+:h %z.$6b0b+D?+D=4D?4E <J,
+D
 :[0d+DV :[ ., ,L F;::[:.,1d(+DC+Ds :[1D+DS+Dc7D:+D] <J,,+D
 $ D:+DS7D:c+Da <J,,+D
 $ D:c+DS:., $3D:n+Dg <J!,,+D
7D:+Dj <J$,,+D
 <J', ?_D:qZD:[ :[ <J*,
::[; :q+Dl, <J,,	 <J/,
 $ D:+D? :n1D+D} <J1, ?_D:mZD:[ :[ <J4,
::[; :m+Dw, <J6,	 <J9,
+F1D+E <J;,,+D
 <J>, ?_D:lZD:[ :[ <JA,
::[; :l+E, <JC,	 <JF,
 :3$;+F*." D;+F[ ., ,L2F?+E.d., ., ,L3F?+EH ,L3F?+E ,L3F?+E ,L3F?+E" :[0d+E  ., ,L F;::[:.,1d(+E <JH,,+D
 <JK,,+D
:., ,L3F?+E:7F:n+E3 &3F:+E) <JN,,+D
 <JQ, ?_D:iZD:[ :[ <JT,
::[;:i+E+,Z:3d;+FY,
::[;:g+E6,+FD <J[, ?D:fZD:[ :[ <J^,
::[;:f+E?, $ D:.d.,+E
 <Jc,,+D
 ?ZD; ;.., ,L3F?+E*dEI+E ? ? F;*dEM $ D:[ ., ,L3F?+Et ,L3F?+Eb ,L3F?+Et ,L3F?+Et ,L2f>|+EY ,L2&>+E\ <Jf, <Ji,
+D
 :[0d+E` :[ ., ,L F;::[:.,1d(+EP+Et :[1D+E]:., $3D:n+Eg <Jj,,+D
7D:+Ej <Jm,,+D
 <Jp, ?_D;
ZD:[ :[ <Jt,
::[; ;
+Em, <Ju,	 <Jy,
 $ D:+EM :n1D+E~ <Jz, ?_D;ZD:[ :[ <J~,
::[; ;+Ex, <J,	 <K,
+F1D+F <K,,+D
 <K, ?_D;ZD:[ :[ <K,
::[; ;+F, <K
,	 <K,
 :3d;+F ." D;"&/:e.:h :h F; D; &3F:n+F!H.2 H:[.:[ F;#5(F &/:[ F;# ;#1f+F <K, <K,
+F4 $z$;#.; : F.26$:[+F ;h;#"H.24$F4 ;h;# H.2+F4 ;6$.2+F% <K, <K,
+F4 ;D.2 D;#.$1d+F+ <K, <K,
+F47D;#+F1";#.& $ (z$.; 
 ,8 J 0,.$8&F- ; : F0, ; F2&!&{F.2:;; ;+F+D
 :x0D+F9 <K, <K!, $.s&$ D:t":t $ F; D;/$$$.$ D:~.$ D:r3ds+FC s F:r :~/&/:r :~ F:t D:[/:~$$	 :[ )n F-c ?
 :[/:~$&	.& :[(.(  w H-c*dFI :[/:~$$	 :[ %z F-h::[; :t+FF <K%, <K',
:;; ;+F> <K), <K+, $,&s D:`1d>+F[ &> F:`@d; Ds D:_@d; .'2D?+F` <K0,,@d:Z@d., :` D:.:Z1d>+Fe $>/:Z D: s$.,.$ D:h"$.s.:h D:e <K3,":e/&.:h :h F:p D; ; <K6,
:;;:p+Fm,:s:.,3$:+Fe"s:$;F:m+D;F.2"F:4FG5fG"h:".,$$.F:k D:[/$$s.; 7 F./$;.0,2h+F+2&2(+G$:[/$$s.;+.$:H7+G:$2$:+G:&/:+$6D:Y+:Y$$z.;+,82D./+G? ., .$ H-c.$8&G$"s $ F;
 D;"., $"(.$s.;  7 H-c.$8&G) s$:_.; D:] <K8, <K;,
:;; ;
+G(+GC"s $ F;	 D; s$:_.; D:] <K>, <KA,
"., $ .:Z"*.
$
s.
; 
(7 J -c.$8&G: <KD, <KG,
:;; ;	+G5 .,.d:Z!&3F;+G[1$>+Fa::_+F`:s:;0d+GT <KJ, <KM,
"&/:e.:h :h .$ H7.$8&GM .'2D?+Fq <KN,,"$.Ds@d;+Fe ;&s0d+GI <KQ,, <KT,+H!$ D;6d.,+Fs $ D:k ? D:f <H,L_ <KW, <KZ,
 ?_D;ZD; <K_,
:;; ;+Gb, $>.s&$> D:_ $ D:]"s $ F; D;":_ $"(.$s.; H:Z <Ka, <Kd,
 <Kg, <Kj,
::].$8&Gk:;; ;+Gj <Km, <Ko, s$:_.$ D:] <Ks, <Ku,
::] <Kx, <K{,
+Gx <K~, <L, <L, <L, <L,
>v,~x:o`::dvvh,M>}.)`::dvvX.'.0:d.&.&X0;$0tX0;)X0GX<A@(,MX0;*QP:<A.'$,LX0;{	P<A.0$;X0<X0<P<A:o$;P<:o$.&X0<X0<P<A:o$;P<:o$.&X0<H:h.'^?P.0.&X0<X0GX<$sX0<X0<$X2GX<A(7X0GX<A(7X0<)X0<+X0</P<A:(7X0<4X0<9P2~?P:^?X0<>P,<A:@,7h2P<A.2@."P<B.2$:x?X0<CX0<I$.(P<O./$;P<A./(.!P<A)n@."P<Px$;0tX0<TX0<YX2C<A@(,MX0<ZeX0=?/X0=oX0=rP<A:$,LX0=wX0={P2~?P:^?h2P<A:$.!P>:$;X0>X0>X0>X0>>m	0t@:o$s$sa.3@1,>'O@LI+LgR~@1,>'@@LI,>,>@6 w+L"LI0B+L!"A`X#p5@L/#p!"X#p+L\p+La.9'1,>',>,>O@LI+L,>
6+ _4`L$"`Q@,> <LJ,,^,> <LM,
,^*bL!+L/,> <LO,,^7@LI+L*,> <LR,
,^+L,,> <LS,
,^Z5"L/,> <LU,
,^,7@LI,
,> <LV,,^,,> <LY,,^,> <L\,
,^(@qd1@,,
1@#+L=0@*+L/,> <L^,,^+L/,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXLEp XLFp LHp LHp XL?X~LEp xI$P1,>' #p D F	b&".$&$7@"$  (@. &"* Lp)@
(@ $ &$.$.&(D(F..  #p**,~.$D.&-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-@VARIAVAR  OBSEROBS  DEVICDEV  MATCHSELECSUBSEFORMAFMT  CONSTCON  BANK INFO INFORIDENTID   MAJORMTM  W/O  BELL REF  REFER                              REPLAMODIFCHANGFORGEDELETDEL  BACKUCREATMAKE ADD  MA   OUTPUMERGEPRINTLIST Q    STDESTYPE SORT SET  =:   FOR:                                             ]    [    BNKPG.DAT (80A1)('+',99A1)('0 ? ',$)('+* ',$)(' NO SPACE BETWEEN INSTRUCTION AND QUALIFIER')(' YOU ARE NOT AUTHORIZED TO MODIFY THIS BANK'/)(' INSTRUCTION "',A5,'" DOES NOT EXIST')(' SWITCHES MUST BE FOLLOWED BY A :')(' THE SWITCH "',A5,'" DOES NOT EXIST')('+SWITCH ',A5,' CANNOT BE USED WITH INSTRUCTION ',A5,' - SWITCH IGNORED'/)(' OBSERVATIONS MAY BE SPECIFIED BY NUMBER ONLY')(' IN SPECIFYING A RANGE OF OBSERVATIONS NO UPPER BOUND')(' WHERE AN OBSERVATION NUMBER SHOULD HAVE APPEARED NONE ','DID')(I6)(' NO MORE THAN 30 SELECTIONS FOR OBSERVATIONS')(' A SECOND RANGE ATTEMPTED BEFOR FINISHING THE FIRST')(' OBS. ',I6,' IS TOO LARGE, ONLY ',I6,' OBS. IN BANK')(' OBS. ',I6,' IS ILLEGAL, IT MUST BE A POSITIVE INTEGER')(' TO CREATE NEW OBSERVATIONS THEY MUST BE GREATER',' THAN ',I5)(' IN SPECIFYING A RANGE OF VARIABLES NO UPPER BOUND')(' WHERE A VARIABLE SHOULD HAVE APPEARED NONE DID')(I5)(' VARIABLE "',A5,'" DOES NOT EXIST')(' VARIABLE NUMBER ',I5,' DOES NOT EXIST')(' NO MORE THAN 20 SELECTIONS FOR VARIABLES')(' A SECOND RANGE ATTEMPTED BEFOR FINISHING THE FIRST')(' 2 DEVICES CANNOT BE USED IN THE SAME INSTRUCTION')(' ILLEGAL DEVICE')(' MAXIMUM OF 20 MATCH VARIABLES PER INSTURCTION')(' VARIABLES IN THE SELECT MUST BE SPECIFIED BY NAME',' OR NUMBER')(' IN A SELECT NO CONDITION OCCURED')(' A NON-NUMERIC CHARACTER APPEARED IN THE VARIABLE',' NUMBER OF A SELECT')(I5)(' VARIABLE NUMBER IN SELECT NOT POSSIBLE FOR THIS BANK')(' VARIABLE NUMBER IN SELECT MUST BE POSITIVE INTEGER')(' VARIABLE "',A5,'" DOES NOT EXIST IN THIS BANK')(' IN A SELECT, < WAS USED TWICE')(' IN A SELECT, > WAS USED TWICE')(' IN A SELECT, = WAS USED TWICE')(' NOTHING TO BE COMPARED AGAINST IN A SELECT')(' IN A SELECT, THE ALPHA VALUE WAS NOT ENCOLSED IN ','QUOTES')(' USE A COMMA TO SEPARATE "OR" VALUES AND A SEMICOLON'/' TO SEPARATE "OR" SELECTS')(' NON-NUMERIC CHARACTER IN VALUE TO BE COMPARED')(F15.0)(I15)(' MISSING MAY ONLY BE USED TO SELECT WHEN THE CONDITION'/' IS EQUAL OR NOT EQUAL')(' NO MORE THAN 20 VALUES IN A COMPARISON TO MULTIPLE',' VALUES')(' COMPARRISON TO MULTIPLE VALUES MUST BE WITH AN =',' CONDITION')(' ONLY 1 FORMAT PER INSTRUCTION')(' FORMAT MUST BE ENCLOSED IN PARENTHESIS')(' NO MORE THAN 240 CHARACTERS IN THE FORMAT')(' UNTERMINATED HOLERITH STRING')(' ONLY ONE BANK SWITCH PER INSTRUCTION')(' 6 CHARACTERS MAXIMUM FOR A NAME OF BANK')(' WHERE A BANK SHOULD HAVE BEEN SPECIFIED NONE WAS')(' IF SPECIFIED, EXTENSION MUST BE .BNK')(' MAXIMUM OF 3 CHARACTERS FOR THE EXTENSION')(' THERE MUST BE A , SEPARATING PROJECT AND PROGRAMMER NO.')(' CHARACTER "',A1,'" IS ILLEGAL FOR PROJ PROG. NUMBER')(' INCOMPLETE PROJECT PROGRAMMER NUMBER')(' PROJECT NUMBER LARGER THAN POSSIBLE')(' ILLEGAL PROJECT NUMBER')(O6)(' PROGRAMMER NUMBER LARGER THAN POSSIBLE')(' ILLEGAL PROGRAMMER NUMBER')(' BANK SPECIFIED NOT AVAILABLE')(' ONLY 1 CONSTANT SWITCH PER INSTRUCTION')(' ALPHA CONSTANTS MUST BE ENCLOSED IN QUOTES')(' CONSTANT SPECIFIED HAS TWO DECIMLE POINTS')(' CONSTANT SWITCH MUST BE FOLLOWED BY A CONSTANT')(F15.0)(I15)(' RANGES ARE ILLEGAL IN A MAJOR TO MINOR SWITCH')(' ILLEGAL NAME OR MISSING COMMA IN AN MTM SWITCH')(' MAXIMUM OF 20 MAJOR-TO-MINOR VARIABLSE PER INSTRUCTION')(1X,'"',A1,'" IS AN ILLEGAL CHARACTER FOR NUMBER OF BELLS')(' MAXIMUM OF 2 DIGIT NUMBER FOR BELLS')(I2)(' MAXIMUM OF 2 REFERENCES PER INSTRUCTION')(' SWITCH "',A5,'" IS UNAVAILABLE FOR USE AT THIS TIME')(' PROGRAM NOT AVAILABLE FOR BANK')(' NO PROGRAM EXISTS')(I5)(' A TRANSFORMATION MUST HAVE A FORTRAN FORM')(' "',A5,'" IS A RESERVED NAME - CANNOT BE CREATED')(' UNBALANCED PARENTHESIS')(' PARENTHESIS DO NOT ENCLOSE ANYTHING')(' POWER IS NOT A CONSTANT OR VARIABLE')(' ONE OF THE VARIABLES USED DOES NOT EXIST')(' #MUST BE FOLLOWED BY A VARIABLE NUMBER')(' ONE OF THE VARIBALE NUMBERS USED DOES NOT EXIST')(' TWO INSTRUCTIONS NOT SEPARATED BY A VARIABLE')(' ATTEMPT TO DIVIDE BY THE CONSTANT ZERO')(' INSTRUCTION TOO LONG')(' SYS PROB ',I2,'-CONTACT DICK HOUCHARD')(' TWO EXPRESSIONS NOT SEPARATED BY AN OPERATION')(' "," IS NOT A LEGAL OPERATION')(' "=" MAY NOT BE USED TWICE IN AN INSTRUCTION')(' ILLEGAL OR MISSPELLED FUNCTION')(' ATTEMPT TO TAKE MEAN OR STD. DEV. OF A CONSTANT')(' ILLEGAL CHARACTER IN VARIABLE')(' WITHIN THE PARENTHESIS INDICATE WHICH COMMAND')('0COMMANDS AVAILABLE:'/'0 REPLACE'/'  MODIFY  -  CHANGE VALUES FOR PARTICULAR DATA POINTS'/'  CHANGE'/'0 FORGET'/'  DELETE  -  DELETE OBSERVATIONS OR VARIABLES FROM BANK'/'  DEL'/'0 BACKUP  -  CREATE A BACKUP OF THE BANK (SAME NAME .BAK)'/'0 CREATE'/'  MAKE    -  ADD OBSERVATIONS TO BANK'/'  ADD'/'  MA'/'0 OUTPUT  -  MAKE ASCII FILE OF DATA IN BANK'/'0 MERGE   -  MERGE TWO BANKS TOGETHER'/'0 PRINT'/'  LIST    -  AUTOMATICALLY PRINT DATA OR INFO. ON LPT'/'  Q'/'0 STDES   -  SINGLE VARIABLE STATISTICS (AUTO. OUTPUT ON LPT)'/'0 TYPE    -  TYPE DATA OR INFO ON TERMINAL'/'0 SORT    -  SORT BANK INTO ASCENDING ORDER')('0 SET     -  ALLOWS USER TO MODIFY ASSUMPTIONS ABOUT SWITCHES'/'0 =       -  TRANSFORMATION INCLUDES CREATING NEW VARIABLES'/'             (FORTRAN ARITHMETIC STATEMENTS)'/'0THE QUESTION MARK INDICATES THAT AN INSTRUCTION IS'/' EXPECTED.  AN INSTRUCTION MAY BE JUST A COMMAND, OR'/' A COMMAND AND SWITCHES.  THE COMMAND MUST BE THE FIRST'/' ENTRY OF THE INSTRUCTION.  AN INSTRUCTION MAY BE MORE'/' THAN 1 LINE LONG, AND MAY CONTAIN MANY SWITCHES, HOWEVER,'/' ONLY ONE COMMAND MAY BE GIVEN FOR EACH INSTRUCTION.'/' TO END AN INSTRUCTION AND BEGIN EXECUTION OF THE'/' INSTRUCTION, TYPE AN ALTMODE (ESC).'/'0A NEW BANK MAY BE SPECIFIED BY TYPING A CONTROL Z (^Z).'/' TO EXIT FROM THE PROGRAM TYPE A CONTROL Z (^Z) WHEN ASKED'/' TO SPECIFY THE NEW BANK.  THE CORRECT EXITING PROCEDURE'/' MUST BE USED TO ENSURE PRINTING OF RESULTS OBTAINED FROM'/' THE STDES COMMAND.')('1AVAILABLE SWITCHES:'/'0 VARIABLE        -  SPECIFY VARIABLES'/'  VAR'/'0 OBSERVATION     -  SPECIFY OBSERVATIONS'/'  OBS'/'0 DEVICE          -  SPECIFY DEVICE'/'  DEV'/'0 MATCH           -  MATCH VALUES FOR MERGING'/'0 SELECT          -  SUBSET DATA BY SELECTING ONLY THOSE'/'  SUBSET             OBSERVATIONS WHICH MEET CERTAIN CRITERIA'/'0 FORMAT          -  SPECIFY USER OUTPUT FORMAT'/'  FMT'/'0 CONSTANT        -  SPECIFY CONSTANT'/'  CON'/'0 BANK            -  INDICATE NAME OF ANOTHER BANK'/'0 INFORMATION     -  INDICATE PERTINANT DATA ABOUT BANK'/'  INFO'/'0 IDENTIFICATION  -  INDICATE VARIABLE NAMES AND DESCRIPTIONS'/'  ID')('0 MAJOR-TO-MINOR  -  INDICATE MAJOR TO MINOR SEQUENCE'/'  MTM')('0ALL SWITCHES MUST BE FOLLOWED BY A :, IF MORE INFORMATION'/' IS NECESSARY, THE INFORMATION MUST FOLLOW THE : WITH NO'/' SPACES INBETWEEN.'/'0TO RECEIVE MORE HELP ON A PARTICULAR COMMAND OR SWITCH'/' TYPE HELP FOLLOWED BY THE NAME OF THE COMMAND OR SWITCH'/' IN PARENTHESIS.  FOR A TABLE OF PERMISSABLE COMMAND -'/' SWITCH COMBINATIONS TYPE HELP(TABLE).  FOR ALL THE'/' ADVANCED HELPS TYPE HELP(ALL).')('1----------'/'0SWITCH COMMAND COMBINATIONS'/'0                 C  D  B  C  O'/'                  H  E  A  R  U  M  P  S'/'                  A  L  C  E  T  E  R  T  T  S'/'                  N  E  K  A  P  R  I  D  Y  O  S'/'                  G  T  U  T  U  G  N  E  P  R  E'/'                  E  E  P  E  T  E  T  S  E  T  T  ='/'0VARIABLE         X  X        X     X  X  X     X'/'0OBSERVATION      X  X     X  X     X  X  X     X  X'/'0DEVICE                       X                 X'/'0MATCH                           X'/'0SELECT           X  X        X     X  X  X     X  X'/'0FORMAT                       X                 X'/'0CONSTANT         X'/'0BANK                            X'/'0INFORMATION                        X     X'/'0IDENTIFICATION   X'/'0MAJOR-TO-MINOR                              X')('1----------'/'0COMMAND: REPLACE, MODIFY, CHANGE'/'0PURPOSE: ALTER DATA LOCATED IN BANK'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT, CONSTANT,'/'                    IDENTIFICATION'/'0DESCRIPTION: ONLY PROJECT-PROGRAMMER NUMBER RESPONSIBLE FOR'/'              BANK MAY ALTER ITS CONTENT.  NORMAL MEANS OF'/'              OBTAINING THE VALUES TO REPLACE THOSE IN THE'/'              BANK WILL BE FROM THE TERMINAL.  IF ALL DATA'/'              TO BE REPLACED IS TO BE CHANGED TO THE SAME'/'              VALUE A CONSTANT SWITCH MAY BE USED.  WHEN'/'              CHANGING VALUES, VARIABLES MUST MAINTAIN THEIR'/'              TYPE.')('0----------'/'0COMMAND: FORGET, DELETE, DEL'/'0PURPOSE: DELETE VARIABLES OR OBSERVATIONS FROM BANK.'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT'/'0DESCRIPTION: ONLY PROJECT-PROGRAMMER NUMBER RESPONSIBLE FOR'/'              BANK MAY ALTER ITS CONTENT.  THE VARIABLE'/'              SWITCH MUST BE USED BY ITSELF, IT CANNOT BE'/'              USED WITH THE SELECT OR OBSERVATION SWITCHES.'/'              IF NO SWITCHES ARE SPECIFIED THE ENTIRE BANK'/'              IS DELETED.')('0----------'/'0COMMAND: BACKUP'/'0PURPOSE: CREATE A BACKUP FILE'/'0SWITCHES POSSIBLE: (NONE)'/'0DESCRIPTION: THE COMMAND WILL CAUSE A BACKUP FILE TO BE'/'              CREATED.  THE FILE WILL HAVE THE SAME NAME'/'              WITH A .BAK EXTENSION.  IF THE BACKUP COMMAND'/'              IS CALLED MORE THAN ONCE, EACH SUCCESSIVE'/'              CALL CAUSES THE NEW BACKUP FILE TO REPLACE'/'              THE FORMER ONE.  BACKUP FILES ARE PROTECTED'/'              WITH 077 PROTECTIONS.')('1----------'/'0COMMAND: CREATE, MAKE, ADD, MA'/'0PURPOSE: ADD NEW OBSERVATIONS TO THE BANK'/'0SWITCHES POSSIBLE: OBSERVATION'/'0DESCRIPTION: THE CREATE COMMAND MUST CONTAIN AT LEAST ONE'/'              OBSERVATION SWITCH INDICATING THE NEW'/'              OBSERVATIONS TO BE ADDED.  THE OBSERVATIONS TO'/'              BE ADDED MUST BEGIN WITH THE FIRST FREE'/'              OBSERVATION IN THE BANK (THE OBSERVATION NUMBER'/'              FOLLOWING THE LAST OBSERVATION IN THE BANK),'/'              AND PROCEED THRU THE LAST OBSERVATION TO BE ADDED'/'              WITHOUT LEAVING AN OBSERVATION NUMBER OUT.  THE'/'              USER WILL BE EXPECTED TO SUPPLY THE VALUES FOR'/'              NEW OBSERVATIONS ONE AT A TIME, IN RESPONSE TO'/'              QUERY.  VALUES ENTERED MUST BE OF THE SAME TYPE'/'              AS THE VARIABLE FOR WHICH THEY ARE INTENDED.')('0----------'/'0COMMAND: OUTPUT'/'0PURPOSE: OUTPUT IN ASCII, DATA IN BANK'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, DEVICE, SELECT,'/'                    FORMAT'/'0DESCRIPTION: THE OUTPUT COMMAND OUTPUTS DATA IN ASCII,'/'              UNDER A USER SPECIFIED FORMAT TO A USER'/'              SPECIFIED DEVICE.  IF LPT IS SPECIFIED AS'/'              THE OUTPUT DEVICE, THE OUTPUT WILL BE SPOOLED'/'              AND AUTOMATICALLY PRINTED WHEN THE COMMAND IS'/'              FINISHED.')('1----------'/'0COMMAND: MERGE'/'0PURPOSE: MERGE TWO BANKS'/'0SWITCHES POSSIBLE: MATCH, BANK'/'0DESCRIPTION: THE MERGE COMMAND MERGES DATA IN AN UPDATE BANK'/'              (INDICATED IN THE BANK SWITCH) INTO THE RESIDENT'/'              BANK (SPECIFIED AT BEGINNING OF RUN).  UPON'/'              COMPLETION OF THE MERGE, THE RESIDENT BANK WILL'/'              CONTAIN ANY VARIABLES PREVIOUSLY CONTAINED IN'/'              EITHER BANK.  THE UPDATING BANK WILL REMAIN'/'              UNCHANGED.  A MERGE MUST BE ACCOMPANIED BY ONE'/'              AND ONLY ONE BANK SWITCH.  ONE OR MORE MATCH'/'              SWITCHES MAY BE SPECIFIED.  IF NO MATCH SWITCHES'/'              ARE USED, THE DATA IN THE UPDATING BANK WILL BE'/'              ADDED TO THE RESIDENT BANK AS NEW OBSERVATIONS.'/'              WHERE MATCH SWITCHES ARE USED, AN OBSERVATION'/'              IN THE RESIDENT BANK IS UPDATED BY AN'/'              OBSERVATION IN THE UPDATING BANK, IF THE'/'              VARIABLES INDICATED IN THE MATCH SWITCH HAVE')('              THE SAME VALUES FOR BOTH OBSERVATIONS.  IF AN'/'              OBSERVATION IN THE UPDATING BANK CANNOT BE'/'              MATCHED, IT WILL BE ADDED TO THE RESIDENT BANK'/'              AS AN ENTIRE OBSERVATION.'/'0             MISSING DATA WILL NOT BE MATCHED WITH MISSING'/'              DATA, AND INFORMATION PRESENT WILL NOT BE'/'              UPDATED WITH MISSING DATA.  WHEN CERTAIN'/'              VARIABLES ARE NOT AVAILABLE IN AND OBSERVATION,'/'              MISSING DATA WILL BE USED.')('0----------'/'0COMMAND: PRINT, LIST, Q'/'0PURPOSE: PRINT A COPY OF DATA OR INFORMATION ABOUT THE BANK'/'          ON THE LINE PRINTER.'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT,'/'                    INFORMATION'/'0DESCRIPTION: THE COMMAND WILL CAUSE OUTPUT TO BE AUTOMATICALLY'/'              PRINTED ON THE LINE PRINTER.  IF THE PRINT'/'              COMMAND IS USED WITHOUT SWITCHES, BOTH THE'/'              INFORMATION AND THE COMPLETE DATA SET WILL BE'/'              PRINTED.  OUTPUT WILL BE LABELED BY OBSERVATION'/'              AND VARIABLE.')('1----------'/'0COMMAND: STDES'/'0PURPOSE: SUPPLY USER WITH SINGLE VARIABLE STATISTICS'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT'/'0DESCRIPTION: THE STDES COMMAND PROVIDES THE USER WITH THE'/'              FOLLOWING INFORMATION: DATE THE STATISTICS'/'              WERE RUN, THE BANK THEY WERE TAKEN FROM, THE'/'              DATE THE BANK WAS CREATED, THE PROJECT-PROGRAMMER'/'              NUMBER WHICH CREATED THE BANK, THE VARIABLE'/'              NAME, THE POSITION NUMBER OF THE VARIABLE IN'/'              THE BANK, ITS DESCRIPTION, AND ITS TYPE.  IF'/'              ANY SELECT SWITCHES ARE USED, THEY WILL ALSO BE'/'              SPECIFIED.  THE NUMBER OF OBSERVATIONS AND'/'              MISSING DATA WILL BE SHOWN.'/'0             FOR FLOATING AND FIXED TYPE VARIABLES THE'/'              FOLLOWING STATISTICS ARE PROVIDED: MEAN, MEDIAN,'/'              MODE, MAXIMUM, MINIMUM, RANGE, STANDARD ERROR'/'              OF MEAN, STANDARD DEVIATION, VARIANCE, COEFF.'/'              OF SKEWNESS, COEFFICIENT OF VARIATION, AND'/'              KURTOSIS.  THERE WILL ALSO BE A DISTRIBUTION')('              CHART.'/'0             FOR ALPHA TYPE VARIABLES THERE WILL BE A'/'              MAXIMUM, MINIMUM, AND A DISTRIBUTION CHART.'/'0             THE DISTRIBUTION CHART CONTAINS FREQUENCY OF'/'              OCCURANCE, PERCENTAGE, AND CUMULATIVE PERCENTAGE'/'              FOR EACH ENTRY.  IF THERE ARE 35 OR LESS'/'              INDIVIDUAL VALUES, EACH ENTRY IN THE CHART WILL'/'              BE AN INDIVIDUAL VALUE.  IF MORE THAN 35'/'              INDIVIDUAL VALUES EXIST, THE CHART WILL BE'/'              BROKEN INTO 35 RANGES EACH HAVING THE SAME'/'              SIZE INTERVAL.  A BAR GRAPH OF PERCENTAGE IS'/'              SUPPLIED.'/'0             OUTPUT WILL BE AUTOMATICALLY PRINTED ON THE'/'              LINE PRINTER, WHEN THERE IS A NORMAL EXIT.')('0----------'/'0COMMAND: TYPE'/'0PURPOSE: TYPE A COPY OF DATA OR INFORMATION ABOUT THE BANK'/'          ON THE TERMINAL'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT,'/'                    INFORMATION'/'0DESCRIPTION: THE TYPE COMMAND WILL TYPE DATA OR INFORMATION'/'              ON THE TERMINAL.  IF THE TYPE COMMAND IS USED'/'              WITHOUT SWITCHES, BOTH THE INFORMATION AND'/'              COMPLETE DATA SET WILL BE TYPED.  OUTPUT WILL'/'              BE LABELED BY OBSERVATION AND VARIABLE.')('1----------'/'0COMMAND: SORT'/'0PURPOSE: SORT BANK'/'0SWITCHES POSSIBLE: MAJOR-TO-MINOR'/'0DESCRIPTION: THE SORT COMMAND IS USED TO SORT THE BANK INTO'/'              ASCENDING ORDER BASED ON SELECTED VARIABLES.'/'              THE SORT IS PERFORMED ON VARIABLES SPECIFIED BY'/'              THE USER IN THE MAJOR-TO-MINOR SWITCH.  UPON'/'              COMPLETION OF THE SORT EACH OBSERVATION REMAINS'/'              UNCHANGED (ONLY THE ORDER IN WHICH THE'/'              OBSERVATIONS OCCUR WILL BE ALTERED).  A'/'              MAJOR-TO-MINOR SWITCH MUST BE SPECIFIED FOR'/'              EACH SORT, HOWEVER ONLY ONE MAY BE SPECIFIED'/'              PER SORT.')('0----------'/'0COMMAND: SET'/'0PURPOSE: ALTER THE ASSUMPTIONS MADE WHEN SWITCHES ARE NOT'/'          SPECIFIED.'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, DEVICE, SELECT,'/'                    FORMAT'/'0DESCRIPTION: MOST COMMANDS REQUIRE THE USE OF SWITCHES'/'              (SWITCH-COMMAND TABLE).  IF A NECESSARY SWITCH'/'              IS NOT SPECIFIED BY THE USER, A PREDEFINED'/'              ASSUMPTION (SEE INDIVIDUAL SWITCHES) WILL BE'/'              USED.  THE SET COMMAND ALLOWS THE USER TO ALTER'/'              THESE ASSUMPTIONS.  IT IS ONLY NECESSARY FOR'/'              THE USER TO SPECIFY THE SWITCHES FOR WHICH THE'/'              ASSUMPTIONS ARE TO BE CHANGED.  THE SET COMMAND'/'              WILL REPLACE THE ASSUMPTIONS WITH THOSE'/'              INDICATED IN THE SWITCHES.  IF A SWITCH IS NOT'/'              SPECIFIED IN A SET COMMAND, IT WILL BE RETURNED'/'              TO THE ORIGINAL ASSUMPTION.  MORE THAN ONE SET'/'              COMMAND MAY BE ISSUED DURING A RUN.')('1----------'/'0COMMAND: ='/'0PURPOSE: ALLOW USER TO TRANSFORM EXISTING VARIABLES AND'/'          CREATE NEW ONES.'/'0SWITCHES POSSIBLE: OBSERVATION, SELECT'/'0DESCRIPTION: THE = COMMAND FOLLOWS A FORM SIMILIAR TO'/'              FORTRAN: THE VARIABLE TO BE TRANSFORMED OR'/'              CREATED IS SITUATED IN THE FIRST POSITION, AN'/'              =, AND THE ARITHEMATIC STATEMENT TO THE RIGHT'/'              OF THE EQUALITY SIGN (IT WILL BE EVALUATED AND'/'              PLACED IN THE VARIABLE INDICATED).  NO SPACES'/'              ARE ALLOWED IN THE COMMAND.  THE HIERARCHY'/'              (ORDER IN WHICH CALCULATIONS ARE PERFORMED) IS'/'              THE SAME AS FOR FORTRAN (** EXPONENTIATION,'/'              * MULTIPLICATION AND / DIVISION,'/'              + ADDITION AND - SUBTRACTION).  FUNCTIONS ARE'/'              AVAILABLE, AND WILL BE EVALUATED FIRST.'/'0             VARIABLE NAMES ARE USED TO INDICATE VARIABLES.'/'              ALL CALCULATIONS ARE PERFORMED IN FLOATING POINT.'/'0             FUNCTIONS AVAILABLE:')('0             SQRT - SQUARE ROOT        SIN - SINE'/'              LN - NATURAL LOG          COS - COSINE'/'              EXP - EXPONETIAL          ARCTN - ARCTANGENT'/'              LOG10 - LOG BASE 10       ARCSN - ARC SINE'/'              ABS - ABSOLUTE VALUE'/'              FIX - TRANSLATE FROM OTHER TYPE TO FIXED'/'              FLOAT - TRANSLATE FROM OTHER TYPE TO FLOATING'/'              ALPHA - TRANSLATE FROM OTHER TYPE TO ALPHA'/'              RAN - RANDOM NUMBER GENERATOR'/'              NORM - NORMAL RANDOM NUMBER GENERATOR')('1----------'/'0SWITCH: VARIABLE, VAR'/'0PURPOSE: INDICATE VARIABLES TO BE USED IN AN INSTRUCTION'/'0COMMANDS POSSIBLE: CHANGE, DELETE, OUTPUT, PRINT, STDES'/'                    TYPE, SET'/'0DESCRIPTION: IF NO VARIABLE SWITCH IS GIVEN THE ENTIRE RANGE'/'              OF VARIABLES IS ASSUMED (VARIABLE 1 THRU LAST'/'              VARIABLE IN THE BANK).  THE VARIABLES TO BE'/'              ACTED UPON ARE LISTED BY VARIABLE NAME OR'/'              NUMBER (INDICATING ITS POSITION IN THE BANK).'/'              IF SEVERAL VARIABLES ARE SPECIFIED IN A SINGLE'/'              VARIABLE SWITCH, THEY SHOULD BE SEPARATED BY'/'              COMMAS.  RANGES OF VARIABLES MAY BE SPECIFIED'/'              BY LISTING THE FIRST VARIABLE OF THE RANGE, A'/'              -, AND THE LAST VARIABLE OF THE RANGE.  MORE'/'              THAN 1 VARIABLE SWITCH MAY BE USED IN AN'/'              INSTRUCTION')('0----------'/'0SWITCH: OBSERVATION, OBS'/'0PURPOSE: DEFINE OBSERVATIONS TO BE USED IN AN INSTRUCTION'/'0COMMANDS POSSIBLE: CHANGE, DELETE, CREATE, OUTPUT, PRINT,'/'                    TYPE, STDES, SET, ='/'0DESCRIPTION: IF NO OBSERVATION SWITCH IS GIVEN THE ENTIRE'/'              RANGE OF OBSERVATIONS IS ASSUMED (OBSERVATION 1'/'              THRU LAST OBSERVATION IN THE BANK).  THE'/'              OBSERVATIONS TO BE ACTED UPON SHOULD BE LISTED'/'              BY OBSERVATION NUMBERS, AND SEPARATED BY COMMAS.'/'              RANGES OF OBSERVATIONS MAY BE SPECIFIED BY'/'              LISTING THE FIRST OBSERVATION  OF THE RANGE, A -,'/'              AND THE LAST OBSERVATION IN THE RANGE.  MORE'/'              THAN 1 OBSERVATION SWITCH MAY BE USED IN AN'/'              INSTRUCTION')('0----------'/'0SWITCH: DEVICE, DEV'/'0PURPOSE: DEFINE OUTPUT DEVICE, AND FILE NAME (IF NECESSARY)'/'0COMMANDS POSSIBLE: OUTPUT, SET'/'0DESCRIPTION: IF NO DEFINE SWITCH IS USED, DSK:OUT.DAT IS'/'              ASSUMED.  THE DEVICE TO BE USED FOR OUTPUT (LPT,'/'              DSK, DTA, ETC.) IS SPECIFIED AFTER THE SWITCH.'/'              IF THE DEVICE IS A DIRECTORY DEVICE IT MAY BE'/'              FOLLOWED BY A : AND THE NAME OF THE FILE.'/'              IF NO NAME IS GIVEN FOR A DIRECTORY DEVICE,'/'              OUT.DAT IS ASSUMED.  ONLY 1 DEVICE SWITCH MAY BE'/'              USED IN AN INSTRUCTION')('1----------'/'0SWITCH: MATCH'/'0PURPOSE: INDICATE VARIABLES TO BE MATCHED FOR MERGING'/'0COMMANDS POSSIBLE: MERGE'/'0DESCRIPTION: IF NO MATCH SWITCH IS SPECIFIED, NONE IS'/'              ASSUMED.  THE MATCH SWITCH IS FOLLOWED BY ONE'/'              OR MORE VARIABLE NAMES SEPARATED BY COMMAS.'/'              UP TO 20 VARIABLES MAY BE SPECIFIED PER'/'              INSTRUCTION.  THE VARIABLE NAMES SPECIFIED MUST'/'              APPEAR IN BOTH BANKS.  MORE THAN 1 MATCH SWITCH'/'              MAY BE USED IN AN INSTRUCTION.')('0----------'/'0SWITCH: SELECT, SUBSET'/'0PURPOSE: CONSIDER ONLY THOSE OBSERVATIONS MEETING USER'/'          SPECIFIED CRITERIA'/'0COMMANDS POSSIBLE: CHANGE, DELETE, OUTPUT, PRINT, STDES,'/'                    TYPE, SET, ='/'0DESCRIPTION: IF NO SELECT SWITCHES ARE USED, NONE ARE'/'              ASSUMED.  THE SELECT SWITCH CONTAINS THREE BASIC'/'              PARTS: VARIABLE, CONDITION, AND VALUE TO BE'/'              COMPARED AGAINST.  THE VARIABLE MAY BE SPECIFIED'/'              BY EITHER THE VARIABLE NAME, OR THE NUMBER'/'              INDICATING ITS POSITION IN THE BANK.  THE'/'              CONDITION MAY BE ONE OF THE FOLLOWING:'/'0             CONDITION   MEANING'/'0             =           EQUAL TO'/'              <           LESS THAN'/'              >           GREATER THAN'/'              <= OR =<    LESS THAN OR EQUAL TO'/'              >= OR =>    GREATER THAN OR EQUAL TO'/'              <> OR ><    NOT EQUAL')('0             THE VALUE TO BE COMPARED AGAINST MUST BE OF THE'/'              SAME TYPE AS THE VARIABLE IT IS COMPARED WITH.'/'              IN USE, THE SELECT LIMITS THE OBSERVATIONS'/'              CONSIDERED TO THOSE WHICH MEET ALL THE USERS'/'              SPECIFICATIONS.  NO SPACES ARE ALLOWED IN THE'/'              SELECT.  UP TO 20 SELECTS MAY BE SPECIFIED IN'/'              AN INSTRUCTION')('1----------'/'0SWITCH: FORMAT, FMT'/'0PURPOSE: SPECIFY AN OUTPUT FORMAT'/'0COMMANDS POSSIBLE: OUTPUT, SET'/'0DESCRIPTION: IF NO FORMAT SWITCH IS USED, A FORMAT WILL BE'/'              GENERATED BY THE PROGRAM.  THE FORMAT SWITCH IS'/'              FOLLOWED BY THE FORMAT ENCLOSED IN PARENTHESIS.'/'              THE FORMAT MAY BE UP TO 240 CHARACTERS LONG AND'/'              MAY EXTEND BEYOND ONE LINE.  FORMATS SPECIFIED'/'              MUST AGREE IN TYPE WITH THE VARIABLES TO BE'/'              OUTPUT.  ONLY ONE FORMAT SWITCH MAY BE'/'              SPECIFIED IN AN INSTRUCTION.')('0----------'/'0SWITCH: CONSTANT, CON'/'0PURPOSE: INDICATE A CONSTANT VALUE'/'0COMMANDS POSSIBLE: CHANGE'/'0DESCRIPTION: IF A CONSTANT SWITCH IS NOT USED, IT IS ASSUMED'/'              THE USER WILL TYPE IN THE NEW DATA.  THE'/'              CONSTANT SWITCH IS FOLLOWED BY THE CONSTANT TO'/'              BE USED.  THE TYPE MUST AGREE WITH THE VARIABLE'/'              TYPE.  TO INDICATE MISSING DATA   MISSING   MAY'/'              BE USED.  ONLY ONE CONSTANT SWITCH MAY BE USED'/'              PER INSTRUCTION.')('0----------'/'0SWITCH: BANK'/'0PURPOSE: SPECIFY A BANK'/'0COMMANDS POSSIBLE: MERGE'/'0DESCRIPTION: BANK SWITCH MUST BE USED WHERE NECESSARY,'/'              OTHERWISE AN ERROR WILL OCCUR.  THE BANK SWITCH'/'              IS FOLLOWED BY THE NAME OF A BANK, WITH OR'/'              WITHOUT THE .BNK EXTENSION.  ONLY ONE BANK'/'              SWITCH MAY BE USED PER INSTRUCTION.')('1----------'/'0SWITCH: INFORMATION, INFO'/'0PURPOSE: NOTIFY PROGRAM THAT VARIABLE NAMES, TYPES, AND'/'          DESCRIPTIONS ARE TO REPLACE OUTPUT OF RAW DATA.'/'0COMMANDS POSSIBLE: PRINT, TYPE'/'0DESCRIPTION: IF NO INFORMATION SWITCH IS SPECIFIED, VARIABLE'/'              NAMES, DESCRITIONS, AND VARIABLE TYPES WILL'/'              NOT BE OUTPUT.  IT IS NOT NECESSARY TO PROVIDE'/'              ANY ADDITIONAL SPECIFICATIONS WITH THIS SWITCH.'/'              WHEN AN INFORMATION SWITCH HAS BEEN GIVEN'/'              OUTPUT OF ACTUAL DATA WILL BE SURPRESSED.  ONLY'/'              ONE INFORMATION SWITCH MAY BE GIVEN IN AN'/'              INSTRUCTION.')('0----------'/'0SWITCH: IDENTIFICATION, ID'/'0PURPOSE: ALLOW USER TO ALTER NAMES, AND DESCRIPTIONS'/'0COMMANDS POSSIBLE: CHANGE'/'0DESCRIPTION: IF NO IDENTIFICATION SWITCH IS SPECIFIED, NONE'/'              IS ASSUMED.  THE IDENTIFICATION SWITCH DOES NOT'/'              REQUIRE ANY ADDITIONAL INFORMATION.  WHEN THE'/'              USER IS INSTRUCTED TO ENTER THE NEW'/'              IDENTIFICATION, THE VARIABLE NAME MUST APPEAR'/'              IN THE FIRST 5 COLUMNS FOLLOWED BY A ; AND THE'/'              DESCRIPTION.  ONLY ONE IDENTIFICATION SWITCH'/'              MAY BE USED PER INSTRUCTION.')('0----------'/'0SWITCH: MAJOR-TO-MINOR, MTM'/'0PURPOSE: INDICATE THE MAJOR TO MINOR SORT VARIABLES'/'0COMMANDS POSSIBLE: SORT'/'0DESCRIPTION: IF NO MAJOR-TO-MINOR SWITCH IS USED (WHERE'/'              NECESSARY), AN ERROR WILL OCCUR.  THE MAJOR-'/'              TO-MINOR SWITCH IS FOLLOWED BY 1 TO 20'/'              VARIABLES, SEPARATED BY COMMAS, AND INDICATED'/'              BY VARIABLE NAMES OR NUMBERS.  THIS LIST OF'/'              VARIABLES INDICATES THE SORT SEQUENCE, THE FIRST'/'              VARIABLE IN THE LIST BEING THE MOST MAJOR, THE'/'              LAST IN THE LIST BEING THE MOST MINOR.  ONLY 1'/'              MAJOR-TO-MINOR SWITCH MAY BE USED IN AN '/'              INSTRUCTION.')S    B    .    TABLEDSK  +    E    <    (    STOP ~9    (K    N    HELP(0    @    ALL  -    >    *    TRANS~`F    ;    Z    '    I    OBS  !    O    R    A    }SET  HELP /    XDTA  0DTA9 ,    =    )    P:    hEMPTYX7    M    p          LPT  DSK  SEQINOOPS HELP HELP.DAT  S;$\X \+_ p @ $ Do $
 D"$.s&$>.$$s.$ Dk@dw D D5 D Dm D D@f D F DJ DJ DK Dw D D D/ DH  F Da (1D+,(!$3D+,$ <9<,JW7da+,! <9a,"a $ F~ Dv <9d,
:v;1~+,,*<9f,,@da+,% <9i,, <9,
 $ D!$3D+,h )2D+m+,4 *2D+q+,4 *2D+r+,4 +3D+}+-U +3D+-U +z +} Fc*d,5 $ Dv!$ D )3D+t+6W )3D+j+6r  )3F+}+,N )3F+q+, )3Fr+,N0D+,D +2F+x+,D ,3F+w+,J )2F+w+,G (2F+e+7 v0f+,J ) Hc:v:1d
+,; <9q,,+, <9t, +z_D|ZDv v <9x,
:v; |+,P, :2D+t3D+i+8%"o $ Dv v T2H:+,e Dq0D1D+,h0D1D+,h0D1D	+,h0D
1D+,h v2Hr+,c v3Hr+,h <9y,,+,:v8&,W <9|, <9,
+,  )3F+q+, )3Fr+,o )2F+}+-V:1f(+,h+, :3D+s+-S6Dw+,y K Dw"w $ ( 
 K J w ( 
 K J w.$8&,t6D5+-  D54D-"5 $ (. 
  J 3 (. 
  J 3 (. 
  J 4 (. 
  J 4 (. 
  J 5.$8&,| +m_DyZDv +m &
$v.& 0 H]*d-
:v; y+-6D+- q0$0d+-+- j D" $ ( 
 i J  ( 
 j J .$8&-+- $ D.s D $.s D $2D/2D+-$ +s  F/*d-! $ D/ 1$+-S".& $ F
 D.$ D"&/.  F
 Dv(.( 3f+-8 +| (.&  F
v(
.* 
( J  v(.( F *d-/:v; 
+-,:; 
+-( $ D (  Dv (2$+-B:2&+-S+-< ( 3dv+-G (  F $.2$+-R $. D /  F	 Dv +| v(.&  H*d-M:v; 	+-M>2d+-< q D+9: $ D+9: +z +} Fc*d-W $ Dv  )3F+}+-a )3F+y+-c v0f+-` ) Hc:v:1d(+-Y <:,,+, <:, +z_D<ZDv v <:,
:v; <+-f,:" $ Dv v D3D=+-q:v8&-k <:	, <:
,
+, $$v.q,'1D+-| <:
  )3F+}+,h )3Fr+,h:1d(+-w+,6bv0b
+.
+-~4.y4.y4.
4.
4/y4/y40040l40l42V42V44!44!43!44w44w44|44|44}44}45[45]45x45x@dA $ D +x +} Fc*d.
 $ Dv  )3F+}+. )3F+w+. )3F+k+. )3Fr+. )3&+i+. )3f+f+. <:,,+, v0$+.  ) Fc:v:1d(+. v0d+.(7DA+.$ <:,,+,  )3D+}+,h <:,,+, f2D+}+.."& $ c Hc/$8&.* +} Dc+.( <:, +x_D"ZDv v <:,
:v; "+.0, <: ,	 <:$,
 q1d1$+.8+.; ?2ds+.q1$+.t+.= ?3ds+.v $3DA+.X.d1d+.B <:%,,+, ( ? F 0d(+, )2F+k+.I: $ DA+.
  )2D+w+.N: (  F+.
 ()2D+}+.S:(( 0F+,h 2)3Dr+.V,<9<,H+( 2F+,h:( ? F2(:3f+.b (  D
  )3Dr+.q <9<,H+,h <:+, <:.,
+, <:0, <:3,
+, <:5, <:8,
+,@dA $ Dw +z +} Fc*d.{ $ Dv@dm  )3F+}+/ )3F+w+/ )3F+k+/ )3Fr+/7&)+/	 )2f+f+/	 &2Fv+/	 & Fm v0f+/
 ) Hc:v:1d(+.~ v0d+/7DA+/ <:9,,+, 0d'+,h )3F+}+,h <:<,,+,7Dm+/) e2D+}+/"& $ c Hc/$8&/ +} Dc+/ <:?, +z_DZDv v <:C,
:v; +/!, <:D,	 <:H,
 ?3ds1$+/B+/E@d8 <:I, +z_DTZDv v <:M,
:v; T+/,, &/s&&/& $ FS Dv&$ &.k. Fm <:N, <:R,
 +xZDD D$&	 q2F8+/="&.v.D F?+/E*d/8 $.dv; S+/3 <:T, <:W,
+, <:Y, <:\,
+, $3DA+/`.dw1d
+/J(<:],,+,(w( ?0Fw+0d(+,+)2F+k+/Q:+$ DA+.z2+)2D+w+/V: w(+w:Fw+.z+ )2D+}+/[: w(+w Fw+,h+ )3Dr+/^+<9<,H w( w Fw+,h w( ? Fw3w( w3fw+/j w(+w Dt0f+0	 ) Hc:t:1d(+0+0) t0d0$+0
:v; B+0,: 3D+b+02d+u2$+v+0+0+,h 0d(+,h )3F+}+,h )3Fr+,h +v +} Fc*d0 $ Dt  )3Fr+0) )3F+}+0) t0f+0( ) Hc:t:1d(+0! <:n, +v_D?ZDv v <:r,
:v; ?+0,,+,h +z +} Fc*d00 $ Dv  )3F+}+0< )3F+w+0< )3Fr+0< v0f+0; ) Hc:v:1d(+03 v0$+0C 0d'+,h )3F+}+,h <:s,,+,@d8 <:v, +z_DsZDv v <:z,
:v; s+0F, 83D+p+0^ &/s&&/& $ Fr Dv&$ &.k. Fm <:{, <:,
 +xZDD D$&	 q2F8+0Y"&.v.D F?+0^*d0S $.dv; r+0N <;, <;,
+,Od? 1$
+0b <;,,+,: ? F  )3F+}+,h  )2D+w+0h:+00  )3Dr+0k <9<,H+,h:m@d D< D D> Dm Ds +z +} Fc*d0p $ Dv  )2f+f+0v )2&+i+0{ )2f+n+0y )2&+r+1 <;	,,+, $ Dm+1:1d(+1 <;
,,+,  )3F+w+1 )3F+d+1 )3F+k+1 )3F+}+0~ )3Fr+0~ m0F+1 )2f+f+1
 )2&+i+1 <;,,+, v0d+0|  ) Fc:v+0|7Dm+1 e2D+}+1"& $ c Hc/$8&1 +} Dc+1 <;, +z_DoZDv v <;,
:v; o+1,7Dm+12 <;,	 <;,
 ?3ds+1& <;,,+,6d?+1( <;,,"$.?&$ D &.k. Fm"$&.? F <;", <;%,
$&	 u Dz+1G &/s&&/& $ Fn Dv&$ &.k. Fm <;(, <;+,
 +xZDD D$&	 q2F8+1B"&.v.D F? D$&	 u Fz+1G*d1; $.dv; n+16 <;., <;1,
+,  )2D+d+1N7D<+1L <;2,,+, $ D<+1Z  )2D+k+1T7D+1S <;5,,+, $ D+1Z  )2D+w+1^7D>+1Y <;8,,+, $ D>:1d(+1G <;;,,+, <..> D5D1a <9<,H  )2F+{+1h )2F+o+1h *2F+_+1h *3F+_+2%@d; +p +} Fc*d1i $ Dv2Dz+1p  )3F+o+2 <;>,,+,  )3Fr+2 &3Fz+2	 )3H+w+2 )3H+n+2 )3H+}+2 )3H+a+2
 )3H+d+2
 )2H+k+13Fv+2
 (3H+d+2
 )2h+f+2 )2(+i+2
 (2H+w+2 <;A,, (3H+w+2 <;D,,+,  )2D+o+2
:+2 v0d+2  ) Fc:v:1d(+1p <;G,,+, z1D+1n j2D+}+2"& $ c Hc/$8&2 +} Dc+2 <;J, <;N,
 z1D+2$1D+2! <;P,	 <;T,
+24 <;U,	 <;Y,
+24 8 D;+24 : D; 0D1D+2* <;Z,,+, $.D 0d(+24 )3Fr+24 )3F+}+24 )3F+w+24 )3F+n+24:+2+7Ds:5 5(.5 m H3 5(.5 ? H3 5(.5  H4 5(.5 ( H45D2A 5(.5@j5 5(.5.h5 5(.5 51f
+2H <;],,+, 5(.5 5$$
.5 ; F] $ Ds  )2F+w+2S.d $3D+1a <;`,,+,  )2D+n+,h:+0l /0D+2Z <;c,,+, $ D/@dt D DA +s +| F/*d2]  )3D+e+2b <;f,,+, +z +} Fc*d2c $ Dv  )3Fr+3 &3FA+2{ )3H+}+3 )3H+e.f )2F+x+2{>5f2{:t1h+2r <;i,,+, v +x Fc t <;l, +z_DvZDv v <;p,
:v; v+2v,:+,h  )2D+o+3 $3DA+2 DA+3@dA v  ) Fc:v1d+3:t1f+3 <;q,,+, t <;t, +z_DuZDv v <;x,
:v; u+3
,=+z+}Fc*d3|$Dv:1d(+2e &3F(+3 <;y,, <9],
 $ D+2e A1D+3 <<,,+, <<,,+,7D+3$ <<,,+, +p +} Fc*d3$ $ Dv  )3F+}+34 )3F+a+34 )3Fr+34 )3F+34 v0f+32 ) Hc:v:1f(+3'+34 <<,,+, v0d+38 <<,,+,  )2F+a+3H )2F+`+3> *2F+h+3> *3F+h+3@ <<,,+, $.d )3F+3H )3F+}+3H )3Fr+3H <<,,+, v +a Fc +` Fc +h Fd +h Fd <<, +v_D
ZDv v <<,
:v; 
+3O,  )3Fr+4 )3F+}+4 +p +} Fc*d3V $ Dv.d  )3F+w+3n )2F+3_ <<,,+,  )2f+{+3b )2&+i+3e <<, <<",
+, v0d+3l  ) Fc:v:1d(+3Y <<#,,+, <<&,,+, v0d+3q <<),,+, f2D+}+3w"& $ c Hc/$8&3t +} Dc+3q <<,, <<0,
 <<2,	 <<6,
 +x +} Fc*d3| $ Dv.d  )3F+4 )2f+{+4 )2&+i+4 <<7, <<:,
+, v0d+4v:1d(+3 <<<,,+, <<?,,+, v0d+4 <<B,,+, f2D+}+4"& $ c Hc/$8&4 +} Dc+4 <<E, <<H,
 <<K,	 <<N,
: <9[,E7D}+,h <<P,,+, H0D+4% <<S,,+, $ DH@dH@dI DI D  )2F+{+4. )2F+o+4. *2F+_+4. *3F+_+4n +p +} Fc*d4/ $ Dv  )3D+o+4\  )2f+f+47 )2&+i+4D )3F+}+4I )2F+k+4; v1F+4D )3Fr+4I )3F+a+4@ <<V,,+,7D+4C <<Y,,+, $ D v0d+4H  ) Fc:v:1d(+43 v0d+4M <<\,,+, j2D+}+4S"& $ c Hc/$8&4O +} Dc+4M <<_, <<b,
 <<e,	 <<h,
 1D+4[ <<j,	 <<m,
+,hDH DI+,h:0d(+4> )3F+o+4d )3Fr+4> v0f+4\ ) Hc:v+4\ <<o, +z_DZDv v <<r,
:v; +4g,  )3D+o: $ DI+,h : DH : DI $ DI $.D 0d(+,h )3Fr+,h )3F+}+,h:+4r $ DJ+,h <<t, v <<w,
+, $ DJ+,h +z +} Fc*d4~ $ Dv@dm  )3F+}+5 )3F+w+5 )3Fr+5 )2F+k+5	 <<x,,+,  )3&+i+5 )2f+f+5 &2Fv+5 & Fm v0f+5 ) Hc:v:1d(+5 v0d+5 0d'+,h )3F+}+,h <<{,,+,7Dm+54 +zZDv v c3H+}+5# c2h+f+5! c2(+i+5# <<~,,+,*d5 e2D+}+5*"& $ c Hc/$8&5& +} Dc+5$ <=, +z_DZDv v <=,
:v; +5,, <=,	 <=
,
 ?3ds1$+/B+5N@d8 <=, +z_DZDv v <=,
:v; +57, &/s&&/& $ F Dv&$ &.k. Fm <=, <=,
 +xZDD D$&	 q2F8+5I"&.v.D F?+5N*d5C $.dv; +5> <=, <=,
+, 1$
+5Q <=,,+,: ? F  )3F+}+,h  )2D+w+5X:+4}  )3Dr+5[ <9<,H+,h $ DK+,h  )2f+f+5` )2&+i+5c <=,  <=!,
+,  ) Dc: )3F+}+5r )3Fr+5r )2f+f+5` )3&+i+5` ) Fd: )3Dr+5t )3D+}+5t <=",,+, c Dd +} Dc <=%, <=),
 <=+,	 <=.,
+,h +z +} Fc*d5y $ Dv@dm  )3F+}+6 )3F+w+6 )3Fr+6 )3&+i+6 )2f+f+6 &2Fv+6 & Fm v0f+6	 ) Hc:v:1d(+5| v0d+6 0d'+,h )3F+}+,h <=0,,+,7Dm+6. e2D+}+6"& $ c Hc/$8&6 +} Dc+6 <=3, +z_D
ZDv v <=6,
:v; 
+6, <=8,	 <=;,
 ?3ds1$+/B &.D&&.k Fm &/D&&$&.D F <==, <=@,
$&	 q H8 $&	 u Fx+6I@d8 <=C, +z_DZDv v <=F,
:v; +61, &/s&&/& $ F Dv&$ &.k. Fm <=H, <=K,
 +xZDD D$&	 q2F8+6D D$&	 u Fx"&.v.D F?+6I*d6= $.dv; +68 <=N, <=Q,
+, a1$+6M <=R,,+,:a ? Fa 8 Fb x Fc  )3H+}+,h )3Hr+,h )3H+w+6V <9<,H:+5x +z +} Fc*d6X $ Dv:1d+6^ <=U,,+,  )3F+}+6d )3Fr+6d v ) Hc:v+6Z v1D+6\ <=X, +z_DZDv v <=\,
:v; +6h, +fZDt t 83HQ+6o*d6l+6\ $ D 8 DQ+9: $ D(k *3D+}+7 *3Dr+7 +v +} Fc*d6w $ Dv $ D  )3F+}+7 )3Fr+7 )3F+7 v0f+7 ) Hc:v:1d(+6{ <=], +v_D!ZDv v <=a,
:v; !+7,  ) <9X,E $3D}+7 <=b,, D(+, <=e,+, <9W,G?@d(+, <9V,G? $1 D+9: v2Dr+7 v3Dr+7 <=i,,+, +l D: +e D +x D +w D +w D +c D +k D +t D +l D +} D $ D D@d <9S,FT ;0D+7P 82D+p3D+t+7R2D+e3D+j+7R3D+z+7R <9P,EN $2d~+7P2D}+73 ~ F+7U }0D1D+76+7P $.s D +z +} Fc*d78 <=l, <=o,
 <=q,	 +z_DZDD D <=t,
:D; +7>, +` Dc d2D+}+7G +y c Fb*d7D +} De+7B <=v, +z_DZDD D <=y,
:D; +7J, }1D+7U 8 D +7U <={,,+, <=~, <>,
+,  Dt:t0d(+7Z )3Fr+7Z )2F+}+7V $ DD <9H,?[7D}+86b}0b
+7i+747i47k47m47o47q47s47u47w47y47{47~4848484848	4848,+, <>,,+, <>,,+, <>,,+, <>,,+, <>, <> ,
+, <>", <>%,
+, <>&, <>),
+, <>+,,+, <>.,,+, <>1,,+, <>4, <>7,
+, <>8,,+, <>;,,+, <>>,,+, <>A,,+, <9E,FT"$.D ;0D1D	+8 <>D,H D ( H1D	+8" <9B,EN7D}+8 $.d}6D}+7] D ~ F $
 Dq+,h D@f 8 FE &
 Fq+,h 0 D :3D+t+8_ +uZD  )3F+x+8,*d8(+8/"&.  +} H).$8&8- <>E, +u_DBZDv v <>I,
:v; B+82, :2D+b3D+j+8h3D+w+93D+}+8\"o $ Dv v T3D:+8D:v8&8;" $ Dv v D3D:+8P:v8&8? <>J,,+,6bv0b
+8P+8F48k48k48k48n48n48n48q48t48t48t48t48w48z484848494949	49
6bv0b
+8\+8R4949494949494949 49 49$49$49'49'49*49-49-49,49,493493 $
 D +j D: <9A,GH <>M,, <>P,, <>S,, <>V,, <>Y,, :2D+j+, <>\,, :2D+j+, <>_,, :2D+j+, <>b,, :2D+j+, <>e,, :2D+j+, <>h,, :2D+j+, <>k,, :2D+j+, <>n,, <>q,, :2D+j+, <>t,, :2D+j+, <>w,, <>z,, :2D+j+, <>},, :2D+j+, <?,, :2D+j+, <?,, :2D+j+, <?,, <?	,, :2D+j+, <?
,,:2D+j+,<?,,:2D+j+,<?,,:2D+j+,<?,,:2D+j+,<?,,<?,,:2D+j+,<?,,:2D+j+,<?!,,:2D+j+,<?$,,:2D+j+,<?',,:2D+j+,<?*,,2D+j+,<?-,,:2D+j+,3D0+,<9@,G?<9=,;+,+Ap,~`,+c+a+axp,X8}~skX)8;)tD,9ERsk}X8}~skX)8;x1x2`k}+`+``}h)+g=h)+g=X0%(lX0&X0'X27$@()X0(P$:$cX0-X02$:X06P$=$cX0:(=X0>(D$TX0FX0KX0QP$8$cPW8$?X0XX0]X0b$?$sX0h$?X0n$sX0tX0zP$8$cP8$?P$8$cP1m@>zX0$8X0$?X0X0
X0X0X0X0X0!P$$cX0&X0,$)X02X06X0:P$8@cP=8$X0,$)X02X0>X0BP$8@cP=8$X0EX0IX0MX0RX0WP$8@cP]8(HP^8$IP$H$cX0~(DX0^X0zX0cP$8$cP8$?P$8$cP1m@>zX0$8X0iX0o$)X0uP$8$c$dPy8$aX0zP$8$cP8$?P1m@>zP$8$cP1m@>zX0$8X0yX0P$8$cP$k$cX0P2~+~Pk^+X0-P
 $P$ $cP$ $cX0
X0$8X0X0X0X0X0$X0)X0.X03X08X0:$}X0:$}X0:$}X0?X0DX0GX0:$}X0?X0LX0PX0Ux,P$:$)X0YX^>XWXs@X3X9(XbQX3@Xs1X$1XUWX,1X]fX?D3Xw8X!0nX"MX"k3X#BX#adX$EhX%-6X%dYX&=OX'.?> D?G+D ?3.?? ?4 F <DR,FT7d?1+@h0d+@7 <DO,EN6D?>+@+ ?3.?6 ?4 F+AR ?3.?6@f ?3.?@ ?0 F+AR ?3.?@ ?0 F ?3.??@f <DL,FT7d?1+@h0d+@F <DI,EN6D?>+@+ ?3.?6 ?4 F+AR ?3.?1 &1 F ?C.?F ?3.?@ (' H?I <DH,I @ ?3.?1 F ?3.?@ ?C.?F  F+AR ?F D?< <DE,FT ?F2d?5+@ ?10D1D	+@Y0D1D+@Y+@Q0D1D	+@[+@] ?3.?1 ( H0D1D+@+@a ?3.?1 ( H0d+@u <DB,EN6D?>+@+ ?3.?? ?4 F <D?,FT6d?1+@i $ D?G+D ?10d+@o <D<,EN6D?>+@+ ?3.?6 ?4 F+AR ?3.?6@f ?3.?@ ?0 F5FAR $ D?G+D ?3.?@ ?0 F ?3.??@f <D9,FT7d?1+@h0d+A <D6,EN6D?>+@+ ?3.?6 ?4 F+AR ?3.?1 0D+A ?C.?F ?3.?@ ?0 F ?3.?1 0D+A6D?0+A $ D?G+D ?3.?1 0D+A ?C.?F ?3.?@ ?0 F ?3.?1 &1 F ?3.?@ ?C.?F  F+AR ?F D?< <D3,FT ?F2d?5+@ ?10D1D+A0D1D+A+A0D1D+A +A" ?3.?1 ( H0D1D+A$+A& ?3.?1 ( H0d+A6 <D0,EN6D?>+@+ ?3.?? ?4 F <D-,FT7d?1+@h0d+A2 <D*,EN6D?>+@+ ?3.?6 ?4 F+AR ?3.?6@f ?3.?@ ?0 F+AR ?3.?@ ?0 F ?3.??@f <D',FT7d?1+@h0d+AA <D$,EN6D?>+@+ ?3.?6 ?4 F+AR ?3.?1 0D+AG ?C.?F ?3.?@ ?0 F ?3.?1 0D+AM ?C.?F ?3.?@ ?0 F ?3.?@ ?C.?F  F ?3.?1 &1 F ?3.?? ?C F <Dd, <Dh,
 <Di,	 <Dm,
 ?< D?G@d?21f+A\ $ D?2"$.?F/?</d?24DAs5dAf.$( D?E"(.?F/?E ?E .?@"
?2.
 
 L//$8(Ab+As"$.?F D?D ?D/&( ?D .?@"
?2.
 
' L/.$8&Ai $(/?2 D?C ?C/&( ?C .?@ 
?V J'.$8&Ap"?2.D?5"?2.D?6 ?<.?@ ?M F:?< ?:3F?V+A{.?@ ?: F:?< ?<.?@ ?: F:?<:?C1d1+B <Do,H ?G F?F:?31f
+B (+H?G+D6b?80b+B+B4@4@4@Q4A+?> D?F <D!,FT ?F2d?5+B3F?K+B! 3F?R+B! 3F?S+B! 3F?U+B! 3F?V+B! 3F?V+B! 3F?5+B! $ D?G+D>?>.?@ 3F?O+B% $ D?G+D"$.D?>"& $ F?; D?E.?D ?>.?@ 2F+BF ?E0D+B. $ D?G+D ?E0D+B2 ?>3$?2+B2 $ D?G+D ?E0D+B5 $ D?G+D $.?> D?B ?B/&( ?B .?@ 
' J'.$8&B8 ?@ ?V F'"$.?F D?A ?A/&( ?A .?@ 
' J'.$8&B@ ?@ ?V F'"$.D?6+?k:?E; ?;+B(>?>5dBJ & F?G+D"& $ F?8 D?E.?D ?>.?@ 2F+BT ?E0$0d+BQ+BV1D+BV & F?G+D:?E; ?8+BL+BG $.?> D?F <D,FT ?11D+B[ <Dp,H ?3.?1@f ?02D?Q+B` ?3.?1 * J'2D?S+Bc ?3.?1 * J'2D?T+Bf ?3.?1 * J'2D?N+Bi ?3.?1 * J'2D?N+Bl ?3.?1 * J'2D?J+Bo ?3.?1 * J'2D?L+Br ?3.?1 * J'2D?L+Bu ?3.?1 * J'2D?P+Bx ?3.?1 *	 J'2D?O+B{ ?3.?1 *	 J'2D?T+B~ ?3.?1 *
 J'2D?R+C ?3.?1 *
 J'2D?K+C ?3.?1 * J'2D?Q+C ?3.?1 * J'2D?P+C
 ?3.?1 *
 J'2D?M+C
 J' ?3.?12F'+C+(	 H?G+D <D,FT ?11D+C1 <D,EN+$2D?>+@+ ?3.?? ?4 H.?3.?61D+?3.?101H+C 0H+Cf.?3.??3$+Cf &	.F?G+D,?3.?1 0D+C%0?C.?F <D,I @,?3.?1 0D+C*0?C.?F <D,J @ ?3.?1 0D+C/ ?C.?F <D,Io @ ?3.?1 0D+C4 ?C.?F <D,J
+CS7$?0+CS ?C.?F ?0 F ?3.?1 0D
+CY6$?0+CY ?C.?F ?0"F ?3.?1 0f
+Ca 1&
+Ca ?3.??@f ?3.?@ ?0 F+Cf ?3.?1 &1 F ?3.?@ ?C.?F  F ?3.?? ?C F <Dq, <Du,
 <Dv,	 <Dz,
 $.?> D?<.?@ ?M F:?< ?:3F?V+Cs.?@ ?: F:?< ?<.?@ ?: F:?<"?<.?F F?2"&(.?F ?F .?@"
?2.
 
' L/.$8&Cx $(/?2 D?A ?A/&( ?A .?@ 
?V J'.$8&C"?2.D?6:?C1d1+D <D|,H:?31f
+?k ( H?G ?I ?6 Ap ?3 Ap ?C Ap ?; Ap ?3 Ap ?G Ap,~x?0x?0x?0x?0x?0x?0x?0x?0X?0?>?4?;?3X?@?F?0?1?DX?@?F?0?1?DX?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?Dp	?I?0X?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?0?>?4?;?3X?@?F?0?1?DX?@?F?0?1?DP?H?0$?CP?H?0@?:x?Wx?XP?H?0$?CP?H?0@?:x?Z(5A1)(I5)n5I~    9    0    OBS  PX#         m  \EG p @EE p BEE p BE@ p BEB p DE?@dEE DE@3@EK+F"EB.&&&/& $ FED DE@&$ &.E?. FE? <F, <F!,
 EKZDE> E>$&	 Dt2FEE+Ec"&.E@.E> FE@+F*dE^ $.dE@; ED+EY EL EM FE;*dEf <F$,	 <F',
 E<2DEL+F EM DE<2DE<+Eo & FEE+F E>2DEM+Et"& $ E; HE</$8&Eq+Eo ELZDEF EF E;3HEM+Ez E;3(EJ+F E;2hEI+F*dEt <F*, <F-,
 <F0,	 <F3,
 E@0$2dEB+F+F $ DEE+F E<2DEI+F EM DE< E>2DEM+F
"& $ E; HE</$8&F+F ELZDEF EF E;3HEM+F E;3(EJ+F E;2hEI+F*dF
 <F5, <F8,
 <F;,	 <F>,
"dE@+F EH DE@+F $ DEE+F $ DEE EG EE Ap EE Ap E@ Ap,~P1E?@>D}PEFEE@E<PEFEE@E<PEGEE$E@PEFEE@E<PEGEE$E@    (15A1)(F).    9    0    8     G>n	 \FP !p @FK p @F@ p @FA p @F@ !p @FM FR FS FFA*dFZ@dFK $ DFM@fFA F@.FK 3FFP DFA F@.FK 3&FQ+Fe 2fFQ+Fe $ DFA+Fq F@.FK 3DFI+G FRZDFN F@.FK FN.FM '2H+Fp FN FF@ FA0F+G &.FF@+G*dFh FA0D+Fz F@.FK 3&FQ+Fv 3fFQ+Fz F@.FK 3DFP+Fz $( DF@+G FM0d+F~ F@.FK  FFA:FM:F@1$(+Fe $ DF@ FA0D+G $	 DF@ <G, <G,
 FM0d+G"dF@@dFA+G
 <G,	 <G,
+GK DFA:F@ FP F@ Ap FA Ap F@ Ap,~PFNFK@FBPFOFK(FA!*G<**,^,~*x,> <G<*<G>  pZ@G2@@G2@@G3 Gs`|+G&Pw,~ "p h a`~+G+h  ``~+G,$Gs!G-dGt/"+G&P,~@@@ @@0@x@@@`edX91,>',>Zp @G2\`G1 <G2,,^,~SMI 1,>',G Gu BG2+GVMI 1,>',G Gw BG2+GVI5R1,>',G Gx BG2*\G`7ApX"Gy BG2/& pd"~l" BG2*\G`/& pd"~l"$ BG2*\G`/& pd"~l"
 BG2*\G`Sp*\G`/&Xp BG;@@G; Gz BG2*\G`/& pd"~l" BG2RFG1 <G2,+GEV4i91,>'+GnS,i@1,>'+Gn_,i@1,>'+GnK>21,>'+GnK>401,>'+Gn[<I71,>'
&Gz w @)@. 
"5BGo
&H,~`.
.4SEQIN^GtSEQOUT^GvRANDOM^GwSEQINOUTG;
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>'O@H?+HgR~@1,>'@@H?,>,>@6 w+H"H?0B+H
/#p!"X#p+H\p+Ha.9'1,>',>,>O@H?+H,>
6+ _4`H"`Q@,> <H@,,^,> <HC,
,^*bH+H%,> <HE,,^7@H?+H ,> <HH,
,^+H",> <HI,
,^Z5"H%,> <HK,
,^,7@H?,
,> <HL,,^,,> <HO,,^,> <HR,
,^(@qd1@,,
1@#+H30@*+H%,>j<HT,,^+H%,^,^,^,~('TTypeGtoRContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOP.pXH;pXH<pH>pjH>p'XH5X~H;p xCNM`1,>'#p2bHe+Hb"pp+ He4@H` @Hd,> <Hf,I,^ p BHd,> <Hf,Hk,^,~ He7ap"`,~+P
.I"TB#p@,~4BI+P
I#p+I  ,~>attempt to take SQRT of negative argKc3@ p p+I$Kc3K  ,I$ 
,~Kc3J  ,I$ ,~Kc3I  ,I$ ,~Kc3H4BI:5@I'5"I9+D
I&U ,~,>,># $)D/$@,>4dI1X $(F) + I15FI15"I/"` ,IH+I8#  ,> <I;,J,^@,> <I<,Io,^5&I8",^,^,^,~! ,~xxKc#@ p p+IHKc#K  ,IH @,~Kc#J  ,IH @,~Kc#I  ,IH @,~Kc#H4BIl5@IL5"IV+D
IKUI,~ DIk!$ @Ij BIk5"IS#`+ Ih,IS!"B,~+ IV(BdB+ IV5BIQ  Ik,~ +7`Ik+I`d +D
IZUI`d>@6IIj+IUIk`B"`+IU/Imid+Ia+D+I\U",ISIj+ IV+IP! ,~xKc1,>' p3"J
+It3bJ
+Iv+D
IsUI,~+D DJ FJ
@@J%"j"%J	)/;`:XDJ5fI}aF+I}.&@(|h&fJ JJ J JJDJ	@ J J
,~!t0@'"S'qf!um.	.#Y%!vyO^	RXC2|t(1,>'p4@J$@J,><J,,J,^J,~{e^bC2|p1,>' p5`J4@J$+P
J% J*,~  ,~ 0_i/X3 6P'M 5( bB W
R`@xJATTEMPTSTOTAKELOGOFNEGATIVEARGG?@1,>'pJTJT+J+J=g&t@1,>'3pJT+=+J=G?1,>'RpJU+J=g&p1,>'p BJS#`3bJR+JO DJUJU3bJV+JH%"(D?d$ "@($)B
8+ ,~@2    2    2    2    2    2    2    2    2    2    2    2    2    2    2    1    1    1    1    1    1    1    1    1    1    1    1    1    1    1    (' THE CONSTANT SPECIFIED IS NOT THE SAME MODE AS VAR:',A5)(G15.7)(I15)(3X,'OBS',1X,'VAR',3X,'OLD VALUE',8X,'NEW VALUE'/)(3X,'OBS',1X,'VAR',3X,A5,12X,'OLD VALUE',8X,'NEW VALUE'/)(3X,'OBS',1X,'VAR',3X,A5,12X,A5,12X,'OLD VALUE',8X,'NEW VALUE'/)(1X,A5,12X,'NEW VALUE'/)(1X,A5,12X,A5,12X,'NEW VALUE'/)('+',I5,1X,A5,1X,15A1,1X,'? ',$)('+',I5,1X,A5,1X,15A1,2X,15A1,1X,'? ',$)('+',I5,1X,A5,1X,15A1,1X,15A1,1X,15A1,1X,'? ',$)('+ ? ',$)('+',15A1,1X,'? ',$)('+',15A1,1X,15A1,1X,'? ',$)(80A1)(' VALUE MUST BE NUMERIC'/)(G)(I15)(' ALPHA VALUES MUST BE ENCLOSED IN QUOTES'/)(' VARIABLE ',A5,'? ',$)(125A1)(' NAME MUST BEGIN WITH A LETTER')(' ILLEGAL NAME')(' NAME "',A5,'" IS A RESERVED NAME')(' NO MISSING DATA SUPPLIED NOW')S    S    .    MISS (    STOP 9    N    0    ALL  -    Z    ;    '    I    I    0@OBS  !    /    HELP A    @,    =    )    G    XEMPTYXM    M              ERROReH1 \FK K(.K.$.a DDc FM DDW@dCj DD` J1D+JL"w $ ("
 w.*.
 w.JD`.$8&Fh 5.a.dD`1dt+Fo <K/,M5 &0j&D`/& FE21f>+Fs (> HE2 E2.& FDc@fDd@fDp & FDe &>.s&&>$s.& FD`"w $ FE1 DEy( w FD $.D&$.D` DEx &/D&&$&.D FE33DDp+G <K0, <K3,
 DDp 5.a.De$Dc &	$E3 . Fu 5.a.De$Dc &	$E3 3 Fu $2DH+G I1F+G (	$E35FG7J 3+G 
 31J+G0F+G (	$E33D 3+G <K6, (	$E3 <K9,
+K-:De:D Ey(3dw+F}:Ey; E1+F| $ DEy $>.s&$> DCa Ey(  DD.$>&$> DD`/$$$> DDp@dCl $.Cl2dE2+G6:Cl D/Dp FE3 D FDq:D Ey(3f +G3:Ey2hDn+G8( 
  JD $>.D&$> DDX3DD`+G) Ey( D F 51$+GJ"5 $ FE1 DDm/$$Dc DDp Dm(.Dm 3/$$Ca.$.D` DDn <K:, <K>,
"Cl $ .Dp 
E3 
(7 J u.$8&GE:Dm; E1+G< a1$+G["a $ FE0 DDm"&.5.Dm$Dc FDp a/&$Ca.&.D` FDn <K@, <KD,
"Cl $ .Dp 
E3 
(7 J u.$8&GV:Dm; E0+GM 5.a DEv"w $ FDo DDm( w FD"$.D$Ca.$.D` DDn <KF, <KJ,
 Dc$Ev DDp"Cl $ .Dp 
E3 
(7 J u.$8&Gg:Ev:D Dm(3dw+G`:Dm; Do+G^"Cl $ ( HD.$8&Gp 51$+H."Cl $ FEu DD $ DDm"$.Dm$Dc.D DEw Dm(.Dm 40D+H Dm(.Dm"5 $ DDe De$$
.Dm ]3DC`+H:De8&G Ew u3DC`+H" Dm(.Dm6b40b+H
+H4H
4H4H4H4H4H  Dm(.Dm"5 $ DDe De$$
.Dm Ew  u3H]+H(:De8&H+H" Dm Ew u3&g+H(+H" Dm Ew u3fg+H(+H" Dm Ew u2fg+H(+H" Dm Ew u2&g+H(+H" Dm Ew u2Fg+H(:Dm2d5+H&(.Dm 33F0+Gw D@fD+H,:Dm2d5+H,(.Dm 33F0+H(+Gw:D; Eu+Gv@dDd"Cl $ FEs DCa7FD+J/ & FEv.5.a FEx"&/D`.Ex Ex FEs DD a1$+I
 5$Dc.Ca DEw u2FC`+HD FU F^ FDX*dH< F] DDX FS DDY FL FDY FDZ DDZ FO DD[ FZ DD[+H` d.$6b0b+HI+HG4HI4HN4HW <KL, Ew <KP,
 <KQ,	 <KU,
+H` Ew <KW,	 F\_DErZDDm Dm <K[,
:Dm; Er+HQ, FT F^ FDX*dHU+H` <K\, Ew <K`,
 <Ka,	 <Ke,
 DX2DF^+H` FV DX FDX*dH] F^ DD_+H[ a1$+I
 $.5$Dc.Ca DEw u2FC`+Hn FU F^ FCa*dHf F] DCb FS DCb FL FCc FCc DCd FO DCd FZ DCe+I
 d.$6b0b+Hs+Hq4Hs4Hx4I <Kg, Ew <Kk,
 <Kl,	 <Kp,
+I
 Ew <Kr,	 F\_DE{ZDDm Dm <Kv,
:Dm; E{+H{, FT F^ FCa*dH+I
 <Kw, Ew <K{,
 <K|,	 <L,
 DX2DF^+I
 FV DX FDX*dI F^ DD_+I Dc$D u DDp Dc$D u DDW"$.D$Dc.Ca DEw &3FH+J%3FK+I9 u2HC`+I FU F^ FDe*dI F] DDe FS DDf FL FDf FDg DDg FO DDh FZ DDh+I9 $.Dp6b0b+I"+I 4I"4I'4I0 <L, Ew <L,
 <L,	 <L,
+I9 Ew <LyZDDm Dm <L,
:Dm; Ey+I*, FT F^ FDe*dI.+I9 <L, Ew <L,
 <L,	 <L,
 De2DF^+I9 FV De FDe*dI6 F^ DDl+I4 H1D+IL6DDd+IL6bDc0b+IA+I=4IA4IC4IE4IL4IH4IJ <L,,+IL <L , <L#,
+IL <L%, <L(,
+IL <L*, <L-,
+IL <L., <L1,
!$ DDd6bDc0b+IR+IO4IR4IU4IX4I[4I]4I` <L3, Ca <L6,
+Ib <L:, Ca <L=,
+Ib <LB, Ca <LE,
+Ib <LK,,+Ib <LN, <LQ,
+Ib <LT, <LW,
 <L[, <L^,
 Cl3DFV+J2 Cl2DF\+Ik Cm2DFS+Ik Cm2DFK+Ik Cn3DFK+J# Cl2DF]+In Cm3DF]+J, $3DDp+J DDm Dm Cl2fFO+It Cl2&FP+I| Cl3FF]+I~ Cl2FFL+Ix7FDp+I| Cl3FFQ0D+Iz+I| <L`,,+Ib:Dm1d+Ip7DDp+J Cs2DF]+J"& $ Cl HCl/$8&J F] DCl+I <Lc, FT_DDZDDm Dm <Lg,
:Dm; D+J,6DDp+J <Lh,	 Ew <Ll,
0D+J, <Lm,	 Ew <Lq,
+J, Cl3DFR+J <Lr,,+Ib $ DDm Dm Cl3DFR+J:Dm1d+J Dm F] FCl Ew <Lu, F[_DCkZDDm Dm <Ly,
:Dm; Ck+J,+J, Ew C` Fu+J,6DDp+J' Ew H Hu0D+J* Ew I Hu0D+J, Ew H Hu:D; Es+H7 Ca & FD:Ca; Es+H0 $ DDd"$.5.a DDm"w $ FCk DDm( w FD:Dm"$.D$Ca.$.D` DDn <Lz, <L~,
"Cl $ D0H+JB E3 
Dc$
Dm.
 
(u J 7.$8&J> <M, <M,
:D Dm(3dw+J7:Dm; Ck+J67DDd+K- Ey3d+G#+K- $>.s&$>$s.$ DD`"w $ FCi DDm( w FD"$.D&$.D` DEx $/D&$$$.D DE3 <M, <M
,
 <M
,$$	 <M,
 <M, <M,
 Dq3DFV+K- Dq3DF]+K' F\ F] FE|*dJb $ DCl Cl Dq3FF]+Jr Dq3FFR+Jr Dq3FFY+Jw Dq3FFQ+Jw Dq3FFZ+Jw Dq3FFY+Jw Dq3FFN+Jw Dq FE|:Cl1f+Je E}3$FX+Ju E}3dFQ+Jy <M,,+JS <M,,+JS $	$E3 <M, <M ,
 $	$E3$.3DFP+K] H.*dK	+K <M", $	$E3 <M%,
+JS Cl Dq3DFR+K:Cl1d(+K+K' $.Cl DEw"&/Cl.Ew Ew DEv Ev Dq2DFW+K <M',,+JS:Ev8&K $	$E3 <M*, $.Cl DEv"&/Cl.Ev Ev FDa DEv Ev <M-,
:Ev; Da+K$, <M/, <M2,
:D Dm(3dw+JS:Dm; Ci+JQ FK,~xF^P1Ex@>7X0E$ .P1Dn@>7P1Dn@>7P1Dn@>7PFD(uPF1D@DXPF1u(DXPFD$uPF1D@DXPFD(uPF1D@CbPF1u(CaPFD$uPF1D@CbPFD(uPF1D@DePF1u(DePFD$uPF1D@DeX0FX0F
$cX0F$c$cX0F$cX0F$c$cX0F$Dq$DW@DeX0F"$Dq$DW@DX@DeX0F&$Dq$DW@DX@Cb@DeX0F+X0F,@DXX0F.@DX@CbX0J2F1@(ClX0F2PF1D$ClPF5D(uPF5D$uX0F6PF1u$ClP1Dn@>7P1Dn@>7P1Ex@>7X0F:$.X0K-F=@>DqX0F>X0FAPF=.@E}X0FC$.X0FGPF=/$DqP1Ex@>7a.3@1,>'O@Mr+M9gR~@1,>'@@Mr,>,>@6 w+ME"Ms0B+MA!"A`X#p5@M>/#p!"X#p+ME\p+MEa.9'1,>',>,>O@Mr+ME,>
6+ _4`MN"`Q@,> <Mt,,^,> <Mw,
,^*bMK+MX,> <Mx,,^7@Mr+MS,> <M{,
,^+MU,> <M},
,^Z5"MX,> <M~,
,^,7@Mr,
,> <N,,^,,> <N,,^,> <N,
,^(@qd1@,,
1@#+Mg0@*+MY,> <N,,^+MY,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXMop XMpp Mqp Mrp XMiX~Mnp xDSK  AT   OUT.D~`}g&\ K D w DK4DH"w $ ( 
 w J K ( 
 w J K.$8&C+K $ DK DL s DL  Dj4DS" $ ( 
  J i ( 
  J j.$8&M+U $ Dj Dj s Dk 5 D4Dl" $ (. 
 3 J  (. 
 3 J  (. 
 4 J  (. 
 4 J  (. 
 5 J .$8&X >_D9ZD; > &
$&.; ] H0*dg:;; 9+g / D0D+q > / F*dn $ D 1D+v = D = D < D@d;+y  D $ D,~(10A1)B    .    K    ?A    0H     PROBLEM LOCATING PEROID  SEQOUT    DSK  BINARY    E=8 \A E F F8*dO <f,	 <i,
 EZD@ @ 83FB+W*dS <l, @ B F9 D F9 C F: <m, <p,
 <s, & F@ <x, <{,
 <~, <,
:@+^X<,\A,~P@t@9xFP@?@982P?^I~K^LClDP1c@@>zh2@>zh2a.3@1,>'O@B+gR~@1,>'@@B,>,>@6 w+"B0B+!"A`X#p5@
6+ _4`"`Q@,> <C,,^,> <F,
,^*b+(,> <H,,^7@B+#,> <K,
,^+%,> <L,
,^Z5"(,> <N,
,^,7@B,
,> <O,,^,,> <R,,^,> <U,
,^(@qd1@,,
1@#+60@*+(,>a<W,,^+(,^,^,^,~('TypeDGEtoContinue,XFtoDExit,T\Totrace.'/2HE*,$)(A1)(1H14A5/)(1HA5,1X,O6)PAUSESTOPC.pX>p(X?p Ap Ap X8X~>p x@(' NO ROOM - FORMAT  PLEASE SPECIFY YOU OWN FORMAT')(240A1)(' THE MACHINE SUPPLIED FORMAT IS: ',6A5/(1X,12A5))(' UNTERMINATED HOLERITH')(I5)(' THE ',A5,' VARIABLE ',A5,' CANNOT BE WRITTEN WITH AN ',A1,' FORMAT')DSK  E    FLOAT(    9    ALPHA0    LPT.SFIXEDTTY  F    '    qI    5    O    /    A    8,    D    )    G    X`     LPT  PL   SEQOUT    ERRORNO COMMA  PROBLEM IN FMT SEE DICK HOUCHARD   W&
 w.*.
 w.JD*.$8&F| 5.dD*1dt+G <J.,KR &0j&D*/& FE.1f>+G (> HE. E..& FE#@fE' & FE$ &>.s&&> FCb$s.& FD)"w $ (  w HCf (.Cf&(.D) HF4 */
Cf&*$*.
Cf JE.3HE'+G <J/, <J2,
 HE' 5.E$$E# *	$
E. 
(3 J u 5.E$$E# *	$
E. 
(. J u:E$:Cf 
(
3h(w+G.$8&G6D/+Gh $B DF8 2DFV+G) $$ DF8 FX F^ FD**dG* FS DD+ $ DE%@dE# $.5 DF4"&/D*.F4 F4 FE) DF5$E# u FCg5FG8 E% F] HD* $.DE#:E%+GD Cg0D+G> E% FZ FD* FY FD+ &.FE# &.FE%+GD Cg1D+GA <J%,KR E% FX FD* $.DE#:E% E#3dF8+GS"E% E% DCf Cf D*2HF[+GQ FZ HD* ( HE# E% 
 D*2JFX+GN *.JE# 
 D*2JF]+GS *.JE#+GS>Cf8&GG <J5,KR E% F[ FD*:E%1dv+GX <J6,,+J":F5; E)+G2 E% F\ FD* <J9, <J<,
"& $ DE% E% /2DF^+Ga>E%8&G^ <J?,"E% $ FE' DCf Cf <JB,
:Cf; E'+Gd,+I	 <JC,	 <JG,
"&x $x DCe Ce D*2DF^+Go>Ce8&Gl@dF5:F5 F52dCe+H! F[ZDE% E% F5  D*3HE4+Go*dGr F5 D*2FFW+H DCf:F53dCe+G{ <JI,,+J" F5 D*2FFW+Gx.$/Cf DE$ F5.$ DF3"&/Ce.F3 F3"E$. 
D*J.D*.$8&H"E$.DCeFCfFDF5+GpDF5D*3&FU+HCD*2fFT+H"&$EFE3FDCf.F52dCe+HEF[ZDE%DE%EF5.CfD3D*2HE4+H1F+H+Go*dHDF5.CfED*3&FU+HHD*2fFT+H:Cf;^E3+HH0 $ DE% E% F5 D* FE+:F5:E% D*3&FU+H8 D*3fFT+H2 E-2DF^+H>"& $ E+ HE+/$8&H; F^ DE++H8 <JL, <JP,
 <JR,	 <JV,
 F5 D*3DE7+HK"D) $ DE% E$ F5  D* HE8:E$0dx+Hi:E%8&HF+H# $.F5 DF2 $ DE/ F2 D*3FE7:E/ D*3FE7>E/7FE/+HS:F2+HM"&.F2 $.F52d+Ha"D) $ FCa DE% $.F5 DF1 F1/F2 F1 DCf E$ Cf  D* HE8:E$0dx+Hi:Cf8&H[:E%; Ca+HX F2 DF5+H#"$.E$ DCe7FCd+Hj"Ce $ E8 HD*.$8&Hf+H! <JW,KR+J" $ DCf.5 DE3"&/D*.E3 E3 DF5@dD( Cf E82HFZ+Hr ( HD( E82HFY+Hu ( HD( E82HFX+Hw ( HD( F5$E# 
D(3J u+I FS HD( F5$E# *2J u+H~ FT HD( F5$E# *2J u+I FV HD( <JX, F5$E# <J[,
+J":Cf3dCe+I ( HCf:F58&Ho $ DF5 F5(  DCf.$>&$> DD)/$$$> DE&@dCe $.Ce2dE.+I:Ce Cf/E& FCh:Cf F5(3f +I:F52h+I( 
  JCf $>.Cf&$> DD'3DD)+I F5( Cf F 51$+I/"5 $ FF7 DE%/$$E# DE& E%(.E% 3/$$Cb.$.D) DE% <J^, <Ja,
"Ce $ .E& 
Ch 
(7 J u.$8&I*:E%; F7+I! 5 DF2"w $ FF6 DE%( w FCf"$.Cf$Cb.$.D) DE% <Jd, <Jg,
 E#$F2 DE&"Ce $ .E& 
Ch 
(7 J u.$8&I;:F2:Cf E%(3dw+I4:E%; F6+I2"Ce $ ( HCh.$8&ID 51$+J"Ce $ FCg DCf $ DE%"$.E%$E#.Cf DF3 E%(.E% 40D+IW E%(.E%"5 $ DE$ E$$$
.E% ]3DC`+IY:E$8&IS F3 u3DC`+Iv E%(.E%6b40b+I`+I\4I`4Ih4Ik4In4Iq4It E%(.E%"5 $ DE$ E$$$
.E% F3  u3H]+I|:E$8&Ic+Iv E% F3 u3&g+I|+Iv E% F3 u3fg+I|+Iv E% F3 u2fg+I|+Iv E% F3 u2&g+I|+Iv E% F3 u2Fg+I|:E%2d5+Iz(.E% 33F0+IK Cf@fCh+J:E%2d5+J(.E% 33F0+I|+IK:Cf; Cg+IJ $.5 DE2"&/D*.E2 E2 FCd DE%/$$E# DF3"Ce $ .F3  u3HC`@hCh.$8&J	:E%; Cd+J"$.5 DD*"Ce $7HCh+J <Jj, (.5 HE1"*/
D*.
E1 E1 JCb HE%"(.E%$E#. <Jm,
:E%; Cb+J,.$8&J F53d+I
*<J),K,E)0D+J#@<J',;+J#+<J&,K,FP,~xE$`FRFQFQxE$PE$h^F`PxFaP1F4@>7xFbX0F9PxF?0@xD+X0F@(/PxF?0@xD+X0FEPF?Ch@E+PFHCh$D)xFdX0FI(D($ u(E8P1E%@>7P1E%@>7XE$0( u!*K
 BK*\K1Sp*\K1/&Xp BK
@@K
 KK BK*\K1/& pd"~l" BKRFK <K,+JnEV4i91,>'+K?S,i@1,>'+K?_,i@1,>'+K?K>21,>'+K?K>401,>'+K?[<I71,>'
&KK w @)@. 
"5BK@
&KQ,~`.
.4SEQIN^KESEQOUT^KGRANDOM^KHSEQINOUTK
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>'O@L+KVgR~@1,>'@@L,>,>@6 w+Kc"L0B+K^!"A`X#p5@K[/#p!"X#p+Kc\p+Kca.9'1,>',>,>O@L+Kc,>
6+ _4`Kk"`Q@,> <L,,^,> <L,
,^*bKh+Kv,> <L,,^7@L+Kq,> <L,
,^+Ks,> <L,
,^Z5"Kv,> <L,
,^,7@L,
,> <L,,^,,> <L ,,^,> <L#,
,^(@qd1@,,
1@#+L0@*+Kv,> <L%,,^+Kv,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXL
p XLXLX~L
p x@('1BANK ',A10/'0CONTAINS ',I5,' VARIABLES AND',I6,' OBSERVATIONS, CREATED ON ',2A5)(' PROJECT-PROGRAMMER NUMBER ',O6,', ',O6,' IS RESPONSIBLE',' FOR CONTENT')('0',2X,'VARIABLE'/' NAME',3X,'NUMBER',3X,'MODE',5X,'DATA DESCRIPTION')(1X,A5,2X,I4,5X,A5,4X,8A5)('1',2X,'OBS.',13X,'VARIABLES')(9X,5(3X,A5,4X))(' ',I6,2X,$)('+  MISSING   ',$)('+',G11.4,1X,$)('+',3X,A5,4X,$)('+',I11,1X,$)('+',I5,7X,$)(I9)(9A1)('+',3A1,'-',2A1,'-',4A1,1X,$)('+',8X,$)(1X)MISS FLOAT0    ALPHAFIXED8SOCSCX     ERRORigP \E* E+ DD$@dCd DD%"w $ ("
 w.*.
 w.JD%.$8&E5 5.dD%1dt+E< <Gn,Hd &0j&D%/& FDr1f>+E@ (> HDr Dr.& FD&@fD+ (>.s&(>$s.( HD%2FJ+EH3Fw2F+F2F5+F <Go, <Gr,
 x0H+EU x3Hs2F5+EU 0H+EU 2Hs+EU <Gu, <Gx,
 <G{, <G~,
6DK+EW <H,,"w $ FDq DD)( w FCe"$.Ce&$.$.D% DDy3DD++Ea <H, <H,
 DD+ $/Ce&$$$.Ce DDs 5.D&$D&$$	 3 Hx E, DD, Ds$$	 30D+El E- DD, Ds$$	 30D+Eo E- DD,"& $ DD& $	$Ds.D& .2DE/+Eu>D&8&Eq <H	, $	$Ds <H
,
 &/D& $ FDl DDx $	$Ds.Dx <H,
:Dx; Dl+Ez,:Ce D)(3dw+E[:D); Dq+EY J1D+Gl $2DK+F <H,, DD+ & FD) FD& DDu"w $ (  w HCe (.Ce&(.D% HDy3HD++F <H, <H,
 HD+"Ce&($(.Ce HDs5HF * JDs D) 
Ds$*	 
(. J u 
5.
D&$
D& 
Ds$,	 
03 L(x 
 u2JE.+F" 
Ds$*	 
(30J+F" 
5.
D& JDu:
D):D&1j+F,6HK+F+ <H, E/_HD,ZHD) D) <H,
:D); D,+F(, ( HD):Ce 
(
3h(w+F2*D)+F96DK+F9 <H, &/D) $ FD+ DCe Ce <H!,
:Ce; D++F6, $ DDz $>.s&$> DCc Dz(  DCe.$>&$> DD%/$$$> DD*@dCd $.Cd2dDr+FO:Cd Ce/D* FCe Ce FD,:Ce Dz(3f +FL:Dz2hD(+FQ( 
  JCe $>.Ce&$> DD$3DD%+FB Dz( Ce F 51$+Fc"5 $ FD* DD)/$$D& DD* D)(.D) 3/$$Cc.$.D% DD) <H", <H&,
"Cd $ .D* 
Ce 
(7 J x.$8&F^:D); D*+FU 5 DDx"w $ FDw DD)( w FCe"$.Ce$Cc.$.D% DD) <H(, <H,,
 D&$Dx DD*"Cd $ .D* 
Ce 
(7 J x.$8&Fo:Dx:Ce D)(3dw+Fg:D); Dw+Ff"Cd $ FDv DD) $2d5+G/ DCe"$.Ce$D&.D) DDx Ce(.Ce 40D+G Ce(.Ce"5 $ DD& D&$$
.Ce ]3DCb+G	:D&8&G Dx x3DCb+G& Ce(.Ce6b40b+G+G
4G4G4G4G4G!4G$ Ce(.Ce"5 $ DD& D&$$
.Ce Dx  x3H]+G+:D&8&G+G& Ce Dx x3&g+G++G& Ce Dx x3fg+G++G& Ce Dx x2fg+G++G& Ce Dx x2&g+G++G& Ce Dx x2Fg+G+:Ce2d5+Gh(.Ce 33F0+F{+Gh:Ce2d5+G/(.Ce 33F0+G++F{ <H.,,6DCc+G4 <H1, D) <H4,
 $ DDx.5 DDy"&/D%.Dy Dy FDt DCe/$$D&.D) DDx x2FCb+G? <H6,,+G_ D&$Ce x.$ DD*6bD*0b+GE+GC4GE4GH4GK <H9, Dx <H<,
+G_ <H=, Dx <H@,
+G_ Du3DCe+GU Dx x0&P+GP"x1&'+GR <HB, <HE,
+G_ <HF, Dx <HI,
+G_ <HK, Dx <HN,
 <HP,	 <HS,
 E. Dl2FE/+G] E, FDl*dGZ <HV, <HY,
:Dx1d+Gf Ce3FD%+Gf <H[,, <H^,, & FDx:Ce; Dt+G9:D); Dv+Fy Dz3d+F< <Ha,, E*,~xE0P1E+@>7X0Dz0t$7$8$9$9X0E$:$:X0E
P1Dy@>7X0E$.$Ce$D,$.X0EP1Dy@>7X0E$ uX0E$uP1D)@>7P1D)@>7X0E*X0E$D,X0EX0E(xX0E (xX0E"$xX0E#$xPE%D'$xPE%D'@DlX0E&@DlX0E*X0E)X0E*a.3@1,>'O@I"+HhgR~@1,>'@@I",>,>@6 w+Hu"I"0B+Hp!"A`X#p5@Hm/#p!"X#p+Hu\p+Hua.9'1,>',>,>O@I"+Hu,>
6+ _4`H}"`Q@,> <I#,,^,> <I&,
,^*bHz+I,> <I(,,^7@I"+I,> <I+,
,^+I,> <I,,
,^Z5"I,> <I.,
,^,7@I",
,> <I/,,^,,> <I2,,^,> <I5,
,^(@qd1@,,
1@#+I0@*+I,>C<I7,,^+I,^,^,^,~(' Type Gto Continue,.Xto&Exit,DT6Totrace.'/2H*,$)(A1)(1HF14A5/)(1HfA5,1X,O6)PAUSESTOP.pXIp XIp I!p I!p XIX~Ip x@TMP.DAT   (' ILLEGAL TO USE ALPH VARIABLES FOR CALCULATIONS')(I4,' OCCURANCES OF DIVISION BY ZERO - MISSING DATA')(I4,' OCCURANCES OF SQRT OF A NEGATIVE - MISSING DATA')(I4,' OCCURANCES OF LN OF NON-POSITIVES - MISSING DATA')(I4,' OCCURANCES OF LOG10 OF NON-POSITIVES - MISSING DATA')(I4,' OCCURANCES OF ILLEGAL ARCSIN - MISSING DATA')(I4,' PROBLEMS GOING FROM ALPHA TO FIXED - MISSING DATA')(I4,' PROBLEMS GOING FROM ALPHA TO FLOAT - MISSING DATA')(I4,' PROBLEMS GOING FROM NUMERIC TO ALPHA - MISSING DATA')(' VARIABLE: ',A5,' TRANSFORMED')(' VARIABLE: ',A5,' TRANSFORMED, MODE CHANGED FROM ',A5,' TO ',A5)(' VARIABLE: ',A5,' CREATED HAVING A ',A5,' MODE')n5IFLOAT A TRED BYALPHAANSFOFIXEDON - RMATIxPCREAT     iJ
6Q 6V 642F(,+7J D(,+7M:6V8(7F:6N 6Q , H64 D, 6Q7d8+7Y 6N1$+7V"6N $ D6V 6Q 6V 
 642J8+7U H8+7Y:6V8&7R:6N 6Q 8 H64 D8:6Q+7?"$.6Q D64 6Q7f+7_:6N  H64 F $>.s&$>$s.$ D6R@d63 6N1$+7v"6N $ 64 H6Q3H7-+7s/(&( H6h"
6h$*.
6Q J6\ *.
6R.j6h3J63+7o <:w, <:{,
 J63 (?$ *	$
6\j(5o J ;+7u (?$!* J ;.$8&7e  D6Q2ds+8/$&$ D6h"6h$&.6Q F6\ (.6R.H6h <:}, <;,
$&	d5o D54 6\$$	 5k D6W 6N1$+8"6N $ F6Z D6V$$?!&2F;+8 641$+8"64.& $ D6Q 6Q 82D6V+8 <;,,+:p 6Q ,2H6V+8 1H
+880H+8Z+8 2ds+:,D54 D6g@d6T 642$+8 $(?H ; H6T1&+8# 0H
+8! ( H6T 0H+8# ( H6T@d6N $2D6g+8( $3D6T+8( $ D6N 6g1D+8, $2D6T+8, $ D6N6D6g+8/ $2D6T+8/ $ D6N 6g0D+836D6T+83 $ D6N"$.s&$>.$ D6T"64 $ F6Y D6c 6N1$+8["6N $ F6X D6V 643F7-+8G 64/&$64.&.6c F6h <;, 72_D6WZD6Q 6V$$?.6Q <;
,
:6Q; 6W+8B,+8Y"$.6c$$> D6S &> F6f.6S3fs+8M"6S.s F6f"6f $ (?$6V. 
.
6S J |.$8&8N 6f1D>+8Y.$ D6b 6b/&? 6b (?$6V. 
5s J |.$8&8V:6V; 6X+8; 51$+8j"5 $ (.  3/($64.(.6c H6h <;, 72_H6_ZH6Q (?$.6Q <;,
:6Q; 6_+8d,.$8&8] /$$64.$.6c D6h <;, 72_D6^ZD6Q 6Q <;,
:6Q; 6^+8o,7D6N+90D+8y 72 4u3F5s+8xf4u F4u*d8u+9 6N0D+8~ 72 4u3F5s+8}F4u F4u*d8{+9 72 5s F4u*d8 72@f54*d9 $>$6c D6c/$> D6[" $ F6h D6b@f6_ F6a( 2f6c+9  6b( 3$6[+9 6b( 2d6[+9 $ D6_ 6b( 3$6c+9 $> D6a6D6_+9 6b( &./6[ F6_6D6a+9 6b( /6c.$> D6a 6_/&/6a 6_ ( H54.$8&9:6b; 6h+9"&> $ F6f D6Q7F54+9h7f5+9^ & F6V 6V(.6V 40D+9/ 6V(.6V"5 $ D6V 6V$$
.6V ]3D5s+92:6V8&9+ $?$6V.6Q *J3D5s+9U 6V(.6V6b40b+99+9549949B49F49J49N49R 6V(.6V"5 $ D6V 6V$$
.6V (?$6V.6Q  *J3H]+9Z:6V8&9<+9U 6V &?$6V.6Q *J3&g+9Z+9U 6V &?$6V.6Q *J3fg+9Z+9U 6V &?$6V.6Q *J2fg+9Z+9U 6V &?$6V.6Q *J2&g+9Z+9U 6V &?$6V.6Q *J2Fg+9Z:6V2d5+9h(.6V 33F0+9%+9h:6V2d5+9^(.6V 33F0+9Z+9%"6N $ D6V 6V$$?.6Q |3D5s+9f:6V8&9` 6Q D6X <:s,<+9h 6Q 5s F4u:6Q; 6f+9" /$$64.$.6c D6h <;, 72_D6dZD6Q 6Q <;,
:6Q; 6d+9o,:6c; 6Y+87 $2$7+9w <;, <;,
2$7+9z <;, <;",
2$8+9} <;#, <;&,
2$8+: <;(, <;+,
2$9+: <;,, <;/,
2$9+: <;1, <;4,
2$:+:	 <;5, <;8,
2$:+:
 <;:, <;=,
 6T2F6g+: <;>, <;A,
+:p 7. D6S 6T0F+: 70 H6S0F+: 71 H6S 6g1H1+:* D6U0H+: 70 D6U0H+: 71 D6U <;C, <;F,
  D6Q/$&$ D6h"6h$&.6Q F6\ (.6R.H6h <;H, <;L,
$&	 6T D5o <;N, <;R,
+:p <;T, <;W,
+: $1 D6g s$64.$ D6R $.s&$ D63"63 63 6R. H7- <;Y, <;],
 64.6R. H7- <;_, <;c,
/$8&:2 72 5s F5s*d:;"64 $ 6R. H7- <;e, <;i,
.$8&:> 64.d6R &.s&& F6U"
6U.*$* (.s. H6\2F63+:M.63 D7- <;k, <;o,
+:P 73 &	$& 74 H5k*d:N $	$6\   F5k $	$6\ 73 F5k $	$6\ 7/ F5l $	$6\ 7/ F5l $	$6\ 70 F5m $	$6\ 72 F5m $	$6\ 71 F5n $	$6\ $5n D7- <:r,Bj $	$6\@f5o 6R.6U D7- <;q, <;u,
 $2DK+:j2DL+:j L3Fs.dL:s <;w, <;{,
 s D5t <;}, <<,
+8 7,,~x7-h;6X6Tx6Qp6V6QP16h@>5tP16h@>5tX06iP16h$|P16h$ *JP16h$4uP16h$4uX06n$7X06t$7X06y$8X06$8X07$9X07$9X07$:X07$:X07$6WX07 $6W$6U$6SP16h@>5tP16h@>5tX07'$ $6SP17-@>5tP17-@>5tP17-@>5tP17-@>5tP17-@>5tP17.@>5tP17.@>5t@(' SYS PROB - CONTACT DICK HOUCHARD')(5A1)(F5.0)(I5) 0_P.    9    0    ] d-     #SC``X     Gd=  \< !p @< p @< p @<	 $ D<@d<:<  F<  H<1F1+<#6b<0b
+<5+<(4<54<54<74<54<V4<t4=4=54=T4=d4=y4>
4?;4?k4@4@ <@-,, <@ ,% <7D,+<<5d<> <", Q D<+<E < E D<+<E < ,$&?.<.< @ F< ,$&?.<!(2H+<Ef< F< <7D8+<J5d<L <"8 Q D<+<S < E D<+<S < 8$&?.<.< @ F< 8$&?.<!(2H+<Sf< F< < <@+,A, @Q+<# <7D,+<Z5d<\ <", Q D<+<d < E D<+<d < ,$&?.<.< @ F< ,$&?.<!(2H+<df< F< <7D8+<h5d<j <"8 Q D<+<r < E D<+<r < 8$&?.<.< @ F< 8$&?.<!(2H+<rf< F< < << FQ+<# <7D,+<y5d<{ <", Q D<+= < E D<+= < ,$&?.<.< @ F< ,$&?.<!(2H+=f< F< <7D8+=5d=	 <"8 Q D<+= < E D<+= < 8$&?.<.< @ F< 8$&?.<!(2H+=f< F< < << FQ+<# <7D,+=5d= <", Q D<+=! < E D<+=! < ,$&?.<.< @ F< ,$&?.<!(2H+=!f< F< <7D8+=%5d=' <"8 Q D<+=/ < E D<+=/ < 8$&?.<.< @ F< 8$&?.<!(2H+=/f< F<6D<+=3 <.< < F"9:7+@ < << FQ+<# <7D,+=:5d=< <", Q D<+=C < E D<+=C < ,$&?.<.< @ F< ,$&?.<!(2H+=Cf< F< <7D8+=H5d=J <"8 Q D<+=Q < E D<+=Q < 8$&?.<.< @ F< 8$&?.<!(2H+=Qf< F< < << FQ+<# <7D+=X5d=Z <" Q D<+=_ < E D<+=_ <.< < $&?.<.< @ F"9+@ <	0D+=bD< D< <.< < F"9+@ <7D,+=i5d=k <", Q D<+=r < E D<+=r < ,$&?.<.< @ F< ,$&?.<!(2H+=rf< F<7$<+=v < <@*,A @Q+<#:7 <.< < F"9+@ <7D,+=}5d= <", Q D<+> < E D<+> < ,$&?.<.< @ F< ,$&?.<!(2H+>f< F<7d<+>
 < <@),B' @Q+<#:8 <.< < F"9+@ <7D,+>5d> <", Q D<+> < E D<+> < ,$&?.<.< @ F< ,$&?.<!(2H+>f< F< < <@(,B @Q+<# <7D,+>"5d>$ <", Q D<+>, < E D<+>, < ,$&?.<.< @ F< ,$&?.<!(2H+>,f< F<7d<+>/ < <@',B  @Q+<# <.< < F"9:8+@ <7D,+>75d>9 <", Q D<+>@ < E D<+>@ < ,$&?.<.< @ F< ,$&?.<!(2H+>@f< F< < <@&,BO @Q+<# <7D,+>G5d>I <", Q D<+>Q < E D<+>Q < ,$&?.<.< @ F< ,$&?.<!(2H+>Qf< F< < <@%,BL @Q+<# <7D,+>X5d>Z <", Q D<+>a < E D<+>a < ,$&?.<.< @ F< ,$&?.<!(2H+>af< F< < <@$,@~ @Q+<# <7D,+>h5d>j <", Q D<+>r < E D<+>r < ,$&?.<.< @ F< ,$&?.<!(2H+>rf< F< <2$<2d<+>v < <@#,@h @Q+<# <.< < F"9:9+@ <7D,+>~5d? <", Q D<+? < E D<+? < ,$&?.<.< @ F< ,$&?.<!(2H+?f< F< < < FQ1&"FQ+<# <7D,+?5d? <", Q D<+?8 < E D<+?8 < ,$&?.<.< @ F< ,$&?.<7F+?8 ,$&?.<!(3H+?f< F<+?8 <@0,	 <@3,
@d<@d<"& $ F<
 <3F<+?, <3F<+?, <3F<+?, & F< <3(<+?) <3h<+?, <.< 
< J "9.f9+@:<
;< 7D<+?8 <	2D<+?4"& $ < H</$8&?1 < D<+?. <@6, <@9,
 <@<,	 <@?,
D< D< <d DQ+<# <7D,+?@5d?B <", Q D<+?i < E D<+?i < ,$&?.<.< @ F< ,$&?.<7F+?i ,$&?.<!(3H+?Lf< F<+?i <@A,	 <@D,
@d<@d<"& $ F<
 D<
 <3F<+?] <3F<+?] <3F<+?] & F< <3(<+?Z <3h<+?] <.< 
< J "9.f:+@:<
; <
+?Q7D<+?i <	2D<+?e"& $ < H</$8&?b < D<+?_ <@G, <@J,
 <@M,	 <@P,
 < < FQ+<# <7D,+?p5d?r <", Q D<+@ < E D<+@ < ,$&?.<.< @ F< ,$&?.<!(3H+@ ,$&?.<7F+@ <0$O+?~"1&'+@:: <.< < F"9+@@d< <@R, <@U,
+@
 <3$<3d<+@+@	D D<+?{ < D<+@
@d< <@W, <@Z,
 <@\,	 <@_,
 <2D<+@ < < F<*d@ < D<	+@ <@b, <@e,
	<z<FQ+<#<j<@",C@Q+<#@d<R<1<@!,C@<*d@<!&x@<FQ+<#<,~x<x<x<x<x<x<x<x<x<x<p<<X<<P<<@<P<<@<P<<(<P<<@<P<<@<P<<(<P<<$<P<<(<P<<@<P<<@<CNM`1,>'#p2b@x+@u"pp+ @x4@@s @@w,> <@y,A,^ p B@w,> <@y,@~,^,~ @x7ap"`,~+P
A'#p+A  ,~>attempt to take SQRT of negative argKc3@ p p+A7Kc3K  ,A7 
,~Kc3J  ,A7 ,~Kc3I  ,A7 ,~Kc3H4BAM5@A:5"AL+D
A9U ,~,>,># $)D/$@,>4dADX $(F) + AD5FAD5"AB"` ,A[+AK#  ,> <AN,B',^@,> <AO,B,^5&AK",^,^,^,~! ,~xxKc#@ p p+A[Kc#K  ,A[ @,~Kc#J  ,A[ @,~Kc#I  ,A[ @,~Kc#H4BA5@A5"Ai+D
A^UA,~ DA~!$ @A} BA~5"Af#`+ A{,Af!"B,~+ Ai(BdB+ Ai5BAd  A~,~ +7`A~+Ar`d +D
AmUA`d>@6BA}+AhA~`B"`+Ah/Bid+At+D+AoU",AfA}+ Ai+Ac! ,~xKc1,>' p3"B+B3bB+B	+D
BUB,~+D+DB)FB@@B%"j"%B)/;`:XDB5fBaF+B.&@(|h&fBBBB BBDB@ B B,~!t0'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>' p4@B7 @B&,> <B?,B',^B%,~{e^bC2|p1,>' p5`B+4@B7+P
B8 B=,~  ,~ 0_i/X3 6P'M 5( bB W
R`@xB&ATTEMPTfTOTAKELOGOFNEGATIVEARGG?@1,>'pBgBg+B+BPg&t@1,>'3pBg+=+BPG?1,>'RpBh+BPg&p1,>'ppBBf#`3bBe+BbDBhBh3bBi+B[%"(D?d$"@($)BB{)@
(@0$&$.$.&(D(F.. #p**,~.$D.&-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP1,>'DCFC	b	&"j0eDC&",DCSAo-&C)"B.C-&C[p(F{5FCBGQ @>,~%hg&(71,>' pd `1@ C+ @C&,~g6(71,>' C& Ap,~@(' NO MORE THAN 200 VARIABLES IN A PRINT INSTRUCTION')('1BANK - WMU',10X,A9,93X,'PAGE ',I5)('0BANK ',A10,10X,' CONTAINS ',I5,' VARIABLES AND',I6,' OBSERVATIONS, CREATED ON ',2A5/40X,O6,', ',O6,' IS ','RESPONSIBLE FOR ITS CONTENT')('0',2X,' VARIABLE'/' NAME',3X,'NUMBER',3X,'MODE',5X,'DATA DESCRIPTION')(' SOCIAL SECURITY NUMBER MAY ONLY BE LISTED ONCE IN PRINT')(1X,A5,2X,I4,5X,A5,4X,8A5)(132A1)(I9)(9A1)(133A1)S    .    FLOAT(    N    3    ~@0    ALPHAT    wX-    FIXEDI    '    5    2    A    D    `,    x@@X    )    G    SOCSCp7    M    h4         1    DSK  PRINT.DAT SEQOUT    ERRORPRINT.DAT aJMm \H <LW,P <LX, $ DE- $ DH/@dE. DDh"w $ ("
 w.*.
 w.JDh.$8&H 5.dDh1dd+I <L[,,+LJ $0j&Dh/$ DEy1d>+I &> FEy Ey.$ DDi@dE6 $ DE4 5 FE3 &>.s&&> FD&$s.& FDh <L^, <La,
.dH/ $ DE-3DK+I <Lc, <Lg,
 <Li, <Ll,
 &.FE- <Lq,, $.DE-"w $ FEx DE4( w FD' $.D'&$.Dh DH-:E33DE6+I) <Lt, <Lw,
 DE6 $/D'&$$$.D' DEz Di$E3$$	 3 Hu Di$E3 Ez$&	 . Fu Ez$$	 .2DHn+IB Ez$$	 30D+IB $.53DE3+IB $.5 DH- H-/E3 H- FEx DH+$Di u2FHn+I@ <Lz,,+LJ:H+; Ex+I< Ha DE7 $	$Ez 30D+IF He DE7 $	$Ez 30D+IJ Hg DE7 <L}, $	$Ez <M,
 Hl_DEwZDH+ $	$Ez.H+ <M,
:H+; Ew+IN,:E-3dE-+IY <M, <M,
 <M	,,:H/ & FE-:D' E4(3dw+I":E4; Ex+I! $3DJ+LG &.5/Dh7 .&(~/& $ FEw DH..$7 .$(~ DE3 H..$ DD'"5.Dh2$D'+Ik"5.Dh DD' Hk Hq FC`*dIl Hb DC` Hq DCa Hd DCa Hl FCb Hk HCb * JH+ 
H.0J+I} 
Hh JCa DCa JCb HCb Hg DCc Ho DCd HCd Hi DCe FCe HCf $ DH+"&.H./D' H. FE6 DE4.5$Di u FE35FJ
 H+ Hm HC` Hq HC` 
Hp JCa 
H` JCa 
Ho JCb 
Hk JCb HCc Hl HCc JCd (.HH++J4 E30D+J H+ Hh FC` Hl HC` 
Hk JCa 
Hi LCa FCb JCb FCc HCc JCd &.FH++J4 E31D+J <M
,O; 5.E4$Di u3DHn+J$ H+ Hg FC` Hq FC` Hc FCa Hk FCa Hi HCb Hl HCb FCc &.FH++J4 H+ Hi FC` Hc HC` Hk HCa 
Hh JCa 
Hf LCb JCb HCc FCc Hi NCd HCd JCe LCe JCf HCf FCg Hp FCg HCh FCh Hl FCi HCi &
.FH+:E4; E6+J H+ Hm FC_ $
$E3 <M,
@dDi $.dH.; Ew+Id <M, <M,
:H/ $ DE- &/5.Dh7 .&(~ FEv3DK+JG <LS,Mz $.Ev.DE- $ DH. H.(  DD'.$>&$> DDh/$$$> DE5 $ DD& D& D'/E5 FD( D' FE7:D' H.(3f +JV:H.2h+J^( 
  JD' $>.D'&$> DDg2DDh+J\:D&3fEy+JN"(.HD& H.( D' F 51$+Jo"5 $ FE5 DE4/$$Di DE5 E4(.E4 3/$$D&.$.Dh DE4 <M, <M,
"D& $ .E5 
D( 
(7 J u.$8&Jj:E4; E5+Ja 5 DH+"w $ FH* DE4( w FD'"$.D'$D&.$.Dh DE4 <M, <M!,
 Di$H+ DE5"D& $ .E5 
D( 
(7 J u.$8&J{:H+:D' E4(3dw+Jt:E4; H*+Jr"D& $ FH) DE4 $2d5+K< DD'"$.D'$Di.E4 DH, D'(.D' 40D+K D'(.D'"5 $ DE3 E3$$
.D' ]3DC`+K:E38&K H, u3DC`+K3 D'(.D'6b40b+K+K4K4K$4K'4K*4K-4K0 D'(.D'"5 $ DE3 E3$$
.D' H,  u3H]+K7:E38&K+K3 D' H, u3&g+K7+K3 D' H, u3fg+K7+K3 D' H, u2fg+K7+K3 D' H, u2&g+K7+K3 D' H, u2Fg+K7:D'2d5+LD(.D' 33F0+K+LD:D'2d5+K<(.D' 33F0+K7+K E-.Ev3dE-+KE <M$, <M',
:H/ $ DE-3DK+KE <LP,Mz $.Ev.DE- $.5 DH, H,/Dh7 .&(~/& H, FE{ DD' &/5.D'7 .&(~ FE3.$ DH23dDh+KQ Dh FH2@dE, DE3 DDg D'/&/H2 D' FEz DH+:Dg:E3@jD!/$$Di.E4 
u L D  D2DC`+K] $ DE, DD! J D Di$H+ u2DHn+K} Di$H+ u0D+K} <M), E3 <M,,
 <M.,	 <M1,
 Hq FD FD FD <M4, Hp_DD!ZDE5 E5 <M7,
:E5; D!+Kk, E3 <M9, Hn_DH3ZDE5 E5 <M<,
:E5; H3+Kr, E3 <M>, Hj_DH3ZDE5 E5 <MA,
:E5; H3+Kx, $.DE3:H+; Ez+KV Hd &
$E3.& Ep FD
*dK $3DE,+L.53DD'+L <MC,"E3 $ FH1 DE5 E5 <MF,
:E5; H1+L, $.52DD'+LA <MG, E4 <MJ,
"E3 $ FH1 DE5 E5 <ML,
:E5; H1+L,+LA Hf Hq FDi*dL $.53DD'+L  <MM,"E3 $ FH0 DE5 E5 <MQ,
:E5; H0+L, $.52DD'+L* <MR, E4 <MV,
"E3 $ FD( DE5 E5 <MW,
:E5; D(+L', <MY,	 <M\,
"&.D'/H2 $ D!0H+L>"(.$(.( HE3 
Hq J Di 
Ho L Dj 
Hg L Dj H_ N Dk N Dk L Dl 
Hc L Dl 
Hm L Dm J Dm 
Hj L Dn 
Hi L Dn He N Do L Do J Dp J Dp.$8&L. <M_, <Mb,
$.dD'; E{+KK Ev.DE-:E4; H)+K H.3d+JH <LO,Ny $.DH/ <LL,; H,~XHwHaH`H`H/x1Pv5DhDiDj1Pv5DhDiDj1xH.P1~Hr^Hs^HtX0H4X1H90H.$H/P1H`@>7X1H=0t$7$8$9$9$:$:X1HKP1H-@>7X0HSX1HY$.$D'$E7$.X1H90H.$H/X1HKxHvP<H\Eq@<C`X1H90H.$H/P1E4@>7P1E4@>7X1H90H.$H/PH]E|$DPH]E|@E.PH]D(E.PH]D(E.PH]D(E.X1D
(DX1D
$E7(DPBD
C`(DPBD
C`$E7(DPBH^C`@BDjX1H^@BDj(5A1)(133A1)(1X,7('-'),2X,24A5)S    .    B    0    wX-----O    SOCSC     PROBLEM   Q
L@\Mr!p@Mhp@MdpBMfpDMg%pDMfpDMgMd.$DMn"Mf.Mn7M.&(~/&MnFMlDMiMu&.MfMwH*dN$.MiDMe3dMf+NMe.Mh 2DMw+N!"$.DMh Me.Mh <NH,	"& Mh FMj DMm Mm.Mf <NK,
:Mm; Mj+N%,:Ml; Mk+N $.Md2DMi+N. Mf Mu F Me2DMf+N4 Mf Mv F Ms F Mr F Ms F <NM, <NP,
 $.dMi; Ml+N Mv DMm $ DMl Mf/Md0$+N> Mf/Md DMl Ml(.DMl <NR,"Ml $ FMj DMm <NU,
:Mm; Mj+NB, Mr,~xMxPMn$XMgMo@BMfXMgMp(Mm!*Nu**,^,~*x,> <Nu*<Nx  pZ@Nk@@Nl@@Nl O,`|+N_Pw,~ "p h a`~+Neh  ``~+Nf$O-!NgdO-/"+N`P,~@@@ @@0@x@@@`edX91,>',>Zp @Nk\`Nk <Nk,,^,~SMI 1,>',NX O/ BNk+O_MI 1,>',NX O0 BNk+OI5R1,>',NX O2 BNk*\O7ApX"O2 BNk/& pd"~l" BNk*\O/& pd"~l"$ BNk*\O/& pd"~l"
 BNk*\OSp*\O/&Xp BNt@@Nu O3 BNk*\O/& pd"~l" BNkRFNk <Nk,+NVEV4i91,>'+O'S,i@1,>'+O'_,i@1,>'+O'K>21,>'+O'K>401,>'+O'[<I71,>'
&O4 w @)@. 
"5BO)
&O:,~`.
.4SEQIN^O.SEQOUT^O/RANDOM^O1SEQINOUTNt
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>'O@Ox+O?gR~@1,>'@@Ox,>,>@6 w+OK"Oy0B+OG!"A`X#p5@OD/#p!"X#p+OK\p+OKa.9'1,>',>,>O@Ox+OK,>
6+ _4`OT"`Q@,> <Oz,,^,> <O},
,^*bOQ+O^,> <O~,,^7@Ox+OY,> <P,
,^+O[,> <P,
,^Z5"O^,> <P,
,^,7@Ox,
,> <P,,^,,> <P	,,^,> <P
,
,^(@qd1@,,
1@#+Om0@*+O,>,<P,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXOup XOvp Owp Oxp XOoX~Otp xI$P1,>' #p D F	b&".$&$7@"$  (@. &"* P )@
(@ $ &$.$.&(D(F..  #p**,~.$D.&-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-@(' SAMPLE CONTAINED NO OBSERVATIONS FOR THE ','RESTRICTIONS PLACED')(' SAMPLE TO LARGE FOR IN CORE SORT - DISK SORT',' WILL BE AVAILABLE SOON')('0')('1',2A5,6X,'BANK',19X,'W E S T E R N   M I C H I G A N','   U N I V E R S I T Y',23X,'PAGE',I5)('0',15X,'TAKEN FROM BANK: ',A10,5X,'CREATED ON: ',A10,5X,'BY PROJECT-PROGRAMMER NUMBER ',O6,', ',O6)(1X,132(1H-)/'0',1X,'VARIABLE: ',A5,4X,'NUMBER: ',I4,5X,'DESCRIPTION:',8A5,5X,'VARIABLE TYPE: ',A5)('0TO BE INCLUDED IN THE SAMPLE AN OBSERVATION',' MUST SATISFY THE FOLLOWING RESTRICTIONS:')(133A1)(50A1)(G)(I15)(I9)('0THERE WERE ',I6,' OBSERVATIONS, WHICH INCLUDED ',I6,' CASES OF MISSING DATA SELECTED FROM A TOTAL OF ',I7,' OBSERVATIONS'/)(' SUM OF OBSERVATIONS= ',G,14X,'SUM OF OBSERVATIONS',' SQUARED= ',G,6X,'NUMBER OF OBSERVATIONS= ',I7)(' MEAN= ',G,29X,'MEDIAN= ',G,27X,'MODE= ',G)(' MAXIMUM= ',G,26X,'MINIMUM= ',G,26X,'RANGE= ',G)(' MAXIMUM= ',A5,36X,'MINIMUM= ',A5)(' STANDARD ERROR OF MEAN= ',G,11X,'STANDARD DEVIATION= ',G,15X,'VARIANCE= ',G)(' COEFFICIENT OF SKEWNESS= ',G,10X,'COEFFICIENT OF VARIATION= ',G,9X,'KURTOSIS= ',G)('0',61X,'CUMULATIVE',10X,5(F5.1,5X))(12X,'VALUE',20X,'FREQUENCY',3X,'PERCENTAGE',3X,'PERCENTAGE',3X,'+---------+---------+---------','+---------+---------+')(9X,G,13X,I7,6X,F7.3,6X,F7.3,5X,'I',50A1)(12X,A5,20X,I7,6X,F7.3,6X,F7.3,5X,'I',50A1)(6X,I11,20X,I7,6X,F7.3,6X,F7.3,5X,'I',50A1)(1X,G,' -',G,4X,I7,6X,F7.3,6X,F7.3,5X,'I',50A1)(11X,A5,' - ',A5,13X,I7,6X,F7.3,6X,F7.3,5X,'I',50A1)(5X,I11,' -',I11,8X,I7,6X,F7.3,6X,F7.3,5X,'I',50A1)(37X,7('-'),31X,5('+---------'),'+')(37X,I7,38X,5(F5.1,5X))S    <    FLOAT(    N    ~@~8YLf3~@0    ALPHA-    >>    FIXED?'    I     8 tO    xR    A    D    ,    8@X    !!9=    )    G    9Lf3SOCSCM    !Y          DSK  SEQOUT    BINARY    SELECT.DATDSK  RANDIN    BINARY    SELECT.DATDELETE    gR$\` \K2 $& DH.@dH0" $ ("
 .*.
 .JH0.$8&KX $>.s&$> DGg <S,WH $2d5+Lb@fH0 <S, &/s&&>/& $ FI? DJ &> FHF.$>3ds+Kj $.s/J DHF@dHE K?@fGo*dKk" $ FI< DI( 3&J+L I( &>.J3&+L $ DHE DHB HF FI> I(./J3dHB+K| I( &./J FHB I( &./J2&I>+L I( &./J FI> HB/&/I> HB ( HGo.$8&L:I; I<+Kn7DHE+LX"5 $ *>.
J&*> (.  3/($Gg.(. HGb <S, K?_HI.ZHJ (>$.J <S",
:J; I.+L,.$8&L
"HF $ FI- DH@7FGo+LV & FI I(.I 40D+L& I(.I"5 $ DI I$$
.I ]3DG"+L):I8&L" $>$I.H@ 3DG"+LL I(.I6b40b+L/+L,4L/4L84L<4L@4LD4LH I(.I"5 $ DI I$$
.I (>$I.H@  3H]+LQ:I8&L2+LL I &>$I.H@ 3&g+LQ+LL I &>$I.H@ 3fg+LQ+LL I &>$I.H@ 2fg+LQ+LL I &>$I.H@ 2&g+LQ+LL I &>$I.H@ 2Fg+LQ:I2d5+LP(.I 33F0+L H@@fGo+LV:I2d5+LV(.I 33F0+LQ+L:H0:H@; I-+L <S$, <S&,
 $>.dJ; I?+Kf <S,U[ H00$+La <S(,, <S,U[+S <S+, H01$4^+Lg <S0,, <S,U[+S"w $ FIt DJ( w FI< &.I<&& s$Gg.$. DJ <S3, <S7,
 $/I<&$$$.I<.DGb$$	.G.& FHC Gb$$	 G,DHD KB &	$Gb.& G FGb*dLx@dH?@fI` FI, DIB" $ (   HJ (>.J&(> HI.3HJ+M
 51(+MC,
 J/HH HHM 
51*+M7J Go+M HM  G"2HG"+M:H?+M:IB 
HM 
(G" J C 
HC1J+M 
 C LGb0J+Ml C LGb 
GbLI`
LI,:J 
(
3h(+M.$8&L~ * JI JI; IB DI I;2$I+ML I; DH@.I7 .$( DI C FI@ I;2& C+M- 
 C JC F C C FI@ I DGg C2&I@+M: I C HC I@ HC C HI@ 
I;2((C+M: 
(C LC H(C C HI@+M: Gg H@ C HC H0 DC>Gg C2fI@+M: C FH0:H@ C3&I@+M=3dGg+M7"H@.I"I;.Gg3f+MG I I; HGg Gg HI DI;:I+MO I H@ FGg I FI Gg FI:I+MO>I4DM\ Gg FI; I FI I/I;0$+M$ I;1D+M#"$.DI;:I;3DI+ML D FI@2&C+MS DH@ H@ C FD>H@ C2fI@+MW I@ FD+MS IB1$+N	 HC1F+N	d I` FHH@dIc IB1$+Mi I`dI, IB/($IBh DIc <S,V @IC@dI>3DHH+Mn IC&HHH FI>fIB FK2 <S,V IC FI DHK DHB"IB $ C HGb HC0H+MwhC HGb 
Gb
HH HHK GbHHHHB.$8&MsfIB HK DHKhIB HB FHB@hId HHFhIB 
*}

Ic JJ4jN	 <S,V0 DId
 FHF!$3D+N+ $ DI D FGb &/IB $ DJ J C3HGb+N C HGb:I1h
+N * JI+N:J8&N $.DI HC1D+N $.DI 51$+N% &.FI@fI@"5 $ (.  5.HI@.$8&N7$5.$(.DI"5.dI@&$.DI I.dH.0d+N* &.FH. <SE,,+N0 $.I DH.: <SH, <SK,
 <SN, <SQ,
 K4 DH@ HC0D+N3 K9 FH@0D+N5 K; FH@ <ST, <SW,
 &2f5+P`,<S[,, FJ KH FHN FHO FHO FHP FHP & FIB@fHA FHD"5 $ (.  33H5+NE ( HHD.$8&NA J3D5+N](.J 32F5+N]7DHD+N] J1D+NO(.J 33F0+N] IB1d4+NX <S^,"IB.& $ FJ
:J;J $ DIB IB K5 FHN KH FHN &.FIB $ DHA IB1d4+Nf <Sc,"IB.& $ FJ
 DJ J <Sf,
:J; J
+Nb, $ DIB J(.J 3 DI.$&$ &>.s&&>$s.&. FJ <Sg, <Sk,
"I.$&$$$.I DGb$$	 <Sm,	"& IB FJ
 DJ J <Sq,
:J; J
+Nv, IB KH+FHP IB HN3DKH+N~:IB+N{ J(.J6b40b+O+O4O4O4O4O4OD FHN+O IB K4 FHN K: FHN:IB:IB J(.J"5 $ FJ DI$$
.J ]2FG"+O+ IB1d=+O# <Sr,"IB.& $ FJ
 DJ J <Su,
:J; J
+O, $ DIB IB KF FHN K< FHN K3 HHO HHO FHP K5 FHP KE FHQ &.FIB+P $	$Gb G.$6b0b+O1+O/4O14OI4Of IB1d:+O: <Sw,"IB.& $ FJ	 DJ J <Sz,
:J; J	+O6, $ DIB $
$I.J ] DGa <S{, <S,
 <T,	 <T,
 K= I.3FKH+OE IB I. HHN:IB*dOA IB HM2DK8+P"$.DIB+OE+P IB1d=+OS <T,"IB.& $ FHC DJ J <T	,
:J; HC+ON, $ DIB IB K< FHN &
$I.J <T,	.$ DJ"IB/&.J J FHA DJ J <T,
:J; HA+O[, $.DIB IB HN2DKH+Oc"$.DIB+O_ IB K< FHN $.DIB+P $	$Gb G3DKF+O| IB1d:+Or <T,"IB.& $ FH? DJ J <T,
:J; H?+Om, $ DIB <T, $
$I.J <T,
 <T,	 <T,
 K= I.3FKH+O{ IB I. HHN:IB*dOx+P IB1d<+P <T,"IB.& $ FH> DJ J <T",
:J; H>+P, $ DIB <T$, $
$I.J <T',
 <T),	 KA_DH=ZDH@ H@ <T,,
:H@; H=+P
, KA &0F1F+P+P IB K9 HHN:IB I.2FKH+P K8 FI. IB I. HHN:IB*dP IB KA FHN:IB:I; J+O IB KH FHM J3F5+PV(.J 33H5+PD7FHA+P01d>+P, <T.,"IB.& $ FH/ DJ J <T1,
:J; H/+P(, $ DIB IB KD FHN KH FHN &.FIB@dHA IB1d>+P: <T2,"IB.& $ FHN DJ J <T5,
:J; HN+P5, $ DIB IB KH FHN FHN FHO FHO K@ HHP K5 HHP K@ HHQ FHQ FHR FHR FHS FHS &.FIB+PU IB1d?+PM <T7,"IB.& $ FHL DJ J <T:,
:J; HL+PI, $ DIB IB KH FHN FHN FHO K> HHO K? HHP FHP FHQ FHQ FHR &.FIB:J+NF7DHA+PY IB KD FHN:IB <T;, &/IB $ FHK DJ J <T>,
:J; HK+P\, H?.IB DHL <T@, <TC,
7DIB+S6bHC0b+Ph+Pf4Ph4Q%4Q D DHJ@dId D FIu DHE"IB $ C3HIu+Ps HE3hId+Pp 
Iu JHJ HId C HIu ( HHE+Ps:HE.$8&Pl I=3dId+Pw Iu DHJ7$IB.$( DJ D FHM &AIB1F+P~ CDF FHM IB CD FIs <TE, <TH,
 <TK, <TN,
 <TP, <TS,
+Q(@dI7 DId D FIs DHE"IB $ C3HIs+Q HE3hId+Q 
Is JI7 HId C HIs ( HHE+Q:HE.$8&Q
 HE3dId+Q Is DI77$IB.$( DJfD FHM &AIB1F+Q D.CfF FHM IB C/D FIr <TV, <TY,
 <T[, <T^,
 <Ta, <Td,
+Q( <Tf, IB <Ti,
+Q, <Tk, <Tn,
 <Tq, <Tt,
 D D7 $ DH1 DI_3DIB+R &/IB $ DI I I_  73HC+Q8:I_0h
+Q: 
C J 7 * J H0+Q9 I_:H0:I8&Q1+R $ DI_ K7@fH0*dQ<6bHC0b+Q@+Q>4Q@4QS4Q{ IB CD$H DIs D D7 K6 6Is F7*dQD K8 7 FIv*dQG IB C FJ"IB $ FI6 DI K7ZDJ J I  C2(Iv+QP:H0+QQ*dQL:H=:I; I6+QL+R IB CD$H DIs D D7 K6 6Is F7*dQW K8 7 FIv*dQZ IB C DJ K7 &( KH HIC &( HIC*dQ]"IB $ FI DI K7ZDJ J1F
+Qh I  C2(Iv+Qy J:H0 (2HH0+Qo( I 
 C JIC J( 
 C JIC+Qy J( I 
 C3jIC+Qt J( 
 C JIC J( 
 C2*IC+Qy J( 
 C JIC+Qy*dQd:I; I+Qc+R IB C/D FIr&&
 FIr$&
.D3&C:Ir D FID K6 &( IB.Ir HIC*dR K8 &( ID/( HIC*dR IB C FI\"IB $ FIa DI K7ZDJ J( I  C2hIC+R J:H0+R*dR
:H=:I; Ia+R
dIB DI` I_ DJ1d
+R &
 FJfH1I`&H FI FI FIe J1F+R$"J.( $fH0I`&H FI3fI+R" I FI IdI FIe.$8(R!$ DIt!$3$I+R(!$@ DIt I2dKG+R*!& FIt2dKC+R,!& FIt2dKC+R. K7 FIt2dK>+R0 KE FIt"& $ &(j
It J I7.$8&R1 <Tv, <Ty,
 <T|,, I_0d
+R["I_ $ IIt(H HJ 
KB JI`5hR@ 
KG JI`6bHC0b+RC+RA4RC4RK4RR <T, <U,
"
J ( JIA HH@ <U,
:H@; IA+RG,+RY <U, <U	,
"
J ( JJ HH@ <U
,
:H@; J+RO,+RY <U, <U,
"
J ( JJ
 HH@ <U,
:H@; J
+RV,.$8&R;+S K7 IIt&F FJ KB HI`5fR` KG HI`6bHC0b+Rd+Rb4Rd4Rk4Ru <U, <U,
"J & HJ FH@ <U,
:H@; J+Rh,+S H01&+S <U, &( <U ,
"J & HJ FH@ <U$,
:H@; J+Rr,+S IB ((  IC2hC+S <U%, &( <U(,
"J & HJ FH@ <U,,
:H@; J+R},*dR[ <U-,, $
 DJ3dI_+S I_ FJ@fH0"J $ H0.HH0.$8&S <U0, <U3,
:I<J(3dw+Lj:J;^It+Li51$+S<U6,K2,~pJK=xK2xIcx2x2x2xI]@2~KH^KI^KK^KLK;P1Gb$h2@>GpX0JJ
@I]$XJ&
0t0u$r$rXJ1
$HD$I<@Gc$H@XJ;	XJD$HNXJD$HNP1J@>G"PJEG$HNXJD$HNXJD$HNPJFI*(GaPJEI*@I/XJD$HNPJE]$HNXJD$HNPJGI*$]PJEI*@I/XJD$HNPJGI*$]PJEI*$I.XJD$HNXJD$HNXJD$HNXJD$HNXJH
(I`(I,$IBXJ_(HH(HM(HJXJd(C(D(IsXJU
(I`(I,$IBXJ_(HH(HM$I7XJd$C$D$IrXJi$C$DXJm(I(IC(IcXJu(Id(I>(HFXJ}@I8XK
XK(7$H0(I(Ie(I`XK(7$H0(I(Ie(I`XK$7$H0(I(Ie(I`XK(7(Iv$H0(I(Ie(I`XK $IC$IC$H0(I(Ie(I`XK&$IC$IC$H0(I(Ie(I`XK+XK/$H0@I8`2>KS!*UW**,^,~*x,> <UW*<UZ  pZ@UM@@UN@@UN V`|+UAPw,~ "p h a`~+UGh  ``~+UH$V!UIdV/"+UBP,~@@@ @@0@x@@@`edX91,>',>Zp @UM\`UM <UM,,^,~SMI 1,>',U: V BUM+Uq_MI 1,>',U: V BUM+UqI5R1,>',U: V BUM*\U|7ApX"V BUM/& pd"~l" BUM*\U|/& pd"~l"$ BUM*\U|/& pd"~l"
 BUM*\U|Sp*\U|/&Xp BUV@@UW V BUM*\U|/& pd"~l" BUMRFUM <UM,+U8EV4i91,>'+V	S,i@1,>'+V	_,i@1,>'+V	K>21,>'+V	K>401,>'+V	[<I71,>'
&V w @)@. 
"5BV
&V,~`.
.4SEQIN^VSEQOUT^VRANDOM^VSEQINOUTUV
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
gG@1,>'7cp+V' (Bdb+V".V+"+V#.V+"TB#p@,~4BV*+P
V+#p+V  ,~>attempt to take SQRT of negative argKc3@ p p+V;Kc3K  ,V; 
,~Kc3J  ,V; ,~Kc3I  ,V; ,~Kc3H4BVQ5@V>5"VP+D
V=U ,~,>,># $)D/$@,>4dVHX $(F) + VH5FVH5"VF"` ,V+VO#  ,> <VR,W+,^@,> <VS,W,^5&VO",^,^,^,~! ,~xxKc#@ p p+VKc#K  ,V @,~Kc#J  ,V @,~Kc#I  ,V @,~Kc#H4BW5@Vc5"Vm+D
VbUV,~ DW!$ @W BW5"Vj#`+ V,Vj!"B,~+ Vm(BdB+ Vm5BVh  W,~ +7`W+Vv`d +D
VqUV`d>@6WW+VlW`B"`+Vl/Wid+Vx+D+VsU",VjW+ Vm+Vg! ,~xKc1,>' p3"W!+W3bW!+W
W
U0,~+D
	0,~DW">FW#@@W"%"j"%Wn)/;`:XDW5fWaF+W.&@(|h&fW"@WWBWW"WDW @ W" W#,~!t0'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>' p4@W; @W*,> <WC,W+,^W),~{e^bC2|p1,>' p5`W/4@W;+P
W< WA,~  ,~ 0_i/X3 6P'M 5( bB W
R `@xW*ATTEMPT TO TAKE LOG OF NEGATIVE ARGI$P1,>' #p D F	b&".$&$7@"$  (@. &"* WZ)@
(@ $ &$.$.&(D(F..  #p**,~.$D.&-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-@('VARIABLE AND OBSERVATION MAY NOT BE USED TOGETHER TO ','DELETE')(' ENTIRE BANK DELETED')('SELECT MAY ONLY BE USED TO DELETE OBSERVATIONS')?~px6DELETE    DSK  SEQOUT    TMPRY.DAT BINARY    DSK  SEQOUT    LIST.DAT  BINARY    DSK  LIST.DAT  RANDIN    BINARY    DSK  TMPRY.DAT SEQOUT    BINARY    DELETE    RENAME    BACKUP.BANRENAME    BACKUP.BANDELETE    Id] \{ p @` $>.s&$> D5@d` $2Dw+( $2Dx+( x3Ds+/ $2D+- $2D+- 3Ds+: < M,,+ I $2D+ $2D+ 2Ds+ $3d5+ < P, < R,,@ds Ds $ D`+ I 51$+= < U,,+ I@d6"w $ ("
 w.*.
 w.J6.$8&? < X, < ], < `,
"6.D8 < c, < e,
"s $ Fa D"w $ D7 7(  
w2j+Q 
w2*+[:78&L"5 $"(.$5.(. Hk < g, < k,
 < m, < o,
.$8&S:; a+K s$5.$ Dg $ D &/s&&/& $ F_ Dh.$&$.g Dg < r, < u,
"& h F  D2ds+|"w $ D7 7(  
w2j+p 
w2*+|:78&k $/h. Dg } &	$.& (	$g.(  . Hm*ds:1d+| < x, < z,
 & F:;  +i $.dh; _+c $3D+ < |, < ~,
"6.fs DK DL FL+ D <!, $>.s&$> D5 & F@f"5 $ Ff Dh/$$$> D8.$ D7.$> Da3ds+ s Fa ~@f7*d" $ Fe Dg( 2fa+) 3&7+) 7 Dd g(2$+ g(  Fd a Fj g(3f +# g(   Hj d/8 Hh"
j.
8/(. h & F7.$8(':g; e+ 51$+z"5 $ (.  3/($5.(.h H <!, ~_HcZH7 (>$.7 <!	,
:7; c+4,.$8&- 8/a $ Fc D77F7+x & F (. 40D+H (."5 $ D $$
. ]3D7+K:8&D $>$.7 z3D7+n (.6b40b+R+N4R4[4_4c4g4k (."5 $ D $$
. (>$.7  z3H]+t:8&U+n  &>$.7 z3&g+t+n  &>$.7 z3fg+t+n  &>$.7 z2fg+t+n  &>$.7 z2&g+t+n  &>$.7 z2Fg+t:2d5+r(. 33F0+> 7@f7+x:2d5+x(. 33F0+t+>:7; c+< 8/a $ 71H+   
.
8 J v:1h>+  <!
, <!
,
 *>.J/*.J.$8&{:h;f+
 < L,!r <!, <!, <!, <! ,
  D! <!#, <!%,
"s $ Fk D/$$5.$ D@d $ D <!', <!+,
 $ Dh h0d>+ /7Fv+ * v.&>&&> Fg3F+ &. Fk <!-, <!1,
 g F/&$&> F9 h v/9 F6   H7:h+  h1D+ 3 h/&? h 7 H7.$8& - <!3, <!5,
: h0d>+ :; k+  s$5.$ D8 $.s&$ Di"i $ .8 H{ <!8, <!;,
 <!>, <!@,
.$8& :  Ds & Fj Fj Dk <!B, <!E, <!H, <!K, <!N, $ D` { ` Ap,~x2X0l`1>X0sX0v@1~^^^}P1|@>8h1@>8P1k@>8h1@>8P1g@>8h1@>vh1@>v@2~^^^
}P1$ zh2@>vh2@>v82~^
^^}|@1~^^^}P1|@> h1@> P2@>vP1k@> h1@>8P1{@> h1@> `2>X1>^P1>Ptl~`1^`1>!*!o**,^,~*x,> <!o*<!q  pZ@!e@@!e@@!f "&`|+!YPw,~ "p h a`~+!^h  ``~+!_$"&!!`d"'/"+!YP,~@@@ @@0@x@@@`edX91,>',>Zp @!e\`!d <!e,,^,~SMI 1,>',!R "( B!e+"	_MI 1,>',!R "* B!e+"	I5R1,>',!R "+ B!e*\"7ApX"", B!e/& pd"~l" B!e*\"/& pd"~l"$ B!e*\"/& pd"~l"
 B!e*\"Sp*\"/&Xp B!n@@!n "- B!e*\"/& pd"~l" B!eRF!d <!e,+!PEV4i91,>'+"!S,i@1,>'+"!_,i@1,>'+"!K>21,>'+"!K>401,>'+"![<I71,>'
&"- w @)@. 
"5B""
&"3,~`.
.4SEQIN^"'SEQOUT^")RANDOM^"*SEQINOUT!n
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
@(' THE OBSERVATION TO BE ADDED MUST BE COMPLETE -'I4,' WAS MISSING')('0OBS.  VAR.   VALUE'/)(' OBS:',I5/)('+ ',A5,'? ',$)('+',I5,2X,A5,'? ',$)(15A1)(' ILLEGAL CHARACTER "',A1,'" FOR FLOATING VALUE'/)(' TWO DECIMAL POINTS FOR VALUE'/)(15A1)(G)(' ALPHA VALUE MUST BE ENCLOSED IN QUOTES'/)(' 5 CHARACTER MAXIMUM FOR ALPHA VALUE'/)(5A1)(' ILLEGAL CHARACTER "',A1,'" FOR FIXED VALUE'/)(I15)S    .    E    +    9    0    -    '    I    !    xXM         GJ, \)  Da" $ (  3ha+9 (   Ha.$8&5 $.s Dy"&/a.y y Fi Dz" $ De e( z 
3*+E 
3j+H:e8&@ <F, <I,
+D:z; i+? $>.s&$> Dw/$$$> Dd $>.a&$>2Dw+`"s $ Fh Dz$w.$ D| <J, <N,
 $.s/d Dy"a.d y/&. y v H7.$8&Z <P, <T,
:z; h+R+ $>.a&$>/w Dz $.s&$ Df s$w.& Fa"f $ .a H| <V, <Z,
 s$z.H| <\, <`,
.$8&h &/s s Fg Dz/$$w.$ Da"w w Ff De.a D| <b, <f,
 e2Dw+ s/d1D>+ $.s/d Dw w/&? w v H7.$8&"$.z$z.D| <h, <l,
>e; f+v 0 v F7*d"&.z$z w.a. D|"z $:| <n, <r,
.$8&>z; g+r $.w D|"z $:| <t, <x,
.$8& <z, <~,
 a D8 <, <,
 s Fb Ds & Fe Fj Dk.$>&$> Dw s/$&$>$s.$ Dx"&/s&& $ Ft De.s.x D) <, <
,
 e/$$$.$ Dl.$ Dj3ds+2 s Fj l/&/j l /l$(	  < Hx /l$(	  7 Hl.$8&4:e; t+) s0$+? <
,, $.b Dv"&/a.v v Fk Dz.$>&$> Dc"c.&$&>.z Fw s1&+K <, <,
"s $ Hk De/$$w.$.c D| <, <,
 s1$+V <, e <,
+X <, e <!,
 <#, <&,
 l2D1+` l2D.+` m2D*+` m3D*+> l3D/+D e x.$6b0b+g+e4g44#@dx Dd Db Dc /ZDx x k3H1+ ( Hd 
k3J*+| 
k2j,+q 
k2*-+ 
k3J-+t 
k2J,+v.hc1h+ x k2F++y:b1f+ <), x <,,
+Q:x1F+ <-,,+Q*di d0D+> <0, <4,
 <6,	 w <:,
+? l2D1+ l2D1+ m2D1+ m2D1+ n3D1+> l3D.+ <;,,+Q $ Dx x k3D.+:x1d+ <>,,+Q"&.x x x 
1 J k.$8& w <A, 0_D|ZDx x <E,
:x; |+,+?@dd Dc /ZDx x k3H1+1 ( Hd 
k2j,++ 
k2*-+1 
k2J-+..hc1h+1 <F, x <I,
+Q*d%7Dd+> s2D1+9"& $ k Hk/$8&5 1 Dl+3 <K, <N,
 <Q,	 w <T,
+? w v F7 <V, <Y,
:e; k+M:z; k+C ),~X0$zP1|@>7P1|@>7P1|@>7P1|@>7P1|@>7P1|@>7P1|@>7P1|@>7P1+@>7P1+@>7P1)@>7X0X0$zP1|@>7X0
$lX0
$z$lX0D@lX0(kX0P}@lP}(7X0X0P#7(kX0#(kP}@lP(}$7P1|@>7@(' THE INCORE SORT WILL NOT ACCOMODATE THE DATASET YOU'/' HAVE, WORK IS BEING DONE TO HANDLE LARGER DATA SETS'/' PLEASE CONTACT DICK HOUCHARD 3830095 TO ESTABLISH THE NEED')(' NO MAJOR TO MINOR SEQUENCE')>EN~- \B9@dAp $
 DB
 $. DAs &>.s&&> FAh$s1d.p+BE <D],,+D[6d+BH <D`,,+D[" $ .(&( HB"
B.*$*.
 JB s$Ah.(. HB <Dc, <Dg,
$*	 (A# HB
.$8&BI &/s&&>/& $ FB DB.$> DB3ds+B[ s FB B.$>&$> DAr" $ FB DA~ /&$Ah.&.Ar FB <Di, <Dm,
$s DA~ A~ B
1D+Bm"&.B/B B A~."
B.
 
(A( J 7.$8&Bi+Bu"&.B/B B A~."
B.
 *(A( JB: <D\,D~ @ 7.$8&Bo:A~; B+B_"&.B/B B D7.$8&Bx $>.dB; B+BX $ DA} DB s DA~ B2$A~+Cr B DAq.A~7 .$( DAu@dB:B2d+C
$s.Au 7 FAt B$s.B 7 DB3DAt+C3$At+C+C Au B 73f7+C"&/ $ s$.Au HAt 
s$
.
B JAr 
 7 LB	 (7 N 7 L(7.$8&C A~ DAg@dB:B2d+C"$s.Au 7 FAt B$s.A~ 7 DB3DAt+C2dAt+CB+C$ Au A~ 72&7+CB"&/ $ s$.Au HAt 
s$
.
A~ JAr 
 7 LB	 (7 N 7 L(7.$8&C&@dB:B2d+C6$s.Au 7 FAt B$s.B 7 DB3DAt+C.3$At+CB+C9 Au B 73f7+CB"&/ $ s$.Au HAt 
s$
.
B JAr 
 7 LB	 (7 N 7 L(7.$8&C:"&/ $ s$.Au  7 HB.$8&CC+CP"&/ $ s$.Ag HAt 
s$
.
Aq JAr 
 7 LB	 (7 N 7 L(7.$8&CI"$.DAg@dB:B2d+CY B FAt$s.Ag 7 FB3FAt+CR2fAt+CP+C[ Ag 72dB+CP:Aq@dB:B2d+Cc B FAt$s.Aq 7 FB3FAt+C\3&At+C[+Ce Aq 73$B+C[ Ag2$Aq+CG"Aq.A~/B3d+Cm A} B FAh Ag FAu Aq FB:A}+Cu A} Aq FAh A~ FAu Ag FA~:A}+Cu>A}4DD Ah FB Au FA~ A~/B0$+C B1D+B~"$.DB:B3DA~+Cr"&/ $ s$.B  7 HB.$8&C|@dB:B2d+D B FAt$s.B 7 FB3FAt+D3&At+Cy+D	 B 73dB+Cy B DAq"&/ $ s$.Aq 
 7 J 7.$8&D
"$.DAq@dB:B2d+D B FAt$s.Aq 7 HB3HAt+D3&B+D
+D Aq B3&7+D
"&/ $ s$.Aq 
B J 7.$8&D+Cy"s $ 7.s D 7.$8&D "s $ s.  7 H7.$8&D$"s $ FAg DB/$$Ah.$ DAs"Ah $ FB$ DA~.As DB: <Do, <Ds,
 A~/$$$>.$ DAf/$ DB Af.$> DB"3ds+D7 s FB" Af/&/B" Af 7.s 
/
B 
(@* J 7.$8&D9:A~; B$+D-"Ah $ FB# DA~/$$$>.$ DAf/$ DB Af.$> DB"3ds+DG s FB" Af/&/B" Af /B 
s.
 
(7 J @*.$8&DI"B.B"1D>+DT $/B.B" DB
 B
/&? B
 A' H@*.$8&DR A~.As DB: <Du, <Dy,
:A~;1B#+D@:B;3Ag+D)QB9,~xB:X0B$X0B6P1B@>A(P1B@>A(P1B:@>@*P1B:@>@*? SNEZ DD| p @D{ D{AD}7 .$( DD|5 E D}GDD| D| D|,~    ]    [    (' FOR IS AN ILLEGAL COMMAND IN A RUN'/)('+* ',$)(' ALL FOR STATEMENTS MUST PRECEDE REGULAR STATEMENTS'/)(' ILLEGAL CHARACTER "',A1,'" FOR INDEX')(' ILLEGAL INDEX NUMBER')(I1)(' INDEX',I2,' HAS ALREADY BEEN USED')(' MORE THAN 100 VARIABLES FOR 1 INDEX')(' FOR STATEMENT NOT COMPLETED')(' VALUE IN FOR STATEMENT LARGER THAN 10 CHARACTERS')(' QUOTE MUST BE FIRST CHARACTER OF STRING')(' NO CLOSING QUOTE')(' ONLY INTEGER VALUES ARE PERMITTED WHEN USING THRU')(' ILLEGAL THRU')(10A1)(I)(' YOU HAVE INDICATED TWO -, BOTH ARE NOT MINUS')(I10)(' ILLEGAL INDEX - STATEMENT IGNORED'/)(' WARNING - BRACKET ABOVE NOT INTERPRETED TO BE A INDEX')(' RESTART')(80A1)9    (0    -    F    '    O    !    R    0,    8=    {     1    TOO MANY STATEMENTS PROBLEM   DSK  BNKPG.DAT SEQOUT    DSK  BNKPG.DAT SEQINaJ||V \Ag7D(+A <DV,,+DQ@d Am@fA*dB+B <DY,, <DT,
+C~ ?M )3&Ao+B" )3fAh+B$ <Dc,,+C~ ?M *3F?G+B( <Df, <Di,
+C~ ?M <Dk,	 <Dn,
 $.D?M 97DA+B0 <Dp, <Ds,
+C~+?M1)3DAn+B4:?M1d(+B0+BF.93A.$+D?I1d2+B9.<Dt,,+C~ $2$9.?I@f.$2$9.?I1.$ D9:?M1d(+BH &2$9.?I"(.9 H/&2&9+BE 9.fA$96fA+B.<Dw,,+C~ ?M )3FAo+B> )3FAj+BX )3FAm+Bg )3FAi+Bm 91d+BR <Dz,,+C~ &t$9 $$?I.9. ?M ) F
:9; 9+C, <E,	 <E,
 Al Ao FA*dC $ D9:?M0d(+C) )3FAo+C )3FAm+C) )3FAi+C! )2fAh+C )2&Ai+C% <E,,+C~ 91D+C% <E,,+C~ 90d+BP ?M ) FA:9+C 91d+C <E, Al_D9ZD9 9 <E,
:9; 9+C-, <E,	 <E",
 ?G3d9 +C6 D?K 9  F?G D9 "&.?G/9  ?G F9 D9 <E#, <E',
 <E(,	 Al_D9ZDB B <E,,
:B;d9+C=,.?I0d2+B7 $:D9:Al;A3FAo+CJ"(t$9 &$?I.9.+A HnZD?M ?M )2FAo+CW*dCT+B )3D+D:1d
+C[ <E-,F6 & F?M@f8 ?M )3F+D )2F?M+Cy )2fAh+Cc )2fAi+Cf <E.,,"&.F+B ?M *3D?G+Cj <E1,,+Cy ?M <E4,	 <E8,
 ?L6DA+Cq <E9,,"$.D+B  81&+Ct <E<,F6:8$&
. ?M H?C 8$&
. ?L H@' $
$?M. ?M ) F9:?M1d(+C]+B <E=,,+DQ <E@, Am@f9 3FA+D ( H9 *dD+D AmZD?M ?M7HA+D
 9 2(A+D
:9 +D ?M ( H9 *dD <DS,Et $ D( <ED,+DQ 1$+DQ" $ F?I D?M6F8+D An &
$&.?M 9 F)*dD+DB $ D9 D9% ?M"8 $ F?H D9$$
.?M ?C3F9%+D& 9$&
.?M"?C.9% 9% 9 *
$
.
?M 
(9 J ):9.$8&D" $
$9.?M @' D9 9  F?L$$2.?L  F?F"?F $ 9 ,t$
9 *$
?L.
.
 
():9.$8(D- $
$9.?M ?C.$ D9%:9; ?H+D $(3$9+DB3$9%+D> 9 (
$9%.?M  9 H):9%:9+D7"&(.9 9 Ao H).$8&D@"&( $( D9 9 )2DAo+DG>98&DC+DM 91$(+DK <EG, <EJ,
@d9 $.9 DC  F) <EM, <EP,
:?M; ?I+D+D Ag,~x1h)Ah8X0A!X0A%X0A&X0A,$)X0A1X0A,$*PA3)$9X0A4$9X0A8X0A<X0A?X0AEX0AIX0ALX0AQPASA$APATA$?GX0ALX0AUPASA$APATA$9 PAZA$9PASA$AxApX0AZX0A^PA3)$?LX0AZxArX0AdP1~At^Au^AvP2~Ax^Ay^AzX1Af@()X1Af@()!*Eq**,^,~*x,> <Eq*<Es  pZ@Eg@@Eg@@Eh F(`|+E[Pw,~ "p h a`~+E`h  ``~+Ea$F(!EbdF)/"+E[P,~@@@ @@0@x@@@`edX91,>',>Zp @Eg\`Ef <Eg,,^,~SMI 1,>',ET F* BEg+F_MI 1,>',ET F, BEg+FI5R1,>',ET F- BEg*\F7ApX"F. BEg/& pd"~l" BEg*\F/& pd"~l"$ BEg*\F/& pd"~l"
 BEg*\FSp*\F/&Xp BEp@@Ep F/ BEg*\F/& pd"~l" BEgRFEf <Eg,+EREV4i91,>'+F#S,i@1,>'+F#_,i@1,>'+F#K>21,>'+F#K>401,>'+F#[<I71,>'
&F/ w @)@. 
"5BF$
&F5,~`.
.4SEQIN^F)SEQOUT^F+RANDOM^F,SEQINOUTEp
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>'O@Ft+F:gR~@1,>'@@Ft,>,>@6 w+FG"Ft0B+FB!"A`X#p5@F?/#p!"X#p+FG\p+FGa.9'1,>',>,>O@Ft+FG,>
6+ _4`FO"`Q@,> <Fu,,^,> <Fx,
,^*bFL+FZ,> <Fz,,^7@Ft+FU,> <F},
,^+FW,> <F~,
,^Z5"FZ,> <G,
,^,7@Ft,
,> <G,,^,,> <G,,^,> <G,
,^(@qd1@,,
1@#+Fh0@*+FZ,>$<G	,,^+FZ,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXFpp XFqp Fsp Fsp XFjX~Fpp x@(' NO BANK WAS SPECIFIED IN THE MERGE')(' TOO MANY VARIABLES')(' THE UPDATE BANK WAS CREATED WITH AN EXPERIMENTAL'/' MODEL OF THE BANK PROGRAM. TO UPDATE THE BANK RUN BANKUP'/' ON AREA 220,220.  IF THE BANK DOES NOT BELONG TO YOU'/' CONTACT THE OWNER AND HAVE HIM RUN THE PROGRAM')(' THE UPDATE BANK HAD TWO VARIABLES WITH THE SAME NAME')(' THE TWO BANKS TO BE MERGED ARE TOO LARGE FOR THE'/' INCORE SORT.  PLEASE CONTACT DICK HOUCHARD SO WE MIGHT'/' KNOW A NEED EXISTS.')(' THERE WAS NO UPDATE VARIABLE ',A5)>?~pxV2   6DSK  BINARY    RANDIN    DSK  TMP.DAT   BINARY    SEQOUT    RENAME    HOLD.TMP  RENAME    DSK  HOLD.TMP  DELETE    DSK  RECS.DAT  BINARY    SEQOUT    DSK  LIST.DAT  BINARY    SEQOUT    DSK  RECS.DAT  BINARY    SEQINDELETE    DSK  TMP.DAT   BINARY    SEQOUT    DSK  LIST.DAT  BINARY    RANDIN    DELETE    RENAME    HOLD.TMP  RENAME    DSK  HOLD.TMP  DELETE    [y  \HO p @G  DF  DF@dF DG5DI <Nw,,+NP s1dP+I <Nz,,+NP $>.s&$> DF$s.$ DF5 $.s&$ DF"F $ FG
 H/$$$ DF7"G
 
(. J 4 F7.@j # F7. *	$
 
(3IJ 2T.$8&I,:H;GO	, <O
,
 ;3DHT+I> <O,, <Nv,U7+NP 7 DF3 8 FG
.&>&&>+FF$F3.&$FGQ.$&$ DH"H $ FG DH & FG
"G FG DFy"s $ FG
 DF+ &	$Fy 42H.+Ic"&.H$&.Fy F# &	$Fy 2T3H3+In 2T1f+I_ <O,, <Nu,U7+NP F+ &	$Fy 3.&$&.F2T+In:F+; G
+IS:Fx1dP+Ii <O,, <Nt,U7+NP Fx &	$Fy . F4"&.H$&.Fy F#:Fy; G+IQ:H; G+IG $>.G
&$> DF0 $>.s&$> DF.6f+K- <O, <O", <O&,
 Fx F7 s.G
 H8 <O(, <O*,
 (>.s.G
&(> HF*"F..($(>.s HF/"Fx $ HG	 DH2ds+J0/$$F..$ DF/ $2$F.+J &/F. $ .F/ HHO <O-, <O0,
 <O3, <O5,
.$8&J
 F..F/ DHO <O7, <O;,
 F/1$>+J< <O=, <O?,
 H7D#+J* H # DGO/$$F0.$ DF/"F0 $ FG DFy.F/ DHO <OB, <OE,
 H 2T1f+J& $2T DHO <Nr,QM <OH, <OJ,
:Fy; G+J+Jx HT v F7*dJ*"F0 $ <OL, <ON,
.$8&J-+Jx HT v F7*dJ1 $2$F.+J8 &/F. $ <OQ, <OS,
.$8&J5 F/1$>+J< <OU, <OW,
+J@dFy H # DGO5DJA HT v Fv*dJ?"$.GO$F0.$ DF/ $ DG &>/F/ FH.H DF, $> DG
:Fy2dF0+Jp7FGO+JQ.F/ DHO <OZ, <O],
 H 2T1f+JQ $2T DHO <No,QM $>$Fy DG3dG
+J["&>.H.G3&G
+JY &>.G
/G FH@fF,+J[ $>.G
/G DG
"&.G/H G .F/ 
v J 7.$8&J] $>/F/3DH+Jh $.F/.H DH H/&? H v H7.$8&Jf <O`, <Ob,
7DF,+Jx F,/&/G
 F,"H. 
v J 7.$8&Jm+JH $/H.G
 DH H/&? H v H7.$8&Jt <Od, <Of,
:H; G	+J"$.F DF1$+K"F $ F5. HHO <Oi, <Ol,
 <Oo, <Oq,
.$8&J} F5.F DHO <Os, <Ow,
 s3DFx+K "($F.$. DG s.$ DF5 G1d+K <Oy, <O{,
 $ DG F5 #.&&& FF.GQ FHO <O~, <P,
"F.&$&.# FGL HS &	$G.& (	$GL.(  m H.*dK:G:F53dFx+K
 <P, <P,
 <Nn,U7 Fx Ds G
.fs ( HK HL DL Hj Hj Fk <P, <P, <P, <P, HG+NP &. s.G
$1d2d+K4 <P,, <Nm,U7+NP" $ FH DH"1F+KA 6F#+K= <P,  <P,
 <Nl,U7+NP H  # FFy  2T FF+KB HOfFy:H; H+K6 <P, &/Fx&&>/& $ (>. HF+3hFx+KJ 
Fx JF+ <P ,"*.
/
F+  JH HFy Fy <P",
:Fy; H+KN, <P$,"*.
/
F+  JH HFy Fy <P&,
:Fy; H+KV,.$>8&KG <Nk,U7 s.G
$DGM3&."FF4$$DF8"s $/.F8.HF7.D4.$8&K`"F. $,FF- DH &> FG
"(.H$(>/$$GM. DF8"G
7J 4.$8&Kw+L"&.H$&>"$.Fy$GM. DF8"$.H$$> DF-"G
.
F-HJ34.$8&L:Fy; F,+Kl:H; F-+Ke"F0 $ FF) DH &> FG
+L"H.&$&>.G
"FG $ FF( DFy"Fy1F+L' Fy/&$F0.&.H FG <P-, <P1,
 F1f+L $F DHO <Ni,QM"&.H$&>"$.Fy$GM..s DF8"G
7J 4.$8&L":Fy; F(+L+L3"$.H$$> DF-"&.H$&>"$.Fy$GM..s DF8"G
.
F- J 4.$8&L/:H; F)+L $GM.s DF8"G
 $ .F8 D 4.$8&L7 <Nf,Se $.s DHO <Nc,Se $ DH.s DFy" $ DF+ F+/$$GM DF8.H DH F8.Fy HF4 
42j 4+LU 
43* 4+LW:F+8&LA 
H $GM.H 4 D(4.
GM $GM.Fy 4 D(4 $GM.Fy@f4:
H2js+Lb:Fy2dGM+L]+L?:Fy2dGM+L]+L? H $GM.H 4 F4.GM@f4:H2ds+Lb+L? H $GM.H 4 F4.GM@f4:H3ds+L] $.s DFy $GM.Fy7D4+Lk H@f4.GM $GM.Fy 4 F4:H:Fy3dGM+Ld"&.H FF <N`,Se <P3,"F $ 4 HF+ 
.
GM 
(4 J4 
.
GM H(4.$8&Lq &/s&&>/& $ FF3 DFy.$> DF13ds+L} s FF1 Fy&$>$$> DH Fy/&/F1 Fy .GM"
H.J 4.$8&M Fy DF <N],Se $>.dFy; F3+Lz $.s DFy F3ds+M
 <NZ,Se"&.Fy/F Fy"(.&(>$(> HF7 
.
GM"
F7.
 L(4.$8&M &/F&&>/& $ FF1 DFy.$> DF13dF+M F FF1 Fy/&/F1 Fy 4.(>&(> HH4HM!"
H.*$*>.J4 */
Fy.
 JF7 
4 L(GS 
.
GM 
04FL(G8&M <P8, <P:,
 <P<, <P>,
 <PA, <PC,
 $>.dFy; F1+M <NY,U7 <PE, &/Fx&&>/& $ (>. HF+3hFx+M7 
Fx JF+ <PJ,"*.
/
F+  JG HFy Fy <PL,
:Fy; G+M;, <PM,"*.
/
F+  JG HFy Fy <PO,
:Fy; G+MC,.$>8&M4 <PQ, <PS, <PX, <P[,
 Fx D7 F F8 <P^, <P`,
 <Pb,.&>&&> FF"Fx $ FG DH"F $ FG DFy/$ (..& FH <Pg, <Pk,
.& FHO <Pm, <Pq,
 H.$ DHO <Ps, <Pw,
 H2ds+Mr Fy2fF.+Mr/$$F..$.Fy DH <Py, <P},
$&>3fs+Mt"Fy.$$$>.s DH.$ DH H/&? H v H7.$8&Mo+Mt HT v F7*dMr H7F#+N #/&$F0.& FF/@fH &> FH$Fy3fF+M} &/Fy$&>.F FH"H $ FFw DF+7FGS+N F83FH+N F8 FH.F/ FF. <P, <Q,
 F+ GS,v3Fv+N+G 2T1h+N &2T1FHO+$G $2T DHO <NT,QM <Q, <Q,
:Fy; G+MV:H; G+MT"$.F DF1$+N&"F $ F5. HHO <Q
, <Q
 <Q, <Q,
.$8&N F5.F DHO <Q, <Q,
 s3DFx+NB"($F.$. DG s.$ DF5 G1d+N3 <Q, <Q,
 $ DG F5 #.&&& FF.GQ FHO <Q, <Q",
"F.&$&.# FGL HS &	$G.& (	$GL.(  m H.*dN<:G:F53dFx+N/ <Q%, <Q',
<Q),<NS,U7FxDsFFs(HKHLDLHjHjFk<Q,,<Q/,<Q2,<Q5,HGHOGAp,~x2`7HOHQHQ`7HOHPHRx1X5GMHRFyFX5GMHRFF1X5GMHRHQsX5GMF4HOGMX5GMF4HQs`7HOHQHQx1x2x2x2`vHOHQHQ`7HOHQHQx2x2x2X0HX0HP1HO@>702~HUP^HVF^HXHSHQP2HQ@>7X0H!P2HO@>7X0H7X0H@1~HY^HZ^H\^H]HSP1HQ@>7h1@>7P1HO@>7h1@>7P1HO@>7h1@>7P2HO@>7h1@>7h1@>7h1@>7h1@>7P2HO@>vh1@>7h1@>7P1HO@>7h1@>7P1HO@>7h1@>7P2HO@>vh1@>7X1>H^H`P1>HbPtlHUX1~Hc^Hd`1>HfX0H=
^I`1>I
@(I5)(F5.0)(5A1).    9    0    -    ] d#SC`,    X`     G:=[r \QF !p @Q9 p @QC p BQ: p DQ< &> FQ@1D BQ@ & FQ90@+QV & FQ90@
+QX & FQ90@+QZ & FQ90@+Q\ & FQ90@+Q^ & FQ9 Q:0f>+Rp"Q@/&.Q: Q: FQ? DQC.Q9 3FQ8+Rn6bQ90b+Qj+Qf4Qj4R	4R4R.4RS4RX QC.Q9  DQ8 Q83$QJ3dQI+Qn+QyD DQ80dO+Qr"1&'+Qt QC.Q9 Q8 H+Rn QC.Q9@f QC.Q9 <Rq, <Ru,
+Q~ QC.Q9@f QC.Q9 <Rv, <Rz,
 QC.Q9 <R{,	 <R,
 Q@2DQL+R QK Q@ FQ?*dR QL DQB+R QC.Q9 <S, <S,
+Rn QC.Q9  DQ8 QC.Q9FQ8 F+Rn QC.Q9 3DQL+R( QC.Q9 <S,	 <S,
 QKZDQ; Q; Q@3HQI+R Q@3HQL+R Q@3HQF+R Q@3(QH+R Q@3hQH+R QC.Q9 
Q8J'+Rn*dR QB2DQL+R%"& $ Q? HQ@/$8&R" QL DQ@+R QC.Q9 <S
 QC.Q9 <S,	 <S,
 QC.Q9 Q8 F+Rn QC.Q9 3DQL+RJ QC.Q9 <S,	 <S,
"& $ FQ= DQ; Q@3FQI+RA Q@3FQL+RA Q@3FQF+RN Q@3FQJ+RN Q@3fQH+R> Q@3fQH+RA QC.Q9 Q8 F+Rn:Q;; Q=+R5 QB2DQL+RH"& $ Q? HQ@/$8&RE QL DQ@+RB <S, <S",
 <S$,	 QC.Q9 <S(,
+Rn Q;1D+R> Q;/& Q; QL HQ@.$8&RQ+RB QC.Q9d DQ8 QC.Q9 Q8 F+Rn QC.Q9  DQ80dO+R\"1f'+R_ QC.Q9 Q8 H+Rn QC.Q9@f QC.Q9 <S), <S-,
 QC.Q9 <S.,	 <S2,
 Q@2DQL+Rk QK Q@ FQ?*dRh QL DQB+Rf QC.Q9 <S4, <S8,
:QC; Q?+Qc QF,~PQD$Q8PQD(Q8PQE@Q@PQE@Q@PQE@Q@PQE@Q@PQD(Q8PQE@Q@PQEQ8@Q@PQDQ8$PQD$Q8PQE@Q@PQE@Q@39   g?@ \Sc !p @SO p @SO p @SE p BSD p DSU SE/& FSX & FSP BSS DSP SS2$SP+Tg SS DSC.SP7 .$( DSFOdSW:SW2dSX+T	$SO.SF.SO  FSE SW$SO.SS.SO  DSV3DSE+St3$SE+T	"&/SX $ $SO.SF HSF 
$
SO.
SS JSD.SO 
' LSV SF.SO.
SO / N' SD.SO L'.$8&S~ SP DS:OdSW:SW2dSX+T8$SO.SF.SO  FSE SW$SO.SP.SO  DSV3DSE+T
2dSE+T8"&/SX $ $SO.SF HSF 
$
SO.
SP JSD.SO 
' LSV SF.SO.
SO / N' SD.SO L'.$8&TOdSW:SW2dSX+T)$SO.SF.SO  FSE SW$SO.SS.SO  DSV3DSE+T 3$SE+T8+T, SF3DSS+T8 <U,Uy"&/SX $ $SO.SF HSF 
$
SO.
SS JSD.SO 
' LSV SF.SO.
SO / N' SD.SO L'.$8&T-"&/SX $ $SO.SF.SO ' HSX.$8&T9+TJ"&/SX $ $SO.S: HSF 
$
SO.
SC JSD.SO 
' LSV SF.SO.
SO / N' SD.SO L'.$8&T?"$.DS: DSW:SW2dSX+TR SX FSE$SO.S:.SO  FSV3FSE+TK2fSE+TJ:SCOdSW:SW2dSX+TZ SX FSE$SO.SC.SO  FSV3FSE+TS3&SE+TR S:2$SC+T>"SC.SP/SS3d+Tc SP SS FS: S: FSF SC FSS:SP+Tj SP SC FS: SP FSF S: FSP:SP+Tj>SP4DU S: FSS SF FSP"SS.SP0$+Sp SS3DSD+Sn"$.DSS:SS3DSP+Tg"&/SX $ $SO.SS.SO   HSX.$8&TrOdSW:SW2dSX+To SX FSE$SO.SS.SO  FSV3FSE+Tv3&SE+To SS DSC"&/SX $ $SO.SC.SO 
' J .$8&U"$.DSC DSW:SW2dSX+U
 SX FSE$SO.SC.SO  HSV3HSE+U3&SV+T~"&/SX $ $SO.SC.SO 
SX J .$8&U+To Sc,~xSd!*U3**,^,~*x,> <U3*<U6  pZ@U)@@U*@@U* Uj`|+UPw,~ "p h a`~+U#h  ``~+U$$Uk!U%dUk/"+UP,~@@@ @@0@x@@@`edX91,>',>Zp @U)\`U) <U),,^,~SMI 1,>',U Um BU)+UM_MI 1,>',U Un BU)+UMI5R1,>',U Up BU)*\UX7ApX"Up BU)/& pd"~l" BU)*\UX/& pd"~l"$ BU)*\UX/& pd"~l"
 BU)*\UXSp*\UX/&Xp BU2@@U3 Uq BU)*\UX/& pd"~l" BU)RFU) <U),+UEV4i91,>'+UeS,i@1,>'+Ue_,i@1,>'+UeK>21,>'+UeK>401,>'+Ue[<I71,>'
&Ur w @)@. 
"5BUg
&Ux,~`.
.4SEQIN^UlSEQOUT^UmRANDOM^UoSEQINOUTU2
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>'O@V6+U}gR~@1,>'@@V6,>,>@6 w+V	"V70B+V!"A`X#p5@V/#p!"X#p+V	\p+V	a.9'1,>',>,>O@V6+V	,>
6+ _4`V"`Q@,> <V8,,^,> <V;,
,^*bV+V,> <V<,,^7@V6+V,> <V?,
,^+V,> <VA,
,^Z5"V,> <VB,
,^,7@V6,
,> <VD,,^,,> <VG,,^,> <VJ,
,^(@qd1@,,
1@#+V+0@*+V,> <VK,,^+V,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXV3p XV4p V5p V6p XV-X~V2p x