Listing of file='CAT.FMOD' on disk='vmedia/701-2739G.wvd.zip'
# Sector 321, program filename = 'CAT.FMOD' 4568 DEFFN'213(V3,U7$,U9$,V7) : M=0 : GOSUB 4726 : IF STR(V5$(),V7(8)+4,1)=HEX(FF)THEN 4570 : R1$=HEX(06) : GOTO 4834 4570 V2$=U7$ : IF V7=0OR V7=2THEN 4572 : GOSUB 4610 : IF V7(4)=0THEN 4572 : R1$=BIN(2) : GOTO 4836 4572 U3(1)=VAL(STR(V5$(),V7(8)+15,2),2) : GOSUB 4710 : V7(4)=U3(1) : IF V7=0OR V7=2THEN 4574 : U7$=STR(V2$(),61,67) : GOSUB 4662 : U7$=V2$ : GOSUB 4598 : STR(V2$(),61,67)=V2$ 4574 IF V7=0OR V7=1THEN 4576 : STR(V5$(),V7(8)+5,6)=U9$ 4576 STR(V5$(),V7(8)+15,2)=BIN(V7(4),2) : STR(V2$(),4,32)=STR(V5$(),V7(8)+1,32) : STR(V2$(),3,1)=HEX(01) : U3(1)=V7(4) : GOSUB 4714 : GOTO 4836