Apple Color Plotter: Business BASIC Chart Maker III (3 of 5)

Apple Color Plotter: Business BASIC Chart Maker III (3 of 5)

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$

Back