5  REM  HP CONTRIBUTED LIBRARY, 2/75
10  DIM A$[25],B$[72]
20  REM ********** PROGRAM PROPERTY OF RICHARD C. ADAMS *****************
50  PRINT "     HEY KIDDIES!!!!    IT'S THAT HAPPY TIME AGAIN !!!!!"
60  PRINT "THAT'S RIGHT - - IT'S ** UNCLE OTIS TIME ** !"
70  PRINT "     SO SIT RIGHT DOWN IN FRONT OF YOUR TELETYPE RIGHT "
80  PRINT "IN YOUR LIVING ROOM IN YOUR ROMPERS AND SEE WHAT GOOD OLD"
85  PRINT "UNCLE OTIS HAS IN HIS BAG OF TRICKS FOR GOOD LITTLE GIRLS"
90  PRINT "AND BOYS."
100  PRINT '10"     HEY - - YOU  ARE  A MEMBER OF THE UNCLE OTIS ORG FAN"
110  PRINT "CLUB AREN'T YOU?  I MEAN, YOU  HAVE  DONE ORG 1,2,3,4, AND 5"
120  PRINT "ALREADY?  HAVE YOU";
130  INPUT B$
140  IF B$="YES" THEN 180
150  PRINT "WELL, YOU'RE JUST GOING TO HAVE TO GO BACK AND EARN YOUR"
160  PRINT "MERIT BADGES BEFORE I'LL SPEAK TO YOU AGAIN.  SO THERE!"
170  STOP 
180  PRINT '10"PROVE IT!  WHAT'S YOUR NAME (NO NEED FOR THE SECRET DECODER"
190  PRINT "RING PASSWORD THIS TIME!)";
200  INPUT A$
210  PRINT "AH, ";A$;".  HEY, YOU MADE '5TH DEGREE ORGANIST'"
220  PRINT "RECENLY DIDN'T YOU?"
225  PRINT '10'10"     AS YOU REMEMBER LAST TIME, GOOD OLD UNCLE OTIS HAD"
230  PRINT "JUST FINISHED TELLING YOU ALL ABOUT ALKYL HALIDES AND PROMISED"
240  PRINT "TO GO ON TO ALCOHOLS.  YOU KNOW WHAT ALCOHOL IS, DON'T YOU,"
245  PRINT A$;"?  THAT'S THE BAD SMELLING LIQUID THAT MAKES DADDY SAY"
250  PRINT "NASTY THINGS ABOUT YOUR UNCLE OTTO AT FAMILY REUNIONS."
260  PRINT "     WELL YOU'LL SURE HAVE A SURPRISE FOR HIM!  THAT'S JUST"
270  PRINT "ONE  ALCOHOL OUT OF THOUSANDS.  BUT THE REST ARE EVEN"
280  PRINT "MORE POISONOUS, SO DON'T GET YOUR HOPES OF BEING A 'SECRET"
285  PRINT "TIPPLER' UP TOO HIGH."
290  PRINT "     ALCOHOLS REMIND YOU KIND OF HYDROXIDES IN INORGANIC"
300  PRINT "CHEMISTRY.  THEY ALL HAVE AN '-OH' GROUP, CALLED 'THE ALCOHOLIC"
310  PRINT "GROUP' (NO, THAT ISN'T A BUNCH OF PEOPLE AT A HOLLYWOOD PARTY!)"
320  PRINT '10"HERE ARE SOME ORGANIC COMPOUNDS:"
330  PRINT LIN(3)
340  PRINT TAB(52)"C"
350  PRINT TAB(52)"!"
360  PRINT TAB(17)"C";TAB(32)"O";TAB(52)"C=O"
370  PRINT TAB(17)"!";TAB(31)"//";TAB(52)"!"
380  PRINT TAB(9)"C-C-O-C-C-C";TAB(26)"C=C-C";TAB(38)"C-C-OH";TAB(50)"C-C-C"
390  PRINT TAB(31)'92"H";TAB(52)"!"
400  PRINT TAB(14)"1.";TAB(29)"2.";TAB(41)"3.";TAB(49)"4. C"
410  FOR C=1 TO 4
420  PRINT "WHICH oNE OF THESE DO YOU THINK IS AN ALCOHOL";
430  INPUT B
440  GOTO B OF 490,510,470,530
450  PRINT "AW, COME ON, ";A$;"!  USE A NUMBER FROM 1 TO 4!"
460  GOTO 540
470  PRINT "THAT'S RIGHT, ";A$;", AND THAT ALCOHOL IS  THE "
475  PRINT "DRINKING KIND TOO!"
480  GOTO 580
490  PRINT "NO, THAT'S AN ETHER.  WE'LL TALK ABOUT THAT ONE LATER."
495  PRINT "NOW, LOOK FOR THAT '-OH' GROUP."
500  GOTO 540
510  PRINT "THAT'S NOT IT!  THAT'S AN ALDEHYDE.  LOOK FOR THE '-OH'."
520  GOTO 540
530  PRINT "THAT'S A KETONE (WE'LL DISCUSS THEM LATER) LOOK FOR AN 'OH'"
540  NEXT C
550  PRINT "YOU'RE JUST GUESSING, ";A$;".  #3 IS THE ONE.  IT HAS AN"
560  PRINT "'-OH' GROUP ON THE RIGHT END AND THE OTHERS HAVE OXYGEN"
570  PRINT "BUT NOT WITH A HYDROGEN LIKE IN #3."
580  PRINT 
590  PRINT "     "'10"NOW, HOW DO WE NAME THEM?  FIRST, THE WORD 'ALCOHOL',"
600  PRINT "ITSELF, LIKE SO MANY THAT BEGIN WITH 'AL-', COMES FROM THE"
610  PRINT "ARABIC.  THE ARABS CALLED THESE THINGS 'AL KHOL' WHICH"
620  PRINT "MEANS 'THE DUST', BECAUSE THEY SEEMED TO EVAPORATE AND BLOW"
630  PRINT "AWAY LIKE DUST.  EUROPEANS FIND A 'KH' HARD TO PRONOUNCE"
635  PRINT "WITHOUT SOUNDING AS IF THEY'RE ABOUT TO SPIT, SO IT WAS"
640  PRINT "SOFTENED TO 'ALCOHOL'.  IN MEMORY OF THAT ORIGINAL WORD, ALL"
650  PRINT "ALCOHOL NAMES END IN '-OL.'  HERE, I'LL SHOW YOU:"
660  PRINT LIN(3)
670  PRINT TAB(8)"C-C-OH IS ETHANOL"'10"C-C-C-OH IS PROPANOL"'10"AND  C-C-C-C-OH IS BUTANOL"
680  PRINT '10'10"NOTICE YOU TAKE THE WORD (ETHAN, PROPAN, BUTAN) THAT CORRESPONDS"
690  PRINT "TO THE NUMBER OF CARBONS AND THEN ADD '-OL' ON THE END."
695  PRINT "         NOW YOU TRY ONE."
700  PRINT TAB(8)'10'10'10"C-C-C-C-C-C-C-OH"'10'10
710  FOR C=1 TO 4
720  PRINT "WHAT'S THAT ALCOHOL'S NAME";
730  INPUT B$
740  IF B$="HEPTANOL" THEN 800
750  IF B$="HEXANOL" THEN 820
760  IF B$="OCTANOL" THEN 840
770  IF B$="HEPTANE" THEN 860
780  PRINT "CHECK THE EXAMPLES AGAIN, ";A$;". SOMETHING IS WRONG."
790  GOTO 870
800  PRINT "THAT'S RIGHT, ";A$;"!  GOOD FOR YOU."
810  GOTO 900
820  PRINT "NO, 'HEX' MEANS 6 CARBONS.  COUNT AGAIN!"
830  GOTO 870
840  PRINT "NO, 'OCT' MEANS 8 CARBONS.  COUNT AGAIN!"
850  GOTO 870
860  PRINT "YOU GOT THE RIGHT NUMBER OF CARBONS, BUT ALCOHOLS END IN '-OL'"
870  NEXT C
880  PRINT '10"IT'S 'HEPTANOL', ";A$;".  'HEPTAN' BECAUSE THERE"
890  PRINT "ARE 7 CARBONS AND '-OL' TO MAKE IT AN ALCOHOL.  BETTER LUCK NEXT TIME."
900  PRINT LIN(2)
910  PRINT "    NOW HERE'S A PROBLEM.  WE RUN INTO ISOMERS AGAIN.  THAT '-OH'"
920  PRINT "GROUP CAN BE PUT IN QUITE A LOT OF PLACES.  I'LL GIVE YOU"
930  PRINT "AN EXAMPLE OR TWO"'10'10'10
940  PRINT TAB(16)"OH"TAB(33)"OH"TAB(44)"OH"
950  PRINT TAB(16)"!"TAB(33)"!"TAB(44)"!"
960  PRINT TAB(8);"C-C-C-C-C-C    C-C-C-C-C-C    C-C-C-C-C-C   C-C-C-C-C-C-OH"
965  PRINT TAB(14)'10'10"1.";TAB(29);"2.";TAB(43)"3.";TAB(60);"4."
970  PRINT LIN(2)
980  PRINT "  NOW, HOW TO NAME THEM.  NUMBERS 2 AND 4 ARE BOTH "
990  PRINT "CALLED '1-HEXANOL' BECAUSE THEY HAVE SIX CARBONS ('HEXAN') AND"
1000  PRINT "THE ALCOHOLIC GROUP (OH) IS ON THE FIRST CARBON.  #3 IS CALLED"
1010  PRINT "'3-HEXANOL' BECAUSE THE GROUP IS ON THE THIRD CARBON."
1020  FOR C=1 TO 3
1030  PRINT "WHAT WOULD YOU CALL ALCOHOL #1";
1040  INPUT B$
1050  IF B$="2-HEXANOL" THEN 1090
1060  IF B$="5-HEXANOL" THEN 1110
1070  IF B$="3-HEXANOL" THEN 1130
1080  PRINT "TRY LOOKING AT THE EXAMPLES AND COUNTING AGAIN."
1085  GOTO 1140
1090  PRINT "YOU GOT THAT RIGHT, ";A$;"!"
1100  GOTO 1170
1110  PRINT "YOU COUNTED FROM THE WRONG END, ";A$"."
1120  GOTO 1140
1130  PRINT "YOU MISCOUNTED.  TRY AGAIN."
1140  NEXT C
1150  PRINT "THAT'S YOUR THIRD TIME, ";A$;".  THE NAME IS '2-HEXANOL'"
1160  PRINT "BECAUSE THE -OH IS ON THE 2ND CARBON."
1170  PRINT LIN(2)
1180  PRINT "     WELL, THAT'S ABOUT IT FOR THIS LESSON.  OH, BY THE WAY,"
1190  PRINT "ALCOHOLS CAN HAVE SUBSTITUTED SIDE GROUPS AND DOUBLE BONDS"
1200  PRINT "AND THE WHOLE MESS.  LIKE THIS ONE:"
1210  PRINT LIN(3)
1220  PRINT TAB(14)"C     F   I"
1230  PRINT TAB(14)"!     !   !"
1240  PRINT TAB(10)"C-C-C-C=C-C-C-C-OH"
1250  PRINT TAB(16)"! !   ! !"
1260  PRINT TAB(16)"C C   I BR  IS 3-FLUORO-1-BROMO-1,2-DIIODO-4,6-DIMETHYL-"
1270  PRINT TAB(16)"!"TAB(34)"-5-ETHYL-4-ENE-1-OCTANOL"
1280  PRINT TAB(16)"C"TAB(29)"(GRUESOME, ISN'T IT?)"
1290  PRINT LIN(2)
1300  PRINT "     COME BACK WHEN YOU'RE FULLY RECOVERED AND WE'LL TALK"
1310  PRINT "ABOUT 'ALDEHYDES' AND 'KETONES' IN ORG7.  SAME TIME.  SAME "
1315  PRINT "CHANNEL.  SAME BAD JOKES."
1320  PRINT TAB(10);"O"'13;TAB(12);"T"'13;TAB(14)"I"'13;TAB(16);"S,  YOUR LOVING UNCLE"
1325  PRINT LIN(2)
1330  END 
