Acentue! Proparoxítonas
Aprenda de uma forma divertida as regras de acentuação das palavras proparoxí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 “Na Gruta da Caveira”, tente acertar as palavras que têm acento, 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 |
10 ' 100 COLOR15,1,4:SCREEN2:GOTO1500:ONERRORGOTO65000:GOTO1500 300 SOUND0,0:SOUND1,0:SOUND2,0:SOUND3,0:SOUND4,24:SOUND5,0:SOUND6,22:SOUND7,3:SOUND8,2:SOUND9,2:SOUND10,16:SOUND11,90:SOUND12,2:IX=PS-E:Y=79:FORX=0TO512STEPPP:SPRITEON:IFCCTHEN1205ELSEA=STICK(TJ) 900 IFATHENM=M-((A>3)AND(A<7))*PA+((A<3)AND(A>0))*PA:M=M-(M<20)*PA+(M>178)*PA:IFA=7ORA=3THENU=A:LINE(48,3)-(53,6),1-(U=7)*2,BF 1000 SPRITEOFF:PUTSPRITE8,(IX,Y-C),7,2+SS:IX=IX+GP:IFGE>0THENPUTSPRITE9,(-IX,Y+E),9,1+SS 1200 SWAPH,H2:SWAPL1,L2:SS=1-SS:PUTSPRITE1,(X-F,Y+C),R1,SF+SS:PUTSPRITES3,(X+32,Y-L1),H,S3+S:PUTSPRITES2,(X+16,Y),H,S2+S:PUTSPRITES1,(X,Y-L2),H,S1+S:Y=Y+RND(-TIME)*GG-RND(-TIME)*GG:X=X+RND(-TIME)*2:Y=Y-(Y<65)*F+(Y>85)*F:INTERVALON 1201 SPRITEON:IFPS>240THENVS=-1ELSEIFPS<100THENVS=3 1202 IFM<35ORM>146THENPUTSPRITE0,(0,209):PUTSPRITE0,(PS,M),6,7:GOSUB5300:IFM<35THENM=M+9ELSEM=M-9 1203 IFBTHENK=K-S3:PUTSPRITEZ,(K,M),F,Z:K%=K:IFK<CTHENK=PS:K%=K:B=0:PUTSPRITEZ,(PS,E1) 1204 PUTSPRITE0,(PS,M),3,0: IFB=0THENPS=PS+VS:K=PS-D:K%=K:NEXTELSENEXT 1205 GOSUB18700:SX=SX+1:CC=0:IFSX>NPTHENINTERVALOFF:IX=0:GOSUB10200ELSES=S+O:QR=0:SF=1+INT(RND(-TIME)*2):PS=PS+VS:SPRITEON:IFV%(SX,2)>6THENL1=4:L2=-4ELSEL1=0:L2=0 1340 LINE(28,99)-(255,107),1,BF:GOTO300 1350 B=1:RETURN 1390 ' 1400 ' 1401 CI=0:LINE(72,4)-(TX+TD,6),11,BF:TX=TX+GT:IFTX=>TFTHENTX=72:CF=4:GOSUB11900ELSEGOTO1415 1405 NA=NA+1:IFNA>2THENCOLOR15,4,14:FORI=1TO20:FORT=0TO50:COLOR,,15:NEXT:FORX=0TO50:COLOR,,4:NEXT:NEXT:GOTO10100ELSEGOSUB14500:RETURN 1413 JY1=JY1-10:JY1=JY1*(-(JY1>=0)):GOSUB14100:RETURN 1414 ' 1415 IFIDTHENRETURNELSEXB=XB+IB:RR=1-RR:PUTSPRITE5,(XB,YB),1,5+RR:IFXB>X1THENIB=-IB 1420 IFST<1THENRETURN 1425 IFST=1THENFORI=0TOC:RR=1-RR:PUTSPRITE5,(XB,YB+(-1)^I),F,1+RR:NEXT:ST=0:RETURN 1430 ' 1435 M1=PS:M2=M: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%-1STEP2:PUTSPRITE1,(L*DX,L*DY),F,1:SOUND10,14:SOUND10,0:NEXT 1450 PLAY"v15gfedcv7":ST=0:IFNA>2THEN1405ELSECF=4:GOSUB11900 1470 NA=NA+1:IFNA>2THEN1405ELSERETURN 1500 ' 1599 FORI=1TO10:KEYI,"":NEXT:GOSUB55000:CLEAR 1600 TU$="t90v15l16o4ee-co3aa-ao4ce-ee-co3aa-ao4ce-v15l16o4ee-co3aa-ao4ce-ee-co3aa-ao4ce-v15l16o4aa-ecbco3bo4aa-eco5co4bdaev15l16o4aa-ecbco3bo4aa-eco5co4bdae" 1601 TA$="t90v15o3e2e-4f4v15o3e2e-4f4v15o3e2e-4f4v15o3e2e-4f4" 1602 TI$="t90v15o2a2a-4f4v15o2a2a-4f4v15o2a2a-4f4v15o2a2a-4f4" 1700 PLAY"O7V7L63T255":DIMVD%(104):NP=6:DIMV%(NP,2):IE=44400!:IE=IE-65536!:OPEN"grp:"FOROUTPUTAS#1:FORI1=1TO104:READVD%(I1):IFVD%(I1)=1THEN1850 1702 PLAYCHR$(65+RND(9)*7):DT=DT+1:NEXT 1850 POKE64683!,1:SCREEN,2:N$="EXPERT":GOTO2300 1900 N$="":COLOR15,1,12:CLS:PRESET(30,10):PRINT#1,"Escreva seu nome:":LINE(30,30)-(160,50),4,B:LINE(0,150)-(255,191),4,BF:X%=35:Y%=40:COLOR9:GOSUB60000:'FORI=1TO10:KEYI,"":NEXT:GOSUB60000 1901 IFN$=""ORN$=" "THENN$="EXPERT"ELSEIFASC(MID$(N$,1,1))<65THENLINE(0,20)-(255,120),1,BF:COLOR15:GOTO1900 1905 COLOR1,1,7:SCREEN2:IFFL=1THEN1950ELSELINE(0,0)-(255,15),8,BF:PRESET(95,5),POINT(95,5):PRINT#1,"SELECIONE" 1907 LINE(60,40)-(192,55),7,BF:PRESET(72,45),POINT(72,45):PRINT#1,"0 - teclado":LINE(60,75)-(192,90),15,BF:PRESET(72,80),POINT(72,80):PRINT#1,"1 - joystick" 1909 LINE(0,130)-(255,191),4,BF 1910 R$=INPUT$(1):TJ=VAL(R$) 1911 IFTJ<0ORTJ>1THENGOTO1910 1960 LINE(0,17)-(255,129),1,BF: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" 1961 LINE(60,85)-(192,100),15,BF:PRESET(75,90),POINT(75,90):PRINT#1,"2 - mestre" 1962 R$=INPUT$(1):GE=VAL(R$):COLOR15 1963 IFGE<0ORGE>2THEN1962 1970 GOTO2900 2100 ' 2300 E$=CHR$(0):W$=E$:FORI=1TO3:E$=E$+E$:NEXT:F$=CHR$(16):SCREEN,2:T0=TIME:TD=1:TF=187:TX=72:TE=200:X1=255:X=0:IT=6:S1=17:S2=18:S3=19:S4=10:F=15:C=30:H=1:Z=4:O=3:Q=7:R=185:M=130:D=5:E=50:E1=209:U=3:IB=D:W=100:H2=F:O1=4:O2=5 2500 R=240:SX=0:XB=E1:YB=176:V1=512:CL=1:PS=240:VS=-1:K=PS-4:K%=K:R1=6:L1=4:L2=-4:GOTO4500 2900 NS=INT(RND(-TIME)*DT)-65+ASC(MID$(N$,1,1)):GG=3*GE:GT=1+GE:GP=GT*3 3300 COLOR15,1,5:CLS:LINE(0,176)-(255,191),14,BF:FORI=0TO255:X=INT(RND(-TIME)*40)-3:LINE(I,0)-(I,X),14:LINE(I,177)-(I,191-X+5),14:NEXT 3310 LINE(0,0)-(255,10),1,BF:LINE(0,11)-(255,11),7:LINE(0,60)-(1,W),1,BF 3350 GOSUB14500 3500 GOTO4550 4500 SPRITE$(7)=CHR$(1):SPRITE$(S4-1)=CHR$(32)+CHR$(80):SPRITE$(S4-2)=CHR$(16)+CHR$(32):SPRITE$(S4+1)=CHR$(64)+CHR$(32):ONSPRITEGOSUB5300:SPRITEON:GOTO1900 4550 LINE(48,7)-(53,7),3,BF:I1=127-LEN(N$)*4 4600 COLOR12:PRESET(I1,183),POINT(I1,183):PRINT#1,N$ 4601 PRESET(60,2),POINT(60,2):COLORF:IFGE=1THENPRINT#1,"A"ELSEIFGE=0THENPRINT#1,"N"ELSEPRINT#1,"M" 4700 ' 4900 GOSUB14100:GOSUB12300:GOSUB9700:ONINTERVAL=TEGOSUB1401:ONSTRIGGOSUB1350,1350:STRIG(TJ)ON:INTERVALON:Y=94:FS=1:GOSUB13800:GOSUB12700:X=0:GOTO30000 5100 ' 5300 KK=K%:SPRITEOFF:SOUND0,0:SOUND6,1:SOUND7,7:SOUND8,16:SOUND9,16:SOUND11,100:PLAY"","v15aa":FORI1=0TOX1:NEXT:SOUND7,56:PUTSPRITEZ,(0,E1),15,9:QR=0:IF((U=7ANDV%(SX,0)<>2)OR(U=3ANDV%(SX,0)=2))ANDK%<=PSTHENQR=1 5400 IFK%<PSANDB=0THENQR=0:ST=INT(RND(-TIME)*2)+1:RG=1 5455 IFBANDM-6>Y+6+ABS(L1)THENQR=0 5457 IFBANDK%<(XMOD256)-16THENQR=0 5458 IFBANDM<Y-ABS(L1)-FTHENQR=0 5500 CC=1:K=PS: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:PUTSPRITE1,(0,E1):GOSUB14100:Y=192:RG=0 5505 PUTSPRITE7,(0,209):R1=R1+1:IFR1>FTHENR1=2 5510 RETURN 5700 R$="":FORI=1TO32:READS$:PLAYCHR$(65+RND(9)*7):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 LINE(195,1)-(224,9),8,B:CF=F:FORNA=0TO2:GOSUB11900:NEXT:NA=0:RETURN 10100 FORI=0TO99:A$=INKEY$:NEXT:SCREEN1:WIDTH28:KEYOFF:LOCATE10,11,0:PRINT"fim...":GOSUB45000:FORI=0TO1300:NEXT:CLS 10109 PRINT:PRINT:PRINT"Deseja jogar novamente (res-ponda S ou N)" 10110 A$=INPUT$(1):IFA$="S"ORA$="s"THENRUNELSEIFA$="N"ORA$="n"THENPRINT:PRINTN$+":":PRINT:PRINT"Qual a regra para acentuaros hiatos?"ELSEGOTO10110 10120 PRINT:PRINT"Continue jogando com BATALHAESTELAR e vocˆ vai saber!" 10130 GOTO10130 10200 SPRITEOFF 10300 ' 10500 GOSUB26000:IFGD=D+.1THENFORI=0TOTF:PUTSPRITE1,(I,W),F,1:NEXT 10900 IFGD>9.9THENFORI=0TOTF:PUTSPRITE1,(I,W),F,1: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+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 ' 11300 IFCP<NP+1THENPLAY"bagfedcbagfedc" 11500 GOSUB12700:X=X1:M=130:CF=F:GOSUB14500:GOSUB14100:S=0:QR=0:SX=0:PC=CP:CP=0:SPRITEON:PUTSPRITE0,(PS,M):IFV%(0,2)>6THENL1=4:L2=-4ELSEL1=0:L2=0 11600 RETURN 11700 ' 11900 LINE(200+NA*8,3)-(203+NA*8,7),CF,BF:RETURN 12100 ' 12300 INTERVALOFF:FS=20:XN=233:YN=2:NU$=STR$(INT(GD)):LINE(232,0)-(255,10),1,BF:GOSUB17300:INTERVALON:RETURN 12500 ' 12700 PLAY"O7V7L63T255":X=215:GOSUB18700:FORCT=0TO3*(NP+1):SPRITE$(S1+CT)="":NEXT:FORCT=0TONP:M$(CT)="":NEXT 12910 IFGE=0THENGOSUB21000 13100 FORCT=0TONP:PLAYCHR$(65+RND(9)*7) 13300 NS=NS+INT(RND(-TIME)*NP):IFNS=SATHEN13300ELSEIFNS>DT-1THENNS=INT(RND(-TIME)*NP) 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 13600 IFFSANDV%(CT,2)>6THEN13300 13700 PLAY"O7V7L63T255":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:SF=2:RETURN 13800 GOSUB45000:PLAY"O7V7L63T255":FORI1=0TO7:GOSUB5700:SPRITE$(I1)=R$:NEXT:RETURN 13900 ' 14100 INTERVALOFF:FS=0:XN=10:YN=2:NU$=STR$(JY1):LINE(XN,YN)-(XN+20,YN+7),1,BF:GOSUB17300:INTERVALON:RETURN 14300 ' 14500 LINE(72,4)-(187,6),6,BF:RETURN 14550 LINE(TX,4)-(187,6),6,BF:RETURN 14700 ' 14900 B=0:PUTSPRITE0,(PS,M-F):IFQR=0THEN16100 15100 FORXX=YTOY-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-2+V%(SX,0):NEXT:Y=XX: 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,(X+C,XX),F,S3+S:PUTSPRITES4,(XX+V%(SX,1)-O,Y-2),F,S4-2+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)+O,Y-2),F,S4-2+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-2+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-2+V%(SX,0):NEXT 15900 GOTO16900 16100 H=12: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=0THENONRA%+1GOSUB21000,21500:FORI1=0TO3999+(2-GE)*999:NEXT:GOSUB26000 16900 SWAPO1,O2:PLAY"o=o2;","o=o1;":X=513:GOSUB18700:H2=F:H=13:Y=110:PUTSPRITE1,(0,E1):PUTSPRITE0,(PS,M+F):IX=IX+2*GP:PUTSPRITE8,(IX,M-F),7,2:PUTSPRITE9,(-IX,Y+E),9,1:RETURN 17100 ' 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 ' 17900 SCREEN1:LOCATE0,10:PRINT"vocˆ ‚ mestre desta regra!":GOSUB45000:FORI=0TO2999:GOTO10100 18000 ' 18010 FORI=0TO9:XA=RND(-TIME)*20+X:YA=RND(-TIME)*7+Y:CIRCLE(XA,YA),7,15,0,6.28,.2+RND(-TIME)/5:PAINT(XA,YA):X=X+1:NEXT:RETURN 18500 ' 18700 PUTSPRITES1,(0,-9):PUTSPRITES2,(F,-9):PUTSPRITES3,(C,-9):PUTSPRITES4,(E,-9):RETURN 18800 ' 18900 GOSUB45000:PLAY"v7m1000o4","v6o5":RETURN 19799 ' 19800 DATA3,6,9,11,13,16,19,21,23,26,29,32,34,37,40,42,45,47,49,51,54,56,59,62,65,68,70,72,75,78,80,83,86,89,92,94,97,99,102,104,107,110,112,114,116,118,121,124,126,129,131,133,135,137,140,143,146,149,152,155 19810 DATA158,161,164,166,168,170,173,175,178,181,183,185,188,191,194,196,198,201,203,206,209,211,214,217,220,223,225,228,231,234,236,238,240,242,245,248,251,254,1 19900 ' 20100 DATA7,0,1C,C,17,15,B5,e5,9e,z0c4,1c,0,0,f0,z806,z009 20105 DATAz003,4,7,85,d6,zff2,fb,d1,81,80,z006,40,c0,42,d6,zfe2,be,16,2,2,z003 20110 DATAz003,4,7,5,86,d7,zff2,f9,d1,z802,z005,40,c0,40,c2,d6,zfe2,3e,16,2,2,0,0 20120 DATAz003,4,87,d5,fe,zff2,d3,z812,z007,40,c2,56,zfe3,96,2,2,z004 20180 'tiro 20190 DATAz007,cc,z0015,cc,z008 20194 'caveira 20195 DATAf,13,21,25,21,61,7f,z552,z003,z552,3f,0,e0,98,c,46,f,1f,fb,55,44,4,c,18,z502,e0,0,f,13,21,25,21,61,7f,z552,0,0,z552,3f,0,0,e0,98,c,46,f,1f,fb,55,44,4,c,z502,e0,0,0 20200 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 21000 GOSUB26000:PUTSPRITEF,(0,E1):PUTSPRITE0,(0,E1):COLOR10:A$="Devem ser acentuados todos os voc bulos":XL=18:YL=52:GOSUB22000:A$="proparox¡tonos.":XL=88:YL=60:GOSUB22000:RETURN 22000 INTERVALOFF:FORI=1TOLEN(A$):B$=MID$(A$,I,1):IFB$=" "THENXL=XL-2 22005 IFB$="'"THENXL=XL-1 22010 PRESET(XL,YL),POINT(XL,YL):PRINT#1,B$:XL=XL+6:NEXT:INTERVALON:RETURN 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 26000 LINE(0,50)-(X1,107),1,BF:RETURN 30000 COLOR15:PRESET(20,140),POINT(20,160):PRINT#1,"Tecle <espa`o> para iniciar" 30001 COLOR15:PA=2:PUTSPRITE0,(R,M),11:IFM>Y-QANDM<Y+QTHENB=1 30010 INTERVALOFF:SOUND0,0:SOUND1,0:SOUND2,0:SOUND3,0:SOUND4,24:SOUND5,0:SOUND6,22:SOUND7,3:SOUND8,2:SOUND9,2:SOUND10,16:SOUND11,90:SOUND12,2:SOUND13,12 30020 MY=M-Y+5:M=M+(MY>=0)*PA-(MY<0)*PA:PUTSPRITES2,(X+16,Y),H,S2+S 30021 SPRITEOFF:PUTSPRITES1,(X,Y),H,S1+S:PUTSPRITES3,(X+33,Y),H,S3+S:X=X+PP+RND(-TIME)*O:Y=Y+INT(RND(-TIME)*4)-INT(RND(-TIME)*5):Y=Y-(Y<91)*8+(Y>120)*8:INTERVALON:SPRITEON 30025 SWAPH,H2:SS=1-SS: PUTSPRITE8,(IX,33),1,8:PUTSPRITE9,(IX+W,33),1,9:PUTSPRITE1,(X,Y+C),9,SF+SS:IX=IX+2 30030 IFX>512THENSX=SX+TD:LINE(28,99)-(255,107),1,BF:IFSX>NPTHENSX=0:INTERVALOFF:X=0:GOSUB10200:Y=90ELSES=S+O:X=0:QR=0:V=V1:H=Z:GOSUB18700:Y=110:SPRITEON 30035 IFJY1=999THENGOSUB40010 30040 U=3-(V%(SX,0)<>2)*4:LINE(48,3)-(53,6),1-(U=7)*2,BF 30050 IFBTHENK=K-S3:PUTSPRITEZ,(K,M),F,Z:K%=K:IFK<CTHENK=PS:K%=K:B=0:PUTSPRITEZ,(PS,E1) 30055 IFSTRIG(TJ)<>0ORSTRIG(0)<>0THENLINE(0,140)-(255,150),1,BF:PLAY"cdefgabcdefgab":GOTO40000 30060 GOTO30001 40000 GOSUB40010:PA=8:PP=GE*4:GOSUB12300:GOSUB14100:H=11:H2=15:B=0:GOSUB18700:GOSUB12700:SX=0:S=0:QR=0:ST=0:GOSUB9700:GOSUB14500:TX=72:K=PS:K%=K:SF=2:FS=0:GOTO300 40005 IFV%(0,2)>6THENL1=4:L2=-4:GOTO300LLISELSEL1=0:L2=0:GOTO300 40010 FL=1:JY1=0:GD=0:Y=90:M=F:PLAY"cdefgabcdefgabc":M=130:PUTSPRITEF,(PS,M):PUTSPRITEZ,(M,E1):RETURN 45000 BEEP:PLAYTI$,TA$,TU$:PLAYTU$,TI$,TA$:RETURN 55000 B=50:COLOR,1,1:OPEN"grp:"FOROUTPUTAS#1 55010 SCREEN2:W=128 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(52,115):PRINT#1,"NA GRUTA DA CAVEIRA":LINE(52,125)-(201,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‚":RETURN 60000 PRESET(55,40):PRINT#1,"**********":X%=55 60001 A$=INKEY$ 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,47),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 |