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 
