C;TIC TAC TOE, TRINITY COLLEGE VERSION, BY GUNNAR WALMET
DIMENSION L(11),NWIN(8),N(24),LDUM(9)
DO 91 LIND=1,24
ACCEPT 2,N(LIND)
91;CONTINUE
DO 5 I=1,11
L(I)=4
5;CONTINUE
TYPE 1
1;FORMAT(/,/,/,"THIS IS GRID:


1   2   3
8   9   4
7   6   5

YOUR MARK WILL BE O, MINE X, BLANKS -")
TYPE 203
TYPE 200
200;FORMAT(/,"IF YOU WANT TO GO 1ST TYPE 0, IF ME TYPE 1   ")
ACCEPT 2,MORE
2;FORMAT(I)
IF (MORE) 3,3,12
TYPE 203
3;TYPE 4
4;FORMAT(/,"WHERE DO YOU GO?  ")
ACCEPT 2,IN
L(IN)=0
IF(IN-9)10,12,10
12;L(1)=1
GO TO 13
10;L(9)=1
13;LDUM(1)=L(1)
LDUM(2)=L(2)
LDUM(3)=L(3)
LDUM(4)=L(8)
LDUM(5)=L(9)
LDUM(6)=L(4)
LDUM(7)=L(7)
LDUM(8)=L(6)
LDUM(9)=L(5)
DO 204 I=1,3
TYPE 203
203;FORMAT(/,/,/)
JSRT=3*I-2
JFIN=3*I
DO 204 J=JSRT,JFIN
LPRT = LDUM(J)
GO TO (17,19,19,19),LPRT
TYPE 16
16;FORMAT("  O  ")
GO TO 204
17;TYPE 18
18;FORMAT("  X  ")
GO TO 204
19;TYPE 21
21;FORMAT("  -  ")
204;CONTINUE
TYPE 203
IF(L(10)-4) 31,82,31
82;IF(L(11)-8) 83,84,84
83;TYPE 4
ACCEPT 2,IN
IF(L(IN)-4) 103,81,103
TYPE 203
103;TYPE 104
104;FORMAT(/,"TRY TO MAKE A CORRECT (HONEST) MOVE THIS TIME")
GO TO 13
81;L(IN)=0
NWIN(1)=L(1)+L(2)+L(3)
NWIN(2)=L(8)+L(9)+L(4)
NWIN(3)=L(7)+L(6)+L(5)
NWIN(4)=L(1)+L(8)+L(7)
NWIN(5)=L(2)+L(9)+L(6)
NWIN(6)=L(3)+L(4)+L(5)
NWIN(7)=L(7)+L(9)+L(3)
NWIN(8)=L(1)+L(9)+L(5)
DO 20 I=1,8
IF(NWIN(I)-3) 20,31,20
20;CONTINUE
DO 22 I=1,8
IF(NWIN(I)-6)22,23,22
22;CONTINUE
GO TO 39
23;L(10)=10
GO TO 32
39;DO 25 I=1,8
IF(NWIN(I)-4) 25,32,25
25;CONTINUE
DO 26 I=1,8
IF(NWIN(I)-9) 26,32,26
26;CONTINUE
DO 27 I=1,8
IF(NWIN(I)-8) 27,32,27
27;CONTINUE
DO 28 I=1,8
IF(NWIN(I)-12) 28,32,28
28;CONTINUE
84;TYPE 29
29;FORMAT(/,"STALEMATE")
GO TO 91
32;L(11)=L(11)+1
MSN1=N(I)
MSN2=N(I+8)
MSN3=N(I+16)
50;IF(L(MSN1)-4) 51,55,55
55;L(MSN1)=1
GO TO 13
51;IF(L(MSN3)-4) 52,56,56
56;L(MSN3)=1
GO TO 13
52;L(MSN2)=1
GO TO 13
TYPE 203
31;TYPE 71
71;FORMAT(/,"I WIN - YOU SHOULD HAVE LISTENED TO THE STORY OF JOHN",'
" HENRY")
GO TO 91
END
~8