Acentue! Oxítonas I

2 de agosto de 20172 de agosto de 2017 MSX-Basic 0 comentários Aplicativos, Didáticos

Aprenda de uma forma divertida as regras de acentuação das palavras oxítonas.

Teste o programa no WebMSX – The Online MSX Emulator

“Acentue!” é uma série de programas educativos que tem o objetivo de ensinar, no formato de game, as regras de acentuação da língua portuguesa.

Neste jogo, chamado “Duelo no Circo”, tente acertar as palavras que são acentuadas, pressionando a tecla [ESPAÇO].

Autor: Hildebrando André
Software house: CEBI – Centro Educacional Brasileiro de Infomática
Distribuição: Gradiente Informática
Dump do cartucho: B@ss – Blog do B@ss

Código fonte

50 ONERRORGOTO24000
100 GOTO1500
300 Y=90:FORX=225TOV1STEP-PP:IFCSTHENCS=0:GOTO1205ELSEA=STICK(TJ):IFPLAY(CN)THEN900ELSECN=1-CN:NO=INT(RND(-TIME)*5)+65:N1$="s10"+CHR$(NO):N2$="s10"+CHR$(NO+2):PLAYN1$,N2$
900 IFATHENM=M-(A<D)*PA+(A>D)*PA:PUTSPRITEF,(M,R):IFA=TDORA=DTHENU=A:LINE(218,42)-(223,47),6-U-(U=1)*O,BF
1100 IFBTHENK=K-S3:PUTSPRITEZ,(M,K),F,Z:K%=K:IFK<ETHENSPRITEOFF:K=183:K%=K:B=0:PUTSPRITEZ,(M,E1):SPRITEON
1105 IFGE>0THENPUTSPRITED,(XA,167),F,R2+RA:RA=1-RA:XA=XA+1-(GE=2)
1200 SWAPH,H2:PUTSPRITES1,(X,Y),H,S1+S:PUTSPRITES2,(X+16,Y),H,S2+S:PUTSPRITES3,(X+32,Y),H,S3+S:X=X-PP-RND(-TIME)*O:Y=Y+RND(-TIME)*GG-RND(-TIME)*GG-(Y<E)*F+(Y>W)*F:INTERVALON:NEXT
1205 GOSUB18700:SX=SX+TD:IFSX>NPTHENINTERVALOFF:GOSUB10200:XA=0:ELSES=S+O:QR=0:SPRITEON
1340 GOTO300
1350 B=1:RETURN
1390 ' ----- tempo -----
1400 LINE(72,40)-(TX+TD,42),11,BF:TX=TX+GT:IFTX=>TFTHENTX=72:CF=4:GOSUB11900:ELSE1415
1405 NA=NA+1:IFNA>2THENFORX=0TO30:FORT=0TO9:COLOR,,4:NEXT:FORI=1TO10:COLOR,,9:NEXT:NEXT:GOTO10100ELSEGOSUB14500:RETURN
1410 '-----verifica se acertou bicho-----
1415 IFIDTHENRETURNELSEXB=XB-IB:RR=1-RR:PUTSPRITER1,(XB,YB),F,R1+RR:IFXB<CORXB>E1THENIB=-IB
1420 IFST<1THENRETURN
1425 IFST=1THENFORI=0TOC:RR=1-RR:PUTSPRITER1,(XB,YB+(-1)^I),F,R1+RR:NEXT:ST=0:RETURN
1430 '-----rumo ao atirador-----
1435 M1=M-XB:M2=R-YB:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08
1440 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%:ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%
1445 FORL=0TON%-1:RR=1-RR:PUTSPRITER1,(XB+L*DX,YB+L*DY),F,R1+RR:SOUND10,14:SOUND10,0:NEXT
1450 PLAY"v15gfedcv7":ST=0:IFNA>2THEN1405ELSECF=4:GOSUB11900
1455 M1=XB-M:M2=YB-R:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08
1460 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%
1465 FORL=0TON%-1:RR=1-RR:PUTSPRITER1,(M+L*DX,R+L*DY),F,R1+RR:SOUND10,14:SOUND10,0:NEXT
1470 NA=NA+1:IFNA>2THEN1405ELSERETURN
1500 '-----carrega palavras-----
1600 TI$="o5a8a8o4g16f#16e16o4d16o5a8a8o4g16f#16o4e16d16o3f#16o3g16o4a8o3g8f#8e8o4a8o3f#8o3d8o5a8a8o4g16f#16e16d16o5a8a8o4g16f#16e16o4d16o3f#16g16o4a8o3g8f#8e8o4a8o3d8r8"
1605 TU$="o2d8o3d8o2d16d16o3d16d16o2d8o3d8o2d16d16o3d16d16o1f#16g16o2a8o1g8f#8e8o2a8o1f#8o1d8o2d8o3d8o2d16d16o3d16d16o2d8o3d8o2d16d16o3d16o3d16o1f#16g16o2a8o1g8f#8e8o2a8o1d8r8o2"
1650 FORI=1TO10:KEYI,"":NEXT
1700 GOSUB55000:DIMVD%(101):NP=6:DIMV%(NP,2):IE=45756!:IE=IE-65536!:FORI1=1TO101:READVD%(I1):IFVD%(I1)<>1THENDT=DT+1:NEXT
1850 POKE64683!,1:COLOR10,1,1:SCREEN,2:FORI1=0TO3:GOSUB5700:SPRITE$(I1)=R$:NEXT:CLS
1900 PRESET(30,10):PRINT#1,"Escreva seu nome:":LINE(30,30)-(160,50),4,B:LINE(0,150)-(255,191),4,BF:COLOR9:GOSUB60000:PUTSPRITE0,(0,209):PUTSPRITE20,(0,209)
1901 IFN$=""THENN$="EXPERT"ELSEIFASC(MID$(N$,1,1))<65THEN1950
1950 IFFL=1THEN1950ELSEGOSUB50000:LINE(60,40)-(192,55),3,BF:PRESET(72,45),POINT(72,45):PRINT#1,"<0> - teclado":LINE(60,85)-(192,100),15,BF:PRESET(72,90),POINT(72,90):PRINT#1,"<1> - joystick":LINE(0,130)-(255,191),4,BF:R$=INPUT$(1):TJ=VAL(R$)
1959 'GOSUB45000:LINE(0,15)-(255,130),1,BF
1960 LINE(60,40)-(192,55),3,BF:PRESET(75,45),POINT(75,45):PRINT#1,"<0> - novato":LINE(60,62)-(192,77),7,BF:PRESET(75,65),POINT(75,65):PRINT#1,"<1> - aprendiz":LINE(60,85)-(192,100),15,BF:PRESET(75,90),POINT(75,90):PRINT#1,"<2> - mestre"
1961 R$=INPUT$(1):GE=VAL(R$)
2100 '------- variaveis -------
2300 E$=CHR$(0):W$=E$:FORI=1TO3:E$=E$+E$:NEXT:F$=CHR$(16):T0=TIME:TD=1:TF=187:TX=72:TE=122:X1=255:X=215:IT=6:S1=17:S2=18:S3=19:S4=10:F=15:C=30:H=1:Z=14:O=3:Q=7:R=185:M=Q:R1=0:D=5:E=50:E1=209:U=5:IB=D:W=100:H2=F:O1=4:O2=5
2500 SX=0:K=179:K%=K:XB=E1:YB=158:V1=-X1:CL=1:R2=2
2700 '-------------------------
2900 COLOR1,12,7:SCREEN2:F$=F$+F$+W$:SPRITE$(Z)=F$+F$+F$+F$+F$
3000 NS=INT(RND(-TIME)*DT)-65+ASC(MID$(N$,1,1)):GG=D*GE:GT=1+GE
3300 CLS:LINE(0,0)-(X1,150),4,BF:GOSUB45000:FORI1=0TOX1STEPF:CIRCLE(I1,30),7,13:PAINT(I1,30),13:NEXT:LINE(0,0)-(X1,30),11,BF:LINE (0,30)-(X1,30),6:CIRCLE(0,0),128,7,0,6.28,.2:PAINT(0,5),7:CIRCLE(X1,0),128,7,0,6.28,.2:PAINT(X1,5),7
3500 LINE(25,140)-(225,152),8,BF:LINE(0,149)-(X1,158),11,BF:LINE(0,147)-(X1,149),8,BF:FORP=0TO255 STEP6:CIRCLE(P,154),2,6:PAINT(P,154),6:NEXT
3700 GOSUB45000:LINE(127,0)-(127,4),1:LINE(128,0)-(131,3),6,BF
3900 Y=191:I1=9:FORI=1TO7:LINE(0,Y)-(X1,Y),1:I1=I1-1:Y=Y-I1:NEXT:FORI1=OTOX1STEP8:CIRCLE(I1,30),1,F:NEXT:CIRCLE(99,Q),10,F,0,6.28,.2:PAINT(99,Q),F:CIRCLE(200,10),10,F,0,6.28,.2:PAINT(200,10),F:GOSUB14500:LINE(216,40)-(225,50),1,BF
4500 SPRITE$(F)=CHR$(&H18)+CHR$(&H3C)+CHR$(&H66)+CHR$(&HDB)+CHR$(&HE7)+CHR$(&H7E):SPRITE$(S4+1)=CHR$(32)+CHR$(80):SPRITE$(S4)=CHR$(16)+CHR$(32):SPRITEON:ONSPRITEGOSUB5300:GOSUB12700
4550 LINE(218,42)-(223,48),8,BF:I1=127-LEN(N$)*4:IFGE=0THENGOSUB21000
4600 COLOR1:PRESET(I1,141),POINT(I1,141):PRINT#1,N$:PRESET(125,19),POINT(125,19):IFGE=1THENPRINT#1,"A"ELSEIFGE=0THENPRINT#1,"N"ELSEPRINT#1,"M"
4650 COLOR9:PRESET(6,120):PRINT#1,"Pressione espa`o para iniciar":COLORF
4700 '-----bandeiras-----
4900 COLORF:LINE(217,Q)-(247,F),4,BF:LINE(216,6)-(216,24),1:LINE(16,6)-(46,14),12,BF:LINE(F,D)-(F,25),1:GOSUB14100:GOSUB12300:GOSUB9700:ONINTERVAL=TEGOSUB1400:ONSTRIGGOSUB1350,1350:STRIG(TJ)ON:INTERVALON:Y=90:X=215:ONFL+1GOTO30000,300
5100 ' ----- colisao -----
5300 SPRITEOFF:SOUND0,0:SOUND6,1:SOUND7,7:SOUND8,16:SOUND9,16:SOUND11,100:PLAY"","v15"+N1$:FORI1=0TOX1:NEXT:SOUND7,56:PUTSPRITEZ,(0,E1):QR=0:IF((U=1ANDV%(SX,0)<>2)OR(U=DANDV%(SX,0)=2))ANDK%<130THENQR=1
5400 IFK%>131THENQR=0:ST=INT(RND(-TIME)*2)+1:RG=1
5500 CS=1:K=183:K%=K:JY1=JY1-(QR=1)*(6-GE*2)/(V%(SX,2)-1):JY1=JY1+(QR=0)*Q-(QR=1)*Q:JY1=JY1*(-(JY1>=0)):GOSUB14900:GOSUB14100:Y=-F:SPRITEON:RG=0:RETURN
5700 R$="":FORI=1TO32:READS$:IFS$>"y"THENT%=VAL(MID$(S$,4)):I=I+T%-1:A$=MID$(S$,2,2):FORJ=1TOT%:R$=R$+CHR$(VAL("&h"+A$)):NEXT:GOTO6100
5900 R$=R$+CHR$(VAL("&h"+S$))
6100 NEXT:RETURN
9500 '-----desenha 3 vidas-----
9700 LINE(19,41)-(44,52),1,B:CF=F:FORNA=0TO2:GOSUB11900:NEXT:NA=0:RETURN
10100 FORI=0TO99:A$=INKEY$:NEXT:SCREEN1:WIDTH28:LOCATE10,10,0:PRINT"fim...":PLAYTI$,TU$:PLAYTU$,TI$:FORI=0TO1199:NEXT:CLS
10105 PRINT:PRINT"PONTOS:"INT(JY1)
10110 PRINT:PRINT:PRINT"Deseja jogar novamente (res-ponda S ou N)":A$=INPUT$(1):IFA$="S"ORA$="s"THENRUNELSEPRINT:PRINTN$+":":PRINT:PRINT"Qual a segunda regra para a-centuar as ox¡tonas termina-das em EM ou ENS?"
10120 PRINT:PRINT"Continue jogando em RESGATE NO PARQUE que vocˆ vai descobrir!
10130 GOTO10130
10200 SPRITEOFF
10300 '-----no caso de passar de nivel-----
10500 IFGD=D+.1THENFORI=0TOTF:PUTSPRITER1,(I,W),F,R1+RR:RR=1-RR:NEXT
10900 IFGD>9.9THENFORI=0TOTF:PUTSPRITER1,(I,W),F,R1+RR:RR=1-RR:NEXT:PRESET(66,W),4:GE=GE+1:IFGE=2THEN17900ELSESCREEN1:LOCATE0,10:PRINT"muito bem!":PLAYTI$,TU$:PLAYTI$,TU$:FORI=0TO1999:NEXT:GOTO10100
11000 IFCP=NP+1THENGD=GD+TD:GOSUB12300:GOSUB18900:TE=TE-IT:TE=TE-(TE<=IT)*IT:PP=PP+TD:PA=PA-TD:PA=PA-(PA=D):JY1=JY1+GD+INT(TD/(TIME-T0)*35000!):ONINTERVAL=TEGOSUB1400:V1=V1-(GD=D)*X1:GD=GD-(GD=5)*.1:GOTO11500
11100 '-----no caso de ficar de nivel-----
11300 IFCP<NP+1THENPLAY"bagfedcbagfedc"
11500 GOSUB12700:X=X1:M=F:CF=F:GOSUB14500:GOSUB14100:S=0:QR=0:SX=0:YB=158+(GE=1)*(INT(RND(-TIME)*2)=1)*25-25*(GE=2):PC=CP:CP=0:SPRITEON:PUTSPRITEF,(M,R):RETURN
11700 '-----p/ acender ou apagar vida-----
11900 LINE(24+NA*6,43)-(27+NA*6,E),CF,BF:RETURN
12100 '-----escreve # nivel-----
12300 INTERVALOFF:FS=20:XN=225:YN=8:NU$=STR$(INT(GD)):LINE(217,Q)-(247,F),4,BF:GOSUB17300:INTERVALON:RETURN
12500 '-----sorteia np palavras-----
12700 X=215:GOSUB18700:FORCT=0TO3*(NP+1):SPRITE$(S1+CT)="":NEXT
13100 FORCT=0TONP
13300 NS=NS+INT(RND(-TIME)*DT/NP):IFNS=SATHEN13300ELSEIFNS>DT-1THENNS=NS-DT:IFNS<0THEN13300
13400 IFNS=60THEN13300
13401 IFNS=18THEN13300
13500 SA=NS:A%=VD%(NS)*16+IE+NS:DD=PEEK(A%):SN=VD%(NS+1)-VD%(NS):V%(CT,0)=(DDAND192)/64:V%(CT,1)=((DDAND7))*5+6:V%(CT,2)=(DDAND56)/8+2:A%=A%+1
13700 FORI1=SN-1TO0STEP-1:R$="":FORJ=0TO1:FORI=0TOQ:R$=R$+CHR$(PEEK(I+A%)):NEXT:A%=A%+8:R$=R$+E$:NEXT:SPRITE$(S1+CT*O+I1)=R$:NEXT:NEXT:RETURN
13900 '-----box pontos-----
14100 INTERVALOFF:FS=0:XN=21:YN=Q:NU$=STR$(JY1):LINE(16,6)-(46,14),12,BF:GOSUB17300:INTERVALON:RETURN
14300 '-----termometro-----
14500 LINE(72,40)-(187,42),6,BF:RETURN
14700 '-----saida palavra-----
14900 B=0:K=179:IFQR=0THEN16100
15100 CP=CP+1:H=1:H2=F:TL=SGN(X+31):IFTL=0THENTL=-1
15200 IFGE>0THEN15600
15300 IFX>W*TLTHENFORXX=XTOW*TLSTEP-Q-GD:PUTSPRITES1,(XX,Y),F,S1+S:PUTSPRITES2,(XX+F,Y),F,S2+S:PUTSPRITES3,(XX+C,Y),F,S3+S:PUTSPRITES4,(XX+V%(SX,1)-O,Y-2),F,S4+V%(SX,0):NEXT:X=W:GOTO15600
15500 IFX<W*TLTHENFORXX=XTOW*TLSTEPQ+GD:PUTSPRITES1,(XX,Y),F,S1+S:PUTSPRITES2,(XX+F,Y),F,S2+S:PUTSPRITES3,(XX+C,Y),F,S3+S:PUTSPRITES4,(XX+V%(SX,1),Y-2),F,S4+V%(SX,0):NEXT:X=W
15600 PUTSPRITES1,(X,Y),F,S1+S:PUTSPRITES2,(X+F,Y),F,S2+S:PUTSPRITES3,(X+C,Y),F,S3+S
15700 FORXX=0TOC:SWAPH,H2:PUTSPRITES4,(X+V%(SX,1),Y-2),H,S4+V%(SX,0):FORI2=0TOF:NEXT:NEXT:FORXX=YTO-9STEP-F:PUTSPRITES1,(X,XX),F,S1+S:PUTSPRITES2,(X+F,XX),F,S2+S:PUTSPRITES3,(X+C,XX),F,S3+S:PUTSPRITES4,(X+V%(SX,1),XX-3),F,S4+V%(SX,0):NEXT
15900 GOTO16900
16100 H=1:FORXX=YTO140STEPO:PUTSPRITES1,(X,XX),H,S1+S:PUTSPRITES2,(X+F,XX),H,S2+S:PUTSPRITES3,(X+C,XX),H,S3+S:NEXT:Y=140
16300 TL=SGN(X+31):IFTL=0THENTL=-1
16500 IFX>W*TLTHENFORXX=XTO-31+(X<-31)*X1STEP-D-GD:PUTSPRITES1,(XX,Y),H,S1+S:PUTSPRITES2,(XX+F,Y),H,S2+S:PUTSPRITES3,(XX+C,Y),H,S3+S:NEXT:GOTO16800
16700 IFX<W*TLTHENFORXX=XTO-(TL=1)*239STEPD+GD:PUTSPRITES1,(XX,Y),H,S1+S:PUTSPRITES2,(XX+F,Y),H,S2+S:PUTSPRITES3,(XX+C,Y),H,S3+S:NEXT
16800 IFGE>0ANDRG=0THENGOSUB21000:FORI1=0TO3999+(2-GE)*999:NEXT:LINE(0,60)-(255,90),4,BF
16900 SWAPO1,O2:PLAY"o=o2;","o=o1;":X=V-1:GOSUB18700:H2=F:H=1:Y=90:RETURN
17100 '-----escreve placar-----
17300 NU$=STR$(INT(VAL(NU$))):NU$=RIGHT$(NU$,LEN(NU$)-1):FORI1=1TOLEN(NU$):NU=ASC(MID$(NU$,I1,1))-48:ONNU+1GOSUB25000,25001,25002,25003,25004,25005,25006,25007,25008,25009:XN=XN+D:NEXT:RETURN
17500 XN=XN+D:NU$=RIGHT$(NU$,LEN(NU$)-1):FORI1=1TOLEN(NU$):NU=ASC(MID$(NU$,I1,1))-48:IFNU<0THENRETURNELSEONNU+1GOSUB25000,25001,25002,25003,25004,25005,25006,25007,25008,25009:XN=XN+D:NEXT:RETURN
17600 LINE(XN+O,YN+1)-(XN+O,YN+2),F:RETURN
17610 LINE(XN+O,YN+4)-(XN+O,YN+D),F:RETURN
17620 LINE(XN,YN+1)-(XN,YN+2),F:RETURN
17630 LINE(XN,YN+4)-(XN,YN+D),F:RETURN
17640 LINE(XN+1,YN+O)-(XN+2,YN+O),F:RETURN
17650 LINE(XN+1,YN)-(XN+2,YN),F:RETURN
17660 GOSUB17600:GOSUB17610:RETURN
17670 GOSUB17620:GOSUB17630:RETURN
17680 LINE(XN+1,YN)-(XN+2,YN),F:LINE(XN+1,YN+O)-(XN+2,YN+O),F:LINE(XN+1,YN+6)-(XN+2,YN+6),F:RETURN
17700 '-----mestre dos mestres!-----
17900 SCREEN1:LOCATE0,10:PRINT"vocˆ ‚ mestre desta regra!":PLAYTI$,TU$:PLAYTU$,TI$:FORI=0TO2999:GOTO10100
18000 '-----nuvem-----
18010 FORI=0TO9:XA=RND(-TIME)*20+X:YA=RND(-TIME)*7+Y:CIRCLE(XA,YA),9,15,0,6.28,.2+RND(-TIME)/5:PAINT(XA,YA):X=X+1:NEXT:RETURN
18500 '-----p/ evitar colisao-----
18700 PUTSPRITES1,(0,-9):PUTSPRITES2,(F,-9):PUTSPRITES3,(C,-9):PUTSPRITES4,(E,-9):RETURN
18800 '-----MUSETE-----
18900 PLAY"v11m500","v9":PLAYTI$,TU$:PLAYTI$,TU$:PLAY"v7m1000o4","v6o5":RETURN
19799 '-----vetor palavra-----
19800 DATA3,5,7,9,12,15,17,18,19,20,22,24,26,29,31,33,34,36,39,40,42,43,45,47,48,50,51,53,55,57,60,62,63,65,68,69,70,72,73,76,78,80,83,85,87,89,91
19810 DATA93,95,97,99,102,103,105,107,109,112,115,117,119,121,124,126,129,131,133,136,137,139,140,142,144,146,148,151,153,155,157,160,161,163,164,165,168,169,170,173,175,178,181,183,186,188,190,192,194,197,1
19900 '-----palha`o-----
20100 DATA3,4,a,18,6,1,47,32,7c,d,8,14,1f,14,18,3e,fc,fa,f2,62,42,a0,0,b0,b8,dc,48,c0,e0,a0,50,78,3,4,a,18,6,1,7,52,3c,6d,8,14,1f,14,28,3c,fc,fa,f1,61,41,a0,0,b0,bc,ca,40,c0,e0,a0,50,f8
20200 DATAz008,2,15,29,2a,25,4a,49,90,z008,20,50,8c,54,b4,4a,8a,9,z008,4,2b,59,4a,55,92,91,a0,z008,40,60,a8,58,a4,54,94,12
20999 '-----regra-----
21000 COLOR7:PRESET(0,60),POINT(0,60):PRINT#1,"  Devem-se acentuar as palavras      ox¡tonas terminadas em           A(s), E(s) ou O(s).":RETURN
24000 RUN
25000 GOSUB17660:GOSUB17670:LINE(XN+1,YN+6)-(XN+2,YN+6),F:GOSUB17650:RETURN
25001 XN=XN-1:GOSUB17660:XN=XN+1:RETURN
25002 GOSUB17600:GOSUB17630:GOSUB17680:RETURN
25003 GOSUB17660:GOSUB17680:RETURN
25004 GOSUB17660:GOSUB17640:GOSUB17620:RETURN
25005 GOSUB17620:GOSUB17610:GOSUB17680:RETURN
25006 GOSUB17670:GOSUB17610:GOSUB17680:RETURN
25007 GOSUB17660:GOSUB17650:RETURN
25008 GOSUB17660:GOSUB17670:GOSUB17680:RETURN
25009 GOSUB17660:GOSUB17680:GOSUB17620:RETURN
29999 '-----daniel jogando-----
30000 Y=90:PA=8:PUTSPRITEF,(M,R),F,F:IFM>XANDM<X+CTHENB=1
30001 BB=B:YB=158:IFM>XB-9ANDM<XB+FANDK>140THENB=0:IFBBTHENPUTSPRITEZ,(M,E1):K=179
30010 CN=1-CN:IFPLAY(CN)THEN30020ELSENO=INT(RND(-TIME)*5)+65:N1$="s10m1000l10"+CHR$(NO):N2$="v6s10"+CHR$(NO+2):PLAYN1$,N2$
30020 MX=M-X:M=M+PA*(MX>0)-PA*(MX<0):PUTSPRITES1,(X,Y),F,S1+S:PUTSPRITES2,(X+16,Y),F,S2+S:PUTSPRITES3,(X+32,Y),F,S3+S:X=X-PP-RND(-TIME)*O:Y=Y+RND(-TIME)*GG-RND(-TIME)*GG-(Y<E)*Q+(Y>W)*Q:INTERVALON
30030 IFX<VTHENSX=SX+TD:IFSX>NPTHENSX=0:INTERVALOFF:X=215:GOSUB10200:ELSES=S+O:X=215:QR=0:V=V1:H=Z:GOSUB18700:SPRITEON
30035 IFJY1=999THENGOSUB40010
30040 U=5+(V%(SX,0)<>2)*4:LINE(218,42)-(223,47),6-U-(U=1)*O,BF
30045 BB=B:YB=158:IFM>XB-9ANDM<XB+FANDK>140THENB=0:IFBBTHENPUTSPRITEZ,(M,E1):K=179
30050 IFBTHENK=K-S3:PUTSPRITEZ,(M,K),F,Z:K%=K:IFK<ETHENK=179:B=0:PUTSPRITEZ,(M,E1)
30055 IFSTRIG(TJ)ORSTRIG(0)<>0THENLINE(0,120)-(255,128),4,BF:GOTO40000
30060 GOTO30000
40000 GOSUB40010:PA=8:PP=GE*4:GOSUB12300:GOSUB14100:H=1:B=0:GOSUB18700:GOSUB12700:SX=0:S=0:GOSUB14500:QR=0:ST=0:GOSUB9700:TX=72:K=183:K%=K:GOTO300
40010 FL=1:JY1=0:GD=0:Y=90:M=F:PLAY"cdefgabcdefgabc":M=F:PUTSPRITEF,(M,R):PUTSPRITEZ,(M,E1):RETURN
45000 PLAY"t70","t70":PLAYTI$,TU$:PLAY"t120","t120":RETURN
50000 LINE(0,0)-(255,131),1,BF:COLOR1:LINE(0,0)-(255,15),8,BF:PRESET(95,5):PRINT#1,"SELECIONE":RETURN
55000 B=50:COLOR,1,1
55010 SCREEN2,2:W=128:OPEN"GRP:"FOROUTPUTAS#1
55020 J=44:FORI=WTOW-12STEP-3:CIRCLE(I,B),J,15,,,1.1:J=J-6:NEXT:CIRCLE(W-16,B),15,15,,,1.1
55030 LINE(W-4,B-8)-(W-4,B+4),0:LINE(W-2,B)-(W-2,B+4),0:LINE(W+3,B-7)-(W+3,B+4),0:LINE(W+5,B-8)-(W+5,B-2),0:LINE(W+6,B-7)-(W+7,B-1),0
55040 LINE(W-5,B-8)-(W+4,B-8),15:LINE(W+4,B-11)-(W+5,B-8),15:LINE(W-12,B)-(W+6,B),15:LINE(W-12,B)-(W-12,B+4),15:LINE(W-12,B+4)-(W-4,B+4),15:LINE(W+6,B)-(W+6,B+5),15
55050 PAINT(W-34,B),15:PAINT(W-3,B-9),15:PAINT(W-1,B+5),15:PAINT(W-1,B-42),15:PAINT(W-7,B-27),15
55060 COLOR7:PRESET(72,115):PRINT#1,"DUELO NO CIRCO":LINE(72,125)-(182,126),,BF:COLOR15
55070 PRESET(44,142):PRINT#1,"Gradiente Inform tica":PRESET(52,155):PRINT#1,"produzido pelo CEBI"
55080 PRESET(32,168):PRINT#1,"Autor: Hildebrando Andr‚"
55090 RETURN
60000 PRESET(55,40):PRINT#1,"**********":X%=55
60001 A$=INKEY$:PUTSPRITE0,(XB,160),1,2+RR:PUTSPRITE20,(XB-30,160),15,RR:RR=1-RR:XB=XB-1:IFXB<=-32700THENXB=0
60002 IFA$=""THEN60001ELSEIFA$=CHR$(8)THEN60010ELSEIFA$=CHR$(13)THENRETURN
60005 CL=CL+1:LINE(X%,40)-(X%+7,48),1,BF:PRESET(X%,40):PRINT#1,A$:N$=N$+A$:X%=X%+8:IFLEN(N$)=10THENRETURNELSE60001
60010 X%=X%-8:IFX%<55THENX%=55:GOTO60001ELSELINE(X%,40)-(X%+7,48),1,BF:PRESET(X%,40):PRINT#1,"*":CL=CL-1:IFLEN(N$)<=1THENN$="":X%=35ELSEN$=LEFT$(N$,LEN(N$)-1)
60020 IFX%<=55THENX%=55:GOTO60001ELSEGOTO60001

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

