Listing of file='15A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 81, program filename = '15A' 0001 DIM A(40),B(40),N(2) 0005 FOR K=1 TO 2 : PRINT "ENTER N";K : INPUT N(K) 0010 PRINT "ENTER SAMPLE";K 0015 FOR I=1 TO N(K) STEP 4 : INPUT B(I),B(I+1),B(I+2),B(I+3) : NEXT I 0020 FOR I=1 TO N(K) : FOR J=1 TO N(K)-I 0025 X1=B(J) : Y1=B(J+1) : IF X1<=Y1 THEN 35 0030 B(J)=Y1 : B(J+1)=X1 0035 NEXT J : NEXT I : PRINT 0040 IF K=2 THEN 50 0045 FOR I=1 TO N(1) : A(I)=B(I) : NEXT I 0050 NEXT K 0055 X1,X2=1 0060 Y1,Y2=0 0065 IF X1>=N(1) THEN 70 : FOR K=X1+1 TO N(1) 0068 IF A(X1)<A(K) THEN 69 : Y1=Y1+1 0069 NEXT K 0070 IF X2>=N(2) THEN 75 : FOR K=X2+1 TO N(2) 0072 IF B(X2)<B(K) THEN 73 : Y2=Y2+1 0073 NEXT K 0075 Z=Y2/2 0080 I=B(X2)+1 : IF X1>N(1) THEN 85 : I=A(X1) 0085 J=B(X2) : IF I<>J THEN 90 : Z=(Y1+Y2+1)/2 0090 IF I<J THEN 95 : R=R+(X1+X2+Z-1)*(Y2+1) : X2=X2+Y2+1 0095 IF I>J THEN 100 : X1=X1+Y1+1 0100 IF X2<=N(2) THEN 60 0105 Y1=N(1)*N(2)+N(2)*(N(2)+1)/2-R : Y2=N(1)*N(2)-Y1 0110 IF Y1<=Y2 THEN 120 : Y1=Y2 0120 PRINT : PRINT "U=";Y1 0130 END