CLS
PRINT "GAUSSIAN EVALUATION"
PRINT "OF A DEFINITE INTEGRAL"
[ONSEZE]
PRINT
INPUT "KEY IN LOWER LIMIT "; A
INPUT "KEY IN UPPER LIMIT "; B
C = (B-A)/2
D = (B+A)/2
S = 0
FOR I = 1 TO 6
READ X
READ W
S = S+W*(G(C*(-1*X)+D)+G(C*X+D))
NEXT I
V = C*S
PRINT
PRINT "THE VALUE OF THE INTEGRAL IS ";V
PRINT
PRINT
PRINT "DO YOU WANT NEW LIMITS (YES=1,NO=0)? ";
INPUT " ";QQ
IF QQ=1 THEN
RESTORE
GOTO [ONSEZE]
END IF
GOTO [THFIZE]
DATA  .981561,.0471753
DATA .904117,.106939
DATA .769903,.160078
DATA .5873187,.203167
DATA .367831,.233493
DATA .125333,.249147
REM DEFINE FUNCTION G(X) HERE
[THFIZE]
END
FUNCTION G(X)
REM ************************
G = 1/X
REM ***********************
END FUNCTION