' +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(` d£ Ġz# u` 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 $'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  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 MFILE (  -o L(DELETE PARMFILE (  -o L(CLOSE (  -o L) OPEN PARMFILE )  -o L4)WRITE PARMFILE %)  n  -o  -o L`)CLOSE Z)  K` 7 l l $L) l k n  n ik l Qp lk  L) R: SYNTAX ERROR. '  L! l Qp n   L'= n ,l  l 4 ' L( 1 QpL' ,l l n ' n  l Qp n   L2( L7($ n ,l  l 4 0(  3k n ,l  l 4 5( o Lx( 1 Qp  l #l 3k n l  6k 1  Vl` -o L( OPEN PAR& L& ' Yl # lL& DT= &  l ^ KL!L&HELP n @m  & Ln' L('AVAILABLE PROCEDURES ARE: '  l Qp l   ,l ko LX' V'  1 Qp L!Lq'L'***ERROR: PROCEDURE NOT FOUND! t'  L!L'***ERRO,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨéR 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= 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 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? I 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. 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: ^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 LABE 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 L+ OPEN ACOR. +  f  f L+ READ ACOR. +  f  '  c  d h c   ' b cf  o  1 h d h c   d %h c   ' c \ b e  o  1 %h 1 h f L, CLOSE ACOR. |,  f  ^ d h c  b +f Ya # Lf  _ 1 h _ f L* CLOSE ADES. *  f  L* f 5 * L[ d h Ja   b cfL(+ '+ o 1 h c c 7C+L+ e D n a e > c T Ll+ COR FILE=> a+  f L+ NV= }+  c a LY f g Q g f f  d L)------- )  e L)---- )  d L)--- )  e L*--- )  b _d bL* L+* b  *  :f b af 8f  !*  Ue   d  d _ b +f Ya # Lf  d  d _ b +f Ya # Lf  d  e _ d $ ` b c $Dg L( \ d h c   b d $L)) d b ` d b # ` L* a &d $ ` b c $Dg L)) \ d LD)DESCRIPTION FILE 2)  f  d Lf)VARNAME ^)  e L|)MEAN w)  d L)STD )  e L) N ) L'--- '  e L'--- '  b _d bL' L' b  '  :f b af 8f  '  Ue   d  d _ b +f Ya # Lf  d  d _ b +f Ya # Lf  d  Gd _ b +f Ya # Lf  _ 1 h b c L( _ a & $L& d b ` d b # ` L' a &d $ ` b c $Dg L& \ d L'DESCRIPTION FILE &  f  d L1'VARNAME )'  e LF'MIN B'  e L['MAX W'  e Lp'SUM l'  d L'------- '  e L'--- '  e%L 8  p 8  p 8  p8pL 8pL 8  p8qL 8qL 8qL 8qL 8qL 8qL 8qL 8q!L 8  #q-8qL 8qL 8  q8  q8qL 8qL 8qL 8qL 8qL 8jLdjL jL jL jL jLdjL jL jL jL kL kL kL kL k L k L k L kL kL kL kL kL kL kL kL kL k!L k#L kL 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 0c   d _ |b +f :b $L; =b f d _ |b +f  o 1 g 1 gL;SUM ;   a c  ` ,a d Dg ` b c L;< _L&L& 0c c LO< : _ 2 0c c L< f Nf d 8a ;a f g d g c   d _ =b -f c o 1 g dL: :  1 Xg b -c vf NfL:$ Lf 5 :  NfLBW %_ wa g a   =b fL ;  ; o d g 0c   d _ |b +f :b $La; =b fLY;============== J; o 1 g 1 gLr; n;   wa g a   =b fL; ; o d g b -f b o b &d $L9 d _ b -f b o ,a d $L9L8 b d $L]: L: SORT VARS= :  d Xg b   c _ ` +f af LD: B:  1 Xg b a b &d $L: L{: SUM VARS= q:  d Xg b   d _ ` +f af  8f  Nf 1 hL8/ 8 f " b c $L8 d )a ,a d $L89L8 8 f " b c $L89L9$ 9 f " b c $L89 Lf  d n b d b ` Lf d  ` 1 Df b d Lf ' Nf b d b d h c   b af Bf L9 1 hL[ b d $L9 c _ c $LQ8L7 d b Lf  d 4 7 L7 d b b b Xg d  d L8 Lf `  d 4 7 LI8 ` d Lf ' xf d ` ` Lf d  ` 1 NfLQ8 1 XgL`Z d h Lf   Lj8 Lf b  d 4 h8 L8 d b ` Lf d  ` 1 :f b d Lf ' f 5 6  ` f 5 6 Dg L6 1 h d b ` Lf d  ` 1 $g Lf b ' Nf /QL 7 Lf d  7 LG7 Lf  u d ` Lf d  ` 4 NfL7LL7$ Lf d  d 4 J7 Ln7 d )a`Ls7 r7 xf c )a c b b d Lf ' Nf /QL7= 7 f " b 5 5 L5L5 IN=DEFAULT 5 NfL5DEFAULT f 5 5 L6L6 DES=DEFAULT Lf 5 5  NfL6DEFAULT f 5 6 LQ6L@6 COR=DEFAULT Lf 5 36  NfLV6$ Lf 5 T6  NfLBW b d Lf ' Nf /Q d h Lf    Lf b  d 4 fL6 L6$4 f 74 f L4 VERIFY ADES. 4  g  L5 e D n a e > c T a \d $L5L 5 5 fL'5L5DEFAULT 5 f 7V5 f LB5 VERIFY ACOR. 55  g  L5 e D n a e > c T a \d $L5L5 5 fL5L5DEFAULT 5 fL5DEFAULT f -f  o  f  c d cL2 P d c cL3ADES. 3  f L3 READ, NV= 3  c a c c $LYLd&L,4DEFAULT $4 g Q 7h4 f LT4VERIFY ADICT. E4  g  L4 e D n a e > c T a \d $L4L4 4 fL4L4DEFAULT f g Q g f f L2 OPEN ADES. 2  f  73 d c f L3 READ ADES. 2  f  ' c cf  o d _ c -f  o d _ c -f  o Gd _ c -f  o d _ c -f  o d _ c -f  o e _ c -f  o 4e _ c 1 h a c L1 c a wa d $ ` b c Dg L1 U_ b c L 2 a &d $L 2 \ 2` b c L*2 b _d b f  n ` c ,d i #  f  b d Ln2Lf2ROW b2  wa h a   #L2 2  Lf  1 h b td b` e ` Gd _ b e ` (L0 Gd _ b e d _ b e o 1 h 0c c L;1 d Xg 0c   d _ ` +f ` Gd _ ` e e o 1 Xg a c $` a d ta c Ya wa h c   d Va ` Gd _ b e n ` Ya b a wd ` Sa (L1 d b aL1 a b 8d b /` f  n ` c d # c ,d i L/CORRELATIONS OF /  f  Ue  wa h a   # b qa LD0L<0 :0 LI0 G0  Lf  1 h b td b` ^ d h c   Gd _ b e b af  o d _ b L. \ c ;a 1 hLe-` d h c   Gd _ b e Ce o b af  =e L/ b cf b af Ce  o 1 h a c $L[ a d ta c Ya wa Nh c   d Va ` Gd _ c e n ` Ya c a d ` Sa (L/ d c aL/ 1 Nh a c L/ c h c  L- b af -  Le   wa Nh a   c \ b e Ya # Lf  g Gd _ c e u d  L2. 0. 5 Lf  Nf 1 gLM. K.  Lf  1 Nh _ >a d ;a a &d $ ` >a d  ` b c $Ig Dg  ` b c $Dg  b \ b e d o 1 h b c L, U_L, a &d $L, \ L-UPPER RIGHT -> CORRELATIONS ,  L9-LOWER LEFT -> GOOD N'S "-  b hd b d ` c ta c a wa d  ` a c $Dg L- _L[ ` d L- _ . c ;a d  d _ a f c d (e o c d cf Bf o c d c 6PLL B a &d $L8L a "f Bf  o d _ a f e a (e o a d aLL a d $LL d h c   b af Bf LL d _ a f b (e o LL 1 hL9[ /QLLTO Lf d  d 4 J L|JLJSET Lf Gd  J LUKLJDEL Lf Gd  J LJL9[LJ) J f " b c $L9[ b d Lf ' Nf d _ a f e o d _ a f Sd o a d aL= Lf d * Nf /QLiK gK f " d b ` Lf d  ` 1 Df b d Lf ' Nf $c d $LK` e a ` o a d a` a d $L%J d h c   b af Bf L%J d _ a f d _ a f n b o ` 1 hLZL2J Bf  Bf  d 4 0J LxJ Bf  u d ` Bf d  ` 4 DfL-J`LUK d !c Lf d * Nf /QLdK /QLJSETX Lf d   "f Bf  o d _ a f e a (e o a d aL9I a d $L4I d h c   b af Bf L4I d _ a f b (e o L9I 1 hLAI.M1. ,g 5 C) Lf b  d 4 7C  ` Lf b  d 4 A) f 5  cf b  d 4 > L> 1 hL> b ^bL> d )a b ^b c c LA? d ab ` Lf d  ` 4 f db d Lf * Nf L-? INPUT FILE= !?  f  b c $L? /QLW?C Lf d  d 4 U? LF ,d b Lf d * Nf c c L@ 7V@ d ` f g Q g c b ;d b b b 8d b` d a b d Lf ' Nf c c $L> /QL=( = f " b c $LBW c c L;> /QL">(  > f " b c $LvQ b d (LO> d b d h Lf   Lh> Lf b  d 4 f> L>L>( Lf b  d 4 > L>L>$ L b [  Bf  L[ f L[CLOSE [  Y f L\RUN MAINPROC,S  \  d mb # aL5\,D 2\  d mb # d pb aLU\,V R\  %b ^ f L|\ CLOSE ADATA. o\  f  0c c L\ : b c L\Z  L[LZ(***ERROR: NO VALID LOGICAL OPERATOR=> Z  Lf  L[L%[(***ERROR: NO VALID ARITH - OPERATOR=> Z  Lf  L[L`[#***ERROR: NO VALID CONSEQUENCE=> <[  Lf  L[L[***ERROR: SET WITHOUT TO=> w[  Lf  L[  xf LY Y xf ``LY***ERROR: WRONG PARMFILE Y  L[ LZ!***ERROR: INPUT FILE NOT FOUND Y  L[LLZ***ERROR: BAD PARAMETER=> /Z  f  L[L~Z***ERROR: SYNTAX> NO = cZ  L[LZ***ERROR: SYNTAX> C LIST Gd  X LX ,d bLo7LXVARLXBY f d  Gd 4 X  ` Lf d  X Dg LY d bLo7L,Z c d $LpY 'LOYHIT RETURN WHEN SYSTEM LOADED. 0Y  xf LaY `Y xf ` c d $LY 'LYHIT RETURN WHEN DATA LOADED. Y Lf d * NfLR? b c $L`Z d b ` Lf d  ` 1 fLWDES f 5 W LX j6 "g f d .bLBWLXPAGE f 5 X L:X j6 "g  bLBWL@XIN f 5 =X L=LZXCOR f 5 VX LyX j6 "g fLBWLXPRINT f 5 |X LX j6 "g fLBWLXSUM f a  8f  8gLVLIST Lf d  d 4 V LY LW A-STAT LIST PROCEDURE. V  pY Lf d * Nf /QL,W$ Lf 5 *W L!4 ] /QLJW= HW f "LZW$ Lf  c $ ` Lf d  d 4 XW Dg L$LW( Lf d  d 4 W LW o d f  o Gd f  o d f  o d f  o e f  o 4e f  o Ce f  o Le f  o Ue f  o  f LMVCLOSE GV  L^V,SLdV,DLjV,V d c #  [V  aV  :f d c # d c  8f  gV  :fc b c bLT T f c a f LT OPEN PARMFILE T  f LU READ PARMFILE T  Q f L"UCLOSE U  f LDU OPEN SYSPARMS 6U  f LgUREAD SYSPARMS XU  '  `  a  c  sb  a  c  a  "b d f S o Ce XfLSSIN( S o Le XfLSCOS( S o Ue XfLSRND( S o je XfLT.M1. S o se XfLTDEC( T o L8T ` ^e c # c ae i`LQT ` (e c # c +e i` c )a d b c .b c !c c bLsT rT fLT ~T g c bLT T fLT T f c b R.NE. R o e gLR.M1. R o 4e gLR.AND. R o Ce gLR.OR. R o Le gL S.EQ. S o Ue gLS S o d XfL1S^ /S o d XfLHSSQRT( BS o Gd XfL[S* YS o d XfLnS/ lS o d XfLS+ S o e XfLS- S o 4e XfLSLN(  f f Nf g 5 6g  g` d b ` Lf d  ` 1 f f Nf`LQ Q xfLQ Q Nf  xf |e  vf L(R Lf 5 vf  NfLQ`L-R ,R f d Fb d `c d a d a d gL[R.LT. VR o d gLqR.GT. lR o Gd gLR.GE. R o d gLR.LE. R o d gL c T a qd L"QLP***ERROR: NOT END OF FILE. P  LQFILE NOT FOUND IF CODE=6 CODE= P  a a L[ e > c T` d h Lf   LHQ Lf d  d 4 FQ LuQ Lf d * Nf 1 h` c bLO> Lf f g NfLQ, Q f " b c $LQ Lf  Lf b  d 4 fLO LO) f 5 O  ` f 5 O Dg LO 1 h d b ` Lf d  ` 1 f b d Lf ' Nf /Q H a d aL= d _ c e d c ` d _ ` e ` d c ` d _ ` e ` o d _ c e je o c !c` e D n a e > b c $LZ d b ` Lf d  ` 1 Df b d Lf ' NfLN) N f " b cLN( N f c c $LZ c b LZ c d Lf ' Nf B mI a d aL= d _ a f d _ a f n b o ,d b ` Lf d  ` 1 Df c d Lf ' Nf /Q d h Lf   fLM LM) f 5 M  ` f 5 M Dg LM 1 hLZ d b ` Lf d  ` 1 Df b d Lf ' Nf B mI a d aL= d _ a f d _ a f n b o b d $LwN a d a Lf e * NfL= /QLN( }N f " b d Lf ' Nf /QLN) N f "L Lt[ Lf Gd * Nf /QLL) L f " b c b c $LZ c 5d (LM d h cc   d %h b Vf  n c   b Vf  ` Lf c  ` 4 :f b Vf 8f L|M b  DO'NDODODODO'N'N'N'N'N'N 1 %h 1 h /Q d h Lf    Lf b  d 4 8 x7   7  6 _ 6 7 ^ 7  6 _ 6 7 ^ 5 6 $Ll$ 5 6 $ 4 7 6 # 4 7 6 4 $8  4 6 6 8 Ll$ 'L^$HIT 'RETURN' FOR MORE... E$  8  1 59 ` 5 6 $L$ 4 e5 L$SORTING KEYS... $  ", "  6 _ 6 7 ^ 1 59 X8 L"CLOSE "  X8  L" "  L%#OUTPUT DICTIONARY WRITTEN.  #  LD# POS LABEL 9#  o7 L[#START U#  7 Lr#WIDTH l#  6 59 :6   6  L#. #  6 ONARY. !  L! TO DISK FILE= ! L!ADICT. !  7  6 55 7 8 + 8 7 X8 L" OPEN ADICT. "  7  X8 LE" WRITE ADICT. 8"  N8  6 59 :6   6 _ 6 7 n 25 55 6 8 L", "  6 _ 6 7 ^L 5 a 6 I9 6   .6 7 y6 $ 4 .6 7 7 $8  4 .6 7 f7 $8 L! .6 7   1 I9 4 a 7 I9 ?7   .6 7 y6 $ 4 .6 7 7 $8 Lp! .6 7   1 I9 `L! WORK.DATA1 7 5 |! ` L!WRITING DICTI4 /5 $8 L3L 6 98  4 6 _ 6 7 4 L 6 ;8L0 6 98   o L`L  8L!  8 D5 , A5  8  '7 L 6 8 8  *7  Lb  8 5 `  8 1 8 8 5 8  8 8` 5 6 (` X8 L PR#  OL 8QL 8SL 8UL 8WL 8YL 8[L 8]L 8_L 8aL 8  c 8yL 8{L 8}L 8L `yL `{L `}L `L `L `L `L 8  \h##8  -8   8  2-8  8  =-8mL 8oL 8qL 8  s 8  -8L 8L 8L 8L 8  -8ML 8`Ld`#Ld`(Ld`-L `/Ld`4Ld`9Ld`>Ld`CLd`HLd`MLd`RL `TLd`YLd`^L ``L `bL `dL `fLd`kL `mL `oL `qL `sL `uL `wL hNLdhSL hULd hZL _L _Ld_Ld_L _Ld_L _Ld_Ld_L _L _Ld`Ld`Ld` L `Ld`Ld`Ldh LdhL hLdhLdhLdh Ldh%Ldh*Ldh/Ldh4Ldh9L h;Ldh@LdhEL hGLdhLL gLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgL gLdgLdgLdgLdgL gL gLdgLdhLdhLd gDLdgILdgNLdgSLdgXLdg]LdgbLdggLdglLdgqL gsLdgxLdg}LdgLdgLdgLdgLdgLdgLd b c $` b g b   1 g c b`Lc@c@` p 0@ 4 @d8,HH z '0P29Y: g@L gBL L^MON O ^  f g Q g f f L^OPEN ^  f  f L_WRITE ^  f  d a d c f nf c c $LT_ f LC_WRITE <_  lf  ` c b a &d $L_ L_ HIT ANY KEY WHEN PAPER ALLIGNED. o_   Nf` b d b`] Lf d * NfL~] Ub d $L]L]- ] 5 Lf  Nf` d h Lf    Lf b  d 4 xfL^ NORL vf 5  ^ L0^ ^^ d bL]L9^ ASIS vf 5 3^ LX^ ^^ d bL] 1 h` Lf b  :f b td Lf ' 8f  Nf`L^ f 5 ^  ` c c Dg L%_ f _L& L\ END OF ADATA. \  f  L\ RECORDS READ= \  >a a L& L]HIT 'RETURN' FOR MORE... ]  '  Nf  ` ` Rb  \a c $` c RbLV]- Lf d  T] L~] d Rb Lf d * NfL]0 Lf d  ]  ` Lf  c Dg LqL 8qL 8  q8r L 8r L 8r L 8rL 8rL # g h _ Lf j d h _ Lf j n c i i # i d h h Yh $L% h g h _ Lf j d h _ Lf j n c i i # i d g h zh  d h g &k Ly& h f A te eh $Ly& xj g` h zh  d g g &k L& g f A te eh $$ g 1k g g  o LG$ g 1k g g  o LG$ g 1k g g  o LG$ g 1k g A  o LG$ g 1k g  o LG$ g 1k g  o LG$ g 1k g  o LG$ g 1k h _ g j k  o LG$ g 1k g  o LG$ h _ Lf j n c i i # g h _ Lf j n c i i0VARL0BY v8 6  6 4 0  4 v8 6  6 4 0 8 L%LO2L1 WORK.DATA1 7 5 0 L61L%1 OUTFILE = 1  7  y!L a6 6 $L1 'Lu1HIT RETURN WHEN SYSTEM LOADED. V1  8 L1 1 8 ` a6 6 $L1 ' 8  6 (L0L/$L/) 8 6  6 4 /  4 8 6  6 4 / 8 L0L 0( 8 6  6 4 0 L40 8 6 * 8L2 6 6 $L2 6 6 4 8 6  4 1 x8Ld0MAX v8 5 `0 L$L~0OUT v8 5 z0 LF(L0IN v8 5 0 LC)Lo  X8 L.CLOSE .  L.,SL.,DL.,V 6 j6 #  .  .  7 6 j6 # 6 m6  7  .  7 5  7  8L6/SORT 8 6  6 4 1/ L"2 Lz/ A-STAT SORT PROCEDURE. ^/  1 8 7 * 8  L/= / 8 EN SYSPARMS -  X8 L-READ SYSPARMS -  '  4  5  ^6  5  5  p6  5  5 6 7  o 6 7  o 6 7  o 6 7  o 6 7  o 7 7  o 7 7  o -7 7  o 67 7  o ?7 7  6  Z8 7 M5 6 6 6 6 6 5 T7 #5 6 5 6 }5L, 4 H7 6 # c K7 i` 6 5 6 5 6 5 6 %6L- WORK.DATA1 - 7L(- '- 18L4- 3- n8 X8 LS- OPEN PARMFILE E-  X8 Lu- READ PARMFILE g-  \, X8 L-CLOSE -  X8 L- OP= +  t5 a X8 L+CLOSE +  LF3 7 > |6 T`L+ + 8 8 '8 8 8L,, , 8  6 6 $L:, 8 P8 %8 8 8 5 8  8` 6 6 4 8 6  4 1 P8 %8 8`L`, _, 8Ll, k, 8  8 ]7  8 L, 8 5 8  8Lt,`L, , 8 6 _ 4 7  o  X8  4 6 4L[* X8 L*CLOSE *  6 4 76L+DICTIONARY READ. NV= +  :6 a :6 6 $L1 7 > |6 T L/ 7 D n q5 6 L+L+***ERROR: NOT END OF FILE. b+  L+FILE NOT FOUND IF CODE=6 CODE9L2L) 6 5L) 6 5 6 5 6 5 4 8 6  4 4 18 5 6 8 * 8 L* INPUT FILE= )  /8  7* 6 4 /8 8 + 8 18 X8 LG* OPEN ADICT. ;*  /8  X8 Lp* READ ADICT. d*  N8  ' 4 8  o 6 _ 4 7  o  ( L(L($ 8 6  6 4 ( L( 1 59L( 6 5L( 6 5 6 5 6 5 4 8 6  4 4 7 8 5 * 8L$)$ 8 6  6 4 ") L0L/ 6 6 8 ' 8 6 59 8   Lk) 8 6  6 4 i) L)L) 8 6  6 4 ) L) 1 58 7 L' 1 59 |6 _ 6 7 6 o 5 6 $L'L& L' SORT VARS= '  6 8 6   |6 _ 4 7 8 L*( ((  1 8 8 8L/ 6 6 8 ' 8 L]( 8 6  6 4 [( L( 8 6 * 8 6 59 8   L( 8 6  6 4L& 6 6 4 8 6  4 1 7 6 6 8 ' 7  8 1 59L&/ & 8  6 6 $L ' 6 5 5 6 $L`'L' ' 8  6 6 $L`'L;'$ 9' 8  6 6 $L`' 8  n 6 6 6 4 8 6  4 1 7 6 6 8 ' 8 6 6 5 6 59 :6   6 %  &5 a L/ 6 5 6 5 6 6 8 ' 8 L%= % 8  6 6 $L|&L& 6 6 8  6 4 & L*& 6 6 6 6 8 6  6 LF& 8 4  6 4 D& Lt& 4 6 8 ' 8L|& 1 8L2 6 59 8   L& 8 6  6 4 &  U 6 5 ELF3 6 5 6 6 8 ' 8  6 59 8    8 6  6 4 8L% L%$ 8 5 %  4 8 5 % 8 L6% 1 59 6 6 4 8 6  4 1  #5 8 6 ' 8 Lh%$ 8 6  6 4 f% L% 6 5 L%MAXIMUM NUMBER OF CASES= 8  o 8  o8oL 8oL 8  o8pL 8pL 8p L 8p L 8p L 8pL 8pL 8pL 8  p-8pqL 8psL 8  up8  p8pL 8pL 8pL 8pL 8pL 8pL 8pLL iL iL iL iLdiL iL iL iL iL iL iL iL iL iL iL jL jL jL jL j L j L j L jL jL jL jL jL 8  woiwL iyL i{LdiL iLdiL iLdiLdiL iLdiLdiLdiLdiL iLdiLdiLdiLdiLdiLdiL iLdiLdiL iL iLdioLdo!Ldo&Ldo+L o-Ldo2L o4Ldo9Ldo>LdoCLdoHLdoMLdoRLdoWLdo\LdoaLdofLdokLdopL orLdisL iuL P@ 0H H j 03nL nLdnLdnLdnL nLdoLdoLdo LdoLdoLdLh Lh***ERROR: DISK FULL h  m  dm > k TL5 Li***ERROR: DOS ERROR CODE=> h  `k a dm > k TL5 L[i"HIT 'RETURN' TO ACCEPT (N=REWRITE) 8i  '  m `Lc `@@` LeLg) j  >n  g  @nLe LgENTER THE VAR NAME=> g  '  m Lh m 5 h LgLh) >n 5 m  h  @nLe m D n ]k `k l $Lh L}h)***ERROR: PROCEDURE NOT ON THIS DISK=> Sh  m  dm > k T k ukL5 `k ;l $RIABLE=> f  '  m Lf m 5 f LfLf(Lf)) j m >n  f  m  f  @n L#g TRANSFORM: g  >n  2iLZ LXgENTER THE CONSTANT=> Cg  '  j  j k (LgLg0Lg) >n 5 }g  m j  m  g  @nNSFORM: e  >n  2iLe m 5 e LeLe e @nL[ n 5 >n  nLZ lk l LfLf) l m >n  f  @n L=f TRANSFORM: 2f  >n  2iLXf m 5 Wf LzfLof nf @nL[ n 5 >n  nLZ Lf!ENTER FUNCTION OPERAND VAg LdENTER VAR NAME OF OPERAND 1=> d  '  jn Ld hn 5 d Ld >n 5 hn  @n L#eENTER VAR NAME OR e  LRe OR CONSTANT FOR OPERAND 2=> 1e  '  m Lje m 5 ie L eLe) lk m >n  m  e  @n Le TRA m Lc (OPERAND) c  1 Co k aLc. c LcCONSTANT c  k k k aLd.  d L"dVAR NAME d  LOdENTER NUMBER OF SELECTION=> 3d  '  ik  lk Dl Lb lk Dl $Lg lk )l  %j lk Ml (n Lf lk Ml $L= Lb SELECT OPERATION: b  k Co l   k l $L7c k aLc. c  k m L,c MISSING VALUE c  k l (Lc k aLZc . OPERAND1 Nc  k m L{c OPERAND2 qc  k l Lc k aLc. c  k 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 8qjL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL jL 8  Pp 8  fp 8  |p8pL 8p j[Ldj`L jbLdjgLdjlL jnLdjsLdjxLdj}LdjL jLdjLdjLdjLdjLdjLdjL jLdjLdjL jL jLdjL jL jL jL jLd OPEN ADICT. -  j  Ek L- WRITE ADICT. -  Ok  h l g   h _ Kg j Pe o h _ Kg j n Je Me Kg j LE., C.  h _ Kg j ^Ld., b.  h _ Kg j ^ 1 l Ek L.CLOSE .  Ek  L. j   1 l e a yi l i   g j Yh $ d g j cj $k L - g j   1 l `L$- WORK.DATA1 j 5 - ` LO-WRITING DICTIONARY. ;-  Lk- TO DISK FILE= ]- L}-ADICT. v-  j  h Me j k 9V k j Ek L- `L+ + kL+ + j te )Y qe  j  i L', h k j  i  L+ k 5 +  k 1 k k 5 j  k j` Xf h (` Ek LA,PR# =,  Xf a h l 4i   g j Yh $ d g j cj $k  d g j i $k L, g L* Kg 1kL*0 Kg /k *  o L*` Kg /k  d h _ Kg j d $` Kg 1k Kg /k j Kg /k  u h j  o Kg /k  d h _ Kg j u h d L+ Kg 1kLt+0 Kg /k r+  o L4+ Kg 1kL+- Kg /k +  o1kL)M ) o e f A te eh $L) &U 1 &l Ek  hh d *j L*RECORDS READ= )  e a f h L#* ! d h $L4* e 1 ?lLfc h l j    j Kg  h 4 k ` 1 l hh Hg` Kg /k  eh (L* Kg /k  d h _ Kg j d2e  '  k  h &l f   '  d  2e  '  k  d eh $L ) e 2  7  LF3L23%***ERROR: CASES EXCEEDS MAXIMUM =>  3  &5 a LF3 X8 LU3CLOSE O3  <1 X8 L{3RUN MAINPROC,S l3  6 5 # aL3,D 3  6 5 # 6 5L1HIT RETURN WHEN DATA LOADED. 1  8 L1 1 8 ``L2!***ERROR: INPUT FILE NOT FOUND 1  LF3LA2***ERROR: WRONG PARMFILE %2  LF3Lo2***ERROR: BAD PARAMETER=> R2  v8  LF3L2"***ERROR: NO TRANSFORMS ALLOWED  Kg ' j h f L= j h  = L= j  u h d j h  d 4 jL=L>$ j h  h 4 > L&> h )eLl] Kg h j ' j g eh $Lu> LN>( L> k <* Kg eh $Ll] g eh L> L}>( {> k <* Kg eh $L>L>(***WARNING: NO OPE  L` Kg gLl] Kg h j ' j  h l j    j Kg  h 4 kL< L=$ k 5 <  d k 5 < k L/= 1 lL6=OUT mk 5 2= Ls= h Bg d j h  d 1 j j Kg ' j Lz=DES mk 5 v= L= h Bg d j h  d 1 ek j l j    j Kg  h 4 kL; L;$ k 5 ;  d k 5 ; k L< 1 l h Bg d j h  d 1 j j Kg ' j  h l g   Kg j j L< 1 lL}< ***ERROR: WEIGHT VAR NOT FOUND=> \<  j  L<OR WEIGHT= BEFORE IN=  g8  Kg j  4i _ Kg j hhh  yi _ Kg j qe + j  h  i _ Kg j qe + j  1 lL6DUMMY ck 5 6 L68 ck k 9V k ek Ek L37 OPEN ADES. (7  ck  Ek L\7 WRITE ADES. P7  Ok  h l g   Kg j L7, 7  h l 4i   ~g 5------- 5  i L5---- 5  4i L5-------- 5  h l g   =i A0  g j  L0WEIGHTED RECORDS OUTPUT= t0  @f a f h  .  L.OUTPUT DICTIONARY WRITTEN. .  L. POS LABEL .  j L/START  /  Zj L'/WIDTH !/  h l g   Kg  LU/. R/  Kg j j   !j  h _ Kg j ^ fj  h _ Kg j ^ 4f h $LKN h Hg h l Kg j  n h   Kg j  d j ~g  d 4 j Kg j j L)N Kg  PN P P P PNNNNN 1 l Kg g &LHN Kg h HgLM  h l j    j Kg  h 4 kLvN L{N) k 5 tN  d k 5 yN k LN 1 lLĹh $LL f j j  o h _ e j i e i o f h fLKM e h $LCM h l g   Kg j j LCM h _ e j Kg i o LKM 1 lLb LTMTO j h  h 4 QM L?b j h * j LM) M k <* Kg #h Kg eh $La &h h (LK) K k <* Kg eh $Lb Kg h j ' j h _ e j Hj o h _ e j h o e h eL8> j i * j L#L !L k <* h Bg d j h  d 1 j Kg h j ' j g h $LL h _ e j g h i o g h j j o g h g PLKM F e j LJ h _ e j h _ e j n Eg o ` 1 lLaLJ j  j  h 4 J L5K j  u h d j h  d 4 jLJ` h g j 4i * j LL LYKSETX j i  TK L6KLvKSET j h  rK LLLKDEL j h  K LKLbI h l g   Kg j j LI h _ e j Kg i o LI 1 lLI.M1. k 5 I LJLJ J k` wk j F J e h $LJ f j j  o h _ e j h _ e j d i e d o f h f` e h $LJ h l g   Kg jh  d 1 j Kg h j ' jLH. H k <* Kg h j ' j  JLHDUMMY H ykLI.M1. k 5 I LSILI I k <* h Bg d j h  d 1 yk Kg h j ' j F e h $LI f j j  o h _ e j i e i o f h fLI e h $L 4 G LLLl] j h * j  LG. G k <* Kg eh $La j Kg  i 4 k h l f   Kg k k L.H 1 lLa h _ e j h _ e j n Eg o e af H h _ e j df h i h o e h eLNKLH. H k <* h Bg d j  h 4  h Bg d j h  d 1 j Kg h j ' j h e j h  h 4  i ( d j h   Kg j j LD Kg #hLD 1 lLtb e h LD &h Hg e #h Kg e e l &h   h _ Kg j ~g o ~g h {g 1 lLA h l h xg   h l g   h _ &h j n ?g $LE \h _ Kg j &h o Kg 1k &h j o h k h C 1 lLWa h Bg d j h  d 1 ykLC) j Kg  h 4 C LD j Kg ' jLD Kg h j ' j F e h $L,D j  eLpD e h $LhD h l g   Kg j j LhD Kg eLpD 1 lLtb wk j F e h $LD j  #hLD e h $LD h l gh _ d j ~g o  ~g h {gLA h l g   Kg j j LC h _ Kg j ~g o  ~g h {gLA 1 lLtb h Bg d j h  d 1 j Kg h j ' j  h l j   LlC LqC) j Kg  h 4 jC  d j Kg  h 4 oC k L j i o 1  h l j    j Kg  h 4 kLA) k 5 A L4BLB k 5 A LBLB- k 5 B L&C 1 lLWa Kg h LBLGB h Bg d j h  d 1 EB  j j Kg ' j  jLB Kg h j ' jL1E [F e h $LB j  d h k g   ' d j  o  1 k g j  eh L@ h g g f Ek LACLOSE A  L,ADICTIONARY READ. NV= A  g a 3j > \h T g eh $Lg` f h $LhA Q f eh $L|A Ll] f h $LF h {g h l he   h _ Kg j * j L? INPUT FILE= ?  %k  f eh $L+@ L?C j h  h 4 ? LF h f j h * j g eh LA Ae h $L?@ SLhA 7@ %k k bQ 9V k 'k Ek Le@OPEN _@  %k  Ek L@READ @  Ok  '  g  g f N PARENS>NO MODS MADE. >  L0V f h (L> h f h l j   L> j Kg  h 4 > Lf?L?( j Kg  h 4 ? Lf?L??$ j Kg  h 4 =? Lo? 1 lLWaLo? Kg fL{? h )e Kg f g eh L? h f d j h  d 4 'k f }h z#?     "Š îʠVîʠDԮҲ ԮҠԠŠîʠZàӠîʠQîʠ"L   5 a 6 5 X8 L OPEN ADATA.   7  6 55 4 6 7 F6 X8 L READ ADATA.   b8 L1,R .  6 C6 a I6 7 F6 '  8  X8  85 6 55 7 LRECORDS OUTPUT= {  85 a  I6 6 $ 4 5 X8  85 6 55 6 4 7 LRECORDS READ=   85 a 4 6 4 4 5 L 3 qLb 6 59 8    8 6  6 4 8 ` 1 59 6 6` 5 6 5 X8 L\PR#0 W  X8 LyCLOSE s  X8 L OPEN ADATA.   /8 L,55 5 6 $L 6 4 X8 LPR#0   /8 8 + 8 18 X8 L OPEN ADATA.   /8  N8 d8 5 6 $Lb 7 8 + 8 7 X8 LN OPEN ADATA. B  7  X8 Lw READ ADATA. k  b8  I6 7 F6 '  8  8  n4 7 I6 o L 4 7 I6 o 4 7 6 o L  6 n V5 I6 8 7 U6 8 7 IL 6 V5`L! WORK.DATA1 7 5  LTLFLINE1050 ERROR 7  Lc X8 Lj WRITE ADATA. ]  N8  8  X8  5 6 5`LF3 7L H+L3 6 4 U6 6 &Lv U6 4 U6 7 R6L 4 7 I6 o Ly 4 7 6 (La 4 7 U6 o U6 4 U6 7 R6 U6 6 LE 4 7 I6 o 4 4 I6 6 &Lv I6 4 I6 7 F6L> 4 7 U6 o L  I6 F6 U6 R6 U6 6 LE 4 7 6 (L L 4 7 I6 6 o I6 4 1 S9 4 7 6 o h5 7 6 o h5 6 7 h5 6 7 o h5 6 4 h5 6 4 4 7 F6 4 7 R6 U6 6 LE`  Y5 6 L 4 7 6 (L 4 7 I6 o I6 4 I6 7 F6 I6 6 LE 4 7 U6 o 4 6 _ I6 7 n 4 4 8 4 8 7 8 U6  4 1 7  o 1 8 4  F8  :9 6   D8  6 (L9L#0 ! 5 D8  F8 1 :9 4 8 4 8 D8  o ` h5 6 7 6 o h5 6 4 6 S9 6 b5   I6 6 R6 > Y5 6 L I6 7 U6 o _8T_L  8L  8L  P8L  '8L, 6 59 8   L 8 6  6 4  L= 8 6 * 8 1 59` 6 n V5 I6 8 7 U6 8 7 ILp 6 V5` 6 8 6   |6 _ 4 7 n F6 6 _ I6 7 n R6                 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     DIF j i  [ L[ h >eL[READ. j 4i  [ L` L\(A-STAT READ.DIF & FILE CABINET PROCEDURE [  ` Ae eh $Lk\ L`\FILE.CABINET INPUT SELECTED D\  Ae h $L\ L\DIF INPUT SELECTED \  L\ \ k h  f  Uf  Ph  e  mf h j  o h j  o LX- X o i jLXLN( X o i jLXSIN( X o i jLXCOS( X o i jLYRND( Y o i jLY.M1. Y o L?Y d i qh # c i i` h l og  LUYM k 5 SY  k 1 l hh )e h f hh f hh gLY WORK.DATA1 Y jLY Y 'kLY  i kLW.LE. W o 4i kLW.NE. W o yi kLW.M1. W o i kLW.AND. W o i kLX.OR. X o i kL)X.EQ. $X o i kL;X :X o h jLNX^ LX o h jLeXSQRT( _X o h jLxX* vX o i jLX/ X o 4i jLX+ X o yi jkLV V j  k i  k LV j 5 k  jLV` h l he   Kg jLWC Kg  W  o 1 l hh >e +i f i g h l he   \h _ Kg j Kg o 1 l hh =f h e h f h kLxW.LT. sW o h kLW.GT. W o h kLW.GE. W o j D n e h L#VLU***ERROR: NOT END OF FILE. U  LVFILE NOT FOUND IF CODE=6 CODE= U  e a Lb 3j > \h T` hh fL> j k k jLJV, HV k <* Kg eh $LV j Qk k j k 5 k  k` h Bg d j h  d 1 Qk k j`LV V  e j h e d h _ d j d h e d h _ d j d o 1 &l Ek LUCLOSE T  c f eh $L%U { L-0` e /k  n 2h h _ e j n /h $` h _ e j u h n f 5h k f   e 1kLU. e /k U  o 1 k` o LS e 1kLSM S o e /k  d h _ e j d (LT h _ e j e /k  o 1 &l hh d *j L4TRECORDS READ= %T  e a LST WORK.DATA1 j h  i 4 HT LT f h LT ! d h $LT e 1 ?l h &l g   h _h Bg d %k h  d 1 R  j Kg i %k ' j  'kLR 1 l Ek LRPR# 0 R  %k k 9V k 'k Ek L#SOPEN S  %k  Ek LFSREAD @S  Ok  '  Me  h ?l Pe   h &l g   ' e 1k  o LS e /k Sk h  d 1 Q  j k Kg ' j  k`LQ HEADERFILE k 5 Q  k` LRPASS ONE READING OF DATA. Q  h k g   h _ d j \h o 1 k h _ h j h o h l %k   LR HEADERFILE %k Kg  i 4 wR LRLR INDEXFILE k LP 1 l h Bg d j h  d 1 yk Kg h j ' j  SI e h eL8> h _ g j h g d h _ d j d h g d h _ d j d o h _ g j og o hh g` j k k jLsQ, qQ k <* k j Kg eh $LQLQ HEADERFILE h Bg d ) O k <* Kg {gLO( O k ~g eh $La ~g ?g La ~g h j ' j F *J e h eL8> h _ e j h _ e j n Eg o h xg d j h  d 1 j ~g h j ' j  h l j    j Kg  h 4 kLP LP) k 5 P  d k 5 Pa h Bg d j h  d 1 j Kg h j ' j F *J e h eL8> h _ e j h _ e j n Eg o Kg i $L LDO( BO k <* Kg h j ' j LfO) dO k <* Kg eh $La h Bg d j h  d 1 j Kg h j ' jLOk ` xj g $L# g 1k k o LG$ g Yh $L# g 1k g  o LG$ g h $L $ h dLG$ g  k$$$$$$$%%+%@%L9$LINE11330ERROR *$  K h _ Lf j n c i i # IfL! g 1k g g  o LG$ g 1k g  o LG$ g 1k g g  o LGL!L! g g L" h HgL!L! g g &L" h HgL!L! g g L" h HgL!L! h /k  i ( d h /k  Qj k L5# h HgL!L! gl LO# h HgL!L! gl Li# h HgL!L! g g $L# h HgL!L! Lf e ` p% g eh $ d g vi $ K Kg h $L! Lf h If g vi $L! hh HgL=" h _ Lf j d h _ Lf j n c i i # i d h $ d Kg eh $k L=" Lf h IfLo" Kg eh $Lo" h _ Lf j n c i i # IfL! Lf e `L# g g (L" h HgL!L! g g L" h HgLg` k j` '  k  '  d  2e  '  k L DATA k 5  L`(L h If Lf e ` h _ Lf j d h _ Lf j n c i i # i d eh $L# p% xj g $Lq! hh HgL! hh Hg g  ~"""""#8#R#l#L!LINE11065ERROR !   Lt d eh $L e 1k 5e  o d eh L e 1k Yk o L e /k  L$ e 1kL M  o h e e e /k  d h _ e j d (Lt h _ e j e /k  o 1 &l 1 ?l 3j > \h T Ek L CLOSE   Pe eh $ Ye LROWS=   \e a \e Me LLABEL k 5  L d j Yk o LSIZE k 5  L< h _ d j 5e o e h eLDDATA k 5 ? LZL h ?l Pe   h &l g h   '  d  2e  '  [k LBOT Yk 5 '  k LTABLE k 5  Lb '  d  2e  '  [k  L DIF FILE TITLE=>   Yk  '  k  '  d  2e  '  [k LPVECTORS k 5 H L 5e g f L{COLUMNS= r  g a LTUPLES k 5  L 5e L WORK.DATA1 j h  i 4  L3 Ek L WRITE ADATA.   Ok  h l g   t* Kg /k  1 l Ek  f h $LD  @f h =f 1 k` hh e 7~ %k k 9V k 'k Ek L|OPEN v  %k  Ek LREAD   Ok  d o i _ f j i _ f j f o h _ f j yf L h _ f j f o h _ f j yf (L2 h _ f j f o h _ f j h _ f j d e |f d o 1 l` g eh $L| h eL g f A te eh $` g /k  e h k e d d h e d `g %f d \h _ f j d d o yi _ f j yi _ f j d h f d 4i _ f j d d d \h _ f j %f d \h _ f j d h e d d d e e d Tg d o 4i _ f j 4i _ f j d \h _ f j %f f f c e i e o \h _ f j e d i _ f j f d f f f 0g f Wg 3g -g cg i _ f j i _ f j d h f d yi _ f j d d d h -g d 4i _ f j d d o i _ f j i _ f j d \h _ f j d \h _ f j d d h e %f i $k L h qe`` h e Pe h $LE h l g   \h l i   ~g \ Kg j hh o 1 l h _ Kg j i o h _ Kg j i o 1 l h l g   f f A te eh $L_ f /k  f \h _ f j (f \h _ f j \h _ f jT AykwAyL  j h lg i  Gk Ii ee hh Hg hh {g hh =fLV h l j   L j h  h 4  L@ j h * j 1 l` hh qe f /k j  j  n }e e Ri  d e [i &k L h qe` e Fi $ d e di $k  d e m                          <: (4)"BLOAD RUNTIME"(13)(4)"BRUN MAINPROC.OBJ" Ly>L 8y@L -8  p8  p-8wL 8wL 8wL 8wL 8  w 8  w-8xVL 8xXL 8xZL 8x\L 8  ^x-8  x-8yL 8yL 8yL 8yL 8yL 8y L 8y"L 8  $y 8y:L 8yLddCLddHL dJLddOL dQLddVlL lLdlLdlLdlLdlL lL lLdlLdlLd mL cL cLdcLdcL cLdcLdcL LdlLdlL lL lLdlLdlLdlL lLdlLdlLdlLdlLdlLdlLdlLdlLdlLd&Ldl+Ldl0Ldl5Ldl:Ldl?LdlDLdlILdlNLdlSLdlXLdl]LdlbLdlgLdllLdlqLdlvL lxLdl}LdlLdlkLdkLdkLdkLdkLdkLdkLdkLdkLdkL kLdkLdlLdlLdl LdlLdlLdlLdl!Ldla Ek LcCLOSE c  L-0 (,`LcAlJ~@@c @0  4@d8,HH z '0PvZ29Y: kL b Lb ***ERROR: NOT DIF INPUT FILE. b  Lb Ek LbCLOSE b  _ Ek LcRUN MAINPROC,S  c  "i f # aL5c,D 2c  "i f # i f aLUc,V Rc  pf ^ cLzc END OF ADATA. lc  j  LcRECORDS READ= c  Pe OR=> a  j  LbLa(***ERROR: NO VALID ARITH - OPERATOR=> a  j  LbL+b#***ERROR: NO VALID CONSEQUENCE=> b  j  LbL`b***ERROR: SET WITHOUT TO=> Bb  j  LbLb"***ERROR: VAR LABEL NOT FOUND=> wb  j  LRONG PARMFILE `  LbL`***ERROR: BAD PARAMETER=> `  mk  LbLa***ERROR: NO OPEN PARENS `  Lh9LIa***ERROR: SYNTAX> NO = .a  LbLva***ERROR: SYNTAX> C LIST Za  LbLa(***ERROR: NO VALID LOGICAL OPERATQ -Li' Ah h $L` 'L_HIT RETURN WHEN SYSTEM LOADED. _  k L_ _ k ` Ah h $Lf` 'LE`HIT RETURN WHEN DATA LOADED. (`  k LW` V` k ``L`!***ERROR: INPUT FILE NOT FOUND j`  LbL`***ERROR: W^ WORK.DATA1 j 5 ^ L^L^ OUTFILE = ^  j  f h $L_L_ DES FILE= ^  ck  hh Hg f h $L_ \h l i   ~g \ Kg j hh o 1 l h _ Kg j i o h _ Kg j i o Kg g &L_ Kg h HgL_ f eh $L_ h 4 ] k L^L]( j h  h 4 ] L] j h * jL? Kg eh $L+a h Bg d j h  d 1 okL%^DES mk 5 !^ LLu^WEIGHT mk 5 n^ L;L`L^IN FILE= ^  %k  L* Kg eh $L` Kg h j ' j k j  n e h l h e  L\ OUT j ~g  i 4 \ LM] ~g h j ' j L(]= j h  h 4 &] LM] h fLf] j  n e L\ 1 l k j Lt]= r] k <*L]$L]) j h  h 4 ]  d j h a Cb c $L%L%NO ROW LABELS PRINTED %  Ob c $L&L&ASIS SPECIFIED %  2a c  o` }a a   c _ b e Of xf  zf 1 g ` c $ o` >a c f L:" < c ` [b c LQ"  ` c $L'! f 5 xf  o` ` c f L< xf f %L'! c g f    f b  o L %$L sb Qf c  o L 7 c ` c aL bP Vd `L.\ c ` Ef f GQ f Gf Zf L! OPEN ADATA. !  Ef  Zf LZe gLH .W Z jY   L jY .W  .W 4  L  jY FW * lY 1 Z` W T U Y lY  jY  n T T W  ^T T W &CZ LV =W T` T X $ ^T T X $CZ  ^T T X $CZ L =W T``L WORK.DATA1 KY .W  `X 4                       .W 4 ZL5) Z 5 5 L6L5 Z 5 5 Ld6L5- Z 5 5 L6 1 ZL Q V 7W LR6L6 =W V ^T jY .W  aT 1 6  CY jY V ' AY  lYLd6 V :W jY ' lYL9 : T OW $L6 UY  ^T sW _ aT X GV o  GV :W DVL5 .W T X  o  Y  T :W TLT4 Y L4CLOSE 4  =W T VL5DICTIONARY READ. NV= 4  V a X > W T V W $LP U W $LO5 LM U gW $L: =W DV .W Z T   sW _ V X X o 1  .W Z jY    jY V 3  Y  U W $L4 L3C jY .W  .W 4 3 L: UW U jY FW * lY V W L]5 74 =W T Y Z "H Z Y Y L@4 OPEN ADICT. 44  Y  Y Li4 READ ADICT. ]4  Y  ' T vY  o .W _ T X  o FW _ 2  LH U 7W (L2 =W U .W Z jY   L2 jY V  .W 4 2 LL3L3( jY V  .W 4 3 LL3L%3$ jY V  .W 4 #3 LU3 1 ZL QLU3 V ULa3 =W T V U V W L3 .W U FT jY .W  IT 4 Y U +W jY * lY L3 INPUT FILE= UL1 =W T V U .W U FT jY .W  IT 4 MY KY Y jY U * lYL1$ jY .W  .W 4 1 LOLM V :W jY ' lY V W $L[2 L42( 22 Z $ V W $LM V W L2 Lc2( a2 Z $ V W $L2L2(***WARNING: NO OPEN PARENS>NO MODS MADE. 0  ^T Z 5 0 CZ L0 1 Z =W V ^T jY .W  aT 1 WY jY V ' lY  UY  ?ULM V :W jY ' lY L1 jY V  .W 4 1 LK1 jY FW * lY 1 Z .W Z jY   Ld1 jY V  .W 4 b1 L1L1$ jY V  .W 4 1 L1 1 ZL1 V/APPLE PLOT OUTPUT SELECTED. /  U 7W $L#0 L0(NO RECORD COUNT HEADERS WILL BE WRITTEN. /  U 7W $L_0 LQ0DIF INTERCHANGE FILE MODE 70  ` V :W jY ' lY  .W Z jY    jY V  .W 4 ZL0 L0$ Z 5 L. =W V ^T jY .W  aT 1 CY V W jY ' AY  lY =W VL. 1 Z .W Z jY  u !X  L/NOHEAD jY V  !X 4 / Ll/ =W V ^T jY .W  aT 1 CY V W jY ' AY  lY =W ULq/ 1 ZL~/ WRITE.DIF jY WX  t/ L/ =W U V 7W $L/ L V tY  1 Z Y L-CLOSE -  L-BASENAMEFILE UPDATED -  LR L(.FILE ALREADY IN BASENAMEFILE.  .  LR X > W T X D n U |W L\. G =W $U .W vY Y o L- .W Z jY  u W  L.PLOT jY V  W 4 .  1 Z Y L,CLOSE ,  Y Z "H 'U :W vY Y o 'U :W $U .W Z =W !U   V tY Y L. 1 Z Y Z "H Z Y Y L>-DELETE 6-  Y  Y L^-OPEN X-  Y  Y L-WRITE {-  Y  'U a .W Z 'U  L+ INDEXFILE KY V  WX 4 + L+ 1 ZL+ BASENAMEFILE V W KY ' +  Y L, READING IN ,  Y  76. Y Z "H Z Y Y LH,OPEN B,  Y  Y Lk,READ e,  Y  '  $U  .W Z 'U   ' V vY  o  *  L*OUTPUT HEADERFILE WRITTEN. *  ` U W Lg+ L+RECORDS WEIGHTED BY=> +  U tY  LP+WEIGHTED RECORDS OUTPUT= 6+  WU a V 7W $ ^T U 7W $CZ  ^T U 7W $CZ LR .W Z KY    Y L)DELETE )  KY  Y L)OPEN )  KY  Y L*WRITE *  Y  BU W LA* V :W V a =W V VLJ* V a .W Z V   V tY  1 Z BU W L* BU a Y L*CLOSE *  Y  L*   1 [ T a !X [ `X   V Y W $ ^T V Y X $CZ L ) V Y   1 [ ` V 7W $ ^T U 7W $CZ `L>) WORK.DATA1 KY 5 3) ` U 7W $` Lu)WRITING HEADERFILE. a)  KY Z E "H Z MY Y L)OPEN )  KYL', '  FW _ V X ^ ^W   ^W   1 [L'DATA '  L(0,0 '  ^W   ^W   ` oU 7W (` Y L=(PR# 9(  oU a .W [ W   V Y W $ ^T V Y X $CZ  ^T V Y X $CZ L( V Y jY  lYL&0, &  jY  ^W   ^W   L&TUPLES &  L'0,***** &  ^W   ^W   .W [ V  L;'LABEL 5'  V aLR',1 O'  ^W   V tY  ^W   1 [ .W [ V  L'SIZE '  V a 7W $` U 7W $L F Y LEWRITE E  Y  LE-1,0 E  LEEOD E  Y LFCLOSE F  KY Z "H Z MY Y LAFOPEN ;F  KY  WU  Y Y  W (LFLtF0 rF 5 Y  YL^F U 7W $LF /G` Y LFWRITE .W _ V X =W V ^T .W _ aT X FT =W V ^T FW _ aT X CT o FW _ V X #V o W PV` jY Y Z lYL$E, "E Z $ Y lY V W $LELRE HEADERFILE =W V ^T Z .W  aT 1 FE  CY Z V ' AY  Z`LE HEADERFILE Z 5 E  Z` U= U :W UL2 FW _ U Y FW _ U Y n V o UW AV ^T jY .W  aT 1 WY GV :W jY ' lY  .W Z jY    jY V  .W 4 ZL L> UY  u .W FT UY .W  IT 4 WYL>` =W PV jY W * lY L? L?SETX jY W  ? L>L1?SET jY sW  -? L?LN?DEL jY sW  J? Lg?LQLl?) j? Z $ V W $LQ V :W jY ' lY .W _ U Y X o FW 1 ZL=.M1. !Z 5 = L=L= = #Z` Y WY @: > T OW $L?> 6U +Y UY  o .W _ U Y .W _ U Y FT *X 0U =T o 6U :W 3U` T 7W $L> .W Z V   V tY UY L> .W _ U Y .W _ U Y n V o ` 1 ZL:QL> UDUMMY < YL<.M1. !Z 5 < L=L< < Z $ =W V ^T jY .W  aT 1 Y V :W jY ' lY @: T OW $L[= 6U +Y UY  o .W _ U Y *X 0U 3X o 6U :W 3UL= T 7W $L= .W Z V   V tY UY L= .W _ U Y V 3X o L=Y V  W 4 #Z .W Z U   V Z !Z L; 1 ZL:Q FW _ U Y FW _ U Y n V o U xU I< sW _ U Y {U RW 3X :W o U :W UL ?LN<. L< Z $ =W V ^T jY .W  aT 1 WY V :W jY ' lYL<. < Z $ V :W jY ' lY  >L<L; .W Z T   .W _ V Y W o FW _ V Y W o sW _ V Y V :W 3X o 1 ZL;IF jY .W  FW 4 ; Lz;L8;SETX jY .W  W 4 3; L>L[;SET jY .W  sW 4 W; L?LM jY sW * lY  L;. ; Z $ V W $L:Q jAV V .W Z V   .W MZ sW   yT \ V X yT \ V Y o V vY V Y o 1 MZ 1 ZL2 =W V ^T jY .W  aT 1 WY V :W jY ' lY UW T UY .W  .W 4  X ( ^T UY .W  .W 4  X CZ L: =W T` jW U V W $L4  U 7W $T V L8 V V T V V T T Z V   sW _ V X GV o GV :W DV 1 ZL5 .W Z =W AV   .W [ V   sW _ V X n U $L9 V Y V tY o .W MZ sW   yT \ V Y yT \ V X o 1 MZ 1 Z =W AV VL9 1 [ =W V  .W 4 7 L7 jY V ' lYL7 V :W jY ' lY @: T OW $L7 UY  TLC8 T 7W $L;8 .W Z V   V tY UY L;8 V TLC8 1 ZL*R Y WY @: T OW $Lf8 UY  VL8 T 7W $L8 .W Z V   V tY UY L8 V VL8 1 ZL*R Z V   V tY UY L6 sW _ V X GV o  GV :W DVL5 1 ZL*R =W V ^T jY .W  aT 1 WY V :W jY ' lY  .W Z jY   L?7 LD7) jY V  .W 4 =7  ^T jY V  .W 4 B7 CZ L7 1 ZL Q =W V ^T jY .W  aT 1 YL7) jY ZLdZL ZL ZLdZL ZLdZLdZLdZLdZLdZLdZLdZLdZL ZLd[Ld[Ld[ LdZaL ZcLdZhLdZmLdZrLdZwLdZ|LdZLdZLdZLdZLdZLdZLdZLdZLdZLdZLdZLdZL ZLdZLd"@@c 0@@d48,HH z '0P29Y: Z?L ZAL ZCLdZHLdZMLdZRLdZWLdZ\Ld X > W T Y LRCLOSE R  jO Y LRRUN MAINPROC,S R  W U # aLS,D S  W U # W U aL'S,V $S  U ^ $(LFSEND OF >S  KY  LlSRECORDS READ= ]S  T a Y LSCLOSE S  L*Lc jY  LRLQ#***ERROR: NO VALID CONSEQUENCE=> Q  jY  LRLR***ERROR: SET WITHOUT TO=> Q  jY  LRLPR"***ERROR: VAR LABEL NOT FOUND=> -R  UY  LRLR6***ERROR: ONLY TWO VARS FOR PLOT-USE 'C' SELECTION. gR  LRLRLP***ERROR: NO OPEN PARENS P  Lq.LP***ERROR: SYNTAX> NO = P  LRL,Q***ERROR: SYNTAX> C LIST Q  LRLfQ(***ERROR: NO VALID LOGICAL OPERATOR=> =Q  jY  LRLQ(***ERROR: NO VALID ARITH - OPERATOR=> }Q Y LO O Y ` V 7W $LP 'LOHIT RETURN WHEN DATA LOADED. O  Y L P  P Y ``LBP!***ERROR: INPUT FILE NOT FOUND  P  LRLoP***ERROR: WRONG PARMFILE SP  LRLP***ERROR: BAD PARAMETER=> P  Y   YLNOUT Y 5 N L1LNIN Y 5 N L2LNAVE.LEN Y 5 N L`0L}PLOIN FILE= O  Y  L2O WORK.DATA1 KY 5 'O LdOLSO OUTFILE = HO  KY  )L V 7W $LO 'LOHIT RETURN WHEN SYSTEM LOADED. O  UT FILE PROCEDURE M  O q.LM M Z $ V W $L}P V :W jY ' lY LN= N Z $LN$LN) jY .W  .W 4 N  ^T jY .W  .W 4 N CZ LOL\N( jY .W  .W 4 ZN LN jY FW * lYL3 V W $LP =W V ^T jY .W  aT 1 ?X Y  o NX Y  o WX Y  o `X Y  o  Y LLCLOSE L  L M,SLM,DLM,V W V #  M  M  CY W V # W V  AY  M  CY T  AY  7ZLrMWRITE. jY .W  !X 4 kM LPP LM"A-STAT WRITE OUTPILE K  H Y LKCLOSE K  Y LK OPEN SYSPARMS K  Y LLREAD SYSPARMS L  '  T  KU  V  U  lU  V  T  U .W Y  o FW Y  o sW Y  o W Y  o W Y  o !X Y  o `X aYLJRND( J o uX aYLJ.M1. J o W VLJ jT iX W # c lX i` .W Z #V  LKM +Z 5  K  -Z 1 Z W T =W U W U W PV W V W ULVK WORK.DATA1 KK MYLbK aK YLnK mK Y Y LK OPEN PARMFILE K  Y LK READ PARMFAND. I o NX ZLI.OR. I o WX ZLI.EQ. I o `X ZLI I o .W aYLJ^ I o FW aYLJSQRT( J o sW aYL+J* )J o W aYL>J/  W T` W UL2 jY Y Z lYL3H, 1H Z $ V W $LhH jY Y Y lY Z 5 5Z  Z` =W V ^T jY .W  aT 1 Y Y lY`LH H YLH H lY  Y ~X F  Y  Y  Y  V 7W $LG Y LFWRITE F  Y  Y  Y  Y L#GCLOSE G  ` Y L>GWRITE 8G  Y LTG,B53 OG  Y LoGWRITE hG  Y  Y  Y  ` X D n U W L HLL! 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.SHIST                              f-8fL 8fL 8fL 8fL 8fL 8fL 8fL 8fL 8fL 8  f 8gL 8gL 8g L 8g L  T*L T,L T.L T0L T2L T4L T6L T8L 8  '[-8  \ 8  \ 8  \-8  3^8  ^-8eL 8fL 8fL 8  f 8fL 8  f-8fzL 8f|L 8f~L 8fL 8 SLdSLdSL SLdSLdSL SLdSLdSLdSLdTLdTL TLdT LdTL TL TL TL TLdTL T L T"L T$L T&L T(L[Ld[L [L [Ld[ Ld [%L SL SLdSLdSL SLdSL SLdSL SLdSL SLdSL SLdSLdL% ' Yl lL% V= %  l a KL!L%P n l  % LM& ' Yl k -o L&PR# &  k a L3& P= *&  k a KL!LT&SYS n m  P& L& ' Yl # kL& SYS= y&  k ^ KL!L&DT n l  $ $ nL6L$CON n m  $ L$ :-L!L$INTE n @m  $ L%L%RUN $ oL %  % XoL!L%TS n l  % Lc% ' Yl kLI% TS= @%  k a KL!Lj%END n m  f% L% rn > 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!   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.PROCHISTEDITPROCEDITANOVPROCANOVSORTPROCSORTLISTPROCLISTREADPROCREADWFCOPROC WRITE.DIFLiWFCOPROCWRITE.FILE.CABINETWFCOPROCWRITE.APPLE.PLOTJOINPROCJOINUSERPROCUSER l nLt+ r o l nL-  o m nL/  o @m nLIX roprL[DATAPROCDATARFCIPROCREAD.DIFRFCIPROCREAD.FILE.CABINETFREQPROCFREQTABLPROCTABLESCORRPROCCORRFACTPROCFACTPATHPROCREGRPATHPROCPATH^LPURGPROCPURGENOOPPROCNO.OPNOOPPROCNOOPNOOPPROCMODINOOPPROCSUB.SHIST                               a b d $L%L%NO ROW LABELS PRINTED %  b d $L&L&ASIS SPECIFIED %  wa d  ` a c $Dg LS& a d $LE& l0 a d $L 1b d L*L2 ^ b c L& U_L& a &d $L& \ d h c   b df o ` d ` c ta c a a d $L$ L$IN FILE= $  f  1b d $L%L % DES FILE= %  f  L!% f 5  % LR%LA% COR FILE= 7%  f  LV% f 5 U% L%Lx% PRINT FILE= l%  f  b c L%L%PAGE= %  b ` b af  ` n # Ya Ya \a c $L# b af Nf` d %h \a  L# Lf 5 #  Nf 1 %h b af Lf  Nf` Wc ;T Ya  NfL9$. 7$ f " b c $Lq$ b fL_$.00 Lf 5 [$  o ` Lf  n c b &d L$L$0 Lf 5 $  Nf b f Ld 4 f ` 1 h c b` b f  ` d _ b e ` L# b fL"0 b f "  o L"`L# # xfL%# $# Nf \a "T Ya  Nf  =e L# d Xg Lf  @e  Lf# vf 5 d#  xf 1 Xg vf 5 Lf  xf Nf`L# # Nf Gd _ b e b e ` Lf `  ` 4 o 1 h >a d ;aL! ! f d h a   c _ b +f f f  f 1 h >a d $ ` a c Dg L:" < c ` b &d LQ"  ` d $L'! g 5 f  ` >a d Dg L>< f g %L'! d h Lf    Lf b  o L %$L b f Wc  o L 7 c )a d bL P d )aLf\ c ;a f g Q g f f L! OPEN ADATA. !  f  f La  Nf Lf  Dd $L Lf  h d  L  5 Lf  Nf 1 h Lf  wa Xg a   ` f Nf b d LB 6] Lf  ` Gd _ ` e ` $L Lf  ` Gd _ ` e ` LL  5 Lf  NfLeL   \a c $L d g 0c   d _ |b +f :b $L d _ |b -f d _ |b +f ` =b f  ` o 1 g 1 g` 0c c L6  b b  ` b c Dg Lb _ 2 b c L >a d  ` a &d $Dg  ` d 5a ` d 5a # ` $Dg O ?glL  Nf d  f d Ga d b c b c cL)R c Ya Ub f Nf /QL  Lf 5   L' c Ya` Lf  n ea ha d  ` ha d &Dg LZ d Ya` ha d $ ` ha e $Dg  ` ha e $Dg L d Ya`` wa g a   =b Rb                                     L% ' $l NlL% V= %  Ql a KL!L%P n l  % LM& ' $l k n L&PR# &  k a L3& P= *&  k a KL!LT&SYS n l  P& L& ' $l # kL& SYS= y&  k ^ KL!L&DT n l  $ $ nL6L$CON n l  $ L$ :-L!L$INTE n m  $ L%L%RUN $ oL %  % #oL!L%TS n l  % Lc% ' $l kLI% TS= @%  k a KL!Lj%END n l  f% L% =n > 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.SHIST                               %  xk a KL L%P m k  % L-& ' Kk j n L%PR# %  j a L& P=  &  j a KL L4&SYS m l  0& L|& ' Kk # jLb& SYS= Y&  j ^ KL L&DT m k  & L& ' Kk # kL& $ L$ -L L$INTE m 2l  $ L$L$RUN $ nL$ $ JnL L$TS m k  $ LC% ' Kk jL)% TS=  %  j a KL LJ%END m l  F% Lx% dm > k T k j KLcL}%V m k  {% L% ' Kk ukL% V=  KL L#DV m k  # L$ ' Kk IjL# DV= #  Lj ^ KL L $MENUL$PREL$COMML $EASY m 2l  $  %j m l   $ n  %j m 2l  $ n  %j m 2l  $ n L$ k jL$ $ mL5L$CON m l  m 7m > m T n mL"*END m 5 " L n  m  L" dm > k TL#***DOS ERROR "  L" L&#OW m k  ## Lk# ' Kk =jLQ# OW= H#  @j a KL Lq#SV m k  n# L# ' Kk jL# SV= #  j ^ j k $L! m  L!RRL!WW m k  !  %j m k  ! n L " m k * m k Co k   k ]n m k m m  m LJ" 1 CoLn" z( n  n  k Rn  Hn  Lu"DOS m k  l 4 q" L# dm > k T 7"L" " k Co ^j   l k G u k  n  n 1 Co n  l $L L  n`L!  mL !?  !  7m > m T 7 m n n m k kLO)LC! n 5 A!  m  m k Co m   Ls!$ m k  k 4 q! L! 1 CoL!MORE ? ! L&! ***ERROR: PROCEDURE NOT ON THIS DISK=>   m  dm > k TLE `k ;l $L? L ***ERROR: DISK FULL   m  dm > k TLE Lc ***ERROR: DOS ERROR CODE=> E  `k a dm > k TLEL  n m 8 m D u k n [j L,   l m ^L,   l m ^L,   l m ^L,   l m ^L ,   l m ^ n L-CLOSE '  C4` 2l  !nLI H mLU T n 7  j k $LL|MENU$ v mL$L m D n ]k `k l $L L)  @j aL,   j aL,   xk aL,   j ^L,   j aL ,    k ^L,   Lj ^L1, /  j ^LD, B  k m ^LZ, X  k m ^Lp, n  l m ^L,   2l m ^L,   ql m ^ o l m  o 2l m  o ql m  o l m  o l m  o l m  o l m  o l m  o  n L<CLOSE 6  C4` n LdDELETE SYSPARMS T  n L OPEN SYSPARMS x  n LWRITE SYSPARMS T Im > m T Rm > l T [m > k TL< k Co m   L m k  k 4  L m k * m 1 Co` n L3 OPEN SYSPARMS %  n LVREAD SYSPARMS G  '  =j  j  uk  j  j  k  Ij  j k m  o k m LE.  o ql nL.NE.  o l nL.EQ.  o l nL.M1.  o LBRUN  nL.OBJ   JnL$DEFAULT  n zl j k Co k   k Tn  o k _n  o k m k ]n  o 1 Co m > k T %m > l T .m > vm T @m > l *  o ql mL^  o l mL.M1.  o l mLSQRT  o l mLLN  o l mLSIN  o l mL*COS & o l mL?RND ; o l mLWDELETE P o k nLm.LT. h o k nL.GT. ~ o l nL.GE.  o 2l nL. ԠνҠԽҲӽԯŤŮƠνŬIJԽƬIJ"