Listing of file='PAG.INS' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1530, program filename = 'PAG.INS' 4221 % -- line 4221 --- 4222 DEFFN'249(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) : IF A0<8THEN B1$=HEX(A8) : IF A0<8THEN RETURN : IF A9=123THEN B1$=HEX(A1) : IF A9=123THEN RETURN : B2=INT(LEN(V0$())/246)+1 : V4$="T" : GOSUB '222(B0,1,B7(B9),B2,2) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : GOSUB 4348 : B0$()=ALL(00) 4236 B7$=BIN(B2,2) : STR(B0$(),A0*2+1)=STR(V1$(),A0*2-1) : FOR X=A0+1TO A9+1 : B0$(X)=ADDCB7$ : NEXT X : STR(V1$(),A0*2+1)=STR(B0$(),A0*2+1) : V4$="P" : GOSUB '221(B0,1,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : A3(B9)=V0 : A9(B9)=A9(B9)+1 : B2(B9)=B2 : GOSUB 4342 : GOSUB 4358 : A0(3)=A9(B9) : GOSUB 4374 : RETURN