IMD 1.17: 27/06/2012 8:56:54 SOFTECH MICROSYSTEMS UCSD P-SYSTEM IL20F2C INTERPRETER  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  IL20F2C*ĥ DYBOOTFpt !LSI.DYFpu!1 LSI.SML.DYLPpu1@ LSI.SMALL.DYpu@SLEIS.DYFpuSb LEIS.SML.DYLPpubp LEIS.SMALL.DYpup LSIEIS.RXRKpB LSIEIS.RXpB LSIEIS.RKpBLSI.RXRKpBLSI.RXFpBLSI.RKFpBRKBOOTF09 8"U$pI FORMAT.CODEpRXBOOTFp README.TEXT{' PDPEIS.DYRK`{L#LSI.DYRK IL20F2B*ĥ DYBOOTFpt !LSI.DYFpu!1 LSI.SML.DYLPpu1@ LSI.SMALL.DYp`{L#7 LSIEIS.DYRK`{L7MPDP.DYRK`{Lu@SLEIS.DYFpuSb LEIS.SML.DYLPpubp LEIS.SMALL.DYpup LSIEIS.RXRKpB LSIEIS.RXp .jCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD H_? _ 6_ 8/efAA"B LSIEIS.RKpBLSI.RXRKpBLSI.RXFpBLSI.RKFpBRKBOOTFpI FORMAT.CODEpRXBOOTFp README.TEXT{' PDPEIS.DYRK`{L#LSI.DYRKx@5pU5 U "4E mmӤ wH55`{L#7 LSIEIS.DYRK`{L7MPDP.DYRK`{L% eC % C ``` e7 ?NOT ENOUGH CORE TO BOOT? ̵̵̀ N` 5 x XE mm  ߋt_v @ @ 8DԤ eeW @7 ?YOU DON'T HAVE A  @5 wn844 4  7x SYSTEM.PASCAL? wT7^ SYSTEM.PDP-11? BA f8 9  6 7 ?YOUR SEGTBL IS RIDICULOUS? : \5:`d &dd b d  &  8 07U@fe Ch7U@p & Copyright(c)1980 C Chapin (` V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B 6 E E7` ~& EEf Hd`n < % HNTZ`flrx~ ```a@ 0`^& D~ " ~ E D~ D C~ %  D~  ~& AA~E e @`& E L Z   x  @ @&~AA~E e @`&AA~E e @`  `` B~ @Lf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK A@@A  ~ J@ P ``f~ ``A~ c ҇e  ``&& ` HEB?<963 0"-$*&'($*!eeee e   E e @a&&6E e @a&E e @a e e& >   Ee7 TN EE7- @$@$@$@" 0EB~ \vl@@`@`$fH@7 `e B~  B~ _w7&  G 7w pr n&7 H"%% 7 V$\7 V$`` B  aBE B< &E7 5@up7w j7w 7 Nbw \-@T a wN EC~ B~U f &7 J$  eN >@ <VE LU@ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  7`2~BE B @ w`& B~7 |& & E N\E   E7 w0 wU &    *7 7 7  7 E7 & B~ & > UB~  Ձ@  a a!~F@  B~ ~E 7 E7 tv wU W J7 H7 F BZ E@ &?   `E `EՀW   `E e `&& `& `E e `w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $&EՀ~  7F   ҂ ~ E e ` E   @ ` wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6  G7N 7 " \& \7`H 7F 6W wwF N B  ffD e w5 wDe6DCZB@B CxfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &(&&D &7 DxP7 J& Ο @ e E`E``B~bA EwZwXDwN   '((@`@`( x7 JxZ7 tbx7 \bx6 \ = "  \m\  (+m ]   P~P~eeNPP  W  ~~eeeW  m e>5`\_e w5 5@ \ɋE 5\\\&  ``!~ e C~C~ % C~C~c,eί"%@      B  BB`   & $   @ B  B`  eAp6% "1, 1,1,^  % ^A %^A    <t,*v   &Daef ¥_09E AZ   C  f ee| $wU  &G5U $ j d V=U5 @7 "f&fx $ $ $ @A eeee >eJ !$'(****AND  W 5&5  5 E L5 - \ VwUL% eC  'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5% C ``` e  P̵ >@55EM NU] > 5U5 FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 5@5 w``  @5 4E.7 *w_Copyright(c)1980 C Chapin7@` dd&`f&d&b&  m e> ɋ 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPAe  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ BRATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH m*~@ Bm~      I7 %& @  7 %7 %7 %7  7 D'7  7 b#7 |(\ vw J r'?f& 7z  AFZeA NWFl>67 8E,7 (_7  E7 E7 lU@ %e\ N A f C %C B    \ w  D& &&@7 &D& &&   v |N v  6 6  hv  `   @ && 6  A7 ^H"X&!|b&X&!l&|r&X&X&$&$$$$$J& e\ \S\ e&  (%.% D %e% e @ D   mm@ 0     A @7 &.&e\&f& \:יc&>X4%]@& & & & & D&&D&& @%C v %\w @    0  @  @ w   & Dr)&&\  7 rH" '  IA e e@ e& & & & & D&&e #@   5@5@7 T|n!H"!!$Z!d!d!d!$$$$x!V$!$!$!!f&\  \& @6 7 H"'6 6 #?%-0 @ ׳f&& @׳@f&7 $|2(|H"'\\r1@\[?\ ew " ?U?*@ڪAD C %    f&f&7 l$<($$$$$X(~%.(   \x(f& \ e\>:L]L?ƪ@ \fE  @  f&\   B -  e \&f  & N & . )   A#& e@ & f& f& f7 H"( ff w   &@& ( LN wU  E@ e ]& 7 7 7ߐ2 7 v     C 6  %%    w 6 6 %   Dv    w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $&EՀ~  7F   ҂ ~ E e ` E   @ ` wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6  G7N 7  \& \7`H 7F 6W wwF N B V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<BHNTZ`flrx~ ```a@ 0 ` L Z   x  @ @.jCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!eeee e  _ 6_ 8/efAA" e e& >   Ee7 TN EE7- @$@$@$@" 0EB~w7&  G 7w pr n&7 %% 7 V\7 V`` B  aBE B< &E7 5@up7w j7w 7 Nbw \-@T a wN EC~ B~U f &7 J  eN >@ <VE LU@ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  7`2~BE B @ w`& B~7 & & E N\E   E7 w0 wU &    *7 7 7  7 E7 & B~ & > UB~  Ձ@  a a!~F@  B~ ~E 7 E7 tv wU W J7 H7 F BZ E@ &?   `E `EՀW   `E e `&& `& `E e ` m*~@ Bm~      I7 & @  7 7 7 7 7 7 7 7 \ vw J r'?f& 7z  AFZeA NWFl5`\_e w5 5@ \ɋE 5\\\&   6 E E7` ~& EEf Hd`n < % ``!~ e C~C~ % C~C~c,eί"%@  D~ " ~ E D~ D C~ %  D~  ~& AA~E e @`& EeAp6% "1, 1,1,^  % ^A %^A&~AA~E e @`&AA~E e @`  `` B~ @L&Daef ¥_09E AZ   C  f ee| $ A@@A  ~ J@ P ``f~ ``A~ c ҇e  ``&& `  $ $ $ @A eeee >eJ !$'(****AND   E e @a&&6E e @a&E e @a 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5 \vl@@`@`$fH@7 `e B~  B~ _FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 7@` dd&`f&d&b&  m e> ɋ 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPAe  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ BRATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH  5@5 w``  @5 4E.7 *w_Copyright(c)1980 C Chapinw7&  G 7w prLN wU  E@ e ]& 7 7 7ߐ2 7 &E7 5@up7w j7w 7 Nbw \-@T a | t ~"w d    X N wK w: 7 ,* $? U@ _EzE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ 7 wf U?  E7 6 6 &  f 6A  v   E7 w0 wU &    *7 7 7  7 E7  6N\ N A f C %C B    \ w   \&@&  7 E7 tv wU W J7 H7 F BZ E@ &?   w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6 V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B     B  BB`   & $   @ B  B`      <t,*v    `wU  &G5U $ j d V=U5 @7 "f&fxjCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD W 5&5  5 E L5 - \ VwUL% eC  H_?% C ``` e  P̵ >@55EM NU] > 5U5  _ 6_ 8/efAA"  f ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK A@@A  ~ J@ P ``f~ ``A~ c ҇e  ``&& ` HEB?<963 0"-$*&'($*!eeee e   E e @a&&6E e @a&E e @a e e& >   Ee7 TN EE7- @$@$@$@" 0EB~ \vl@@`@`$fH@7 `e B~  B~ _ n&7 %% 7 \7 `` B  aBE B< 7@` dd&`f&d&b&  m e> ɋ  wN EC~ B~U f &7 J  eN >@ <VE LU@ e  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ B 7`2~BE B @ w`& B~7 & & E N\E m*~@ Bm~      I& B~ & > UB~  Ձ@  a a!~F@  B~ ~E?f& 7z  AFZeA NWFleJ !$'(****AND  W 5&5  5 E L5 - \ VwUL% eC  'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5% C ``` e  P̵ >@55EM NU] > 5U5 FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 5@5 w``  @5 4E.7 *w_Copyright(c)1980 C Chapin6 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPA6 &  f 6A  v  6N\ N A f C %C B    RATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH \ w   \&@&  7 B& @  7 B7 7 7 7 7 7 7 \ vw J r'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &(&&D &7 DxP7 J $`x7 JxZ7 tbx7 \bx6 \ = "  \m\  pCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDW  m e>5`\_e w5 5@ \ɋE 5\\\&   H_?  j ( 6 T z l  @ @AA~E e @`  `` t @L A@@A tBt J@ Pf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK ``f~ ``A~ c ҇e  ``&& `  EHEB?<963 0"-$*&'($*!eeee e  e @a&&6E e @a&E e @a \@ e e& >   EezN EE7- @$@$@$@" EB~ @`@`$fH@7 `e B~  B~ _w7&  G 7w prH&z%% 7 *!j\7 *!j``WtB  aBE B<  w&E7 5@up7w j7w 7 Nbw \-@T aN EC~ B~U f &z  eN 8@ 6NE LU@t7`.~BzE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ E B @Wtw`& B~z& & E N\Et& B~ & >  E7 w0 wU &    *7 7 7  7 E7  vUB~  Ձ@  a a!~F@  B~ ~E `E ` 7 E7 tv wU W J7 H7 F BZ E@ &?  EՀW  D `E e `&& `& `E e `&EՀ~ w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ 7&   ҂ ~ E e ` E   @ ` G7Nz   wE7 w'?~ *048nz  & 2 6 : D H      7`H 7& 6W w{& N B  6 E E2 X j ~ * B X*d d d d d d  6 H ^ P ":@P XZ& , >\`$*06<B7` ~& EEf Bd`n < %  D~ " ~ E D~ DHNTZ`flrx~ ```<4a<4@Lr`h C~ %  D~  ~& AA~E e @`& E&~AA~E e @`&   P~P~eeNPP  W  ~~eee``!~ e C~5 5@ \ɋE 5\\\wvr@p@JVL`C~ % C~C~cVeίLH%@ eAp6%V^t|  wU  &G5U $ j  "1, 1,1,^  % ^A %^A&Daef ¥_09 d V=U5 @7 "f&fx W 5&5  5 E L5 E AZ   C  f eeR $ $ $ $ @A eeee - \ VwUL% eC % C ``` e  P̵ >@5>eJ !$'(****AND 'ARRAY ,BEGIN CASE 5EM NU] > 5U5 5@5 w``  @5 CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTI4E.7 *w_Copyright(c)1980 C ChapinLN wU  E@ e ON GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PA]& 7 7 7ߐ2 7  | t ~"w d    X N wK7@` dd&`f&d&b&  m e> ɋ e  rfwBC CKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE % e 7dh\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ UNIT 2UNTIL USES 1VAR WHILE WITH 7 z!j& @  z7 z!j7 !7     I?f& 7  AF!7 7 2#7 7 6 7 j$\ vw J r'(((@0eA xWFlfT   mVAɋF!^ &.8ffD e w5 wDe BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ou C0B@B C& Ο @ e E`E``B~Ew7x߄z @|Η}½  & &&n &7 N&t7 Nt7 N0t7 t8NA EwwDwx   '((@`@`( (+m ]  t7 \8Nt6 \ = "  \m\  W  m e>5`\_e w   wU  L _&4?ŀ -/ - ^!^!^!^!F$l!$   \f$f& \ e\>:L]L?ƪ@ \fEA#& e@  -z z z p d_Z^ NJ >>67 8E,7 (_7  & f& f& f7 2 $ ff w   &@& $ E7 E7 U@ %ez\& Dr)&&\   5@5@7 XX2 nn^!DNNN^!^!^!^!b*!x^!^!f&\  \& \\r1@\[?\ ew & ?U?*@ڪAD C %     @  f H`&\   B -  e \z\D f C_  fW & @&&&&7  ^!z! *! 2  ^!pCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD2 2  ^! e\\;@\ \N @   =@f&ysE[\pCf&f&\% a H_? @w   6 6 &  f 6A  v  6N\z\\\  _ 6_ 8/efAA"N A f C %C B    \ w  D& &&@7 !D& && 6  w7&  G 7w prA7 ^2 F"P"F"Z"`"F"F"^!"^!^!^!^!^!8" e\ \S\ e& @7 x""&E7 5@up7w j7w 7 Nbw \-@T a w: 7 ,* $? U@ _E7 wf U?  Ee\"f& \:יc&>X4%]@& & & & & D&&D&& @%7 r2 "  7 PRTV x wU  E@  U@ _E7 _IA e e@ e& & & & & D&&e #@  @6 7 2 #6 6 #?%-0 @ ׳f&& @׳@f&7 ^! $2 #f&f&7 l^!*$^! zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ E B @Wtw`& B~z& & E N\Et& B~ & >  E7 w0 wU &    *7 7 7  7 E7  vUB~  Ձ@  a a!~F@  B~ ~E `E ` 7 E7 tv wU W J7 H7 F BZ E@ &?  EՀW  D `E e `&& `& `E e `&EՀ~ w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ 7&   ҂ ~ E e ` E   @ ` G7Nz   wE7 w'?~ *048nz  & 2 6 : D H      7`H 7& 6W w{& N B  6 E E2 X j ~ * B X*d d d d d d  6 H ^ P ":@P XZ& , >\`$*06<B7` ~& EEf Bd`n < %  D~ " ~ E D~ DHNTZ`flrx~ ```<4a<4@Lr C~ %  D~  ~& AA~E e @`& E&~AA~E e @`&j ( 6 T z l  @ @AA~E e @`  `` t @L A@@A tBt J@ Pf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK ``f~ ``A~ c ҇e  ``&& `  EHEB?<963 0"-$*&'($*!eeee e  e @a&&6E e @a&E e @a \@ e e& >   EezN EE7- @$@$@$@" EB~ @`@`$fH@7 `e B~  B~ _H&z%% 7 j\7 j``WtB  aBE B<  w7@` dd&`f&d&b&  m e> ɋ e  rfwBC N EC~ B~U f &z  eN 8@ 6NE LU@t7`.~B% e 7dh\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~  ON GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PA]& 7 7 7ߐ2 7  | t ~"w d    X N wKCKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE  w: 7 ,* $? U@ _E7 wf U?  EUNIT 2UNTIL USES 1VAR WHILE WITH 7 j& @  z7 j7 7 7 6 6 &  f 6A  v  6N\ N A f C %C B     I?f& 7  AF7 7 7 7 7 \ vw J r'(((@0eA xWFlfT   mVAɋF!^ &.8ffD e w5 wDe BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ou C0B@B C& Ο @ e E`E``B~Ew7x߄z @|Η}½  & &&n &7 N&t7 Nt7 N0t7 t8NA EwwDwx   '((@`@`( (+m ]  t7 \8Nt6 \ = "  \m\  W  m e>5`\_e w P~P~eeNPP  W  ~~eee``!~ e C~5 5@ \ɋE 5\\\wvr@p@JVL`C~ % C~C~cVeίLH%@ eAp6%V^t|  wU  &G5U $ j  "1, 1,1,^  % ^A %^A&Daef ¥_09 d V=U5 @7 "f&fx W 5&5  5 E L5 E AZ   C  f eeR $ $ $ $ @A eeee - \ VwUL% eC % C ``` e  P̵ >@5>eJ !$'(****AND 'ARRAY ,BEGIN CASE 5EM NU] > 5U5 5@5 w``  @5 CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTI4E.7 *w_Copyright(c)1980 C ChapinLN wU  E@ e  &E7 5@up7w j7w 7 Nbw \-@T aN EC~ B~U f &z  eN 8@ 6NE LU@t7`.~BzE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ E B @Wtw`& B~z& & E N\Et& B~ & >  E7 w0 wU &    *7 7 7  7 E7  vUB~  Ձ@  a a!~F@  B~ ~E `E ` 7 E7 tv wU W J7 H7 F BZ E@ &?  EՀW  D `E e `&& `& `E e `&EՀ~ w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ 7&   ҂ ~ E e ` E   @ ` G7Nz   wE7 w'?~ *048nz  & 2 6 : D H      7`H 7& 6W w{& N B  6 E E    \ w   \&@& D 2 X j ~ * B X*d d d d d d  6 H ^ P ":@P XZ& , >\`$*06<BHNTZ`flrx~ ```<4a<4 `j ( 6 T z l  @ @COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!eeee e  _ 6_ 8/efAA" e e& >   EezN EE7- @$@$@$@" EB~ w7&  G 7w prH&z%% 7 Hj\7 Hj``WtB  aBE B<  w  e @a&&6E e @a&E e @a \@CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTI@`@`$fH@7 `e B~  B~ _ON GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PA7@` dd&`f&d&b&  m e> ɋ e  rfwBC CKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE % e 7dh\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ UNIT 2UNTIL USES 1VAR WHILE WITH 7 j& @  z7 j7 7     I?f& 7  AF7 7 7 7 7 \ vw J r'(((@0eA xWFlfT   mVAɋF!^ &.8ffD e w5 wDe BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ou C0B@B C& Ο @ e E`E``B~Ew7x߄z @|Η}½  & &&n &7 N&t7 Nt7 N0t7 t8NA EwwDwx   '((@`@`( (+m ]  t7 \8Nt6 \ = "  \m\  W  m e>5`\_e w P~P~eeNPP  W  ~~eee``!~ e C~5 5@ \ɋE 5\\\wvr@p@JVL`7` ~& EEf Bd`n < %  D~ " ~ E D~ DC~ % C~C~cVeίLH%@ eAp6% C~ %  D~  ~& AA~E e @`& E&~AA~E e @`& "1, 1,1,^  % ^A %^A&Daef ¥_09AA~E e @`  `` t @L A@@A tBt J@ PE AZ   C  f eeR $ $ $ $ @A eeee  ``f~ ``A~ c ҇e  ``&& `  E>eJ !$'(****AND 'ARRAY ,BEGIN CASE   d V=U5 @7 "f&fx W 5&5  5 E L5  7 E7 tv wU W J7 H7 F BZ E@ &?  - \ VwUL% eC % C ``` e  P̵ >@5w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $5EM NU] > 5U5 5@5 w``  @5  wE7 w'?~ *04<r~ " . : B F P T    & 4E.7 *w_Copyright(c)1980 C Chapin6 6 &  f 6A  v  6N\F h z   : R l>t t t t t t  J \ r d(  "*06NTd ln: @ Bpt$*06<B N A f C %C B    \ w   \&@&  HNTZ`flrx~ ```XaX@B @@`a &` bcz < J  h  @ @@hFCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!ARNEeeee e  _ 6_ 8/efAA" e e& >   Ee7 >` ~N EE7- @$@$@$@" EB~w7&  G 7w prWATKINS,HENRY NORMAN JR 43 000 2  X&7 !~%% 7 "~\7 "~``WtB  aBE B<  7428 &E7 5@up7w j7w 7 Nbw \-@T awN EC~ B~U f &7 8"~  eN :@ 8NE LU@tzE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ 7`.~BE B @Wtw`& B~7 \ ~& & E N\Et& B~ &V^t|  wU  &G5U $ j   E7 w0 wU &    *7 7 7  7 E7  fwBC % e 7dT\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ TYPE UNIT 2UNTIL USES 1VAR WHILE WITH 7 #~& @  7      I?f& 7` #~7 #7 j#7 d 7 $7 h 7 !7 &\ vw J r'(( > zUB~  Ձ@  a a!~F@  B~ ~E `E  AFDeA dWFlRT   mBAɋF!J &.$ffD e  `EՀW  H `E e `&& `& `E e `&Ew5 wDe .CDB@B C& Ο @~  76   ҂ ~ E e ` E   @ ` G7N  e E`E``B~xA EwpwnDwd   '((@`@`( (+m7 ! ~\& \7`H 76 6W ww6 N B  6  ]   P~P~eeNPP  W  ~~eee``!~ eE E7` ~& EEf Bd`n < %  D~ " ~ C~C~ % C~C~cBeί84%@ eAp E D~ D C~ %  D~  ~& AA~E e @`& E&~AA~6% "1, 1,1,^  % ^A %^A&DaefE e @`&AA~E e @`  `` t @L A@@ ¥_09E AZ   C  f eef $ $ $ $ @A eA tBt J@ P ``f~ ``A~ c ҇e  ``&& `  eee >eJ !$'(****AND 'ARRAY ,BEE e @a&&6E e @a&E e @a \GIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .@@`@`$fH@7 `e B~  B~ _FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF 7@` dd&`f&d&b&  m e> ɋ e  r OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO RU@>`F 27 ,55h @wp75   #̋ 7̋4     @  f&\   B -  e \z\D f C_  fW & @&& wU &f&f7 U   0ɝ^& _E7 &&7 B""#L""B"!\ R""` !` ` !2"` 8"""e\\;@\ \N @   =@f&ysE[\BD E` `E@% e`7  U%dd ECIw rD  5 pCf&f&\% a @w   6 6 &  f 6A  v  6N\z\7}W# ͋d 5 MUL@U7 >w" PRTV wU  \\ N A f C %C B    \ w  D& &&@7 E@   U@_E7 _ E7 ~CT 49 123 1 ` #D& && 6  A7 ^!#b!\ ##b!#\ ###"&$"` "` "` "` "# e\ \S\(@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNm1719 SYMONS,GEORGE JAY 43 533 1 7968 TAGARIELLO,BERNARDO CARLO 46 ZZ wUo9?pIrs|ouEw7x߄z @|Η}½  & &&Z &7 .b:7 4b7 4bD7   L _&4?ŀ -/ -Z zv -Zx x ` VtLb7 \Lb6 \ = "  \m\  W  m e>5` b_XD LH $<7 6E7 _Z7  E7 U@ \_e w5 5@ \ɋE 5\\\wvr@p@&^%LN wU  E@ e ]& 7 7 7ߐ2j`tjr J wU &f&f7 N 7  | t ~"w d    X N wK w: 7 ,* $? U@U   8ɝ^& _E7 ~N)˵'ӵU$ aC  _E7 wf U?  E7 ez\& Dr)&&\ `  7Bw|7* iU? ~zw ^x O 5 7  h   5@5@7 X\ ` ! ! !" "` "` "` "` !"!"` !" !T!f&\  \5@ 7RB z @% eC % C ``` e5 ̋̋ 2@& \\r1@\[?\ ew & ?U?*@ڪAD C %    [0..29] OF CHAR; $COLLEGE: PACKED ARRAY[0..3] OF CHAR; $MAJOR: PACKED ARRAY[0..3] OF CHAR; $FILLER2: PACKED ARRAY[0..3] O wE7 w'?~ *04<r~ " . : B F P T    & F CHAR; $LEVEL: PACKED ARRAY[0..1] OF CHAR; $FILLER3: PACKED ARRAY[0..13] OF CHAR; "END; "NAMES=ARRAY[0..2] OF REC; "SHORTLF h z   : R l>t t t t t t  J \ r d(  "*06NTd ln: @ Bpt$*06<BIST=STRING[8];   SEGMENT FUNCTION LISTMAKER(FID1,FID2:SHORTLIST; FIELDLIST:REC):INTEGER;  VAR FILE1,FILE2:FILE OF REC; $Z,QHNTZ`flrx~ ```XaX@ t@ 2%`z < J  h  @ @FCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!,*eeee e  _ 6_ 8/efAA" e e& >   Ee7 >~N EE7- @$@$@$@" EB~w7&  G 7w pr UNIT3E  X&7 ~ ~%% 7 v!~\7 v!~``WtB  aBE B<   e& @7 ` $#e\V$f& \:יc&>X4%]@& & & & & D&&D&&  &E7 5@up7w j7w 7 Nbw \-@T a @%7 r!$  IA e e@ e& & & & & D&&e #@ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  @6 7 !&%6 6 #?%-0 @ ׳f&& @׳@f&7 "\ %  E7 w0 wU &    *7 7 7  7 E7 \ !%f&f&7 l"%"` "` "` "` "` ` %` #%   \&f& \ e\>:L]L?ƪ 7 E7 tv wU W J7 H7 F BZ E@ &?  @ \fEA#& e@ & f& f& f7 !` 4& ff w   &@& &w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $  > zUB~  Ձ@  a a!~F@  B~ ~E `E  AFDeA dWFlRT   mBAɋF!J &.$ffD e  `EՀW  H `E e `&& `& `E e `&Ew5 wDe .CDB@B C& Ο @~  76   ҂ ~ E e ` E   @ ` G7N  e E`E``B~xA EwpwnDwd   '((@`@`( (+m7 P ~\& \7`H 76 6W ww6 N B  6  ]   P~P~eeNPP  W  ~~eee``!~ eE E7` ~& EEf Bd`n < %  D~ " ~ C~C~ % C~C~cBeί84%@ eAp E D~ D C~ %  D~  ~& AA~E e @`& E&~AA~6% "1, 1,1,^  % ^A %^A&DaefE e @`&AA~E e @`  `` t @L A@@ ¥_09E AZ   C  f eef $ $ $ $ @A eA tBt J@ P ``f~ ``A~ c ҇e  ``&& `  eee >eJ !$'(****AND 'ARRAY ,BEE e @a&&6E e @a&E e @a \GIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .@@`@`$fH@7 `e B~  B~ _FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF 7@` dd&`f&d&b&  m e> ɋ e  r OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TOwN EC~ B~U f &7 8!~  eN :@ 8NE LU@tfwBC % e 7dT\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~7`.~BE B @Wtw`& B~7  ~& & E N\Et& B~ &     I?f& 7 ~!" e\ \S\ e& @7 "h"e\#f& \:יc&>X4%] TYPE UNIT 2UNTIL USES 1VAR WHILE WITH 7 !~& @  7  wU  L _&4?ŀ -/ -!~7 4"7 "7 7 ~#7 7  7 $\ vw J r'(( zv -x x ` V b_XD LH $<7 6E7 _(@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNm7  E7 U@ %LN wU  E@ e ]o9?pIrs|ouEw7x߄z @|Η}½  & &&Z &7 .b:7 4b7 4bD7 & 7 7 7ߐ2 7  | t ~"w d    X N wKtLb7 \Lb6 \ = "  \m\  W  m e>5` w: 7 ,* $? U@ _E7 wf U?  E\_e w5 5@ \ɋE 5\\\wvr@p@&^7 ez\& Dr)&&\   5@5@7 X ~ !!!!!j`tjr J wU &f&f7 Nv!!! f&\  \& \\r1@\[?\ ew & ?U?*@ڪAU   8ɝ^& _E7 ~N)˵'ӵU$ aC D C %     @  f&\   B -  e \z `  7Bw|7* iU? ~zw ^x O 5 7  h\D f C_  fW & @&&&&7  !! v! ~ !!~ ~  !`F 27 ,55h @wp75   #̋ 7̋4  f 6A  v  6N\z\\\ N A f C %C B   PRTV wU  E@   U@_E7 _ E7  \ w  D& &&@7 @"D& && 6  A7 ^~ " "" " """!"!!!!  _ 6_ 8/efAA" e e& >   Ee7 >*~N EE7- @$@$@$@" EB~w7&  G 7w pr0there is something wrong with the TESTER progr X&7 ~%% 7  ~\7  ~``WtB  aBE B<  am&E7 5@up7w j7w 7 Nbw \-@T awN EC~ B~U f &7 8 ~  eN :@ 8NE LU@tzE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ 7`.~BE B @Wtw`& B~7 &~& & E N\Et& B~ &@& & & & & D&&D&& @%7 r~ D#  IA e e@ e&   E7 w0 wU &    *7 7 7  7 E7 & & & & D&&e #@  @6 7 ~ #6 6 #?%-0 @  7 E7 tv wU W J7 H7 F BZ E@ &?  ׳f&& @׳@f&7 ! l$ ~ 4$f&f&7 l!v$!!!!!$!h$   \$w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 ~ $ ff wE7 w'?~ *04<r~ " . : B F P T    &  w   &@& .% ̅5A you will be given 4 different cases, they are numbered 0 thF h z   : R l>t t t t t t  J \ r d(  "*06NTd ln: @ Bpt$*06<Bru 3ʅ5ʅ8ʅ5 ʅ5̅5̅9̅:TROS[10]YRAN[10]ƅ; ̅9ʅ:ʅ9̅8ʅ8L/ HNTZ`flrx~ ``@  @ `XaX N$`bXcXz < J  h  @ @ 2COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!ȡeeee e  E e @`&AA~E e @`  `` t @L A@@ ¥_09E AZ   C  f eef $ $ $ $ @A eA tBt J@ P ``f~ ``A~ c ҇e  ``&& `  eee >eJ !$'(****AND 'ARRAY ,BEE e @a&&6E e @a&E e @a \GIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .@@`@`$fH@7 `e B~  B~ _FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF 7@` dd&`f&d&b&  m e> ɋ e  r OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TOfwBC % e 7dT\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ TYPE UNIT 2UNTIL USES 1VAR WHILE WITH 7  ~& @  7      I?f& 7* ~7 P!7 4!7 .7 "7 27 7 #\ vw J r'(( > zUB~  Ձ@  a a!~F@  B~ ~E `E  AFDeA dWFlRT   mBAɋF!J &.$ffD e  `EՀW  H `E e `&& `& `E e `&Ew5 wDe .CDB@B C& Ο @~  76   ҂ ~ E e ` E   @ ` G7N  e E`E``B~xA EwpwnDwd   '((@`@`( (+m7 l ~\& \7`H 76 6W ww6 N B  6  ]   P~P~eeNPP  W  ~~eee``!~ eE E7` ~& EEf Bd`n < %  D~ " ~ C~C~ % C~C~cBeί84%@ eAp E D~ D C~ %  D~  ~& AA~E e @`& E&~AA~6% "1, 1,1,^  % ^A %^A&Daef \_e w5 5@ \ɋE 5\\\wvr@p@&^ew & ?U?*@ڪAD C %     @  f&\   j`tjr J wU &f&f7 NB -  e \z\D f C_  fW & @&&&&7   & **** X eU   0ɝ^& _E7 NBD E` `E@% e\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w `7  U%dd ECIw rD  5 7}W# ͋d 5 MUL  6 6 &  f 6A  v  6N\z\\\ N A f C %@U7 >w" PRTV wU  E@   U@_EC B    \ w  D& &&@7 *\!D& && 6  A7 ^!,&!!,!7 _ E7 ~);  IF Q=3 THEN (BEGIN *CLOSE(FILE1,LOCK); *CLOSE(FILE2,LOCK); *DELETE:=TRUE; (E&!!! ! * * * * ! e\ \S\ e& @7 *!!e\ "fND &ELSE (BEGIN *CLOSE(FILE1,LOCK); *CLOSE(FIL$$ wU  L _&4?ŀ & \:יc&>X4%]@& & & & & D&&D&& @%7 r`"  IA e -/ -$ zv -$x x ` V b_XD LH $<7 e@ e& & & & & D&&e #@  @6 7 "6 6 6E7 _$7  E7 U@ %LN wU #?%-0 @ ׳f&& @׳@f&7 &#&P#f&f&7 l # * * * * **#* E@ e ]& 7 7 7ߐ2 7  | t ~"w d   #   \#f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 *#(@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNm  X N wK w: 7 ,* $? U@ _E7 wf U?o9?pIrs|ouEw7x߄z @|Η}½  & &&Z &7 .b:7 4b7 4bD7   E7 ez\& Dr)&&\   5@5@7 X&*tLb7 \Lb6 \ = "  \m\  W  m e>5`  * * * *  * f&\  \& \\r1@\[?\   ff w   &@& J$ b̆b ̆dTROS[11]YRANS[3]Ɔg ̆cʆdw U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ʆc̆ʆL/ We do not agree on the number of records foundʆdʆc ʆdʆc ̆ʆbʆ Exce wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6 llentئ8 good job on the count the number of matching items quizPƅ3ƁOƂƃK ,V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B ,*(  ƃ ƃƅ ƆaƆ` Ɔeʆ`̆̆bA you will be given 4 different cases, theyHNTZ`flrx~ ```pap@ p@`8ra8r *`b8rc8r L Z   x  @ @COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK H_?HEB?<963 0"-$*&'($*!Oeeee e  _ 6_ 8/efAA" e e& >   Ee7 T !N EE7- @$@$@$@" 0EB~w7&  G 7w pr0there is something wrong with the TESTER progr n&7 #%% 7 %\7 %`` B  aBE B< am&E7 5@up7w j7w 7 Nbw \-@T a wN EC~ B~U f &7 J&  eN >@ <VE LU@ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  7`2~BE B @ w`& B~7 !& & E N\E   E7 w0 wU &    *7 7 7  7 E7 & B~ & > UB~  Ձ@  a a!~F@  B~ ~E 7 E7 tv wU W J7 H7 F BZ E@ &?   `E `EՀW   `E e `&& `& `E e ` m*~@ Bm~      I7 '& @  7 !'7 '7 h'7 f"7 (7 j"7 $7 *\ vw J r'?f& 7z  AFZeA NWFleJ !$'(****AND   E e @a&&6E e @a&E e @a 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5 \vl@@`@`$fH@7 `e B~  B~ _FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 7@` dd&`f&d&b&  m e> ɋ 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPAe  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ BRATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH  e5 ̋̋ 2@RU@>`F 27 ,55h @wp75      A C v %\w @    0  @  @ w   & Dr)&&#̋ 7̋4 R* wU &f&f7 .U   0\   5@5@7 T!" !###&""""& !& !& !& !#%#& !"#&"#V#f&\  ɝ^& _E7 .BD E` `E@% e`7  U%dd \& \\r1@\[?\ ew " ?U?*@ڪAD C % ECIw rD  5 7}W# ͋d 5 MUL@U7 >w"     @  f&\   B -  e \&f  & N & . ) PRTV wU  E@   U@_E7 _ E7 ~  v     C 6  %%    w 6 6 %   Dv  \ Ɓ|Ƃ ̂̂0&Ɓ|+"áƁ|̂ʁ|̂ʂʢ$ ʂ̂ʂʢ( ʂ̂  0e%6  6  E v v ·ͅ%\ @       D f Cx7 JxZ7 tbx7 \bx6 \ = "  \m\  ʂʢ0 ʂ wU  L _&4?ŀ -/ - zW  m e>5`\_e w5 5@ \ɋE 5\\\&  v -x x ` V b_XD LH $<7 6E7 _     B  BB`   & $   @ B  B`  7  E7 U@ %LN wU  E@ e ]&     <t,*v  7 7 7ߐ2 7  | t ~"w d    X N wK  wU &f&f7 U   8ɝ^& _E7 ~)w: 7 ,* $? U@ _E7 w f U?  E7 ˵'ӵU$ aC  `  7Bw|7* iU? ~zw ^x e&&   v |N v  6 6  hv  `  O 5 7  h5@ 7RB z @% eC % C ```  @ (%.% D %e% e @ D   mm@ 0   \\ N A f C %C B    \ w  D& &&@7  _ 6_ 8/efAA" !'D& && 6  A7 ^#'d#!''d#'!'''&$(& !& !& !& !&' e\ \S\w7&  G 7w prCARSON,JOHN MONTGOMERY 43 246 2  e& @7  !('e\T(f& \:יc&>X4%]@& & & & & D&&D&& 0832 &E7 5@up7w j7w 7 Nbw \-@T a@%7 r#(  IA e e@ e& & & & & D&&e #@ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  @6 7 #$)6 6 #?%-0 @ ׳f&& @׳@f&7 &!)!  E7 w0 wU &    *7 7 7  7 E7 #)f&f&7 l&)& !& !& !& !& ! !) !')   \*f& \ e\>:L]L?ƪ@ 7 E7 tv wU W J7 H7 F BZ E@ &?   \fEA#& e@ & f& f& f7 # !2* ff w   &@& ~* w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $84 SCHARLIN,DEBORAH MONA 46 391 3 2625 SCHWARTZ,BARRY MICHAEL 46 000 2  wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6 7798 SENSIPER,DAVID 46 666 2 8312 SIMONSON,KURT ANDREW 43 246 2 V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B_  fW & @&&&&7 Z%&'d%%Z%#!j%& !# ! !#J% !P%&%e\\;@\ \N @   2114 SUMERLIN,ELIZABETH WELLS 43 184 3 0132 TADDEO,ANITA MARIE 46 000 2 =@f&ysE[\pCf&f&\% a @w   6 6 &  f 6A  v 0)`x`  6N\&f f & G   v  76   p  d deA @ A @ COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD%  A @ 6v %\%    w    `@ `  ` `   H_?  L Z   x  @ @&~AA~E e @`&AA~E e @`  `` B~ @Lf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK A@@A  ~ J@ P ``f~ ``A~ c ҇e  ``&& ` HEB?<963 0"-$*&'($*!MEUSeeee e   E e @a&&6E e @a&E e @a e e& >   Ee7 TN EE7- @$@$@$@" 0EB~ \vl@@`@`$fH@7 `e B~  B~ _ n&7 "%% 7 $\7 $`` B  aBE B< 7@` dd&`f&d&b&  m e> ɋ  wN EC~ B~U f &7 J$  eN >@ <VE LU@ e  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ B 7`2~BE B @ w`& B~7 & & E N\E m*~@ Bm~      I& B~ & > UB~  Ձ@  a a!~F@  B~ ~E?f& 7z  AFZeA NWFl5`\_e w5 5@ \ɋE 5\\\&  w d    X N wK w: 7 ,* $? U@ _E7 w^f U     B  BB`   & $   @ B  B`  ?  E7 e&&   v |N v  6 6  hv eAp6% "1, 1,1,^  % ^A %^A    <t,*v &Daef ¥_09E AZ   C  f ee| $ wU &f&f7 U   8ɝ^& _E7 ~) $ $ $ @A eeee >eJ !$'(****AND ˵'ӵU$ aC  `  7Bw|7* iU? ~zw ^x  'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5O 5 7  h5@ 7RB z @% eC % C ``` FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD e5 ̋̋ 2@RU@>`F 27 ,55h @wp75   'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPA#̋ 7̋4 RPRTV wU  E@   RATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH U@_E7 _ E7 ~ OF CHAR; $MAJOR: PACKED ARRAY[0..3] OF CHAR; $FILLER2: PACKED ARRAY[0..3] O7 %& @  7 %7 2&7 &7 !7 |'7 !7 #7 (\ vw J r'F CHAR; $LEVEL: PACKED ARRAY[0..1] OF CHAR; $FILLER3: PACKED A wU  L _&4(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'e?ŀ -/ -@ zv -@x x ` V b_XD LHxfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &(&&D &7 DxP7 J $<7 6E7 _7  E7 TU@ %LN wx7 JxZ7 tbx7 \bx6 \ = "  \m\  U  E@ e ]& 7 7 7ߐ2 7  | t ~"! \;@\ \N @   =@f&ysE[\pCf&f&\% a @w   COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD6 6 &  f 6A  v  6N\&f f & G   v  76   H_? p  d deA @ A @ %  A @ 6v %\%    w    _ 6_ 8/efAA" `@ `  ` `  \\ N A f C %C B    w7&  G 7w prFOREMAN,MARK ELLIOTT 46 780 3 \ w  D& &&@7 >&D& && 6  A7 ^"&"&&"&&&&$&$$$$$7337 &E7 5@up7w j7w 7 Nbw \-@T a `   @ (%.% D %e% e @ D & e\ \S\ e& @7 &f&e\'f& \:יc&>X4%]@  mm@ 0     A C v %\w @    0  @  @& & & & & D&&D&& @%7 r"B'  IA e e@ e& &  w   & Dr)&&\   5@5@7 T!"!!$!!!!$$$$& & & D&&e #@  @6 7 "'6 6 #?%-0 @ !$!$!$!"f&\  \& \\r1@\[?\ ew " ?U?*@ڪ׳f&& @׳@f&7 $j("2(f&f&7 l$t($$$$$(%f(   \(AD C %     @  f&\   B -  e \f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 "( ff &f  & N & . )   v     C 6  %%   w   &@& ,)  4 7869 BERKIHISER,MICHAEL KENNETH 52 201 3  w 6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @   6512 BIRD,JOHN NATHAN 43 533 3 9484 BRENNER,MARTIN 43 246 1     D f C_  fW & @&&&&7 $$%$$$"$$""##$T$e\ L(`|" V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B 6 E E7` ~& EEf Hd`n < % HNTZ`flrx~ ``@ d:@X`<a< D~ " ~ E D~ D C~ %  D~  ~& AA~E e @`& Eb<c< L Z   x  @ @&~AA~E e @`&AA~E e @`  `` B~ @Lf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK A@@A  ~ J@ P ``f~ ``A~ c ҇e  ``&& ` HEB?<963 0"-$*&'($*!AY eeee e   E e @a&&6E e @a&E e @a e e& >   Ee7 TN EE7- @$@$@$@" 0EB~ \vl@@`@`$fH@7 `e B~  B~ _ n&7 !%% 7 #\7 #`` B  aBE B< 7@` dd&`f&d&b&  m e> ɋ  wN EC~ B~U f &7 J#  eN >@ <VE LU@ e  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ BzE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@  7`2~BE B @ w`& B~7 & & E N\E   E7 w0 wU &    *7 7 7  7 E7 & B~ & > UB~  Ձ@  a a!~F@  B~ ~E 7 E7 tv wU W J7 H7 F BZ E@ &?   `E `EՀW   `E e `&& `& `E e `w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $&EՀ~  7F   ҂ ~ E e ` E   @ ` wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6  G7N 7 n! \& \7`H 7F 6W wwF N B # ffD e w5 wDe6DCZB@B CxfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &(&&D &7 DxP7 J& Ο @ e E`E``B~bA EwZwXDwN   '((@`@`( x7 JxZ7 tbx7 \bx6 \ = "  \m\  (+m ]   P~P~eeNPP  W  ~~eeeW  m e>5`\_e w5 5@ \ɋE 5\\\&  ``!~ e C~C~ % C~C~c,eί"%@      B  BB`   & $   @ B  B`  eAp6% "1, 1,1,^  % ^A %^A    <t,*v &Daef ¥_09E AZ   C  f ee| $ wU &f&f7 U   0ɝ^& _E7 BD $ $ $ @A eeee >eJ !$'(****AND  E` `E@% e`7  U%dd ECIw rD  5 7}W# 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5 ͋d 5 MUL@U7 >w" PRTV wU  E@FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD    U@_E7 _ E7 ~'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPA CCC CCC  CCCCCCCCCCCCCCC wU  RATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH L _&4?ŀ -/ -\ zv -\x x ` V bm*~@ Bm~      I7 $& @  7 $7 N%7 2%7 0 7 &7 4 7 "7 '\ vw J r'?f& 7z  AFZeA NWFlX4%]@& & & & & D&&D&& @%7 r!^&  IA e 0  @  @ w   & Dr)&&\   5@5@7 T !e@ e& & & & & D&&e #@  @6 7 !&6 6 # # #### # # #  !f&\  \& \\r1@\[?\?%-0 @ ׳f&& @׳@f&7 #'!N'f&f&7 l#'#####'$ ew " ?U?*@ڪAD C %     @  f&\  '   \'f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 !' B -  e \&f  & N & . )   v     C  ff w   &@& H( ORESULT=0 THEN $BEGIN &REPEAT (SEEK(FILE1,PTR); 6  %%    w 6 6 %   Dv   0e%6  6  E v v ·ͅ(GET(FILE1); (FOR I:=0 TO 2 DO *IF NEWPEOPLE[I]=FILE1^ THEN Z:=Z+1; (SEEK(FILE1,PTR); (PUT(FILE1); (PTR:=PTR+1; &UNTIL EO%\ @       D f C_  fW & @&&&&7 $##$.##$#!4##F(FILE1) OR (Z>0); &IF Z>0 THEN (ADDON:=FALSE &ELSE (BEGIN *FOR I:=0 TO 2 DO ,BEGIN .SEEK(FILE1,PTR); .FILE1^:=NEWPEOPLE%   Iz5 >jr Formatting...1צINVALID FORMAT RESULT!PצFormatting completePצ Disk unusablePpצ!Operation failed, disk not harmedPFצ.Error during formatting, poss&UT4 :5x $4 0̋̋ ̋P  h  Formatter (by UPCS)צ?A program for formatting floppy disks using the DEC RX02 drive,% eC % C ``` eߋt_v @ @ 7 ?NOT ENOUGH CORE TO BOO? 8D"> @ @ @ @ Ee 7w e ` E Pc ˋ B`B`7 ?IO E@RDFHJLNPRTVXZg^u U@peDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ 쓡Format disk in drive #1 צ as (single double '0  e.4ߋt_v @ @ 7 ?NOT ENOUGH4 CORE TO BOOT?  4.48DԤdensity?   Formatting...1צINVALID FORMAT RESULT!P eeW @.57 ?YOU DON'T HAVE A  U.B5844 l4 v4 p.hצFormatting completePצ Disk unusablePpצ!Operation failed, disk not harmedPFצ.Error during formatting, poss57 SYSTEM.PASCAL? wL7p SYSTEM..5PDP-11? B A f8 .5r f5 7 ?Yible invalid diskPlD1ádPlace system disk in drive 0Press to continue á uw^Z U Uxɵ ɵ& H^ used on either a single or /double density disk, in either drive 0 or drive 1. It /will not work for RX01 systems! Only RX02!<' , ,2) LSI.DY -- Interpreter with RX02 driver. /The RX02 driver will read/write either single or double /density diskettes with full user transparency. The only /visible difference is the vastly improved system /performance with double density disks, and the doubled /storage capacity (988 blocks vs. 494). ,3) LSI.SML.DYLP -- Smaller interpreter. /This interpreter is significantly smaller than LSI.DY /due to exclusion of the REMOTE driver and of floating /point routines. / ,4) LSI.SMALL.DY -- Smallest interpreter. /This is like the above only smaller still through the /exclusion of the printer handler. / ,5) LSIEIS or LEIS prefixes. /Interpreters similar to the ones described above are Ԥ eeW @7 ?YOU DON'T HAVE A  U 844 7 SYSTEM.PASCAL? wL7| SYSTEM.PDP-11? B A f8 t h5 7 ?YOUR SEGTBL IS RIDICULOUS? 8  % % % %Dear RX02 user: %The software you have received, in addition to your standard UCSD %Pascal releas-X8`d d 7b V6 5 xߋz\@ 8 6e package, includes the bootstrap and a number of %interpreters for various configurations. All files are stored on %your "InU@fe C6U@p & terpreters" disk. In addition, the bootstrap is %installed on your system disk along with the interpreter PDP.DY, %which should boot on almost any PDP-11/LSI-11 RX02 configuration.  %Your new files are: / ,1) DYBOOT -- RX02 bootstrap. /This bootstrap program is stored on the "Interpreters" /disk, as well as being in the bootstrap position of the /system disk. It may be'  will /utilize the RX02's powerful capability to format either /single or double density diskettes. The program is self- w7&  G 7w8pr/prompting and [nearly] fool-proof. Just remember, /formatting a disk means destroying any data already /there. The file &E7 5@uPp7w j7w 7 `bw \-@T ais shipped on the "Interpreters" disk. / zE z3F E@ nh f9XF?X E@F F-B78?2 .~7E@U@   E7 w0 wU &    07 7 7  7 E7 "7 E7 *tv JwU W 7 07 . *f E@ &?  w U@w( J B & ^ T7 N 6 0~ w  ?  "U@  wE7 wP?~ xZflpt2 R V b n r v & * > J L R n :  < f ~ f   > r P&,2JRX^v|B b h zNTZ`flrx~&.6>F P&x~```a@`R2 `abc d r 6 &  /included which assume the presence of the EIS/FIS chip /with the LSI-11. / ,6) PDP prefixes. /These interpreters are "vatCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDnilla flavored" and will work /with any (including LSI) version of the PDP-11. The /interpreter installed as SYSTEM.PDP-11 o H_?n the system /disk is PDP.DY. / ,7) FORMAT.CODE -- Disk formatter utility. /Included as a bonus, this handy utility program _ 6_ 8/efAA"P(  @ @f ~f{fxfufrfoflfif t @L, A,@@A tBt J@ PP ``f~ ``A~ c ҇e  ffcf `f"]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$*&``&& `  E e @a&&6E e @a&'($*!7 eeee e  e e& z   EezN EEE e @a \dPZ@@`@`$fH@7 `e B~  B~P _7-x @$@$@$@" EB~ Z&z%% 7 #\7 #``7@` dd&`f&d&b&  m ezWtB  aBE B< P  wN EC~ B~U f &z  e ɋ e  rfwBC % e 7d,\ Aɋ BJ@ BN 8@ 6NE L.U@t7`.~BE ,B @Wtw`& B~Pz& m8~@ Bm*~@ Bm~    & E N\ Et& B~ & > vUB~  Ձ@  a a!~F@   I?zf& 7h  AFleA P<WFl*T   mAɋFB~ ~~PE `E `EՀW  V `E e `&& `& !" &.ffD e w5 wDeHPVCPlB@B `E e `&EՀ~P  7b   ҂ ~P E e `  PCxx& Οp @ e E`E``B~PA EwHwFDw< 0  '(E   @ ` G7z   7H 7b 6W w{b N B(@`@`( (+m ]   P~P~eeNPP  W  ~~e  P6 E E7 ~P& EE Bd`nPee``!~ e C~C~ %P C~C~ceί x %  D~ " ~ E D~ D C~ %  D~  ~& PAA~E %@ eAp6% "1, 1,1,^  % ^A % e @`& E&~AA~E e @`&AA~E e @`  ``^A&Daef ¥_09E AZ   C   ) \\\wvr@p@N&>< &2 &:?ŀ -5 -D  -~Dt t n  d R_  wU  &G5U $ j d V=U5 @7 "f&HF <8 &,7 &E7 _< 7 E7 E7 ~ U@fx W 5&5  5 E L5 - \ VwUL%  % ez\& Dr)&&\   5@5@7 X .! "D!D!4#!$!$!$!4# 4#f ee $ $ $ $ @A eeee >eJP !eC % C ``` e  P̵ >@55EM NU] > 5$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END U5 5@5 w``  @5 4E.7 *w_Copyright(c)1980 EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LA C Chapin wU &f&f7 U   0ɝ^& _EBEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *7 BD E` `E@% e`7  U%dd ECIw rD SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH  5 7}W# ͋d 5 MUL@U7 >w" LN w 7 P#& @  z7 P#7 #7 #7  7 %7  7  "7 @&\ vw JU  E@ e ]& 7 7 7ߊ2 7 | v n ~"P r'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\w ^    X H wE w4 7 &$ ?U@  _E7 wf U^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &:&82 &7 ? " E7 <PRTV { fwU  EVb7 \7 \l7 tt7 \t6 \ F "  \m@  U@ _E7 _ MUL@U7 >w" LN w\  W  m ez5`\_e w5 5@ \ɋE 5U  E@ e ]& 7 7 \wU  R _* c&>X4%]@& & & & & D&&D&& @%7 r"$  IA e e@ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ e& & & & & D&&e #@  @6 7 "^%6 6 #?%-0   E7 w0 wU &    *7 7 7  7 E7 @ ׳f&& @׳@f&7 4# % "%f&f&7 l4#&4# 4# 4# 4# 4# & B#%   \ 7 E7 tv wU W J7 H7 F BZ E@ &?  <&f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 " l& ffw U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ w   &@& & @%7 r"$  IA e e@  wE7 w'?~ *04<r~ " & 2 > F J T X  " . 0 6 e& & & & & D&&e #@  @6 7 "^%6 6 #?%-0 V x   J b T  & Z l z> 8@FLdjz0 J P B$*06<B 4# 4# 8!#N!4# X!4#X!!f&\  \& \\r1@\[?\ ew & ?U@ ׳f&& @׳@f&7 4# % "%f&f&7 l4#&4# 4# 4# 4# 4# & B#%   \?*@ڪAD C %     @  f&\   B -   (`e \z\D f C_  fW & @&&&&7 z"4#P#"#z"" "4# " "j" p"4#"e\\;jCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD@\ \N @   =@f&ysE[\pCf&f&\% a @w   6 6  H_?&  f 6A  v  6N\z\\\ N A f C %C B  _ 6_ 8/efAA"   \ w  D& &&@7  #D& && 6  A7 ^"$! &$$!0$ 6$$$4#^$4# 4#w7&  G 7w pr 4# 4# 4#$ e\ \S\ e& @7  N$#e\$f& \:י&E7 5@up7w j7w 7 Nbw \-@T a+  e e& >   Ee7 TN EE7- @$@$@$@" 0EB~ \vl@@`@`$fH@7 `e B~  B~ _ n&7 h!%% 7 v#\7 v#`` B  aBE B< 7@` dd&`f&d&b&  m e> ɋ  wN EC~ B~U f &7 J#  eN >@ <VE LU@ e  rfwBC % e 7d>\ Aɋ BJ@ Bm8~@ B 7`2~BE B @ w`& B~7 & & E N\E m*~@ Bm~      I& B~ & > UB~  Ձ@  a a!~F@  B~ ~E?f& 7z  AFZeA NWFleJ !$'(****AND  W 5&5  5 E L5 - \ VwUL% eC  'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5% C ``` e  P̵ >@55EM NU] > 5U5 FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 5@5 w``  @5 4E.7 *w_Copyright(c)1980 C Chapin'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPA wU &f&f7 U   0ɝ^& _E7 RATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH BD E` `E@% e`7  U%dd ECIw rD  5 77 $& @  7 $7 %7 $7 7 d&7  7 "7 '\ vw J r'}W# ͋d 5 MUL@U7 >w" LN wU  (((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'eE@ e ]& 7 7 7ߐ2 7  | t ~"w d    xfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &(&&D &7 DxP7 JX N wK w: 7 ,* $? U@ _E7 wvf U? x7 JxZ7 tbx7 \bx6 \ = "  \m\   E7 e&&   v |N v  6 6  hv  `W  m e>5`\_e w5 5@ \ɋE 5\\\&     @ (%.% D %e% e @ D   mm@      B  BB`   & $   @ B  B`  0     A C v %\w @    0  @  @ w   eAp6% "1, 1,1,^  % ^A %^A    <t,*v   - \ \S\ e& @7 %N%e\%f& \:יc&>X4%]@& & & & & D&&w7&  G 7w prD&& @%7 rh!*&  IA e e@ e& & & & & D&&e &E7 5@up7w j7w 7 Nbw \-@T a& Dr)&&\   5@5@7 T h! #z #### v# # #  #@  @6 7 h!&6 6 #?%-0 @ ׳f&& @ f&\  \& \\r1@\[?\ ew " ?U?*@ڪAD ׳@f&7 #R'h!'f&f&7 l#\'#####x'$N'   \'f& \ eC %     @  f&\   B -  e \&f  & N & .\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 h!' ff w   &@ )   v     C 6  %%    w 6 6 %& ( @%7 rh!*&  IA e e@ e& & & & & D&&e    Dv   0e%6  6  E v v ·ͅ%\ @        #@  @6 7 h!&6 6 #?%-0 @ ׳f&& @D f C_  fW & @&&&&7 "#$"v#"h!##h!h!""#<#e\\;@\ \׳@f&7 #R'h!'f&f&7 l#\'#####x'$N'   \'f& \ eN @   =@f&ysE[\pCf&f&\% a @w   6 6 & \>:L]L?ƪ@ \fEA#& e@ & f& f& f7 h!' ff w   &@ f 6A  v  6N\&f f & G   v  76   p  8&` d deA @ A @ %  A @ 6v %\%    w    `@ `  `&COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD `  \\ N A f C %C B    \ w  D H_?& &&@7 &%D& && 6  A7 ^h!x% %x% %%x%x%#%#####j% e _ 6_ 8/efAA". f ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NK ``f~ ``A~ c ҇e  ``&& `  EHEB?<963 0"-$*&'($*!eeee e  e @a&&6E e @a&E e @a \@ e e& >   EezN EE7- @$@$@$@" EB~ @`@`$fH@7 `e B~  B~ _H&z%% 7 |"j\7 |"j``WtB  aBE B<  w7@` dd&`f&d&b&  m e> ɋ e  rfwBC N EC~ B~U f &z  eN 8@ 6NE LU@t7`.~B% e 7dh\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ zE z3F E@ nh f9XF?X E@F F-BD78?2 .~7E@U@ E B @Wtw`& B~z& & E N\Et& B~ & >  E7 w0 wU &    *7 7 7  7 E7  vUB~  Ձ@  a a!~F@  B~ ~E `E ` 7 E7 tv wU W J7 H7 F BZ E@ &?  EՀW  D `E e `&& `& `E e `&EՀ~ w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ 7&   ҂ ~ E e ` E   @ ` G7Nz   wE7 w'?~ *048nz  & 2 6 : D H      7`H 7& 6W w{& N B  6 E E2 X j ~ * B X*d d d d d d  6 H ^ P ":@P XZ& , >\`$*06<B7` ~& EEf Bd`n < %  D~ " ~ E D~ DHNTZ`flrx~ ```<4a<4@``LaL C~ %  D~  ~& AA~E e @`& E&~AA~E e @`&bLcLj ( 6 T z l  @ @AA~E e @`  `` t @L A@@A tBt J@ P/ C~ % C~C~cVeίLH%@ eAp6%V^t|  wU  &G5U $ j  "1, 1,1,^  % ^A %^A&Daef ¥_09 d V=U5 @7 "f&fx W 5&5  5 E L5 E AZ   C  f eeR $ $ $ $ @A eeee - \ VwUL% eC % C ``` e  P̵ >@5>eJ !$'(****AND 'ARRAY ,BEGIN CASE 5EM NU] > 5U5 5@5 w``  @5 CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTI4E.7 *w_Copyright(c)1980 C Chapin> wU &f&f7 BU ON GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PA   0ɝ^& _E7 BBD E` `E@% e`7 CKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE  U%dd ECIw rD  5 7}W# ͋d 5 MUL@U7 UNIT 2UNTIL USES 1VAR WHILE WITH 7 "j& @  z7 "j7 :#7 >w" LN wU  E@ e ]& 7 7 7ߐ    I?f& 7  AF#7  7 $7  7 !7 %\ vw J r'(((@0eA xWFlfT   mVAɋF!^ &.8ffD e w5 wDe BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ou C0B@B C& Ο @ e E`E``B~Ew7x߄z @|Η}½  & &&n &7 N&t7 Nt7 N0t7 t8NA EwwDwx   '((@`@`( (+m ]  t7 \8Nt6 \ = "  \m\  W  m e>5`\_e w P~P~eeNPP  W  ~~eee``!~ e C~5 5@ \ɋE 5\\\wvr@p@JVL`0 wU  E@  U@ _E7 _͋d 5 MUL@U7 & & & & & D&&e #@  @6 7 !$6 6 #?%-0 @>w" LN wU  E@ e ]& PP wU   ׳f&& @׳@f&7 " r% !:%f&f&7 l"|%" " " " "  % "n%   \L _&4?ŀ -/ -P  -Pz z z p d%f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 ! % ff_Z^ NJ >>67 8E,7 (_P7  E7 E7  U@ w   &@& 4& @%7 r!J$  IA e e@ e %ez\& Dr)&&\   5@5@7 X  ! " " " "& & & & & D&&e #@  @6 7 !$6 6 #?%-0 @ " |" " " !f&\  \& \\r1@\[?\ ew & ?U? ׳f&& @׳@f&7 " r% !:%f&f&7 l"|%" " " " "  % "n%   \*@ڪAD C %     @  f&\   B -  e%f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 ! % ff \z\D f C_  fW & @&&&&7 !"""|"!! "" !  !! !"B"e\\;@\ V,+z  \N @   =@f&ysE[\pCf&f&\% a @w   6 6 & 0COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD f 6A  v  6N\z\\\ N A f C %C B   H_?  \ w  D& &&@7  F#D& && 6  A7 ^!#! ##!# ###"#" " " _ 6_ 8/efAA"V2 7  | t ~"w d    X N wK w: 7 ,* $? U@ " "# e\ \S\ e& @7  #n#e\ $f& \:יc&> _E7 w4f U?  E7 PRTV x X4%]@& & & & & D&&D&& @%7 r!J$  IA e e@ e1 *&'($*!Eeeee e  e e&    Ee7 ! N  E e @a&&6E e @a&E e @a w7&  G 7w:prEE7-n @$@$@$@" fE  &7 2|$ %% 7 & \&E7 5@vVq7w k7w 7 bcw ]-@U a7 & `` B  aBE B<V  wN E   U (f zE z3F E@ nh f:XF?X E@F F-B7 8?2 . 7E@U@r&7 z&   eN @@ >ZE L4U@ 7`6 BE 2B @ w`&   E7 w. wU &    07 7 7  V7 ! & & E N\E &  & > U  7 E7 ~ "7 E7 ,tv LwU W 7 .7 , (g E@ Ձ@  a a! F@    DVE `E `E &?  w U@w& K C & ^ T7 N 6 0W   `E e `&& `& `E e `&EՀ V   w  ?  "U@  wE7 wT?  ~7   ҂  V E e ` E   @ ` G7 7 N$ \& `lrv~  F j n z  *   X \ p ~ J  , v Z B x  @ b r 4LV\7H 7 6W ww N B  V6 E E^~T6  TZ`flrx~$,4<DL7  V& EE dd`z ~ %&  '  " E ```a@4`nN!`abc  x h   D  %    & VAA E e @`& E& AA  @ @f ~f{fxfufrfoflfE e @`&AA E e @`  `:`  @L2 A2ifffcf `f"]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$@@A   J@ PV ``f  ``A  c ҇e 8 ``&& ` 2 ί%@ eAp6% "1, 1,1,^  % ^A   @ B  B`     V R\x 6>%^A&Daef ¥_09E AZ   \^C FNV^fVpv  wU  &G5U $ j d V=U f ee $ $ $ $ @A eeee >eJV 5 @7 "f&fx W 5&5  5 E L5 - \ V!$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE wUL% eC % C ``` e  P̵ >@55EM N\VD@`@`$fH@7$`e    V _END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC7@` dd&`f&d&b&  m e ɋ e3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET   rhfwBC % e 7jb Aɋ  BP@ Bm> @ Bm *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE . @ Bm    h  IWITH $"7 ' & @  7 !' 7 n.(7 n(7 n#7 nx)7 n#7 n%7 n*\ vw? g& 7h  AF|eA VWFlN   mAɋF! &( 4V \'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[ffD e  wl5 wfDeVC:VB@B VC\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & && & Ο @  e E`E`` A EwwDw J  '((@`@`&7 |z67 n`z67 `67 TB`z`z67 <N`z`z66 \ F "  \m( (/m ]   P P eeNPP  W    eV\  W  m e5`\_e w5 5@^j x\ɋEee``!  e#    %V   ce 5\\\&       B  BB`   V& $  3 7 wf U? > E7 XPRTV {     D f C_  fW & @&&&&7 &&'&&&|$!&&!|$!!|$%!%&P&e\wU  E@  U@ _E7 _MUL@U7 >w" \;@\ \N @   =@f&ysE[\pCf&f&\% a @w   LN wU  E@ f ^& 7 7 x wU6 6 &  f 6A  v  6N\&f f & G   v  76    R _&:?ŀ -5 -`   -~` t t n  d p  d deA @ A @ %  A @ 6v %\%    w    !! R_HF <8 &,7 &E7 _X!7 E7 E`@ `  ` `  \\ N A f C %C B    \7 !U@ %!e&&   v |N v  6 6  hv  w  D& &&@7 !:(D& && 6  A7 ^|$($!(($(!(((&(&!&!&!&!&~( `   @ (%.% D %e% e @ D  e\ \S\ e& @7 !(b(e\(f& \:יc&>X4%]@& U] > 5U5 5@5 w``  @5 4E.7 *w  mm@ 0     A C v %\w @    0  @  @ _Copyright(c)1980 C Chapin wU &f&f7 U   0ɝw   & Dr)&&\   5@5@7 T!#!|$##&####&!&!&!&!#^& _E7 BD E` `E@% e`7  U%dd E&#&!#&#$f&\  \& \\r1@\[?\ ew " ?U?*@ڪACIw rD  5 7}W# ͋d 5 MUL@U7 >w" D C %     @  f&\   B -  e \&fLN wU  E@ f ^& 7 7 8ߊ3 7   & N & . )   v     C 6  %%   | v n "w \    X F wC w2 7 $" ?U@  _E w 6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @    4 & \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 |$!* ff w   &@& (+ @%7 r|$>)  IA e e@ e& & & & & D&&e #@  @6 7 |$)6 6 #?%-0 @ & & & & D&&D&& @%7 r|$>)  IA e e@ e& & & & & D&&e #@  @6 7 |$)6 6 #?%-0 @ ׳f&& @׳@f&7 &!f*!|$.*f&f&7 l&p*&!&!&!&!&!!*!'b*   \*f5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L