@ [ ] 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) WHIICH 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 / 0 D 8 , @ = Z@ ) ) xX : V2 EMPTYX p h ` 7 }@ h P SEQIN DSK SEQIN PROBLEM SEE DICK HOUCHARD DSK SEQIN DSK SEQOUT HEADR.TMP BINARY DSK RANDOM BINARY BANK.TMP DELETE DELETE DSK SEQIN BINARY HEADR.TMP DELETE [j` \ >k $ D :T < H, < H,
< H
, , ,< H
,B3D >|+ GM"& ( $ ( D :v :v ,A2D ? + ?6> :v8& ?2@d :Z+ ?M :v D :Z@d :v: :v :v3D :Z+ ?C ,A2F ? + ?8.$ D :v" :Z/& . :v :v ,A H,A.$ 8& ?> :Z ? F,A"$ .D :Z+ ?8 ,B2D >p+ ?M ,B2D >o+ ?M ,C2D >y+ ?M ,C2D ?
+ ?M ,D2D ? + ?M < H, , + ?,+ Gx >v D . :{ .%@d . D . D . 3D :Z+ @A & F :v: :v2d :Z+ ?a ,A3F ?+ ?X ,A3F .+ ?a+ ?S"$ . :v D :t < H, " :t $ F :X D :P :P < H,
: :P; :X+ ?\, :v D :t+ ?c@d :t >n D . ? ? F;*d ?c@d :P@d :]: :t2d :Z+ ?q ,A2F >l+ ?j!& F :] ,A3F .+ ?q :P1& + ?o < H, , + ?,: :P :t ,A F;+ ?f!$ 3D :]+ ?v :P0d + ?v: :P >l F; < H , ? _D :WZD :P :P < H!,
: :P; :W+ ?x, :t ,A2D .+ @A ? ? F;*d ?~@d :P: :t2d :Z+ @ ,A3F . + @ ,A3F ?+ @ ,A3& >t+ @ ,A3f ?+ @
< H", , + ?,: :P1d + @A F;+ @ $ 3$ :P+ @ D .+ @ ; 2D ? + @"& $ ; H;/$ 8& @ ? D ;+ @ < H(, ? D :RZD :P :P < H,,
: :P; :R+ @, < H-, < H1,
? ? F;*d @!@d :P: :t2d :Z+ @1 ,A3F . + @1 ,A3& >t+ @) ,A3f ?+ @+ < H2, , + ?, :P1d + @. < H5, , + ?,: :P :t ,A F;+ @# $ 3$ :P+ @3 D .+ @A ; 2D ? + @9"& $ ; H;/$ 8& @6 ? D ;+ @3 < H8, ? _D :mZD :P :P < H<,
: :P; :m+ @<, < H=, < HA,
< H, +7D :Y+ @E < HB, , + ?, < HE, < HI, , < HL, < HO,
s1d z+ @M < HQ, , + Gx < HT, , @d :d D :m $ D . D :t ? ?
F,*d @R $ '. :t D .$1d ,+ @W & , F .$ :m0D + @` < HW, "& . :t/ .$ :t F :h D :v :v < HZ,
: :v; :h+ @\, 6D :m+ @h < H[, "& . :t/ .$ :t F :f D :v :v < H^,
: :v; :f+ @e, $ 2D :t+ @k ,3D >{+ GM $ 2D :t+ @n ,3D >t+ A $ 2D :t+ @q ,2D >p+ A"& . :t/ .$ .$ D .! .! ,2D ?
+ @w> .!8& @t"& . :t/ .! :t ,3H >p: :d ,2H ?+ @}"( .H :d ,3H >: . .$ 8& @y .!1$ ,+ A < H`, , + @M < Hc, , + @M >~ZD :v :v ,2F .+ A
< Hf, , + @M*d A < Hi, >~_D ;ZD :v :v < Hl,
: :v;< ;+ A07D :Y+ A < Hn, , + @M :m0D + A < Hq, , + @M $ D :m < Ht, + @S $ . .! D :t6d :d+ @S5$ A < Hw, , 4$ @M < Hz, < H~,
:m0F + A$ < I , @f :v: :v :v2d .!+ AD ?ZD :P :P :v ,3H:n+ A$*d A' :v ,3& >s+ A= ,2f >r+ A="& $ F ; D .$. :v2d .!+ A= ?ZD :P :P :v. .$ ,2H:n+ A71F + A=+ A$*d A2 :v. .$ ,3& >s+ A= ,2f >r+ A=: .$; ;+ A0 $ . :v D :u"& / .!. :u :u , H+.$ 8& A@"$ .D .!+ A%@d . D :v $ D :N: :v2d .!+ B ,3F :q+ AF ,3F :q+ AF ,3& >s+ AM ,3f >r+ AQ :N , Hp: :N1& ,+ AF+ B $ D . ? ?
F.*d AR $ D :P :P :v , F.: :v: :P ,3& >s+ A[ ,3f >r+ AU .2D ?
+ Aa"& $ . H./$ 8& A] ?
D .+ A[ < I, < I,
< I, < I
,
" :v+,3D :q+ Am" :8$ +D :P :N, :v,, Hp: :N0d ,+ B : :P8& Ah+ AF $ . :v D :t $ D :d :t ,3F :q: :d ,3F :q> :d7F :d+ Au: :t+ Ap"& . :t $ . :v2d + B" : $ F .% D :P $ . :v D :t :t/ :t :t D .$ :N .$ , Hp: :N0d ,+ B : .$8& A~: :P; .%+ Az :t D :v+ AF"$ . :N D .!7F . + B
" s $ @h%o .$
p2J >~+ B * J%o
p2J >{+ B * J%o
p2J >y+ B * J%o:
.$3j .!+ B ( H .$.$ 8& B >n D . ?
D ." s $ F . D :v < I, < I,
< I, ?_D . ZD :P :P < I ,
: :P; . + B*, .2D ?
+ B2 ? . F.*d B/ ?
D .+ B- :v < I , < I#,
@f.'( < I&, < I),
: :v; . + B%@d :m < I+, , 6D :m+ B> < I., , 0D + BA < I1, < I4,
5D BB < G~, . 1D + F, ,B2D >p+ BM ,B2D >o+ BM ,C2D >y+ BM ,C2D ?
+ BM < I7, , < I:, , + B; ,B3D >|+ GM ,B3D ? + F, ,B3D >+ F, ,B3D >s+ Be $ D .!@d . D : ? ? F.*d BV $ D :P .! ,A3F >u+ B| ,A3F ?+ B| ,A2f >q+ B_ ,A2& >t+ Ba < I=, , + B; :P0d + B_ .! ,A F.: :P: .!+ BX >~ZD :v :v ,A2F .+ Bj < I@, , + B;*d Bf < IC, >~_D : ZD :v :v < IF,
: :v; : + Bm, < G{, 07D :Y+ Bu < IH, , + B;7D :m+ Bx < IK, , + B; $ D :m < IN, + B; < IQ, @d :m+ B; :P1D + B_ .2D ? + C . D . . D . ? D .+ B~ < IS, ? _D :ZD :P :P < IW,
: :P; :+ C, < IX, < I\,
:y0$ 2d s+ B_ .! ,A3D ?+ C7D . + C < I], , + B; $ D . :y F :].d .!+ BU . 1D + C :y D :] D :Z+ C :y D :Z2$ :]+ C < I`, , + B; $ . :Z/ :] D . : .! ? ? F.*d C $ D :P .! ,A3F ? + C8 ,A3F >w+ C8 ,A3F >}+ C8 :P0F + C- ,A2f >w+ C+ ,A2& >}+ C- < Ic, , + B; .! ,A3F >u+ C+ ,A3F ?+ C+ ,A3F >o+ C+ ,A3F ?+ C+ :P0f + C7 ,A H.: :P: .!1d (+ C" :P1D + C@d :M ?ZD :P & 2& :M+ C? :P .2F >m+ CA :P .3F >m: :M*d C; . 1D + CK0$ + CE & 3f :M+ CK0$ 2+ CH :M0& + CK :M0& + CK < If, , + B;"& / :Z. :] :] F : D :v ? . F:J*d CO7D :M+ Ck $ . :v/ :] D :P < Ii, < Im,
< In, < Ir,
?ZD :t :t :j3F ? *d CX ?ZD :N :N :J2F >m*d C["& . :t :t :N
:j J :J: :N.$ 8& C_ :N0d + Ck :N :J2F >m+ Ck1D + Cj :N/& :N :K H:J.$ 8& Ch ? D :M+ Cc < It, < Ix,
.#2D >z3D >q+ Cr2D >|3D >u+ Cr2D ?+ Ct < Iz, < I},
+ C~" s $ D :P :P3D :v+ C{ )c2H .#+ C{ < I, < J,
+ C~: :P8& Cv :v .# F)c: :v; :+ CN .! ,A3F >w+ D ,A3F >}+ D: .!1f (+ C+ B; ? ? F;*d D $ D :P: .!0d (+ D .! ,A3F >}+ D :P0f + D ,A H;: :P+ D"& / :Z. :] :] F :O D :v( < J, < J,
: :v; :O+ D+ C: .! $ 3D : + C . 1$ + D#"& / :Z. :] :] D :v :] :v %o3H%o+ D" < J
, , $ D : + C: :v8& D @d :c .! ,A2H >m+ D/ ,B2H >}+ D/ ,B2H >y+ D/ ,C2H >x+ D/ ,C2H ? + D/ ,D2H ?+ D/ & .F .! & F :c D : :] %o.$ 6b 0b + D4+D24 D44 E4 EB >z ? F;*d D5@d :
,D :X $ ,D :P .! ,A3F ? + Di ,A3F >u+ DM ,A3F >o+ DT ,A3F >l+ DO ,A3F >}+ Di ,A3F >w+ Di ,A2f >q+ DE ,A2& >t+ DG < J
+ C :P0d + DK :P .! ,A F;: :P: .!1d (+ D8+ Di :P1D + DI+ DX7D :
+ DR < J, , + C $ D :
+ DI7D :X+ DW < J, , + C $ D :X+ DI: .! $ 3D :c+ D\ < J, , + C7D :+ D_ < J, , + C < J , >z_D :fZD :P :P < J!,
: :P; :f+ Db, < J", < J&,
$ D :+ D4 :c1D + Ds < J', >z_D :bZD :P :P < J+,
: :P; :b+ Dm, < J,, < J0,
+ F :1D + Dv < J1, , + C < J4, >z_D :aZD :P :P < J8,
: :P; :a+ Dy, < J9, < J=,
:3$ :w+ F D . :w D : . D :w+ F ? ? F;*d E $ D :P .! ,A2F >x+ E.d .! .! ,A3F ? + E> ,A3F >}+ E ,A3F >w+ E ,A3F >x+ E :P0d + E .! ,A F;: :P: .!1d (+ E < J>, , + C < JA, , + C: .! ,A3F >u+ E/7F :c+ E) & 3F :+ E < JD, , + C < JG, ?_D :^ZD :P :P < JK,
: :P; :^+ E!, :3d :w+ F D . :w D : . D :w+ F < JL, ?_D :\ZD :P :P < JP,
: :P; :\+ E+, + F7D :c+ E< $ 3D :+ E: < JQ, ?_D :[ZD :P :P < JU,
: :P; :[+ E4, $ D :.d .!+ E < JV, , + C < JY, , + C ?ZD :v :v. .! ,A3F >x+ E*d E>+ E >z ? F;*d EC $ D :P .! ,A3F ? + Ei ,A3F >u+ EW ,A3F >}+ Ei ,A3F >w+ Ei ,A2f >q+ EO ,A2& >t+ EQ < J\, < J_,
+ C :P0d + EU :P .! ,A F;: :P: .!1d (+ EE+ Ei :P1D + ES: .! $ 3D :c+ E] < Ja, , + C7D :+ E` < Jd, , + C < Jg, >z_D :ZD :P :P < Jj,
: :P; :+ Eb, < Jl, < Jo,
$ D :+ EB :c1D + Es < Jq, >z_D :}ZD :P :P < Jt,
: :P; :}+ Em, < Jv, < Jy,
+ F :1D + Ew < J{, , + C < J~, >z_D :{ZD :P :P < K,
: :P; :{+ Ey, < K, < K,
:3d :w+ F D . :w D : . D :w"& / :Z. :] :] F :z D :v & 3F :c+ FH.' H :P. :P F ;5( F & / :P F ; ;1f + F < K, < K ,
+ F* $ z$ ;. :v : F.'6$ :P+ F :vh ;"H.'4$ F* :vh ; H.'+ F* :v6$.'+ F < K
, < K,
+ F* :vD.' D ;.$ 1d + F < K, < K,
+ F*7D ;+ F&" ;.& $ ( z$ . :v
,- J 0!.$ 8& F# :v : F0! :w F2!&{ F.': :v; :z+ F+ C :m0D + F. < K, < K, $ . s&$ D :i" :i $ F :w D :v/$ $$ .$ D :s.$ D :g3d s+ F8 s F :g :s/& / :g :s F :i D :P/ :s$$ :P )c F-X ? :P/ :s$& .& :P( .( l H-X*d F> :P/ :s$$ :P %o F-]: :P; :i+ F; < K, < K ,
: :v; :w+ F3 < K , < K", $ ,& s D :U1d >+ FQ & > F :U@d :} D s D :T@d :u . 2D >v+ FV < K&, , @d :O@d .! :U D :. :O1d >+ F[ $ >/ :O D : s$ .!.$ D :]"$ . s. :] D :Z < K), " :Z/& . :] :] F :e D :v :v < K,,
: :v; :e+ Fc, : s: .!3$ :+ F[" s $ F :b D :vF.' F :t4F G5f G"h :t" .! $ F :` D :P/$ $ s. :v , F .$ :v 0!2h + Fu 22( + Fx :P/$ $ s. :v . H,+ G $ 2$ :t+ G & / :t $ D :N :N$$ z. :v ,-2D .$+ G"$ . :P$ s. :v . H,+ G: :N8& F|: :P; :`+ Fo+ G" .! $ F :^ D :P/$ $ s. :v , F .$" :t $ D :N :N$$ z. :v ,-2D .$+ G"$ . :P$ s. :v . H,+ G: :N8& G : :P; :^+ G: :v; :b+ Fj6D :O+ G) .!1D >+ G .!/& ? .! . H-X.$ 8& G" s $ F ; D :v" .! $ "( . $ s. :v , H-X.$ 8& G s$ :T. :v D :R < K., < K1,
: :v; ;+ G + G8" s $ F :~ D :v s$ :T. :v D :R < K4, < K7,
" .! $ . :O"* .
$
s.
:v
(, J -X.$ 8& G0 < K:, < K=,
: :v; :~+ G+ .!.d :O!& 3F :u+ GQ1$ >+ FV: :T+ FV: s: :}0d + GJ < K@, < KC,
"& / :Z. :] :] . H,.$ 8& GC . 2D >v+ Fg < KD, , "$ .D s@d :}+ F[ :}& s0d + G? < KG, , < KJ, + Gx!$ D :u6d .!+ Fh $ D :` ? D :[ < Gz, LU < KM, < KP,
?_D :yZD :v < KU,
: :v; :y+ GW, $ >. s&$ > D :T $ D :R" s $ F :x D :v" :T $ "( . $ s. :v H :O < KW, < KZ,
< K], < K`,
: :R.$ 8& G`: :v; :x+ G_ < Kc, < Ke, s$ :T.$ D :R < Ki, < Kk,
: :R < Kn, < Kq,
+ Gn < Kt, < Kv, < Kx, < Kz, < K},
>k,~ x :d` : :Y v vh ,B >r . ` : :Y v vX . .% :Y . .X 0 ; 0 t X 0 ; X 0 GM <6 @ ( ,B X 0 ; QP :t <6 . $,A X 0 ;p P <6 .% $; X 0 ;y X 0 ;} P <6 :d $; P < :d $ . X 0 < X 0 < P <6 :d $; P < :d $ . X 0 <
H :T h . ^ ? P .% .X 0 < X 0 Gx < $ s X 0 < X 0 < X 2 Gx <6 (, X 0 Gx <6 (, X 0 < X 0 < X 0 <$ P <6 : (, X 0 <) X 0 <. P 2 ~ ?
P : ^ ?0 <3 P , <6 :
@ , , h 2 P <6 .' @ . P <7 .' $ : x ?X 0 <8 X 0 <> $ . P <D .$ $ :v P <6 .$ (. P <6 )c @ . P <E m $ :v 0 t X 0 <I X 0 <N X 2 Bz <6 @ ( ,B X 0 <O eX 0 =5 /X 0 =d X 0 =g P <6 : $,A X 0 =l X 0 =q P 2 ~ ?P : ^ ?h 2 P <6 :t $. P =w :t $ :y X 0 =w X 0 ={ X 0 > X 0 > P > :t $ :P P <6 :t @ :j P <6 .# @ :K X 0 > $ .# X 0 > $ :P $ .# P <6 m @ ; X 0 > 2 @ > -X h 2 @ 2 ~ ? ^ ?^ ?^ ? >vX 0 >O X :T GO G= :
> (, P 2 :R @ > -X P 2 :R @ > -X P 2 :R @ > -X X 0 >U $ s X 0 >X X 0 >] ` 1 > ? P 1 >l $ s $ s $ :` ( :d ( :e $ v $ v ( :[ $ .$ P 2 :O @ > -X P 1 :R @ > -X ` 2 > ? H 2 ~ ?! ^ ?"^ ?#^ ?%h 2 Gs @ > -X P 1 :R @ > -X h 1 h :T ` 2 > ?&X 0 >b 0 t @ :d $ s $ s a.3@1 ,> O@ L?+ LgR~@1 ,> @@ L?,> ,> @ 6 w+ L" L?0B + L /#p !" X#p + L\p + La.9'1 ,> ,> ,> O@ L?+ L,> 6 + _ 4` L"` Q@ ,> < L@, ,^ ,> < LC, ,^ *b L+ L%,> < LE, ,^ 7@ L?+ L ,> < LH, ,^ + L",> < LI, ,^ Z 5" L%,> < LK, ,^ , 7@ L?,
,> < LL, ,^ , ,> < LO, ,^ ,> < LR, ,^ (@qd 1@ ,,
1@ #+ L30@ *+ L%,> < LT, ,^ + L%,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X L; p X L< p L> p L> p X L5 X ~ L; p x I$P 1 ,> #p D F b &" .$ &$ 7@ "$ (@ . &" * Lf)@
(@ $ &$ .$ .& (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 NTO 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') (' 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 / X DTA 0 DTA9 , = ) P : h EMPTYX 7 M p LPT DSK SEQIN OOPS HELP HELP.DAT S;$\X \ +P p @
$ D d $
D "$ . s&$ >.$ $ s.$ D _@d w D D 5 D D b D D @f D F v D J D J D K D w D D D / D H F D a (1D + ,!$ 3D v+ , < 9+, J57d a+ , < 9P, " a $ F r D j < 9S, : j; r+ ,, < 9T, , @d a+ , < 9W, , < 9N, 21D + 7+ , < 9Z, < 9], $ D !$ 3D v+ ,Y )2D +^+ ,% *2D +b+ ,% *2D +c+ ,% +3D +n+ -F +3D + -F +k +n FW*d ,& $ D j!$ D v )3D +e+ 6H )3D +[+ 6c )3F +n+ ,? )3F +b+ +x )3F f+ ,?0D + ,5 +2F +i+ ,5 ,3F +h+ ,; )2F +h+ ,8 (2F +V+ 7 j0f + ,; ) HW: j: 1d
+ ,, < 9`, , + +x < 9c, +k_D qZD j j < 9f, : j; q+ ,A, m2D +e3D +Z+ 8" d $ D j j H2H m+ ,V D f0D 1D + ,Y0D 1D + ,Y0D 1D + ,Y0D 1D + ,Y v2H r+ ,T v3H r+ ,Y < 9h, , + +x: j8& ,H < 9k, < 9n, + +x )3F +b+ +x )3F f+ ,` )2F +n+ -G: 1f (+ ,Y+ , m3D +d+ -D6D w+ ,j K D w" w $ ( K J w ( K J w.$ 8& ,e6D 5+ - D 54D -" 5 $ ( . J 3 ( . J 3 ( . J 4 ( . J 4 ( . J 5.$ 8& ,m +^_D mZD j +^ & $ j.& 0 H]*d ,}: j; m+ ,|6D + - f0$ 0d + -+ -
j D " $ ( i J ( j J .$ 8& -+ - $ D . s D $ . s D $ 2D /2D + - +d F/*d - $ D / 1$ + -D" .& $ F D .$ D "& / . F D j( ( 3f+ -) +m ( .& F ( .( j( .* ( J j( .( F *d - : j; + - : ; + - $ D ( D j ( 2$+ -3: 2& + -D+ -- ( 3d j+ -8 ( F $ . 2$ + -C $ . D / F ~ D j +m j( .& H*d ->: j; ~+ ->> 2d + -- f D
+ 9( $ D
+ 9( +k +n FW*d -H $ D j )3F +n+ -R )3F +j+ -T j0f + -Q ) HW: j: 1d (+ -J < 9o, , + +x < 9r, +k_D 0ZD j j < 9v, : j; 0+ -W, : " $ D j j 83D 1+ -b: j8& -\ < 9w, < 9z, + +x $ $ j. f ^1D + -m < 9|, j f < 9, )3F +n+ ,Y )3F f+ ,Y: 1d (+ -h+ ,6b j0b
+ -{+-o4 .j4 .j4 -{4 -{4 /j4 /j4 0!4 0]4 0]4 2G4 2G4 44 44 34 4h4 4h4 4m4 4m4 4n4 4n4 5L4 5N4 5i4 5i@d 5 $ D +i +n FW*d -} $ D j
)3F +n+ . )3F +h+ . )3F +\+ . )3F f+ . )3& +Z+ . )3f +W+ . < :, , + +x j0$ + .
) FW: j:
1d (+ . j0d + .7D 5+ . < :, , + +x
)3D +n+ ,Y < :, , + +x Z2D +n+ . "& $ W HX/$ 8& . +n D X+ . < :
, +iD ZD j j < :
: j; + .!, < :, < :,
f1d 1$ + .)+ ., 42d s+ .b1$ + .e+ .. 43d s+ .g $ 3D 5+ .I.d 1d + .3 < :, , + +x ( 4 F
0d (+ , )2F +\+ .::
$ D 5+ -}
)2D +h+ .?:
( F+ -}
)2D +n+ .D:
( F+ ,Y
)3D f+ .G < 9+, G_ ( F+ ,Y ( 4 F ( 3f+ .S ( D ( H ( D
0d (+ , )2F +\+ .X < :, , + +x
)2D +n+ .[:
+ ,Y
)2D +h+ ._:
@d 5+ -}
)3D f+ .b < 9+, G_+ ,Y < :, < : ,
+ +x < : , < :",
+ +x < :#, < :&,
+ +x@d 5 $ D w +k +n FW*d .l $ D j@d a
)3F +n+ . )3F +h+ . )3F +\+ . )3F f+ .7&)+ .z )2f +W+ .z & 2F j+ .z & F a j0f + .} ) HW: j:
1d (+ .o j0d + /7D 5+ / < :(, , + +x
0d '+ ,Y )3F +n+ ,Y < :+, , + +x7D a+ / Z2D +n+ /"& $ W HX/$ 8& /
+n D X+ / < :., +k_D ZD j j < :1, : j; + /, < :3, < :6, 43d s1$ + /3+ /6@d k < :8, +k_D HZD j j < :;, : j; H+ / , & / s&& /& $ F H D j&$ & . _. F a < :=, < :@, +iZD 8 8$& #2F k+ /."& . j. 8 F 4+ /6*d /) $ .d j; H+ /$ < :C, < :F, + +x < :G, < :J, + +x $ 3D 5+ /Q.d w1d + /; < :L, , + +x w( 4 F w 0d (+ , )2F +\+ /B: $ D 5+ .k )2D +h+ /G: w( w F w+ .k )2D +n+ /L: w( w F w+ ,Y )3D f+ /O < 9+, G_ w( w F w+ ,Y w( 4 F w w( w3f w+ /[ w( w D w( w H w w( D w 0d (+ , )2F +\+ /` < :O, , + +x )2D +n+ /c: + ,Y )2D +h+ /g: @d 5+ .k )3D f+ /j < 9+, G_+ ,Y 0D + /n < :R, , + +x $ D +g +n FW*d /o $ D i )3F +j+ /| )3F f+ 0 )3F +n+ 0 i0f + /z ) HW: i: 1d (+ /r+ 0 i0d 0$ + /~+ 0 < :U, , + +x < :X, +k_D 6ZD j j < :[, : j; 6+ 0, : 3D +S+ 0 2d +f2$ +g+ 0 + 0 + ,Y 0d (+ ,Y )3F +n+ ,Y )3F f+ ,Y +g +n FW*d 0 $ D i )3F f+ 0 )3F +n+ 0 i0f + 0 ) HW: i: 1d (+ 0 < :], +g_D 3ZD j j < :`, : j; 3+ 0 , + ,Y +k +n FW*d 0! $ D j )3F +n+ 0- )3F +h+ 0- )3F f+ 0- j0f + 0, ) HW: j: 1d (+ 0$ j0$ + 04 0d '+ ,Y )3F +n+ ,Y < :b, , + +x@d k < :e, +k_D gZD j j < :h, : j; g+ 07, k3D +a+ 0O & / s&& /& $ F g D j&$ & . _. F a < :j, < :m, +iZD 8 8$& #2F k+ 0J"& . j. 8 F 4+ 0O*d 0D $ .d j; g+ 0? < :p, < :s, + +xOd 4 1$ + 0S < :t, , + +x: 4 F )3F +n+ ,Y )2D +h+ 0Y: + 0! )3D f+ 0\ < 9+, G_+ ,Y: b@d D 1 D t D 3 D a D h +k +n FW*d 0a $ D j )2f +W+ 0g )2& +Z+ 0l )2f +_+ 0j )2& +c+ 0 < :w, , + +x $ D a+ 0: 1d (+ 0q < :z, , + +x )3F +h+ 1 )3F +U+ 1 )3F +\+ 1 )3F +n+ 0o )3F f+ 0o a0F + 0 )2f +W+ 0} )2& +Z+ 0 < :}, , + +x j0d + 0m ) FW: j+ 0m7D a+ 1 Z2D +n+ 1 "& $ W HX/$ 8& 1 +n D X+ 1 < ; , +k_D cZD j j < ;, : j;D c+ 1# < ;, < ; , 43d s+ 1 < ; , , + +x6d 4+ 1 < ;x & . . x F a" x$& . 4 F x < ;, < ;, $& ( D n+ 18 & / s&& /& $ F c D j&$ & . _. F a < ;, < ;, +iZD 8 8$& #2F k+ 13"& . j. 8 F 4 8$& ( F n+ 18*d 1, $ .d j; c+ 1' < ; , < ; , + +x )2D +U+ 1?7D 1+ 1= < ;!, , + +x $ D 1+ 1K )2D +\+ 1E7D t+ 1D < ;$, , + +x $ D t+ 1K )2D +h+ 1O7D 3+ 1J < ;', , + +x $ D 3: 1d (+ 18 < ;*, , + +x 1. t. 3 D 5D 1R < 9+, G_ )2F +l+ 1Y )2F +`+ 1Y *2F +P+ 1Y *3F +P+ 2@d / +a +n FW*d 1Z $ D j2D n+ 1a )3F +`+ 2 < ;-, , + +x )3F f+ 2 & 3F n+ 1z )3H +h+ 2 )3H +_+ 2 )3H +n+ 2 )3H +R+ 1} )3H +U+ 1} )2H +\+ 1p3F j+ 1} (3H +U+ 1} )2h +W+ 1s )2( +Z+ 1} (2H +h+ 1v < ;0, , (3H +h+ 1y < ;3, , + +x )2D +`+ 1}: + 2 j0d + 2 ) FW: j: 1d (+ 1a < ;6, , + +x n1D + 1_ _2D +n+ 2 "& $ W HX/$ 8& 2 +n D X+ 2 < ;9, < ;<, n1D + 21D + 2 < ;?, < ;B, + 2% < ;D, < ;G, + 2% k D /+ 2% l D / 0D 1D + 2 < ;I, , + +x $ .D 0d (+ 2% )3F f+ 2% )3F +n+ 2% )3F +h+ 2% )3F +_+ 2%: + 2 7D h: 5 5( . 5 b H3 5( . 5 4 H3 5( . 5 H4 5( . 5 ( H45D 22 5( . 5@j5 5( . 5.h5 5( . 5 51f + 29 < ;L, , + +x 5( . 5 5$$ . 5 / F] $ D h )2F +h+ 2D.d $ 3D + 1R < ;O, , + +x )2D +_+ ,Y: + 0] /0D + 2K < ;R, , + +x $ D /@d i D | D 5 +d +m F/*d 2N )3D +V+ 2S < ;U, , + +x +k +n FW*d 2T $ D j )3F f+ 3
& 3F 5+ 2l )3H +n+ 3 )3H +V.f | )2F +i+ 2l> |5f 2l: i1h + 2c < ;X, , + +x j +i FW i < ;[, +k_D kZD j j < ;^,
: j; k+ 2g, :
+ ,Y
)2D +`+ 2q $ 3D 5+ 2p D 5+ 2q@d 5 j
) FW: j1d + 3: i1f + 2x < ;`, , + +x i < ;c, +k_D jZD j j < ;f,
: j; j+ 2{, +k +n FW*d 2 $ D j:
1d (+ 2V & 3F (+ 3 < ;h, , < 9L, 21D + 7+ 3 < ;k, < ;n,
$ D
+ 2V 51D + 3 < ;p, , + +x < ;s, , + +x7D + 3 < ;v, , + +x +a +n FW*d 3 $ D j
)3F +n+ 3% )3F +R+ 3% )3F f+ 3% )3F + 3% j0f + 3# ) HW: j:
1f (+ 3+ 3% < ;y, , + +x j0d + 3) < ;|, , + +x
)2F +R+ 39 )2F +Q+ 3/ *2F +Y+ 3/ *3F +Y+ 31 < ;, , + +x $ .d
)3F + 39 )3F +n+ 39 )3F f+ 39 < <, , + +x j +R FW +Q FX +Y FX +Y FY < <, +g_D ZD j j < < ,
: j; + 3@,
)3F f+ 4 )3F +n+ 4 +a +n FW*d 3G $ D j.d
)3F +h+ 3_ )2F z+ 3P < <
, , + +x
,)2f +l+ 3S )2& +Z+ 3V < <
+ +x j0d + 3]
) FW: j:
1d (+ 3J < <, , + +x < <, , + +x j0d + 3b < <, , + +x Z2D +n+ 3h"& $ W HX/$ 8& 3e +n D X+ 3b < <, < < ,
< <!, < <$,
+i +n FW*d 3m $ D j.d
)3F z+ 4 )2f +l+ 3u )2& +Z+ 3w < <&, < <),
+ +x j0d + 3~
) FW: j:
1d (+ 3p < <*, , + +x < <-, , + +x j0d + 4 < <0, , + +x Z2D +n+ 4
"& $ W HX/$ 8& 4 +n D X+ 4 < <3, < <7,
< <9, < <=,
:
< 9I, 07D r+ ,Y < <>, , + +x H0D + 4 < <A, , + +x $ D H@d H@d I D I D
)2F +l+ 4 )2F +`+ 4 *2F +P+ 4 *3F +P+ 4_ +a +n FW*d 4 $ D j
)3D +`+ 4M
)2f +W+ 4( )2& +Z+ 45 )3F +n+ 4: )2F +\+ 4, j1F + 45 )3F f+ 4: )3F +R+ 41 < <D, , + +x7D + 44 < <G, , + +x $ D j0d + 49
) FW: j:
1d (+ 4$ j0d + 4> < <J, , + +x _2D +n+ 4D"& $ W HX/$ 8& 4@ +n D X+ 4> < <M, < <Q,
< <S, < <W,
1D + 4L < <X, < <\,
+ ,YD H D I+ ,Y:
0d (+ 4/ )3F +`+ 4U )3F f+ 4/ j0f + 4M ) HW: j+ 4M < <], +k_D sZD j j < <a,
: j; s+ 4X,
)3D +`:
$ D I+ ,Y l D H l D I $ D I $ .D
0d (+ ,Y )3F f+ ,Y )3F +n+ ,Y:
+ 4c $ D J+ ,Y < <b, j < <e,
+ +x $ D J+ ,Y +k +n FW*d 4o $ D j@d a
)3F +n+ 5 )3F +h+ 5 )3F f+ 5 )2F +\+ 4z < <g, , + +x
)3& +Z+ 5 )2f +W+ 5 & 2F j+ 5 & F a j0f + 5 ) HW: j:
1d (+ 4r j0d + 5
0d '+ ,Y+)3F +n+ ,Y < <j, , + +x7D a+ 5%+ +kZD j, j W3H +n+ 5 W2h +W+ 5 W2( +Z+ 5 < <m, , + +x*d 5
: j; + 5 , < <u, < <x,
43d s1$ + /3+ 5?@d k < <z, +k_D ZD j j < <},
: j;$ + 5(, .& / s&& /& $ ,F
+ +iZD 8, 8$& ,#2F k+ 5:"& . j. 8 F 4+ 5?*d 54 $ .d j;
+ +x 1$
+ 5B < = , , + +x: 4 F
)3F +n+ ,Y
)2D +h+ 5I:
+ 4n
)3D f+ 5L < 9+, G_+ ,Y $ D K+ ,Y
)2f +W+ 5Q )2& +Z+ 5T < =
, < =, + +x ) D X: )3F +n+ 5c )3F f+ 5c )2f +W+ 5Q )3& +Z+ 5Q ) F X: )3D f+ 5e )3D +n+ 5e < =, , + +x X D X +n D X < =, < =, < =, < = , + ,Y +k +n FW*d 5j $ D j@d a )3F +n+ 5| )3F +h+ 5| )3F f+ 5| )3& +Z+ 5w )2f +W+ 5w & 2F j+ 5w & F a j0f + 5z ) HW: j: 1d (+ 5m j0d + 6 0d '+ ,Y )3F +n+ ,Y < = , , + +x7D a+ 6 Z2D +n+ 6 "& $ W HX/$ 8& 6 +n D X+ 6 < =!, +k_D ~ZD j j < =%, : j; ~+ 6
, < =&, < =*,
43d s1$ + /3 & . 8&& . _ F a & / 8&& $& . 8 F x < =+, < =/,
$& # H k x$& ( F l+ 6:@d k < =1, +k_D }ZD j j < =5,
: j; }+ 6", & / s&& /& $ F { D j&$ & . _. F a < =6, < =:,
+iZD 8 8$& #2F k+ 65 8$& ( F l"& . j. 8 F 4+ 6:*d 6. $ .d j; {+ 6) < =<, < =?,
+ +x a1$ + 6> < =A, , + +x: a 4 Fa k Fb l Fc
)3H +n+ ,Y )3H f+ ,Y )3H +h+ 6G < 9+, G_:
+ 5i +k +n FW*d 6I $ D j:
1d + 6O < =D, , + +x
)3F +n+ 6U )3F f+ 6U j ) HW: j+ 6K j1D + 6M < =G, +k_D uZD j j < =J,
: j; u+ 6Y, +WZD i i k3HQ+ 6`*d 6]+ 6M $ D
k D Q+ 9( $ D ( ` *3D +n+ 6| *3D f+ 6| +g +n FW*d 6h $ D j $ D )3F +n+ 6u )3F f+ 6u )3F + 6u j0f + 6t ) HW: j: 1d (+ 6l < =L, +g_D ZD j j < =O, : j; + 6x, ) < 9G, 0 $ 3D r+ 7 < =Q, , D (+ +x < =T, + +x < 9F, G @d (+ +x < 9E, G $ 1 D
+ 9( v2D r+ 7 v3D r+ 7
< =W, , + +x +] D m +V D +i D +h D +h D +T D +\ D +e D +] D +n D $ D D @d < 9B, F1 00D + 7A k2D +a3D +e+ 7C2D +V3D +[+ 7C3D +k+ 7C < 9?, E8 $ 2d s+ 7A2D r+ 7$ s F + 7F r0D 1D + 7'+ 7A $ . s D +k +n FW*d 7) < =Z, < =^, < =_, +k_D ZD 8 8 < =c, : 8; + 7/, +Q D X X2D +n+ 78 +j W FW*d 75 +n D Z+ 73 < =d, +k_D ZD 8 8 < =h, : 8; + 7;, r1D + 7F k D + 7F < =i, , + +x < =l, < =o, + +x D i: i0d (+ 7K )3F f+ 7K )2F +n+ 7G $ D 8 < 97, ?G7D r+ 86b r0b + 7Z+7P4 7Z4 7\4 7^4 7`4 7b4 7d4 7f4 7h4 7j4 7l4 7n4 7q4 7s4 7u4 7w4 7y4 7|4 7~4 8 < =q, , + +x < =t, , + +x < =w, , + +x < =z, , + +x < =}, , + +x < > , , + +x < >, , + +x < >, , + +x < > , , + +x < >
, < >, + +x < >, < >, + +x < >, < >, + +x < >, , + +x < > , , + +x < > , , + +x < >", < >%, + +x < >', , + +x < >*, , + +x < >-, , + +x < 94, F1"$ .D 00D 1D + 8 < >0, G_ 8 ( H 1D + 8 < 91, E87D r+ 8
$ .d r6D r+ 7N 8 s F $
D f+ ,Y 8@f k FE &
F f+ ,Y 0 D x m3D +e+ 8N +fZD
)3F +i+ 8*d 8+ 8 "& .
+n H).$ 8& 8 < >1, +f_D 7ZD j j < >4,
: j; 7+ 8 , m2D +S3D +[+ 8W3D +h+ 8~3D +n+ 8K" d $ D j j H3D m+ 83: j8& 8)" $ D j j 83D m+ 8?: j8& 8. < >6, , + +x6b j0b
+ 8?+844 8Z4 8Z4 8Z4 8]4 8]4 8]4 8`4 8c4 8c4 8c4 8c4 8f4 8i4 8m4 8m4 8m4 8p4 8u4 8x4 8{6b j0b
+ 8K+8@4 94 94 94 94 94 94 9 4 94 94 94 94 94 94 94 9 4 9 4 94 94 9!4 9! $
D x +[ D m < 9/, G& < >9, , < ><, , < >?, , < >B, , < >E, , m2D +[+ +x < >H, , m2D +[+ +x < >K, , m2D +[+ +x < >N, , m2D +[+ +x < >Q, , m2D +[+ +x < >T, , m2D +[+ +x < >W, , m2D +[+ +x < >Z, , < >], , m2D +[+ +x < >`, , m2D +[+ +x < >c, , < >f, , m2D +[+ +x < >i, , m2D +[+ +x < >l, , m2D +[+ +x < >o, , m2D +[+ +x < >r, , < >u, , m2D +[+ +x < >x, , m2D +[+ +x < >{, , m2D +[+ +x < >~, , m2D +[+ +x < ?, , m2D +[+ +x < ?, , < ?, , m2D +[+ +x < ?
, , m2D +[+ +x < ?, , m2D +[+ +x < ?, , m2D +[+ +x < ?, , 2D +[+ +x < ?, , m2D +[+ +x x3D 0+ +x < 9., G < 9,, :+ +x +P
Ap ,~ ` +s +T +R +Rx xp x +rX k r s s _X ) k 0 ) i 8 , 9 E R s _ r X k r s s _X ) k 0 x 1x 2` ` r +Q +Q` r h ) +X 2h ) +X 2X 0 ( a X 0 X 0 X 2 7 @ ( ) X 0 P m $W X 0 " X 0 ' $ m X 0 + P 1 $W X 0 / ( 1 X 0 3 (8 $H X 0 : X 0 ? X 0 E P k $W P L k $ 4 X 0 L X 0 Q X 0 W $ 4 $ s X 0 \ $ 4 X 0 b $ s X 0 i X 0 n P k $W P t k $ 4 P k $W P 1 a @ > , X 0 t $ k X 0 x $ 4 X 0 } X 0 X 0 X 0
P $W P $W X 0 n P k $W P 1 a @ > , X 0 t $ k X 0 X 0 X 0 X 0 P k $W P & k $ 4 X 0 & X 0 , P 1 a @ > , P 1 a @ > , X 0 2 $ k X 0 7 X 0 : X 0 > X 0 A X 0 F X 0 M X 0 U X 0 F P k @ X P Z k $ / P [ k $ / X 0 \ X 0 d X 0 k X 0 r X 0 u X 0 z P / $W X 0 z P / $W X 0 X 2 7 @ ( ) X 0 u X 0 X 0 X 0 X 0 X 0 X 0 P $W X 0 X 0 $) X 0 & X 0 + X 0 / P k @ X P 2 k $ X 0 $) X 0 & X 0 2 X 0 7 P k @ X P 2 k $ X 0 : X 0 = X 0 B X 0 G X 0 L P k @ X P Q k ( H P R k $ I P H $W X 0 r (8 X 0 S X 0 n X 0 X P k $W P t k $ 4 P k $W P 1 a @ > , X 0 t $ k X 0 ] X 0 c $) X 0 i P k $ X $ X P m k $ a X 0 n P k $W P t k $ 4 P 1 a @ > , P k $W P 1 a @ > , X 0 t $ k X 0 n X 0 x P k $W P ` $W X 0 | P 2 ~ +oP ` ^ +pX 0 " P ~ $ P $W P $W X 0 X 0 $ k X 0 X 0
X 0 X 0 X 0 X 0 X 0 # X 0 ( X 0 , X 0 / $ r X 0 / $ r X 0 / $ r X 0 3 X 0 8 X 0 < X 0 / $ r X 0 3 X 0 A X 0 D x +qP m $) X 0 J X x O >X x p ^X x (N (X x (v ;X x )1 3X x )e &X x * BX x *M <X x + F (I2) (2A1) COS + FLOATSTD MEAN ~ NORM SIN LOG10( ARCSNARCTNRAN ALPHASQRT FIX - LN * EXP ABS / 8 ) PROBLEM NONONO PROB1 Gd0 \ ?4 !p @ ?+ p @ ? p @ ?" p @ ? p @ ?/ !p @ ? !p @ ?* !p @ ?! !p @ ?+ !p @ ?, !p @ ?2 p @ ?& p @ ? p @ ?3 !p @ ?0@d ?3 D ?* D ?!"$ . ? D ? : ? 2d ?"+ ?h. ?+ 2F ?:+ ?^ ? .$ D ?* ? . ?+ 2D ?A+ ?Y ? /$ D ?!6d ?*+ ?e $ D ?3+ Ct ?*3d ?!+ ?h $ D ?3+ Ct@d ?$2D ?*+ ?j ? F ?*2D ?!+ ?l ?" F ?!: ?$ ?* D ?16b ?$0b + ?r+?o4 ?r4 @ 4 @=4 A4 At ?1 D ?( < DN, F1"$ 2D ? + ?l ? . ? & F ? . ?*@f ? . ?,@f < DK, F1 ? 1$ + @ ?/. ?2 ? "F ? . ?, ?/. ?2 F ? . ? & 1 F+ A> < DH, E86D ?)+ @ ? . ?! ? F+ A> ?1 D ?( < DE, F1 ?12d ?!+ ?l ? 0F 1F + @+ @ . ?+ 2H ??+ @ : ?1 ? . ? ( H1F + @& < DB, E87D ?)+ @ $ . ?) D ?3+ Ct ? . ?* ? F < D?, F17d ? + @S0d + @" < D<, E86D ?)+ @ ? . ?! ? F+ A> ? . ?!@f ? . ?, ? F+ A> ? . ?, ? F ? . ?*@f < D9, F17d ? + @S0d + @1 < D6, E86D ?)+ @ ? . ?! ? F+ A> ? . ? & 1 F ?/. ?2 ? . ?, (' H ?5 < D4, Hw @ ? . ? F ? . ?, ?/. ?2 F+ A> ?1 D ?( < D1, F1 ?12d ?!+ ?l ? 0D 1D + @D0D 1D + @D+ @=0D 1D + @F+ @H ? . ? ( H 0D 1D + @J+ @L ? . ? ( H 0d + @` < D., E86D ?)+ @ ? . ?* ? F < D+, F16d ? + @U $ D ?3+ Ct ? 0d + @[ < D(, E86D ?)+ @ ? . ?! ? F+ A> ? . ?!@f ? . ?, ? F5F A> $ D ?3+ Ct ? . ?, ? F ? . ?*@f < D%, F17d ? + @S0d + @k < D", E86D ?)+ @ ? . ?! ? F+ A> ? . ? 0D + @q ?/. ?2 ? . ?, ? F ? . ? 0D + @v6D ? + @v $ D ?3+ Ct ? . ? 0D + @| ?/. ?2 ? . ?, ? F ? . ? & 1 F ? . ?, ?/. ?2 F+ A> ?1 D ?( < D , F1 ?12d ?!+ ?l ? 0D 1D + A 0D 1D + A + A0D 1D + A + A
< DV, < DY,
?( D ?2@d ? 1f + AG $ D ? "$ . ?1/ ?(/d ? 4D A_5d AR.$ ( D ?0"( . ?1/ ?0 ?0 . ?+"
? .
L//$ 8( AM+ A_"$ . ?1 D ?/ ?//& ( ?/ . ?+" ? .
' L/.$ 8& AU $ (/ ? D ?. ?./& ( ?. . ?+ ?B J'.$ 8& A\" ? .D ?!" ? .D ?" ?(. ?+ ?8 F: ?( ?%3F ?B+ Ag. ?+ ?% F: ?( ?(. ?+ ?& F: ?(: ?/1d 1+ Al < D\, G_ ?2 F ?1: ? 1f
+ Ap ( 2H ?3+ Ct6b ?$0b + At+Aq4 ?l4 @ 4 @=4 A+ ?* D ?10< D1D + A $ D ?3+ Ct ?1. ?+ 3F ?6+ B
3F ?>+ B
3F ??+ B
3F ?@+ B
3F ?B+ B
3F ?A+ B
3F ? + B
$ D ?3+ Ct> ?*. ?+ 3F ?:+ B $ D ?3+ Ct"$ .D ?*"& $ F ?' D ?1. ?0 ?*. ?+ 2F+ B1 ?10D + B $ D ?3+ Ct ?10D + B ?*3$ ? + B $ D ?3+ Ct ?10D + B! $ D ?3+ Ct $ . ?* D ?. ?./& ( ?. . ?+ ' J'.$ 8& B$ ?+ ?B F '"$ . ?1 D ?- ?-/& ( ?- . ?+ ' J'.$ 8& B+ ?+ ?B F '"$ .D ?"+ ?V: ?1; ?'+ B> ?*5d B5 & F ?3+ Ct"& $ F ?# D ?1. ?0 ?*. ?+ 2F+ B? ?10$ 0d + B=+ BA1D + BA & F ?3+ Ct: ?1; ?#+ B7+ B3 $ . ?* D ?1 < D , F1 ? 1D + BF < D], G_ ? . ? @f ? 2D ?=+ BK ? . ? * J'2D ?>+ BN ? . ? * J'2D ??+ BQ ? . ? * J'2D ?:+ BT ? . ? * J'2D ?9+ BW ? . ? * J'2D ?5+ BZ ? . ? * J'2D ?8+ B] ? . ? * J'2D ?7+ B` ? . ? * J'2D ?;+ Bc ? . ? * J'2D ?;+ Bf ? . ? * J'2D ?@+ Bi ? . ? * J'2D ?=+ Bl ? . ? * J'2D ?7+ Bo ? . ? * J'2D ?<+ Br ? . ? * J'2D ?<+ Bu ? . ? *
J'2D ?9+ Bx ? . ? *
J' ? . ? 2F'+ B| ( H ?3+ Ct < D, F1 ? 1D + C
< D, E8 $ 2D ?)+ @ ? . ?* ? H ? . ?! D ? . ? 1H + C 0H + CQ ? . ?*3$ + CQ & F ?3+ Ct ? . ? 0D + C ?/. ?2 < D, Hd @ ? . ? 0D + C ?/. ?2 < D, Ir @ ? . ? 0D + C ?/. ?2 < D, IM @ ? . ? 0D + C ?/. ?2 < D , Ik @ ? . ? 0D + C% ?/. ?2 < C, J @ ? . ? 0D + C* ?/. ?2 < C~, J @ ? . ? 1F + C. 0F + C/ $ D ?3+ Ct ? . ? 0D + C4 ?/. ?2 < C}, HI @ ? . ? 0D + C9 ?/. ?2 < C|, H3 @ ? . ? 0D + C?7$ ? + C? ?/. ?2 ? F ? . ? 0D + CD6$ ? + CD ?/. ?2 ? "F ? . ? 0f
+ CL 1&
+ CL ? . ?*@f ? . ?, ? F+ CQ ? . ? & 1 F ? . ?, ?/. ?2 F ? . ?+ ?/ F < D^, < Da,
< Dc, < Df,
$ . ?* D ?(. ?+ ?8 F: ?( ?%3F ?B+ C^. ?+ ?% F: ?( ?(. ?+ ?& F: ?(" ?(. ?1 F ? "& (. ?1 ?1 . ?+"
? .
' L/.$ 8& Cd $ (/ ? D ?, ?,/& ( ?, . ?+ ?B J'.$ 8& Ck" ? .D ?": ?/1d 1+ Cq < Di, G_: ? 1f
+ ?V ( H ?3 ?4 ?" Ap ? Ap ?/ Ap ?& Ap ? Ap ?3 Ap ,~ x ? x ? x ? x ? x ? x ? x ? x ? X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ?+ ?1 ? ? ?0X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0p ?5 ? X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ? ?) ? ?& ? X ?+ ?1 ? ? ?0X ?+ ?1 ? ? ?0P ?3 ? $ ?/ P ?4 ? @ ?% x ?Bx ?DP ?3 ? $ ?/ P ?4 ? @ ?% x ?E (5A1)(I5) n5I ~ OBS P X # m \ E3 p @ E1 p B E0 p B E, p B E. p D E+@d E0 D E,3@ E5+ Es" E..& && /& $ F E0 D E-&$ & . E+. F E, < E{, < E~,
E6ZD E+ E+$& Da2F E1+ EN"& . E-. E+ F E,+ Eu*d EH $ .d E-; E0+ EC E6 E7 FE(*d EQ < F, < F,
E(2D E7+ Ef E7 D E(2D E)+ EY & F E0+ Eu E*2D E7+ E^"& $ E( HE(/$ 8& E\+ EY < F, < F
,
,< F < F,
E,0$ 2d E.+ Ee+ Eu $ D E0+ Eu E(2D E4+ Et E7 D E( E*2D E7+ En"& $ E( HE(/$ 8& Ek+ Ei < F, < F,
< F, < F,
"d E,+ Eu E3 D E,+ Eu $ D E0 E3 E1 Ap E0 Ap E, Ap ,~ P 1 E, @ > Dj P E2 E1 @ E( P E2 E1 @ E( P E2 E1 $ E, P E2 E1 @ E( P E2 E1 $ E, (15A1) (F) . 9 0 8 G>n \ F- !p @ F( p @ F p @ F p @ F !p @ F* F/ F0 FF *d F7@d F( $ D F*@f F F . F( 3F F- D F F . F( 3& F.+ FB 2f F.+ FB $ D F + FN F . F( 3D F&+ F] F/ZD F+ F . F( F+. F* '2H + FM F+ F F F 0F + F` & .F F + F`*d FE F 0D + FW F . F( 3& F.+ FS 3f F.+ FW F . F( 3D F-+ FW $ ( D F + F` F*0d + F[ F . F( FF : F*: F 1$ (+ FB $ D F F 0D + F` $ D F < Fp, < Ft,
F*0d + Fe"d F @d F + Fj F 0D + Fi < Fv, < Fz,
+ Fj F( D F : F F- F Ap F Ap F Ap ,~ P F+ F( @ F P F, F( ( F !* G** ,^ ,~ * x ,> < G*< G p Z@ G@@ G@@ G GQ`|+ GP w,~ "p h a`~ + G h ``~ + G
$ GQ!G d GR/"+ GP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ G\` G < G, ,^ ,~ SMI 1 ,> , F} GS BG+ G4_MI 1 ,> , F} GU BG+ G4I5R1 ,> , F} GV BG*\ G>7Ap X" GW BG/& p d"~ l" BG*\ G>/& p d"~ l" $ BG*\ G>/& p d"~ l"
BG*\ G>Sp *\ G>/&Xp B G@@ G GX BG*\ G>/& p d"~ l" BGRF G < G, + F{EV4i91 ,> + GLS ,i@1 ,> + GL_ ,i@1 ,> + GLK>2 1 ,> + GLK>40 1 ,> + GL[<I71 ,>
& GX w @ )@ .
" 5B GM
& G^,~ ` .
.4 SEQIN ^ GRSEQOUT ^ GTRANDOM ^ GUSEQINOUT G %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> O@ H + GcgR~@1 ,> @@ H ,> ,> @ 6 w+ Gp" H 0B + Gk!"A`X#p 5@ Gh/#p !" X#p + Gp\p + Gpa.9'1 ,> ,> ,> O@ H + Gp,> 6 + _ 4` Gx"` Q@ ,> < H , ,^ ,> < H!, ,^ *b Gu+ H,> < H#, ,^ 7@ H + G~,> < H&, ,^ + H ,> < H', ,^ Z 5" H,> < H), ,^ , 7@ H ,
,> < H*, ,^ , ,> < H-, ,^ ,> < H0, ,^ (@qd 1@ ,,
1@ #+ H0@ *+ H,> j< H2, ,^ + H,^ ,^ ,^ ,~ ('TType G toRContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP .p X H p X H p H p j H p X H X ~ H p x CNM` 1 ,> #p 2b HC+ H@"p p + HC4@ H> @ HB,> < HD, Hd,^ p B HB,> < HD, HI,^ ,~ HC7ap "` ,~ +P
Hr#p + Hf ,~ > attempt to take SQRT of negative arg Kc3@ p p + IKc3K , I
,~ Kc3J , I ,~ Kc3I , I ,~ Kc3H4B I5@ I5" I+D
IU,~ ,> ,> # $ )D /$ @,> 4d IX $ (F), +M I5F I5" I ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + I&Kc#K , I& @ ,~ Kc#J , I& @ ,~ Kc#I , I& @ ,~ Kc#H4B IJ5@ I*5" I4+D
I)UI,~ D II!$ @ IH B II5" I1#` + IF, I1!" B ,~ + I4(BdB + I45B I/ II,~ +7` II+ I=`d +D
I8UI`d >@ 6I IH+ I3 II`B "` + I3/ IKid + I?+D + I:U", I1 IH+ I4+ I. ! ,~ x Kc 1 ,> p 3" Ih+ IR3b Ih+ IT+D
IQUI,~ +D D Ii F Ij@@ Ii%" j" % Ig)/;` : XD Ic5f I[aF + I[.& @(|h& f Ii Ie If If Ii Ie D Ig@ Ii Ij,~ !t0 ' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> p 4@ J @ Iq,> < J
, Ir,^ Ip,~ {e^b C2|p 1 ,> p 5` Iv4@ J+P J B J J J J J J J,~ +D
J J,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x IqATTEMPT1TO TAKE LOGOF NEGATIVE ARG G? @ 1 ,> p J2 J2+J + Jg&t@ 1 ,> 3p J2+= + JG? 1 ,> Rp J3+ Jg&p 1 ,> p B J1#` 3b J0+ J- D J3 J33b J4+ J&%" (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 (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'/) (' THE CONSTANT SPECIFIED IS NOT THE SAME MODE AS VAR:',A5) (G15.7) (I15)('+',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 X EMPTYX M M ERROR eH1 \ F? K( . K.$ . a D DX FB D DL@d C_ D DU J1D + J>" w $ ( "
w.* .
w.J DU.$ 8& F\ 5. a.d DU1d t+ Fd < K", M( & 0j& DU/& F E'1f >+ Fh ( > H E' E'.& F DX H1F + F{6b DX0b + Fp+Fl4 Fp4 Fr4 Ft4 F{4 Fw4 Fy < K#, , + F{ < K&, < K),
+ F{ < K*, < K-,
+ F{ < K/, < K2,
+ F{ < K4, < K7,
@d De $ D DY $ >. s&$ >$ s.$ D DU" w $ F E& D Em( w F D
$ . D
&$ . DU D El & / D
&& $& . D
F E'3D De+ G
< K9, < K<,
D De 5. a. DY$ DX & $ E' # Fj 5. a. DY$ DX & $ E' ( Fj $ 2D H+ G" I1F + G" ( $ E'5F G7J (+ G"
(1J + G"0F + G ( $ E'3D (+ G" < K?, ( $ E' < KB,
+ K : DY: D
Em( 3d w+ G: Em; E&+ G $ D Em $ >. s&$ > D CV Em( D D
.$ >&$ > D DU/$ $$ > D Dd@d Ca $ . Ca2d E'+ G<: Ca D
/ Dd FE' D
FDe: D
Em( 3f + G9: Em2h Db+ G>(
J D
$ >. D
&$ > D DM3D DU+ G/ Em( D
F 51$ + GP" 5 $ F E% D Db/$ $ DX D Dd Db( . Db 3/$ $ CV.$ . DU D Dc < KC, < KG,
" Ca $ . Dd
E'
(, J j.$ 8& GK: Db; E%+ GB a1$ + Ga" a $ F E$ D Db"& . 5. Db$ DX F Dd a/& $ CV.& . DU F Dc < KI, < KM,
" Ca $ . Dd
E'
(, J j.$ 8& G\: Db; E$+ GS 5. a D Ek" w $ F Dd D Db( w F D
"$ . D
$ CV.$ . DU D Dc < KO, < KS,
DX$ Ek D Dd" Ca $ . Dd
E'
(, J j.$ 8& Gm: Ek: D
. Db( 3d w+ Gf: Db; Dd+ Gd" Ca $ ( HD
$ D Db"$ . Db$ DX. D
D El Db( . Db 40D + H Db( . Db"5 $ D DY DY$$
. Db ]3D CU+ H : DY8& H El j3D CU+ H( Db( . Db6b40b + H+H4 H4 H4 H 4 H 4 H#4 H& Db( . Db"5 $ D DY DY$$
. Db El j3H]+ H.: DY8& H+ H( Db El j3&g+ H.+ H( Db El j3fg+ H.+ H( Db El j2fg+ H.+ H( Db El j2&g+ H.+ H( Db El j2Fg+ H.: Db2d 5+ H,( . Db 33F0+ G} D
@fD2: Db2d 5+ H2( . Db 33F0+ H.+ G}: D
; Ei+ G|@d DY" Ca.$ F Eh"D CV7FDU. Em Em F Eg D D
a1$ + I 5$ DX. CV D El j2F CU+ HJ FI FR FDM*d HB FQ D DM FH D DN F@ F DN F DO D DO FD D DP FO D DP+ Hf d.$ 6b 0b + HO+HM4 HO4 HT4 H] < KU, El < KY,
< KZ, < K^,
+ Hf El < K`, FP_D EfZD Db Db < Kd,
: Db; Ef+ HW, FI FR FDM*d H[+ Hf < Ke, El < Ki,
< Kj, < Kn,
DM2D FR+ Hf FK DM FDM*d Hc FR D DT+ Ha a1$ + I $ . 5$ DX. CV D El j2F CU+ Ht FI FR FCV*d Hl FQ D CW FH D CW F@ F CX F CX D CY FD D CY FO D CZ+ I d.$ 6b 0b + Hy+Hw4 Hy4 H~4 I < Kp, El < Kt,
< Ku, < Ky,
+ I El < K{, FP_D EpZD Db Db < K,
: Db; Ep+ I, FI FR FCV*d I+ I < L , El < L,
< L, < L ,
DM2D FR+ I FK$DM FDM*d I
j D Dd DX$ D
j D DL"$ . D
$ DX. CV D El & 3F H+ J3F K+ I? j2H CU+ I# FI FR FDY*d I FQ D DZ FH D DZ F@ F D[ F D[ D D\ FD D D\ FO D D]+ I? $ . Dd6b 0b + I(+I&4 I(4 I-4 I6 < L , El < L,
< L, < L,
+ I? El < L, FP_D EnZD Db Db < L,
: Db; En+ I0, FI FR FDY*d I4+ I? < L, El < L ,
< L , < L$,
DZ2D FR+ I? FK DZ FDY*d I< FR D Da+ I:6b DX0b + ID+IA4 ID4 IG4 IJ4 IM4 IO4 IR < L&, CV < L),
+ IT < L-, CV < L0,
+ IT < L5, CV < L8,
+ IT < L>, , + IT < LA, < LD,
+ IT < LG, < LJ,
< LN, < LQ,
Ca3D FJ+ J$ Ca2D FQ+ I] Cb2D FG+ I] Cb2D F@+ I] Cc3D F@+ J Ca2D FR+ I` Cb3D FR+ J $ 3D Dd+ J D Db Db Ca2f FC+ If Ca2& FD+ In Ca3F FR+ Ip Ca2F FA+ Ij7F Dd+ In Ca3F FE0D + Il+ In < LS, , + IT: Db1d + Ib7D Dd+ Iw Ch2D FR+ Iw"& $ Ca HCa/$ 8& Is FR D Ca+ Iq < LV, FH_D D ZD Db Db < LZ,
: Db; D + Iy, 6D Dd+ J < L[, El < L_,
0D + J < L`, El < Ld,
+ J Ca3D FG+ J < Le, , + IT $ D Db Db Ca3D FG+ J
: Db1d + J Db FR FCa El < Lh, FO_D C`ZD Db Db < Ll, : Db; C`+ J, + J El CU Fj+ J 6D Dd+ J El H Hj0D + J El I Hj0D + J El H Hj: D ; Eg+ H=+ CV & FDY"$ . 5. a D Da" w $ F C` D Db( w F D : Da"$ . D $ CV.$ . DU D Dc < Lm, < Lq, " Ca+$ D' DX$ Da. (j J ,.$ 8& J0 < Ls, < Lw, : D Db( 3d w+ J): Db; C`+ J(7D DY+ K Em3d + G)+ K $ >. s&$ >$ s.$ D DU" w $ F C^ D Db( w F D "$ . D &$ . DU D El $ / D &$ $$ . D D E' < Ly, < L}, < L, $$ < M, < M, < M, Df3D FJ+ K Df3D FR+ K FP FR FEq*d JT $ D Ca Ca De3F FR+ Jd De3F FF+ Jd De3F FM+ Ji De3F FE+ Ji De3F FN+ Ji De3F FN+ Ji De3F FB+ Ji De FEq: Ca1f + JW Eq3$ FL+ Jg Eq3d FF+ Jk < M , , + JE < M
, , + JE $ $ E' < M, < M,
$ $ E' #3D FE+ J $ $ E' #3D FP+ J $ $ E' #3D FC+ J $ $ E' #3D FL+ J $ $ E' #3D FJ+ J FM & $ E'.& FR H#*d J{+ K < M, $ $ E' < M,
+ JE Ca De3D FF+ K: Ca1d (+ K+ K $ . Ca D Ek"& / Ca. Ek Ek D Ek Ek De2D FK+ K < M, , + JE: Ek8& K
$ $ E' < M , $ . Ca D Ej"& / Ca. Ej Ej F DV D Ek Ek < M ,
: Ek; DV+ K, < M", < M%,
: D
Db( 3d w+ JE: Db; C^+ JC F?,~ x FSX 0 Et X 0 Ey $ c X 0 E $ c $ c X 0 F $ c X 0 F $ c $ c P 1 El @ > , X 0 F $ # P 1 Dc @ > , P 1 Dc @ > , P 1 Dc @ > , P F D
(j P F% D
@ DM P F% j (DM P F D
$j P F% D
@ DM P F D
(j P F% D
@ CW P F% j (CV P F D
$j P F% D
@ CW P F D
(j P F% D
@ DZ P F% j (DY P F D
$j P F% D
@ DZ X 0 F $De $ DL @ DZ X 0 F $De $ DL @ DM @ DZ X 0 F $De $ DL @ DM @ CW @ DZ X 0 F X 0 F @ DM X 0 F" @ DM @ CW X 0 J$ F% @ ( Ca X 0 F& P F% D
$Ca P F) D
(j P F* D
$j X 0 F* P F% j $Ca P 1 Dc @ > , P 1 Dc @ > , P 1 El @ > , X 0 F/ $# X 0 K F1 @ > Df X 0 F2 X 0 F6 P F1 # @ Eq X 0 F8 $# X 0 F< P F1 $ $De P 1 El @ > , a.3@1 ,> O@ Me+ M,gR~@1 ,> @@ Me,> ,> @ 6 w+ M8" Mf0B + M4!"A`X#p 5@ M1/#p !" X#p + M8\p + M8a.9'1 ,> ,> ,> O@ Me+ M8,> 6 + _ 4` MA"` Q@ ,> < Mg, ,^ ,> < Mj, ,^ *b M>+ MK,> < Mk, ,^ 7@ Me+ MF,> < Mn, ,^ + MH,> < Mp, ,^ Z 5" MK,> < Mq, ,^ , 7@ Me,
,> < Ms, ,^ , ,> < Mv, ,^ ,> < My, ,^ (@qd 1@ ,,
1@ #+ MZ0@ *+ ML,> < Mz, ,^ + ML,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X Mb p X Mc p Md p Me p X M\ X ~ Ma p x DSK AT OUT.D~` } g&\ K D w D K4D =" w $ (
w J K (
w J K.$ 8& 8+ @ $ D K D L s D L D j4D H" $ (
J i (
J j.$ 8& B+ J $ D j D j s D k 5 D 4D a" $ ( .
3 J ( .
3 J ( .
4 J ( .
4 J ( .
5 J .$ 8& M 3_D .ZD 0 3 &
$& . 0 ] H0*d \: 0; .+ \ / D 0D + f 3 / F*d c $ D 1D + k 2 D 2 D 1 D @d 0+ n D $ D ,~ (10A1) B . K ?A 0 H PROBLEM LOCATING PEROID SEQOUT DSK BINARY E =8 \ 7 ; < F.*d E < ], < `,
;ZD 6 6 .3F 8+ M*d I < c, { 6 8 F/ : F/ 9 F0 < d, < g,
< j, & F 6 < o, < r,
< u, < w,
: 6+ T < y, 7,~ P 6 t @ / x <P 6 5 @ / 8 2 P 5 ^ ? ~ A^ B 9` :P 1 Y 6 @ > p h 2 @ > p h 2 a.3@1 ,> O@ 9+ gR~@1 ,> @@ 9,> ,> @ 6 w+
" 90B + !"A`X#p 5@ /#p !" X#p +
\p +
a.9'1 ,> ,> ,> O@ 9+
,> 6 + _ 4` "` Q@ ,> < :, ,^ ,> < =, ,^ *b + ,> < ?, ,^ 7@ 9+ ,> < B, ,^ + ,> < C, ,^ Z 5" ,> < E, ,^ , 7@ 9,
,> < F, ,^ , ,> < I, ,^ ,> < L, ,^ (@qd 1@ ,,
1@ #+ -0@ *+ ,> V< N, ,^ + ,^ ,^ ,^ ,~ ('TypeDGEtoContinue,XFtoDExit, TQTo trace.'/2HE*,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOPC .p X 5 p ( X 6 p 8 p 8 p X / X ~ 5 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 ' q I 5 O / A 8 , D ) G X ` LPT PL SEQOUT ERROR NO COMMA PROBLEM IN FMT SEE DICK HOUCHARD W&
w.* .
w.J D .$ 8& Fq 5.d D 1d t+ Fx < J#, KG & 0j& D /& F E#1f >+ F| ( > H E# E#.& F E@f E & F E & >. s&& > F CW$ s.& F D " w $ ( w H C[ ( . C[&( . D H F) * /
C[&* $* .
C[ J E#3H E + G < J$, < J',
H E 5. E$ E * $
E#
(( J j 5. E$ E * $
E#
(# J j: E: C[
(
3h( w+ G.$ 8& G6D /+ G] $ B D F- 2D FK+ G $ $ D F- FM FS FD *d G FH D D $ D E@d E $ . 5 D F)"& / D . F) F) F E D F*$ E j F C\5F G- E FR HD $ .D E: E+ G9 C\0D + G3 E FO FD FN FD & .F E & .F E+ G9 C\1D + G6 < J, KG E FM FD $ .D E: E E3d F-+ GH" E E D C[ C[ D 2H FP+ GF FO HD ( H E E
D 2J FM+ GC * .J E
D 2J FR+ GH * .J E+ GH> C[8& G< < J*, KG E FP FD : E1d v+ GM < J+, , + J: F*; E + G' E FQ FD < J., < J1,
"& $ D E E /2D FS+ GV> E8& GS < J4, " E $ F E D C[ C[ < J7,
: C[; E + GY, + H~ < J8, < J<,
"& x $ x D CZ CZ D 2D FS+ Gd> CZ8& Ga@d F*: F* F*2d CZ+ H FPZD E E F* D 3HE)+ Gd*d Gg F* D 2F FL+ G} D C[: F*3d CZ+ Gp < J>, , + J F* D 2F FL+ Gm.$ / C[ D E F*.$ D F("& / CZ. F( F(" E.
D J D .$ 8& Gw" E.D CZ C[ D F*+ Ge F* D 3& FJ+ H D 2f FI+ H"& $ F E( D C[. F*2d CZ+ H FPZD E E F*. C[ D 2HE)+ H 1F + H+ Gd*d H F*. C[ D 3& FJ+ H D 2f FI+ H: C[; E(+ H $ . F* D F'"& / CZ. F' F' D HD .$ 8& H"$ .D CZ+ Ge@d CY D F* $ D E: F*2d CZ+ HX D 3F E,+ H D 3F E,+ H D 3& FJ+ H D 3f FI+ H# E D HE-: E1& x+ H+ H^ $ D CY FR FS FE *d H% $ D E E F* D FE : F*: E D 3& FJ+ H- D 3f FI+ H' E"2D FS+ H3"& $ E HE /$ 8& H0 FS D E + H- < JA, < JE,
< JG, < JK,
F* D 3D E,+ H@" D $ D E E F* D HE-: E0d x+ H^: E8& H;+ H $ . F* D F' $ D E$ F' D 3F E,: E$ D 3F E,> E$7F E$+ HH: F'+ HB"& . F' $ . F*2d + HV" D $ F CV D E $ . F* D F& F&/ F' F& D C[ E C[ D HE-: E0d x+ H^: C[8& HP: E; CV+ HM F' D F*+ H"$ . E D CZ7F CY+ H_" CZ $ E- HD .$ 8& H[+ H < JL, KG+ J $ D C[. 5 D E("& / D . E( E( D F*@d D C[ E-2H FO+ Hg ( H D E-2H FN+ Hj ( H D E-2H FM+ Hl ( H D F*$ E
D 3J j+ Hz FH H D F*$ E * 2J j+ Hs FI H D F*$ E * 2J j+ Hw FK H D < JM, F*$ E < JP,
+ J: C[3d CZ+ H} ( H C[: F*8& Hd $ D F* F*( D C[.$ >&$ > D D /$ $$ > D E@d CZ $ . CZ2d E#+ I: CZ C[/ E FC]: C[ F*( 3f + I: F*2h + I(
J C[ $ >. C[&$ > D D 3D D + I F*( C[ F 51$ + I$" 5 $ F F, D E/$ $ E D E E( . E 3/$ $ CW.$ . D D E < JS, < JV,
" CZ $ . E
C]
(, J j.$ 8& I : E; F,+ I 5 D F'" w $ F F+ D E( w F C["$ . C[$ CW.$ . D D E < JY, < J\,
E$ F' D E" CZ $ . E
C]
(, J j.$ 8& I0: F': C[ E( 3d w+ I): E; F++ I'" CZ $ ( HC].$ 8& I9 51$ + Iw" CZ $ F C\ D C[ $ D E"$ . E$ E. C[ D F( E( . E 40D + IL E( . E"5 $ D E E$$
. E ]3D CU+ IN: E8& IH F( j3D CU+ Ik E( . E6b40b + IU+IQ4 IU4 I]4 I`4 Ic4 If4 Ii E( . E"5 $ D E E$$
. E F( j3H]+ Iq: E8& IX+ Ik E F( j3&g+ Iq+ Ik E F( j3fg+ Iq+ Ik E F( j2fg+ Iq+ Ik E F( j2&g+ Iq+ Ik E F( j2Fg+ Iq: E2d 5+ Io( . E 33F0+ I@ C[@fC]+ Iu: E2d 5+ Iu( . E 33F0+ Iq+ I@: C[; C\+ I? $ . 5 D E'"& / D . E' E' F CY D E/$ $ E D F(" CZ $ . F( j3H CU@hC].$ 8& I~: E; CY+ I{"$ . 5 D D " CZ $ 7HC]+ J < J_, ( . 5 H E&"* /
D .
E& E& J CW H E"( . E$ E. < Jb,
: E; CW+ J
, .$ 8& J F*3d + H < J , K E 0D + J < J , :+ J < J, K FE,~ x E` FG FF FFx EP E h ^ FUP x FVP 1 F) @ > , x FWX 0 F. P x F4 0 @ x D X 0 F5 (/ P x F4 0 @ x D X 0 F: P F4 C] @ E P F= C] $ D x FYX 0 F> ( D $ j (E- P 1 E @ > , P 1 E @ > , X E 0 ( j !* K** ,^ ,~ * x ,> < K*< K p Z@ Jx@@ Jx@@ Jy K9`|+ JlP w,~ "p h a`~ + Jqh ``~ + Jr$ K9!Jsd K:/"+ JlP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ Jx\` Jw < Jx, ,^ ,~ SMI 1 ,> , Je K; BJx+ K _MI 1 ,> , Je K= BJx+ K I5R1 ,> , Je K> BJx*\ K&7Ap X" K? BJx/& p d"~ l" BJx*\ K&/& p d"~ l" $ BJx*\ K&/& p d"~ l"
BJx*\ K&Sp *\ K&/&Xp B K@@ K K@ BJx*\ K&/& p d"~ l" BJxRF Jw < Jx, + JcEV4i91 ,> + K4S ,i@1 ,> + K4_ ,i@1 ,> + K4K>2 1 ,> + K4K>40 1 ,> + K4[<I71 ,> & K@ w @ )@ . " 5B K5 & KF,~ ` .
.4 SEQIN ^ K:SEQOUT ^ K<RANDOM ^ K=SEQINOUT K %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> O@ L+ KKgR~@1 ,> @@ L,> ,> @ 6 w+ KX" L0B + KS!"A`X#p 5@ KP/#p !" X#p + KX\p + KXa.9'1 ,> ,> ,> O@ L+ KX,> 6 + _ 4` K`"` Q@ ,> < L, ,^ ,> < L , ,^ *b K]+ Kk,> < L , ,^ 7@ L+ Kf,> < L, ,^ + Kh,> < L, ,^ Z 5" Kk,> < L, ,^ , 7@ L,
,> < L, ,^ , ,> < L, ,^ ,> < L, ,^ (@qd 1@ ,,
1@ #+ Ky0@ *+ Kk,> < L, ,^ + Kk,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X L p X L p L p L p X K{ X ~ 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 ALPHAFIXED8 SOCSCX ERROR igP \ E E D D@d CY D D" w $ ( "
w.* .
w.J D.$ 8& E* 5.d D1d t+ E1 < Gd, HZ & 0j& D/& F Dg1f >+ E5 ( > H Dg Dg.& F D@f D ( >. s&( >$ s.( H D2F J+ E=3F w2F + Ey2F 5+ Ey < Ge, < Gh,
x0H + EJ x3H s2F 5+ EJ 0H + EJ 2H s+ EJ < Gk, < Gn,
< Gq, < Gt,
6D K+ EL < Gv, , " w $ F Df D D ( w F CZ"$ . CZ&$ .$ . D D Dn3D D + EV < Gy, < G},
D D $ / CZ&$ $$ . CZ D Dh 5. D$ D$$ ( Hm E! D D! Dh$$ (0D + Ea E" D D! Dh$$ (0D + Ed E" D D!"& $ D D $ $ Dh. D #2D E$+ Ej> D8& Ef < G, $ $ Dh < H,
& / D $ F Da D Dm $ $ Dh. Dm < H,
: Dm; Da+ Eo, : CZ D ( 3d w+ EP: D ; Df+ EN J1D + Ga $ 2D K+ E| < H, , D D & F D F D D Dj" w $ ( w H CZ ( . CZ&( . D H Dn3H D + F < H , < H
H D " CZ&( $( . CZ H Dh5H F
* J Dh D Dh$* (# J j 5. D$ D
Dh$,
0( L(m
j2J E#+ F
Dh$*
((0J + F
5.
D J Dj:
D : D1j + F!6H K+ F < H, E$_H D!ZH D D < H,
: D ; D!+ F , ( H D : CZ
(
3h( w+ F.$ 8& F * 2* D + F.6D K+ F. < H, & / D $ F D D CZ CZ < H,
: CZ; D + F+, $ D Do $ >. s&$ > D CX Do( D CZ.$ >&$ > D D/$ $$ > D D @d CY $ . CY2d Dg+ FD: CY CZ/ D FCZ CZ FD!: CZ Do( 3f + FA: Do2h D + FF(
J CZ $ >. CZ&$ > D D3D D+ F7 Do( CZ F 51$ + FX" 5 $ F D D D /$ $ D D D D ( . D 3/$ $ CX.$ . D D D < H, < H ,
" CY $ . D
CZ
(, J m.$ 8& FS: D ; D + FJ 5 D Dm" w $ F Dl D D ( w F CZ"$ . CZ$ CX.$ . D D D < H , < H",
D$ Dm D D " CY $ . D
CZ
(, J m.$ 8& Fd: Dm: CZ D ( 3d w+ F\: D ; Dl+ F[" CY $ F Dk D D $ 2d 5+ G$ D CZ"$ . CZ$ D. D D Dm CZ( . CZ 40D + F| CZ( . CZ"5 $ D D D$$
. CZ4]3D CW+ F~: D8& Fx. Dm"m3D CW+ G CZ( . CZ6b40b + G+G4 G4 G
. CZ Dm m3H]+ G : D8& G+ G CZ Dm m3&g+ G + G CZ Dm m3fg+ G + G CZ Dm m2fg+ G + G CZ Dm m2&g+ G + G CZ Dm m2Fg+ G : CZ2d 5+ G]( . CZ 33F0+ Fp+ G]: CZ2d 5+ G$( . CZ 33F0+ G + Fp < H$, , 6D CX+ G) < H', D < H*,
$ D Dm. 5 D Dn"& / D. Dn Dn F Di D CZ/$ $ D. D D Dm m2F CW+ G4 < H,, , + GT D$ CZ m.$ D D 6b D 0b + G:+G84 G:4 G=4 G@ < H/, Dm < H2,
+ GT < H3, Dm < H6,
+ GT Dj3D CZ+ GJ Dm m0&P+ GE"m1& '+ GG < H8, < H;,
+ GT < H<, Dm < H?,
+ GT < HA, Dm < HD,
< HF, < HI,
E# Da2F E$+ GR E! FDa*d GO < HL, < HO,
: Dm1d + G[ CZ3F D+ G[ < HQ, , < HT, , & F Dm: CZ; Di+ G.: D ; Dk+ Fn Do3d + F1 < HW, , E ,~ x E%P 1 E @ > , X 0 Do 0 t $ , $ - $ . $ . X 0 Dx $ / $ / X 0 D P 1 Dn @ > , X 0 E $# $ CZ $ D! $# X 0 E
P 1 Dn @ > , X 0 E1 D @ > , X 0 E X 0 E $D! X 0 E X 0 E (m X 0 E (m X 0 E $m X 0 E $m P E D $m P E D @ Da X 0 E @ Da X 0 E X 0 E X 0 E a.3@1 ,> O@ I+ H^gR~@1 ,> @@ I,> ,> @ 6 w+ Hk" I0B + Hf!"A`X#p 5@ Hc/#p !" X#p + Hk\p + Hka.9'1 ,> ,> ,> O@ I+ Hk,>
6 + _ 4` Hs"` Q@ ,> < I, ,^ ,> < I ,
,^ *b Hp+ H~,> < I , ,^ 7@ I+ Hy,> < I!,
,^ + H{,> < I",
,^ Z 5" H~,> < I$,
,^ , 7@ I,
,> < I%, ,^ , ,> < I(, ,^ ,> < I+, ,^ (@qd 1@ ,,
1@ #+ I
0@ *+ H~,> B< I-, ,^ + H~,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit,T To$trace.'/2H *,$) (A1) (1H 14A5/)(1HFA5,1X,O6) PAUSESTOP .p X I p X I p I p I p X I X ~ I p 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') n5I FLOAT A TRED BYALPHAANSFOFIXEDON - RMATIx P CREAT iJ
6F 6K 6)2F(,+ 7? D(,+ 7B: 6K8( 7;: 6C 6F , H6) D, 6F7d8+ 7N 6C1$ + 7K" 6C $ D 6K 6F 6K
6)2J8+ 7J H8+ 7N: 6K8& 7G: 6C 6F 8 H6) D8: 6F+ 74"$ . 6F D 6) 6F7f+ 7T: 6C H6) F $ >. s&$ >$ s.$ D 6G@d 6( 6C1$ + 7k" 6C $ 6) H 6F3H 7"+ 7h/( &( H 6]"
6]$* .
6F J 6Q * .
6G.j 6]3J 6(+ 7d < :m, < :q,
J 6( ( ?$ * $
6Qj(5d J 0+ 7j ( ?$ !* J 0.$ 8& 7Z D 6F2d s+ 7w/$ &$ D 6]" 6]$& . 6F F 6Q ( . 6G.H 6] < :s, < :w,
$& d5d D 5) 6Q$$ 5` D 6L 6C1$ + 8
" 6C $ F 6O D 6K$$ ?!& 2F0+ 8 6)1$ + 8
" 6).& $ D 6F 6F 82D 6K+ 8 < :y, , + :e 6F ,2H 6K+ 8 1H
+ 8 0H + 8: 6F8& 8 : 6K; 6O+ 7{ 2d s+ :!D 5) D 6\@d 6I 6)2$+ 8 $( ?H 0 H 6I1& + 8 0H
+ 8 ( H 6I 0H + 8 ( H 6I@d 6C $ 2D 6\+ 8 $ 3D 6I+ 8 $ D 6C 6\1D + 8! $ 2D 6I+ 8! $ D 6C6D 6\+ 8$ $ 2D 6I+ 8$ $ D 6C 6\0D + 8(6D 6I+ 8( $ D 6C"$ . s&$ >.$ D 6I" 6) $ F 6N D 6X 6C1$ + 8P" 6C $ F 6M D 6K 6)3F 7"+ 8< 6)/& $ 6).& . 6X F 6] < :|, 7'_D 6LZD 6F 6K$$ ?. 6F < ; ,
: 6F; 6L+ 87, + 8N"$ . 6X$$ > D 6H & > F 6[. 6H3f s+ 8B" 6H. s F 6[" 6[ $ ( ?$ 6K.
.
6H J q.$ 8& 8C 6[1D >+ 8N.$ D 6W 6W/& ? 6W ( ?$ 6K.
5h J q.$ 8& 8K: 6K; 6M+ 80 51$ + 8_" 5 $ ( . 3/( $ 6).( . 6X H 6] < ;, 7'_H 6TZH 6F ( ?$ . 6F < ;,
: 6F; 6T+ 8Y, .$ 8& 8R /$ $ 6).$ . 6X D 6] < ;, 7'_D 6SZD 6F 6F < ;
,
: 6F; 6S+ 8d, 7D 6C+ 8u0D + 8n 7' 4j3F 5h+ 8mf4j F4j*d 8j+ 8u 6C0D + 8s 7' 4j3F 5h+ 8rF4j F4j*d 8p+ 8u 7' 5h F4j*d 8t 7'@f5)*d 8v $ >$ 6X D 6X/$ > D 6P" $ F 6] D 6W@f 6T F 6V( 2f 6X+ 9 6W( 3$ 6P+ 9 6W( 2d 6P+ 9 $ D 6T 6W( 3$ 6X+ 9 $ > D 6V6D 6T+ 9
6W( & ./ 6P F 6T6D 6V+ 9 6W( / 6X.$ > D 6V 6T/& / 6V 6T ( H5).$ 8& 9: 6W; 6]+ 8{"& > $ F 6[ D 6F7F5)+ 9]7f 5+ 9S & F 6K 6K( . 6K 40D + 9$ 6K( . 6K"5 $ D 6K 6K$$
. 6K ]3D 5h+ 9': 6K8& 9 $ ?$ 6K. 6F *?3D 5h+ 9J 6K( . 6K6b40b + 9.+9*4 9.4 974 9;4 9?4 9C4 9G 6K( . 6K"5 $ D 6K 6K$$
. 6K ( ?$ 6K. 6F *?3H]+ 9O: 6K8& 91+ 9J 6K & ?$ 6K. 6F *?3&g+ 9O+ 9J 6K & ?$ 6K. 6F *?3fg+ 9O+ 9J 6K & ?$ 6K. 6F *?2fg+ 9O+ 9J 6K & ?$ 6K. 6F *?2&g+ 9O+ 9J 6K & ?$ 6K. 6F *?2Fg+ 9O: 6K2d 5+ 9]( . 6K 33F0+ 9+ 9]: 6K2d 5+ 9S( . 6K 33F0+ 9O+ 9" 6C $ D 6K 6K$$ ?. 6F q3D 5h+ 9[: 6K8& 9U 6F D 6M < :i, <+ 9] 6F 5h F4j: 6F; 6[+ 9 /$ $ 6).$ . 6X D 6] < ; , 7'_D 6YZD 6F 6F < ;,
: 6F; 6Y+ 9d, : 6X; 6N+ 8, $ 2$ ,+ 9l < ;, < ;,
2$ ,+ 9o < ;, < ;,
2$ -+ 9r < ;, < ; ,
2$ -+ 9u < ; , < ;!,
2$ .+ 9x < ;", < ;%,
2$ .+ 9{ < ;', < ;*,
2$ /+ 9~ < ;+, < ;.,
2$ /+ : < ;0, < ;3,
6I2F 6\+ : < ;4, < ;7,
+ :e 7# D 6H 6I0F + : 7% H 6H0F + : 7& H 6H 6\1H 1+ : D 6J0H + : 7% D 6J0H + : 7& D 6J < ;9, < ;<,
D 6F/$ &$ D 6]" 6]$& . 6F F 6Q ( . 6G.H 6] < ;>, < ;B,
$& 6I D5d < ;D, < ;H,
+ :e < ;J, < ;M,
+ : $ 1 D 6\ s$ 6).$ D 6G $ . s&$ D 6(" 6( 6( 6G. H 7" < ;O, < ;S,
6). 6G. H 7" < ;U, < ;Y,
/$ 8& :' 7' 5h F5h*d :0" 6) $ 6G. H 7" < ;[, < ;_,
.$ 8& :3 6).d 6G & . s&& F 6J"
6J.* $* ( . s. H 6Q2F 6(+ :B. 6( D 7" < ;a, < ;e,
+ :E 7( & $& 7) H5`*d :C $ $ 6Q F5` $ $ 6Q 7( F5` $ $ 6Q 7$ F5a $ $ 6Q 7$ F5a $ $ 6Q 7% F5b $ $ 6Q 7' F5b $ $ 6Q 7& F5c $ $ 6Q $5c D 7" < :h, B` $ $ 6Q@f5d 6G. 6J D 7" < ;g, < ;k,
$ 2D K+ :_2D L+ :_ L3F s.d L: s < ;m, < ;q,
s D 5i < ;s, < ;w,
+ 8 7!,~ x 7"h 0 6M 6Ix 6Fp 6K 6FP 1 6] @ > 5i P 1 6] @ > 5i X 0 6^ P 1 6] $q P 1 6] $ *? P 1 6] $4j P 1 6] $4j X 0 6c $ , X 0 6i $ , X 0 6n $ - X 0 6t $ - X 0 6z $ . X 0 7 $ . X 0 7 $ / X 0 7
$ / X 0 7 $ 6L X 0 7 $ 6L $ 6J $ 6H P 1 6] @ > 5i P 1 6] @ > 5i X 0 7 $ $ 6H P 1 7" @ > 5i P 1 7" @ > 5i P 1 7" @ > 5i P 1 7" @ > 5i P 1 7" @ > 5i P 1 7# @ > 5i P 1 7# @ > 5i @ (' SYS PROB - CONTACT DICK HOUCHARD') (5A1)(F5.0) (I5) 0 P . 9 0 ] d - #SC` ` X Gd= \ <
+ <++< 4 <+4 <+4 <.4 <+4 <L4 <k4 = 4 =,4 =J4 =[4 =o4 >4 >4 >)4 >94 <+4 <+4 >J4 >Z4 >p4 ?4 ?24 ?b4 @y ,$& ?. <!( 2H + <<f ;y F ;y ;{7D8+ <@5d <B ;{"8 Q D ;z+ <J ;{ E D ;z+ <J ;{ 8$& ?. ;|. < @ F ;z 8$& ?. <!( 2H + <Jf ;z F ;z ;{ < @", A" @Q+ < ;{7D,+ <Q5d <S ;{", Q D ;y+ <Z ;{ E D ;y+ <Z ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + <Zf ;y F ;y ;{7D8+ <5d <a ;{"8 Q D ;z+ <h ;{ E D ;z+ <h ;{ 8$& ?. ;|. < @ F ;z 8$& ?. <!( 2H + <hf ;z F ;z ;{ ;y ;z FQ+ < ;{7D,+ <o5d <q ;{", Q D ;y+ <y ;{ E D ;y+ <y ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + <yf ;y F ;y ;{7D8+ <}5d < ;{"8 Q D ;z+ = ;{ E D ;z+ = ;{ 8$& ?. ;|. < @ F ;z 8$& ?. <!( 2H + =f ;z F ;z ;{ ;y ;z FQ+ < ;{7D,+ =5d = ;{", Q D ;y+ = ;{ E D ;y+ = ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + =f ;y F ;y ;{7D8+ = 5d = ;{"8 Q D ;z+ =% ;{ E D ;z+ =% ;{ 8$& ?. ;|. < @ F ;z 8$& ?. <!( 2H + =%f ;z F ;z6D ;z+ =) ;|. < ;z F"9: ,+ @ ;{ ;y ;z FQ+ < ;{7D,+ =05d =2 ;{", Q D ;y+ =: ;{ E D ;y+ =: ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + =:f ;y F ;y ;{7D8+ =>5d =@ ;{"8 Q D ;z+ =H ;{ E D ;z+ =H ;{ 8$& ?. ;|. < @ F ;z 8$& ?. <!( 2H + =Hf ;z F ;z ;{ ;y ;z FQ+ < ;{7D+ =O5d =Q ;{" Q D ;y+ =V ;{ E D ;y+ =V ;|. < ;{ $& ?. ;|. < @ F"9+ @ < 0D + =XD ;y D ;y ;|. < ;y F"9+ @ ;{7D,+ =5d =a ;{", Q D ;y+ =i ;{ E D ;y+ =i ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + =if ;y F ;y7$ ;y+ =l ;{ < @!, A @Q+ <: , ;|. < ;z F"9+ @ ;{7D,+ =t5d =v ;{", Q D ;y+ =} ;{ E D ;y+ =} ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + =}f ;y F ;y7d ;y+ > ;{ < @ , B @Q+ <: - ;|. < ;z F"9+ @ ;{7D,+ >5d >
+ ;{", Q,D ;y+ >+ ;{ E.D ;y+ > ;{:,$& ?. ;|. <+ @5F ;y ,$& ?. <!( 2H + >f < F ;|+ ;{ < @ , Ax$@Q+ <. ;{7D,+ >5d >$ ;{",!Q2D ;y+ >" ;{ E D ;y+ >" ;{1,$& ?. ;|. <7 @+F ;y5,$& ?. <!( 2H + >"f < F ;|7d ;y+ >& ;{ < @ , B.@Q+ < ;|. < ;z$F"9: -+ @+ ;{7D,+ >-5d >/! ;{",+QD ;y+ >7+ ;{ E,D ;y+ >7, ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + >7f ;y F ;y ;{ < @ , BE @Q+ < ;{7D,+ >>5d >@ ;{", Q D ;y+ >G ;{ E D ;y+ >G ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + >Gf ;y F ;y ;{ < @ , BB @Q+ < ;{7D,+ >N5d >P ;{", Q D ;y+ >X ;{ E D ;y+ >X ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + >Xf ;y F ;y ;{ < @, @t @Q+ < ;{7D,+ >5d >a ;{", Q D ;y+ >h ;{ E D ;y+ >h ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 2H + >hf ;y F ;y ;y2$ <2d <
@d ;}@d ;y"& $ F < D < ;}3F <+ ?" ;}3F <+ ?" ;}3F <+ ?" & F ;} ;}3( <+ ? ;}3h <+ ?" ;|. <
;z J "9.f .+ @: < ; <+ ?7D ;}+ ?/ ;2D <+ ?+"& $ ;| H;}/$ 8& ?' < D ;}+ ?% < @,, < @0,
< @2, < @6,
D ;y D ;y ;{d DQ+ < ;{7D,+ ?65d ?8 ;{", Q D ;y+ ?` ;{ E D ;y+ ?` ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <7F + ?` ,$& ?. <!( 3H + ?Cf ;y F ;y+ ?` < @7, < @;,
@d ;}@d ;y"& $ F < D < ;}3F <+ ?S ;}3F <+ ?S ;}3F <+ ?S & F ;} ;}3( <+ ?P ;}3h <+ ?S ;|. <
;z J "9.f /+ @: < ; <+ ?H7D ;}+ ?` ;2D <+ ?\"& $ ;| H;}/$ 8& ?X < D ;}+ ?V < @=, < @A,
< @C, < @G,
;{ ;y FQ+ < ;{7D,+ ?f5d ?h ;{", Q D ;y+ ?z ;{ E D ;y+ ?z ;{ ,$& ?. ;|. < @ F ;y ,$& ?. <!( 3H + ?~ ,$& ?. <7F + ?z ;y0$O+ ?t" 1& '+ ?w: / ;|. < ;z F"9+ @@d ;z < @H, < @L,
+ @ ;y3$ <3d <+ ?}+ @ D D ;y+ ?q ;y D ;z+ @@d ;z < @M, < @Q,
< @R, < @V,
;}2D <+ @ < ;} F;|*d @ < D ;+ @ < @X, < @\,
, ;{ ;z FQ+ < ;{< @, C@Q+ <@d ;y << @, C@ ;y*d @ ;{!&x@ ;y FQ+ < <yx ;yp ;y ;zX < < P < ;y @ ;} P < ;z @ ;} P < ;z ( ;y P < ;y @ ;} P < ;z @ ;} P < ;z ( ;y P <
;z $ ;y P < ;z ( ;y P < ;z @ ;} P < ;z @ ;} CNM` 1 ,> #p 2b @o+ @l"p p + @o4@ @j @ @n,> < @p, A,^ p B @n,> < @p, @t,^ ,~ @n7ap "` ,~ +P
@ A A
@ A
` A A A,~ &` V-G {G ZCv\ 7f ]V#QI+0`} 9~jgG@ 1 ,> 7cp + A (Bdb + A. A "+ A. A "T B#p @,~ 4B A +P
A #p + A ,~ > attempt to take SQRT of negative arg Kc3@ p p + A-Kc3K , A-
,~ Kc3J , A- ,~ Kc3I , A- ,~ Kc3H4B AC5@ A15" AC+D
A0U ,~ ,> ,> # $ )D /$ @,> 4d A:X $ (F) + A:5F A:5" A9"` , AR+ AA# ,> < AE, B ,^ @ ,> < AF, Ax,^ 5& AA" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + ARKc#K , AR @ ,~ Kc#J , AR @ ,~ Kc#I , AR @ ,~ Kc#H4B Au5@ AU5" A+D
ATUA,~ D Au!$ @ At B At5" A\#` + Aq, A\!" B ,~ + A`(BdB + A`5B A[ Au,~ +7` At+ Ah`d +D
AdUA`d >@ 6A At+ A^ At`B "` + A>/ Avid + Ak+D + AeU", A\ At+ A`+ AY ! ,~ x Kc 1 ,> p 3" B+ A~3b B+ B +D
A}UA,~ +D +D B)F B@@ B%" j" % B)/;` : XD B5f BaF + B.& @(|h& f B B B B B B D B@ B B,~ !t0 ' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> p 4@ B- @ B ,> < B6, B ,^ B ,~ {e^b C2|p 1 ,> p 5` B!4@ B-+P
B. B4,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x B ATTEMPT]TO TAKE LOGOF NEGATIVE ARG G? @ 1 ,> p B] B^+B + BGg&t@ 1 ,> 3p B^+= + BGG? 1 ,> Rp B^+ BGg&p 1 ,> p pB B]#` 3b B\+ BY D B$ B^3b B@+ BQ%" (D?d$ " @($ )B Br)@
(@ $ &$ .$ .& (D (F . . & #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP 1 ,> %D C)F C b &"j0dD C&" D CSAo-& CQ" B C-& C[p (F{5F C[w0F+ C d ` 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 SOCSCp 7 M h 4 1 DSK PRINT.DAT SEQOUT ERROR PRINT.DAT aJMm \ HT < LL, P < LM, $ D E" $ D H$@d E# D D]" w $ ( "
w.* .
w.J D].$ 8& Ht 5.d D]1d d+ H| < LQ, , + L? $ 0j& D]/$ D En1d >+ I & > F En En.$ D D^@d E+ $ D E) 5 F E( & >. s&& > F D$ s.& F D] < LT, < LW,
.d H$ $ D E"3D K+ I < LY, < L\,
< L_, < Lb,
& .F E" < Lf, , $ .D E"" w $ F Em D E)( w F D $ . D &$ . D] D H": E(3D E++ I < Li, < Lm,
D E+ $ / D &$ $$ . D D Eo D^$ E($$ ( Hj D^$ E( Eo$& # Fj Eo$$ #2D Hc+ I7 Eo$$ (0D + I7 $ . 53D E(+ I7 $ . 5 D H" H"/ E( H" F Em D H $ D^ j2F Hc+ I5 < Lo, , + L?: H ; Em+ I1 HV D E, $ $ Eo (0D + I; HZ D E, $ $ Eo (0D + I? H\ D E, < Lr, $ $ Eo < Lu,
Ha_D ElZD H $ $ Eo. H < Lx,
: H ; El+ IC, : E"3d E"+ IN < Ly, < L|,
< L~, , : H$ & F E": D E)( 3d w+ I: E); Em+ I $ 3D J+ L< & . 5/ D]7 .& (~/& $ F El D H#.$ 7 .$ (~ D E( H#.$ D D " 5. D]2$ D + I`" 5. D] D D H` Hf FCU*d Ia HW D CU Hf D CV HY D CV Ha F CW H` H CW * J H
H#0J + Ir
H] J CV D CV J CW H CW H\ D CX Hd D CY H CY H^ D CZ F CZ H C[ $ D H "& . H#/ D H# F E+ D E). 5$ D^ j F E(5F J H Hb HCU Hf HCU
He JCV
HU JCV
Hd JCW
H` JCW HCX Ha HCX JCY ( .H H + J) E(0D + J H H] FCU Ha HCU
H` JCV
H^ LCV FCW JCW FCX HCX JCY & .F H + J) E(1D + J < M, O1 5. E)$ D^ j3D Hc+ J H H\ FCU Hf FCU HX FCV H` FCV H^ HCW Ha HCW FCX & .F H + J) H H^ FCU HX HCU H` HCV H] JCV
H[ LCW JCW HCX FCX H^ NCY HCY JCZ LCZ JC[ HC[ FC\ He FC\ HC] FC] Ha FC^ HC^ & .F H : E); E++ Iu H Hb FCT $
$ E( < M, < M, @d D^ $ .d H#; El+ IY < M, < M , : H$ $ D E" & / 5. D]7 .& (~ F Ek3D K+ J< < LI, Mo $ . Ek.D E" $ D H# H#( D D .$ >&$ > D D]/$ $$ > D E* $ D D D D / E* FD D FE,: D H#( 3f + JK: H#2h + JS( , J D M$ >. D &$ > D D\2D D]+ JQ: D3f En+ JC"( .H D H#( D F 51$ + Jd" 5 $ F E* D E)/$ $ D^ D E* E)( . E) 3/$ $ D.$ . D] D E) < M " D $ . E* D (, J j.$ 8& J_: E); E*+ JV 5 D H " w $ F H D E)( w F D "$ . D $ D.$ . D] D E) < M, < M, D^$ H D E*" D $ . E* D (, J j.$ 8& Jp: H : D E)( 3d w+ Ji: E); H + Jg" D $ F H D E) $ 2d 5+ K1 D D "$ . D $ D^. E) D H! D ( . D 40D + K D ( . D "5 $ D E( E($$ . D ]3D CU+ K : E(8& K H! j3D CU+ K( D ( . D 6b40b + K+K4 K4 K4 K 4 K 4 K"4 K% D ( . D "5 $ D E( E($$ . D H! j3H]+ K,: E(8& K+ K( D H! j3&g+ K,+ K( D H! j3fg+ K,+ K( D H! j2fg+ K,+ K( D H! j2&g+ K,+ K( D H! j2Fg+ K,: D 2d 5+ L9( . D 33F0+ J|+ L9: D 2d 5+ K1( . D 33F0+ K,+ J| E". Ek3d E"+ K: < M, < M , : H$ $ D E"3D K+ K: < LE, Mo $ . Ek.D E" $ . 5 D H! H!/ D]7 .& (~/& H! F Ep D D & / 5. D 7 .& (~ F E(.$ D H'3d D]+ KF D] F H'@d E! D E( D D\ D /& / H' D F Eo D H : D\: E(@jD/$ $ D^. E) j J D D2D CU+ KR $ D E! DD D^$ H j2D Hc+ Kq D^$ H j0D + Kq < M , E( < M", < M#, < M', Hf FD FD FD < M), He_D DZD E* E* < M-, : E*; D+ K`, E( < M., Hc_D H(ZD E* E* < M2, : E*; H(+ Kf, E( < M3, H__D H(ZD E* E* < M7, : E*; H(+ Km, $ .D E(: H ; Eo+ KK HY &
$ E(.& Ee FD*d Ks $ 3D E!+ L . 53D D + L < M8, " E( $ F H& D E* E* < M;, : E*; H&+ K|, $ . 52D D + L6 < M=, E) < M@, " E( $ F H& D E* E* < MA, : E*; H&+ L, + L6 H[ Hf FD^*d L $ . 53D D + L < MC, " E( $ F H% D E* E* < MF, : E*; H%+ L, $ . 52D D + L < MH, E) < MK, " E( $ F D D E* E* < MM, : E*; D + L, < MN, < MR, "& . D / H' $ D0H + L3"( . $( .( H E( Hf J D^
Hd L D_
H\ L D_ HT N D` N D` L Da
HX L Da
Hb L Db J Db
H_ L Dc
H^ L Dc HZ N Dd L Dd J De J De.$ 8& L# < MT, < MW, $ .d D ; Ep+ K@ Ek.D E": E); H + Jz H#3d + J= < LD, No $ .D H$ < LA, : HT,~ X Hl HV HU HU H$x 1P k 5 D] D^ D_ 1P k 5 D] D^ D_ 1x H#P 1 ~ Hg^ Hh ^ HiX 0 H) X 1 H. 0 H# $ H$ P 1 HU @ > , X 1 H2 0 t $ , $ - $ . $ . $ / $ / X 1 H@ P 1 H" @ > , X 0 HH X 1 HN $# $ D $ E, $# X 1 H. 0 H# $ H$ X 1 H@ x HkP < HQ Ef @ < CU X 1 H. 0 H# $ H$ P 1 E) @ > , P 1 E) @ > , X 1 H. 0 H# $ H$ P HR Eq $D P HR Eq @ E# P HR D (E# P HR D (E# P HR D (E# X 1 D
(D X 1 D
$E, (D P B D
CU (D P B D
CU $E, (D P B HS CU @ B D_ X 1 HS @ B D_ (5A1)(133A1) (1X,7('-'),2X,24A5) S . B 0 wX -----O SOCSC PROBLEM Q
L@ \ Mg !p @ M] p @ MZ p B M[ p D M\ %p D M\ p D M] MZ.$ D Mc" M[. Mc7 .& (~/& Mc F Ma D M^ Mk & . M\ Mm H *d M| $ . M^ D M[3d M[+ N M[ F M["& . M^/ M[ M^ F M` D Mb$ M\ D MZ. M] .& F M_ Mb/ M^$$ .$ D M^6b M_0b + N+N
4 N4 N4 N < N=, O1 $ .D M^+ N $ .D M^+ N $ .D M^ MZ. M] 2D Ml+ N"$ .D M^ MZ. M] < N>, "& M^ F M` D Mc Mc. M\ < NB, : Mc; M`+ N, : Mb; M`+ N $ . MZ2D M^+ N$ M\ Mj F M[2D M[+ N* M\ Ml F Mi F Mh F Mh F < NC, < NF, $ .d M^; Ma+ M| Mk D Mb $ D Mb M[/ MZ0$ + N3 M[/ MZ D Mb Mb( .D Mb < NI, " Mb $ F M_ D Mc < NL, : Mc; M_+ N8, Mg,~ x MmP Md $ X M] Md @ B M\ X M] Me ( Mb !* Nl** ,^ ,~ * x ,> < Nl*< Nn p Z@ Nb@@ Nb@@ Nc O#`|+ NVP w,~ "p h a`~ + N[h ``~ + N\$ O#!N]d O$/"+ NVP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ Nb\` Na < Nb, ,^ ,~ SMI 1 ,> , NO O% BNb+ O_MI 1 ,> , NO O' BNb+ OI5R1 ,> , NO O( BNb*\ O7Ap X" O) BNb/& p d"~ l" BNb*\ O/& p d"~ l" $ BNb*\ O/& p d"~ l"
BNb*\ OSp *\ O/&Xp B Nk@@ Nk O* BNb*\ O/& p d"~ l" BNbRF Na < Nb, + NMEV4i91 ,> + O S ,i@1 ,> + O _ ,i@1 ,> + O K>2 1 ,> + O K>40 1 ,> + O [<I71 ,> & O* w @ )@ . " 5B O & O0,~ ` .
.4 SEQIN ^ O$SEQOUT ^ O&RANDOM ^ O'SEQINOUT Nk
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> O@ Oo+ O5gR~@1 ,> @@ Oo,> ,> @ 6 w+ OB" Oo0B + O=!"A`X#p 5@ O:/#p !" X#p + OB\p + OBa.9'1 ,> ,> ,> O@ Oo+ OB,>
6 + _ 4` OJ"` Q@ ,> < Op, ,^ ,> < Os,
,^ *b OG+ OU,> < Ou, ,^ 7@ Oo+ OP,> < Ox,
,^ + OR,> < Oy,
,^ Z 5" OU,> < O{,
,^ , 7@ Oo,
,> < O|, ,^ , ,> < O, ,^ ,> < P, ,^ (@qd 1@ ,,
1@ #+ Oc0@ *+ OU,> < P, ,^ + OU,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X Ok p X Ol p On p On p X Oe X ~ Ok p x I$P 1 ,> #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 ~@ ~8 YLf3~@ 0 ALPHA- >> FIXED ?' I 8 t O x R A D , 8 @ X ! !9 = ) G 9Lf3SOCSCM !Y DSK SEQOUT BINARY SELECT.DAT DSK RANDIN BINARY SELECT.DAT DELETE gR$\` \ K' $ & D H#@d H%" $ ( "
.* .
.J H%.$ 8& KM $ >. s&$ > D G\ < S, W> $ 2d 5+ LW@f H% < S, & / s&& >/& $ F I4 D Iz & > F H;.$ >3d s+ K_ $ . s/ Iz D H;@d H: K4@fGd*d K`" $ F I1 D I( 3& Iz+ K{ I( & >. Iz3&+ K} $ D H: D H7 H; F I3 I( ./ Iz3d H7+ Kq I( & ./ Iz F H7 I( & ./ Iz2& I3+ Kw I( & ./ Iz F I3 H7/& / I3 H7 ( HGd.$ 8& Ky: I; I1+ Kc7D H:+ LM" 5 $ * >.
Iz&* > ( . 3/( $ G\.( . H GW < S, K4_H I#ZH Ix ( >$ . Ix < S,
: Ix; I#+ L, .$ 8& K" H; $ F I" D H57FGd+ LK & F I I( . I 40D + L I( . I"5 $ D I I$$
. I ]3D G+ L : I8& L $ >$ I. H5 z3D G+ LA I( . I6b40b + L$+L!4 L$4 L-4 L14 L54 L94 L= I( . I"5 $ D I I$$
. I ( >$ I. H5 z3H]+ LF: I8& L'+ LA I & >$ I. H5 z3&g+ LF+ LA I & >$ I. H5 z3fg+ LF+ LA I & >$ I. H5 z2fg+ LF+ LA I & >$ I. H5 z2&g+ LF+ LA I & >$ I. H5 z2Fg+ LF: I2d 5+ LE( . I 33F0+ L H5@fGd+ LK: I2d 5+ LK( . I 33F0+ LF+ L: H%: H5; I"+ L < S, < S ,
,$ >.d Iz;< I4+ K[ < S, UP+ H%0$ + LV,< S , , < S
, UP+ S" w $ F Ii D I|( w F I1 & . I1&& s$ G\.$ . D Iy < S), < S,, $ / I1&$ $$ . I1 D GW$$ G.& F H8 GW$$ G D H9 K7 & $ GW.& G FGW*d Lm@d H4@f IU F I! D I7" $ ( H Ix ( >. Ix&( > H I#3H Iy+ M H Iy/( $( > H H="( . I1$ G\.( . I# H GW < S/, < S2, 51( + M < S5, < S8, Ix/ H= H HB 51* + M7J Gd+ M HB G2H G+ M : H4+ M: I7 HB (G J 8 H81J + M
8 L GW0J + Ml 8 L GW
GWL IU
L I!: Ix ( 3h(+ Lu.$ 8& Ls * J I J I0 I7 D I I02$ I+ MA I0 D H5. I7 .$ ( D I 8 F I5 I02& 8+ M" 8 J8 F 8 8 F I5 I D G\ 82& I5+ M/ I 8 H8 I5 H8 8 H I5 I02((8+ M/
(8 L8 H(8 8 H I5+ M/ G\ H5 8 H8 H% D8> G\ 82f I5+ M/ 8 F H%: H5 83& I5+ M23d G\+ M," H5. I" I0. G\3f + M< I I0 HG\ G\ HI D I0: I+ MD I H5 FG\ I FI G\ F I: I+ MD> I4D MQ G\ F I0 I F I I/ I00$ + M I01D + M"$ .D I0: I03D I+ MA 9 F I52&8+ MH D H5 H5 8 F9> H5 82f I5+ ML I5 F9+ MH I71$ + M~ H81F + M~d IU F H=@d IX I71$ + M^ IU d I! I7/( $ I7h D IX < S , V @ I8@d I33D H=+ Mc I8 &H H= F I3f I7 F K' < S
, V I8 F I D H@ D H7" I7 $ 8 H GW H80H + Mlh8 H GW
GW
H= H H@ GW H= H H7.$ 8& Mhf I7 H@ D H@h I7 H7 F H7@h IY H H;h I7
*}
IX J I{4j M~ < S , V% D IY
F H;!$ 3D + N $ D I 9 F GW & / I7 $ D Iz Iz 83H GW+ N
8 H GW: I1h
+ N
* J I+ N : Iz8& N $ .D I H81D + N $ .D I 51$ + N & .F I@f I5" 5 $ ( . 5.H I5.$ 8& N7$ 5.$ (.D I" 5.d I5&$ .D I I.d H#0d + N & .F H# < S;, , + N% $ . I D H#: < S>, < SA,
< SD, < SG,
K) D H5 H80D + N( K. F H50D + N* K0 F H5 < SJ, < SM,
& 2f 5+ PU < SQ, , F Iz K= F HC F HD F HD F HE F HE & F I7@f H6 F H9" 5 $ ( . 33H 5+ N: ( H H9.$ 8& N6 Iz3D 5+ NR( . Iz 32F5+ NR7D H9+ NR Iz1D + ND( . Iz 33F0+ NR I71d 4+ NM < ST, " I7.& $ F J D Ix Ix < SW,
: Ix; J+ NI, $ D I7 I7 K* FHC K= FHC & .F I7 $ D H6 I71d 4+ N[ < SX, " I7.& $ F J D Ix Ix < S[,
: Ix; J+ NW, $ D I7 Iz( . Iz 3 D I.$ &$ & >. s&& >$ s.& . F Iy < S], < S`,
" I.$ &$ $$ . I D GW$$ < Sc, "& I7 F J D Ix Ix < Sf,
: Ix; J+ Nk, I7 K= FHE I7 HC3D K=+ Ns: I7+ Np Iz( . Iz6b40b + Ny+Nv4 Ny4 N{4 N}4 O 4 O4 O I7 K9 FHC+ O I7 K) FHC+ O I7 K9 FHC K) FHC+ O I7 K/ FHC+ O I7 K/ FHC K9 FHC+ O I7 K) FHC K/ FHC: I7: I7 Iz( . Iz"5 $ F J D I$$
. Iz ]2F G+ O I71d =+ O < Sh, " I7.& $ F I D Ix Ix < Sk,
: Ix; I+ O, $ D I7 I7 K; FHC K1 FHC K( HHD HHD FHE K* FHE K: FHF & .F I7+ P $ $ GW G.$ 6b 0b + O&+O$4 O&4 O>4 O[ I71d :+ O/ < Sl, " I7.& $ F I~ D Ix Ix < So,
: Ix; I~+ O+, $ D I7 $
$ I. Iz ] D GV < Sq, < St,
< Sv, < Sy,
K2 I#3F K=+ O: I7 I# HHC: I7*d O6 I7 HB2D K-+ P"$ .D I7+ O:+ P I71d =+ OH < S|, " I7.& $ F H8 D Ix Ix < S,
: Ix; H8+ OC, $ D I7 I7 K1 FHC &
$ I. Iz < T , .$ D Iy" I7/& . Iy Iy F H6 D Ix Ix < T,
: Ix; H6+ OP, $ .D I7 I7 HC2D K=+ OX"$ .D I7+ OT I7 K1 FHC $ .D I7+ P $ $ GW G3D K;+ Oq I71d :+ Og < T, " I7.& $ F H4 D Ix Ix < T,
: Ix; H4+ Ob, $ D I7 < T
, $
$ I. Iz < T
< T, < T,
K2 I#3F K=+ Op I7 I# HHC: I7*d Om+ P I71d <+ O{ < T, " I7.& $ F H3 D Ix Ix < T,
: Ix; H3+ Ov, $ D I7 < T, $
$ I. Iz < T ,
< T , K6_D H2ZD H5 H5 < T",
: H5; H2+ P, K6 & 0F 1F + P+ P I7 K. HHC: I7 I#2F K=+ P
K- FI# I7 I# HHC: I7*d P I7 K6 FHC: I7: I; J + O
I7 K= FHB Iz3F 5+ PK( . Iz 33H5+ P97F H6+ P%1d >+ P! < T#, " I7.& $ F H$ D Ix Ix < T&,
: Ix; H$+ P , $ D I7 I7 K9 FHC K= FHC & .F I7@d H6 I71d >+ P/ < T(, " I7.& $ F HC D Ix Ix < T+,
: Ix; HC+ P*, $ D I7 I7 K= FHC FHC FHD FHD K5 HHE K* HHE K5 HHF FHF FHG FHG FHH FHH & .F I7+ PJ I71d ?+ PB < T,, " I7.& $ F HA D Ix Ix < T/,
: Ix; HA+ P>, $ D I7 I7 K= FHC FHC FHD K3 HHD K4 HHE FHE FHF FHF FHG & .F I7: Iz+ N;7D H6+ PN I7 K9 FHC: I7 < T1, & / I7 $ F H@ D Ix Ix < T4,
: Ix; H@+ PQ, H4. I7 D HA < T5, < T8,
7D I7+ S 6b H80b + P]+P[4 P]4 Q4 P{ 9 D H?@d IY 9 F Ij D H:" I7 $ 83H Ij+ Ph H:3h IY+ Pe
Ij J H? H IY 8 H Ij ( H H:+ Ph: H:.$ 8& Pa I23d IY+ Pl Ij D H?7$ I7.$ ( D Ix 9 F HB & A I71F + Ps 89F F HB I7 8 9 F Ih < T;, < T>,
< T@, < TC,
< TF, < TI,
+ Q @d I, D IY 9 F Ih D H:" I7 $ 83H Ih+ Q H:3h IY+ Q
Ih J I, H IY 8 H Ih ( H H:+ Q: H:.$ 8& P H:3d IY+ Q
Ih D I,7$ I7.$ ( D Ixf9 F HB & A I71F + Q 9.8f F F HB I7 8/ 9 F Ig < TK, < TN,
< TQ, < TT,
< TV, < TY,
+ Q < T\, I7 < T_,
+ Q! < Ta, < Td,
< Tf, < Ti,
9 D , $ D H& D IT3D I7+ R & / I7 $ D I I IT ,3H8+ Q-: IT0h
+ Q/ 8 J , * J H%+ Q. IT:H%: I8& Q&+ R $ D IT K,@fH%*d Q16b H80b + Q5+Q34 Q54 QH4 Qp I7 8 9 $ H D Ih 9 D , K+ + Ih F,*d Q9 K- , FIk*d Q< I7 8 F Iw" I7 $ F I+ D I K,ZD Ix Ix I 82(Ik+ QE:H%+ QF*d QA: H2: I; I++ QA+ R I7 8 9 $ H D Ih 9 D , K+ + Ih F,*d QL K- , FIk*d QO I7 8 D Iw K, & ( K= HI8 & ( HI8*d QR" I7 $ F I D I K,ZD Ix Ix1F
+ Q] I 82(Ik+ Qn Ix:H% ( 2HH%+ Qd( I 8 JI8 Ix( 8 JI8+ Qn Ix( I 83jI8+ Qi Ix( 8 JI8 Ix( 82*I8+ Qn Ix( 8 JI8+ Qn*d QY: I; I+ QX+ R I7 8/ 9 F Ig&&
F Ig$&
. 93&8: Ig 9 F I9 K+ & ( I7. Ig HI8*d Qw K- & ( I9/( HI8*d Qz I7 8 F IQ" I7 $ F IV D I K,ZD Ix Ix( I 82hI8+ R Ix:H%+ R*d R: H2: I; IV+ Rd I7 D IU IT D Ix1d
+ R
F Ixf H& IU &H F I F I F IZ Ix1F + R" Ix.( $ fH% IU &H FI3f I+ R I F I IYI FIZ.$ 8( R!$ D Ii!$3$ I+ R !$@ D Ii I2d K<+ R !& F Ii2d K8+ R!!& F Ii2d K8+ R# K, F Ii2d K3+ R% K: F Ii"& $ &( j Ii J I,.$ 8& R& < Tl, < To, < Tq, , IT0d
+ RP" IT $ I Ii( H H Ix
K7 J IU5h R5
K< J IU6b H80b + R8+R64 R84 R@4 RG < Tt, < Tw,
"
Ix ( J I6 H H5 < Tz,
: H5; I6+ R<, + RN < T|, < T,
"
Ix ( J J H H5 < U,
: H5; J + RD, + RN < U, < U,
"
Ix ( J I H H5 < U ,
: H5; I+ RK, .$ 8& R0+ Rv K, I Ii& F F Ix K7 H IU5f RU K< H IU6b H80b + RY+RW4 RY4 R`4 Rj < U , < U,
" Ix & H I} F H5 < U,
: H5; I}+ R], + Ru H%1& + Ru < U, & ( < U,
" Ix & H I| F H5 < U,
: H5; I|+ Rg, + Ru I7 ( ( I82h8+ Ru < U, & ( < U ,
" Ix & H I{ F H5 < U!,
: H5; I{+ Rr, *d RP < U#, , $
D Ix3d IT+ Rz IT F Ix@f H%" Ix $ H%.H H%.$ 8& R| < U&, < U),
: I1 I|( 3d w+ L_: I|; Ii+ L^ 51$ + S < U,, K',~ p I{ K2x K'x IXx 2x 2x 2x IR@ 2 ~ K= ^ K>^ K@^ KA K0P 1 GW $ z h 2 @ > Ge X 0 J @ 2 ~ KC ^ KD^ KE^ KG K0X 0 J P 1 Iy @ > G P 1 GW @ > G P 2 Iy @ > Ge X J X J
@ IR $ X J
0 t 0 u $ r $ r X J&
$ H9 $ I1 @ GX $ H5 X J0 X J9 $HC X J9 $HC P 1 Iy @ > G P J: G $HC X J9 $HC X J9 $HC P J; I ( GV P J: I @ I$ X J9 $HC P J: ] $HC X J9 $HC P J< I $] P J: I @ I$ X J9 $HC P J< I $] P J: I $I# X J9 $HC X J9 $HC X J9 $HC X J9 $HC X J=
( IU ( I! $ I7 X JT ( H= ( HB ( H? X JY (8 ( 9 ( Ih X JJ
( IU ( I! $ I7 X JT ( H= ( HB $ I, X JY $8 $ 9 $ Ig X J^ $8 $ 9 X Jb ( I ( I8 ( IX X Jj ( IY ( I3 ( H; X Jr @ I- X Jv
X K (, $H% (I (IZ ( IU X K (, $H% (I (IZ ( IU X K
$, $H% (I (IZ ( IU X K (, (Ik $H% (I (IZ ( IU X K $I8 $I8 $H% (I (IZ ( IU X K $I8 $I8 $H% (I (IZ ( IU X K X K$ $ H% @ I- ` 2 > KH!* UM** ,^ ,~ * x ,> < UM*< UO p Z@ UC@@ UC@@ UD V`|+ U7P w,~ "p h a`~ + U<h ``~ + U=$ V!U>d V/"+ U7P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ UC\` UB < UC, ,^ ,~ SMI 1 ,> , U0 V BUC+ Ug_MI 1 ,> , U0 V BUC+ UgI5R1 ,> , U0 V BUC*\ Uq7Ap X" V BUC/& p d"~ l" BUC*\ Uq/& p d"~ l" $ BUC*\ Uq/& p d"~ l"
BUC*\ UqSp *\ Uq/&Xp B UL@@ UL V BUC*\ Uq/& p d"~ l" BUCRF UB < UC, + U.EV4i91 ,> + US ,i@1 ,> + U_ ,i@1 ,> + UK>2 1 ,> + UK>40 1 ,> + U[<I71 ,> & V w @ )@ . " 5B V & V,~ ` .
.4 SEQIN ^ VSEQOUT ^ VRANDOM ^ VSEQINOUT UL %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: gG@ 1 ,> 7cp + V (Bdb + V. V "+ V. V "T B#p @,~ 4B V +P
V!#p + V ,~ > attempt to take SQRT of negative arg Kc3@ p p + V0Kc3K , V0
,~ Kc3J , V0 ,~ Kc3I , V0 ,~ Kc3H4B VF5@ V45" VF+D
V3U ,~ ,> ,> # $ )D /$ @,> 4d V=X $ (F) + V=5F V=5" V<"` , VU+ VD# ,> < VH, W ,^ @ ,> < VI, V{,^ 5& VD" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + VUKc#K , VU @ ,~ Kc#J , VU @ ,~ Kc#I , VU @ ,~ Kc#H4B Vx5@ VX5" Vb+D
VWUV,~ D Vx!$ @ Vw B Vw5" V#` + Vt, V!" B ,~ + Vc(BdB + Vc5B V^ Vx,~ +7` Vw+ Vk`d +D
VgUV`d >@ 6V Vw+ Vb Vw`B "` + Vb/ Vyid + Vn+D + VhU", V Vw+ Vc+ V\ ! ,~ x Kc 1 ,> p 3" W+ W3b W+ W+D
W UW,~ +D D W F W@@ W%" j" % W)/;` : XD W5f W
aF + W
.& @(|h& f W r W W W W W D W@ W5 W,~ !t0 ' "S'qf!um. .#Y%6 !v yO^ RX C2|t(1 ,> p 4@ W0 @ W ,> < W9, W ,^ W ,~ {e^b C2|p 1 ,> p 5` W$4@ W0+P
W1 W7,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x W ATTEMPT TO TAKE LOG OF NEGATIVE ARG I$P 1 ,> #p D F b &" .$ &$ 7@ "$ (@ . &" * WO)@
(@ $ &$ .$ .& (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') ?~p x 6DELETE DSK SEQOUT TMPRY.DAT BINARY DSK SEQOUT LIST.DAT BINARY DSK LIST.DAT RANDIN BINARY DSK TMPRY.DAT SEQOUT BINARY DELETE RENAME BACKUP.BAN RENAME BACKUP.BAN DELETE Id] \ p p @ U $ >. s&$ > D *@d U $ 2D w+ $ 2D x+ x3D s+ $ $ 2D + " $ 2D + " 3D s+ / < C, , + > $ 2D + { $ 2D + { 2D s+ { $ 3d 5+ { < F, < H, , @d s D s $ D U+ > 51$ + 2 < K, , + >@d +" w $ ( "
w.* .
w.J +.$ 8& 4 < N, < S, < V,
" +.D - < Y, < [,
" s $ F V D " w $ D , ,(
w2j + F
w2* + P: ,8& A" * $ "( . $ *.( . H ` < ], < a,
< c, < e,
.$ 8& H: ; V+ @ s$ *.$ D \ $ D & / s&& /& $ F T D ].$ &$ . \ D \ < h, < k,
"& ] F D 2d s+ q" w $ D , ,(
w2j + e
w2* + q: ,8& ` $ / ]. D \ r & $ .& ( $ \.( # Hb*d h: 1d + q < n, < p,
& F : ; + ^ $ .d ]; T+ X $ 3D + x < r, < t,
" +.f s D K D L F L+ 9 < w, $ >. s&$ > D * & F @f " * $ F [ D ]/$ $$ > D -.$ D ,.$ > D V3d s+ s F V s@f,*d " $ F Z D \( 2f V+ 3& ,+ , D Y \( 2$+ \( F Y V F _ \( 3f + \( H _ Y/ - H ]"
_.
-/( . ] & F,.$ 8( : \; Z+ 51$ + o" 5 $ ( . 3/( $ *.( . ] H < {, s_H XZH , ( >$ . , < ,
: ,; X+ ), .$ 8& " -/ V $ F X D ,7F,+ m & F ( . 40D + = ( . "5 $ D $$
. ]3D ,+ @: 8& 9 $ >$ . , o3D ,+ c ( . 6b40b + G+ C4 G4 P4 T4 X4 \4 ` ( . "5 $ D $$
. ( >$ . , o3H]+ i: 8& J+ c & >$ . , o3&g+ i+ c & >$ . , o3fg+ i+ c & >$ . , o2fg+ i+ c & >$ . , o2&g+ i+ c & >$ . , o2Fg+ i: 2d 5+ g( . 33F0+ 3 ,@f,+ m: 2d 5+ m( . 33F0+ i+ 3: ,; X+ 1 -/ V $ ,1H + y
.
- J k: 1h >+ y < ! , < !,
* >.J * J .$ 8& p: ]; [+ @fk/$ .D < !, < !,
< B, !h < ! , < !, < !, < !,
D < !, < !,
" s $ F ` D /$ $ *.$ D @d $ D < ! , < ! ,
$ D ] ]0d >+ $7Fk+ k.& >&& > F \3F + . F ` < !#, < !&,
\ F /& $& > F . ] k/ . F + H,: ]+ ]1D + ( ]/& ? ] , H,.$ 8& " < !), < !+,
: ; ]0d >+
s$ *.$ D - $ . s&$ D ^" ^ $ . - H p < !-, < !1,
< !3, < !5,
.$ 8& / D s & F j F j D k < !8, < !:, < !=, < !A, < !C, $ D U p U Ap ,~ x 2X 0 a ` 1 > tX 0 h X 0 k @ 1 ~ u ^ v^ x^ y rP 1 q @ > - h 1 @ > - P 1 ` @ > - h 1 @ > - P 1 \ @ > - h 1 @ > k h 1 @ > k @ 2 ~ { ^ |^ }^ rP 1 $ o h 2 @ > k h 2 @ > k @ 2 ~ ^ ^ ^ r@ 1 ~ ^ ^ ^
rP 1 q @ > h 1 @ > P 2 @ > k P 1 ` @ > h 1 @ > - P 1 p @ > h 1 @ > ` 2 > X 1 > edX91 ,> ,> Zp @ !Z\` !Z < !Z, ,^ ,~ SMI 1 ,> , !G " B!Z+ !~MI 1 ,> , !G " B!Z+ !~I5R1 ,> , !G "! B!Z*\ " 7Ap X" "! B!Z/& p d"~ l" B!Z*\ " /& p d"~ l" $ B!Z*\ " /& p d"~ l"
B!Z*\ " Sp *\ " /&Xp B !c@@ !d "" B!Z*\ " /& p d"~ l" B!ZRF !Z < !Z, + !EEV4i91 ,> + "S ,i@1 ,> + "_ ,i@1 ,> + "K>2 1 ,> + "K>40 1 ,> + "[<I71 ,> & "# w @ )@ . " 5B " & "),~ ` .
.4 SEQIN ^ " SEQOUT ^ " RANDOM ^ " SEQINOUT !c
%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 DECIMLE POINTS FOR VALUE'/) (15A1) (G) (' ALPHA VALUE MUST BE ENCLOSED IN QUOUTES'/)(' 5 CHARACTER MAXIMUM FOR ALPHA VALUE'/) (5A1)(' ILLEGAL CHARACTER "',A1,'" FOR FIXED VALUE'/) (I15) S . 9 0 ' I ! x X M GJ, \ D V" $ ( 3h V+ , ( H V.$ 8& ' $ . s D m"& / V. m m F ] D n" $ D Y Y( n
3* + 7
3j + ;: Y8& 3 < -, < 0,
+ *: n; ]+ 1 $ >. s&$ > D l/$ $$ > D X $ >. V&$ >2D l+ S" s $ F \ D n$ l.$ D p < 1, < 5,
$ . s/ X D m" V. X m/& . m k H,.$ 8& M < 7, < ;,
: n; \+ D+
$ >. V&$ >/ l D n $ . s&$ D Z s$ l.& F V" Z $ . V H p < =, < A,
s$ n.H p < C, < G,
.$ 8& Z & / s s F [ D n/$ $ l.$ D V" l l F Z D Y. V D p < I, < M,
Y2D l+ u s/ X1D >+ u $ . s/ X D k k/& ? k k H,.$ 8& s"$ . n$ n.D p < O, < S,
> Y; Z+ i " k F,*d {"& . n$ n l. V. D p" n $ : p < U, < Y,
.$ 8& > n; [+ e $ . l D p" n $ : p < [, < _,
.$ 8& < a, < e,
V D - < g, < k,
s F W D s & F Y F j D k.$ >&$ > D l s/$ &$ >$ s.$ D l"& / s&& $ F h D Y. s. l D < m, < q,
Y/$ $$ .$ D a.$ D ^3d s+ % s F ^ a/& / ^ a / a$( 1 Hm / a$( , Ha.$ 8& ': Y; h+ s0$ + 1 < s, , $ . W D j"& / V. j j F _ D n.$ >&$ > D W" W.& $& >. n F l s1& + = < v, < y,
" s $ H _ D Y/$ $ l.$ . W D p < {, < ~,
s1$ + H < , Y < ,
+ K < , Y < ,
<
, <
@ `2D #+ SZ `2D !+ S3 a2D + S a3D + $+ `3D "+ *+ Y m.$ 6b 0b + Y+ W4 Y4 q4
+ D: l1F + j < , m < ,
+ D*d [ X0D + $ < , < ,
< , l < ",
+ % `2D $+ x `2D $+ x a2D $+ x a2D $+ x b3D $+ $ `3D + | < $, , + D $ D m m _3D + : m1d + } < ', , + D"& . m m m
$ J _.$ 8& l < *, #_D pZD m m < -,
: m; p+ , + %@d X !ZD m m _3H $+ ( H X _2h + _2( + < /, < 2,
+ D*d 7D X+ $ g2D $+ "& $ _ H_/$ 8& $ D `+ < 3, < 7,
< 9, l < =,
+ % l k F, < >, < B,
: Y; _+ ?: n; _+ 6 ,~ X 0 s $ n P 1 p @ > , P 1 p @ > , P 1 p @ > , P 1 p @ > , P 1 p @ > , P 1 p @ > , P 1 p @ > , P 1 p @ > , P 1 @ > , P 1 @ > , P 1 @ > , X 0 z X 0 | $ n P 1 p @ > , X 0 ~ $a X 0 $ n $a X 0 * @ ` X 0 (_ X 0 ( _ P
q @ ` P 0 P , ( X 0 ( P
q @ ` P q $, P 1 p @ > , @ (' 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~- \ B.@d Ae $
D B $ . D Ah & >. s&& > F A]$ s1d .p+ B: < DS, , + DP6d + B= < DV, , + DP" $ .( &( H Az"
Az.* $* .
J B s$ A].( . H Au < DY, < D],
$* (A HB.$ 8& B> & / s&& >/& $ F Ax D B .$ > D B 3d s+ BP s F B B .$ >&$ > D Ag" $ F Aw D As /& $ A].& . Ag F Au < D_, < Dc,
$ s D As As B1D + Bb"& . B / B B As. "
B .
(A J ,.$ 8& B^+ Bj"& . B / B B As. "
B .
C*(A AJ B/A< DR, Dt@+,.$ 8& Bd: As; Aw+ BT"& . B / B B D,.$ 8& Bm $ >.d B ; Ax+ BM $ D Ar D Av s D As Av2$ As+ Cg Av D Af. As7 .$ ( D Aj@d B : B 2d + C$ s. Aj , F Ai B $ s. Av , D Ay3D Ai+ By3$ Ai+ C
s$
.
Av J Ag
, L A~ (, N , L(,.$ 8& C As D A\@d B : B 2d + C$ s. Aj , F Ai B $ s. As , D Ay3D Ai+ C2d Ai+ C7+ C Aj As ,2&,+ C7"& / $ s$ . Aj H Ai s$ . As J Ag
, L A~ (, N , L(,.$ 8& C@d B : B 2d + C+$ s. Aj , F Ai B $ s. Av , D Ay3D Ai+ C#3$ Ai+ C7+ C. Aj Av ,3f,+ C7"& / $ s$ . Aj H Ai s$ . Av J Ag
, L A~ (, N , L(,.$ 8& C/"& / $ s$ . Aj , HB
.$ 8& C8+ CE"& / $ s$ . A\ H Ai s$ . Af J Ag
, L A~ (, N , L(,.$ 8& C>"$ .D A\@d B : B 2d + CN B
F Ai$ s. A\ , F Ay3F Ai+ CG2f Ai+ CE+ CP A\ ,2d B
+ CE: Af@d B : B 2d + CX B
F Ai$ s. Af , F Ay3F Ai+ CQ3& Ai+ CP+ CZ Af ,3$ B
+ CP A\2$ Af+ C<" Af. As/ Av3d + Cb Ar Av FA] A\ FAj Af F Av: Ar+ Cj Ar Af FA] As FAj A\ F As: Ar+ Cj> Ar4D D A] F Av Aj F As As/ Av0$ + Bu Av1D + Bs"$ .D Av: Av3D As+ Cg"& / $ s$ . Av , HB
.$ 8& Cq@d B : B 2d + C| B
F Ai$ s. Av , F Ay3F Ai+ Cu3& Ai+ Cn+ C~ Av ,3d B
+ Cn Av D Af"& / $ s$ . Af ,BJ ,.$ 8& D"$ .D Af@d B : B 2d + D
F Ai$ s. Af , H Ay3H Ai+ D3& Ay+ C+ D Af B
3&,+ C"& / $ s$ . Af B
J ,.$ 8& D+ Cn" s $ ,. s D ,.$ 8& D" s $ s. , H,.$ 8& D" s $ F A\ D B /$ $ A].$ D Ah" A] $ F B D As. Ah D B/ < De, < Di,
As/$ $$ >.$ D A[/$ D Ax A[.$ > D B3d s+ D, s F B A[/& / B A[ ,. s
/
Ax
(@ J ,.$ 8& D.: As; B+ D"" A] $ F B D As/$ $$ >.$ D A[/$ D Ax A[.$ > D B3d s+ D< s F B A[/& / B A[ / Ax
s.
(, J @ .$ 8& D>" Ax. B1D >+ DI $ / Ax. B D A A/& ? A A H@ .$ 8& DG As. Ah D B/ < Dk, < Do,
: As; B+ D5: B ; A\+ D B.,~ x B/X 0 B X 0 B+ P 1 Au @ > A P 1 Au @ > A P 1 B/ @ > @ P 1 B/ @ > @ ? SNEZ D Dr p @ Dq DqA Ds7 .$ ( D Dr5 Dz DsGD Dr Dr Dr,~ ] [ (' 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') (80A1) 9 (0 - F ' O ! R 0 , 8 = { 1 TOO MANY STATEMENTS PROBLEM DSK BNKPG.DAT SEQOUT DSK BNKPG.DAT SEQIN aJ||V \ AZ7D (+ As < DH, , + DC@d z Aa@fA*d At+ Ay < DK, , < DF, -1D + DC )3D A_+ DC )2D A]+ B *2D A^+ B *2D A_+ B +3D ?B+ B )2D A]+ CG *2D A^+ CG *2D A_+ CG +2D Ab+ CG7D z+ B
< DN, , + As $ D ?B: ?B0d (+ B: )3F Ab+ B )3F ?B+ B < DQ, < DT,
+ As ?B )3& Ac+ B )3f A[+ B < DV, , + As ?B *3F ?<+ B < DY, < D\,
+ As ?B < D], < Da,
$ .D ?B 97DA+ B# < Db, < De,
+ As ?B )3D Aa+ B': ?B1d (+ B#+ B: 9 A.$ D ?>1d 2+ B, < Dg, , + As $ 2$ 9. ?>@f $ 2$ 9. ?> .$ D 9: ?B1d (+ B< & 2$ 9. ?>"( . 9 H & 2& 9+ B8 9.f A 96fA+ Au < Dj, , + As ?B )3F Ab+ B1 )3F A^+ BK )3F A`+ B[ )3F A]+ Ba 91d + BF < Dm, , + As & t$ 9 $ $ ?>. 9. ?B ) F: 9+ B1 91D + BO < Dp, , + As $ 3$ 9+ BD ( t$ 9$ ?>. 9. ?B ) F: 9: ?B1d (+ BX < Ds, , + As ?B )3D A^+ BB+ BO $ 2$ 9. ?>"& . 9 F $ 2$ 9+ B` 9.dA+ B' 91D + BF & 2$ 9. ?>/$ D A` Ab FA
*d Be & / 9 $ F 9 D 9 ( t$ 9 & $ ?>. 9. 3F A]0D + Bo+ By ( t$ 9 & $ ?>. 9. 2h A[+ Bu 2( A\+ By < Dv, , + As < Dy, , + As 9 ( t$ 9 & $ ?>. 9. FA
: 9; 9+ Bi < D|, A`_D 9ZD 9 9 < D,
: 9; 9+ C, < E, < E,
A` Ab FA
*d C $ D 9: ?B0d (+ C )3F Ab+ C
)3F A`+ C )3F A]+ C )2f A[+ C )2& A\+ C < E, , + As 91D + C < E , , + As 90d + BD ?B ) FA
: 9+ C
91d + Bw < E
, A`_D 9ZD 9 9 < E,
: 9; 9+ C , < E, < E,
?<3d 9+ C) D ?@ 9 F ?< D 9"& . ?</ 9 ?< F 9 D 9 < E, < E,
< E, A`_D 9ZD 7 7 < E ,
: 7; 9+ C1, ?>0d 2+ B* $ D 9 A` A
3F Ab+ C= ( t$ 9 & $ ?>. 9. A
H: 9*d C7 $ 2$ 9. ?>"& . 9 F: ?>: 9; 9+ C, 9"& . ?> FA ?B1d (+ B'+ Au AbZD ?B ?B )2F Ab+ CK*d CG+ Au )3D {+ Cr: z1d
+ CO < E , F& & F ?B@f- ?B )3F {+ Cr )2F ?B+ Cm )2f A[+ CW )2& A\+ CZ < E!, , "& .F z+ Au ?B *3D ?<+ C^ < E$, , + Cm ?B < E', < E*,
?A6DA+ Ce < E,, , "$ .D z+ Au z -1& + Ch < E/, F&:-$&
. z ?B H?8 -$&
. z ?A H@ $
$ ?B. z ?B ) F9: ?B1d (+ CP+ Au < E0, Aa@f93FA+ Cv ( H9*d Cs+ D AaZD ?B ?B7HA+ C} 92(A+ C|:9+ D ?B ( H9*d Cw < DE, Ed $ D ( < E3, + DC z1$ + DC" z $ F ?> D ?B6F-+ D
Ab &
$& . ?B 9 F)*d D+ D3 $ D 9 D 9 ?B"- $ F ?= D 9$$
. ?B ?83F 9+ D 9$&
. ?B"?8. 9 9 9 *
$
.
?B
(9 J ): 9.$ 8& D $
$ 9. ?B @ D 9 9 F ?A$$ 2. ?A F ?;" ?; $ 9 , t$
9 * $
?A.
.
( J): 9.$ 8( D $
$ 9. ?B ?8.$ D 9: 9; ?=+ D $ (3$ 9+ D33$ 9+ D0 9 (
$ 9. ?B 9 H): 9: 9+ D)"& (. 9 9 Ab H).$ 8& D1"& ( $ ( D 9 9 )2D Ab+ D8> 98& D5+ D? 91$ (+ D< < E7, < E:,
@d 9 $ . 9 D 8 { F) < E<, < E?,
: ?B; ?>+ D+ Cw AZ,~ x 1h ) A\ -X 0 A X 0 A X 0 A X 0 A! $) X 0 A& X 0 A! $* P A( ) $ 9 X 0 A) $ 9 X 0 A- X 0 A1 X 0 A4 X 0 A: X 0 A> X 0 AA X 0 AF P AH A $A
P AI A $ ?< X 0 AA X 0 AJ P AH A $A
P AI A $ 9 P AO A $ 9 P AH A $A
x AcX 0 AO X 0 AS P A( ) $ ?A X 0 AO x AfP 1 ~ Ag^ Ah ^ AjP 2 ~ Ak^ Al ^ AnX 1 AY @ ( ) X 1 AY @ ( ) !* E`** ,^ ,~ * x ,> < E`*< Ec p Z@ EV@@ EW@@ EW F`|+ EJP w,~ "p h a`~ + EPh ``~ + EQ$ F!ERd F/"+ EKP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ EV\` EV < EV, ,^ ,~ SMI 1 ,> , EC F BEV+ Ez_MI 1 ,> , EC F BEV+ EzI5R1 ,> , EC F BEV*\ F7Ap X" F BEV/& p d"~ l" BEV*\ F/& p d"~ l" $ BEV*\ F/& p d"~ l"
BEV*\ FSp *\ F/&Xp B E_@@ E` F BEV*\ F/& p d"~ l" BEVRF EV < EV, + EAEV4i91 ,> + FS ,i@1 ,> + F_ ,i@1 ,> + FK>2 1 ,> + FK>40 1 ,> + F[<I71 ,> & F w @ )@ . " 5B F & F%,~ ` .
.4 SEQIN ^ FSEQOUT ^ FRANDOM ^ F SEQINOUT E_ %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> O@ Fc+ F*gR~@1 ,> @@ Fc,> ,> @ 6 w+ F6" Fd0B + F2!"A`X#p 5@ F//#p !" X#p + F6\p + F6a.9'1 ,> ,> ,> O@ Fc+ F6,> 6 + _ 4` F?"` Q@ ,> < Fe, ,^ ,> < Fh, ,^ *b F<+ FI,> < Fi, ,^ 7@ Fc+ FD,> < Fl, ,^ + FF,> < Fn, ,^ Z 5" FI,> < Fo, ,^ , 7@ Fc,
,> < Fq, ,^ , ,> < Ft, ,^ ,> < Fw, ,^ (@qd 1@ ,,
1@ #+ FX0@ *+ FJ,> < Fx, ,^ + FJ,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X F` p X Fa p Fb p Fc p X FZ X ~ F_ p 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) > ?~p x V2 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 SEQIN DELETE DSK TMP.DAT BINARY SEQOUT DSK LIST.DAT BINARY RANDIN DELETE RENAME HOLD.TMP RENAME DSK HOLD.TMP DELETE [y \ HD p @ F| D F D F@d F D F| 5D I < Nm, , + NE s1d P+ I < Np, , + NE $ >. s&$ > D F$ s.$ D F* $ . s&$ D F" F $ F G D H & F G$ H 3f s+ I" H .& $& . s F G. F* D HD < Ns, < Nw,
H /$ $$ D F," G $ F,. * $
(# J ) F,. @j "y F,. * $
(( J 2I.$ 8& I!: H ; G+ I s D Fm < Ny, < N~, < O,
03D HI+ I3 < O, , < Nl, U)+ NE , D F( - F F.& >&& > F F$ F(.& F GF.$ &$ D H " H $ F G D H & F G$ H 3f F(+ IA" H .& $& . F( F G. GF D HD < O, < O ,
" G,$ F G ,D Fn" s $ F F$D Fn & $ Fn$)2H#+ IX"& . H $& . Fn1F"y+& $ Fn,2I3H(+ Ic,2I1f + IT < O $ Fn # F)"& . H $& . Fn F"y: Fn; G + IF: H ; G + I< $ >. F&$ > D F% $ >. s&$ > D F#6f + K" < O, < O, < O,
Fm F , s. F H - < O , < O ,
( >. s. F&( > H F " F#.( $( >. s H F$" Fm $ H F~ D H 2d s+ J%/$ $ F#.$ D F$ $ 2$ F#+ J & / F# $ . F$ H HD < O", < O&,
< O(, < O*,
.$ 8& I F#. F$ D HD < O-, < O0,
F$1$ >+ J1 < O3, < O5,
H 7D"y+ J H "y D GD/$ $ F%.$ D F$" F% $ F Fz D Fn. F$ D HD < O7, < O;,
H 2I1f + J $2I D HD < Nh, QB < O=, < O?,
: Fn; Fz+ J+ Jm HI k F,*d J " F% $ < OB, < OD,
.$ 8& J"+ Jm HI k F,*d J& $ 2$ F#+ J- & / F# $ < OF, < OH,
.$ 8& J* F$1$ >+ J1 < OK, < OM,
+ J@d Fn H :"y2D GD5D J67 HI+ k.Fk*d J4"$ . GD$ F%.$ D F$ $ D Fy & >/ F$ F H
. H 32I1f + JF.$2I/D HD"< Ne, QB/$ >$ Fn D F}3d F+ JP"& >. H
kJJ ,.$ 8& JRH$ >/ F$3D H 8& J[ < OU, < OW,
7D F!+ Jm F!/& / G F!" H
kGJ ,.$ 8& Jb+ J=H$ / H,.$ 8& Ji < OZ, < O\,
: H ; F~+ Iy"$ . F D F1$ + Jx" F $ F*. H HD < O^, < Ob,
< Od, < Of,
.$ 8& Jr F*. F D HD < Oi, < Ol,
s3D Fm+ K"( $ F.$ . D Fy s.$ D F* Fy1d + K < Oo, < Oq,
$ D Fy F* "y.& && F F. GF F HD < Os, < Ow,
" F.& $& ."y F GA HH & $ Fy.& ( $ GA.( b H#*d K: Fy: F*3d Fm+ K < Oy, < O{,
< Nd, U) Fm D s F.f s ( H K H L D L H j H j F k < O~, < P, < P, < P, H F|+ NE & . s. F$ 1d 2d+ K) < P
, , < Nc, U)+ NE" $ F H D H " 1F + K6 6F"y+ K2 < P
< Nb, U)+ NE H "y FFn 2I FF+ K7 H OfFn: H ; H+ K+ < P, & / Fm&& >/& $ ( >. H F 3h Fm+ K?
Fm J F < P, "* .
/
F J H
H Fn Fn < P, : Fn; H
+ KC, < P, "* . / F J H
H Fn Fn < P, : Fn; H
+ KK, .$ >8& K< < Na, U) s. F D GB & . F F)$ D F-" s $ . F- H F, D ).$ 8& KU" F# $ F F" D H & > F G$ H 3f s+ K_" H .& $& >. s F G" $ F F! D Fn" 1F + Kp /& $ F#.& . H F F{ < P , < P ,
"( . H $( >/$ $ GB. D F-" G $ . F- H F,
, J ).$ 8& Kl+ K{"& . H $& >"$ . Fn$ GB. D F-"$ . H $$ > D F"" G $ . F- H F,
.
F" J ).$ 8& Kw: Fn; F!+ Ka: H ; F"+ KZ" F% $ F F D H & > F G$ H 3f F+ L" H .& $& >. F F G" $ F F D Fn"Fn1F + L Fn/& $ F%.& . H F F{ < P#, < P&,
F1f + L $F D HD < N_, QB"& . H $& >"$ . Fn$ GB. . s D F-" G $ . F- H F,
, J ).$ 8& L: Fn; F + L+ L("$ . H $$ > D F""& . H $& >"$ . Fn$ GB. . s D F-" G $ . F- H F,
.
F" J ).$ 8& L$: H ; F + L $ GB. s D F-" F $ . F- D ).$ 8& L, < N\, SV $ . s D HD < NY, SV $ D H. s D Fn" $ D F F /$ $ GB D F-. H D H
F-. Fn H F)
)2j )+ LJ
)3* )+ LL: F 8& L6
H $ GB. H ) D().
GB $ GB. Fn ) D() $ GB. Fn@f):
H2j s+ LW: Fn2d GB+ LR+ L4: Fn2d GB+ LR+ L4 H $ GB. H ) F). GB@f): H2d s+ LW+ L4 H $ GB. H ) F). GB@f): H3d s+ LR $ . s D Fn $ GB. Fn7D)+ L` H@f). GB $ GB. Fn ) F): H: Fn3d GB+ LY"& . H F F < NV, SV < P), " F $ ) H F
.
GB
() J)
.
GB H().$ 8& Lf & / s&& >/& $ F F( D Fn.$ > D F&3d s+ Lr s F F& Fn&$ >$$ > D H Fn/& / F& Fn . GB"
H.J ).$ 8& Lv Fn D F < NS, SV $ >.d Fn; F(+ Lo $ . s D Fn F3d s+ M < NP, SV"& . Fn/ F Fn"( . &( >$( > H F,
.
GB"
F,.
L().$ 8& M & / F&& >/& $ F F& D Fn.$ > D F&3d F+ M F F F& Fn/& / F& Fn ).( >&( > H H 4H M" H .* $* >.J) * / Fn. J F,
) L(GH
.
GB
0) L(G H(F-.$ 8& M < P-, < P/, < P2, < P4, < P6, < P8, $ >.d Fn; F&+ M
< NO, U) < P;, & / Fm&& >/& $ ( >. H F 3h Fm+ M,
Fm J F < P?, "* .
/
F J F} H Fn Fn < PA,
: Fn; F}+ M0, < PC, "* .
/
F J F{ H Fn Fn < PE,
: Fn; F{+ M8, .$ >8& M) < PF, < PI, < PM, < PQ,
Fm D , F F - < PS, < PU,
< PX, .& >&& > F F" Fm $ F Fz D H " F $ F Fx D Fn/$ ( . .& F H < P\, < P`,
.& F HD < Pb, < Pf,
H.$ D HD < Ph, < Pl,
H 2d s+ Mg Fn2f F#+ Mg/$ $ F#.$ . Fn D H < Pn, < Pr,
$& >3f s+ Mi" Fn.$ $$ >. s.D H 8& Md+ Mi HI k F,*d Mg H 7F"y+ N
"y/& $ F%.& F F$@f H
$& >3F H+ Mr7& / Fn$& >. F F H
+ M{ F- F H
. F$ F F# < Pt, < Px,
F GH k3F k+ N G GH k H, H 2f s+ N 2I1h + N &2I F HD $G D HE < NL, QB: F ; Fl+ Mt H 3d s+ N
2I1f + N
$2I D HD < NJ, QB < Pz, < P|,
: Fn; Fx+ MK: H ; Fz+ MI"$ . F D F1$ + N" F $ F*. H HD < P, < Q,
< Q, < Q,
.$ 8& N F*. F D HD < Q , < Q
s3D Fm+ N7"( $ F.$ . D Fy s.$ D F* Fy1d + N( < Q, < Q,
$ D Fy F* "y.& && F F. GF F HD < Q, < Q,
" F.& $& ."y F GA HH & $ Fy.& ( $ GA.( b H#*d N1: Fy: F*3d Fm+ N$ < Q, < Q ,
< Q , < NI, U) Fm D s F F s( H K H L D L H j H jF k< Q!, < Q$, < Q', < Q*, H F| HD F| Ap ,~ x 2` , HD HF HF` , HD HE HGx 1X * GB HG Fn FX * GB HG F F&X * GB HG HF sX * GB F) HD GBX * GB F) HF s` , HD HF HFx 1x 2x 2x 2` k HD HF HF` , HD HF HFx 2x 2x 2X 0 H X 0 H P 1 HD @ > , 8 2 ~ HJP ^ HK F ^ HM HHP 2 HF @ > , X 0 H P 2 HD @ > , X 0 H, X 0 H @ 1 ~ HN^ HO^ HQ ^ HR HHP 1 HF @ > , h 1 @ > , P 1 HD @ > , h 1 @ > , P 1 HD @ > , h 1 @ > , P 2 HD @ > , h 1 @ > , h 1 @ > , h 1 @ > , h 1 @ > , P 2 HD @ > k h 1 @ > , h 1 @ > , P 1 HD @ > , h 1 @ > , P 1 HD @ > , h 1 @ > , P 2 HD @ > k h 1 @ > , X 1 > HT^ HUP 1 > HWP t` HJX 1 ~ HX^ HY` 1 > H[X 0 H2
+ QM & F Q.0@ + QO & F Q.0@ + QQ & F Q.0@ + QS & F Q. Q/0f >+ R`" Q5/& . Q/ Q/ F Q4 D Q8. Q. 3F Q-+ R^6b Q.0b + Q_+Q[4 Q_4 Q~4 R4 R 4 RC4 RH Q8. Q. D Q- Q-3$ Q?3d Q>+ Qc+ QnD D Q-0dO+ Qg" 1& '+ Qi Q8. Q. Q- H + R^ Q8. Q.@f Q8. Q. < Rb, < Rf,
+ Qs Q8. Q.@f Q8. Q. < Rg, < Rk,
Q8. Q. < Rl, < Rp,
Q52D QA+ Q{ Q@ Q5 FQ4*d Qx QA D Q7+ Qv Q8. Q. < Rr, < Rv,
+ R^ Q8. Q. D Q- Q8. Q.F Q- F+ R^ Q8. Q. < Rx, < R|,
Q@ZD Q0 Q0 Q53H Q>+ R Q53H QA+ R Q53H Q;+ R Q53( Q=+ R Q53h Q=+ R Q8. Q.
Q- J'+ R^*d R Q72D QA+ R"& $ Q4 HQ5/$ 8& R QA D Q5+ R Q8. Q. < R~, < S,
Q8. Q. < S, < S,
, Q8. Q. Q- F+ R^ Q8. Q. < S , < S
"& $ F Q2 D Q0 Q53F Q>+ R1 Q53F QA+ R1 Q53F Q;+ R> Q53F Q?+ R> Q53f Q=+ R. Q53f Q=+ R1 Q8. Q. Q- F+ R^: Q0; Q2+ R% Q72D QA+ R8"& $ Q4 HQ5/$ 8& R5 QA D Q5+ R2 < S, < S,
< S, Q8. Q. < S,
+ R^ Q01D + R. Q0/& Q0 QA HQ5.$ 8& RA+ R2 Q8. Q.d D Q- Q8. Q. Q- F+ R^ Q8. Q. D Q-0dO+ RL" 1f '+ RO Q8. Q. Q- H + R^ Q8. Q.@f Q8. Q. < S, < S ,
Q8. Q. < S , < S#,
Q52D QA+ R[ Q@ Q5 FQ4*d RX QA D Q7+ RV Q8. Q. < S%, < S),
: Q8; Q4+ QX Q;,~ P Q9 $ Q- P Q9 ( Q- P Q: @ Q5 P Q: @ Q5 P Q: @ Q5 P Q: @ Q5 P Q9 ( Q- P Q: @ Q5 P Q: Q- @ Q5 P Q9 Q- $ P Q9 $ Q- P Q: @ Q5 P Q: @ Q5 39 g?@ \ ST !p @ S@ p @ S@ p @ S6 p B S5 p D SF S6/& F SI & F SA B SD D SA SD2$ SA+ TX SD D S4. SA7 .$ ( D S7Od SH: SH2d SI+ Sz$ S@. S7. S@ F S6 SH$ S@. SD. S@ D SG3D S6+ Se3$ S6+ Sz"& / SI $ $ S@. S7 H S7
$
S@.
SD J S5. S@
' L SG S7. S@.
S@ / N' S5. S@ L'.$ 8& So SA D S+Od SH: SH2d SI+ T)$ S@. S7. S@ F S6 SH$ S@. SA. S@ D SG3D S6+ S{2d S6+ T)"& / SI $ $ S@. S7 H S7
$
S@.
SA J S5. S@
' L SG S7. S@. S@ / N' S5. S@ L'.$ 8& TOd SH: SH2d SI+ T$ S@. S7. S@ F S6 SH$ S@. SD. S@ D SG3D S6+ T3$ S6+ T)+ T S73D SD+ T) < U, Uk"& / SI $ $ S@. S7 H S7 $ S@. SD J S5. S@
' L SG S7. S@. S@ / N' S5. S@ L'.$ 8& T "& / SI $ $ S@. S7. S@ ' HSI.$ 8& T*+ T;"& / SI $ $ S@. S+ H S7 $ S@. S4 J S5. S@
' L SG S7. S@. S@ / N' S5. S@ L'.$ 8& T0"$ .D S+ D SH: SH2d SI+ TC SI F S6$ S@. S+. S@ F SG3F S6+ T<2f S6+ T;: S4Od SH: SH2d SI+ TK SI F S6$ S@. S4. S@ F SG3F S6+ TD3& S6+ TC S+2$ S4+ T/" S4. SA/ SD3d + TT SA SD FS+ S+ FS7 S4 F SD: SA+ T[ SA S4 FS+ SA FS7 S+ F SA: SA+ T[> SA4D U S+ F SD S7 F SA" SD. SA0$ + Sa SD3D S5+ S_"$ .D SD: SD3D SA+ TX"& / SI $ $ S@. SD. S@ HSI.$ 8& TcOd SH: SH2d SI+ T` SI F S6$ S@. SD. S@ F SG3F S6+ Tg3& S6+ T` SD D S4"& / SI $ $ S@. S4. S@ ' J .$ 8& Tq"$ .D S4 D SH: SH2d SI+ T} SI F S6$ S@. S4. S@ H SG3H S6+ Tv3& SG+ To"& / SI $ $ S@. S4. S@ SI J .$ 8& T+ T` ST,~ x SU!* U%** ,^ ,~ * x ,> < U%*< U( p Z@ U@@ U @@ U U\`|+ UP w,~ "p h a`~ + Uh ``~ + U$ U]!Ud U]/"+ UP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ,> Zp @ U\` U < U, ,^ ,~ SMI 1 ,> , U U_ BU+ U?_MI 1 ,> , U U` BU+ U?I5R1 ,> , U Ub BU*\ UJ7Ap X" Ub BU/& p d"~ l" BU*\ UJ/& p d"~ l" $ BU*\ UJ/& p d"~ l"
BU*\ UJSp *\ UJ/&Xp B U$@@ U% Uc BU*\ UJ/& p d"~ l" BURF U < U, + UEV4i91 ,> + UWS ,i@1 ,> + UW_ ,i@1 ,> + UWK>2 1 ,> + UWK>40 1 ,> + UW[<I71 ,> & Ud w @ )@ . " 5B UY & Uj,~ ` .
.4 SEQIN ^ U^SEQOUT ^ U_RANDOM ^ UaSEQINOUT U$
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> O@ V(+ UogR~@1 ,> @@ V(,> ,> @ 6 w+ U{" V)0B + Uw!"A`X#p 5@ Ut/#p !" X#p + U{\p + U{a.9'1 ,> ,> ,> O@ V(+ U{,>
6 + _ 4` V"` Q@ ,> < V*, ,^ ,> < V-,
,^ *b V+ V,> < V., ,^ 7@ V(+ V ,> < V1,
,^ + V ,> < V3,
,^ Z 5" V,> < V4,
,^ , 7@ V(,
,> < V6, ,^ , ,> < V9, ,^ ,> < V<, ,^ (@qd 1@ ,,
1@ #+ V 0@ *+ V,> < V=, ,^ + V,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X V% p X V& p V' p V( p X V X ~ V$ p x