50 ONERRORGOTO24000

100 GOTO1500

300 Y=90:FORX=225TOV1STEP-PP:IFCSTHENCS=0:GOTO1205ELSEA=STICK(TJ):IFPLAY(CN)THEN900ELSECN=1-CN:NO=INT(RND(-TIME)*5)+65:N1$="s10"+CHR$(NO):N2$="s10"+CHR$(NO+2):PLAYN1$,N2$

900 IFATHENM=M-(A<D)*PA+(A>D)*PA:PUTSPRITEF,(M,R):IFA=TDORA=DTHENU=A:LINE(218,42)-(223,47),6-U-(U=1)*O,BF

1100 IFBTHENK=K-S3:PUTSPRITEZ,(M,K),F,Z:K%=K:IFK<ETHENSPRITEOFF:K=183:K%=K:B=0:PUTSPRITEZ,(M,E1):SPRITEON

1105 IFGE>0THENPUTSPRITED,(XA,167),F,R2+RA:RA=1-RA:XA=XA+1-(GE=2)

1200 SWAPH,H2:PUTSPRITES1,(X,Y),H,S1+S:PUTSPRITES2,(X+16,Y),H,S2+S:PUTSPRITES3,(X+32,Y),H,S3+S:X=X-PP-RND(-TIME)*O:Y=Y+RND(-TIME)*GG-RND(-TIME)*GG-(Y<E)*F+(Y>W)*F:INTERVALON:NEXT

