Listing of file='CAT.PRIM' on disk='vmedia/701-2739G.wvd.zip'
# Sector 360, program filename = 'CAT.PRIM' 4502 DIM V2$(256)1,V5$(160)1,V2$67,V3$16,U3$(10)2,U2$85,U2(6),R1$1,V8$4,V7$2,U 7$68,V6$1,U1$2,V0$8,U0$(128)2,V7(10),U3(9),U5(10) 4698 $OPEN #U0 : ERRORGOTO 4830 4700 DATA LOAD DC OPEN T#U0,V0$ : ERRORIF V0$<>"WPSYSTEM"THEN STR(U4$,POS(U4$="0")-1,1)="0" : GOTO 4830 4702 LIMITS T#U0,U3(1),U3(2),U3(3) : ERRORGOTO 4830 4704 U9=U3(1) : U3(3)=1 : GOSUB 4706 : U3(4)=VAL(STR(V2$(),,2),2) : U3(1)=U3(4) : RETURN 4706 DATA LOAD BA T#U0,(U3(3)+U9)V2$() : ERRORGOTO 4830 4708 RETURN 4710 DATA LOAD BA T#U0,(U3(1)+U9)V2$() : ERRORGOTO 4830 4712 V7(9)=VAL(STR(V2$(),,2),2) : RETURN 4714 IF U3(1)>0THEN STR(V2$(),255,2)=BIN(4,2) : DATA SAVE BA T#U0,(U3(1)+U9)V2$() : ERRORGOTO 4830 4716 RETURN 4718 STR(V2$(),255,2)=BIN(3,2) : DATA SAVE BA T#U0,(U3(3)+U9)V2$() : ERRORGOTO 4830 4720 RETURN 4722 V3$=STR(U7$,,(POS(U7$=".")-1)) : U7$=STR(U7$,POS(U7$=".")+1) : RETURN 4724 MAT SEARCHU7$,="."TO U3$() : MAT SEARCHU3$(),=HEX(0000)TO U3$()STEP 2 : V7(3)=(1+VAL(U3$(),2))/2 : RETURN 4726 IF V3>=0AND V3<4THEN 4728 : R1$=BIN(8) : GOTO 4832 4728 V7(8)=V3*32 : R1$=BIN(0) : IF VAL(STR(V5$(),V7(8)+4,1))>0THEN 4730 : R1$=BIN(7) : GOTO 4832 4730 U0=15-V3 : U9=VAL(STR(V5$(),V7(8)+23,2),2) : RETURN 4756 R1$=BIN(0) : U0=0 : V0$="WPSYSTEM" : GOTO 4698 4830 R1$=BIN(ERR) 4832 RETURN CLEAR 4834 IF M=0THEN 4836 : M=M-1 : GOTO 4832 4836 $CLOSE#U0 : $CLOSE#0 : RETURN 4838 M=M-1 : RETURN