Listing of file='CAT.VCRE' on disk='vmedia/701-2739G.wvd.zip'
# Sector 386, program filename = 'CAT.VCRE' 4762 DEFFN'231(V3$,V8$,U8,V2,U6) : M=0 : V5$=STR(V3$,,8) : GOSUB 4756 : GOSUB 4616 : IF U3(2)=0THEN 4764 : R1$=HEX(02) : GOTO 4836 4764 U0=11 : SELECT #U0<V8$> : $OPEN #U0 : ERRORGOTO 4830 4766 LIMITS T#U0,V5$,U3(1),U3(2),U3(3),U3 : ERRORR1$=BIN(ERR) : GOTO 4834 4767 IF U3<>0THEN 4770 : DATA SAVE DC OPEN T#U0,(U8+2)V5$ : ERRORR1$=BIN(ERR) : GOTO 4834 4768 GOTO 4778 4770 IF U3<1THEN 4772 : R1$=HEX(02) : GOTO 4836 4772 IF U3(2)-U3(1)+1>=U8+2THEN 4774 : R1$=HEX(09) : GOTO 4836 4774 DATA SAVE DC OPEN T#U0,(V5$)V5$ : ERRORGOTO 4830 4778 DSKIP #U0,U8S : DATA SAVE DC #U0,END : LIMITS T#U0,V5$,U3(1),U3(2),U3(3),U3 : ERRORGOTO 4830 4780 GOSUB '243(U8,U3(1),V2,V3$,U6) : IF VAL(R1$)<>0THEN 4834 : $CLOSE#U0 : U0=0 4782 HEXPACKV7$FROMV8$ : U3(8)=VAL(V7$,2) : U3(1)=2 : U3(3)=1 : GOSUB 4630 : GOTO 4836