image of READY prompt

Wang2200.org

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