Listing of file='PAG.SRCH' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1583, program filename = 'PAG.SRCH'
4318 % -- line 4318 --
4321 DEFFN'253(B9,B8$,B6)
: B1$=HEX(00)
: B1=0
: GOSUB 4338
: IF B1$<>HEX(00)THEN RETURN
: B0=A1(2,B9)
: IF LEN(V0$())<LEN(B8$)+B6-1THEN RETURN
: A4=B6
: DIM B7$2,A4$(4182)1,B6$(125)1,B9$(26)2
: FOR P=VAL("A")TO VAL("Z")
: B9$(P-VAL("A")+1)=BIN(P*257+32*256,2)
: NEXT P
4325 A4$()=STR(V0$(),A4)AND ALL(7F)
: $TRAN(A4$(),B9$())R
: B6$()=B8$AND ALL(7F)
: $TRAN(B6$(),B9$())R
: MAT SEARCHA4$(),=STR(B6$(),,LEN(B8$))TO B7$
: IF VAL(B7$,2)=0THEN RETURN
: R=0
: FOR P=1TO LEN(B8$)
: Q=POS(B9$()=STR(B8$,P,1))
: IF Q=0OR Q<>2*INT(Q/2)THEN 4331
: IF MOD(VAL(STR(B8$,P)),128)=MOD(VAL(V0$(A4+VAL(B7$,2)+P-2)),128)THEN 4331
: R=1
: P=LEN(B8$)
4331 NEXT P
: IF R=0THEN 4333
: A4=A4+VAL(B7$,2)
: GOTO 4325
4333 B1=A4+VAL(B7$,2)-1
: RETURN