image of READY prompt

Wang2200.org

Listing of file='DOC.CLOS' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1533, 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