ASIZSMVDELAYVNTSVNTENVVTSSTARSVNUVNUAVNUAOFFSETLOFFSETLAOFFSETHOFFSETHADIM1LVDIM1LADIM1HVDIM1HADIM2LVDIM2LADIM2HVDIM2HFIRSTDISECONDISSIZHBYTLBYTVVLOSECAADHADL@  !"#$% ##STRING EQUIVALENCE, LISTING 2BY DOUG WHITE(c)1988, ANTIC PUBLISHING(+ (}+( STRING EQUIVALENCE DEMO2)()(INPUT ARRAY SIZE ( < 4000 ) <A!A9@PC @6-@FP;@,9,Z;@ ,d;@,nx. FIND MEMORY LOCATIONS. FOR THE STRING AND THE. ARRAY THAT ARE TO BE. EQUIVALENCED.%%6-F:A0,%AV$F:A1,--6-F:A2,%AV$F:A3,&@%%6-F:A4,%AV$F:A5,%%6-F:A@,%AV$F:AA," 6.S$". THE DATA 'STRING' A  6-! 6.M(!. THE DATA 'ARRAY' A  6-" 6-, 6-6 6-6-@ 6-6-JT . REDIMENSION THE STRING &^. SET THE STRING OFFSETh!!. EQUAL TO THE ARRAY OFFSETr|6-%AV$6-%AV$6-@$$6-P:'AV,6-&AV$6-%+,$@%@%@%@%@%@%@'('(FILL M() WITH #'S 1 TO ASIZE-68,- &0((WRITE M() TO DISK:D@N--@@ D1:ARRAY.DATX9@'@9@ b-l 6-8,v(@{. FOR TURBO BASIC, USE:%PUT #1,N  AGET TIME((WRITE S$ TO DISK@..@@ D1:STRING.DAT9@'@9@ (@. FOR TURBO BASIC, USE:BPUT #1,ADR(S$),SSIZE AGET TIME@ #(#(ӠΠϠ *((FILL M() WITH ONES4>9@'@9@ H$- 68,-@$ R AGET TIME\ APRINT M(1 TO 5)fp((FILL M() WITH 3'Sz##(BY COPYING SUBSTRINGS IN S$9@'@9@ )68,-@)M(0) = S$(1,6)67@,.7@, AGET TIME APRINT M(1 TO 5)#(#(ӠΠϠ#(#(REFILL M() WITH DATA BY ''(READING 'D1:ARRAY.DAT' INTO M()--@@ D1:ARRAY.DAT9@'@9@ $-.@3. FOR TURBO BASIC, USE:8%GET #1,NB 68,-L V AGET TIME`@jt#(#(REFILL M() WITH DATA BY ~''(READING 'D1:STRING.DAT' INTO S$..@@ D1:STRING.DAT9@'@9@  A 6- A0CIO METHOD. FOR TURBO BASIC, USE:BGET #1,ADR(S$),SSIZE AGET TIME APRINT M(1 TO 5)@$ GET TIME//6-+F:@ ,%AV$F:@,,'@`((P:A$,'A( SECONDS$@$ PRINT M(1 TO 5)J(T-@@^(M() = 8,h r$$ FIND VARIABLE #6-6-6@ - 6-F:,6-%@ +!A(6-&A(+6-%@'>:,07<,6-' A  "B:,A!* 4>FIND VARIABLE LOCATIONHR6-%+,$@\6-F:%@,f6-F:%@,p6-F:%@,z6-F:%@,6-F:%@,6-F:%@, ( (V$ =  VNUM = $ CIO METHOD - 6-C:,6-P:'AV,-6-&$AV g6-AH#%@@1%@?%@S%@AUg%@ AU 6-?:C:hhhLV,<@, ))6-F:%@ ,$AV%F:%@, $ D1:EQUIV2.BAS