Listing of file='5' on disk='vmedia/glbr_22.wvd.zip'
# Sector 586, program filename = '5' 0015 READ Z,A,B,D 0020 S,T=0 0030 IF Z=1 THEN 60 0040 READ Y1 0050 GOTO 80 0060 Y1=FNC(A) 0070 Y2=FNC(B) 0080 FOR I=1 TO (B-A)/D-.5 0090 IF Z=1 THEN 120 0100 READ Y 0110 GOTO 130 0120 Y=FNC(A+I*D) 0130 IF I/2=INT(I/2) THEN 160 0140 S=S+Y 0150 GOTO 170 0160 T=T+Y 0170 NEXT I 0180 IF Z=1 THEN 200 0190 READ Y2 0200 PRINT "INTEGRAL=";D/3*(Y1+4*S+2*T+Y2) 0999 END