5  REM  HP CONTRIBUTED LIBRARY, 2/75
10  DIM A$[20],B$[72],C$[72]
20  PRINT "HI THERE!   THIS IS THE FIFTH PROGRAM ON NAMING ORGANIC"
30  PRINT "MOLECULES.  HAVE YOU DONE ORG1,2,3, AND 4";
40  INPUT A$
50  IF A$="YES" THEN 80
60  PRINT "NO?  COME BACK WHEN YOU HAVE !!!!"
70  STOP 
80  PRINT "GOOD!  NOW, I'M OTIS, AS YOU REMEMBER.  BUT I DON'T KNOW"
90  PRINT "WHO YOU ARE.  WHO IS THIS";
100  INPUT A$
110  PRINT "GLAD TO HAVE YOU BACK, ";A$;".  THIS LESSON WILL"
120  PRINT "TEACH YOU HOW TO NAME COMPOUNDS WITH 'HALOGENS' (F,CL,BR,I)"
130  PRINT "IN THEM."
140  PRINT "   THE NAMES ARE PRETTY EASY.  WHEN YOU SEE AN F, FLUORINE,"
150  PRINT "IN A COMPOUND, IT'S CALLED 'FLUORO'.  CHLORINE BECOMES 'CHLORO'"
160  PRINT "SAY, ";A$;", WHAT DO YOU THINK BROMINE'S CALLED";
170  FOR C=1 TO 4
180  INPUT B$
190  IF B$="BROMO" THEN 320
200  IF B$="BROMINO" THEN 240
210  IF B$="BROMINE" THEN 260
220  PRINT "SOMETHING'S WRONG.  REMEBER FLUORINE BECOMES FLUORO"
230  GOTO 270
240  PRINT "NO, ";A$;", YOU GET RID OF THE '-INE' AND PUT ON AN 'O'."
250  GOTO 270
260  PRINT "NO, WHEN BROMINE IS IN A COMPOUND, IT HAS TO END IN 'O'."
270  PRINT "NOW, WHAT'S THAT NAME AGAIN";
280  NEXT C
290  PRINT '10'10'13;A$;", YOU'VE HAD FOUR TRIES.  BROMINE IN AN ORGANIC "
300  PRINT "COMPOUND IS CALLED 'BROMO'.  TRY YOUR LUCK ON THE NEXT ONE."
310  GOTO 330
320  PRINT "RIGHT YOU ARE, ";A$
330  PRINT "NOW WHAT WOULD YOU CALL 'IODINE' IN A COMPOUND";
340  FOR C1=1 TO 3
350  INPUT B$
360  IF B$="IODO" THEN 540
370  IF B$="IODINO" THEN 410
380  IF B$="IODINE" THEN 440
390  PRINT "SOMETHING'S WRONG, ";A$;".  LOOK AT BROMINE AGAIN."
400  GOTO 450
410  PRINT "CLOSE, ";A$;", BUT YOU'VE GOT TO TAKE THE 'IN' OUT "
420  PRINT "BEFORE YOU ADD THE 'O'."
430  GOTO 450
440  PRINT "NO, WHEN IT'S IN A COMPUND, IT HAS TO END IN 'O'."
450  PRINT "AGAIN,  WHAT'S IODINE IN A COMPOUND CALLED";
460  NEXT C1
470  IF C=5 THEN 500
480  PRINT "YOU'VE ANSWERED WRONG 3 TIMES.  THE ANSWER IS 'IODO'."
490  GOTO 550
500  PRINT "THAT'S THE SECOND ONE YOU'VE GOTTEN WRONG.  YOU MIGHT TRY"
510  PRINT "REVIEWING THE FIRST PART AGAIN BEFORE YOU GO ANY"
520  PRINT "FARTHER.  BY THE WAY, THE ANSWER IS 'IODO'."
530  GOTO 550
540  PRINT "THAT'S CORRECT, ";A$;"!"
550  PRINT '10'10"NOW LET'S SEE HOW YOU USE THESE HALOGENS TO MAKE 'ALKYL HALIDES.'"
560  PRINT "     "'10"YOU USE THEM JUST LIKE METHYLS OR ETHYLS.  THEY HAVE A"
570  PRINT "LOWER PRIORITY IN NUMBERING THAN ANY OF THOSE OTHER GROUPS"
580  PRINT "AND SO ARE NAMED FIRST, IN THE ORDER F,CL,BR,I.  HERE, I'LL"
590  PRINT "SHOW YOU A SIMPLE EXAMPLE AND THEN A COMPLEX ONE:"
600  PRINT LIN(2)
610  PRINT TAB(14)"F"
620  PRINT TAB(14)"!"
630  PRINT TAB(12)"C-C-C-C-C"
640  PRINT TAB(18)"!     IS 4-FLUORO-2-METHYLPENTANE"
650  PRINT TAB(18)"C"
660  PRINT TAB(47)"CL  C"
670  PRINT TAB(30)"AND";TAB(47);"!   !"
680  PRINT TAB(35)"I-C-C=C-C=C-C-C-C=C"
690  PRINT TAB(37)"! !   !   ! !"
700  PRINT TAB(37)"I F   BR  C C"
710  PRINT TAB(49)"!"
720  PRINT TAB(49)"C"
730  PRINT 
740  PRINT TAB(10)"IS 8-FLUORO-4-CHLORO-6-BROMO-9,9-DIIODO-2,4-DIMETHYL"
750  PRINT TAB(15)"-3-ETHYL-1,5,7-NONATRIENE"
760  PRINT LIN(2)
770  PRINT "     AS YOU CAN SEE, IF YOU HAVE MORE THAN ONE OF A "
780  PRINT "HALOGEN, YOU SAY SO WITH THE 'DI,TRI,TETRA,ETC.' YOU LEARNED"
790  PRINT "FOR METHYLS AND THE OTHER GROUPS IN PREVIOUS LESSONS."
800  PRINT '10"     NOTICE ALSO THAT HALOGENS COME BEFORE METHYLS IN THE"
810  PRINT "ORDER OF FLUORO, CHLORO, BROMO, AND IODO."'10'10
815  PRINT '10'10'10"NOW YOU TRY ONE!"
820  PRINT TAB(19)"CL  F   "
830  PRINT TAB(19)"!   !"
840  PRINT TAB(15)"C=C-C-C-C-C-C-F"
850  PRINT TAB(21)"!   ! !"
860  PRINT TAB(21)"C   C F"
870  PRINT TAB(21)"!"TAB(35);"O.K.,SMARTY, WHAT'S THIS?"
880  PRINT TAB(21)"C"'10'10
890  FOR C=1 TO 4
900  INPUT B$
910  C$="5,7,7-TRIFLUORO-3-CHLORO-6-METHYL-4-ETHYL-1-HEPTENE"
920  IF B$=C$ THEN 1250
930  IF B$[1,5]="1,1,3" THEN 950
940  GOTO 970
950  PRINT "HOLD IT!!  YOU'RE NUMBERING FROM THE WRONG END!"
960  GOTO 1230
970  PRINT "WELL, YOU DIDN'T GET IT ALL RIGHT BUT YOU AT LEAST GOT"
980  FOR N=1 TO 46
990  IF B$[N,(N+14)]=C$[1,15] THEN 1140
1000  NEXT N
1010  FOR N=1 TO 46
1020  IF B$[N,(N+7)]=C$[17,24] THEN 1160
1030  NEXT N
1040  FOR N=1 TO 46
1050  IF B$[N,(N+7)]=C$[26,33] THEN 1180
1060  NEXT N
1070  FOR N=1 TO 46
1080  IF B$[N,(N+6)]=C$[35,41] THEN 1200
1090  NEXT N
1100  FOR N=1 TO 46
1110  IF B$[N,(N+8)]=C$[43,51] THEN 1220
1120  NEXT N
1130  GOTO 1230
1140  PRINT C$[1,15];
1150  GOTO 1010
1160  PRINT C$[16,24];
1170  GOTO 1040
1180  PRINT C$[25,33];
1190  GOTO 1070
1200  PRINT C$[34,41];
1210  GOTO 1100
1220  PRINT C$[42,51]
1230  PRINT "   TRY AGAIN, ";A$"."
1235  NEXT C
1240  GOTO 1270
1250  PRINT "GOSH!  THAT'S RIGHT, ";A$;"!  GOOD FOR YOU!"
1260  GOTO 1410
1270  PRINT "YOU DIDN'T GET THAT ONE COMPLETELY RIGHT."
1280  PRINT "THE CORRECT ANSWER IS";C$
1290  PRINT '10'10"DO YOU SEE WHY THAT'S THE ANSWER";
1300  INPUT B$
1310  IF B$="YES" THEN 1410
1320  PRINT "  FIRST YOU HAVE TO NUMBER FROM THE END WITH THE DOUBLE"
1330  PRINT "BOND, SINCE THAT IS THE HIGHEST PRIORITY GROUP IN THIS"
1340  PRINT "EXAMPLE.  IN THIS CASE, YOU NUMBER FROM THE LEFT END.  THEN"
1350  PRINT "ON CARBONS NUMBER 5,7, & 7 ARE THREE('TRI-') FLUORINES"
1360  PRINT "('FLUORO').  THEN COMES A 'CL' ON THE THIRD CARBON"
1370  PRINT "('3-CHLORO'), ONE CARBON ON THE 6TH CARBON ('6-METHYL'),"
1380  PRINT "AND A TWO-CARBON GROUP ON THE 4TH CARBON ('4-ETHYL').  "
1390  PRINT "LASTLY, AFTER THE FIRST CARBON, THERE'S A DOUBLE BOND ON A"
1400  PRINT "SEVEN CARBON MAIN CHAIN ('1-HEPTENE')."'10'10
1410  PRINT LIN(2)
1420  PRINT "    WELL, ";A$;", THAT'S THE ALKYL HALIDES.  NEXT, IN"
1430  PRINT "ORG6, WE TAKE UP AN INTOXICATING SUBJECT "
1435  PRINT 
1440  PRINT "******************* A L C O H O L S *********************"
1450  PRINT "CHEERS!                "'10'10"OTIS"
1460  END 
