Xadrez

9 de agosto de 20179 de agosto de 2017 MSX-Basic 0 comentários Inteligência, Jogos, Raciocínio

Um Tabuleiro Eletrônico para Jogar Xadrez. Você provavelmente já ouviu falar de computadores que jogam xadrez.

Teste o programa no WebMSX – The Online MSX Emulator

Um programa inteligente para jogar xadrez, porém, seria grande demais para caber neste livro, de modo que preferimos criar um programa que fosse útil como “tabuleiro eletrônico”. O programa pode ser usado para substituir um tabuleiro comun, com a vantagem de que não é necessário anotar as jogadas. Os dois jogadores entram com os lances usando a notação normal do xadrez, isto é, letras para indicar as colunas e números para indicar as linhas.

O computador examina cada lance para verificar se é possível dentro das regras do xadrez. Apenas são permitidos os movimentos de peças da cor correta, de uma casa ocupada para uma casa que possa ser atingida por essa peça. As peças tomadas são automaticamente removidas do jogo.

O programa não indica xeque nem xeque-mate e permite jogadas que deixem o rei em xeque, cabe aos jogadores tomar cuidado para evitar que isso aconteça. O programa também não prevê a tomada de peões em passant, a opção “remover peça” deve ser usada para retirar um peão do tabuleiro se ele for tomado em passant.

O programa executa corretamente os dois tipos de roque, verificando primeiro se o rei e a torre estão nas suas posições iniciais e se não existe nenhuma peça entre eles. Entretanto, o computador aceita o roque se uma das peças já foi movimentada e voltou à posição inicial ou se uma das casas entre o rei e a torre estiver em xeque. Cabe aos jogadores evitar uma jogada de roque nesses últimos dois casos.

O programa também permite fixar uma posição inicial qualquer para as peças, o que é útil para o estudo de problemas de xadrez ou variantes de aberturas e finais. Além disso, jogos de até 100 lances podem ser salvos em fita e analisados jogada por jogada. Os peões são automaticamente promovidos a damas quando chegam à última linha.

Resumo dos Comandos e Opções

Para mudar a posição inicial das peças: Quando o computador perguntar “Você quer montar o tabuleiro?”, entre com “S” e indique a posição das peças, da esquerda para a direita e de cima para baixo, usando o seguinte código:

Peças Brancas: P=peão, T=torre, C=cavalo, R=rei, D=dama, B=bispo.

Peças Pretas: Os mesmos códigos, mas usando letras minúsculas.

Casas Vazias: Aperte a barra de espaço.

As brancas sempre começam na parte de baixo da tela.

Para remover uma peça: Entre CODE-R e a posição da peça. A vez passa para o adversário.

Para fazer o roque: Entre com R e depois com E ou D, conforme o caso.

Para salvar uma partida: Entre GRAPH-S, depois de apertar as teclas RECORD e PLAY do gravador, se estiver usando fita. Se estiver usando disquete, indique a unidade de disco em que se encontra o seu disquete de dados (se quiser, você também pode salvar o jogo no disquete de programas).

Para carregar uma partida: Entre com GRAPH-C e depois aperte a tecla PLAY do gravador. O computador carregará o primeiro arquivo que encontrar na fita. Se estiver usando disquete, o computador carregará a última partida que foi salva, que estará guardada no arquivo de dados chamado XADREZ. Depois de carregar a partida, o computador entra automaticamente no modo de repetição (vide item seguinte).

Para repetir uma partida: Entre com GRAPH-J. Cada vez que a barra de espaço for apertada, o computador mostrará uma nova jogada, a partir da inicial. Para voltar ao modo normal, basta entrar de novo com GRAPH-J.

Para abandonar uma partida: Entre com GRAPH-A. O computador lhe oferece a oportunidade de salvar a partida em fita ou disquete antes de começar um novo jogo.

Fonte: Livro de Jogos em MSX
Editora: Lutécia
Autor: Jim Gregory (livro) – Issi/Bootsy/Andy (programa)
Ano: 1985
Digitação: Wilson e Willian Pilon – MSX Typer

Código fonte

