10 COM Z7,D$[7],V6,J8,U$[72],V$[72],I[4],C1,Z[7],C9,W[7] 20 COM I,R7,N9 30 GOTO 70 40 CHAIN "$CIRDI" 50 CHAIN "$ARDI" 60 CHAIN "$ANAL-1" 70 R7=Z7=C1=J8=C9=I-I 80 Z[3]=I[I]=I 90 Z[4]=V6=I+I 100 DIM A[4,30] 110 MAT A=ZER 120 FILES SLITS1 130 PRINT '10"THE FOLLOWING SYMBOLS WILL BE USED FOR THIS INVESTIGATION:" 140 GOTO N9 OF 150,40,50 150 PRINT TAB(12)"M >> MASS (IN GRAMS)"'13'10TAB(12)"V >> VOLUME (IN CU. CM)"'10'10 160 D$="M V" 170 N2=INT(10*RND(0)) 180 IF N2 >= I AND N2 <= 3 THEN 200 190 GOTO 170 200 GOTO N2 OF 210,230,250 210 N=10 220 GOTO 260 230 N=I 240 GOTO 260 250 N=.001 260 D=N*INT(100*RND(0))/10 270 IF N/10 <= D AND D <= N THEN 290 280 GOTO 260 290 FOR J=I TO 6 300 M=N/10*INT(1000*RND(0)) 310 IF M >= 10*N AND M <= 100*N THEN 330 320 GOTO 300 330 V=INT(1000*M/D+.5)/1000 340 A[I,J*(V6+I)]=V 350 A[I,J*(V6+I)-I]=M 360 NEXT J 370 MAT PRINT #I;A 380 READ #I,I 390 GOTO 60 400 END