10 X$=SYS(CHR$(7)):R$=LEFT(X$,7):L$=RIGHT(X$,8) 12 REM********************************************************* 13 REM CEXPLN CEXPLN CEXPLN CEXPLN CEXPLN CEXPLN 14 REM*********************************************************** 20 REM 30 REM MODULES GIVES EXPLANATION OF CADA MONITOR 40 REM 50 REM********************************************************* 60 J=0 70 DIM M(111) 80 MAT M=ZER 81 M(0)=0 90 DIM #1,A1(111),A2(111),A3(111) 100 OPEN R$ AS FILE 1 130K=A1(0):J=A1(1):I=A1(2) 140 REM ********************************************************* 150 REM 160 REM K=99 IF REQUEST WAS MADE IN CMONTR FOR ANOTHER 170 REM READING OF THE EXPLANATION 180 REM 190 REM ********************************************************** 200 IF K=99 THEN 560 210 IF K=66 THEN 290 220 PRINT L$ 230 PRINT " THE COMPUTER ASSISTED DATA ANALYSIS (CADA) MONITOR" 240 PRINT 250PRINT"IF YOU WANT AN EXPLANATION OF THE CADA MONITOR TYPE '99'." 260PRINT"IF YOU WANT A LISTING OF CADA COMPONENTS TYPE '77'." 270 PRINT "IF YOU WANT A PARTICULAR COMPONENT TYPE ITS NUMBER." 280 REM 290 INPUT I 300 IF I=-9999 THEN 460 310 IF I=99 THEN 560 320 IF I=77 THEN 1500 330 REM *************************************************************** 340 REM 350 REM IF '99', '77', OR '-9999' IS NOT SPECIFIED THEN IT IS 360 REM ASSUMED THAT HE WANTS TO GO DIRECTLY TO A COMPONENT 370 REM 380 REM **************************************************************** 390 J=I 400 REM 410 REM I=3 IF THE REQUEST WAS FOR A PARTICULAR COMPONENT 420 REM J IS SET EQUAL TO THE NUMBER OF REQUESTED COMPONENT 430 REM*************************************************************** 440 I=3 450 GOTO 1590 460 PRINT 470 GOSUB 490 480 GOTO 250 490 PRINT 510A$="THE -999 RESTART OPTION IS NOT AVAILABLE AT THIS POINT. IF YOU" 511PRINT USING A$ 530A$="WANT A RESTART USE THE PANIC BUTTON OPTION." 531PRINT USING A$ 540 PRINT 550 RETURN 560 PRINT L$ 570 PRINT "THE CADA MONITOR IS AN INTERACTIVE SYSTEM FOR USE IN BAYESIAN" 580 PRINT "STATISTICAL DATA ANALYSIS. YOUR INTERACTION WITH THE COMPUTER" 590 PRINT "WILL BE ENTIRELY THROUGH THE USE OF THE ENGLISH LANGUAGE AND" 600 PRINT "THE ARABIC NUMERALS. YOU WILL USE NO SPECIALIZED COMPUTER" 610 PRINT "PROGRAMMING LANGUAGE. " 620 PRINT 625PRINT"WHEN YOU ARE READY TO CONTINUE TYPE '1'." 627 INPUT I 629PRINT L$ 630 PRINT "THIS SYSTEM IS CAREFULLY DESIGNED FOR USE BY PERSONS HAVING" 640 PRINT "A WIDE VARIETY OF EXPERIENCE IN BAYESIAN DATA ANALYSIS. THE" 650 PRINT "LESS EXPERIENCED PERSON WILL LIKE THE CAREFUL STEP-BY-STEP" 660 PRINT "GUIDANCE PROVIDED BY THE MONITOR. THE MORE EXPERIENCED" 670 PRINT "PERSON WILL LIKE THE POWER AND VERSATILITY OF THE SYSTEM -" 680 PRINT "THE ABILITY TO DO A WIDE RANGE OF COMPLEX ANALYSES QUICKLY," 690 PRINT "EFFORTLESSLY AND INEXPENSIVELY." 710 PRINT "THIS COMBINATION OF GUIDANCE, POWER AND VERSATILITY SHOULD" 720 PRINT "HELP THOSE AT ALL LEVELS OF EXPERIENCE INCREASE THEIR LEVEL" 730 PRINT "OF CAPABILITY MORE QUICKLY THAN THEY WOULD USING THE MORE" 740 PRINT "CONVENTIONAL DATA ANALYSES SYSTEMS." 760PRINT"WHEN YOU ARE READY TO CONTINUE TYPE '1'."; 770 INPUT I 780 IF I <> -9999 THEN 810 790 GOSUB 490 800 GOTO 770 810 PRINT L$ 820 PRINT "THE CADA MONITOR IS STRUCTURED INTO THREE LEVELS." 830 PRINT "==================== CADA MONITOR =========================" 840 PRINT "BINARY UNIVARIATE ... LEVEL I" 850 PRINT "MODELS NORMAL MODELS (COMPONENTS)" 860 PRINT "--------------------------------------------------------------" 870 PRINT "BETA MIXED BETA BETA NEGATIVE ... LEVEL II" 880 PRINT "BINOMIAL BINOMIAL BINOMIAL (MODELS)" 890 PRINT "--------------------------------------------------------------" 900 PRINT "PRIOR PREPOSTERIOR POSTERIOR ... LEVEL III" 910 PRINT "DISTRIBUTION ANALYSIS ANALYSIS (MODULES)" 920 PRINT "=============================================================" 922PRINT 924PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'."; 925 INPUT I 927PRINT L$ 930 PRINT "WHEN YOU ACCESS THE MONITOR YOU ARE GIVEN A LISTING OF THE" 940 PRINT "COMPONENTS FROM WHICH YOU ARE TO SELECT THE ONE APPROPRIATE" 950 PRINT "FOR YOUR PROBLEM, FOR EXAMPLE, THE BINARY MODELS COMPONENT." 960 PRINT "YOU ARE THEN TO SELECT FROM THE LISTING OF THE BINARY MODELS" 970 PRINT "THE APPROPRIATE MODEL, FOR EXAMPLE, THE BETA-BINOMIAL MODEL." 980 PRINT "NEXT YOU ARE TO SELECT FROM THE LISTING OF THE MODULES OF THE" 990 PRINT "BETA-BINOMIAL MODEL THE MODULE CORRESPONDING TO THE POINT IN" 1000 PRINT "THE ANALYSIS WHERE YOU WANT TO BEGIN YOUR ANALYIS." 1010 PRINT 1020 PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'."; 1030 INPUT I 1040 PRINT L$ 1050 PRINT " HORIZONTAL AND VERTICAL ACCESS" 1060 PRINT 1070 PRINT "YOU WILL FIND THAT A FEATURE OF THE MONITOR IS THE EASE OF" 1080 PRINT "HORIZONTAL ACCESS BETWEEN MODULES OF A MODEL AND VERTICAL" 1090 PRINT "ACCESS FROM ONE MODEL OR COMPONENT TO ANOTHER. WITHIN MODEL" 1100 PRINT "ACCESS FROM MODULE TO MODULE IS AUTOMATIC AS YOU GO THROUGH" 1110 PRINT "THE PORTIONS OF THE BAYESIAN ANALYSIS YOU WANT TO UNDERTAKE." 1120 PRINT "THE NEEDED RESULTS ARE PASSED FROM ONE MODULE TO THE NEXT. IF" 1130 PRINT "YOU BEGIN AT OTHER THAN THE FIRST MODULE YOU MUST PROVIDE THE" 1140 PRINT "NEEDED RESULTS FROM THE PREVIOUS MODULES." 1151PRINT 1152PRINT"WHEN YOU WISH TO CONTINUE TYPE '1'."; 1154INPUT I 1156PRINT L$ 1160 PRINT "UPON COMPLETION OF A MODULE YOU ARE GIVEN THESE OPTIONS. " 1170 PRINT "(1) RETURN TO ANY MODULE IN THAT MODEL. IF YOU DO THIS THE" 1180 PRINT " THE RESULTS OF ALL MODULES PRIOR TO THE ONE TO WHICH YOU" 1190 PRINT " ARE RETURNING REMAIN AVAILABLE." 1200 PRINT "(2) SELECT A MODEL WITHIN THE SAME COMPONENT. IF YOU SELECT" 1210 PRINT " THE SAME MODEL THE RESULTS OF THE PREVIOUS MODEL WILL" 1220 PRINT " NOT BE AVAILABLE." 1230 PRINT "(3) SELECT A DIFFERENT COMPONENT." 1240 PRINT "(4) EXIT THE CADA MONITOR." 1250 PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'."; 1260 INPUT I 1270 PRINT L$ 1280 PRINT " RESTART OPTION" 1290 PRINT 1300 PRINT "ANY TIME YOU ARE ASKED FOR INPUT YOU CAN INITIATE A RESTART" 1310 PRINT "BY TYPING '-9999'. YOU ARE THEN GIVEN A LIST OF THE OPTIONS" 1320 PRINT "DESCRIBED IN THE PREVIOUS SECTION. AS PRINTED THESE ARE" 1330 PRINT " 1. RESTART AT THE BEGINNING OF THIS MODULE" 1340 PRINT " 2. SELECT A DIFFERENT MODULE FROM THIS MODEL" 1350 PRINT " 3. SELECT A DIFFERENT MODEL FROM THIS COMPONENT" 1360 PRINT " 4. SELECT A DIFFERENT COMPONENT" 1370 PRINT " 5. EXIT CADA MONITOR." 1380 PRINT 1382PRINT"WHEN YOU ARE READY TO CONTINUE TYPE '1'."; 1384INPUT I 1385PRINT L$ 1390 PRINT " THE PANIC BUTTON" 1400 PRINT 1410 PRINT "IF YOU WANT TO STOP EXECUTION OF A MODULE AT SOME TIME OTHER" 1420 PRINT "THAN WHEN INPUT IS REQUESTED YOU CAN DO SO BY TYPING THE" 1430 PRINT "'INTERRUPT' OR 'BREAK' APPROPRIATE FOR THE TYPE OF TERMINAL" 1440 PRINT "AND COMPUTER SYSTEM YOU ARE USING. THIS WILL DISENGAGE YOU " 1450 PRINT "FROM THE MONITOR. TO REESTABLISH COMMUNICATION WITH THE" 1460 PRINT "CADA MONITOR YOU MUST BEGIN BY ACCESSING CADA JUST AS YOU" 1470 PRINT "WOULD IF YOU WERE INITIALLY ACCESSING THE MONITOR." 1480 PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'."; 1490 INPUT I 1500 I=1 1510 REM **************************************************************** 1520 REM 1530 REM 999 INFORMS CMONTR THAT ENTRY VIA CEXPLN 1540 REM I=1 IF EXPLANATION OR COMPONENTS LISTING REQUESTED 1550 REM I=3 IF PARTICULAR COMPONENT REQUESTED 1560 REM J=NUMBER OF REQUESTED COMPONENT OR 0 1570 REM 1580 REM **************************************************************** 1590A1(0)=9999:A1(1)=I:A1(2)=J:A1(3)=0:A1(4)=0:A1(5)=0 1600 CLOSE 1: CHAIN "CMONTR" 1610 END