1000 REM <<<< XADREZ - ISSI/BOOTSY/ANDY >>>>
1010 SCREEN 1,0,0:CLEAR 2000
1020 COLOR 15,4,4:KEY OFF
1030 DIM C(8,8),M$(8,8),X$(8,8),Z$(100,2)
1040 LOCATE 10,10:PRINT "Espere":LOCATE 8,12:PRINT "15 Segundos"
1050 GOSUB 5740:GOSUB 5190
1060 GOSUB 4510
1070 LOCATE 1,19:PRINT "Voce quer montar"
1080 LOCATE 1,20:PRINT "o tabuleiro (S/N)?"
1090 A$=INPUT$(1):BEEP
1100 LOCATE 1,19:PRINT STRING$(16," ")
1110 LOCATE 1,20:PRINT STRING$(18," ")
1120 IF A$="s" OR A$="S" THEN GOSUB 3860:IF CHE=0 THEN 1150 ELSE 1060
1130 IF A$="n" OR A$="N" THEN 1140 ELSE 1070
1140 GOSUB 1200:GOSUB 1420
1150 COU=1
1160 GOSUB 3800
1170 GOTO 1160
1180 END
1190 REM <<<< INICIOI DO JOGO >>>>
1200 FOR N=1 TO 8
1210 FOR M=1 TO 8
1220 M$(N,M)="0"
1230 X$(N,M)="0"
1240 NEXT M
1250 NEXT N
1260 FOR N=1 TO 8
1270 M$(2,N)="p":X$(2,N)="p"
1280 M$(7,N)="P":X$(7,N)="P"
1290 NEXT N
1300 RESTORE 6340
1310 FOR N=1 TO 8
1320 READ A$
1330 M$(8,N)=A$
1340 X$(8,N)=A$
1350 C$=CHR$(ASC(A$)+32):A$=C$
1360 M$(1,N)=A$
1370 X$(1,N)=A$
1380 NEXT N
1390 GOSUB 5690
1400 RETURN
1410 REM <<<< DESENHAR PECAS >>>>
1420 X=2:Y=2
1430 FOR N=1 TO 8
1440 FOR M=1 TO 8
1450 C$=M$(N,M)
1460 IF C$="0" THEN 1490
1470 LOCATE X,Y
1480 GOSUB 1550
1490 X=X+2
1500 NEXT M
1510 X=2:Y=Y+2
1520 NEXT N
1530 RETURN
1540 REM <<<< PECA >>>>
1550 LOCATE X,Y:XX=X:X=X/2:YY=Y:Y=Y/2:IF C$="K" AND C(X,Y)=1 THEN D$=K$:D1$=K1$ ELSE IF C$="K" THEN D$=K2$:D1$=K3$
1560 IF C$="k" AND C(X,Y)=1 THEN D$=K4$:D1$=K5$ ELSE IF C$="k" THEN D$=K6$:D1$=K7$
1570 IF C$="Q" AND C(X,Y)=1 THEN D$=Q$:D1$=Q5$ ELSE IF C$="Q" THEN D$=Q2$:D1$=Q3$
1580 IF C$="q" AND C(X,Y)=1 THEN D$=Q4$:D1$=Q5$ ELSE IF C$="q" THEN D$=Q6$:D1$=Q7$
1590 IF C$="B" AND C(X,Y)=1 THEN D$=B$:D1$=B1$ ELSE IF C$="B" THEN D$=B2$:D1$=B3$
1600 IF C$="b" AND C(X,Y)=1 THEN D$=B4$:D1$=B5$ ELSE IF C$="b" THEN D$=B6$:D1$=B7$
1610 IF C$="T" AND C(X,Y)=1 THEN D$=T$:D1$=T1$ ELSE IF C$="T" THEN D$=T2$:D1$=T3$
1620 IF C$="t" AND C(X,Y)=1 THEN D$=T4$:D1$=T5$ ELSE IF C$="t" THEN D$=T6$:D1$=T7$
1630 IF C$="R" AND C(X,Y)=1 THEN D$=R$:D1$=R1$ ELSE IF C$="R" THEN D$=R2$:D1$=R3$
1640 IF C$="r" AND C(X,Y)=1 THEN D$=R4$:D1$=R5$ ELSE IF C$="r" THEN D$=R6$:D1$=R7$
1650 IF C$="P" AND C(X,Y)=1 THEN D$=P$:D1$=P1$ ELSE IF C$="P" THEN D$=P2$:D1$=P3$
1660 IF C$="p" AND C(X,Y)=1 THEN D$=P4$:D1$=P5$ ELSE IF C$="p" THEN D$=P6$:D1$=P7$
1670 IF C$="0" AND C(X,Y)=1 THEN D$=CHR$(214)+CHR$(214):D1$=D$ ELSE IF C$="0" THEN D$="  ":D1$=D$
1680 PRINT D$;
1690 X=XX:Y=YY
1700 LOCATE X,Y+1
1710 PRINT D1$;
1720 RETURN
1730 REM <<<< ENTRADA DE DADOS >>>>
1740 LOCATE 21,3:IF PLA=1 THEN PRINT "Brancas" ELSE PRINT "Pretas "
1750 LOCATE 26,6:PRINT "  "
1760 LOCATE 26,8:PRINT "  "
1770 LOCATE 26,6
1780 GOSUB 1850
1790 F$=N$
1800 IF CAS=1 THEN RETURN
1810 LOCATE 26,8
1820 GOSUB 1850
1830 S$=N$
1840 RETURN
1850 N$="":CAS=0
1860 A$=INPUT$(1)
1870 IF A$=CHR$(196) THEN GOSUB 2030
1880 IF A$="R" OR A$="r" THEN GOSUB 3260
1890 IF CAS=1 THEN RETURN
1900 IF A$=CHR$(188) THEN GOSUB 4910:LOCATE 26,6
1910 IF A$=CHR$(210) THEN GOSUB 4730:LOCATE 26,6
1920 IF A$=CHR$(156) THEN GOTO 2320
1930 A$=CHR$(ASC(A$) AND 223)
1940 IF A$=CHR$(198) AND COU>1 THEN Z$(COU,1)="FF":GOTO 4240
1950 IF A$<"A" OR A$>"H" THEN GOTO 1860
1960 PLAY "l8c":N$=A$:PRINT N$;
1970 A$=INPUT$(1)
1980 IF A$=CHR$(8) THEN PRINT CHR$(127);:GOTO 1850
1990 IF A$<"1" OR A$>"9" THEN 1970
2000 PLAY "l8g":N$=N$+A$:PRINT A$;
2010 RETURN
2020 REM <<<< FIM DO JOGO >>>>
2030 LOCATE 0,20:PRINT " Quer salvar a partida (S/N)?  "
2040 SS$=INPUT$(1):IF SS$="S" OR SS$="s" THEN A$=CHR$(210):RETURN
2050 IF SS$="N" OR SS$="n" THEN LOCATE 0,20:PRINT " Quer jogar de novo (S/N)?     "
2060 RR$=INPUT$(1):IF RR$="S" OR RR$="s" THEN RUN ELSE SCREEN 0:STOP
2070 REM <<<< MOVIMENTO >>>>
2080 GOSUB 2490
2090 CH$=M$(F1,F)
2100 M$(S1,S)=M$(F1,F)
2110 IF PLA=1 AND F1=1 AND M$(F1,F)="p" THEN M$(F1,F)="q"
2120 IF PLA=2 AND F1=8 AND M$(F1,F)="P" THEN M$(F1,F)="Q"
2130 C$=CH$
2140 RO=S1:CR=S:GOSUB 2190
2150 M$(F1,F)="0"
2160 RO=F1:CR=F:GOSUB 2190
2170 M$(F1,F)="0"
2180 RETURN
2190 X=2:Y=2
2200 FOR N=1 TO 8
2210 FOR M=1 TO 8
2220 IF N=RO AND M=CR THEN GOSUB 2280
2230 X=X+2
2240 NEXT M
2250 X=2:Y=Y+2
2260 NEXT N
2270 RETURN
2280 C$=M$(F1,F):LOCATE X,Y:GOSUB 1550
2290 RETURN
2300 RETURN
2310 REM <<<< REMOVER PE€A >>>>
2320 LOCATE 20,19:PRINT "Peca"
2330 LOCATE 20,20:F$=INPUT$(1):A$=CHR$(ASC(F$) AND 223)
2340 IF A$<"A" OR A$>"H" THEN GOTO 2330 ELSE PRINT A$
2350 LOCATE 21,20:G$=INPUT$(1)
2360 IF G$<"1" OR G$>"9" THEN GOTO 2350 ELSE PRINT G$
2370 F$=A$+G$
2380 LOCATE 20,19:PRINT "    "
2390 LOCATE 26,20:PRINT "      "
2400 S$="A1":GOSUB 2490
2410 M$(F1,F)="0"
2420 RO=F1:CR=F:GOSUB 2190
2430 Z$(COU,1)=F$:Z$(COU,2)=F$
2440 COU=COU+1
2450 IF COU=101 THEN COU=1
2460 IF PLA=1 THEN PLA=2:GOSUB 3650
2470 RETURN 1160
2480 REM <<<< CONVERTER >>>>
2490 F=ASC(LEFT$(F$,1))
2500 F=F-64
2510 F1=9-VAL(RIGHT$(F$,1))
2520 S=ASC(LEFT$(S$,1))
2530 S=S-64
2540 S1=9-VAL(RIGHT$(S$,1))
2550 RETURN
2560 F$=CHR$(F+64)+STR$(9-F1)
2570 S$=CHR$(S+64)+STR$(9-S1)
2580 Z$(COU,1)=F$
2590 Z$(COU,2)=S$
2600 COU=COU+1:RETURN
2610 REM <<<< VALIDAR >>>>
2620 GOSUB 2490
2630 CHE=1
2640 C$=M$(F1,F):D$=M$(S1,S)
2650 IF C$="0" THEN RETURN
2660 IF C$>"Z" AND PLA=1 THEN RETURN
2670 IF C$<"a" AND PLA=2 THEN RETURN
2680 IF D$="0" THEN 2710
2690 IF D$>"Z" AND PLA=2 THEN RETURN
2700 IF D$<"a" AND PLA=1 THEN RETURN
2710 IF ASC(C$)>ASC("Z") THEN C$=CHR$(ASC(C$)-32)
2720 IF ASC(D$)>ASC("Z") THEN D$=CHR$(ASC(D$)-32)
2730 IF D$="K" THEN RETURN
2740 IF C$="P" THEN 2850
2750 IF C$="R" THEN 2980
2760 IF C$="T" THEN 3010
2770 IF C$="B" THEN 3120
2780 IF C$="Q" THEN 3170
2790 IF C$="K" THEN 3230
2800 CHE=0
2810 IF C$="K" OR C$="P" OR C$="T" THEN RETURN
2820 GOSUB 3540
2830 RETURN
2840 REM <<<< PEAO >>>>
2850 IF PLA=2 AND F1>S1 THEN RETURN
2860 IF PLA=1 AND S1>F1 THEN RETURN
2870 DIS=SGN(S1-F1)*(S1-F1):IF DIS=1 THEN 2930
2880 IF DIS>2 THEN RETURN
2890 IF S<>F THEN RETURN
2900 IF PLA=2 AND F1=2 AND M$(3,F)="0" THEN 2960
2910 IF PLA=1 AND F1=7 AND M$(6,F)="0" THEN 2960
2920 RETURN
2930 IF S=F AND D$="0" THEN 2960
2940 IF SGN(S-F)*(S-F)=1 AND D$<>"0" THEN 2960
2950 RETURN
2960 GOTO 2800
2970 REM <<<< TORRE >>>>
2980 IF F1<>S1 AND F<>S THEN RETURN
2990 GOTO 2800
3000 REM <<<< CAVALO >>>>
3010 IF S1=F1+2 AND S=F-1 THEN 3100
3020 IF S1=F1+2 AND S=F+1 THEN 3100
3030 IF S1=F1-2 AND S=F-1 THEN 3100
3040 IF S1=F1-2 AND S=F+1 THEN 3100
3050 IF S1=F1+1 AND S=F-2 THEN 3100
3060 IF S1=F1+1 AND S=F+2 THEN 3100
3070 IF S1=F1-1 AND S=F-2 THEN 3100
3080 IF S1=F1-1 AND S=F+2 THEN 3100
3090 RETURN
3100 GOTO 2800
3110 REM <<<< BISPO >>>>
3120 XD=F-S:XD=SGN(XD)*XD
3130 YD=F1-S1:YD=SGN(YD)*YD
3140 IF XD<>YD THEN RETURN
3150 GOTO 2800
3160 REM <<<< DAMA >>>>
3170 XD=F-S:XD=SGN(XD)*XD
3180 YD=F1-S1:YD=SGN(YD)*YD
3190 IF XD=YD THEN 3210
3200 IF F1<>S1 AND F<>S THEN RETURN
3210 GOTO 2800
3220 REM <<<< REI >>>>
3230 IF SGN(F1-S1)*(F1-S1)<>1 AND SGN(F-S)*(F-S)<>1 THEN RETURN
3240 GOTO 2800
3250 REM <<<< ROQUE >>>>
3260 PRINT "C";
3270 A=ASC(INPUT$(1)):A=A AND 223
3280 IF A<>68 AND A<>69 THEN 3270
3290 A$=CHR$(A):PRINT A$;
3300 N$="C"+A$:CAS=1:RETURN
3310 REM <<<< MOVIMENTO DE ROQUE >>>>
3320 S$="A8":A$=RIGHT$(F$,1):GOSUB 2490:CHEC=1
3330 IF (PLA=1 AND A$="E" AND M$(8,1)<>"R") OR (PLA=1 AND A$="D" AND M$(8,8)<>"R") THEN RETURN
3340 IF (PLA=2 AND A$="E" AND M$(1,1)<>"r") OR (PLA=2 AND A$="D" AND M$(1,8)<>"r") THEN RETURN
3350 IF PLA=2 AND M$(1,5)<>"k" THEN RETURN
3360 IF PLA=1 AND M$(8,5)<>"K" THEN RETURN
3370 AU=1:EN=7:IF PLA=1 THEN LIN=8 ELSE LIN=1
3380 IF A$="E" THEN AU=-1:EN=2
3390 FOR N=5+AU TO EN STEP AU
3400 IF M$(LIN,N)<>"0" THEN N=EN:RETURN
3410 NEXT N
3420 PLAY "l8cdegfeceg"
3430 F1=LIN:F=5+AU:S1=F1:S=EN
3440 IF AU=-1 THEN S=S+1
3450 M$(F1,F)="R":M$(S1,S)="K"
3460 M$(F1,5)="0":M$(S1,EN+AU)="0"
3470 IF LIN=1 THEN M$(F1,F)="r":M$(S1,S)="k"
3480 Z$(COU,1)="CC":Z$(COU,2)="CC":COU=COU+1
3490 FOR F=1 TO 8
3500 RO=F1:CR=F:GOSUB 2190
3510 NEXT F
3520 CHEC=0:RETURN
3530 REM <<<< VERIFICAR CAMINHO >>>>
3540 ND=0:MD=0
3550 IF F1>S1 THEN ND=-1
3560 IF S1>F1 THEN ND=1
3570 IF F>S THEN MD=-1
3580 IF S>F THEN MD=1
3590 CN=F1:CM=F
3600 CN=CN+ND:CM=CM+MD
3610 IF CN=S1 AND CM=S THEN RETURN
3620 IF M$(CN,CM)<>"0" THEN CHE=1:RETURN
3630 GOTO 3600
3640 REM <<<< VEZ >>>>
3650 GOSUB 1740
3660 LOCATE 20,11:PRINT "         "
3670 LOCATE 21,12:PRINT "      "
3680 IF CAS=1 THEN GOSUB 3320 ELSE GOSUB 2620
3690 IF CHE=0 THEN 3730
3700 LOCATE 20,11:PRINT "MOVIMENTO"
3710 LOCATE 21,12:PRINT "ILEGAL"
3720 GOTO 3650
3730 IF CAS=1 THEN 3780
3740 Z$(COU,1)=F$
3750 Z$(COU,2)=S$
3760 COU=COU+1:IF COU=101 THEN COU=1
3770 GOSUB 2080
3780 RETURN
3790 REM <<<< JOGADA COMPLETA >>>>
3800 PLA=1
3810 GOSUB 3650
3820 PLA=2
3830 GOSUB 3650
3840 RETURN
3850 REM <<<< MONTAR TABULEIRO >>>>
3860 X=2:Y=2
3870 FOR N=1 TO 8
3880 FOR M=1 TO 8
3890 M$(N,M)="0":X$(N,M)="0"
3900 GOSUB 4040
3910 X=X+2
3920 NEXT M
3930 X=2:Y=Y+2
3940 NEXT N
3950 LOCATE 20,18:PRINT "Tudo"
3960 LOCATE 20,19:PRINT "Certo?"
3970 LOCATE 20,20:PRINT "    "
3980 A$=INKEY$:IF A$="" THEN 3980
3990 IF A$>"Z" THEN A$=CHR$(A$)-32)
4000 IF A$="S" THEN CHE=0:LOCATE 20,18:PRINT "    ":LOCATE 20,19:PRINT "      ":RETURN
4010 IF A$="N" THEN 3860
4020 GOTO 3980
4030 REM <<<< ENTRADA DE DADOS >>>>
4040 LOCATE X,Y:PRINT "?";
4050 D$=INKEY$:IF D$="" THEN GOTO 4050
4060 IF D$=" " THEN D$="0":GOTO 4170
4070 IF D$>"Z" THEN C$=CHR$(ASC(D$)-32) ELSE C$=D$
4080 IF C$<>"T" AND C$<>"C" AND C$<>"B" AND C$<>"D" AND C$<>"R" AND C$<>"P" THEN GOTO 4050
4090 IF D$="r" THEN D$="k"
4100 IF D$="R" THEN D$="K"
4110 IF D$="t" THEN D$="r"
4120 IF D$="T" THEN D$="R"
4130 IF D$="d" THEN D$="q"
4140 IF D$="D" THEN D$="Q"
4150 IF D$="c" THEN D$="t"
4160 IF D$="C" THEN D$="T"
4170 PLAY "l8c":M$(N,M)=D$
4180 X$(N,M)=D$
4190 C$=D$
4200 LOCATE X,Y
4210 GOSUB 1550
4220 RETURN
4230 REM <<<< REPETIR >>>>
4240 PLAY "l8cegceg":COU=0:PLA=1
4250 FOR N=1 TO 8:FOR M=1 TO 8
4260 M$(N,M)=X$(N,M)
4270 NEXT M:NEXT N
4280 GOSUB 4510:GOSUB 1420
4290 COU=COU+1
4300 IF Z$(COU,1)="FF" THEN 4480
4310 F$=Z$(COU,1):S$=Z$(COU,2)
4320 GOSUB 2490:GOSUB 2080
4330 COU=COU+1
4340 IF Z$(COU,1)="CC" THEN 4290
4350 A$=INKEY$
4360 IF A$="" THEN 4350
4370 PLA=2:PLAY "l8de"
4380 IF A$=CHR$(198) THEN 4480
4390 IF Z$(COU,1)="FF" THEN 4480
4400 F$=Z$(COU,1):S$=Z$(COU,2)
4410 GOSUB 2490:GOSUB 2080
4420 IF Z$(COU+1,1)="CC" THEN COU=COU+2:GOTO 4390
4430 A$=INKEY$
4440 IF A$="" THEN 4430
4450 PLA=1:PLAY "l8de"
4460 IF A$=CHR$(198) THEN 4480
4470 GOTO 4290
4480 IF PLA=1 THEN 1160
4490 GOSUB 3650:GOTO 1160
4500 REM <<<< TELA >>>>
4510 COLOR 15,4,4
4520 FOR Y=2 TO 16 STEP 2
4530 LOCATE 1,Y:PRINT CHR$(220);BD$;CHR$(220)
4540 LOCATE 1,Y+1:PRINT CHR$(220);BD$;CHR$(220)
4550 BD$=RIGHT$(BD$,14)+LEFT$(BD$,2)
4560 NEXT Y
4570 LOCATE 1,1:PRINT CHR$(215);STRING$(16,CHR$(219));CHR$(216)
4580 LOCATE 1,18:PRINT CHR$(217);STRING$(16,CHR$(219));CHR$(218)
4590 FOR Y=2 TO 16 STEP 2
4600 LOCATE Y,0:PRINT CHR$((Y/2)+96)
4610 LOCATE 19,Y:PRINT CHR$(48+9-Y/2)
4620 NEXT Y
4630 LOCATE 21,0:PRINT "XADREZ"
4640 LOCATE 21,1:PRINT "======"
4650 LOCATE 21,6:PRINT "De  :"
4660 LOCATE 21,8:PRINT "Para:"
4670 FOR X=1 TO 7 STEP 2:FOR Y=1 TO 7 STEP 2
4680 C(X,Y)=1:C(X+1,Y)=0
4690 C(X,Y+1)=0:C(X+1,Y+1)=1
4700 NEXT Y,X
4710 RETURN
4720 REM <<<< SALVAR >>>>
4730 Z$(COU,1)="FF":G$="":H$="":I$=""
4740 LOCATE 0,20:PRINT "     Espere 7 minutos               "
4750 FOR N=1 TO 8:FOR M=1 TO 8
4760 G$=G$+M$(N,M)+X$(N,M)
4770 NEXT M,N
4780 FOR N=1 TO 100
4790 H$=H$+Z$(N,1):I$=I$+Z$(N,2)
4800 NEXT N
4810 H$=H$+STR$(COU):BEEP
4820 LOCATE 2,20:PRINT "Cassete ou Disquete (C/D)?"
4830 SS$=INPUT$(1):IF SS$="C" OR SS$="c" THEN 4840 ELSE 4850
4840 OPEN "cas:xadrez" FOR OUTPUT AS 1:GOTO 4880
4850 LOCATE 2,20:PRINT "Drive A ou Drive B (A/B)?"
4860 DD$=INPUT$(1):IF DD$="A" OR DD$="a" THEN OPEN "a:xadrez" FOR OUTPUT AS 1:GOTO 4880
4870 IF DD$="B" OR DD$="b" THEN OPEN "b:xadrez" FOR OUTPUT AS 1 ELSE GOTO 4820
4880 PRINT#1,G$:PRINT#1,H$:PRINT#1,I$
4890 CLOSE:BEEP:BEEP:LOCATE 0,20:PRINT SPACE$(30):RETURN
4900 REM <<<< CARREGAR >>>>
4910 LOCATE 0,20:PRINT "  Cassete ou Disquete (C/D)?  "
4920 SS$=INPUT$(1):IF SS$="C" OR SS$="c" THEN 4930 ELSE 4940
4930 OPEN "cas:xadrez" FOR INPUT AS 1:GOTO 4970
4940 LOCATE 2,20:PRINT "Drive A ou Drive B (A/B)?"
4950 DD$=INPUT$(1):IF DD$="A" OR DD$="a" THEN OPEN "a:xadrez" FOR INPUT AS 1: GOTO 4970
4960 IF DD$="B" OR DD$="b" THEN OPEN "b:xadrez" FOR INPUT AS 1 ELSE GOTO 4940
4970 IF EOF(1) THEN LOCATE 2,20:PRINT " Nao ha nenhum jogo salvo  ":CLOSE:FOR KK=1 TO 200:NEXT KK:LOCATE 2,20:PRINT SPACE$(27):RETURN
4980 G$="":H$="":I$=""
4990 LINE INPUT#1,G$
5000 LINE INPUT#1,H$
5010 LINE INPUT#1,I$
5020 CLOSE
5030 LOCATE 2,20:PRINT "    Espere 7 minutos          "
5040 FOR N=1 TO 8:FOR M=1 TO 8
5050 M$(N,M)=LEFT$(G$,1):X$(N,M)=MID$(G$,2,1)
5060 G$=RIGHT$(G$,LEN(G$)-2)
5070 NEXT M,N
5080 FOR N=1 TO 100
5090 Z$(N,1)=LEFT$(H$,2)
5100 H$=RIGHT$(H$,LEN(H$)-2)
5110 Z$(N,2)=LEFT$(I$,2)
5120 I$=RIGHT$(I$,LEN(I$)-2)
5130 NEXT N
5140 COU=VAL(H$)
5150 A$=CHR$(198)
5160 LOCATE 2,20:PRINT SPACE$(30)
5170 RETURN
5180 REM <<<< INICIALIZACAO >>>>
5190 K$=CHR$(182)+CHR$(183)
5200 K1$=CHR$(192)+CHR$(193)
5210 K2$=CHR$(150)+CHR$(151)
5220 K3$=CHR$(160)+CHR$(161)
5230 K4$=CHR$(166)+CHR$(167)
5240 K5$=CHR$(176)+CHR$(177)
5250 K6$=CHR$(198)+CHR$(199)
5260 K7$=CHR$(208)+CHR$(209)
5270 Q$=CHR$(184)+CHR$(185)
5280 Q1$=CHR$(192)+CHR$(193)
5290 Q2$=CHR$(152)+CHR$(153)
5300 Q3$=CHR$(160)+CHR$(161)
5310 Q4$=CHR$(168)+CHR$(169)
5320 Q5$=CHR$(176)+CHR$(177)
5330 Q6$=CHR$(200)+CHR$(201)
5340 Q7$=CHR$(208)+CHR$(209)
5350 B$=CHR$(186)+CHR$(187)
5360 B1$=CHR$(192)+CHR$(193)
5370 B2$=CHR$(154)+CHR$(155)
5380 B3$=CHR$(160)+CHR$(161)
5390 B4$=CHR$(170)+CHR$(171)
5400 B5$=CHR$(176)+CHR$(177)
5410 B6$=CHR$(202)+CHR$(203)
5420 B7$=CHR$(208)+CHR$(209)
5430 T$=CHR$(188)+CHR$(189)
5440 T1$=CHR$(192)+CHR$(193)
5450 T2$=CHR$(156)+CHR$(157)
5460 T3$=CHR$(160)+CHR$(161)
5470 T4$=CHR$(172)+CHR$(173)
5480 T5$=CHR$(176)+CHR$(177)
5490 T6$=CHR$(204)+CHR$(205)
5500 T7$=CHR$(208)+CHR$(209)
5510 R$=CHR$(190)+CHR$(191)
5520 R1$=CHR$(192)+CHR$(193)
5530 R2$=CHR$(158)+CHR$(159)
5540 R3$=CHR$(160)+CHR$(161)
5550 R4$=CHR$(174)+CHR$(175)
5560 R5$=CHR$(176)+CHR$(177)
5570 R6$=CHR$(206)+CHR$(207)
5580 R7$=CHR$(208)+CHR$(209)
5590 P$=CHR$(194)+CHR$(195)
5600 P1$=CHR$(196)+CHR$(197)
5610 P2$=CHR$(162)+CHR$(163)
5620 P3$=CHR$(164)+CHR$(165)
5630 P4$=CHR$(178)+CHR$(179)
5640 P5$=CHR$(180)+CHR$(181)
5650 P6$=CHR$(210)+CHR$(211)
5660 P7$=CHR$(212)+CHR$(213)
5670 BD$=STRING$(2,CHR$(214))+SPACE$(2)
5680 BD$=BD$+BD$:BD$=BD$+BD$
5690 FOR N=1 TO 100
5700 Z$(N,1)=SPACE$(2):Z$(N,2)=SPACE$(2)
5710 NEXT N
5720 RETURN
5730 REM <<<< DEFINICAO DAS FORMAS >>>>
5740 FOR CH=150 TO 181
5750 FOR N=0 TO 7
5760 READ B
5770 IF CH>=166 THEN B=B XOR 255
5780 VPOKE 8*CH+N,B
5790 NEXT N
5800 IF CH=165 THEN RESTORE
5810 NEXT CH:RESTORE 6120
5820 FOR CH=182 TO 213
5830 FOR N=0 TO 7
5840 READ B
5850 IF CH>=198 THEN B=B XOR 255
5860 VPOKE 8*CH+N,B
5870 NEXT N
5880 IF CH=197 THEN RESTORE 6120
5890 NEXT CH
5900 FOR CH=215 TO 220
5910 FOR N=0 TO 7
5920 READ B:VPOKE 8*CH+N,B
5930 NEXT N,CH
5940 FOR A=0 TO 7:VPOKE 8*214+A,255:NEXT A
5950 RETURN
5960 DATA 1,3,29,63,63,57,28,7
5970 DATA 0,128,56,252,252,156,56,224
5980 DATA 1,19,81,91,109,55,27,15
5990 DATA 128,200,138,218,182,236,216,240
6000 DATA 1,1,7,14,28,28,14,7
6010 DATA 128,128,224,240,120,120,240,224
6020 DATA 0,0,3,7,15,31,9,3
6030 DATA 0,192,64,224,176,208,232,120
6040 DATA 0,0,25,25,25,31,9,3
6050 DATA 0,0,152,152,152,248,240,240
6060 DATA 7,7,4,31,16,127,64,127
6070 DATA 224,224,224,248,120,254,30,254
6080 DATA 0,0,0,0,0,3,7,7
6090 DATA 0,0,0,0,0,192,224,224
6100 DATA 5,4,3,15,8,31,16,31
6110 DATA 224,224,192,240,112,248,56,248
6120 DATA 253,227,221,191,191,187,222,231
6130 DATA 127,131,59,253,253,157,59,231
6140 DATA 237,147,85,91,109,173,219,239
6150 DATA 183,201,170,218,182,239,219,247
6160 DATA 253,249,247,238,220,220,238,247
6170 DATA 191,159,239,247,251,251,247,239
6180 DATA 255,254,249,247,239,223,223,243
6190 DATA 63,223,95,239,183,215,235,123
6200 DATA 255,230,217,217,217,223,236,239
6210 DATA 255,103,155,155,155,251,247,247
6220 DATA 247,247,228,223,144,127,64,127
6230 DATA 239,239,231,251,121,254,30,254
6240 DATA 255,255,255,255,252,251,247,247
6250 DATA 255,255,255,255,63,223,239,239
6260 DATA 245,250,243,239,232,239,208,223
6270 DATA 239,239,207,247,119,251,59,251
6280 DATA 0,0,63,32,47,40,40,40
6290 DATA 0,0,248,8,224,40,40,40
6300 DATA 40,40,47,32,63,0,0,0
6310 DATA 40,40,224,8,248,0,0,0
6320 DATA 0,0,255,0,255,0,0,0
6330 DATA 40,40,40,40,40,40,40,40
6340 DATA R,T,B,Q,K,B,T,R

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

