Listing of file='7' on disk='vmedia/glbr_22.wvd.zip'
# Sector 823, program filename = '7' 0001 DIM X(20),F(10),K(4,10) 0003 GOTO 100 0005 REM --SUBROUTINE 0099 RETURN 0210 PRINT "T ", 0220 READ N,T 0230 FOR I=1 TO N 0240 READ X(I) 0250 PRINT "X";I;, 0260 NEXT I 0270 READ D,B 0280 A=T 0285 FOR J=A TO B STEP D 0286 PRINT 0288 PRINT T, 0290 FOR I=1 TO N 0292 PRINT X(I), 0294 NEXT I 0300 FOR I=1 TO N 0310 X(N+I)=X(I) 0320 NEXT I 0330 GOSUB 5 0340 FOR I=1 TO N 0350 K(1,I)=F(I) 0360 NEXT I 0370 D1=D/2 0380 T=T+D1 0390 FOR L=1 TO 3 0400 T=T+INT(L/3)*D1 0410 FOR I=1 TO N 0420 X(I)=X(N+I)+D1*K(L,I)*INT(L/3+1) 0430 NEXT I 0440 GOSUB 5 0450 FOR I=1 TO N 0460 K(L+1,I)=F(I) 0470 NEXT I 0480 NEXT L 0610 FOR I=1 TO N 0620 X(I)=X(N+I)+D/6*(K(1,I)+2*K(2,I)+2*K(3,I)+K(4,I)) 0630 NEXT I 0640 NEXT J 0999 END