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 "$EX-DAT"
50  CHAIN "$MASVOL"
55  CHAIN "$CANEX"
60  CHAIN "$DBSLIT"
70  I=1
80  J8=V6=I-I
90  MAT Z=ZER
100  FILES *
110  ASSIGN "SLITS1",1,C
120  IF  NOT C THEN 210
130  PRINT "YOU WILL NEED THE FOLLOWING INFORMATION:"
140  PRINT "1) THE INSTRUCTIONS FOR OPENING A FILE (SLITS1)."
150  PRINT "2) AN UNDERSTANDING OF THE 'DIRECT PROPORTIONALITY' AND"
160  PRINT "   INFORMATION CONCERNING THE PARAMETERS ASSOCIATED WITH"
170  PRINT "   THE GENERAL FORM OF THE LINEAR EQUATION (Y = MX + B)."
180  PRINT "3) AN UNDERSTANDING OF HOW ONE DEFINES A FUNCTION"
190  PRINT "4) AN UNDERSTANDING OF THE INFORMATION ON THE DEFINITION SHEET"
200  PRINT '10"THIS INFORMATION MAY BE OBTAINED FROM YOUR TEACHER."
210  R7=I
220  PRINT '10"WHICH TYPE OF DATA WILL YOU USE IN THE ANALYSIS: (INPUT NUMBER)"
230  PRINT TAB(7)"1) COMPUTER SIMULATED DATA"'10'13TAB(7)"2) EXPERIMENTAL DATA";
240  INPUT Z7
250  IF Z7=I THEN 270
260  GOTO 40
270  PRINT "BELOW IS A LIST OF PROGRAMS WHICH PRODUCE SIMULATED DATA."'10
280  PRINT "RELATIONSHIP BETWEEN:"
290  PRINT TAB(7)"1) MASS AND VOLUME"
300  PRINT TAB(7)"2) CIRCUMFERENCE AND DIAMETER"
310  PRINT TAB(7)"3) AREA AND DIAMETER"
320  GOTO 340
330  PRINT TAB(6)"20) YOUNG'S INTERFERENCE EXPERIMENT:"
340  PRINT '10"INPUT THE NUMBER OF THE INVESTIGATION YOU WOULD LIKE TO PURSUE."
350  PRINT "NUMBER--";
360  INPUT N9
370  IF N9>3 THEN 350
380  FOR N3=I TO 10
390  IF N9 <= N3*10 THEN 410
400  NEXT N3
410  N4=N9-(N3-I)*10
420  GOTO N3 OF 430,510
430  GOTO N4 OF 440,440,440,450,460,470,480,490,500
440  GOTO 50
450  GOTO 55
460  X=I
470  X=I
480  X=I
490  X=I
500  X=I
510  GOTO N4 OF 520,530,540,550,560,570,580,590,600,610
520  X=I
530  X=I
540  X=I
550  X=I
560  X=I
570  X=I
580  X=I
590  X=I
600  X=I
610  GOTO 60
620  END 
