Listing of file='GLS.CALL' on disk='vmedia/701-2739G.wvd.zip'
# Sector 886, program filename = 'GLS.CALL' 4401 % -- line 4401 -- 4403 DIM A4$1,B7$2 4404 DEFFN'230(A4$,B9) : IF B9<>INT(B9)OR B9<0OR B9>4THEN B1$=HEX(08) : IF B1$<>HEX(00)THEN RETURN : IF B8<>B9THEN B1$=HEX(B1) : IF B1$<>HEX(00)THEN RETURN : V4$="P" : GOSUB '220(B8,1,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : A1=VAL(STR(V1$(),209)) : IF STR(V1$(),210,1)<>"Y"THEN B1$=HEX(B2) : IF B1$<>HEX(00)THEN RETURN : IF VAL(STR(V1$(),211))<>1THEN B1$=HEX(B3) : IF B1$<>HEX(00)THEN RETURN 4411 V4$="A" : GOSUB '220(B8,1,2,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : MAT SEARCHV1$(),=A4$TO B7$STEP A1 : Y=VAL(B7$,2) : IF Y=0THEN B1$=HEX(B4) : IF B1$<>HEX(00)THEN RETURN : B7=VAL(STR(V1$(),Y+1),2) : IF Y=244OR STR(V1$(),Y+3,3)=HEX(000000)THEN B2=V0-B7+1 : ELSE B2=VAL(STR(V1$(),Y+4),2)-B7 : V4$="T" : GOSUB '220(B8,1,B7,B2,1) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : RETURN