Listing of file='PAG.DEL' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1488, program filename = 'PAG.DEL' 4278 % -- line 4278 -- 4279 DEFFN'251(B9) : DIM B0$(123)2,B7$2,A0(5) : B1$=HEX(00) : GOSUB 4338 : IF B1$<>HEX(00)THEN RETURN : B0=A1(2,B9) : A0=A7(B9) : A9=A9(B9) : B7=B7(B9) : B2=B2(B9) : IF B2=0AND B7=0THEN RETURN : GOSUB 4348 : B0$()=V1$() : IF B0$(A0+1)=HEX(FFFF)THEN B1$=HEX(A2) : IF B1$<>HEX(00)THEN RETURN 4287 I$="FHWE" : IF A0>7THEN V4$="T" : ELSE V4$=STR(I$,A0-3) : GOSUB '223(B0,B7,B2) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : GOSUB 4348 : B0$()=V1$() : B7$=BIN(B2,2) : IF A0>7THEN 4292 : B0$(A0)=HEX(0000) : FOR I=A0+1TO 7 : IF B0$(I)<>HEX(0000)AND I<8THEN B0$(I)=SUBCB7$ : NEXT I 4292 IF A0<8THEN Y=8 : ELSE Y=A0 : FOR X=YTO A9 : B0$(X)=SUBCB7$ : NEXT X : IF A0<8THEN V1$()=B0$() : ELSE STR(V1$(),A0*2+1)=STR(B0$(),A0*2+3)&HEX(FFFF) : V4$="P" : GOSUB '221(B0,1,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : GOSUB 4342 : A3(B9)=V0 : IF A0>7THEN 4298 : B7(89),B2(B9)=0 : RETURN 4298 B7(B9)=VAL(STR(V1$(),2*A7(B9)-1),2) : B2(B9)=VAL(STR(V1$(),2*A7(B9)+1),2)-B7(B9) : A9(B9)=A9(B9)-1 : GOSUB 4358 : A0(3)=A9(B9) : GOSUB 4374 : RETURN