5  REM ORG2, HP 36826A, 6/74
10  DIM A$[25],B$[10],C$[20],D$[30]
20  H=TIM(0)+(60*TIM(1))
30  PRINT "HELLO! OTIS HERE AGAIN.  THIS IS THE SECOND PROGRAM IN"
40  PRINT "THE SERIES ON ORGANIC CHEMISTRY.  IF YOU HAVEN'T DONE SO"
50  PRINT "ALREADY, GET-ORG1.  BY THE WAY, WHO IS THIS";
60  INPUT A$
70  PRINT "OH, IT'S YOU AGAIN, ";A$;".  HAVEN'T GIVEN UP YET, I SEE."
80  PRINT 
90  PRINT "ONE THING I DIDN'T TALK ABOUT LAST TIME IS 'WHAT IF ALL THE"
100  PRINT "CARBONS AREN'T IN A STRAIGHT LINE?' (I COULD TELL THAT"
110  PRINT "QUESTION WAS BOTHERING YOU, ";A$;")."
120  PRINT "     COMPOUNDS WHICH HAVE THE SAME NUMBERS OF ELEMENTS"
130  PRINT "BUT IN A DIFFERENT ARRANGEMENT ARE CALLED 'ISOMERS'.  FOR"
140  PRINT "EXAMPLE, HERE ARE THREE ISOMERS OF PENTANE:"
150  PRINT 
160  PRINT "       H          H"
170  PRINT "      HCH        HCH"
180  PRINT "   H H I H      H I H      H H H H H"
190  PRINT "  HC-C-C-CH    HC-C-CH    HC-C-C-C-CH"
200  PRINT "   H H H H      H I H      H H H H H"
210  PRINT "                 HCH"
220  PRINT "                  H"
230  PRINT 
240  FOR C=1 TO 3
250  PRINT "HOW MANY CARBONS DOES EACH ONE HAVE (ONE ANSWER)";
260  INPUT A
270  IF A=5 THEN 320
280  PRINT "COUNT AGAIN, ";A$;"."
290  NEXT C
300  PRINT "WELL, YOU'VE HAD 3 TRIES.  THERE ARE 5 IN EACH ONE."
310  GOTO 340
320  PRINT "RIGHT, ";A$;"!"
340  FOR C=1 TO 3
350  PRINT "NOW, HOW MANY HYDROGENS";
360  INPUT B
370  IF B=12 THEN 450
380  PRINT "COUNT AGAIN."
390  NEXT C
400  IF A <> 5 AND B <> 12 THEN 430
410  PRINT "THERE ARE 12 HYDROGENS IN EACH AND EVERY ONE."
420  GOTO 460
430  PRINT "GEE, ";A$;", THAT'S THE SECOND ONE IN A ROW YOU'VE MISSED."
440  GOTO 410
450  PRINT "RIGHT ON, ";A$;"!"
460  PRINT 
470  PRINT "NOW, HOW DO WE NAME SUCH THINGS?  FIRST OFF,   H"
480  PRINT "A GROUP CONTAINING ONE CARBON IS CALLED A     HC-"
490  PRINT "'METHYL' GROUP.  ONE WITH TWO CARBONS IS       H"
500  PRINT " H H"
510  PRINT "HC-C-  CALLED AN 'ETHYL GROUP.  ONE WITH"
520  PRINT " H H  THREE IS CALLED 'PROPYL' AND SO ON, USING THOSE"
530  PRINT "      GREEK NAMES  I SHOWED YOU IN 'ORG1'."
540  FOR C=0 TO 3
550  PRINT "     WHAT WOULD YOU CALL THIS GROUP?"
560  IF C <> 0 THEN 620
570  PRINT 
580  PRINT "    H H H H H"
590  PRINT "   HC-C-C-C-C-"
600  PRINT "    H H H H H"
610  PRINT 
620  INPUT B$
630  IF B$="PENTYL" THEN 710
640  IF B$="PENTANE" THEN 680
650  PRINT "NO, ";A$;", THAT'S NO IT.  TAKE A LOOK AT THE NAMES I GAVE"
660  PRINT "YOU IN 'ORG1' AND THE NEW NAMES ABOVE."
670  GOTO 690
680  PRINT "THAT'S CLOSE BUT SIDE GROUPS END IN '-YL'.  TRY AGAIN."
690  NEXT C
700  PRINT "WELL, I'S CALLED 'PENTYL'."
705  GOTO 720
710  PRINT "RIGHT YOU ARE, ";A$;"!"
720  PRINT 
730  PRINT "IN ORGANIC CHEMISTRY YOU HAVE TO NUMBER YOUR CARBONS IN"
740  PRINT "THE LONGEST,CONTINUOUS CHAIN AND THEN USE THOSE NUMBERS TO"
750  PRINT "TELL WHERE A SIDE GROUP IS.  I'LL GIVE YOU AN EXAMPLE IN A"
760  PRINT "MOMENT BUT I'M GETTING TIRED OF TYPING ALL THOSE HYDROGENS"
770  PRINT "SO I'M GOING TO LEAVE THEM OFF FROM NOW ON.  THE STRUCTURES"
780  PRINT "WILL BE EASIER TO SEE ANYWAY.  FOR EXAMPLE:"
790  PRINT 
800  PRINT "     C"
810  PRINT "     I"
820  PRINT "   C-C-C-C-C-C-C"
830  PRINT 
840  PRINT "IS CALLED  2-METHYL HEPTANE  BECAUSE THERE ARE SEVEN"
850  PRINT "CARBONS ('HEPTANE') IN THE MAIN CHAIN AND THEN ON THE SECOND"
860  PRINT "CARBON ('2-') THERE IS A 'METHYL GROUP.  .OK.  WHICH"
870  PRINT "END DO YOU NUMBER FROM?---THE ONE WHICH GIVES YOU THE LOWEST"
880  PRINT "NUMBER FOR THE MOST COMPLICATED GROUP.   CAUTION****>>>"
890  PRINT 
900  PRINT "             C     (THIS IS ALSO"
910  PRINT "             I      CALLED"
920  PRINT "   C-C-C-C-C-C-C      2-METHYL HEPTANE)"
930  PRINT 
940  PRINT "(IT'S JUST THE SAME MOLECULE FROM THE OTHER SIDE)"
945  PRINT 
950  PRINT "       C"
960  PRINT "       I         NOW WHAT WOULD YOU CALL THIS?"
970  PRINT "   C-C-C-C-C-C"
980  PRINT 
990  FOR C=1 TO 3
1000  INPUT C$
1010  IF C$="3-METHYL HEXANE" THEN 1120
1020  IF C$="4-METHYL HEXANE" THEN 1070
1030  PRINT "NO, THAT'S NOT IT.  COUNT THE CARBONS IN THE MAIN CHAIN"
1040  PRINT "AND THEN WHERE THE METHYL GROUP IS.  NOW WHAT'S THAT"
1050  PRINT "NAME AGAIN?";
1060  GOTO 1080
1070  PRINT "YOU NUMBERED FROM THE WRONG END.  COUNT AGAIN."
1080  NEXT C
1090  PRINT A$;", IT'S 3-METHYL HEXANE.' THE MAIN CHAIN HAS SIX"
1100  PRINT "('HEX') CARBONS AND THE METHYL GROUP IS ON THE THIRD"
1105  PRINT "ONE ('3-METHYL')."
1110  GOTO 1130
1120  PRINT "THAT'S THE ANSWER.  SAY, ";A$;", YOU'VE BEEN WATCHING!"
1130  PRINT 
1140  PRINT 
1150  PRINT "SOMETIMES YOU CAN HAVE MORE THAN ONE OF A CERTAIN GROUP."
1160  PRINT "IF THAT HAPPENS, YOU HAVE TO TELL HOW MANY THERE ARE USING"
1170  PRINT "SLIGHTLY DIFFERENT NOTATION:"
1180  PRINT 
1190  PRINT "2 = DI-   4 = TETRA-     (SIX AND THE OTHERS"
1200  PRINT "3 = TRI-  5 = PENTA-      ARE JUST LIKE YOUR"
1210  PRINT "                            OTHER GREEK PREFIXES.)"
1220  PRINT "FOR EXAMPLE:"
1230  PRINT 
1240  PRINT "   C C     C         IS CALLED"
1250  PRINT "   I I     I"
1260  PRINT " C-C-C-C-C-C-C-C-C   2,3,6-TRIMETHYL NONANE"
1270  PRINT 
1280  F=TIM(0)+(60*TIM(1))
1290  PRINT 
1300  PRINT 
1305  PRINT "    C C       C"
1310  PRINT "    I I       I    WHAT WOULD YOU CALL THIS ONE?"
1320  PRINT "  C-C-C-C-C-C-C-C"
1330  PRINT "          I"
1340  PRINT "          C"
1350  PRINT 
1360  FOR C=1 TO 4
1370  INPUT D$
1380  IF D$="2,3,5,7-TETRAMETHYL OCTANE" THEN 1610
1390  IF D$="2,4,6,7-TETRAMETHYL OCTANE" THEN 1430
1400  IF D$="2,3,5,7-METHYL OCTANE" THEN 1450
1410  PRINT "YOU MADE SOME SORT OF ERROR.  COUNT AGAIN.  WHAT'S THE NAME?"
1420  GOTO 1460
1430  PRINT "YOU COUNTED FROM THE WRONG END.  TRY AGAIN!"
1440  GOTO 1460
1450  PRINT "YOU FORGOT TO TELL HOW MANY METHYLS.  TRY AGAIN!"
1460  NEXT C
1470  E=TIM(0)+(60*TIM(1))
1480  G=E-F
1490  PRINT "THAT'S ALL THE TIME I CAN GIVE YOU.  YOU'VE HAD;"G;"MINUTES"
1500  PRINT "TO GET IT.  THE CORRECT ANSWER IS '2,3,5,7-TETRAMETHYL OCTANE"
1600  GOTO 1620
1610  PRINT '7'7'7" YOU GOT IT RIGHT!!!!!!!   GOOD FOR YOU."
1620  PRINT 
1630  PRINT "OF COURSE, YOU CAN HAVE OTHER GROUPS THAN 'METHYL'. IN NUMBERING,"
1640  PRINT "CARBON POSITIONS, YOU GIVE THE MOST COMPLICATED GROUP THE END"
1650  PRINT "WITH THE LOWEST NUMBER.  IN NAMING, HOWEVER, YOU NAME THE"
1660  PRINT "SIMPLEST GROUP FIRST.    FOR EXAMPLE:"
1670  PRINT 
1680  PRINT "         C       C"
1690  PRINT "         I       I"
1700  PRINT "         C   C   C   C     IS (GET READY"
1710  PRINT "         I   I   I   I"
1720  PRINT "   C-C-C-C-C-C-C-C-C-C-C   FOR THIS ONE)"
1730  PRINT "         I   I   I"
1740  PRINT "         C   C   C "
1750  PRINT "         I"
1760  PRINT "         C"
1770  PRINT "         I   6,6,8,10-TETRAMETHYL-4,8-DIETHYL-4-PROPYL UNDECANE"
1780  PRINT "         C"
1790  PRINT 
1800  I=TIM(0)+(60*TIM(1))
1810  J=I-H
1820  PRINT "HEY!  YOU'VE BEEN AT THIS FOR";J;"MINUTES, ";A$;"."
1830  PRINT "THAT'S LONG ENOUGH FOR ANYONE."
1840  PRINT LIN(2)
1860  PRINT "                GOOD-BYE, ";A$
1870  PRINT "                    OTIS"
1880  END 