1000 REM <<<< XADREZ - ISSI/BOOTSY/ANDY >>>>

1010 SCREEN 1,0,0:CLEAR 2000

1020 COLOR 15,4,4:KEY OFF

1030 DIM C(8,8),M$(8,8),X$(8,8),Z$(100,2)

1040 LOCATE 10,10:PRINT "Espere":LOCATE 8,12:PRINT "15 Segundos"

1050 GOSUB 5740:GOSUB 5190

1060 GOSUB 4510

1070 LOCATE 1,19:PRINT "Voce quer montar"

1080 LOCATE 1,20:PRINT "o tabuleiro (S/N)?"

1090 A$=INPUT$(1):BEEP

1100 LOCATE 1,19:PRINT STRING$(16," ")

1110 LOCATE 1,20:PRINT STRING$(18," ")

1120 IF A$="s" OR A$="S" THEN GOSUB 3860:IF CHE=0 THEN 1150 ELSE 1060

1130 IF A$="n" OR A$="N" THEN 1140 ELSE 1070

1140 GOSUB 1200:GOSUB 1420

1150 COU=1

1160 GOSUB 3800

1170 GOTO 1160

1180 END

1190 REM <<<< INICIOI DO JOGO >>>>

1200 FOR N=1 TO 8

1210 FOR M=1 TO 8

