Listing of file='PAG.APD' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1568, program filename = 'PAG.APD' 4302 % -- line 4302 -- 4303 DEFFN'252(B9) : B1$=HEX(00) : DIM A0(5) : GOSUB 4338 : IF B1$<>HEX(00)THEN RETURN : B0=A1(2,B9) : A0=A7(B9) : A9=A9(B9) : IF A9=123THEN B1$=HEX(A1) : IF A9=123THEN RETURN : B2=INT((LEN(V0$())-1)/246)+1 : V4$="T" : GOSUB '225(B0,1,B2,2) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : GOSUB 4348 : STR(V1$(),A9*2+1,2)=BIN(V0-B2+1,2) 4313 V4$="P" : GOSUB '221(B0,1,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : A3(B9)=V0 : A9(B9)=A9+1 : B2(B9)=B2 : A7(B9)=A0+1 : A7=A9(B9)-7 : GOSUB 4342 : GOSUB 4358 : A0(3)=A9(B9) : GOSUB 4374 : RETURN