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 
