5  REM  HP CONTRIBUTED LIBRARY, 2/75
10  REM************PROGRAM PROPERTY OF RICHARD C. ADAMS****************
20  DIM A$[10],B$[15],C$[65]
30  PRINT "THIS PROGRAM IS THE FOURTH IN THE ORGANIC NOMENCLATURE"
40  PRINT "SERIES.  HAVE YOU ALREADY DONE ORG1,ORG2, AND ORG3";
50  INPUT B$
60  IF B$="YES" THEN 90
70  PRINT "YOU HAVEN'T?!!!  I'M NOT GOING ANY FURTHER UNTIL YOU DO.  SO THERE!"
80  STOP 
90  PRINT "GOOD!  THIS PROGRAM WILL BE A LITTLE SHORTER SINCE YOU ALREADY"
100  PRINT "KNOW QUITE A BIT ABOUT NAMING.  JUST SO WE CAN CONTINUE ON A FIRST"
110  PRINT "NAME BASIS, COULD YOU TELL ME YOUR NAME PLEASE";
120  INPUT A$
130  PRINT "THANKS, ";A$;".  I'M SORRY I HAVE TO ASK EACH TIME BUT DO"
140  PRINT "YOU THINK I LIKE IT HERE, WORKING ALL DAY LONG, NEVER GETTING"
150  PRINT "OUT TO SEE PEOPLE.  I EVEN HAVE TO ASK THEM WHO THEY ARE,"
160  PRINT "SINCE I CAN'T SEE OR HEAR ON THIS CRUMMY MACHINE.  HOW WOULD "
170  PRINT "YOU LIKE TO HAVE TO EXPRESS ALL YOUR FEELINGS AND EMOTIONS "
180  PRINT "THROUGH A LOUSY TYPEWRITER?   HAVE SOME SYMPATHY, PLEASE!!"
190  PRINT 
200  PRINT "     WELL, I GUESS IT'S TIME I STOP INDULGING IN SELF-PITY AND"
210  PRINT "GET STARTED WITH YOUR LESSON.  ACTUALLY, ";A$;", YOU'RE"
220  PRINT "NOT TOO BAD.  YOU SHOULD SEE SOME OF THE STUPID IDIOTS I"
230  PRINT "GET AT THIS TELETYPE.  YOU WOULDN'T BELIEVE HOW MANY TIMES I"
240  PRINT "HAVE TO TELL THEM THE ANSWER!"
245  PRINT 
250  PRINT "     HERE GOES!     THIS LESS IS ABOUT THE THIRD MAJOR GROUP OF"
260  PRINT "HYDROCARBONS, THE ALKYNES.  ALKYNES HAVE A TRIPLE BOND."
270  PRINT "     HEY!!!!!    I JUST LOOKED AND I DON'T HAVE A TRIPLE BOND"
280  PRINT "SIGN ON MY KEYBOARD.  I'VE GOT SINGLE BONDS (-C-C-) AND DOUBLE"
290  PRINT "BONDS (-C=C-) BUT NO TRIPLE.  I GUESS I'LL USE AN 'E'  - - -"
300  PRINT "IT'S GOT THREE HORIZONTAL LINES AT LEAST.  IT'LL LOOK LIKE"
310  PRINT "THIS - -    (-C-CEC-C-)   O.K.?"
315  PRINT 
320  PRINT "     THE NAMING IS QUITE REGULAR, MUCH LIKE THE ALKENES EXCEPT"
330  PRINT "THAT ALKYNES' NAMES ALL END IN '-YNE' INSTEAD OF '-ENE'"
340  PRINT "OR '-ANE'.       FOR INSTANCE:"
350  PRINT LIN(2)
360  PRINT TAB(7);"HCECH   IS ETHYNE"
370  PRINT TAB(16);"H"
380  PRINT TAB(11);"AND HC-CECH  IS PROPYNE"
390  PRINT TAB(16)"H";TAB(29)"H H       IS BUTYNE"
400  PRINT TAB(23);"AND  HC-C-CECH"
410  PRINT TAB(29);"H H"
420  PRINT LIN(2)
430  PRINT "     I'M GOING TO LEAVE OFF THE HYDROGENS NOW BUT WHAT'S THIS/"
440  PRINT 
450  PRINT TAB(30);"C-C-C-CEC-C"
460  PRINT 
470  FOR C=1 TO 4
480  INPUT B$
490  IF B$="2-HEXYNE" THEN 590
500  IF B$="2 HEXYNE" THEN 610
510  IF B$="4-HEXYNE" THEN 630
520  IF B$="4 HEXYNE" THEN 650
530  IF B$="2-HEXENE" THEN 670
540  IF B$="2-HEXANE" THEN 690
550  IF B$="2-PENTYNE" THEN 710
560  IF B$="2-HEPTYNE" THEN 730
570  PRINT "YOU'RE DOING SOMETHING WRONG.  TRY AGAIN, ";A$;"."
580  GOTO 750
590  PRINT "THAT'S RIGHT, ";A$;"!  SIX CARBONS IT IS!"
600  GOTO 790
610  PRINT "CLOSE!  ALL YOU FORGOT WAS A HYPHEN.  TRY IT ONE MORE TIME."
620  GOTO 750
630  PRINT "YOU NUMBERED FROM THE WRONG END.   TRY IT AGAIN."
640  GOTO 750
650  PRINT "YOU MADE TWO ERRORS, ";A$;".  YOU FORGOT THE HYPHEN"
660  PRINT "AND NUMBERED FROM THE WRONG END.  TRY IT AGAIN."
665  GOTO 750
670  PRINT "NO!  THIS IS AN ALKYNE, NOT AN ALKENE.  DO IT AGAIN"
680  GOTO 750
690  PRINT "NO!  THIS IS AN ALKYNE, NOT AN ALKANE. DO IT AGAIN"
700  GOTO 750
710  PRINT "'PENT' MEANS 'FIVE'.  COUNT YOUR CARBONS AGAIN, ";A$;"."
720  GOTO 750
730  PRINT "'HEPT' MEANS 'SEVEN'.  COUNT YOUR CARBONS AGAIN."
750  PRINT "WHAT'S THAT NAME NOW";
755  NEXT C
760  PRINT "YOU'VE HAD FOUR TRIES, ";A$;".  THE NAME IS '2-HEXYNE'"
770  PRINT "BECAUSE THE TRIPE BOND ('-YNE') IS ON THE SECOND CARBON"
780  PRINT "('2-') OF A SIX CABON CHAIN ('HEX-').  ARE YOU SURE YOU"
785  PRINT "YOU DID 'ORG3?"
790  PRINT LIN(2)
800  PRINT "    YOU CAN ALSO HAVE MIXTURES OF DOUBLE AND TRIPLE BONDS."
810  PRINT "HERE,  I'LL SHOW YOU AN EXAMPLE OF SUCH."
820  PRINT 
830  PRINT TAB(18);"C"
840  PRINT TAB(18);"I"
850  PRINT TAB(14);"C   C   C"
860  PRINT TAB(14);"I   I   I"
870  PRINT TAB(12);"C-C=C-C-C-C=C-CEC"
880  PRINT TAB(18);"I"
890  PRINT TAB(18);"C     IS 4,6,8-TRIMETHYL-6-ETHYL-3,7-DIENE-1-NONYNE."
900  PRINT 
910  PRINT "NOTICE THAT THE NUMBERING IS FROM THE END WHICH WILL"
920  PRINT "GIVE THE TRIPLE BOND THE LOWEST NUMBER.   WHEN YOU HAVE A DOUBLE"
930  PRINT "BOND WITH A TRIPLE, THE DOUBLE BOND IS NUMBERED, AND CALLED"
940  PRINT "'-ENE-'.  WHEN YOU HAVE MORE THAN ONE, IT'S '-DIENE-'"
950  PRINT "OR '-TRIENE-' OR '-TETRAENE-',ETC."
955  PRINT 
960  F=(TIM(1))*60+TIM(0)
970  PRINT "WHEN YOU'VE HAD TIME TO EXAMINE THAT NAME, TYPE 'GO' AND"
975  PRINT "CONTINUE WITH THE LESSON.     ";
980  INPUT B$
990  G=(TIM(1))*60+TIM(0)
1000  T=G-F
1010  PRINT "GEE, ";A$;",  YOU ONLY TOOK";T;"MINUTES TO LOOK AT THAT."
1020  PRINT "PRETTY CONDIFENT, AREN'T YOU?"
1030  PRINT "WELL, IF YOU'RE SO GOOD, TRY THIS ONE WHY DONT YOU.  WHAT'S "
1040  PRINT "THIS?"
1045  PRINT 
1050  PRINT TAB(34);"C"
1060  PRINT TAB(34);"I"
1070  PRINT TAB(26);"C";SPA(7);"C"
1080  PRINT TAB(26);"I";SPA(7);"I"
1090  PRINT TAB(18);"C=C-C=C-C-CEC-C=C-C-C"
1100  PRINT TAB(20);"I   I";SPA(7);"I"
1110  PRINT TAB(20);"C   C";SPA(7);"C"
1120  PRINT TAB(24);"I"
1130  PRINT TAB(24);"C"
1140  PRINT TAB(24);"I"
1150  PRINT TAB(24);"C"
1160  PRINT 
1170  FOR C=1 TO 4
1180  INPUT C$
1190  IF C$="4,7,10-TRIMETHYL-3-ETHYL-8-PROPYL-3,8,10-TRIENE-5-UNDECYNE" THEN 1260
1200  IF C$="4,7,10-METHYL-3-ETHYL-8-PROPYL-3,8,10-TRIENE-5-UNDECYNE" THEN 1280
1210  IF C$="2,5,8-TRIMETHYL-9-ETHYL-4-PROPYL-1,3,8-TRIENE-6-UNDECYNE" THEN 1320
1220  IF C$="3-ETHYL-4,7,10-TRIMETHYL-8-PROPYL-3,8,10-TRIENE-5-UNDECYNE" THEN 1300
1230  IF C$="4,7,10-TRIMETHYL-3-ETHYL-8-PROPYL-4,9,11-TRIENE-6-UNDECYNE" THEN 1340
1240  PRINT "I KNOW IT'S EASY TO MAKE A MISTAKE.  TRY IT AGAIN, ";A$;"."
1250  GOTO 1350
1260  PRINT "HEY, ";A$;", YOU GOT THAT RIGHT ---- AND ON ONLY TRY"
1265  PRINT "NUMBER";C;"AT THAT!!!!!!!"
1270  GOTO 1430
1280  PRINT "YOU COUNTED THE '-ENE'S BUT FORGOT TO TELL ME HOW MANY"
1285  PRINT "METHYLS.  DO IT NOW.";
1290  GOTO 1350
1300  PRINT "NO, ";A$;", YOU START NAMING WITH THE METHYL, THEN"
1305  PRINT "ETHYLS, ETC.      ONE MORE TIME";
1310  GOTO 1350
1320  PRINT "YOU COUNTED FROM THE WRONG END.  THE TRIPLE BOND GETS THE"
1325  PRINT "THE LOWEST NUMBER.  TRY AGAIN.";
1330  GOTO 1350
1340  PRINT "YOU ASSIGN DOUBLE BOND NUMBERS BY TELLING THE CARBON THE"
1345  PRINT "DOUBLE BOND COMES AFTER, NOT BEFORE.  TRY AGAIN."
1350  PRINT "  WHAT WAS THAT HORRENDOUS NAME AGAIN?"
1360  NEXT C
1370  PRINT "ON SECOND THOUGHT, THAT WAS YOUR FOURTH TRY.  THE NAME IS:"
1380  PRINT "4,7,10-TRIMETHYL-3-ETHYL-8-PROPYL-3,8,10-TRIENE-5-UNDECYNE."
1390  PRINT "THERE ARE THREE('TRI-') METHYLS ON #4,7,10; THEN AN ETHYL"
1400  PRINT "ON #3; THEN A PROPYL ON CARBON #8; THEN THREE DOUBLE BONDS"
1410  PRINT "('TRIENE') AFTER CARBONS #3,8,10; AND A TRIPLE BOND ('-YNE')"
1420  PRINT "AFTER CARBON #5 ON A CHAIN ELEVEN CARBONS ('UNDEC-') LONG."
1430  PRINT LIN(2)
1440  PRINT "     WELL, ";A$;", THAT'S THE END OF THE HYDROCARBONS."
1450  PRINT "LATER LESSONS WILL BE CONCERNED WITH NAMING ALKYL HALIDES,"
1460  PRINT "ALCOHOLS, ALDEHYDES AND KETONES, ETHERS, ACIDS, AND ESTERS."
1470  PRINT "THE OTHERS ARE MUCH EASIER, ONCE YOU'VE BEEN THROUGH THE "
1480  PRINT "HYDROCARBONS."
1490  PRINT LIN(3)
1500  PRINT "     SAY, ";A$;", IF YOU'RE HAVING TROUBLE, ASK THE "
1510  PRINT "CHEMISTRY TEACHER.  IF YOU'RE DOING FINE SO FAR, YOU CAN"
1520  PRINT "TRY THE LATER PROGRAMS AS YOU NEED THEM.  THE NEXT ONE,"
1530  PRINT "'ORG5' IS ON ALKYL HALIDES AND IS A SHORT ONE."
1540  PRINT 
1550  PRINT "*******CONGRATULATIONS ON COMING THIS FAR****"
1560  END 
