Acentue! Paroxítonas II

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 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

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

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

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