<$$#! 4G#$ ]#t#x#  ,  !$ !$4G#vIh%<= # $ $ $xH#"$A <"$T"$<"$5405894f F#E#=#D#B#\P#B# !$!$ 5#4#|!h5#|!c #DEF !"$%&(! $ *#\ h# "$K4#'Lt"#$"$k"=MNOPQRST(5# w"h"P {{ #s w""<`:t";H"<"ܫ"=>?@AB(5#H"!$"l!e@f<[ !$Zs"!$!jH ` < Z"$'FIKLTu!OG@"H!#R"QD)#N"Mx#Zd \]ww ac_^Q"`d` e\!fghi"T !$ "$L 34#T z# un7!$#H"t" 8!"$7x,!"wH""`6",8"Z !<""""\#]I" #@""!!!#y"L"# " !$(C#D#"8C#@C#0C#HC# $ $Ll $k $ $# $${# $ $8 $h $A $ $8 $\4#$L$,>APL*PLUS II v1.533',4= Version'APL*PLUS II v1.53'4D$++Packages not included in this version. DanBDdescribex(Į p1(nws1'')ws1 ( Pprint Copyright @ show object; names are preceeded by V or FRIE@  nci/i P`print ' with ',ws2,,n FMT 100 2 1 3 timen FI p2AT P($ mn2n1i0 FREE nX( show[3]end 4print CR,'***',(4 0 +/i),obj,ws1 4k b48| first, find all obj names in each ws 8D SHOW: 1=show names ;2=contents ;3=both ;0=nothingD H ws11nws1 $tb4:(n,G' formatL,3 (''sn1 compfn n2)l5 ,c b3@_ print(FREAD t,lim+p1)display,n1[p1c[i];] ?@  (=/2n)eql 00 show[5]/'print fit 0 1in2'04D show objects common to both ws4 K('V'1n)/var , sfirstc pencloses ,Dprint CR,CR,'***',(4 0 lim),' common objects',CRDDr21c2n2FREAD t,s+3+r11c1n1FREAD t,s+1D0O names known, display header530,%print CR,'- variable ',m ,rPCHK X"@X$obj' outstanding objects in ' objects not appearing in the other ws:X  !$  L% display difference between both version of each objectL6IO1 8.!Z#[#z#Z#"$8@1 l5|Copyrightp2 c1i/c2 4 c2i/i4 print s  P  ,$print CR,'- function ',m ,3 print s $<show, 2 2 3SHOW"$0l0:ws1FREAD t,is1FSIZE t 04c n2(ic2)n2 adjust dimensions4hi1c1 , c'\'=s [2]'\',fnames #,e@ $| $D$,$$$$$$$$$x$d$P$ t$$ $$`$$ $$$$h$T$@$|$H$$< $$$$$8$$$ $ l$$" $d$$$$* $P $$ X$( $ $h $$$($$$$$$!\$H$4$ $<p$$/4$ $ $$$$$$P$'<$($$$C$$J$$$$#|$LH#L$T$h$@$?,$$V$F$$$@$^$$bx$d$YP$<$_($$;$$6$$$$K$t$``$8$o $d$$$$$$x$ `$TD$z($ $>$w$ $P$$1$$D$a$Id$i$Ox$\$xH$24$) $, $0$8$$$$$s|$d$P$4<$$$B$D$q$$G$$X$|x$Nd$hP$<$W($f$$g$$$$$$.t$j`$L$m8$l$$$$$0$$vD$E$3X$l$$$$$$$$$$${$$$0$]$$$$$~#$&#$#$#$#$#$-t#$\#$H#$54#$ #$ #$"$"$"$"$$T$ph$@$|$9$,$$ $ $ $y $X $l $ $ $Ll $k $ $# $|# $ $8 $h $A $ $8 $\4#$L$[ $H#u$ $ $P $7 $ $$ $+T $`#$p$#$##$#\#h$ $< $#L $$x#(#8$ $#L$|#c#`$$n##$$h $###$Z$$$$d$##$## d#$#P#e$t##t## $#-#/##0#L$#D#M###### 0### d$#l#28#K#$#$X###r(##*4#, $# (##A#"t#%#&#L###M#R##<#<##D##7#  #H###P#)#,##+l#HD#h##40#O0#l#K#;#5#8 $p#P#G#V$$#f#S##, $Yt#4#T#W#l#H8#h#@#1`#####8#!8#q|##T# $#Q##$##(h##F|#k## [#U#4#S|#H#z#pz#{#98{#^{#${#{d{#xx{#JP{#Z|#C|#`{#{#z(|#<|#~y#=Hy#my#hz#Lz#sy#0z#y#z#Qz#y#vxy#`y#h|#P|#z# y#U{#j4y#{#z#y#x#\[#T#H#8$C@@t@Ui#Cd52$C@Pt@}j#Cd52$C@`t@L%C@pt@@d$C@t@$Cd52$C@t@e$Cd52$C@t@ V$C@t@?%C@t@ $C@t@$C@t@ 1٥>%C@t@@ M"%C@u@=Ĉ$C@u@'$C@ u@"l$Cd52$C@0u@|$C@@u@$C@Pu@]^%C@`u@`$C@pu@`$C@u@;vL%C@u@ O $C@u@q$C@u@($C@u@')W$Cd52$C@u@m9$C@u@@C/$C@u@5$C@v@@ $C@v@$C@ v@_conU$Cd52$C@0v@uonU$Cd52$CGRPCMDOSR0?GRPCMDOSS0QOHL4&FN_TIEUF URUM 1MAEUDR'CMDUFILEDEB|LJUSTUHDDURMPUFY!CDLJUSTOBJ1EMAKEUFILEAD DEBOBJ/0 "r0 9nl 'X' X1 l5FMOD\QNCyOSSCMDLALOnCLCASE45040D45NUM|DEFAULTVALUE656760557075 ADDR CMDEDNOTE')yy COMPARE UTILITY THIS GRP/WS WILL PROVIDE USEFUL INFO BETWEEN 2 OBJECTS, MAINLY THE DIFFERENCE BETWEEN THEM. THERE ARE 2 MAIN FNS: R C1 COMPFN C2 COMPARES 2 FNS; '' IF IDENTICAL. C1 AND C2 ARE THE CR OF FNS. R V1 COMPVAR V2 COMPARES 2 VARIABLES; '' IF SAME. DIFFERENCES ARE SHOWN ON SIMPLE OBJECTS OF RANK 2 OR LESS OR IF THEY ARE SMALL ENOUGH. THE FORMAT OF COMPFN IS AS FOLLOW: THE FUNCTION ON THE LEFT IS ASSUMED TO BE THE ONE WHICH HAS CHANGED. THE FN ON THE RIGHT IS ASSUMED TO BE THE REPLACING FN. THE OUTPUT IS BASED ON THESE ASSUMTIONS. EACH LINE OF THE FN ON THE LEFT IS PRECEEDED BY ITS LINE NUMBER [XX]. WHERE THE LINE HAS BEEN DELETED A SYMBOL APPEARS () BEFORE THE LINENUMBER. WHERE A NEW LINE HAS BEEN INSERTED THERE IS NO LINE NUMBERING. EXAMPLE: FNA FNB [1] SAME LINE [1] SAME LINE [2] FNA LINE 2 [2] FNB LINE 2 [3] SAME LINE 3 [3] SAME LINE 3 [4] COMMENT DELETED [4] NEW COMMON LINE [5] NEW COMMON LINE [5] NEW COMMENT (CR 'FNA') COMPFN CR 'FNB' [0] FNA FNB [1] SAME LINE [2] FNA LINE 2 FNB LINE 2 [3] SAME LINE 3 [4] COMMENT DELETED [5] NEW COMMON LINE NEW COMMENT NOTE THAT IN ORDER TO AVOID LENGHTY OUTPUT OF BIG FUNCTIONS WITH LITTLE DIFFERENCE ONLY SECTIONS OF THE FUNCTION ARE SHOWN, THOSE WHERE THE CHANGES OCCURED PLUS A CERTAIN NO OF LINES BEFORE AND AFTER (SEE VAR zone). IN ORDER TO COMPARE ENTIRE WSS IT IS NECESSARY TO SEND THE WSS ON FILE AND TO USE THE 'COMPFILE' PROGRAM AS FOLLOW: )XLOAD WS1 )COPY COMPARE TWS TWS TRANSFER THE WS )XLOAD WS2 )COPY COMPARE TWS TWS )LOAD COMPARE COMPFILE CLEARFILE IF WANTED SO 'TWS' IS THE tRANSFER ws FUNCTION. IT MOVES THE VARIABLES AND FUNCTIONS OF THE WS ONTO FILE PRECEEDED BY NAMETIMESTAMP. IF THE FILE DOES NOT EXIST IT IS CREATED. AFTER 'COMPFILE' HAS BEEN RUN, 'CLEARFILE' SHOULD BE RUN IN ORDER TO GET RID OF THE FILE EASILY. NOTE: TWS HAS NO PROVISION FOR PENDING STACK DETECTION [ )SI ]. COMPFILE MAY NOT WORK FINE FOR VERY LARGE OBJECTS (>135K) PW IS USED TO DELIMIT OUTPUT OUTPUT SPECIFICATIONS THE AMOUNT OF INFO DISPLAYED IS DETERMINED BY A FEW GLOBALS. ONE OF THEM, show, CONTAINS 3 VALUES FOR EACH ONE OF THE SECTIONS OF THE REPORT, THAT IS - THE SYMBOLS FOUND only IN THE FIRST OBJECT/WS - THOSE FOUND only IN THE SECOND ONE - THOSE FOUND IN BOTH EACH SECTION IS DIVIDED INTO 3 SUB-SECTIONS - THE NUMBER OF SYMBOLS - THEIR NAMES - THEIR CONTENTS (OR DIFFERENCE) THE FIRST ONE IS ALWAYS DISPLAYED. THE LAST 2 ONES DEPEND ON THE RELATIVE VALUE IN show: IF 1 THE NAMES ONLY ARE DISPLAYED 2 THEIR CONTENTS/DIFFERENCE ONLY IS DISPLAYED 3 BOTH 0 NOTHING IS SHOWN THE DEFAULT VALUE IS 0 2 3, THAT IS THE FIRST SECTION IS NOT DISPLAYED, THE SECOND ONE HAS ITS CONTENTS DISPLAYED AND THE THIRD ONE IS ALL SHOWN. D BARONET 840718 850705 NEW FUNCTION, 'FILE1' comparefiles 'FILE2' WILL COMPARE 2 FILES, SHOWING EACH COMPONENT WITH SAME NUMBER. THAT IS, IF FILE1 RANGES FROM COMPONENTS 10 TO 20 AND FILE2 RANGES FROM 15 TO 45 THEN ONLY COMPONENTS 15 TO 20 WILL BE COMPARED. 850917 A NEW VARIABLE, nlines, SPECIFIES THE MAXIMUM NO OF LINES TO SHOW IN A VARIABLE. PRESENTLY 20, CAN BE RESET. IF THE DISPLAY IS INCOMPLETE, THE STRING '...[MORE]' APPEARS AFTER. 90 FOR THE PC USE 'WS1' compare 'WS2' TO COMPARE 2 WORKSPACES.D ) L#, ',#, D4 $ Q (, !$, +,/40  P L" '" 00ămat:cc,CR,vm v1 compfn v2 0) 00R; R L ', , , n0Hut u7 ,H#, !$, #,#,  H< c'G'tx<D  danb 84/5/30 - compare 2 variables. c'' if v1v2D4Objects differ in shape: 00 4T8ovec:cc,CR,'elements ',(i/i~v1v2),' are differents (IO=0)'TdH \#####x#####@#`#,##t##\#`#|#H###ؑ##8##,# ## t# \# #p# t# # #4# 8#0# ## ##ԋ#,#H#`#l##̔##"$d,Կsc:((c),2n)/end,simpl,Vst:nnp $c,c FMT 100n  $0end:(2000<+/SIZE 'v1 v2')0 0$\Rscl:cc,CR,v1,v2 N$$((v1)v2)sd $<ГIO0  !$,  S T, R,,,bnp:(=/n(v1),v2)sr LI, endl 0 v1 v2 bVar1:  00 U = L/  '/, /H 0(  O L '(4 " N L ',   4 d o M  $$c objects are $(ri b $"$  (, $"$  L ',$J 04 c''[n],' object is a package' 4$} cv1 compack v2 $P$f > 'L=MNO P Q R ST(W@P  and ( sr:n''n same rank2;(0L  are differents (IO=0) 0 0XIc'Objects are of rank >2; they differ at ',(+/,~v1v2),' places' 0X /Var2: ,ssd:((sdr v1)dr v2)sc ,D 'Fsimpl:c'objects are ',(50=s)'char ',,SVM[n;] D,cv1 compvar v2;i;n;s;IOg,,((PCHK v1)=nPCHK v2)/st I,d endD cc,CR,('Var1:',CR,vmv1),CR,CR,'Var2:',CR,vmv2D(  I G0k ($ (scl,vec,mat)[n]N$ end288J cc,(0=c)';objects differ in type' 8,  G G ,  G ,,  I I ,  IND,\ I L/} ,̓#, , , '/} ,Ԑ#,, , , 3 3\T D0# L ':+  /,ؗ#, , , TD  c'Objects differ in shape: ',(v1),' and ',v2D, $"$  I G,D % I G, !$!$, Dp fF  (v1v2)c'' ,jd d+ f2(cf2)f2; $ elements $`9 f20 !$#"0#, 0 char $c(f1) mcomp f2$ )(f1f2)c'' h#u # $p#h###L#$####ؕ#h##"$h  f1(cf1)f1 h<simr1b$+c0,1(f1)f2 $0; danb 84/5/30 - compare 2 fns 0 DPcf1 compfn f2 \%lDl3 + !$ , , :#,, :"D4l3 # y,   y , 4D 3# :`#,!$, T#,,l#,3 yDP =# ,+#, !$!$,ԛ#, :%#PU fY@/@B</ <b 1 3  +  (><<((Fv@(   #   (U R x#  ( tnope U RD#  h{ #######P#H##`##0#ؙ#"$h v !$(L y:($1 r(1900+y),m,r,1t$H W r5 3  ##26 / + HD+ /!$ !$,    8D   8   DanB 961129: $, File erased$ filediO{ {{ D psm+\ 0 31,(28+0=4y),31 30 31 30 31 31 30 31 30DDĆ (y r),0 365.25 2+1t,0 24 60 60t1000000 1.1D| rr $ rr-psm[m+/psm f.D @& #8 ܪ#, @D C N!$    =4 #!$    6 4D + 6 6t!$ 6, 3 ."L#D$  9)+ $(D,  8\ 7 (4 ! { { { {, / {!$4D0 3# g!$!$!$H#, Dd,0    , 1#,0  ? : 9, !$, 0(  6+ 3 9((  6+ )3 :((  6 , 6(d H 8 S \ , ,ذ# , , SHEP f FDA fKSERIED , S #, \!$  ,+  ISDH   386Pd$8fD$<f$f\$JfL$bfT$zňD$GEOEgEƅENEfE~ƅfE`e,(؋Ee5;Ir;?]+ɱ+@;vMFE>E|E}EE>Exfl$8+HETEPE +EEEHEE>EBuRtUBUUmE+EE;ETsNjElEEhE E0ut@eETuM,:u E;EwM( u CE0]B뻃E0EEE;E r}l}E0؉]$E,]Ut$T+E|$f;u0 L$(;T$~u ;T$} tD$,|$0/D$,;T$~t$(E;~|$|$D$0|$0;|$$u+Ī+ҋM,3+M,tt t3ºmA+ҊMF‹K ]HK f DL fD0 .  \!$,+  ,!$ .\(DDF f# f"$#b4:(n< ; r1obj PNC lp  r2obj PNC rp H< n2m fncr rp ,(+o s/CR,'* variable ',m,t  ,VECTORIZE(iCMDOSR,l2:i0 ,N l5 ȸVECTORIZEOBJ (= n1m fncr lp   l5| b3P l5p any1 M l5 PAE T1345730611 11201665 1686700032 949602268 406594628 2071370240 37412 1552508416 1989785052 1717707852 2049201289 1149814155 326416604 38749638 40322502 41895366 9930182 972947456 973058491 973052347 973046203 38533 1956249600 1989788603 1989785531 1989779387 1989773243 36997 2050529792 168 981270528 28862024 1949774592 2093472660 1201256251 926089214 1821065330 1166686244 1962949708 1623556921 178278 779274445 941911179 1013204362 723744000 661962560 2142417526 796131577 1946286464 49905695 28319604 45092075 61868267 78644459 14352149 385875968 758 346530421 1480952582 1990435445 1569260613 1086335752 1300945035 16351333 109045900 2146995199 125043449 1569438955 1962480784 1569419333 407210356 1961075319 1569392709 2143501084 734759692 676170184 349420151 734563082 676170187 970170999 38021 28574208 23428480 11797119 9807240 1517813760 151 1994895989 41101 1866104576 1711276032 855637064 1468141512 1946157057 2093472660 39101 2079391744 592 10272139 1070923776 2105781235 2079391740 572 1011303818 1635512575 1006632961 1201966078 72900 86795767 4000000 50617739 470345635 1782939643 13796158 125046133 90296 744879872 92416005 1948742912 1710687301 16417560 1869071 470351872 1528233979 13796149 2028998085 329 130348942 20940559 1569390592 1312216316 1086335775 1019485997 169737610 1300808190 1983904954 1170619973 1170604668 1170604413 1166737791 71631678 8947081 981270528 62416504 264817920 96894 611093503 2067952840 1962934272 32909 1220553472 1951665156 1157846085 205883728 1995946709 1166737477 524204028 272992514 1052883573 2063400224 132 1958591095 1390936181 1056964607 1920269600 132 2097079157 141885435 54678923 445190229 1995418229 1837302036 1166738448 138750720 989873545 948743099 1989393013 1157829701 541428072 10257803 1166606336 343247664 66792 48283904 8689035 478871552 294142 1014284172 150804287 1157826661 1946645676 1300960373 205506004 1960807002 1161496645 1962772708 676170750 548407011 192261875 1124264897 1993325173 50850584 462111325 1166261227 1166738480 474284820 991184265 1787682747 37865 2106326016 343771500 10257803 1166606336 1600287952 1056964608 670891293 1960551031 1569401925 139823876 1411675275 1958351573 1961614212 1069848888 813016819 1284186288 1413163044 142482468 251396469 175484659 472142907 1359803779 1149961844 418065444 807697547 1149972361 300624932 1413214467 75373604 673477635 2129345349 612142002 612106524 608469780 2089485360 2084253732 1804262364 998129621 170 1949160509 373216179 1391992062 1026437069 1070859806 2144580213 109050911 1408011264 1946286464 148947213 49905836 524221324 1036801016 1097705914 736294815 1179486930 1950178033 50114 900427 155037 L) Z4 12'RANK ERROR WS FULL SYNTAX ERRORDOMAIN ERROR'L( ERROR Z[1 2 3''R;](\NLook up names in table ; return row indices or 0 if not found \<%Args can be char scalars, vecs, or matsED<4 (R(STPTR'Z A B S')CALL T)04`iindscharmat ROWFIND chararr -- Origin-1 indices of char rows in a char mat`X5Result is a vec if B is a mat, or a scalar if B is a vec or scalarFUX3~D#####б#8######t##h## #"$$I 7$8X@ Copyright (c) 1988-90 by Jim Weigang8$HZZA ROWFIND B;R;S;T$dRPACKHR fl 2N|R,/B A( (8t &zURQGHS T 8 ltwsNL 2 3 gP####t#`#l$##D#$x#@###### 8# # #tpackerrs8ܷ 5(WSID,'', 17 0 WSTS)FAPPEND 18$2:ELXALX'dm' $X ntws((6,1tws) 6 4 'lx dm elxalxsi sys')tws(0 4 tws)twsX  5 FCREATE 1 @g##\#@#L#t#"$@vmdPW V> $"$ ,, D!$, 3!$,,/t!$  NP@@,k`$#$D $@027 3#h#"!$, /90   ܵ 5'WCOMPARE' dtcnl x85SI FAPPEND 1,0/ALX FAPPEND 1,0/6 FAPPEND 1,0/7 FAPPEND 1,0/LX FAPPEND 1,0/tws FAPPEND 1x,C(0<1tws 6 0 tws)4,`@ 28t danb eliminate doubles from list vue8$Mtieopen file;f;l$ dumdum show c 8displaytws` 6ELX SHOWcv1 |1v((vv)=v)/v B 08pak:(1 2 (s1obj)PNC rep)/donno,p1 88ad0:f' ',11(file' ')/file8,m (1tws 1 0 tws)/3,(_(1=lFI file)/ad0 (0` open file, return its tie no0ad0|g#H#D######D##|<P f(~' 'file)/file remove double ' ' <  ww dumL6npfprint x@g#@## #@,tws'VFV'[2 3 NC tws],tws,,$4: sa action: clear ?,X3:6(((1 3 2 /<\~3'VF'1tws)/'cr0'),' 1tws[IO;]')FAPPEND 1 XMtie4Tcf FSTIE tie((tie)tie0,l)0(4Df(11 10 0 1l),11(1++/^\' 'f)f(' '=1f)f DKpsminputL b(x,y)b endful5@Ȋ then uses this to calculate result at line l4@$hm[r+n;c+n]n.=n t$$^calc:(0b)end0,$Lst:b(br/b)(bcb)/b get rid of zero rows and columnsLH b(fixi,~iii+1)l1 Ldiag:n+/^\, 0 0 b follow diagonal as far as possibleLb1p2l8 vec 9 z(1*f)z,s  T08l2:csep,1obj,(482DR rep)' [c]',CR,(ld),(ld)/' ...[more]' T8l04x ld'{ ',(s),'d structure }' 4Uxm1cm2 ,H l1l[(s)/sNLINES(l)].,($ SS\(,8end:in1in drop last CR,D LC,(#((0i)^' '^.=i)/end DE.,< diag cut back b and try diagonal again<,matfit mat;IO;w;p;f;dimE.,tPACKERRS6srpxsd@matZv2compare;fix\st dd[r;]$H reps fncr rep '$ 0,dim[IO0]fp(1dim)fI,dD 2iN1N`<gl##$\##@##x##<#4##"$`g#x#0$###$$#x$h#l##l####\#4#H#$ `#Xcompfn( ?@AB(X<l1:x[i;]z10,z\zy[i],(1z)+1b[i;] <,;li\!fn:csep,c,(0=cvm('R< >P<[>Q<]>BLI5' FMT 1+1rep),rep)/1obj,'' \,L x(b)0 initialise loop,TdR display the object m1 together with the lines from m2 which are T8x(1+2ZONE)-ZONE zone of display 8,(nope:msg'No file to clear',packbin pend:mbrbc\mO sb  | ELX'nope'  8+g####"$8TP bboolean matrix b m is b with some of the 1's replaced by 0T8:(0=/x,y)calc no zero rows or cols 8@g#L#h#4#@ fpAk,Di''N2IO,N-IO<1=,N .,^ crTCNLhg####L##X#@#hSEXP$ 6g$(i[i]+\/b1bb[i;] (4SCALARS VECTORS MATRICES4 zd vm m;ELX ( Vector from Matrix(h 0Jok,` mopqE.,  wsWSIDobj$l )+,$v1Lc1anyl2  sep2CR 1'4LWorkFile,0: lim(1s1s2),1+12s1s2,SSINDEX0 INBUF ')xloa ',ws1,c,')copy ',ws,' tws',c,'tws',c,')xloa ',ws2,c,')copy ',ws,' tws',c,'tws',c,')load ',ws,c,'compfile',cTCNL$X xp'c,itCR' '$8ws  (0yy-f)l4 xp<a1(Rdm1 mcomp m2;x;r;c;IO(baw n2(\ i(3010a)'avb'(zM8,EXP?foriLH jot-dot-match-rank 1 for rank 2 a and w with same last LDm2Upackbin|uc2co ag#$$$D###H#d#$#$T###$# ###"$0  0$  matrix comparison$(Trr/rd[;2].=' ' (,Խ xcompbool m1 jdmr1 m2 DE.,$$m(b)rcIO0'$ Wl1 Tliy\b[;0]  (M1:5 FTIEELX'dm'(< NOTE 2=(m1)=m2 and (1m1)=1m2<dbg# #$ #@##$ ##t#$#$ĥ#t$(##0#0##P###|#l#### $ # #d# D#ȣ#"$P this function is one of the seven wonders of the modern worldPLrfile1,' has ',(--/t),' components starting at ',1t2s1L,3 s2FSIZE t2open file2m,8ws2<(n(FNAMES[;1122]^.=f)/tFNUMS)e <` cc+y (kc(2CR),'Component ' ( D GI 0Pn  -/01234 0$d$ ZDEB T;B;ELX tc/ps4Deql ̬ f11WorkFileE `b4p(|^var:(2srep)/l1 (TVcompbool 0WCOMPARE 0 rr+nn  r2sdmcomp r/x uSVMlim\oub3ȝlp<rp r1x> c~x@file1 comparefiles file2;lim;t1;t2;s1;s2;c;t;xp@ gws1$4 7 $ 0e:f FERASE n @L danb 840701 erase file holding transfered wss@s5 l2- varLdmatSStoMAT segstr -- Convert segmented string to matrixL(iws1 compare ws2;c;ws(SHOW ii-1 $ 0,ZSStoMAT V;I;P;C;code;ELX,PEXLdjL#$ $$ $l $##"$!LH f$+file2\x[i+1;]0?PROWFIND0   !$ , 89 0+compack\segsubstrsegstr SSINDEX inds -- Index selection from segmented string_NC\3/52$clearfileXshow( A(A=1A) PENCLOSE A@(PPCHK ZONE( 36(0=nc'd')/'dtcnl'27(,z1(,1,\' 'm)/,m,''d,$compind( Z(V=1V) PENCLOSE V(LuK $PVAL}m#xw$ 7$HzhxDEBLHj#@### $# $#"$Lnȏil/pPSELPPDEFPINS@file\jdmr1xehrr+x ?PACK"tPNCtPACKBIN fNLINESCR,PACKERRSDESCRIBE PSYSIDlH/ph`s"h`MXPr`pdtW"L5<L danb 840614 reshape char mat to fit PW<(T bi[n].=(n1a)i(< danb 840629 display object from package<$ FUNTIE FNUMS $L2 APL>#RIGHTԛLEFT#24FILE LL15wCMDOSSOSDL110L17 L20yL55d L25OBJL45X CA(xTIEGL1STPLDIF2322212019181716141312UFILESWZYRCTIEDPKGQERRMSGUSVARCVTTYPELKJIHECAXp OVEROBJ1]sOVER0,9] OUTX((U ;MATRIFY] FOPEN\@ PARSElxO8CF L60OBJ $MATIOTAOBJ MATRIFYOBJ MATIOTA@UCMD2IFERRIN*GLOBALPW#GLOBALCTGLOBALIO#\GLOBALALXGLOBALELX(PNAMESPDEFDR$B')D'W'P)  T]RESULT[;11UCMD0F_rCPT''AEnD,FiL'NeX txL5039 VaR6FrP[4]L40 [1L35)/L30REALuP LO35 1 30+[27 925;zn15110(4~v9pUpOncUpNMvLuOSRFVersion 2538410643 316986074xL10؛FN 9l4120l3L\LNmAP\TiabcB ALihId#rEp[aLl#2DeF089sRhTXTREPLnCFORMEFORME@XFRB DELFiLeNaMeplc1sxt[sRR(\srDEFINE 98SharpAPL\FiLehFIXEOfTargetAV XR?ALLABCTIEl3l2l1lXl0IortisoCREEn Nl5 Il1Bl0 bolASSJE[6 MCghtBsdversion؛BYTHISRAV0AVNaR Z2@READDESCRIBE.9l299xL0(~.SiNAMESXlTCXXER1   DM f  <"$H <"$$"$ "$!$!$!$!$!$t!$\!$D!$(!$H L4L3$CHKCOMPMEM CM#dSWIT\SWSP QPATDLM$EARGt PATNPARMSd?>Xe\co:[wrN=bn yaiI:udDE|B3'L%}.h]_t}Rg6