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