240 N$ = "": INVERSE : TEXT : HOME : HTAB 8: PRINT "AUTOMATIC FUNCTION PLOTTER": NORMAL
250 VTAB 3: HTAB 1: PRINT "THIS PROGRAM WILL PLOT ANY FUNCTION INPUT ON LINE '50'....LINE '50' NOW HOLDS THE FOLLOWING FUNCTION:"
260 DS = 0: VTAB 7: HTAB 1: LIST 50
270 VTAB 12: HTAB 1: INVERSE : PRINT "CHOOSE:": NORMAL
280 PRINT "(P)=PLOT THIS FUNCTION-ON NEW GRAPH (L)=PLOT THIS FUNCTION-ON LAST GRAPH"
290 PRINT "(E)=EDIT OR CHANGE THIS FUNCTION (G)=SHOW LAST GRAPH"
300 PRINT "(S)=SHOW PARAMETER SPREADSHEET (R)=RECOVER GRAPH FROM DISK"
310 PRINT "(V)=SAVE GRAPH ON DISK": PRINT "(Q)=QUIT THE PROGRAM": PRINT : PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
320 IF PEEK( -16384) >127 THEN GET N$: POKE -16368,0:T = 1
330 IF N$ = "Q" THEN HOME : END
340 IF N$ = "P" THEN ON AS = 1 GOSUB 1290: GOTO 1310
350 IF N$ = "L" THEN DS = 1: GOTO 1310
360 IF N$ = "E" THEN 420
370 IF N$ = "G" THEN GOSUB 1410: GOTO 2060
380 IF N$ = "S" THEN 470
390 IF N$ = "R" THEN 3130
400 IF N$ = "V" THEN 3220
410 GOTO 320
420 HOME : INVERSE : HTAB 8: PRINT "EDIT OF CURRENT FUNCTION": NORMAL
430 PRINT : PRINT : PRINT "TO CHANGE CURRENT FUNCTION SHOWN BELOW, ERASE AS NEEDED WITH <SPACE BAR>, TYPE DIRECTLY OVER PARTS TO BE CHANGED, AND PASS OVER PARTS NOT TO BE CHANGED WITH '-->' KEY."
440 VTAB 20: PRINT "REMEMBER TO TYPE: ";: FLASH : PRINT "'RUN <RETURN>'": NORMAL
2910 TEXT : HOME : HTAB 1: VTAB 21: FLASH : PRINT "ILLEGAL QUANTITY OR OVERFLOW ERROR": INVERSE : HTAB 16:: PRINT "TRY AGAIN";: NORMAL
2920 PRINT CHR$(7); CHR$(7); CHR$(7)
2930 FOR S = 1 TO 1000: NEXT
2940 E = E +1
2950 GOTO 670
2960 REM ** CALCULATE Y AXIS LIMITS FOR DISPLAY **
2970 ONERR GOTO 2870
2980 VTAB 21: HTAB 1: PRINT SP$
2990 FLASH : VTAB 21: HTAB 15: PRINT "STAND BY": NORMAL :X = X1: GOSUB 50:A = Y:B = Y:SP = (X1 -X2)/25: FOR X = X2 TO X1 STEP SP: GOSUB 50: IF B <Y THEN B = Y
3000 IF A >Y THEN A = Y
3010 NEXT X
3020 VTAB 21: PRINT SP$: VTAB 21: PRINT "CALC Y LIMITS: ";: INVERSE : PRINT A" TO "B: NORMAL
3030 RETURN
3040 REM ** DISPLAY STATUS OF AXIS AND AUTO SWITCHES **
3310 DATA 14,0,30,0,40,0,46,0,56,0,69,0,78,0,90,0,100,0,107,0,119,0,129,0,133,0,141,0,145,0,36,60,63,54,54,54,45,37,36,0,147,34,36,36,36,0,146,63,39,36,45
3320 DATA 37,36,63,39,0,59,15,24,8,24,45,53,54,54,62,63,4,0,59,39,36,77,54,54,54,4,0,8,24,56,63,54,46,45,54,62,63,4,0,27,45,54,62,63,36,36,36,4,0,146,36
3330 DATA 36,36,63,39,0,32,60,63,54,46,45,54,62,63,36,4,0,146,36,36,36,63,55,54,45,4,0,18,55,37,0,63,63,12,88,49,22,38,0,63,63,4,0,59,39,36,45,181,146,58,63,36,4,0