1 NOEXPAND
5 RANDOMIZE
10 PRINT "YOU HAVE THE OPPORTUNITY OF TRYING TO BEAT THE COMPUTER"
20 PRINT "AT TIC-TAC-TOE,  ENTER YOUR MOVES AS FOLLOWS:  "
30 PRINT
35 YOUW=0:AMTW=0:TIES=0
40 DIM C(11),D(11)
50 FOR K=1 TO 11
60 READ C(K),D(K)
70 NEXT K
80 PRINT "...ROW NUMBER...COMMA...COLUMN NUMBER..."
90 PRINT
100 PRINT "ROWS ARE HORIZONTAL(ACROSS)...COLUMNS ARE VERTICAL(UP+DOWN)"
110 DIM B(9),A(3,3)
120 PRINT
130 PRINT "...........NEW GAME STARTING NOW.....................":PRINT
140 FOR J=1 TO 3
150 FOR I=1 TO 3
160 A(I,J)=0
170 NEXT I
180 I=I-1
190 NEXT J
200 J=J-1
210 Z=0
220 PRINT "YOUR MOVE ",
230 INPUT R,C
240 PRINT
250 IF R>3 OR R<1 THEN 520
260 IF C>3 OR C<1 THEN 520
270 IF A(R,C)<>0 THEN 520
280 A(R,C)=-1
290 GOSUB 1660
300 IF Z=1 THEN 2160
310 REM .........MACHINE MOVE.............
320 GOSUB 1030
330 REM .........TEST FOR GAME WIN........
340 GOSUB 1660
350 IF Z=0 THEN 550
360 REM .........PRINT GAME BOARD.........
370 GOTO 380
380 PRINT
390 FOR K=1 TO 3
400 B=A(K,1)
410 D=A(K,2)
420 F=A(K,3)
430 GOSUB 770
440 IF K>2 THEN 460
450 PRINT "***************"
460 NEXT K
470 K=K-1
480 PRINT
490 IF Z<>0 THEN 2160
500 GOTO 220
510 STOP
520 PRINT "---- ILLEGAL MOVE -- TRY AGAIN ----"
530 PRINT
540 GOTO 220
550 T2=0
560 FOR J=1 TO 3
570 FOR I=1 TO 3
580 IF A(I,J)<>0 THEN 600
590 T2=T2+1
600 NEXT I
610 I=I-1
620 NEXT J
630 J=J-1
640 IF T2>0 THEN 670
650 GOSUB 1310
660 GOTO 370
670 IF T2>1 THEN 370
680 FOR J=1 TO 8
690 IF B(J)=-2 THEN 730
700 NEXT J
710 J=J-1
720 GOTO 650
730 GOSUB 2090
740 GOTO 290
750 REM ........PRINT TIC-TAC-TOE BOARD ROW......
770 IF B<>0 THEN 840
780 PRINT "    * ";
790 IF D<>0 THEN 870
800 PRINT "    * ";
810 IF F<>0 THEN 900
820 PRINT "  "
830 GOTO 1000
840 IF B>0 THEN 930
850 PRINT "YOU * ";
860 GOTO 790
870 IF D>0 THEN 950
880 PRINT "YOU * ";
890 GOTO 810
900 IF F>0 THEN 970
910 PRINT "YOU"
920 GOTO 830
930 PRINT "AMT * ";
940 GOTO 790
950 PRINT "AMT * ";
960 GOTO 810
970 PRINT "AMT"
980 GOTO 830
990 REM .........PRINT LEGENDS.........
1000 PRINT "    *     * "
1010 RETURN
1020 REM .....PROGRAM TO MAKE MOVE FOR THE MACHINE........
1030 M=0:N=0
1040 M=INT(3.33*RND(M))
1050 N=INT(3.33333*RND(N))
1060 IF M=0 THEN 1030
1070 IF M>3 THEN 1030
1080 IF N=0 THEN 1050
1090 IF N>3 THEN 1050
1100 C(2)=M
1110 D(2)=N
1120 C(3)=M
1130 D(3)=N
1140 FOR I=1 TO 8
1150 IF B(I)>1 THEN 1340
1160 NEXT I
1170 I=I-1
1180 FOR I=1 TO 8
1190 IF B(I)<-1 THEN 1340
1200 NEXT I
1210 I=I-1
1220 IF R+C=0 THEN 1550
1230 FOR K=1 TO 11
1240 I=C(K)
1250 J=D(K)
1260 IF A(I,J)<>0 THEN 1290
1270 A(I,J)=1
1280 GOTO 1330
1290 NEXT K
1300 K=K-1
1310 PRINT "  ... TIE GAME ...  "
1320 Z=3
1325 TIES=TIES+1
1330 RETURN
1340 IF I>3 THEN 1420
1350 FOR J=1 TO 3
1360 IF A(I,J)=0 THEN 1400
1370 NEXT J
1380 J=J-1
1390 GOTO 1330
1400 A(I,J)=1
1410 GOTO 1330
1420 IF I>6 THEN 1500
1430 FOR J=1 TO 3
1440 IF A(J,I-3)=0 THEN 1480
1450 NEXT J
1460 J=J-1
1470 GOTO 1330
1480 A(J,I-3)=1
1490 GOTO 1330
1500 IF I>7 THEN 1550
1510 FOR J=1 TO 3
1520 IF A(J,J)=0 THEN 1590
1530 NEXT J
1540 J=J-1
1550 IF A(1,3)=0 THEN 1610
1560 IF A(3,1)=0 THEN 1630
1570 A(2,2)=1
1580 GOTO 1330
1590 A(J,J)=1
1600 GOTO 1330
1610 A(1,3)=1
1620 GOTO 1330
1630 A(3,1)=1
1640 GOTO 1330
1650 REM ....PROGRAM TO TEST GAME WINNING......
1660 T1=0
1670 FOR J=1 TO 9
1680 B(J)=0
1690 NEXT J
1700 J=J-1
1710 J=1
1720 FOR I=1 TO 3
1730 IF A(J,1)<>A(J,I) THEN 1770
1740 NEXT I
1750 I=I-1
1760 T1=A(J,I)
1770 J=J+1
1780 IF J<4 THEN 1720
1790 J=J-1
1800 J=1
1810 FOR I=1 TO 3
1820 IF A(1,J)<>A(I,J) THEN 1860
1830 NEXT I
1840 I=I-1
1850 T1=A(I,J)
1860 J=J+1
1870 IF J<4 THEN 1810
1880 J=J-1
1890 IF A(1,1)=A(3,3) THEN 2020
1900 IF A(3,1)=A(1,3) THEN 2060
1910 IF T1<>0 THEN 2080
1920 FOR J=1 TO 3
1930 FOR I=1 TO 3
1940 B(J)=B(J)+A(J,I)
1950 B(J+3)=B(J+3)+A(I,J)
1960 NEXT I
1970 I=I-1
1980 NEXT J
1990 J=J-1
2000 B(7)=A(1,1)+A(2,2)+A(3,3)
2010 RETURN
2020 IF A(2,2)=A(3,3) THEN 2040
2030 GOTO 1900
2040 T1=A(2,2)
2050 GOTO 1910
2060 IF A(2,2)=A(1,3) THEN 2040
2070 GOTO 1910
2080 IF T1>0 THEN 2120
2090 PRINT " ... YOU WIN THIS TIME ..."
2100 Z=1
2105 YOUW=YOUW+1
2110 GOTO 1920
2120 PRINT " ... THE AM-100 WINS THIS TIME ..."
2130 Z=2
2135 AMTW=AMTW+1
2140 GOTO 1920
2150 REM ......END OF TEST WINNER PROGRAM......
2160 PRINT "DO YOU WANT TO PLAY ANOTHER GAME: YES OR NO";
2170 INPUT A$
2180 IF MID(A$,1,1)="Y" THEN 140
2190 IF MID(A$,1,1)="N" THEN 2220
2200 PRINT "I SAID YES OR NO: TRY AGAIN"
2210 GOTO 2170
2220 PRINT:PRINT "YOU WON ";YOUW;" GAMES, I WON ";AMTW;" GAMES AND THERE WERE ";TIES;" TIES"
2225 PRINT:PRINT "IT'S BEEN FUN, COME AGAIN SOMETIME"
2227 PRINT:PRINT
2230 GOTO 2250
2240 DATA 2,2,0,0,0,0,1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1
2250 END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.