Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0022/jotto.for
There is 1 other file named jotto.for in the archive. Click here to see a list.
        DIMENSION ARRAY(3,3),I(10),J(10)
        TYPE 1
1       FORMAT(' THIS IS THE GAME OF JOTTO')
10      TYPE 2
2       FORMAT(' PICK A NUMBER FROM 1 TO 20    >'$)
        ACCEPT 3,INUM
3       FORMAT(I)
        PC=0
        G=0
        P=0
        ICOUNT=0
        JCOUNT=0
        DO 4 IA=1,INUM
        IX=2
4       CONTINUE
        TYPE 5
5       FORMAT(' DO YOU WANT RULES? (1) YES, (0) NO    >'$)
        ACCEPT 6,IYES
6       FORMAT(I)
        IF(IYES)7,20,7
7       TYPE 8
8       FORMAT(' THE COMPUTER PICKS A THREE LETTER WORD.  YOU ARE
	1 TO GUESS THE WORD BY TYPING IN THREE LETTER PROBE WORDS.
	2 IF THE PROBE WORD HAS ONE OR THREE LETTERS THAT MATCH
	3 THE COMPUTERS WORD, THE COMPUTER WILL TYPE
	4 BACK "ODD".  IF THE PROBE WORD HAS 0 OR 2 LETTERS THAT 
	5 MATCH THE COMPUTERS WORD, THEN THE COMPUTER WILL
	6 TYPE BACK "EVEN".  WHEN YOU SEE "MOVE:" THEN TYPE 0
	7 FOR A PROBE WORD AND 1 FOR A GUESS.  A GUESS WILL BE RE-
	8 QUIRED AFTER EVERY FIVE PROBE WORDS.  YOU HAVE 25
	9 PROBE WORDS AND/OR 5 GUESSES.  GOOD LUCK')
20      READ(20,30)(I(1),I(2),I(3),IB=1,IX)
30      FORMAT(60A1)
31      TYPE 32
32      FORMAT(' MOVE:'$)
        ACCEPT 33,K
33      FORMAT(I)
        IF(K)50,40,50
40      TYPE 9
9       FORMAT(' PROBE WORD: '$)
        ACCEPT 34,J(1),J(2),J(3)
34      FORMAT(3A1)
        P=P+1
        PC=PC+1
41      DO 42 N=1,3
        DO 42 M=1,3
        K=J(N)
        L=I(M)
        IF(K-L)42,60,42
60      ARRAY(N,M)=1
42      CONTINUE
        DO 43 N=1,3
        DO 44 M=1,3
        IF(ARRAY(N,M)-1)44,701,44
701     JCOUNT=JCOUNT+1
44      CONTINUE
        IF(JCOUNT-3)45,70,45
45      IF(JCOUNT-2)46,70,46
46      IF(JCOUNT-1)43,70,43
70      ICOUNT=ICOUNT+1
43      CONTINUE
        IF(ICOUNT-0)82,80,82
82      IF(ICOUNT-1)83,81,83
83      IF(ICOUNT-2)84,80,84
84      IF(ICOUNT-3)85,81,85
80      TYPE 71
71      FORMAT(' EVEN')
        GO TO 75
81      TYPE 72
72      FORMAT(' ODD')
        GO TO 75
85      TYPE 86
86      FORMAT('ERROR')
        GO TO 602
75      IF(PC-5)210,50,210
210     IF(P-25)31,300,31
50      TYPE 51
51      FORMAT(' GUESS: '$)
        ACCEPT 34,J(4),J(5),J(6)
        IF(J(4)-I(1))200,110,200
110     IF(J(5)-I(2))200,120,200
120     IF(J(6)-I(3))200,130,200
130     TYPE 131
131     FORMAT(' GUESS IS CORRECT...YOU WIN!')
        GO TO 600
200     TYPE 201
201     FORMAT(' GUESS IS INCORRECT.')
        G=G+1
        PC=0
        IF(G-5)31,300,31
600     TYPE 601
601     FORMAT(' ANOTHER GAME? (1) YES, (0) NO    >'$)
        ACCEPT 6,IYES
        IF(IYES)10,602,10
300     TYPE 301, I(1),I(2),I(3)
301     FORMAT(' THE COMPUTER WINS...THE WORD WAS',3A1)
        GO TO 600
602     CALL EXIT
        END