'----------JOGO DA BATALHA DE NUMEROS DO PC---------- 10 KEY OFF:CLS DEFINT C,I,M,P,T,X RANDOMIZE TIMER M=INT(4*RND+5) T=INT(19*RND+17) LOCATE 25,25 ? CHR$(16);CHR$(16);CHR$(16);"A BATALHA DOS NUMEROS "; ? CHR$(17);CHR$(17);CHR$(17); LOCATE 1,1 ? "Neste jogo vocˆ enfrenta o PC num teste de "; ? "matem tica. Dois n£meros, ? "um v rias maior que o outro, foram "; ? "selecionados aleat¢riamente. Cada um por vez ? "vocˆ e o computador subtraem um inteiro "; ? "entre 1 e"; COLOR 31,0:? M;:COLOR 7,0:? "do total ? "listado, at‚ que se obtenha 0. Aquele que "; ? "fizer a £ltima subtra‡„o ser  o perdedor. ? "A menos que vocˆ empregue uma estrat‚gia adequada, "; ? "O COMPUTADOR O DERROTAR  SEMPRE ? "e se vangloriar  tamb‚m. "; ? "A primeira vez ser  sua - Boa Sorte ! SLEEP 10 CLS ? CHR$(201);STRING$(28,205);CHR$(203); ? STRING$(20,205);CHR$(203);STRING$(28,205);CHR$(187); ? CHR$(186);TAB(30);CHR$(186);TAB(38); ? "TOTAL";TAB(51);CHR$(186);TAB(80);CHR$(186); ? CHR$(186);TAB(30);CHR$(199); ? STRING$(20,196);CHR$(182);TAB(80);CHR$(186) FOR I=4 TO 22 LOCATE I,1 ? CHR$(186);TAB(30);CHR$(186);TAB(51);CHR$(186);TAB(80);CHR$(186); NEXT I ? CHR$(200);STRING$(28,205);CHR$(202); ? STRING$(20,205);CHR$(202);STRING$(28,205);CHR$(188); PC$=CHR$(19)+" O PC GANHOU "+CHR$(19) PLAYER$=CHR$(19)+" VOCˆ GANHOU "+CHR$(19) LOCATE 22,40:? T '---------CICLO DE ESTRATEGIA PRINCIPAL---------- FOR I=10 TO 100 STEP 2 GOSUB 600 T=T-P:LOCATE I+1,40:? T; IF T=0 THEN WIN$=PC$:GOTO 480 C=T-((M+1)*INT((T-1)/(M+1))+1) IF C=0 THEN C=INT(1+M*RND) IF T=1 THEN C=1 T=T-C LOCATE I+1,58:? "O PC subtrai ";:LOCATE,,1:SLEEP 2:LOCATE,,0:? C; LOCATE I+2,40:? T; IF T=0 THEN WIN$=PLAYER$:GOTO 480 NEXT I '---ANUNCIA O GANHADOR,DESLIGA O SOM,MOSTRA AS OPCOES--- 480 COLOR 0,7:LOCATE 8,29:? STRING$(4,32);WIN$;STRING$(5,32) FOR K=1 TO 2 FOR J=3000 TO 400 STEP-300 SOUND J,.5 NEXT J,K COLOR 7,0:LOCATE 25,17 ? "Entre R para nova execu‡„o,S para sair"; WHILE(X$<>"S" AND X$<>"s") X$=INPUT$(1) IF(X$="r" OR X$="R")THEN CLEAR:GOTO 10 WEND CLS:SYSTEM '-------SUBROTINA PARA A ENTRADA DO JOGADOR------- 600 X=100 WHILE 1 LOCATE I,7,1:? "Vocˆ subtrai "; P=VAL(INPUT$(1)):? P:LOCATE,,0 IF P>=1 AND P<=M AND P<=T GOTO 690 IF M