1205 GOSUB18700:SX=SX+TD:IFSX>NPTHENINTERVALOFF:GOSUB10200:XA=0:ELSES=S+O:QR=0:SPRITEON

1340 GOTO300

1350 B=1:RETURN

1390 ' ----- tempo -----

1400 LINE(72,40)-(TX+TD,42),11,BF:TX=TX+GT:IFTX=>TFTHENTX=72:CF=4:GOSUB11900:ELSE1415

1405 NA=NA+1:IFNA>2THENFORX=0TO30:FORT=0TO9:COLOR,,4:NEXT:FORI=1TO10:COLOR,,9:NEXT:NEXT:GOTO10100ELSEGOSUB14500:RETURN

1410 '-----verifica se acertou bicho-----

1415 IFIDTHENRETURNELSEXB=XB-IB:RR=1-RR:PUTSPRITER1,(XB,YB),F,R1+RR:IFXB<CORXB>E1THENIB=-IB

1420 IFST<1THENRETURN

1425 IFST=1THENFORI=0TOC:RR=1-RR:PUTSPRITER1,(XB,YB+(-1)^I),F,R1+RR:NEXT:ST=0:RETURN

1430 '-----rumo ao atirador-----

1435 M1=M-XB:M2=R-YB:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08

1440 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%:ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%

