Acentue! Oxítonas I
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
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 |