1  REM :::::***************PROPERTY OF RICHARD C. ADAMS ***************
5  V3=0
10  PRINT "WELL, HERE YOU ARE - THE ONE WHO DIDN'T GET TO TITRATE"
20  PRINT "THE BASE WITH THE ACID.  YOU MISSED OUT ON ALL THE FUN"
30  PRINT "OF SPILLING ACID ON YOURSELF AND BREAKING A BURETTE ($12.95) OR"
40  PRINT "MAYBE JUST A PIPETTE ($4.95).  ANYWAY, YOU'RE GOING TO GET"
50  PRINT "TO HAVE  SOME  OF THAT FUN AND DO AN ELECTRONIC TITRATION."
60  PRINT "YOU JUST HAVE TO TELL ME WHAT STRENGTH ACID YOU WANT TO USE"
70  PRINT "(SOMEWHERE LESS THAN 1 MOLAR IS NICE) AND HOW MUCH BASE"
80  PRINT "YOU WANT TO TITRATE.  WE'LL BE USING A RED INDICATOR,"
90  PRINT "PHENOLPHTHALEIN  (FEE NO THAY LEE IN) WHICH IS A PRETTY REDDISH-"
100  PRINT "MAGENTA COLOR IN BASE, SO YOU'LL BE SHOOTING FOR A CLEAR"
101  PRINT "SOLUTION AT NEUTRALITY.      LET'S GET STARTED!"
102  PRINT '10"WHAT MOLARITY OF ACID DO YOU WANT TO USE?";
105  INPUT A
108  PRINT "FINE.  NOW, HOW MANY MILLILITERS OF BASE DO YOU WANT TO USE";
110  INPUT V2
120  LET B=((INT(RND(1)*100))/100)
125  PRINT "O.K. START OFF WITH A VOLUME OF ACID (IN MILLILITERS) AND"
127  PRINT "I'LL TRY TO TELL YOU HOW THE COLOR'S COMING ALONG."
128  PRINT "ML";
130  INPUT V1
135  V3=V3+V1
136  LET B1=(V2*B)
137  A1=(A*V3)
145  IF A1=B1 THEN 530
146  IF A1>(1.1*B1) THEN 570
147  IF A1>(1.05*B1) THEN 550
151  IF A1>(.99*B1) THEN 510
152  IF A1>(.98*B1) THEN 490
153  IF A1>(.97*B1) THEN 470
154  IF A1>(.96*B1) THEN 450
160  IF A1>(.95*B1) THEN 430
170  IF A1>(.9*B1) THEN 410
180  IF A1>(.85*B1) THEN 390
190  IF A1>(.8*B1) THEN 370
200  IF A1>(.75*B1) THEN 350
210  IF A1>(.6*B1) THEN 330
220  IF A1>(.4*B1) THEN 310
230  IF A1>(.2*B1) THEN 290
240  IF A1>(.1*B1) THEN 270
250  PRINT "YOU'VE HARDLY ADDED ANY AT ALL!  DO MORE NEXT TIME."
260  GOTO 610
270  PRINT "BOY!  THAT'S NOT VERY MUCH EVEN YET.  I DIDN'T SEE ANY COLOR"
275  PRINT "CHANGE.  TRY MORE NEXT TIME.  REALLY!"
280  GOTO 610
290  PRINT "THAT'S STILL NOT VERY GOOD."
300  GOTO 610
310  PRINT "HEY!  IT CLEARED IN ONE SPOT JUST FOR A SECOND!"
320  GOTO 610
330  PRINT "THE CLEARING LASTED A LITTLE LONGER THIS TIME!"
340  GOTO 610
350  PRINT "IT CLEARS A LITTLE BUT NOT MUCH CHANGE."
360  GOTO 610
370  PRINT "THE CLEAR AREA KEEPS GETTING A LITTLE LARGER BEFORE IT TURNS"
375  PRINT "BACK TO ALL RED.  KEEP GOING!"
380  GOTO 610
390  PRINT "YOU'RE GAINING ON IT.  YOU'D BETTER NOT ADD TOO MUCH AT A"
395  PRINT "TIME - - YOU'RE 85% THERE NOW!"
400  GOTO 610
410  PRINT "THE COLOR'S BEGINNING TO FADE NOW!"
420  GOTO 610
430  PRINT "YOU'RE ABOUT 95% OF THE WAY THERE ALREADY!"
440  GOTO 610
450  PRINT "HEY!!!  GO SLOW!!!  IT'S DEFINITELY PINK AND NO LONGER RED."
460  GOTO 610
470  PRINT "IT'S GETTING LIGHTER . . ."
480  GOTO 610
490  PRINT "GO DROP-BY-DROP NOW (0.05 ML)!"
500  GOTO 610
510  PRINT "HALF-DROPS NOW . . ."
520  GOTO 610
530  PRINT "THAT'S IT "'7'7'7'7'7'7'7'7"  IT'S CLEAR!!!"'7'7'7'7'7"  CONGRATULATIONS"'7'7'7'7"!!!!"
540  GOTO 630
550  PRINT "YOU OVERSHOT IT A LITTLE, BUT YOU WERE CLOSE ENOUGH."
560  GOTO 630
570  PRINT "YOU WAY OVERSHOT IT.  I'M GOING TO DUMP IN 2 ML MORE OF "
575  PRINT "BASE AND LET YOU COME UP ON IT AGAIN."
590  V2=V2+2
610  PRINT "YOU'VE ADDED";V3;"ML OF ACID SO FAR."
620  GOTO 128
630  PRINT "O.K., YOU HAD";V2;"ML OF BASE AND YOU ADDED";V3
640  PRINT "ML OF YOUR ACID, WHICH WAS";A;"MOLAR.  SO";V3
650  PRINT "TIMES;";A;"HAS TO EQUAL";V2;"TIMES THE BASE'S MOLARITY."
660  PRINT "I GET";B;"FOR THE MOLARITY OF THE BASE."
670  PRINT '10"THANKS FOR TITRATING WITH ME   - HE SAID ACIDLY"
680  END 
