Listing of file='CAT.FO/C' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1084, program filename = 'CAT.FO/C' 4524 DEFFN'211(U7$,U8$,U9$,V6$) : M=0 : IF V6$=HEX(01)OR V6$=HEX(FF)THEN 4526 : R1$=BIN(6) : RETURN 4526 V3$=U8$ : GOSUB 4788 : GOSUB 4610 : IF V7(4)>0THEN 4530 4528 R1$=BIN(3) : GOTO 4542 4530 U3(1)=V7(4) : GOSUB 4710 : V7(8)=3 : IF VAL(STR(V2$(),3,1))<>1THEN 4528 : IF STR(V2$(),V7(8)+5,6)=U9$OR STR(V2$(),V7(8)+5,6)=" "THEN 4532 : R1$=BIN(5) : GOTO 4542 4532 IF STR(V2$(),V7(8)+4,1)<>HEX(FF)THEN 4536 4534 R1$=BIN(6) : GOTO 4542 4536 IF STR(V2$(),V7(8)+4,1)<>HEX(00)THEN 4538 : STR(V2$(),V7(8)+4,1)=V6$ : GOTO 4540 4538 IF V6$=HEX(01)THEN STR(V2$(),V7(8)+4,1)=BIN(VAL(STR(V2$(),V7(8)+4,1))+1) : ELSE GOTO 4534 4540 STR(V2$(),V7(8)+23,2)=BIN(U9,2) : GOSUB 4714 : STR(V5$(),V3*32+1,32)=STR(V2$(),4,32) : V2=VAL(STR(V5$(),V3*32+29,1)) : U1$()=STR(V2$(),129,128) : GOTO 4544 4542 STR(U4$,V3+1,1)="0" 4544 $CLOSE#U0 : $CLOSE#0 : RETURN 4546 DEFFN'212(V3) : M=0 : GOSUB 4726 : U3(1)=VAL(STR(V5$(),V7(8)+15,2),2) : GOSUB 4710 : IF STR(V5$(),V7(8)+4,1)=HEX(FF)THEN STR(V5$(),V7(8)+4,1)=BIN(0) : ELSE STR(V5$(),V7(8)+4,1)=BIN(VAL(STR(V5$(),V7(8)+4,1))-1) : STR(V2$(),4,32)=STR(V5$(),V7(8)+1,32) : GOSUB 4714 : IF U4=V3THEN U4=-1 : STR(U4$,V3+1,1)="0" : $CLOSE#U0 : $CLOSE#0 : RETURN