' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ϊ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`] Y   Z 8 @Z  Y [ ] 9[  w\  9[  L?: ?  Y [ \ w\  X   'L@? @  \ L/@ \ 5 .@ LT@ Y [ \ \ o LY@ \ 5 W@ L@ Y [ \L|@ {@ o Z 8 ][  Z 8 Y [ \ w\ Y \ Y \ o 1 ]Lx< X [ L>TO REPLACE NUMBER WITH A BLANK >  L?ENTER BLANK IN QUOTATION MARKS ?  mZ  Z LH?CHECK SCORES FOR 6?  ZX ] Lc? = _?  ZX \ L|?: z?  vZ > [ T IZ > Z T Z  Z =  ][ L=THIS ONE =  [  T[ L= RESPONSE... =   \ L>CKDI > \ Y W Z ] Z   \ Y  Z 4 \ LK> Y W Z Y 1 ] W >@Ab>L= Y ] Y   Y \ Y \ o 1 ] \ \ # Y ] Y   <  X 1Z a [  T[  ZX ] L< = <  ZX \  9[  Z L=< C > CHECK THIS CASE =  Z LH=< K > KEEP IT AS IT IS 0=  Z Lw=< D > DELETE THIS CASE _=  Z L=< I > INSERT A CASE BEFORE Y ] Y   Y ]  1 ] O\  4Z &Y Y X Z ] zY   O\ L<READ < 5 m\   Y ] Y   ' Y \  o  Y [ Y \  o 1 ] O\  Y [ 2Y L> O\  XL<OLD: <  8Y a L<NEW:  Y  w\  mZ  L:: :  @Z  Y [ ]  'L:? :  \ L; \ 5 : L%; Y [ ] \ o Z 8 o[  Z 8 Y [ ]  1 ]  O\ Le;OPEN `; 5 \   O\ L;WRITE ; 5 \   \  \  ... 9   \ L9CL9S \ 5 9  W \ 5 9 ] L9L9S \ 5 9 LT; XL9:&PRESS 'RETURN' TO LEAVE NAME AS IT IS, :  Lg:TYPE NEW NAME TO MAKE A CHANGE. G:  '[  Z ] Y   Z 8L: VARIABLE : 8READ 8 5 m\   '  ]  '  ]  Y ] Y   '  ]  1 ] O\  X '[  0[ L29CHECK VARIABLE NAMES? 9  B[  0[ L^9< C > CHECK THEM L9  T[  0[ L9< S > SKIP THEM x9  o[  K[ L9 RESPONSE\ 5 7 L8 )Y .Z $L'6L7G \ 5 7 L7 Z n WL8L7Z \ 5 7 L8 @Z n WL8L'6 9[  [ 8` X c\  K[ LT8EDIT DATA FILE E8  c\  FLx8EDITED q8 )\ ) O\ L8OPEN 8 5 \   O\ L0[ L6< N > NO, TRY ANOTHER 6  )Y .Z $L6 [ LU7 0[ L7< G > GO, OMIT ALL OTHERS 6  0[ LD7< Z > ABORT, START OVER +7  [  9[ Lk7 SELECTION... ^7   \ L7N \ 5 7 L7 T[  [ 8L~5L7Y W TX $L~5 hY ^Z  W W Y $] L'6 Y X Z ] Y   Y [ n W $L6 4Z X Y Y 1 ] X .Z $L~5 T[  Z LL6DO YOU WANT VARIABLE 66  [ 8 w Z  W ]  Z  s f[  9[ L6< Y > YES, USE IT 6  CLOSE 4   Z ] Y   ' Y \  o  1 ] Y \  X Z X X Y X !L\3. Z3  X X uX X 4Z Y 4Z W ZX Y L3 @Z  ZX \  Y W Y Y MONITOR +.  ][  B[ Lc.< P > PRINTER T.  [  K[ L. SELECTION... }.   \ L.ML.P \ 5  W ] L,, ,  W ]  n Y aZ Y ZX Y  W 4Z Y Y $] L- Y Y (L", @Z n W $L+ '[  Z  [ 8 Y .Z (L- X '[  K[ Ll- --- SORRY --- ^-  ][  Z L-NO VARIABLES WERE SELECTED. -   X Y Y 4Z Y 4Z Y Y W '[  Z L+IDENTIFY ALL VARIABLES +  L,TO BE ,  '\ L,: ,  dZ &Y ~5 W Y (L- Y 1Z Y [ W o W ]  n Y aZ [ L, 4Z Y Y 1Z Y Z L, Z Y vZ > Z T Y  Y< S > SELECT SOME *  [  K[ L* RESPONSE... *   \ L*AL+S \ 5 *  W \ 5 * ] L* XL2+S \ 5 0+ L+ Y Y Y [ Y o Z ] Y   hY RZ $ W Y TX ] L+ Y 1Z Y [ Y o 1 ]L- O\ EAD ) 5 m\   '  wY  '  Y  Y ] Y   ' Y ]  o  Y [ Y o 1 ] O\ L$*CLOSE *  5 O\  X '[  Z Lh*DO YOU WANT ALL VARIABLES? M*  K[  K[ L*< A > YES, ALL *  ][  K[ L*Z 8 [ 8 mZ L( VARIABLE (  Y aL(: (  @Z  \  L' X [  x[ L)WAIT )  ` X c\  '[ LO)READ DISK DATA FILE ;)  c\  Lt)PRINTED l) )\ T O\ L)OPEN ) 5 \   O\ L)RNTIFICATION OF VARIABLES: '  Z L' (DEFAULT= '  Y 1Z aL') '  Z 8 Z  mZ L1(NAME OF VARIABLE (  Y 1Z a 'LL(: H(  \ L^( \ 5 ]( L}( Y 1Z  \L(GO \ 5 ( L( Y 1Z Y ] \ o 'M' FOR MENU... &   \L&M \ 5 & L&L+ X [  Z L&TYPE &  wL' GO  '  sL1' AFTER LAST ENTRY. '  K[ LQ' (MAXIMUM = E'  DY aLd') b'  vZ > [ T Y ]L'CASE # ' o mZ  Z L'"ENTER IDELOSE %  O\ L%OPEN % 5 \   O\ L%WRITE % 5 m\   L &00000 X  &  Z   O\ L2&CLOSE ,&  X 9[ LN&FILE I&  @Z  m\  @Z Lt&NOW HAS k&  X aL& CASES. &  [  9[ L&TYPEY 1Z Y Z  Y ] 9[  w\  9[   'L$: $ Y \  o  L%GO Y \ $ L% X` Y Y (L$ X 1Z X [   O\ LS%WRITE M% 5 \   Y ] Y   Y \  1 ] O\  L# X O\ L%C ]  1 ] O\  Y X m\ \ #L% X [  '[ L#TYPE #  wL$ GO #  sL$ TO STOP INPUT. $  Z LD$ENTER SCORES FOR 2$  Y ]  Z  X 1Z aLi$: g$  [  Y Y \ X 1Z  o IZ > Z T vZ > [ T c\  T Y Y & Y Y O\ L"OPEN " 5 \   O\ L"DELETE " 5 \   O\ L#OPEN # 5 \   O\ L>#WRITE 8# 5 m\   L[#00000 U# \Ll#00000 Y  f#  Z  \ \  \  Y ] Y   Y X X X .Z $L!L! 0.00000000 X =Z !  3\L^"L!00000000 X  !  X Z W @Z  W 4 3\L " " \ X Y LO"L;". 1\ X  9"  \ \ 5 \  3\ w\ 5 1\  X  ` X c\  B[ L"CREATE A NEW FILE "  X Y [ oX L Y [ rX 1 ] X Z (L Z X O\ L CLOSE   ` X Z X Z # W X Z Z # W X X Y ( Z Z  \ X #  [  \ \  X Z X L{! \  X Z X X W X # W W X Z n Z W X  Y\ L MY X 1 ] X Y  W Y [ W X VY W ] L Y [ X VY o Y [ W Y [ VY W L? Y [ Y [ VY o 1 ] 1 ] Z X Y rX Z ] Y   Y [ Y [ W Y [ W =Z o Y [ X L Y [ ]  '  ] L.  [\ Y ] Y   Y [ Y o Y [ Y o '  ]  1 ] zY -X Z L" Z -X Z ] 0X   Y ] Y   ' Y \  o  1 ] Z ] Y   Y [ \ 3\ 1\  YY Y X Z ] \Y   1\ MY  Z 4HT (C) 1984   L JAMES BOLDING   L P.O. BOX 339   LFAYETTEVILLE, AR 72702   c\ [   [  Z LKBYE-BYE C  [  Z Lc O\ LpOPEN k 5 \   O\ LREAD  5 m\   '  Z  'LPRESS 'RETURN' WHEN READY...   \ L \ 5  LL X [  x[  LLOADING   s O\ L@RUN HELLO ,D1 0  X Z > [ T %Z > [ T [  c\ [   LSTATISTICS WITH FINESSE ~  LCOPYRIG.   L+L ALTER FILE  \LL COPY FILE  \  O\ L BLOAD GOMANL BRUNL,D1 T[    \ Z  [    \     X K[  '[ LvINSERT PROGRAM DISKETTE ^  ][  T[ L IN DRIVE ONE   [ LKL X [  o[  L WAIT   s` O\  [  '[ LTYPE 'C' TO CONTINUE...    \ L'C \ 5 % L X` O\ LMCLOSE G  X Z  [ LqSORRY! j  0[  Z L!SOMETHING IS WRONG WITH THE FILE 8 > DELETE FILE   [  T[ L < M > MENU   [  T[ L < S > STOP   [  T[ L/ SELECTION... "   \ Y eYLT 12345678MS I \ Z ] 9[   \ 8Y  Z 4 \ L 8Y eY Z 5Y 1 ] hY  t"#)-8A C[ L< 1 > CREATE FILE   mZ L< 5 > ADD VARIABLES   B[ L< 2 > READ FILE   Z L0< 6 > ALTER FILE   T[ LT< 3 > EDIT FILE D  Z Lu< 7 > COPY FILE e  f[ L< 4 > ADD CASES   Z L<iE d]-bdLPR#1  G\ Z X Z  Q\ Z ] [  L- c\ 5   e\L w\ 5    y\ 1 ] [ AY X c\  mZ  T[ LWFILE MANAGEMENT F  LwCOPYRIGHT 1984 h  K[ L JAMES BOLDING   c\  0                       0sL 0uLd0zL 0|L 0~Ld0Ld0L 0L 0Ld0L 0L 0L 0Ld0L 0L 0L 0Ld0L 0L 0L 0L 0L 0L 0L 0L 0L 0L 0 3Ld3Ld3Ld3L 3Ld3Ld3Ld3Ld3Ld3Ld3Ld3Ld3Ld3Ld3Ld4Ld4 Ld0jL 0lLd0qLPYRIGHT (C) 1984 /  L/ JAMES BOLDING /  L/ P.O. BOX 339 /  L0FAYETTEVILLE, AR 72702 0  83 2   2  2 LP0BYE-BYE H0  2  1 LcLc !@p'H z OGRAM DISKETTE .  p2  p2 L. IN DRIVE ONE .  2  2  'L/PRESS 'RETURN' WHEN READY... .  3   .3 LE/RUN HELLO ,D1 5/  X 1 > (2 T 1 > 2 T (2  83 2   L/STATISTICS WITH FINESSE /  L/CO> ANOTHER SORT SAME DATA -  12 L- < M > MENU -  12 L . < S > STOP -  2  :2 L4. SLECTION... (.   3 LJ.A 3 5 H. L&Lb.M 3 5 `. L.Lz.S 3 5 x. LP/L. X ^2  12 L.INSERT PR^2  (2 L,INSERT DATA FILE DISKETTE ,  2  2  'L-PRESS 'RETURN' WHEN READY... ,  3  X 2  2  L9-READING 1-  sLM-,D B3 5 J-  3  X3` X 12  12 L---- SORT COMPLETE --- w-  12 L-< A IS INFORMATION CORRECT? +  2  :2 L+< Y > YES, CORRECT +  :2 L,< N > NO, NOT CORRECT ,  2  1  :2 LK, RESPONSE... ?,   3 La,YLf,N 3 5 _,  0 3 5 d, 3 L*,L,N 3 5 , Lf' X * Lb* g2  12  wL* (DEFAULT=1) *  s ^2  2 L+ DRIVE NUMBER *  'L+: +  3 L%+1 #+ 3L1+ 3 5 0+ LJ+ 3 3LO+1LT+2 3 5 M+  0 3 5 R+ 3 L* ^2  2  2 8 3  2  1 L+N 3 5 )  0 3 5 ) 3 Lk) L2  2 8 1 1L)N 3 5 ) L * 1 1 1 1 $Lb*L%* TEMPORARY * 3 :2  1 LN*TEMPORARY FILE: <*  3  L* :2  1 L*NEW FILE NAME q*  'L*: *  3 L* 3 5 YOU WANT TO SAVE THE CHANGES (  g2 L(USING THE CURRENT FILE NAME ? (  2  :2 L+)< Y > YES, SAME NAME )  2  :2 L`)< N > NO, CREATE NEW FILE E)  2  1  :2 L) RESPONSE... )  1   3 L)YL) 5 ' Lf' 2  12  wL' (DEFAULT=1) '  s 2  2 L( DRIVE NUMBER '  'L(: (  3 L)(1 '( 3L5( 3 5 4( LN( 3 3LS(1LX(2 3 5 Q(  0 3 5 V( 3 L' 2  2  2 8 3  U2 L(DO&$DISKETTE MUST HAVE BEEN INITIALIZED. &  2 L&PRESS 'C' TO CONTINUE... &   3 L'C 3 5 ' L& f'L1',D B3 5 .'  3  X3LN',D 3 5 K'  3  3` X 1 L'ORIGINAL FILE NAME r'  'L': '  D3 L' B3IL 8IL 8IL 8IL 8IL 8IL 8IL 8IL L 'L 'L 'L 'L 'L 'L 'L 'Ld'L 'L 'L 'L 'L 'L 'L 'L 'L 'L 'L 'L 8*1L 8  3*8IuL 8IwL 8IyL 8I{L 8I}L 8Šōύ 5 % LL%M x) 5 % L"& X ?)  )  wL%LOADING %  s ) L&RUN HELLO ,D1 &  L'&S x) 5 %& Lv% [( * (  LP&- ) 5 N&  ) 1 * X R( > ( T s( > Q) T (  ) ?)   L&STATISTICS WITH FI) LP$L$N x) 5 $ L ` X (  ( L$--- COPY COMPLETE --- $  ( L%%< A > ANOTHER COPY %  ( LH% < M > MENU <%  ( Lk% < S > STOP _%  $)  ( L% SELECTION... %   z) L%A x) )  Z) 8 )  )  ( L#IS INFORMATION CORRECT? #  -)  ( L$< Y > YES, CORRECT $  ( LE$< N > NO, NOT CORRECT .$  ?)  [(  ( Lq$ RESPONSE... e$   z) L$YL$N x) 5 $  ' x) 5 $   'L": "  ) L" ) 5 " L"L"1 " ) )  (  wL # (DEFAULT=1) "  s (  ( L3# DRIVE NUMBER &#  'LE#: A#  z) LW# x) 5 V# Lp# x) )Lu#1Lz#2 ) 5 s#  ' ) 5 x# ) L" (  6! ) (  (  wL! (DEFAULT=1) !  s (  ( L! DRIVE NUMBER !  'L ": "  z) L" x) 5 " L6" x) )L;"1L@"2 ) 5 9"  ' ) 5 >" ) L! (  6)  Z) 8 )  (  ( L"NEW FILE NAME " ( ' (LL$ XL #THIS PROGRAM CONVERTS A FILE WRITEN   L! WITH THE EARLIER FILE MANAGEMENT   LF!"TO A FILE COMPATABLE WITH THE NEW. #!  ( Lm!ORIGINAL FILE NAME Z!  'L!: {!  ) L! ) 5 ! LQ!L!1  5 )   ) LWRITE  5 )   [( ,* ( g( c '   =( |( $ ' "( F( $) Lt L( 00000 4( g(  "  (   LO CASE # H  L` ID ]  j( (L =( m)  1 ,* ) L CLOSE  5 )   LREAD  5 )   [( ,* ( g( c '   ' =( o)  o  1 ,* ) LCLOSE  5 )   A ' d( $L ) LAOPEN < 5 )   ) LeDELETE ^ 5 )   ) LOPEN  5 )   ) LAPPEND IS A LARGE FILE. SOME OPERATOR   LASSISTANCE WILL BE REQUIRED.    ( g( ' j( ' ' ( ' L- ' ( ' d( L>  ) LLOPEN G 5 )   ) LrPOSITIONLx,R i 5 )  u  e) j( '  c)   )  '  )  '  )  )  ( )  1( ) LCLOSE  5 )   ( g( ' 4( ( ' 'LCORR ) 5  LW )  1( g( ( ' j( .( +( # c ( i ' ' ' ' &L X )  (  ( L--- NOTICE ---   L$THIS E IN   ) LDRIVE   )   X ?)  )  LWRITING   s` I( ( X I( ( L),D ) 5 &  )  )LF,D ) 5 C  )  ) ) LkOPEN f 5 )   ) LREAD  5 )   '  ) CONTAINING THE   ( LORIGINAL FILE IN   ) LDRIVE   )  i X ?)  )  L2READING *  s` X (  )  wL\ NEW V  s (  ( LINSERT DISK FOR THE y  ( L NEW FIL wL ORIGINAL   s ) 5 )  ' ( |( $) L L SINCE BOTH THE ORIGINAL AND COPY   LP%FILES HAVE THE SAME FILENAME, YOU MAY *  L#WISH TO WRITE PROTECT THE ORIGINAL. a  ( LINSERT DISK  Li` ?)  ( LTYPE 'N' WHEN READY...    z) LN x) 5  L` X ?)  )  L&LOADING   s` X (  ) LU --- SORRY --- G  L&THERE IS SOMETHING WRONG WITH THE FILE f  L% X (  ) J I)0*I (  ) [( * (  L- ) 5   )L ) 5   ) 1 * ( 'L ?)  ( L?TYPE 'C' TO CONTINUE... '   z) LUC x) 5 S L` ?)  ( LTYPE 'O' WHEN READY... x   z) LO x) 5  L%#TO STORE THE ORIGINAL PLUS CHANGES. %  L& IF SPACE IS NOT AVAILABLE ON THE %  L<&%DISKETTE WHICH CONTAINS THE ORIGINAL, &  Lm&"THEN TWO DISK DRIVES AND A SCRATCH J&  L&#DISKETTE ARE REQUIRED. THE SCRATCH {&  LEAD $ 5 3   1 3 z1   ' k1 v3  o  1 3 .3 L$WRITE $ 5 B3   1 3 z1   k1 t3  1 3 1 3 .3 LJ%CLOSE D%  .3 Le%DELETE ^% 5 3   ` L2 L%#THIS PROGRAM REQUIRES A SECOND FILE %# 5 3   .3 L#READ # 5 3   '  l3  '  3  3  w1 1 3 z1   ' k1 3  o  1 3 .3 L<$WRITE 6$ 5 B3   j3  3  1 3 z1   k1 3  1 3 j3  _1 1 3 b1   .3 L$R "  "Le-L" TEMPORARY 3 5 " L%# X L2 L#NEW FILE CREATED WITH NAME "  g2  L2  3  ` X 2  p2  LI#REWRITING FILE :#  s .3 Lg#DELETE `# 5 V3   .3 L#OPEN # 5 V3   .3 L#OPEN L'! 1 1 .3 L!POSITIONL!,R ! 5 B3  !  2 0  2   .3 L"READ " 5 B3   1 3 S1   ' k1 v3  o  1 3 .3 LV"WRITE P" 5 3   ;1 a 1 3 S1   k1 t3  1 3 1 3 .3 L"CLOSE .3 L WRITE  5 3   j3  3  1 3 z1   k1 3  1 3 1 1 z1 1 P1 1 3 b1   1 1 $LM! ;1 2 n M1 1 0L! ;1 2 n M1 0 1 81 2 1 n M1 0 0 1 (L! 1 1 .3 L!CLOSE ! 5 B3   1 1 2 o 1 1 2 0 o 1 2 0 1 2 1 1 2 o 1 1 2 0 o 1 3 1 3L X 12 L$ VARIABLE   /1 3 LM  SORTED IN MEMORY ;  Lz NOW WRITING SORTED FILE a  3  .3 L OPEN  5 3   3 o 1 1 3 3 o 1 2 0 1 2 1 1 2 o 1 1 2 0 o 1 3 1 3L  1 3 1 \1   2  1  p2 L;SORTING 3  1 \1  L3  1   1 3 1 \1   1 2 0 1 1 2 0 L 1 2 0 1 2  ;1 2 ;1 3  o 1 3 .3 LCLOSE   1 3 2 1 2  2 L  1 3 1 \1   2  1  p2 L4SORTING ,  1 \1  L3  1   1 3 1 \1   1 3 2 1 1 3 2 /L 1 3 3 1 3 1 1 NL,R  5 B3    2 /1 1  2   .3 LREAD  5 B3   '  3  z1 1 0 1 3 b1   ;1 2 ;1 o .3 LMPOSITIONLS,R D 5 B3  P  `3   .3 LREAD ~ 5 B3   ' ;1 3  o  3  o  1 3 .3  (2  2 8LWHICH VARIABLE   LIS TO BE SORTED?   1 #1 1 0  0 ,1 z1  b3 (2  1  2 8L[VARIABLE TO SORT: I  1  0 3  .3 LCLOSE  5 B3   .3 LPOSITIO  2  L2 L RESPONSE...    3 LN 3 5  LLY 3 5  LL g2  2 8` z% .3 L4OPEN / 5 V3   .3 LVREAD Q 5 B3   '  l3  j3  _1 '  3  3  w1 1 3 z1   ' k1 THING WRONG WITH THE FILE   L+ 0 1 0 t1 L 1 0 g2  2 8 U2  12  2 8L'IS IT VARIABLE   w 1  0 3 LI G  s y2  (2 Lz< Y > YES, SORT IT f  (2 L< N > NO, LOOK FURTHER 2 LTYPE 'C' TO CONTINUE...    3LC 3 5  L` X 2  2  LWORKING   s` X 2  2  L;LOADING 3  s` .3 LYCLOSE S 5 B3   X 12  p2 L --- SORRY ---   L&THERE IS SOME  X3lOXLPR#1  &3 1  03 1 3 2  L- 83 5   :3L  L3 5   N3 1 3 C2 0 2 D1 X 83  2 LN SORT FILE C  LnCOPYRIGHT 1984 _  ^2 L JAMES BOLDING   83  L# 2  1             cL 8cL 8cL 8  c 8c2L 8  4cd8cL 8dL 8dL 8dL 8  dd L PL 8  V 8  Wd8  Wd8  Xd8  Zd8  \d8  ^d8`L 8  `d8aZL 8a\L 8a^L 8a`L 8  ba8apL 8  rad8bL 8b@L 8  Bbd8c L 8cL 8cL 8DL PFL PHLdPMLdPRL PTL PVL PXLdP]L P_LdPdL PfL PhL PjL PlL PnL PpL PrL PtL PvL PxL PzL P|L P~L PL PL PL PL PL OLdOL OL OLdOL OLdPL PL PLdP LdPLdPL PLdPL PLdP"LdP'L P)LdP.LdP3L P5LdP:LdP?LdPVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdVLdOLdV$LdV)LdV.LdV3LdV8LdV=LdVBLdVGLdVLLdVQLdVVLdV[LdV`LdVeLdVjL VlLdVqLdVvLdV{LdT   T  S LOBYE-BYE O  T  R LcLc@ !@@# `P0d @X@'H ??VLdV LNRUN HELLO ,D1 N  X R > T T R > T T S  MU T   LOSTATISTICS WITH FINESSE O  L NO, NOT CORRECT L  T  R  T LM RESPONSE... M   U L*MYL/MN U 5 (M  P U 5 -M V LLL^MN U 5 \M LcH X T  S LMINSERT DATA FILE DISKETTE M  T K L_K (T  S  wLK (DEFAULT=1) K  s T  S LK DRIVE NUMBER K  'LL:  L  U L"L1  L VL.L U 5 -L LGL U V T  T  T 8 V  ^T  YS LLIS INFORMATION CORRECT? tL  pT  T LL< Y >U 5 J  P U 5 J V LhJ T  T 8 R RLJN U 5 J LK S R R R $L_KL"K TEMPORARY K U T  YS LKKTEMPORARY FILE: 9K  U  LK T  &S L~KNEW FILE NAME nK  'LK: K  U LK U 5 U WANT TO SAVE THE CHANGES I  (T LIUSING THE CURRENT FILE NAME ? I  UT  T L(J< Y > YES, SAME NAME J  gT  T L]J< N > NO, CREATE NEW FILE BJ  T  R  T LJ RESPONSE... }J  R   U LJYLJN  H LcH S  S  wLH (DEFAULT=1) H  s S  S LI DRIVE NUMBER H  'LI: I  U L&I1 $I UL2I U 5 1I LKI U ULPI1LUI2 U 5 NI  P U 5 SI V LH S  T  T 8 U  T LIDO YO8U LGWRITE G 5 bU   R V iR   ER U  1 V 1 V 8U LHCLOSE H 5 bU   8U L*HCLOSE $H 5 U   8U LNHDELETE GH 5 U   ` X R LHORIGINAL FILE NAME oH  'LH: H  dU LH bU 5  U  U  fR R V iR   ' ER V  o  1 V 8U LFWRITE F 5 bU   U  U  R V iR   ER V  1 V U  -R R V 0R   8U LlGREAD gG 5 U   R V iR   ' ER U  o  1 V ILE CREATED WITH NAME E  (T  T  U  ` X yT  1T  LFREWRITING FILE E  s 8U L$FDELETE F 5 lU   8U LFFOPEN AF 5 lU   8U LhFOPEN cF 5 U   8U LFREAD F 5 U   '  U  'LD< Z > ABORT, FORGET THEM D  1T  R  T LD RESPONSE... D   U L EGLEZ U 5  E  P U 5 E V LDL@EZ U 5 >E LzE 8U LcEDELETE \E 5 U   LELE TEMPORARY U 5 }E LE X T LENEW F' OPTION TO DELETE A FILE. C  T LCPRESS RETURN FOR MENU C  R  '  U LE X &S L/DLAST CHANCE TO ABORT! D  S LfD"ARE YOU SATISFIED WITH THE CHANGES CD  S  T LD< G > GO, STORE THEM D  T  T U   '  U  U  -R '  U  U  fR R V iR   ' ER V  o  1 V 8U  ` iR R  P 0R R V L D 8U LECDELETE >C 5 U   X S LC!SORRY! THIS LEAVES AN EMPTY FILE. eC  T LC*USE 'DELETE FILE  U LAC U 5 A LA cHLA,D bU 5 A  U  nULA,D U 5 A  V  U 8U LBOPEN B 5 lU   8U L:BOPEN 5B 5 U   8U L^BDELETE WB 5 U   8U LBOPEN {B 5 U   8U LBREAD B 5 bE @  L@%DISKETTE WHICH CONTAINS THE ORIGINAL, @  LA"THEN TWO DISK DRIVES AND A SCRATCH @  LDA#DISKETTE ARE REQUIRED. THE SCRATCH  A  LwA$DISKETTE MUST HAVE BEEN INITIALIZED. RA  T LAPRESS 'C' TO CONTINUE... A  U   8U L?WRITE ? 5 U   L?00000 1Q  ?  S   8U L@CLOSE @  CLW T LL@#THIS PROGRAM REQUIRES A SECOND FILE (@  L~@#TO STORE THE ORIGINAL PLUS CHANGES. Z@  L@ IF SPACE IS NOT AVAILABLE ON TH> 5 U   !R DS $L> 1Q aQ dQ a R V Q T Q U  o R V XQ   xR T P Q T P  P Q T P xR T P V LH> Q U xR U o XQ uR 1 VL> R uR xR R uR WU U Q U U L> 1Q R .QL> xR RQ (LV>Lj? 8U L>WRITE  T V  1 VL< R V P> R V XQ   Q U U ER WU U L= Q U19 R RL19 R RL19 R : RL19 R RL19 P R P T P P R P T Q R P P R Q c P P R P # P RL19 yT  T 8 s 8U LV<WRITE P< 5 U   U  U  iR 9R !R /S $L< QR 9R R V :: P R P T R RL19 P R P T R RL19 P R P T R S L7MAXIMUM NUMBER OF DECIMALS: 7   U U   U L7 U  mQ X iR R 9R s 8U L8WRITE 8 5 U   U  LD800000 8  S   R V NATURAL LOGRITHM 4  L4 < S > SINE 4  L5 < C > COSINE 4  L%5< T > TANGENT 5  LE5< Q > ARCTANGENT 35  Ln5< N > ADD A RANDOM NUMBER S5  L5< X > REVIEW PAGE 1 OPERATIONS |5  TE NEXT OPERATION: 3  T L3< 2 > SQUARE TERM 3  L4< R > SQUARE ROOT 3  L*4< A > ABSOLUTE VALUE 4  LQ4< B > TAKE SIGN OF TERM 84  L4< I > GREATEST INTEGER OF TERM _4  L4< E > RAISE TO EXPONENTIAL MULTIPLE BY VARIABLE 2  R n P $L1L2* P V 2  &ULg3L3DIVIDE BY VARIABLE 3  R n P $L1L;3/ P V 93  &ULg3L\3+TERM U3 &ULg3 "! P S $L2+LX- S  T 8 R > YS T R > ;S TL3INDICAP T  1  &ULg3L1DIVIDE BY CONSTANT 1  I L1/ P T  1  &ULg3L2 ADD VARIABLE  2  R n P $L1L>2+ P V <2  &ULg3Lj2SUBTRACT VARIABLE X2  R n P $L1L2- P V 2  &ULg3L2nS L/ S  R  T 8 Q R Q T P o P  1=1112U222{3R3U*L1 ADD CONSTANT 1  I L#1+ P T  !1  &ULg3LR1SUBTRACT CONSTANT @1  I Le1- P T  c1  &ULg3L1MULTIPLY BY CONSTANT 1  I L1* O TO MENU /  T  T L/ SELECTION... /   UL/Z U 5 / L1 R PL0 12345678FATG 0 U R V T   U xR  R 4 U LZ0 xR P S uR 1 V P R $L/ P S $L0 Q R Q T T o Q R Q T T o L7 P BY VARIABLE .  L.< 8 > DIVIDE BY VARIABLE .  L /< F > FUNCTIONS, PAGE 2 .  L0/< A > ADD ANOTHER TERM /  L[/< T > START TRANSFORMATION >/  R R a L/< G > GO, APPLY TO FILE u/  L/< Z > ABORT, G S L-< 1 > ADD CONSTANT -  L-< 2 > SUBTRACT CONSTANT -  L.< 3 > MULTIPLE BY CONSTANT -  LB.< 4 > DIVIDE BY CONSTANT (.  Lg.< 5 > ADD VARIABLE S.  L.< 6 > SUBTRACT VARIABLE u.  L.< 7 > MULTIPLEo L,START WITH A CONSTANT ,  I P T  &ULU- Q R Q S  T 8 Q T 1T o L'-START WITH A VARIABLE -  R n P $L1 P V &U "! S  R  T 8 R > YS T R > ;S TL-INDICATE NEXT OPERATION: -  C > A CONSTANT NUMBER +  S L+< Z > ABORT, GOTO MENU +  T  (T L, SELECTION...  ,   U R ZR R V &S  LG,VCZ C, U xR  R 4 U Lr, xR ZR S uR 1 V ]R ,,1L+ Q R Q S  T 8 Q T (T *NAME FOR VARIABLE *  iR R a 'L*: *  U L* U 5 * L* iR R V U o L+: U 5 +  &U S Q "! (T  T 8 (T  T L\+ START WITH: P+  S L+< V > AN EXISTING VARIABLE v+  S L+< V L) CODE )  'L): )  U L) U 5 ) L)L)GO U 5 ) L2< XQ R UQ YU U o L) @ X R R R P R Q R Q R P R Q R R R R R S L*NEW VARIABLE WILL BE NUMBER g*  iR R aL*. *  T LUBFILE ( U R .Q ' R UQ 8U  T  &S L(TYPE (  wL( GO (  sL) AFTER LAST CODE.  )  S  ;S > yT TLO)ENTER EACH CODE TO <)  Lj) BE FILED IN ])  U L}): {)  S 8L)KEEP )  Q U S  T 8L2< X @ 8U  &S  U  S  T 8L(WHICH VARIABLE '  L!(IS INVOLVED ? (  R P R Q  P Q R n P $L1 R  T 8 R L(VARIABLE IDENTIFIED: m(  R  Q V  `L(CREATE Sv' QR R NR T P o QR R $L& X R yQ R Q P V  n Q S S L5' |Q R yQ R Q |Q S $L5' GS yQ ;S > S T |Q  Q LG', P V D'   P V  n Q S Q 1 V R n P $L1L'00000 QR  '  S  XQ U U o L# @ R P R V iR   xR T R o 1 V X MU  S L#&REARRANGE OR DELETE VARIABLES &  MU  R NR R V iR   S  T 8Lv&IDENTIFY VARIABLE c&  xR aL&? &   P R (L& iR uRLYS L$ UPPER LIMIT $  'L$: $  U L$GO U 5 $ L2< U   U L$ S 8 R L3% LABEL OR CODE %%  'LE%: A%  U LY%GO U 5 V% L2 yT T S 8 &S L$---- INTERVAL #  XQ R aL $ ---- $  S 8 YS LO$ LOWER LIMIT C$  'La$: ]$  U Lu$GO U 5 r$ L2< U   U L1$ S 8 S 8 T L"NEW CODE "  'L": "  U L" U 5 " L"L#GO U 5 # L2< XQ R UQ YU U o XQ U U o L-"LW#GROUP VARIABLE SCORES A# U ' R UQ 8U  T  &S L#TYPE #  wL# GO #  sL# ABLE CODES ! U ' R UQ T  &S L!TYPE !  wL! GO !  sL" AFTER LAST CODE. !  S  ;S > yT T S 8 YS LV" EXISTING CODE H"  'Lh": d"  U Lz" U 5 y" L6"L"GO U 5 " L2< P T U  o ` Q R Q T  T 8L IDENTIFY VARIABLE:    Q T P o ` Q T U  o ` $U  n Q R S Ln! S Q R R R /S Ln! ;S > YS T 2S R R  Q  R  $U  $U  n Q R Q`L!CHANGE VARIA  U LN U 5  LLY U 5  L9 LG U 5  L R n PL9 L Z U 5  L6 X R n PL9 L T  T 8` P R P T  T 8Ls ENTER CONSTANT d  'L :   U L U 5  LR  s S L< Y > YES, THIS IS IT   S L< N > NO, TRY ANOTHER   !R /S $LV S LK!< G > GO, DELETE REMAINING VARS. )  S Lz< Z > ABORT, SHOW MENU b  Q S  T L SELECTION...  Q iR Q !R S $L iR R c R Q P R P Q L R P !R /S LZ eS Q T  T 8 R FQ R 3V QR   P T P $LG R FQ QR P 1 3V IQ R $L Q  R LzIS IT VARIABLE i  zS 8 w R  P V L  LLOADING   s` X S  1T L --- SORRY ---   L &THERE IS SOMETHING WRONG WITH THE FILE   "LW 8U  8U LICLOSE C 5 bU   8U LlCLOSE f 5 U   8U LDELETE  5 U   LW qS S rR P S P Q P S $LN Q R ( P Q Q V L !R ZR Q RL P bS L X !R !>#%*%(N T  S LITYPE 'C' TO CONTINUE... 1   UL\C U 5 Z L"` X T  ^T  LWORKING   s` X T  UT  LRUN.......RETURN   S LSTOP......ESC KEY   R  R  !R ZR !R R R Q L R R ]R T  T  ]R BU  !R T  T  w !R BU  s R D n uR S (Le CT > R T LT D n Q LT D n Q JAMES BOLDING   MU  R R R V Q   Q T S Q :Q o 1 V R T Q T o R V Q   Q T L4. Q  vU  1  T   Q BU  1 V yT  MU  S LSELECT....NUMBER OR SPACE BAR   SE CODESGROUP VAR. SCORESTRANSFORM VARIABLESRE-ARRANGE OR DELETE VARS.CREATE SUBFILEMENU S =Q S Q YS  :U R V Q   Q DU  o R DU Q BU o 1 V X MU  :T L{ ALTER FILE o  LCOPYRIGHT 1984   T Lj> "dV`dLPR#1  0U YS  :U R V S  L- MU 5   OUL  vU 5   xU 1 VLr) SQUARE) ROOT) ABS) SIGN) INT) EXP) LOG) SIN) COS) TAN) ATN+RND  R V T   xR U  o 1 V XL CHANGE VARIABL                                        Y fY \ X Z  o ,Z > Z T YZ > m[ T iY Z fY wZ  iY \ [  Z\  [   'L%:  % iY \  o  L1%GO iY \ .% LN% X` iY Y (L$ X Z X [   2\ L%WRITE }% 5 d\   Y ] Y   iY Z  \ \  \  Y ] Y   iY \  1 ] 2\  Y X P\ f\ $L% X [  [ L$TYPE $  wL0$ GO +$  sLN$ TO STOP INPUT. >$  Z Lt$ENTER SCORES FOR b$  Y \  Y  X Z aL$: $  [   %[ L"CREATE A NEW FILE "  F\  S Y Y ' Y Y 2\ L#OPEN # 5 n\   2\ L)#DELETE "# 5 n\   2\ LK#OPEN F# 5 n\   2\ Ln#WRITE h# 5 P\   L#00000 # \L#00000 Y  #  W W W # W W X Y n Z W W W W W Z $L"L" 0.00000000 X Z !  \L"L#"00000000 W  "  X Y W #Z  W 4 \LP" O" \ X Y L"Lk". \ X  i"  \ x\ 5 \  \ Z\ 5 \  X  ` X F\ iY [ W Z o iY [ mX L iY [ sX iY [ IX L iY [ LX 1 ] vX Z (L! Z sX 2\ L%!CLOSE !  ` X Z W Y # W X Z Y # W W W Y ( Z Z  [ W #  [  z\ x\  X Y X L! x\  X Y X \ \  \ Y ] Y   iY [ Y o iY [ Y o '  \  1 ] ]Y X Z LR Z X Y q] X   Y ] Y   ' iY \  o  1 ] Y ] xY   iY [ \ STATISTICS WITH FINESSE   LCOPYRIGHT (C) 1984   L JAMES BOLDING   L! P.O. BOX 339   LGFAYETTEVILLE, AR 72702 /  F\ [   [  Z L{BYE-BYE s  [  Y Lc 2\ LOPEN  5 n\  @[  7[ L IN DRIVE ONE   [  Z  'LPRESS 'RETURN' WHEN READY...   \ L \ 5  L| X [  [[  LILOADING A  s 2\ LpRUN HELLO ,D1 `  X Y > [ T Z > [ T [  F\ [   L L+L ALTER FILE  \LL COPY FILE  \ X [  d[  LWAIT   s 2\ LRUN  5 \   2\ LC BLOAD GOMANLKBRUN 7[  7  [ wZ  [  F  \   X .[  [ LINSERT PROGRAM DISKETTE  5F|{L X [  [[ LWAIT   ` 2\  [  [ L TYPE 'C' TO CONTINUE...    \ LC \ 5  L X` 2\ LECLOSE ?  X Z  d[ LiSORRY! b  [  wZ L!SOMETHING IS WRONG WITH THE FILE.  8 > DELETE FILE   d[  7[ L < M > MENU   v[  7[ L < S > STOP   [  7[ L/ SELECTION... "   \ Y HYLT 12345678MS I \ Y q] [   \ Y  Y 4 \ L Y HY Z Y 1 q] KY  "P)H8AC[ L< 1 > CREATE FILE   PZ L< 5 > ADD VARIABLES   %[ L< 2 > READ FILE   Z L0< 6 > ALTER FILE   7[ LT< 3 > EDIT FILE D  Z Lu< 7 > COPY FILE e  I[ L< 4 > ADD CASES   Z L<LE d\bdLPR#1  *\ Z W wZ  4\ Y q] Z  L- F\ 5   H\L Z\ 5    \\ 1 q] Z $Y X F\  PZ  7[ LWFILE MANAGEMENT F  LwCOPYRIGHT 1984 h  .[ L JAMES BOLDING   F\  ,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé 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 hwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BUUȥViлh8HH`З{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.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      SAVE THE CHANGES N  Y LNUSING THE CURRENT FILE NAME ? N  Y  Y LO< Y > YES, SAME NAME  O  Z  Y LTO< N > NO, CREATE NEW FILE 9O  &Z  X  Y LO RESPONSE... tO  X   Z LOYLON Z 5 OLZM lY  Y  wLM (DEFAULT=1) M  s HY  lY LM DRIVE NUMBER M  'L N: N  Z LN1 N ^[L)N Z 5 (N LBN Z ^[LGN1LLN2 \[ 5 EN  oV \[ 5 JN [ LM HY  /Z  SZ 8 \[  Y LNDO YOU WANT TO  ce8cL 8cL 8cL 8cL 8cL 8  ce8dL WL 8  ]e8  ^e8  L_e8  `e8bL 8  be8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8bL 8cL 8cL 8cL 8cL 8WIL WKLdWPLdWUL WWLdW\L W^LdWcL WeLdWjL WlL WnL WpL WrL WtL WvL WxL WzL W|L W~L WL WL WL WL WL WL WL WL d]Ld]Ld]LdWL WLdW L W LdWL WL WLdWL WL WLdW#LdW(L W*L W,LdW1LdW6L W8LdW=LdWBL WDLd]RL ]TL ]VLd][L ]]Ld]bLd]gLd]lLd]qLd]vLd]{Ld]L ]Ld]Ld]Ld]Ld]Ld]Ld]L\Ld]Ld]Ld] Ld]Ld]Ld]Ld]!Ld]&Ld]+Ld]0Ld]5Ld]:L ]UIS INFORMATION CORRECT ? %U  d[  [ LlU< Y > YES, CORRECT XU  v[  [ LU< N > NO, NOT CORRECT U  [ W \ 5 S \ LaSLSN \ 5 S LNL#V [  Z  [ 8 'L TNAME OF FILE: S  R\ LT P\ 5 T LSL7T1 5T \ 7[  [  wL]T (DEFAULT=1) QT  s .[  Z LT DRIVE NUMBER zT  'LT: T  \ LT ōƍÍ΍ƍÍŠōƍōԱԲԳԴ͍̍ōٍƍō̍ƍōč͍ō͍̍ōӍƍÍō͍Íٍ͍Í z#     Π٠ ԮҠ:Ǡ"Ԡ ϊ ŠԠG ҠŠ@٠Š ԠǠŠŠōύOAD GOMAN"(13)(4)"BRUN"NB$1 ADDRESS TAG ::32,9:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984" :"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23): 24:5:"BYE-BYE";:23:1:1NLNP320 6OSOP:OPNL:240/ @L13230K J::OP410,420,430,440a LIST OF PROGRAMS NB$"FILE MANAGEMENT":500 NB$"ALTER FILE":500 NB$"COPY FILE":500 NB$"SORT":500 RUN PROG :23:17::"LOADING": :D$;"BLE BAR":8:"RUN.......RETURN":8:"STOP......ESC KEY";@ 1:1^ OSOP:OPOP1:OPNPOP1w VT(OS):14:NA$(OS) VT(OP):14::NA$(OP): K(16384):K128260 16368,0:S(16336):S(16336) LK128:NLL48 "L27900 ,NLWITH FINESSE"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$e I1NP:VT(I)TP2I:I:VT(0)VT(NP)q I1NP VT(I):(BK$(I)". ",13);NA$(I):I 20:"-------- ";::"CAPS LOCK";::" MUST BE DOWN -------"6 :8:"SELECT....NUMBER OR SPAC HELLOdHELLO-nOMIT 520 FOR OBJ;x16368,0u FILE MANAGEMENT,ALTER FILE,COPY FILE,SORT VARIABLESTP8:OP0:NP4:D$(4):NA$(4):I1NP:NA$(I):NA$(0)NA$(NP):II139:DD$DD$"-":BK$BK$" ":I< :DD$::8:"STATISTICS     Šōύ         ŠōύO1LO2 \ 5 O  W \ 5 O ] LO Z  [  [ 8 \  B[ L&PDO YOU WANT TO SAVE THE CHANGES P  T[ LXPUSING THE CURRENT FILE NAME ? :P  o[  0[ LP< Y > YES, SAME NAME rP  [  0[ LP< N > NOTE N 5 \   ` X @Z LNORIGINAL FILE NAME N  'LN: N  o\ LO m\ 5 O LN Z  '[  wL7O (DEFAULT=1) +O  s Z  Z LaO DRIVE NUMBER TO  'LsO: oO  \ LO1 O \LO \ 5 O LO \ \LLMREAD M 5 \   Y ] Y   ' Y \  o  1 ] O\ LNWRITE M 5 m\   Y ] Y   Y \  1 ] O\  [  f[ L\NCOUNTING SN  8Y tY  w\  Z   1 ] O\ LNCLOSE N  O\ LNDELEOPEN L 5 \   O\ LLREAD L 5 \   '  \  '  \  \  Y Y ] Y   ' Y ]  o  1 ] O\ LAMWRITE ;M 5 m\   \  \  Y ] Y   Y ]  1 ] \  wY Z ] zY   O\ K 5 \   L)LLK TEMPORARY \ 5 K L*L X 9[ L LNEW FILE CREATED WITH NAME K  T[  9[  \  ` X [  ][  LNLREWRITING FILE ?L  s O\ LlLDELETE eL 5 \   O\ LLOPEN L 5 \   O\ LLES J  K[  0[ LJ< G > GO, STORE THEM J  ][  0[ LK< Z > ABORT, FORGET THEM J  [  Z  0[ L>K RESPONSE... 2K   \ LTKGLYKZ \ 5 RK  W \ 5 WK ] LKLKZ \ 5 K LK O\ LKDELETE I!SORRY! THIS LEAVES AN EMPTY FILE. I  9[ LJ*USE 'DELETE FILE' OPTION TO DELETE A FILE. I  [ L8JPRESS RETURN FOR MENU "J  Z  '  \ L)L X Z LwJLAST CHANCE TO ABORT! aJ  '[ LJ"ARE YOU SATISFIED WITH THE CHANG5 \   O\ LHOPEN H 5 \   O\ LHREAD H 5 m\   '  \  \  wY '  \  \  Y Y ] Y   ' Y ]  o  1 ] O\  ` Y Y  W zY Y ] LUJ O\ LIDELETE I 5 \   X '[ LE ORIGINAL, G  LG"THEN TWO DISK DRIVES AND A SCRATCH G  LH#DISKETTE ARE REQUIRED. THE SCRATCH G  LMH$DISKETTE MUST HAVE BEEN INITIALIZED. (H   NLdH,D m\ 5 aH  \  \LH,D \ 5 ~H  \  \ O\ LHOPEN H O\ LFOPEN F 5 \   O\ LFDELETE F 5 \   L+ 9[ L"G#THIS PROGRAM REQUIRES A SECOND FILE F  LTG#TO STORE THE ORIGINAL PLUS CHANGES. 0G  LG IF SPACE IS NOT AVAILABLE ON THE bG  LG%DISKETTE WHICH CONTAINS TH o  1 ] O\ LEWRITE E 5 \   Y ] Y   Y \  1 ] O\  [   1 ] O\ L*FCLOSE $F  LBF TEMPORARY \ 5 8F L+ ]IL+ X c\  Z LFDELETE A FILE FROM DISKETTE sF  c\  T X [ ;\  o 1 ] O\  O\  X mZ  Y ] LD D  8Y aLD. D  LEENTER SCORES FOR  E  ZX ] L:E = 6E  ZX \ LSE: QE  Y 1Z ] Y   Y ] T[  w\  T[   'LE: E Y \  L+ 5 O\ LCWRITE C 5 \   \  LC00000 Y  C  Z   Y ] Y   Y ]  1 ] Z ] zY   O\ LIDREAD DD 5 m\   ' Y \  o  Y \  2Y L> Z ] Y   ' Y \  o  Y  o  1 ] O\ LBCLOSE B 5 m\   O\ LBAPPEND B 5 \   m\ \ #L% X c\  Z LACADD NEW VARIABLES TO A FILE %C  c\  F Y Y & Y Y $LC O\ LCCLOSE {C  O\ LCDELETE C 5 \  LACLOSE A 5 \   Y RZ $L+ ]IL+ X c\  B[ LBADD CASES TO FILE A  c\  T O\ L/BOPEN *B 5 \   O\ LQBREAD LB 5 m\   '  \  '  \  \  X \  Y Y ] Y   ' Y ] X   1 ] X 1Z X O\ L@WRITE @ 5 \   X a Z ] Y   Y \  1 ] 1 ] X O\ L3ACLOSE -A  O\ LLAOPEN GA 5 \   O\ LoAWRITE iA 5 \   LA00000 X  A  Z   O\ LES %  T  9R Q ]R FV Q   kS  :T 8L&IDENTIFY VARIABLE %  Q aL&? &  X GP 6R (L:& Q QL' Q iR Q qT GP o Q fR $Ll& X lR Q lR P GP U  n P R >S L& Q iR Q lR P Q R $L& RU   )U LS$ GS 8 ~R L$ LABEL OR CODE $  'L$: $  5U L %GO 3U 5 % L;L!% 3U 5  % L$ P iR P [T U  o P fT )U  o P T 3U o L# ? 9R DP X T  ,S L%REARRANGE OR DELETE VARIAB- INTERVAL #  P iR aL# ---- #  GS 8 R L$ LOWER LIMIT #  'L$: $  !U L&$GO U 5 #$ L; U   U L# GS 8 R Lq$ UPPER LIMIT e$  'L$: $  +U L$GO )U 5 $ L; )L]"L"GO )U 5 " L; P iR P T U o P U )U o L!L#GROUP VARIABLE SCORES " U M' 9R P T  T  R L8#TYPE 1#  wLK# GO F#  sLp# AFTER LAST INTERVAL. Y#  ,S  R > T T GS 8 R L#---! AFTER LAST CODE. !  ,S  R > T T GS 8 R L" EXISTING CODE !  'L": "  !U L+" U 5 *" L!LD"GO U 5 A" L; GS 8 S Lx"NEW CODE o"  'L": "  +U L" )U 5 " Q PT GP o ` Q PT T  o ` T  n IQ iR >S L! R LQ R iR R R L! R > R T R R R  OQ  ]R  T  T  n IQ iR LQ`Lf!CHANGE VARIABLE CODES P! U M' 9R P T  R L!TYPE !  wL! GO !  sL ]R n DPLLZ T 5  L X ~R n DPLL6 S  :T 8` }P iR zP S  :T 8L$ ENTER CONSTANT   'L6 : 2  T LH T 5 G L }P |T T  o ` Q iR Q S  :T 8L IDENTIFY VARIABLE:   X Y ANOTHER   Q R $L 5S L!< G > GO, DELETE REMAINING VARS.   5S L+< Z > ABORT, SHOW MENU   (Q S  S LU SELECTION... H   T LkN T 5 i LLY T 5  LLG T 5  L R %Q S  :T 8 9R P ]R U Q   nP oT AP $L lR P Q kP 1 U P fR $L (Q  ]R L+IS IT VARIABLE   S 8 w ]R  GP U LV T  s 5S L< Y > YES, THIS IS IT p  5S L< N > NO, TRŠōύ     X [ L%CLOSE %  [ L%OPEN % 5 2\   [ L%WRITE % 5 \   L&00000 LX  &  nZ   [ LA&CLOSE ;&  X Z L]&FILE X&  Y  \  Y L&NOW HAS z&  LX aL& CASES. &  ^[ 'Xd8XL L 0L 0L 0L 0L 0L 0L 8  48  ;8OmL 8  oO8WAL 8WCL 8WEL 8WGL 8WIL 8WKL 8WML 8WOL 8WQL 8WSL 8  UWd8XL 8X!L 8X#L 8X%L 8 cL 8cL 8cL 8  ce8cL 8cL 8cL 8cL 8cL 8  ce8dL ] WL WL WL WL 8  ]e8  ^e8  d_e8  0`e8b.L 8  0be8bL 8bL 8cL 8cL 8cL 8cL 8cL 8c L 8c L 8cL 8cL 8cL 8cL 8cL 8cL 8WcLdWhL WjLdWoL WqLdWvLdW{L W}LdWL WLdWL WLdWL WL WL WL WL WL WL WL WL WL WL WL WL WL WL WLLd]Ld]Ld]Ld]Ld]LdW)L W+LdW0L W2LdW7L W9L W;LdW@L WBL WDLdWILdWNL WPL WRLdWWLdW\L W^Ld`Ld]eLd]jL ]lL ]nLd]sL ]uLd]zLd]Ld]Ld]Ld]Ld]Ld]L ]Ld]Ld]Ld]Ld]]L ]Ld] Ld]%Ld]*Ld]/Ld]4Ld]9Ld]>Ld]CLd]HLd]MLd]RLd]WL ]YLd]^L ]... V  \  hY .Z  W hY Z ] LW X [  x[  LVREADING V  sLW,D m\ 5  W  \  \`Lc !"@#  Pd l'H < N > NO, NOT CORRECT U  [  Z  0[ LU RESPONSE... U   \LVYLVN \ 5 V  W \ 5 V ] LUL6VN \ 5 4V LT X K[  [ LuVINSERT DATA FILE DISKETTE [V  [  Z  'LVPRESS 'RETURN' WHEN READYR T  'LT: T  \ LT \ 5 T LT \ \LT1LT2 \ 5 T  W \ 5 T ] LXT K[  [  [ 8 \  o[  Z LdUIS INFORMATION CORRECT ? KU  [  0[ LU< Y > YES, CORRECT ~U  [  0[ LUS   \ LSYLSN \ 5 S  W \ 5 S ] LSLSN \ 5 S LNLIV 0[  Z  [ 8 'L3TNAME OF FILE: #T  o\ LET m\ 5 DT LTL]T1 [T \ T[  [  wLT (DEFAULT=1) wT  s K[  Z LT DRIVE NUMBELR2 \ 5 R  W \ 5 R ] LR K[  [  [ 8 \  x[  Z L SIS INFORMATION CORRECT? S  [  0[ LNS< Y > YES, CORRECT :S  0[ L|S< N > NO, NOT CORRECT eS  [  Z  0[ LS RESPONSE... Q  \  LR 0[  mZ LQNEW FILE NAME Q  'LQ: Q  \ LR \ 5 R LQ T[  '[  wL3R (DEFAULT=1) 'R  s K[  Z L]R DRIVE NUMBER PR  'LoR: kR  \ LR1 R \LR \ 5 R LR \ \LR1, CREATE NEW FILE P  [  Z  0[ LP RESPONSE... P  Z   \ LQYL QN \ 5 Q  W \ 5 Q ] LP 9[  [ 8 Y YLNQN \ 5 LQ LgQ UZ Y Y Y $LQLQ TEMPORARY xQ \ 0[  Z LQTEMPORARY FILE: 1984 %  L% JAMES BOLDING %  L% P.O. BOX 339 %  L&FAYETTEVILLE, AR 72702 %  k( (   (  {' LD&BYE-BYE <&  (  3' LcLc !@' ;  ' L$ SELECTION... $   O( L$A M( 5 $ LL$M M( 5 $ L,%  W( L!%RUN HELLO ,D1 %  L1%S M( 5 /% L$ X *' > ' T K' > &( T '  k( (   L%STATISTICS WITH FINESSE w%  L%COPYRIGHT (C)  O( L#YL#N M( 5 #  & M( 5 # ( L#L#N M( 5 # LU ` X '  ' L)$--- COPY COMPLETE --- $  ' LW$< A > ANOTHER COPY C$  ' Lz$ < M > MENU n$  ' L$ < S > STOP $  ' ( 5 "  & ( 5 " ( L" '  (  /( 8 (  '  r' L#IS INFORMATION CORRECT? #  (  ' LI#< Y > YES, CORRECT 5#  ' Lw#< N > NO, NOT CORRECT `#  (  3'  ' L# RESPONSE... #  8 (  '  i' L!NEW FILE NAME !  'L!: !  ( L! ( 5 ! L!L"1 " ( '  '  wL;" (DEFAULT=1) /"  s '  ' Le" DRIVE NUMBER X"  'Lw": s"  O( L" M( 5 " L" M( (L"1L"2 :   w( L u( 5  L L 1  ( '  '  wL! (DEFAULT=1)   s '  ' L+! DRIVE NUMBER !  'L=!: 9!  O( LO! M( 5 N! Lh! M( (Lm!1Lr!2 ( 5 k!  & ( 5 p! ( L '  (  /( LAPPEND  5 (   W( LWRITE  5 (   3' ( & ?' c &   ' B(  1 ( W( L0 CLOSE * 5 (   & & (LL$ X ' Ll COPY FILE a  k(  ' L ORIGINAL FILE NAME   'L  W( LREAD  5 u(   3' ( & ?' c &   ' ' D(  o  1 ( W( LCLOSE  5 u(   R & <' $L W( LOOPEN J 5 (   W( LsDELETE l 5 (   W( LOPEN  5 (   W(L$THIS IS A LARGE FILE. SOME OPERATOR   LASSISTANCE WILL BE REQUIRED.    & & ?' & B' & & & & L; & & & <' LL  W( LZOPEN U 5 a(   W( LPOSITIONL,R w 5 u(    :( B' &  8( '  (  '  (  '  (  (  & (  ' W( LCLOSE  5 u(   & ?' & ' ?' & T' &L%CORR ( 5   Le (  ' ?' `' & B' ' ' # c W' i & & & & &L X W(  '  ' L--- NOTICE ---   ' L NEW FILE IN   ' LDRIVE   (   X (  '  LWRITING   s` X U !' & L4,D u( 5 1  (  c(LQ,D ( 5 N  (  ( W( LvOPEN q 5 a(   W( LREAD  5 u(   LINSERT DISK CONTAINING THE   ' LORIGINAL FILE IN   ' LDRIVE    (  y X (  '  LCREADING ;  s` X r'  '  wLm NEW g  s '  ' LINSERT DISK FOR THE   4$ X '  '  wL ORIGINAL   s u( 5 (  & ( 5 ( ( L L, SINCE BOTH THE ORIGINAL AND COPY    Lc%FILES HAVE THE SAME FILENAME, YOU MAY =  L#WISH TO WRITE PROTECT THE ORIGINAL. t  {'( LO M( 5  Ly` (  ' LTYPE 'N' WHEN READY...    O( LN M( 5  L` X (  '  L6LOADING .  s` X '  ' Le --- SORRY --- W  L&THERE IS SOMETHING WRONG WITH THE FILE v  L @()@ r'  Y( 3' ( '  L- k( 5   m(L ( 5   ( 1 ( ' &L (  ' L,TYPE '  & aLLTO CONTINUE... =   O( LbC M( 5 ` L X` (  ' LTYPE 'O' WHEN READY...    O Z   1 5] [ LECLOSE E  LE TEMPORARY y\ 5 E L+ IL+ X \  Z L3FDELETE A FILE FROM DISKETTE F  \  S X [ L^FOPEN YF 5 2\   [ LFDELETE {F 5 2\   L+ Z LF#THIS PROGD  X aLD. D  LDENTER SCORES FOR D  dX n\ LD: D  NY Y P] iY   3Y \ Z  \  Z   'LAE: =E 3Y p\  o  1 P] [ LlEWRITE fE 5 y\   Y P] iY   3Y n\  1 P] [  Y  C  nZ   Y P] iY   3Y \  1 P] Y 5] 'Y   [ LDREAD D 5 \   ' Y p\  o  Y n\  X L6 Y P] NY   ' 3Y p\  o  3Y [ [  o 1 P] [  [  X Z  Y \ LD  B 5 2\   \ *\ #L% X \  Z LCADD NEW VARIABLES TO A FILE B  \  F NY fY & NY cY $LrC [ L@CCLOSE :C  [ L[CDELETE TC 5 [   L+ 4 [ LCWRITE ~C 5 y\   d\  LC00000 iZ LAADD CASES TO FILE A  \  S [ LAOPEN A 5 2\   [ LBREAD  B 5 \   '  f\  '  \  d\  IX \  KY Y P] NY   ' 3Y \  o  1 P] [ LBCLOSE B 5 \   [ LBAPPENDX a Y P] NY   3Y n\  1 P] 1 5] X [ L@CLOSE @  [ L AOPEN A 5 y\   [ L.AWRITE (A 5 y\   LKA00000 LX  EA  nZ   [ LtACLOSE nA 5 y\   Y Y $L+ IL+ X \  : ?  3Y [ n\ \  @X   'L? ? ?  [ L? [ 5 ? L@ 3Y [ p\ [ o L@ [ 5 @ LC@ 3Y [ p\L;@ :@ o Z 8 [  \Z 8 3Y [ n\ \  @X   1 P] LX Y IX [ L@WRITE @ 5 y\   LA BLANK >  L>ENTER BLANK IN QUOTATION MARKS >  Z  Y L ?CHECK SCORES FOR >  dX \ L"?  ?  dX n\ L;?: 9?  Z > :[ T Y > nZ T Z  Y P] ?Y   Z 8 Y  3Y [ \ Z  \  Z  L?.. =   [ L=CKDI = R\ Y W Y i] ;Z   P\ uY  Y 4 [ L > uY W 2Z rY 1 i] W >~@@#>L= Y P] NY   3Y [ 3Y n\ o 1 P] y\ *\ # Y P] NY   3Y p\ 3Y [ o 1 P]L;< X U[ L>TO REPLACE NUMBER WITH n\  Z  nZ L<< C > CHECK THIS CASE <  nZ L =< K > KEEP IT AS IT IS <  nZ L8=< D > DELETE THIS CASE  =  nZ Lk=< I > INSERT A CASE BEFORE O=  [ L=THIS ONE =  :[  Z L= RESPONSE.Y 5] 'Y   [ L;READ ; 5 \   Y P] NY   ' 3Y p\  o  3Y [ 3Y n\  o 1 P] [  Y [ X L6 [  XLQ<OLD: J<  X a Ll<NEW: e<  LX Y a Z  Z  W \ L< <  W :  Y  3Y [ \  'L: ? :  [ L: [ 5 : L ; 3Y [ \ [ o Z 8 [  \Z 8 3Y [ \  1 P]  [ LK;WRITE E; 5 y\   d\  \  Y P] NY   3Y \  1 P] [  Y X Y IX 9S [ 5 9  wW [ 5 9 \ Ly9L9S [ 5 9 L9; XL:&PRESS 'RETURN' TO LEAVE NAME AS IT IS, 9  LL:TYPE NEW NAME TO MAKE A CHANGE. ,:  Z  Y P] ?Y   Z 8L: VARIABLE :  3Y  \  Z  L::L 8@L 8@L 8@L ōƍÍ΍ƍÍŠōƍōԱԲԳԴ͍̍ōٍƍō̍ƍōč͍ō͍̍ōӍƍÍō͍Íٍ͍Í L% JAMES BOLDING %  L% P.O. BOX 339 %  L&FAYETTEVILLE, AR 72702 %  U( '   (  e' L7&BYE-BYE /&  '  ' LcLc !@' ; (LdELECTION... $   9( L$A 7( 5 $ LL$M 7( 5 $ L%  A( L%RUN HELLO ,D1 %  L$%S 7( 5 "% L$ X ' > ' T 5' > ( T '  U( '   L%STATISTICS WITH FINESSE j%  L%COPYRIGHT (C) 1984 %  L#N 7( 5 #  & 7( 5 # ( Lu#L#N 7( 5 # LH ` X '  ' L$--- COPY COMPLETE --- $  ' LJ$< A > ANOTHER COPY 6$  ' Lm$ < M > MENU a$  ' L$ < S > STOP $  '  ' L$ S & ( 5 " ( L" '  '  ( 8 (  '  \' L#IS INFORMATION CORRECT? "  '  ' L<#< Y > YES, CORRECT (#  ' Lj#< N > NO, NOT CORRECT S#  '  '  ' L# RESPONSE... #   9( L#Y '  S' L!NEW FILE NAME !  'L!: !  ( L! ( 5 ! L!L"1 " ( '  '  wL." (DEFAULT=1) ""  s '  ' LX" DRIVE NUMBER K"  'Lj": f"  9( L|" 7( 5 {" L" 7( (L"1L"2 ( 5 " a( L _( 5  Lv L 1  ( '  '  wL (DEFAULT=1)   s '  ' L! DRIVE NUMBER !  'L0!: ,!  9( LB! 7( 5 A! L[! 7( (L`!1Le!2 ( 5 ^!  & ( 5 c! ( L '  '  ( 8 (   5 s(   A( LWRITE  5 (   ' ( & )' c &   ' ,(  1 ( A( L# CLOSE  5 (   & & (LL# X ' L_ COPY FILE T  U(  n' L ORIGINAL FILE NAME   'L :  LREAD  5 _(   ' ( & )' c &   ' ' .(  o  1 ( A( LCLOSE   5 _(   E & &' $L A( LBOPEN = 5 s(   A( LfDELETE _ 5 s(   A( LOPEN  5 s(   A( LAPPEND A LARGE FILE. SOME OPERATOR   LASSISTANCE WILL BE REQUIRED.     & )' & ,' & & & & L. & & & &' L?  A( LMOPEN H 5 K(   A( LsPOSITIONLy,R j 5 _(  v  $( ,' &  "(   A( '  (  '  (  }(  & (  & A( LCLOSE  5 _(   & )' & & )' & >' &LCORR }( 5  LX (  & )' J' & ,' & & # c A' i & & & & &L X A(  '  ' L--- NOTICE ---   L$THIS IS FILE IN   ' LDRIVE   (   X '  '  LWRITING   s` X H ' & L',D _( 5 $  (  M(LD,D ( 5 A  (  u( A( LiOPEN d 5 K(   A( LREAD  5 _(   '  (  DISK CONTAINING THE   ' LORIGINAL FILE IN   ' LDRIVE   (  l X '  '  L6READING .  s` X \'  '  wL` NEW Z  s '  ' LINSERT DISK FOR THE }  ' L NEW'  wL ORIGINAL   s _( 5 (  & ( 5 ( ( L L SINCE BOTH THE ORIGINAL AND COPY   LV%FILES HAVE THE SAME FILENAME, YOU MAY 0  L#WISH TO WRITE PROTECT THE ORIGINAL. g  e' LINSERT5  Ll` '  ' LTYPE 'N' WHEN READY...    9( LN 7( 5  L` X '  '  L)LOADING !  s` X '  ' LX --- SORRY --- J  L&THERE IS SOMETHING WRONG WITH THE FILE i  L'$ X n'    s@((s@ \'  C( ' ( w'  L- U( 5   W(L i( 5   k( 1 ( ' &L '  ' L?TYPE 'C' TO CONTINUE... '   9( LUC 7( 5 S L X` '  ' LTYPE 'O' WHEN READY... {   9( LO 7(       L]"L"GO NU 5 " L; Q R Q T DU o Q 'U NU o L!L#GROUP VARIABLE SCORES "  )T T lS 8 R L#---! AFTER LAST CODE. !  QS  R > )T T lS 8 S L" EXISTING CODE !  'L": "  FU L+" DU 5 *" L!LD"GO DU 5 A" L; lS 8 S Lx"NEW CODE o"  'L": "  PU L" NU 5 " Q uT lP o ` Q uT T  o ` T  n nQ R cS L! R qQ :R R 7R R L! R > S T R 7R :R  tQ  R  T  T  n nQ R qQ`Lf!CHANGE VARIABLE CODES P! GO, DELETE REMAINING VARS.   ZS L+< Z > ABORT, SHOW MENU   MQ YES, THIS IS IT p  ZS L< N > NO, TRHERE IS SOMETHING WRONG WITH THE FILE   LE T  T LCLOSE  5 U   T LCLOSE  5 U   T LADELETE : 5 0U   LE S JQ R eQ Q R $L R CR c R eQ lP R iP bQ L R iP Q R L  R S L X Q M!")p%Q(M DT  QS LTYPE 'C' TO CONTINUE...    TL C T 5   L` X DT  T  L>WORKING 6  s` X DT  T  LjLOADING b  s` X S  S L --- SORRY ---   L&T7R Q R Q :R R 7R Q Q L P 7R R Q Q R $L R Q P c R  Q R L R 4R  :R R 7R R L) &  :R  R  wLI-> F  s pR D n R S (LW S > RR T S D n }Q S D n }Q R S $L~N  T  ^R Q P 7R  R 9V Q   Q R L S  Q T  1 9V )T  T  S L7ANY KEY....TO SELECT "  S L\RETURN....TO RUN K  S LS......TO STOP p  :R  gR > ZS T R > R T R 4R E CODESGROUP VAR. SCORESTRANSFORM VARIABLESRE-ARRANGE OR DELETE VARS.CREATE SUBFILEMENU S P R Q S  T R 9V Q   Q T  o 1 9V X T  S Li ALTER FILE ]  LCOPYRIGHT 1984 z  S L JAMES BOLDING > "8dU_8dLPR#1  T S  T R 9V uS  L- T 5   TL  U 5   U 1 9VLr) SQUARE) ROOT) ABS) SIGN) INT) EXP) LOG) SIN) COS) TAN) ATN+RND  R kV S   R nU  o 1 kV XL CHANGE VARIABL                     L 8@rL &Ld&L &L &L &L &L &L &L &L &L &L &L &L 8(L 8  ( 8@ZL 8@\L 8@^L 8@`L 8@bL 8@dL 8@fL 8@hL 8@jL 8@lL 8@nL 8@p(Ld(Ld(Ld(Ld(Ld(Ld(Ld&QLd&VL &XL &ZLd&_L &aLd&fLd&kL &mL &oL &qL &sL &uL &wL &yL &{L &}LL3L2DIVIDE BY VARIABLE 2  n R n fP $LL2/ lP U 2  TL3L 3+TERM 3 TL3 {P 9S $L*L - ~S  _T 8 gR > S T R > R TLo3INDICATE NEXT OPERATION: V3  S L3< 2 > SQUARE TERM 3  L3< R > 1  TL3L1 ADD VARIABLE 1  n R n fP $LL1+ lP U 1  TL3L2SUBTRACT VARIABLE  2  n R n fP $LLB2- lP U @2  TL3Lq2MULTIPLE BY VARIABLE \2  n R n fP $LL2* lP U 2  T33*L0 ADD CONSTANT 0  L0+ P T  0  TL3L1SUBTRACT CONSTANT 0  L1- P T  1  TL3LH1MULTIPLY BY CONSTANT 31  L[1* P T  Y1  TL3L1DIVIDE BY CONSTANT x1  L1/ P T  š/ L ^R xPL/ 12345678FATG / dU R kV S   bU R  R 4 T L 0 R xP HS R 1 kV {P [R $Lt/ {P ES $LY0 AQ R >Q jT S o AQ R >Q jT S o LY7 {P S Lt/ ~S  R  _T 8 AQ R >Q jT {P o {P  0001u112Y22,NCTIONS, PAGE 2 .  L.< A > ADD ANOTHER TERM .  L /< T > START TRANSFORMATION .  IR R a L?/< G > GO, APPLY TO FILE &/  Lf/< Z > ABORT, GO TO MENU M/  MT  S L/ SELECTION... /   TL/Z T 5 L-< 3 > MULTIPLE BY CONSTANT -  L-< 4 > DIVIDE BY CONSTANT -  L.< 5 > ADD VARIABLE .  L?.< 6 > SUBTRACT VARIABLE &.  Li.< 7 > MULTIPLE BY VARIABLE M.  L.< 8 > DIVIDE BY VARIABLE w.  L.< F > FU 8 AQ jT S o L,START WITH A VARIABLE ,  n R n fP $L lP U T ~S  R  _T 8 gR > S T R > R TLR-INDICATE NEXT OPERATION: 9-  S Lz-< 1 > ADD CONSTANT f-  L-< 2 > SUBTRACT CONSTANT -  DT  S L+ SELECTION... +   T ^R R R kV R  L+VCZ + dU R  R 4 T L#, R R R R 1 kV R ,8,L+ AQ R >Q ~S  _T 8 AQ jT S o Lx,START WITH A CONSTANT b,   P T  TL- AQ R >Q ~S  _T LV* R CR U T o L*: T 5 *  T S qQ S  _T 8 S  S L + START WITH: +  QS LC+< V > AN EXISTING VARIABLE '+  QS Ls+< C > A CONSTANT NUMBER Z+  QS L+< Z > ABORT, GOTO MENU +  T 5 ) L; Q R Q T T o L9) ? X ^R FR ^R P ^R Q ^R >Q ^R iP R qQ ^R 7R IR R FR ZS L5*NEW VARIABLE WILL BE NUMBER *  R CR aLK*. I*  S Lr*NAME FOR VARIABLE _*  R CR a 'L*: *  T L* T 5 * (  sL( AFTER LAST CODE. (  QS  R > )T TL)ENTER EACH CODE TO (  L) BE FILED IN )  U L.): ,)  lS 8LQ)KEEP K)  YQ U Ln) CODE h)  'L): |)  T L) T 5 ) L?)L)GO IABLE '  L'IS INVOLVED ? '  ^R iP ^R VQ X lP VQ R n fP $L R  _T 8 R L3(VARIABLE IDENTIFIED: (  R  YQ U  `Lc(CREATE SUBFILE T(  QS T 2Q  P L&, lP U &   lP U  n P R P 1 kV R n fP $LLI'00000 Q  C'  QS  U S  _T 8L; X ? T  R  :U  ~S  _T 8L'WHICH VAR QS L%REARRANGE OR DELETE VARIABLES %  T  ^R Q R kV R   S  _T 8L'&IDENTIFY VARIABLE &  R aL:&? 8&  X lP [R (L_& R RL'' Q R Q T lP o Q R $L& X R /Q R P lP U  n P R cS U   NU LS$ lS 8 R L$ LABEL OR CODE $  'L$: $  ZU L %GO XU 5 % L;L!% XU 5  % L$ Q R Q T DU  o Q T NU  o Q T XU o L# ? ^R iP R kV R   R T ^R o 1 kV X T  - INTERVAL #  Q R aL# ---- #  lS 8 S L$ LOWER LIMIT #  'L$: $  FU L&$GO DU 5 #$ L; DU   DU L# lS 8 S Lq$ UPPER LIMIT e$  'L$: $  PU L$GO NU 5 $ L; NU  o  1 WV T  ` R [R  NP Q [R U LC T LBDELETE B 5 U   X S L8C!SORRY! THIS LEAVES AN EMPTY FILE. C  S LwC*USE 'DELETE FILE' OPTION TO DELETE A FILE. LC  DT LCPRESS RETURN FOR MENU C  RA  U  2U T LAOPEN A 5 U   T LAOPEN A 5 0U   T LBDELETE B 5 0U   T L1BOPEN ,B 5 0U   T LSBREAD NB 5 U   '  yU  wU  Q '  U  U  R RR WV R   ' Q SK DRIVES AND A SCRATCH @  L@#DISKETTE ARE REQUIRED. THE SCRATCH @  L(A$DISKETTE MUST HAVE BEEN INITIALIZED. A  DT LUAPRESS 'C' TO CONTINUE...  Q T U T T  1 WV T  2T  S L> COUNT DOWN >  Q Q  U  S   1 9V T L/?CLOSE )?  Q R $L? T LV?OPEN Q? 5 0U   T Ly?WRITE s? 5 U   L?00000 P  ?  QS  T EP  NP YQ T ]P R T WP U L= YQ U R T o Q R 1 kVLJ> ^R R R R R T T YQ U T L9> P R PLJ> R Q (L>L? T LY>WRITE S> 5 U   Q R $L> P Q Q a R WV Q   Q U T Q ٛQ Q T L<READ < 5 U   RR WV R   ' Q U  o  1 WV RR U  Q Ly Q #=q=EJ>> R WV Q   YQ U T Q T T Li= YQ U Q %U o 1 WVLJ> YQ T YQ U  o R kV Q   R ~T NP YQ T P Q P NP R P c P ]P R ZP # KP QL8 )T  _T 8 $ T L<WRITE < 5 U   wU  U  R Q Q R $Lu< Q Q RR WV Q   Q T U  1 WVL< RR WV Q   Q U  1 WV R 9V Q   QL8 Q R Q sT T QL8 AQ R >Q hT n P P  :;; ;,;8;S;_;k;w;;; Q Q QL8 Q QL8 Q QL8 Q QL8 Q # QL8 P R P T Q QL8 Q A QL8 Q QL8 Q QL8 Q : QL8 Q QL8 P R P T P P R P T Q QL8 Q R Q sT T Q QL8 Q R Q sT T Q QL8 Q R Q Q xP ^R Q Q sT T 7R [R L&: :R uP QL8 P Q PL8 P Q NP &Q 6S HP yR # NP &Q 6S yR # BP P IR R FR R CR U P  o R CR T P o L8 P R P T 1 WV RR U  Q Ly ^R FR ^R P ^R Q ^R >Q ^R P AQ R >Q hT n P P 929J9b99999:):5:J>:: P R P T Q QL8 P R P T Q QL8 P R P T Q QL8 P R P Q xP ^R Q P T [R L9 P T uP QL8 Q R Q sT #Q X R CR Q $ T L7WRITE 7 5 U   wU  L700000 Q  7  QS   RR WV Q   Q U  1 WV R 9V Q   Q Q T LY8READ T8 5 U   RR WV R   ' Q U  o  Q T Q U  o 6   ~S  _T 8L6LARGEST POSSIBLE RANDOM NUMBER 6  L6(L7,L7) T 5 6  T R P T  T  6  T P T  T  7  T L - X QS L7MAXIMUM NUMBER OF DECIMALS: e7   T T   T LY7 T LSCTQNX 5 dU R kV S   bU R  R 4 T L5 R xP $S R 1 kV {P [R $L[5 {P !S $L6 R ;Q >QL - AQ R >Q jT {P o {P lU T {P R $Li6  P T  T  T {P ES LS7 ~S  _T 8L6SMALLEST POSSIBLE RANDOM NUMBER < C > COSINE 4  L4< T > TANGENT 4  L4< Q > ARCTANGENT 4  L5< N > ADD A RANDOM NUMBER 5  LM5< X > REVIEW PAGE 1 OPERATIONS -5  MT  S Lw5 SELECTION... j5   TL5 T 5 5 L[5 ^R xPL5 2RABIESQUARE ROOT 3  L3< A > ABSOLUTE VALUE 3  L4< B > TAKE SIGN OF TERM 3  L04< I > GREATEST INTEGER OF TERM 4  LZ4< E > RAISE TO EXPONENTIAL >4  L4< L > NATURAL LOGRITHM h4  L4 < S > SINE 4  L4 OLdOLdOLdOL OLdOL OLdOLdOL OLdOLdOLdOL OLdOLdOL OL OLdOL PL PL PLdP L P LdPLd>LdVCLdVHLdVMLdVRLdVWLdV\LdVaLdVfLdVkLdVpLdVuLdVzLdOL OLdOL OL OLdOL OLdOL OL ULdULdULdULdULdULdVLdVLdV LdVL VLdVLdVLdV LdV%LdV*LdV/LdV4LdV9LdV!@@# `0Pd @'HS ??ULdULdULdULdULdULdULd LNSTATISTICS WITH FINESSE N  LNCOPYRIGHT (C) 1984 N  L O JAMES BOLDING N  L'O P.O. BOX 339 O  LMOFAYETTEVILLE, AR 72702 5O  T DT   MT  QS LOBYE-BYE yO  DT  R LcLc @READING M  s` X S  S LMINSERT PROGRAM DISK M  S  S LN IN DRIVE ONE N  DT  ZS  'LINPRESS 'RETURN' WHEN READY... ,N  T  M T LsNRUN HELLO ,D1 cN  X gR > S T R > VT T ~S  T DT  R  S LL RESPONSE... L   T LLYLLN T 5 L  NP T 5 L U LLLMN T 5  M LH X S  ~S LNMINSERT DATA FILE DISKETTE 4M  DT  ZS  'LMPRESS 'RETURN' WHEN READY... kM  T  X DT  T  LMER K  'LK: K  T LK1 K ULK T 5 K LK T U S  ;T  _T 8 U  T  S L=LIS INFORMATION CORRECT? %L  T  S LkL< Y > YES, CORRECT WL  S LL< N > NO, NOT CORRECT L  DT  LJ R (R +R [R $LKLJ TEMPORARY J U S  S LJTEMPORARY FILE: J  U  LfK S  R L/KNEW FILE NAME K  'LAK: =K  U LSK U 5 RK LK S  S  wLK (DEFAULT=1) xK  s S  ZS LK DRIVE NUMBI  T  S LI< Y > YES, SAME NAME I  T  S LJ< N > NO, CREATE NEW FILE I  2T  R  S L:J RESPONSE... .J  R   T LVJYL[JN T 5 TJ  NP T 5 YJ U LJ S  _T 8 ^R (RLJN T 5 J NUMBER H  'LH: H  T LH1 H ULH T 5 H LH T ULI1LI2 U 5 H  NP U 5 I U LjH QS  ;T  _T 8 U  S LwIDO YOU WANT TO SAVE THE CHANGES WI  S LIUSING THE CURRENT FILE NAME ?  LGCLOSE G 5 U   T LGCLOSE G 5 U   T LGDELETE G 5 0U   ` X R L3HORIGINAL FILE NAME  H  'LEH: AH  U LWH U 5 VH LH ZS  S  wLH (DEFAULT=1) |H  s QS  ZS LH DRIVE F 5 U   wU  U  RR WV R   Q U  1 WV wU  Q R 9V Q   T LGREAD G 5 U   RR WV R   ' Q U  o  1 WV T LkGWRITE eG 5 U   RR WV R   Q U  1 WV 1 9V TRITING FILE E  s T LEDELETE E 5 U   T LEOPEN E 5 U   T LFOPEN F 5 0U   T L;FREAD 6F 5 U   '  yU  '  U  U  R RR WV R   ' Q U  o  1 WV T LFWRITE   T LDGLDZ T 5 D  NP T 5 D U LDLDZ T 5 D L+E T LEDELETE  E 5 U   LEL8E TEMPORARY U 5 .E LE X S LrENEW FILE CREATED WITH NAME WE  S  S  U  ` X )T  S  LEREW  '  T LE X R LCLAST CHANCE TO ABORT! C  QS LD"ARE YOU SATISFIED WITH THE CHANGES C  S  S LGD< G > GO, STORE THEM 1D  S  S L{D< Z > ABORT, FORGET THEM aD  S  R  S LD RESPONSE... D  \  1 ] 2\  Y Y X 5Z L1  Y Z X [X c Z Y TY L2 ]Y Y X q] Y   2\ L#2READ 2 5 P\   Y X L2 Z X Z W Y \ Z\  vX   4X Y L2 4X \ Y pX  Z\  vX   Y W X ] xY   P\  L0 NUMBER OF SUBJECTS: 0  #Z  ]Y W Z X Y X 1! L1NUMBER OF VARIABLES: 0  #Z  Y W 1! F\  2\ LK1OPEN F1 5 n\   2\ Lm1READ h1 5 P\   '  \  '  \  Y ] Y   '/ 4X Y L/ W Z W X 5Z $L/ ]Y ^XL0 W Z LO0 X .[ L 0TOO BIG FOR SCREEN. /  L>0&START OVER AND SELECT FEWER VARIABLES. 0  L_* Y ^X Z "X aX Z ^X W X "X Y L[0 Z XX ^X F\  [ L0 FILE NAME: 0  #Z  \ L.ML.P \ 5 .  W \ 5 . \ L. XL.M \ 5 . L/ Z X Z @X PZ La/ W @X 8Z X X [  R[  LD/PRINTING ;/  s 2\  (\  jX =X # X Y W xY "X 4X Y $L/ %X Z "X W Z W X X "X Y LZ L-NO VARIABLES WERE SELECTED. -  L+  vX X X LX KY 5Z $` X [  Z L,.WHERE DO YOU WANT THE OUTPUT ?  .  .[  %[ LU.< M > MONITOR F.  @[  %[ L~.< P > PRINTER o.  d[  .[ L. SELECTION... . Y bZ L, eZ Y YZ > Z T Y  Y  W \ L,, ,  W \  n X DZ X 4X Y  W Z Y rY $\ L- xY Y (LO, #Z n W $L+ [  Y  [ 8 xY Z (L- X [  .[ L- --- SORRY --- -  @[  \ L+ xY Z uY [ iY o 1 ]L- 2\  X Y uY Z Y Z X Y W [  Y L,IDENTIFY ALL VARIABLES ,  L4,TO BE -,  \ LG,: E,  GZ Y 5 W Y (LB- xY Z uY [ W o W \  n X DZ Z L, Z X Y Z L*< A > YES, ALL *  @[  .[ L*< S > SELECT SOME *  d[  .[ L+ RESPONSE... +   \ L(+AL-+S \ 5 &+  W \ 5 ++ \ L* XL_+S \ 5 ]+ L+ Y uY Y [ Y o Y ] Y   KY 5Z $ W iY .X  2\ L)OPEN ) 5 n\   2\ L)READ ) 5 P\   '  ZY  '  Y  Y ] Y   ' iY \  o  iY [ Y o 1 ] 2\ LQ*CLOSE K*  5 2\  X [  Z L*DO YOU WANT ALL VARIABLES? z*  .[  .[ (GO \ 5 ( L*) Y Z Y \ \ o Z 8 [ 8 PZ L( VARIABLE (  Y aL): )  #Z  \  L' X [  [[ LD)WAIT ?)  ` X F\  [ L|)READ DISK DATA FILE h)  F\  L)PRINTED ) \ S\L'CASE # ' o PZ  Y L'"ENTER IDENTIFICATION OF VARIABLES: '  Z L( (DEFAULT=  (  Y Z aL,() *(  Z 8 Y  PZ L^(NAME OF VARIABLE L(  Y Z a 'Ly(: u(  \ L( \ 5 ( L( Y Z  \L X aL& CASES. &  [  [ L&TYPE 'M' FOR MENU... &   \L&M \ 5 & L&L+ X [  wZ L-'TYPE ''  wL@' GO ;'  sLa' AFTER LAST ENTRY. N'  I[ L~'(MAXIMUM u'  'Y aL') '  YZ > v[ T Y \  1 ] 2\  L$ X 2\ L%CLOSE %  2\ L%OPEN % 5 n\   2\ L&WRITE & 5 P\   L9&00000 X  3&  Z   2\ Lb&CLOSE \&  X [ L~&FILE y&  #Z  P\  #Z L&NOW HAS & cmL 8  ocd _L 8  _d8`L 8`L 8`L 8`L 8  `8`L 8  `d8aL 8aL 8aL 8  ad8buL 8bwL 8byL 8b{L 8b}L 8bL 8  b 8bL 8  bd8cgL 8ciL 8ckL 8PLdPL PL PL P L P"L P$L P&L P(L P*L P,L P.L P0L P2L P4L P6L P8L P:L PL P@L 8  Vd8  IWd8  Xd8  Zd8  \d8  ]d8A 5 \   Y 5Z $L+ 7IL+ X F\  %[ LAADD CASES TO FILE A  F\  S 2\ L$BOPEN B 5 n\   2\ LFBREAD AB 5 P\   '  \  '  \  \  X \  Y Y ] Y   ' iY \  o  1 1 ] X Z X 2\ L@WRITE @ 5 \   X a Y ] Y   iY \  1 ] 1 q] X 2\ L(ACLOSE "A  2\ LAAOPEN TO REPLACE NUMBER WITH A BLANK >  L?ENTER BLANK IN QUOTATION MARKS >  PZ  Y L??CHECK SCORES FOR -?  X \ LX? V?  X \ Lq?: o?  YZ > v[ T ,Z > Z T Z  Y ] xY   @[ L=THIS ONE =  v[  7[ L= RESPONSE... =   \ L=CKDI = \ Y W Y ] wZ   \ Y  Y 4 \ LB> Y W nZ Y 1 ] W >@AY>L= Y ] Y   iY [ iY \ o 1 ] \ f\ $ Y ] Y   iY \ iX Z a [  7[  4X \ L< <  4X \  [  Z L=< C > CHECK THIS CASE <  Z L?=< K > KEEP IT AS IT IS '=  Z Ln=< D > DELETE THIS CASE V=  Z L=< I > INSERT A CASE BEFORE =  ] Y   iY \  1 ] 2\  Z Y Y X Y q] ]Y   2\ L<READ ; 5 P\   Y ] Y   ' iY \  o  iY [ iY \  o 1 ] 2\  Y [ Y L6 2\  XL<OLD: <  Y a L<NEW: <  Z 8L: VARIABLE :  iY  Z\  PZ  L:: :  #Z  iY [ \  'L ; ? ;  \ L; \ 5 ; L@; iY [ \ \ o Z 8 R[  Z 8 iY [ \  1 ]  2\ L;WRITE {; 5 \   \  \  Y R[  .[ L9 RESPONSE... 9   \ L9CL9S \ 5 9  W \ 5 9 \ L9L:S \ 5 : Lo; XLT:&PRESS 'RETURN' TO LEAVE NAME AS IT IS, -:  L:TYPE NEW NAME TO MAKE A CHANGE. b:  [  Y ] xY   8 5 n\   2\ L8READ 8 5 P\   '  \  '  \  Y ] Y   '  \  1 ] 2\  X [  [ LM9CHECK VARIABLE NAMES? 79  %[  [ Ly9< C > CHECK THEM g9  7[  [ L9< S > SKIP THEM 9 L7 7[  [ 8L5L7Y \ 5 7 L88 Y Z $LB6L7G \ 5 7 L8 Y n WL88L8Z \ 5 8 L58 #Z n WL88LB6 [  [ 8` X F\  .[ Lo8EDIT DATA FILE `8  F\  FL8EDITED 8 \ ) 2\ L8OPEN YES, USE IT 6  [ L6< N > NO, TRY ANOTHER 6  Y Z $L7 m[ Lp7 [ L/7< G > GO, OMIT ALL OTHERS 7  [ L_7< Z > ABORT, START OVER F7  [  [ L7 SELECTION... y7   \ L7N \ 5 7 5 Y W Y AZ $L5 Z W W .X $L5 KY AZ  W W Y $\ LB6 Y X Y ] xY   Y [ n W $L/6 Z X xY Y 1 ] X Z $L5 7[  Y Lg6DO YOU WANT VARIABLE Q6  [ 8 w Y  W \  Y  s I[  [ L6< Y > L4 L1 2\  2\ L4CLOSE 4  X 5Z L& X 5Z $L5 F\  2\ L5PR#0  5  L+ X [ LA5WHAT VARIABLE IDENTIFIES (5  Lf5THE INDIVIDUAL RECORD? O5  Y n W Y n 1X Z Y 5 W 1X` W Z W Y L4X \  Y W X ] xY   W Z W X L3 Z WL3 iY [ \ 3 L*4L4^ Z\ 5 4  X  L4 iY [ \ [ iY [ [  [ Lq4 iY [ \ Z\  X  L4 iY [ [ W 1! 1 ] X 5Z $L4 1 q] Y TY & FILE NAME Q  'LQ: Q  \ LQ \ 5 Q LQ 7[  [  wL R (DEFAULT=1) R  s .[  Z L7R DRIVE NUMBER *R  'LIR: ER  \ L\R1 ZR \LhR \ 5 gR LR \ \LR1LR2 \ 5 R  W \ 5 R  [ LP RESPONSE... P  Y   \ LPYLPN \ 5 P  W \ 5 P \ LP [  [ 8 Y YL(QN \ 5 &Q LAQ 8Z Y Y Y $LQL\Q TEMPORARY RQ \ [  wZ LQTEMPORARY FILE: sQ  \  LQ [  PZ LQNEW\ LN Z  [  [ 8 \  %[ LPDO YOU WANT TO SAVE THE CHANGES O  7[ L2PUSING THE CURRENT FILE NAME ? P  R[  [ LbP< Y > YES, SAME NAME LP  d[  [ LP< N > NO, CREATE NEW FILE |P  [  Y IGINAL FILE NAME N  'LN: N  R\ LN P\ 5 N LN Z  [  wLO (DEFAULT=1) O  s Z  Z L;O DRIVE NUMBER .O  'LMO: IO  \ L`O1 ^O \LlO \ 5 kO LO \ \LO1LO2 \ 5 O  W \ 5 O Y   ' iY \  o  1 ] 2\ LMWRITE M 5 P\   Y ] Y   iY \  1 ] 2\  [  I[ L6NCOUNTING -N  Y WY  Z\  wZ   1 q] 2\ LmNCLOSE gN  2\ LNDELETE N 5 [   ` X #Z LNOR L 5 \   '  \  '  \  \  Y Y ] Y   ' iY \  o  1 ] 2\ LMWRITE M 5 P\   \  \  Y ] Y   iY \  1 ] \  ZY Y q] ]Y   2\ LMREAD M 5 \   Y ] 5 K LL X [ LKNEW FILE CREATED WITH NAME K  7[  [  \  ` X v[  @[  L(LREWRITING FILE L  s 2\ LFLDELETE ?L 5 n\   2\ LhLOPEN cL 5 n\   2\ LLOPEN L 5 [   2\ LLREAD, STORE THEM J  @[  [ LJ< Z > ABORT, FORGET THEM J  d[  Y  [ LK RESPONSE...  K   \ L.KGL3KZ \ 5 ,K  W \ 5 1K \ LJLbKZ \ 5 `K LK 2\ LKDELETE ~K 5 [   LLLK TEMPORARY \I  [ LI*USE 'DELETE FILE' OPTION TO DELETE A FILE. I  [ LJPRESS RETURN FOR MENU I  Y  '  \ LL X Z LQJLAST CHANCE TO ABORT! ;J  [ LJ"ARE YOU SATISFIED WITH THE CHANGES eJ  .[  [ LJ< G > GO[   2\ LHREAD H 5 P\   '  \  \  ZY '  \  \  Y Y ] Y   ' iY \  o  1 ] 2\  ` Y Y  W ]Y Y \ L/J 2\ LgIDELETE `I 5 [   X [ LI!SORRY! THIS LEAVES AN EMPTY FILE. K DRIVES AND A SCRATCH G  LG#DISKETTE ARE REQUIRED. THE SCRATCH G  L'H$DISKETTE MUST HAVE BEEN INITIALIZED. H   NL>H,D P\ 5 ;H  \  p\L[H,D \ 5 XH  \  [ 2\ LHOPEN {H 5 n\   2\ LHOPEN H 5 LFDELETE F 5 n\   L+ [ LF#THIS PROGRAM REQUIRES A SECOND FILE F  L.G#TO STORE THE ORIGINAL PLUS CHANGES.  G  L]G IF SPACE IS NOT AVAILABLE ON THE