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)"C >> CIRCUMFERENCE (METERS)"'10'13TAB(12)"D >> DIAMETER (METERS)"
80  D$="C D"
90  MAT A=ZER
100  FOR J=I TO 6
110  D=RND(0)
120  IF  NOT D THEN 110
130  C=3.1416*D
140  A[I,J*(V6+I)]=D
150  A[I,J*(V6+I)-I]=C
160  NEXT J
170  MAT  PRINT #I;A
180  READ #I,I
190  GOTO 40
200  END 
