Listing of file='14A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 865, program filename = '14A' 0005 DIM A(130) 0010 PRINT "NO. OF PAIRS?" 0015 INPUT N 0020 PRINT "INPUT PAIRS OF DATA" 0025 FOR I=1 TO N 0030 INPUT X,Y 0035 A(I)=X-Y 0040 NEXT I 0045 FOR I=1 TO N 0050 FOR J=1 TO N-I 0055 X=A(J) 0060 Y=A(J+1) 0065 IF ABS(X)<=ABS(Y) THEN 80 0070 A(J)=Y 0075 A(J+1)=X 0080 NEXT J 0085 NEXT I 0090 FOR I=1 TO N 0095 X=A(I) 0100 FOR J=I+1 TO N 0110 IF ABS(X)<>ABS(A(J)) THEN 140 0120 NEXT J 0130 J=N+1 0140 Z=(J+I-1)/2 0150 FOR K=I TO J-1 0160 A(K)=SGN(A(K))*Z 0170 NEXT K 0180 I=J-1 0190 NEXT I 0200 X,Y=0 0210 FOR I=1 TO N 0220 IF A(I)<0 THEN 250 0230 X=X+A(I) 0240 GOTO 260 0250 Y=Y+ABS(A(I)) 0260 NEXT I 0270 IF X<=Y THEN 290 0280 X=Y 0290 PRINT 0300 PRINT "T=";X 0310 END