Listing of file='PAG.READ' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1510, program filename = 'PAG.READ' 4211 % -- line 4211 -- 4212 DEFFN'247(B9) : B1$=HEX(00) : GOSUB 4338 : IF B1$<>HEX(00)THEN RETURN : B0=A1(2,B9) : A0=A7(B9) : B2=B2(B9) : B7=B7(B9) : I$="PAGFHWE" : IF A0>7THEN V4$="T" : ELSE V4$=STR(I$,A0) : IF B7=0THEN V0$()=" " : IF B7=0THEN RETURN : V0$()=" " : GOSUB '220(B0,1,B7,B2,2) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : RETURN