1220 M$(N,M)="0"

1230 X$(N,M)="0"

1240 NEXT M

1250 NEXT N

1260 FOR N=1 TO 8

1270 M$(2,N)="p":X$(2,N)="p"

1280 M$(7,N)="P":X$(7,N)="P"

1290 NEXT N

1300 RESTORE 6340

1310 FOR N=1 TO 8

1320 READ A$

1330 M$(8,N)=A$

1340 X$(8,N)=A$

1350 C$=CHR$(ASC(A$)+32):A$=C$

1360 M$(1,N)=A$

1370 X$(1,N)=A$

1380 NEXT N

1390 GOSUB 5690

1400 RETURN

1410 REM <<<< DESENHAR PECAS >>>>

1420 X=2:Y=2

1430 FOR N=1 TO 8

1440 FOR M=1 TO 8

1450 C$=M$(N,M)

1460 IF C$="0" THEN 1490

1470 LOCATE X,Y

1480 GOSUB 1550

1490 X=X+2

1500 NEXT M

1510 X=2:Y=Y+2

1520 NEXT N

1530 RETURN

1540 REM <<<< PECA >>>>

1550 LOCATE X,Y:XX=X:X=X/2:YY=Y:Y=Y/2:IF C$="K" AND C(X,Y)=1 THEN D$=K$:D1$=K1$ ELSE IF C$="K" THEN D$=K2$:D1$=K3$

