1000 T2%=1%      ! SETS FLAG IF YOU ARE TO PLOT DATA
1010 DIM Q$(51):
    D$="#### ####":
    P1$="PLTL":
    P2$="PLTT"
1020 D2$="DK0:"
1030 A$="[1,51]"
1040 OPEN D2$+A$+"ALPH.DAT" AS FILE 1%, RECORD SIZE 512
1050 &
1060 INPUT "LABEL FOR X AXIS (UP TO 20 LETTERS)";X$
1070 IF LEN(X$)>20% THEN &"LABEL TOO LONG!!": GO TO 1060 
1080 INPUT "LABEL FOR Y AXIS (UP TO 20 LETTERS)"; Y$
1090 IF LEN(Y$)>20% THEN &"LABEL TOO LONG!!": GO TO 1080 
1100 DIMR(20),T(20)
1110 CHANGE X$ TO R
1120 CHANGE Y$ TO T
1130 FOR H=1 TO R(0)
1140 IF R(H)=32 THEN 1270 
1150 I%=(R(H)-32+4%)/5%
1160 J%=((I%*5%)+32%)-R(H)
1170 GOSUB 1770 
1180 GET #1%, RECORD I%
1190 &P1$
1200 FOR F=1 TO CVT$%(Q$(0))
1210 X=CVT$%(Q$(2*F-1))
1220 Y=CVT$%(Q$(2*F))
1230 X1=X+3000+200*H
1240 &USING D$, X1 Y
1250 NEXT F
1260 &P2$
1270 NEXT H
1280 FOR H=1 TO T(0) 
1290 IF T(H)=32 THEN 1420 
1300 I%=(T(H)-32+4%)/5%
1310 J%=((I%*5%)+32%)-T(H)
1320 GOSUB 1770 
1330 GET #1%, RECORD I%
1340 &P1$
1350 FOR F=1 TO CVT $%(Q$(0))
1360 X=CVT$%(Q$(2*F-1))
1370 Y=CVT$%(Q$(2*F))
1380 Y1=Y+7000-(300*H)
1390 &USING D$, X Y1
1400 NEXT F
1410 &P2$
1420 NEXT H
1430 SLEEP 3%
1440 INPUT "DO YOU WISH TO PUT A TITLE ON YOUR GRAPH NO(0), YES(1)";T1%
1450 IF T1%<>1% THEN 1730 
1460 DIM U(20)
1470 INPUT "TITLE (UP TO 20 LETTERS)";U$
1480 IF LEN(U$)>20% THEN &"TITLE TOO LONG!!": GOTO 1470 
1490 CHANGE U$TO U
1500 &P1$
1510 &USING D$, 4975; 9695
1520 &USING D$, (U(0)+1)*200+5025; 9695
1530 &USING D$, (U(0)+1)*200+5025; 9990
1540 &USING D$, 4975; 9990
1550 &USING D$, 4975; 9695
1560 &P2$
1570 FOR H=1TOU(0)
1580 IF U(H)=32 THEN 1720 
1590 I%=(U(H)-32+4%)/5%
1600 J%=((I%*5%)+32%)-U(H)
1610 GOSUB 1770 
1620 GET#1%,RECORD I%
1630 &P1$
1640 FOR F=1TO CVT$%(Q$(0))
1650 X=CVT$%(Q$(2*F-1))
1660 Y=CVT$%(Q$(2*F))
1670 X1=X+5000+200*H
1680 Y1=Y+9765
1690 &USING D$,X1 Y1
1700 NEXT F
1710 &P2$
1720 NEXT H
1730 &:&" NOW WE GO TO THE PLOTTING PROGRAMS PLEASE BE PATIENT!!"
1740 ! HERE IS WHERE WE LEAVE THIS NEET PROGRAM
1750 IF T2%=1% THEN CHAIN D2$+A$+"DATPLT.BAS"
1760 CHAIN D2$+A$+"HPPLOT.BAS" 1029
1770 !
1780 FOR W=0 TO 50
1790 FIELD #1%,((J%)*100%)AS D5$,2%*W AS D1$, 2% AS Q$(W)
1800 NEXT W
1810 RETURN
1820 END