Acentue! Proparoxítonas

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

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

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

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