1560 IF C$="k" AND C(X,Y)=1 THEN D$=K4$:D1$=K5$ ELSE IF C$="k" THEN D$=K6$:D1$=K7$

1570 IF C$="Q" AND C(X,Y)=1 THEN D$=Q$:D1$=Q5$ ELSE IF C$="Q" THEN D$=Q2$:D1$=Q3$

1580 IF C$="q" AND C(X,Y)=1 THEN D$=Q4$:D1$=Q5$ ELSE IF C$="q" THEN D$=Q6$:D1$=Q7$

1590 IF C$="B" AND C(X,Y)=1 THEN D$=B$:D1$=B1$ ELSE IF C$="B" THEN D$=B2$:D1$=B3$

1600 IF C$="b" AND C(X,Y)=1 THEN D$=B4$:D1$=B5$ ELSE IF C$="b" THEN D$=B6$:D1$=B7$

1610 IF C$="T" AND C(X,Y)=1 THEN D$=T$:D1$=T1$ ELSE IF C$="T" THEN D$=T2$:D1$=T3$

1620 IF C$="t" AND C(X,Y)=1 THEN D$=T4$:D1$=T5$ ELSE IF C$="t" THEN D$=T6$:D1$=T7$

1630 IF C$="R" AND C(X,Y)=1 THEN D$=R$:D1$=R1$ ELSE IF C$="R" THEN D$=R2$:D1$=R3$

1640 IF C$="r" AND C(X,Y)=1 THEN D$=R4$:D1$=R5$ ELSE IF C$="r" THEN D$=R6$:D1$=R7$

1650 IF C$="P" AND C(X,Y)=1 THEN D$=P$:D1$=P1$ ELSE IF C$="P" THEN D$=P2$:D1$=P3$

1660 IF C$="p" AND C(X,Y)=1 THEN D$=P4$:D1$=P5$ ELSE IF C$="p" THEN D$=P6$:D1$=P7$

1670 IF C$="0" AND C(X,Y)=1 THEN D$=CHR$(214)+CHR$(214):D1$=D$ ELSE IF C$="0" THEN D$=" ":D1$=D$

1680 PRINT D$;

1690 X=XX:Y=YY

1700 LOCATE X,Y+1

1710 PRINT D1$;

1720 RETURN

1730 REM <<<< ENTRADA DE DADOS >>>>

1740 LOCATE 21,3:IF PLA=1 THEN PRINT "Brancas" ELSE PRINT "Pretas "

1750 LOCATE 26,6:PRINT " "

1760 LOCATE 26,8:PRINT " "

1770 LOCATE 26,6

1780 GOSUB 1850

1790 F$=N$

1800 IF CAS=1 THEN RETURN

1810 LOCATE 26,8

1820 GOSUB 1850

1830 S$=N$

1840 RETURN

1850 N$="":CAS=0

1860 A$=INPUT$(1)

1870 IF A$=CHR$(196) THEN GOSUB 2030

1880 IF A$="R" OR A$="r" THEN GOSUB 3260

1890 IF CAS=1 THEN RETURN

1900 IF A$=CHR$(188) THEN GOSUB 4910:LOCATE 26,6

1910 IF A$=CHR$(210) THEN GOSUB 4730:LOCATE 26,6

1920 IF A$=CHR$(156) THEN GOTO 2320

1930 A$=CHR$(ASC(A$) AND 223)

1940 IF A$=CHR$(198) AND COU>1 THEN Z$(COU,1)="FF":GOTO 4240

1950 IF A$<"A" OR A$>"H" THEN GOTO 1860

1960 PLAY "l8c":N$=A$:PRINT N$;

1970 A$=INPUT$(1)

