1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        MEMBR:   DIFFUSION EXPERIMENT
4  REM
5  REM        36611 REV  A   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
8  REM  REM MEMBR - COPYRIGHT 1970 - POLYTECHNIC INSTITUTE OF BROOKLYN
100  REM COURT, G., BIOLOGY, 7/9/69
105  REM  REVISED BY C.LOSIK  7-9-70
107  REM  ALL INPUTS ARE TEMPORARY
110  PRINT "                       CELL MEMBRANES"
120  PRINT 
130  READ L,M,N,O,P
140  DATA 10,11,12,13,14
150  PRINT 
160  PRINT "     AN IMPORTANT FUNCTION OF CELL MEMBRANES IS TO CONTROL"
170  PRINT "THE PASSAGE OF MATERIAL INTO AND OUT OF CELLS. THIS PROGRAM"
180  PRINT "GOES INTO THE MEANS BY WHICH THIS PROCESS TAKES PLACE."
190  PRINT 
200  PRINT "     IN THIS EXPERIMENT A STARCH AND GLUCOSE SOLUTION WAS"
210  PRINT "PLACED WITHIN A PIECE OF CELLOPHANE TUBING. CELLOPHANE IS"
220  PRINT "POROUS ENOUGH TO PERMIT THE PASSAGE OF SOME SMALLER MOLECULES"
230  PRINT "THROUGH IT. THEREFORE, A CLOSED OFF PIECE OF TUBING CAN"
240  PRINT "REPRESENT A CELL."
250  PRINT 
260  PRINT "     AFTER THE STARCH AND GLUCOSE SOLUTION WAS PLACED INTO THE"
270  PRINT "TUBING, THE END WAS TIED OFF AND THE 'CELL' PLACED IN A BEAKER"
280  PRINT "OF WATER TO WHICH A FEW DROPS OF IODINE HAD BEEN ADDED."
290  PRINT 
300  PRINT "     LET "L" REPRESENT THE OUTSIDE OF THE MEMBRANE"
310  PRINT "     LET "M" REPRESENT THE INSIDE OF THE MEMBRANE"
320  PRINT 
330  PRINT "WHERE IS THE CONCENTRATION OF GLUCOSE THE GREATEST";
340  INPUT A
350  PRINT 
360  IF A=M THEN 410
370  PRINT "SORRY. THAT IS NOT THE CORRECT ANSWER. WHY NOT? WRITE YOUR"
380  PRINT "REASONS ON A PIECE OF PAPER AND HAVE THEM VERIFIED BY YOUR"
390  PRINT "TEACHER BEFORE CALLING THIS PROGRAM AGAIN."
400  STOP 
410  PRINT "THAT IS CORRECT. WHERE IS THE CONCENTRATION OF STARCH THE"
420  PRINT "GREATEST";
430  INPUT B
440  PRINT 
450  IF B <> M THEN 370
460  PRINT "RIGHT.  WHERE IS THE CONCENTRATION OF IODINE THE GREATEST";
470  INPUT C
480  PRINT 
490  IF C <> L THEN 370
500  PRINT "WOW!  WHAT A SUPERIOR MIND YOU HAVE, OR IS IT JUST LUCKY"
510  PRINT "GUESSING? WHERE IS THE CONCENTRATION OF WATER THE GREATEST";
520  INPUT D
530  PRINT 
540  IF D <> L THEN 370
550  PRINT "YES.  IF THE MEMBRANE WERE THE OUTER LIMITS OF A LIVING"
560  PRINT "CELL, WHICH OF THE PROCESSES BELOW WOULD ACCOUNT FOR THE MOVE-"
570  PRINT "MENT OF GLUCOSE OUT OF THE CELL?"
580  PRINT 
590  PRINT "     LET OSMOSIS = "N
600  PRINT "     LET ACTIVE TRANSPORT = "O
610  PRINT "     LET DIFFUSION = "P
620  INPUT E
630  PRINT 
640  IF E <> P THEN 370
650  PRINT "CORRECT.  THE GLUCOSE DIFFUSED FROM AN AREA OF HIGHER"
660  PRINT "CONCENTRATION TO ONE OF LOWER CONCENTRATION. WHICH PROCESS"
670  PRINT "WOULD ACCOUNT FOR THE MOVEMENT OF THE WATER OUT OF THE CELL";
680  INPUT F
690  PRINT 
700  IF F <> O THEN 370
710  PRINT "RIGHT.  THE CONCENTRATION OF WATER IS GREATER OUTSIDE OF THE"
720  PRINT "CELL THAN INSIDE. ACTIVE TRANSPORT WOULD ACCOUNT FOR MOVE-"
730  PRINT "MENT AGAINST DIFFUSION. WHICH PROCESS WOULD EXPLAIN THE"
740  PRINT "TRANSPORT OF WATER INTO THE CELL";
750  INPUT G
760  PRINT 
770  IF G <> N THEN 370
780  PRINT "YES, OSMOSIS IS DIFFUSION OF WATER THROUGH A SEMIPERMEABLE"
790  PRINT "MEMBRANE. IF THE IODINE OUTSIDE OF THE CELL HAD TURNED BLACK,"
800  PRINT "WHAT PROCESS WOULD HAVE CAUSED IT";
810  INPUT H
820  PRINT 
830  IF H=O THEN 860
840  PRINT "NO.  ";
850  GOTO 870
860  PRINT "YES.  ";
870  PRINT "SINCE STARCH MOLECULES ARE RELATIVELY LARGE, THE CELL"
880  PRINT "WOULD HAVE TO EXPEND ENERGY TO MOVE THEM ACROSS THE "
890  PRINT "MEMBRANE, EVEN WHEN THE STARCH CONCENTRATION IS GREATER"
900  PRINT "INSIDE THE CELL."
910  PRINT 
920  IF H <> O THEN 960
930  PRINT "CONGRATULATIONS.  YOU HAVE SCORED 100. KEEP UP THE GOOD WORK."
950  GOTO 970
960  PRINT "WELL, YOU HAVE DONE WELL IN SPITE OF SOME ERROR."
970  PRINT 
980  PRINT "          ***          END OF PROGRAM        ***"
990  END 
