10  COM Z1
20  REM PROGRAM NAME = SAMPRO, BEGINS PROBABILITY PROGRAMS
30  GOTO 110
40  CHAIN "$SAMPLE"
50  CHAIN "$PRINC"
60  CHAIN "$PROBAB"
70  CHAIN "$CONDI"
80  CHAIN "$PASCL"
90  CHAIN "$BINOM"
100  CHAIN "$QUIZ"
110  DIM A$[3]
120  A=240
130  PRINT "DO YOU WANT INSTRUCTIONS FOR RUNNING SAMPRO?  ";
140  ENTER A,D,A$
150  PRINT '13
160  IF D<0 THEN 130
170  IF A$="YES" THEN 200
180  IF A$#"NO" THEN 130
190  GOTO 410
200  PRINT "THIS GROUP OF PROGRAMS HAS THE FOLLOWING 8 PARTS:"
210  PRINT 
220  PRINT "   1. SAMPLE - GENERATES SAMPLE SPACES FOR AN EXPERIMENT."
230  PRINT 
240  PRINT "   2. PRINC - INVESTIGATION OF AN IMPORTANT PRINCIPLE IN PROBABILITY."
250  PRINT 
260  PRINT "   3. PROBAB - EXPERIMENTS USING EXPERIMENTAL AND"
270  PRINT "               THEORETICAL PROBABILITY."
280  PRINT 
290  PRINT "   4. UNION - INVESTIGATION OF SOME IMPORTANT PROBABILITY THEOREMS."
300  PRINT 
310  PRINT "   5. CONDI - INVESTIGATION OF THE DEFINITION OF"
320  PRINT "              CONDITIONAL PROBABILITY."
330  PRINT 
340  PRINT "   6. PASCL - PASCAL'S TRIANGLE AND EXPANSION OF BINOMIALS."
350  PRINT 
360  PRINT "   7. BINOM - BINOMIAL EXPERIMENTS AND "
370  PRINT "              THE BINOMIAL PROBABILITY DISTRIBUTION."
380  PRINT 
390  PRINT "   8. QUIZ - A POST TEST ON THESE PROGRAMS."
400  PRINT 
410  PRINT "INPUT THE NUMBER OF THE PART WHICH YOU WANT(1,2,3,4,5,6,7,OR 8):  ";
420  ENTER A,D,Z1
430  PRINT '13
440  IF D<0 THEN 410
450  IF Z1<1 OR Z1>8 OR Z1#INT(Z1) THEN 410
460  PRINT 
470  GOTO Z1 OF 40,50,60,60,70,80,90,100
480  END 