1980 IF A$=CHR$(8) THEN PRINT CHR$(127);:GOTO 1850

1990 IF A$<"1" OR A$>"9" THEN 1970

2000 PLAY "l8g":N$=N$+A$:PRINT A$;

2010 RETURN

2020 REM <<<< FIM DO JOGO >>>>

2030 LOCATE 0,20:PRINT " Quer salvar a partida (S/N)? "

2040 SS$=INPUT$(1):IF SS$="S" OR SS$="s" THEN A$=CHR$(210):RETURN

2050 IF SS$="N" OR SS$="n" THEN LOCATE 0,20:PRINT " Quer jogar de novo (S/N)? "

2060 RR$=INPUT$(1):IF RR$="S" OR RR$="s" THEN RUN ELSE SCREEN 0:STOP

2070 REM <<<< MOVIMENTO >>>>

2080 GOSUB 2490

2090 CH$=M$(F1,F)

2100 M$(S1,S)=M$(F1,F)

2110 IF PLA=1 AND F1=1 AND M$(F1,F)="p" THEN M$(F1,F)="q"

2120 IF PLA=2 AND F1=8 AND M$(F1,F)="P" THEN M$(F1,F)="Q"

2130 C$=CH$

2140 RO=S1:CR=S:GOSUB 2190

2150 M$(F1,F)="0"

2160 RO=F1:CR=F:GOSUB 2190

2170 M$(F1,F)="0"

2180 RETURN

2190 X=2:Y=2

2200 FOR N=1 TO 8

2210 FOR M=1 TO 8

2220 IF N=RO AND M=CR THEN GOSUB 2280

2230 X=X+2

2240 NEXT M

2250 X=2:Y=Y+2

2260 NEXT N

2270 RETURN

2280 C$=M$(F1,F):LOCATE X,Y:GOSUB 1550

2290 RETURN

2300 RETURN

2310 REM <<<< REMOVER PE€A >>>>

2320 LOCATE 20,19:PRINT "Peca"

2330 LOCATE 20,20:F$=INPUT$(1):A$=CHR$(ASC(F$) AND 223)

2340 IF A$<"A" OR A$>"H" THEN GOTO 2330 ELSE PRINT A$

2350 LOCATE 21,20:G$=INPUT$(1)

2360 IF G$<"1" OR G$>"9" THEN GOTO 2350 ELSE PRINT G$

2370 F$=A$+G$

2380 LOCATE 20,19:PRINT " "

2390 LOCATE 26,20:PRINT " "

2400 S$="A1":GOSUB 2490

2410 M$(F1,F)="0"

2420 RO=F1:CR=F:GOSUB 2190

2430 Z$(COU,1)=F$:Z$(COU,2)=F$

2440 COU=COU+1

2450 IF COU=101 THEN COU=1

2460 IF PLA=1 THEN PLA=2:GOSUB 3650

2470 RETURN 1160

2480 REM <<<< CONVERTER >>>>

2490 F=ASC(LEFT$(F$,1))

2500 F=F-64

2510 F1=9-VAL(RIGHT$(F$,1))

2520 S=ASC(LEFT$(S$,1))

2530 S=S-64

2540 S1=9-VAL(RIGHT$(S$,1))

2550 RETURN

2560 F$=CHR$(F+64)+STR$(9-F1)

2570 S$=CHR$(S+64)+STR$(9-S1)

2580 Z$(COU,1)=F$

2590 Z$(COU,2)=S$

2600 COU=COU+1:RETURN

2610 REM <<<< VALIDAR >>>>

2620 GOSUB 2490

2630 CHE=1

2640 C$=M$(F1,F):D$=M$(S1,S)

2650 IF C$="0" THEN RETURN

2660 IF C$>"Z" AND PLA=1 THEN RETURN

2670 IF C$<"a" AND PLA=2 THEN RETURN

2680 IF D$="0" THEN 2710

2690 IF D$>"Z" AND PLA=2 THEN RETURN

2700 IF D$<"a" AND PLA=1 THEN RETURN

2710 IF ASC(C$)>ASC("Z") THEN C$=CHR$(ASC(C$)-32)

2720 IF ASC(D$)>ASC("Z") THEN D$=CHR$(ASC(D$)-32)

2730 IF D$="K" THEN RETURN

2740 IF C$="P" THEN 2850

2750 IF C$="R" THEN 2980

2760 IF C$="T" THEN 3010

2770 IF C$="B" THEN 3120

2780 IF C$="Q" THEN 3170

2790 IF C$="K" THEN 3230

2800 CHE=0

2810 IF C$="K" OR C$="P" OR C$="T" THEN RETURN

2820 GOSUB 3540

2830 RETURN

2840 REM <<<< PEAO >>>>

2850 IF PLA=2 AND F1>S1 THEN RETURN

2860 IF PLA=1 AND S1>F1 THEN RETURN

2870 DIS=SGN(S1-F1)*(S1-F1):IF DIS=1 THEN 2930

2880 IF DIS>2 THEN RETURN

2890 IF S<>F THEN RETURN

2900 IF PLA=2 AND F1=2 AND M$(3,F)="0" THEN 2960

2910 IF PLA=1 AND F1=7 AND M$(6,F)="0" THEN 2960

2920 RETURN

2930 IF S=F AND D$="0" THEN 2960

2940 IF SGN(S-F)*(S-F)=1 AND D$<>"0" THEN 2960

2950 RETURN

2960 GOTO 2800

2970 REM <<<< TORRE >>>>

2980 IF F1<>S1 AND F<>S THEN RETURN

2990 GOTO 2800

3000 REM <<<< CAVALO >>>>

3010 IF S1=F1+2 AND S=F-1 THEN 3100

3020 IF S1=F1+2 AND S=F+1 THEN 3100

3030 IF S1=F1-2 AND S=F-1 THEN 3100

3040 IF S1=F1-2 AND S=F+1 THEN 3100

3050 IF S1=F1+1 AND S=F-2 THEN 3100

3060 IF S1=F1+1 AND S=F+2 THEN 3100

3070 IF S1=F1-1 AND S=F-2 THEN 3100

3080 IF S1=F1-1 AND S=F+2 THEN 3100

3090 RETURN

3100 GOTO 2800

3110 REM <<<< BISPO >>>>

3120 XD=F-S:XD=SGN(XD)*XD

3130 YD=F1-S1:YD=SGN(YD)*YD

3140 IF XD<>YD THEN RETURN

3150 GOTO 2800

3160 REM <<<< DAMA >>>>

3170 XD=F-S:XD=SGN(XD)*XD

3180 YD=F1-S1:YD=SGN(YD)*YD

3190 IF XD=YD THEN 3210

3200 IF F1<>S1 AND F<>S THEN RETURN

3210 GOTO 2800

3220 REM <<<< REI >>>>

3230 IF SGN(F1-S1)*(F1-S1)<>1 AND SGN(F-S)*(F-S)<>1 THEN RETURN

3240 GOTO 2800

3250 REM <<<< ROQUE >>>>

3260 PRINT "C";

3270 A=ASC(INPUT$(1)):A=A AND 223

3280 IF A<>68 AND A<>69 THEN 3270

3290 A$=CHR$(A):PRINT A$;

3300 N$="C"+A$:CAS=1:RETURN

3310 REM <<<< MOVIMENTO DE ROQUE >>>>

3320 S$="A8":A$=RIGHT$(F$,1):GOSUB 2490:CHEC=1

3330 IF (PLA=1 AND A$="E" AND M$(8,1)<>"R") OR (PLA=1 AND A$="D" AND M$(8,8)<>"R") THEN RETURN

3340 IF (PLA=2 AND A$="E" AND M$(1,1)<>"r") OR (PLA=2 AND A$="D" AND M$(1,8)<>"r") THEN RETURN

3350 IF PLA=2 AND M$(1,5)<>"k" THEN RETURN

3360 IF PLA=1 AND M$(8,5)<>"K" THEN RETURN

3370 AU=1:EN=7:IF PLA=1 THEN LIN=8 ELSE LIN=1

3380 IF A$="E" THEN AU=-1:EN=2

3390 FOR N=5+AU TO EN STEP AU

3400 IF M$(LIN,N)<>"0" THEN N=EN:RETURN

3410 NEXT N

3420 PLAY "l8cdegfeceg"

