50  REM ***** ENZYME ***** BIOLOGY PROGRAM 
100  DIM X(15),J(11),H(12),Q$(9)
110  FOR N=1 TO 14
112  READ X(N)
114  NEXT N
120  FOR N=1 TO 10
122  READ J(N)
124  NEXT N
130  PRINT "     THIS PROGRAM IS DESIGNED TO SHOW THAT ENZYME ACTION IS"
132  PRINT "RELATED TO CERTAIN LIMITING FACTORS.  THESE FACTORS INCLUDE"
134  PRINT "THE CONCENTRATION OF ENZYMES, AND TEMPERATURE.  IN THIS PROGRAM"
136  PRINT "WE ASSUME THAT TWO OF THE THREE FACTORS ARE CONSTANT AND"
138  PRINT "WILL CHANGE ONLY ONE AA TIME.  WE ALSO ASSUME THAT EACH"
140  PRINT "FACTOR WORKS IN DEPENDENTLY, ALTHOUGH THIS IS NOT TRUE IN"
142  PRINT "NATURE":PRINT:PRINT
160  FOR N=1 TO 11
162  READ H(N)
164  NEXT N
200 PRINT "     YOU HAVE THE CHOICE OF THE FOLLOWING LIMITING FACTORS:":
	PRINT:PRINT
202 PRINT "1)PH      2)CONCENTRATION OF ENZYMES   3)TEMPERATURE"
340  PRINT "WHICH NUMBER DO YOU CHOOSE";
342  INPUT A
344  PRINT 
346  IF A=1 THEN 420
348  IF A=2 THEN 680
350  IF A=3 THEN 810
375  PRINT "THAT IS NOT A PEISSIBLE ANSWER"
380  GOTO 340
420  PRINT "***PH***"
430  GOSUB 520
440  PRINT FOR X%=1% TO 3%
451  GOSUB 1000
460  PRINT "--------","-------------","I---------I---------I";
461  PRINT "---------I---------I"
470  DATA 0,1.5,4,7.5,12,18.5,21,18.5,12,7.5,4,1.5,.5,0
480  FOR N=1 TO 14
490  PRINT N,X(N)*Y,"I";TAB(INT((X(N)*Y+.5)/5)+28);"*"
500  NEXT N
510  GOTO 930
520  PRINT 
530  LET A=0
540  PRINT "HOW REACTIVE AN ENZYME ARE YOU WORKING WITH?  ENTER A VALUE BE-"
550  PRINT "TWEEN 1 (NOT VE REACTIVE) TO 10 (VERY REACTIVE). ";
560  INPUT Y
570  IF Y<1 THEN 600
580  IF Y <= 10 THEN 670
590  IF Y >= 2 THEN 650
600  IF A >= 2 THEN 650
610  PRINT "THE NUMBER YOU HAVE CHOSEN DOES NOT FALL WITHIN THE RANGE"
620  PRINT "GIVEN. TRY AGAIN."
630  A=A+1
640  GOTO 560
650  PRINT "NEXT TIME PLEASE FOLLOW INSTRUCTIONS."
660  STOP 
670  RETURN 
680  PRINT "*** CONCENTRATION OF ENZYMES ***"
690  PRINT "HERE WE MUST ASSUME THAT THE SUBSTRATE IS ALWAYS SUFFICIENT."
700  GOSUB 520
710  PRINT 730  PRINT FOR X%=1% TO 3%
731  GOSUB 1000
740  PRINT "------------","-------------","I---------I---------I";
741  PRINT "---------I---------I"
750  DATA 0,4.5,9,13.5,18,21,21,21,21,21
760  DATA 4.5,9,13.5,18,21,21,21,21,21
770  FOR N=1 TO 10
780  PRINT 10*N,J(N)*Y,"I";TAB(INT((J(N)*Y+.5)/5)+28);"*"
790  NEXT N
800  GOTO 930
810  PRINT "*** TEMPERTURE ***"
820  GOSUB 520
840  PRINT "DEGREES C.","REACTION RATE";
841  GOSUB 1000
850  PRINT "----------","-------------","I---------I---------I"
851  PRINT "---------I---------I"
860  DATA 0,1.5,3,5.5,8.5,11.5,15,19.5,17,5,0
870  T=0
880  FOR N=1 TO 11
890  PRINT T,H(N)*Y,"I";TAB(INT((H(N)*Y+.5)/5)+28);"*"
900  T=T+5
910  NEXT N
930  PRINT FOR X%=1% TO 3%
932 INPUT"DO YOU WANT ANOTHER RUN";Q$
934  IF Q$="YES" THEN 340
936  IF Q$="NO" THEN 980
938  PRINT "A YES OR NO ANSWER PLEASE"
940  GOTO 932
950  PRINT 
980  PRINT "STUDY THE GRAPHS AND TABLES,AND TRY TO FIGURE"
981  PRINT "OUT WHAT'S HAPPENING HERE."
990  STOP 
1000  FOR I=1