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