Listing of file='CAT.FCRE' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 995, program filename = 'CAT.FCRE' 4514 DEFFN'210(U7$,U8$,U9$) : M=0 : R1$=BIN(0) : V3$=U8$ : GOSUB 4788 : V2$=U7$ : V7(8)=3 : GOSUB 4598 : IF V7(4)>0THEN 4516 : R1$=BIN(2) : GOTO 4518 4516 U3(1)=0 : GOSUB 4710 : U5(3)=VAL(STR(V2$(),V7(8)+13,2),2) : STR(V2$(),V7(8)+31,2)=BIN(VAL(STR(V2$(),V7(8)+31,2),2)+1,2) : GOSUB 4714 4517 STR(V2$(),V7(8)+1,22)=ALL(00) : STR(V2$(),V7(8)+58,67)=V2$ : STR(V2$(),3,1)=BIN(1) : STR(V2$(),V7(8)+5,6)=U9$ : STR(V2$(),V7(8)+15,2)=BIN(V7(4),2) : STR(V2$(),V7(8)+33,2)=BIN(V7(10),2) : U3(1)=V7(4) : STR(V2$(),V7(8)+13,2)=BIN(U5(3),2) : GOSUB 4714 4518 STR(U4$,V3+1,1)="0" : GOTO 4836