Listing of file='PAG.GOTO' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1525, program filename = 'PAG.GOTO' 4182 % -- line 4182 -- 4186 DEFFN'245(B9,A7) : DIM A7(4),A3(4),A9(4),B2(4),B7(4) : GOSUB 4338 : IF B1$<>HEX(00)THEN RETURN : IF A7=INT(A7)AND A7>-4THEN 4192 : B1$=HEX(A8) : RETURN 4192 B0=A1(2,B9) : V4$="P" : GOSUB '220(B0,1,1,1,1) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : X=POS(STR(V1$())=HEX(FF)) : IF X=0THEN A9(B9)=123 : ELSE A9(B9)=(X-1)/2 : A3(B9)=V0 : GOSUB 4342 : A0=A7+7 : IF A0>A9(B9)THEN A0=A9(B9) : A7(B9)=A0 : A7=A0-7 : B7=VAL(STR(V1$(),A0*2-1),2) : B7(B9)=B7 : IF B7=0THEN B2(B9)=0 : IF B7=0THEN RETURN 4202 IF A0=123OR STR(V1$(),2*A0+1,2)=HEX(FFFF)THEN GOTO 4207 : I=A0 4204 I=I+1 : IF STR(V1$(),I*2-1,2)=HEX(0000)THEN 4204 : K=VAL(STR(V1$(),I*2-1),2) : B2=K-VAL(STR(V1$(),A0*2-1),2) : B2(B9)=B2 : RETURN 4207 B2=V0-B7+1 : B2(B9)=B2 : RETURN