1!	Program CAS.BAS		Version 1	June, 1976
	This is the main driver program for CASANOVA


2!			Department of Psychology
			   Lawrence University
			Appleton, Wisconsin, 54911
			(414) 739-3681,  Ext. 464

3!	Copyright (C) 1975, 1976 by Francis Campos.  General 
	permission to copy or modify, but not for profit, all or part of
	this document or the software described herein is hereby
4!	granted, provided that this copyright notice is given, and
	reference is made to the fact that reproduction privileges were
	granted by permission of Francis Campos, Lawrence University.

5!	Although  every  effort has been made to insure the accuracy and
	usefulness of this document and the software  described  herein,
	neither  the  author(s),  Lawrence  University,  nor its funding
6!	sources make any warranty, expressed or implied, with respect to
	the  performance or features of same on equipment which Lawrence
	neither owns nor controls.

7!	This program is one of the twenty-one BASIC-PLUS programs and
	eighteen virtual core files that comprise the CASANOVA
	package for Computer ASsisted instruction in ANalysis Of
8!	VAriance.  The package is coded for use on a PDP 11/40, 45 or 70
	computer operating under RSTS/E, V6A-02.  Those who wish to adapt
	the package to other systems and/or programming languages are
9!	urged to consult the BASIC-PLUS Language Manual, published by the
	Digital Equipment Corporation, Maynard, Massachusetts, 01754,
	as well as the Instructor's Manual for CASANOVA, provided by Lawrence.


100 PRINT,"EXPERIMENTAL DESIGN LABORATORY
110 INPUT"WHICH UNIT DO YOU WANT";A$
900  IF A$="RERUN" THEN 3000
1000 REM AVAILABLE UNITS
1010 IF A$="1" THEN 2000
1020 IF A$="2A" THEN 2000
1022 IF A$="2B" THEN 2000
1030 IF A$="3A" THEN 2000
1032 IF A$="3B" THEN 2000
1040 IF A$="4A" THEN 2000
1042 IF A$="4B" THEN 2000
1050 IF A$="5A" THEN 2000
1052 IF A$="5B" THEN 2000
1060 IF A$="6A" THEN 2000
1062 IF A$="6B" THEN 2000
1070 IF A$="7A" THEN 2000
1080 IF A$="8A" THEN 2000
1090 IF A$="9A" THEN 2000
1990 PRINT"THIS UNIT IS NOT AVAILABLE."
1995 GOTO 9999
2000 N$="GEN"+A$
2010 CHAIN N$
3000 INPUT"WHICH UNIT DO YOU WANT TO RERUN";B$
3010 IF B$="1" THEN 4000
3020 IF B$="2A" THEN 4000
3022 IF B$="2B" THEN 4000
3030 IF B$="3A" THEN 4000
3032 IF B$="3B" THEN 4000
3040 IF B$="4A" THEN 5000
3042 IF B$="4B" THEN 5000
3050 IF B$="5A" THEN 5000
3052 IF B$="5B" THEN 5000
3060 IF B$="6A" THEN 5000
3062 IF B$="6B" THEN 5000
3070 IF B$="7A" THEN 5000
3080 IF B$="8A" THEN 5000
3090 IF B$="9A" THEN 5000
3990 PRINT"THIS UNIT IS NOT AVAILABLE."
3995 GOTO 9999
4000 CHAIN "INTXLG"
5000 CHAIN "INTXSM"
9999 END