Listing of file='CAT.OPEN' on disk='vmedia/701-2739G.wvd.zip'
# Sector 409, program filename = 'CAT.OPEN' 4788 M=M+1 : GOSUB 4756 : GOSUB 4616 : IF U3(2)<>0THEN 4790 : R1$=BIN(3) : GOTO 4834 4790 HEXUNPACKSTR(V2$(),U3(2)+16,2)TO V8$ : V8$=STR(V8$,,3) : V3=POS(U4$="0") : IF V3>0THEN 4792 : R1$=BIN(4) : GOTO 4834 4792 U0=16-V3 : STR(U4$,V3,1)="1" : V3=V3-1 : V0$=V3$ : SELECT #U0<V8$> : GOSUB 4698 : $CLOSE#0 : GOTO 4838