Acentue! Paroxítonas II
Aprenda de uma forma divertida as regras de acentuação das palavras paroxí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 “Perigo nas Profundezas”, tente acertar com minas submarinas somente 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 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 |
50 'onstopgosub24000:stopon 100 KEYOFF:WIDTH32:GOTO1500 300 N1$="G":Y=87:FORX=225TOV1STEP-PP:IFCSTHENCS=0:GOTO1205ELSEA=STICK(TJ):IFPLAY(CN)THEN900ELSECN=1-CN:PLAYN1$ 900 GOSUB60030:IFATHENM=M-(A<D)*PA+(A>D)*PA:PUTSPRITEF,(M,R),11,F:IFA=1ORA=DTHENU=A:LOCATE23,1:IFA=5THENPRINT"N"ELSEPRINT"L" 1100 IFBTHENK=K+10:PUTSPRITEZ,(M,K),F,5:PUTSPRITEZ,(M,K),14,Z:K%=K:IFK>120THENK=R+F:K%=K:B=0:PUTSPRITEZ,(M,E1) 1105 PUTSPRITED,(XA,177),8,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<65)*F+(Y>W)*F:INTERVALON:NEXT 1205 GOSUB18700:SX=SX+1:CS=0:IFSX>NPTHENINTERVALOFF:GOSUB10200:XA=0:ELSES=S+O:QR=0:SPRITEON 1340 GOTO300 1350 B=1:RETURN 1390 ' 1400 TZ=TZ+GT:IFTZ>20THENTX=TX+1:TZ=0:IFTX>=TFTHENTX=13:GOSUB11900:GOTO1405ELSEINTERVALOFF:LOCATETX,0:PRINT"=":INTERVALON 1401 GOTO1415 1405 NA=NA+1:IFNA>2THEN10100ELSEGOSUB14500:RETURN 1406 T=0:INTERVALOFF:LOCATETX,0:PRINT"=":INTERVALON:RETURN 1410 ' 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 ' 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 1465 PUTSPRITEF,(M,R),11,6:FORI=0TO999:NEXT:PUTSPRITEF,(M,R),3,F 1470 NA=NA+1:IFNA>2THEN10100ELSERETURN 1500 FORI=1TO10:KEYI,"":NEXT:GOSUB55000 1600 TI$="t112s0m4000l16o3ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8aeg8g+ar8.rr16a8r16ar8o2a" 1601 TA$="t112v13l4r1o5e1d+1d2.ec2.re1d+1d2.ec2l16r16o4abo5cdefgr16abo5cder16aro4" 1602 TU$="t112v11l4r1r1r1r1r1o5a1o6c1o5b2.g+c2" 1700 DIMVD%(101),T%(32,19),P(255):NP=6:DIMV%(NP,2):IE=44950!:IE=IE-65536!:FORI1=1TO101:READVD%(I1):IFVD%(I1)<>1THENDT=DT+1:NEXT 1850 SCREEN,2:FORI1=0TO3:GOSUB5700:SPRITE$(I1)=R$:NEXT:GOSUB5700:SPRITE$(15)=R$:GOSUB5700:SPRITE$(14)=R$:GOSUB5700:SPRITE$(5)=R$:COLOR15,4,8:CLS:SCREEN1 1851 GOSUB5700:SPRITE$(6)=R$:CLS:GOSUB1900:LOCATE12,10:PRINT"aguarde!" 1859 ' 1860 FORI=0TO9:FORJ=0TO7:READA$:N=VAL("&h"+A$):VPOKE384+I*8+J,N:NEXTJ,I:FORJ=0TO7:READA$:N=VAL("&h"+A$):VPOKE61*8+J,N:NEXTJ:FORJ=0TO7:READA$:N=VAL("&h"+A$):VPOKE504+J,N:NEXT:FORI=0TO17:FORJ=0TO7:READA$:N=VAL("&h"+A$):VPOKE512+I*8+J,N:NEXTJ,I 1870 FORI=0TO7:READA$:N=VAL("&H"+A$):VPOKE88*8+I,N:NEXT:FORI=184TO248STEP8:FORJ=0TO7:READA$:N=VAL("&h"+A$):VPOKEI*8+J,N:NEXTJ,I:GOTO1961 1900 LOCATE2,10:PRINT"escreva seu nome:":GOSUB61000:PUTSPRITE0,(0,209):PUTSPRITE20,(0,209) 1901 IFN$=""THENN$="EXPERT"ELSEIFASC(MID$(N$,1,1))<65THEN1950 1950 IFFL=1THEN1950ELSEGOSUB50000:LOCATE8,8,0:PRINT"<0> - teclado":LOCATE8,12:PRINT"<1> - joystick":VPOKE8223,&H4F:R$=INPUT$(1):TJ=VAL(R$) 1960 CLS:GOSUB50000:LOCATE8,8:PRINT"<0> - novato":LOCATE8,11:PRINT"<1> - aprendiz":LOCATE8,14:PRINT"<2> - mestre":VPOKE8223,&H4F:R$=INPUT$(1):GE=VAL(R$):COLOR7,4,11:CLS:RETURN 1961 GOSUB45000:VPOKE8200,&H91:VPOKE8201,&H91:VPOKE8202,&H64:VPOKE8198,&H71:VPOKE8199,&H71:VPOKE8204,&H71:VPOKE8205,&H71:VPOKE8206,&H71:VPOKE8197,&H71:VPOKE8208,&H71:VPOKE8212,&H71 1965 VPOKE8192+11,&H31:VPOKE8192+23,&H84:VPOKE8192+24,&H24:VPOKE8192+25,&HD4:VPOKE8192+26,&HE4:VPOKE8192+27,&H14:VPOKE8192+28,&H64:VPOKE8192+29,&HB4:VPOKE8192+30,&HC4:VPOKE8192+31,&H74: VPOKE8192+15,&H71:WIDTH32:CLS:GOSUB60120 2100 ' 2300 E$=CHR$(0):W$=E$:FORI=1TO3:E$=E$+E$:NEXT:F$=CHR$(16):T0=TIME:TD=1:TF=21:TX=13:TE=70: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=18:M=Q:R1=0:D=5:E=50:E1=209:V=5:IB=D:W=100:H2=F:O1=4:O2=5 2500 SX=0:K=42:K%=K:XB=E1:YB=40:V1=-X1:CL=1:R2=2:LN=5:TQ=21 2700 ' 3000 NS=INT(RND(-TIME)*DT)-65+ASC(MID$(N$,1,1)):GG=D*GE:GT=1+GE 4500 SPRITE$(S4)=CHR$(16)+CHR$(32):SPRITE$(S4+1)=CHR$(32)+CHR$(80):SPRITEON:ONSPRITEGOSUB5300:GOSUB12700 4550 I1=127-LEN(N$)*4:IFGE=0THENGOSUB21000 4600 LOCATE0,0:PRINT"==IJK=====@AB=OOOOOOOO==CDE=====";:LOCATE0,1:PRINT"=============FGH=XXX============" :LOCATE0,2:FORI3=0TO31:PRINT"P";:NEXT:LOCATE9,1:IFGE=1THENPRINT"L";ELSEIFGE=0THENPRINT"N";ELSEPRINT"M"; 4700 ' 4900 GOSUB14100:GOSUB12300:ONINTERVAL=TEGOSUB1400:ONSTRIGGOSUB1350,1350:STRIG(TJ)ON:INTERVALON:Y=90:X=215:ONFL+1GOTO30000,300 5100 ' 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%>56THENQR=1 5400 IFK%<55THENQR=0:ST=INT(RND(-TIME)*2)+1:RG=1 5500 CS=1:K=42: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 ' 9700 NA=0:LOCATE17,1:PRINT"XXX":RETURN 10100 INTERVALOFF:FORI=0TO99:A$=INKEY$:NEXT:SCREEN0:WIDTH28:LOCATE10,10,0:PRINT"fim...":GOSUB45000:FORI=0TO1199:NEXT:CLS 10105 PRINT:PRINT"PONTOS: ";NU 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 regra para acentuar as proparox¡tonas ?" 10120 PRINT:PRINT"Continue jogando na GRUTA DACAVEIRA que vocˆ vai desco-brir! 10130 GOTO10130 10200 SPRITEOFF 10300 ' 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!":GOSUB45000:FORI=0TO1999:NEXT:GOTO10100 11000 IFCP=NP+1THENGD=GD+1: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 ' 11300 IFCP<NP+1THENPLAY"bagfedcbagfedc" 11500 GOSUB12700:X=X1:M=F:CF=F:GOSUB14100:S=0:QR=0:SX=0:YB=40-(GE=1)*(INT(RND(-TIME)*2)=1)*20+20*(GE=2)::PC=CP:CP=0:SPRITEON:PUTSPRITEF,(M,R):RETURN 11700 ' 11900 INTERVALOFF:LOCATE19-NA,1:PRINT"=":GOSUB14500:INTERVALON:RETURN 12100 ' 12300 INTERVALOFF:FS=20:NU$=RIGHT$(STR$(INT(GD)),LEN(STR$(INT(GD)))-1):LOCATE28,0:PRINTNU$;:INTERVALON:RETURN 12500 ' 12700 X=215:GOSUB18700:FORCT=0TO3*(NP+1):SPRITE$(S1+CT)="":NEXT 13100 FORCT=0TONP:PLAYCHR$(65+RND(7)*7) 13300 NS=NS+INT(RND(-TIME)*DT):IFNS=SATHEN13300ELSEIFNS>DT-1THENNS=NS-DT:IFNS<0THEN13300 13400 IFNS=39THEN13300 13401 IFNS=86THEN13300 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 PLAY"o7v7t255":FORI1=SN-1TO0STEP-1:PLAYCHR$(65+RND(9)*7):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 ' 14100 FS=0:NU=INT(JY1):NU$=RIGHT$(STR$(NU),LEN(STR$(NU))-1):NU$=RIGHT$("000"+NU$,3) 14101 INTERVALOFF:LOCATE6,0:PRINTNU$:INTERVALON:RETURN 14300 ' 14500 INTERVALOFF:FORI=14TO21:LOCATEI,0:PRINT"O";:NEXT:INTERVALON:T=0:TX=13:RETURN 14700 ' 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 16810 INTERVALOFF:IFGE>0THENFORI2=0TO4:LOCATE0,18+I2:FORI3=0TO31:PRINT" ";:NEXTI3,I2:LOCATE0,23:FORI3=0TO30:PRINT" ";:NEXT:VPOKE6911,32:INTERVALON 16900 SWAPO1,O2:PLAY"o=o2;","o=o1;":X=V-1:GOSUB18700:H2=F:H=1:Y=90:RETURN 17100 ' 17680 RETURN 17700 ' 17900 SCREEN1:LOCATE0,10:PRINT"vocˆ ‚ mestre desta regra!":GOSUB45000:FORI=0TO2999:GOTO10100 18000 ' 18010 RETURN 18500 ' 18700 PUTSPRITES1,(0,-9):PUTSPRITES2,(F,-9):PUTSPRITES3,(C,-9):PUTSPRITES4,(E,-9):RETURN 18800 ' 18900 PLAY"v11m500","v9":GOSUB45000:PLAY"v7m1000o4","v6o5":RETURN 19799 ' 19800 DATA2,4,6,8,10,12,15,17,19,21,23,25,27,29,32,35,38,40,43,44,46,48,50,52,54,56,58,60,63,66,69,71,74,77,80,83,85,87,88,90,91,94,97,100,102,103,105,106,108,111,114,117,119,121,123,125,127,130,133,135,138 19810 DATA141,143,146,148,151,153,156,158,160,162,164,166,169,170,172,174,177,180,182,185,187,189,191,194,197,200,203,205,207,210,213,215,217,1 20109 '-OSTRA- 20110 DATA 7,1f,3f,3e,7c,78,70,60,40,7f,3f,1f,f,0,0,0,c0,80,0,0,0,0,0,0,0,f8,f0,e0,c0,0,0,0,0,0,0,0,0,f,1f,3f,7f,7f,3f,1f,f,0,0,0,0,0,0,0,0,0,e0,f0,f8,f8,f0,e0,c0,0,0,0 20199 '--CARANGUEIJO--- 20200 DATA0,0,0,0,A0,E0,64,32,F,3F,57,A8,48,50,0,0,0,0,0,0,A,E,26,4C,F8,F4,FA,15,12,A,0,0,0,0,0,0,30,70,34,12,1F,3F,57,A8,68,24,0,0,0,0,0,0,6,E,26,4C,F8,FC,FA,15,16,24,0,0 20204 '-nave- 20205 DATA3,1,1,1,3,2,2,3f,fe,fc,fc,fe,7f,3f,0,0,0,0,0,0,80,80,80,f0,fa,7a,7f,fa,fa,f0,0,0 20209 '-MINA E EXPLOSAO- 20210 DATA 0,0,0,0,0,0,3,7,3,0,0,0,0,0,0,0,0,0,0,0,0,0,80,C0,80,0,0,0,0,0,0,0 20211 DATA 8,2,4,2,0,0,3,7,3,0,0,0,0,0,0,0,40,0,0,40,80,0,80,C0,80,0,0,0,0,0,0,0 20215 DATA5,1F,3F,1F,7F,CD,55,CD,55,CE,7F,1F,3F,1F,5,0,40,F0,F8,F0,FC,56,44,56,54,D6,FC,F0,F8,F0,40,0 20249 '--numeros 20250 'DATA00,0,30,48,48,48,48,30,00,0,10,10,10,10,10,10,00,0,30,48,10,20,40,38,00,0,30,48,10,8,48,30,00,0,48,48,38,8,8,8,00,0,78,40,30,8,8,70,00,0,30,40,70,48,48,30,00,0,78,8,10,20,20,20,00,0,30,48,30,48,48,30,00,0,30,48,48,38,8,30 20251 DATA0,30,48,48,0,48,48,30,0,0,10,10,0,10,10,0,0,30,8,8,30,40,40,30,0,30,8,8,30,8,8,30,0,0,48,48,30,8,8,0,0,30,40,40,30,8,8,30,0,30,40,40,30,48,48,30,0,30,8,8,0,8,8,0,0,30,48,48,30,48,48,30,0,30,48,48,30,8,8,30 20254 'espaco preto "=" 20255 DATA0,0,0,0,0,0,0,0 20257 'A azul 20258 DATA20,50,88,88,f8,88,88,0 20300 ' 20301 '-- te(a) mp(b) o(c)--- 20303 DATA 00,0,0,77,24,27,24,27 20304 DATA 00,0,0,57,75,77,54,54 20305 DATA 00,0,0,70,50,50,50,70 20306 '-- ni-ve-l(e,f,g) -- 20307 DATA 00,0,1,52,77,72,72,57 20308 DATA 00,0,0,57,54,57,54,27:DATA 00,0,0,40,40,40,40,70 20309 '--vi(j) da(k) s(l) 20310 DATA0,0,57,52,52,52,27,0 20311 DATA0,0,67,55,57,55,65,0 20312 DATA0,0,70,40,70,10,70,0 20313 '--po(m) nt(m) os(o) -- 20314 DATA 00,0,0,77,55,75,45,47,0,0,0,57,72,72,72,52,0,0,0,77,54,57,51,77 20315 '--A,M,N-- 20316 DATA20,50,88,88,F8,88,88,0,88,D8,A8,A8,88,88,88,0,88,C8,C8,A8,98,98,88,0 20317 '--QUADRINHO E TRACO 20318 DATA0,0,0,0,AA,AA,AA,0,FF,0,0,0,0,0,0,0 20320 DATA0,0,0,0,0,0,0,0 20329 '--peixes 20332 DATAc,39,5e,fc,fc,5e,39,c,10,8,1C,BA,7F,7F,7C,9E,0,98,ce,7d,7f,ce,9c,0,0,0,10,bc,7e,bc,10,0 20335 DATA0,0,0,B0,78,B0,0,0,10,88,DC,7A,2F,77,DE,90,0,0,88,DE,7B,DE,88,0 20337 DATA88,c4,ae,5d,5f,ae,c4,88,10,dc,ee,7d,7f,ee,dc,10,20,1c,be,7b,7f,be,1c,20 21000 INTERVALOFF:LOCATE0,20:PRINT"=?centuam-se=os=parox¡tonos=ter-";:LOCATE0,21:PRINT"=minados=em=ditongo=crescente:==";:LOCATE0,22:PRINT"=ea,=eo,=ia,=ie,=io,=oa,=ua,=ue,";:LOCATE0,23:PRINT"====uo,=seguidos=ou=n„o=de=s.=="; 21100 VPOKE6911,61:INTERVALON: RETURN 24000 RUN 25000 GOSUB17660:GOSUB17670: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 30000 YB=40:INTERVALOFF:LOCATE0,18:PRINT"===tecle=<espa`o>=para=iniciar==";:INTERVALON:Y=87:PA=8:PUTSPRITEF,(M,R),13,F:IFM>XANDM<X+CTHENB=1 30001 GOSUB60030:BB=B:IFM>XB-9ANDM<XB+FANDK>140THENB=0:IFBBTHENPUTSPRITEZ,(M,E1),11:K=42 30010 CN=1-CN:IFPLAY(CN)THEN30020ELSENO=INT(RND(-TIME)*5)+65:NO=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=1-(V%(SX,0)>1)*4:INTERVALOFF:LOCATE23,1:IFU=1THENPRINT"L"ELSEPRINT"N" 30045 INTERVALON:BB=B:IFM>XB-9ANDM<XB+FANDK>140THENB=0:IFBBTHENPUTSPRITEZ,(M,E1):K=42 30050 IFBTHENK=K+10:PUTSPRITEZ,(M,K),14,5:PUTSPRITEZ,(M,K),14,Z:K%=K:IFK>120THENK=R+F:B=0:PUTSPRITEZ,(M,E1) 30055 IFSTRIG(TJ)<>0THENINTERVALOFF:LOCATE0,18:FORI5=0TO32:PRINT" ";:NEXT:INTERVALON: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:K=R+F:K%=K:TX=13:TF=21:NA=0:GOTO300 40010 FL=1:JY1=0:GD=0:Y=90:M=F:PLAY"cdefgabcdefgabc":M=F:PUTSPRITEF,(M,R):PUTSPRITEZ,(M,E1):RETURN 45000 PLAYTI$,TA$,TU$:RETURN 50000 COLOR15:CLS:LOCATE11,2:PRINT"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-3,B-9),15:PAINT(W-1,B+5),15:PAINT(W-1,B-42),15:PAINT(W-7,B-27),15:PAINT(W-34,B),15 55060 COLOR7:PRESET(46,115):PRINT#1,"PERIGO NAS PROFUNDEZAS":LINE(46,125)-(219,126),,BF:COLOR15 55070 PRESET(52,142):PRINT#1,"Gradiente Inform tica":PRESET(58,155):PRINT#1,"produzido pelo CEBI" 55080 PRESET(42,168):PRINT#1,"Autor: Hildebrando Andr‚":RETURN 60030 AP=AP+1:IFAP>MATHENAP=0:GOSUB60110:RETURN 60040 IFP(AP)THENCO=INT(P(AP)):LI=(P(AP)-CO)*100ELSE60030 60050 INTERVALOFF:LOCATECO,LI:PRINT" ":INTERVALON:PE=T%(CO,LI):T%(CO,LI)=0:P(AP)=0:CO=CO+2:IFCO>31THEN60090 60080 T%(CO,LI)=PE:I=AP:GOSUB60140:INTERVALOFF:LOCATECO,LI:PRINTCHR$(PE):INTERVALON 60090 RETURN 60110 CO=0:LI=INT(RND(-TIME)*17+3):T%(CO,LI)=INT(RND(-TIME)*9)*8+184:INTERVALOFF:LOCATECO,LI:PRINTCHR$(T%(CO,LI)):INTERVALON:GOSUB60130:RETURN 60120 AP=0:FORI=0TO15:LI=INT(RND(9)*17+3):CO=INT(RND(-TIME)*32):PE=INT(RND(-TIME)*9)*8+184:INTERVALOFF:LOCATECO,LI:PRINTCHR$(PE):INTERVALON:T%(CO,LI)=PE:P(AP)=CO+LI/100:AP=AP+1:NEXT:MA=AP:AP=0:RETURN 60130 FORI=0TOMA:IFP(I)=0THEN60140ELSENEXT:IFMA<255THENMA=IELSERETURN 60140 P(I)=CO+LI/100:RETURN 61000 LOCATE2,12:PRINT"**********":CL=2 61005 A$=INKEY$:IFA$=""THEN61005ELSEIFA$=CHR$(8)THEN61010ELSEIFA$=CHR$(13)THENRETURN 61007 LOCATECL,12:PRINTA$:CL=CL+1:N$=N$+A$:IFLEN(N$)=10THENRETURNELSE61005 61010 IFCL=<2THENCL=2:LOCATECL,12:PRINT"*"ELSELOCATECL-1,12:PRINT"*":CL=CL-1:IFLEN(N$)<=1THENN$=""ELSEN$=LEFT$(N$,LEN(N$)-1) 61015 GOTO61005 |