1445 FORL=0TON%-1:RR=1-RR:PUTSPRITER1,(XB+L*DX,YB+L*DY),F,R1+RR:SOUND10,14:SOUND10,0:NEXT

1450 PLAY"v15gfedcv7":ST=0:IFNA>2THEN1405ELSECF=4:GOSUB11900

1455 M1=XB-M:M2=YB-R:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08

1460 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%

1465 FORL=0TON%-1:RR=1-RR:PUTSPRITER1,(M+L*DX,R+L*DY),F,R1+RR:SOUND10,14:SOUND10,0:NEXT

1470 NA=NA+1:IFNA>2THEN1405ELSERETURN

1500 '-----carrega palavras-----

1600 TI$="o5a8a8o4g16f#16e16o4d16o5a8a8o4g16f#16o4e16d16o3f#16o3g16o4a8o3g8f#8e8o4a8o3f#8o3d8o5a8a8o4g16f#16e16d16o5a8a8o4g16f#16e16o4d16o3f#16g16o4a8o3g8f#8e8o4a8o3d8r8"

1605 TU$="o2d8o3d8o2d16d16o3d16d16o2d8o3d8o2d16d16o3d16d16o1f#16g16o2a8o1g8f#8e8o2a8o1f#8o1d8o2d8o3d8o2d16d16o3d16d16o2d8o3d8o2d16d16o3d16o3d16o1f#16g16o2a8o1g8f#8e8o2a8o1d8r8o2"

