@ [ ] A I F G E ( ) D O INPUT.DAT (' CREATING A NEW BANK TO BE NAMED - ',A10) ('0INPUT? ',$) ('0THIS ANSWER DEFINES WHERE THE INPUT DATA IS TO BE FOUND.'/'IT USUALLY CONSISTS OF A DEVICE, A FILENAME AND EXTENSION,'/' AND POSSIBLY A PROJECT PROGRAMMER NUMBER. POSSIBLE DEVICES ARE:'/' TTY: - TELETYPE'/' DSK: - DISK'/' CDR: - CARD READER'/' DTA#: - DECTAPE (MUST BE MOUNTED ALREADY'/' MTA#: - MAGTAPE (MUST BE MOUNTED AND POSITIONED)'/'0DEFALUTS:'/' IF NO INPUT DEVICE IS SPECIFIED, BUT A FILE NAME IS GIVEN,'/' THE DISK WILL BE USED AS THE DEVICE.'/'0 IF A DEVICE REQUIREING A FILE NAME IS GIVEN BUT NO FILE'/' NAME IS INDICATED, INPUT.DAT WILL BE ASSUMED.'/'0 IF NO RESPONSE IS GIVEN TTY: WILL BE USED.'/'0 IF DSK: IS SPECIFIED WITHOUT A PROJECT-PROGRAMMER NUMBER'/' THE USERS PROJECT PROGRAMMER NUMBER WILL BE ASSUMED.'/'0EXAMPLES:'/' TTY:'/' DSK:DATA.DAT'/) (' A COLON MUST FOLLOW THE DEVICE AND FILE NAME MAY BE'/' NO LONGER THAN 10 CHARACTERS') (' ILLEGAL CHARACTER IN PROJECT NUMBER')(' MUST BE A COMMA BETWEEN PROJCT AND PROGRAMMER NUMBER') (O10)(' ILLEGAL CHARACTER IN PROGRAMMER NUMBER') (' PROGRAMMER NUMBER TOO LONG') (' ? FILE DOES NOT EXIST') (' HOW MANY VARIABLES? ',$) (I) (' THE MAXIMUM FOR THIS PROGRAM IS 500-FOR MORE SEE DICKHOUCHARD') (' ENTER FORMAT ENCLOSED IN PARENTHESIS'/) (' FORMAT TOO LONG')(' FORMAT MUST BE ENCLOSED IN PARENTHESIS') (' NO BRACKETS WHEN SPECIFYING FILE FOR FORMAT') (' FILE SPECIFIED FOR FORMAT NOT AVAILABLE') (' FORMAT FILE MAY NOT BE SPECIFIED IN A FORMAT FILE') (' UNBALANCED PARENTHESIS') (600A1) (I5) (' CAUTION - NUMBER OF VARIABLES DOES NOT AGREE WITH FORMAT') ('0MULTIPLE RECORD FORMAT - ',I4,' RECORDS READ PER READ') (I3) ('ORIGINAL VARIABLE NUMBER ',I3,' -',A10) ('0ENTER NAMES, DESCRIPTIONS AND MISSING DATA'/) ('+ ? ',$)('0THE VARIABLES HAVE ALREADY BEEN GIVEN THE NAMES: V1, V2,'/' V3, V4, ...., AND DESCRIPTIONS: THIS IS THE ORIGINAL'/' VARIABE NO 1, ETC. NO MISSING DATA SYMBOLS HAVE BEEN'/' ASSUMED. TO CHANGE THESE, TYPE THE VARIABLE NO, AN EQUALS'/' SIGN, THE NAME OF THE VARIABLE (UP TO 5 CHARACTERS, FIRST'/' MUST BE A LETTER), A SEMICOLON, THE DESCRIPTION (UP TO 40'/' CHARACTERS), A SLASH AND A MISSING DATA SYMBOL. UP TO 5'/' MISSING DATA SMBOLS MAY BE SPECIFIED FOR ONE VARIABLE.'/' EXAMPLE:'/' 3=SEX ;SEX OF RESPONDANT/3/0/9'/' ANY PORTION (NAME,DESCRIPTION, OR MISSING DATA) WHICH IS'/' NOT INCLUDED , WILL NOT BE CHANGED. THE NAME MUST BEGIN IN'/' THE FIRST POSITION FOLLOWING THE EQUALS, BUT NONE OF THE'/' OTHER PORTIONS REQUIRE SPECIAL POSITIONING. RANGES OF'/' VARIABLES MAY BE CHANGED WITH ONE COMMAND, BY INDICATING THE'/' LOWEST VARIABLE NUMBER OF THE RANGE, A MINUS, AND THE LARGEST'/' VARIABLE NUMBER OF THE RANGE. IF NAMES ARE TO BE CHANGED'/' FOR RANGES, A QUESTION MARK MUST BE IN THE NAME. THE')(' QUESTION MARK IN THE VARIABLE WILL BE REPLACED WITH A'/' NUMBER, STARTING WITH ONE FOR THE FIRST VARIABLE IN THE'/' RANGE, TWO FOR THE SECOND, ETC. IF THERE ARE MORE THAN 9'/' VARIABLES IN THE RANGE, TWO QUESTION MARKS MUST BE IN THE'/' NAME. MISSING DATA MUST BE OF THE SAME TYPE AS VARIABLE'/' IT IS SPECIFIED FOR (ALPHA MISSING DATA SYMBOLS MUST BE'/' ENCLOSED IN QUOTES)'/'0WHEN ALL CHANGES HAVE BEEN MADE TYPE A CARRIAGE RETURN <CR>,'/' TO CONTINUE WITH PROGRAM'/) (' ILLEGAL VARIABLE NUMBER'/) (' NO BRACKETS ON VARIABLE DESCRIPTION FILE'/) (' FILE FOR DESCRIPTION IS UNAVAILABLE'/) (' DESCRIPTION FILE MAY NOT SPECIFY A DESCRIPTION FILE') (I3) (' 2 RANGES INDICATED FOR SINGLE LINE'/)(' RANGE MUST BE SPECIFIED FROM LOW TO HIGH'/) (' ILLEGAL NAME'/) (' TOO MANY VARIABLES IN RANGE FOR NO. OF ?'/) (I5) (' "',A5,'" IS A RESERVED NAME') (' VARIABLE ',I3,' ALREADY HAS THE NAME ',A5/) (' THE SAME SYMBOLS FOR MISSING DATA CANNOT BE USED FOR'/' TWO DIFFERENT TYPE VARIABLES - NO MISSING DATA ACCEPTED THIS'/' STATEMENT'/)(' ILLEGAL CHARACTER "',A1,'" IN MISSING DATA SYMBOL'/)(' ONLY 1 DECIMLE POINT PER MISSING VALUE'/) (' ONLY 1 E SIGN PER VALUE'/) (' VALID: WAS NOT INDICATED - RANGES MAY NOT BE USED'/)(' TWO - CANNOT BE USED IN THE SAME STATEMENT'/) (G) (' NO - FOR VALID RANGE'/) (' ALPHA MISSING DATA SYMBOLS MUST BE ENCOLOSED IN QUOTES'/)(' MAXIMUM SIZE FOR ALPHA VARIABLE IS 6 CHARACTERS'/) (I) (' TOO MANY MISSING DATA FOR VARIABLE ',I3/) (' 1 VALID RANGE ALREADY ACCEPTED FOR VARIABLE ',I3/) ('0ENTER DATA NOW, WHEN FINISHED TYPE A CONTROL Z (^Z)') (' ERROR READING OBSERVATION ',I6) (' PLEASE REENTER THE ENTIRE OBSERVATION '/) (' MORE THAN 5 ERRORS PER HUNDRED OBSERVATIONS - BYE') ('1BANK: ',A10,5X,'CREATED: ',2A5/' HAVING ',I3,' VARIABLES, AND ',I6,' OBSERVATIONS') . V ? V DSK E ( ( H STOP 9 9 (@ 0 @ 0 ALL - ?TTY Z ; ' I I L OBS O ! ! HELP A / A 0 / 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` \ >v $ D :_ < H, < H,
< H, , < H, < H,
,M3D ?+ GX"& ( $ ( D ; ; ,L2D ?+ ?A> ;8& ?=@d :e+ ?X ; D :e@d ;: ; ;3D :e+ ?N ,L2F ?+ ?B.$ D ;" :e/& . ; ; ,L H,L.$ 8& ?I :e ? F,L"$ .D :e+ ?C ,M2D >{+ ?X ,M2D >y+ ?X ,N2D ?+ ?X ,N2D ?+ ?X ,O2D ?+ ?X < H , , + ?6+ H ? D .' ; .0@d .& D .& D .'3D :e+ @L & F ;: ;2d :e+ ?l ,L3F ?+ ?b ,L3F .%+ ?l+ ?]"$ . ; D : < H , " : $ F :c D :[ :[ < H",
: :[; :c+ ?g, ; D :+ ?m@d : >y D .' ?
? F;*d ?n@d :[@d :h: :2d :e+ ?| ,L2F >v+ ?t!& F :h ,L3F .%+ ?| :[1& + ?y < H$, , + ?6: :[ : ,L F;+ ?p!$ 3D :h+ @ :[0d + @ : :[ >v F; < H', ?
_D :bZD :[ :[ < H*,
: :[; :b+ @, : ,L2D .%+ @L ?
? F;*d @ @d :[: :2d :e+ @ ,L3F .(+ @ ,L3F ?
+ @ ,L3& >+ @ ,L3f ?+ @ < H,, , + ?6 :[1d + @ < H/, , + ?6: :[ : ,L F;+ @ $ 3$ :[+ @ D .&+ @+ ;2D ?+ @#"& $ ; H;/$ 8& @ ? D ;+ @ < H2, ? _D :]ZD :[ :[ < H5, : :[; :]+ @%, < H7, < H:, ? ? F;*d @+@d :[: :2d :e+ @; ,L3F .(+ @; ,L3& >+ @3 ,L3f ?+ @5 < H<, , + ?6 :[1d + @9 < H?, , + ?6: :[ : ,L F;+ @- $ 3$ :[+ @> D .&+ @L ;2D ?+ @D"& $ ; H;/$ 8& @@ ? D ;+ @> < HB, ? _D :xZD :[ :[ < HE, : :[; :x+ @F, < HG, < HJ, < H
, @7D :d+ @P < HL, , + ?6 < HO, < HS, , < HV, < HY,
s1d z+ @X < HZ, , + H+< H], , @d :o0D :x+$ D .(,D :" ? . :/ ./ : F :s D ; ; < Hc,
: ;; :s+ @g, 6D :x+ @s < He, "& . :/ ./ : F :q D ; ; < Hh,
: ;; :q+ @o, $ 2D :+ @v2 73D ?+ GX8$ 2D :+ @y/ 73D >~+ A3$ 2D :+ @|2 72D >z+ A .H :o 73H ? : .(.$ 8& A .,1$ ,+ A% < Hi, , + @X < Hl, , + @X ? ZD ; ; 72F .%+ A < Ho, , + @X*d A < Hr, ? D ;$ZD ; ; < Hv,
: ;; ;$+ A, < H , E7D :d+ A < Hw, , + @X :x0D + A" < Hz, , + @X $ D :x < H}, + @^ $ . ., D :6d :o+ @^5$ A) < I, , 4$ @X < I, < I,
:x0F + A. < I
, @f ;: ; ;2d .,+ AN ? ZD :[ :[ ; 73H:y+ A/*d A1 ; 73& >~+ AG 72f >|+ AG"& $ F ; D ./. ;2d .,+ AG ? ZD :[ :[ ;. ./ 72H:y+ AA1F + AG+ A/*d A< ;. ./ 73& >~+ AG 72f >|+ AG: ./; ;+ A: $ . ; D ; "& / .,. ; ; 7 H6.$ 8& AK"$ .D .,+ A/@d .+ D ; $ D :Y: ;2d .,+ B 73F :|+ AP 73F :|+ AP 73& >~+ AX 73f >|+ A[ :Y 7 H{: :Y1& ,+ AP+ B $ D .+ ? ? F.!*d A] $ D :[ :[ ; 7 F.!: ;: :[ 73& >~+ Ae 73f >|+ A_ .$2D ?+ Ak"& $ .! H."/$ 8& Ah ? D ."+ Ae < I
, < I,
< I, < I,
; 73D :|+ Ax" : $ D :[ :Y ; 7 H{: :Y0d ,+ B: :[8& As+ AP $ . ; D : $ D :o : 73F :|: :o 73F :|> :o7F :o+ B : :+ Az"& . : $ . ;2d + B" : $ F .0 D :[ $ . ; D : :/ : : D ./ :Y ./ 7 H{: :Y0d ,+ B: ./8& B: :[; .0+ B : D ;+ AP"$ . :Y D .,7F .++ B" ., $ { H7.$ 8& B+ AN < I, L + H $ D ./ s3D .,+ B < I, , .(1d + B < I, < I ,
" s $ @h%z ./
{2J ?+ B# * J%z
{2J ?+ B& * J%z
{2J ?+ B( * J%z:
./3j .,+ B+ ( H ./.$ 8& B >x D ." ? D .$" s $ F .+ D ; < I , < I#,
< I$, ?_D .*ZD :[ :[ < I(,
: :[; .*+ B4, ."2D ?+ B= ? .! F.!*d B: ? D .#+ B8 ; < I), < I-,
@f.2( < I/, < I3,
: ;; .++ B0@d :x < I5, , 6D :x+ BH < I8, , 0D + BK < I;, < I>,
5D BM)< H, F6 ,M2D >{+ BX ,M2D >y+ BX ,N2D ?+ BX ,N2D ?+ BX < I@, , < IC, , + BF ,M3D ?+ GX ,M3D ?+ F6 ,M3D ?
+ F6 ,M3D >}+ Bp $ 2D .,@d .+ D :, ?, ?+F.!*d B`0$ +D :[ ., ,L3F ? + C:,L3F ?c ? ZD ; ; ,L2F .%+ Bu < II, , + BF*d Bp < IL, ? D :ZD ; ; < IP,
: ;;D :+ Bx, < H, E7D :d+ B,< IQ, , + BF7D :x+ C,< IT, , + BF $ D :x < IW, + BF < I[, @d :x+ BF :[1D + Bi .#2D ?+ C
: :[; :+ C, < Ib, < Ie,
+ ;0$ 2d s+ Bi, .,,,L3D ?F $ D .+ ; F :h.d .,+ B` .+1D + C# ; D :h D :e+ C' ; D :e2$ :h+ C' < Ij, , + BF $ . :e/ :h D .): ., ? ? F.!*d C* $ D :[ ., ,L3F ?+ CC ,L3F ?+ CC ,L3F ?+ CC :[0F + C8 ,L2f ?+ C6 ,L2& ?+ C8 < Im, , + BF ., ,L3F ? + C6 ,L3F ?
+ C6 ,L3F >z+ C6 ,L3F ?+ C6 :[0f + CA ,L H.!: :[: .,1d (+ C, :[1D + D
@d :X ?ZD :[ & 2& :X+ CI :[ .!2F >x+ CL :[ .!3F >x: :X*d CE .)1D + CV0$ + CP & 3f :X+ CV0$ 2+ CR :X0& + CV :X0& + CV < Ip, , + BF"& / :e. :h :h F : D ; ? .! F:U*d CY7D :X+ Cv $ . ;/ :h D :[ < Is, < Iv,
< Ix, < I{,
?ZD : : :u3F ?*d Cb ?ZD :Y :Y :U2F >x*d Ce"& . : : :Y
:u J :U: :Y.$ 8& Ci :Y0d + Cv :Y :U2F >x+ Cv1D + Ct :Y/& :Y :V H:U.$ 8& Cr ? D :X+ Cn < I~, < J,
..2D ?3D >{+ C|2D ?3D >+ C|2D ?+ C < J, < J,
+ D" s $ D :[ :[3D ;+ D )n2H ..+ D < J, < J ,
+ D: :[8& D ; .. F)n: ;; :+ CY ., ,L3F ?+ D ,L3F ?+ D!: .,1f (+ D
+ BF ?, ? F;*d D $ D :[: .,0d (+ D ., ,L3F ?+ D :[0f + D ,L H;: :[+ D"& / :e. :h :h F :Z D ;( < J
: ;; :Z+ D + D
: ., $ 3D :+ D
.)1$ + D-"& / :e. :h :h D ; :h ; %z3H%z+ D, < J, , $ D :+ D
: ;8& D'@d :n .,*,L2H >w+ D: ,M2H ?+ D: ,M2H ?+ D: ,N2H ?+ D: ,N2H ? + D: ,O2H ?+ D: & .F .,+& F :n3D :+ :h %z.$ 6b 0b + D?+D=4 D?4 E < J,
+ D
:[0d + DV :[ ., ,L F;: :[: .,1d (+ DC+ Ds :[1D + DS+ Dc7D :+ D] < J, , + D
$ D :+ DS7D :c+ Da < J , , + D
$ D :c+ DS: ., $ 3D :n+ Dg < J!, , + D
7D :+ Dj < J$, , + D
< J', ?_D :qZD :[ :[ < J*,
: :[; :q+ Dl, < J,, < J/,
$ D :+ D? :n1D + D} < J1, ?_D :mZD :[ :[ < J4,
: :[; :m+ Dw, < J6, < J9,
+ F1D + E < J;, , + D
< J>, ?_D :lZD :[ :[ < JA,
: :[; :l+ E, < JC, < JF,
:3$ ;+ F* ." D ;+ F[ ., ,L2F ?+ E .d ., ., ,L3F ?+ EH ,L3F ?+ E ,L3F ?+ E ,L3F ?+ E" :[0d + E ., ,L F;: :[: .,1d (+ E < JH, , + D
< JK, , + D
: ., ,L3F ? + E:7F :n+ E3 & 3F :+ E) < JN, , + D
< JQ, ?_D :iZD :[ :[ < JT,
: :[; :i+ E+, Z :3d ;+ FY,
: :[; :g+ E6, + FD < J[, ?D :fZD :[ :[ < J^,
: :[; :f+ E?, $ D :.d .,+ E
< Jc, , + D
?ZD ; ;. ., ,L3F ?+ E*d EI+ E ? ? F;*d EM $ D :[ ., ,L3F ?+ Et ,L3F ? + Eb ,L3F ?+ Et ,L3F ?+ Et ,L2f >|+ EY ,L2& >+ E\ < Jf, < Ji,
+ D
:[0d + E` :[ ., ,L F;: :[: .,1d (+ EP+ Et :[1D + E]: ., $ 3D :n+ Eg < Jj, , + D
7D :+ Ej < Jm, , + D
< Jp, ?_D ;
ZD :[ :[ < Jt,
: :[; ;
+ Em, < Ju, < Jy,
$ D :+ EM :n1D + E~ < Jz, ?_D ;ZD :[ :[ < J~,
: :[; ;+ Ex, < J, < K,
+ F1D + F < K, , + D
< K, ?_D ;ZD :[ :[ < K ,
: :[; ;+ F, < K
, < K,
:3d ;+ F ." D ;"& / :e. :h :h F ; D ; & 3F :n+ F!H.2 H :[. :[ F ;#5( F & / :[ F ;# ;#1f + F < K, < K,
+ F4 $ z$ ;#. ; : F.26$ :[+ F ;h ;#"H.24$ F4 ;h ;# H.2+ F4 ;6$.2+ F% < K, < K,
+ F4 ;D.2 D ;#.$ 1d + F+ < K, < K ,
+ F47D ;#+ F1" ;#.& $ ( z$ . ;
,8 J 0,.$ 8& F- ; : F0, ; F2&!&{ F.2: ;; ;+ F+ D
:x0D + F9 < K , < K!, $ . s&$ D :t" :t $ F ; D ;/$ $$ .$ D :~.$ D :r3d s+ FC s F :r :~/& / :r :~ F :t D :[/ :~$$ :[ )n F-c ?
:[/ :~$& .& :[( .( w H-c*d FI :[/ :~$$ :[ %z F-h: :[; :t+ FF < K%, < K', : ;; ;+ F> < K), < K+, $ ,& s D :`1d >+ F[ & > F :`@d ; D s D :_@d ; .'2D ?+ F` < K0, , @d :Z@d ., :` D :. :Z1d >+ Fe $ >/ :Z D : s$ .,.$ D :h"$ . s. :h D :e < K3, " :e/& . :h :h F :p D ; ; < K6, : ;; :p+ Fm, : s: .,3$ :+ Fe" s:$ ;F :m+D ;F.2"F :4F G 5f G"h :" .,$$ .F :k D :[/$ $ s. ; 7 F ./$ ;.0,2h + F+2&2( + G$ :[/$ $ s. ;+ .$:H7+ G:$ 2$ :+ G:& / :+$ 6D :Y+ :Y$$ z. ;+,82D ./+ G? ., .$ H-c.$ 8& G$" s $ F ;
D ;" ., $ "( . $ s. ; 7 H-c.$ 8& G) s$ :_. ; D :] < K8, < K;, : ;; ;
+ G(+ GC" s $ F ; D ; s$ :_. ; D :] < K>, < KA,
" ., $ . :Z"* .
$
s.
;
(7 J -c.$ 8& G: < KD, < KG,
: ;; ; + G5 .,.d :Z!& 3F ; + G[1$ >+ Fa: :_+ F`: s: ;0d + GT < KJ, < KM,
"& / :e. :h :h .$ H7.$ 8& GM .'2D ?+ Fq < KN, , "$ .D s@d ;+ Fe ;& s0d + GI < KQ, , < KT, + H!$ D ; 6d .,+ Fs $ D :k ? D :f < H, L_ < KW, < KZ,
?_D ;ZD ; < K_,
: ;; ;+ Gb, $ >. s&$ > D :_ $ D :]" s $ F ; D ;" :_ $ "( . $ s. ; H :Z < Ka, < Kd,
< Kg, < Kj,
: :].$ 8& Gk: ;; ;+ Gj < Km, < Ko, s$ :_.$ D :] < Ks, < Ku,
: :] < Kx, < K{,
+ Gx < K~, < L , < L, < L, < L,
>v,~ x :o` : :d v vh ,M >} .)` : :d v vX .' .0 :d .& .&X 0 ;$ 0 t X 0 ;) X 0 GX <A @ ( ,M X 0 ;* QP : <A .' $,L X 0 ;{ P <A .0 $; X 0 < X 0 < P <A :o $; P < :o $ .& X 0 < X 0 < P <A :o $; P < :o $ .& X 0 < H : h .' ^ ?P .0 .&X 0 < X 0 GX < $ s X 0 < X 0 <$ X 2 GX <A (7 X 0 GX <A (7 X 0 <) X 0 <+ X 0 </ P <A : (7 X 0 <4 X 0 <9 P 2 ~ ?P : ^ ?X 0 <> P , <A : @ , 7 h 2 P <A .2 @ ." P <B .2 $ : x ?X 0 <C X 0 <I $ .( P <O ./ $ ; P <A ./ (.! P <A )n @ ." P <P x $ ; 0 t X 0 <T X 0 <Y X 2 C <A @ ( ,M X 0 <Z eX 0 =? /X 0 =o X 0 =r P <A : $,L X 0 =w X 0 ={ P 2 ~ ? P : ^ ? h 2 P <A : $.! P > : $ ; X 0 > X 0 > X 0 > X 0 > >m 0 t @ :o $ s $ s a.3@1 ,> 'O@ LI+ LgR~@1 ,> '@@ LI,> ,> @ 6 w+ L " LI0B + L!"A`X#p 5@ L/#p !" X#p + L \p + L a.9'1 ,> ',> ,> O@ LI+ L ,>
6 + _ 4` L$"` Q@ ,> < LJ, ,^ ,> < LM,
,^ *b L!+ L/,> < LO, ,^ 7@ LI+ L*,> < LR,
,^ + L,,> < LS,
,^ Z 5" L/,> < LU,
,^ , 7@ LI,
,> < LV, ,^ , ,> < LY, ,^ ,> < L\, ,^ (@qd 1@ ,,
1@ #+ L=0@ *+ L/,> < L^, ,^ + L/,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X LE p X LF p LH p LH p X L? X ~ LE p x I$P 1 ,> ' #p D F b &" .$ &$ 7@ "$ (@ . &" * Lp)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec- @ VARIAVAR OBSEROBS DEVICDEV MATCHSELECSUBSEFORMAFMT CONSTCON BANK INFO INFORIDENTID MAJORMTM W/O BELL REF REFER REPLAMODIFCHANGFORGEDELETDEL BACKUCREATMAKE ADD MA OUTPUMERGEPRINTLIST Q STDESTYPE SORT SET =: FOR: ] [ BNKPG.DAT (80A1) ('+',99A1)('0 ? ',$)('+* ',$) (' NO SPACE BETWEEN INSTRUCTION AND QUALIFIER') (' YOU ARE NOT AUTHORIZED TO MODIFY THIS BANK'/) (' INSTRUCTION "',A5,'" DOES NOT EXIST')(' SWITCHES MUST BE FOLLOWED BY A :') (' THE SWITCH "',A5,'" DOES NOT EXIST') ('+SWITCH ',A5,' CANNOT BE USED WITH INSTRUCTION ',A5,' - SWITCH IGNORED'/)(' OBSERVATIONS MAY BE SPECIFIED BY NUMBER ONLY') (' IN SPECIFYING A RANGE OF OBSERVATIONS NO UPPER BOUND') (' WHERE AN OBSERVATION NUMBER SHOULD HAVE APPEARED NONE ','DID')(I6) (' NO MORE THAN 30 SELECTIONS FOR OBSERVATIONS') (' A SECOND RANGE ATTEMPTED BEFOR FINISHING THE FIRST')(' OBS. ',I6,' IS TOO LARGE, ONLY ',I6,' OBS. IN BANK')(' OBS. ',I6,' IS ILLEGAL, IT MUST BE A POSITIVE INTEGER') (' TO CREATE NEW OBSERVATIONS THEY MUST BE GREATER',' THAN ',I5) (' IN SPECIFYING A RANGE OF VARIABLES NO UPPER BOUND') (' WHERE A VARIABLE SHOULD HAVE APPEARED NONE DID') (I5) (' VARIABLE "',A5,'" DOES NOT EXIST') (' VARIABLE NUMBER ',I5,' DOES NOT EXIST') (' NO MORE THAN 20 SELECTIONS FOR VARIABLES')(' A SECOND RANGE ATTEMPTED BEFOR FINISHING THE FIRST')(' 2 DEVICES CANNOT BE USED IN THE SAME INSTRUCTION') (' ILLEGAL DEVICE') (' MAXIMUM OF 20 MATCH VARIABLES PER INSTURCTION')(' VARIABLES IN THE SELECT MUST BE SPECIFIED BY NAME',' OR NUMBER') (' IN A SELECT NO CONDITION OCCURED') (' A NON-NUMERIC CHARACTER APPEARED IN THE VARIABLE',' NUMBER OF A SELECT')(I5) (' VARIABLE NUMBER IN SELECT NOT POSSIBLE FOR THIS BANK') (' VARIABLE NUMBER IN SELECT MUST BE POSITIVE INTEGER')(' VARIABLE "',A5,'" DOES NOT EXIST IN THIS BANK')(' IN A SELECT, < WAS USED TWICE') (' IN A SELECT, > WAS USED TWICE') (' IN A SELECT, = WAS USED TWICE') (' NOTHING TO BE COMPARED AGAINST IN A SELECT') (' IN A SELECT, THE ALPHA VALUE WAS NOT ENCOLSED IN ','QUOTES') (' USE A COMMA TO SEPARATE "OR" VALUES AND A SEMICOLON'/' TO SEPARATE "OR" SELECTS') (' NON-NUMERIC CHARACTER IN VALUE TO BE COMPARED')(F15.0) (I15)(' MISSING MAY ONLY BE USED TO SELECT WHEN THE CONDITION'/' IS EQUAL OR NOT EQUAL') (' NO MORE THAN 20 VALUES IN A COMPARISON TO MULTIPLE',' VALUES')(' COMPARRISON TO MULTIPLE VALUES MUST BE WITH AN =',' CONDITION') (' ONLY 1 FORMAT PER INSTRUCTION') (' FORMAT MUST BE ENCLOSED IN PARENTHESIS') (' NO MORE THAN 240 CHARACTERS IN THE FORMAT') (' UNTERMINATED HOLERITH STRING') (' ONLY ONE BANK SWITCH PER INSTRUCTION') (' 6 CHARACTERS MAXIMUM FOR A NAME OF BANK') (' WHERE A BANK SHOULD HAVE BEEN SPECIFIED NONE WAS') (' IF SPECIFIED, EXTENSION MUST BE .BNK') (' MAXIMUM OF 3 CHARACTERS FOR THE EXTENSION') (' THERE MUST BE A , SEPARATING PROJECT AND PROGRAMMER NO.')(' CHARACTER "',A1,'" IS ILLEGAL FOR PROJ PROG. NUMBER') (' INCOMPLETE PROJECT PROGRAMMER NUMBER') (' PROJECT NUMBER LARGER THAN POSSIBLE')(' ILLEGAL PROJECT NUMBER') (O6) (' PROGRAMMER NUMBER LARGER THAN POSSIBLE') (' ILLEGAL PROGRAMMER NUMBER')(' BANK SPECIFIED NOT AVAILABLE') (' ONLY 1 CONSTANT SWITCH PER INSTRUCTION') (' ALPHA CONSTANTS MUST BE ENCLOSED IN QUOTES') (' CONSTANT SPECIFIED HAS TWO DECIMLE POINTS') (' CONSTANT SWITCH MUST BE FOLLOWED BY A CONSTANT') (F15.0) (I15)(' RANGES ARE ILLEGAL IN A MAJOR TO MINOR SWITCH')(' ILLEGAL NAME OR MISSING COMMA IN AN MTM SWITCH') (' MAXIMUM OF 20 MAJOR-TO-MINOR VARIABLSE PER INSTRUCTION') (1X,'"',A1,'" IS AN ILLEGAL CHARACTER FOR NUMBER OF BELLS') (' MAXIMUM OF 2 DIGIT NUMBER FOR BELLS')(I2) (' MAXIMUM OF 2 REFERENCES PER INSTRUCTION') (' SWITCH "',A5,'" IS UNAVAILABLE FOR USE AT THIS TIME') (' PROGRAM NOT AVAILABLE FOR BANK')(' NO PROGRAM EXISTS') (I5) (' A TRANSFORMATION MUST HAVE A FORTRAN FORM') (' "',A5,'" IS A RESERVED NAME - CANNOT BE CREATED') (' UNBALANCED PARENTHESIS') (' PARENTHESIS DO NOT ENCLOSE ANYTHING')(' POWER IS NOT A CONSTANT OR VARIABLE')(' ONE OF THE VARIABLES USED DOES NOT EXIST')(' #MUST BE FOLLOWED BY A VARIABLE NUMBER') (' ONE OF THE VARIBALE NUMBERS USED DOES NOT EXIST') (' TWO INSTRUCTIONS NOT SEPARATED BY A VARIABLE') (' ATTEMPT TO DIVIDE BY THE CONSTANT ZERO') (' INSTRUCTION TOO LONG')(' SYS PROB ',I2,'-CONTACT DICK HOUCHARD') (' TWO EXPRESSIONS NOT SEPARATED BY AN OPERATION')(' "," IS NOT A LEGAL OPERATION') (' "=" MAY NOT BE USED TWICE IN AN INSTRUCTION') (' ILLEGAL OR MISSPELLED FUNCTION')(' ATTEMPT TO TAKE MEAN OR STD. DEV. OF A CONSTANT') (' ILLEGAL CHARACTER IN VARIABLE') (' WITHIN THE PARENTHESIS INDICATE WHICH COMMAND')('0COMMANDS AVAILABLE:'/'0 REPLACE'/' MODIFY - CHANGE VALUES FOR PARTICULAR DATA POINTS'/' CHANGE'/'0 FORGET'/' DELETE - DELETE OBSERVATIONS OR VARIABLES FROM BANK'/' DEL'/'0 BACKUP - CREATE A BACKUP OF THE BANK (SAME NAME .BAK)'/'0 CREATE'/' MAKE - ADD OBSERVATIONS TO BANK'/' ADD'/' MA'/'0 OUTPUT - MAKE ASCII FILE OF DATA IN BANK'/'0 MERGE - MERGE TWO BANKS TOGETHER'/'0 PRINT'/' LIST - AUTOMATICALLY PRINT DATA OR INFO. ON LPT'/' Q'/'0 STDES - SINGLE VARIABLE STATISTICS (AUTO. OUTPUT ON LPT)'/'0 TYPE - TYPE DATA OR INFO ON TERMINAL'/'0 SORT - SORT BANK INTO ASCENDING ORDER')('0 SET - ALLOWS USER TO MODIFY ASSUMPTIONS ABOUT SWITCHES'/'0 = - TRANSFORMATION INCLUDES CREATING NEW VARIABLES'/' (FORTRAN ARITHMETIC STATEMENTS)'/'0THE QUESTION MARK INDICATES THAT AN INSTRUCTION IS'/' EXPECTED. AN INSTRUCTION MAY BE JUST A COMMAND, OR'/' A COMMAND AND SWITCHES. THE COMMAND MUST BE THE FIRST'/' ENTRY OF THE INSTRUCTION. AN INSTRUCTION MAY BE MORE'/' THAN 1 LINE LONG, AND MAY CONTAIN MANY SWITCHES, HOWEVER,'/' ONLY ONE COMMAND MAY BE GIVEN FOR EACH INSTRUCTION.'/' TO END AN INSTRUCTION AND BEGIN EXECUTION OF THE'/' INSTRUCTION, TYPE AN ALTMODE (ESC).'/'0A NEW BANK MAY BE SPECIFIED BY TYPING A CONTROL Z (^Z).'/' TO EXIT FROM THE PROGRAM TYPE A CONTROL Z (^Z) WHEN ASKED'/' TO SPECIFY THE NEW BANK. THE CORRECT EXITING PROCEDURE'/' MUST BE USED TO ENSURE PRINTING OF RESULTS OBTAINED FROM'/' THE STDES COMMAND.') ('1AVAILABLE SWITCHES:'/'0 VARIABLE - SPECIFY VARIABLES'/' VAR'/'0 OBSERVATION - SPECIFY OBSERVATIONS'/' OBS'/'0 DEVICE - SPECIFY DEVICE'/' DEV'/'0 MATCH - MATCH VALUES FOR MERGING'/'0 SELECT - SUBSET DATA BY SELECTING ONLY THOSE'/' SUBSET OBSERVATIONS WHICH MEET CERTAIN CRITERIA'/'0 FORMAT - SPECIFY USER OUTPUT FORMAT'/' FMT'/'0 CONSTANT - SPECIFY CONSTANT'/' CON'/'0 BANK - INDICATE NAME OF ANOTHER BANK'/'0 INFORMATION - INDICATE PERTINANT DATA ABOUT BANK'/' INFO'/'0 IDENTIFICATION - INDICATE VARIABLE NAMES AND DESCRIPTIONS'/' ID') ('0 MAJOR-TO-MINOR - INDICATE MAJOR TO MINOR SEQUENCE'/' MTM')('0ALL SWITCHES MUST BE FOLLOWED BY A :, IF MORE INFORMATION'/' IS NECESSARY, THE INFORMATION MUST FOLLOW THE : WITH NO'/' SPACES INBETWEEN.'/'0TO RECEIVE MORE HELP ON A PARTICULAR COMMAND OR SWITCH'/' TYPE HELP FOLLOWED BY THE NAME OF THE COMMAND OR SWITCH'/' IN PARENTHESIS. FOR A TABLE OF PERMISSABLE COMMAND -'/' SWITCH COMBINATIONS TYPE HELP(TABLE). FOR ALL THE'/' ADVANCED HELPS TYPE HELP(ALL).') ('1----------'/'0SWITCH COMMAND COMBINATIONS'/'0 C D B C O'/' H E A R U M P S'/' A L C E T E R T T S'/' N E K A P R I D Y O S'/' G T U T U G N E P R E'/' E E P E T E T S E T T ='/'0VARIABLE X X X X X X X'/'0OBSERVATION X X X X X X X X X'/'0DEVICE X X'/'0MATCH X'/'0SELECT X X X X X X X X'/'0FORMAT X X'/'0CONSTANT X'/'0BANK X'/'0INFORMATION X X'/'0IDENTIFICATION X'/'0MAJOR-TO-MINOR X')('1----------'/'0COMMAND: REPLACE, MODIFY, CHANGE'/'0PURPOSE: ALTER DATA LOCATED IN BANK'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT, CONSTANT,'/' IDENTIFICATION'/'0DESCRIPTION: ONLY PROJECT-PROGRAMMER NUMBER RESPONSIBLE FOR'/' BANK MAY ALTER ITS CONTENT. NORMAL MEANS OF'/' OBTAINING THE VALUES TO REPLACE THOSE IN THE'/' BANK WILL BE FROM THE TERMINAL. IF ALL DATA'/' TO BE REPLACED IS TO BE CHANGED TO THE SAME'/' VALUE A CONSTANT SWITCH MAY BE USED. WHEN'/' CHANGING VALUES, VARIABLES MUST MAINTAIN THEIR'/' TYPE.')('0----------'/'0COMMAND: FORGET, DELETE, DEL'/'0PURPOSE: DELETE VARIABLES OR OBSERVATIONS FROM BANK.'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT'/'0DESCRIPTION: ONLY PROJECT-PROGRAMMER NUMBER RESPONSIBLE FOR'/' BANK MAY ALTER ITS CONTENT. THE VARIABLE'/' SWITCH MUST BE USED BY ITSELF, IT CANNOT BE'/' USED WITH THE SELECT OR OBSERVATION SWITCHES.'/' IF NO SWITCHES ARE SPECIFIED THE ENTIRE BANK'/' IS DELETED.') ('0----------'/'0COMMAND: BACKUP'/'0PURPOSE: CREATE A BACKUP FILE'/'0SWITCHES POSSIBLE: (NONE)'/'0DESCRIPTION: THE COMMAND WILL CAUSE A BACKUP FILE TO BE'/' CREATED. THE FILE WILL HAVE THE SAME NAME'/' WITH A .BAK EXTENSION. IF THE BACKUP COMMAND'/' IS CALLED MORE THAN ONCE, EACH SUCCESSIVE'/' CALL CAUSES THE NEW BACKUP FILE TO REPLACE'/' THE FORMER ONE. BACKUP FILES ARE PROTECTED'/' WITH 077 PROTECTIONS.') ('1----------'/'0COMMAND: CREATE, MAKE, ADD, MA'/'0PURPOSE: ADD NEW OBSERVATIONS TO THE BANK'/'0SWITCHES POSSIBLE: OBSERVATION'/'0DESCRIPTION: THE CREATE COMMAND MUST CONTAIN AT LEAST ONE'/' OBSERVATION SWITCH INDICATING THE NEW'/' OBSERVATIONS TO BE ADDED. THE OBSERVATIONS TO'/' BE ADDED MUST BEGIN WITH THE FIRST FREE'/' OBSERVATION IN THE BANK (THE OBSERVATION NUMBER'/' FOLLOWING THE LAST OBSERVATION IN THE BANK),'/' AND PROCEED THRU THE LAST OBSERVATION TO BE ADDED'/' WITHOUT LEAVING AN OBSERVATION NUMBER OUT. THE'/' USER WILL BE EXPECTED TO SUPPLY THE VALUES FOR'/' NEW OBSERVATIONS ONE AT A TIME, IN RESPONSE TO'/' QUERY. VALUES ENTERED MUST BE OF THE SAME TYPE'/' AS THE VARIABLE FOR WHICH THEY ARE INTENDED.') ('0----------'/'0COMMAND: OUTPUT'/'0PURPOSE: OUTPUT IN ASCII, DATA IN BANK'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, DEVICE, SELECT,'/' FORMAT'/'0DESCRIPTION: THE OUTPUT COMMAND OUTPUTS DATA IN ASCII,'/' UNDER A USER SPECIFIED FORMAT TO A USER'/' SPECIFIED DEVICE. IF LPT IS SPECIFIED AS'/' THE OUTPUT DEVICE, THE OUTPUT WILL BE SPOOLED'/' AND AUTOMATICALLY PRINTED WHEN THE COMMAND IS'/' FINISHED.') ('1----------'/'0COMMAND: MERGE'/'0PURPOSE: MERGE TWO BANKS'/'0SWITCHES POSSIBLE: MATCH, BANK'/'0DESCRIPTION: THE MERGE COMMAND MERGES DATA IN AN UPDATE BANK'/' (INDICATED IN THE BANK SWITCH) INTO THE RESIDENT'/' BANK (SPECIFIED AT BEGINNING OF RUN). UPON'/' COMPLETION OF THE MERGE, THE RESIDENT BANK WILL'/' CONTAIN ANY VARIABLES PREVIOUSLY CONTAINED IN'/' EITHER BANK. THE UPDATING BANK WILL REMAIN'/' UNCHANGED. A MERGE MUST BE ACCOMPANIED BY ONE'/' AND ONLY ONE BANK SWITCH. ONE OR MORE MATCH'/' SWITCHES MAY BE SPECIFIED. IF NO MATCH SWITCHES'/' ARE USED, THE DATA IN THE UPDATING BANK WILL BE'/' ADDED TO THE RESIDENT BANK AS NEW OBSERVATIONS.'/' WHERE MATCH SWITCHES ARE USED, AN OBSERVATION'/' IN THE RESIDENT BANK IS UPDATED BY AN'/' OBSERVATION IN THE UPDATING BANK, IF THE'/' VARIABLES INDICATED IN THE MATCH SWITCH HAVE') (' THE SAME VALUES FOR BOTH OBSERVATIONS. IF AN'/' OBSERVATION IN THE UPDATING BANK CANNOT BE'/' MATCHED, IT WILL BE ADDED TO THE RESIDENT BANK'/' AS AN ENTIRE OBSERVATION.'/'0 MISSING DATA WILL NOT BE MATCHED WITH MISSING'/' DATA, AND INFORMATION PRESENT WILL NOT BE'/' UPDATED WITH MISSING DATA. WHEN CERTAIN'/' VARIABLES ARE NOT AVAILABLE IN AND OBSERVATION,'/' MISSING DATA WILL BE USED.') ('0----------'/'0COMMAND: PRINT, LIST, Q'/'0PURPOSE: PRINT A COPY OF DATA OR INFORMATION ABOUT THE BANK'/' ON THE LINE PRINTER.'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT,'/' INFORMATION'/'0DESCRIPTION: THE COMMAND WILL CAUSE OUTPUT TO BE AUTOMATICALLY'/' PRINTED ON THE LINE PRINTER. IF THE PRINT'/' COMMAND IS USED WITHOUT SWITCHES, BOTH THE'/' INFORMATION AND THE COMPLETE DATA SET WILL BE'/' PRINTED. OUTPUT WILL BE LABELED BY OBSERVATION'/' AND VARIABLE.')('1----------'/'0COMMAND: STDES'/'0PURPOSE: SUPPLY USER WITH SINGLE VARIABLE STATISTICS'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT'/'0DESCRIPTION: THE STDES COMMAND PROVIDES THE USER WITH THE'/' FOLLOWING INFORMATION: DATE THE STATISTICS'/' WERE RUN, THE BANK THEY WERE TAKEN FROM, THE'/' DATE THE BANK WAS CREATED, THE PROJECT-PROGRAMMER'/' NUMBER WHICH CREATED THE BANK, THE VARIABLE'/' NAME, THE POSITION NUMBER OF THE VARIABLE IN'/' THE BANK, ITS DESCRIPTION, AND ITS TYPE. IF'/' ANY SELECT SWITCHES ARE USED, THEY WILL ALSO BE'/' SPECIFIED. THE NUMBER OF OBSERVATIONS AND'/' MISSING DATA WILL BE SHOWN.'/'0 FOR FLOATING AND FIXED TYPE VARIABLES THE'/' FOLLOWING STATISTICS ARE PROVIDED: MEAN, MEDIAN,'/' MODE, MAXIMUM, MINIMUM, RANGE, STANDARD ERROR'/' OF MEAN, STANDARD DEVIATION, VARIANCE, COEFF.'/' OF SKEWNESS, COEFFICIENT OF VARIATION, AND'/' KURTOSIS. THERE WILL ALSO BE A DISTRIBUTION') (' CHART.'/'0 FOR ALPHA TYPE VARIABLES THERE WILL BE A'/' MAXIMUM, MINIMUM, AND A DISTRIBUTION CHART.'/'0 THE DISTRIBUTION CHART CONTAINS FREQUENCY OF'/' OCCURANCE, PERCENTAGE, AND CUMULATIVE PERCENTAGE'/' FOR EACH ENTRY. IF THERE ARE 35 OR LESS'/' INDIVIDUAL VALUES, EACH ENTRY IN THE CHART WILL'/' BE AN INDIVIDUAL VALUE. IF MORE THAN 35'/' INDIVIDUAL VALUES EXIST, THE CHART WILL BE'/' BROKEN INTO 35 RANGES EACH HAVING THE SAME'/' SIZE INTERVAL. A BAR GRAPH OF PERCENTAGE IS'/' SUPPLIED.'/'0 OUTPUT WILL BE AUTOMATICALLY PRINTED ON THE'/' LINE PRINTER, WHEN THERE IS A NORMAL EXIT.') ('0----------'/'0COMMAND: TYPE'/'0PURPOSE: TYPE A COPY OF DATA OR INFORMATION ABOUT THE BANK'/' ON THE TERMINAL'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, SELECT,'/' INFORMATION'/'0DESCRIPTION: THE TYPE COMMAND WILL TYPE DATA OR INFORMATION'/' ON THE TERMINAL. IF THE TYPE COMMAND IS USED'/' WITHOUT SWITCHES, BOTH THE INFORMATION AND'/' COMPLETE DATA SET WILL BE TYPED. OUTPUT WILL'/' BE LABELED BY OBSERVATION AND VARIABLE.') ('1----------'/'0COMMAND: SORT'/'0PURPOSE: SORT BANK'/'0SWITCHES POSSIBLE: MAJOR-TO-MINOR'/'0DESCRIPTION: THE SORT COMMAND IS USED TO SORT THE BANK INTO'/' ASCENDING ORDER BASED ON SELECTED VARIABLES.'/' THE SORT IS PERFORMED ON VARIABLES SPECIFIED BY'/' THE USER IN THE MAJOR-TO-MINOR SWITCH. UPON'/' COMPLETION OF THE SORT EACH OBSERVATION REMAINS'/' UNCHANGED (ONLY THE ORDER IN WHICH THE'/' OBSERVATIONS OCCUR WILL BE ALTERED). A'/' MAJOR-TO-MINOR SWITCH MUST BE SPECIFIED FOR'/' EACH SORT, HOWEVER ONLY ONE MAY BE SPECIFIED'/' PER SORT.') ('0----------'/'0COMMAND: SET'/'0PURPOSE: ALTER THE ASSUMPTIONS MADE WHEN SWITCHES ARE NOT'/' SPECIFIED.'/'0SWITCHES POSSIBLE: VARIABLE, OBSERVATION, DEVICE, SELECT,'/' FORMAT'/'0DESCRIPTION: MOST COMMANDS REQUIRE THE USE OF SWITCHES'/' (SWITCH-COMMAND TABLE). IF A NECESSARY SWITCH'/' IS NOT SPECIFIED BY THE USER, A PREDEFINED'/' ASSUMPTION (SEE INDIVIDUAL SWITCHES) WILL BE'/' USED. THE SET COMMAND ALLOWS THE USER TO ALTER'/' THESE ASSUMPTIONS. IT IS ONLY NECESSARY FOR'/' THE USER TO SPECIFY THE SWITCHES FOR WHICH THE'/' ASSUMPTIONS ARE TO BE CHANGED. THE SET COMMAND'/' WILL REPLACE THE ASSUMPTIONS WITH THOSE'/' INDICATED IN THE SWITCHES. IF A SWITCH IS NOT'/' SPECIFIED IN A SET COMMAND, IT WILL BE RETURNED'/' TO THE ORIGINAL ASSUMPTION. MORE THAN ONE SET'/' COMMAND MAY BE ISSUED DURING A RUN.') ('1----------'/'0COMMAND: ='/'0PURPOSE: ALLOW USER TO TRANSFORM EXISTING VARIABLES AND'/' CREATE NEW ONES.'/'0SWITCHES POSSIBLE: OBSERVATION, SELECT'/'0DESCRIPTION: THE = COMMAND FOLLOWS A FORM SIMILIAR TO'/' FORTRAN: THE VARIABLE TO BE TRANSFORMED OR'/' CREATED IS SITUATED IN THE FIRST POSITION, AN'/' =, AND THE ARITHEMATIC STATEMENT TO THE RIGHT'/' OF THE EQUALITY SIGN (IT WILL BE EVALUATED AND'/' PLACED IN THE VARIABLE INDICATED). NO SPACES'/' ARE ALLOWED IN THE COMMAND. THE HIERARCHY'/' (ORDER IN WHICH CALCULATIONS ARE PERFORMED) IS'/' THE SAME AS FOR FORTRAN (** EXPONENTIATION,'/' * MULTIPLICATION AND / DIVISION,'/' + ADDITION AND - SUBTRACTION). FUNCTIONS ARE'/' AVAILABLE, AND WILL BE EVALUATED FIRST.'/'0 VARIABLE NAMES ARE USED TO INDICATE VARIABLES.'/' ALL CALCULATIONS ARE PERFORMED IN FLOATING POINT.'/'0 FUNCTIONS AVAILABLE:') ('0 SQRT - SQUARE ROOT SIN - SINE'/' LN - NATURAL LOG COS - COSINE'/' EXP - EXPONETIAL ARCTN - ARCTANGENT'/' LOG10 - LOG BASE 10 ARCSN - ARC SINE'/' ABS - ABSOLUTE VALUE'/' FIX - TRANSLATE FROM OTHER TYPE TO FIXED'/' FLOAT - TRANSLATE FROM OTHER TYPE TO FLOATING'/' ALPHA - TRANSLATE FROM OTHER TYPE TO ALPHA'/' RAN - RANDOM NUMBER GENERATOR'/' NORM - NORMAL RANDOM NUMBER GENERATOR') ('1----------'/'0SWITCH: VARIABLE, VAR'/'0PURPOSE: INDICATE VARIABLES TO BE USED IN AN INSTRUCTION'/'0COMMANDS POSSIBLE: CHANGE, DELETE, OUTPUT, PRINT, STDES'/' TYPE, SET'/'0DESCRIPTION: IF NO VARIABLE SWITCH IS GIVEN THE ENTIRE RANGE'/' OF VARIABLES IS ASSUMED (VARIABLE 1 THRU LAST'/' VARIABLE IN THE BANK). THE VARIABLES TO BE'/' ACTED UPON ARE LISTED BY VARIABLE NAME OR'/' NUMBER (INDICATING ITS POSITION IN THE BANK).'/' IF SEVERAL VARIABLES ARE SPECIFIED IN A SINGLE'/' VARIABLE SWITCH, THEY SHOULD BE SEPARATED BY'/' COMMAS. RANGES OF VARIABLES MAY BE SPECIFIED'/' BY LISTING THE FIRST VARIABLE OF THE RANGE, A'/' -, AND THE LAST VARIABLE OF THE RANGE. MORE'/' THAN 1 VARIABLE SWITCH MAY BE USED IN AN'/' INSTRUCTION') ('0----------'/'0SWITCH: OBSERVATION, OBS'/'0PURPOSE: DEFINE OBSERVATIONS TO BE USED IN AN INSTRUCTION'/'0COMMANDS POSSIBLE: CHANGE, DELETE, CREATE, OUTPUT, PRINT,'/' TYPE, STDES, SET, ='/'0DESCRIPTION: IF NO OBSERVATION SWITCH IS GIVEN THE ENTIRE'/' RANGE OF OBSERVATIONS IS ASSUMED (OBSERVATION 1'/' THRU LAST OBSERVATION IN THE BANK). THE'/' OBSERVATIONS TO BE ACTED UPON SHOULD BE LISTED'/' BY OBSERVATION NUMBERS, AND SEPARATED BY COMMAS.'/' RANGES OF OBSERVATIONS MAY BE SPECIFIED BY'/' LISTING THE FIRST OBSERVATION OF THE RANGE, A -,'/' AND THE LAST OBSERVATION IN THE RANGE. MORE'/' THAN 1 OBSERVATION SWITCH MAY BE USED IN AN'/' INSTRUCTION') ('0----------'/'0SWITCH: DEVICE, DEV'/'0PURPOSE: DEFINE OUTPUT DEVICE, AND FILE NAME (IF NECESSARY)'/'0COMMANDS POSSIBLE: OUTPUT, SET'/'0DESCRIPTION: IF NO DEFINE SWITCH IS USED, DSK:OUT.DAT IS'/' ASSUMED. THE DEVICE TO BE USED FOR OUTPUT (LPT,'/' DSK, DTA, ETC.) IS SPECIFIED AFTER THE SWITCH.'/' IF THE DEVICE IS A DIRECTORY DEVICE IT MAY BE'/' FOLLOWED BY A : AND THE NAME OF THE FILE.'/' IF NO NAME IS GIVEN FOR A DIRECTORY DEVICE,'/' OUT.DAT IS ASSUMED. ONLY 1 DEVICE SWITCH MAY BE'/' USED IN AN INSTRUCTION') ('1----------'/'0SWITCH: MATCH'/'0PURPOSE: INDICATE VARIABLES TO BE MATCHED FOR MERGING'/'0COMMANDS POSSIBLE: MERGE'/'0DESCRIPTION: IF NO MATCH SWITCH IS SPECIFIED, NONE IS'/' ASSUMED. THE MATCH SWITCH IS FOLLOWED BY ONE'/' OR MORE VARIABLE NAMES SEPARATED BY COMMAS.'/' UP TO 20 VARIABLES MAY BE SPECIFIED PER'/' INSTRUCTION. THE VARIABLE NAMES SPECIFIED MUST'/' APPEAR IN BOTH BANKS. MORE THAN 1 MATCH SWITCH'/' MAY BE USED IN AN INSTRUCTION.') ('0----------'/'0SWITCH: SELECT, SUBSET'/'0PURPOSE: CONSIDER ONLY THOSE OBSERVATIONS MEETING USER'/' SPECIFIED CRITERIA'/'0COMMANDS POSSIBLE: CHANGE, DELETE, OUTPUT, PRINT, STDES,'/' TYPE, SET, ='/'0DESCRIPTION: IF NO SELECT SWITCHES ARE USED, NONE ARE'/' ASSUMED. THE SELECT SWITCH CONTAINS THREE BASIC'/' PARTS: VARIABLE, CONDITION, AND VALUE TO BE'/' COMPARED AGAINST. THE VARIABLE MAY BE SPECIFIED'/' BY EITHER THE VARIABLE NAME, OR THE NUMBER'/' INDICATING ITS POSITION IN THE BANK. THE'/' CONDITION MAY BE ONE OF THE FOLLOWING:'/'0 CONDITION MEANING'/'0 = EQUAL TO'/' < LESS THAN'/' > GREATER THAN'/' <= OR =< LESS THAN OR EQUAL TO'/' >= OR => GREATER THAN OR EQUAL TO'/' <> OR >< NOT EQUAL') ('0 THE VALUE TO BE COMPARED AGAINST MUST BE OF THE'/' SAME TYPE AS THE VARIABLE IT IS COMPARED WITH.'/' IN USE, THE SELECT LIMITS THE OBSERVATIONS'/' CONSIDERED TO THOSE WHICH MEET ALL THE USERS'/' SPECIFICATIONS. NO SPACES ARE ALLOWED IN THE'/' SELECT. UP TO 20 SELECTS MAY BE SPECIFIED IN'/' AN INSTRUCTION') ('1----------'/'0SWITCH: FORMAT, FMT'/'0PURPOSE: SPECIFY AN OUTPUT FORMAT'/'0COMMANDS POSSIBLE: OUTPUT, SET'/'0DESCRIPTION: IF NO FORMAT SWITCH IS USED, A FORMAT WILL BE'/' GENERATED BY THE PROGRAM. THE FORMAT SWITCH IS'/' FOLLOWED BY THE FORMAT ENCLOSED IN PARENTHESIS.'/' THE FORMAT MAY BE UP TO 240 CHARACTERS LONG AND'/' MAY EXTEND BEYOND ONE LINE. FORMATS SPECIFIED'/' MUST AGREE IN TYPE WITH THE VARIABLES TO BE'/' OUTPUT. ONLY ONE FORMAT SWITCH MAY BE'/' SPECIFIED IN AN INSTRUCTION.') ('0----------'/'0SWITCH: CONSTANT, CON'/'0PURPOSE: INDICATE A CONSTANT VALUE'/'0COMMANDS POSSIBLE: CHANGE'/'0DESCRIPTION: IF A CONSTANT SWITCH IS NOT USED, IT IS ASSUMED'/' THE USER WILL TYPE IN THE NEW DATA. THE'/' CONSTANT SWITCH IS FOLLOWED BY THE CONSTANT TO'/' BE USED. THE TYPE MUST AGREE WITH THE VARIABLE'/' TYPE. TO INDICATE MISSING DATA MISSING MAY'/' BE USED. ONLY ONE CONSTANT SWITCH MAY BE USED'/' PER INSTRUCTION.')('0----------'/'0SWITCH: BANK'/'0PURPOSE: SPECIFY A BANK'/'0COMMANDS POSSIBLE: MERGE'/'0DESCRIPTION: BANK SWITCH MUST BE USED WHERE NECESSARY,'/' OTHERWISE AN ERROR WILL OCCUR. THE BANK SWITCH'/' IS FOLLOWED BY THE NAME OF A BANK, WITH OR'/' WITHOUT THE .BNK EXTENSION. ONLY ONE BANK'/' SWITCH MAY BE USED PER INSTRUCTION.') ('1----------'/'0SWITCH: INFORMATION, INFO'/'0PURPOSE: NOTIFY PROGRAM THAT VARIABLE NAMES, TYPES, AND'/' DESCRIPTIONS ARE TO REPLACE OUTPUT OF RAW DATA.'/'0COMMANDS POSSIBLE: PRINT, TYPE'/'0DESCRIPTION: IF NO INFORMATION SWITCH IS SPECIFIED, VARIABLE'/' NAMES, DESCRITIONS, AND VARIABLE TYPES WILL'/' NOT BE OUTPUT. IT IS NOT NECESSARY TO PROVIDE'/' ANY ADDITIONAL SPECIFICATIONS WITH THIS SWITCH.'/' WHEN AN INFORMATION SWITCH HAS BEEN GIVEN'/' OUTPUT OF ACTUAL DATA WILL BE SURPRESSED. ONLY'/' ONE INFORMATION SWITCH MAY BE GIVEN IN AN'/' INSTRUCTION.') ('0----------'/'0SWITCH: IDENTIFICATION, ID'/'0PURPOSE: ALLOW USER TO ALTER NAMES, AND DESCRIPTIONS'/'0COMMANDS POSSIBLE: CHANGE'/'0DESCRIPTION: IF NO IDENTIFICATION SWITCH IS SPECIFIED, NONE'/' IS ASSUMED. THE IDENTIFICATION SWITCH DOES NOT'/' REQUIRE ANY ADDITIONAL INFORMATION. WHEN THE'/' USER IS INSTRUCTED TO ENTER THE NEW'/' IDENTIFICATION, THE VARIABLE NAME MUST APPEAR'/' IN THE FIRST 5 COLUMNS FOLLOWED BY A ; AND THE'/' DESCRIPTION. ONLY ONE IDENTIFICATION SWITCH'/' MAY BE USED PER INSTRUCTION.') ('0----------'/'0SWITCH: MAJOR-TO-MINOR, MTM'/'0PURPOSE: INDICATE THE MAJOR TO MINOR SORT VARIABLES'/'0COMMANDS POSSIBLE: SORT'/'0DESCRIPTION: IF NO MAJOR-TO-MINOR SWITCH IS USED (WHERE'/' NECESSARY), AN ERROR WILL OCCUR. THE MAJOR-'/' TO-MINOR SWITCH IS FOLLOWED BY 1 TO 20'/' VARIABLES, SEPARATED BY COMMAS, AND INDICATED'/' BY VARIABLE NAMES OR NUMBERS. THIS LIST OF'/' VARIABLES INDICATES THE SORT SEQUENCE, THE FIRST'/' VARIABLE IN THE LIST BEING THE MOST MAJOR, THE'/' LAST IN THE LIST BEING THE MOST MINOR. ONLY 1'/' MAJOR-TO-MINOR SWITCH MAY BE USED IN AN '/' INSTRUCTION.') S B . TABLEDSK + E < ( STOP ~ 9 ( K N HELP(0 @ ALL - > * TRANS~` F ; Z ' I OBS ! O R A } SET HELP / X DTA 0 DTA9 , = ) P : h EMPTYX 7 M p LPT DSK SEQIN OOPS HELP HELP.DAT S;$\X \ +_ p @ $ D o $
D "$ . s&$ >.$ $ s.$ D k@d w D D 5 D D m D D @f D F D J D J D K D w D D D / D H F D a (1D + ,(!$ 3D + ,$ < 9<, JW7d a+ ,! < 9a, " a $ F ~ D v < 9d, : v;1 ~+ , , *< 9f, , @d a+ ,% < 9i, , < 9, $ D !$ 3D + ,h )2D +m+ ,4 *2D +q+ ,4 *2D +r+ ,4 +3D +}+ -U +3D + -U +z +} Fc*d ,5 $ D v!$ D )3D +t+ 6W )3D +j+ 6r )3F +}+ ,N )3F +q+ , )3F r+ ,N0D + ,D +2F +x+ ,D ,3F +w+ ,J )2F +w+ ,G (2F +e+ 7 v0f + ,J ) Hc: v: 1d
+ ,; < 9q, , + , < 9t, +z_D |ZD v v < 9x, : v; |+ ,P, :2D +t3D +i+ 8%" o $ D v v T2H :+ ,e D q0D 1D + ,h0D 1D + ,h0D 1D + ,h0D 1D + ,h v2H r+ ,c v3H r+ ,h < 9y, , + ,: v8& ,W < 9|, < 9, + , )3F +q+ , )3F r+ ,o )2F +}+ -V: 1f (+ ,h+ , :3D +s+ -S6D w+ ,y K D w" w $ ( K J w ( K J w.$ 8& ,t6D 5+ - D 54D -" 5 $ ( . J 3 ( . J 3 ( . J 4 ( . J 4 ( . J 5.$ 8& ,| +m_D yZD v +m & $ v.& 0 H]*d -
: v; y+ - 6D + - q0$ 0d + -+ - j D " $ ( i J ( j J .$ 8& -+ - $ D . s D $ . s D $ 2D /2D + -$ +s F/*d -! $ D / 1$ + -S" .& $ F
D .$ D "& / . F
D v( . ( 3f+ -8 +| ( .& F v( .* ( J v( .( F *d -/: v;
+ -,: ;
+ -( $ D ( D v ( 2$+ -B: 2& + -S+ -< ( 3d v+ -G ( F $ . 2$ + -R $ . D / F D v +| v( .& H*d -M: v; + -M> 2d + -< q D + 9: $ D + 9: +z +} Fc*d -W $ D v )3F +}+ -a )3F +y+ -c v0f + -` ) Hc: v: 1d (+ -Y < :, , + , < :, +z_D <ZD v v < :, : v; <+ -f, : " $ D v v D3D =+ -q: v8& -k < : , < :
, + , $ $ v. q,'1D + -| < : )3F +}+ ,h )3F r+ ,h: 1d (+ -w+ ,6b v0b
+ . +-~4 .y4 .y4 . 4 . 4 /y4 /y4 004 0l4 0l4 2V4 2V4 4!4 4!4 3!4 4w4 4w4 4|4 4|4 4}4 4}4 5[4 5]4 5x4 5x@d A $ D +x +} Fc*d .
$ D v )3F +}+ . )3F +w+ . )3F +k+ . )3F r+ . )3& +i+ . )3f +f+ . < :, , + , v0$ + . ) Fc: v: 1d (+ . v0d + .(7D A+ .$ < :, , + , )3D +}+ ,h < :, , + , f2D +}+ .."& $ c Hc/$ 8& .* +} D c+ .( < :, +x_D "ZD v v < : , : v; "+ .0, < : , < :$, q1d 1$ + .8+ .; ?2d s+ .q1$ + .t+ .= ?3d s+ .v $ 3D A+ .X.d 1d + .B < :%, , + , ( ? F 0d (+ , )2F +k+ .I: $ D A+ .
)2D +w+ .N: ( F+ .
()2D +}+ .S: ( ( 0F+ ,h 2)3D r+ .V,< 9<, H+ ( 2F+ ,h: ( ? F2 ( :3f+ .b ( D
)3D r+ .q < 9<, H+ ,h < :+, < :.,
+ , < :0, < :3,
+ , < :5, < :8,
+ ,@d A $ D w +z +} Fc*d .{ $ D v@d m )3F +}+ / )3F +w+ / )3F +k+ / )3F r+ /7&)+ / )2f +f+ / & 2F v+ / & F m v0f + /
) Hc: v: 1d (+ .~ v0d + /7D A+ / < :9, , + , 0d '+ ,h )3F +}+ ,h < :<, , + ,7D m+ /) e2D +}+ / "& $ c Hc/$ 8& / +} D c+ / < :?, +z_D ZD v v < :C,
: v; + /!, < :D, < :H,
?3d s1$ + /B+ /E@d 8 < :I, +z_D TZD v v < :M,
: v; T+ /,, & / s&& /& $ F S D v&$ & . k. F m < :N, < :R,
+xZD D D$& q2F 8+ /="& . v. D F ?+ /E*d /8 $ .d v; S+ /3 < :T, < :W,
+ , < :Y, < :\,
+ , $ 3D A+ /`.d w1d
+ /J(< :], , + ,( w( ?0F w+ 0d (+ ,+)2F +k+ /Q: +$ D A+ .z2 +)2D +w+ /V: w( + w:F w+ .z+ )2D +}+ /[: w( + w F w+ ,h+ )3D r+ /^+< 9<, H w( w F w+ ,h w( ? F w3 w( w3f w+ /j w( + w D t0f + 0 ) Hc: t: 1d (+ 0+ 0) t0d 0$ + 0
: v; B+ 0, : 3D +b+ 02d +u2$ +v+ 0+ 0+ ,h 0d (+ ,h )3F +}+ ,h )3F r+ ,h +v +} Fc*d 0 $ D t )3F r+ 0) )3F +}+ 0) t0f + 0( ) Hc: t: 1d (+ 0! < :n, +v_D ?ZD v v < :r,
: v; ?+ 0,, + ,h +z +} Fc*d 00 $ D v )3F +}+ 0< )3F +w+ 0< )3F r+ 0< v0f + 0; ) Hc: v: 1d (+ 03 v0$ + 0C 0d '+ ,h )3F +}+ ,h < :s, , + ,@d 8 < :v, +z_D sZD v v < :z,
: v; s+ 0F, 83D +p+ 0^ & / s&& /& $ F r D v&$ & . k. F m < :{, < :,
+xZD D D$& q2F 8+ 0Y"& . v. D F ?+ 0^*d 0S $ .d v; r+ 0N < ;, < ;,
+ ,Od ? 1$
+ 0b < ;, , + ,: ? F )3F +}+ ,h )2D +w+ 0h: + 00 )3D r+ 0k < 9<, H+ ,h: m@d D < D D > D m D s +z +} Fc*d 0p $ D v )2f +f+ 0v )2& +i+ 0{ )2f +n+ 0y )2& +r+ 1 < ; , , + , $ D m+ 1: 1d (+ 1 < ;
, , + , )3F +w+ 1 )3F +d+ 1 )3F +k+ 1 )3F +}+ 0~ )3F r+ 0~ m0F + 1 )2f +f+ 1
)2& +i+ 1 < ;, , + , v0d + 0| ) Fc: v+ 0|7D m+ 1 e2D +}+ 1"& $ c Hc/$ 8& 1 +} D c+ 1 < ;, +z_D oZD v v < ;,
: v; o+ 1 , 7D m+ 12 < ;, < ;,
?3d s+ 1& < ; , , + ,6d ?+ 1( < ; , , "$ . ?&$ D & . k. F m" $& . ? F < ;", < ;%,
$& u D z+ 1G & / s&& /& $ F n D v&$ & . k. F m < ;(, < ;+,
+xZD D D$& q2F 8+ 1B"& . v. D F ? D$& u F z+ 1G*d 1; $ .d v; n+ 16 < ;., < ;1,
+ , )2D +d+ 1N7D <+ 1L < ;2, , + , $ D <+ 1Z )2D +k+ 1T7D + 1S < ;5, , + , $ D + 1Z )2D +w+ 1^7D >+ 1Y < ;8, , + , $ D >: 1d (+ 1G < ;;, , + , <. . > D 5D 1a < 9<, H )2F +{+ 1h )2F +o+ 1h *2F +_+ 1h *3F +_+ 2%@d ; +p +} Fc*d 1i $ D v2D z+ 1p )3F +o+ 2 < ;>, , + , )3F r+ 2 & 3F z+ 2 )3H +w+ 2 )3H +n+ 2 )3H +}+ 2 )3H +a+ 2
)3H +d+ 2
)2H +k+ 13F v+ 2
(3H +d+ 2
)2h +f+ 2 )2( +i+ 2
(2H +w+ 2 < ;A, , (3H +w+ 2 < ;D, , + , )2D +o+ 2
: + 2 v0d + 2 ) Fc: v: 1d (+ 1p < ;G, , + , z1D + 1n j2D +}+ 2"& $ c Hc/$ 8& 2 +} D c+ 2 < ;J, < ;N,
z1D + 2$1D + 2! < ;P, < ;T,
+ 24 < ;U, < ;Y,
+ 24 8 D ;+ 24 : D ; 0D 1D + 2* < ;Z, , + , $ .D 0d (+ 24 )3F r+ 24 )3F +}+ 24 )3F +w+ 24 )3F +n+ 24: + 2+7D s: 5 5( . 5 m H3 5( . 5 ? H3 5( . 5 H4 5( . 5 ( H45D 2A 5( . 5@j5 5( . 5.h5 5( . 5 51f
+ 2H < ;], , + , 5( . 5 5$$
. 5 ; F] $ D s )2F +w+ 2S.d $ 3D + 1a < ;`, , + , )2D +n+ ,h: + 0l /0D + 2Z < ;c, , + , $ D /@d t D D A +s +| F/*d 2] )3D +e+ 2b < ;f, , + , +z +} Fc*d 2c $ D v )3F r+ 3 & 3F A+ 2{ )3H +}+ 3 )3H +e.f )2F +x+ 2{> 5f 2{: t1h + 2r < ;i, , + , v +x Fc t < ;l, +z_D vZD v v < ;p,
: v; v+ 2v, : + ,h )2D +o+ 3 $ 3D A+ 2 D A+ 3 @d A v ) Fc: v1d + 3: t1f + 3 < ;q, , + , t < ;t, +z_D uZD v v < ;x,
: v; u+ 3
, = +z +}Fc*d 3|$ D v: 1d (+ 2e & 3F (+ 3 < ;y, , < 9],
$ D + 2e A1D + 3 < <, , + , < <, , + ,7D + 3$ < <, , + , +p +} Fc*d 3$ $ D v )3F +}+ 34 )3F +a+ 34 )3F r+ 34 )3F + 34 v0f + 32 ) Hc: v: 1f (+ 3'+ 34 < < , , + , v0d + 38 < <, , + , )2F +a+ 3H )2F +`+ 3> *2F +h+ 3> *3F +h+ 3@ < <, , + , $ .d )3F + 3H )3F +}+ 3H )3F r+ 3H < <, , + , v +a Fc +` Fc +h Fd +h Fd < <, +v_D
ZD v v < <,
: v;
+ 3O, )3F r+ 4 )3F +}+ 4 +p +} Fc*d 3V $ D v.d )3F +w+ 3n )2F + 3_ < < , , + , )2f +{+ 3b )2& +i+ 3e < < , < <",
+ , v0d + 3l ) Fc: v: 1d (+ 3Y < <#, , + , < <&, , + , v0d + 3q < <), , + , f2D +}+ 3w"& $ c Hc/$ 8& 3t +} D c+ 3q < <,, < <0,
< <2, < <6,
+x +} Fc*d 3| $ D v.d )3F + 4 )2f +{+ 4 )2& +i+ 4 < <7, < <:,
+ , v0d + 4v: 1d (+ 3 < <<, , + , < <?, , + , v0d + 4 < <B, , + , f2D +}+ 4"& $ c Hc/$ 8& 4 +} D c+ 4 < <E, < <H,
< <K, < <N,
: < 9[, E7D }+ ,h < <P, , + , H0D + 4% < <S, , + , $ D H@d H@d I D I D )2F +{+ 4. )2F +o+ 4. *2F +_+ 4. *3F +_+ 4n +p +} Fc*d 4/ $ D v )3D +o+ 4\ )2f +f+ 47 )2& +i+ 4D )3F +}+ 4I )2F +k+ 4; v1F + 4D )3F r+ 4I )3F +a+ 4@ < <V, , + ,7D + 4C < <Y, , + , $ D v0d + 4H ) Fc: v: 1d (+ 43 v0d + 4M < <\, , + , j2D +}+ 4S"& $ c Hc/$ 8& 4O +} D c+ 4M < <_, < <b,
< <e, < <h,
1D + 4[ < <j, < <m,
+ ,hD H D I+ ,h: 0d (+ 4> )3F +o+ 4d )3F r+ 4> v0f + 4\ ) Hc: v+ 4\ < <o, +z_D ZD v v < <r,
: v; + 4g, )3D +o: $ D I+ ,h : D H : D I $ D I $ .D 0d (+ ,h )3F r+ ,h )3F +}+ ,h: + 4r $ D J+ ,h < <t, v < <w,
+ , $ D J+ ,h +z +} Fc*d 4~ $ D v@d m )3F +}+ 5 )3F +w+ 5 )3F r+ 5 )2F +k+ 5 < <x, , + , )3& +i+ 5 )2f +f+ 5 & 2F v+ 5 & F m v0f + 5 ) Hc: v: 1d (+ 5 v0d + 5 0d '+ ,h )3F +}+ ,h < <{, , + ,7D m+ 54 +zZD v v c3H +}+ 5# c2h +f+ 5! c2( +i+ 5# < <~, , + ,*d 5 e2D +}+ 5*"& $ c Hc/$ 8& 5& +} D c+ 5$ < =, +z_D ZD v v < =,
: v; + 5,, < =, < =
,
?3d s1$ + /B+ 5N@d 8 < = , +z_D ZD v v < =,
: v; + 57, & / s&& /& $ F D v&$ & . k. F m < =, < =,
+xZD D D$& q2F 8+ 5I"& . v. D F ?+ 5N*d 5C $ .d v; + 5> < =, < =,
+ , 1$
+ 5Q < =, , + ,: ? F )3F +}+ ,h )2D +w+ 5X: + 4} )3D r+ 5[ < 9<, H+ ,h $ D K+ ,h )2f +f+ 5` )2& +i+ 5c < = , < =!,
+ , ) D c: )3F +}+ 5r )3F r+ 5r )2f +f+ 5` )3& +i+ 5` ) F d: )3D r+ 5t )3D +}+ 5t < =", , + , c D d +} D c < =%, < =),
< =+, < =.,
+ ,h +z +} Fc*d 5y $ D v@d m )3F +}+ 6 )3F +w+ 6 )3F r+ 6 )3& +i+ 6 )2f +f+ 6 & 2F v+ 6 & F m v0f + 6 ) Hc: v: 1d (+ 5| v0d + 6 0d '+ ,h )3F +}+ ,h < =0, , + ,7D m+ 6. e2D +}+ 6"& $ c Hc/$ 8& 6 +} D c+ 6 < =3, +z_D
ZD v v < =6,
: v;
+ 6, < =8, < =;,
?3d s1$ + /B & . D&& . k F m & / D&& $& . D F < ==, < =@,
$& q H 8 $& u F x+ 6I@d 8 < =C, +z_D ZD v v < =F,
: v; + 61, & / s&& /& $ F D v&$ & . k. F m < =H, < =K,
+xZD D D$& q2F 8+ 6D D$& u F x"& . v. D F ?+ 6I*d 6= $ .d v; + 68 < =N, < =Q,
+ , a1$ + 6M < =R, , + ,: a ? Fa 8 Fb x Fc )3H +}+ ,h )3H r+ ,h )3H +w+ 6V < 9<, H: + 5x +z +} Fc*d 6X $ D v: 1d + 6^ < =U, , + , )3F +}+ 6d )3F r+ 6d v ) Hc: v+ 6Z v1D + 6\ < =X, +z_D ZD v v < =\,
: v; + 6h, +fZD t t 83HQ+ 6o*d 6l+ 6\ $ D 8 D Q+ 9: $ D ( k *3D +}+ 7 *3D r+ 7 +v +} Fc*d 6w $ D v $ D )3F +}+ 7 )3F r+ 7 )3F + 7 v0f + 7 ) Hc: v: 1d (+ 6{ < =], +v_D !ZD v v < =a,
: v; !+ 7, ) < 9X, E $ 3D }+ 7 < =b, , D (+ , < =e, + , < 9W, G?@d (+ , < 9V, G? $ 1 D + 9: v2D r+ 7 v3D r+ 7 < =i, , + , +l D : +e D +x D +w D +w D +c D +k D +t D +l D +} D $ D D @d < 9S, FT ;0D + 7P 82D +p3D +t+ 7R2D +e3D +j+ 7R3D +z+ 7R < 9P, EN $ 2d ~+ 7P2D }+ 73 ~ F + 7U }0D 1D + 76+ 7P $ . s D +z +} Fc*d 78 < =l, < =o,
< =q, +z_D ZD D D < =t,
: D; + 7>, +` D c d2D +}+ 7G +y c Fb*d 7D +} D e+ 7B < =v, +z_D ZD D D < =y,
: D; + 7J, }1D + 7U 8 D + 7U < ={, , + , < =~, < >,
+ , D t: t0d (+ 7Z )3F r+ 7Z )2F +}+ 7V $ D D < 9H, ?[7D }+ 86b }0b
+ 7i+74 7i4 7k4 7m4 7o4 7q4 7s4 7u4 7w4 7y4 7{4 7~4 8 4 84 84 84 8 4 8 4 8, + , < >, , + , < >, , + , < >, , + , < >, , + , < > , < > ,
+ , < >", < >%,
+ , < >&, < >),
+ , < >+, , + , < >., , + , < >1, , + , < >4, < >7,
+ , < >8, , + , < >;, , + , < >>, , + , < >A, , + , < 9E, FT"$ .D ;0D 1D + 8 < >D, H D ( H 1D + 8" < 9B, EN7D }+ 8 $ .d }6D }+ 7] D ~ F $
D q+ ,h D@f 8 FE &
F q+ ,h 0 D :3D +t+ 8_ +uZD )3F +x+ 8,*d 8(+ 8/"& . +} H).$ 8& 8- < >E, +u_D BZD v v < >I,
: v; B+ 82, :2D +b3D +j+ 8h3D +w+ 93D +}+ 8\" o $ D v v T3D :+ 8D: v8& 8;" $ D v v D3D :+ 8P: v8& 8? < >J, , + ,6b v0b
+ 8P+8F4 8k4 8k4 8k4 8n4 8n4 8n4 8q4 8t4 8t4 8t4 8t4 8w4 8z4 84 84 84 94 94 9 4 9
6b v0b + 8\+8R4 94 94 94 94 94 94 9 4 9 4 9 4 9$4 9$4 9'4 9'4 9*4 9-4 9-4 9,4 9,4 934 93 $ D +j D : < 9A, GH < >M, , < >P, , < >S, , < >V, , < >Y, , :2D +j+ , < >\, , :2D +j+ , < >_, , :2D +j+ , < >b, , :2D +j+ , < >e, , :2D +j+ , < >h, , :2D +j+ , < >k, , :2D +j+ , < >n, , < >q, , :2D +j+ , < >t, , :2D +j+ , < >w, , < >z, , :2D +j+ , < >}, , :2D +j+ , < ? , , :2D +j+ , < ?, , :2D +j+ , < ?, , < ? , , :2D +j+ , < ?
, , :2D +j+ , < ?, , :2D +j+ , < ?, , :2D +j+ , < ?, , :2D +j+ ,< ?, , < ?, , :2D +j+ , < ? , , :2D +j+ , < ?!, , :2D +j+ , < ?$, , :2D +j+ , < ?', , :2D +j+ , < ?*, , 2D +j+ ,< ?-, , :2D +j+ , 3D 0+ ,< 9@, G? < 9=, ;+ , + Ap ,~ ` , +c +a +ax p ,X 8 } ~ s kX ) 8 ; ) t D , 9 E R s k } X 8 } ~ s kX ) 8 ; x 1x 2` k } +` +`` } h ) +g =h ) +g =X 0 % ( l X 0 & X 0 ' X 2 7 $ @ ( ) X 0 ( P $ : $c X 0 - X 0 2 $ : X 0 6 P $ = $c X 0 : ( = X 0 > (D $T X 0 F X 0 K X 0 Q P $ 8 $c P W 8 $ ? X 0 X X 0 ] X 0 b $ ? $ s X 0 h $ ? X 0 n $ s X 0 t X 0 z P $ 8 $c P 8 $ ? P $ 8 $c P 1 m @ > z X 0 $ 8 X 0 $ ? X 0 X 0
X 0 X 0 X 0 X 0 X 0 ! P $ $c X 0 & X 0 , $) X 0 2 X 0 6 X 0 : P $ 8 @ c P = 8 $ X 0 , $) X 0 2 X 0 > X 0 B P $ 8 @ c P = 8 $ X 0 E X 0 I X 0 M X 0 R X 0 W P $ 8 @ c P ] 8 ( H P ^ 8 $ I P $ H $c X 0 ~ (D X 0 ^ X 0 z X 0 c P $ 8 $c P 8 $ ? P $ 8 $c P 1 m @ > z X 0 $ 8 X 0 i X 0 o $) X 0 u P $ 8 $ c $ d P y 8 $ a X 0 z P $ 8 $c P 8 $ ? P 1 m @ > z P $ 8 $c P 1 m @ > z X 0 $ 8 X 0 y X 0 P $ 8 $c P $ k $c X 0 P 2 ~ +~P k ^ +X 0 - P
$ P $ $c P $ $c X 0
X 0 $ 8 X 0 X 0 X 0 X 0 X 0 $ X 0 ) X 0 . X 0 3 X 0 8 X 0 : $ } X 0 : $ } X 0 : $ } X 0 ? X 0 D X 0 G X 0 : $ } X 0 ? X 0 L X 0 P X 0 U x , P $ : $) X 0 Y X ^ >X WX s @X 3 X 9 (X b QX 3 @X s 1X $ 1X U WX , 1X ] fX ?D 3X w 8X !0 nX " MX "k 3X # BX #a dX $E hX %- 6X %d YX &= OX '. ?> D ?G+ D ?3. ?? ?4 F < DR, FT7d ?1+ @h0d + @7 < DO, EN6D ?>+ @+ ?3. ?6 ?4 F+ AR ?3. ?6@f ?3. ?@ ?0 F+ AR ?3. ?@ ?0 F ?3. ??@f < DL, FT7d ?1+ @h0d + @F < DI, EN6D ?>+ @+ ?3. ?6 ?4 F+ AR ?3. ?1 & 1 F ?C. ?F ?3. ?@ (' H ?I < DH, I @ ?3. ?1 F ?3. ?@ ?C. ?F F+ AR ?F D ?< < DE, FT ?F2d ?5+ @ ?10D 1D + @Y0D 1D + @Y+ @Q0D 1D + @[+ @] ?3. ?1 ( H 0D 1D + @+ @a ?3. ?1 ( H 0d + @u < DB, EN6D ?>+ @+ ?3. ?? ?4 F < D?, FT6d ?1+ @i $ D ?G+ D ?10d + @o < D<, EN6D ?>+ @+ ?3. ?6 ?4 F+ AR ?3. ?6@f ?3. ?@ ?0 F5F AR $ D ?G+ D ?3. ?@ ?0 F ?3. ??@f < D9, FT7d ?1+ @h0d + A < D6, EN6D ?>+ @+ ?3. ?6 ?4 F+ AR ?3. ?1 0D + A ?C. ?F ?3. ?@ ?0 F ?3. ?1 0D + A 6D ?0+ A $ D ?G+ D ?3. ?1 0D + A ?C. ?F ?3. ?@ ?0 F ?3. ?1 & 1 F ?3. ?@ ?C. ?F F+ AR ?F D ?< < D3, FT ?F2d ?5+ @ ?10D 1D + A 0D 1D + A + A0D 1D + A + A" ?3. ?1 ( H 0D 1D + A$+ A& ?3. ?1 ( H 0d + A6 < D0, EN6D ?>+ @+ ?3. ?? ?4 F < D-, FT7d ?1+ @h0d + A2 < D*, EN6D ?>+ @+ ?3. ?6 ?4 F+ AR ?3. ?6@f ?3. ?@ ?0 F+ AR ?3. ?@ ?0 F ?3. ??@f < D', FT7d ?1+ @h0d + AA < D$, EN6D ?>+ @+ ?3. ?6 ?4 F+ AR ?3. ?1 0D + AG ?C. ?F ?3. ?@ ?0 F ?3. ?1 0D + AM ?C. ?F ?3. ?@ ?0 F ?3. ?@ ?C. ?F F ?3. ?1 & 1 F ?3. ?? ?C F < Dd, < Dh,
< Di, < Dm,
?< D ?G@d ?21f + A\ $ D ?2"$ . ?F/ ?</d ?24D As5d Af.$ ( D ?E"( . ?F/ ?E ?E . ?@"
?2.
L//$ 8( Ab+ As"$ . ?F D ?D ?D/& ( ?D . ?@" ?2.
' L/.$ 8& Ai $ (/ ?2 D ?C ?C/& ( ?C . ?@
?V J'.$ 8& Ap" ?2.D ?5" ?2.D ?6 ?<. ?@ ?M F: ?< ?:3F ?V+ A{. ?@ ?: F: ?< ?<. ?@ ?: F: ?<: ?C1d 1+ B < Do, H ?G F ?F: ?31f
+ B ( +H ?G+ D6b ?80b + B+B4 @4 @ 4 @Q4 A+ ?> D ?F < D!, FT ?F2d ?5+ B3F ?K+ B! 3F ?R+ B! 3F ?S+ B! 3F ?U+ B! 3F ?V+ B! 3F ?V+ B! 3F ?5+ B! $ D ?G+ D> ?>. ?@ 3F ?O+ B% $ D ?G+ D"$ .D ?>"& $ F ?; D ?E. ?D ?>. ?@ 2F+ BF ?E0D + B. $ D ?G+ D ?E0D + B2 ?>3$ ?2+ B2 $ D ?G+ D ?E0D + B5 $ D ?G+ D $ . ?> D ?B ?B/& ( ?B . ?@
' J'.$ 8& B8 ?@ ?V F '"$ . ?F D ?A ?A/& ( ?A . ?@
' J'.$ 8& B@ ?@ ?V F '"$ .D ?6+ ?k: ?E; ?;+ B(> ?>5d BJ & F ?G+ D"& $ F ?8 D ?E. ?D ?>. ?@ 2F+ BT ?E0$ 0d + BQ+ BV1D + BV & F ?G+ D: ?E; ?8+ BL+ BG $ . ?> D ?F < D , FT ?11D + B[ < Dp, H ?3. ?1@f ?02D ?Q+ B` ?3. ?1 * J'2D ?S+ Bc ?3. ?1 * J'2D ?T+ Bf ?3. ?1 * J'2D ?N+ Bi ?3. ?1 * J'2D ?N+ Bl ?3. ?1 * J'2D ?J+ Bo ?3. ?1 * J'2D ?L+ Br ?3. ?1 * J'2D ?L+ Bu ?3. ?1 * J'2D ?P+ Bx ?3. ?1 * J'2D ?O+ B{ ?3. ?1 * J'2D ?T+ B~ ?3. ?1 *
J'2D ?R+ C ?3. ?1 *
J'2D ?K+ C ?3. ?1 * J'2D ?Q+ C ?3. ?1 * J'2D ?P+ C
?3. ?1 *
J'2D ?M+ C
J' ?3. ?12F'+ C+( H ?G+ D < D, FT ?11D + C1 < D, EN+$ 2D ?>+ @+ ?3. ?? ?4 H . ?3. ?61D + ?3. ?10 1H + C 0H + Cf. ?3. ??3$ + Cf & .F ?G+ D, ?3. ?1 0D + C%0 ?C. ?F < D, I @, ?3. ?1 0D + C*0 ?C. ?F < D, J @ ?3. ?1 0D + C/ ?C. ?F < D, Io @ ?3. ?1 0D + C4 ?C. ?F < D, J + CS7$ ?0+ CS ?C. ?F ?0 F ?3. ?1 0D + CY6$ ?0+ CY ?C. ?F ?0"F ?3. ?1 0f
+ Ca 1& + Ca ?3. ??@f ?3. ?@ ?0 F+ Cf ?3. ?1 & 1 F ?3. ?@ ?C. ?F F ?3. ?? ?C F < Dq, < Du, < Dv, < Dz, $ . ?> D ?<. ?@ ?M F: ?< ?:3F ?V+ Cs. ?@ ?: F: ?< ?<. ?@ ?: F: ?<" ?<. ?F F ?2"& (. ?F ?F . ?@" ?2.
' L/.$ 8& Cx $ (/ ?2 D ?A ?A/& ( ?A . ?@ ?V J'.$ 8& C" ?2.D ?6: ?C1d 1+ D < D|, H: ?31f
+ ?k ( H ?G ?I ?6 Ap ?3 Ap ?C Ap ?; Ap ?3 Ap ?G Ap ,~ x ?0x ?0x ?0x ?0x ?0x ?0x ?0x ?0X ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?@ ?F ?0 ?1 ?DX ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?Dp ?I ?0X ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?0 ?> ?4 ?; ?3X ?@ ?F ?0 ?1 ?DX ?@ ?F ?0 ?1 ?DP ?H ?0 $ ?C P ?H ?0 @ ?: x ?Wx ?XP ?H ?0 $ ?C P ?H ?0 @ ?: x ?Z (5A1)(I5) n5I ~ 9 0 OBS P X # m \ EG p @ EE p B EE p B E@ p B EB p D E?@d EE D E@3@ EK+ F" EB.& && /& $ F ED D E@&$ & . E?. F E? < F , < F!, EKZD E> E>$& Dt2F EE+ Ec"& . E@. E> F E@+ F*d E^ $ .d E@; ED+ EY EL EM FE;*d Ef < F$, < F', E<2D EL+ F EM D E<2D E<+ Eo & F EE+ F E>2D EM+ Et"& $ E; HE</$ 8& Eq+ Eo ELZD EF EF E;3H EM+ Ez E;3( EJ+ F E;2h EI+ F*d Et < F*, < F-, < F0, < F3, E@0$ 2d EB+ F+ F $ D EE+ F E<2D EI+ F EM D E< E>2D EM+ F "& $ E; HE</$ 8& F+ F ELZD EF EF E;3H EM+ F E;3( EJ+ F E;2h EI+ F*d F < F5, < F8, < F;, < F>, "d E@+ F EH D E@+ F $ D EE+ F $ D EE EG EE Ap EE Ap E@ Ap ,~ P 1 E? @ > D} P EF EE @ E< P EF EE @ E< P EG EE $ E@ P EF EE @ E< P EG EE $ E@ (15A1) (F) . 9 0 8 G>n \ FP !p @ FK p @ F@ p @ FA p @ F@ !p @ FM FR FS FFA*d FZ@d FK $ D FM@f FA F@. FK 3F FP D FA F@. FK 3& FQ+ Fe 2f FQ+ Fe $ D FA+ Fq F@. FK 3D FI+ G FRZD FN F@. FK FN. FM '2H + Fp FN F F@ FA0F + G & .F F@+ G*d Fh FA0D + Fz F@. FK 3& FQ+ Fv 3f FQ+ Fz F@. FK 3D FP+ Fz $ ( D F@+ G FM0d + F~ F@. FK FFA: FM: F@1$ (+ Fe $ D F@ FA0D + G $ D F@ < G, < G, FM0d + G"d F@@d FA+ G
< G, < G , + GK D FA: F@ FP F@ Ap FA Ap F@ Ap ,~ P FN FK @ FB P FO FK ( FA !* G<** ,^ ,~ * x ,> < G<*< G> p Z@ G2@@ G2@@ G3 Gs`|+ G&P w,~ "p h a`~ + G+h ``~ + G,$ Gs!G-d Gt/"+ G&P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ',> Zp @ G2\` G1 < G2, ,^ ,~ SMI 1 ,> ', G Gu BG2+ GVMI 1 ,> ', G Gw BG2+ GVI5R1 ,> ', G Gx BG2*\ G`7Ap X" Gy BG2/& p d"~ l" BG2*\ G`/& p d"~ l" $ BG2*\ G`/& p d"~ l"
BG2*\ G`Sp *\ G`/&Xp B G;@@ G; Gz BG2*\ G`/& p d"~ l" BG2RF G1 < G2, + G EV4i91 ,> '+ GnS ,i@1 ,> '+ Gn_ ,i@1 ,> '+ GnK>2 1 ,> '+ GnK>40 1 ,> '+ Gn[<I71 ,> ' & Gz w @ )@ . " 5B Go & H ,~ ` .
.4 SEQIN ^ GtSEQOUT ^ GvRANDOM ^ GwSEQINOUT G; %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> 'O@ H?+ HgR~@1 ,> '@@ H?,> ,> @ 6 w+ H" H?0B + H /#p !" X#p + H\p + Ha.9'1 ,> ',> ,> O@ H?+ H,> 6 + _ 4` H"` Q@ ,> < H@, ,^ ,> < HC, ,^ *b H+ H%,> < HE, ,^ 7@ H?+ H ,> < HH, ,^ + H",> < HI, ,^ Z 5" H%,> < HK, ,^ , 7@ H?,
,> < HL, ,^ , ,> < HO, ,^ ,> < HR, ,^ (@qd 1@ ,,
1@ #+ H30@ *+ H%,> j< HT, ,^ + 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 H5 X ~ H; p x CNM` 1 ,> '#p 2b He+ Hb"p p + He4@ H` @ Hd,> < Hf, I,^ p B Hd,> < Hf, Hk,^ ,~ He7ap "` ,~ +P
. I "T B#p @,~ 4B I+P
I#p + I ,~ > attempt to take SQRT of negative arg Kc3@ p p + I$Kc3K , I$
,~ Kc3J , I$ ,~ Kc3I , I$ ,~ Kc3H4B I:5@ I'5" I9+D I&U ,~ ,> ,> # $ )D /$ @,> 4d I1X $ (F) + I15F I15" I/"` , IH+ I8# ,> < I;, J,^ @ ,> < I<, Io,^ 5& I8" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + IHKc#K , IH @ ,~ Kc#J , IH @ ,~ Kc#I , IH @ ,~ Kc#H4B Il5@ IL5" IV+D IKUI,~ D Ik!$ @ Ij B Ik5" IS#` + Ih, IS!" B ,~ + IV(BdB + IV5B IQ Ik,~ +7` Ik+ I`d +D IZUI`d >@ 6I Ij+ IU Ik`B "` + IU/ Imid + Ia+D + I\U", IS Ij+ IV+ IP ! ,~ x Kc 1 ,> ' p 3" J + It3b J + Iv+D IsUI,~ +D D J F J
@@ J %" j" % J )/;` : XD J5f I}aF + I}.& @(|h& f J J J J J J D J @ J J
,~ !t0 @' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> ' p 4@ J$ @ J,> < J,, J,^ J,~ {e^b C2|p 1 ,> ' p 5` J4@ J$+P
J% J*,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x JATTEMPTSTO TAKE LOGOF NEGATIVE ARG G? @ 1 ,> ' p JT JT+J + J=g&t@ 1 ,> '3p JT+= + J=G? 1 ,> 'Rp JU+ J=g&p 1 ,> ' p B JS#` 3b JR+ JO D JU JU3b JV+ JH%" (D?d$ " @($ )B
8 + ,~ @ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (' THE CONSTANT SPECIFIED IS NOT THE SAME MODE AS VAR:',A5) (G15.7) (I15)(3X,'OBS',1X,'VAR',3X,'OLD VALUE',8X,'NEW VALUE'/)(3X,'OBS',1X,'VAR',3X,A5,12X,'OLD VALUE',8X,'NEW VALUE'/) (3X,'OBS',1X,'VAR',3X,A5,12X,A5,12X,'OLD VALUE',8X,'NEW VALUE'/) (1X,A5,12X,'NEW VALUE'/) (1X,A5,12X,A5,12X,'NEW VALUE'/) ('+',I5,1X,A5,1X,15A1,1X,'? ',$) ('+',I5,1X,A5,1X,15A1,2X,15A1,1X,'? ',$)('+',I5,1X,A5,1X,15A1,1X,15A1,1X,15A1,1X,'? ',$) ('+ ? ',$)('+',15A1,1X,'? ',$)('+',15A1,1X,15A1,1X,'? ',$) (80A1) (' VALUE MUST BE NUMERIC'/) (G) (I15)(' ALPHA VALUES MUST BE ENCLOSED IN QUOTES'/)(' VARIABLE ',A5,'? ',$) (125A1) (' NAME MUST BEGIN WITH A LETTER') (' ILLEGAL NAME') (' NAME "',A5,'" IS A RESERVED NAME') (' NO MISSING DATA SUPPLIED NOW') S S . MISS ( STOP 9 N 0 ALL - Z ; ' I I 0 @ OBS ! / HELP A @ , = ) G X EMPTYX M M ERROR eH1 \ FK K( . K.$ . a D Dc FM D DW@d Cj D D` J1D + JL" w $ ( "
w.* .
w.J D`.$ 8& Fh 5. a.d D`1d t+ Fo < K/, M5 & 0j& D`/& F E21f >+ Fs ( > H E2 E2.& F Dc@f Dd@f Dp & F De & >. s&& >$ s.& F D`" w $ F E1 D Ey( w F D $ . D&$ . D` D Ex & / D&& $& . D F E33D Dp+ G < K0, < K3,
D Dp 5. a. De$ Dc & $ E3 . Fu 5. a. De$ Dc & $ E3 3 Fu $ 2D H+ G I1F + G ( $ E35F G7J 3+ G
31J + G 0F + G ( $ E33D 3+ G < K6, ( $ E3 < K9,
+ K-: De: D Ey( 3d w+ F}: Ey; E1+ F| $ D Ey $ >. s&$ > D Ca Ey( D D.$ >&$ > D D`/$ $$ > D Dp@d Cl $ . Cl2d E2+ G6: Cl D/ Dp FE3 D FDq: D Ey( 3f + G3: Ey2h Dn+ G8(
J D $ >. D&$ > D DX3D D`+ G) Ey( D F 51$ + GJ" 5 $ F E1 D Dm/$ $ Dc D Dp Dm( . Dm 3/$ $ Ca.$ . D` D Dn < K:, < K>,
" Cl $ . Dp
E3
(7 J u.$ 8& GE: Dm; E1+ G< a1$ + G[" a $ F E0 D Dm"& . 5. Dm$ Dc F Dp a/& $ Ca.& . D` F Dn < K@, < KD,
" Cl $ . Dp
E3
(7 J u.$ 8& GV: Dm; E0+ GM 5. a D Ev" w $ F Do D Dm( w F D"$ . D$ Ca.$ . D` D Dn < KF, < KJ,
Dc$ Ev D Dp" Cl $ . Dp
E3
(7 J u.$ 8& Gg: Ev: D Dm( 3d w+ G`: Dm; Do+ G^" Cl $ ( HD.$ 8& Gp 51$ + H." Cl $ F Eu D D $ D Dm"$ . Dm$ Dc. D D Ew Dm( . Dm 40D + H Dm( . Dm"5 $ D De De$$
. Dm ]3D C`+ H: De8& G Ew u3D C`+ H" Dm( . Dm6b40b + H
+H4 H
4 H4 H4 H4 H 4 H Dm( . Dm"5 $ D De De$$
. Dm Ew u3H]+ H(: De8& H+ H" Dm Ew u3&g+ H(+ H" Dm Ew u3fg+ H(+ H" Dm Ew u2fg+ H(+ H" Dm Ew u2&g+ H(+ H" Dm Ew u2Fg+ H(: Dm2d 5+ H&( . Dm 33F0+ Gw D@fD+ H,: Dm2d 5+ H,( . Dm 33F0+ H(+ Gw: D; Eu+ Gv@d Dd" Cl $ F Es D Ca7FD+ J/ & F Ev. 5. a F Ex"& / D`. Ex Ex F Es D D a1$ + I
5$ Dc. Ca D Ew u2F C`+ HD FU F^ FDX*d H< F] D DX FS D DY FL F DY F DZ D DZ FO D D[ FZ D D[+ H` d.$ 6b 0b + HI+HG4 HI4 HN4 HW < KL, Ew < KP,
< KQ, < KU,
+ H` Ew < KW, F\_D ErZD Dm Dm < K[,
: Dm; Er+ HQ, FT F^ FDX*d HU+ H` < K\, Ew < K`,
< Ka, < Ke,
DX2D F^+ H` FV DX FDX*d H] F^ D D_+ H[ a1$ + I
$ . 5$ Dc. Ca D Ew u2F C`+ Hn FU F^ FCa*d Hf F] D Cb FS D Cb FL F Cc F Cc D Cd FO D Cd FZ D Ce+ I
d.$ 6b 0b + Hs+Hq4 Hs4 Hx4 I < Kg, Ew < Kk,
< Kl, < Kp,
+ I
Ew < Kr, F\_D E{ZD Dm Dm < Kv,
: Dm; E{+ H{, FT F^ FCa*d H+ I
< Kw, Ew < K{,
< K|, < L ,
DX2D F^+ I
FV DX FDX*d I F^ D D_+ I Dc$ D u D Dp Dc$ D u D DW"$ . D$ Dc. Ca D Ew & 3F H+ J%3F K+ I9 u2H C`+ I FU F^ FDe*d I F] D De FS D Df FL F Df F Dg D Dg FO D Dh FZ D Dh+ I9 $ . Dp6b 0b + I"+I 4 I"4 I'4 I0 < L, Ew < L,
< L, < L ,
+ I9 Ew < LyZD Dm Dm < L,
: Dm; Ey+ I*, FT F^ FDe*d I.+ I9 < L, Ew < L,
< L, < L,
De2D F^+ I9 FV De FDe*d I6 F^ D Dl+ I4 H1D + IL6D Dd+ IL6b Dc0b + IA+I=4 IA4 IC4 IE4 IL4 IH4 IJ < L , , + IL < L , < L#,
+ IL < L%, < L(,
+ IL < L*, < L-,
+ IL < L., < L1,
!$ D Dd6b Dc0b + IR+IO4 IR4 IU4 IX4 I[4 I]4 I` < L3, Ca < L6,
+ Ib < L:, Ca < L=,
+ Ib < LB, Ca < LE,
+ Ib < LK, , + Ib < LN, < LQ,
+ Ib < LT, < LW,
< L[, < L^,
Cl3D FV+ J2 Cl2D F\+ Ik Cm2D FS+ Ik Cm2D FK+ Ik Cn3D FK+ J# Cl2D F]+ In Cm3D F]+ J, $ 3D Dp+ J D Dm Dm Cl2f FO+ It Cl2& FP+ I| Cl3F F]+ I~ Cl2F FL+ Ix7F Dp+ I| Cl3F FQ0D + Iz+ I| < L`, , + Ib: Dm1d + Ip7D Dp+ J Cs2D F]+ J"& $ Cl HCl/$ 8& J F] D Cl+ I < Lc, FT_D DZD Dm Dm < Lg,
: Dm; D+ J, 6D Dp+ J < Lh, Ew < Ll,
0D + J, < Lm, Ew < Lq,
+ J, Cl3D FR+ J < Lr, , + Ib $ D Dm Dm Cl3D FR+ J: Dm1d + J Dm F] FCl Ew < Lu, F[_D CkZD Dm Dm < Ly,
: Dm; Ck+ J , + J, Ew C` Fu+ J,6D Dp+ J' Ew H Hu0D + J* Ew I Hu0D + J, Ew H Hu: D; Es+ H7 Ca & FD: Ca; Es+ H0 $ D Dd"$ . 5. a D Dm" w $ F Ck D Dm( w F D: Dm"$ . D$ Ca.$ . D` D Dn < Lz, < L~,
" Cl $ D0H + JB E3
Dc$
Dm.
(u J 7.$ 8& J> < M , < M,
: D Dm( 3d w+ J7: Dm; Ck+ J67D Dd+ K- Ey3d + G#+ K- $ >. s&$ >$ s.$ D D`" w $ F Ci D Dm( w F D"$ . D&$ . D` D Ex $ / D&$ $$ . D D E3 < M, < M
,
< M
, $$ < M, < M, < M, Dq3D FV+ K- Dq3D F]+ K' F\ F] FE|*d Jb $ D Cl Cl Dq3F F]+ Jr Dq3F FR+ Jr Dq3F FY+ Jw Dq3F FQ+ Jw Dq3F FZ+ Jw Dq3F FY+ Jw Dq3F FN+ Jw Dq FE|: Cl1f + Je E}3$ FX+ Ju E}3d FQ+ Jy < M, , + JS < M, , + JS $ $ E3 < M , < M , $ $ E3$.3D FP+ K] H.*d K + K < M", $ $ E3 < M%, + JS Cl Dq3D FR+ K: Cl1d (+ K+ K' $ . Cl D Ew"& / Cl. Ew Ew D Ev Ev Dq2D FW+ K < M', , + JS: Ev8& K $ $ E3 < M*, $ . Cl D Ev"& / Cl. Ev Ev F Da D Ev Ev < M-, : Ev; Da+ K$, < M/, < M2, : D Dm( 3d w+ JS: Dm; Ci+ JQ FK,~ x F^P 1 Ex @ > 7 X 0 E $ . P 1 Dn @ > 7 P 1 Dn @ > 7 P 1 Dn @ > 7 P F D (u P F1 D @ DX P F1 u (DX P F D $u P F1 D @ DX P F D (u P F1 D @ Cb P F1 u (Ca P F D $u P F1 D @ Cb P F D (u P F1 D @ De P F1 u (De P F D $u P F1 D @ De X 0 F X 0 F
$ c X 0 F $ c $ c X 0 F $ c X 0 F $ c $ c X 0 F $Dq $ DW @ De X 0 F" $Dq $ DW @ DX @ De X 0 F& $Dq $ DW @ DX @ Cb @ De X 0 F+ X 0 F, @ DX X 0 F. @ DX @ Cb X 0 J2 F1 @ ( Cl X 0 F2 P F1 D $Cl P F5 D (u P F5 D $u X 0 F6 P F1 u $Cl P 1 Dn @ > 7 P 1 Dn @ > 7 P 1 Ex @ > 7 X 0 F: $. X 0 K- F= @ > Dq X 0 F> X 0 FA P F= . @ E} X 0 FC $. X 0 FG P F= / $Dq P 1 Ex @ > 7 a.3@1 ,> 'O@ Mr+ M9gR~@1 ,> '@@ Mr,> ,> @ 6 w+ ME" Ms0B + MA!"A`X#p 5@ M>/#p !" X#p + ME\p + MEa.9'1 ,> ',> ,> O@ Mr+ ME,>
6 + _ 4` MN"` Q@ ,> < Mt, ,^ ,> < Mw,
,^ *b MK+ MX,> < Mx, ,^ 7@ Mr+ MS,> < M{,
,^ + MU,> < M},
,^ Z 5" MX,> < M~,
,^ , 7@ Mr,
,> < N , ,^ , ,> < N, ,^ ,> < N, ,^ (@qd 1@ ,,
1@ #+ Mg0@ *+ MY,> < N, ,^ + MY,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X Mo p X Mp p Mq p Mr p X Mi X ~ Mn p x DSK AT OUT.D~` } g&\ K D w D K4D H" w $ (
w J K (
w J K.$ 8& C+ K $ D K D L s D L D j4D S" $ (
J i (
J j.$ 8& M+ U $ D j D j s D k 5 D 4D l" $ ( .
3 J ( .
3 J ( .
4 J ( .
4 J ( .
5 J .$ 8& X >_D 9ZD ; > &
$& . ; ] H0*d g: ;; 9+ g / D 0D + q > / F*d n $ D 1D + v = D = D < D @d ;+ y D $ D ,~ (10A1) B . K ?A 0 H PROBLEM LOCATING PEROID SEQOUT DSK BINARY E =8 \ A E F F8*d O < f, < i,
EZD @ @ 83F B+ W*d S < l, @ B F9 D F9 C F: < m, < p,
< s, & F @ < x, < {,
< ~, < ,
: @+ ^X< , \ A,~ P @ t @ 9 x FP @ ? @ 9 8 2 P ? ^ I ~ K^ L Cl DP 1 c @ @ > z h 2 @ > z h 2 a.3@1 ,> 'O@ B+ gR~@1 ,> '@@ B,> ,> @ 6 w+ " B0B + !"A`X#p 5@
6 + _ 4` "` Q@ ,> < C, ,^ ,> < F,
,^ *b + (,> < H, ,^ 7@ B+ #,> < K,
,^ + %,> < L,
,^ Z 5" (,> < N,
,^ , 7@ B,
,> < O, ,^ , ,> < R, ,^ ,> < U, ,^ (@qd 1@ ,,
1@ #+ 60@ *+ (,> a< W, ,^ + (,^ ,^ ,^ ,~ ('TypeDGEtoContinue,XFtoDExit, T\To trace.'/2HE*,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOPC .p X > p ( X ? p A p A p X 8 X ~ > 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& F| 5.d D*1d t+ G < J., KR & 0j& D*/& F E.1f >+ G ( > H E. E..& F E#@f E' & F E$ & >. s&& > F Cb$ s.& F D)" w $ ( w H Cf ( . Cf&( . D) H F4 * /
Cf&* $* .
Cf J E.3H E'+ G < J/, < J2,
H E' 5. E$$ E# * $
E.
(3 J u 5. E$$ E# * $
E.
(. J u: E$: Cf
(
3h( w+ G.$ 8& G6D /+ Gh $ B D F8 2D FV+ G) $ $ D F8 FX F^ FD**d G* FS D D+ $ D E%@d E# $ . 5 D F4"& / D*. F4 F4 F E) D F5$ E# u F Cg5F G8 E% F] HD* $ .D E#: E%+ GD Cg0D + G> E% FZ FD* FY FD+ & .F E# & .F E%+ GD Cg1D + GA < J%, KR E% FX FD* $ .D E#: E% E#3d F8+ GS" E% E% D Cf Cf D*2H F[+ GQ FZ HD* ( H E# E%
D*2J FX+ GN * .J E#
D*2J F]+ GS * .J E#+ GS> Cf8& GG < J5, KR E% F[ FD*: E%1d v+ GX < J6, , + J": F5; E)+ G2 E% F\ FD* < J9, < J<,
"& $ D E% E% /2D F^+ Ga> E%8& G^ < J?, " E% $ F E' D Cf Cf < JB,
: Cf; E'+ Gd, + I < JC, < JG,
"& x $ x D Ce Ce D*2D F^+ Go> Ce8& Gl@d F5: F5 F52d Ce+ H! F[ZD E% E% F5 D*3HE4+ Go*d Gr F5 D*2F FW+ H D Cf: F53d Ce+ G{ < JI, , + J" F5 D*2F FW+ Gx.$ / Cf D E$ F5.$ D F3"& / Ce. F3 F3" E$.
D* J.D*.$ 8& H" E$.D CeF CfFD F5+ GpD F5 D*3& FU+ HCD*2f FT+ H"& $ EF E3FD Cf. F52d Ce+ HE F[ZD E%D E%E F5. CfD3D*2HE4+ H1F + H+ Go*d HD F5. CfED*3& FU+ HHD*2f FT+ H: Cf;^ E3+ H H0 $ D E% E% F5 D* FE+: F5: E% D*3& FU+ H8 D*3f FT+ H2 E-2D F^+ H>"& $ E+ HE+/$ 8& H; F^ D E++ H8 < JL, < JP,
< JR, < JV,
F5 D*3D E7+ HK" D) $ D E% E$ F5 D* HE8: E$0d x+ Hi: E%8& HF+ H# $ . F5 D F2 $ D E/ F2 D*3F E7: E/ D*3F E7> E/7F E/+ HS: F2+ HM"& . F2 $ . F52d + Ha" D) $ F Ca D E% $ . F5 D F1 F1/ F2 F1 D Cf E$ Cf D* HE8: E$0d x+ Hi: Cf8& H[: E%; Ca+ HX F2 D F5+ H#"$ . E$ D Ce7F Cd+ Hj" Ce $ E8 HD*.$ 8& Hf+ H! < JW, KR+ J" $ D Cf. 5 D E3"& / D*. E3 E3 D F5@d D( Cf E82H FZ+ Hr ( H D( E82H FY+ Hu ( H D( E82H FX+ Hw ( H D( F5$ E#
D(3J u+ I FS H D( F5$ E# * 2J u+ H~ FT H D( F5$ E# * 2J u+ I FV H D( < JX, F5$ E# < J[,
+ J": Cf3d Ce+ I ( H Cf: F58& Ho $ D F5 F5( D Cf.$ >&$ > D D)/$ $$ > D E&@d Ce $ . Ce2d E.+ I : Ce Cf/ E& FCh: Cf F5( 3f + I: F52h + I (
J Cf $ >. Cf&$ > D D'3D D)+ I F5( Cf F 51$ + I/" 5 $ F F7 D E%/$ $ E# D E& E%( . E% 3/$ $ Cb.$ . D) D E% < J^, < Ja,
" Ce $ . E&
Ch
(7 J u.$ 8& I*: E%; F7+ I! 5 D F2" w $ F F6 D E%( w F Cf"$ . Cf$ Cb.$ . D) D E% < Jd, < Jg,
E#$ F2 D E&" Ce $ . E&
Ch
(7 J u.$ 8& I;: F2: Cf E%( 3d w+ I4: E%; F6+ I2" Ce $ ( HCh.$ 8& ID 51$ + J" Ce $ F Cg D Cf $ D E%"$ . E%$ E#. Cf D F3 E%( . E% 40D + IW E%( . E%"5 $ D E$ E$$$
. E% ]3D C`+ IY: E$8& IS F3 u3D C`+ Iv E%( . E%6b40b + I`+I\4 I`4 Ih4 Ik4 In4 Iq4 It E%( . E%"5 $ D E$ E$$$
. E% F3 u3H]+ I|: E$8& Ic+ Iv E% F3 u3&g+ I|+ Iv E% F3 u3fg+ I|+ Iv E% F3 u2fg+ I|+ Iv E% F3 u2&g+ I|+ Iv E% F3 u2Fg+ I|: E%2d 5+ Iz( . E% 33F0+ IK Cf@fCh+ J : E%2d 5+ J ( . E% 33F0+ I|+ IK: Cf; Cg+ IJ $ . 5 D E2"& / D*. E2 E2 F Cd D E%/$ $ E# D F3" Ce $ . F3 u3H C`@hCh.$ 8& J : E%; Cd+ J"$ . 5 D D*" Ce $ 7HCh+ J < Jj, ( . 5 H E1"* /
D*.
E1 E1 J Cb H E%"( . E%$ E#. < Jm,
: E%; Cb+ J, .$ 8& J F53d + I
*< J), K, E)0D + J#@< J', ;+ J#+< J&, K, FP,~ x E$` FR FQ FQx E$P E$ h ^ F`P x FaP 1 F4 @ > 7 x FbX 0 F9 P x F? 0 @ x D+ X 0 F@ (/ P x F? 0 @ x D+ X 0 FE P F? Ch @ E+ P FH Ch $ D) x FdX 0 FI ( D( $ u (E8 P 1 E% @ > 7 P 1 E% @ > 7 X E$ 0 ( u !* K
BK*\ K1Sp *\ K1/&Xp B K
@@ K
KK BK*\ K1/& p d"~ l" BKRF K < K, + JnEV4i91 ,> '+ K?S ,i@1 ,> '+ K?_ ,i@1 ,> '+ K?K>2 1 ,> '+ K?K>40 1 ,> '+ K?[<I71 ,> ' & KK w @ )@ . " 5B K@ & KQ,~ ` .
.4 SEQIN ^ KESEQOUT ^ KGRANDOM ^ KHSEQINOUT K
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> 'O@ L+ KVgR~@1 ,> '@@ L,> ,> @ 6 w+ Kc" L0B + K^!"A`X#p 5@ K[/#p !" X#p + Kc\p + Kca.9'1 ,> ',> ,> O@ L+ Kc,> 6 + _ 4` Kk"` Q@ ,> < L, ,^ ,> < L, ,^ *b Kh+ Kv,> < L, ,^ 7@ L+ Kq,> < L, ,^ + Ks,> < L, ,^ Z 5" Kv,> < L , ,^ , 7@ L,
,> < L , ,^ , ,> < L , ,^ ,> < L#, ,^ (@qd 1@ ,,
1@ #+ L0@ *+ Kv,> < L%, ,^ + Kv,^ ,^ ,^ ,~ (' 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 X L 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 Cd D D%" w $ ( "
w.* .
w.J D%.$ 8& E5 5.d D%1d t+ E< < Gn, Hd & 0j& D%/& F Dr1f >+ E@ ( > H Dr Dr.& F D&@f D+ ( >. s&( >$ s.( H D%2F J+ EH3F w2F + F2F 5+ F < Go, < Gr,
x0H + EU x3H s2F 5+ EU 0H + EU 2H s+ EU < Gu, < Gx,
< G{, < G~,
6D K+ EW < H , , " w $ F Dq D D)( w F Ce"$ . Ce&$ .$ . D% D Dy3D D++ Ea < H, < H,
D D+ $ / Ce&$ $$ . Ce D Ds 5. D&$ D&$$ 3 Hx E, D D, Ds$$ 30D + El E- D D, Ds$$ 30D + Eo E- D D,"& $ D D& $ $ Ds. D& .2D E/+ Eu> D&8& Eq < H , $ $ Ds < H
, & / D& $ F Dl D Dx $ $ Ds. Dx < H, : Dx; Dl+ Ez, : Ce D)( 3d w+ E[: D); Dq+ EY J1D + Gl $ 2D K+ F < H, , D D+ & F D) F D& D Du" w $ ( w H Ce ( . Ce&( . D% H Dy3H D++ F < H, < H, H D+" Ce&( $( . Ce H Ds5H F * J Ds D) Ds$* (. J u 5. D&$ D&
Ds$,
03 L(x u2J E.+ F" Ds$* (30J + F" 5. D& J Du: D): D&1j + F,6H K+ F+ < H, E/_H D,ZH D) D) < H , : D); D,+ F(, ( H D): Ce ( 3h( w+ F 2* D)+ F96D K+ F9 < H , & / D) $ F D+ D Ce Ce < H!, : Ce; D++ F6, $ D Dz $ >. s&$ > D Cc Dz( D Ce.$ >&$ > D D%/$ $$ > D D*@d Cd $ . Cd2d Dr+ FO: Cd Ce/ D* FCe Ce FD,: Ce Dz( 3f + FL: Dz2h D(+ FQ( J Ce $ >. Ce&$ > D D$3D D%+ FB Dz( Ce F 51$ + Fc" 5 $ F D* D D)/$ $ D& D D* D)( . D) 3/$ $ Cc.$ . D% D D) < H", < H&, " Cd $ . D* Ce (7 J x.$ 8& F^: D); D*+ FU 5 D Dx" w $ F Dw D D)( w F Ce"$ . Ce$ Cc.$ . D% D D) < H(, < H,, D&$ Dx D D*" Cd $ . D* Ce (7 J x.$ 8& Fo: Dx: Ce D)( 3d w+ Fg: D); Dw+ Ff" Cd $ F Dv D D) $ 2d 5+ G/ D Ce"$ . Ce$ D&. D) D Dx Ce( . Ce 40D + G Ce( . Ce"5 $ D D& D&$$ . Ce ]3D Cb+ G : D&8& G Dx x3D Cb+ G& Ce( . Ce6b40b + G+G
4 G4 G4 G4 G 4 G!4 G$ Ce( . Ce"5 $ D D& D&$$
. Ce Dx x3H]+ G+: D&8& G+ G& Ce Dx x3&g+ G++ G& Ce Dx x3fg+ G++ G& Ce Dx x2fg+ G++ G& Ce Dx x2&g+ G++ G& Ce Dx x2Fg+ G+: Ce2d 5+ Gh( . Ce 33F0+ F{+ Gh: Ce2d 5+ G/( . Ce 33F0+ G++ F{ < H., , 6D Cc+ G4 < H1, D) < H4,
$ D Dx. 5 D Dy"& / D%. Dy Dy F Dt D Ce/$ $ D&. D) D Dx x2F Cb+ G? < H6, , + G_ D&$ Ce x.$ D D*6b D*0b + GE+GC4 GE4 GH4 GK < H9, Dx < H<,
+ G_ < H=, Dx < H@,
+ G_ Du3D Ce+ GU Dx x0&P+ GP"x1& '+ GR < HB, < HE,
+ G_ < HF, Dx < HI,
+ G_ < HK, Dx < HN,
< HP, < HS,
E. Dl2F E/+ G] E, FDl*d GZ < HV, < HY,
: Dx1d + Gf Ce3F D%+ Gf < H[, , < H^, , & F Dx: Ce; Dt+ G9: D); Dv+ Fy Dz3d + F< < Ha, , E*,~ x E0P 1 E+ @ > 7 X 0 Dz 0 t $ 7 $ 8 $ 9 $ 9 X 0 E $ : $ : X 0 E
P 1 Dy @ > 7 X 0 E $. $ Ce $ D, $. X 0 E P 1 Dy @ > 7 X 0 E $ u X 0 E $u P 1 D) @ > 7 P 1 D) @ > 7 X 0 E* X 0 E $D, X 0 E X 0 E (x X 0 E (x X 0 E" $x X 0 E# $x P E% D' $x P E% D' @ Dl X 0 E& @ Dl X 0 E* X 0 E) X 0 E* a.3@1 ,> 'O@ I"+ HhgR~@1 ,> '@@ I",> ,> @ 6 w+ Hu" I"0B + Hp!"A`X#p 5@ Hm/#p !" X#p + Hu\p + Hua.9'1 ,> ',> ,> O@ I"+ Hu,>
6 + _ 4` H}"` Q@ ,> < I#, ,^ ,> < I&,
,^ *b Hz+ I,> < I(, ,^ 7@ I"+ I,> < I+,
,^ + I,> < I,,
,^ Z 5" I,> < I.,
,^ , 7@ I",
,> < I/, ,^ , ,> < I2, ,^ ,> < I5, ,^ (@qd 1@ ,,
1@ #+ I0@ *+ I,> C< I7, ,^ + I,^ ,^ ,^ ,~ (' Type G to Continue,.X to&Exit,DT6Totrace.'/2H *,$) (A1) (1HF14A5/)(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
6Q 6V 642F(,+ 7J D(,+ 7M: 6V8( 7F: 6N 6Q , H64 D, 6Q7d8+ 7Y 6N1$ + 7V" 6N $ D 6V 6Q 6V
642J8+ 7U H8+ 7Y: 6V8& 7R: 6N 6Q 8 H64 D8: 6Q+ 7?"$ . 6Q D 64 6Q7f+ 7_: 6N H64 F $ >. s&$ >$ s.$ D 6R@d 63 6N1$ + 7v" 6N $ 64 H 6Q3H 7-+ 7s/( &( H 6h"
6h$* .
6Q J 6\ * .
6R.j 6h3J 63+ 7o < :w, < :{,
J 63 ( ?$ * $
6\j(5o J ;+ 7u ( ?$ !* J ;.$ 8& 7e D 6Q2d s+ 8/$ &$ D 6h" 6h$& . 6Q F 6\ ( . 6R.H 6h < :}, < ;,
$& d5o D 54 6\$$ 5k D 6W 6N1$ + 8" 6N $ F 6Z D 6V$$ ?!& 2F;+ 8 641$ + 8" 64.& $ D 6Q 6Q 82D 6V+ 8 < ;, , + :p 6Q ,2H 6V+ 8 1H
+ 88 0H + 8Z+ 8 2d s+ :,D 54 D 6g@d 6T 642$+ 8 $( ?H ; H 6T1& + 8# 0H
+ 8! ( H 6T 0H + 8# ( H 6T@d 6N $ 2D 6g+ 8( $ 3D 6T+ 8( $ D 6N 6g1D + 8, $ 2D 6T+ 8, $ D 6N6D 6g+ 8/ $ 2D 6T+ 8/ $ D 6N 6g0D + 836D 6T+ 83 $ D 6N"$ . s&$ >.$ D 6T" 64 $ F 6Y D 6c 6N1$ + 8[" 6N $ F 6X D 6V 643F 7-+ 8G 64/& $ 64.& . 6c F 6h < ;, 72_D 6WZD 6Q 6V$$ ?. 6Q < ;
,
: 6Q; 6W+ 8B, + 8Y"$ . 6c$$ > D 6S & > F 6f. 6S3f s+ 8M" 6S. s F 6f" 6f $ ( ?$ 6V.
.
6S J |.$ 8& 8N 6f1D >+ 8Y.$ D 6b 6b/& ? 6b ( ?$ 6V.
5s J |.$ 8& 8V: 6V; 6X+ 8; 51$ + 8j" 5 $ ( . 3/( $ 64.( . 6c H 6h < ; , 72_H 6_ZH 6Q ( ?$ . 6Q < ;,
: 6Q; 6_+ 8d, .$ 8& 8] /$ $ 64.$ . 6c D 6h < ;, 72_D 6^ZD 6Q 6Q < ;,
: 6Q; 6^+ 8o, 7D 6N+ 9 0D + 8y 72 4u3F 5s+ 8xf4u F4u*d 8u+ 9 6N0D + 8~ 72 4u3F 5s+ 8}F4u F4u*d 8{+ 9 72 5s F4u*d 8 72@f54*d 9 $ >$ 6c D 6c/$ > D 6[" $ F 6h D 6b@f 6_ F 6a( 2f 6c+ 9 6b( 3$ 6[+ 9 6b( 2d 6[+ 9 $ D 6_ 6b( 3$ 6c+ 9 $ > D 6a6D 6_+ 9 6b( & ./ 6[ F 6_6D 6a+ 9 6b( / 6c.$ > D 6a 6_/& / 6a 6_ ( H54.$ 8& 9 : 6b; 6h+ 9"& > $ F 6f D 6Q7F54+ 9h7f 5+ 9^ & F 6V 6V( . 6V 40D + 9/ 6V( . 6V"5 $ D 6V 6V$$
. 6V ]3D 5s+ 92: 6V8& 9+ $ ?$ 6V. 6Q *J3D 5s+ 9U 6V( . 6V6b40b + 99+954 994 9B4 9F4 9J4 9N4 9R 6V( . 6V"5 $ D 6V 6V$$
. 6V ( ?$ 6V. 6Q *J3H]+ 9Z: 6V8& 9<+ 9U 6V & ?$ 6V. 6Q *J3&g+ 9Z+ 9U 6V & ?$ 6V. 6Q *J3fg+ 9Z+ 9U 6V & ?$ 6V. 6Q *J2fg+ 9Z+ 9U 6V & ?$ 6V. 6Q *J2&g+ 9Z+ 9U 6V & ?$ 6V. 6Q *J2Fg+ 9Z: 6V2d 5+ 9h( . 6V 33F0+ 9%+ 9h: 6V2d 5+ 9^( . 6V 33F0+ 9Z+ 9%" 6N $ D 6V 6V$$ ?. 6Q |3D 5s+ 9f: 6V8& 9` 6Q D 6X < :s, < + 9h 6Q 5s F4u: 6Q; 6f+ 9" /$ $ 64.$ . 6c D 6h < ;, 72_D 6dZD 6Q 6Q < ;,
: 6Q; 6d+ 9o, : 6c; 6Y+ 87 $ 2$ 7+ 9w < ;, < ; ,
2$ 7+ 9z < ; , < ;",
2$ 8+ 9} < ;#, < ;&,
2$ 8+ : < ;(, < ;+,
2$ 9+ : < ;,, < ;/,
2$ 9+ : < ;1, < ;4,
2$ :+ : < ;5, < ;8,
2$ :+ :
< ;:, < ;=,
6T2F 6g+ : < ;>, < ;A,
+ :p 7. D 6S 6T0F + : 70 H 6S0F + : 71 H 6S 6g1H 1+ :* D 6U0H + : 70 D 6U0H + : 71 D 6U < ;C, < ;F,
D 6Q/$ &$ D 6h" 6h$& . 6Q F 6\ ( . 6R.H 6h < ;H, < ;L,
$& 6T D5o < ;N, < ;R,
+ :p < ;T, < ;W,
+ : $ 1 D 6g s$ 64.$ D 6R $ . s&$ D 63" 63 63 6R. H 7- < ;Y, < ;],
64. 6R. H 7- < ;_, < ;c,
/$ 8& :2 72 5s F5s*d :;" 64 $ 6R. H 7- < ;e, < ;i,
.$ 8& :> 64.d 6R & . s&& F 6U"
6U.* $* ( . s. H 6\2F 63+ :M. 63 D 7- < ;k, < ;o,
+ :P 73 & $& 74 H5k*d :N $ $ 6\ F5k $ $ 6\ 73 F5k $ $ 6\ 7/ F5l $ $ 6\ 7/ F5l $ $ 6\ 70 F5m $ $ 6\ 72 F5m $ $ 6\ 71 F5n $ $ 6\ $5n D 7- < :r, Bj $ $ 6\@f5o 6R. 6U D 7- < ;q, < ;u,
$ 2D K+ :j2D L+ :j L3F s.d L: s < ;w, < ;{,
s D 5t < ;}, < <,
+ 8 7,,~ x 7-h ; 6X 6Tx 6Qp 6V 6QP 1 6h @ > 5t P 1 6h @ > 5t X 0 6i P 1 6h $| P 1 6h $ *J P 1 6h $4u P 1 6h $4u X 0 6n $ 7 X 0 6t $ 7 X 0 6y $ 8 X 0 6 $ 8 X 0 7 $ 9 X 0 7 $ 9 X 0 7 $ : X 0 7 $ : X 0 7 $ 6W X 0 7 $ 6W $ 6U $ 6S P 1 6h @ > 5t P 1 6h @ > 5t X 0 7' $ $ 6S P 1 7- @ > 5t P 1 7- @ > 5t P 1 7- @ > 5t P 1 7- @ > 5t P 1 7- @ > 5t P 1 7. @ > 5t P 1 7. @ > 5t @ (' SYS PROB - CONTACT DICK HOUCHARD') (5A1)(F5.0) (I5) 0 _P . 9 0 ] d - #SC` ` X Gd= \ < !p @ < p @ < p @ < $ D <@d <: < F < H <1F 1+ <#6b <0b
+ <5+<(4 <54 <54 <74 <54 <V4 <t4 =4 =54 =T4 =d4 =y4 >
4 ?;4 ?k4 @4 @ < @-, , < @ , % <7D,+ <<5d <> <", Q D <+ <E < E D <+ <E < ,$& ?. <. < @ F < ,$& ?. < !( 2H + <Ef < F < <7D8+ <J5d <L <"8 Q D <+ <S < E D <+ <S < 8$& ?. <. < @ F < 8$& ?. < !( 2H + <Sf < F < < < @+, A, @Q+ <# <7D,+ <Z5d <\ <", Q D <+ <d < E D <+ <d < ,$& ?. <. < @ F < ,$& ?. < !( 2H + <df < F < <7D8+ <h5d <j <"8 Q D <+ <r < E D <+ <r < 8$& ?. <. < @ F < 8$& ?. < !( 2H + <rf < F < < < < FQ+ <# <7D,+ <y5d <{ <", Q D <+ = < E D <+ = < ,$& ?. <. < @ F < ,$& ?. < !( 2H + =f < F < <7D8+ =5d = <"8 Q D <+ = < E D <+ = < 8$& ?. <. < @ F < 8$& ?. < !( 2H + =f < F < < < < FQ+ <# <7D,+ =5d = <", Q D <+ =! < E D <+ =! < ,$& ?. <. < @ F < ,$& ?. < !( 2H + =!f < F < <7D8+ =%5d =' <"8 Q D <+ =/ < E D <+ =/ < 8$& ?. <. < @ F < 8$& ?. < !( 2H + =/f < F <6D <+ =3 <. < < F"9: 7+ @ < < < FQ+ <# <7D,+ =:5d =< <", Q D <+ =C < E D <+ =C < ,$& ?. <. < @ F < ,$& ?. < !( 2H + =Cf < F < <7D8+ =H5d =J <"8 Q D <+ =Q < E D <+ =Q < 8$& ?. <. < @ F < 8$& ?. < !( 2H + =Qf < F < < < < FQ+ <# <7D+ =X5d =Z <" Q D <+ =_ < E D <+ =_ <. < < $& ?. <. < @ F"9+ @ < 0D + =bD < D < <. < < F"9+ @ <7D,+ =i5d =k <", Q D <+ =r < E D <+ =r < ,$& ?. <. < @ F < ,$& ?. < !( 2H + =rf < F <7$ <+ =v < < @*, A @Q+ <#: 7 <. < < F"9+ @ <7D,+ =}5d = <", Q D <+ > < E D <+ > < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >f < F <7d <+ >
< < @), B' @Q+ <#: 8 <. < < F"9+ @ <7D,+ >5d > <", Q D <+ > < E D <+ > < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >f < F < < < @(, B @Q+ <# <7D,+ >"5d >$ <", Q D <+ >, < E D <+ >, < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >,f < F <7d <+ >/ < < @', B @Q+ <# <. < < F"9: 8+ @ <7D,+ >75d >9 <", Q D <+ >@ < E D <+ >@ < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >@f < F < < < @&, BO @Q+ <# <7D,+ >G5d >I <", Q D <+ >Q < E D <+ >Q < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >Qf < F < < < @%, BL @Q+ <# <7D,+ >X5d >Z <", Q D <+ >a < E D <+ >a < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >af < F < < < @$, @~ @Q+ <# <7D,+ >h5d >j <", Q D <+ >r < E D <+ >r < ,$& ?. <. < @ F < ,$& ?. < !( 2H + >rf < F < <2$ <2d <+ >v < < @#, @h @Q+ <# <. < < F"9: 9+ @ <7D,+ >~5d ? <", Q D <+ ? < E D <+ ? < ,$& ?. <. < @ F < ,$& ?. < !( 2H + ?f < F < < < FQ1& "FQ+ <# <7D,+ ?5d ? <", Q D <+ ?8 < E D <+ ?8 < ,$& ?. <. < @ F < ,$& ?. < 7F + ?8 ,$& ?. < !( 3H + ?f < F <+ ?8 < @0, < @3,
@d <@d <"& $ F <
<3F <+ ?, <3F < + ?, <3F <+ ?, & F < <3( <+ ?) <3h <+ ?, <. <
< J "9.f 9+ @ : <
; < 7D <+ ?8 < 2D < + ?4"& $ < H</$ 8& ?1 < D <+ ?. < @6, < @9,
< @<, < @?,
D < D < <d DQ+ <# <7D,+ ?@5d ?B <", Q D <+ ?i < E D <+ ?i < ,$& ?. <. < @ F < ,$& ?. < 7F + ?i ,$& ?. < !( 3H + ?Lf < F <+ ?i < @A, < @D,
@d <@d <"& $ F <
D < <3F <+ ?] <3F < + ?] <3F <+ ?] & F < <3( <+ ?Z <3h <+ ?] <. < < J "9.f :+ @ : < ; <
+ ?Q7D <+ ?i < 2D < + ?e"& $ < H</$ 8& ?b < D <+ ?_ < @G, < @J, < @M, < @P, < < FQ+ <# <7D,+ ?p5d ?r <", Q D <+ @ < E D <+ @ < ,$& ?. <. < @ F < ,$& ?. < !( 3H + @ ,$& ?. < 7F + @ <0$O+ ?~" 1& '+ @: : <. < < F"9+ @ @d < < @R, < @U, + @
<3$ <3d <+ @+ @ D D <+ ?{ < D <+ @
@d < < @W, < @Z, < @\, < @_, <2D < + @ < < F<*d @ < D < + @ < @b, < @e, <z < FQ+ <# <j< @", C @Q+ <#@d <R <1< @!, C @ <*d @ <!&x@ < FQ+ <# <,~ x <x <x <x <x <x <x <x <x <x <p < <X < < P < < @ < P < < @ < P < < ( < P < < @ < P < < @ < P < < ( < P < < $ < P < < ( < P < < @ < P < < @ < CNM` 1 ,> '#p 2b @x+ @u"p p + @x4@ @s @ @w,> < @y, A,^ p B @w,> < @y, @~,^ ,~ @x7ap "` ,~ +P
A'#p + A ,~ > attempt to take SQRT of negative arg Kc3@ p p + A7Kc3K , A7
,~ Kc3J , A7 ,~ Kc3I , A7 ,~ Kc3H4B AM5@ A:5" AL+D
A9U ,~ ,> ,> # $ )D /$ @,> 4d ADX $ (F) + AD5F AD5" AB"` , A[+ AK# ,> < AN, B',^ @ ,> < AO, B,^ 5& AK" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + A[Kc#K , A[ @ ,~ Kc#J , A[ @ ,~ Kc#I , A[ @ ,~ Kc#H4B A5@ A5" Ai+D
A^UA,~ D A~!$ @ A} B A~5" Af#` + A{, Af!" B ,~ + Ai(BdB + Ai5B Ad A~,~ +7` A~+ Ar`d +D
AmUA`d >@ 6B A}+ Ah A~`B "` + Ah/ B id + At+D + AoU", Af A}+ Ai+ Ac ! ,~ x Kc 1 ,> ' p 3" B + B3b B + B +D
BUB,~ +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@ B7 @ B&,> < B?, B',^ B%,~ {e^b C2|p 1 ,> ' p 5` B+4@ B7+P
B8 B=,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x B&ATTEMPTfTO TAKE LOGOF NEGATIVE ARG G? @ 1 ,> ' p Bg Bg+B + BPg&t@ 1 ,> '3p Bg+= + BPG? 1 ,> 'Rp Bh+ BPg&p 1 ,> ' p pB Bf#` 3b Be+ Bb D Bh Bh3b Bi+ B[%" (D?d$ " @($ )B B{)@
(@ 0$ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP 1 ,> ' D C F C b &"j0eD C &" ,D C S Ao-& C)" B . C -& C[p (F{5F C B GQ @ > ,~ %h g&(71 ,> ' p 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 \ H < LW, P < LX, $ D E- $ D H/@d E. D Dh" w $ ( "
w.* .
w.J Dh.$ 8& H 5.d Dh1d d+ I < L[, , + LJ $ 0j& Dh/$ D Ey1d >+ I & > F Ey Ey.$ D Di@d E6 $ D E4 5 F E3 & >. s&& > F D&$ s.& F Dh < L^, < La,
.d H/ $ D E-3D K+ I < Lc, < Lg,
< Li, < Ll,
& .F E- < Lq, , $ .D E-" w $ F Ex D E4( w F D' $ . D'&$ . Dh D H-: E33D E6+ I) < Lt, < Lw,
D E6 $ / D'&$ $$ . D' D Ez Di$ E3$$ 3 Hu Di$ E3 Ez$& . Fu Ez$$ .2D Hn+ IB Ez$$ 30D + IB $ . 53D E3+ IB $ . 5 D H- H-/ E3 H- F Ex D H+$ Di u2F Hn+ I@ < Lz, , + LJ: H+; Ex+ I< Ha D E7 $ $ Ez 30D + IF He D E7 $ $ Ez 30D + IJ Hg D E7 < L}, $ $ Ez < M ,
Hl_D EwZD H+ $ $ Ez. H+ < M,
: H+; Ew+ IN, : E-3d E-+ IY < M, < M,
< M , , : H/ & F E-: D' E4( 3d w+ I": E4; Ex+ I! $ 3D J+ LG & . 5/ Dh7 .& (~/& $ F Ew D H..$ 7 .$ (~ D E3 H..$ D D'" 5. Dh2$ D'+ Ik" 5. Dh D D' Hk Hq FC`*d Il Hb D C` Hq D Ca Hd D Ca Hl F Cb Hk H Cb * J H+
H.0J + I}
Hh J Ca D Ca J Cb H Cb Hg D Cc Ho D Cd H Cd Hi D Ce F Ce H Cf $ D H+"& . H./ D' H. F E6 D E4. 5$ Di u F E35F J
H+ Hm HC` Hq HC` Hp JCa H` JCa Ho JCb Hk JCb HCc Hl HCc JCd ( .H H++ J4 E30D + J H+ Hh FC` Hl HC` Hk JCa
Hi LCa FCb JCb FCc HCc JCd & .F H++ J4 E31D + J < M
, O; 5. E4$ Di u3D Hn+ J$ H+ Hg FC` Hq FC` Hc FCa Hk FCa Hi HCb Hl HCb FCc & .F H++ J4 H+ Hi FC` Hc HC` Hk HCa Hh JCa
Hf LCb JCb HCc FCc Hi NCd HCd JCe LCe JCf HCf FCg Hp FCg HCh FCh Hl FCi HCi & .F H+: E4; E6+ J H+ Hm FC_ $
$ E3 < M,
@d Di $ .d H.; Ew+ Id < M, < M,
: H/ $ D E- & / 5. Dh7 .& (~ F Ev3D K+ JG < LS, Mz $ . Ev.D E- $ D H. H.( D D'.$ >&$ > D Dh/$ $$ > D E5 $ D D& D& D'/ E5 FD( D' FE7: D' H.( 3f + JV: H.2h + J^(
J D' $ >. D'&$ > D Dg2D Dh+ J\: D&3f Ey+ JN"( .H D& H.( D' F 51$ + Jo" 5 $ F E5 D E4/$ $ Di D E5 E4( . E4 3/$ $ D&.$ . Dh D E4 < M, < M,
" D& $ . E5
D(
(7 J u.$ 8& Jj: E4; E5+ Ja 5 D H+" w $ F H* D E4( w F D'"$ . D'$ D&.$ . Dh D E4 < M , < M!,
Di$ H+ D E5" D& $ . E5
D(
(7 J u.$ 8& J{: H+: D' E4( 3d w+ Jt: E4; H*+ Jr" D& $ F H) D E4 $ 2d 5+ K< D D'"$ . D'$ Di. E4 D H, D'( . D' 40D + K D'( . D'"5 $ D E3 E3$$
. D' ]3D C`+ K: E38& K H, u3D C`+ K3 D'( . D'6b40b + K +K4 K 4 K$4 K'4 K*4 K-4 K0 D'( . D'"5 $ D E3 E3$$
. D' H, u3H]+ K7: E38& K + K3 D' H, u3&g+ K7+ K3 D' H, u3fg+ K7+ K3 D' H, u2fg+ K7+ K3 D' H, u2&g+ K7+ K3 D' H, u2Fg+ K7: D'2d 5+ LD( . D' 33F0+ K+ LD: D'2d 5+ K<( . D' 33F0+ K7+ K E-. Ev3d E-+ KE < M$, < M',
: H/ $ D E-3D K+ KE < LP, Mz $ . Ev.D E- $ . 5 D H, H,/ Dh7 .& (~/& H, F E{ D D' & / 5. D'7 .& (~ F E3.$ D H23d Dh+ KQ Dh F H2@d E, D E3 D Dg D'/& / H2 D' F Ez D H+: Dg: E3@jD!/$ $ Di. E4
u L D D 2D C`+ K] $ D E, DD! J D Di$ H+ u2D Hn+ K} Di$ H+ u0D + K} < M), E3 < M,, < M., < M1, Hq FD FD FD < M4, Hp_D D!ZD E5 E5 < M7, : E5; D!+ Kk, E3 < M9, Hn_D H3ZD E5 E5 < M<, : E5; H3+ Kr, E3 < M>, Hj_D H3ZD E5 E5 < MA, : E5; H3+ Kx, $ .D E3: H+; Ez+ KV Hd &
$ E3.& Ep FD
*d K $ 3D E,+ L. 53D D'+ L < MC, " E3 $ F H1 D E5 E5 < MF, : E5; H1+ L, $ . 52D D'+ LA < MG, E4 < MJ, " E3 $ F H1 D E5 E5 < ML, : E5; H1+ L, + LA Hf Hq FDi*d L $ . 53D D'+ L < MM, " E3 $ F H0 D E5 E5 < MQ, : E5; H0+ L , $ . 52D D'+ L* < MR, E4 < MV, " E3 $ F D( D E5 E5 < MW, : E5; D(+ L', < MY, < M\, "& . D'/ H2 $ D!0H + L>"( . $( .( H E3 Hq J Di
Ho L Dj
Hg L Dj H_ N Dk N Dk L Dl
Hc L Dl
Hm L Dm J Dm
Hj L Dn
Hi L Dn He N Do L Do J Dp J Dp.$ 8& L. < M_, < Mb,
$ .d D'; E{+ KK Ev.D E-: E4; H)+ K H.3d + JH < LO, Ny $ .D H/ < LL, ; H,~ X Hw Ha H` H` H/x 1P v 5 Dh Di Dj 1P v 5 Dh Di Dj 1x H.P 1 ~ Hr^ Hs ^ HtX 0 H4 X 1 H9 0 H. $ H/ P 1 H` @ > 7 X 1 H= 0 t $ 7 $ 8 $ 9 $ 9 $ : $ : X 1 HK P 1 H- @ > 7 X 0 HS X 1 HY $. $ D' $ E7 $. X 1 H9 0 H. $ H/ X 1 HK x HvP < H\ Eq @ < C` X 1 H9 0 H. $ H/ P 1 E4 @ > 7 P 1 E4 @ > 7 X 1 H9 0 H. $ H/ P H] E| $D P H] E| @ E. P H] D (E. P H] D (E. P H] D (E. X 1 D
(D X 1 D
$E7 (D P B D
C` (D P B D
C` $E7 (D P B H^ C` @ B Dj X 1 H^ @ B Dj (5A1)(133A1) (1X,7('-'),2X,24A5) S . B 0 wX -----O SOCSC PROBLEM Q
L@ \ Mr !p @ Mh p @ Md p B Mf p D Mg %p D Mfp D Mg Md.$ D Mn" Mf. Mn7M .& (~/& Mn F Ml D Mi Mu & . Mf Mw H *d N $ . Mi D Me3d Mf+ N Me. Mh 2D Mw+ N!"$ .D Mh Me. Mh < NH, "& Mh F Mj D Mm Mm. Mf < NK, : Mm; Mj+ N%, : Ml; Mk+ N $ . Md2D Mi+ N. Mf Mu F Me2D Mf+ N4 Mf Mv F Ms F Mr F Ms F < NM, < NP, $ .d Mi; Ml+ N Mv D Mm $ D Ml Mf/ Md0$ + N> Mf/ Md D Ml Ml( .D Ml < NR, " Ml $ F Mj D Mm < NU, : Mm; Mj+ NB, Mr,~ x MxP Mn $ X Mg Mo @ B Mf X Mg Mp ( Mm !* Nu** ,^ ,~ * x ,> < Nu*< Nx p Z@ Nk@@ Nl@@ Nl O,`|+ N_P w,~ "p h a`~ + Neh ``~ + Nf$ O-!Ngd O-/"+ N`P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ',> Zp @ Nk\` Nk < Nk, ,^ ,~ SMI 1 ,> ', NX O/ BNk+ O_MI 1 ,> ', NX O0 BNk+ OI5R1 ,> ', NX O2 BNk*\ O7Ap X" O2 BNk/& p d"~ l" BNk*\ O/& p d"~ l" $ BNk*\ O/& p d"~ l"
BNk*\ OSp *\ O/&Xp B Nt@@ Nu O3 BNk*\ O/& p d"~ l" BNkRF Nk < Nk, + NVEV4i91 ,> '+ O'S ,i@1 ,> '+ O'_ ,i@1 ,> '+ O'K>2 1 ,> '+ O'K>40 1 ,> '+ O'[<I71 ,> ' & O4 w @ )@ . " 5B O) & O:,~ ` .
.4 SEQIN ^ O.SEQOUT ^ O/RANDOM ^ O1SEQINOUT Nt %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> 'O@ Ox+ O?gR~@1 ,> '@@ Ox,> ,> @ 6 w+ OK" Oy0B + OG!"A`X#p 5@ OD/#p !" X#p + OK\p + OKa.9'1 ,> ',> ,> O@ Ox+ OK,> 6 + _ 4` OT"` Q@ ,> < Oz, ,^ ,> < O}, ,^ *b OQ+ O^,> < O~, ,^ 7@ Ox+ OY,> < P, ,^ + O[,> < P, ,^ Z 5" O^,> < P, ,^ , 7@ Ox,
,> < P, ,^ , ,> < P , ,^ ,> < P
, ,^ (@qd 1@ ,,
1@ #+ Om0@ *+ O,> ,< P ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X Ou p X Ov p Ow p Ox p X Oo X ~ Ot 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$\` \ K2 $ & D H.@d H0" $ ( "
.* .
.J H0.$ 8& KX $ >. s&$ > D Gg < S, WH $ 2d 5+ Lb@f H0 < S, & / s&& >/& $ F I? D J & > F HF.$ >3d s+ Kj $ . s/ J D HF@d HE K?@fGo*d Kk" $ F I< D I ( 3& J+ L I ( & >. J3&+ L $ D HE D HB HF F I> I ( ./ J3d HB+ K| I ( & ./ J F HB I ( & ./ J2& I>+ L I ( & ./ J F I> HB/& / I> HB ( HGo.$ 8& L: I ; I<+ Kn7D HE+ LX" 5 $ * >.
J&* > ( . 3/( $ Gg.( . H Gb < S , K?_H I.ZH J ( >$ . J < S",
: J; I.+ L, .$ 8& L
" HF $ F I- D H@7FGo+ LV & F I I ( . I 40D + L& I ( . I "5 $ D I I$$
. I ]3D G"+ L): I8& L" $ >$ I . H@ 3D G"+ LL I ( . I 6b40b + L/+L,4 L/4 L84 L<4 L@4 LD4 LH I ( . I "5 $ D I I$$
. I ( >$ I . H@ 3H]+ LQ: I8& L2+ LL I & >$ I . H@ 3&g+ LQ+ LL I & >$ I . H@ 3fg+ LQ+ LL I & >$ I . H@ 2fg+ LQ+ LL I & >$ I . H@ 2&g+ LQ+ LL I & >$ I . H@ 2Fg+ LQ: I 2d 5+ LP( . I 33F0+ L H@@fGo+ LV: I 2d 5+ LV( . I 33F0+ LQ+ L : H0: H@; I-+ L < S$, < S&,
$ >.d J; I?+ Kf < S, U[ H00$ + La < S(, , < S, U[+ S < S+, H01$ 4^+ Lg < S0, , < S, U[+ S" w $ F It D J( w F I< & . I<&& s$ Gg.$ . D J < S3, < S7,
$ / I<&$ $$ . I<.D Gb$$ .G .& F HC Gb$$ G,D HD KB & $ Gb.& G FGb*d Lx@d H?@f I` F I, D IB" $ ( H J ( >. J&( > H I.3H J+ M
51( + MC,
J/ HH H HM
51* + M7J Go+ M HM G"2H G"+ M: H?+ M : IB
HM
(G" J C
HC1J + M
C L Gb0J + Ml C L Gb
GbL I`
L I,: J ( 3h(+ M .$ 8& L~ * J I J I; IB D I I;2$ I + ML I; D H@. I 7 .$ ( D I C F I@ I;2& C+ M- C JC F C C F I@ I D Gg C2& I@+ M: I C HC I@ HC C H I@ I;2((C+ M:
(C LC H(C C H I@+ M: Gg H@ C HC H0 DC> Gg C2f I@+ M: C F H0: H@ C3& I@+ M=3d Gg+ M7" H@. I " I;. Gg3f + MG I I; HGg Gg HI D I;: I+ MO I H@ FGg I FI Gg F I : I+ MO> I4D M\ Gg F I; I F I I / I;0$ + M$ I;1D + M#"$ .D I;: I;3D I + ML D F I@2&C+ MS D H@ H@ C FD> H@ C2f I@+ MW I@ FD+ MS IB1$ + N HC1F + N d I` F HH@d Ic IB1$ + Mi I` d I, IB/( $ IBh D Ic < S, V @ IC@d I>3D HH+ Mn IC &H HH F I>f IB F K2 < S, V IC F I D HK D HB" IB $ C H Gb HC0H + MwhC H Gb
Gb
HH H HK Gb HH H HB.$ 8& Msf IB HK D HKh IB HB F HB@h Id H HFh IB
*}
Ic J J4j N < S, V0 D Id
F HF!$ 3D + N+ $ D I D F Gb & / IB $ D J J C3H Gb+ N C H Gb: I1h
+ N * J I+ N: J8& N $ .D I HC1D + N $ .D I 51$ + N% & .F I@f I@" 5 $ ( . 5.H I@.$ 8& N 7$ 5.$ (.D I" 5.d I@&$ .D I I.d H.0d + N* & .F H. < SE, , + N0 $ . I D H.: < SH, < SK, < SN, < SQ, K4 D H@ HC0D + N3 K9 F H@0D + N5 K; F H@ < ST, < SW, & 2f 5+ P`,< S[, , F J KH F HN F HO F HO F HP F HP & F IB@f HA F HD" 5 $ ( . 33H 5+ NE ( H HD.$ 8& NA J3D 5+ N]( . J 32F5+ N]7D HD+ N] J1D + NO( . J 33F0+ N] IB1d 4+ NX < S^, " IB.& $ F J : J; J $ D IB IB K5 FHN KH FHN & .F IB $ D HA IB1d 4+ Nf < Sc, " IB.& $ F J
D J J < Sf, : J; J
+ Nb, $ D IB J( . J 3 D I.$ &$ & >. s&& >$ s.& . F J < Sg, < Sk, " I.$ &$ $$ . I D Gb$$ < Sm, "& IB F J
D J J < Sq, : J; J
+ Nv, IB KH+FHP IB HN3D KH+ N~: IB+ N{ J( . J6b40b + O+O4 O4 O4 O4 O 4 OD FHN+ O IB K4 FHN K: FHN: IB: IB J( . J"5 $ F J D I $$
. J ]2F G"+ O+ IB1d =+ O# < Sr, " IB.& $ F J
D J J < Su,
: J; J
+ O , $ D IB IB KF FHN K< FHN K3 HHO HHO FHP K5 FHP KE FHQ & .F IB+ P $ $ Gb G .$ 6b 0b + O1+O/4 O14 OI4 Of IB1d :+ O: < Sw, " IB.& $ F J D J J < Sz,
: J; J + O6, $ D IB $
$ I . J ] D Ga < S{, < S,
< T , < T,
K= I.3F KH+ OE IB I. HHN: IB*d OA IB HM2D K8+ P"$ .D IB+ OE+ P IB1d =+ OS < T, " IB.& $ F HC D J J < T ,
: J; HC+ ON, $ D IB IB K< FHN &
$ I . J < T , .$ D J" IB/& . J J F HA D J J < T,
: J; HA+ O[, $ .D IB IB HN2D KH+ Oc"$ .D IB+ O_ IB K< FHN $ .D IB+ P $ $ Gb G3D KF+ O| IB1d :+ Or < T, " IB.& $ F H? D J J < T,
: J; H?+ Om, $ D IB < T, $
$ I . J < T,
< T, < T ,
K= I.3F KH+ O{ IB I. HHN: IB*d Ox+ P IB1d <+ P < T , " IB.& $ F H> D J J < T",
: J; H>+ P, $ D IB < T$, $
$ I . J < T',
< T), KA_D H=ZD H@ H@ < T,,
: H@; H=+ P
, KA & 0F 1F + P+ P IB K9 HHN: IB I.2F KH+ P K8 FI. IB I. HHN: IB*d P IB KA FHN: IB: I ; J + O IB KH FHM J3F 5+ PV( . J 33H5+ PD7F HA+ P01d >+ P, < T., " IB.& $ F H/ D J J < T1, : J; H/+ P(, $ D IB IB KD FHN KH FHN & .F IB@d HA IB1d >+ P: < T2, " IB.& $ F HN D J J < T5, : J; HN+ P5, $ D IB IB KH FHN FHN FHO FHO K@ HHP K5 HHP K@ HHQ FHQ FHR FHR FHS FHS & .F IB+ PU IB1d ?+ PM < T7, " IB.& $ F HL D J J < T:, : J; HL+ PI, $ D IB IB KH FHN FHN FHO K> HHO K? HHP FHP FHQ FHQ FHR & .F IB: J+ NF7D HA+ PY IB KD FHN: IB < T;, & / IB $ F HK D J J < T>, : J; HK+ P\, H?. IB D HL < T@, < TC, 7D IB+ S 6b HC0b + Ph+Pf4 Ph4 Q%4 Q D D HJ@d Id D F Iu D HE" IB $ C3H Iu+ Ps HE3h Id+ Pp Iu J HJ H Id C H Iu ( H HE+ Ps: HE.$ 8& Pl I=3d Id+ Pw Iu D HJ7$ IB.$ ( D J D F HM & A IB1F + P~ CDF F HM IB C D F Is < TE, < TH, < TK, < TN, < TP, < TS, + Q(@d I7 D Id D F Is D HE" IB $ C3H Is+ Q HE3h Id+ Q Is J I7 H Id C H Is ( H HE+ Q: HE.$ 8& Q HE3d Id+ Q Is D I77$ IB.$ ( D JfD F HM & A IB1F + Q D.Cf F F HM IB C/ D F Ir < TV, < TY, < T[, < T^, < Ta, < Td, + Q( < Tf, IB < Ti, + Q, < Tk, < Tn, < Tq, < Tt, D D 7 $ D H1 D I_3D IB+ R & / IB $ D I I I_ 73HC+ Q8: I_0h
+ Q:
C J 7 * J H0+ Q9 I_:H0: I 8& Q1+ R $ D I_ K7@fH0*d Q<6b HC0b + Q@+Q>4 Q@4 QS4 Q{ IB C D $ H D Is D D 7 K6 6 Is F7*d QD K8 7 FIv*d QG IB C F J" IB $ F I6 D I K7ZD J J I C2(Iv+ QP:H0+ QQ*d QL: H=: I ; I6+ QL+ R IB C D $ H D Is D D 7 K6 6 Is F7*d QW K8 7 FIv*d QZ IB C D J K7 & ( KH HIC & ( HIC*d Q]" IB $ F I D I K7ZD J J1F
+ Qh I C2(Iv+ Qy J:H0 ( 2HH0+ Qo( I C JIC J( C JIC+ Qy J( I C3jIC+ Qt J( C JIC J( C2*IC+ Qy J( C JIC+ Qy*d Qd: I ; I + Qc+ R IB C/ D F Ir&&
F Ir$&
. D3&C: Ir D F ID K6 & ( IB. Ir HIC*d R K8 & ( ID/( HIC*d R IB C F I\" IB $ F Ia D I K7ZD J J( I C2hIC+ R J:H0+ R*d R
: H=: I ; Ia+ R
d IB D I` I_ D J1d
+ R &
F Jf H1 I` &H F I F I F Ie J1F + R$" J.( $ fH0 I` &H FI 3f I+ R" I F I IdI FIe.$ 8( R !$ D It!$3$ I+ R(!$@ D It I2d KG+ R*!& F It2d KC+ R,!& F It2d KC+ R. K7 F It2d K>+ R0 KE F It"& $ &( j It J I7.$ 8& R1 < Tv, < Ty, < T|, , I_0d
+ R[" I_ $ I It( H H J KB J I`5h R@ KG J I`6b HC0b + RC+RA4 RC4 RK4 RR < T, < U, " J ( J IA H H@ < U, : H@; IA+ RG, + RY < U, < U , " J ( J J H H@ < U
, : H@; J + RO, + RY < U, < U, " J ( J J H H@ < U, : H@; J + RV, .$ 8& R;+ S K7 I It& F F J KB H I`5f R` KG H I`6b HC0b + Rd+Rb4 Rd4 Rk4 Ru < U, < U, " J & H J F H@ < U , : H@; J+ Rh, + S H01& + S < U , & ( < U , " J & H J F H@ < U$, : H@; J+ Rr, + S IB ( ( IC2hC+ S < U%, & ( < U(, " J & H J F H@ < U,, : H@; J+ R}, *d R[ < U-, , $
D J3d I_+ S I_ F J@f H0" J $ H0.H H0.$ 8& S < U0, < U3,
: I< J( 3d w+ Lj: J;^ It+ Li 51$ + S< U6, K2,~ p J K=x K2x Icx 2x 2x 2x I]@ 2 ~ KH ^ KI^ KK^ KL K;P 1 Gb $ h 2 @ > Gp X 0 J J
@ I] $ X J&
0 t 0 u $ r $ r X J1
$ HD $ I< @ Gc $ H@ X J; X JD $HN X JD $HN P 1 J @ > G" P JE G $HN X JD $HN X JD $HN P JF I* ( Ga P JE I* @ I/ X JD $HN P JE ] $HN X JD $HN P JG I* $] P JE I* @ I/ X JD $HN P JG I* $] P JE I* $I. X JD $HN X JD $HN X JD $HN X JD $HN X JH
( I` ( I, $ IB X J_ ( HH ( HM ( HJ X Jd (C ( D ( Is X JU
( I` ( I, $ IB X J_ ( HH ( HM $ I7 X Jd $C $ D $ Ir X Ji $C $ D X Jm ( I ( IC ( Ic X Ju ( Id ( I> ( HF X J} @ I8 X K
X K (7 $H0 (I (Ie ( I` X K (7 $H0 (I (Ie ( I` X K $7 $H0 (I (Ie ( I` X K (7 (Iv $H0 (I (Ie ( I` X K $IC $IC $H0 (I (Ie ( I` X K& $IC $IC $H0 (I (Ie ( I` X K+ X K/ $ H0 @ I8 ` 2 > KS!* UW** ,^ ,~ * x ,> < UW*< UZ p Z@ UM@@ UN@@ UN V`|+ UAP w,~ "p h a`~ + UGh ``~ + UH$ V!UId V/"+ UBP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ',> Zp @ UM\` UM < UM, ,^ ,~ SMI 1 ,> ', U: V BUM+ Uq_MI 1 ,> ', U: V BUM+ UqI5R1 ,> ', U: V BUM*\ U|7Ap X" V BUM/& p d"~ l" BUM*\ U|/& p d"~ l" $ BUM*\ U|/& p d"~ l"
BUM*\ U|Sp *\ U|/&Xp B UV@@ UW V BUM*\ U|/& p d"~ l" BUMRF UM < UM, + U8EV4i91 ,> '+ V S ,i@1 ,> '+ V _ ,i@1 ,> '+ V K>2 1 ,> '+ V K>40 1 ,> '+ V [<I71 ,> ' & V w @ )@ . " 5B V & V ,~ ` .
.4 SEQIN ^ VSEQOUT ^ VRANDOM ^ VSEQINOUT UV %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 + V;Kc3K , V;
,~ Kc3J , V; ,~ Kc3I , V; ,~ Kc3H4B VQ5@ V>5" VP+D V=U ,~ ,> ,> # $ )D /$ @,> 4d VHX $ (F) + VH5F VH5" VF"` , V+ VO# ,> < VR, W+,^ @ ,> < VS, W,^ 5& VO" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + VKc#K , V @ ,~ Kc#J , V @ ,~ Kc#I , V @ ,~ Kc#H4B W5@ Vc5" Vm+D VbUV,~ D W!$ @ W B W5" Vj#` + V, Vj!" B ,~ + Vm(BdB + Vm5B Vh W,~ +7` W+ Vv`d +D VqUV`d >@ 6W W+ Vl W`B "` + Vl/ Wid + Vx+D + VsU", Vj W+ Vm+ Vg ! ,~ x Kc 1 ,> ' p 3" W!+ W 3b W!+ W W U0,~ +D
0 ,~ D W">F W#@@ W"%" j" % Wn)/;` : XD W 5f WaF + W.& @(|h& f W" @ W W B W W" W D W @ W" W#,~ !t0 ' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> ' p 4@ W; @ W*,> < WC, W+,^ W),~ {e^b C2|p 1 ,> ' p 5` W/4@ W;+P
W< WA,~ ,~ 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@ "$ (@ . &" * WZ)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec- @ ('VARIABLE AND OBSERVATION MAY NOT BE USED TOGETHER TO ','DELETE') (' ENTIRE BANK DELETED') ('SELECT MAY ONLY BE USED TO DELETE OBSERVATIONS') ?~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 @ ` $ >. s&$ > D 5@d ` $ 2D w+ ( $ 2D x+ ( x3D s+ / $ 2D + - $ 2D + - 3D s+ : < M, , + I $ 2D + $ 2D + 2D s+ $ 3d 5+ < P, < R, , @d s D s $ D `+ I 51$ + = < U, , + I@d 6" w $ ( "
w.* .
w.J 6.$ 8& ? < X, < ], < `,
" 6.D 8 < c, < e,
" s $ F a D " w $ D 7 7(
w2j + Q
w2* + [: 78& L" 5 $ "( . $ 5.( . H k < g, < k,
< m, < o,
.$ 8& S: ; a+ K s$ 5.$ D g $ D & / s&& /& $ F _ D h.$ &$ . g D g < r, < u,
"& h F D 2d s+ |" w $ D 7 7(
w2j + p
w2* + |: 78& k $ / h. D g } & $ .& ( $ g.( . Hm*d s: 1d + | < x, < z,
& F : ; + i $ .d h; _+ c $ 3D + < |, < ~,
" 6.f s D K D L F L+ D < !, $ >. s&$ > D 5 & F @f " 5 $ F f D h/$ $$ > D 8.$ D 7.$ > D a3d s+ s F a ~@f7*d " $ F e D g( 2f a+ ) 3& 7+ ) 7 D d g( 2$+ g( F d a F j g( 3f + # g( H j d/ 8 H h"
j.
8/( . h & F7.$ 8( ': g; e+ 51$ + z" 5 $ ( . 3/( $ 5.( . h H < !, ~_H cZH 7 ( >$ . 7 < ! , : 7; c+ 4, .$ 8& - 8/ a $ F c D 77F7+ x & F ( . 40D + H ( . "5 $ D $$ . ]3D 7+ K: 8& D $ >$ . 7 z3D 7+ n ( . 6b40b + R+ N4 R4 [4 _4 c4 g4 k ( . "5 $ D $$ . ( >$ . 7 z3H]+ t: 8& U+ n & >$ . 7 z3&g+ t+ n & >$ . 7 z3fg+ t+ n & >$ . 7 z2fg+ t+ n & >$ . 7 z2&g+ t+ n & >$ . 7 z2Fg+ t: 2d 5+ r( . 33F0+ > 7@f7+ x: 2d 5+ x( . 33F0+ t+ >: 7; c+ < 8/ a $ 71H + . 8 J v: 1h >+ < ! , < !
,
* >.J /* .J .$ 8& {: h; f+
< L, !r < !, < !, < ! , < ! ,
D ! < !#, < !%,
" s $ F k D /$ $ 5.$ D @d $ D < !', < !+,
$ D h h0d >+ /7Fv+ * v.& >&& > F g3F + &. F k < !-, < !1,
g F /& $& > F 9 h v/ 9 F 6 H7: h+ h1D + 3 h/& ? h 7 H7.$ 8& - < !3, < !5,
: h0d >+ : ; k+ s$ 5.$ D 8 $ . s&$ D i" i $ . 8 H { < !8, < !;,
< !>, < !@,
.$ 8& : D s & F j F j D k < !B, < !E, < !H, < !K, < !N, $ D ` { ` Ap ,~ x 2X 0 l ` 1 > X 0 s X 0 v @ 1 ~ ^ ^ ^ }P 1 | @ > 8 h 1 @ > 8 P 1 k @ > 8 h 1 @ > 8 P 1 g @ > 8 h 1 @ > v h 1 @ > v @ 2 ~ ^ ^ ^
}P 1 $ z h 2 @ > v h 2 @ > v 8 2 ~ ^
^ ^ } |@ 1 ~ ^ ^ ^ }P 1 | @ > h 1 @ > P 2 @ > v P 1 k @ > h 1 @ > 8 P 1 { @ > h 1 @ > ` 2 > X 1 > ^ P 1 > P tl ~` 1 ^ ` 1 > !* !o** ,^ ,~ * x ,> < !o*< !q p Z@ !e@@ !e@@ !f "&`|+ !YP w,~ "p h a`~ + !^h ``~ + !_$ "&!!`d "'/"+ !YP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ',> Zp @ !e\` !d < !e, ,^ ,~ SMI 1 ,> ', !R "( B!e+ " _MI 1 ,> ', !R "* B!e+ " I5R1 ,> ', !R "+ B!e*\ "7Ap X" ", B!e/& p d"~ l" B!e*\ "/& p d"~ l" $ B!e*\ "/& p d"~ l"
B!e*\ "Sp *\ "/&Xp B !n@@ !n "- B!e*\ "/& p d"~ l" B!eRF !d < !e, + !PEV4i91 ,> '+ "!S ,i@1 ,> '+ "!_ ,i@1 ,> '+ "!K>2 1 ,> '+ "!K>40 1 ,> '+ "![<I71 ,> ' & "- w @ )@ . " 5B "" & "3,~ ` .
.4 SEQIN ^ "'SEQOUT ^ ")RANDOM ^ "*SEQINOUT !n
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
@ (' THE OBSERVATION TO BE ADDED MUST BE COMPLETE -'I4,' WAS MISSING') ('0OBS. VAR. VALUE'/) (' OBS:',I5/) ('+ ',A5,'? ',$) ('+',I5,2X,A5,'? ',$) (15A1) (' ILLEGAL CHARACTER "',A1,'" FOR FLOATING VALUE'/) (' TWO DECIMAL POINTS FOR VALUE'/) (15A1) (G) (' ALPHA VALUE MUST BE ENCLOSED IN QUOTES'/) (' 5 CHARACTER MAXIMUM FOR ALPHA VALUE'/) (5A1)(' ILLEGAL CHARACTER "',A1,'" FOR FIXED VALUE'/) (I15) S . E + 9 0 - ' I ! x X M GJ, \ ) D a" $ ( 3h a+ 9 ( H a.$ 8& 5 $ . s D y"& / a. y y F i D z" $ D e e( z
3* + E
3j + H: e8& @ < F, < I,
+ D: z; i+ ? $ >. s&$ > D w/$ $$ > D d $ >. a&$ >2D w+ `" s $ F h D z$ w.$ D | < J, < N,
$ . s/ d D y" a. d y/& . y v H7.$ 8& Z < P, < T,
: z; h+ R+ $ >. a&$ >/ w D z $ . s&$ D f s$ w.& F a" f $ . a H | < V, < Z,
s$ z.H | < \, < `,
.$ 8& h & / s s F g D z/$ $ w.$ D a" w w F f D e. a D | < b, < f,
e2D w+ s/ d1D >+ $ . s/ d D w w/& ? w v H7.$ 8& "$ . z$ z.D | < h, < l,
> e; f+ v 0 v F7*d "& . z$ z w. a. D |" z $ : | < n, < r,
.$ 8& > z; g+ r $ . w D |" z $ : | < t, < x,
.$ 8& < z, < ~,
a D 8 < , < ,
s F b D s & F e F j D k.$ >&$ > D w s/$ &$ >$ s.$ D x"& / s&& $ F t D e. s. x D ) < , <
,
e/$ $$ .$ D l.$ D j3d s+ 2 s F j l/& / j l / l$( < Hx / l$( 7 Hl.$ 8& 4: e; t+ ) s0$ + ? <
, , $ . b D v"& / a. v v F k D z.$ >&$ > D c" c.& $& >. z F w s1& + K < , < ,
" s $ H k D e/$ $ w.$ . c D | < , < ,
s1$ + V < , e < ,
+ X < , e < !,
< #, < &,
l2D 1+ ` l2D .+ ` m2D *+ ` m3D *+ > l3D /+ D e x.$ 6b 0b + g+ e4 g4 4 #@d x D d D b D c /ZD x x k3H 1+ ( H d
k3J *+ |
k2j ,+ q
k2* -+
k3J -+ t
k2J ,+ v.h c1h + x k2F ++ y: b1f + < ), x < ,,
+ Q: x1F + < -, , + Q*d i d0D + > < 0, < 4,
< 6, w < :,
+ ? l2D 1+ l2D 1+ m2D 1+ m2D 1+ n3D 1+ > l3D .+ < ;, , + Q $ D x x k3D .+ : x1d + < >, , + Q"& . x x x
1 J k.$ 8& w < A, 0_D |ZD x x < E,
: x; |+ , + ?@d d D c /ZD x x k3H 1+ 1 ( H d
k2j ,+ +
k2* -+ 1
k2J -+ ..h c1h + 1 < F, x < I,
+ Q*d %7D d+ > s2D 1+ 9"& $ k Hk/$ 8& 5 1 D l+ 3 < K, < N,
< Q, w < T,
+ ? w v F7 < V, < Y,
: e; k+ M: z; k+ C ),~ X 0 $ z P 1 | @ > 7 P 1 | @ > 7 P 1 | @ > 7 P 1 | @ > 7 P 1 | @ > 7 P 1 | @ > 7 P 1 | @ > 7 P 1 | @ > 7 P 1 + @ > 7 P 1 + @ > 7 P 1 ) @ > 7 X 0 X 0 $ z P 1 | @ > 7 X 0
$l X 0
$ z $l X 0 D @ l X 0 (k X 0 P } @ l P } (7 X 0 X 0 P # 7 (k X 0 # (k P } @ l P ( } $7 P 1 | @ > 7 @ (' THE INCORE SORT WILL NOT ACCOMODATE THE DATASET YOU'/' HAVE, WORK IS BEING DONE TO HANDLE LARGER DATA SETS'/' PLEASE CONTACT DICK HOUCHARD 3830095 TO ESTABLISH THE NEED') (' NO MAJOR TO MINOR SEQUENCE') >EN~- \ B9@d Ap $
D B
$ . D As & >. s&& > F Ah$ s1d .p+ BE < D], , + D[6d + BH < D`, , + D[" $ .( &( H B" B.* $* . J B s$ Ah.( . H B < Dc, < Dg, $* (A# HB
.$ 8& BI & / s&& >/& $ F B D B .$ > D B3d s+ B[ s F B B .$ >&$ > D Ar" $ F B D A~ /& $ Ah.& . Ar F B < Di, < Dm, $ s D A~ A~ B
1D + Bm"& . B / B B A~. " B . (A( J 7.$ 8& Bi+ Bu"& . B / B B A~. " B . *(A( J B: < D\, D~ @ 7.$ 8& Bo: A~; B+ B_"& . B / B B D7.$ 8& Bx $ >.d B ; B+ BX $ D A} D B s D A~ B2$ A~+ Cr B D Aq. A~7 .$ ( D Au@d B : B 2d + C
$ s. Au 7 F At B $ s. B 7 D B3D At+ C3$ At+ C+ C Au B 73f7+ C"& / $ s$ . Au H At s$ . B J Ar
7 L B (7 N 7 L(7.$ 8& C A~ D Ag@d B : B 2d + C"$ s. Au 7 F At B $ s. A~ 7 D B3D At+ C2d At+ CB+ C$ Au A~ 72&7+ CB"& / $ s$ . Au H At s$ . A~ J Ar
7 L B (7 N 7 L(7.$ 8& C&@d B : B 2d + C6$ s. Au 7 F At B $ s. B 7 D B3D At+ C.3$ At+ CB+ C9 Au B 73f7+ CB"& / $ s$ . Au H At s$ . B J Ar
7 L B (7 N 7 L(7.$ 8& C:"& / $ s$ . Au 7 HB.$ 8& CC+ CP"& / $ s$ . Ag H At s$ . Aq J Ar
7 L B (7 N 7 L(7.$ 8& CI"$ .D Ag@d B : B 2d + CY B F At$ s. Ag 7 F B3F At+ CR2f At+ CP+ C[ Ag 72d B+ CP: Aq@d B : B 2d + Cc B F At$ s. Aq 7 F B3F At+ C\3& At+ C[+ Ce Aq 73$ B+ C[ Ag2$ Aq+ CG" Aq. A~/ B3d + Cm A} B FAh Ag FAu Aq F B: A}+ Cu A} Aq FAh A~ FAu Ag F A~: A}+ Cu> A}4D D Ah F B Au F A~ A~/ B0$ + C B1D + B~"$ .D B: B3D A~+ Cr"& / $ s$ . B 7 HB.$ 8& C|@d B : B 2d + D B F At$ s. B 7 F B3F At+ D 3& At+ Cy+ D B 73d B+ Cy B D Aq"& / $ s$ . Aq 7 J 7.$ 8& D
"$ .D Aq@d B : B 2d + D B F At$ s. Aq 7 H B3H At+ D3& B+ D
+ D Aq B3&7+ D
"& / $ s$ . Aq
B J 7.$ 8& D+ Cy" s $ 7. s D 7.$ 8& D " s $ s. 7 H7.$ 8& D$" s $ F Ag D B /$ $ Ah.$ D As" Ah $ F B$ D A~. As D B: < Do, < Ds,
A~/$ $$ >.$ D Af/$ D B Af.$ > D B"3d s+ D7 s F B" Af/& / B" Af 7. s
/
B
(@* J 7.$ 8& D9: A~; B$+ D-" Ah $ F B# D A~/$ $$ >.$ D Af/$ D B Af.$ > D B"3d s+ DG s F B" Af/& / B" Af / B
s.
(7 J @*.$ 8& DI" B. B"1D >+ DT $ / B. B" D B
B
/& ? B
A' H@*.$ 8& DR A~. As D B: < Du, < Dy,
: A~;1 B#+ D@: B ;3 Ag+ D)Q B9,~ x B:X 0 B$ X 0 B6 P 1 B @ > A( P 1 B @ > A( P 1 B: @ > @* P 1 B: @ > @* ? SNEZ D D| p @ D{ D{A D}7 .$ ( D D|5 E D}GD D| D| D|,~ ] [ (' FOR IS AN ILLEGAL COMMAND IN A RUN'/)('+* ',$) (' ALL FOR STATEMENTS MUST PRECEDE REGULAR STATEMENTS'/) (' ILLEGAL CHARACTER "',A1,'" FOR INDEX') (' ILLEGAL INDEX NUMBER')(I1) (' INDEX',I2,' HAS ALREADY BEEN USED') (' MORE THAN 100 VARIABLES FOR 1 INDEX')(' FOR STATEMENT NOT COMPLETED') (' VALUE IN FOR STATEMENT LARGER THAN 10 CHARACTERS') (' QUOTE MUST BE FIRST CHARACTER OF STRING') (' NO CLOSING QUOTE') (' ONLY INTEGER VALUES ARE PERMITTED WHEN USING THRU') (' ILLEGAL THRU') (10A1) (I) (' YOU HAVE INDICATED TWO -, BOTH ARE NOT MINUS') (I10)(' ILLEGAL INDEX - STATEMENT IGNORED'/) (' WARNING - BRACKET ABOVE NOT INTERPRETED TO BE A INDEX') (' RESTART') (80A1) 9 (0 - F ' O ! R 0 , 8 = { 1 TOO MANY STATEMENTS PROBLEM DSK BNKPG.DAT SEQOUT DSK BNKPG.DAT SEQIN aJ||V \ Ag7D (+ A < DV, , + DQ@d Am@fA *d B + B < DY, , < DT,
+ C~ ?M )3& Ao+ B" )3f Ah+ B$ < Dc, , + C~ ?M *3F ?G+ B( < Df, < Di,
+ C~ ?M < Dk, < Dn,
$ .D ?M 97DA + B0 < Dp, < Ds,
+ C~+ ?M1)3D An+ B4: ?M1d (+ B0+ BF. 93A .$ +D ?I1d 2+ B9.< Dt, , + C~ $ 2$ 9. ?I@f.$ 2$ 9. ?I1.$ D 9 : ?M1d (+ BH & 2$ 9. ?I"( . 9 H/& 2& 9 + BE 9.f A $ 96fA + B.< Dw, , + C~ ?M )3F Ao+ B> )3F Aj+ BX )3F Am+ Bg )3F Ai+ Bm 9 1d + BR < Dz, , + C~ & t$ 9 $ $ ?I. 9 . ?M ) F
: 9; 9 + C, < E, < E,
Al Ao FA*d C $ D 9 : ?M0d (+ C) )3F Ao+ C )3F Am+ C) )3F Ai+ C! )2f Ah+ C )2& Ai+ C% < E, , + C~ 9 1D + C% < E, , + C~ 9 0d + BP ?M ) FA: 9 + C 9 1d + C < E, Al_D 9 ZD 9 9 < E ,
: 9; 9 + C-, < E , < E",
?G3d 9 + C6 D ?K 9 F ?G D 9 "& . ?G/ 9 ?G F 9 D 9 < E#, < E',
< E(, Al_D 9 ZD B B < E,,
: B;d 9 + C=, . ?I0d 2+ B7 $ :D 9 : Al;A3F Ao+ CJ"( t$ 9 & $ ?I. 9 . +A HnZD ?M ?M )2F Ao+ CW*d CT+ B )3D + D : 1d
+ C[ < E-, F6 & F ?M@f8 ?M )3F + D )2F ?M+ Cy )2f Ah+ Cc )2f Ai+ Cf < E., , "& .F + B ?M *3D ?G+ Cj < E1, , + Cy ?M < E4, < E8,
?L6DA + Cq < E9, , "$ .D + B 81& + Ct < E<, F6:8$&
. ?M H?C 8$&
. ?L H@' $
$ ?M. ?M ) F9: ?M1d (+ C]+ B < E=, , + DQ < E@, Am@f9 3FA + D ( H9 *d D+ D AmZD ?M ?M7HA + D
9 2(A + D :9 + D ?M ( H9 *d D < DS, Et $ D ( < ED, + DQ 1$ + DQ" $ F ?I D ?M6F8+ D An & $& . ?M 9 F)*d D+ DB $ D 9 D 9% ?M"8 $ F ?H D 9$$ . ?M ?C3F 9%+ D& 9$& . ?M"?C. 9% 9% 9 * $ . ?M (9 J ): 9 .$ 8& D" $ $ 9. ?M @' D 9 9 F ?L$$ 2. ?L F ?F" ?F $ 9 , t$
9 * $ ?L. . (): 9 .$ 8( D- $ $ 9. ?M ?C.$ D 9%: 9; ?H+ D $ (3$ 9 + DB3$ 9%+ D> 9 ( $ 9%. ?M 9 H): 9%: 9 + D7"& (. 9 9 Ao H).$ 8& D@"& ( $ ( D 9 9 )2D Ao+ DG> 98& DC+ DM 91$ (+ DK < EG, < EJ, @d 9 $ . 9 D C F) < EM, < EP, : ?M; ?I+ D+ D Ag,~ x 1h ) Ah 8X 0 A! X 0 A% X 0 A& X 0 A, $) X 0 A1 X 0 A, $* P A3 ) $ 9 X 0 A4 $ 9 X 0 A8 X 0 A< X 0 A? X 0 AE X 0 AI X 0 AL X 0 AQ P AS A $A P AT A $ ?G X 0 AL X 0 AU P AS A $A P AT A $ 9 P AZ A $ 9 P AS A $A x ApX 0 AZ X 0 A^ P A3 ) $ ?L X 0 AZ x ArX 0 Ad P 1 ~ At^ Au ^ AvP 2 ~ Ax^ Ay ^ AzX 1 Af @ ( ) X 1 Af @ ( ) !* Eq** ,^ ,~ * x ,> < Eq*< Es p Z@ Eg@@ Eg@@ Eh F(`|+ E[P w,~ "p h a`~ + E`h ``~ + Ea$ F(!Ebd F)/"+ E[P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ',> Zp @ Eg\` Ef < Eg, ,^ ,~ SMI 1 ,> ', ET F* BEg+ F _MI 1 ,> ', ET F, BEg+ F I5R1 ,> ', ET F- BEg*\ F7Ap X" F. BEg/& p d"~ l" BEg*\ F/& p d"~ l" $ BEg*\ F/& p d"~ l"
BEg*\ FSp *\ F/&Xp B Ep@@ Ep F/ BEg*\ F/& p d"~ l" BEgRF Ef < Eg, + EREV4i91 ,> '+ F#S ,i@1 ,> '+ F#_ ,i@1 ,> '+ F#K>2 1 ,> '+ F#K>40 1 ,> '+ F#[<I71 ,> ' & F/ w @ )@ . " 5B F$ & F5,~ ` .
.4 SEQIN ^ F)SEQOUT ^ F+RANDOM ^ F,SEQINOUT Ep %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> 'O@ Ft+ F:gR~@1 ,> '@@ Ft,> ,> @ 6 w+ FG" Ft0B + FB!"A`X#p 5@ F?/#p !" X#p + FG\p + FGa.9'1 ,> ',> ,> O@ Ft+ FG,> 6 + _ 4` FO"` Q@ ,> < Fu, ,^ ,> < Fx, ,^ *b FL+ FZ,> < Fz, ,^ 7@ Ft+ FU,> < F}, ,^ + FW,> < F~, ,^ Z 5" FZ,> < G , ,^ , 7@ Ft,
,> < G, ,^ , ,> < G, ,^ ,> < G, ,^ (@qd 1@ ,,
1@ #+ Fh0@ *+ FZ,> $< G , ,^ + FZ,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X Fp p X Fq p Fs p Fs p X Fj X ~ Fp 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 \ HO p @ G D F D F@d F D G 5D I < Nw, , + NP s1d P+ I < Nz, , + NP $ >. s&$ > D F $ s.$ D F5 $ . s&$ D F" F $ F G
H/$ $$ D F7" G
(. J 4 F7. @j # F7. * $
(3IJ 2T.$ 8& I,: H; G O , < O
, ;3D HT+ I> < O, , < Nv, U7+ NP 7 D F3 8 F G .& >&& >+F F $ F3.& $F GQ.$ &$ D H" H $ F G D H & F G " G F G D Fy" s $ F G D F+ & $ Fy 42H.+ Ic"& . H$& . Fy F# & $ Fy 2T3H3+ In 2T1f + I_ < O, , < Nu, U7+ NP F+ & $ Fy 3.& $& .F2T+ In: F+; G + IS: Fx1d P+ Ii < O, , < Nt, U7+ NP Fx & $ Fy . F4"& . H$& . Fy F#: Fy; G + IQ: H; G + IG $ >. G &$ > D F0 $ >. s&$ > D F.6f + K- < O , < O", < O&, Fx F 7 s. G H 8 < O(, < O*, ( >. s. G &( > H F*" F..( $( >. s H F/" Fx $ H G D H2d s+ J0/$ $ F..$ D F/ $ 2$ F.+ J & / F. $ . F/ H HO < O-, < O0, < O3, < O5, .$ 8& J F.. F/ D HO < O7, < O;, F/1$ >+ J< < O=, < O?, H7D#+ J* H # D GO/$ $ F0.$ D F/" F0 $ F G D Fy. F/ D HO < OB, < OE, H 2T1f + J& $2T D HO < Nr, QM < OH, < OJ, : Fy; G+ J + Jx HT v F7*d J*" F0 $ < OL, < ON, .$ 8& J-+ Jx HT v F7*d J1 $ 2$ F.+ J8 & / F. $ < OQ, < OS, .$ 8& J5 F/1$ >+ J< < OU, < OW, + J@d Fy H # D GO5D JA HT v Fv*d J?"$ . GO$ F0.$ D F/ $ D G & >/ F/ F H. H D F, $ > D G
: Fy2d F0+ Jp7F GO+ JQ. F/ D HO < OZ, < O], H 2T1f + JQ $2T D HO < No, QM $ >$ Fy D G3d G + J["& >. H. G3& G + JY & >. G / G F H@f F,+ J[ $ >. G / G D G
"& . G/ H G . F/ v J 7.$ 8& J] $ >/ F/3D H+ Jh $ . F/. H D H H/& ? H v H7.$ 8& Jf < O`, < Ob, 7D F,+ Jx F,/& / G
F," H. v J 7.$ 8& Jm+ JH $ / H. G
D H H/& ? H v H7.$ 8& Jt < Od, < Of,
: H; G + J"$ . F D F 1$ + K" F $ F5. H HO < Oi, < Ol,
< Oo, < Oq,
.$ 8& J} F5. F D HO < Os, < Ow,
s3D Fx+ K "( $ F .$ . D G s.$ D F5 G1d + K < Oy, < O{,
$ D G F5 #.& && F F . GQ F HO < O~, < P,
" F .& $& .# F GL HS & $ G.& ( $ GL.( m H.*d K: G: F53d Fx+ K
< P, < P, < Nn, U7 Fx D s G .f s ( H K H L D L H j H j F k < P, < P , < P, < P, H G+ NP & . s. G $ 1d 2d+ K4 < P, , < Nm, U7+ NP" $ F H D H" 1F + KA 6F#+ K= < P, < P, < Nl, U7+ NP H # FFy 2T FF + KB HOfFy: H; H+ K6 < P , & / Fx&& >/& $ ( >. H F+3h Fx+ KJ Fx J F+ < P , "* . / F+ J H H Fy Fy < P", : Fy; H+ KN, < P$, "* . / F+ J H H Fy Fy < P&, : Fy; H+ KV, .$ >8& KG < Nk, U7 s. G $D GM3& . "F F4$ $D F8" s $ / . F8.H F7.D 4.$ 8& K`" F. $ ,F F- D H & > F G "( . H$( >/$ $ GM. D F8" G 7 J 4.$ 8& Kw+ L"& . H$& >"$ . Fy$ GM. D F8"$ . H$$ > D F-" G . F-HJ34.$ 8& L: Fy; F,+ Kl: H; F-+ Ke" F0 $ F F) D H & > F G + L" H.& $& >. G "F G $ F F( D Fy"Fy1F + L' Fy/& $ F0.& . H F G < P-, < P1, F 1f + L $F D HO < Ni, QM"& . H$& >"$ . Fy$ GM. . s D F8" G 7 J 4.$ 8& L": Fy; F(+ L+ L3"$ . H$$ > D F-"& . H$& >"$ . Fy$ GM. . s D F8" G . F- J 4.$ 8& L/: H; F)+ L $ GM. s D F8" G $ . F8 D 4.$ 8& L7 < Nf, Se $ . s D HO < Nc, Se $ D H. s D Fy" $ D F+ F+/$ $ GM D F8. H D H F8. Fy H F4 42j 4+ LU 43* 4+ LW: F+8& LA H $ GM. H 4 D(4. GM $ GM. Fy 4 D(4 $ GM. Fy@f4: H2j s+ Lb: Fy2d GM+ L]+ L?: Fy2d GM+ L]+ L? H $ GM. H 4 F4. GM@f4: H2d s+ Lb+ L? H $ GM. H 4 F4. GM@f4: H3d s+ L] $ . s D Fy $ GM. Fy7D4+ Lk H@f4. GM $ GM. Fy 4 F4: H: Fy3d GM+ Ld"& . H F F < N`, Se < P3, " F $ 4 H F+ . GM (4 J4 . GM H(4.$ 8& Lq & / s&& >/& $ F F3 D Fy.$ > D F13d s+ L} s F F1 Fy&$ >$$ > D H Fy/& / F1 Fy . GM" H.J 4.$ 8& M Fy D F < N], Se $ >.d Fy; F3+ Lz $ . s D Fy F 3d s+ M
< NZ, Se"& . Fy/ F Fy"( . &( >$( > H F7 . GM"
F7.
L(4.$ 8& M & / F && >/& $ F F1 D Fy.$ > D F13d F + M F F F1 Fy/& / F1 Fy 4.( >&( > H H4H M!" H.* $* >.J4 * / Fy. J F7
4 L(GS
.
GM
04FL(G 8& M < P8, < P:, < P<, < P>, < PA, < PC, $ >.d Fy; F1+ M < NY, U7 < PE, & / Fx&& >/& $ ( >. H F+3h Fx+ M7 Fx J F+ < PJ, "* . / F+ J G H Fy Fy < PL, : Fy; G+ M;, < PM, "* . / F+ J G H Fy Fy < PO, : Fy; G+ MC, .$ >8& M4 < PQ, < PS, < PX, < P[, Fx D 7 F F 8 < P^, < P`, < Pb, .& >&& > F F" Fx $ F G D H" F $ F G D Fy/$ ( . .& F H < Pg, < Pk, .& F HO < Pm, < Pq, H.$ D HO < Ps, < Pw, H2d s+ Mr Fy2f F.+ Mr/$ $ F..$ . Fy D H < Py, < P}, $& >3f s+ Mt" Fy.$ $$ >. s D H.$ D H H/& ? H v H7.$ 8& Mo+ Mt HT v F7*d Mr H7F#+ N #/& $ F0.& F F/@f H & > F H$ Fy3f F + M} & / Fy$& >. F F H" H $ F Fw D F+7FGS+ N F83F H+ N F8 F H. F/ F F. < P, < Q, F+ GS,v3F v+ N+G 2T1h + N &2T1F HO+$G $2T D HO < NT, QM < Q, < Q, : Fy; G+ MV: H; G+ MT"$ . F D F 1$ + N&" F $ F5. H HO < Q , < Q < Q, < Q, .$ 8& N F5. F D HO < Q, < Q, s3D Fx+ NB"( $ F .$ . D G s.$ D F5 G1d + N3 < Q, < Q , $ D G F5 #.& && F F . GQ F HO < Q , < Q", " F .& $& .# F GL HS & $ G.& ( $ GL.( m H.*d N<: G: F53d Fx+ N/ < Q%, < Q', < Q), < NS, U7 Fx D s F F s( H K H L D L H j H jF k< Q,, < Q/, < Q2, < Q5, H G HO G Ap ,~ x 2` 7 HO HQ HQ` 7 HO HP HRx 1X 5 GM HR Fy F X 5 GM HR F F1X 5 GM HR HQ sX 5 GM F4 HO GMX 5 GM F4 HQ s` 7 HO HQ HQx 1x 2x 2x 2` v HO HQ HQ` 7 HO HQ HQx 2x 2x 2X 0 H X 0 H P 1 HO @ > 7 0 2 ~ HUP ^ HV F ^ HX HS HQP 2 HQ @ > 7 X 0 H! P 2 HO @ > 7 X 0 H7 X 0 H @ 1 ~ HY^ HZ^ H\ ^ H] HSP 1 HQ @ > 7 h 1 @ > 7 P 1 HO @ > 7 h 1 @ > 7 P 1 HO @ > 7 h 1 @ > 7 P 2 HO @ > 7 h 1 @ > 7 h 1 @ > 7 h 1 @ > 7 h 1 @ > 7 P 2 HO @ > v h 1 @ > 7 h 1 @ > 7 P 1 HO @ > 7 h 1 @ > 7 P 1 HO @ > 7 h 1 @ > 7 P 2 HO @ > v h 1 @ > 7 X 1 > H^ H`P 1 > HbP tl HUX 1 ~ Hc^ Hd` 1 > HfX 0 H= ^ I ` 1 > I
@ (I5) (F5.0) (5A1) . 9 0 - ] d #SC` , X ` G:=[r \ QF !p @ Q9 p @ QC p B Q: p D Q< & > F Q@1D B Q@ & F Q90@ + QV & F Q90@
+ QX & F Q90@ + QZ & F Q90@ + Q\ & F Q90@ + Q^ & F Q9 Q:0f >+ Rp" Q@/& . Q: Q: F Q? D QC. Q9 3F Q8+ Rn6b Q90b + Qj+Qf4 Qj4 R 4 R4 R.4 RS4 RX QC. Q9 D Q8 Q83$ QJ3d QI+ Qn+ QyD D Q80dO+ Qr" 1& '+ Qt QC. Q9 Q8 H + Rn QC. Q9@f QC. Q9 < Rq, < Ru,
+ Q~ QC. Q9@f QC. Q9 < Rv, < Rz,
QC. Q9 < R{, < R,
Q@2D QL+ R QK Q@ FQ?*d R QL D QB+ R QC. Q9 < S, < S,
+ Rn QC. Q9 D Q8 QC. Q9F Q8 F+ Rn QC. Q9 3D QL+ R( QC. Q9 < S, < S ,
QKZD Q; Q; Q@3H QI+ R Q@3H QL+ R Q@3H QF+ R Q@3( QH+ R Q@3h QH+ R QC. Q9
Q8 J'+ Rn*d R QB2D QL+ R%"& $ Q? HQ@/$ 8& R" QL D Q@+ R QC. Q9 < S
QC. Q9 < S, < S,
QC. Q9 Q8 F+ Rn QC. Q9 3D QL+ RJ QC. Q9 < S, < S ,
"& $ F Q= D Q; Q@3F QI+ RA Q@3F QL+ RA Q@3F QF+ RN Q@3F QJ+ RN Q@3f QH+ R> Q@3f QH+ RA QC. Q9 Q8 F+ Rn: Q;; Q=+ R5 QB2D QL+ RH"& $ Q? HQ@/$ 8& RE QL D Q@+ RB < S , < S",
< S$, QC. Q9 < S(,
+ Rn Q;1D + R> Q;/& Q; QL HQ@.$ 8& RQ+ RB QC. Q9d D Q8 QC. Q9 Q8 F+ Rn QC. Q9 D Q80dO+ R\" 1f '+ R_ QC. Q9 Q8 H + Rn QC. Q9@f QC. Q9 < S), < S-,
QC. Q9 < S., < S2,
Q@2D QL+ Rk QK Q@ FQ?*d Rh QL D QB+ Rf QC. Q9 < S4, < S8,
: QC; Q?+ Qc QF,~ P QD $ Q8 P QD ( Q8 P QE @ Q@ P QE @ Q@ P QE @ Q@ P QE @ Q@ P QD ( Q8 P QE @ Q@ P QE Q8 @ Q@ P QD Q8 $ P QD $ Q8 P QE @ Q@ P QE @ Q@ 39 g?@ \ Sc !p @ SO p @ SO p @ SE p B SD p D SU SE/& F SX & F SP B SS D SP SS2$ SP+ Tg SS D SC. SP7 .$ ( D SFOd SW: SW2d SX+ T $ SO. SF. SO F SE SW$ SO. SS. SO D SV3D SE+ St3$ SE+ T "& / SX $ $ SO. SF H SF
$
SO.
SS J SD. SO
' L SV SF. SO. SO / N' SD. SO L'.$ 8& S~ SP D S:Od SW: SW2d SX+ T8$ SO. SF. SO F SE SW$ SO. SP. SO D SV3D SE+ T 2d SE+ T8"& / SX $ $ SO. SF H SF $ SO. SP J SD. SO
' L SV SF. SO. SO / N' SD. SO L'.$ 8& TOd SW: SW2d SX+ T)$ SO. SF. SO F SE SW$ SO. SS. SO D SV3D SE+ T 3$ SE+ T8+ T, SF3D SS+ T8 < U, Uy"& / SX $ $ SO. SF H SF $ SO. SS J SD. SO
' L SV SF. SO. SO / N' SD. SO L'.$ 8& T-"& / SX $ $ SO. SF. SO ' HSX.$ 8& T9+ TJ"& / SX $ $ SO. S: H SF $ SO. SC J SD. SO
' L SV SF. SO. SO / N' SD. SO L'.$ 8& T?"$ .D S: D SW: SW2d SX+ TR SX F SE$ SO. S:. SO F SV3F SE+ TK2f SE+ TJ: SCOd SW: SW2d SX+ TZ SX F SE$ SO. SC. SO F SV3F SE+ TS3& SE+ TR S:2$ SC+ T>" SC. SP/ SS3d + Tc SP SS FS: S: FSF SC F SS: SP+ Tj SP SC FS: SP FSF S: F SP: SP+ Tj> SP4D U S: F SS SF F SP" SS. SP0$ + Sp SS3D SD+ Sn"$ .D SS: SS3D SP+ Tg"& / SX $ $ SO. SS. SO HSX.$ 8& TrOd SW: SW2d SX+ To SX F SE$ SO. SS. SO F SV3F SE+ Tv3& SE+ To SS D SC"& / SX $ $ SO. SC. SO ' J .$ 8& U "$ .D SC D SW: SW2d SX+ U
SX F SE$ SO. SC. SO H SV3H SE+ U3& SV+ T~"& / SX $ $ SO. SC. SO SX J .$ 8& U+ To Sc,~ x Sd!* U3** ,^ ,~ * x ,> < U3*< U6 p Z@ U)@@ U*@@ U* Uj`|+ U P w,~ "p h a`~ + U#h ``~ + U$$ Uk!U%d Uk/"+ U P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> ',> Zp @ U)\` U) < U), ,^ ,~ SMI 1 ,> ', U Um BU)+ UM_MI 1 ,> ', U Un BU)+ UMI5R1 ,> ', U Up BU)*\ UX7Ap X" Up BU)/& p d"~ l" BU)*\ UX/& p d"~ l" $ BU)*\ UX/& p d"~ l"
BU)*\ UXSp *\ UX/&Xp B U2@@ U3 Uq BU)*\ UX/& p d"~ l" BU)RF U) < U), + UEV4i91 ,> '+ UeS ,i@1 ,> '+ Ue_ ,i@1 ,> '+ UeK>2 1 ,> '+ UeK>40 1 ,> '+ Ue[<I71 ,> ' & Ur w @ )@ . " 5B Ug & Ux,~ ` .
.4 SEQIN ^ UlSEQOUT ^ UmRANDOM ^ UoSEQINOUT U2 %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> 'O@ V6+ U}gR~@1 ,> '@@ V6,> ,> @ 6 w+ V " V70B + V!"A`X#p 5@ V/#p !" X#p + V \p + V a.9'1 ,> ',> ,> O@ V6+ V ,> 6 + _ 4` V"` Q@ ,> < V8, ,^ ,> < V;, ,^ *b V+ V ,> < V<, ,^ 7@ V6+ V,> < V?, ,^ + V,> < VA, ,^ Z 5" V ,> < VB, ,^ , 7@ V6,
,> < VD, ,^ , ,> < VG, ,^ ,> < VJ, ,^ (@qd 1@ ,,
1@ #+ V+0@ *+ V ,> < VK, ,^ + V ,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X V3 p X V4 p V5 p V6 p X V- X ~ V2 p x