Google
 

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