Listing of file='GLS.ATCH' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1588, 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