Listing of file='CAT.INIT' on disk='vmedia/701-2739G.wvd.zip'
# Sector 412, program filename = 'CAT.INIT' 4736 M=M+1 : STR(V2$(),,2)=BIN(U3(3)+1,2) : U3(4)=U3(3)+1 : U3(1)=U3(4) : STR(V2$(),3,2)=BIN(7,2) : FOR I=1TO 7 : STR(V2$(),3+I*2,2)=BIN(U3(3)+I+1,2) : NEXT I : GOSUB 4718 : GOSUB 4710 : STR(V2$(),,2)=BIN(0,2) : STR(V2$(),4,2)=BIN(0,2) : GOSUB 4714 : GOTO 4838 4822 M=0 4824 GOSUB 4756 : GOSUB 4706 : GOSUB 4736 : GOTO 4836 4856 DEFFN'232 : M=0 : $OPEN #0 : DATA SAVE DC OPEN T#0,(10)"WPSYSTEM" : ERRORR1$=BIN(ERR) : IF VAL(R1$)<>83THEN 4834 : DATA SAVE DC OPEN T#0,("WPSYSTEM")"WPSYSTEM" : ERRORR1$=BIN(ERR) : IF VAL(R1$)<>84THEN 4834 : DATA LOAD DC OPEN T#0,"WPSYSTEM" 4858 DSKIP #0,8S : DATA SAVE DC #0,END : V2$()=ALL(00) : LIMITS T#0,"WPSYSTEM",A,B,C,D : FOR I=ATO B-2 : DATA SAVE BA T#0,(I)V2$() : NEXT I : GOTO 4824