6300 ph=58:sl=1:ll=1:ul=4:GOSUB 201: IF a$=CHR$(27) THEN GOTO 6990 6310 ON x9 GOTO 6320,6330 6320 GOSUB 369:GOTO 6300 6330 color=x8 6400 pv=20:ph=18:sl=1:GOSUB 101:IF a$=CHR$(27) THEN GOTO 6990 6405 IF a$=CHR$(13) AND LEN(b$)=0 THEN center$="N": m$=center$:GOSUB 352:GOTO 6500 6410 IF b$="Y" OR b$="y" THEN center$="Y":GOTO 6500 6420 IF b$="N" OR b$="n" THEN center$="N":GOTO 6500 6430 GOTO 6400 6500 pv=20:ph=39:sl=1:GOSUB 101:IF a$=CHR$(27) THEN GOTO 6990 6505 IF a$=CHR$(13) AND LEN(b$)=0 THEN bold$="N":m$=bold$: GOSUB 352:GOTO 6550 6510 IF b$="Y" OR b$="y" THEN bold$="Y":GOTO 6550 6520 IF b$="N" OR b$="n" THEN bold$="N":GOTO 6550 6530 GOTO 6500 6550 pv=20:ph=58:sl=1:GOSUB 101:IF a$=CHR$(27) THEN GOTO 6990 6555 IF a$=CHR$(13) AND LEN(b$)=0 THEN sl$="N": m$=sl$:GOSUB 352:GOTO 6600 6560 IF b$="Y" OR b$="y" THEN sl$="Y":GOTO 6600 6570 IF b$="N" OR b$="n" THEN sl$="N":GOTO 6600 6580 GOTO 6550 6600 IF center$="Y" THEN dent=0:GOTO 6640 6605 pv=20:ph=77:sl=2:ll=0:ul=15:GOSUB 201: IF a$=CHR$(27) THEN GOTO 6990 6610 ON x9 GOTO 6620,6630 6620 GOSUB 369:GOTO 6600 6630 dent=x8 6640 IF SIZE=1 THEN SL=40:GOTO 6650 6641 IF SIZE=2 THEN SL=30:GOTO 6650 6642 IF SIZE=3 THEN SL=20:GOTO 6650 6650 SL=SL-DENT 6700 pv=22:ph=12:b$=txt$(n):GOSUB 102: IF a$=CHR$(27) THEN GOTO 6990 6710 txt$=b$ 6750 txt$(n)=txt$ 6751 color(n)=color 6752 size(n)=size 6753 dent(n)=dent 6754 center$(n)=center$ 6755 bold$(n)=bold$ 6760 sl$(n)=sl$ 6800 WINDOW 5,N+3 TO 79,N+3:GOSUB 90 6810 i=n:GOSUB 7010 6990 REM *** GOSUB 7000 6995 GOSUB 72 6999 RETURN 7000 GOSUB 70:GOSUB 7200 7005 FOR i=1 TO 10:GOSUB 7010:NEXT:RETURN 7010 PV=I+3 7020 PH=3:GOSUB 99:PRINT I; 7030 PH=7:m$="........................................": GOSUB 352:M$=TXT$(I) 7045 IF center$(i)="Y" THEN ph=27-(LEN(m$)/2) 7046 IF dent(i)>0 THEN ph=ph+dent(i) 7050 GOSUB 352 7055 IF size(i)>0 THEN m$=STR$(size(i)):ph=49:GOSUB 352 7058 IF txt$(i)="" THEN RETURN 7060 IF color(i)>0 THEN m$=STR$(color(i)):ph=54:GOSUB 352 7070 m$=center$(i):ph=60:GOSUB 7150 7080 IF dent(i)>0 THEN m$=STR$(dent(i)):ph=77:GOSUB 352 7100 m$=bold$(i):ph=65:GOSUB 7150 7105 m$=sl$(i):ph=71:GOSUB 7150 7110 RETURN 7150 IF m$="Y" THEN m$="*":GOSUB 352 7156 RETURN 7200 pv=2:ph=3:m$="Line":GOSUB 352 7205 ph=20:M$="Text to be Drawn":GOSUB 352 7210 ph=52:m$="Color":GOSUB 352 7220 ph=58:m$="Cntr":GOSUB 352 7230 ph=75:m$="Indnt":GOSUB 352 7240 ph=47:m$="Size":GOSUB 352 7250 ph=63:m$="Bold":GOSUB 352 7260 ph=69:m$="Slnt":GOSUB 352 7299 RETURN 7300 FOR i=1 TO 10 7310 txt$(i)="":center$(i)="":dent(i)=0:size(i)=0: bold$(i)="":color(i)=0:sl$(i)="" 7320 NEXT:RETURN 8000 GOSUB 71: M$="Clear out the 'Old Chart' and Start a New One": GOSUB 357 8010 pv=23:GOSUB 80:m$="Are You Sure, (Y or N)":pv=20:ph=5: GOSUB 353 8020 GOSUB 400:IF cmd=27 THEN GOTO 8999 8030 IF cmd=89 THEN GOSUB 7300:GOSUB 7000:GOTO 8999 8031 IF cmd=78 THEN GOTO 8999 8035 PRINT CHR$(7);:GOTO 8020 8099 GOSUB 72:RETURN 8500 GOSUB 71:M$="Clear Out A Line":GOSUB 357 8501 m$="Line to Clear (1-10) : ":pv=18:ph=5:GOSUB 353 8502 pv=18:ph=50:sl=2:ll=1:ul=10:GOSUB 201: IF a$=CHR$(27) THEN GOTO 8599 8503 ON x9 GOTO 8504,8505 8504 GOSUB 369:GOTO 8502 8505 i=x8 8510 pv=23:GOSUB 80:m$="Are You Sure, (Y or N)": pv=20:ph=5:GOSUB 353 8520 GOSUB 400:IF cmd=27 THEN GOTO 8599 8530 IF cmd=89 THEN GOTO 8540 8531 IF cmd=78 THEN GOTO 8599 8535 PRINT CHR$(7);:GOTO 8520 8540 txt$(i)="":center$(i)="":dent(i)=0:size(i)=0: bold$(i)="":color(i)=0:sl$(i)="" 8550 WINDOW 5,i+3 TO 79,i+3:GOSUB 90:GOSUB 7010 8599 GOSUB 72:RETURN 8999 GOSUB 72:RETURN 9000 GOSUB 9001:GOTO 9002 9001 m$="Draw The Chart on Device Named '"+plr$+"'": pv=15:GOSUB 71:GOSUB 353:RETURN 9002 pv=19:m$="Name of Chart":GOSUB 353:pv=21: m$="Do You Want a Border on the Chart ? (Y or N) :": GOSUB 353 9003 pv=19:ph=50:sl=8:GOSUB 101: IF a$=CHR$(27) THEN GOSUB 72:RETURN 9004 chart$=b$