Listing of file='DOC.CLOS' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1508, program filename = 'DOC.CLOS' 4082 % ----line 4082-- 4083 DEFFN'207(B9) : B1$=HEX(00) : IF B9<>INT(B9)OR B9<0OR B9>4THEN B1$=HEX(08) : IF B1$<>HEX(00)THEN RETURN : IF B9=0THEN 4093 : IF A1(1,B9)=-1AND A1(2,B9)=-1THEN RETURN : GOSUB '212(A1(2,B9)) : IF POS(HEX(0007)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : A1(1,B9),A1(2,B9)=-1 : IF B8=B9THEN B8=-1 : RETURN 4093 B1$=HEX(00) : FOR I=1TO 4 : IF B1$<>HEX(00)THEN 4099 : IF A1(1,I)=-1AND A1(2,I)=-1THEN 4099 : B9=A1(2,I) : GOSUB '212(B9) : IF POS(HEX(0007)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN 4099 : A1(1,I),A1(2,I)=-1 : IF B8=ITHEN B8=-1 4099 NEXT I : RETURN