' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦL~]LF LL} LŠčL]72µ- i ư&( Rp ߼ P  LLʬLo 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  $= '*.&  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0;1-30-+6/< 6/$2$ 6/+0*,)E8B ;4H8  `X !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ĵµ`ڿ8.ڿ.ۿ`êLHIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL\YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL- ( Ԡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / FD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `HD٤DFFhiHLGh `, ŵBѵ`, ѵB8` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`L漌ĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ``HH ᥠ ᥠ hh``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`F d£ Ġz# u`h Gl  ui (L+ ^h Gl  e i _ ^h k e L+ ^h IlL*0 ^h Gl *  o L*` ^h Gl  e i _ ^h k e $` ^h Il ^h Gl k ^h Gl  u i k  o ^h Gl  e i _ ^h k u i e L+ ^h IlL+0 ^L(L) ) hl i m Fh   li _ ^h k Gl fl  hl 1 m l 5 fl  e f i l  e Fh ui l L/* "< Y3  _a fl l f j $ e Fh ui l L^* xi gLd f j $Ld eL( i m l    l ^h  i 4 l ` 1 m xi [h` ^l  '  l  Rl  i m i   ^h Il i _ ^h k e i _ ^h k e l e  e 4 o 1 m f i fL*) )) hl i m Fh   li _ ^h k Gl fl  hl 1 m xi ?f Ik L)RECORDS READ= r)  f a g i L) Bf i $7'L' oW #j ~fL' ' hlL) xi f Rl L'PR#0 '  =l l X l ?l Rl L( OPEN ADATA. (  =l  \l rlL9( WORK.DATA1 k i  j 4 .( L( k l X l k Rl Ly( OPEN ADATA. m(  k  Rl L( READ ADATA. (  p +k  e Ei k &l L& .k Bi k hL' Ei dk $L' Ei ii L' Ei Gl  h` Fh ui L' i m Fh   * li _ ^h k Gl  1 m i [h i m j   ^h Il i _ ^h k n  o i _ ^h k j o * ^h Gl  1 m Rl  ` _ >g k n c j i # j e h Ei i  e ?i i &l L& ?i g A f ui $L& k h` !i i  e i i &l LR& i g A f ui $LR& k h` !i +k  e !i k &l L& .k i k hL& !i dk $L' !i ii L& !i Gl  h Ei# h Il h  o L# h Il h  o L# h Il i _ h k l  o L# h Il h  o L# i _ >g k n c j i # h i _ >g k n c j i # i i _ >g k e i _ >g k n c j i # j e g k e i$0$E$Z$o$$$$$$L#LINE11330ERROR #  K i _ >g k n c j i # ;gL h Il h h  o L# h Il h  o L# h Il h h  o L# h Il h h  o L# h Il h h  o L# h Il h h  o L# h Il h A  o L# h Il h  o Li Gl  pk l L" i [hLH!LH! hm L" i [hLH!LH! hm L# i [hLH!LH! h h $L# i [hLH!LH! >g f ` % h ui $ e h j $l ` k h $Lk# h Il l o L# h ii $L# h Il h  o L# h i $L# i ?fL# h  $ i $ e ^h ui $l L! >g i ;gL" ^h ui $L" i _ >g k n c j i # ;gL >g f `L# h h (L-" i [hLH!LH! h h LG" i [hLH!LH! h h La" i [hLH!LH! h h &L{" i [hLH!LH! h h L" i [hLH!LH! !i Gl  k ( e !i _ >g k e i _ >g k n c j i # j e ui $L# % k h $L ! xi [hLv! xi [h h  "0"J"d"~""""#L:!LINE11065ERROR +!  K ^h i $L_! >g i ;g h j $Lv! xi [hL! i _ >g k e i _ >g k n c j i # j ei n i   i m Fh   li _ h k n *i $L 1 m ^h Il i _ 3i k  o * ^h Gl  ^h Il j _ 3i k  o * ^h Gl  ^h i [h ^h Il li _ 3i k  o * ^h Gl  ^h i [h 1 n Rl  ` i ;g >g f ` RITE ADATA.   \l  i 3f i m Fh   li Il li _ ^h k Gl o li _ ^h k Il li _ ^h k e i _ e k e l 6f  e 4 o * li _ ^h k Gl  li _ ^h k e i _ e k n 0f 3f li _ ^h k Il li Gl o 1 m i @h i [h m i   li _ g k k $LvL***CASE=   2g i aL   g l L TRUNCATED    g Gl L5 TO 0  g Gl i _ g k   li _ g k li o 1 m xi g g i $L  2g i /g 1 m` Rl L W L WORK.DATA1 k i  j 4   e Fh ui l L Rl L WRITE ADATA.   \l  i m i   * ^h Gl  e i _ ^h k e (Ll i g li _ ^h k k o ^h Gl i _ ^h k   1 m Rl  g i L i,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨéR 1 m Fh ui L: Rl L:PR#0 :  `L:DUMMY zl 5 : L< zl l X l |l Rl L; OPEN ADES. ;  zl  Rl LE; WRITE ADES. 9;  \l  i m i   ^h l Lx;, v;  i m Jj   h \ ^h k aL;,  i m i   Sj Oh e Sj Oh # e $ e &g i $l L":L:HIT 'RETURN' FOR MORE... 9  '  l L': L4: ^h  %:  k ^h l k  *:  j    i  j _ ^h k f + l  i  j _ ^h k f + l  i  li _ ^h k f + l  1 m &g i $L9L9HIT 'RETURN' FOR MORE... 8  '  l  i L(9VARNAME  9  j L>9SKEW 99  Jj LX9KURTOSIS O9  i Lt9------- l9  j L9---- 9  Jj L9-------- 9  j L7 N 7  i L7------- 7  j L7---- 7  Jj L8--- 7  j L8--- 8  L*8 L78 ^h  (8  k ^h l k  -8  j   i  j _ ^h k f + l  i  Jj _ ^h k f + l  ... 6  '  l  i m i   ^h i $L>7 Sj Oh e Sj Oh # e L%8 &g i $L>7L*7HIT RETURN FOR MORE... 7  '  l  i LY7DESCRIPTION FILE G7  zl  i L{7VARNAME s7  j L7MEAN 7  Jj L7STD 7 5--- 5  j L5--- 5  L5 L5 ^h  5  k ^h l k  5  j   i  i _ ^h k f + l  i  i _ ^h k f + l  i  i _ ^h k f + l  1 m &g i $L6L6HIT 'RETURN' FOR MORE e i _ e k n 0f 3f 1 m L4************** 4  i L 5DESCRIPTION FILE 4  zl  i L,5VARNAME $5  j LA5MIN =5  j LV5MAX R5  j Lk5SUM g5  i L5------- 5  j L5--- 5  j LHIT RETURN FOR MORE... 3  '  l  Fh ui L4 i 3fL4************** 3  L!4*** SORT GROUP 4  i m Fh  L?4 =4  li _ if k l Lb4= _4  li _ if k e i _ e k e l 6f  e 4  li _ if k o f ,j f h i h 1 m i h h` h ui LH3 L2RECORDS WEIGHTED BY=> 2  h l  L13WEIGHTED RECORDS OUTPUT= 3  2g a g i L#d "< ^, i m i   ^h i $L3 Sj Oh e Sj Oh # e L5 &g i $L3L3 l 1  o i _ h k f o i _ h k j o f ,j f h i h h lL 2MEAN ^h l 2  o i _ h k f o i _ h k j o f ,j f h i h h lLn2N ^h l l2  o i _ h k f o i _ h k j f i i h i m Fh   h l li _ ^h k l o i _ h k f o i _ h k li _ ^h k e i _ e k o i _ h k n f f h i h 1 m i m i   i n Fh   li _ 3i k n Rh $L2 1 n h lL1SUM ^hFh ui L/ i Uh g g  L/. /  ^h l 7k   @k  i _ ^h k ^ k  i _ ^h k ^ &g i $L0 &g i $ e Sj Oh # f Sj Oh f $l  e ^h i l L0 'L0HIT 'RETURN' FOR MORE... v0  l  1 m ` i i _ ^h k ^L., .  i _ ^h k ^ 1 m Rl L.CLOSE .  Rl  L /  /  L9/OUTPUT DICTIONARY WRITTEN. /  LX/ POS LABEL M/  "k Lo/START i/  yk L/WIDTH /  3i m if   ^h g ADICT. -  k  i 0i i ff Fh ui L- i i 0i h ff i f k l X l k Rl L. OPEN ADICT.  .  k  Rl LA. WRITE ADICT. 4.  \l  3i m if   i _ ^h k f o i _ ^h k n f f ^h l L., . h k k $l  e h k k $l L, h k   1 m ]f a j m j   h k ii $ e h k k $l LC- h k   1 m `LZ- WORK.DATA1 k 5 O- ` L-WRITING DICTIONARY. q-  L- TO DISK FILE= - L-h Gl +  o Lj+ ^h IlL+- ^h Gl +  o `L+ + +lL+ + l f Z f  l  j L], i m l  j  L5, )l 5 3,  +l 1 m )l 5 l  +l l` Jg i (` Rl Lw,PR# s,  Jg a i m Jj   h k ii $ e i $LJ k  0iLK f i $LJ i m i   ^h l k LJ ^h 0iLK 1 mLc f *i L&K 3i [h f 0i ^h f f m 3i   i _ ^h k h o h i h 1 mLG i m i h   i n i   i _ 3i k n Rh $LK ^h Il 4 I  e l ^h  i 4 I l LI 1 mLb i Uh e l i  e 1 lLJ) l ^h  i 4 J L/J l ^h ' lL>J ^h i l ' l L f i $L[J k  fLJ f i $LJ i m i   ^h l k LJ ^h fLJ 1 mLc l l L f H ^h i l ' lL`K rL f i $LI k  e i _ e k h o  h i hLG i m i   ^h l k LMI i _ ^h k h o  h i hLG 1 mLc i Uh e l i  e 1 l ^h i l ' l  i m l   LI LI) l ^h  ig i $LL i h i m f   i _ ^h k j o 1  i m l    l ^h  i 4 lLH) l 5 H LcHL0H l 5 .H LHLHH- l 5 FH LUI 1 mLb ^h i LHLvH i Uh e l i  e 1 tH  k l ^h ' k  lL Rl LF READ ADICT. F  \l  ' Qf l  o i _ Qf k  o i _ Qf k  o  Rl  Qf i NfLF Rl L?GCLOSE 9G  i Kf iLlGDICTIONARY READ. NV= VG  i a Rk > li T i ui $La g ui $LG L] gLE i ~f ^h g i ui LF i g e l i  e 4 ?l g i l * l LF INPUT FILE= E  =l  g ui $LmF L1FC l i  i 4 /F LL i g l i * l i ui LG 70G i Nf =l l X l ?l Rl LF OPEN ADICT. F  =l  ui LE LD( D l r* ^h ui $LELE(***WARNING: NO OPEN PARENS>NO MODS MADE. D  LX g i (L&E i g i m l   L?E l ^h  i 4 =E LEL`E( l ^h  i 4 ^E LELE$ l ^h  i 4 E LE 1 mLbLE ^h  ^h l k LC 1 m li _ Fh k ^h o f i $LCLB LD SORT VARS= C  i m Fh   li _ Qf k l L3D 1D  1 m )l lLQD$ l 5 OD  l i gL] ^h i l ' l i ui $LD LD( D l r* ^h ui $L] iB LB i Uh e l i  e 1 k ^h i l ' k  l 1 mLB/ B l r* ^h ui $LC i ~f f i $LiCL#C !C l r* ^h ui $LiCLAC$ ?C l r* ^h ui $LiC l  i n [h i Uh e l i  e 1 l ^h i l ' l Fh i Ch i m i  xi ~f xi Ch ^h i l ' l LA= A l r* ^h ui $LBLA i Uh l  i 4 A LB i Uh [h ^h m i  i L1B l Qf  i 4 /B LzB Qf i l ' +l i Kf e l i  e 1 lLB 1 mLb i m l   LB l ^h  i 4 i l ' l  i m l    l ^h  i 4 lL@ L@$ l 5 @  e l 5 @ l LA 1 m i Uh e l i  e 1 l l ^h ' l LGA l i  EA LA l  u i e l i  e 4 lLBALA$ l i  i 4 A LA i ~f` i 4 lL? L?$ l 5 ?  e l 5 ? l L? 1 m i Uh e l i  e 1 l l ^h ' l  i m i   ^h l k L@ 1 mLf@ ***ERROR: WEIGHT VAR NOT FOUND=> E@  k  L@OR WEIGHT= BEFORE IN= z@  L j _ ^h k xi o L_? j _ ^h k li _ ^h k e li _ ^h k i e e j _ ^h k ui $ e li _ ^h k c i ui $l L!= Jj _ ^h k xi o j _ ^h k xi o j _ ^h k xi o Lw? Jj _ ^h k e li _ ^h k c i e %h li _ ^h k i & e i h i (l L= j _ ^h k xi o L> j _ ^h k l;  1 m li _ ^h k aL;,0 ;  1 m Rl L;CLOSE ;  L<DESCRIPTION FILE WRITTEN. ;  L#d i m i   li _ ^h k ui $L P<  ^h l  Jj _ ^h k xi o Lw? Jj _ ^h ` xi ~f i g xi g xi hLZ Z hlLZ Z l xi _gLZ WORK.DATA1 Z kLZ Z ?lL [ [ |lL[ [ +l Rl L4[ OPEN PARMFILE &[  Rl LV[ READ PARMFILE H[  rX Rl Lv[CLOSE p[  Rl L[ OPEN SYSPARMS [  Rl L[i lLY^ Y o i lLYSQRT( Y o i lLY* Y o j lLY/ Y o Jj lLZ+ Z o j lLZ- Z o j lL.ZLN( *Z o j lLDZSIN( ?Z o j lLZZCOS( UZ o j lLpZRND( kZ o j lLZ.M1. Z o 8j hLZ 'f j i # c j i lLX` Aj g 8j h xi /g i f i g i lLX.LT. X o i lLX.GT. X o i lL Y.GE. Y o j lL"Y.LE. Y o Jj lL8Y.NE. 3Y o j lLNY.M1. IY o j lLeY.AND. _Y o j lL{Y.OR. vY o j lLY.EQ. Y o j lLY Y o F FILE. W  LWFILE NOT FOUND IF CODE=6 CODE= W  f a L#d Rk > li T` xi gL&E l 5l l lLX, X l r* ^h ui $LPX l ^l 3l l l 5 l  l` i Uh e l i  e 1 ^l 3l l`LvX uX +lLX X l  +l j  )l LX l 5 )l e l 5 V l LV 1 m i Uh e l i  e 1 l ^h i l ' l  jO f i fLzD i _ i k i i e i _ e k e i i e i _ e k e o i _ i k h o xi h` k D n f j LW Rk > li TLW***ERROR: NOT END Oi l ' lLU) U l r* ^h hLU( U l h ui $L9c h Rh L9c h i l ' l L AP f i fLzD i _ f k i _ f k n Xh o i h e l i  e 1 l h i l ' l  i m l    l ^h  i 4 lLV LV) l 5 V  LT 1 mL9c i Uh e l i  e 1 l ^h i l ' l L AP f i fLzD i _ f k i _ f k n Xh o ^h 5j $LIU f i f l j * l LzD LQU( OU l r* ^h i l ' l LsU) qU l r* ^h ui $L9c i Uh e l i  e 1 l ^h ^h ui $L9c 3i i (LXT i m h   i m ^h l  n -i   ^h l  e l h  e 4 k ^h l k LKT ^h  VTVVVVTTTTT 1 m 1 m  i m l    l ^h  i 4 lLT LT) l 5 T  e l 5 T l i i i WLbS L f i $L S g k k  o i _ f k j g j o g i gLbS f i $LZS i m i   ^h l k LZS i _ f k ^h j o LbS 1 mLyc LkSTO l i  i 4 hS Lc l i * l LS) S l r* ^h 0il i  Q LQLycLQ) Q l r* ^h ui $Lyc ^h i l ' l i _ f k gk o i _ f k i o f i fLzD l j * l L:R 8R l r* i Uh e l i  e 1 l ^h i l ' l h i $LR i _ f k i i j o i i l k o m i   ^h l k LP i _ f k i _ f k n Xh o ` 1 mLbLQ k  k  i 4 Q LLQ k  u i e k i  e 4 lLQ` i h l Jj * l L5R LpQSETX l j  kQ LMQLQSET l i  Q L&RLQDEL g i gL P f i $LP i m i   ^h l k LP i _ f k ^h j o L P 1 mLP.M1. l 5 P L5PL,P +P l` l l L Q f i $LP g k k  o i _ f k i _ f k e j g e o g i g` f i $LP iN l r* i Uh e l i  e 1 l ^h i l ' lLN. N l r* ^h i l ' l  QL ODUMMY O lLO.M1. l 5 O LjOL5O 3O l r* i Uh e l i  e 1 l ^h i l ' l L f i $LO g k k  o i _ f k j g j o LMQLMSET l i  i 4 M L&RL] l i * l  LM. M l r* ^h ui $Lb l ^h  j 4 l i m g   ^h l l LEN 1 mLb i _ f k i _ f k n Xh o f Sg N i _ f k Vg i j i o f i fLeQLN. Ői 4  k ( e k i  i 4  [k l LL i f` i g i ui $LmF  f i $LjM i m f   i _ ^h k li o i _ ^h k li o i _ ^h k ^h i j o 1 mLpMIF l i  i 4 mM LMLMSETX l i  j 4 M 3i l o i m i   if \ ^h k if \ 3i k o 1 m 1 m i h iL L 1 n i h i i m i   i m i   if \ ^h k if \ ^h k o ^h l ^h Gl o 1 m 1 mLzD i Uh e l i  e 1 l ^h i l ' l i f k i  E '  L' OUTPUT FILE= '  O  L UM $ J L M $eP LI( LM OL (RL ( o mM P xK   L OL0(C [M wL  .(  o 1 PLT(DEFAULTL_(DEFAULT O 5 L(  J 'P 5 W( eP L( O )P L UM $L(L(DES= ( O c [M K J J M _ L O c [M K M _ L O c yM K K M _ L O c M K VL VL J o M _ L O \L o 1 P` L M Lt'Lc'NUMBER VARIABLES= P'  L a L M $L'L''NUMBER OF VARS DETERMINED FROM CASE ON  Nk aL,   k aL,   l aL,   k ^L,   k aL ,    l ^L,   Zk ^L1, /  k ^LD, B  l n ^LZ, X  l n ^Lp, n  m n ^L,   @m n ^L,   m n ^ o m n  o @m n  o m n  o m n  o m n  o m n  o m n  o m n  o  -o L<CLOSE 6  c4` -o LdDELETE SYSPARMS T  -o L OPEN SYSPARMS x  -o LWRITE SYSPARMS T Wn > n T `n > m T in > l TL< l Qp n   L n ,l  l 4  L n l * n 1 Qp` -o L3 OPEN SYSPARMS %  -o LVREAD SYSPARMS G  '  Kk  k  l  k  k  l  Wk  k l n  o l n LE.  o m oL.NE.  o m oL.EQ.  o m oL.M1.  o LBRUN  oL.OBJ   XoL$DEFAULT  o m l l Qp l   ,l bo  o ,l mo  o ,l n ,l ko  o 1 Qp *n > l T 3n > m T  n T Nn > m *  o m nL^  o m nL.M1.  o m nLSQRT  o m nLLN  o m nLSIN  o m nL*COS & o m nL?RND ; o m nLWDELETE P o l oLm.LT. h o l oL.GT. ~ o m oL.GE.  o @m oL.K M _ L O c yM K J J \L VL J o M _ L O M & J yM SL dM (eP L(& EN _ L O M o L!' EN _ L O M _ L O J M _ L O XM J J EN _ L O J J M _ L O M K M _ L O K K M _ L O M o *N _ L O M o EN _ L O M o L9' M _ L O J M _ L O c [M J YL M _ L O vM & J yM SL dM (eP L]% *N _ L O M o L% *N _ L O M _ L O J *N _ L O J J M _ L O c [M PROCHISTEDITPROCEDITANOVPROCANOVSORTPROCSORTLISTPROCLISTREADPROCREADWFCOPROC WRITE.DIFLiWFCOPROCWRITE.FILE.CABINETWFCOPROCWRITE.APPLE.PLOTJOINPROCJOINUSERPROCUSER l nLt+ r o l nL-  o m nL/  o @m nLe o j _ g k j _ g k g o i _ g k tg L i _ g k g o i _ g k tg (L2 i _ g k g o i _ g k i _ g k e f wg e o 1 m` h ui $L| i fL h g A f ui $` h Gl  f i m f f f i f f sh g f li _ g k f e o j _ g k j _ g k e i g f Jj _ g k f e e li _ g k g f li _ g k f i f f f f f f f gh e o Jj _ g k Jj _ g k e li _ g k g g g c f i f o li _ g k f e j _ g k zg e g g g 4h g jh 7h 1h vh j _ g k j _ g k e i g f j _ g k f e e i 1h f Jj _ g k f e o j _ g k j _ g k e li _ g k f li _ g k f f i f g j $l L i f`` i f f i $LE i m i   li m j   h \ ^h k xi o 1 m i _ ^h k k o i _ ^h k k o 1 m i m i   g g A f ui $L_ g Gl  }g li _ g k g li _ g k li _ g k9U ylxyL  l j h j  Tl _j f xi [h xi h xi /gLX i m l   L l i  i 4  L@ l i * l 1 m` xi f g Gl l  l  n f f hj  e f qj &l L i f` f \j $ e f zj $l  e f                                 LM P L   L O L7, 7  LM P M   L \ L O aL8, 8  1 P M _ L O aL(8,0 %8  1 P P LG8CLOSE A8  Lu8DESCRIPTION FILE WRITTEN. [8  LI K UM (` P L8PR# 8  K a ' FOR MORE... 6  '  O L6 L6 L  6  O L O O  6  oN    LM  *N _ L O K 9 O  LM  EN _ L O K 9 O  1 P P Lq7 OPEN ADES. f7  'P  'P QP A P L7 WRITE ADES. 7  P 5  '  O  LM L5VARNAME 5  ]N L5SKEW 5  M L6KURTOSIS 5  LM L6------- 6  ]N L56---- 06  M LO6-------- F6  LM P L   M tL J M tL # J $ J K vM $eP L6L6HIT 'RETURN- 4  *N L4--- 4  L4 L4 L  4  O L O O  4  oN   LM  M _ L O K 9 O  LM  M _ L O K 9 O  LM  M _ L O K 9 O  1 P K vM $L5L5HIT 'RETURN' FOR MORE... 4 K vM $L3L3HIT RETURN FOR MORE... 3  '  O  mM L4DESCRIPTION FILE 3  'P  LM L&4VARNAME 4  *N L<4MEAN 74  M LQ4STD M4  *N Lf4 N b4  LM L4------- z4  *N L4---- 4  M L4--O  2  oN   LM  LM _ L O K 9 O  LM  mM _ L O K 9 O  LM  M _ L O K 9 O  1 P K vM $Ln3LZ3HIT 'RETURN' FOR MORE... A3  '  O  LM P L   L UM $L3 M tL J M tL # J LION FILE 1  'P  LM L1VARNAME 1  *N L1MIN 1  *N L2MAX 1  *N L2SUM 2  LM L22------- *2  *N LG2--- C2  *N L\2--- X2  *N Lq2--- m2  L2 L2 L  2  O L O P L0 OPEN READ.WRK 0  P L0CLOSE 0  P L1DELETE READ.WRK 0  L UM LI # LM P L   L UM $L1 M tL J M tL # J L2 K vM $L1L1HIT RETURN FOR MORE... l1  '  O  mM L1DESCRIPTlK XM iK L UM $L/ B O  LM L/RECORDS WRITTEN= /  lK a L. kO D n K M L0L80#***ERROR: NOT END OF FILE ERROR= 0  K aLP0 LINE= I0  ;O D J DO D %M J ^ 2O > M TLI P L0CLOSE 0  2O > M TL, PEN .  ;P  O QP A OP O P L. OPEN ADATA. .  O  M iK P L/READ /  P  LM P L   ' L P  o  1 P P  P Li/ WRITE ADATA. \/  P  LM P L    L O  1 P P  LL VALUES FOR EACH CASE -  L- SEPARATED BY BLANKS OR COMMAS -  L. THEN HIT 'RETURN' -  L UM $Lh.LZ.' RL - ROW LABELS ENTERED AUTOMATICALLY 2.   P L|.PR#0 w.  7? ;P QP A OP =P P P P L.O,  P  L, Lk. K UM $ J L UM eP L"-L-(***WARNING: IN= MUST BE USED FROM EXECS! ,  M iK ;P QP A OP =P P LI-OPEN C-  ;P  K vM $L. L-ENTER ALL DATA FOR EACH RECORD: q-  L- ENTER A+  '  O  1 P` -GL+ O 5 + L, L+READING FROM INPUT FILE. +  7/ M iK P L$,PR#0 ,  O QP A OP O P LM,OPEN G,  O  P P ;P QP A OP =P P L,OPEN ,  ;P  P L,READ *  N L*START *  MO L*WIDTH *  LM P L   L  L+. +  L O N   N  M _ L O ^ bO  mM _ L O ^ K UM $L+ L M $ J L 3N $eP  J L  .M T N > xN T N > VO T O > N T O > N T O > M T )O > 7M TLB K N @M # c N i` [M L M HK M L MLE-USE MAXFILES 3 COMMAND @  LIL@***ERROR: SYSTEM CODE= @  L aLA AT PROGRAM LINE= A  ;O D J DO D %M J ^ LI LM P O   LRA O LM  LM 4 PA LA O mM * O 1 P` O O OP OLA, A GP ~9 L M $LA M T L M $LI L M $L@L?!***ERROR: DISK WRITE PROTECTED ?  LI L M $L;@L-@***ERROR: FILE NOT FOUND @  LI L M $Lv@Lh@***ERROR: DATA DISK FULL L@  LI L M $L@L@=***ERROR: NO FILE BUFFERS AVAILAB O L XM O ' O  OL_> 1 P [M L L UM $L> yM L LM OL>RL > o L>/ > GP ~9 L M $LW? L O [M wL J O LM  J 1 o L XM O ' O L XM LL> L O O o O OLq?$ O LM  LM 4 o? L? [M HKLXFLXF kO D n L 2O > = L= [M wL J O LM  J 1 O L XM O ' O  O L P LM  LM L> O L  LM 4 > LN> [M L J O LM  J 1 O L XM O ' OLS> 1 P O O O O LM P O   Lx> O L  LM 4 v> L> [M wL J O LM  J 1<$ O L  LM 4 < L< 1 PL< L #LL< [M HK L #L LM &L J O LM  J 4 O O )L * OLXFL== = GP ~9 L M L= LM P O   LI=$ O L  LM 4 G= L= [M wL J O LM  J 1 OL=$ = OLS> 1 PL= [M wL O  LM 4; L;L;$ O L  LM 4 ; L; 1 PL; L #LL; [M HK L #L LM &L J O LM  J 4 O O )L * OLXF L IM O * O LM P O   LH< O L  LM 4 F< Lu< O mM * O 1 P LM P O   L< O L  LM 4 < LRE-ENTER '*LAB' AND '*FMT' (Y/N)? c)  '  I L)Y I 5 ) K G   G  L'. '  G J I   I  H _ G I ^ I  uH _ G I ^ F ]H $L( G H $ F G I $J  F G I $J L( Lk( HIT RETURN... ](  '  I  1 K A F H $L( L(ENTER '*READ' TOG I n qF tF G J L&, &  H _ G I ^L&, &  uH _ G I ^ 1 K 5J L'CLOSE '  5J  LO'DICTIONARY WRITTEN. ;'  Lk' POS LABEL `'  zI L'START |'  I L'WIDTH '  TH 0 / # @0 /  0  +  0 #/  0  1L+JOIN 0 0  70 4 + L- 0 L0 * 0 (L,= , |1 v( / / $L- 0 / . 0 0  . 1 h1 / 0 0 ' 0L\, f1 0  Z, L, f1  u 0 f1  h1LW,L,MUD f1 5 , LL,Lo .0 0  o 70 0  o L0 0  o U0 0  o ^0 0  o g0 0  o p0 0  o y0 0  o  31 L8+CLOSE 2+  y0 Lh+A-STAT JOIN PROCEDURE R+  ?-L+,SL+,DL+,V C0 / #  |+  +  0 C ) 0 31 L) OPEN PARMFILE )  31 L) READ PARMFILE )  ]) 31 L *CLOSE *  31 L/* OPEN SYSPARMS !*  31 LR*READ SYSPARMS C*  '  /  S/  /  z/  \/  /  /  h/ 0 0  o 0 0  /` 0 1 0   L( 0 0  0 4 ( L( 0 0 * 0 1 1` 0 1 1 0L), ) |1 v( / / $L;) 0 ?1 1 0 1 5 1  1` 0 / . 0 0  . 1 ?1 1 0`La) `) 1Lm) l) 0  1 0  1 L) 0 5 1  0Lu)` 70  51L) a 0 1 L0   / 0 / $ . / 0 0 $1  . / 0 0 $1 L( / 0   1 1 / a U0 1 y0   / 0 / $ . / 0 0 $1 Lm( / 0   1 1 ` 0 1 0    0 /  0 4 z1 ` 1 1 / '  1  31  0 5 1  0 31 L& WRITE ADATA. &  p1  0  31  0  0 L*'PROCESSING RECORD= '  / a / 0 /LJ& 0 > / T ' Ln'RECORDS WRITTEN= \'  / a L-. _/ 0 (` 31 L'PR# '  _/% OPEN ADATA. %  0  1 1 ( 1 1 31 L% OPEN ADATA. %  1  =1 0 )1 1 ( 1 +1 31 L0& OPEN ADATA. $&  )1  =1 S1 31 L_& READ ADATA. S&  0  '  0  31  31 L& READ ADATA. &  Q1  2/ a 31  / "0 $L% 0 L$, $  J/ aL$, $  2/ a 31  J/ ,/ G/L $ / "0 $L@% )1 !1 %0 /L5%APPEND -% 0L# 31 LO%CLOSE I%  / / 7G'Li% h% 0Lu% t% 1 31 L%PR#0 %  0 1 ( 1 0 31 LDICT. #  1  =1 S1 0 1 ( 1 0 31  0 L#ADICT. #  0  =1 r1 31 L$ READ ADICT. $  Q1  '  0  .  //  31  31 Lg$ WRITE ADICT. Z$  p1  / 0 $L$ 0 L$, $  . aL$, $ "$ " |1 v( / / $L- 0 / . 0 0  . 1 0 / 0 0 ' 0 (L L # LEFT FILE=> "  1  L/# RIGHT FILE=> "#  )1  LT# OUTPUT FILE=> F#  0  0 G/ 1 !1 0 /L#OPEN z# 0 7% 1 1 ( 1 !1 31 L# OPEN AG * IL@ TH K I   L; I TH  TH 4 ; L; I uH * I 1 K` I J qJ IL<,  < iJ 8 G H  1P  LILI&***ERROR: TS NOT 2 AND NO IN FILE!! H  LI P L ICLOSE I  G P LFIRUN MAINPROC,S 7I  M 2L # aL`I,D ]I  M 2L # M 5L aLI,V }I  K ^ 2O > M T 8 LIRECOREL 8  :K-8  L 8  L 8  L-8TL 8TL 8T L 8  T-8ThL 8TjL 8TlL 8  nT-8TL 8TL 8TL 8TL 8TL 8TL 8TL 8TL EL EL ELdEL ELdELdELdELdELdELdEL ELdELdEL EL EL EL ELdEL EL ELdEL EL EL EL EL LdKLdKLdKLdK LdK%L K'LdK,LdK1LdK6L K8L EYL E[LdE`LdEeL EgLdElLdEqL EsLdExLdE}LdELdJLdJLdJL JL JLdJLdJLdJL JLdJLdJLdJLdJL JL JLdKLdKLdK , p z 0vZJL JL JLdJLdJLdJLdJLdJLdJL JLdJL JLdJL JLdJLd[G # aLD,D D  H [G # H ^G aLD,V D  G ^ 7LERECORDS WRITTEN= D  wF a L%E END ADATA. E  I  5J LHECLOSE BE  L'/LcAlJ~@@  4@d8 C  LY!LC***ERROR: NO OPEN PARENS C LC C  LY!LD***ERROR: NOT ENOUGH FORMAT C L%D !D  L!L]D&***ERROR: TS NOT 2 AND NO IN FILE!! 6D  LkD 5J LzDCLOSE tD  4B 5J LDRUN MAINPROC,S D  H RETURN WHEN DATA LOADED. B  J  ``LB***ERROR: WRONG PARMFILE B  LkDL(C***ERROR: BAD PARAMETER=>  C  ]J  LkDL`C ***ERROR: LOOKING FOR *LAB CARDS ?C LoC kC  L LC ***ERROR: LOOKING FOR *FMT CARDS C LCJ L3B 5J LACLOSE A  5J LAVERIFY SYSPARMS,S A  H [G # aLB,D B  H [G # H ^G aL(B,V0 $B  ` H ]H $LB 'LmBHIT RETURN WHEN SYSTEM LOADED. NB  J LB ~B J ` H ]H $LB 'LBHIT  L@ I G  TH 4 @ L@ 1 K G LG I RG * I TH K I   LA= I G  TH 4 A L%A 1 K G H TH H E I TH  E 4 _JLMADES ]J 5 IA L8LfANV ]J 5 cA L9LAIN ]J 5 |A L:LC F ]H $ F H ]H  ? L? I uH * IL? TH K I   L? I G  TH 4 ? L@ 1 K G LG TH OG E I TH  E 4 I LK@ A-STAT DATA PROCEDURE. /@  Ln@OUTPUT FILE => _@  I  RG QH I * I B \F ]H $LL TH K I >,V H !H #  >  >  I H !H # H $H  I  >  I PF  I  }JL ?DATA I TH  H 4 ? LB TH K I   L>?= I G  TH 4 CLOSE >  L>,SL>,DLF SI HH # c VI i` ?H +G ?H YF H  7JL< WORK.DATA1 < IL< < "JL< < IL= = UJ 5J L&= OPEN PARMFILE =  5J LH= READ PARMFILE :=  e< 5J Lh=CLOSE b=  5J L= OPEN SYSPARMS |=  5J L=READ SYSPARMJL JL JL JLdJL JL JL JL JL JL JL JL JL JL JL JL JL JL JL JL JL JL JL 8  Q 8  1Q-8  R 8  R-JAL JCLdJHL JJLdJOLdJTLdJYL J[LdJ`LdJeLdJjLdJoLdJtLdJyL J{LdJLdJL JL JL JLdJL JL JLdJL JL JL PLdQLdQLdQ LdQLdQL QL J L J L JLdJL JL JL JLdJL J!LdJ&LdJ+L J-LdJ2LdJ7LdJ l T l k KLcL%V n l  % l kL# SV= #  k ^ KL!L#DV n l  # L!$ ' Yl WkL$ DV= #  Zk ^ KL!L)$MENUL0$PREL8$COMML@$EASY n @m  $$  3k n m  ,$ o  3k n @m  3$ o  3k n @m  ;$ o L$ l kLL=# rn > l T 7#L" " n En > n T o nL"*END n 5 " L! -o  n  L" rn > l TL/#***DOS ERROR #  L" LF#OW n l  C# L# ' Yl KkLq# OW= h#  Nk a KL!L#SV n l  # L# ' YL! 1 QpL!MORE ? ! LF!  k l $L! n  L!RRL!WW n l  !  3k n l  ! o L+" n l * n l Qp l   ,l ko n ,l n n  n Lj" 1 QpL" ( -o  o  ,l `o  Vo  L"DOS n l  m 4 "  o *n 8 n D u l n ik l Qp lk   m &l G u l  o  o 1 Qp o  m $L!L! ! o`L ! ! nL-!? +!  En > n T 7 n %o o n l lLo)Lc! #o 5 a!  n  n l Qp n   L!$ n ,l  l 4 ! n D n kl nl m $L L)***ERROR: PROCEDURE NOT ON THIS DISK=>   n  rn > l TLE nl Im $L_ L? ***ERROR: DISK FULL (  n  rn > l TLE L ***ERROR: DOS ERROR CODE=> e  nl a rn > l TLEL  L,   m n ^L,   m n ^L,   m n ^L,   m n ^L ,   m n ^ -o L-CLOSE '  c4` @m  /oLI H nLU T o -o Lr NOMON C I O f  7  k l $LLMENU$  nL!$L! L"L- (L! ! |1 v( / / $L!L!$ ! |1 v( / / $L- 0 / . 0 0  . 1 1 / 0 0 ' 0L (L&" $" |1 v( / / $L]"LD"$ B" |1 v( / / $L- 0 / . 0 0  . 1 +1 / 0 0 ' 0L (L" " |1 v( / / $L"L / $ . 0 0   1 L" (L =  |1 v( / / $L- 0 / . 0 0  . 1 h1 / 0 0 ' 0L!! f1 0  ! L^! f1  u 0 . f1 0  . 4 h1L!Le!OUT f1 5 a! L"L!LEFT f1 5 {! L!L!RIGHT f1 5 !  LADICT.   p1  0 L,   1 L,   1  31  LW 31 L CLOSE   0 > / TLB DICTIONARY WRITTEN /  L-. Li LEFT - RIGHT MERGE V  L~ } +1L  1L  0L!L $ 0 PROCESSING ADICT.   0  7 / [1 1 ( / ]1 1 o 31 LOPEN   / [1  =1 S1 0 1 ( 1 0 31 L= OPEN ADICT. 1  0  =1 r1 31 LfREAD `  Q1  '  0  1  1  31  31 LWRITE L 31 LCLOSE   p1  ' / [1 L HAS   / aL RECORDS.   / / 0 > / T / / $L; / 0 /L} 31 LMCLOSE G  0 Lg HAS a  >/ aL RECORDS x  L* 0 0   L L/ ]1 1 o 31 LOPEN   / [1  =1 r1 31 LREAD   p1  '  0  31  / 0 / 31 L6WRITE /  Q1  0  31  >/ 0 ;/ 0  0 LPROCESSING FILE q  p1 L RECORD=   / a * / [1 0   L / ]1LADATA. / [1   o L* / [1 0   L. / ]1 / [1 0 * o 1 1 / / / ;/ G1 1 ( 1 I1 31 L]OPEN W  G1  =1 S1 0 / 7 31 LPR#0   / [1 1 (  / [1  1 1L* 0 0   L LOUTPUT FILE=>ADATA.   0  L6 L" OUTPUT FILE=>   0  0 0 * I1LG* 0 0  E LxLgADATA. ` 5 0  I1 / ]1LADICT. 0 [1   o 0 1 /  L L- / 0 0 ' 0 ( 0 1 0    0 /  0 4 |1L$L z1 5   . z1 5  1 L= 1 1 / / / / $L- 0 / . 0 0  . 1 0 0 1 /  Ln* / [1 0  l L / [1  LLADATA.   . 1 1 0 / ' 0 / / 0 1 1   L/ 1 /  0 4  L 1 1LE / 0 / / ]1 0 / . 1 0  . 1 o / 0 1 ' 1L 1  / $Lk / 0 / ]1 1 o (Ls= q |1 v( / / $L-LOUT 0 / . 0 0  . 1  21'22L)LMULTIPLE UP-DOWN MERGE   L FOR FILES:   L  |1 v( / / $L\ 0 / . 0 0  . 1 0 / 0 0 ' 0  0L  0 1 0   LxOUT= 0 /  70 4 s L 1 1L- 0 / . 0 0             #L #L #L #L #L #L #L 8  % 8%L 8%L 8%L 8%L 8%L 8%L 8%L 8  %28&"L 8&$L 8&&L d%hLd%mLd%rL %tLd%yLd%~Ld%L %L %Ld%Ld%Ld %L #qLd#vL #xLd#}L #Ld#L #Ld#L #Ld#L > "  %  L"L"***ERROR: WRONG PARMFILE "  L" 0% L"CLOSE "  ! 0% L##RUN MAINPROC,S #  $ # # aL=#,D :#  $ # # $ # aL]#,V Z#  # ^ Lc   ޢ%cL8YL 8YL 8YL 8  Y-8ZIL 8ZKL 8ZML 8ZOL 8  QZ-8ZL 8ZL 8ZL 8ZL 8ZL 8ZL 8ZL 8ZL 8ZL W W o T T BR BT U $L/ T W  S U _ T W S L/ T WL/. T W /  o L. T S T T Q S T L;/CASE 5/  T U aLU/ VAR O/  T W Lp/ => l/  T W  1 PX L/OK TO ADD (Y/N) /  ' Ly U PX U   L-CASE -  T U aL- VAR -  T W L. ( .  U _ T W ^L+. COLS)=> ".  O W  V $L|. Ln. ***WARNING: MUST ENTER VALUE. M.  L-L. W U  . L. W U * WL|. T  '  W Ly T eU $L?- L,"***WARNING: NO CURRENT DICTIONARY. ,  L%-! USE MENU OPTIONS 1 OR 6 -  '  W Ly O L_-***NOTE: LAST RECORD=> H-  T a L-***ADD MORE (Y/N) v-  '  W L-Y W 5 -S W n U U #U V L,L+)***ERROR: RECORD LONGER THAN 255 CHARS +  L, U U ULX* U _ U W U o U X U   U _ T W U T S U _ S W S U T S U _ S W S o 1 X U T L,HIT 'RETURN' FOR MORE... ,*+***WARNING: REMEMBER TO SAVE DICTIONARY! *  L, U U W W o L+WIDTH OF MAX VALUE=> +  ' U U S U _ S W  o  U U S U _ S W YU &L+ L+***ERROR: WIDTH LESS THAN 1 o+  L* U U S U _ CTONARY )  '  W L)Y W U  ) Ly hU U hU U L *ENTER NAME OF FILE=> )  O W  V $Ly W W LM*JUST PUSH 'RETURN' TO END.. 1*  Ln*ENTER VAR NAME ^*  U U aL*=> *  O W  V $L* hU T L**ERROR: FEWER THAN (  T U aL( RECORDS IN FILE. (  L{# L)***ERROR: APPLE ERROR LINE=> (  T aL3)<=NUM=> +)  U a LyLy U X W    W T  U 4 $X ` 1 X hU T` T U L) L)ENTER 'Y' TO CLEAR DI #U a W L' WRITE ADATA. '  X L',R '  T a U X U   T W U _ T W S U  S 4  1 X W LD(CLOSE >(  L{# {W D n U EW D S NW D qU S n T  \U T U V $L{# U U $L( L(*T WL&. T W &  o L& T S T T Q S T L&RECORD &  T U a T W L'=> '  T W  L$ LH'OK TO UPDATE(Y/N)= 5'  '  W La'Y W U  U 4 _' L{# W L' OPEN ADATA. '  W L',L ' L 8  1 8  2 82(L 82*L 82,L 82.L 820L 822L 824L 826L 828L 82:L 82L 82@L 82BL 82DL 8  F2282L 82L 82L 82L 82L 82L 1Ld1Ld1Ld1Ld 1L .L .Ld.L .Ld.L .Ld.L .L .Ld.L .L .L .L .L .L .L .L .L .L .Lc  01L 1Ld1Ld1Ld1Ld1L 1Ld1Ld1Ld1Ld1Ld1L 1L 1Ld1Ld1Ld SYNTAX=> -  0  L-.L-***ERROR: WRONG PARMFILE -  L-.L.***ERROR: OUT FILE MISSING=> -  0  L-. 31 L<.CLOSE 6.  , 31 Lb.RUN MAINPROC,S S.  C0 t/ # aL|.,D y.  C0 t/ # @0 w/ aL.,V .  k/ ^ EFTL,RIGHT f1 5 ,  . f1 5 , 1 LP L- / 0 $L?- 'L-HIT RETURN WHEN SYSTEM LOADED. ,  1 L0- /- 1 ` / 0 $L- 'Lv-HIT RETURN WHEN DATA LOADED. Y-  1 L- - 1 ``L-***ERROR: BAD n l fk ikL`*L*C n ,l  l 4 * L* l l ,l Vp lk  L*) n 8l  l 4 * L + 8l kL%+ 1 Vp ,l l Vp k  L?+ - n 8l  l 4 <+ L+ l 5l 3k n l  6k 1 n 8l l n ' n  n l fk ik l k kL+- n 8l n ,l  l 4 ) L* l #l 3k n l  6k 1 n ,l l n ' n  n l fk ikL) 1 Qp n  n ik l Qp lk  L**( n ,l  l 4 (* LO* ,l kLW* 1 QpL, k l )lLe* n ,l  l 4 c* L* l #l 3k n l  6k 1 n ,l l n ' n MAXIMUM 2  T X L2=> 2  ' U _ T W  o  L 3ENTER SUM (OR 0) 2  T X L#3=>  3  ' U _ T W  o  LX3 ENTER MEAN L3  T X Lr3=> o3  ' U _ T W  o  L3ENTER STD DEVIATW hU o 1 X U _ T W WW o U _ T W V o 1 X U X U   L2 ENTER VAR # 2  T aL02 VARIABLE NAME=> 2  ' T X  o  Lb2ENTER MINIMUM S2  T X L|2=> y2  ' U _ T W  o  L2ENTER Lp- L0HIT 'RETURN' FOR MORE... 0  '  W Ly L1ENTER NUMBER OF VARIABLES=> 0  '  U  U U (L}1 LN1***WARNING: NO VARS SPECIFIED. /1  'Ll1HIT 'RETURN'... \1  W Ly U X U   U X mV   T \ T   W L/Y W U  / Lp- W L/ OPEN ADATA. /  W L/,L /  #U a W L!0 WRITE ADATA. 0  X L50,R 20  T a U X U   T W U _ T W S U  S 4  1 X W L0CLOSE 0  T U TAULT$ ! %LL!= ! G% q $ A$ $L"L )$ V$ $L7" 'L"HIT RETURN WHEN SYSTEM LOADED. !  % L(" '" % ` )$ V$ $L" 'Ln"HIT RETURN WHEN DATA LOADED. Q"  % L" " % ``L"***ERROR: BAD SYNTAX=   L ,SL ,DL ,V $ 2$ #      $ $ 2$ # $ 5$  $    $ #  $  [% LA! ASTAT PURGE PROCEDURE #!  7"L^!PURGE % M$  $ 4 X! L" % $ * % " "L!$ % 5 ! L!L! =DEF 0% LREAD SYSPARMS   '  #  #  &$  #  #  8$  #  # M$ $  o e$ $  o z$ $  o $ $  o $ $  o $ $  o $ $  o $ $  o $ $  o $ $  o  0% L CLOSEQ%` \$ $ # % M$  # 1 (% % %`L  %L  %  % $  % L % 5 %  %L` $  2%L   % 0% L? OPEN PARMFILE 1  0% La READ PARMFILE S   0% LCLOSE {  0% L OPEN SYSPARMS   D n # $ L"L***ERROR: NOT END OF FILE.   LFILE NOT FOUND IF CODE=6 CODE=   # a L" M$ % %   L; % M$  M$ 4 9 Lh % e$ * % 1 %` % % O% %Lz, x G% q $ A$ $L % (% % % O% 5 Y%   0% LCLOSE   LE 0% LOPEN   $ :% e$ *  0% LDELETE   $ :% e$ *  0% L:CLOSE 4  1 % L` FILES DELETED. P  L" M$ % %    % $  M$ 4 E% ` 1 % D$ $` $E ACOR.   $ :%  0% LCLOSE   0% L OPEN ADATA.   $ :%  0% L' DELETE ADATA.   $ :%  0% LMCLOSE G  0% Lm OPEN ADICT. a  $ :%  0% L DELETE ADICT.   $ :% % M$  M$ 4  Ln M$ % $  L* $ :% M$  M$ 4  L 0% L OPEN ADES.    $ :%  0% LA DELETE ADES. 4  $ :%  0% LgCLOSE a  0% L OPEN ACOR. {  $ :%  0% L DELETADICT.   # :%  $ LADATA.   # :%  $ LADES.   # :%  $ L&ACOR.    # :%  La $  # :% e$ *  1 h% # n$ $L $ LOK TO CONTINUE (Y/N)? }  '  % LY$ $ # % M$  # 1 o $ Y$ % ' % $ Y$ $L $ <% \$ $ # % M$  # 1 o $ Y$ $ \$ $ $L?% THE FOLLOWING FILES TO BE DELETED.   M$ h% $   # :% Q% i # <% O% o L* # :% M$  M$ 4  LC $ L '&b%%'&L  %L  %L  (%L  %L \$ $L=  G% q $ Y$ % ' % "L$/ " G% q $ A$ LLB @ G% q $ A$  # %  w$ (c% LLu$ s G% q $ A$ LL"L/  G% q $ <% \       z!#?   Ҳ ٠ Ԯٲ ٲӮٲ! ԮҠ Ҡ"ԮҲ "îʠ: îʠîʠ4!Ӡîʠ ZҮҲԮ٠ԠŠ" îʠZàîʠWîʠîʠB'OW' 2  l Qp m   ,l n l o 1 QpL2DISPLAYED IN HEX 2  L3ENTER ANY CTL-CHARACTERS 3  l Qp m   LH3 CHARACTER =3  ,l aL\3=> Y3  ,l n ^Lu3? s3   n  m $L3 ,l n n  o L73 1 Qp  k aL1) 1  '  n L1 n 5 1 LA2L1ON n 5 1 L 2L21 2 nL2OFF n 5 2 L22L*20 (2 n n  kLX1LX1 Lc2CHANGE PRINTER STRINGS(Y/N) G2  '  n L|2Y n 5 z2 L\4 L2PRINTER STRING BEFORE EM DISK SLOTDRIVE(SYS)= 0  k ^ '  n L0 n 5 0 L1 n  kL0L1SYSTEM DISK VOLUME(SV)= 1  k ^ '  n L91 n 5 81 LX1 n  kL1Ld1PRINTER [1  k l $L1L1 OFF (P=0) }1  k l L1L1ON (P= 1 l lL/NOL/2 n l  /  3k n 5 / o L/ m lL.L0DATA DISK SLOTDRIVE(DT)= /  l ^ '  n L-0 n 5 ,0 LR0 n  ?k Bk lL/Lg0DATA VOLUME (DV)= U0  Zk ^ '  n L0 n 5 0 L0 n  WkLR0L0SYST  .  3k n 5 . o L. m kL-L.VERBOSITY-DISK SWITCH .  l l $L&/L/PROMPTING(1)=> /  l l LQ/LI/NO PROMPTING(2)=> 7/  '  n La/ n 5 `/ L/Lz/PRL/1 n l  w/  3k n 5 }/ o L/n 5 - L- n  KkLj-L-TIME SHARE MODE (TS= -  k l $L.L .NO PROMPT (1))=> -  k l $L:.L2. PROMPT (2))=> $.  '  n LJ. n 5 I. L.Lc.NOLh.1 n l  `.  3k n 5 f. o L. l kL.PRL.2 n ll )lL, 1 Vp ,l l )l ck (L, l p n   L, n {k  l 4 , L2- l uk 3k n l  6k 1 n {k l n ' n  n 1 pL^! L\-ENTER NEW VALUE OR 'RETURN' @-  L-OUTPUT WIDTH (OW= m-  Nk aL-) -  '  n L- l 4 + L+ n l  8l 1 n 8l l n ' n  n l fk ik l k k 1 Vp l l $L, l k k )l n ,l  l 4 o l Vp m   8l n o L,LS, LX, l #l 3k n l  6k 1 Q,  o  V,  n ,l l n ' n  n lk l ik ,l IF INTERFACE :  L: 5. READ.FILE.CABINET INTERFACE :  L;' 6. MODIFY (NO.OP) - PERMANENT CHANGES :  LG;HIT 'RETURN' FOR MORE... .;  '  W  L;! 'EDIT' REQUIRES THE CREATION OF a;  L;"A 'DICTIONARY' BEFORE THE AS A SINGLE FILE. 9  L9 A-STAT DATA FILES MAY BE CREATED 9  L:A NUMBER OF WAYS: 9  L3: 1. EDIT - PROMPTING :  L_: 2. READ - FREE FORMAT INPUT A:  L: 3. DATA - FIXED FORMAT INPUT m:  L: 4. READ.DIF - D8=A]F L8 DATA FILE CREATION 8  L9 A-STAT DATA FILES CONSIST OF 8  L69"TWO DOS FILES: A 'DICTIONARY' FILE 9  Lf9! AND A 'DATA' FILE. D9  L9WITHIN A-STAT THESE ARE OFTEN t9  L9REFERENCED 7  Ly L7HELP OPTIONS... 7  L71. DATA FILE CREATION 7  L!82. CORRELATION FILE CREATION 8  LG83. DES FILE CREATION 28  Lr84. DATA FILE MODIFICATION X8  L8ENTER CHOICE=> 8  '  WT  ZT LE=> 6  X  X 0X K .X X 7N W L6 OPEN ADES. 6  X  W L7 WRITE ADES. 7  X  U X U   T X LB7, @7  U X .V   T \ T W aLr7, p7  1 X mV _ T W a 1 X W L7CLOSE .V _ T W a L5OK TO ACCEPT (Y/N) 5  '  W L5Y W 5 5 LM6 L6RE-ENTER VALUES...  6  'L<6HIT 'RETURN'... ,6  W L1 1 X Lq6ENTER NAME OF DES FILE=> X6  O W  V L6 W X L6NOW WRITING DES FI L4 MAXIMUM => 4  U _ T W a L4 SUM => 4  U _ T W a L55 MEAN => !5  U _ T W a Ll5 STD DEVIATN => X5  V _ T W a L5 N OF CASES => 5  ION 3  T X L3=> 3  ' V _ T W  o  L4ENTER N OF CASES 3  T X L4=> 4  ' .V _ T W  o  L_4DESCRIPTIVE STATS FOR H4  T X  L4 MINIMUM => |4  U _ T W a o  3k o 5 ; o ` L;ENTER ADDITONAL PARAMETERS=> ;  L;$ ; o 8L < l #l 3k n l  6k 1  <  o  n n ,l ' n  n`LM< L< o Lt<DES FILENAME(OR 'RTN')=> [<  '  n L< n 5 < `L< DES= < E NAME(OR 'RTN')=> :  '  n L: n 5 : `L: WEIGHT= : 5 n  oL;WEIGHT STATEMENT: ;  o  @jL4; n 5 3; L:` Li;OPTIONAL PARAMETERS(Y/N)=> N;  '  o L;L;NL;n o 5 ;  3k o 5 ;  ***ERROR: 9  n  Vo L9 NOT ON SYSTEM DISK 9  L:&HIT 'RETURN' WHEN NEW SYS DISK LOADED' 9  L1: OR 'ESC'? ':   n n  {n $ 3k nl m $o L`6 n  m $ 3k nl m $o L49LiL: : o L: WEIGHT VARIABLoL8 8 oL8 8 o k B.DyJBM)Q2FH.DSESEB)QSpWWWWL6 n oL' l Qp n    n ,l  l 4 o ` 1 Qp l )l` l Al 79 -o LN9LOCK H9  n  Vo  o  rn > l T l AlL8 n D n kl rn > l T nl m $L?: L9OIN 15. EDIT DATA 7  L7$7. LIST 16. A-STAT ?? MODE 7  L58&8. MODIFY (NO.OP) 17. CONFIG(PRINT ON) 8  L`89. REGRESSION 18. END F8  L8INPUT NUMBER OF SELECTION=> q8  '  k L8 8 N L61. ANOVA/T-TESTS 10. SORT 6  L72. CORRELATE 11. SUB.STATS 6  L073. DATA/READ 12. TABLES 7  L]74. FREQUENCIES 13. PURGE A7  L7'5. FACTOR 14. EXCHANGE ROUTINES n7  L76. J5$HIT 'RETURN' TO ACCEPT (N=REWRITE)=> 5  '  o L5 o 5 5 L6L6 6 nL6  6 oL`6Lo) k l $L`6LI6HIT 'RETURN' FOR MORE... 06  '  n  k l L6 -o L6PR#0 z6  n rL6COMMANDS MENU. 6  3k Ml n n $o  3k Ml n !n $o L4 Ml n   1 `p Nk a m `p m   Ml n l $ 3k Ml n n $o LH5 Ml n   1 `p ` k l $ 3k k l $o Lt5 H; k l L5 c4 L5COMMAND: 5  n  L L3PRINT STRING AFTER 'OW' 3  m Qp m   L3 CHARACTER 3  ,l aL 4=>  4  ,l n ^L&4? $4   n  m $LW4 ,l n n  o L3 1 Qp K` k l (` -o L|4PR# x4  k a l `p m   Ml n l $SYS%;",";P;",";DT%;",";DV%;",";SV%;",";U%(1);",";U%(2);",";U%(3);",";U%(4);",";U%(5);",";U%(6);",";U%(7);",";U%(8);",";U%(9);",";U%(10):D$;"CLOSE J80 T216,0::"***ERROR: DOS NUMBER=>";(222): ^D$;"RUN MAINPROC"STAT 83.1": F CONF=";U%(6);" ";U%(7);" ";U%(8);" ";U%(9);" ";U%(10)U :"ENTER 'CONFIG$' TO MODIFY."^ 350 "216,0:(222)5ĺ:"***ERROR: DOS NUMBER=>";(222): , SET DEFAULTS 6350 @D$;"OPEN SYSPARMS":D$;"WRITE SYSPARMS" EOW;",";TS;",";V;","; DISK VOLUME (SV)=";SV%; "DATA DISK LOCATION (DT)=";DT%] "DATA DISK VOLUME (DV)=";DV%n "PRINTER="; P0ĺ"OFF (P = 0)" P1ĺ"ON (P = ";P;")" "PRINT BEFORE 'OW'=";U%(1);" ";U%(2);" ";U%(3);" ";U%(4);" ";U%(5)1 "PRINT AFTER 'OW'IDTH (OW)=";OW. "TIME SHARING MODE (TS)=";M TS1ĺ"NON-PROMPTING (1)"h TS2ĺ"PROMPTING (2)" "VERBOSITY (V)="; V2ĺ"NO DISK SWITCH PROMPT (2)" V1ĺ"DISK SWITCH PROMPTING (1)" "SYSTEM DISK LOCATION (SYS)=";SYS% "SYSTEMIGURATION SECTION, P TRY TO FIND SYSPARMS6 Z290 dD$;"OPEN SYSPARMS":D$;"READ SYSPARMS":OW,TS,V,SYS%,P,DT%,DV%,SV%,U%(1),U%(2),U%(3),U%(4),U%(5),U%(6),U%(7),U%(8),U%(9),U%(10):D$;"CLOSE" n:"CURRENT SYSTEM CONFIGURATION:": x"OUTPUT W[ 1980, 1982 COPYRIGHT BY GARY M. GRANDON. COPYING WITHOUT PERMISSION IS FORBIDDEN. gU%(10)sD$(4)OW40:TS2:V1:P0:SYS%61:DT%61:DV%254:SV%254:I110:U%(I)0:I(D$;"NOMON C I O"2<10:15:"A-STAT 83.1": F CONF     L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , :hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hw0У8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBЍw U  yUUwyVxz`Зԥwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eУk ЮU 4Г U 5,wЅƩѤ wU! 5B=ooppȆbcĂbfUVd8ophLД8= 7MLdlkȄmn;op:E UUȥViлh8HH`Ї{y SՠUEowyywxzzxwIy:e \`fH,Hops8otpf,kiUliVU$f&łmUŁfbUȥcUUŭUVŮMvłGUŁ>UV2ЅUŕȱU喰!UUdUV0*UiUViVUmVnɊȢwU𧰸ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH     Y/N)=> I  '  n LIY n 5 I LI > o 5 o  o LJOUTPUT NEW DES FILE? (Y/N)=> I  '  n L,JY n 5 *J LQJ I< o 5 o  o :LYJ$ o 5 o  WJ  o o nLQ5 Dl l L#K LJ1. READ (UNFORMATED INPUT) NO.OP H o Dl l L49 l Al LHENTER NEW VARIABLE 'WIDTH' H  LI (DEFAULT=12) OR 'RETURN'=> H  '  n L1I n 5 0I LfILOI WIDTH= o 5 GI  n  o WLqI IN= o 5 lI  o  o  o LIOUTPUT NEW DATA FILE? ()=> G  '  n LGY n 5 G LG X?LG VARS= o 5 G  o  oLHSUM VARIABLE? (Y/N)=> H  '  n L1HY n 5 /H LgH X?LPH SUM= o 5 JH  o  oLlH$ o 5 jH  o o nLQ5 k vm $LHLHNOOPPROC H nLH n 5 F LF WLF IN= o 5 F  o  o  oLGLIST DES FILE (Y/N)=> F  '  n LGY n 5 G L>G I< o 5 o  oLWGLIST COR FILE (Y/N)=> AG  '  n LpGY n 5 nG LG = o 5 o  oLGVARS (BY) LIST (Y/NUB.STATS E o Dl l L49 l Al W > X?LE IN=LE VARS=LE$ o 5 E  o  o  o  E  o  E  o o nLQ5 k .m $LdFLLFLISTPROC CF nL\FLIST WF o Dl l L49 l AlLFLIST INPUT FILE (Y/N)=> {F  '  n LFY W = k Im $LD I C  '  n LC A LALA ALLCAT o 5 A  o m k LAMAXIMUM CATEGORIES= A  k a L&BENTER NEW VALUE OR 'RETURN'=> B  '  n L>B n 5 =B ` n  k l (LALmB NCAT= o 5 fB  n k  n  oLA k %m $LBLBFREQPROC ł 3k k m $o  3k o 5 @ o `L@ n 5 @ LAL@/ o 5 n  @  oL,@ o  u l o  o 7o L=A STATEMENT: 1A  o  @jLXA n 5 WA LX?` LAPRINT ALL CATEGORIES (Y/N) rA  '  n LA n 5 ?ENTER ?  7o L? LIST ONE ?  7o L? NAME AT A TIME. ?  L!@HIT 'RETURN' WHEN FINISHED... @  7o L@@ NAME=> 8@  '  n LX@L\@ n 5 W@  3k o 5 [@ o  3k k m o L,@L@L@ n 5 @ ME=> >  o nL> n 5 >  3k k m $o L>L>DEFAULT > nL? OUT= ? 5 n  oL)?OUT STATEMENT: ?  o  @jLD? n 5 C? L>`L\? [? oLp?VARIABLE g? 9o k m $ 3k k Rm $o L?L?FILE ? 9o L= o L=DEFAULT COR FILE=>DEFAULT =  L=COR FILE NAME=> =  o nL> n 5 > L.>L&>DEFAULT > n n oL=> COR= 7> 5 o  oL`>COR STATEMENT: Q>  o  @jL{> n 5 z> L=`L> > o L>OUT FILENA5 n  oL<DES STATEMENT: <  o  @jL< n 5 < LI<`L< < o L&=PRINT FILE NAME(OR 'RTN')=>  =  o nL;= n 5 := `LW= PRINT= O= 5 n  oLw= PRINT FILE: k=  o  @jL= n 5 = L<`L= ITS MAXIMUM 'WIDTH' <  L<IS 5 ('.0001'). <  L= THE DICTIONARY MUST BE SAVED <  L;=AFTER IT IS CREATED OR IT WILL =  LR=BE LOST. I=  L= FOR HELP ON THE OTHER METHODS c=  L=%OF DATA FILE CREATION SEEENTRY OF ;  L;DATA VALUES. THE 'DICTIONARY' ;  L<CONSISTS OF VARIABLE NAMES OR ;  L<<LABELS AND THE MAXIMUM 'WIDTH' <  Li<IN KEYSTROKES (CHARACTERS). IF J<  L<A VARIABLE HAS A RANGE w<  L<"OF .0001 TO 10 o *n 8 n D u l n ik l Qp lk   m &l G u l  o  o 1 Qp`LX o 5 X L8X L'X ASSUME IN= X  o  LPXDATA FILE NAME=>? >X  W o  m LrX o o LXIN FILE WILL BE=> xX  o  k m $ 3k k IV  o l 7m $L/W LVAVE.LEN OR 'RETURN'=> V  '  n LV n 5 V L/WLW AVE.LEN= o 5 W  n  oL7W IN=L l l $ 3k l l $o L%V I< l m $ 3k l 7m $o LHV : l %m $LV LkVNOHEAD (Y/N)=> \V  '  n LVY n l  V LVLV NOHEAD o 5 LS l l $LTLTRFCIPROC T nLTREAD.DIF T o l l $L'ULURFCIPROC T nLUREAD.FILE.CABINET  U o l m $L^ULAUWFCOPROC 8U nLVU WRITE.DIF LU o l %m $LULxUWFCOPROC oU nLUWRITE.APPLE.PLOT U o l 7m $LUL S  nLQ5 Dl l LT LS 1. READ.DIF S  LS2. READ.FILE.CABINET S  LT 3. WRITE.DIF  T  L:T4. WRITE.APPLE.PLOT &T  L^T5. WRITE.FILE.CABINET HT  L~TENTER CHOICE=> oT  '  l  l l ( 3k l 7m o  o  o  R  nLQ5 LRENTER NAME OF LEFT FILE=> R  '  n LR n 5 R LR L3SENTER NAME OF RIGHT FILE=> S  '  o LKS o 5 JS LSLhS LEFT=LsS RIGHT= aS 5 n  kS  o  o >LS$ o 5 o  o Q$ o 5 Q  o  Q  nLQ5 LQ1. UP/DOWN MERGE (ADD CASES) Q  L R2. LEFT/RIGHT (ADD VARIABLES) R  L@RENTER CHOICE=> 1R  '  wl  zl l ( 3k zl l o LQ zl l LR X?LR MUD= R 5 o  o >LR$ o 5P  '  n LP n 5 P LP n  kLUPLP ROOT= o 5 P  n k  n  oLQ$ o 5 o   Q  nLQ5L5QJOINPROC ,Q nLEQJOIN @Q o k Rm $LQLgQPURGPROC ^Q nLxQPURGE rQ o Dl l L49 l Al k Rm $LQ X?LQ=LC OR RSQ) OR 'RETURN'=> O  '  o LO o 5 O L.PLOPCLORSQ o 5 O  3k o 5 O o LbO o nLqOL8P TYPE= o 5 1P  n  o l k LwPMINIMUM EIGENVALUE (ROOT)=> [P  k a LPENTER NEW VALUE OR 'RETURN'=> -NLN ITER= o 5 N  n k  n  o LNMAXIMUM FACTORS (DEF=NV)=> N  '  n LO n 5 O LbO n  k l (LNLBO MAXF= o 5 ;O  n k  n  oLiORSQ eO n LOTYPE OF ANALYSIS=> wO  n  LO$ENTER TYPE (P$ o 5 o  M  n k  n  o  o  M  nLQ5LMFACTPROC M nLNFACTOR N o Dl l L49 l Al = m k L?N ITERATIONS= 3N  k a LlNENTER NUMBER OR 'RETURN' SN  '  n LN n 5 N LN n  k l (L-NL I< LLEXTERNAL TEXT FILE ENTRY (Y/N) L  '  n LL L oLLY n 5 L LM W L1MENTER NUMBER OF VARIABLES=> M  '  n LIM n 5 HM LM n  k l (LMLtM o 5 sM LMLM IN= M 5 o  oLM NV=LMXTERNAL TEXT FILE ENTRY (Y/N) K  '  n LK K oLKY n 5 K LL WLL o 5 L L4LL#L IN= L 5 o  oL9L$ o 5 o  o  o  o  7L  nLQ5LqLDATAPROC hL nLLDATA |L o Dl l L49 l Al > o m * oJ  LJ2. DATA (FORMATED INPUT) J  LJENTER CHOICE=> J  '  wl  zl l ( 3k zl l o LyJ zl l LeLL=KREADPROC 4K nLMKREAD HK o Dl l L49 l Al > X? IU  T  T U W  o U W  o U W  o U W  o V ON DISK AND ARE J  LJ"TEMPORARY FOR THE DURATION OF THAT J  LKPROCEDURE ONLY. NOTE THAT SOME J  LKK!PROCEDURES HAVE SPECIAL FEATURES. )K  LuKHIT 'RETURN' FOR MORE... \K  '  W Ly W W .X WLK, K &X J) T E COMPLICATED UNIFORM CHANGES TO I  LJ'DATA FILES. SEE THE MANUAL FOR MORE ON I  L JTHE A-STAT VTL. J  LWJ% A-STAT STATISTICAL PROCEDURES HAVE 1J  LJ$TO ALL OR PARTS OF THE VTL. CHANGES eJ  LJ#MADE ARE NOT SAVED LH$PROMPTING. NOTE: NO CHANGES ARE MADE H  LHTO ANY DES FILES! H  LIHIT 'RETURN' FOR MORE... I  '  W  LaI' MODIFY (NO.OP) IS USED WITH THE A-STAT 9I  LI&VARIABLE TRANSFORMATION LANGUAGE (VTL) oI  LI'FOR MORE THE G  LG VALUE OF A SPECIFIC VARIABLE FOR G  LH A SPECIFIC CASE. THIS IS USEFUL G  LAH#WHEN ONLY A FEW CHANGES ARE NEEDED. H  LrH"FIRST A 'DICTIONARY' MUST BE READ, OH  LH!THEN THE DATA FILE IS MODIFIED BY H  TO F  LF MODIFY THE VALUES IN A-STAT DATA F  LFFILES: F  L!G 1. EDIT - PROMPTING PERMANENT G  LRG" 2. MODIFY(NO.OP) - VTL PERMANENT /G  LG 3. STATPROCS - VTL TEMPORARY `G  LG EDIT CAN BE USED TO CHANGE OTHER ROUTINES CREATE DES FILES E  LE!AT RAW DATA ENTRY TIME OR AT FILE E  LFCONVERSION TIME.  F  LFFHIT 'RETURN' FOR MORE... -F  '  W Ly L}F DATA FILE MODIFICATION cF  LF THERE ARE A NUMBER OF WAYSS FILES FROM D  LD!A-STAT DATA FILES. FILES CREATED D  LE!USING EDIT MUST BE PASSED THROUGH D  LGE MODIFY FOR THE CREATION OF THEIR &E  L|E&DES FILES. EDIT ONLY CREATES AGGREGATE UE  LE DES FILES! E  LE& THED MEANS, RANGES, C  LC"STD DEVS, ETC. THIS IS HOW TO GET C  LD"TEXT-BOOK DATA INTO A-STAT FOR USE C  LOD!WITH COR FILES SIMILARLY ENTERED. -D  LD# MODIFY (NO.OP) IS USED GENERALLY `D  LD%FOR THE CALCULATION OF DEB 5. READ.DIF - FROM DIF FILES B  LB 6. READ.FILE.CABINET FILES B  L"CHIT 'RETURN' FOR MORE...  C  '  W  L\C EDIT CAN CREATE AN AGGREGATE   L> 1. CORR IN=FNAME COR=CORFILE$ >  L? 2. CORR IN=KEY COR=CORFILE$ >  L9? WHEN CORR IS GIVEN A STANDARD ?  Lk?#A-STAT DATA FILE IT CREATES A 'COR' G?  L?!FILE FROM RAW DATA. WHEN CORR IS y?  L?"GI THE MANUAL. =  L=HIT 'RETURN' FOR MORE... =  '  W Ly L> CORRELATION FILE CREATION =  LM> A-STAT CORRELATION FILES ARE ,>  L~>"SPECIAL FORMAT DOS FILES. THEY ARE [>  L>CREATED IN EITHER OF TWO WAYS: OGICAL (IF...STATEMENT) \  L\ 2. ACTION (ARITHMETIC STATEMENT) \  L"]ENTER NUMBER OF SELECTION=> ]  '  n L:] n  l  3k n 5 9] o L[Lg]1 n 5 e] L] l k ]L]2 n 5 ] L] m k `` L] o  @jL[ n 5 [ L[L[ [ oLXL[ [ No L\"PERFORM VARIABLE TRANSFORMS(Y/N)=> [  '  n L,\L1\N n 5 +\  3k n l  /\ o `La\Y n l  _\ ` L\ SELECT STATEMENT TYPE: {\  L\1. Ll 'k n l  *k 4 nLZ {k Co n o LZ Z n {k l xkLZLZ(C o 5 Z  o l Qp l uk  L![ L&[ o 5 [  n ,l Ao n  $[  o 1 QpL[[) o  u l o  Y[  o L[VARIABLE SELECTION STATEMENT: [  L (NAME), Y  LY OR '-' FOR RANGE, Y  LZ 'RETURN' TO TERMINATE LIST. Y  L2ZENTER VARIABLE NAME OR '-'=> Z  '  n LJZ n 5 IZ LZLbZ n l  `Z LZ n l * nL]ZLZ n l  Z LZ n  u m $o  3k k dm $o `LX X No LX!SELECT JUST SOME VARIABLES(Y/N)=> X  '  n LYLYN n 5 Y  3k n l  Y o L[LNYY n 5 LY LX l xk l Qp bl   ,l CoLY Y o 1 Qp LYENTER VARIABLE LABEa L 8a"L 8a$L 8  &a-8aL 8aL 8aL 8  a-8aL 8aL 8  a-8bDL 8bFL 8bHL 8bJL SLdSL SL SL SL SL SL SLdSL SL SL SL SL SL SL SL SL SL SL SLdSL SL SL SL 8  X-8  Y 8  Y-8&LdS+LdS0L S2LdS7LdS P  U a LyLB- T W  eU (LnQ T W  S U _ T W S LmQ T WLVQ0 T W TQ  o LQ` T W  S U _ T W S $` T W T W W X -T   V T G u zU  W  W 1 X`` U U U X U   U _ T W n U U 1 X hU T 7P W 0X K .X W W L@P OPEN ADATA. 4P  W  W LfP READ ADATA. ZP  X  '  W  T U TLQP {W D n U  \U T W PPLE NUMBER=> N  U a LNHIT 'RETURN' FOR MORE... N  '  W Ly W LOCLOSE  O  M W L5ORUN MAINPROC,S &O  U T # aLOO,D LO  U T # U T aLoO,V lO  T ^ LO O W V 8 V D u U n *T \U TURN WHEN SYSTEM LOADED. M  '  W LM M W ` /U U $LFN LNHIT RETURN WHEN DATA LOADED. N  '  W L7N 6N W `` LqN#***ERROR: INPUT FILE NOT FOUND=> MN  W  Ly  \U T {W D n ULN***ERROR: AL jL jL jL jLdjL jLdjL jLdjLdjL jLdjLdjLdjLdjL jLdjLdjLdjLdjLdjLdjL jLdjLdjL jL p%Ldp*Ldp/Ldp4Ldp9L p;Ldp@L pBLdpGLdpLLdpQLdpVLdp[Ldp`LdpeLdpjLdpoLdptLdpyLdp~L pLdj` P@ 0H H j 03oL oLdpLdpLdp L p LdpLdpLdpLdp LdlL6 nl Im $Li Li***ERROR: DISK FULL i  n  rn > l TL6 L j***ERROR: DOS ERROR CODE=> j  nl a rn > l TL6 Lij"HIT 'RETURN' TO ACCEPT (N=REWRITE) Fj  '  n `Lc `@@  h  NoLfLh) k  Lo  h  NoLf LhENTER THE VAR NAME=> h  '  n Li n 5 i L iL'i) Lo 5 n  %i  NoLf n D n kl nl m $Li Li)***ERROR: PROCEDURE NOT ON THIS DISK=> ai  n  rn > l T l ION OPERAND VARIABLE=> g  '  n Lg n 5 g LgLg(Lg)) zl n Lo  g  n  g  No L1h TRANSFORM: &h  Lo  @jLf LfhENTER THE CONSTANT=> Qh  '  k  k l (LhLh0Lh) Lo 5 h  n k  n No Lf TRANSFORM: f  Lo  @jLf n 5 f LfLf f NoLu\ o 5 Lo  oL[ zl m LgL#g) m n Lo  !g  No LKg TRANSFORM: @g  Lo  @jLfg n 5 eg LgL}g |g NoLu\ o 5 Lo  oL[ Lg!ENTER FUNCTg zl [m $LKh LeENTER VAR NAME OF OPERAND 1=> e  '  xo Le vo 5 e Le Lo 5 vo  No L1fENTER VAR NAME OR f  L`f OR CONSTANT FOR OPERAND 2=> ?f  '  n Lxf n 5 wf LfLf) zl n Lo  n  f . d  ,l n Ld (OPERAND) d  1 Qp ,l aLd. d LdCONSTANT d  ,l l )l aLe. e L0eVAR NAME 'e  L]eENTER NUMBER OF SELECTION=> Ae  '  wl  zl Rm Lc zl Rm $Lh zl 7m  3k zl [m (o LONSTANT c  Lc SELECT OPERATION: c  l Qp m   ,l m $LEd ,l aLd. d  ,l n L:d MISSING VALUE +d  ,l m (Ld ,l aLhd . OPERAND1 \d  ,l n Ld OPERAND2 d  ,l m Ld ,l aLd  No Lb COMMAND FORM: b  Lb=> b  Lo L cVNAME TO OPERATION OR CONSTANT) b  Lo l * L9cWHICH VARIABLE=> (c  '  xo LQc vo 5 Pc LbLlc TO Lo 5 vo  gc  No Lc=> c  Lo LcOPERATION OR C NUMBER OF SELECTION=> a  '  wl  zl m L` zl m LnbLaDELETE) Lo 5 a  No Lb TRANSFORM: b  Lo  @jL:b n 5 9b L\bLQb Pb NoLu\ o 5 Lo  oL[ zl l LbLbSETX Lo 5 b  NoLbLbSET Lo 5 b`  L` Lo 5 ` L`L`( ` No L` SELECT ACTION. `  L"a1. SET (CHANGE VALUE OLD VAR) a  k l  3k k [m o Lwa Lla2. SETX (CREATE NEW VAR) Sa  l l La La 3. DELETE a  LaENTER .m $L_L_ Lo 5 _  NoL` L_ENTER VAR NAME _  L` OR VALUE=> _  '  n  n  l (L`` LR`"***ERROR: CONSTANT MUST BE >= 0 /`  L_Le` Lo 5 n  c`  No L`=> `  Lo L` ACTION STATEMENT..  l Qp m   ,l aL^. ^  ,l o  1 Qp L _ENTER NUMBER OF CHOICE=> ^  '  wl  zl .m L^L7_(IF Lo 5 2_  vo  n zl o n  No zl .m L_ Lw_=> t_  Lo L_ VAR NAME OR VALUE... _  zlFORM OF COMMAND: ]  L]%=>(IF TESTVAR .OP. VNAME OR VALUE ... ]  L^NAME OF TEST VARIABLE=> ^  '  xo L4^ vo 5 3^ L[ LT^=>(IF M^  vo L}^ .OP. VNAME OR VALUE... e^  L^SELECT LOGICAL OPERATOR: ^mLdmL mL mLdmLdmLdmLdmL mLdmLdmLdmLdmLdmLdmLdmLdmLdmLd0Ldm5Ldm:Ldm?LdmDLdmILdmNLdmSLdmXLdm]LdmbLdmgLdmlLdmqLdmvLdm{L m}LdmLdmLdmLdZ29Y: lL lL lLdlLdlLdlLdmLdmLdm LdmLdmLdmL m!Ldm&Ldm+LdmD OF ADATA. d  k  LdRECORDS READ= d  f a Rl LeCLOSE d  L2LcAlJ~@@c @ `0 4@d8,HH z '0Pv L#dLc***ERROR: SET WITHOUT TO=> c  l  L#dLd"***ERROR: VAR LABEL NOT FOUND=> c  k  L#d Rl L2dCLOSE ,d  ` Rl LXdRUN MAINPROC,S Id  #j g # aLrd,D od  #j g # j g aLd,V d  kg ^ ^,Ld ENROR: SYNTAX> NO = b  L#dLb***ERROR: SYNTAX> C LIST b  L#dL%c(***ERROR: NO VALID LOGICAL OPERATOR=> b  l  L#dLec(***ERROR: NO VALID ARITH - OPERATOR=>  |c  l _ ^h k k o i _ ^h k k o 1 m`Lb!***ERROR: INPUT FILE NOT FOUND a  L#dL.b***ERROR: WRONG PARMFILE b  L#dL\b***ERROR: BAD PARAMETER=> ?b  l  L#dLb***ERROR: NO OPEN PARENS sb  LQ=Lb***ER` 'L`HIT RETURN WHEN SYSTEM LOADED. `  +l L` ` +l ` Qi i $LRa 'L1aHIT RETURN WHEN DATA LOADED. a  +l LCa Ba +l `LVa Ua +l` g i $La i m i   li m j   h \ ^h k xi o 1 m i1 k 5 _ L_L_ OUTFILE = _  k  g i $ e Fh ui $l L`L ` DES FILE= `  zl  L!` zl 5  `  e Fh ui l L`Lx`.***WARNING: VAR OR BY CONFLICT: DES IGNORED I`  _a Fh ui L` 0 L-L' Qi i $LhL]L^IN l 5 ^ LkDL^WEIGHT l 5 ^ L}?L^VARL^BY l i  i 4 ^  e l i  ^ l LAL h  '  n L>h n 5 =h L:hLVh) {n 5 n  Th  }nLe m D n k k Kl $Lh Lh)***ERROR: PROCEDURE NOT f }nL[ o 5 {n  oL[ Lf!ENTER FUNCTION OPERAND VARIABLE=> f  '  "n L g n 5 g LgL!g(L'g)) k n {n  g  n  $g  }n L`g TRANSFORM: Ug  {n  oiL[ LgENTER THE CONSTANT=> g  '  j  j e LHeLe) k n {n  n  e  }n Le TRANSFORM: e  {n  oiL f n 5  f L-fL"f !f }nL[ o 5 {n  oL[ k Kl LfLRf) l n {n  Pf  }n Lzf TRANSFORM: of  {n  oiLf n 5 f LfLfb k l $L h k fl  bj k l (*o L?f k l $Lzg LeENTER VAR NAME OF OPERAND 1=> d  '  n L&e n 5 %e Ld {n 5 n  }n L`eENTER VAR NAME OR Ne  Le OR CONSTANT FOR OPERAND 2=> ne  '  "n Le n 5ӍԮٮ׮ԍ׮ԍԮō׮дL 8qL 8qL L 8  p8pL 8pL 8pL 8pL 8pL 8pL 8pL 8pL 8  p-8qJL 8qLL 8  Nq8  q8qL 8qL 8qL 8qL 8qL 8qL 8qL 8  q8qL 8qL 8q8  y 8yL 8yL 8yL 8yL 8yL -8  o 8  o 8  o-8  q8  q-8xL 8xL 8xL 8xL 8  x 8  y-8yeL 8ygL 8yiL 8  ky-8yL 8yL 8yL 8yL 8yL 8yL 8yL 8yL 8yL eLdeL eL eL eLdeL eL eL eL eL eL eLdeL eL eL eL eL eL eL eL eL eL eL eL eL 8  n$Lde)L e+Lde0Lde5Lde:Lde?L eAL eCLdeHLdeML eOLdeTLdeYLde^LdecL eeLdejLdeoLdetLdeyLde~LdeL eLdeL mLdmLdmL mLdmLdmLdmLdnL nLdn L n Ld nL eL eLdeLdeL eLde  cH tF I sJ ; qJ I 5J L% OPEN ADICT. %  I  5J L%CLOSE %  5J L& DELETE ADICT. &  I  5J LD& OPEN ADICT. 8&  I  5J Lk& WRITE ADICT. ^&  ?J  TH K G   H _ G I wF o uH _ J I   I  TH _ G I ^ I  uH _ G I ^ F ]H $LT% G H $ F G I $J  F G I $J LT% LC% HIT ENTER... 6%   I 1 K Ls%WRITING DICTIONARY. _%  L% TO DISK FILE= % L%ADICT. %  IK F   TH _ wF I hF o uH _ wF I F o hF F eF wF G $L3$ wF `H tF \F ]H $LY! 1 K 8 G I  ;LI *LAB I H  D Lk I H * I ?H YF ; TH K I   L  I G  TH 4  L 1 F 3H _ G I c cH F E F 3H _ G I c cH F 3H _ G I c H F F 3H _ G I c H F G G E o H _ G I G o 1 K`LTNV= O  G a Li SJ 5 h LLDES=   SJ  L J 5  L I c cH F 3H _ G I c H F E F G G E o 3H _ G I ~H & F H G lH (J L5 )I _ G I ?H o L. )I _ G I 3H _ G I F 3H _ G I `H E F )I _ G I E F H _ G I H F H _ G I F  H _ G I ?H o I _ G I ?H o )I _ G I ?H o LF H _ G I F 3H _ G I c cH E G 3H _ G I H & F H G lH (J Lj I _ G I ?H o L I _ G I 3H _ G I F I _ G I E F 3H _ G _ 7G I "G o H _ 7G I H _ 7G I F F G F o 1 J` TH K G   3H _ G I   G J  H _ G I ?H o LF H _ G I  l T l k KLcL%V n l  % l kL# SV= #  k ^ KL!L#DV n l  # L!$ ' $l "kL$ DV= #  %k ^ KL!L)$MENUL0$PREL8$COMML@$EASY n m  $$  j n l  ,$ o  j n m  3$ o  j n m  ;$ o L$ l kLL=# =n > l T 7#L" " n n > Xn T n nL"*END n 5 " L! n  n  L" =n > l TL/#***DOS ERROR #  L" LF#OW n l  C# L# ' $l kLq# OW= h#  k a KL!L#SV n l  # L# ' $L! 1 pL!MORE ? ! LF!  k l $L! n  L!RRL!WW n l  !  j n l  ! o L+" n l * n l p k   k 6o n k n n  n Lj" 1 pL" ( n  o  k +o  !o  L"DOS n l  l 4 "  n m 8 m D u l n 4k l p 7k   m k G u l  n  n 1 p n  m $L!L! ! n`L ! ! nL-!? +!  n > sn T 7 n n n n l kLo)Lc! n 5 a!  n  n l p n   L!$ n k  l 4 ! n D n 6l 9l l $L L)***ERROR: PROCEDURE NOT ON THIS DISK=>   n  =n > l TLE 9l m $L_ L? ***ERROR: DISK FULL (  n  =n > l TLE L ***ERROR: DOS ERROR CODE=> e  9l a =n > l TLEL  L,   em |n ^L,   nm |n ^L,   m |n ^L,   m |n ^L ,   m |n ^ n L-CLOSE '  c4` m  nLI H nLU T n n Lr NOMON C I O f  7  k l $LLMENU$  nL!$L! a  k aL,   k aL,   Ql aL,   k ^L,   k aL ,    ]l ^L,   %k ^L1, /  k ^LD, B  l |n ^LZ, X  l |n ^Lp, n  l |n ^L,   m |n ^L,   Jm |n ^ o l ~n  o m ~n  o Jm ~n  o em ~n  o nm ~n  o m ~n  o m ~n  o m ~n  o  n L<CLOSE 6  c4` n LdDELETE SYSPARMS T  n L OPEN SYSPARMS x  n LWRITE SYSPARMS T "n > m T +n > l T 4n > {l TL< l p n   L n k  l 4  L n l * n 1 p` n L3 OPEN SYSPARMS %  n LVREAD SYSPARMS G  '  k  k  Nl  k  k  Zl  "k  k l ~n  o l ~n LE.  o Jm oL.NE.  o em oL.EQ.  o nm oL.M1.  o LBRUN  oL.OBJ   #oL$DEFAULT  n Sm k l p k   k -o  o k 8o  o k n k 6o  o 1 p m > rl T m > m T n > On T n > m *  o Jm nL^  o em nL.M1.  o nm nLSQRT  o m nLLN  o m nLSIN  o m nL*COS & o m nL?RND ; o m nLWDELETE P o l oLm.LT. h o l oL.GT. ~ o l oL.GE.  o m oL.PROCHISTEDITPROCEDITANOVPROCANOVSORTPROCSORTLISTPROCLISTREADPROCREADWFCOPROC WRITE.DIFLiWFCOPROCWRITE.FILE.CABINETWFCOPROCWRITE.APPLE.PLOTJOINPROCJOINUSERPROCUSER l nLt+ r o l nL-  o l nL/  o m nLX qopqL[DATAPROCDATARFCIPROCREAD.DIFRFCIPROCREAD.FILE.CABINETFREQPROCFREQTABLPROCTABLESCORRPROCCORRFACTPROCFACTPATHPROCREGRPATHPROCPATH^LPURGPROCPURGENOOPPROCNO.OPNOOPPROCNOOPNOOPPROCMODINOOPPROCSUB.SHISTL%=> %  T W  L%ENTER NEW VALUE ( %  U _ T W ^L & DIGITS)=> %  O W  V $L1& T W WL6& W U  4& L[& W U * WL1& T W W o T T BR BT U $L& T W  S U _ T W S L& W L$CLOSE $  W  L$WHICH VARIABLE=> $  '  W L$ W 5 $ L/' U PX U   T W W Lt% 1 PX L`%***ERROR: VAR NAME NOT FOUND=> A%  W  L$ L%RECORD z%  T U aL% %  T W  T  U T T U n T $Ly 7R( W L# OPEN ADATA. #  W L$,L #  #U a W L&$ READ ADATA. $  X L:$,R 7$  T a '  W  U X U   T W U _ T W S U _ T W S W S  S 4 o 1 XL""***WARNING: NO CURRENT DICTIONARY. "  L#! USE MENU OPTIONS 1 OR 6 "  '  W Ly U U U X U   U _ T W n U U 1 X Lm#CHANGE DATA VALUES... W#  L#ENTER RECORD NUMBER(0=END)=> #  '   T W W L" 1 PX L!***ERROR: VAR NAME NOT FOUND=> !  W  Ln!L" NEW NAME=> "  O W  V $L" T W W o LU"VAR NAME POSITION B"  T aLj" => f"  T W  Ln!Ly U eU $ S T U FX L# E...   '  W ` U eU $LF! L "***WARNING: NO CURRENT DICTIONARY.   L,!! USE MENU OPTIONS 1 OR 6  !  '  W Ly L`!RENAME VARIABLES... L!  L!NAME OF VARIABLE=> q!  O W  V $Ly U PX U X U   T  L.   T W W   W  U _ T W ^ rW  U _ T W ^ fT U $L~ T V $ S T 7V $FX  S T @V $FX L~ Lj HIT RETURN... \  '  W  1 X fT U L L HIT 'RETURN' FOR MOR 1 X W LCLOSE   W  Ly U eU $LY L"***WARNING: NO CURRENT DICTIONARY.   LA! USE MENU OPTIONS 1 OR 6   '  W ` Lj POS LABEL _  V LSTART {  `W LWIDTH   U DICT.   W  W LCLOSE   W L DELETE ADICT.   W  W L OPEN ADICT.    W  W L@ WRITE ADICT. 3  X  U X U   T W Ls, q  U _ T W ^L,   U _ T W ^  U a  \U T U eU $LGN U TLy T eU $ S U eU $FX L/ L!***ERROR: NO FILE IN MEMORY.   Ly 7N W 0X K .X W L]WRITING DICTIONARY. I  Ly TO DISK FILE= k LADICT.   W  W L OPEN A7n U T W 0X K .X W W L OPEN ADICT.   W  W L READ ADICT.   X  ' T W  o U _ T W  o U _ T W  o  W  T U TL W L}CLOSE w  U T ULDICTIONARY READ. NV=  xT  {T U $LO {T U $LF {T U $L {T U $L  {T U $L {T U $L" {T U $L) {T U $L, {T U $L0 {T V $L7Ly L_READ DICTIONARY... L  LA-STAT DATA FILE NAME=>? p  O W  V L W W   L 6. CREATE NEW DICTIONARY.   L 7. ADD NEW RECORDS.   L, 8. AGGREGATE DES FILE.   LI 9. HELP. =  Ls 10. RETURN TO A-STAT. Z  LINPUT NUMBER OF SELECTION=>   '  DATA FILE=>   T eU L W  T eU $L L 1. READ DICTIONARY.   L/ 2. SAVE DICTIONARY.   LW 3. LIST DICTIONARY. @  L 4. RENAME VARIABLES. h  L 5. CHANGE DATA VALUES. L%=> %  T W  L%ENTER NEW VALUE ( %  U _ T W ^L & DIGITS)=> %  O W  V $L1& T W WL6& W U  4& L[& W U * WL1& T W W o T T BR BT U $L& T W  S U _ T W S L& W L$CLOSE $  W  L$WHICH VARIABLE=> $  '  W L$ W 5 $ L/' U PX U   T W W Lt% 1 PX L`%***ERROR: VAR NAME NOT FOUND=> A%  W  L$ L%RECORD z%  T U aL% %  T W  T  U T T U n T $Ly 7R( W L# OPEN ADATA. #  W L$,L #  #U a W L&$ READ ADATA. $  X L:$,R 7$  T a '  W  U X U   T W U _ T W S U _ T W S W S  S 4 o 1 XL""***WARNING: NO CURRENT DICTIONARY. "  L#! USE MENU OPTIONS 1 OR 6 "  '  W Ly U U U X U   U _ T W n U U 1 X Lm#CHANGE DATA VALUES... W#  L#ENTER RECORD NUMBER(0=END)=> #  '   T W W L" 1 PX L!***ERROR: VAR NAME NOT FOUND=> !  W  Ln!L" NEW NAME=> "  O W  V $L" T W W o LU"VAR NAME POSITION B"  T aLj" => f"  T W  Ln!Ly U eU $ S T U FX L# E...   '  W ` U eU $LF! L "***WARNING: NO CURRENT DICTIONARY.   L,!! USE MENU OPTIONS 1 OR 6  !  '  W Ly L`!RENAME VARIABLES... L!  L!NAME OF VARIABLE=> q!  O W  V $Ly U PX U X U   T  L.   T W W   W  U _ T W ^ rW  U _ T W ^ fT U $L~ T V $ S T 7V $FX  S T @V $FX L~ Lj HIT RETURN... \  '  W  1 X fT U L L HIT 'RETURN' FOR MOR 1 X W LCLOSE   W  Ly U eU $LY L"***WARNING: NO CURRENT DICTIONARY.   LA! USE MENU OPTIONS 1 OR 6   '  W ` Lj POS LABEL _  V LSTART {  `W LWIDTH   U DICT.   W  W LCLOSE   W L DELETE ADICT.   W  W L OPEN ADICT.    W  W L@ WRITE ADICT. 3  X  U X U   T W Ls, q  U _ T W ^L,   U _ T W ^  U a  \U T U eU $LGN U TLy T eU $ S U eU $FX L/ L!***ERROR: NO FILE IN MEMORY.   Ly 7N W 0X K .X W L]WRITING DICTIONARY. I  Ly TO DISK FILE= k LADICT.   W  W L OPEN A7n U T W 0X K .X W W L OPEN ADICT.   W  W L READ ADICT.   X  ' T W  o U _ T W  o U _ T W  o  W  T U TL W L}CLOSE w  U T ULDICTIONARY READ. NV=  xT  {T U $LO {T U $LF {T U $L {T U $L  {T U $L {T U $L" {T U $L) {T U $L, {T U $L0 {T V $L7Ly L_READ DICTIONARY... L  LA-STAT DATA FILE NAME=>? p  O W  V L W W   L 6. CREATE NEW DICTIONARY.   L 7. ADD NEW RECORDS.   L, 8. AGGREGATE DES FILE.   LI 9. HELP. =  Ls 10. RETURN TO A-STAT. Z  LINPUT NUMBER OF SELECTION=>   '  DATA FILE=>   T eU L W  T eU $L L 1. READ DICTIONARY.   L/ 2. SAVE DICTIONARY.   LW 3. LIST DICTIONARY. @  L 4. RENAME VARIABLES. h  L 5. CHANGE DATA VALUES. @ KbAXaKb V > GU T V > V T V > iW T W > V T !W > V T *W > U T 3W > PU T U  W %V 6TL2DEFAULT * W hU T hU T Lh A-STAT EDIT PROCEDURE. L  LK L *** A-STAT DATA EDITOR ***   L                    g h L% g j  g` f $h Lo& ?h fl f   n) h _ g rj j  1 fl Nh g ?h fl Pi   g j ?h _ g rj n  o `h _ g Qj i o n) g j  1 fl j  ` 7w&L& 3V h BeL& & kL( 'h Qe j L&PR#0 &  L$ g nf A le $h $L$ Fj |g` g 9h  d g g &k L% g nf A le $h $L% Fj |g` g i  d g i &k LE% i g j ^gLm% g j $L% g h Lm% g j  ^g g i  d g i &k L% i g j gL% g j $L% Oj k  o L" f j g  o L" `h _ f rj n c \i i # f ?h _ f rj n c \i i # g ?h _ f rj d ?h _ f rj n c \i i # Yi d g g h $L[$ g g `h _ f rj d `h _ f rj n c \i i # Yi d vg g 9h  d g g &k rj n c \i i # eLc f j g Xg  o L" f j g  o L" f j ag g  o L" f j g Ug  o L" f j ag g  o L" f j g [g  o L" f j g A  o L" f j g  o L" f j g  o L" f j g  o L" f j `h _ f gl L! Nh gL L ag g $L! Nh gL L f e ` # g $h $ d g ;i $k ` Fj yg $L/" f j k o L" g h $LO" f j g  o L" g h $Lf" Nh eL" g  """ ##3#H#]#r###L"LINE11330ERROR "  K h _ f f rj n c \i i # eLc f e `L! ag g (L Nh gL L ag g L ! Nh gL L ag g L%! Nh gL L ag g &L?! Nh gL L ag g LY! Nh gL L g j  i ( d g j  j k L! Nh gL L gl L! Nh gL LL! # Fj yg $L 'h gL: 'h g g  !(!B!\!!!!LLINE11065ERROR   K g Hh $L# f Kh e g ;i $L: 'h gL `h _ f rj d `h _ f rj n c \i i # Yi d h $ d g $h $k L f Kh eL g $h $L h _ 1 l g j h _ g j  o n) g j  g j h _ g j  o n) g j  g Kh g g j >i _ g j  o n) g j  g Kh g 1 l j  ` Nh e f e ` h _ f rj d h _ f rj n c \i i # Yi d $h $ _ g rj j o h _ g rj j h _ g rj d `h _ d Oj d Nk d  d 4 o n) h _ g rj j  h _ g rj d `h _ d Oj n d d h _ g rj j h j o 1 fl g f Kh g ?h l g   ?h l f   h _ Lg rj n g $LK L WORK.DATA1 j ?h  }i 4   d f $h k LE j L WRITE ADATA.   k  ?h fl g   n) g j  1 fl j  Pf Hh $LV  e Kh e 1 k` j L{ WRITE ADATA. n  k  Nh d ?h fl f   h j hd o h _ Yf j h _ Yf j f o ?h _ Yf j 8f L ?h _ Yf j Df o `h _ Yf j 8f (L2 `h _ Yf j Df o h _ Yf j h _ Yf j d e ;f d o 1 3l` f $h $L| Nh eL f nf A le $h $` f j  e ?h k e d d oh e d "g e d h _ Yf j d d o >i _ Yf j >i _ Yf j d oh f d h _ Yf j d d d h _ Yf j e d h _ Yf j d ~h e d d d e e d g d o h _ Yf j h _ Yf j d h _ Yf j e f f c e i e o h _ Yf j e d h _ Yf j >f d f f f f f g f f %g Pi _ Yf j Pi _ Yf j d h f d >i _ Yf j d d d h f d h _ Yf j d d o Pi _ Yf j Pi _ Yf j d h _ Yf j d h _ Yf j d d oh e e i $k L Nh ie`` Nh e Te Hh $LE ?h fl g   h l Pi   Lg \ g j 'h o 1 l ?h _ g j i o `h _ g j i o 1 fl ?h 3l g   Yf nf A le $h $L_ Yf j  Af h _ Yf j e h _ Yf j h _ Yf j g h L% g j  g` f $h Lo& ?h fl f   n) h _ g rj j  1 fl Nh g ?h fl Pi   g j ?h _ g rj n  o `h _ g Qj i o n) g j  1 fl j  ` 7w&L& 3V h BeL& & kL( 'h Qe j L&PR#0 &  L$ g nf A le $h $L$ Fj |g` g 9h  d g g &k L% g nf A le $h $L% Fj |g` g i  d g i &k LE% i g j ^gLm% g j $L% g h Lm% g j  ^g g i  d g i &k L% i g j gL% g j $L% Oj k  o L" f j g  o L" `h _ f rj n c \i i # f ?h _ f rj n c \i i # g ?h _ f rj d ?h _ f rj n c \i i # Yi d g g h $L[$ g g `h _ f rj d `h _ f rj n c \i i # Yi d vg g 9h  d g g &k rj n c \i i # eLc f j g Xg  o L" f j g  o L" f j ag g  o L" f j g Ug  o L" f j ag g  o L" f j g [g  o L" f j g A  o L" f j g  o L" f j g  o L" f j g  o L" f j `h _ f gl L! Nh gL L ag g $L! Nh gL L f e ` # g $h $ d g ;i $k ` Fj yg $L/" f j k o L" g h $LO" f j g  o L" g h $Lf" Nh eL" g  """ ##3#H#]#r###L"LINE11330ERROR "  K h _ f f rj n c \i i # eLc f e `L! ag g (L Nh gL L ag g L ! Nh gL L ag g L%! Nh gL L ag g &L?! Nh gL L ag g LY! Nh gL L g j  i ( d g j  j k L! Nh gL L gl L! Nh gL LL! # Fj yg $L 'h gL: 'h g g  !(!B!\!!!!LLINE11065ERROR   K g Hh $L# f Kh e g ;i $L: 'h gL `h _ f rj d `h _ f rj n c \i i # Yi d h $ d g $h $k L f Kh eL g $h $L h _ 1 l g j h _ g j  o n) g j  g j h _ g j  o n) g j  g Kh g g j h _ g j  o n) g j  g Kh g 1 l j  ` Nh e f e ` h _ f rj d h _ f rj n c \i i # Yi d $h $ _ g rj j o h _ g rj j h _ g rj d `h _ d Oj d Nk d  d 4 o n) h _ g rj j  h _ g rj d `h _ d Oj n d d h _ g rj j h j o 1 fl g f Kh g ?h l g   ?h l f   h _ Lg rj n g $LK L WORK.DATA1 j ?h  }i 4   d f $h k LE j L WRITE ADATA.   k  ?h fl g   n) g j  1 fl j  Pf Hh $LV  e Kh e 1 k` j L{ WRITE ADATA. n  k  Nh d ?h fl f   h j hd o h _ Yf j h _ Yf j f o ?h _ Yf j 8f L ?h _ Yf j Df o `h _ Yf j 8f (L2 `h _ Yf j Df o h _ Yf j h _ Yf j d e ;f d o 1 3l` f $h $L| Nh eL f nf A le $h $` f j  e ?h k e d d oh e d "g e d h _ Yf j d d o >i _ Yf j >i _ Yf j d oh f d h _ Yf j d d d h _ Yf j e d h _ Yf j d ~h e d d d e e d g d o h _ Yf j h _ Yf j d h _ Yf j e f f c e i e o h _ Yf j e d h _ Yf j >f d f f f f f g f f %g Pi _ Yf j Pi _ Yf j d h f d >i _ Yf j d d d h f d h _ Yf j d d o Pi _ Yf j Pi _ Yf j d h _ Yf j d h _ Yf j d d oh e e i $k L Nh ie`` Nh e Te Hh $LE ?h fl g   h l Pi   Lg \ g j 'h o 1 l ?h _ g j i o `h _ g j i o 1 fl ?h 3l g   Yf nf A le $h $L_ Yf j  Af h _ Yf j e h _ Yf j h _ Yf j!K o M _ L O M _ L O J K K J o 1 P` LM P L   M _ L O M $L`$L.$***WARNING: ALL ALPHA VAR=> $  L O  M _ L O M o L9' M _ L O M $ J M _ L O c [M M $eP L$ M _ L O K K M _ L O K yM K K K K K K J L J o M _ L O M _ L O J M _ L O K AL AL c K i J o M _ L O M _ L O DL o LM _ L O K L# LM _ L O K o mM _ L O K (L# mM _ L O O K J J M eL K M _ L O K J o EN _ L O EN _ L O J M _ L O K M _ L O K K M K K K K M K J L K K M _ L O K J o *N _ L O *N _ L O J M AL K M _ L O K J J M _ L IX roprL[DATAPROCDATARFCIPROCREAD.DIFRFCIPROCREAD.FILE.CABINETFREQPROCFREQTABLPROCTABLESCORRPROCCORRFACTPROCFACTPATHPROCREGRPATHPROCPATH^LPURGPROCPURGENOOPPROCNO.OPNOOPPROCNOOPNOOPPROCMODINOOPPROCSUB.SHIST L O N o 1 P LM P L   L L  K M $L# L O  K M _ L O K M _ L O M _ L O K o M _ L O K J M _ L O K J GL JL AL hL AL L kL eL L EN _ L O EN _ L O J M AL K *N _ L L O  u LM O  o L O  J mM _ L O u LM J L L PL 0 L O   o L L PL- - L O +  o ` [M K lK UM $L LM P L   M P EN   L \ L O M o 1 P LM _ L O N o mM _K L O  n K / K M $L L O  J mM _ L O J L L PL0 L O   o L` L O  J mM _ L O J Lm L PLV. L O T  o L` L O  J mM _ L O J $` L P L O O CLOSE   [M WK LM P L   LM _ L O ZK o mM _ L O n TK WK 1 P (` M K L O O 9A O  n K K N  J K N &eP LV [M K` K M $ J K N $eP  J K !N $eP L [M K`` L O  M (Ln M TRY AGAIN...   [M cK iK` LM P L   mM _ L O J L O  J L( mM _ L O L O  o 1 P P L<WRITE 6  P  LM P L   L O  1 P P  `  [M HK` P LPR#   K a P L J 1 o L XM O ' O ZK XM WKLc L M $ J lK UM $eP LW ZK L LNUMBER VARIABLES=   L a L UM $LWLI (INCLUDES ROW LABEL) 3  ZK L LL****ERROR: WRONG NUMBER OF VARS FOR CASE h  L L XM O ' O  O 1 P LM P O   L L, O L  LM 4   J O L  LM 4  eP L[L#* [M wL J O LM  J 1 !  O L XM O ' O  O 1 P eLh* f GP ~9 L M $L ZK P O o L ZK P [M wL J O LM  KK UM Lb`  9AL*E O mM    J O  N $eP L| lK XM iK [M WK L UM $L( yM WK LM P lK  o LM P O   LA LF, O L  LM 4 ?  J O L  LM 4 D eP LL* [M wL J O LM  J 1   O "                        J 1 O L XM O ' O  OLe 1 PL* O LM   L  O  u LM O  OL` N > tO T M iK M HK L M $Lb LTENTER VARIABLES FOR CASE ONE: 6   LoENTER h  L L aL VARIABLES FOR CASE=   lK XM a 8 ZbPYZL  OL  OL  PL  OL  O M uKL*BL    O N 8 N D u LM n $K M P 'K   fN zL G u M  O  O 1 P` LM P O   L** O L  mM 4 | L [M wL J O LM "" " " " """"""""