Listing of file='CAT.VMAN' on disk='vmedia/701-2739G.wvd.zip'
# Sector 423, program filename = 'CAT.VMAN' 4812 DEFFN'234(V3$) : M=0 : GOSUB 4756 : U3(1)=2 : GOSUB 4672 : IF U3(2)=0THEN R1$=BIN(3) : GOTO 4836 4814 DEFFN'238(V3$,V8$) : M=0 : GOSUB 4756 : GOSUB 4616 : IF U3(2)<>0THEN 4816 : R1$=BIN(3) : GOTO 4836 4816 HEXPACKV7$FROMV8$ : STR(V2$(),U3(2)+16,2)=STR(V7$,,2) : GOSUB 4714 : GOTO 4836 4844 DEFFN'239(V3$,V8$) : M=0 : GOSUB 4756 : GOSUB 4616 : IF U3(2)=0THEN 4782 : R1$=HEX(02) : GOTO 4836 4846 DEFFN'237(V3$) : M=0 : GOSUB 4756 : GOSUB 4616 : IF U3(2)<>0THEN 4848 : R1$=BIN(3) : GOTO 4834 4848 HEXUNPACKSTR(V2$(),U3(2)+16,2)TO V8$ : V8$=STR(V8$,,3) : SELECT #11<V8$> : SCRATCH T#11,STR(V3$,,8) : ERRORR1$=BIN(ERR) : GOTO 4836 4850 U3(1)=2 : GOSUB 4672 : IF U3(2)=0THEN R1$=BIN(3) : GOTO 4836