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