10  COM X[103,22],M[20,20],U[20,20],Q[20],V[20]
30  COM M$[60],N$[72]
40  COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1
45  COM I3,I4,U9,X$[20]
46  REM HEWLETT-PACKARD 36755B, 6/74
50  REM:23SEP73
60  REM:DECLARING VAR(S). FOR $IDA02,03,04,05,06,32
150  DIM A$[2],C$[12],D$[30],E$[20]
160  IF Q[10]>3 THEN 200
162  IF Q[10]=3 THEN 170
164  IF K9>2 THEN 200
166  PRINT '10"'SCAT' NOT POSSIBLE WITH LESS THAN 2 COLUMNS."
168  GOTO 9998
170  IF N9 <= 375 THEN 200
172  PRINT '10"CAN'T EXECUTE 'NORM' WITH MORE THAN 375 OBSERVATIONS."
174  GOTO 9998
200  IF Q[9]#0 THEN 210
202  D$=" : "
204  E$="* VARIABLE : "
206  GOTO 220
210  D$="ON THE VERTICAL AXIS : "
212  E$="* VERT. VAR. : "
220  GOTO Q9 OF 230,230,260
230  PRINT "* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE"
235  IF Q[10]=6 THEN 248
240  PRINT "  VARIABLE TO BE PLOTTED "D$;
245  GOTO 270
248  PRINT "  VARIABLE TO BE TABULATED : ";
250  GOTO 270
260  PRINT E$;
270  ENTER 30,Q8,C$
275  PRINT 
280  IF Q8>0 THEN 310
290  GOSUB 4000
300  GOTO 260
310  GOSUB 4500
400  IF Q[9]=0 THEN 470
410  IF Q[8]#0 THEN 450
415  Q[8]=Z9
420  D$="ON THE HORIZONTAL AXIS : "
430  E$="* HORIZ. VAR. : "
440  GOTO 220
450  Q[9]=Z9
460  GOTO 490
470  Q[8]=Z9
490  IF Q[8]>(K9-1) OR Q[9]>(K9-1) THEN 510
500  GOTO 560
510  IF Q[4]=0 THEN 560
520  Q[5]=0
530  Q[6]=903
540  Q[7]=560
545  PRINT 
550  CHAIN "$IDA38"
560  Z=Q[11]
565  PRINT 
570  IF Q[10]=32 THEN 632
580  GOTO Q[10]-1 OF 602,603,604,605,606
590  GOTO 9998
602  GOTO 850
603  GOTO 800
604  CHAIN "$IDA04",Z
605  CHAIN "$IDA05",Z
606  CHAIN "$IDA06",Z
632  CHAIN "$IDA32",Z
702  CHAIN "$IDA02",Z
703  CHAIN "$IDA03",Z
800  Z1=Q[8]
802  GOSUB 900
804  Q[9]=S
806  IF Q3#1 THEN 818
808  GOSUB 1000
810  D$[1,11]="OF '      '"
812  D$[5,10]=C$
814  D$=D$[1,11]
816  GOTO 822
818  D$=" "
822  PRINT "NORMAL CUMULATIVE PROBABILITY PLOT "D$
826  GOTO 703
850  IF Q3#1 THEN 870
852  Z1=Q[8]
854  GOSUB 1000
856  D$[1,24]="OF '      ' VS. '      '"
858  D$[5,9]=C$
862  Z1=Q[9]
864  GOSUB 1000
866  D$[18,23]=C$
867  D$=D$[1,24]
868  GOTO 882
870  D$=" "
882  PRINT "SCATTER PLOT OF STANDARDIZED VALUES "D$
886  GOTO 702
900  FOR I=Q4 TO N
902  IF X[I,K9+2]=0 THEN 910
904  S=X[I,Z1]
906  L=X[I,Z1]
908  GOTO 912
910  NEXT I
912  FOR J=I+1 TO N
914  IF X[J,K9+2]=0 THEN 926
916  IF S <= X[J,Z1] THEN 922
918  S=X[J,Z1]
920  GOTO 926
922  IF L >= X[J,Z1] THEN 926
924  L=X[J,Z1]
926  NEXT J
928  S=(L-S)/(X[N9+2,Z1])
929  REM:S=STUDENTIZED RANGE
930  RETURN 
1000  IF Z1<11 THEN 1040
1010  Z1=Z1-10
1020  C$=N$[6*Z1-5,6*Z1]
1030  GOTO 1050
1040  C$=M$[6*Z1-5,6*Z1]
1050  RETURN 
4000  PRINT LIN(1);"DATA MATRIX HAS VARIABLE(S) IN FIRST "K" COLUMN(S)"
4005  IF Q3=1 THEN 4100
4010  PRINT '10'13"FOR YOUR REFERENCE :"
4040  PRINT '10"COLUMN  1ST OBSERVATION"
4050  FOR J=1 TO K
4060  PRINT  USING "2X,DD,6X,D.5DE";J,X[Q4,J]
4070  NEXT J
4080  GOTO 4185
4100  PRINT "THEY ARE :"
4110  PRINT LIN(1);"COLUMN   NAME"
4120  FOR J=1 TO K
4130  IF J>10 THEN 4170
4140  PRINT  USING 4150;J,M$[6*J-5,6*J]
4150  IMAGE 2X,DD,4X,6A
4160  GOTO 4180
4170  PRINT  USING 4150;J,N$[6*(J-10)-5,6*(J-10)]
4180  NEXT J
4185  PRINT 
4190  RETURN 
4500  IF Q3#1 THEN 4540
4505  FOR I=1 TO 10 MIN K
4510  IF M$[6*I-5,6*I]=C$[1,6] THEN 4730
4515  NEXT I
4520  IF K<11 THEN 4540
4525  FOR I=1 TO K-10
4530  IF N$[6*I-5,6*I]=C$[1,6] THEN 4750
4535  NEXT I
4540  IF C$[1,6]#"FITTED" THEN 4555
4545  Z9=K9
4550  GOTO 4672
4555  IF C$[1,6]#"RESIDU" THEN 4570
4560  Z9=K9+1
4565  GOTO 4672
4570  RESTORE 
4600  FOR I=1 TO K9+1
4610  READ A$
4620  IF A$=C$ THEN 4650
4630  NEXT I
4640  GOTO 4710
4650  IF I<K+1 THEN 4730
4660  IF I<K9 THEN 4710
4670  Z9=I
4672  IF Q[2]=1 THEN 4760
4674  PRINT '10"NO VALUES FOR 'FITTED' OR 'RESIDU' ";
4676  IF K9<3 THEN 4679
4678  PRINT "UNTIL REGRESSION EXECUTED."
4679  PRINT 
4680  GOTO 9998
4710  Z9=0
4715  PRINT "INVALID NAME OR NUMBER"
4720  GOTO 290
4730  Z9=I
4740  GOTO 4760
4750  Z9=10+I
4760  RETURN 
9000  DATA "1","2","3","4","5","6","7","8","9","10","11","12"
9010  DATA "13","14","15","16","17","18","19","20","21"
9998  CHAIN "$IDA",150
9999  END 
