10  REM PROGRAM NAME = PRINC, A PRINCIPLE OF PROBABILITY
20  PRINT "THESE EXPERIMENTS WILL HELP YOU CALCULATE THE NUMBER OF"
30  PRINT "SAMPLE POINTS IN A SAMPLE SPACE WITHOUT HAVING TO WRITE"
40  PRINT "THE SAMPLE SPACE EACH TIME."
50  PRINT 
60  PRINT "DESIGN AN EXPERIMENT: THE NUMBER OF POLYHEDRA AND THE NUMBER OF"
70  PRINT "SIEDS ON EACH ONE.  THEN EXAMINE THE SAMPLE SPACE FOR A PATTERN"
80  PRINT "WHICH WILL ALLOW YOU TO CALCULATE ITS SIZE."
90  PRINT 
100  N5=C5=U8=C4=0
110  DIM A$[5]
120  DIM B$[15]
130  P5=R=1
140  PRINT "INPUT THE NUMBER OF POLYHEDRA YOU WANT TO TOSS (5 MAXIMUM)";
150  INPUT P
160  PRINT 
170  IF INT(P)=P AND P>0 AND P<6 THEN 200
180  PRINT "YOU HAVE INPUT AN INCORRECT NUMBER OF POLYHEDRA."'10
190  GOTO 140
200  IF P#1 THEN 240
210  PRINT "IN ORDER TO GET A GOOD FEELING FOR THE CORRECT METHOD"
220  PRINT "YOU SHOULD THROW AT LEAST 2 POLYHEDRA."'10
230  GOTO 140
240  FOR J=1 TO 5
250  S[J]=1
260  NEXT J
270  PRINT "HOW MANY SIDES FOR EACH POLYHEDRON?"
280  PRINT "TYPE ONE NUMBER AND THE RETURN KEY FOR EACH QUESTION MARK."
290  PRINT 
300  FOR I=1 TO P
310  INPUT S[I]
320  IF S[I]=INT(S[I]) AND S[I] >= 1 THEN 350
330  PRINT '10"YOU HAVE INPUT AN INCORRECT NUMBER OF SIDES FOR YOUR POLYHEDRON."'10
340  GOTO 270
350  P5=P5*S[I]
360  NEXT I
370  PRINT 
380  PRINT "HOW MANY SAMPLE POINTS DO YOU THINK ARE IN THE SAMPLE SPACE";
390  INPUT N1
400  PRINT 
410  IF N1=P5 THEN 840
420  IF C4#0 THEN 460
430  C4=C4+1
440  PRINT "THE SAMPLE SPACE WILL NOW BE PRINTED. LOOK FOR A PATTERN IN WHICH""THE SAMPLE SPACE IS BEING GENERATED.  TRY AGAIN!"'10
450  GOTO 530
460  PRINT "DO YOU WANT TO RECALCULATE THE NUMBER OF POINTS IN THE SAMPLE SPACE";
470  INPUT A$
480  PRINT 
490  IF A$="NO" THEN 940
500  IF A$="YES" THEN 380
510  GOSUB 1470
520  GOTO 460
530  FOR A=1 TO S[J-1]
540  FOR B=1 TO S[J-2]
550  FOR C=1 TO S[J-3]
560  FOR D=1 TO S[J-4]
570  FOR E=1 TO S[J-5]
580  U8=U8+1
590  GOTO P OF 680,660,640,620,600
600  PRINT A;B;C;D;E
610  GOTO 690
620  PRINT B;C;D;E
630  GOTO 690
640  PRINT C;D;E
650  GOTO 690
660  PRINT D;E
670  GOTO 690
680  PRINT E
690  IF U8/10#INT(U8/10) THEN 760
700  PRINT "DO YOU WANT MORE OF THE SAMPLE SPACE  ";
710  INPUT A$
720  IF A$="NO" THEN 810
730  IF A$="YES" THEN 760
740  GOSUB 1470
750  GOTO 700
760  NEXT E
770  NEXT D
780  NEXT C
790  NEXT B
800  NEXT A
810  PRINT 
820  U8=0
830  GOTO 380
840  PRINT "CORRECT--";
850  PRINT " CAN YOU SEE AN EASY METHOD FOR CALCULATING THE NUMBER"
860  PRINT "OF SAMPLE POINTS IN THE SAMPLE SPACE";
870  INPUT A$
880  PRINT 
890  R=1
900  IF A$="YES" THEN 1010
910  IF A$="NO" THEN 940
920  GOSUB 1470
930  GOTO 850
940  PRINT "DO YOU WANT TO TRY ANOTHER EXPERIMENT";
950  INPUT A$
960  PRINT 
970  IF A$="NO" THEN 1510
980  IF A$="YES" THEN 100
990  GOSUB 1470
1000  GOTO 940
1010  PRINT "WHICH OF THE FOLLOWING OPERATIONS IS USED IN THE CALCULATION:"
1020  PRINT "1)ADD, 2)SUBTRACT, 3)MULTIPLY, OR 4)DIVIDE  (1,2,3,OR 4)  ";
1030  INPUT B9
1040  PRINT 
1050  IF B9=3 THEN 1110
1060  IF B9=1 THEN 1090
1070  PRINT "YOU PICKED THE WRONG OPERATION.  TRY AGAIN!"'10
1080  GOTO 1020
1090  PRINT "THIS OPERATION MAY WORK BUT THERE IS AN EASIER WAY TO DO IT."'10
1100  GOTO 1020
1110  PRINT "WHAT NUMBERS DO YOU HAVE TO MULTIPLY";
1120  PRINT "TYPE ONE NUMBER AND THE RETURN KEY FOR EACH QUESTION MARK."
1130  PRINT 
1140  R=1
1150  FOR J=1 TO P
1160  INPUT P[J]
1170  R=R*P[J]
1180  FOR K=1 TO P
1190  IF P[J]=S[K] THEN 1300
1200  NEXT K
1210  PRINT 
1220  PRINT "YOUR METHOD IS NOT RIGHT.  DO YOU WANT TO TRY AGAIN";
1230  C5=0
1240  INPUT A$
1250  PRINT 
1260  IF A$="NO" THEN 940
1270  IF A$="YES" THEN 1110
1280  GOSUB 1470
1290  GOTO 1220
1300  NEXT J
1310  IF R#P5 THEN 1210
1320  PRINT 
1330  C5=10
1340  PRINT '7'7'7'7'7'7'7'7'7'7'7'7"RIGHT ON!  ";
1350  GOTO 940
1360  PRINT 
1370  PRINT "GOOD! THAT IS AN APPLICATION OF THE MULTIPLICATION PRINCIPLE."
1380  PRINT 
1390  PRINT "THE MULTIPLICATION PRINCIPLE -- IF AN OPERATION CAN BE"
1400  PRINT "PERFORMED IN N(1) WAYS AND, AFTER IT IS PERFORMED IN ANY"
1410  PRINT "ONE OF THESE WAYS, A SECOND OPERATION CAN BE PERFORMED"
1420  PRINT "IN N(2) WAYS, AND SO ON FOR K OPERATIONS, THEN THE K"
1430  PRINT "OPERATIONS CAN BE PERFORMED TOGETHER IN"
1440  PRINT TAB(10);"N(1)*N(2)*N(3)*...*N(K) WAYS."
1450  PRINT "THIS IS THE NUMBER OF SAMPLE POINTS IN THE SAMPLE SPACE."
1460  GOTO 1550
1470  PRINT 
1480  PRINT "YOU HAVE MADE A TYPING MISTAKE.  TRY AGAIN!"
1490  PRINT 
1500  RETURN 
1510  IF C5=10 THEN 1370
1520  PRINT "THE CORRECT ANSWER IS"P5"."
1530  PRINT "SINCE YOU WERE UNABLE TO DISCOVER THE CORRECT METHOD,"
1540  PRINT "COME BACK AND TRY AGAIN SOMETIME SOON."
1550  END 
