10 REM *** WRITTEN BY MICHAEL KASS AND ALAN SEGAL, HERRICKS HS, NY
20 REM *** CONVERTED TO BASIC-PLUS BY DAVE AHL, DIGITAL PDP-11/45 GROUP
60 PRINT
70 PRINT"DO YOU WANT INSTRUCTIONS";
80 INPUT B4$
90 PRINT
100 IF B4$="NO" THEN 310
110 IF B4$<>"YES" THEN 70
120 &"THE OBJECT OF THIS GAME IS TO GO FROM THE LEFT COLUMN OF O'S"
130 &"TO THE THE RIGHT COLUMN BY CONNECTING THE O'S.  THE COMPUTER MUST"
140 &"GO FROM THE TOP TO THE BOTTOM BY CONNECTING THE X'S.":&
150 &"YPU MAKE YOUR MOVES BY TYPING IN COORDINATES (X,Y) OR (COLUMN, ROW)"
160 &"OF THE 'O' YOU WISH TO MOVE FROM AFTER THE COMPUTER TYPES:":&
170 &"    YOUR MOVE FROM ?":&
180 &"AND BY TYPING THE COORDINATES OF THE 'O' YOU WISH TO MOVE TO"
190 &"AFTER THE COMPUTER TYPES:":&:&"    TO ?":&
200 &"YOU MAY MOVE EITHER VERTICALLY OR HORIZONTALLY, BUT NOT DIAGONALLY."
210 &"YOU ALSO CANNOT MOVE VERTICALLY IN EITHER THE FIRST OR 13TH COLUMN."
220 &:&"THE COMPUTER GETS THE FIRST MOVE...":&
310 DIM X(20,20)
320 DIM O(20,20)
330 DIM T(20,20)
340 FOR X=1 TO 13 STEP 2
350 FOR Y=2 TO 12 STEP 2
360 O(X,Y)=1
370 X(Y,X)=1
380 NEXT Y
390 NEXT X
400 GO TO 480
410 PRINT
420 PRINT"BOARD (YES OR NO)";
430 INPUT B$
440 PRINT
450 IF B$="YES" THEN 480
460 IF B$="NO" THEN 490
470 GO TO 420
480 GOSUB 990     !PRINT BOARD SUBROUTINE
490 IF E<>5 THEN 510
500 STOP
510 GOSUB 1640
520 GOSUB 640
530 PRINT
540 IF E=5 ThEN 420
550 GOSUB 2710
560 PRINT
570 PRINT"YOUR MOVE FROM";
580 INPUT F,G
590 PRINT"TO";
600 INPUT F1,G1
610 PRINT
620 GOSUB 2220
630 GO TO 420
640 REM *** WIN SUBROUTINE
650 REM FIRST TEST
660 FOR H=1 TO 11 STEP 2
670 J=12
680 IF O(H,J)=3 THEN 710
690 NEXT H
700 GO TO 980
710 FOR I=1 TO 11 STEP 2
720 J=2
730 IF O(I,J)=3 GO TO 760
740 NEXT I
750 GO TO 980
760 REM OTHER TESTS
770 J=J+2
780 IF J=12 THEN 960
790 IF O(I,J)=3 THEN 870
800 IF O(I+1,J+1)=2 GOTO 890
810 IF I-1<0 THEN 840
820 IF O(I-1,J-1)=2 GOTO 920
830 IF X(I+1,J+1)=2 GOTO 890
840 IF I-1<0 THEN 980
850 IF X(I-1,J-1)=2 THEN 890
860 GOTO 740
870 J=J+2
880 GOTO 780
890 J=J
900 I=I+2
910 GOTO 780
920 J=J
930 I=I-2
940 GoTO 780
950 GO TO 980
960 PRINT "I WIN!!!  BETTER LUCK NEXT TIME!!!"
970 E=5
980 RETURN
990 REM *** PRINT BOARD SUBROUTINE
1000 R=R+1
1010 IF R>1 THEN 1150
1020 &:&"-";FOR Q5=1 TO 60:&"TEAR ON LINE"
1030 &
1040 PRINT"YOU MAY USE THIS BOARD TO MARK THE MOVES ON, OR YOU CAN GET"
1050 PRINT"AN UPDATED BOARD AFTER YOU MAKE EACH MOVE."
1060 PRINT
1070 PRINT
1080 PRINT
1120 PRINT TAB(5);CHR$(7);cHR$(13);TAB(5);CHR$(7)
1150 D=0
1160 PRINTTAB(13)"1111"
1170 PRINT TAB(4)"1234567890123"
1180 FOR Y=13 TO 1 STEP -1
1190 IF Y<10 THEN 1220
1200 PRINT Y;
1210 GO TO 1230
1220 PRINT" "Y;
1230 FOR X=1 TO 13 STEP 1
1240 IF Y/2=INT(Y/2) THEN 1330
1250 IF X(X,Y)=0 THEN 1420
1260 ON X(X,Y) GO TO 1270,1290,1310
1270 PRINT "X ";
1280 GO TO 1450
1290 PRINT "X-";
1300 GO TO 1450
1310 PRINT"X!";
1320 GO TO 1450
1330 D=0
1340 IF O(X,Y)=0 THEN 1450
1350 ON O(X,Y) GO TO 1360,1380,1400
1360 PRINT"O ";
1370 GO TO 1450
1380 PRINT"O-";
1390 GO TO 1450
1400 PRINT"O!";
1410 GO TO 1450
1420 D=D+1
1430 IF D>1 THEN 1450
1440 PRINT" ";
1450 NEXT X
1460 GOSUb 1620
1470 NEXT Y
1480 PRINT TAB(4)"1234567891111"
1490 PRINT TAB(13)"0123"
1500 R1=R1+1
1510 IF R1>1 THEN 1590
1520 PRINT
1540 &"-";FOR Q5=1 TO 60
1550 PRINT"TEAR ON LINE"
1560 & FOR Q5=1 TO 7
1590 &
1610 RETURN
1620 PRINT
1630 RETURN
1640 REM *** COMPUTER MOVE SUBROUTINE
1650 B=B+1
1660 IF B>1 THEN 1710
1670 O(1,2)=3
1680 PRINT"I MOVE FROM 2 , 1 TO 2 , 3"
1690 B1=B1+1
1700 IF B1>1 THEN 1890
1710 FOR C=3 TO 11 STEP 2
1720 T(C,C+1)=1
1730 T(C-2,C+1)=1
1740 GO TO 1790
1750 NEXT C
1760 T(2,3)=3
1770 T(7,12)=2
1780 GO TO 1890
1790 FOR Q=c+3 TO 12 STEP 2
1800 T(C-2,Q)=2
1810 T(C-1,Q+1)=2
1820 T(C-1,Q-1)=2
1830 NEXT Q
1840 FOR S=C TO 3 STEP -2
1850 T(C-1,S)=3
1860 T(C,S-1)=3
1870 NEXT S
1880 GO TO 1750
1890 IF F>F1 THEN 1950
1900 IF F<>F1 THEN 1920
1910 IF G>G1 THEN 1950
1920 X=F
1930 Y=G
1940 GO TO 1970
1950 X=F1
1960 Y=G1
1970 IF T(X,Y)=0 THEN 2210
1980 IF F<>F1 THEN 2000
1990 ON T(X-1,Y+1) GO TO 2010,2080,2150
2000 ON T(X,Y) GO TO 2010,2080,2150
2010 IF X=Y-1 THEN 2050
2020 O(X+2,Y)=3
2030 PRINT "I MOVE FROM ";X+3;",";Y-1;"TO ";X+3;",";Y+1
2040 GO TO 2210
2050 O(X-2,Y)=3
2060 PRINT "I MOVE FROm ";X-1;",";Y-1;"TO ";X-1;",";Y+1
2070 GO TO 2210
2080 IF X(X-1,Y+1)=3 THEN 2120
2090 X(X+1,Y-1)=2
2100 PRINT"I MOVE FROM ";X+1;",";Y-1;"TO ";X+3;",";Y-1
2110 GO TO 2210
2120 O(X-2,Y+2)=3
2130 PRINT"I MOVE FROM ";X-1;",";Y+1;"TO ";X-1;",";Y+3
2140 GO TO 2210
2150 IF X(X-1,Y+1)=3 THEN 2190
2160 X(X-1,Y+1)=2
2170 PRINT"I MOVE FROM ";X-1;",";Y+1;"TO ";X+1;",";Y+1
2180 GO TO 2210
2190 O(X,Y)=3
2200 PRINT"I MOVE FROM ";X+1;",";Y-1;"TO ";X+1;",";Y+1
2210 RETURN
2220 REM *** ERROR AND CHANGE BOARD SUBROUTINE
2230 IF F<>F1 THEN 2280
2240 IF F=1 THEN 2630
2250 IF F=13 THEN 2630
2260 IF F1=13 THEN 2630
2270 IF G=G1 THEN 2630
2280 IF F/2=INT(F/2) THEN 2630
2290 IF F>13 THEN 2630
2300 IF G>12 THEN 2630
2310 IF G/2<>INT(G/2) THEN 2630
2320 IF F<>INT(F) THEN 2630
2330 IF F<1 THEN 2630
2340 IF G<1 THEN 2630
2350 IF F1/2=INT(F1/2) THEN 2630
2360 IF F1>13 THEN 2630
2370 IF G1>12 THEN 2630
2380 IF G1/2<>INT(G1/2) THEN 2630
2390 IF F1<>INT(F1) THEN 2630
2400 IF G1<1 THEN 2630
2410 IF F=F1 THEN 2530
2420 IF G<>G1 THEN 2630
2430 IF ABS(F-F1)<>2 THEN 2630
2440 IF F>F1 THEN 2490
2450 IF O(F,G)=2 THEN 2630
2460 IF o(F,G)=3 THEN 2630
2470 O(F,G)=2
2480 GOTO 2700
2490 IF O(F1,G1)=2 THEN 2630
2500 IF O(F1,G1)=3 THEN 2630
2510 O(F1,G1)=2
2520 GOTO 2700
2530 IF ABS(G-G1)<>2 THEN 2630
2540 IF G>G1 THEN 2590
2550 IF X(F-1,G+1)=2 THEN 2630
2560 IF X(F-1,G+1)=3 THEN 2630
2570 X(F-1,G+1)=3
2580 GOTO 2700
2590 IF X(F1-1,G1+1)=2 THEN 2630
2600 IF X(F1-1,G1+1)=3 THEN 2630
2610 LET X(F1-1,G1+1)=3
2620 GOTO 2700
2630 PRINT"INVALID MOVE--TRY AGAIN"
2640 PRINT
2650 PRINT"YOUR MOVE FROM";
2660 INPUT F,G
2670 PRINT"TO";
2680 INPUT F1,G1
2690 GO TO 2220
2700 RETURN
2710 REM *** PLAYER WIN ROUTINE
2720 FOR H=1 TO 11 STEP 2
2730 I=12
2740 IF X(I,H)=3 THEN 2770
2750 NEXT H
2760 GOTO 3000
2770 FOR J=1 TO 11 STEP 2
2780 I=2
2790 IF X(I,J)=3 THEN 2820
2800 NEXT J
2810 GOTO 3000
2820 I=I+2
2830 IF I=12 THEN 2970
2840 IF X(I,J)=3 THEN 2910
2850 IF X(I+1,J+1)=2 THEN 2930
2860 IF J-1<0 THEN 2890
2870 IF X(I-1,J-1)=2 THEN 2950
2880 IF O(I+1,J+1)=2 THEN 2930
2890 IF J-1<0 THEN 3000
2900 GOTO 2800
2910 I=I+2
2920 GOTO 2830
2930 J=J+2
2940 GOTO 2830
2950 J=J-2
2960 GOTO 2830
2970 IF O(1,2)<>2 THEN 3000
2980 PRINT"YOU WON!!! CONGRATULATIONS!!!"
2990 E=5
3000 RETURN
3010 END