1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        GRAPH2:   COMPUTER-AUGMENTED PHYSICS TOPICS (FUNCTIONS)
4  REM
5  REM        36666 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
100  PRINT "PLEASE TYPE THE CODE NUMBER (100, 200, 300, 400, 500)"
110  PRINT "OF THE FUNCTION THAT YOU WANT TO WORK WITH."
120  PRINT "FUNCTION";
130  INPUT C
140  IF C=100 THEN 220
150  IF C=200 THEN 390
160  IF C=300 THEN 490
170  IF C=400 THEN 580
180  IF C=500 THEN 680
190  PRINT "YOU MUST TYPE 100. 200, 300, 400, OR 500."
200  PRINT "TRY AGAIN"
210  GOTO 120
220  LET N=0
230  PRINT "TYPE A VALUE FOR X."
240  INPUT X
260  LET D1=2*X
270  LET D2=2
280  PRINT " X = ";X;" D1 = ";D1;" D2 = ";D2
290  LET N=N+1
300  IF N=5 THEN 320
310  GOTO 230
320  PRINT "IF YOU HAVE ENOUGH INFORMATION ABOUT THIS FUNCTION,"
330  PRINT "TYPE 1; FOR MORE INFORMATION, TYPE 2"
340  INPUT T
350  IF T=1 THEN 780
360  IF T=2 THEN 140
370  PRINT "TYPE 1 OR 2. TAKE IT FROM THE TOP..."
380  GOTO 320
390  LET N=0
400  PRINT "TYPE A VALUE FOR X."
410  INPUT X
430  LET D1=2*(X-2)
440  LET D2=2
450  PRINT " X = ";X;" D1 = ";D1;" D2 = ";D2
460  LET N=N+1
470  IF N=5 THEN 320
480  GOTO 400
490  LET N=0
500  PRINT "TYPE A VALUE FOR X."
510  INPUT X
530  LET D1=D2=EXP(X)
540  PRINT " X = ";X;" D1 = ";D1;" D2 = ";D2
550  LET N=N+1
560  IF N=5 THEN 320
570  GOTO 500
580  LET N=0
590  PRINT "TYPE A VALUE FOR X"
600  INPUT X
620  LET D1=COS(X)
630  LET D2=-SIN(X)
640  PRINT " X = ";X;" D1 = ";D1;" D2 = ";D2
650  LET N=N+1
660  IF N=5 THEN 320
670  GOTO 590
680  LET N=0
690  PRINT "INPUT A VALUE FOR X."
700  INPUT X
720  LET D1=(3*X-2)*X+1
730  LET D2=6*X-2
740  PRINT " X = ";X;" D1 = ";D1;" D2 = ";D2
750  LET N=N+1
760  IF N=5 THEN 320
770  GOTO 690
780  PRINT "TO OBTAIN ANOTHER FUNCTION TYPE ITS CODE NUMBER"
790  PRINT "(100, 200, 300, 400, OR 500). TO STOP THE PROGRAM,"
800  PRINT "PRESS CTRL/C, THEN PRESS RETURN."
810  GOTO 120
820  END 
