10 CLS:MEMSET:WIDTH20,20
20 DATA 0
30 DIMB(13),G(13),F(50):READN
40 PRINT:E=0
50 FORI=0TO12:B(I)=3:NEXTI
60 C=0:F(N)=0:B(13)=0:B(6)=0
70 GOSUB340
80 PRINT"Your Move";:GOSUB210
90 IFE=0THEN160
100 IFM=H THENGOSUB200
110 IFE=0THEN160
120 PRINT"My move is ";:GOSUB500
130 IFE=0THEN160
140 IFM=H THENPRINT",";:GOSUB500
150 IFE>0THEN70
160 PRINT:PRINT"Game Over"
170 D=B(6)-B(13):IFD<0THENPRINT"I win by";-D;"POINTS":GOTO40
180 N=N+1:IFD=0THENPRINT"Drawn game":GOTO40
190 PRINT"You win by";D;"points":GOTO40
200 PRINT"Again";
210 INPUTM:IFM<7THENIFM>0THENM=M-1:GOTO230
220 PRINT"Illegal move":GOTO200
230 IFB(M)=0THEN220
240 H=6:GOSUB260
250 GOTO340
260 K=M:GOSUB440
270 E=0:IFK>6THENK=K-7
280 C=C+1:IFC<9THENF(N)=F(N)*6+K
290 FORI=0TO5:IFB(I)<>0THEN320
300 NEXTI
310 RETURN
320 FORI=7TO12:IFB(I)<>0THENE=1:RETURN
330 NEXTI:RETURN
340 PRINT
350 FORI=12TO7STEP-1:GOSUB420
360 NEXTI
370 PRINT:I=13:GOSUB420
380 PRINTSTRING$(12,32);:PRINTUSING"###";B(6)
390 FORI=0TO5:GOSUB420
400 NEXTI
410 PRINT:RETURN
420 PRINTUSING"###";B(I);
430 RETURN
440 P=B(M):B(M)=0
450 FORP=P TO1STEP-1:M=M+1:IFM>13THENM=M-14
460 B(M)=B(M)+1:NEXTP
470 IFB(M)=1THENIFM<>6THENIFM<>13THENIFB(12-M)<>0THEN490
480 RETURN
490 B(H)=B(H)+B(12-M)+1:B(M)=0:B(12-M)=0:RETURN
500 D=-99:H=13
510 FORI=0TO13:G(I)=B(I):NEXTI
520 FORJ=7TO12:IFB(J)=0THEN660
530 G=0:M=J:GOSUB440
540 FORI=0TO5:IFB(I)=0THEN590
550 L=B(I)+I:R=0
560 IFL>13THENL=L-14:R=1:GOTO560
570 IFB(L)=0THENIFL<>6THENIFL<>13THENR=B(12-L)+R
580 IFR>Q THENQ=R
590 NEXTI
600 Q=B(13)-B(6)-Q:IFC>8THEN640
610 K=J:IFK>6THENK=K-7
620 FORI=0TON-1:IFF(N)*6+K=INT(F(I)/6^(7-C)+.1)THENQ=Q-2
630 NEXTI
640 FORI=0TO13:B(I)=G(I):NEXTI
650 IFQ>=D THENA=J:D=Q
660 NEXTJ
670 M=A:PRINTCHR$(42+M);:GOTO260
680 FORI=0TON-1:PRINTB(I):NEXTI
690 END