1650 FORI=1TO10:KEYI,"":NEXT

1700 GOSUB55000:DIMVD%(101):NP=6:DIMV%(NP,2):IE=45756!:IE=IE-65536!:FORI1=1TO101:READVD%(I1):IFVD%(I1)<>1THENDT=DT+1:NEXT

1850 POKE64683!,1:COLOR10,1,1:SCREEN,2:FORI1=0TO3:GOSUB5700:SPRITE$(I1)=R$:NEXT:CLS

1900 PRESET(30,10):PRINT#1,"Escreva seu nome:":LINE(30,30)-(160,50),4,B:LINE(0,150)-(255,191),4,BF:COLOR9:GOSUB60000:PUTSPRITE0,(0,209):PUTSPRITE20,(0,209)

1901 IFN$=""THENN$="EXPERT"ELSEIFASC(MID$(N$,1,1))<65THEN1950

1950 IFFL=1THEN1950ELSEGOSUB50000:LINE(60,40)-(192,55),3,BF:PRESET(72,45),POINT(72,45):PRINT#1,"<0> - teclado":LINE(60,85)-(192,100),15,BF:PRESET(72,90),POINT(72,90):PRINT#1,"<1> - joystick":LINE(0,130)-(255,191),4,BF:R$=INPUT$(1):TJ=VAL(R$)

1959 'GOSUB45000:LINE(0,15)-(255,130),1,BF

1960 LINE(60,40)-(192,55),3,BF:PRESET(75,45),POINT(75,45):PRINT#1,"<0> - novato":LINE(60,62)-(192,77),7,BF:PRESET(75,65),POINT(75,65):PRINT#1,"<1> - aprendiz":LINE(60,85)-(192,100),15,BF:PRESET(75,90),POINT(75,90):PRINT#1,"<2> - mestre"

1961 R$=INPUT$(1):GE=VAL(R$)

2100 '------- variaveis -------

2300 E$=CHR$(0):W$=E$:FORI=1TO3:E$=E$+E$:NEXT:F$=CHR$(16):T0=TIME:TD=1:TF=187:TX=72:TE=122:X1=255:X=215:IT=6:S1=17:S2=18:S3=19:S4=10:F=15:C=30:H=1:Z=14:O=3:Q=7:R=185:M=Q:R1=0:D=5:E=50:E1=209:U=5:IB=D:W=100:H2=F:O1=4:O2=5

2500 SX=0:K=179:K%=K:XB=E1:YB=158:V1=-X1:CL=1:R2=2

2700 '-------------------------

2900 COLOR1,12,7:SCREEN2:F$=F$+F$+W$:SPRITE$(Z)=F$+F$+F$+F$+F$

3000 NS=INT(RND(-TIME)*DT)-65+ASC(MID$(N$,1,1)):GG=D*GE:GT=1+GE

