Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/freq.exe
There are 2 other files named freq.exe in the archive. Click here to see a list.
?p ` ?x MJ. Kb)G|x$G` INX Q F: { A) '[ {B E@
u '| '} Q O*> ` kPp N] kHO ('-*** W.M.U. FREQUENCY COUNT PROGRAM V2 ***'//) ('-This BANK was created with an experimental version of the BANK.'/' Please update the Bank by running BANKUP from area 220,220.'/' If you are not responsible for the BANK, contact the owner and'/' ask him to run the updating program.'/) ('-ERROR: Number of variables ',I6,' outside allowable range, Try again'/)('-') a=` (BANK T DATA TTY FORMA DUMP ) { H{ V2 DSKC (80A1 + -< H Od 8"$ D 9 $ D 0 $ D 0@f 8 ( H 7 F : k F - n F - D < , , < ^, Jj < Z, -' < U, -' : D 1@f 72D j+ f F 7 < H, ! k o F-*d @d 6 +0D + < H, 3E $ . 26b 0b + +
4 4 < b, < f,
A3D n+ < h, , < H, NX = D : > D ; ? D ; ? D < @ D < @ D = < T, 7[ i D h D j D i D m o F*d + / < S, F ,1D + " $ D $ 2D ,+ % < Q, CN 1D + ( < O, 3v+ / o D l D l o F*d *" 7 $ 4 ( H =.$ 8& - 7( D 7 < L, M~7@ <+ : < k, < n,
6$ 9+ 6 < H, NX $ . 26b 0b + :+94 4 : D >. 7 D =. 7 D 9. 7 D 8 > &= F d = &= F d 9 &= F e $= D e < I, z < p, , + } < H,
X 7 d d e e` 7 < : =h 7 m h * h x 7p g 7@ f 0 8 1 2 4 5 2@ g 0 8 1 3 4 5 2x 9X 8 ? P 0 g @ > = X 8 D X 8 \ $ 7 X 8 c FREQ F, I, A-TYPE FREQUENCY COUNT PROGRAM F A I ('-',29X,'OPTIONS AVAILABLE:',2X,'SELECT',3X,'HEADER',3X,'MISS',3X,'FORMAT'/30X,'OPTIONS USED',5X,':',4X,A3,6X,A3,5X,A3,5X,A3/'-',29X,'VARIABLES USED:'//((37X,A5),9(2X,A5))) ('-')(30X,'NUMBER OF ',A1,'-TYPE VARIABLES =',I7) ('-',16A5)(' Number of ',A1,'-type variables =',I7) (30X,'NUMBER OF OBSERVATIONS USED=',I7/)(' Number of observations used=',I7/) ('-')('-Please wait, your data is being processed'//) ('-ENTER DATA')(' Format assumed: (80A1)') ('-ERROR: Illegal character in observation:',I7/9X,'Program proceeds ignoring the observation'///) ('-***** VARIABLE ',A5,' HAS ',I3,' VALUE',A1,' *****'/) (' NOTE: More than 600 symbols encountered in variable ',A5,','/8X,'No further symbols will be considered, but the counts for'/8X,'those symbols in the table will be accurate.'/) S YES TTY @ NO x .TMP .001 MISSIp 00000h 00001SEQOUT SEQIN DELETE DELETE SEQOUT SEQIN DELETE RENAME SEQIN DELETE [Mk \ d p @ u #p B w #p B y #p B #p B $
D t $ D t" u $ . w
Q J' . y
J' .
q J'.$ 8& 13D f+ : 8 < F, B" , $ g Hs7H*+ f Hs.$ 8& < G, " , $ F D < J,
: ; + " u $ F D . w < K,
: ; + , *0D @d y *0D + " < E, >S k@f}*d " g D k" u $ . ' H
:
}.$ 8& % 13D f+ 2 < M, , k7F}+ 1 < P, < S,
< U, < X,
*d ,+ = < Z, " 6 $ F D < ],
: ; + 5, k7F}+ < < ^, < a,
*d 9 $ . 26b 0b + A+?4 4 A $ >. ;&$ > D /$ D { < c, , 7d y+ 1D + N j D p h D q < C, J{ $ 3D + M.d p+ J < f, " $ F
D "& > $ F
D & F$@h F z: 2d y+ y/( $ & . . F 3F z+ ] < j, < n,
F z F "U $ D y6b 0b + e+a4 e4 j4 o4 t4 y4 ~O (
$ . y
(s2J @ 5$ + O (
$ . y
(s3j @ 5$ + O (
$ . y
(s3* @ 5$ + O (
$ . y
(s2* @ 5$ + O (
$ . y
(s2j @ 5$ + $
$ . y s3H+ @h$ 3D y+ _2H_+ T: + U2H y+ 2D y+ ( H$+ O
_3J_@ 5( T+ : y8& `: ;
+ R 3D 0D + + < p, < r,
: ;
+ P < u, < w, $ D j"$ >$ {. ; D |" u $ F D @f x ( > H x. y /( $ .( H F k F l 1d + 6" { $ F D & F i. D < {, < ~,
7D y+ 2 < , < ,
< @, !7d j+ 5.D x < >, "+ 5 $ > D j.D x < <, ": ; + ' $ D i | F x . y $ .& F < , < ,
7f y+ F2$ + B < , <
< , < 9, !7d j+ I.D x < 7, "+ I x D j.D x < 5, " 0D + S < , < ,
13D f+ P < , < ,
x0f 3D f+ S < !, BC $ 3$ x+ X3D y+ 1F + < , + f x!$H D $ D r =2F k+ e i F =3$ k2D ++ b" i. xh !&H F & F r2D ++ e & F r" k $ hi H.$ 8& f k D | k1d + l e D | . D < 4, ( $ . 73d 7+ r < !, BC $ .D 7 < , . w < !,
l1f ,+ ~. 73d 7+ z < !, BC $ .D 7 < #, . w < &,
$ . 6b 0b + + 4 4 4 < 2, $l+ < 0, &[+ < ., # u3D + $ . 73d 7+ < !, BC 71D + $ .D 7 < (, , : ; + 7D y+ 1D + < +, + 13D f+ < -, , + < 0, , 0D + < 3, , $ D D $ S& u D @d k D l D x D u D j" u $ . @j'.$ 8& $@d {" $ F s D /$ $ u.$ D $ u D < 6, "& . / F D s s < 9,
: s; + 0, + 8 $ . x D s < ;, < >,
+ ,: x $ 2$ y+ r D $ D r: 2d y+ q"& . .y F s F z"U $ D }6b z0b + G+ C4 G4 L4 Q4 V4 [4 `O (
$ . }
s
(2J @ 5$ h+ cO (
$ . }
s
(3j @ 5$ h+ cO (
$ . }
s
(3* @ 5$ h+ cO (
$ . }
s
(2* @ 5$ h+ cO (
$ . }
s
(2j @ 5$ h+ c $
$ . } s 3H+ h@d r 3D y+ q _2H_+ <: + d U2H }+ p2D y+ l $ D r+ , O
3J@ 5( <+ k: }8& B r1D + ,: {: ;k s+ ) {$ u D j {.D u0d + $ D i< ,, " l F 6b 0b + + }4 &4 C $ D 7d {+ C$ u D j {.D u1d + x i D q l D p: p < +, J{ 0D + < ?, 0D +
< L, < N,
hZD s: v2f k+ # s
s J =
1 Ji*d : ; + < ), "@d v" k $ : v0h >+ *
= J s
i J 1+ 1 < P, < R,
< U, < W,
= H s i H 2 ( H v.$ 8& & . l F7d v+ 9 < Y, < [,
< ^, < `,
: ; + $ 2D + = < b, < e, D j p Fq*d ?6b 0b + C+ B4 &4 C 13D f+ G < h, < k,
3D f+ I < !, BC < l, < o,
7d + & 2& u+ N < q, d !(H H =3D k2F ++ U / ih !$H D @d " u $ H w D . F {: . 0d , $ , D k & 3& u+ b" k $ hi H.$ 8& _+ o@d < u, < w,
< y, < {,
hZD s: 2f k+ o s
s J =
1 Jiji
J*d g3& k+ c $ D r k F |2$ k+ s e F | =2F k+ x & F r i F =2D ++ x & F r < (, ( $ . 73d 7+ | < !, BC $ .D 7 < ~, . w < ,
. 1f ,+ . 73d 7+ < !, BC $ .D 7 < , . w < ,
$ . {6b 0b + +
4 4 4 < &, #+ < $, $l+ < ", &[ 3D u+ $ . 73d 7+ < !, BC 71D + $ .D 7 < , , : ; w+ X u1d + < , d u Ap ,~ h = i h = i h = i x {h = ip p h = ih = i h = i h = i x h s = ih 2 = iX j x 2 s %h s = ih 2 = iX j x 2 s %p p x ux uX 0 $s $ X 0 & X 0 & $
$} X 8 , $
$} X 8 + $- X 8 , $
$} X 8 9 H t P pH - ^ l h -P 0 @ > s h t @ > % h t H t P pH - ^ n h -P 0 @ > s h t @ > % P 0 @ > s h t @ > % ` t X 8 4 $ x X 0 0 $ x ` t > oX 0 L $ $ k ( | X 0 R $ X 0 8 ` t > pX 8 9 X 8 > X 8 ? X 0 4 ( $ X 8 B
$ s H t P p ^ rH - h -H t P q ^ sH - h -h t @ > s h t @ > 2 h t @ > s h t @ > 2 h t @ > s h t @ > 2 ` t > tX t > vP pX 0 0 $ X 8 4 $ H t P q ^ wH - h -h t @ > s h t @ > 2 X 0 L $ $ k ( | X 0 R $ X 0 8 ` t > x SELECHEADEMISS FORMA$ (' OPTIONS?'/) (5A1)('-ERROR: Option code "',A5,'" does not exist, Try again'/)('-WARNING: Cannot use FORMAT with a data BANK'/9X,'Program will ignore this option'/) ('-Options available are:'//' CODE DESCRIPTION'/1X,4('-'),5X,11('-')/' SELECT Option to consider only those observations meeting user'/10X,'specified criteria'/' HEADER A line of at most 80 columns to be used as HEADER'/' FORMAT Option to enter own format, Default: (80A1)'/' MISS Missing data will not be in calculations of percentages'/1X,12('-')/' ALL All of the options listed above'/' NONE None of the options listed'/' SAME Maintain the options used in the previous run'//' Enter the desired options in a line separated by commas.'/) S E ALL * HELP A , X h M $NONE C%w \ ! < !d, , < !b, IQ 0D + ! < !a, NX 2D !+ ! 2D ! + ! 2D !
@f**d ! "& $+$ $ D ! 2D !
+ !7*d !#@d :" !3$ +F !5 D ;0 +F !:3F !: F 7+ !O !
3F !
+ !\3F !+ !_2F ! 3F !
+ !S" , $ D 3
3
( ;3J + !>: 38( !7 < !m, < !p,
6$ 9+ !2< !a, NX2$ 2D 2+ !A+ !33D ,+ !B 3 & F* 20D + !G 32D ,+ !G < !q, , : & 3&
+ !7*d !M@d :: ;;F 5+ !'7d :+ ! $ ,D , " $ ( H*.$ 8& !Y+ ! < !w, , 6$ 9+ ! < !a, NX !,~ h ! X 8 > P ? @ 7 X 8 @ $ X 8 F X 8 F X 8 O 8 a 0 p @ !{ p @ !z #p B !| #p B !{ #p B !}@d !{" !z $ . !} '1H + " : !{. !|
.
!{
/ J'.$ 8& " !{ Ap ,~ BLANK G?-m \ " !p @ " !p @ " !p @ " l0d , $ , D k5d "& & F k F l " i. " ' H 2H "+ "" " H " F 2& j+ "m j.h i2h j+ "m i/ j& j/& i F " D ". " F " $ D "2F "+ ". " H " "2F k+ "3 " 2F k+ "< ".d + "k " 2D k+ "6 $ D " "2d k+ "E. " 3F "+ "J ". " 3$ "+ "L l0$ ,+ "j"& / k. " k . "
' J . "
' J /$ 8& "@: k: l ". " & F ". " " F+ "k ". ":+ "k k. " 2d "+ "W k. " 3$ "+ "S k. ":+ "k l0$ ,+ "j $ . k D "+ "E " D " k D " ". "7 .$ ( D ". " 3F "+ "J ". " 3d "+ "a " D " ". " 2$ "+ "e " D "" ". " D "0d + "Y " F "1$ : "+ "< $ , D l j.d "; "+ "* ",~ - (4(2A5,'VALUE',4X,'FREQ PERCENT')) (4(8X,23A1)) (8X,A5,'NG',I8,F7.2,'%',3(1X,F14.3,I8,F7.2,'%')) (8X,A5,'NG',I8,8X,3(1X,F14.3,I8,F7.2,'%')) (2(1X,F14.3,I8,F7.2,'%'))(4(1X,F14.3,I8,F7.2,'%')) ~H TTY gep \ # !p @ "z !p @ "t !p @ "x $ . 73d 7+ # < $, BC $ .D 7 < $, " m( $ F "t D "p < $,
: "p; "t+ #, < $, " m $ F "s D "n #_D "sZD "p < $,
: "p; "s+ ##: "n; "s+ #!, $ D "w6b r0b + #,+#*4 #M4 #,4 #6 < $, " m $ F "r D "x "x o. "z o. "t
o.
"x < $,
: "x; "r+ #/, + #I k0d + #< < $ , p. "z p. "t < $ ,
+ #I < $", p. "z p. "t < $%,
& / m $ F "r D "x "x o. "z o. "t
o.
"x < $',
: "x; "r+ #B, : 7 m3D k+ $
"w3D m+ $ $ D "w 12D #+ #_ < $*, "& / m. "w "w F "q D "o" m $ F "q D "x "x "o. "z.o "o. "t.o
"o.
"x.
o < $-,
: "x; "q+ #U: "o; "q+ #S, + $"& / m. "w "w F "p D "o: 73$ 7+ #u < $, BC $ .D 7 < $/, " m( $ F "w D "p < $2,
: "p; "w+ #i, < $4, " m $ F "v D "n #_D "vZD "p < $7,
: "p; "v+ #p: "n; "v+ #o, < $8, " m $ F "u D "x "x "o. "z.o "o. "t.o
"o.
"x.
o < $;,
: "x; "u+ #x, : "o; "p+ #b7D l+ $
< $>, " l $ F "u D "y "y o. "z o. "t
o.
"x < $A,
: "y; "u+ $, : 7 #,~ X 0 "z ( "o X 0 "~ ( "y X 0 " ( $ (( X 0 # ( $ X 0 # ( $ ( $ (( X 0 # ( $' (/ X 0 "z ( "o X 0 "~ ( "y X 0 # ( $' (/ X 0 # ( $' (/ ----- (5A1)(5(A1,'SYMBOL FREQ PERCENT',2X)) (1X,4A5,4(3X,4A5)) (1X,A5,'NG',I5,F7.2,'%',4(3X,A5,1X,I6,F7.2,'%')) (1X,A5,'NG',I5,8X,4(3X,A5,1X,I6,F7.2,'%')) (3(1X,A5,I7,F7.2,'%',2X))(5(1X,A5,I7,F7.2,'%',2X)) TTY X gf \ $f !p @ $Q !p @ $I !p @ $P" l $ F $H D $Q. $Q F $DA $i3F $j+ $} $DA $g3D $h+ $} $DA $k3D $i+ $} $DA$ 1D + $} $DA$ 0D + % < %z, < %~,
$j $J2F $I+ % $k F$J*d $ $Q. $Q < & , < &,
: $Q; $H+ $r $ . 73d 7+ %
< %y, BC $ .D 7 < &, " m $ F $G D $D < & ,
: $D; $G+ %, < & , " m( $ F $G D $D < &,
: $D; $G+ %, $ D $O6b r0b + % +%4 %=4 % 4 %& < &, " m $ F $F D $Q $Q o. $Q o. $I
o.
$P < &,
: $Q; $F+ % , + %9 k0d + %, < &, p. $Q p. $I < &,
+ %9 < &, p. $Q p. $I < & ,
& / m $ F $F D $Q $Q o. $Q o. $I
o.
$P < & ,
: $Q; $F+ %2, : 7 m3D k+ %x $O3D m+ %m $ D $O 12D $h+ %M"& / m. $O $O < &!, "
m ( J $E H $Q $Q
.
$Q.
o
.
$I.
o . $P. o < &$,
: $Q; $E+ %D, .$ 8& %A+ %m"& / m. $O $O F $N D $C: 73$ 7+ %` < %y, BC $ .D 7 < &', " m $ F $N D $D < &*,
: $D; $N+ %W, < &+, " m( $ F $M D $D < &.,
: $D; $M+ %], < &0, " m $ F $J D $Q $Q $C. $Q.o $C. $I.o
$C.
$P.
o < &3,
: $Q; $J+ %c, : $C; $N+ %P7D l+ %x < &5, " l $ F $J D $Q $Q o. $Q o. $I
o.
$P < &8,
: $Q; $J+ %q, : 7 $f,~ P $R $D @ $K P $R @ $K X 0 $R ( $D X 0 $V ( $P X 0 $X $ $ (( X 0 $] $ $ X 0 $] $ $ $ $ (( X 0 $a $/ $7 (? X 0 $R ( $D X 0 $V ( $P X 0 $d $ $' (/ X 0 $d $ $' (/ - (5(A4,'VALUE FREQ PERCENT '))(5(2X,22A1)) (3X,A5,'NG',I6,F7.2,'% ',4(I9,I6,F7.2,'% ')) (3X,A5,'NG',I6,9X,4(I9,I6,F7.2,'% ')) (3(1X,I9,I6,F7.2,'%')) (5(1X,I9,I6,F7.2,'%')) ~P ~X TTY gO \ &X !p @ &F !p @ &A !p @ &D $ . 73d 7+ &b < 'X, BC $ .D 7 < 'Y, " m $ F &@ D &< < '\,
: &<; &@+ &f, < '], " m $ F &@ D &; &Y_D &?ZD &< < '`,
: &<; &?+ &m: &;; &@+ &l, $ D &D6b r0b + &v+&t4 '4 &v4 ' < 'b, " m $ F &? D &E &E o. &F o. &A
o.
&D < 'e,
: &E; &?+ &y, + ' k0d + ' < 'g, p. &F p. &A < 'j,
+ ' < 'l, p. &F p. &A < 'o,
& / m $ F &> D &E &E o. &F o. &A
o.
&D < 'q,
: &E; &>+ 'm3D k+ 'V &D3D m+ 'K $ D &D 12D &Z+ ') < 't, "& / m. &D &D F &> D &;" m $ F &= D &E &E &;. &F.o &;. &A.o
&;.
&D.
o < 'w,
: &E; &=+ ' : &;; &>+ ' , + 'K"& / m. &D &D F &= D &;: 73$ 7+ '? < 'X, BC $ .D 7 < 'y, " m $ F &C D &< < '|,
: &<; &C+ '3, < '~, " m $ F &C D &; &Z_D &BZD &< < (,
: &<; &B+ ':: &;; &C+ '9, < (, " m $ F &B D &E &E &;. &F.o &;. &A.o
&;.
&D.
o < (,
: &E; &B+ 'B, : &;; &=+ ',7D l+ 'V < (, " l $ F &A D &E &E o. &F o. &A
o.
&D < ( ,
: &E; &A+ 'O, : 7 &X,~ X 0 &F ( &< X 0 &I ( &E X 0 &K $ $ (( X 0 &O $ $ X 0 &O $ $ $ $ (( X 0 &S $ $' (/ X 0 &F ( &< X 0 &I ( &E X 0 &V $ $' (/ X 0 &V $ $' (/ TTY ` g'TP \ ( p @ (5` ( $ D m 13D (+ ( $ D m+ ( $ D m 13D (+ ( $ D m k3$ m D m k& m D l k& m D m k/$ . m& m D ( ( m Fm l1& + (( ( Fm*d (%@d p n D p $ 2$ m+ (4 & / m $ F ( D (@fo" (.& $ (
m.J o.$ 8& (0: (; (+ (. (,~ ('+INPUT? (for help type HELP) '$) ('+INPUT? ',$) ('+OUTPUT? (for help type HELP) ',$) ('+OUTPUT? ',$)('+Either a colon was missing or the file name',' is too long'/) (80A1) ('+Device ',A6,' does not exist'/) ('+Device 'A6,' cannot do input'/)('+Device ',A6,' cannot do output.'/) ('WMU',I3,'.',I3) ('+Only a /COPIES switch may follow a LPT:'/)('+Illegal character "',A1,'" in COPIES switch'/) ('+Copies must be between 1 and 63.'/) (I2) ('+Only switch available if for the LPT'/) ('+Non-directory devices require no additional information'/) ('+File name too long'/) ('+Character"',A1,'" is not valid in a file name'/) ('+Only one period is allowed in the file name.'/)('+BANK files must be read from the disk'/) ('+Bank files can not be used for output.'/) ('+PROJECT or PROGRAMMER number cannont be longer'/' than 6 characters'/) ('+Illegal character "',A1,'" in PROJECT-PROGRAMMMER',' number'/)('+ Comma missing between PROJECT and PROGRAMMER number'/) (O10)('+Nothing should follow the closing bracket for the',' PROJECT-PROGRAMMER number'/) ('+File not found or protected'/) ('R ',4A1,4X) ('+You must have answered this question in this',' program previously to use "SAME" now.'/) ('+You cannot do a /OUT while answering a /OUT'/) (' No output defined yet'/) ('+To use the CONTINUE an input must have already been',' defined.'/) (' The answer to this question defines where the program is'/' to find the data. It usually consists of a device, and'/' possibly a file name with or without a PROJECT-PROGRAMMER'/' number. Devices may be specified by their physical'/' or logical name followed by a colon (:). If the'/' device is a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of a magtape it must'/' be positioned.'/'0DEFAULTS:'/' (1) If no input devices is specified but a filename is'/' given, the default device will be DSK:.'/' (2) If a device which requires a filename and extension'/' is specified, but no filename is given INPUT.DAT'/' will be used.'/' (3) If no response is given (CARRIAGE RETURN is entered)'/' the default is TTY:.'/' (4) If DSK: is specified as the input device, but no') (' PROJECT-PROGRAMMER number is used, the PROJECT-'/' PROGRAMMER number of the job is used.'/'0EXAMPLES:'/' DSK:DATA.DAT'/' TEST.DAT[220,220]'/' MTA:'/'0The following responses may also be used after the first'/' response to this question.'/' "CONTINUE" - (For MAGTAPE) Use the next set of data'/' "SAME" - Use same device specifications as used before.'/' "FINI" - End of run.'/' "/PROG" - User may initiate the run of a bank program'/' (STP, BANK, TAB, FREQ, CORL, or REGR) from'/' this program.'/' "/OUTPUT" - Redefine the output device, the program will'/' respond with "OUTPUT? ".'/)('0The answer to this question defines the destination'/' for the program''s results. It usually consists of a device'/' and possibly a filename with or without an extension.'/' Devices may be indicated by their physical or'/' logical name followed by a colon (:). If the device is'/' a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of the magtape, it must'/' be positioned. If the device is a lineprinter, the user'/' may request multiple copies by following the "LPT:" with'/' a "/COPIES:" and the number of copies desired (1-63).'/'0DEFAULTS:'/' (1) - If no input device is specified but a filename is'/' given, the default device will be DSK:') (' (2) - If a device which requires a filename and extension"'/' is specified but no filename is given OUTPUT.DAT is'/' used.'/' (3) - If no response is given (a CARRIAGE RETURN is entered),'/' the default is TTY:.'/' (4) - If LPT: is specified and no /COPEIS switch is used,'/' 1 copy is assumed.'/'0EXAMPLES:'/' DSK:SAM.F4'/' LPT:/COPIES:3'/' MTA:'/) S B . /REGR /STP DSK /OUT E ~ 9 (K HELP /OUTPUT N LPT CONTINUE 0 DSK C TTY ?FINI /FREQ Z I /CORL /BANK ] O A / 0 z , TTY FINISH @ INPUT.DAT SAME : { [ ` 7 END /TAB p a OUTPUT.DATP LPT DSK SEQOUT SEQIN SEQOUT RANDIN BINARY S< \ ,q p @ ) p B )"p ) p B )"p ) p B ) p B )N p B ) @ )T5 -1 $ .D )T@d ) -
D 6 - D 5@d ) - ) < 1, Jn ,s ) < 1~, Ij@d ) & F )P2d )+ -H3F )T+ -C2D (5+ -? < 2, , 3D (5+ -B < 2, , F (5+ -H6D (6+ -E < 2, , 4D -G < 2
, , A& F (6 < 1|, IQ: )1D + 11$ +D ) -/)%3F - + -T )%3& -+ -R )%2f - + 0
)&3D 6+ 0
-
, - ,F)*d -] $ ,D )S D ) )S )%3F - + .u )%3F -+ -l )%3F 6+ .u )%3F 5+ .u )0f + -j )% H): ): )S+ -` < 2
_D )#ZD ) ) < 2,
: ); )#+ -o, < 1z, Jn6D )+ -w < 2, < 2,
+ -5 )T1D + -| - A )5D .W < 2, < 2 ,
+ -5 - A )5D . < 2 , < 2!,
+ -5 ,A )4D .W $ 2 D ): ) < 1y, In $ 2.D ) < 2", < 2&,
< 1w, J{7D )%+ .: )S )%3F - + .> )%3F 6+ .> )%3F -
+ . < 2(, , + -5 )S )&2F -+ . )&2F - + . )'2F -+ . )'2F -+ . )(2F ,z+ . )(2F ,s+ . ))2F -+ . $ .D )S - D ) D ) $ D ).d )S )S )%3F - + ./ )%3F 6+ ./ )%3& -+ .* )%2f ,{+ .* )0f + .- )% H): ): )S+ . < 2+, )S < 2.,
+ -5 < 2/, , + -5 )1D + .4 )2D - + .4 ) D ) - D ) < 22, -_D )!ZD ) ) < 26,
: ); )!+ .6, < 27, < 2;,
)P0$ 0d + .- )"( (54D .V < 2<, )"( $(5 D ,q < 1u, Jn )"!&p83f)+ .G & F (6 ,A )4F .VF)"F )P )P1f 2+ .L"& 2.f )P )P$ 8.& F ) 7f 8+ .Q( $(S D ,q < 1r, Kr6$ 8+ .U )"( $(S D ,q < 1p, Kr@d 8 < 2>, + 03 -A )4D .\ - ) )T0D + .\ - ): )S )%2F -
+ .` < 2B, , + -5 )S )%3F - + 0
)%3F 6+ 0
-A )5D .g < 2E, , + -5 -
- F)*d .h $ D ) )S )%3F - + .{ )%3F 5+ .{ )%3F 6+ .{ )0f + .s )% H): ): )S+ .j < 2H, , + -5 - ) - ) )T0D + .z - ) < 1n, Jn < 2K, < 2N,
)3D ,s2F ,t7 + /G3D ,w2F ,w7 + 0O3D - 2F - 7 + 0O3D ,v2F ,v7 + 0O3D -2F -7 + 0O3D -2F -7 + 0O3D -2F -7 + 0O3D -2F -7 + 0l3D -2F -7 + 1.3D ,y2F ,y7 + 1 3D ,~2F ,~7 + 1 3D -2F -7 + 13D -2F -7 + 13D -2F -7 + 13D ,}2F ,}7 + 1C@h )S -
ZD ) ) )3H - + /, )3H ,u+ /) )3( -+ /# )3h ,{+ /, )2h -+ /& )2( - + /, < 2Q, < 2T,
+ -5: )S1F + /, < 2U, , + -5*d / $ 3D )S+ /6 D ) ) )3D - + /3: )1d + //+ .s ) ,u F) < 2X, < 2\,
$ D ): )0d + /F )2F ,u+ /7 )2F ,u+ /F )2F ,+ /F )2F ,|+ /F & F ) -A )5F /C < 2^, , + -57D )T+ /F < 2a, , + -5 ) ) )S )%2D 5+ 0
-
- F)*d /J $ D ).d )S )S )%3F 6+ /\ )%3F -+ /^ )%3& -+ /Y )%2f -+ /Y )0f + /W )% H): ): )S+ /M < 2d, , + -5 < 2g, )S < 2j,
+ -5 < 2l, , + -5 )1D + /j ) 2D - + /f"& $ ) H)/$ 8& /b - D )+ /` < 2o, < 2r,
< 2u, < 2x,
-
- F)*d /j $ D ).d )S )S )%3F 6+ /y )%3F - + /y )%3F 6+ /y )%3& -+ /Y )%2f -+ /Y )0f + /W )% H): ): )S+ /m )1D + 0 ) 2D - + 0"& $ ) H)/$ 8& /} - D )+ /{ < 2z, < 2},
< 3 , < 3,
)S )%3D 6: )S )S )%3F - + 0
)%3F 6+ 0
,< 3, , + -5, )+D ) )N,D )@d )%2D )T+ 0< 1k, Jv7D )%+ 0< 3, , + -5. )"( (54D 0, < 3 , )"( 4$(5 D ,q < 1j, JnA )"!&p83f)+ 0 7& +F (6 ,A )4F 0,F)"F )P" )P1f 2+ 0""& 2.f )P+ )P$ 8.& (F ) 7f 8+ 0'( +$(S0D ,q+< 1g, Kr6$ 8+ 0+! )"( +$(S+D ,q < 1d, Kr@d 8 )1D + 026D )T+ 0/ < 3
: ); )P+ 0Q, @d )'"& $ F )O D )6&)+ 0i < 3 , ( (53H - 2J - + 0i )F)"F )P )P1f 2+ 0`"& 2.f )P )P$ 8.& F ) 7f 8+ 0e( $(S D ,q < 1a, Kr6$ 8+ 0i )( $(S D ,q < 1_, Kr: ); )O+ 0W < 1^, J
)"( (55D 0p < 3!, , + -5 )"( (5 ) )"( (S ) )" (r& - F )" ( .(r F )N@f )!& 2F)+ 0{ & F )F)"F )P )P1f 2+ 0~"& 2.F )P < 1\, Jn )T0D + 1 < 3$, ,A )5D .> -
A )4D 1 < 3&, + 0
"& $ F )O D )6&)+ 1 < 3(, ( (53H - 2J - + 1 )F)"F )P )P1f 2+ 1"& 2.f )P )P$ 8.& F ) 7f 8+ 1( $(S D ,q < 1Y, Kr6$ 8+ 1 )( $(S D ,q < 1W, Kr: ); )O+ 1 < 1T, NX7D )+ 1 < 3*, , + -5 ,{ZD ) )!(p82h)+ 1%*d 1 < 3-, , + -5 )" D ) ) D )" )T D )R $ D )T!$ D )+ -5@d ) ) D )" )R D )T+ -5 )"( (55D 12 < 30, , + -5 )"( (S ) )"( (5 ) )" (r& - F )" ( .(r F )N@f )!& 2F)+ 1= & F )F)"F )P )P1f 2+ 1@"& 2.F )P < 1U, Jn )T1D + 0M+ 0
)T1D + 1H < 33, , < 36, , + -5 < 39, , < 3<, , + -5 ,q )" Ap )p )" Ap )p ) Ap )N Ap ) Ap ,~ p ) )` ,q ,z ,x )PX ,q ,z ,x )P ) p ) )x )&` ,q ,z ,x )PX ,q ,z ,x )P ) ` ,q ,z ,x )PX ,q ,z ,x )P ) p ,q )X ) ) )% ) )Np ) )` ,q ,z ,x )PX ,q ,z ,x )P ) p ,q )` ) )% ,t ,tx )p ) )h )& ,| )p ) )Np ) )X 8 )T X 8 )X X 8 )Y X 8 )] X 8 )_ P )e ) $) X 8 )f 0 ) X 8 )j 0 ) X 8 )m 0 ) P )q ) $ ) $ ) X 8 )s X 8 )x $)% X 8 )} P )e )$ $) P * )$ $ )P h )" P )" ~ - P ) ^ - X 8 * X 8 * X 8 *
P )e ) @ ) X 8 * $) X 8 * P )e ) @ ) X 8 * X 8 * X 8 *" X 8 ** $)% X 8 *0 P )e ) @ ) P *6 ) $ ) P )e ) @ ) P *6 ) $ )N X 8 *7 X 8 *? h )" H )" p )P ) ^ -! )H )" p )P ) ^ -" )8 )" p )P ) ^ -# )^ -% -P *C )& $) h ) X 8 *D h )" ` )" h ) X 8 *N X 8 *S X 8 *V X 8 *] ^X 8 +; ?X 8 +z QX 8 ,K & (' ENTER HEADER') (16A5) O% \ 3C < 3O, , < 3R, < 3U,
"& $ F 3? D 6 -2F 3D+ 3N> 6; 3?+ 3K 3C,~ X 8 3@ X 9 3B @ . A I F G E ( ) D O (400A1) (I5) 9 0 I O A 8 X ` PROBLEM PROBLEM SEE DICK HOUCHARD O%[r \ 3l p @ 3^ p @ 3Z #p B 3\ < 4~, " 3Z $ F 3` D 3j 3j < 5,
: 3j; 3`+ 3}, " 3Z 3Z D 3X 3X =2D 3q+ 4> 3X8& 4 < 5, H3@d 3j: 3j 3j2d 3X+ 4& 3oZD 3[ 3[ 3j =3H3c+ 4*d 4 3j =3& 3m+ 4 =2f 3m+ 4 "& $ F 3_ D 3Y. 3j2d 3X+ 4 3oZD 3[ 3[ 3j. 3Y =2H3c+ 41F + 4 + 4*d 4 3j. 3Y =3& 3m+ 4 =2f 3m+ 4 : 3Y; 3_+ 4 $ . 3j D 3i"& / 3X. 3i 3i = H <.$ 8& 4""$ .D 3X+ 4@d 3X D 3j $ D 3[: 3j2d 3X+ 4g =3F 3f+ 4( =3F 3f+ 4( =3& 3m+ 4/ =3f 3m+ 43 3[ = H: 3[3& 3Z+ 4(+ 4m $ D 3X 3p 3q FM*d 44 $ D 3[ 3[ 3j = FM: 3j: 3[ =3& 3m+ 4= =3f 3m+ 47 O2D 3q+ 4C"& $ M HM/$ 8& 4? 3q D M+ 4= < 5, < 5,
< 5
, < 5,
3j =3D 3f+ 4O" 3Z $ D 3[ 3[ 3j = H: 3[2d 3Z+ 4m: 3[8& 4J+ 4( $ . 3j D 3h $ D 3a 3h =3F 3f: 3a =3F 3f> 3a7F 3a+ 4W: 3h+ 4R"& . 3h $ . 3j2d + 4f" 3Z $ F 3c D 3[ $ . 3j D 3i 3i/ 3h 3i D 3Y 3[ 3Y = H: 3[2d 3Z+ 4m: 3Y8& 4`: 3[; 3c+ 4\ 3h D 3j+ 4("$ . 3[ D 3X7F 3X+ 4o" 3X $ H =.$ 8& 4k+ 4& < 5, H3+ 4} $ D 3Y" 3^ $ @hq 3Y
2J 3o+ 4t * Jq
2J 3n+ 4w * Jq
2J 3n+ 4y * Jq:
3Y3j 3X+ 4| ( H 3Y.$ 8& 4q 3l,~ P 3Z 3j 3\ ( = x 3qP 3j 3Y @ M P 3k 3Y $ 3Z x 3s F A I $ (' WHICH VARIABLES FROM THE BANK?'/) (5A1)(I5) ('-ERROR: There are',I7,' variables in the BANK and limit is set at',I7/9X,'Program proceeds, ignoring the excess'/) ('-ERROR: Variable string too long, Contact computer center staff'/9X,'for help'/) ('-ERROR: Picking up 0 variables from the BANK, Try again'/) ('-ERROR: Illegal entry for range "',3A5,'",'/' Re-enter the entire list') ('-ERROR: Variable number',I6,' does not exist, Try again'/) ('-ERROR: Illegal range specification, Try again'/) ('-ERROR: No variable selected from BANK, Try again'/)('-ERROR: Variable "',A5,'" does not exist, program continues'/9X,'ignoring it'/) ('-ERROR: The following',I6,' variable names do not exist,'/9X,'Program continues ignoring them:'/(10(1X,A5))) ('-ERROR: Variable "',A5,'" is not of the required ',A1,'-Type,'/9X,'It will be excluded in all analysis'/) ('-ERROR: The following variables are not of the required ',A1,'-Type,'/9X,'They will be excluded in all analysis:'/(9X,10(A5,1X))) (' ')('-ERROR: Variable "',A5,'" is used more than once,'/9X,'Program proceeds ignoring the duplicate'/) ('-ERROR: The following',I5,' variables appear more than once,'/9X,'Program proceeds ignoring the duplicates'/(9X,10(A5,1X))) ('-All or some of the variables located in a structured data BANK may be'/' used for the analysis. A "ALL" or "*" may be entered if all of the'/' variables are to be used. Otherwise, enter the variables by either'/' their NAMES (as previously defined in the data BANK) or by their'/' variable numbers separated by commas. Ranges of variables may also'/' be specified by typing the extremes of the range separated by a "-".'/'-Multiple lines are available to enter the list provided the'/' last character in the line is a comma.'/' The list should be terminated by an altmode or a carriage return.'//) E H 9 0 ALL - * L , X P $E:]h6 \ 7S p @ 5U p @ 6 $ D 5V $ t D 5} $ >. ;&$ >$ :.$ D 6 $ . :&$ D 6@d 5W D 6 D 6" 5V $ @h
*d 8@d 5Q" 6 $ F 6 D 6 5X F 63F 7Y+ 8@2F 7X3F 7V+ 82F 63F 6+ 8 5Q0( + 8@: 5Q F 6
+ 8@ 6 & 2F 6+ 82D 63D 6+ 8n: 5W 7Y F =" 5Q $ D 5 5 6
2h 7U+ 8- 6
3( 7U+ 8-: 58& 8 6
2D 7Y+ 8$"& $ 6
H6
/$ 8& 8! 7Y D 6
+ 8 < ;`, < ;c,
< ;f, 5W < ;i,
63D 7V+ 886b 5P0b + 8-+8,4 8=4 8m 5W@fM < ;k, < ;n,
=3F 7W+ 8D =3F 7V+ 8D 63F 7V+ 886b 5P0b + 88+864 8=4 8m: 5W 7V F = & "FM6b 5P0b + 8=+8<4 8=4 8m@d 5Q 7X 7Y F6
*d 8>: 6; 6 + 8 7d 5Q+ 8m $ D 5P+ 8 : D 63d 5V+ 8G 5V F 6@f 6 F 5U & F 6" 6 $ F 6 D 6. 6 D 6 < ;q, < ;t,
6/$ $$ D 6 62F 6+ 8S" 6. : F 6" 6 $ D 5} 5}$$ 5
D 6 5U1( 3D + 8]1H 0D + 8Z+ 8]:
5U
5}$,
05 L(M+ 8d 63D 6+ 8i: 6 ( $ 5} 5 H
Q: 68Hq: 5}. 6+H8K"$ . 5U4$ ;+4D ; + ;! 63D :+ 8f < ;w, < ;z,
+ 8f" 61D + 7m7 5W3d 5V+ 8r+< ;|, , < ;Z, NX $ 3$ 5W+ 8w < ;, , 3d 9+ 7k < ;Z, NX" 5W $ F 6
< <, /$ D 6" 6/& . 6 6 F 6
D 5} 5} < <,
: 5}; 6
+ 9, 6$ 9+ 7d < ;Z, NX 6 M3f :+ 9
< <, < < ,
+ 9: 6; 6 D 6 < < , < <,
$ D 6 $ D 63d :+ 9 : F 6 66FM+ 9$ = F 6" 6 $ D 5} 5}$$ 52D 6+ 9 : 6 6 H
Q$ 5} H
5
Jq+ 9h: 5}8& 9: 6 6 F
Q+ 6 M7FM+ 9.: 6 7Y H
Q M2H6+ 9h M$( 5 H
Q M$( 5
aHq+ 9h 6M 60$ 2$ 6+ 93+ 9F5F 9D" 6 $ D 5}
5}$* 5} =3F(5+ 9?: 5}8( 95: 6 7Y F
Q:& "F6 = H
Q+M H60D 2d 6+ :;.$ D 5W 6 D 5V+ 9J 62d 63d 6+ :;+ 99 $ . 6 D 5W7D 6+ 9X2d 6+ 9` D 5V 5V3$ 5W+ :; 6 F 5O.$ / 5W.D 6 $ .D 6"& . 5W/ 5V 5W: 5O * $
(5 J
Q * $
(5
aJ$q D& 9Q+ 9i 6 = D 6" 6 $ D 5| 5|$$ 52D 6+ 9 5| D 5V+ 9J: 5|8& 9[ 6 D 5V 6 F 5O.$ / 5W.d 6 7Y F
P & "F = H
Q+M:H6 63d 5W+ 9 63D :+ :f $ D 6 & / 6 $ F 5O D 5S. 6 D 6 < <, < <,
a 6D 5R 5S$$ D 63d :+ 9wc :RF 6 6/ 5R D 6 $ D 6 6
Q$ 6 5
Dq+ :c 6
Q D 6" 6 $ D 5} 5}$$ 52D 6+ : 6 5}$( 5 H
Q 5}. 5R H5
`Hq+ :c: 5}8& :+ :cV 67F :S $ . 6 D 62d 6+ :("& . 6/ 6 6 . 5Q H 5O
Q J
Q
q J q
/J 8& :#" 6.5W/ 5V 5W 6 * $
(5 J
Q * $
(5
J q
6 J
6:
6.$ 8& :, 5Q.D 6$ 3D 5P.d 6 62$ 6+ :e+ 9y 67F
Q D 6" 6 $ D 5} 5}$$ 53D 6+ :N: 5}8& :B 5W3d 6+ :H $ .D 6+ :c 6 D 5V $ / 5W. 5V D 5Q 6 D 6 $ D 5P+ :! 5} D 5V3$ 5W+ :; & F 5P"& / 5W. 5V F 5Q5& : 6 & $ 5V 5 F
Q & $ 5V 5
aFq 5V. 5ReF 5X.$ D 6" 6/( . 6 6: 5X
Q J
Q
q Jq
.J 8( :^: 6. 63d 6+ 9y: 5S; 5O+ 9o6d 6+ :j4< <, , 6 9+ 7d+ 8v@d 6 D 5U $ D 5W"& / 6. 5W 5W F 6 D 6
Q J => 65d :} < < , < < ,
+ :g 63$ 6+ ;" 6/& . 6 6
Q H
Q.q8HqH6 D 5W7` 6+ ;+ :l 5U 6 q3H + ;
Q HM+ :y: 6; 6+ :o"$ . 64$ ; 5d ; < <!, < <$,
+ ; < <&, < <),
" 6 $ F 5T D 6 6 < <*,
: 6; 5T+ ;, < <,, , "$ . 5U4$ ;+5d ;! < </, 5U < <2,
+ ;) < <4, 5U < <7,
" 5U $ F 5T D 6 6 < <8,
: 6; 5T+ ;&, < <:, , 61d + ;W@f 6 D 5V $ D 6 $ . 6 D 5W 5W3D 5V+ ;G 5W/& / 5V 5W D 5} 5} 6
Q3H
Q+ ;:: 5}8& ;4 5V D 63d 6+ ;G: 6+ ;.: 6 6
Q F = 5}3F 5V+ ;F"& .F 5V. 5}/ 5V 5}
Q H
Q q Hq.$ 8& ;@ 5} D 5W+ ;0"$ .D 5V+ ;7"$ . 64$ ;W5d ;L < <=, < <@,
+ ;S < <A, < <D,
" 6 $ F 5P D 6 6 < <F,
: 6; 5P+ ;P, < <G, , + ;W < <J, , + 7d 7S 6 Ap ,~ h 5X 7Z 6X 8 6 P 6 5S @ 6
P 6 5S $M P 6 = @ 6
P 0 6 @ > 5 X 8 6
$ : $ 5V X 8 6* X 8 62 X 8 69 $ = X 8 6A $M P 0 6 @ > 5 P 0 6 @ > 5 X 8 6G X 8 6M X 8 6R $ = X 8 6R $ = X 8 6[ $ 6 $ = X 8 6 X 8 6f $ M $6 X 8 6q
$ = X 8 7 6 X 8 7 < = > < ('-',29X,'SELECT OPTION:'/) (' SELECT OPTION:'/' ?',$) (72A1) ('-ERROR: Invalid entry, Re-enter the line'//) ('+ ?',$) ('-ERROR: Variable "',A5,'" does not exist, Re-enter the line'//) (I5) ('-ERROR: Missing '' in an A-type variable'/9X,'Re-enter the line'//)('-ERROR: Too many values in the string'/9X,'Re-enter the line'//) ('-ERROR: Multiple values can only be performed on a ''EQUAL'' CONDITION'/9X,'Re-enter the line'//)('-ERROR: ',15A1,' Is too long for A-type variable,'/9X,'Re-enter the line'//) (37X,72A1)(G15.0) (I15)('-ERROR: Cannot have a decimal point in a I-type variable'/9X,'Re-enter the line'//) ('-ERROR: No qualifier accepted, Try again'//) ('-ERROR: Too many qualifiers requested'/9X,'Program will ignore the last SELECT statement'//)('-SELECT option allows the program to consider only those observations'/' meeting user specified criteria. Instructions to the SELECT option'/' (QUALIFIERS) are entered on a line or on separate lines. Each'/' QUALIFIER contains 3 basic parts: VARIABLE, CONDITION, and VALUE or'/' VALUES to be compared against. The variable may be specified by'/' either the variable NAME (if previously defined), or the variable'/' number (in the case of data BANK file, this is the number associated'/' with the BANK). The CONDITION may be one of the following:'//6X,'CONDITION',5X,'MEANING'/6X,9('-'),5X,7('-')/9X,'=',10X,'equal to'/9X,'<',10X,'less than'/9X,'>',10X,'greater than'/6X,'<= or =<',6X,'less than or equal to'/6X,'>= or =>',6X,'greater than or equal to'/6X,'<> or ><',6X,'not equal'//)(' The value to be compared against must be of the same type as the'/' variable it is compared with.'//' Enter each QUALIFIER immediately after the ? is typed out by the program'/' Several QUALIFIERS may be ''OR'' together by entering the QUALIFIERS on'/' a line separated by semi-colons (;). Enter a ^Z, a carriage return or'/' a blank line immediately after the ? to signify the end of all'/' QUALIFIERS. Up to 20 Qualifiers may be specified.'//' EXAMPLE: To consider all those observations in which variable 3 is'/11X,'not ZERO, and variable 5 is less than 4 or greater than 8.'//11X,'SELECT OPTION:'/11X,'?3<>0'/11X,'?5<4;5>8'/11X,'?^Z'//)(37X,'SAME AS THE PRECEEDING RUN'/) S . E H 9 0 - TTY ; ' L A , P X h M P gdXz \ >G p @ <R 13D >L+ >X < @V, , < @Y, , < @\, < @,
=2D >J+ >a >2D >I+ >a >2D >M+ >a ?3D >R+ @K =2D >H+ >g >2D >N+ >g >2D >Q+ >g ?3D >I+ @P@d y D <Y: <Y@d <Q"& $ $ $ D <P <P =2D >R+ >n> <P8& >k+ @C $ D <c >P >R F<]*d >p >N >R F a*d >r@d <e D <a <c = D <b3D >R+ >} >PZD <M <M <c3F <b+ ?*d >w: <a0d + >} <b F<]: <c3d <P+ >t < @a, , 6$ 9+ ? < @U, NX"$ .D <Y" <Q.D y < @d, , < @g, < @j,
+ >h >R D <N <]3$ >K+ ?
<]3d >J+ ? < @m, < @p,
" <R $ D <S <S
Q3D <N+ ?9: <S8& ? 21D + ?> < @s, < @v,
6$ 9+ ? < @U, NX <_2D >R+ ? "& $ <] H<]/$ 8& ? >R D <]+ ? >R D <Q < @w, < @{,
< @}, < A,
$ 2$ <N+ >~ y0&
+ @H2D 2+ ?+ <N2f <R+ >~: y F y
q J <N+ ?U <N2d :+ >~.$ &$ D <b ( >. ;&( >$ :.$ . D <X < A, < A,
: y <N Fy" <b.& $& . <N F <b$& d H <N+ ?U y0$
+ @H: yq <SN ?U $ >. ;&$ >$ :.$ D <b $ . :&$ D <e" <e $ F <T D <S. <b D <X < A, < A
,
>OZD <R <R$& `3F <N+ ?N*d ?I: <S; <T+ ?E+ ? y0$
+ @H: y"& . <S$& . <R Fy & $ <R d F <N y <Y F_: <Q@d <U <M <Y.d <e0d + >~ & . <c2f <P+ >~ <c =3H =+ >~: <c >PZD <M <M <c =3H<c+ ?W*d ?_ y <e F@d <a <c = D <b <N0F + ?l3D >M+ ?j < A, , + ? : <c = F <b+ ?n <b2$ >K2d >J+ >~: <a0d + ?q <b F a: <c2f <P+ ?u = H <b2H >L3H >O+ ?u+ ?n: <U1d
+ ?y < A, , + ? <b2D >O+ ?}2D >O+ @ & 2F <e+ @ $ . <N6b 0b + @+?4 @ 4 @4 @ < A, , + ? <a1d + @ < A, < A,
+ ? <a a2D >M+ ?h> <a &
$ y. <U >R H &
$ y. <U < A , " <a $ F <` D <S <S < A ,
: <S; <`+ @, : <c y <U HU2d <P+ @ <b3F >L+ >o3F >O+ ?d 13D >L+ @ < A", < A%,
+ ? a2D >K+ @! b3D >K+ >~" <a $ D <S <S a2D >H+ @) $ . <N6b 0b + @)+@'4 @*4 @A4 @A: <S8& @" $ D <b" <a <a> <b
a J a/$ 8& @," <a $ >R H a.$ 8& @/ >P >Q F<N*d @2 <N1D + @; < A', < A+,
< A-, $
$ y. <U < A1,
+ @ < A2, < A6,
< A8, $
$ y. <U < A<,
+ @ < A=, , + ? $ 3$ y+ @S < A@, , 3d 9+ >X < @U, NX+ @S < AC, , " <Q.D y+ @S < AF, , < AI, , 6$ 9+ >X < @U, NX 13D >L+ @S < AL, , >G,~ X 0 <f X 8 <i X 9 @C <l @ $ = X 8 <m X 8 <r X 9 @C <l @ $ = P <l <N @ <] X 8 <s $ <N P <l <Q @ <] P <z <Q $ <N P 0 <X @ > i P 0 <X @ > i X 8 <z X 8 = X 8 =
X 8 = @ a P <a <l $ a X 0 = @ $ = P <l <O @ a P = <O ( P <l <[ @ a P = <[ $ X 8 = X 8 =& X 8 =+ X 8 =4 OX 8 > @X 0 >D ('1'/'-'/'-',29X,'WESTERN MICHIGAN UNIVERSITY'//30X,12A5///30X,'CALLING NAME: ',A5/30X,'TIME-DATE : ',A5,2X2A5/30X,'TITLE',7X,': ',16A5/30X,'FORMAT',6X,': ',16A5/4(43X,16A5/)) (30X,'DATA FILE : ',A10/30X,'CREATED ON : ',2A5/30X,'BY PROJ-PROG: ',A1,O6,',',O6,A1/30X,'NUMBER OF VARIABLES IN THE BANK.',5(' .'),I7/30X,'NUMBER OF OBSERVATIONS IN THE BANK',4(' .'),I7) (30X,'NUMBER OF VARIABLES USED',9(' .'),I7) ('-',29X,'DATA FILE : ',A10,A1,O6,',',O6,A1) DSK S:5p \ B p @ AQ < B, I < B, I < B, < B,
20D + B < B", < B%,
7D AQ+ B < B+, < B.,
12D B+ B 21D + B < B0, < B3,
B,~ x AOx AOX 0 AQ @ s ( r $ AO @ AO @ . @ ( X 0 Ad 0 2 @ ; $ 5 @ < $ 6 $ : $ ; X 0 Aw $ AQ X 0 A| 0 2 $ 5 $ 4 $ 5 $ 6 ('1',A5,' W.M.U. ',2A5,4X,16A5,3X,A5,4X,'PAGE:',I4/)('1',A5,' W.M.U. ',2A5,9X,12A5,18X,A5,4X,'PAGE:',I4/) TTY a<P \ BB 13D BB+ BM $ D 7 < BO, I : 87D 6+ BK < BP, < BS,
+ BM < BX, < B[,
BB,~ x AOX 0 B6 ( r @ AO @ . $ AO $ 8 X 0 B< ( r @ AO @ s $ AO $ 8 F A I (' ENTER FORMAT ENCLOSED IN PARENTHESES'/) (' ENTER FORMAT ENCLOSED IN PARENTHESES: (',A1,'-TYPE ONLY)'/) (80A1) ('-ERROR: Format incorrectly specified'/) (' Any FORMAT specification must comply with the FORTRAN-10 Format'/' requirement. The FORMAT must also be enclosed in parentheses'/' and be no more than ',I3,' characters in length'//' Example: ENTER FORMAT ENCLOSED IN PARENTHESES'/11X,'(I2,F3.0,1X,F2.0,I1)'/) S . E ( H (@ L A ) M P SYSTEM ERROR CONTACT COMPUTER CENTER DSK SEQIN O$lH \ C? p @ Be p @ Bh !p @ C $ D Bd@f F Bb F Be2F Bh+ CV < D@, H3 0H 3D Be+ CX+ CZ < DA, , 1( 2F Be+ C^ < DD, < DG,
Bb0$ + Ca < D>, IQ Bb0D + Cd < DI, < DL,
"& ( $ ( D C C Bj2D CF+ Cj> C8& Cf $ D + D= C D Bd@d C: C2d Bd+ Ct Bj2F CF+ Cl C/& / Bd C Bk HBj.$ 8& Cq"$ .D Bd+ Cl6D Bb+ D Bk2D CB+ C{ Bk2D CA+ C{ Bl2D CC+ C{ Bl3D CF+ D8 Bk2D C?+ D Bk2D CD+ D Bl2D CE+ D Bl3D CA+ D= Bk3D CA+ D Bk2D CC+ D6 $ D Bb" Bh $ . C
CF J'.$ 8& D Bk3D CA+ D $ D Bb & / Bd $ D C C Bj3D C@+ D: C8& D: Bd C@ FBj"$ . Bd D Bf < DN, & / Bd $ F Bg D C C < DR,
: C; Bg+ D, < DS, < DU, + C^" Bd $ Bj3H CA: Be Bj2H CD+ D""( .H Be.$ 8& D $ . Bd&$ . Bd2d Bh+ D6 Bd. C < DY, " Bd $ F Bf D C C < D\,
: C; Bf+ D*, $ . Bd&$ .D Bd Be0$ + D46b Bb0b + D4+D34 D=4 D5+ C^ < D^, + D= < D`, , + CQ Bh( . Bh D C < Dc, < Df,
+ CQ C?,~ h Bk CB Bjx CGX 8 C X 8 C $ Bb X C @ ( Bk P Bf C Ba $Bj h P ~ CKP Ba ^ CLP Bd C $Bj h X 8 C X 8 C$ $ C ALL HELP EMPTYSTOP OBS $ - . * / ? " + ; (' ENTER # OF VARIABLES OR VARIABLE NAMES'/) (I5) (I5) (5A1)('-ERROR: Number of variables ',I6,' outside allowable range,'/9X,'Try again'/)('-ERROR: Variable name list too long, contact computer center staff'/9X,'for help'/) ('-ERROR: Reserved character "',A1,'" in variable name'/) ('-ERROR: Variable name "',A5,'" is reserved'/) ('+Re-enter the line'/) ('-ERROR: Variable name "',5A1,'" starts with a number'/) ('-ERROR: Variable name "',A5,'" is used in variables ',I5,' and ',I5) ('-Enter correction in the order: VARIABLE #, COMMA, VARIABLE NAME OR A - TO DELETE'/) (I,A5) ('-This line defines directly and indirectly the number of variables to'/' be used in the analysis. If a number is entered, it is assumed to be'/' the number of variables and variable name option is not selected.'/' If a variable name list is entered, the number of variables is'/' counted from the list. Variable name list should conform to the'/' following rules:'//' (1) The list is composed of 1 or more lines. If more than 1 line'/6X,'is needed the last character in the line must be a comma.'/6X,'The list must be terminated with a carriage return or an altmode.'//' (2) Variable name is made of 1 to 5 alphanumeric characters, the'/6X,'first being non-numeric.'//6X,'The names may not contain any of the following symbols:'//6X,'* ? - / , + '' . BLANK'//6X,'Nor may be any of the reserved words:'//6X,'ALL HELP EMPTY STOP OBS'/) E H 9 0 - L @ , X ` P $mLz \ F p @ Do < GN, , @d Do F F F =*d F < GL, IQ $ D Dg Dn0D + F%7` 9+ F + GH @2D F+ F+ @2D F+ F+ A2D F+ F+ A3D F+ GE"& $ D Du Du ?2D F+ F/> Du8& F, Du D Dj ?3F 6+ F3 ?3F Du> Dj" Dj $ D Du Du ?3( F+ Fa ?2h F+ Fa: Du8& F5" Dj $ ? H =.$ 8& F: ?2D F+ FB"& $ = H =/$ 8& F? F D =+ F< < GQ, < GU,
< GW, < G[,
7d Do+ F[0d + F_" Do $ F Dk D Du F F F =*d FK Du < G\, < G`,
< Ga, < Ge,
=2D F+ FV F = F =*d FS F D ?+ FQ Du < Gg, < Gk,
aD Du; Dk+ FJ+ GI < Gm, < Gp,
6$ 9+ F < GK, NX < Gr, , < GK, NX"& $ $ $ D Di Di ?2D F+ Ff> Di8& Fc+ G$ Di ?G Dx4& Fm ?2H F+ Fm ?2H 6+ Fm> Di 6 F ?@d Di D Dh" Di $ F Dr D Dh ? F Ds2F F3F 6+ G3F Dx+ G3F F+ G FZD Du Du Dx3F Ds+ F{*d Fu Dh0$ + G : Dh Ds F =+ G < Gu, < Gx,
+ G < Gy, Do < G|,
6$ 9+ G < GK, NX < G~, , " Di.D Do+ F Ds Dh0F + G 2D 63D Dx+ G$7d Dh+ G =3$ F+ G =2d F+ G < H, < H,
+ G : Do0d + F_: Di@f
Q < H, < H
,
FZD Du Du Do
Q3HDu+ F~*d G@ Do DF F F =*d G Ds2D 63D Dx+ G$: Dh; Dr+ Fp Ds3D F+ F 7d Dh+ G$ $ D Dg+ G
"$ . Do4$ F[4D GI & / Do $ F Dp D Du.$ D Dt"& / Do. Dt Dt D Dj Dj Du
Q3H
Q+ G2: Dj8& G,: Du; Dp+ G)+ GI < H
, Du < H,
6$ 9+ G6 < GK, NX < H, , < H, < H,
Ds3D F+ G= Du D
Q+FG$ $ . Du D Dt"& / Do. Dt Dt
Q H
P. 8& GA"$ .D Do+ G$ < H, , 6$ 9+ F < GK, NX F Do Ap ,~ h @ F DnX 8 D} P E Ds @ = P E Ds $ Do P E
Q $ Du P E
Q @ = P E
Q @ = X 8 E $ Do X 8 E X 8 E $ Ds X 8 E $
Q X 8 E X 8 E" @ = P E
Q @ = X 8 E( $
Q $ Du $ Dj X 8 E/ X 9 E8 $ Du $ Ds X 8 E9 Y ` Z (X^ . > [.~ (3~ + H! ~ + H,Z . \x <x *<x .-> I:ez+ H(!" b + " H) b + Z . h + gg M?Th
& H. b + H ,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> NZO@ Hq+ H7gR~@1 ,> NZ@@ Hq,> ,> @ 6 w+ HD" Hq0B + H?!"A`X#p 5@ H</#p !" X#p + HD\p + HDa.9'1 ,> NZ,> ,> O@ Hq+ HD,>
6 + _ 4` HL"` Q@ ,> < Hr, ,^ ,> < Hu,
,^ *b HI+ HW,> < Hw, ,^ 7@ Hq+ HR,> < Hz,
,^ + HT,> < H{,
,^ Z 5" HW,> < H},
,^ , 7@ Hq,
,> < H~, ,^ , ,> < I, ,^ ,> < I,
,^ (@qd 1@ ,,
1@ #+ He0@ *+ HW,> < I, ,^ + HW,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X Hm p X Hn p Hp p Hp p X Hg X ~ Hm p x I$P 1 ,> NZ #p D F b &" .$ &$ 7@ "$ (@ . &" * I)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP 1 ,> NZ D I8 F I8 b &"j0 D I9&" D I9S Ao-& I5 " B I9-& I5[p (F{5F I*[w0F+ I3+ I, p h& `f~ + I3 " B I9&" t D I9-& I5 " B I9&$ 2 $ D I8 I8,~ I8 I8,~ &" " B $ D + !$h X$h @@h *% " IA Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH O 1 ,> NZ@ p .#p < XB IXQ#p %p 8 XD Ih Ep *" #p XB I_@Ap p @
( 1D + I[1D + Ie4. I Ihd Ii FK 1d >1D Kp
& Ii,~ :
O&
1 ,> NZ `
ZAp [Ap ,~ U>m61 ,> NZ `
Ap ,~ H ItH JZgZ xIs A=Qi7 + @ ` 1p Q0A` Ip@@ It J_* J@ , JS4T J:1T + J1T )+ J$1 , JS4T JT + J ." &" "` QB Ir J` ` + J J`+ JH INX ( + J# `
& b Ja& b Ja` Jb` J+ J# Ip?` Is
& Jb ` 5H JO Iq $ , JS1T + JF0T *+ J , JS1T ', JS0T + J > @@ JY, JK0T 1T + J10T 1T -+ J84T J8+ J: $ Iq, JJ7@ JZ+ J81T + J<4T JH1T -+ J>0T + J:, JS+ J4!*Lu*
JY J JZ+ J3
& Je
'p
& Jg ` $ Jg, JM+ J4@
, JS0T 1T .+ JE1T + JD1t 14 + J:(L .,Wh+ J>SL J[+ J>XL J[+ JH, JJ! >9 @ JY 2 Jh*& 8+ 0@@ JZ Jh*& J\, JS1T + JK7 , JS14 ,~ 1t + JQ04 0t -,~ 4d JS.4 T = JM 0" d@ 8 1T 4 ,~ Ji b + ` + 2 gg G>n
6 @It Iq 5$ J0 J< JCANNOT ENTER TMP FILE!
Command error:
H JZ *p 0 + JZ iSN
, 7 OAp ,~ I4:1 ,> NZ, KB Ap ,~ 4 4 Jr4 K KbN=1 ,> NZO@ K p 4B Jz, KB4@ Jz9 J~9 J}KbN= 1 ,> NZ@@ K !$Lu ` @Ap `` a` + K a` + K D JuA (` K/" #B Jt@@ Ju !p X@ Jq,> < Jq, K%,^ 7@ K + K OAp + K #p Q"A` $ 1@ + K0` =d K ! H: @ Js@@ Jta|+ K[ p d 0@ + K[ p d 0@ + K+ K_ w6@ K _ w#` 1 + KSp Xp @ Jt
Jt+ K@ Jr+ K + K
& K + K Ap ,~ ERROR ON OPEN!
H H K#H K$ G.t21 ,> NZ@ @Ap ! A`.!p @ K! K" @ K#@@ K#@@ K$ & " K!< 1D + K0- K;=b K+ K!< 0D + K9O " K" @ K# K!< - K;=b K27@ K#OAp !p < , K#, K$,~ <& K4 K!1D + K8 Ap + K4 1D + K81$ + K51d + K@0$ 0d -+ K5 $ D K#+ K;" K^, Kk0@ + KZ p 4B K\L ad+ KY`b+ KZ $ 0d "+ K\&$ $& (&}Z .G K^.& $ .$ 7F + KO ,~ A$ &$ (D G$1$ ((D (D
` 5@ K\ .2b M+ KX L.& 7D !$Lu+ K[2" K_+ KU &p , Kc ` ,~
& K_ < Kb,
.p M}ILLEGAL DEVICE NUMBER!
" Kj, Kk ' Q&A` Kj@ 1x ,~ 18 0.8 X =` Kf,~ . H a|+ Kn0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> NZ, M9+ L@ , Lc, M5+ LZ" 6Ep " B` " b L $ 7cp $ 1B $ d L, L, M+ L6cp 0b " b L$ LD ({." XB` &$ @6@ .$ .$
a|+ L[p d p0B + L + L _w#` 1" + L 6cp 0d $QD` , LM+ , M@ ,~
& L+ L
& L+ L . Q,A`
L 4P L1P + L /0 P =n L,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
L + LYC G aS a3 S; YC&<G<aS<a3&<E$;w |xL$ PL B` 1T !"L b @ XB` O@ L? MQ L?@ , M@
+ MI!, 2, M*@ !.~ , M@` + MR"" 1T "" QB L=, M@ f + 1$ 9 L]+ M8 8 L$@` L$ MT*( L= MT n @ `N + MY 6`
MZ1T M[ B` " B` \"
b @ B` \" [ b !" Z (Brb M\ b
B L@ b
+" `B` !" 2 b `b `b + L}!" 2 b !` 2B` + L}!$ 2 d !$Lu+ M M\ b @ M], M] d !$Lu B L> D L?,~ @@ LB M^*( LH B LB D LC BX B` DX Z L@(D} d ` D LB DX " 2D` b M^d " b M, M@@ LA+ M LH BX @@ LI Mb b $+ M!" LJX"X *"X !"`
+ M$!, 2, M*B , M@" X
LC LC, M@ + M$ JX , M@ + M8
& Mc " b M^a` + M#+ M
a` + M#, M@ LA+ + M# x H M3 h &( 2
PL Mi. L@ &. .0 P `bp + M.d
@ L>, M@+ M3`L+ M, L>+ M8 ( !*Lu@
, M@
,~ : x ,~ " B MQO@ L@O@ LAg " ?$ MQ+ MH d 5D M< MQ(D DL@+ M8,> e` p+ MD7 LA+ MGl! LA+ MF7 L@+ MGl! L@: +@ > ,^ + M8
& Mi,~ "
& Mk,~ "
& Mq,~ , MP
& My
& , MP b ( My+ ML
& M},~ @ ;` L?+ LQ+ MK DHL% 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( MU+ ML`` ` P $` h H LB
X HX a` ,~ !" GB` + M# @LI6$ LC
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
C2d;y1 ,> NZ6#p 0b + NI@Ap NQ $ b 2+ N6 "6@ &Z &." p 4D N+.$(B{(D{0d + NI B NP D NO ( & Q& f 2+ N
H NN3H NO+ N2( NO+ N!.( 3( NP NP H NO@@ NP@@ N.S"xZHN.: N..( 3h NO*b N!$ 6@ NPGD N. NQ d 2+ N3h NO+ N NP(F + NG6@ NP+ N O@ NP+ NOAp Z N.3b NO+ NI/" * NN B NO+ N"@Ap NO: !& @@ N.!"x HN.: N.GFN..( 3h NN*b N$ NQ d 2+ 3h NN+ N#6Ap + NI+ NZ b + @gp + NG 6@ &+ N<Z .$ 1$ $ ! d + NI $ QD &, NJ p Z aD $ NR f Q& [ [ &.& ." `b+ NI! ." !` aB b :p d + NI/'p .& Gp ,~ OAp ,~ G3]x1 ,> NZ@ ` + NM,~
& NR ` N.p
Cannot write-enable high segment data area.
KbN@ 1 ,> NZ,
,~ NZY\ N\Q< X\ N\* +