Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/cmontr.bas
There are 2 other files named cmontr.bas in the archive. Click here to see a list.
00020REM CMONTR
00030C0=0
00040C1=1
00050C2=2
00060C7=7
00080  FILES RFILE1,RFILE2,RFILE3
00120RESTORE#1
00121  INPUT#  1,K,J,I
00130IF K=73 THEN 8250
00140IF K=74 THEN 8260
00150IF K=9999 THEN 780
00160IF I=C0 THEN 8400
00170IF I <> 1 THEN 210
00180IF K <> 0 THEN 230
00190GOTO 1740
00210IF J=C0 THEN 1410
00220IF K=C0 THEN 8460
00230IF K>C7 THEN 260
00240  ONK  GOTO 7630,7670,7680,7690,7700,7710,7730
00250CHAIN "CERROR"
00260K=K-C7
00270IF K>C7 THEN 300
00280  ONK  GOTO 7740,7750,7760,7770,7640,7650,7810
00290CHAIN "CERROR"
00300K=K-C7
00310IF K>C7 THEN 340
00320  ONK  GOTO 7660,7780,7790,330,330,7800,330
00330CHAIN "CERROR"
00340K=K-C7
00350IF K>C7 THEN 380
00360  ONK  GOTO 370,7820,7830,7840,7850,7860,7870
00370CHAIN "CERROR"
00380K=K-C7
00390IF K>C7 THEN 420
00400  ONK  GOTO 7880,7890,7900,7910,7920,7930,7960
00410CHAIN "CERROR"
00420K=K-C7
00430IF K>C7 THEN 460
00440  ONK  GOTO 7970,7980,7990,450,450,450,8020
00450CHAIN "CERROR"
00460K=K-C7
00470IF K>C7 THEN 500
00480  ONK  GOTO 8030,8040,8050,8060,490,8080,8090
00490CHAIN "CERROR"
00500K=K-C7
00510IF K>C7 THEN 540
00520  ONK  GOTO 8100,530,8110,8120,7720,7940,7950
00530CHAIN "CERROR"
00540K=K-C7
00550IF K>C7 THEN 580
00560  ONK  GOTO 8130,8150,8160,8170,570,8180,8190
00570CHAIN "CERR0R"
00580K=K-C7
00590IF K>C7 THEN 620
00600  ONK  GOTO 8200,8210,8220,8230,8240,8270,610
00610CHAIN "CERROR"
00620K=K-C7
00630IF K>C7 THEN 660
00640  ONK  GOTO 650,650,650,650,8280,8300,8310
00650CHAIN "CERROR"
00660K=K-C7
00670IF K>C7 THEN 700
00680  ONK  GOTO 8320,8330,8340,690,690,690,690
00690CHAIN "CERROR"
00700K=K-C7
00710IF K>C7 THEN 740
00720  ONK  GOTO 8340,8342,8343,8344,8290,8350,8360
00730CHAIN "CERROR"
00740K=K-C7
00750IF K>C7 THEN 770
00760  ONK  GOTO 8370,8380,8385
00770CHAIN "CERROR"
00780SCRATCH#1
00781PRINT#1,C0,C0,C0,C0,C0,C0,C0,C0
00790I8=J
00800I2=C2
00810GOSUB 980
00820SCRATCH#1
00821PRINT#1,C0,C0,C0,C0,C0,C0,C0,C0
00830  ONI8  GOTO 1040,1040,880
00840REM
00850PRINT
00860PRINT "TYPE THE NUMBER OF THE COMPONENT YOU WANT.";
00870INPUT I
00880IF I <> -9999 THEN 1520
00890GOSUB 910
00900GOTO 860
00910PRINT
00920 REM
00930 PRINT"THE -9999 RESTART OPTION IS NOT AVAILABLE AT THIS POINT."
00940REM
00950PRINT"IF YOU WANT A RESTART USE THE PANIC BUTTON OPTION."
00960PRINT
00970RETURN
00980SCRATCH#I2
00981PRINT#I2,C0
00990FOR I1=C1 TO 111
01000PRINT#I2,0
01010NEXT I1
01020RETURN
01030GOTO 870
01040PRINT L$
01050PRINT "------------ COMPONENTS OF THE CADA MONITOR -------------"
01060PRINT " COMPONENT  1. DATA MANAGEMENT"
01070PRINT " COMPONENT  2. DATA FILE CATALOGUE"
01080PRINT " COMPONENT  3. PROBABILITY DISTRIBUTIONS"
01090PRINT " COMPONENT  4. BINARY MODELS"
01100PRINT " COMPONENT  5. UNIVARIATE NORMAL MODELS"
01110PRINT " COMPONENT  6. MULTI-CATEGORY MODELS"
01120PRINT " COMPONENT  7. SIMPLE REGRESSION AND CORRELATION"
01130PRINT " COMPONENT  8. UTILITIES AND EXPECTED UTILITIES"
01140PRINT " COMPONENT  9. SIMULTANEOUS ESTIMATION OF PROPORTIONS"
01150PRINT " COMPONENT 10. SIMULTANEOUS ESTIMATION OF MEANS"
01160PRINT " COMPONENT 11. MULTIPLE REGRESSION AND CORRELATION"
01170PRINT " COMPONENT 12. SIMULTANEOUS PREDICTION IN M-GROUPS"
01180PRINT " COMPONENT 13. EDUCATIONAL AND EMPLOYMENT SELECTION"
01190P5=C0
01200PRINT "*COMPONENT 14. SELECTION OF EDUCATIONAL TREATMENTS"
01210PRINT " COMPONENT 15. ONE-WAY MODEL I ANOVA"
01220PRINT " COMPONENT 16. MULTIWAY MODEL I FACTORIAL DESIGNS"
01230GOTO 1310
01240PRINT L$
01250P5=1
01260PRINT "*COMPONENT 17. PLU ROBUST POINT ESTIMATION."
01270PRINT "*COMPONENT 18. HIERARCHAL CLASSIFICATIONS(NESTED DESIGNS)"
01280PRINT "*COMPONENT 19. LATTICE DESIGNS"
01290PRINT "*COMPONENT 20. INCOMPLETE BLOCK DESIGNS"
01300PRINT "*COMPONENT 21. LATIN SQUARE DESIGNS"
01310PRINT "--------------- * COMPONENT NOT YET AVAILABLE -------------"
01320IF P5=C1 THEN 1360
01330PRINT "SEE NEXT PAGE FOR REMAINING COMPONENTS."
01340PRINT "CADA EXPLANATION=77  NEXT PAGE=66  EXIT=0  OR COMPONENT  ";
01350GOTO 1370
01360PRINT "EXPLANATION=77   COMPONENT LISTING=99  EXIT=0  OR COMPONENT ";
01370INPUT I
01380IF I=C0 THEN 9040
01390IF I=66 THEN 1240
01400IF I=99 THEN 1040
01410IF I <> 77 THEN 1440
01420SCRATCH#1
01421PRINT#1,77,C0,C0,C0,C0,C0
01430CHAIN "CEXPLN"
01440IF I=-9999 THEN 1490
01450IF I>0 THEN 1520
01460SCRATCH#1
01461PRINT#1,C0,C0,1
01470SCRATCH#2
01471PRINT#2,ABS(I)
01480GOTO 1550
01490PRINT "THE '-9999' RESTART OPTION IS NOT AVAILABLE AT THIS POINT."
01500PRINT "USE PANIC BUTTON OPTION IF YOU WANT TO RESTART."
01510GOTO 1370
01520SCRATCH#1
01521PRINT#1,C0,C0,I
01530I2=C2
01540GOSUB 980
01550I2=3
01560GOSUB 980
01570REM
01580IF I=55.5 THEN 8250
01590IF I=66.6 THEN 8260
01600GOTO 1730
01610PRINT
01620PRINT "THIS COMPONENT IS NOT YET AVAILABLE AS INDICATED BY THE *"
01630PRINT "PRECEDING ITS NUMBER IN THE LISTING OF COMPONENTS."
01640PRINT
01650PRINT "IF YOU WANT EXPLANATION OF THE CADA MONTIOR TYPE '77'."
01660PRINT "IF YOU WANT A LISTING OF CADA COMPONENTS TYPE '99'."
01670PRINT "IF YOU WANT A COMPONENT TYPE ITS NUMBER."
01680PRINT "IF YOU WANT TO EXIT CADA TYPE '0'."
01690INPUT I
01700IF I=C0 THEN 9040
01710IF I=99 THEN 1040
01720GOTO 1410
01730IF I <> 1 THEN 2090
01740CHAIN "COMP1"
02090IF I <> 2 THEN 2300
02100CHAIN "COMP2"
02300IF I <> 3 THEN 2660
02310CHAIN "COMP3"
02660IF I <> 4 THEN 3690
02670CHAIN "COMP4"
03690IF I <> 5 THEN 4120
03700CHAIN "COMP5"
04120IF I <> 6 THEN 4420
04130CHAIN "COMP6"
04420IF I <> 7 THEN 4430
04425CHAIN "COMP7"
04430IF I <> 8 THEN 4440
04435CHAIN "COMP8"
04440IF I <> 9 THEN 4450
04445CHAIN "COMP9"
04450REM
04600IF I <> 10 THEN 4610
04605CHAIN "COMP10"
04610IF I <> 11 THEN 4620
04615CHAIN "COMP11"
04620IF I <> 12 THEN 4630
04625CHAIN "COMP12"
04630IF I <> 13 THEN 4640
04635CHAIN "COMP13"
04640IF I <> 15 THEN 4650
04645CHAIN "COMP15"
04650IF I <> 16 THEN 4660
04655CHAIN "COMP16"
04660REM
07600PRINT "REENTER.  COMPONENT IS NOT AVAILABLE."
07610SCRATCH#1
07611PRINT#1,66,C0,C0
07620CHAIN "CEXPLN"
07630CHAIN "CMOD11"
07640CHAIN "CMODC"
07650CHAIN "CMODD"
07660CHAIN "CMODF"
07670CHAIN "CMOD2"
07680CHAIN "CMOD3"
07690CHAIN "CMOD4"
07700CHAIN "CMOD5"
07710CHAIN "CMOD6"
07720CHAIN "CMOD2A"
07730CHAIN "CMOD7"
07740CHAIN "CMOD8"
07750CHAIN "CMOD9"
07760CHAIN "CMODA"
07770CHAIN "CMODB"
07780CHAIN "CMODG"
07790CHAIN "CMODH"
07800CHAIN "CMODK"
07810CHAIN "CMODE"
07820CHAIN "CMODN"
07830CHAIN "CMODO"
07840CHAIN "CMODP"
07850REM    CMODL CAN ONLY BE REACHED FROM CMODK
07860CHAIN "CMODR"
07870CHAIN "CMODS"
07880CHAIN "CMODT"
07890CHAIN "CMODU"
07900CHAIN "CMODV"
07910CHAIN "CMODW"
07920CHAIN "CMODX"
07930CHAIN "CMODY"
07940CHAIN "CMOD55"
07950CHAIN "CMOD16"
07960CHAIN "CMODZ"
07970CHAIN "CMODAA"
07980CHAIN "CMODAB"
07990CHAIN "CMODAC"
08000CHAIN "CMODY"
08010CHAIN "CMODB"
08020CHAIN "CMOD11"
08030CHAIN "CMOD12"
08040CHAIN "CMOD13"
08050CHAIN "CMOD14"
08060CHAIN "CMOD15"
08070CHAIN "CMOD16"
08080CHAIN "CMOD17"
08090CHAIN "CMOD18"
08100CHAIN "CMOD19"
08110CHAIN "CMOD21"
08115CHAIN "CMOD23"
08120CHAIN "CMOD22"
08130CHAIN "CMOD57"
08140CHAIN "CMOD31"
08150CHAIN "CMOD58"
08160CHAIN "CMOD59"
08170CHAIN "CMOD31"
08180CHAIN "CMOD62"
08190CHAIN "CMOD63"
08200CHAIN "CMOD64"
08210CHAIN "CMOD65"
08220CHAIN "CMOD66"
08230CHAIN "CMOD67"
08240CHAIN "CMOD68"
08250CHAIN "CMOD73"
08260CHAIN "CMOD74"
08270CHAIN "CMOD69"
08280CHAIN "CMOD75"
08290CHAIN "CMOD89"
08300CHAIN "CMOD76"
08310CHAIN "CMOD77"
08320CHAIN "CMOD78"
08330CHAIN "CMOD79"
08340CHAIN "CMOD85"
08342CHAIN "CMOD86"
08343CHAIN "CMOD87"
08344CHAIN "CMOD88"
08350CHAIN "CMOD90"
08360CHAIN "CMOD91"
08370CHAIN "CMOD92"
08380CHAIN "CMOD93"
08385CHAIN "CMOD94"
08390PRINT L$
08400I2=C2
08410GOSUB 980
08420I2=3
08430GOSUB 980
08440PRINT L$
08450GOTO 1660
08460GOTO 1730
09040 END