10 X$=SYS(CHR$(7)):R$=LEFT(X$,7):L$=RIGHT(X$,8)
50  V7=0
110  DIM #1,A1(111),A2(111),A3(111)
120  OPEN R$ AS FILE 1
180 A1(0)=99
200 FOR I=1 TO 9:M(I)=A3(I-1):NEXT I
210E(1)=1:E(2)=14:E(3)=30:E(4)=47:E(5)=63:E(6)=76:E(7)=84:E(8)=9
290E(9)=26:E(10)=44:R1=0:E(11)=61:E(12)=75:E(13)=22:E(14)=41:E(15)=59:E(16)=38
380 IF Y(1)=0 THEN 540
410DIM N(84),G(7,1),F(7,1),X(84),U(9),P(9),K(9),Y(84)
535DATA0,1,2,.5,1.5,2.5,1,2,3,1.5,2.5,3.5,2,3,4,0,1.5,3,.5,2,3.5,1,2.5,4,0,2,4
540MATREADC
560  G9=0
570  F9=-1
580  PRINT L$
640G1,G2,G3,G9=0
680DIM Q(9),R(9,9),V(9,1),L(9,1)
690DIM A(7),B(7,7),W(9),D(9),E(16),M(9),C(27)
700  W(1)=0
710  W(9)=1
720  D(1)=0
730  D(9)=0
740  I9=0
780 E9=.005
790  E8=.005
800  PRINT L$
810  N0=7
830  FOR I=1 TO 84
840  Y(I)=-1
850  NEXT I
860  N1=N0+1
870  N2=N0+2
880  N3=N0-1
900  PRINT "PLEASE SPECIFY YOUR INDIFFERENCE P FOR THESE GAMBLES."
910  PRINT
920  PRINT "*** GAMBLES ON OUTCOMES ADJACENT TO THE FOR SURE OUTCOME ***"
930  PRINT "   FOR                   GAMBLE                  P THAT MAKES"
940  PRINT " SURE     WITH PROB P        WITH PROB 1-P    YOU INDIFFERENT"
960  FOR I=1 TO 7
970  J=I+1
980  K=I+2
990  S9=0
1000  FOR I0=0 TO J-2
1010  S9=S9+I0*(N2-1-I0)
1020  NEXT I0
1030  S0=S9+(I-1)*(N2-J)+K-J
1040A$="####.##       #####.##            #####.##          "
1041PRINTUSING A$,M(I+1),M(I+2),M(I);
1060  GOSUB 9000
1070  P(I+1)=O1
1080  IF P(I+1)<.05 THEN 1110
1090  IF P(I+1)>.95 THEN 1110
1100  GOTO 1130
1110  PRINT "PROBABILITIES MUST BE IN THE INTERVAL .05 THROUGH .95."
1120  GOTO 1040
1130  Y(S0)=P(I+1)
1140  NEXT I
1150  P(9)=1
1160  P(1)=0
1170  PRINT
1180  GOSUB 5360
1190 FOR I=1 TO 84:A2(I-1)=Y(I):NEXT I
2000FOR I=1TO 9:A2(83+I)=P(I):A2(92+I)=U(I):NEXT I
2020 FOR I=1 TO 9:A3(I-1)=M(I):NEXT I
2030 FOR I=1 TO 16 :A3(I+8)=E(I):NEXT I
2050 FOR I=1 TO 27:A3(I+25)=C(I):NEXT I
2060 A3(53)=G1:A3(54)=G2:A3(55)=G3
2062 PRINT A2(80)
2070 CLOSE1
2100 CHAIN"CMODK"
5350  REM--*****ROUTINE TO SPECIFY GAMBLES*****
5360  PRINT "IF YOU WANT TO SPECIFY THE SYMMETRIC GAMBLES ON OUTCOMES"
5370  PRINT "2 POINTS FROM THE FOR SURE OUTCOME TYPE '1', ELSE '0'.";
5380  GOSUB 9000
5390  G1=O1
5400 IF G1<>1 THEN 5590
5410  PRINT
5420  PRINT "*** GAMBLES ON OUTCOMES 2 POINTS FROM THE FOR SURE OUTCOME ***"
5430  K0=1
5440  K6=8
5450  K1=15
5460  GOSUB 5730
5480  PRINT "IF YOU WANT TO SPECIFY THE SYMMETRIC GAMBLES ON OUTCOMES"
5490  PRINT "3 POINTS FROM THE FOR SURE OUTCOME TYPE '1', ELSE '0'.";
5500  GOSUB 9000
5510  G2=O1
5520  IF G2 <> 1 THEN 5590
5530  PRINT
5540  PRINT "*** GAMBLES ON OUTCOMES 3 POINTS FROM THE FOR SURE OUTCOME ***"
5550  K0=16
5560  K6=13
5570  K1=24
5590  PRINT
5600  PRINT "IF YOU WANT TO SPECIFY THE SYMMETRIC GAMBLES ON OUTCOMES"
5610  PRINT "4 POINTS FROM THE FOR SURE OUTCOME TYPE '1', ELSE '0'.";
5620  GOSUB 9000
5630  G3=O1
5640  IF G3 <> 1 THEN 5710
5650  PRINT
5660  PRINT "*** GAMBLES ON OUTCOMES 4 POINTS FROM THE FOR SURE OUTCOME ***"
5670  K0=25
5680  K6=16
5690  K1=27
5700  GOSUB 5730
5710  RETURN
5730  REM--*****ROUTINE FOR ENTERING REMAINING GAMBLES*****
5740  FOR I1=K0 TO K1 STEP 3
5750  I=INT(C(I1)/.5+1.5)
5760  J=INT(C(I1+1)/.5+1.5)
5770  K=INT(C(I1+2)/.5+1.5)
5780  S9=0
5790  FOR I0=0 TO J-2
5800  S9=S9+I0*(N2-1-I0)
5810  NEXT I0
5820A$="####.##       #####.##       #####.##                "
5821PRINT USING A$,M(J),M(K),M(I);
5830  S0=S9+(I-1)*(N2-J)+K-J
5840  INPUT I2
5850  IF I2<.05 THEN 5870
5852  IF I2>.95 THEN 5870
5860  GOTO 5890
5870PRINT".05 <=PROB<=.95"
5880  GOTO 5820
5890  Y(S0)=I2
5900  K6=K6+1
5910  NEXT I1
5920  RETURN
5940  REM--***** PRINT ROUTINES *****
9000  REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
9005  INPUT O1
9015 IF O1=-9999 THEN 9080
9020  RETURN
9050  REM--SUBR. THAT DETERMINES IF RESTART REQUESTED. 2 INPUTS
9055  INPUT O1,O2
9065  IF O1=-9999 THEN 9080
9070  IF O2=-9999 THEN 9080
9075  RETURN
9080  CLOSE 1: CHAIN "RSTRT"
9999  END