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 "$ANAL-1"
70  R7=Z7=C1=J8=C9=I-I
80  Z[3]=I[I]=I
90  I[2]=Z[4]=2
100  I[3]=Z[5]=V6=3
110  DIM A[4,30]
120  MAT A=ZER
130  FILES SLITS1
140  D$="T H D"
150  PRINT '10"'CANEX' COMPILES DATA TO BE USED IN THE 'ANALYSIS OF AN EXPERIMENT'."
160  PRINT "ARE YOU FAMILIAR WITH THE PURPOSE OF THE EXPERIMENT";
170  INPUT B$[I,I]
180  IF B$="Y" THEN 300
190  PRINT '10"THIS EXPERIMENT IS IN THE PSSC PHYSICS LABORATORY GUIDE. YOU ARE"
200  PRINT "ASKED TO DETERMINE A MATHEMATICAL RELATIONSHIP FOR THE TIME REQUIRED"
210  PRINT "FOR WATER TO FLOW FROM A CONTAINER. THE FLOW TIME WILL DEPEND ON"
220  PRINT "DIFFERENT COMBINATIONS OF INITIAL HEIGHT OF WATER IN THE CONTAINER"
230  PRINT "AND THE DIAMETER OF THE HOLE IN THE BOTTOM OF THE CONTAINER."
240  PRINT '10'10"DO YOU WANT TO PROCEED WITH THE DEVELOPMENT OF A MATHEMATICAL"
250  PRINT "RELATIONSHIP FOR THE VARIABLES IN THIS INVESTIGATION";
260  INPUT B$[I,I]
270  IF B$="Y" THEN 300
280  PRINT '10"PERHAPS YOU SHOULD READ THE EXPERIMENT AND THEN TRY THIS PROGRAM."
290  GOTO 500
300  PRINT '10"THE FOLLOWING SYMBOLS WILL BE USED IN THIS INVESTIGATION:"
310  PRINT TAB(6)"D >> DIAMETER OF HOLE (CM)"'10'13TAB(6)"H >> HEIGHT OF WATER (CM)"
320  PRINT TAB(6)"T >> FLOW TIME (SEC)"'10"   GOOD LUCK!"
340  FOR N2=I TO 3
350  FOR N=I TO 6
360  FOR N1=I TO V6+I
390  GOTO 420
400  IF N2=3 AND N=5 THEN 442
405  READ B
410  A[I[N2],N*(V6+I)-N1+I]=B
420  NEXT N1
430  NEXT N
440  NEXT N2
442  MAT  PRINT #I;A
444  READ #I,I
446  GOTO 40
460  DATA 1.5,30,73,1.5,10,43.5,1.5,4,26.7,1.5,1,13.5
470  DATA 2,30,41.2,2,10,23.7,2,4,15,2,1,7.2
480  DATA 3,30,18.4,3,10,10.5,3,4,6.8,3,1,3.7
490  DATA 5,30,6.8,5,10,3.9,5,4,2.2,5,1,1.5
500  END 
