1	SUB DATAIN &
!	500.12 - STAT11 - DATAIN &
!									&
!
		DATA ENTRY MODULE &
!									&
!
	RELEASED FOR SUBMISSION TO THE DECUS LIBRARY BY THE DEC &
!	ENGINEERING SYSTEMS GROUP AND THE EDUCATION PRODUCTS GROUP &
!		SEPTEMBER, 1977 &
!									&

2 !	COPYRIGHT (C) 1973, DIGITAL EQUIPMENT CORPORATION, &
!									&
!
			MAYNARD, MASSACHUSETTS &

3 !	THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE &
!	ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF &
!	DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS &
!	MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. &

4 !	THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT &
!	NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL &
!	EQUIPMENT CORPORATION. &

5 !	DEC ASSUMES NO RESPONSIBILITY FOR USE OR RELIABILITY OF ITS &
!	SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. &
!									&
!									&

6 !	THIS MODULE READS IN THE USER'S DATA FROM EITHER A VIRTUAL MATRIX FILE &
!	OR THE KEYBOARD AND THEN STORES THE DATA IN A WORKING STORAGE VIRTUAL &
!	MATRIX. &
!									&

7 ! 	AUTHOR:		MICHAEL D. KNAUER &
!									&
!
	VERSION NUMBER:	001 &
!									&
!
	DATE:		OCTOBER, 1973 &
!									&
!									&

8  !   	MODIFICATIONS:   MAY, 1975 &
!	 &
!	MODIFIED TO ACCEPT MISSING DATA POINTS &
!									&
!
		BY ARDOTH HASSLER WILSON &
!		   CENTRAL STATE UNIVERSITY &
!		   EDMOND, OKLAHOMA &
!									&

00009!	MODIFICATIONS:  JUNE, 1976 &
!									&
!
	CTRL/C TRAP ADDED &

10 !									&
!	CALLING ARGUMENTS &
!									&
!
		1) VARIABLE NAME:	F1$ &
!		   RANGE OF VALUES:	ANY VALID BASIC-PLUS FILE NAME &
!		   USE:			NAME OF USER'S INPUT DATA FILE &

11 !		2) VARIABLE NAME:	F2$ &
!		   RANGE OF VALUES:	ANY VALID BASIC-PLUS FILE NAME &
!		   USE:			NAME FOR OUTPUT FILE TO SAVE DATA &

12 !		3) VARIABLE NAME:	F3$ &
!		   RANGE OF VALUES:	S00000.RWM - S99999.RWM &
!		   USE:			NAME OF FILE WHERE 250 ROW BY &
!					15 COLUMN DATA MATRIX WILL BE STORED &

13 !		4) VARIABLE NAME:	R% &
!		   RANGE OF VALUES:	1 - 250 &
!		   USE:			NUMBER OF ROWS IN DATA MATRIX &

14 !		5) VARIABLE NAME:	C% &
!		   RANGE OF VALUES:	1 - 15 &
!		   USE:			NUMBER OF COLUMNS IN DATA MATRIX &
!									&

15 !									&
!	RETURNING ARGUMENTS &
!									&
!
		THE RETURNING ARGUMENTS ARE THE SAME AS THE CALLING &
!		ARGUMENTS -- ALL ARE PASSED VIA COMMON STORAGE TO THE &
!		NEXT MODULE. &
!									&

20 !	DESCRIPTION OF FUNCTION &
!									&
!
		THIS MODULE READS IN THE USER'S DATA FROM EITHER A VIRTUAL &
!		MATRIX FILE OR THE KEYBOARD AND THEN STORES THE DATA IN A &
!		WORKING STORAGE VIRTUAL MATRIX FILE. &

21 !		AFTER OBTAINING INPUT AND OUTPUT FILE NAMES FROM THE USER, &
!		THIS MODULE GETS THE ROW AND COLUMN NUMBER INFORMATION EITHER &
!		DIRECTLY FROM THE INPUT FILE MATRIX (IN THE CASE OF STAT11- &
!		CREATED FILES), OR FROM USER. &

22 !		DATAIN THEN READS THE DATA, EITHER FROM A VIRTUAL MATRIX &
!		FILE OR FROM THE KEYBOARD AND STORES IT IN THE WORKING &
!		STORAGE FILE, F3$. &

23 !		THE USER IS GIVEN THE OPTION OF HAVING ALL, PART, OR NONE OF &
!		THE DATA PRINTED. &

