Listing of file='PAG.REWT' on disk='vmedia/701-2739G.wvd.zip'
# Sector 918, program filename = 'PAG.REWT' 4246 % -- line 4246 -- 4247 DEFFN'248(B9) : DIM B0$(123)2,B7$2 : B1$=HEX(00) : GOSUB 4338 : IF B1$<>HEX(00)THEN RETURN : B0=A1(2,B9) : A0=A7(B9) : A9=A9(B9) : B2=B2(B9) : B7=B7(B9) : GOSUB 4348 : V=LEN(V0$()) : A4=INT(V/246)+1 : IF V=0THEN B1$=HEX(27) : IF V=0THEN RETURN : IF B7=0AND A0<8THEN GOSUB 4260 : IF B1$<>HEX(00)THEN RETURN : IF B7>0THEN GOSUB 4269 : IF B1$<>HEX(00)THEN RETURN : IF A4=B2(B9)THEN RETURN 4256 V4$="P" : GOSUB '221(B0,1,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : A3(B9)=V0 : B7(B9)=B7 : IF A0<8THEN B2(B9)=B2 : ELSE B2(B9)=A4 : GOSUB 4342 : RETURN 4260 I$="FHWE" : V4$=STR(I$,A0-3) : GOSUB '222(B0,1,B7,B2,2) : B1$=R1$ : IF R1$<>HEX(00)THEN RETURN : B0$()=ALL(00) : GOSUB 4348 : B7$=BIN(B2,2) : STR(B0$(),A0*2+1)=STR(V1$(),A0*2+1) : FOR X=A0TO A9 : IF B0$(X)<>HEX(0000)THEN B0$(X)=ADDCB7$ : NEXT X 4264 I=A0 : I=I+1 : IF STR(V1$(),I*2-1,2)=HEX(0000)THEN 4264 : B7=VAL(STR(V1$(),I*2-1),2) : STR(B0$(),A0*2-1,2)=STR(V1$(),I*2-1,2) : STR(V1$(),A0*2+1)=STR(B0$(),A0*2+1) : RETURN 4269 I$="FHWE" : IF A0>7THEN V4$="T" : ELSE V4$=STR(I$,A0-3) : GOSUB '226(B0,V,B2(B9),B7(B9)) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : IF A4=B2(B9)THEN RETURN : GOSUB 4348 : B7$=BIN(ABS(A4-B2(B9)),2) : STR(B0$(),A0*2-1)=STR(V1$(),A0*2-1) : IF A0=A9THEN RETURN : IF A4>B2(B9)THEN 4274 : FOR X=A0+1TO A9 : IF B0$(X)<>HEX(0000)THEN STR(V1$(),2*X-1,2)=SUBCB7$ : NEXT X : RETURN 4274 FOR X=A0+1TO A9 : IF B0$(X)<>HEX(0000)THEN STR(V1$(),2*X-1,2)=ADDCB7$ : NEXT X : RETURN