Listing of file='CAT.FDEL' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 968, program filename = 'CAT.FDEL' 4558 DEFFN'214(V3) : M=0 : GOSUB 4726 : IF STR(V5$(),V7(8)+4,1)=HEX(FF)THEN 4560 : R1$=HEX(06) : GOTO 4834 4560 U3(1)=VAL(STR(V5$(),V7(8)+15,2),2) : GOSUB 4710 : GOSUB '223(V3,1,VAL(STR(V5$(),V3*32+2,2),2)) : IF R1$=HEX(00)THEN 4562 : IF R1$<>HEX(24)THEN 4836 : R1$=HEX(00) 4562 U7$=STR(V2$(),61,67) : GOSUB 4662 : STR(V5$(),V7(8)+4,1)=BIN(0) : IF U4=V3THEN U4=-1 : STR(U4$,V3+1,1)="0" : $CLOSE#U0 : $CLOSE#0 : RETURN