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 50
40  CHAIN "$ANAL-1"
50  DIM A[4,30]
60  FILES SLITS1
70  PRINT TAB(12)"A >> AREA (METERS SQUARED)"'10'13TAB(12)"D >> DIAMETER (METERS)"'10'10
80  D$="A D"
90  MAT A=ZER
100  FOR J=I TO 6
110  D=RND(0)
120  IF  NOT D THEN 110
130  A=3.1429*(D/2)^2
140  A[I,J*(V6+I)]=D
150  A[I,J*(V6+I)-I]=A
160  NEXT J
170  MAT  PRINT #I;A
180  GOTO 40
190  END 
