1 REM HP CONTRIBUTED LIBRARY, 2/75 5 REM **********PROGRAM PROPERTY OF RICHARD C. ADAMS********** 10 DIM A$[15],B$[45] 20 PRINT " HELLO AGAIN, OTIS HERE. HAVE YOU DONE 'ORG1'" 30 PRINT "AND 'ORG2' SUCCESSFULLY"; 40 INPUT B$ 45 IF B$="YES" THEN 90 50 PRINT 60 PRINT "WELL THEN, I'M NOT GOING TO GO ANY FURTHER UNTIL YOU" 70 PRINT "DO BOTH THOSE PROGRAMS." 80 STOP 90 PRINT 100 PRINT "GOOD, THEN WE CAN GET STARTED ON THIS ONE THEN." 110 PRINT "SAY, IS THIS ROY"; 120 INPUT B$ 130 IF B$="YES" THEN 190 140 PRINT "SORRY, I THOUGHT IT WAS. YOU TYPE AN AWFUL LOT" 150 PRINT "LIKE HIM. WHO ARE YOU?"; 160 INPUT A$ 170 PRINT "OH, ";A$;"! HOW DID I THINK THAT IT WAS ROY? OH WELL," 180 GOTO 220 190 PRINT "IT IS? GEE, I DIDN'T THINK I WAS THAT GOOD AT TELLING" 200 PRINT "TYPING SKILL. WELL, ANYWAY," 210 LET A$="ROY" 220 PRINT A$;", THIS PROGRAM WILL TEACH YOU HOW TO NAME A SECOND" 230 PRINT "GROUP OF HYDROCARBONS CALLED 'ALKENES'" 240 PRINT 250 PRINT "ALKENES HAVE A DOUBLE BOND (-C=C-) IN THEM AS WELL AS" 260 PRINT "SINGLE BONDS (-C-C-)." 270 PRINT "WHICH ONE OF THESE DO YOU THINK IS AN ALKENE?" 280 PRINT LIN(2) 300 PRINT TAB(37);"H" 310 PRINT TAB(36);"HCH" 320 PRINT TAB(13);"H H H H H H H I H" 330 PRINT TAB(12)"HC-C-C-CH HC-C=C-CH HC-C-CH" 340 PRINT TAB(13);"H H H H H H H H H I H" 350 PRINT TAB(36);"HCH" 360 PRINT TAB(37)"H" 365 PRINT TAB(13);" 1. 2. 3." 370 PRINT 380 FOR C=1 TO 4 390 INPUT A 400 IF A=2 THEN 500 410 IF A=1 THEN 460 420 IF A=3 THEN 480 430 PRINT "NO, ";A$;", YOU HAVE TO USE #1, #2, OR #3. TRY AGAIN." 450 GOTO 520 460 PRINT "NO, THAT'S AN ALKANE. TRY AGAIN." 470 GOTO 520 480 PRINT "NO, IT IS WIERD BUT DOESN'T HAVE A DOUBLE BOND." 490 GOTO 520 500 PRINT "THAT'S RIGHT, ";A$;". #2 IS THE ONE!" 510 GOTO 570 520 PRINT "WHICH ONE IS THE ALKENE"; 530 NEXT C 540 PRINT "? YOU'RE JUST GUESSING, ";A$;". #2 IS THE ONE" 550 PRINT "WITH A DOUBLE BOND (-C=C-)." 560 PRINT 570 PRINT "NOTICE THAT BOTH CARBONS ON EITHER SIDE OF THE DOUBLE" 580 PRINT "BOND HAD TO GIVE UP A HYDROGEN. A CARBON ATOM HAS FOUR" 590 PRINT "'HANDS' WITH WHICH TO HOLD ONTO THINGS AND IF IT USES TWO" 600 PRINT "OF THESE TO HOLD ONTO ANOTHER CARBON ATOM, IT JUST HAS TO" 610 PRINT "GIVE UP HOLDING ONTO A HYDROGEN. THIS MAKES THE GROUP" 620 PRINT "FORMULA SUCH THAT IF THERE ARE 'N' CARBONS, THERE WILL BE" 630 PRINT "'2N' HYDROGENS. NOW THAT YOU KNOW ABOUT THE HYDROGENS," 640 PRINT "I'M GOING TO STOP PRINTING THEM BECAUSE THAT WASTES SPACE." 650 PRINT 670 PRINT " NAMING ALKENES IS NOT VERY MUCH DIFFERENT FROM NAMING" 680 PRINT "ALKANES. THE DIFFERENCE IS THEY END IN '-ENE' INSTEAD OF" 690 PRINT "'-ANE'. THUS:" 710 PRINT 720 PRINT TAB(12)"C=C" 730 PRINT TAB(6);"IS 'ETHENE' AND C-C=C IS 'PROPENE'" 740 PRINT 750 PRINT "WHAT WOULD YOU CALL THIS ? - - C-C-C=C ?" 760 FOR C=1 TO 4 770 INPUT B$ 780 IF B$="BUTENE" THEN 840 790 IF B$="PROPENE" THEN 860 800 IF B$="PENTENE" THEN 880 810 IF B$="BUTANE" THEN 900 820 PRINT "SOMETHING'S NOT RIGHT. TRY AGAIN." 830 GOTO 930 840 PRINT "RIGHT ON, ";A$;"!" 850 GOTO 990 860 PRINT "'PRO-' MEANS THREE CARBONS, TRY AGAIN." 870 GOTO 930 880 PRINT "'PENT-' MEANS FIVE CARBONS. TRY AGAIN, ";A$;"." 890 GOTO 930 900 PRINT "NO, ALKENES END IN '-ENE'. TRY IT AGAIN." 910 GOTO 930 930 PRINT "WHAT'S THAT NAME AGAIN"; 940 NEXT C 950 PRINT 960 PRINT "ON SECOND THOUGHT, ";A$;", YOU'VE HAD FOUR TRIES" 970 PRINT "ALREADY. THAT COMPOUND WAS 'BUTENE' BECAUSE IT HAD FOUR" 980 PRINT "CARBONS ('BUT-') AND A DOUBLE BOND ('-ENE')." 990 PRINT 1000 PRINT " HOWEVER, NOTICE THAT WITH BUTENE WE RUN INTO A NAMING" 1010 PRINT "PROBLEM. I'LL ILLUSTRATE WITH HEXENE:" 1020 PRINT LIN(3) 1030 PRINT TAB(10)"C=C-C-C-C-C C-C=C-C-C-C C-C-C=C-C-C" 1040 PRINT LIN(2) 1050 PRINT "THESE ARE DIFFERENT COMPOUNDS WHICH REACT DIFFERENTLY" 1060 PRINT "AND SO HAVE TO BE NAMED DIFFERENTLY. THE LEFT ONE IS" 1070 PRINT "'1-HEXENE' BECAUSE THE DOUBLE BOND COMES AFTER THE FIRST" 1080 PRINT "('1-') CARBON. THE ONE ON THE FAR RIGHT IS '3-HEXENE'" 1090 PRINT " WHAT WOULD YOU CALL THE MIDDLE ONE"; 1100 FOR C=1 TO 4 1110 INPUT B$ 1120 IF B$="2-HEXENE" THEN 1180 1130 IF B$="4-HEXENE" THEN 1200 1140 IF B$="2-HEXANE" THEN 1220 1150 IF B$="2 HEXENE" THEN 1240 1160 PRINT "YOU MADE SOME MISTAKE, ";A$;". TRY IT AGAIN." 1170 GOTO 1270 1180 PRINT "HEY, ";A$;", YOU GOT THAT ONE RIGHT!" 1190 GOTO 1340 1200 PRINT "YOU COUNTED FROM THE WRONG END. ONE MORE TIME - - -" 1210 GOTO 1270 1220 PRINT "ALKENES END IN '-ENE', NOT '-ANE'. TRY IT AGAIN." 1230 GOTO 1270 1240 PRINT "YOU FORGOT THE HYPHEN. TRY AGAIN." 1250 GOTO 1270 1270 PRINT "WHAT'S THE NAME"; 1280 NEXT C 1290 PRINT 1300 PRINT "ON THE OTHER HAND, YOU'VE TRIED IT FOUR TIMES ALREADY." 1310 PRINT "THAT'S ENOUGH FOR ANYONE. IT'S '2-HEXENE'. THE DOUBLE " 1320 PRINT "BOND COMES AFTER THE SECOND ('2-') CARBON OF A SIX CARBON" 1330 PRINT "ALKENE ('HEXENE')." 1340 PRINT LIN(2) 1350 PRINT "O.K. YOU CAN SEE IT'S NOT SO DIFFICULT. THE NUMBER SPOT" 1360 PRINT "FOR THE DOUBLE BOND IS THE LAST THING YOU HAVE IN MORE" 1370 PRINT "COMPLICATED COMPOUNDS." 1380 PRINT 1390 PRINT TAB(17);"C" 1400 PRINT TAB(17);"I" 1410 PRINT TAB(13);"C C" 1420 PRINT TAB(13);"I I" 1430 PRINT TAB(9);"C-C-C-C=C-C-C" 1440 PRINT TAB(13);"I" 1450 PRINT TAB(13);"C";SPA(8);"5,5-DIMETHYL-3-ETHYL-3-HEPTENE" 1460 PRINT 1470 PRINT " YOU NUMBER FROM THE END WHICH GIVES YOU THE LOWEST NUMBER" 1480 PRINT "FOR THE DOUBLE BOND." 1490 PRINT " NOW YOU TRY THIS ONE. WHAT IS THE NAME OF:" 1500 PRINT LIN(2) 1510 PRINT TAB(9);"C C C" 1520 PRINT TAB(9);"I I I" 1530 PRINT TAB(7);"C-C-C-C-C-C-C=C-C" 1540 PRINT TAB(11);"I I" 1550 PRINT TAB(11);"C C" 1560 PRINT TAB(11);"I I" 1570 PRINT TAB(11);"C C" 1580 PRINT 1590 FOR C=1 TO 4 1600 INPUT B$ 1610 IF B$="4,6,8-TRIMETHYL-5,7-DIETHYL-2-NONENE" THEN 1670 1620 IF B$="4,6,8-METHYL-5,7-ETHYL-2-NONENE" THEN 1690 1625 IF B$="4,5,8-TRIMETHYL-5,7-DIETHYL-2-NONANE" THEN 1720 1630 IF B$="2,4,6-TRIMETHYL-3,5-DIETHYL-7-NONENE" THEN 1740 1650 PRINT "YOU MADE SOME SORT OF ERROR, ";A$;". TRY AGAIN" 1660 GOTO 1750 1670 PRINT "IT WAS COMPLICATED, ";A$;",BUT YOU GOT IT RIGHT!"'7'7'7'7 1680 GOTO 1830 1690 PRINT "YOU FORGOT TO TELL HOW MANY METHYLS ETC. REMEMBER THE" 1700 PRINT "'DI-, TRI-, TETRA- ETC.' STUFF? TRY AGAIN." 1710 GOTO 1750 1720 PRINT "NO, ";A$;", THIS IS AN ALKENE, NOT AN ALKANE. TRY AGAIN." 1730 GOTO 1750 1740 PRINT "YOU NUMBERED FROM THE WRONG END. TRY AGAIN." 1750 PRINT "WHAT IS THE NAME AGAIN?" 1760 NEXT C 1770 PRINT "WELL, I KNOW IT WAS COMPLICATED, ";A$;". THE ANSWER IS" 1780 PRINT "'4,6,8-TRIMETHYL-5,7-DIETHYL-2-NONENE' BECAUSE THERE" 1790 PRINT "ARE THREE ('TRI-') METHYLS ON CARBONS #4,6,8. THEN " 1800 PRINT "THERE ARE TWO('DI-') ETHYLS ON CARBONS #5 & 7, AND" 1810 PRINT "THE DOUBLE BOND ('-ENE') IS ON CARBON #2 OF A STRING" 1820 PRINT "OF CARBONS NINE MEMBERS LONG ('NONA')." 1830 PRINT LIN(3) 1840 PRINT "WELL, THAT'S THE END OF THIS LESSON, ";A$;"." 1850 PRINT "WHEN YOU'RE READY FOR ORG4, MAKE SURE YOU REVIEW ORG1," 1860 PRINT "ORG2, AND ORG3 AND HAVE THEM WITH YOU WHILE YOU DO THE" 1870 PRINT "NEXT PROGRAM. GOOD-BYE FOR NOW!!!!!!" 1880 PRINT 1890 PRINT TAB(30)"OTIS" 2000 END