7 PRINT TAB(-1,0);"*** QUBIC - 3D TIC-TAC-TOE - VER 1.0 ***"
8 PRINT : INPUT "DO YOU WANT INSTRUCTIONS (Y/N)? ";C$
9 IF C$="N" THEN 20
10 IF C$<>"Y" THEN PRINT "ENTER ONLY 'Y' FOR YES AND 'N' FOR NO" : GOTO 8
11 PRINT : PRINT "THE GAME IS TIC-TAC-TOE ON A 4 X 4 X 4 CUBE."
12 PRINT "EACH MOVE IS INDICATED BY A NUMBER IN THE RANGE 0 TO 64."
13 PRINT "ENTER 0 TO GET THE BOARD DISPLAYED,"
14 PRINT "ENTER 99 TO END THE GAME EARLY, YOU QUITTER, OTHERWISE,"
16 PRINT " 1-16 INDICATES THE LOWEST PLANE OF THE BOARD."
17 PRINT "17-32 INDICATES THE SECOND LOWEST PLANE OF THE BOARD,"
18 PRINT "33-48 INDICATES THE SECOND HIGHEST AND,"
19 PRINT "49-64 INDICATES THE HIGHEST LEVEL.  GOOD LUCK, YOU'LL NEED IT."
20 DIM X(64),L(76),M(76,4),Y(16)
21 RESTORE
22 FOR I=1 TO 16
23    READ Y(I)
24 NEXT I
25 FOR I=1 TO 76
26    FOR J=1 TO 4
27       READ M(I,J)
28    NEXT J
29 NEXT I
35 FOR I=1 TO 64
40    X(I)=0
50 NEXT I
51 Z=1
54 STRSIZ 80
55 PRINT CHR$(7) : INPUT "DO YOU WANT TO MOVE FIRST (Y/N)? ";S$
66 IF S$="N" THEN 110
67 IF S$<>"Y" THEN PRINT "ENTER ONLY 'Y' FOR YES AND 'N' FOR NO" : GOTO 55
70 PRINT : PRINT CHR(7);"YOUR MOVE"; : INPUT MM
71 IF MM=99 THEN 505
72 IF (MM<0) OR (MM>64) THEN PRINT"INVALID#, TRY AGAIN";CHR(7); : GOTO 70
73 IF MM<>0 THEN 98
74 FOR I=1 TO 64 STEP 16
75    FOR J=I TO I+15 STEP 4
76       XLINE$=" "
77       FOR K=J TO J+3
78          C$=".  "
79          IF X(K)=1 THEN C$="X  "
80          IF X(K)=5 THEN C$="O  "
81          XLINE$=XLINE$+C$
82       NEXT K
83       XLINE$=XLINE$+" "
84       IF J<9 THEN PRINT TAB(I-2);" ";J;XLINE$;" ";J+3
85       IF J=9 THEN PRINT TAB(I-2);" ";J;XLINE$;J+3
86       IF J>9 THEN PRINT TAB(I-2);J;XLINE$;J+3
87    NEXT J
88 NEXT I
89 GOTO 70
98 GOSUB 1800
99 IF X(MM)<>0 THEN PRINT "THAT SQUARE IS OCCUPIED, TRY AGAIN";CHR(7); : GOTO 70
109 X(MM)=1
110 GOSUB 1050
180 FOR J=1 TO 3
190    FOR I=1 TO 76
191       IF J=1 GOTO 210
192       IF J=2 GOTO 220
193       IF J=3 GOTO 235
205    NEXT I
206 NEXT J
207 GOTO 400
210 IF L(I)<>4 THEN 205
211 PRINT "YOU WIN AS FOLLOWS ";
212 FOR J=1 TO 4
213    MM=M(I,J)
214    PRINT MM;
216 NEXT J
217 GOTO 505
220 IF L(I)<>15 THEN 205
221 FOR J=1 TO 4
222    MM=M(I,J)
223    IF X(MM)<>0 THEN 227
224    X(MM)=5
225    PRINT "MACHINE MOVES TO ";
226    PRINT MM;
227 NEXT J
228 PRINT ", AND WINS AS FOLLOWS"
229 FOR J=1 TO 4
230    PRINT M(I,J)
233 NEXT J
234 GOTO 505
235 IF L(I)<>3 THEN 205
236 PRINT "NICE TRY, MACHINE MOVES TO ";
237 FOR J=1 TO 4
238    MM=M(I,J)
239    IF X(MM)<>0 THEN 245
240    X(MM)=5
241    PRINT MM;
243    GOTO 70
245 NEXT J
248 GOTO 400
250 FOR I=1 TO 76
251    L(I)=X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4))
252    LL=L(I)
255    IF LL<2 THEN 290
260    IF LL>=3 THEN 290
265    IF LL>2 THEN 1600
270    FOR J=1 TO 4
275       IF X(M(I,J))<>0 THEN 285
280       X(M(I,J))=.125
285    NEXT J
290 NEXT I
295 GOSUB 1050
300 FOR I=1 TO 76
305    IF L(I)=.5 THEN 1700
310    IF L(I)=1.375 THEN 1700
315 NEXT I
320 GOTO 1300
360 Z=1
362 IF X(Y(Z))=0 THEN 380
365 Z=Z+1
368 IF Z<>17 THEN 362
375 GOTO 1200
380 MM=Y(Z)
381 X(MM)=5
385 PRINT "MACHINE MOVES TO ";
389 PRINT MM;
390 GOTO 70
400 XX=XX
410 FOR I=1 TO 76
412    L(I)=X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4))
415    LL=L(I)
420    IF LL<10 THEN 455
425    IF LL>=11 THEN 455
430    IF LL>10 THEN 1600
435    FOR J=1 TO 4
440       IF X(M(I,J))<>0 THEN 450
445       X(M(I,J))=.125
450    NEXT J
455 NEXT I
470 GOSUB 1050
475 FOR I=1 TO 76
480    IF L(I)=.5 THEN 1700
485    IF L(I)=5.375 THEN 1700
490 NEXT I
492 GOSUB 1800
493 GOTO 250
505 PRINT CHR$(7) : INPUT "DO YOU WANT TO TRY ANOTHER GAME (Y/N)? ";X$
515 IF X$="Y" THEN 35
516 IF X$<>"N" THEN PRINT "ENTER 'Y' FOR YES AND 'N' FOR NO" : GOTO 505
520 CHAIN "DSK1:DEMO[20,20]"
1050 FOR S=1 TO 76
1060    J1=M(S,1)
1070    J2=M(S,2)
1080    J3=M(S,3)
1090    J4=M(S,4)
1100    L(S)=X(J1)+X(J2)+X(J3)+X(J4)
1110 NEXT S
1120 RETURN
1200 FOR I=1 TO 64
1210    IF X(I)<>0 THEN 1250
1220    X(I)=5
1225    MM=I
1226    PRINT "MACHINE LIKES ";
1227    PRINT MM;
1228    PRINT " "
1230    GOTO 70
1250 NEXT I
1252 PRINT "THE GAME IS A DRAW!";CHR$(7)
1255 GOTO 505
1300 FOR K=1 TO 18
1305    P=0
1310    FOR I=4*K-3 TO 4*K
1315       FOR J=1 TO 4
1320          P=P+X(M(I,J))
1325       NEXT J
1330    NEXT I
1345    IF P<4 THEN 1390
1350    IF P<5 THEN 1400
1355    IF P<9 THEN 1390
1360    IF P<10 THEN 1400
1390 NEXT K
1395 GOSUB 1800
1396 GOTO 360
1400 S=.125
1405 FOR I=4*K-3 TO 4*K
1410    GOTO 1703
1415 NEXT I
1420 S=0
1425 GOTO 1405
1500 DATA 1,49,52 4 13,61,64,16,22,39,23,38,26,42,27,43
1510 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
1520 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38
1521 DATA 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56
1522 DATA 57,58,59,60,61,62,63,64
1523 DATA 1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61
1524 DATA 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62
1525 DATA 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63
1527 DATA 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64
1529 DATA 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61
1532 DATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62
1534 DATA 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63
1536 DATA 4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64
1538 DATA 1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64
1540 DATA 13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52
1542 DATA 1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64
1544 DATA 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16
1546 DATA 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64
1548 DATA 49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16
1550 DATA 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
1600 FOR J=1 TO 4
1605    IF X(M(I,J))<>.125 THEN 1650
1610    X(M(I,J))=5
1615    IF L(I)<5 THEN 1625
1620    PRINT "LET'S SEE YOU GET OUT OF THIS: MACHINE MOVES TO ";
1622    GOTO 1626
1625    PRINT "YOU FOX.  JUST IN THE NICK OF TIME, MACHINE MOVES TO ";
1626    MM=M(I,J)
1630    PRINT MM;
1640    GOTO 70
1650 NEXT J
1660 PRINT "MACHINE CONCEDES THIS GAME.";CHR$(7)
1665 GOTO 505
1700 S=.125
1703 IF I-INT(I/4)*4>1 THEN 1715
1705 A=1
1710 GOTO 1720
1715 A=2
1720 FOR J=A TO 5-A STEP 5-2*A
1725    IF X(M(I,J))=S THEN 1750
1730 NEXT J
1735 GOTO 1415
1750 X(M(I,J))=5
1755 MM=M(I,J)
1760 PRINT "MACHINE TAKES ";
1770 PRINT MM;
1780 GOTO 70
1800 FOR I=1 TO 64
1810    IF X(I)<>.125 THEN 1850
1815    X(I)=0
1850 NEXT I
1860 RETURN
9999 END