3300 CLS:LINE(0,0)-(X1,150),4,BF:GOSUB45000:FORI1=0TOX1STEPF:CIRCLE(I1,30),7,13:PAINT(I1,30),13:NEXT:LINE(0,0)-(X1,30),11,BF:LINE (0,30)-(X1,30),6:CIRCLE(0,0),128,7,0,6.28,.2:PAINT(0,5),7:CIRCLE(X1,0),128,7,0,6.28,.2:PAINT(X1,5),7

3500 LINE(25,140)-(225,152),8,BF:LINE(0,149)-(X1,158),11,BF:LINE(0,147)-(X1,149),8,BF:FORP=0TO255 STEP6:CIRCLE(P,154),2,6:PAINT(P,154),6:NEXT

3700 GOSUB45000:LINE(127,0)-(127,4),1:LINE(128,0)-(131,3),6,BF

3900 Y=191:I1=9:FORI=1TO7:LINE(0,Y)-(X1,Y),1:I1=I1-1:Y=Y-I1:NEXT:FORI1=OTOX1STEP8:CIRCLE(I1,30),1,F:NEXT:CIRCLE(99,Q),10,F,0,6.28,.2:PAINT(99,Q),F:CIRCLE(200,10),10,F,0,6.28,.2:PAINT(200,10),F:GOSUB14500:LINE(216,40)-(225,50),1,BF

4500 SPRITE$(F)=CHR$(&H18)+CHR$(&H3C)+CHR$(&H66)+CHR$(&HDB)+CHR$(&HE7)+CHR$(&H7E):SPRITE$(S4+1)=CHR$(32)+CHR$(80):SPRITE$(S4)=CHR$(16)+CHR$(32):SPRITEON:ONSPRITEGOSUB5300:GOSUB12700

4550 LINE(218,42)-(223,48),8,BF:I1=127-LEN(N$)*4:IFGE=0THENGOSUB21000

4600 COLOR1:PRESET(I1,141),POINT(I1,141):PRINT#1,N$:PRESET(125,19),POINT(125,19):IFGE=1THENPRINT#1,"A"ELSEIFGE=0THENPRINT#1,"N"ELSEPRINT#1,"M"

4650 COLOR9:PRESET(6,120):PRINT#1,"Pressione espa`o para iniciar":COLORF

4700 '-----bandeiras-----

4900 COLORF:LINE(217,Q)-(247,F),4,BF:LINE(216,6)-(216,24),1:LINE(16,6)-(46,14),12,BF:LINE(F,D)-(F,25),1:GOSUB14100:GOSUB12300:GOSUB9700:ONINTERVAL=TEGOSUB1400:ONSTRIGGOSUB1350,1350:STRIG(TJ)ON:INTERVALON:Y=90:X=215:ONFL+1GOTO30000,300

5100 ' ----- colisao -----

5300 SPRITEOFF:SOUND0,0:SOUND6,1:SOUND7,7:SOUND8,16:SOUND9,16:SOUND11,100:PLAY"","v15"+N1$:FORI1=0TOX1:NEXT:SOUND7,56:PUTSPRITEZ,(0,E1):QR=0:IF((U=1ANDV%(SX,0)<>2)OR(U=DANDV%(SX,0)=2))ANDK%<130THENQR=1

5400 IFK%>131THENQR=0:ST=INT(RND(-TIME)*2)+1:RG=1

5500 CS=1:K=183:K%=K:JY1=JY1-(QR=1)*(6-GE*2)/(V%(SX,2)-1):JY1=JY1+(QR=0)*Q-(QR=1)*Q:JY1=JY1*(-(JY1>=0)):GOSUB14900:GOSUB14100:Y=-F:SPRITEON:RG=0:RETURN

5700 R$="":FORI=1TO32:READS$:IFS$>"y"THENT%=VAL(MID$(S$,4)):I=I+T%-1:A$=MID$(S$,2,2):FORJ=1TOT%:R$=R$+CHR$(VAL("&h"+A$)):NEXT:GOTO6100

5900 R$=R$+CHR$(VAL("&h"+S$))

6100 NEXT:RETURN

9500 '-----desenha 3 vidas-----

9700 LINE(19,41)-(44,52),1,B:CF=F:FORNA=0TO2:GOSUB11900:NEXT:NA=0:RETURN

10100 FORI=0TO99:A$=INKEY$:NEXT:SCREEN1:WIDTH28:LOCATE10,10,0:PRINT"fim...":PLAYTI$,TU$:PLAYTU$,TI$:FORI=0TO1199:NEXT:CLS

10105 PRINT:PRINT"PONTOS:"INT(JY1)

10110 PRINT:PRINT:PRINT"Deseja jogar novamente (res-ponda S ou N)":A$=INPUT$(1):IFA$="S"ORA$="s"THENRUNELSEPRINT:PRINTN$+":":PRINT:PRINT"Qual a segunda regra para a-centuar as ox¡tonas termina-das em EM ou ENS?"

10120 PRINT:PRINT"Continue jogando em RESGATE NO PARQUE que vocˆ vai descobrir!

10130 GOTO10130

10200 SPRITEOFF

10300 '-----no caso de passar de nivel-----

10500 IFGD=D+.1THENFORI=0TOTF:PUTSPRITER1,(I,W),F,R1+RR:RR=1-RR:NEXT

10900 IFGD>9.9THENFORI=0TOTF:PUTSPRITER1,(I,W),F,R1+RR:RR=1-RR:NEXT:PRESET(66,W),4:GE=GE+1:IFGE=2THEN17900ELSESCREEN1:LOCATE0,10:PRINT"muito bem!":PLAYTI$,TU$:PLAYTI$,TU$:FORI=0TO1999:NEXT:GOTO10100

11000 IFCP=NP+1THENGD=GD+TD:GOSUB12300:GOSUB18900:TE=TE-IT:TE=TE-(TE<=IT)*IT:PP=PP+TD:PA=PA-TD:PA=PA-(PA=D):JY1=JY1+GD+INT(TD/(TIME-T0)*35000!):ONINTERVAL=TEGOSUB1400:V1=V1-(GD=D)*X1:GD=GD-(GD=5)*.1:GOTO11500

11100 '-----no caso de ficar de nivel-----

11300 IFCP<NP+1THENPLAY"bagfedcbagfedc"

11500 GOSUB12700:X=X1:M=F:CF=F:GOSUB14500:GOSUB14100:S=0:QR=0:SX=0:YB=158+(GE=1)*(INT(RND(-TIME)*2)=1)*25-25*(GE=2):PC=CP:CP=0:SPRITEON:PUTSPRITEF,(M,R):RETURN

11700 '-----p/ acender ou apagar vida-----

11900 LINE(24+NA*6,43)-(27+NA*6,E),CF,BF:RETURN

12100 '-----escreve # nivel-----

12300 INTERVALOFF:FS=20:XN=225:YN=8:NU$=STR$(INT(GD)):LINE(217,Q)-(247,F),4,BF:GOSUB17300:INTERVALON:RETURN

12500 '-----sorteia np palavras-----

12700 X=215:GOSUB18700:FORCT=0TO3*(NP+1):SPRITE$(S1+CT)="":NEXT

13100 FORCT=0TONP

