lʆ &e J Jꅆ8冨凪`ʆ ee` 9E…¥ 9` l'&&&8儨児祂*L2&&*ń8&&L2 ` Fj`hihiHHȱȱLڧ`膥ɠQ-ĮȐ`此į۠ŲLlȄ.70Q- Ġ7`eޠ Ȅ e _ 嘠ƍ iť +иΦ +У +Ж꥾ +ȑȑȑɦȘ 9`5h{DObFIcIFPODdORTOeANDFORTINT"LSHMOD RSHSETDXORBYTE!CARD#CHAR ELSEaEXITSFUNCAPROCBSTEPfTHEN`TYPEFARRAY@UNTILXWHILEQDEFINE&ELSEIFjMODULEWRETURNRINCLUDECPOINTEREiI^I^Lࢠ]I^+ 8+ _0)?ʈ LbACTION! (c)by Paul Lee Computer Services (PCS) April , 1985 6. : BLV`  B JKIHiDiELV䄦 eRU _椤E +ƣ`𑛊 0H8`L L² 9  P t LWL,Ԇ ؠPIPP`/`"/ԭ` PLnH h:,'iԥiՠiɨɑԈȩDȩ:ɥɤ LGLʰ򅡆ԅդ800) 0 0!Ԧՠ eԆ ٰԦդ` LLؠ L.8e膥 'eR壐Q8SRŦQH)`h) ȭL{QI` T`TU`TU  [L_` ` 赠`eLXYT i(?E:j B VBDEH JIK V` 'Y' '"  ' .'# >'  G'   #%P'^'  $$  l' ' #'' $#' ' !!AA@@@@AA!! '`>>`'x<((H ((T(TQUUf(========x(eYTTTTTUUU(V[o?????TTTTT[o(?????(TTTTTTTT????????(??5544UU(\\4455??(UU\\(44444444) @)@@@,)t\>)???\S@P)15b) UDDt) &&&&jjjjUV)<8>>>>>>::::>d*L*}*|*}*|* `L***** `L*T æ:( 8 *`L* L*8  L +8  L#+ L>+ L\+Dm æDm æDm æDm æDm æDm æEm?( æ`L+D æ æ * ~*L,Ҡ, *`L,<(ILX, 񦥠)('m)('i*('m)('i+(<(IL, 񦥠)(,'m)(-'i*(<'m)(='i+(<(IL, 񦥠)(E'm)(F'i*(N'm)(O'i+(<(IL- 񦥠)(\'m)(]'i*(j'm)(k'i+(<(ILX- 񦥠)('m)('i*('m)('i+(<(IL- 񦥠)('m)('i*('m)('i+(<(IL- 񦥠)('m)('i*('m)('i+(`L- -O(-N(-..N(O(L.Q(-P(-).).P(Q(Lu.P(N( ~*L9.#$.6 P(iN( ~*LX.#$.U P(iP(Q(iQ(L.N(iN(O(iO(L-`L. .O(.N(...N(O(L:/Q(.P(...P(Q(L&/P(N( ~*L.. P(iN( ~*L // P(iP(Q(iQ(L.N(iN(O(iO(L.`LA/ ;/O(;/N(=/h/h/N(O(L/?0 0i0i ~*L$1@A1! `L31/1.1.1i/1i ~*LV1 1S .1i/1i ~*L|1BC1y `L11111 ~*L1)****+1 1i1 ~*L1/((((01 1i1 ~*L1/((((01 1i1 ~*L 2,----.2 `L2 2O(2N(2E2E2N(O(L2Q(2P(2g2g2P(Q(L2P(N( ~*Lv2'2t P(Q(LW2N(ЦO(L52`L2 2O(2N(222N(O(L3Q(2P(222P(Q(L 3P(N( ~*L22 P(Q(L2N(ЦO(L2`L3 3O(3N(3C3C3N(O(L3Q(3P(3e3e3P(Q(L3P(N( ~*Lt393r P(Q(LU3N(ЦO(L33`L3 3O(3N(333N(O(L4Q(3P(333P(Q(L4P(N( ~*L3S3 P(Q(L3N(ЦO(L3`L4 4O(4N(4A4A4N(O(L4Q(4P(4c4c4P(Q(L4P(N( ~*Lr4Ӡ4p P(Q(LS4N(ЦO(L14`L44444 ~*L4U WY[\4 4i4 ~*L4V XZZ]4ͩ `L4O(N(N(O(Le5 mN(mO( gQ(P( mN(mO(P( wN(ЋO(L4O(N(N(O(L5d(mN(e(mO(Q(P( mN(mO(iiP( wN(ЕO(Lm5O(N(N(O(LW6v(mN(w(mO(Q(P( i(imN(mO(P( wN(ЕO(L5O(N(N(O(L6(mN((mO(Q(P( i8imN(mO(P( wN(ЕO(L_6O(N(N(O(LI7(mN((mO(Q(P( iHimN(mO(P( wN(ЕO(L6O(N(N(O(L7(mN((mO(Q(P( iXimN(mO(P( wN(ЕO(LQ7O(N(N(O(L;8(mN((mO(Q(P( ihimN(mO(P( wN(ЕO(L7O(N(N(O(L8(mN((mO(Q(P( iximN(mO(P( wN(ЕO(LC8O(N(N(O(L-9(mN((mO(Q(P( iimN(mO(P( wN(ЕO(L8O(N(N(O(L9(mN((mO(Q(P( iimN(mO(P( wN(ЕO(L59O(N(N(O(L:)mN()mO(Q(P( iimN(mO(P( wN(ЕO(L9O(N(N(O(L:)mN()mO(Q(P( iimN(mO(P( wN(ЕO(L':O(N(N(O(L: iȅimN(mO( wN(гO(L:O(N(N(O(Ll;*)mN(+)mO(Q(P( iЅimN(mO(P( wN(ЕO(L:O(N(N(O(L;<)mN(=)mO(Q(P( iimN(mO(P( wN(ЕO(Lt;O(N(N(O(L^<N)mN(O)mO(Q(P( iimN(mO(P( wN(ЕO(L;O(N(N(O(L<`)mN(a)mO(Q(P( iimN(mO(P( wN(ЕO(Lf<O(N(N(O(LP=r)mN(s)mO(Q(P( iimN(mO(P( wN(ЕO(L<O(N(N(O(L=)mN()mO(Q(P( i imN(mO(P( wN(ЕO(LX=O(N(HN(O(LB>F*mN(G*mO(Q(P( iimN(mO(P( wN(ЕO(L=`LF> T/ w`LX>>(U>(L> gIL> w>(L]>`L>>(>(L> gIL> w /L>L>Щ gIL>L>>(L>`L>/(Щ w/(iЩ w)()(L?'m)('i-(L(iM(im)(im0(i-( w(m)( (i.(L(iM(im)(im0(i.( w)(L>`L?x0(/(x/(L? n >/(L?`L? !:(LA@ :(  æ8:(:( *)()(L>@ U>)(  8)()(L@L?`LE@/ w} æ +`Lc@ !<(ILA B@' 2' >/  / -'('(L@'m'('i'm'('i /'(L@' 3' 3  1 w w w<(ILwB B@' .'( '(LA,'m'(-'i<'m'(='i /'(L>A 3 2  3  4  3 3!! 3 2!! 2  4  3 3  2 2' 3 3'" 3 w w w<(ILMC B@ * 2' 3'" .'" 3# /  1 1  1  1  1  1 1  1  1 1 1  3 !! 3 w w w w<(ILD B@ * .'  .' 3 2 / / / 3 ~*LC)****+C  ~*LC/((((0C٩ ' & >/ wx wĢ w w<(ILE B@ *' .' 3 ~*LMD DJ  ~*LcD D`   3 3  2  2'('(LD'm'('i'm'('i /'(LD - / / w w w<(ILE B@ *' 3 4 4' . ' -'('(LE'm'('i'm'('i /'(LfE 2' 2 ' 2 wx w w<(ILF B@ * -'('(LLF'm'('i'm'('i /'(L F' 3 4 4' 3  1 " 1 " 1 3 w w w>/ w`LF/(iЩ w3( w)()(LGG(m)((i-(L(iM(im0(iiim)(i-( w)(LF`LKG/(iЩ w3( w)()(LG(m)((i-(L(iM(im0(iiim)(i-( w)(LkG`LG8:(:(/( 8 7(0( 88(,(LH,(LH*(7(LH*(i7(ŮLH+(i8(LH+(i8(ŮLH w<(ILH w,(+(*( 0=( i * & æW gI LqIB(LqI8/((@(ŮLqI8/((@(iŬLqI0(iA(ŮLqI0(iA(iŬLqIC(B(D(E(LQIi *E(ILqI:(ɖLqI:(i:( *W gI LI :(  æ3(LI3( F`4(LI4( HG`L(iM(i 3( F`LI6(LI6(`6(IL J6(`6(ILJ6(``L!J6m@(Щ w4m@(Щ w2m@(Щ w0m@(Щ w`LiJI(I(LJb*mI(c*i)(L(iM(imA(imI(i)( wI(LnJ J`LJI(I(L2Kz*mI({*i)(L(iM(imA(imI(i)( wI(LJ J`L9KE(LEK fJ`E(ILSK J``LWKԩ wЩ wϢ wϢ w L(M(>/ wo w`LK1(K1(LK1(`LK/(7(0(8( & æL(iM(i *( i2/(+( i&0( F )()(LL3( U> U> U>3(3( 3( w83(3(3(I LLLLLQL)(LBL3(LL)()(LL U>)(LL83(3(3(3( 3( wLL7(/(8(0(-:(8?(?( *=( *`LM C>Щ wЩ w ! w w<( TK wL(iM(i  wЩ wЩ wx0(0(,(2(3(4(6(9(-:(Ȍ;(=(1(?(@(A(B(ȌC(D(E(F( `@ +>/ w ? n IM w2( B(LBN 񦥠)()(LBNB( 񦥠@(A(C( 񦥠E(B(ILUNA(A( 6KB(ILNA(LNL(iM(i B(B(ILN0A(LND(8C(C('(C(NN'(LN8A(A( 6K'(LNB(ILN0A(LND(ȌB(B(ILOD(ILOB(D(ȌC(?(ILOLaT:(L6O 1( :(L]O,(L]O ,( K2(LpO82(2(%(m<(&(imG(M=(LPL(iM(i ?<(<(ILO<(G(ȐLOG(iG(H(LOH(iH(-:( `@,(>/ w=( ?3(4(2( /IL0P;(8F(F(:(L]P;(IL]P /L]P;(2( G6(ILP3(LP83(3(3( w3(LPЩ wL(iM(i 6(ILP4(LP84(4(4( w,(ILQ 񦥠)()(H(LQ ,,(+(*( 0,(LVQ,(LVQ1(ILVQ8,(,(,(i  Dm,(& æ,(LQ w<(ILzQ w K,( K,(ILQ w,(ILQ1(ILQ ,(,(ILQ1(ILQ,(,(LQ1(I 1(I%LQ,(,(I LQ+(*( 01,( LVR,(*(i+(i ~*L'R R$ *(i+(i ~*LMR RJ 4(LRЩ wL(iM(i NI LR0/(LR8/(/( > NILR/(LR/( > NILR0(LR80(0( > NI L S0(ɹL S0(i0( > NI LDS0/(LDS0(LDS8/(/(80(0( > NI L{S0/(L{S0(ɹL{S8/(/(0(i0( > NILS/(LS0(ɹLS/(0(i0( > NILS/(LS0(LS/(80(0( > gI!L^T !J( gK(I!L^T J(J()(I(I(L>T ԭ)()(I(L T ԭK(ЭI!L[TL^TLTLM`LeTN(I O(ILT/(i /(/(LTO(N(N(I O(ILU8/( /(0(i0(0(LU7/(<0(O(N(Щ wЩ wL(iM(iii N(I O(IL\U wЩ wЩ w'('(LSU >'(L@UO(ȌN(`L`U TЩ TK 4 wv w w/ w ~*LU# # $# $#$ $# #$ # #U  ~*LU# # # $ $ # # $ # # #U٩  ~*L,V# # # $ $#$ $# $ # # #V   ~*L_V# # # #$#$ $ $ $ $#$# # # #V?  ~*LV#$#$# # $ $ # $# $ # #$#$#Vr  ~*LV V  ~*LV V˩  ~*LW V ~*L(W W ~*LLW W; >/ w3(4(6(7/(<0(O(ȌN(`L~W  æ * * I2( 6(ILW2(LW82(2(3(LW2(L(iM(i bT G4(L&X2(L(iM(i bT G6(ILMX3(LMX83(3(3( w6(ILtX4(LtX84(4(4( w`LxX6 w ]UG(H( {WM wN(I O(ILX/(0(3(4(L(iM(i /LXO(N( L ! ]UЩ gILYO(N( L ! ]ULX``uX