24 !		AFTER THE PRINT ROUTINE, CONTROL IS PASSED TO ESCRWM FOR &
!		COMPUTATION OF THE ELEMENTARY STATISTICS FOR THE NEWLY &
!		READ DATA. &

26 !									&
!									&
!									&
!	THESE STATEMENTS ASK THE USER TO ENTER HIS FILE NAMES AND &
!	IF HE ENTERS AN ASTERISK, IT IS CHANGED TO "TI:" TO INDICATE &
!	A KEYBOARD--INPUT OR OUTPUT FILE. &

27 !	THESE STATEMENTS ALSO RETRIEVE THE TEMPORARY WORK FILE NAME &
!	FROM COMMON, PAD THE USER'S SPECIFIED FILE NAMES WITH SPACES, &
!	AND OPEN AND CLOSE NON-KEYBOARD INPUT FILES TO BE SURE THAT &
!	THEY EXIST. &
!									&
!									&
!									&
!	Modifications: August,1981					&
!									&
!	COMMON (STAT) MODULE$ = 6%, LINE%, SAV.F$ = 127%		&
!	added to replace core common and also to let STTMGR know	&
!	who to chain to (MODULE$).  Once in MODULE$, LINE% indicates	&
!	line to begin execution.					&
!									&
\	COMMON (STAT)	MODULE$ = 6%, LINE%, SAV.F$ = 127%		&

28	GOTO 35 IF LINE% = 35% &
\	ON ERROR GOTO 9000 &
\	GOSUB 10000 &
\	DIM C(15%) &
\	!F$=SYS(CHR$(7%)) &
\	F$=SAV.F$ &
\	PRINT "PLEASE ENTER NAMES OF INPUT AND OUTPUT FILES"; &
\	PRINT " (FORM IN,OUT)"
29	GOSUB 4500 &
\	INPUT "(* FOR TERMINAL) "; F1$,F2$ &
\	PRINT &
\	IF F1$="*" THEN F1$="TI:"
30	IF F2$="*" THEN F2$="TI:"
31	F3$=MID(F$,31%,15%) &
\	F2$=LEFT(F2$+SPACE$(15%),15%) &
\	F1$=LEFT(F1$+SPACE$(15%),15%) &
\	A$=MID(F$,56%,20%)
32	IF F2$<>"TI:" THEN OPEN F2$ AS FILE 3, VIRTUAL &
\	CLOSE 3
33	GOTO 60
35 &
!									&
!
	ON ERROR GOTO 9000 &
\	GOSUB 10000 &
\	!F$=SYS(CHR$(7%)) &
\	F$=SAV.F$ &
!									&
!
	 THIS IS WHERE CONTROL IS RECEIVED FROM THE STAT11 MODULE &
!	SINCE IT ALREADY HAS ASKED FOR THE INPUT AND OUTPUT FILES. &

40	F1$=LEFT(F$,15%)
45	F2$=MID(F$,16%,15%)
50	F3$=MID(F$,31%,15%)
55	A$=MID(F$,56%,20%)
57	GOSUB 4500
59 !									&
!									&
!									&
!	THIS SECTION OPENS THE USER'S SPECIFIED INPUT FILE (F1$) &
!	AND THE VIRTUAL MATRIX STORAGE FILE (F3$) PRIOR TO TRANSFERRING &
!	DATA FROM F1$ TO F3$. &
!									&
!									&

60 !
70	IF	EDIT$(F1$,-1%) = "TI:" &
	THEN	OPEN "TI:" AS FILE 1 &
	ELSE	OPEN F1$ AS FILE 1, VIRTUAL &