13300 NS=NS+INT(RND(-TIME)*DT/NP):IFNS=SATHEN13300ELSEIFNS>DT-1THENNS=NS-DT:IFNS<0THEN13300

13400 IFNS=60THEN13300

13401 IFNS=18THEN13300

13500 SA=NS:A%=VD%(NS)*16+IE+NS:DD=PEEK(A%):SN=VD%(NS+1)-VD%(NS):V%(CT,0)=(DDAND192)/64:V%(CT,1)=((DDAND7))*5+6:V%(CT,2)=(DDAND56)/8+2:A%=A%+1

13700 FORI1=SN-1TO0STEP-1:R$="":FORJ=0TO1:FORI=0TOQ:R$=R$+CHR$(PEEK(I+A%)):NEXT:A%=A%+8:R$=R$+E$:NEXT:SPRITE$(S1+CT*O+I1)=R$:NEXT:NEXT:RETURN

13900 '-----box pontos-----

14100 INTERVALOFF:FS=0:XN=21:YN=Q:NU$=STR$(JY1):LINE(16,6)-(46,14),12,BF:GOSUB17300:INTERVALON:RETURN

14300 '-----termometro-----

14500 LINE(72,40)-(187,42),6,BF:RETURN

14700 '-----saida palavra-----

14900 B=0:K=179:IFQR=0THEN16100

15100 CP=CP+1:H=1:H2=F:TL=SGN(X+31):IFTL=0THENTL=-1

15200 IFGE>0THEN15600

15300 IFX>W*TLTHENFORXX=XTOW*TLSTEP-Q-GD:PUTSPRITES1,(XX,Y),F,S1+S:PUTSPRITES2,(XX+F,Y),F,S2+S:PUTSPRITES3,(XX+C,Y),F,S3+S:PUTSPRITES4,(XX+V%(SX,1)-O,Y-2),F,S4+V%(SX,0):NEXT:X=W:GOTO15600

15500 IFX<W*TLTHENFORXX=XTOW*TLSTEPQ+GD:PUTSPRITES1,(XX,Y),F,S1+S:PUTSPRITES2,(XX+F,Y),F,S2+S:PUTSPRITES3,(XX+C,Y),F,S3+S:PUTSPRITES4,(XX+V%(SX,1),Y-2),F,S4+V%(SX,0):NEXT:X=W

15600 PUTSPRITES1,(X,Y),F,S1+S:PUTSPRITES2,(X+F,Y),F,S2+S:PUTSPRITES3,(X+C,Y),F,S3+S

15700 FORXX=0TOC:SWAPH,H2:PUTSPRITES4,(X+V%(SX,1),Y-2),H,S4+V%(SX,0):FORI2=0TOF:NEXT:NEXT:FORXX=YTO-9STEP-F:PUTSPRITES1,(X,XX),F,S1+S:PUTSPRITES2,(X+F,XX),F,S2+S:PUTSPRITES3,(X+C,XX),F,S3+S:PUTSPRITES4,(X+V%(SX,1),XX-3),F,S4+V%(SX,0):NEXT

15900 GOTO16900

16100 H=1:FORXX=YTO140STEPO:PUTSPRITES1,(X,XX),H,S1+S:PUTSPRITES2,(X+F,XX),H,S2+S:PUTSPRITES3,(X+C,XX),H,S3+S:NEXT:Y=140

16300 TL=SGN(X+31):IFTL=0THENTL=-1

16500 IFX>W*TLTHENFORXX=XTO-31+(X<-31)*X1STEP-D-GD:PUTSPRITES1,(XX,Y),H,S1+S:PUTSPRITES2,(XX+F,Y),H,S2+S:PUTSPRITES3,(XX+C,Y),H,S3+S:NEXT:GOTO16800

16700 IFX<W*TLTHENFORXX=XTO-(TL=1)*239STEPD+GD:PUTSPRITES1,(XX,Y),H,S1+S:PUTSPRITES2,(XX+F,Y),H,S2+S:PUTSPRITES3,(XX+C,Y),H,S3+S:NEXT

16800 IFGE>0ANDRG=0THENGOSUB21000:FORI1=0TO3999+(2-GE)*999:NEXT:LINE(0,60)-(255,90),4,BF

16900 SWAPO1,O2:PLAY"o=o2;","o=o1;":X=V-1:GOSUB18700:H2=F:H=1:Y=90:RETURN

17100 '-----escreve placar-----

17300 NU$=STR$(INT(VAL(NU$))):NU$=RIGHT$(NU$,LEN(NU$)-1):FORI1=1TOLEN(NU$):NU=ASC(MID$(NU$,I1,1))-48:ONNU+1GOSUB25000,25001,25002,25003,25004,25005,25006,25007,25008,25009:XN=XN+D:NEXT:RETURN

17500 XN=XN+D:NU$=RIGHT$(NU$,LEN(NU$)-1):FORI1=1TOLEN(NU$):NU=ASC(MID$(NU$,I1,1))-48:IFNU<0THENRETURNELSEONNU+1GOSUB25000,25001,25002,25003,25004,25005,25006,25007,25008,25009:XN=XN+D:NEXT:RETURN

17600 LINE(XN+O,YN+1)-(XN+O,YN+2),F:RETURN

17610 LINE(XN+O,YN+4)-(XN+O,YN+D),F:RETURN

17620 LINE(XN,YN+1)-(XN,YN+2),F:RETURN

17630 LINE(XN,YN+4)-(XN,YN+D),F:RETURN

17640 LINE(XN+1,YN+O)-(XN+2,YN+O),F:RETURN

17650 LINE(XN+1,YN)-(XN+2,YN),F:RETURN

17660 GOSUB17600:GOSUB17610:RETURN

17670 GOSUB17620:GOSUB17630:RETURN

17680 LINE(XN+1,YN)-(XN+2,YN),F:LINE(XN+1,YN+O)-(XN+2,YN+O),F:LINE(XN+1,YN+6)-(XN+2,YN+6),F:RETURN

17700 '-----mestre dos mestres!-----

17900 SCREEN1:LOCATE0,10:PRINT"vocˆ ‚ mestre desta regra!":PLAYTI$,TU$:PLAYTU$,TI$:FORI=0TO2999:GOTO10100

18000 '-----nuvem-----

18010 FORI=0TO9:XA=RND(-TIME)*20+X:YA=RND(-TIME)*7+Y:CIRCLE(XA,YA),9,15,0,6.28,.2+RND(-TIME)/5:PAINT(XA,YA):X=X+1:NEXT:RETURN

18500 '-----p/ evitar colisao-----

18700 PUTSPRITES1,(0,-9):PUTSPRITES2,(F,-9):PUTSPRITES3,(C,-9):PUTSPRITES4,(E,-9):RETURN

18800 '-----MUSETE-----

18900 PLAY"v11m500","v9":PLAYTI$,TU$:PLAYTI$,TU$:PLAY"v7m1000o4","v6o5":RETURN

19799 '-----vetor palavra-----

19800 DATA3,5,7,9,12,15,17,18,19,20,22,24,26,29,31,33,34,36,39,40,42,43,45,47,48,50,51,53,55,57,60,62,63,65,68,69,70,72,73,76,78,80,83,85,87,89,91

19810 DATA93,95,97,99,102,103,105,107,109,112,115,117,119,121,124,126,129,131,133,136,137,139,140,142,144,146,148,151,153,155,157,160,161,163,164,165,168,169,170,173,175,178,181,183,186,188,190,192,194,197,1

