Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0113/comp15.bas
There are 2 other files named comp15.bas in the archive. Click here to see a list.
00020C0=0
00030C1=1
00040C2=2
00050C7=7
00070  FILES RFILE1,RFILE2,RFILE3
00110RESTORE#1
00111  INPUT#  1,K,J,I
00120IF J=0 THEN 150
00130I=J
00140GOTO 220
00150PRINT L$
00160PRINT "     COMPONENT 15.  ONE-WAY MODEL I ANOVA"
00170PRINT
00180PRINT "     1. NON-INFORMATIVE PRIORS"
00190PRINT "    *2. INFORMATIVE PRIORS"
00200GOSUB 560
00210IF I=C0 THEN 400
00220IF I=C1 THEN 250
00230GOSUB 420
00240GOTO 210
00250PRINT L$
00260RESTORE#1
00261  INPUT#  1,I1,I2,I3
00270SCRATCH#1
00271  PRINT #  1,I1,C1,I3
00280PRINT "    ONE-WAY MODEL I ANOVA--NON-INFORMATIVE PRIORS"
00290PRINT
00300PRINT "    1. ENTRY OF SUMMARY STATISTICS"
00310PRINT "    2. POSTERIOR DISTRIBUTIONS"
00320GOSUB 500
00330IF I=C1 THEN 380
00340IF I=C2 THEN 390
00350IF I=C0 THEN 150
00360GOSUB 460
00370GOTO 330
00380CHAIN "CMOD68"
00390CHAIN "CMOD69"
00400SCRATCH#1
00401  PRINT #  1,-99,0,0
00410CHAIN "CMONTR"
00420PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE MODEL OR '0'.";
00430INPUT I
00440I=INT(I)
00450RETURN
00460PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00470INPUT I
00480I=INT(I)
00490RETURN
00500PRINT
00510PRINT "     * NOT YET AVAILABLE"
00520PRINT
00530PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
00540INPUT I
00550RETURN
00560PRINT
00570PRINT "     * NOT YET AVAILABLE"
00580PRINT
00590PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
00600INPUT I
00610RETURN
09999 END