550 A$ = "{5} Save Current Graph ": GOSUB 1670:A$ = "{6} Change Year and Utility": GOSUB 1670:A$ = "{7} Return to Main Menu ": GOSUB 1670: PRINT : REM 5/4 SPACES
560 POKE 1403,20: INPUT "Please choose one of the above:";S$: IF S$ = "V" THEN GOSUB 1600: GOTO 500
570 S = VAL(S$)
580 IF S <1 OR S >7 THEN PRINT CHR$(7): GOTO 500
590 IF S >4 THEN ON S -4 GOTO 1430,200,1420
600 IF NOT PL THEN SE = S:PL = 1:E = 1: GOTO 670
610 IF PL = 4 THEN PRINT : PRINT CHR$(7)"The maximum number of graphs has been plotted.": GOTO 640
620 IF BU$ = UT$ AND SE = S THEN PRINT : INPUT "Do you want to erase the prior graph? ";YN$: IF LEFT$(YN$,1) = "Y" THEN 650
630 IF BU$ = UT$ AND SE = S THEN E = 0: GOTO 670
640 PRINT : INPUT "This selection will destroy the last graph drawn. Do you wish to continue?";YN$: IF LEFT$(YN$,1) < >"Y" THEN HOME : GOTO 500
650 E = 1:PL = 1:SE = S
660 REM SCALE GRAPH
670 ON SE GOSUB 680,740,800,890: GOTO 960
680 IF E = 0 THEN PL = PL +1: RETURN
690 H = UN(1): FOR I = 2 TO 12: IF UN(I) >H THEN H = UN(I)
700 NEXT
710 TH = INT(H)
720 IF TH/100 < > INT(TH/100) THEN TH = TH +1: GOTO 720
730 F = INT(TH/10): RETURN
740 IF E = 0 THEN PL = PL +1: RETURN
750 H = BC(1): FOR I = 2 TO 12: IF BC(I) >H THEN H = BC(I)
760 NEXT
770 TH = INT(H)
780 IF TH/100 < > INT(TH/100) THEN TH = TH +1: GOTO 780
790 F = INT(TH/10): RETURN
800 FOR I = 1 TO 12: IF UN(I) = 0 THEN CP(I) = 0: GOTO 820
810 CP(I) = BC(I)/UN(I)
820 NEXT
830 IF E = 0 THEN PL = PL +1: RETURN
840 H = CP(1): FOR I = 2 TO 12: IF CP(I) >H THEN H = CP(I)
850 NEXT
860 TH = INT(H *1000)
870 IF TH/100 < > INT(TH/100) THEN TH = TH +1: GOTO 870
880 F = TH/10000:TH = TH/1000: RETURN
890 IF E = 0 THEN PL = PL +1: RETURN
900 H = TC(1): FOR I = 2 TO 12: IF TC(I) >H THEN H = TC(I)
910 NEXT
920 TH = INT(H)
930 IF TH/100 < > INT(TH/100) THEN TH = TH +1: GOTO 930
940 F = INT(TH/10): RETURN
950 REM DRAW GRAPH
960 IF E = 0 THEN PRINT CHR$(12) CHR$(21): PRINT : POKE 49232,0: POKE 49234,0: POKE 49237,0: POKE 49239,0: GOTO 1140