1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!HPPLOT PROGRAM -BY RICHARD T. WITEK!!!!!!!!!!!!
3!!!!!!!!!!!WRITTEN AT AURORA COLLEGE ON A PDP11/20!!!!!!!!
4!!!!!!!!!!!THIS SET OF 7 PROGRAMS AND A DATA FILE !!!!!!!
5!!!!!!!!!!!IS MADE FOR A HP 7202A GRAPHIC PLOTTER!!!!!!!!!
6!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
80 &"HPPLOT V01A-01"
85 &
90 &"                WELCOME TO THE AURORA COLLEGE":&
100 &"         HEWLETT.PACKARD 7202A GRAPHIC PLOTTER PROGRAM"
110 &:&"     THIS IS A SET OF PROGAMS TO PLOT FUNCTIONS OR RAW DATA"
111 &"ON THE HP-7202A GRAPHIC PLOTTER. ANSWER ALL YES-NO QUESTIONS"
112 &'WITH A "0" FOR NO, AND A "1" FOR YES. ARE YOU ON THE PROPER'
114 &"TERMINAL AND IS THE PLOTTER PLUGGED IN (FOR MORE INFORMATION"
115 &"GO TO THE COMPUTER CENTER) NO(0), YES(1)";
120 INPUT T1%
125 IF T1%<>1% THEN STOP
130 GOSUB 5000
150 &:&"DO YOU WISH TO PLOT FUNCTIONS(0) OR DATA(1)";
151 INPUT T2%
1000 &"DO YOU WISH TO LABEL YOUR AXIS ";
1001 INPUT "N0(0), YES(1)";T1%
1010 IF T1%=1% THEN IF T2%=1% THEN CHAIN D2$+A$+"LTRPLT.BAS"
      ELSE CHAIN D2$+A$+"LTRPLT.BAS" 1010
1020 IF T2%=1% THEN CHAIN D2$+A$+"DATPLT.BAS"
1029 GO SUB 5000
1030 OPEN "KB:"AS FILE 4%
1031 &"DO YOU WANT POLAR OR CARTESIAN COORDINATES"
1032 INPUT"POLAR(0), OR  CARTESIAN(1)";T4%
1033 IF T4%<>1% THEN 1500
1040 OPEN D2$+A$+"FNTPLT.BAS" AS FILE 1%
1050 DIM #1%, B1$(100)=128
1055 &"INPUT YOUR FUNCTION OF ONE VARIBLE IN TERMS OF Z"
1060 INPUT#4% "YOUR FUNCTION FNA(Z)="; F$
1070 F3$="1 DEF FNA(Z)="+F$+CHR$(13)+CHR$(10)
1080 B1$(0)=F3$
1160 CLOSE X%  FOR X%=1%TO 12%
1165 &"YOUR FUNCTION IS BEING PUT INTO THE NEXT PROGRAM "
1166 &" PLEASE BE PATIENT!!"
1167 &:&
1170 CHAIN D2$+A$+"FNTPLT.BAS"
1500 OPEN D2$+A$+"PFNPLT.BAS" AS FILE 1%
1510 DIM#1%,C$(100)=128
1520 &"INPUT YOUR FUNCTION OF ONE VARIBLE IN TERMS OF T"
1530 INPUT#4%, "YOUR FUNCTION FNA(T)=";F$
1540 F3$="1 DEF FNA(T)="+F$+CHR$(13%)+CHR$(10%)
1550 C$(0)=F3$
1560 CLOSE 4%,1%
1570 &"YOUR FUNCTION IS BEING PUT INTO THE NEXT PROGRAM "
1580 &"PLEASE BE PATIENT!!"
1590 &:&
1600 CHAIN D2$+A$+"PFNPLT.BAS"
4000!

4001 ON ERROR GO TO 9000
4002 V$=SYS(CHR$(0)+CHR$(-7))
4003 GO SUB 5000
4030 OPEN "KB:" AS FILE 1%
4040 INPUT#1%, "YOUR NEW FUNCTION F(Z)="; D$
4060 OPEN D2$+A$+"SFNPLT.BAS" AS FILE 2%
4070 DIM #2%, B$(23)=128
4080 F4$="1 DEF FNA(Z)="+D$+CHR$(13)+CHR$(10)
4085 &"WE MUST CHANGE PROGRAMS AGAIN PLEASE BE PATIENT!!"
4090 B$(0)=F4$
4100 CLOSE 1%,2%
4110 CHAIN D2$+A$+"SFNPLT.BAS"
4500 ON ERROR GO TO 9000
4501 V$=SYS(CHR$(0)+CHR$(-7))
4503 GOSUB 5000
4530 OPEN "KB:" AS FILE 1%
4540 INPUT #1%,"YOUR NEW FUNCTION FNA(T)="; F$
4560 OPEN D2$+A$+"PSFNPL.BAS" AS FILE 2%
4570 DIM#2%, C1$(50)=128
4580 F4$="1 DEF FNA(T)="+F$+CHR$(13%)+CHR$(10%)
4585 &"WE MUST CHANGE PROGRAMS AGAIN PLEASE BE PATIENT!!":&
4590 C1$(0)=F4$
4600 CLOSE 1%,2%
4610 CHAIN D2$+A$+"PSFNPL.BAS"
5000!
5010 D2$="DK0:"
5020 A$="[1,51]"
5030 RETURN
8999!

9000 IF ERR=28% THEN V$=SYS(CHR$(0)):&P2$:&:&"READY":
       KILL D2$+"DATA7.DAT": V$=SYS(CHR$(5)):STOP
10000 END