19900 '-----palha`o-----

20100 DATA3,4,a,18,6,1,47,32,7c,d,8,14,1f,14,18,3e,fc,fa,f2,62,42,a0,0,b0,b8,dc,48,c0,e0,a0,50,78,3,4,a,18,6,1,7,52,3c,6d,8,14,1f,14,28,3c,fc,fa,f1,61,41,a0,0,b0,bc,ca,40,c0,e0,a0,50,f8

20200 DATAz008,2,15,29,2a,25,4a,49,90,z008,20,50,8c,54,b4,4a,8a,9,z008,4,2b,59,4a,55,92,91,a0,z008,40,60,a8,58,a4,54,94,12

20999 '-----regra-----

21000 COLOR7:PRESET(0,60),POINT(0,60):PRINT#1," Devem-se acentuar as palavras ox¡tonas terminadas em A(s), E(s) ou O(s).":RETURN

24000 RUN

25000 GOSUB17660:GOSUB17670:LINE(XN+1,YN+6)-(XN+2,YN+6),F:GOSUB17650:RETURN

25001 XN=XN-1:GOSUB17660:XN=XN+1:RETURN

25002 GOSUB17600:GOSUB17630:GOSUB17680:RETURN

25003 GOSUB17660:GOSUB17680:RETURN

25004 GOSUB17660:GOSUB17640:GOSUB17620:RETURN

25005 GOSUB17620:GOSUB17610:GOSUB17680:RETURN

25006 GOSUB17670:GOSUB17610:GOSUB17680:RETURN

25007 GOSUB17660:GOSUB17650:RETURN

25008 GOSUB17660:GOSUB17670:GOSUB17680:RETURN

25009 GOSUB17660:GOSUB17680:GOSUB17620:RETURN

29999 '-----daniel jogando-----

30000 Y=90:PA=8:PUTSPRITEF,(M,R),F,F:IFM>XANDM<X+CTHENB=1

30001 BB=B:YB=158:IFM>XB-9ANDM<XB+FANDK>140THENB=0:IFBBTHENPUTSPRITEZ,(M,E1):K=179

30010 CN=1-CN:IFPLAY(CN)THEN30020ELSENO=INT(RND(-TIME)*5)+65:N1$="s10m1000l10"+CHR$(NO):N2$="v6s10"+CHR$(NO+2):PLAYN1$,N2$

30020 MX=M-X:M=M+PA*(MX>0)-PA*(MX<0):PUTSPRITES1,(X,Y),F,S1+S:PUTSPRITES2,(X+16,Y),F,S2+S:PUTSPRITES3,(X+32,Y),F,S3+S:X=X-PP-RND(-TIME)*O:Y=Y+RND(-TIME)*GG-RND(-TIME)*GG-(Y<E)*Q+(Y>W)*Q:INTERVALON

30030 IFX<VTHENSX=SX+TD:IFSX>NPTHENSX=0:INTERVALOFF:X=215:GOSUB10200:ELSES=S+O:X=215:QR=0:V=V1:H=Z:GOSUB18700:SPRITEON

30035 IFJY1=999THENGOSUB40010

30040 U=5+(V%(SX,0)<>2)*4:LINE(218,42)-(223,47),6-U-(U=1)*O,BF

30045 BB=B:YB=158:IFM>XB-9ANDM<XB+FANDK>140THENB=0:IFBBTHENPUTSPRITEZ,(M,E1):K=179

30050 IFBTHENK=K-S3:PUTSPRITEZ,(M,K),F,Z:K%=K:IFK<ETHENK=179:B=0:PUTSPRITEZ,(M,E1)

30055 IFSTRIG(TJ)ORSTRIG(0)<>0THENLINE(0,120)-(255,128),4,BF:GOTO40000

30060 GOTO30000

40000 GOSUB40010:PA=8:PP=GE*4:GOSUB12300:GOSUB14100:H=1:B=0:GOSUB18700:GOSUB12700:SX=0:S=0:GOSUB14500:QR=0:ST=0:GOSUB9700:TX=72:K=183:K%=K:GOTO300

40010 FL=1:JY1=0:GD=0:Y=90:M=F:PLAY"cdefgabcdefgabc":M=F:PUTSPRITEF,(M,R):PUTSPRITEZ,(M,E1):RETURN

45000 PLAY"t70","t70":PLAYTI$,TU$:PLAY"t120","t120":RETURN

50000 LINE(0,0)-(255,131),1,BF:COLOR1:LINE(0,0)-(255,15),8,BF:PRESET(95,5):PRINT#1,"SELECIONE":RETURN

55000 B=50:COLOR,1,1

55010 SCREEN2,2:W=128:OPEN"GRP:"FOROUTPUTAS#1

55020 J=44:FORI=WTOW-12STEP-3:CIRCLE(I,B),J,15,,,1.1:J=J-6:NEXT:CIRCLE(W-16,B),15,15,,,1.1

55030 LINE(W-4,B-8)-(W-4,B+4),0:LINE(W-2,B)-(W-2,B+4),0:LINE(W+3,B-7)-(W+3,B+4),0:LINE(W+5,B-8)-(W+5,B-2),0:LINE(W+6,B-7)-(W+7,B-1),0

55040 LINE(W-5,B-8)-(W+4,B-8),15:LINE(W+4,B-11)-(W+5,B-8),15:LINE(W-12,B)-(W+6,B),15:LINE(W-12,B)-(W-12,B+4),15:LINE(W-12,B+4)-(W-4,B+4),15:LINE(W+6,B)-(W+6,B+5),15

55050 PAINT(W-34,B),15:PAINT(W-3,B-9),15:PAINT(W-1,B+5),15:PAINT(W-1,B-42),15:PAINT(W-7,B-27),15

55060 COLOR7:PRESET(72,115):PRINT#1,"DUELO NO CIRCO":LINE(72,125)-(182,126),,BF:COLOR15

55070 PRESET(44,142):PRINT#1,"Gradiente Inform tica":PRESET(52,155):PRINT#1,"produzido pelo CEBI"

55080 PRESET(32,168):PRINT#1,"Autor: Hildebrando Andr‚"

55090 RETURN

60000 PRESET(55,40):PRINT#1,"**********":X%=55

60001 A$=INKEY$:PUTSPRITE0,(XB,160),1,2+RR:PUTSPRITE20,(XB-30,160),15,RR:RR=1-RR:XB=XB-1:IFXB<=-32700THENXB=0

60002 IFA$=""THEN60001ELSEIFA$=CHR$(8)THEN60010ELSEIFA$=CHR$(13)THENRETURN

60005 CL=CL+1:LINE(X%,40)-(X%+7,48),1,BF:PRESET(X%,40):PRINT#1,A$:N$=N$+A$:X%=X%+8:IFLEN(N$)=10THENRETURNELSE60001

60010 X%=X%-8:IFX%<55THENX%=55:GOTO60001ELSELINE(X%,40)-(X%+7,48),1,BF:PRESET(X%,40):PRINT#1,"*":CL=CL-1:IFLEN(N$)<=1THENN$="":X%=35ELSEN$=LEFT$(N$,LEN(N$)-1)

60020 IFX%<=55THENX%=55:GOTO60001ELSEGOTO60001

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