Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0113/cmod2a.bas
There are 2 other files named cmod2a.bas in the archive. Click here to see a list.
00025  FILES RFILE1,RFILE2,RFILE3
00026 GOTO 45
00040 CHAIN"CERROR"
00045RESTORE#1
00046  INPUT#  1,I1,I2,I3
00050SCRATCH#1
00051  PRINT #  1,54,I2,I3
00055PRINT L$
00060PRINT "      PREPOSTERIOR FOR TWO PARAMETER NORMAL"
00065PRINT "------------------------------------------------------------"
00070PRINT "        1.  ADVERSARY PREPOSTERIOR"
00075PRINT "        2.  CONSENSUS PREPOSTERIOR"
00080PRINT "       *3.  UTILITY PREPOSTERIOR"
00085PRINT "        4.  RETURN TO PRIOR ON THE MEAN"
00090PRINT "        5.  RETURN TO PRIOR ON THE STANDARD DEVIATION"
00095PRINT "        6.  POSTERIOR ANALYSIS"
00100PRINT "        7.  EXIT PREPOSTERIOR"
00105PRINT "-------------------------------------------------------------"
00110PRINT
00115PRINT "TYPE THE NUMBER OF THE OPTION YOU WANT";
00120GOSUB 9000
00125IF O1=1 THEN 170
00130IF O1=2 THEN 195
00140IF O1=4 THEN 225
00145IF O1=5 THEN 235
00150IF O1=6 THEN 255
00155IF O1=7 THEN 270
00160PRINT "INPUT MUST BE THE NUMBER OF OPTION."
00165GOTO 115
00170CHAIN "CMOD64"
00175REM   CHAIN TO ADV MODUAL
00190REM CHAIN TO CON MODUAL
00195CHAIN "CMOD22"
00200GOTO 40
00205REM  CHAIN TO  UTIL MODUAL
00215GOTO 40
00220REM CHAIN TO PRIOR
00225CHAIN "CMOD5"
00230GOTO 40
00235REM CHAIN TO PRIOR SIGMA
00240CHAIN "CMOD4"
00245GOTO 40
00250REM  CHAIN TO POSTERIOR
00255CHAIN "CMOD6"
00260GOTO 40
00265REM RETURN TO MONTIOR
00270CHAIN "RSTRT"
00275GOTO 40
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999 END