75 !	
80	OPEN F3$ AS FILE 2, VIRTUAL
81	DIM #2,B(250%,15%) &
\	S1%=0%
85 !									&
!									&
!									&
!	IF THE KEYBOARD IS TO BE THE INPUT FILE, CONTROL IS DIRECTED &
!	TO THE KEYBOARD INPUT ROUTINE.
86 !	FOR VIRTUAL MATRIX FILE INPUT, THE FILE IS CHECKED TO SEE IF &
!	ROW AND COLUMN INFORMATION IS STORED IN THE 0TH AND 1ST ROWS &
!	OF THE UNUSED 15TH COLUMN (ONLY COLUMNS 0 - 14 ARE USED TO &
!	STORE DATA.
87 !	THE ROW/COLUMN INFORMATION IS STORED THERE BY EDIT MODULE OPTION &
!	#7. HENCE ONLY STAT11 - CREATED FILES WILL HAVE THIS INFORMATION.
88 !	IF THE INFORMATION IS WITHIN EXPECTED BOUNDARIES (1 - 250 FOR &
!	ROWS, 1 - 15 FOR COLUMNS), IT IS ASSUMED TO BE CORRECT AND IS &
!	USED AS THE NUMBERS OF ROWS AND COLUMNS.
89 !	IF IT IS NOT WITHIN CORRECT LIMITS, THEN THE USER IS ASKED TO &
!	ENTER THE NUMBERS OF ROWS AND COLUMNS. &
!									&
!									&

92	
93	IF	EDIT$(F1$,-1%)="TI:" &
	THEN	GOTO 100
94	DIM #1,A(250%,15%)
95	
96	R=A(0%,0%) &
\	R%=R &
\	C=A(1%,0%) &
\	C%=C
97	
98	IF R-R%<>0 OR C-C%<>0 OR R<1 OR R>250 OR C<1 OR C>15 GOTO 100
99	GOTO 200     !									&
!									&
!									&
!	THIS IS THE ROW AND COLUMN NUMBER INPUT ROUTINE, USED FOR &
!	BOTH KEYBOARD AND VIRTUAL MATRIX INPUT FILES. &
!									&
!									&

100	PRINT "TYPE NUMBER OF ROWS AND COLUMNS OF DATA."
110	INPUT "(FORM ROWS,COLUMNS)"; R%,C%
115	IF R%>0% AND R%<=250% AND C%>0% AND C%<=15% GOTO 125
117	PRINT "NUMBER OF ROWS MUST BE BETWEEN 1 AND 250"
119	PRINT "NUMBER OF COLUMNS MUST BE BETWEEN 1 AND 15"
121	PRINT "PLEASE TRY TYPING THEM AGAIN"
123	GOTO 110
125	PRINT
130	IF	EDIT$(F1$,-1%)<>"TI:" &
	THEN	GOTO 200
139 !									&
!									&
!									&
!	THIS IS THE KEYBOARD INPUT ROUTINE, WHICH USES THE GOSUB 2000 &
!	FOR EACH ROW OF INPUT. &
!									&
!									&

140	PRINT "IF YOU HAVE DATA MISSING, TYPE AN 'X' WHERE THE VALUE" &
\	PRINT "WOULD NORMALLY OCCUR" &
\	PRINT &
\	PRINT "ENTER";R%," ROWS, ONE AT A TIME."
145   	B(0%,K%)=0 FOR K%=1% TO C%
150	FOR J%=1% TO R%
155	PRINT "ROW";J%;
160	GOSUB 2000
180	NEXT J%
182 	B(0%,0%)=R% &
\	B(1%,0%)=C%
185	PRINT
190	GOTO 3000
199 !									&
!									&
!									&
!	HERE THE VIRTUAL MATRIX INPUT FILE IS READ INTO THE F3$ FILE. &
!									&
!
200	H9=.9E-38
210	B(0%,K%)=0 FOR K%=1% TO C%
250	FOR J%=1% TO R%
260	FOR K%=1% TO C%
270	IF A(J%,K%)<>H9 THEN B(0%,K%)=B(0%,K%)+1
300	B(J%,K%)=A(J%,K%)
310	NEXT K%
320	NEXT J%
325	B(0%,0%)=R &
\	B(1%,0%)=C
330	PRINT
340	PRINT F1$;" CONTAINS";R%;" ROWS AND";C%;" COLUMNS OF DATA"
345	PRINT
350	GOTO 3000
498 !									&
!									&
!									&
!	THIS SECTION MIGHT BE RE-ACTIVATED FOR VERSION #2. IT IS FOR &
!	SEQUENTIAL RECORD INPUT FILES. &

499 ! NOTE 500-1010 ARE INACTIVE SINCE ONLY VIRTUAL ARRAYS ALLOWED
500  FIELD #1,512% AS B$
550  P%=1%   &
\	  U%=0%
560  FOR J%=1% TO R%
570  FOR K%=1% TO C%
580  N$=""
590  IF P%<>1% GOTO 600
595  GET #1
600  IF ASCII(B$)=26 GOTO 1000
610  IF ASCII(B$)=32 GOTO 702
620  IF ASCII(B$)=13 GOTO 702
630  IF ASCII(B$)=10 GOTO 702
635  IF ASCII(B$)=44 GOTO 702
640  N$=N$+LEFT(B$,1%)
650  U%=1%
655  B$=RIGHT(B$,2%)
660  P%=P%+1%
670  IF P%<=512% GOTO 600
690  P%=1%
700  GOTO 590
702  IF U%=1% GOTO 710
704  B$=RIGHT(B$,2%)
706  P%=P%+1%
707  IF P%<=512% GOTO 600
708  P%=1%
709  GOTO 590
710  U%=0%
720  B(J%,K%)=VAL(N$)
725  B$=RIGHT(B$,2%)
730  P%=P%+1%
740  IF P%<=512% GOTO 760
750  P%=1%
760  NEXT K%
770  NEXT J%
775  PRINT
780  PRINT "LAST DATA ITEM READ FROM INPUT FILE ";F1$
785  PRINT
790  GOTO 3000
1000 PRINT "END OF FILE ENCOUNTERED BEFORE ALL THE DATA WAS READ."
1010 GOTO 3100
1999 !									&
!									&
!									&
!	HERE IS WHERE THE USER'S KEYBOARD-ENTERED DATA IS ACCEPTED AND &
!	STORED, ROW BY ROW, IN THE F3$ FILE. &
!									&
!									&

2000 Z%=1% &
\	H9=.9E-38
2003	ON ERROR GOTO 2140
2005 INPUT LINE L$
2020 L$=LEFT(L$,LEN(L$)-2)+","
2030 FOR K%=1% TO C%
2040 Z%=INSTR(1%,L$,",")
2050 IF Z% = 0% GOTO 2090
2060	IF	Z%=1% OR LEFT(L$,Z%-1%)="X" &
	THEN	B(J%,K%)=H9 &
	ELSE	B(J%,K%)=VAL(LEFT(L$,Z%-1%)) &
\		B(0%,K%)=B(0%,K%)+1
2070 L$=RIGHT(L$,Z%+1%)
2080 GOTO 2120
2090 INPUT LINE L$
2100 L$=LEFT(L$,LEN(L$)-2)+","
2110 GOTO 2040
2120 NEXT K%
2130 GOTO 2300
2140	IF ERR=28% THEN GOSUB 10000 &
\	R%,C%=0% &
!\	RESUME 3002 &
\	MODULE$ = "FINISH" &
\	GOTO 32750
2142	IF LEFT(L$,Z%-1%)="" THEN B(J%,K%)=H9 &
\	RESUME 2070
2145 PRINT "YOU TYPED IN NON-NUMERICS FOR YOUR DATA"
2150 PRINT"PLEASE TYPE ONLY NUMBERS, SEPARATED BY COMMAS"
2160 PRINT "YOU MUST RE-TYPE THE ENTIRE ROW,"; C%; " VALUES"
2230 RESUME 2005
2300	ON ERROR GOTO 9000 &
\	RETURN
2990 !									&
!									&
!									&
!	HERE RETURNING ARGUMENTS ARE LOADED INTO COMMON AND CONTROL &
!	IS PASSED ONTO ESCRWM SO THAT THE ELEMENTARY STATISTICS FOR &
!	THE DATA MATRIX CAN BE COMPUTED.
2991 !	CONTROL IS NEVER PASSED TO STATCM (LINE 3100) SINCE THE ONLY &
!	REFERENCE TO THAT STATEMENT IS FROM THE ROUTINE FOR SEQUENTIAL &
!	FILE INPUT (LINES 500-1010) , WHICH IS NOT USED IN THIS VERSION &
!	OF STAT11. &
!									&
!									&

3000 GOSUB 4000
3002 CLOSE 1,2
3005 F$=""
3010 R$="00000"+RIGHT(NUM$(R%),2%)
3020 C$="00000"+RIGHT(NUM$(C%),2%)
3030 F$=F$+MID(R$,LEN(R$)-5%,5%)
3040 F$=F$+MID(C$,LEN(C$)-5%,5%)
3050 F$=F1$+F2$+F3$+F$
3060 F$=F$+A$
3070 !R$=SYS(CHR$(8)+F$) &
\	SAV.F$ = F$
3090	!CHAIN "ESCRWM"+A9$ IF R%<>0% AND C%<>0% &
\	IF	R% <> 0% AND C% <> 0%					&
	THEN	MODULE$= "ESCRWM"					&
\		LINE% = 0%						&
\		SUBEXIT							&

3100 !CHAIN "STATCM"+A9$						&
\	MODULE$= "STATCM"						&
\	LINE% = 0%							&
\	SUBEXIT								&

3999 !									&
!									&
!									&
!	THIS ROUTINE PROVIDES PRINTING OF ALL OR PART OF THE USER'S &
!	DATA MATRIX. IT IS COMPLICATED BY THE FACT THAT THE TABLE MUST &
!	BE PRINTED IN TWO OR THREE PARTS IF THE MATRIX CONTAINS MORE &
!	THAN 6 COLUMNS OF DATA. &
!									&
!									&

4000 !	
4010 INPUT "ENTER PRINT OPTION (0=NO PRINT,1=ENTIRE MATRIX,2=SUBMATRIX)";O%
4020 ON O%+1% GOTO 4400,4050,4080
4030 PRINT "PLEASE TRY AGAIN; TYPE ONLY 0,1, OR 2"
4040	GOTO 4000
4050 C1%=1%  &
\	C8%=1%  &
\	C2%=C%  &
\	C9%=C%
4060 R1%=1%  &
\	R2%=R%
4070 GOTO 4130
4080 !	
4085 S1%=1%
4090 INPUT "TYPE BEGINNING ROW, END ROW"; R1%,R2%
4093 IF R1%>=1% AND R2%>=1% AND R1%<=R% AND R2%<=R% GOTO 4110
4096 PRINT "YOUR ROW NUMBERS MUST BE BETWEEN 1 AND"; R%
4099 PRINT "PLEASE TRY AGAIN"
4101 GOTO 4090
4110 S1%=2%
4111 INPUT "TYPE BEGINNING COLUMN, END COLUMN";C1%,C2%
4112	IF	C1%>=1% AND C2%>=1% AND C1%<=C% AND C2%<=C% AND C2%>=C1% &
	THEN	GOTO 4120
4114 PRINT "YOUR COLUMN NUMBERS MUST BE BETWEEN 1 AND"; C%
4116 PRINT "PLEASE TRY AGAIN"
4118 GOTO 4110
4120 C8%=C1%  &
\	C9%=C2%  &
\	PRINT
4125 S1%=0%
4130 IF (C9%-C8%)>5% THEN C9%=C8%+5%
4140 PRINT  &
\	PRINT "ROW";TAB(35);"COLUMN"  &
\	PRINT
4150 I%=10%
4160 FOR K%=C8% TO C9%
4170 PRINT TAB(I%);K%;
4180 I%=I%+11%
4190 NEXT K%
4200 PRINT &
\	H9=.9E-38
4210 FOR I%=R1% TO R2%
4220 PRINT I%;TAB(5%);
4230 FOR J%=C8% TO C9%
4235 IF B(I%,J%)=H9 THEN PRINT SPACE$(11%); &
\	GOTO 4250
4240 PRINT USING " #####.####",B(I%,J%);
4250 NEXT J%
4260 PRINT
4270 NEXT I%
4280 PRINT  &
\	PRINT
4290 IF C2%=C9% GOTO 4400
4300 C8%=C9%+1%  &
\	C9%=C2%
4310 GOTO 4130
4400 RETURN
4500	A9$=MID(F$,62%,9%) &
\	A9$=LEFT(A9$,INSTR(5%,A9$,"]")) &
\	RETURN
08999	!									&
!									&
!
	ERROR ROUTINES &

09000	IF ERR=28% THEN GOSUB 10000 &
\	R%,C%=0% &
!\	RESUME 3002 &
\	MODULE$ = "FINISH" &
\	GOTO 32750
09010	IF	ERL<85% &
	THEN	PRINT "STAT11 IS UNABLE TO USE THE DESIGNATED FILE."; &
			" YOU SHOULD CHECK" &
\		PRINT "THE FILE NAME AND PROTECTION CODE FOR STARTERS" &
\		RESUME 28
09020	IF	ERL<98 &
	THEN	R%,C%=0% &
\		RESUME 100
09030	IF	ERL>4000 AND ERL<4040 &
	THEN	PRINT "PLEASE ENTER 0, 1 OR 2" &
\		RESUME 4010
09040	PRINT "YOU TYPED NON-NUMERIC ROW AND/OR COLUMN NUMBERS" &
\	PRINT "PLEASE TYPE ONLY NUMBERS AND SEPARATE THEM WITH A COMMA"
09050	IF	S1%=1% &
	THEN	RESUME 4090 &
	ELSE	IF	S1%=2% &
		THEN	RESUME 4110
09060	RESUME 100
10000	V0%=CTRLC ! SYS(CHR$(6%)+CHR$(-7%)) &
\	RETURN	! CTRL/C TRAP
32750	SUBEND