From c3152bb45912a39034e3cf03137e44dfd028fc87 Mon Sep 17 00:00:00 2001
From: Renaud Fivet <renaud.fivet@gmail.com>
Date: Fri, 14 Jun 2024 13:34:12 +0800
Subject: [PATCH] Add QUBIC.

---
 dec/QUBIC.BAS | 236 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 236 insertions(+)
 create mode 100644 dec/QUBIC.BAS

diff --git a/dec/QUBIC.BAS b/dec/QUBIC.BAS
new file mode 100644
index 0000000..9b64b1f
--- /dev/null
+++ b/dec/QUBIC.BAS
@@ -0,0 +1,236 @@
+0 REM  *  QUBIC-  *
+5 PRINT "DO YOU WANT INSTRUCTIONS";
+6 INPUT C$
+7 IF C$="NO" THEN 21
+8 IF C$="YES" THEN 13
+9 PRINT "INCORRECT ANSWER.  PLEASE TYPE 'YES' OR 'NO'";
+10 GOTO 6
+13 PRINT "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE."
+14 PRINT "EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH"
+15 PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE.  THE DIGITS INDICATE THE"
+16 PRINT "LEVEL, COLUMN, AND ROW, RESPECTIVELY, OF THE OCCUPIED PLACE."
+20 DIM X(64),L(76),M(76,4),Y(16)
+21 FOR I = 1 TO 16
+22 READ Y(I)
+23 NEXT I
+24FOR I=1 TO 76
+25FOR J = 1 TO 4
+26 READ M(I,J)
+27 NEXT J
+28 NEXT I
+35 FOR I = 1 TO 64
+40 LET X (I) =0
+50 NEXT I
+54 LET Z=1
+55 PRINT "DO YOU WANT TO MOVE FIRST";
+60 INPUT S$
+66 IF S$="NO" THEN 110
+67 IF S$="YES" THEN 70
+68 PRINT "INCORRECT ANSWER.  PLEASE TYPE 'YES' OR 'NO'.";
+69 GOTO 60
+70 PRINT " "
+72 PRINT "YOUR MOVE";
+80INPUTJ1
+85 GOSUB 1800
+90 LETK1=INT(J1/100)
+95 LET J2=(J1-K1*100)
+96 LET K2=INT(J2/10)
+97 LET K3= J1 - K1*100 -K2*10
+98 LET M=16*K1+4*K2+K3-20
+99 IF X(M)=0 THEN 109
+100 PRINT "THAT SQUARE IS USED, TRY AGAIN"
+101 GOTO 70
+109 LET X(M)=1
+110 GOSUB 1050
+180 FOR J=1 TO 3
+190 FOR I=1 TO 76
+200 IF J=1 THEN 210
+201 IF J=2 THEN 220
+203 IF J=3 THEN 235
+205 NEXT I
+206 NEXTJ
+207 GOTO 400
+210 IF L(I)<>4 THEN 205
+211 PRINT "YOU WIN AS FOLLOWS";
+212 FOR J=1 TO 4
+213 LET M=M(I,J)
+214 GOSUB 1000
+216 NEXT J
+217 GOTO 500
+220 IF L(I)<>15 THEN 205
+221 FOR J=1 TO 4
+222 LET M=M(I,J)
+223 IF X(M)<>0 THEN 227
+224 LET X(M)=5
+225 PRINT "MACHINE MOVES TO";
+226 GOSUB 1000
+227 NEXT J
+228 PRINT ", AND WINS AS FOLLOWS"
+229 FOR J=1 TO 4
+230 LET M=M(I,J)
+231 GOSUB 1000
+233 NEXT J
+234 GOTO 500
+235 IF L(I)<>3 THEN 205
+236 PRINT "NICE TRY MACHINE MOVES TO";
+237 FOR J=1 TO 4
+238 LET M=M(I,J)
+239 IF X(M)<>0 THEN 245
+240 LET X(M)=5
+241 GOSUB 1000
+243 GOTO 70
+245 NEXT J
+248 GOTO 400
+250 FOR I = 1 TO 76
+251 LET L(I)=X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4))
+252 LET L = L(I)
+255 IF L <2 THEN 290
+260 IF L>=3 THEN 290
+265 IF L>2 THEN 1600
+270 FOR J = 1 TO 4
+275 IF X(M(I,J))<>0 THEN 285
+280 LET X(M(I,J))=1/8
+285 NEXT J
+290 NEXT I
+295 GOSUB 1050
+300 FOR I = 1 TO 76
+305 IF L(I)=1/2 THEN 1700
+310 IF L(I)=1+3/8 THEN 1700
+315 NEXT I
+320 GOTO 1300
+360LET Z = 1
+362 IF X(Y(Z))=0 THEN 380
+365 LET Z=Z+1
+368 IF Z<>17 THEN 362
+375 GOTO 1200
+380 LET M=Y(Z)
+381 LET X(M)=5
+385 PRINT "MACHINE MOVES TO";
+389 GOSUB 1000
+390 GOTO 70
+400 LET X=X
+410 FOR I=1 TO 76
+412 LET L(I)=X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4))
+415 LET L=L(I)
+420 IF L<10 THEN 455
+425 IF L>=11 THEN 455
+430 IF L>10 THEN 1600
+435 FOR J=1 TO 4
+440 IF X(M(I,J))<>0 THEN 450
+445 LET X(M(I,J))=1/8
+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+3/8 THEN 1700
+490 NEXT I
+492 GOSUB 1800
+493 GOTO 250
+500 PRINT " "
+505 PRINT "DO YOU WANT TO TRY ANOTHER GAME";
+510 INPUT X$
+515 IF X$="YES" THEN 35
+516 IF X$="NO" THEN 520
+517 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'";
+518 GOTO 510
+520 STOP
+1000 LET K1=INT((M-1)/16)+1
+1010 LET J2=M-16*(K1-1)
+1030 LET K2=INT((J2-1)/4)+1
+1035 LET K3=M-(K1-1)*16-(K2-1)*4
+1040 LET M=K1*100+K2*10+K3
+1042 PRINT M;
+1045 RETURN
+1050 FOR S=1 TO 76
+1060 LET J1 = M(S,1)
+1070 LET J2=M(S,2)
+1080 LET J3=M(S,3)
+1090 LET J4=M(S,4)
+1100 LET 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 LET X(I)=5
+1225 LET M=I
+1226 PRINT "MACHINE LIKES";
+1227 GOSUB 1000
+1228 PRINT " "
+1230 GOTO 70
+1250 NEXT I
+1252 PRINT "THE GAME IS A DRAW"
+1255 GOTO 500
+1300 FOR K=1 TO 18
+1305 LET P=0
+1310 FOR I=4*K-3 TO 4*K
+1315 FOR J=1 TO 4
+1320 LET 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 LET S=1/8
+1405 FOR I=4*K-3 TO 4*K
+1410 GOTO 1703
+1415 NEXT I
+1420 LET S=0
+1425 GOTO 1405
+1500 DATA 1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43
+1510DATA 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
+1523DATA 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
+1525DATA 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 DATA4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64
+1538 DATA1,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 DATA1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64
+1544DATA 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16
+1546DATA 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64
+1548DATA 49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16
+1550DATA 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))<>1/8 THEN 1650
+1610 LET 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 LET M=M(I,J)
+1630 GOSUB 1000
+1640 GOTO 70
+1650 NEXT J
+1660 PRINT "MACHINE CONCEDES THIS GAME."
+1665 GOTO 500
+1700 LET S=1/8
+1703 IF I-INT(I/4)*4>1 THEN 1715
+1705 LET A=1
+1710 GOTO 1720
+1715 LET 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 LET X(M(I,J))=5
+1755 LET M=M(I,J)
+1760 PRINT "MACHINE TAKES";
+1770 GOSUB 1000
+1780 GOTO 70
+1800 FOR I=1 TO 64
+1810 IF X(I)<>1/8 THEN 1850
+1815 LET X(I)=0
+1850 NEXT I
+1860 RETURN
+2000 END