10 PRINT "ENTER LOWER LIMIT OF INTEGRATION,UPPER LIMIT OF INTEGRATION"
20 INPUT A,B    
30 PRINT "ENTER NO. OF SUBINTERVALS"    
40 INPUT K 
90 C=(B-A)/K/2 
110 D=A+C   
115 T=0   
120 FOR J=1 TO K    
130 S=0   
140 FOR I=1 TO 10
150READ X,W
160 S=S+W*(FNC(C*X+D)+FNC(D-C*X))   
170 NEXT I    
175 RESTORE 
180 T=T+S*C
185 D=D+2*C   
190 NEXT J    
200 PRINT "INTEGRAL= ";T 
210 PRINT 
220 PRINT "CHANGE NUMBER OF SUBINTERVALS? ('1'--YES,'0'--NO)"   
230 INPUT I
240 IF I=1 THEN 30 
250 PRINT "NEW INTEGRATION LIMITS? ('1'--YES,'0'--NO)"    
260 INPUT I
270 IF I=1 THEN 10 
300 DATA 76526521E-9,.15275339,.22778585,.14917299,.37370609,.14209611 
310 DATA .510867,.13168864,.63605368,.11819453,.74633191,.10193012 
320 DATA .83911697,83276742E-9,.91223443,62672048E-9,.96397193 
330 DATA 4060143E-8,.9931286,17614007E-9 
999 END 

