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