3430 F1=LIN:F=5+AU:S1=F1:S=EN

3440 IF AU=-1 THEN S=S+1

3450 M$(F1,F)="R":M$(S1,S)="K"

3460 M$(F1,5)="0":M$(S1,EN+AU)="0"

3470 IF LIN=1 THEN M$(F1,F)="r":M$(S1,S)="k"

3480 Z$(COU,1)="CC":Z$(COU,2)="CC":COU=COU+1

3490 FOR F=1 TO 8

3500 RO=F1:CR=F:GOSUB 2190

3510 NEXT F

3520 CHEC=0:RETURN

3530 REM <<<< VERIFICAR CAMINHO >>>>

3540 ND=0:MD=0

3550 IF F1>S1 THEN ND=-1

3560 IF S1>F1 THEN ND=1

3570 IF F>S THEN MD=-1

3580 IF S>F THEN MD=1

3590 CN=F1:CM=F

3600 CN=CN+ND:CM=CM+MD

3610 IF CN=S1 AND CM=S THEN RETURN

3620 IF M$(CN,CM)<>"0" THEN CHE=1:RETURN

3630 GOTO 3600

3640 REM <<<< VEZ >>>>

3650 GOSUB 1740

3660 LOCATE 20,11:PRINT " "

3670 LOCATE 21,12:PRINT " "

3680 IF CAS=1 THEN GOSUB 3320 ELSE GOSUB 2620

3690 IF CHE=0 THEN 3730

3700 LOCATE 20,11:PRINT "MOVIMENTO"

3710 LOCATE 21,12:PRINT "ILEGAL"

3720 GOTO 3650

3730 IF CAS=1 THEN 3780

3740 Z$(COU,1)=F$

3750 Z$(COU,2)=S$

3760 COU=COU+1:IF COU=101 THEN COU=1

3770 GOSUB 2080

3780 RETURN

3790 REM <<<< JOGADA COMPLETA >>>>

3800 PLA=1

3810 GOSUB 3650

3820 PLA=2

3830 GOSUB 3650

3840 RETURN

3850 REM <<<< MONTAR TABULEIRO >>>>

3860 X=2:Y=2

3870 FOR N=1 TO 8

3880 FOR M=1 TO 8

3890 M$(N,M)="0":X$(N,M)="0"

3900 GOSUB 4040

3910 X=X+2

3920 NEXT M

3930 X=2:Y=Y+2

3940 NEXT N

3950 LOCATE 20,18:PRINT "Tudo"

3960 LOCATE 20,19:PRINT "Certo?"

3970 LOCATE 20,20:PRINT " "

3980 A$=INKEY$:IF A$="" THEN 3980

3990 IF A$>"Z" THEN A$=CHR$(A$)-32)

4000 IF A$="S" THEN CHE=0:LOCATE 20,18:PRINT " ":LOCATE 20,19:PRINT " ":RETURN

4010 IF A$="N" THEN 3860

4020 GOTO 3980

4030 REM <<<< ENTRADA DE DADOS >>>>

4040 LOCATE X,Y:PRINT "?";

4050 D$=INKEY$:IF D$="" THEN GOTO 4050

4060 IF D$=" " THEN D$="0":GOTO 4170

4070 IF D$>"Z" THEN C$=CHR$(ASC(D$)-32) ELSE C$=D$

4080 IF C$<>"T" AND C$<>"C" AND C$<>"B" AND C$<>"D" AND C$<>"R" AND C$<>"P" THEN GOTO 4050

4090 IF D$="r" THEN D$="k"

4100 IF D$="R" THEN D$="K"

4110 IF D$="t" THEN D$="r"

4120 IF D$="T" THEN D$="R"

4130 IF D$="d" THEN D$="q"

4140 IF D$="D" THEN D$="Q"

4150 IF D$="c" THEN D$="t"

4160 IF D$="C" THEN D$="T"

4170 PLAY "l8c":M$(N,M)=D$

4180 X$(N,M)=D$

4190 C$=D$

4200 LOCATE X,Y

4210 GOSUB 1550

4220 RETURN

4230 REM <<<< REPETIR >>>>

4240 PLAY "l8cegceg":COU=0:PLA=1

4250 FOR N=1 TO 8:FOR M=1 TO 8

4260 M$(N,M)=X$(N,M)

4270 NEXT M:NEXT N

4280 GOSUB 4510:GOSUB 1420

4290 COU=COU+1

4300 IF Z$(COU,1)="FF" THEN 4480

4310 F$=Z$(COU,1):S$=Z$(COU,2)

4320 GOSUB 2490:GOSUB 2080

4330 COU=COU+1

4340 IF Z$(COU,1)="CC" THEN 4290

4350 A$=INKEY$

4360 IF A$="" THEN 4350

4370 PLA=2:PLAY "l8de"

4380 IF A$=CHR$(198) THEN 4480

4390 IF Z$(COU,1)="FF" THEN 4480

4400 F$=Z$(COU,1):S$=Z$(COU,2)

4410 GOSUB 2490:GOSUB 2080

4420 IF Z$(COU+1,1)="CC" THEN COU=COU+2:GOTO 4390

4430 A$=INKEY$

4440 IF A$="" THEN 4430

4450 PLA=1:PLAY "l8de"

4460 IF A$=CHR$(198) THEN 4480

4470 GOTO 4290

4480 IF PLA=1 THEN 1160

4490 GOSUB 3650:GOTO 1160

4500 REM <<<< TELA >>>>

4510 COLOR 15,4,4

4520 FOR Y=2 TO 16 STEP 2

4530 LOCATE 1,Y:PRINT CHR$(220);BD$;CHR$(220)

4540 LOCATE 1,Y+1:PRINT CHR$(220);BD$;CHR$(220)

4550 BD$=RIGHT$(BD$,14)+LEFT$(BD$,2)

4560 NEXT Y

4570 LOCATE 1,1:PRINT CHR$(215);STRING$(16,CHR$(219));CHR$(216)

4580 LOCATE 1,18:PRINT CHR$(217);STRING$(16,CHR$(219));CHR$(218)

4590 FOR Y=2 TO 16 STEP 2

4600 LOCATE Y,0:PRINT CHR$((Y/2)+96)

4610 LOCATE 19,Y:PRINT CHR$(48+9-Y/2)

4620 NEXT Y

4630 LOCATE 21,0:PRINT "XADREZ"

4640 LOCATE 21,1:PRINT "======"

4650 LOCATE 21,6:PRINT "De :"

4660 LOCATE 21,8:PRINT "Para:"

4670 FOR X=1 TO 7 STEP 2:FOR Y=1 TO 7 STEP 2

4680 C(X,Y)=1:C(X+1,Y)=0

4690 C(X,Y+1)=0:C(X+1,Y+1)=1

4700 NEXT Y,X

4710 RETURN

4720 REM <<<< SALVAR >>>>

4730 Z$(COU,1)="FF":G$="":H$="":I$=""

4740 LOCATE 0,20:PRINT " Espere 7 minutos "

4750 FOR N=1 TO 8:FOR M=1 TO 8

4760 G$=G$+M$(N,M)+X$(N,M)

4770 NEXT M,N

4780 FOR N=1 TO 100

4790 H$=H$+Z$(N,1):I$=I$+Z$(N,2)

4800 NEXT N

4810 H$=H$+STR$(COU):BEEP

4820 LOCATE 2,20:PRINT "Cassete ou Disquete (C/D)?"

4830 SS$=INPUT$(1):IF SS$="C" OR SS$="c" THEN 4840 ELSE 4850

4840 OPEN "cas:xadrez" FOR OUTPUT AS 1:GOTO 4880

4850 LOCATE 2,20:PRINT "Drive A ou Drive B (A/B)?"

4860 DD$=INPUT$(1):IF DD$="A" OR DD$="a" THEN OPEN "a:xadrez" FOR OUTPUT AS 1:GOTO 4880

4870 IF DD$="B" OR DD$="b" THEN OPEN "b:xadrez" FOR OUTPUT AS 1 ELSE GOTO 4820

4880 PRINT#1,G$:PRINT#1,H$:PRINT#1,I$

4890 CLOSE:BEEP:BEEP:LOCATE 0,20:PRINT SPACE$(30):RETURN

4900 REM <<<< CARREGAR >>>>

