120 PRINT"    THIS PROGRAM WILL GRAPH A FUNCTION OF X BETWEEN ANY LIMITS"
130 PRINT"(A AND B) YOU CHOOSE, WITH AN INTERVAL OF YOUR CHOICE (I)" 
140 PRINT"BETWEEN SUCCESIVE VALUES OF X, IF YOU TYPE THE FOLLOWING:" 
150 PRINT"         1 GO TO 220"
160 PRINT"        220 DEF FNY(X)=...(YOUR FUNCTION OF X)..." 
200 PRINT"        RUN" 
210 STOP 
220DEF FNY(X)=SIN(X) 
230PRINT"LOWER LIMIT OF X =";\INPUTA 
240PRINT"UPPER LIMIT OF X =";\INPUTB 
242 IF A<B THEN 250
244PRINT"YOUR LOWER LIMIT MUST BE LESS THAN YOUR UPPER LIMIT!" 
246PRINT\GOTO230 
250PRINT"INCREMENT OF X =";\INPUTI 
260 LET L=FNY(A) 
270 LET U=FNY(A) 
280 FOR X=A TO B STEP I
290 LET Y=FNY(X) 
300 IF Y-L<0 THEN 320
310 GO TO 330
320 GOSUB 380
330 IF Y-U>0 THEN 350
340 GO TO 360
350 GOSUB 400
360 NEXT X 
370 GO TO 420
380 LET L=Y
390 RETURN 
400 LET U=Y
410 RETURN 
420 IF INT(U)-U=0 THEN 450 
430 LET U1=INT(U)+1
440 GO TO 460
450 LET U1=U 
460 LET L1=INT(L)
470 LET D=U1-L1
480 IF INT(D/5)-D/5=0 THEN 570 
490 FOR K=1 TO 2 
500 LET L1=L1-1
510 LET D=U1-L1
520 IF INT(D/5)-D/5=0 THEN 570 
530 LET U1=U1+1
540 LET D=U1-L1
550 IF INT(D/5)-D/5=0 THEN 570 
560 NEXT K 
570 LET E=D/5
580 PRINT "X"
590 PRINT "-"
600 PRINT "V"
610 PRINT "A"
620 PRINT "L"
630 PRINT "U"
640 PRINT "E"
650 PRINT "S                     - - - - Y-VALUES - - - -" 
660 PRINT"              "L1," ";L1+E*1.5,"  ";L1+E*3,"   ";L1+E*4.5
670PRINT"                I---------I----+----I---------I---------I"; 
671 PRINT "----+----I" 
680 IF L1>0 THEN 1020
690 LET Q=INT((-L1)*(10/E)+.5) 
700 DEF FNP(Y)=INT((Y-L1)*(10/E)+.5) 
710 FOR X=A TO B STEP I
720 PRINTX,
730 LET Y=FNY(X) 
740 IF Y>=0 THEN 850 
760 PRINT TAB(15+FNP(Y));"*";TAB(Q+15);"I" 
840 GO TO 1000 
850 IF Y>0 THEN 910
860 PRINT TAB(Q+15);"*"
900 GO TO 1000 
910 PRINT TAB(15+Q);"I";TAB(15+FNP(Y));"*" 
1000 NEXT X 
1010 GO TO 1100 
1020 FOR X=A TO B STEP I
1030 PRINTX,
1040 LET Y=FNY(X) 
1050 PRINT TAB(INT((Y-L1)*(10/E)+.5)+14);"*"
1090 NEXT X 
1100 PRINT
1110 PRINT "NOTE: THE SIX I'S ON THE HORIZONTAL Y-AXIS REPRESENT:"
1120 PRINT L1;",";L1+E;",";L1+E*2;",";L1+E*3;",";L1+E*4;",";L1+E*5
1240 END