Listing of file='GLS.ATCH' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1563, program filename = 'GLS.ATCH'
4385 % -- line 4385 --
4387 DEFFN'229(R5$,A6$,B9)
: DIM B7$2
: B1$=HEX(00)
: IF B9<>INT(B9)OR B9>5OR B9<0THEN B1$=HEX(A8)
: IF B1$<>HEX(00)THEN RETURN
: IF B8<>-1OR B9=A1(1,B9)THEN B1$=HEX(A4)
: IF B1$<>HEX(00)THEN RETURN
: IF VER(R5$,"####A")<>5THEN B1$=HEX(A5)
: IF B1$<>HEX(00)THEN RETURN
: LIMITS T#M1,"609@ARCH",B3,X,X,X
: IF X<>2THEN B1$=HEX(A6)
: IF B1$<>HEX(00)THEN RETURN
4394 A1=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(R5$,5)
)-1
: DATA LOAD DA T(B3+A1)A0$()
: A0$=STR(A0$(),2,8)
: X=1
: IF A0$=" "THEN B1$=HEX(A7)
: IF B1$<>HEX(00)THEN RETURN
4395 GOSUB '236(8,X)
: B1$=R1$
: IF B1$<>HEX(00)THEN RETURN
: IF V1=0THEN B1$=HEX(03)
: IF B1$<>HEX(00)THEN RETURN
: MAT SEARCHSTR(U1$(),,V1*16),=STR(A0$,,8)TO B7$STEP 16
: IF B7$>HEX(0000)THEN 4396
: IF V1<8THEN B1$=HEX(03)
: IF B1$<>HEX(00)THEN RETURN
: X=X+8
: GOTO 4395
4396 A0$=STR(U1$(),VAL(B7$,2))
: A1$="GLOSSARY."&STR(R5$,5,1)&"."&STR(R5$,,4)
: GOSUB '211(A1$,A0$,A6$,HEX(01))
: B1$=R1$
: IF B1$<>HEX(00)THEN RETURN
: A1(2,B9)=V3
: A1(1,B9),B8=B9
: RETURN