Listing of file='CAT.FOC' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1023, program filename = 'CAT.FOC' 4588 DEFFN'215(U7$,U8$) : M=0 : R1$=BIN(0) : V3$=U8$ : GOSUB 4788 : GOSUB 4610 : IF V7(4)>0THEN 4590 : R1$=BIN(3) : GOTO 4592 4590 U3(1)=V7(4) : GOSUB 4710 : V7(8)=3 : STR(V2$(),V7(8)+4,1)=BIN(0) : GOSUB 4714 4592 STR(U4$,V3+1,1)="0" : $CLOSE#U0 : $CLOSE#0 : RETURN