10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  *******************
20  REM
30  REM           NZYMC: ENZYMATIC REACTION RATES
40  REM
50  REM           36303 (A833) REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  ************************************
80  REM NZYMC--COPYRIGHT 1970-- POLYTECHNIC INSTITUTE OF BROOKLYN
90  DIM X[15],J[11],H[12]
100  REM PROGRAM DEVELOPED BY R. COOPERMAN - JOHN GLENN HIGH SCHOOL
110  REM ELWOOD, NEW YORK
120  REM  REVISED BY C.LOSIK  7-6-70
130  REM ALSO SEE NZYM2 
140  REM X(I)=PH VALUES, J(I)=CONC. OF ENZYME VALUES, H(I)=TEMP VALUES
150  REM Y=REACTIVITY 
160  REM  ALL RESULTS ARE TABULATED AND GRAPHED (NO OPTIONS)
170  PRINT "     THIS PROGRAM IS DESIGNED TO SHOW THAT ENZYME ACTION IS"
180  FOR N=1 TO 14
190  READ X[N]
200  NEXT N
210  PRINT "RELATED TO CERTAIN LIMITING FACTORS. THESE FACTORS INCLUDE PH,"
220  FOR N=1 TO 10
230  READ J[N]
240  NEXT N
250  PRINT "THE CONCENTRATION OF ENZYMES, AND TEMPERATURE. IN THIS PROGRAM"
260  FOR N=1 TO 11
270  READ H[N]
280  NEXT N
290  PRINT "WE ASSUME THAT TWO OF THE THREE FACTORS ARE CONSTANTS AND"
300  PRINT "WILL CHANGE ONLY ONE AT A TIME. WE ALSO ASSUME THAT EACH"
310  PRINT "FACTOR WORKS INDEPENDENTLY, ALTHOUGH THIS IS NOT TRUE IN"
320  PRINT "NATURE."
330  PRINT 
340  PRINT "     YOU HAVE A CHOICE OF THE FOLLOWING LIMITING FACTORS:"
350  PRINT 
360  PRINT "1)PH         2)CONCENTRATION OF ENZYMES         3)TEMPERATURE"
370  PRINT 
380  PRINT "WHICH NUMBER DO YOU WISH ";
390  INPUT A
400  PRINT 
410  IF A=1 THEN 460
420  IF A=2 THEN 730
430  IF A=3 THEN 870
440  PRINT "THAT IS NOT A PERMISSIBLE ANSWER."
450  GOTO 380
460  PRINT "*** PH ***"
470  GOSUB 580
480  PRINT 
490  PRINT "PH VALUE","REACTION RATE","0        50        100";
500  PRINT "       150       200"
510  PRINT "--------","-------------","I---------I---------I";
520  PRINT "---------I---------I"
530  DATA 0,1.5,4,7.5,12,18.5,21,18.5,12,7.5,4,1.5,.5,0
540  FOR N=1 TO 14
550  PRINT N,X[N]*Y,"I";TAB(INT((X[N]*Y+.5)/5)+28);"*"
560  NEXT N
570  GOTO 1000
580  PRINT 
590  LET A=0
600  PRINT "HOW REACTIVE AN ENZYME ARE YOU WORKING WITH? USE A VALUE OF"
610  PRINT "FROM 1 (NOT VERY REACTIVE) TO 10 (VERY REACTIVE). ";
620  INPUT Y
630  IF Y<1 THEN 650
640  IF Y <= 10 THEN 720
650  IF A >= 2 THEN 700
660  PRINT "THE NUMBER YOU HAVE CHOSEN DOES NOT FALL WITHIN THE RANGE "
670  PRINT "GIVEN.  TRY AGAIN."
680  LET A=A+1
690  GOTO 620
700  PRINT "NEXT TIME, PLEASE FOLLOW INSTRUCTIONS."
710  STOP 
720  RETURN 
730  PRINT "*** CONCENTRATION OF ENZYMES ***"
740  PRINT "HERE WE MUST ASSUME THAT THE SUBSTRATE IS ALWAYS SUFFICIENT."
750  GOSUB 580
760  PRINT 
770  PRINT "ENZYME CONC.","REACTION RATE","0        50        100";
780  PRINT "       150       200"
790  PRINT "------------","-------------","I---------I---------I";
800  PRINT "---------I---------I"
810  DATA 0
820  DATA 4.5,9,13.5,18,21,21,21,21,21
830  FOR N=1 TO 10
840  PRINT 10*N,J[N]*Y,"I";TAB(INT((J[N]*Y+.5)/5)+28);"*"
850  NEXT N
860  GOTO 1000
870  PRINT "*** TEMPERATURE ***"
880  GOSUB 580
890  PRINT 
900  PRINT "DEGREES C.","REACTION RATE","0        50        100";
910  PRINT "       150       200"
920  PRINT "----------","-------------","I---------I---------I";
930  PRINT "---------I---------I"
940  DATA 0,1.5,3,5.5,8.5,11.5,15,19.5,17,5,0
950  LET T=0
960  FOR N=1 TO 11
970  PRINT T,H[N]*Y,"I";TAB(INT((H[N]*Y+.5)/5)+28);"*"
980  LET T=T+5
990  NEXT N
1000  PRINT 
1010  PRINT "DO YOU WISH ANOTHER RUN? IF YES, PRINT 1; IF NO, PRINT 0. ";
1020  INPUT A
1030  PRINT 
1040  IF A=1 THEN 340
1050  IF A <> 0 THEN 1010
1060  PRINT "STUDY THE GRAPHS AND TABLES, AND TRY TO FIGURE"
1070  PRINT "OUT WHAT'S HAPPENING HERE."
1080  END 