4910 LOCATE 0,20:PRINT " Cassete ou Disquete (C/D)? "

4920 SS$=INPUT$(1):IF SS$="C" OR SS$="c" THEN 4930 ELSE 4940

4930 OPEN "cas:xadrez" FOR INPUT AS 1:GOTO 4970

4940 LOCATE 2,20:PRINT "Drive A ou Drive B (A/B)?"

4950 DD$=INPUT$(1):IF DD$="A" OR DD$="a" THEN OPEN "a:xadrez" FOR INPUT AS 1: GOTO 4970

4960 IF DD$="B" OR DD$="b" THEN OPEN "b:xadrez" FOR INPUT AS 1 ELSE GOTO 4940

4970 IF EOF(1) THEN LOCATE 2,20:PRINT " Nao ha nenhum jogo salvo ":CLOSE:FOR KK=1 TO 200:NEXT KK:LOCATE 2,20:PRINT SPACE$(27):RETURN

4980 G$="":H$="":I$=""

4990 LINE INPUT#1,G$

5000 LINE INPUT#1,H$

5010 LINE INPUT#1,I$

5020 CLOSE

5030 LOCATE 2,20:PRINT " Espere 7 minutos "

5040 FOR N=1 TO 8:FOR M=1 TO 8

5050 M$(N,M)=LEFT$(G$,1):X$(N,M)=MID$(G$,2,1)

5060 G$=RIGHT$(G$,LEN(G$)-2)

5070 NEXT M,N

5080 FOR N=1 TO 100

5090 Z$(N,1)=LEFT$(H$,2)

5100 H$=RIGHT$(H$,LEN(H$)-2)

5110 Z$(N,2)=LEFT$(I$,2)

5120 I$=RIGHT$(I$,LEN(I$)-2)

5130 NEXT N

5140 COU=VAL(H$)

5150 A$=CHR$(198)

5160 LOCATE 2,20:PRINT SPACE$(30)

5170 RETURN

5180 REM <<<< INICIALIZACAO >>>>

5190 K$=CHR$(182)+CHR$(183)

5200 K1$=CHR$(192)+CHR$(193)

5210 K2$=CHR$(150)+CHR$(151)

5220 K3$=CHR$(160)+CHR$(161)

5230 K4$=CHR$(166)+CHR$(167)

5240 K5$=CHR$(176)+CHR$(177)

5250 K6$=CHR$(198)+CHR$(199)

5260 K7$=CHR$(208)+CHR$(209)

5270 Q$=CHR$(184)+CHR$(185)

5280 Q1$=CHR$(192)+CHR$(193)

5290 Q2$=CHR$(152)+CHR$(153)

5300 Q3$=CHR$(160)+CHR$(161)

5310 Q4$=CHR$(168)+CHR$(169)

5320 Q5$=CHR$(176)+CHR$(177)

5330 Q6$=CHR$(200)+CHR$(201)

5340 Q7$=CHR$(208)+CHR$(209)

5350 B$=CHR$(186)+CHR$(187)

5360 B1$=CHR$(192)+CHR$(193)

5370 B2$=CHR$(154)+CHR$(155)

5380 B3$=CHR$(160)+CHR$(161)

5390 B4$=CHR$(170)+CHR$(171)

5400 B5$=CHR$(176)+CHR$(177)

5410 B6$=CHR$(202)+CHR$(203)

5420 B7$=CHR$(208)+CHR$(209)

5430 T$=CHR$(188)+CHR$(189)

5440 T1$=CHR$(192)+CHR$(193)

5450 T2$=CHR$(156)+CHR$(157)

5460 T3$=CHR$(160)+CHR$(161)

5470 T4$=CHR$(172)+CHR$(173)

5480 T5$=CHR$(176)+CHR$(177)

5490 T6$=CHR$(204)+CHR$(205)

5500 T7$=CHR$(208)+CHR$(209)

5510 R$=CHR$(190)+CHR$(191)

5520 R1$=CHR$(192)+CHR$(193)

5530 R2$=CHR$(158)+CHR$(159)

5540 R3$=CHR$(160)+CHR$(161)

5550 R4$=CHR$(174)+CHR$(175)

5560 R5$=CHR$(176)+CHR$(177)

5570 R6$=CHR$(206)+CHR$(207)

5580 R7$=CHR$(208)+CHR$(209)

5590 P$=CHR$(194)+CHR$(195)

5600 P1$=CHR$(196)+CHR$(197)

5610 P2$=CHR$(162)+CHR$(163)

5620 P3$=CHR$(164)+CHR$(165)

5630 P4$=CHR$(178)+CHR$(179)

5640 P5$=CHR$(180)+CHR$(181)

5650 P6$=CHR$(210)+CHR$(211)

5660 P7$=CHR$(212)+CHR$(213)

5670 BD$=STRING$(2,CHR$(214))+SPACE$(2)

5680 BD$=BD$+BD$:BD$=BD$+BD$

5690 FOR N=1 TO 100

5700 Z$(N,1)=SPACE$(2):Z$(N,2)=SPACE$(2)

5710 NEXT N

5720 RETURN

5730 REM <<<< DEFINICAO DAS FORMAS >>>>

5740 FOR CH=150 TO 181

5750 FOR N=0 TO 7

5760 READ B

5770 IF CH>=166 THEN B=B XOR 255

5780 VPOKE 8*CH+N,B

5790 NEXT N

5800 IF CH=165 THEN RESTORE

5810 NEXT CH:RESTORE 6120

5820 FOR CH=182 TO 213

5830 FOR N=0 TO 7

5840 READ B

5850 IF CH>=198 THEN B=B XOR 255

5860 VPOKE 8*CH+N,B

5870 NEXT N

5880 IF CH=197 THEN RESTORE 6120

5890 NEXT CH

5900 FOR CH=215 TO 220

5910 FOR N=0 TO 7

5920 READ B:VPOKE 8*CH+N,B

5930 NEXT N,CH

5940 FOR A=0 TO 7:VPOKE 8*214+A,255:NEXT A

5950 RETURN

5960 DATA 1,3,29,63,63,57,28,7

5970 DATA 0,128,56,252,252,156,56,224

5980 DATA 1,19,81,91,109,55,27,15

5990 DATA 128,200,138,218,182,236,216,240

6000 DATA 1,1,7,14,28,28,14,7

6010 DATA 128,128,224,240,120,120,240,224

6020 DATA 0,0,3,7,15,31,9,3

6030 DATA 0,192,64,224,176,208,232,120

6040 DATA 0,0,25,25,25,31,9,3

6050 DATA 0,0,152,152,152,248,240,240

6060 DATA 7,7,4,31,16,127,64,127

6070 DATA 224,224,224,248,120,254,30,254

6080 DATA 0,0,0,0,0,3,7,7

6090 DATA 0,0,0,0,0,192,224,224

6100 DATA 5,4,3,15,8,31,16,31

6110 DATA 224,224,192,240,112,248,56,248

6120 DATA 253,227,221,191,191,187,222,231

6130 DATA 127,131,59,253,253,157,59,231

6140 DATA 237,147,85,91,109,173,219,239

6150 DATA 183,201,170,218,182,239,219,247

6160 DATA 253,249,247,238,220,220,238,247

6170 DATA 191,159,239,247,251,251,247,239

6180 DATA 255,254,249,247,239,223,223,243

6190 DATA 63,223,95,239,183,215,235,123

6200 DATA 255,230,217,217,217,223,236,239

6210 DATA 255,103,155,155,155,251,247,247

6220 DATA 247,247,228,223,144,127,64,127

6230 DATA 239,239,231,251,121,254,30,254

6240 DATA 255,255,255,255,252,251,247,247

6250 DATA 255,255,255,255,63,223,239,239

6260 DATA 245,250,243,239,232,239,208,223

6270 DATA 239,239,207,247,119,251,59,251

6280 DATA 0,0,63,32,47,40,40,40

6290 DATA 0,0,248,8,224,40,40,40

6300 DATA 40,40,47,32,63,0,0,0

6310 DATA 40,40,224,8,248,0,0,0

6320 DATA 0,0,255,0,255,0,0,0

6330 DATA 40,40,40,40,40,40,40,40

6340 DATA R,T,B,Q,K,B,T,R

Compartilhe:

agosto 2017
D	S	T	Q	Q	S	S
« jul
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31