8000 INPUT"HAVE YOU DEFINED YOUR FUNCTION";D$
8010 IFD$="YES"THEN 8900
8020 PRINT"DEFINE YOUR FUNCTION IN THE FOLLOWING MANNER"
8030 PRINT"TYPE'8900 DEF FNF(X)<YOUR FUNCTION>'"
8040 PRINT"THEN TYPE RUNNH"
8050 GOTO9999
8900 DEF FNF(X)=SIN(X)
8999 REM REVISED MAY, 1972  ANDY ROTH  C.C.G.
9000 REM ***** PLOT ***** MATHEMATICS PROGRAM *****
9001 REM ***** VERSION 1 ***** 7/31/69 *****
9002 REM PLOTS A FUNCTION OF THE TTY.
9003 R1=0
9004 L1=0
9005 Q1=0
9006 PRINT"PLEASE ENTER THE FOLLOWING PARAMATERS:"
9007 PRINT"LEFT X-ENDPOINT";
9008 INPUT A
9009 PRINT "RIGHT X-ENDPOINT";
9010 INPUT B
9011 PRINT "X-SPACING";
9012 INPUT D
9013 PRINT "THE NUMBER OF UNDEFINED POINTS (IF NONE, ENTER 0)";
9014 INPUT N9
9015 IF N9=0 THEN 9018
9016 PRINT "ENTER THE UNDEFINED POINTS SEPARATED BY COMMAS"
9017 MAT INPUT Z(N9)
9018 DEF FNG(X)=INT((Y7-L1)/D1+.5)+15
9019 L2,R2=FNF(A)
9020 FOR X=A TO B STEP D
9021 FOR I=1 TO N9
9022 IF X=Z(I) THEN 9028
9023 NEXT I
9024 IF FNF(X)>L2 THEN 9026
9025 L2=FNF(X)
9026 IF FNF(X)<R2 THEN 9028
9027 R2=FNF(X)
9028 NEXT X
9029 IF L2<0 THEN 9032
9030 R2=R1
9031 GOTO 9036
9032 IF R2>0 THEN 9034
9033 GOTO 9035
9034 R1=R2
9035 L1=L2
9036 D1=(R1-L1)/50
9037 IF L1<R1 THEN 9040
9038 PRINT "THIS IS THE FUNCTION Y=CONSTANT."
9039 GOTO9999
9040 PRINT"THE MINIMUM VALUE OF THE FUNCTION IS";L2
9041 PRINT"THE MAXIMUM VALUE OF THE FUNCTION IS";R2
9042 PRINT"THE SPACING ON THE Y AXIS IS ";D1
9044 F=INT(-L1/D1+.5)+15
9045 IF A <= 0 THEN 9056
9046 IF A/D>6 THEN 9056
9047 Q1=1
9048 IF L1=0 THEN 9050
9049 PRINT TAB(F);"+"
9050 PRINT
9051 GOTO 9075
9052 FOR I=1 TO INT(A/D-.5)
9053 PRINT TAB(F);"+"
9054 NEXT I
9055 Q1=0
9056 FOR X=A TO B STEP D
9057 IF D<.0001 THEN 9060
9058 IF ABS(X)>.00001 THEN 9060
9059 X=0
9060 PRINT X,
9061 FOR P=1 TO N9
9062 IF X<>Z(P) THEN 9072
9063 IF X<>0THEN 9070
9064 FOR I2=1 TO 50
9065 PRINT "+";
9066 NEXT I2
9067 Q=1
9068 PRINT "Y"
9069 GOTO 9103
9070 PRINT TAB(F);"+"
9071 GOTO 9103
9072 NEXT P
9073 IF X*(X+D)>0 THEN 9093
9074 IF X<-D/2 THEN 9093
9075 FOR I=0 TO 50
9076 IF Q1>0 THEN 9079
9077 Y7=FNF(X)
9078 IF FNG(X)=X+16 THEN 9082
9079 IF I+14=F THEN 9084
9080 PRINT "+";
9081 GOTO 9085
9082 PRINT "*";
9083 GOTO 9085
9084 PRINT "O";
9085 NEXT I
9086 IF I+15<>F THEN 9088
9087 PRINT "+";
9088 PRINT "Y"
9089 Q=1
9090 IF (Q1+1)=1 THEN 9103
9091 IF (Q1+1)=2 THEN 9052
9092 IF (Q1+1)=3 THEN 9112
9093 IF X*(X-D)>0 THEN 9095
9094 IF X <= D/2 THEN 9075
9095 Y7=FNF(X)
9096 IF FNG(X)>F THEN 9102
9097 IF FNG(X)=F THEN 9100
9098 PRINT TAB(FNG(X));"*";TAB(F);"+"
9099 GOTO 9103
9100 PRINT TAB(F);"*"
9101 GOTO 9103
9102 PRINT TAB(F);"+";TAB(FNG(X));"*"
9103 NEXT X
9104 IF X >= 0 THEN 9113
9105 IF -X/D>6 THEN 9113
9106 FOR I=1 TO INT(-X/D-.5)
9107 PRINT TAB(F);"+"
9108 NEXT I
9109 Q1=2
9110 PRINT
9111 GOTO 9075
9112 PRINT TAB(F);"+"
9113 PRINT TAB(F);"X"
9114 IF Q=0 THEN 9116
9115 GOTO9999
9116 PRINT
9117 PRINT
9118 PRINT
9119 FOR I=0 TO 50
9120 PRINT "+";
9121 NEXT I
9122 PRINT "Y"
9123 PRINT
9124 PRINT
9125 PRINT "               SINCE THE REAL Y-AXIS IS OFF THE GRAPH."
9999 END