Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/comp16.bas
There are 2 other files named comp16.bas in the archive. Click here to see a list.
00030C0=0
00040C1=1
00050C2=2
00060C7=7
00080 FILES RFILE1,RFILE2,RFILE3,RF8,RF7
00120RESTORE#1
00121 INPUT# 1,K,J,I
00130IF J=0 THEN 6500
00140I=J
00150GOTO 6580
06500PRINT L$
06510PRINT " COMPONENT 16. MULTIWAY FACTORIAL ANOVA"
06520PRINT
06530PRINT " 1. TWO BY TWO"
06540PRINT " 2. THREE BY THREE"
06550PRINT " *3. GENERAL M BY N"
06560PRINT " *4. GENERAL FACTORIAL MODEL"
06562 SCRATCH #4
06564 PRINT #4,0
06566 SCRATCH #5
06568 PRINT#5,0
06570GOSUB 9900
06580IF I=C0 THEN 8390
06590IF I=C1 THEN 6640
06600IF I=C2 THEN 6640
06610GOSUB 8450
06630GOTO 6580
06640PRINT L$
06650I2=I
06660RESTORE#1
06661 INPUT# 1,I1,I1,I3
06670SCRATCH#1
06671 PRINT # 1,I1,I,I3
06680IF I <> C2 THEN 6710
06690PRINT " THREE BY THREE FACTORIAL"
06700GOTO 6720
06710PRINT " TWO BY TWO FACTORAL DESIGN"
06720PRINT
06730PRINT " 1. ENTRY OF SUMMARY STATISTICS"
06740PRINT " 2. POSTERIOR DISTRIBUTIONS"
06750GOSUB 9800
06760IF I2=C1 THEN 6790
06770IF I=C1 THEN 8290
06780IF I=C2 THEN 8290
06790IF I=C1 THEN 8280
06800IF I=C2 THEN 8280
06810IF I=C0 THEN 6500
06820GOSUB 8500
06840GOTO 6790
08280CHAIN "CMOD75"
08290CHAIN "CMOD89"
08390SCRATCH#1
08391 PRINT # 1,-99,0,0
08394CHAIN "CMONTR"
08450PRINT "REENTER. IMPUT MUST BE NUMBER OF AVAILABLE MODEL OR '0'.";
08455INPUT I
08460I=INT(I)
08465RETURN
08500PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
08510INPUT I
08520I=INT(I)
08530RETURN
09800PRINT
09810PRINT " * NOT YET AVAILABLE"
09820PRINT
09830PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
09840INPUT I
09850RETURN
09900PRINT
09910PRINT " * NOT YET AVAILABLE"
09920PRINT
09930PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
09940INPUT I
09950RETURN
09999 END