10  COM A[103,22],M[19,19],U[19,19],L[20],V[20],P[78]
20  COM M$[60],N$[72]
30  COM Z0,Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9,W0,W1,W2
40  COM W3,W4,W5,X$[20]
45  COM Q[3,3],I0,I1,I2,I3,I4,I5,I6,I7
50  REM:13MAY74
52  REM:>MPLS
54  REM:24APR74 VERSION BY WM.E.WECKER
60  IF L[1]#0 THEN 140
62  GOTO 9990
109  REM    A(103,22)  - 3 COLUMN VECTORS OF THE IDA MATRIX ARE PLOTTED
140  DIM I$[3]
145  GOTO 240
150  REM         PLOT INTERFACE
160  REM THE FOLLOWING ARE DESCRIPTIONS AND DEFAULT SETTINGS
170  REM     OF BOXP2 VARIABLES:
180  REM
190  REM    P(3,300) - DATA ARRAY CONTAINING UP TO THREE TIME SERIES
200  MAT P=ZER
210  REM
220  REM   I0 = 1      ARITHMETIC SCALE
230  REM      = 2      LOG SCALE
240  I0=1
250  REM   I1 = ?      INDEX OF FIRST POINT PLOTED
260  I1=1
270  REM   I2 = ?      INDEX OF LAST POINT PLOTTED
280  REM
290  I2=300
300  REM   I3 = ?      NUMBER OF PERIODS/YEAR
310  I3=4
320  REM   I4 = ?      FIRST PERIOD OF FIRST YEAR TO BE PLOTTED
330  REM               (0 FOR ANNUAL DATA)
340  I4=0
350  REM   I5 = ?      YEAR OF FIRST POINT TO BE PLOTTED (2 DIGITS)
360  I5=1
370  REM   I6 = ?      NUMBER OF SERIES TO BE PLOTTED
380  I6=1
390  REM   I7 = 0      MEANS OMITTED
400  REM      = 1      MEANS PLOTTED
410  I7=1
415  MAT Q=ZER
420  REM  E(3,3) = ?    CONTAINS FIRST AND LAST INDEX OF EACH SERIES
430  REM               TO BE PLOTTED. ENTRIES IN THE E(X,Y) VECTOR TAKE
440  REM               PRECEDENCE OVER THE VALUES FOR I1,I2.
441  REM               Q(I,3) SAVES THE IDA COLUMN VECTOR TO BE PLOTTED
442  Q[1,1]=Q[2,1]=Q[3,1]=300
444  Q[1,2]=Q[2,2]=Q[3,2]=0
450  PRINT "IS AN EXPLANATION OF PLOT OPTIONS DESIRED ";
460  INPUT I$
470  IF I$[1,1]#"Y" THEN 500
480  PRINT "'MPLS' PLOTS UP TO 3 TIME SERIES IN IDA DATA COLUMNS."
500  PRINT "HOW MANY TIME SERIES TO BE PLOTTED ";
510  INPUT I6
520  I6=INT(I6)
530  IF (I6<4 AND I6>0) THEN 570
540  REM INCORRECT RESPONSE - REPROMPT
550  PRINT I6," TIME SERIES CANNOT BE PLOTTED"
560  GOTO 500
570  FOR J1=1 TO I6
580  PRINT LIN(3)
610  PRINT  USING 620;J1
620  IMAGE #,"COLUMN NUMBER OF TIME SERIES # ",2D
640  INPUT Q[J1,3]
650  IF Q[J1,3] >= 1 AND Q[J1,3] <= Z1 THEN 810
660  PRINT  USING 670;Q[J1,3]
670  IMAGE "COLUMN #",DD," IS INACTIVE. RESPECIFY."
680  GOTO 620
810  PRINT  USING 820;J1
820  IMAGE #,"INDEX (ROW) OF FIRST OBS. OF TIME SERIES #",3D
830  INPUT Q[J1,1]
831  IF Q[J1,1] >= Z9 THEN 835
832  PRINT  USING 833;Z9-1
833  IMAGE "ALL ROWS <= ",DD," ARE INACTIVE DUE TO DIFFERENCING."
834  GOTO 820
835  IF Q[J1,1] <= Z0 THEN 840
836  PRINT  USING 837;Z0
837  IMAGE "ROWS ABOVE ",DD," ARE INACTIVE. RESPECIFY. "
838  GOTO 820
840  PRINT  USING 850;J1
850  IMAGE #,"INDEX (ROW) OF LAST OBS. OF TIME SERIES #",3D
860  INPUT Q[J1,2]
861  IF Q[J1,1] <= Q[J1,2] THEN 867
862  PRINT  USING 863
863  IMAGE "FIRST OBSERVATION MUST BE <= LAST OBSERVATION"
864  PRINT  USING 865
865  IMAGE "TRY AGAIN!"
866  GOTO 850
867  IF Q[J1,2] >= Z9 THEN 871
868  PRINT  USING 833;Z9-1
870  GOTO 850
871  IF Q[J1,2] <= Z0 THEN 875
872  PRINT  USING 873;Z0
873  IMAGE "ROWS ABOVE ",DD," ARE INACTIVE. RESPECIFY."
874  GOTO 850
875  NEXT J1
876  I1=(Q[1,1] MIN Q[2,1] MIN Q[3,1])
877  I2=(Q[1,2] MAX Q[2,2] MAX Q[3,2])
880  PRINT "ARE STANDARD DEFAULT OPTIONS DESIRED (Y OR N)"
890  INPUT I$
900  IF I$[1,1]="Y" THEN 1140
910  REM PROMPT USER FOR OPTIONS
915  REM USERS WILL NOT BE ALLOWED THE LOG OPTION, IT ALTERS THE IDA ARRAY
916  GOTO 1000
920  PRINT "SCALE"
930  PRINT TAB(5),"ARITHMETIC SCALE = 1"
940  PRINT TAB(5),"LOGARITHMIC SCALE = 2"
950  INPUT I0
960  IF I0=1 OR I0=2 THEN 1000
970  PRINT  USING 980;I0
980  IMAGE DD," IS NOT AN ACCEPTABLE ANSWER "
990  GOTO 920
1000  PRINT "SHOULD MEANS BE PLOTTED (Y OR N)";
1010  INPUT I$
1020  IF I$[1,1]="Y" THEN 1040
1030  I7=0
1040  REM    LABELING INFORMATION
1050  PRINT "YEAR CORRESPONDING TO FIRST OBS. TO BE PLOTTED (2 DIGITS) ";
1070  INPUT I5
1080  PRINT "FIRST PERIOD, OF FIRST YEAR, (0 FOR ANNUAL DATA) ";
1100  INPUT I4
1110  IF I4=0 THEN 1140
1120  PRINT "NUMBER OF PERIODS PER YEAR ";
1130  INPUT I3
1140  GOTO 9920
1150  STOP 
9920  CHAIN "$IDA20A"
9990  CHAIN "$IDA",9990
9998  CHAIN "$IDA",150
9999  END 
