Geo-Lógica

23 de julho de 201723 de julho de 2017 MSX-Basic 0 comentários Aplicativos, Didáticos

Geo-Lógica é um jogo emocionante em que você ensina ao seu Expert as características de vários países, podendo ser utilizado tanto em casa por toda a família, como nas escolas, em diversas séries.

Teste o programa no WebMSX – The Online MSX Emulator

A principal característica de Geo-Lógica é que os jogadores podem passar o seu conhecimento para o Expert, cada um utilizando seu próprio vocabulário, ou seja, crianças pequenas ensinam o micro com base em suas experiências usando para tal as palavras que conhecem e usam no seu cotidiano.
De modo semelhante, mas com outro vocabulário, pessoas de maior idade (até adultos) também ensinam ao Expert aquilo que sabem.
Geo-Lógica aceita de 1 a 4 jogadores.

Software House: CEBI – Centro Educacional Brasileiro de Infomática
Distribuição: Gradiente Informática

Código fonte

10 FORI=1TO10:KEYI,"":NEXT:COLOR1,4,4:GOSUB55000:CLEAR:GOTO260
20 AR=11:B1=11:CR1=11:E=IE:GOSUB9700:GOSUB230:S$=R$:E=E+1:GOSUB230:GOSUB510:GOSUB8500:GOSUB500:T$="Pense em um "+R$+".^Eu vou tentar adivinhar.":GOSUB1200
21 CVB=0:CPL=0:IN=E+1:GOSUB200:GOSUB200
40 INTERVALON:E=IN:GOSUB510
50 NAM=1:GOSUB1530:YS!=155:GOSUB810:GOSUB230:GOSUB500:T$=R$+"?":ABC=1:CPL=0:CVB=0:CDR=0:ASR=0:A$=R$:GOSUB1200:WAN=1
51 R!=STICK(0):IFR!MOD2=0THEN53ELSEGOSUB600
52 IFS!=3THENZ!=3:GOSUB610ELSEIFS!=7THENZ!=7:GOSUB620ELSEIFS!=5THENZ!=5:GOSUB810:NAM=0:DER=1:GOSUB510:CPL=0:PUTSPRITE8,(0,209):T$="Arquivo":GOSUB1200:NAM=1:GOTO130ELSEW=0:GOSUB630:GOSUB900:Z!=S!:S!=1
53 INTERVALON:R$=INKEY$:IFR$<>CHR$(13)THEN51ELSEPLAY"s13m500l63cdeg":GOSUB810:ABC=1:BBC=1:W=58:GOSUB1520:PUTSPRITE0,(0,209),0:PUTSPRITE2,(0,209),0
54 GOSUB1530:IFP=43THEN70
60 UE=E:S!=Z!:G=UE+1-(S!=7)*2:E=FNP(G):A=E:IFE=0THEN120ELSE50
70 IFS!=3THENGOSUB20000:GOSUB500:T$="Acertei!":GOSUB1200:GOSUB15700:GOSUB12000:GOSUB200:GOTO9100
80 GOSUB500:GOSUB12500:GOSUB12000:CPL=0
81 T$="Qual ‚ o pa¡s?":GOSUB1200:INTERVALOFF:GOSUB510:GOSUB1040:B$=T$:GOSUB15500:GOSUB510:QP(QJ)=QP(QJ)+1:GOSUB10000
82 T$="Escreva uma pergunta cuja res- posta seja <sim> para:":CPL=0:GOSUB500:GOSUB1200:INTERVALOFF:T$=B$+"."
83 GOSUB1200:INTERVALOFF:GOSUB510:GOSUB1040:R$=T$:GOSUB22000:PUTSPRITE8,(0,209)
84 FORI=LEN(R$)TO1STEP-1:IFMID$(R$,I,1)="?"THENR$=MID$(R$,1,LEN(R$)-1):NEXT
85 GOSUB510:GOSUB500:T$="Obrigado por ter me ensinado umnovo pa¡s.":GOSUB1200:INTERVALOFF
90 E=FI:C%=63:GOSUB220:E=FI:FI=FI+P+1
100 NN=E:GOSUB210:POKEG,M:POKEG+1,N:NN=FI+4:GOSUB210:POKEFI,M:POKEFI+1,N:NN=A:GOSUB210:POKEFI+2,M:POKEFI+3,N:FI=FI+4
110 R$=B$:GOSUB170:C%=43:E=FI:GOSUB220:FI=FI+P+1:GOTO9100
120 GOSUB810:GOSUB500:T$="Nƒo conhe`o...":GOSUB1200:GOSUB200:GOTO80
130 R$=INKEY$:IFR$=CHR$(13)THEN140ELSEZ!=STICK(0):IFZ!<>0THENS!=Z!:GOTO51ELSE130
140 CR1=6:GOSUB510:LKJ=1:GOSUB1520:INTERVALOFF:GOSUB810:GOSUB500:T$="Vocˆ deseja gravar os dados a- tuais em fita cassete?":GOSUB1200:GOSUB510
142 GOSUB150:IFRS=3THEN8300
143 PUTSPRITE0,(0,209):B1=11:AR=11:GOSUB500:T$="Vocˆ deseja chamar os dados da fita cassete?":GOSUB1200
145 GOSUB150:IFRS=3THENGOTO8350ELSE20
148 ASR=1:GOSUB810:GOSUB510:GOSUB500:T$="Qual o nome do arquivo que devo"+T$:GOSUB1200:GOSUB510:GOSUB1040:QQP$=T$:ASR=0:RETURN
149 ASR=1:GOSUB810:GOSUB700:A$=INKEY$:IFA$<>CHR$(13)THEN149ELSEGOSUB1520:ASR=0:RETURN
150 B1=11:AR=11
151 RY=STICK(0):IFRY=3THENRS=3:B1=11:AR=6:WN=11:GOSUB920:GOSUB610ELSEIFRY=7THENRS=7:B1=6:AR=11:WN=11:GOSUB920:GOSUB620
152 GOSUB700:A$=INKEY$:IFA$<>CHR$(13)THEN151ELSEGOSUB1520:WN=1:RETURN
170 M=LEN(R$):A$="":FORI!=1TOM
190 A$=A$+MID$(R$,I!,1):NEXT:R$=A$:RETURN
200 FORTY=1TO99:NEXT:RETURN
210 N=INT(NN/F):M=NN-N*F:RETURN
220 P=LEN(R$):FORI!=0TOP-1:POKEE+I!,ASC(MID$(R$,I!+1,1)):NEXT:POKEE+I!,C%:RETURN
230 R$=""
240 P=PEEK(E):IFP=43ORP=63THEN250ELSER$=R$+CHR$(P):E=E+1:GOTO240
250 RETURN
260 CLEAR1024:F=256:IE=52000!:DEFFNP(M)=PEEK(M)+PEEK(M+1)*F:TI=TIME
261 FORI=1TO4:MLS(I)=179:NEXT:QJ=1
270 QJ=1:WAN=0
280 E=IE:R$="CEBI":C%=43:GOSUB220:IN=IE+P+1:R$="pa¡s":E=IN:C%=43:GOSUB220:IN=IN+P+1
290 R$="Fica no Hemisf‚rio Sul":GOSUB170:E=IN:C%=63:GOSUB220:FI=IN+P+1:NN=FI+4:GOSUB210:POKEFI,M:POKEFI+1,N:POKEFI+2,0:POKEFI+3,0:FI=FI+4
295 R$="Brasil":GOSUB170:E=FI:C%=43:GOSUB220:FI=FI+P+1
296 SCREEN,2:F=F-1:SPRITE$(31)=CHR$(0)+CHR$(F)+CHR$(F)+CHR$(F):GOSUB1000:OPEN"grp:"FOR OUTPUTAS#1:F=F+1
300 FORC!=11TO18:GOSUB960:SPRITE$(C!)=R$:NEXT:
321 DIMBA$(20),UD$(20),SW(20):GOSUB25000
322 FORC!=1TO9STEP2:GOSUB960:SPRITE$(C!)=R$:NEXT:FORC!=0TO6STEP2:GOSUB960:SPRITE$(C!)=R$:NEXT:GOSUB960:SPRITE$(8)=R$:FORC!=1TO8:READSD$(C!):NEXT:FORC!=1TO16:READUD$(C!):NEXT
335 SCREEN2:COLOR1,4,4:CLS:GOSUB500:GOSUB510:LINE(13,72)-(242,73),2,BF:LINE(13,126)-(242,127),11,BF:LINE(13,131)-(242,186),1,BF:LINE(13,131)-(242,186),15,B:X=183:Y=150:
337 GOTO30000
449 GOSUB500:T$="Quantos jogadores ir„o partici-par?(1,2,3 ou 4)":GOSUB1200:CH5=1:GOSUB510:T$=INPUT$(1):CH5=0:NJ=VAL(T$):IFNJ<1ORNJ>4THEN449
450 FORI=1TONJ
451 GOSUB500:T$="Qual o nome do jogador"+STR$(I)+"?":GOSUB1200:GOSUB510:GOSUB1040:IFLEN(T$)>9THENGOSUB500:T$="Use no m ximo 9 letras.":GOSUB1200:GOSUB200:BEEP:GOTO451ELSENOM$(I)=T$
452 GOSUB500:T$="Qual a sua idade, "+NOM$(I)+"?":GOSUB1200:CH5=1:GOSUB510:GOSUB1040:CH5=0:IFVAL(T$)>100ORVAL(T$)<5THEN452ELSEQQP=QQP+VAL(T$):NEXT:MIC=(QQP/NJ)/100
453 GOSUB500:GOSUB510:GOTO457
455 LINE(183,150)-(231,166),15,BF:LINE(193,150)-(201,158),1:LINE-(193,166),1:LINE(221,150)-(213,158),1:LINE-(221,166),1:LINE(201,158)-(213,158),1
456 PSET(183,150),1:PSET(231,166),1:PSET(231,150),1:PSET(183,166),1:RETURN
457 IFC1!=6THENGOSUB500
458 IFC2!=6THENGOSUB510
460 INTERVALOFF:FORYS!=-32TO155:GOSUB810:NEXT:YS!=155
461 GOSUB455:LINE(181,148)-(233,168),15,B
462 BK=3:GOSUB9500:GOSUB9900
470 WAN=0:SCS=1:CR1=8
475 FORI=48600!TO48739!:POKEI+3398,PEEK(I):NEXT:FI=52139!:GOTO20
499 PLAY"v15s0l63t255":NO=(INT(RND(-TIME)*3))+67:N1$=CHR$(NO):N2$=CHR$(NO+1):N3$=CHR$(NO+2):PLAYN1$:PLAYN2$:PLAYN3$
500 VM!=7:V!=1:H!=2:C1!=INT(RND(-TIME+TI)*16):IFC1!=0ORC1!=1ORC1!=15ORC1!=4ORC1!=5ORC1!=CF!THEN500ELSECF!=C1!:LINE(13,4)-(242,68),CF!,BF:LINE(13,4)-(242,68),15,B:RETURN
510 PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):VM!=12:H!=2:V!=9:C2!=INT(RND(-TIME+TI)*16):IFC2!=0ORC2!=1ORC2!=15ORC2!=4ORC2!=5ORC2!=CF!THEN510ELSECF!=C2!:LINE(13,76)-(242,121),CF!,BF:LINE(13,76)-(242,121),15,B:RETURN
600 GOSUB920:GOSUB700:PUTSPRITES!,(XR!,YR!),15,S!:GOSUB602:S!=R!:BBC=0:ABC=0:INTERVALON:ONINTERVAL=30GOSUB700:GOSUB1530:RETURN
602 IFA$="n"ORA$="N"THENR!=7ELSEIFA$="s"ORA$="S"THENR!=3
603 RETURN
608 IFDER=1THENGOSUB510:DER=0
609 RETURN
610 GOSUB810:GOSUB608:CPL=0:PUTSPRITE0,(20,78),1,0:PUTSPRITE2,(0,209),0,6:PUTSPRITE8,(0,209):RETURN
620 GOSUB810:GOSUB608:CPL=0:PUTSPRITE0,(20,78),1,2:PUTSPRITE2,(0,209),0,6:PUT SPRITE8,(0,209):RETURN
630 GOSUB608:GOSUB810:CPL=0:PUTSPRITE0,(19,78),1,4:PUTSPRITE2,(36,78),1,6:PUT SPRITE8,(0,209):RETURN
700 IFBBC=1THENRETURNELSECTS=CTS+1:ZA=2-ZA:IFZA<0THENZA=ABS(ZA)ELSELINE(153,143)-(172,172),ZA+1,B:CDR=1:IFCTSMOD2=0THENGOSUB6500:CDR=0
710 IFS!MOD2=0THENRETURNELSEIFS!=3ORS!=7THENT!=ZA:XR!=209-(S!=3)*13+(S!=7)*22:YR!=155ELSEXR!=205:YR!=155-(S!=5)*5+(S!=1)*5:T!=ZA
711 IFABC=1THENRETURNELSEPUTSPRITE S!,(XR!,YR!),2-T!,S!:RETURN
720 PUTSPRITE1,(209,140),15,1:PUTSPRITE1,(209,140),8,1:RETURN
800 IFASR=1THENRETURNELSET!=0:U!=4-U!:S!=U!+3:PUTSPRITE7,(187,155),AR,7:PUTSPRITE3,(222,155),B1,3:PUTSPRITE1,(205,150),CR1,1:PUTSPRITE5,(205,160),CR1,5:GOSUB17230:GOSUB810:GOSUB6500
805 RETURN
810 PUTSPRITE3,(222,YS!),6,3:PUTSPRITE7,(187,YS!),6,7:PUTSPRITE5,(205,YS!+5),6,5:PUTSPRITE1,(205,YS!-5),6,1:RETURN
900 R!=INT(RND(1)*2):R!=R!*3:IFR!<1THENR!=7
901 S!=R!:RETURN
920 PUTSPRITE8,(0,209):INTERVALSTOP:LINE(155,145)-(170,170),3,BF:PSET(155,145),1:PSET(170,170),1:PSET(170,145),1:PSET(155,170),1:LINE(164,152)-(164,163),1:PSET(161,163),1:LINE(160,164)-(164,164),1:PSET(162,164),3:LINE(159,165)-(163,165),1
921 LINE(160,166)-(161,166),1:PSET(161,167),1:BBC=0:ABC=1:INTERVALON:RETURN
960 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:GOTO980
970 R$=R$+CHR$(VAL("&h"+S$))
980 NEXT:RETURN
1000 X1!=1:X2!=33:Y1!=0:GOSUB1030:RETURN
1030 HN!=X1!*7-1:VN!=Y1!*9-9:HX!=X2!*7+1:RETURN
1040 POKE64683!,1:ASR=1:INTERVALON:IFLKJ=0THENWAN=1
1045 LINE(13,76)-(242,121),0,B:LINE(13,76)-(242,121),15,B
1050 T$="":C!=0:Y!=V!*9+VN!
1060 X!=H!*7+HN!:Y!=Y!+9
1070 IFX!>HX!THEN1060
1080 A$=INKEY$:PUTSPRITE 0,(X!,Y!),15,31:PUTSPRITE0 ,(X!,Y!),0,31:IFA$=""THEN1080
1085 POKE64683!,0
1090 IFA$=CHR$(13)THEN1190
1100 IFA$<>CHR$(8)THEN1180
1120 IFX!-14<=HN!THEN1150
1130 X!=X!-7
1140 IFLEN(T$)<=1THEN1145ELSE1142
1142 T$=LEFT$(T$,LEN(T$)-1):GOTO1146
1145 T$="":X!=H!*7+HN!
1146 LINE(X!-1,Y!)-(X!+7,Y!+9),CF!,BF:GOTO1080
1150 IFY!-9<=V!*9-9THEN1080
1160 Y!=Y!-9:X!=HX!-2:GOTO1140
1180 IFASC(A$)<32THEN1080ELSEINTERVALSTOP:PRESET(X!,Y!),CF!:PRINT#1,A$:INTERVALON:X!=X!+7:T$=T$+A$:C!=C!+1:IFC!=2-CH5THEN6000ELSEIFC!=124THEN1190
1181 GOTO1070
1190 PLAY"s13m500l63defa":BBC=1:GOSUB1520:V!=(Y!-VN!)\9:IFV!>VM!THENV!=V!-4:T$="":IFV!=1THENGOSUB500ELSEGOSUB510
1195 IFT$=""THEN1040ELSEASR=0:RETURN
1200 Y!=V!*9+VN!+9:X!=H!*7+HN!
1205 WAN=0:IFNAM<>0THEN INTERVALON:ONINTERVAL=90GOSUB800
1220 PLAY"s8m99o6l63":FORJ!=1TOLEN(T$):IFX!>HX!THENGOSUB1250
1230 PUTSPRITE31,(X!,Y!),5,31:PUTSPRITE31,(X!,Y!),0,31:IFMID$(T$,J!,1)="^"THENGOSUB1250:J!=J!+1
1240 INTERVALSTOP: PRESET(X!,Y!),CF!:PLAYCHR$(65+RND(7)*7):PRINT#1,MID$(T$,J!,1):X!=X!+7:NEXT:V!=(Y!-VN!)/9:INTERVALON:RETURN
1250 Y!=Y!+9:X!=H!*7+HN!:RETURN
1500 W=58:T!=9-T!:PUTSPRITE8,(153,143),11,8:T!=15-T!:CPL=0:FORI=1TO10:PLAY"v15s0l63t255","v15s0m5000t250l63":A$="n95":B$="n90":PLAYA$,B$:NEXT:RETURN
1520 BBC=1:LINE(153,143)-(172,172),1,BF:RETURN
1530 TI=TIME:RETURN
4010 DATAzff04,z0012,zfe04,z0012,zf810,z0022,zff09,z007,zfc09,z007,0,0,7,f,f,f,7,z0012,80,80,80,z0010,1,7,f,3f,7f,3f,f,7,1,z007,0,c0,e0,f0,fc,f0,e0,c0,z008
4110 DATA0,3,3,f,f,3,3,z0012,c0,c0,z0011,18,18,18,ff,ff,18,18,18,18,z0010,fc,fc,z0011,zff6,z0010,zfe6,z0010
5000 DATAF8,20,20,20,20,z0027,F8,80,F8,8,F8,z0027,F8,88,F8,88,88,z0027,88,c8,a8,98,88,z0027,z0016,z0411,24,6C,F8,60,20,z002,f7,z822,f2,z122,f7,z009,44,6c,54,z444,z007,7,0,97,zd42,b7,b4,z942,z007,80,0,bc,za45,bc,z007
5100 DATAz002,fb,z222,23,z223,z009,d0,z502,d0,z502,5e,z007,z002,8b,z8a2,8b,8a,52,23,z009,de,2,4,8c,8,10,de,z007
5120 DATA0,1c,38,70,6f,50,21,49,81,a1,80,48,21,10,f,2,0,38,1c,e,f6,a,4,22,1,fd,1,12,4,8,f0,40
5130 DATAFinlandia,Colombia,Guine,Nigeria,Indonesia,Italia,Sui`a,Suecia
5150 DATAFinlƒndia,Col“mbia,Guin‚,Nig‚ria,Indon‚sia,It lia,Su¡`a,Su‚cia,Alemanha,Ocidental,Dinamarca,Hungria,Brasil,Bangladesh,Ir„,Jap„o
6000 CPL=0:PUTSPRITE8,(0,209):WN=11:GOSUB920:ABC=1:BBC=0:INTERVALON:ONINTERVAL=60GOSUB7000:GOTO1070
6500 IFWAN<>0THENGOSUB11000:CPL=CPL+1:IFCPL>9ANDCDR=0THENGOSUB1500
6501 RETURN
7000 IFBBC=1THENRETURNELSECTS=CTS+1:BY=2-BY:IFBY<0THENBY=ABS(BY)ELSELINE(153,143)-(172,172),BY+1,B
7010 RETURN
7500 GOSUB7000:Q$=INKEY$:IFQ$<>CHR$(13)THEN7500ELSEGOSUB1520:RETURN
8000 LINE(QX,QY)-(A2,O2),5,BF:PSET(QX,QY),1:PSET(QX,O2),1:PSET(A2,QY),1:PSET(A2,O2),1:INTERVALSTOP:CF!=5:X!=QX+4:Y!=QY+1:T$=IJ$+STR$(QP(QJ)):GOSUB1220:INTERVALON:RETURN
8300 PUTSPRITE0,(0,209):GOSUB500:T$="Pressione as teclas REC+PLAY dogravador.^Pronto para gravar?":GOSUB1200:GOSUB150:IFRS<>3THEN143ELSET$="gravar?":GOSUB148:GOSUB510:GOSUB500:T$="gravando":GOSUB1200:GOSUB40000:BSAVEQQP$,IE-2,FI:GOSUB500
8301 T$="Fim de grava`„o":GOSUB1200:GOTO20
8350 PUTSPRITE0,(0,209):GOSUB500:T$="Pressione a tecla PLAY.^Tudo pronto para chamar?":GOSUB1200:GOSUB150:IFRS<>3THEN20ELSET$="chamar?":GOSUB148:GOSUB510 :GOSUB500:T$="Arquivo sendo chamado.":GOSUB1200:BLOADQQP$:FI=PEEK(51998!)+PEEK(51999!)*F:GOSUB500
8351 T$="Arquivo pronto!":GOSUB1200:GOTO20
8500 GOSUB499:BEEP:T$=NOM$(QJ)+", agora ‚ a sua vez.":GOSUB1200:INTERVALOFF:PUTSPRITE8,(0,209):GOSUB17230:GOSUB500:RETURN
8800 IFQJ=1THENIJ$="1:":QX=24:QY=141:A2=70:O2=149ELSEIFQJ=2THENIJ$="2:":QX=24:QY=154:A2=70:O2=162ELSEIFQJ=3THENIJ$="3:":QX=79:QY=141:A2=125:O2=149ELSEIFQJ=4THENIJ$="4:":QX=79:QY=154:A2=125:O2=162
8801 GOSUB8850:RETURN
8850 INTERVALSTOP:COLORPL:CF!=5:X!=QX+4:Y!=QY+1:T$=IJ$+STR$(QP(QJ)):GOSUB1220:COLOR1:INTERVALON:RETURN
9100 GOSUB1520:PL=1:GOSUB8800:GOSUB500:QJ=QJ+1:IFQJ>NJTHENQJ=1
9110 GOSUB9700:PL=15:GOSUB8800:GOTO20
9200 CR1=8:GOSUB10500:GOSUB500:T$="Ojogo acabou.^Vamos jogar novamente?":GOSUB1200:FORK=1TO500:NEXT:ASR=0:WN=1:BBC=1
9202 GOSUB150:IFRS=3THEN20ELSEGOSUB500:T$="Fim de jogo.":GOSUB1200:PUTSPRITE0,(0,209):INTERVALOFF:GOSUB810:GOTO9300
9300 GOTO9300
9500 IJ$="1:":QX=24:QY=141:A2=70:O2=149: GOSUB8000:IFNJ>1THENIJ$="2:":QY=154:O2=162:GOSUB8000:IFNJ>2THENIJ$="3:":QX=79:QY=141:A2=125:O2=149:GOSUB8000:IFNJ>3THENIJ$="4:":QY=154:O2=162:GOSUB8000
9510 IFBK>1THENPL=15:GOSUB8800
9600 LINE(21,137)-(128,180),15,B:RETURN
9700 IFMLS(QJ)<139THENQV=QV+1:QJ=QJ+1:IFQJ>NJTHENQJ=1:GOTO9700ELSE9700
9710 LINE(137,138)-(141,179),1,BF:LINE(134,137)-(144,180),15,B:LINE(137,MLS(QJ))-(141,179),6,BF:CVB=0:RETURN
9800 QV=1:QJ=1:FORI=1TO4:QP(I)=0:CTZ(I)=0:MLS(I)=179:NEXT:RETURN
9900 LINE(24,167)-(125,175),14,BF:PSET(24,167),1:PSET(24,175),1:PSET(125,167),1:PSET(125,175),1:CF!=14:X!=28:Y!=168:T$=QNO$+A1$+QPC$:GOSUB1220:RETURN
10000 IFQJ=1THENIJ$="1:":QX=24:QY=141:A2=70:O2=149ELSEIFQJ=2THENIJ$="2:":QX=24:QY=154:A2=70:O2=162ELSEIFQJ=3THENIJ$="3:":QX=79:QY=141:A2=125:O2=149ELSEIFQJ=4THENIJ$="4:":QX=79:QY=154:A2=125:O2=162
10010 GOSUB8000:RETURN
10500 FORI=1TO4:IFQP(MY)<QP(I)THENMY=MY+1:I=0:GOTO10500ELSENEXT:IFQP(MY)<=VAL(QPC$)THENGOTO10501ELSEA1$=":":QNO$=NOM$(MY):QPC$=STR$(QP(MY))
10501 WAN=0:GOSUB9600:GOSUB9900:GOSUB9800:GOSUB9500:GOSUB9700:WAN=1:RETURN
11000 BEEP:MLS(QJ)=MLS(QJ)-MIC:LINE(137,MLS(QJ))-(141,178),6,BF:CVB=0:GOSUB710:IFMLS(QJ)<139THENGOTO15000
11100 RETURN
12000 GOSUB12100:L=1:K=90:INTERVALOFF:FORI=211TO11STEP-1:PUTSPRITE22,(I,K),SW(7),SW(1):PUTSPRITE21,(I+SW(15),K+SW(13)),SW(9),SW(3):PUTSPRITE20,(I+(SW(15)*2),K+(SW(13)*2)),SW(11),SW(5)
12010 NEXT:PUTSPRITE20,(0,209):PUTSPRITE21,(0,209):PUTSPRITE22,(0,209):INTERVALON
12011 RETURN
12100 LINE(13,76)-(242,121),14,BF:LINE(13,76)-(242,121),15,B:RETURN
12500 SSB=SSB+1:IFSSB=1THENWA=12ELSEIFSSB=2THENWA=13ELSEIFSSB=3THENWA=10ELSEIFSSB=4THENWA=14ELSEIFSSB=5THENWA=9
12501 GOSUB21000:IFSSB>5THENSSB=0
12502 RETURN
15000 CTZ(QJ)=1:GOSUB16000:GOSUB500:T$=NOM$(QJ)+",seu tempo j  acabou":GOSUB1200:PL=1:GOSUB8800:QJ=QJ+1:IFQJ>NJTHENQJ=1:QV=QV+1
15110 GOSUB9700:PL=15:GOSUB8800:GOTO20
15500 FORI=1TO8:IFSD$(I)=B$THENGOSUB15600
15501 NEXT:RETURN
15600 GOSUB500:T$=UD$(I)+" tem acento!":GOSUB1200:B$=UD$(I):GOSUB17230:GOSUB17230:RETURN
15700 FORI=1TO16:IFA$=UD$(I)THENGOSUB500:T$="Veja a bandeira deste pa¡s.":GOSUB1200:RETURNELSENEXT:RETURN
16000 FORI=1TONJ:IFCTZ(I)=0THENRETURNELSENEXT:INTERVALOFF:ASR=1:GOTO9200
17230 FORK=1TO200:NEXT:RETURN
20000 IFA$="Alemanha Ocidental"THENWA=0ELSEIFA$="Bangladesh"THENWA=1ELSEIFA$="Finlƒndia"THENWA=2ELSEIFA$="Col“mbia"THENWA=3ELSEIFA$="Fran`a"THENWA=4ELSEIFA$="Dinamarca"THENWA=5
20020 IFA$="Guin‚"THENWA=6ELSEIFA$="Ir„"THENWA=7ELSEIFA$="Nig‚ria"THENWA=8ELSEIFA$="Brasil"THENWA=9ELSEIFA$="Jap„o"THENWA=10ELSEIFA$="Indon‚sia"THENWA=11
20030 IFA$="Hungria"THENWA=12ELSEIFA$="It lia"THENWA=13ELSEIFA$="Su¡`a"THENWA=14ELSEIFA$="Su‚cia"THENWA=15
20040 GOSUB21000:RETURN
21000 FORVB=1TO15STEP2:SW(VB)=VAL(MID$(BA$(WA),VB,2)):NEXT:RETURN
22000 GOSUB510:GOSUB500:T$="Est  tudo certo?":GOSUB1200:CR1=6:ASR=0
22010 RY=STICK(0):IFRY=3THENRS=3:B1=11:AR=6:GOSUB920:GOSUB610ELSEIFRY=7THENRS=7:B1=6:AR=11:WN=11:GOSUB920:GOSUB620
22020 GOSUB150:IFRS=3THENRETURNELSE82
25000 BA$(0)="1111110106110400":BA$(1)="1314001206000000":BA$(2)="1317001507000000":BA$(3)="1111111104060400":BA$(4)="1212120415060005":BA$(5)="1317000615000000":BA$(6)="1212120611120005":BA$(7)="1111111215060400"
25010 BA$(8)="1212121215120005":BA$(9)="1315141211040000":BA$(10)="1314001506000000":BA$(11)="1818000615000600":BA$(12)="1111110615120400":BA$(13)="1212121215060005":BA$(14)="1316000615000000":BA$(15)="1317000711000000"
25020 RETURN
30000 A$(1,1)="s0m3000o4l8g16":A$(1,2)="s0m3000o3":A$(1,3)="s0m3000o2":A$(2,1)="o5co4b16o5cd16ed16ef16f#4r16g16":A$(2,2)="l8er16er16er16er16er16er16":A$(2,3)="l8cr16cr16cr16cr16cr16cr16"
30010 A$(3,1)="s0m8000o5l2c16":A$(3,2)="s0m8000o3c2":A$(3,3)="s0m8000o2c2"
30020 GOSUB12100:FORJ=1TO3:PLAYA$(J,1),A$(J,2),A$(J,3):NEXT
30030 K=90:I=121:FORL=1TO15:WA=WA+1:GOSUB21000:PUTSPRITE22,(I,K),SW(7),SW(1):PUTSPRITE21,(I+SW(15),K+SW(13)),SW(9),SW(3):PUTSPRITE20,(I+(SW(15)*2),K+(SW(13)*2)),SW(11),SW(5):
30040 IFWA=15THENWA=-1
30050 NEXT:FORI=20TO22:PUTSPRITEI,(0,209):NEXT:INTERVALON:GOTO50000
40000 POKE51999!,INT(FI/F):POKE51998!,FI-PEEK(51999!)*F:RETURN
50000 INTERVALOFF:GOSUB499:T$="Vocˆ j  brincou com este jogo?^Tecle 0 caso j  tenha jogado ou1 caso nunca tenha jogado.":GOSUB1200
50001 T$=INPUT$(1):T=VAL(T$):IFT=1THEN50010ELSEIFT=0THEN50310ELSE50001
50010 GOSUB499:T$="Toda vez que a figura que est  piscando l  embaixo aparecer,  vocˆ dever  pressionar o bot„o com desenho correspondente no  teclado.^Experimente.":GOSUB1200:GOSUB50320
50020 GOSUB499:T$="Viu!!!^Desta forma vocˆ estar  dizendo… mim que posso continuar.^ ^ ^N„o se esque`a de teclar ...":GOSUB1200:M=151:R=152:XB=216:YB=54:GOSUB50420:GOSUB50320
50030 GOSUB499:T$="Este retƒngulo, onde estou es- crevendo, ser  usado apenas pa-ra fazer perguntas … vocˆ.^ ^ ^Lembre-se ...":GOSUB1200:M=151:R=152:XB=111:YB=63:GOSUB50420:GOSUB50320:GOSUB499
50040 T$="No retƒngulo do meio ‚ onde vo-cˆ ir  escrever.^ ^Por exemplo, escreva seu nome  agora.":GOSUB1200:GOSUB510:GOSUB1040:P$=T$:GOSUB510:GOSUB499
50060 T$="No retƒngulo de baixo v„o apa- recer os pontos de cada jogador^Podemos ter at‚ 4 jogadores ao mesmo tempo.":GOSUB1200:NJ=4:GOSUB9500:FORBK=1TO3:LINE(13,131)-(242,186),1,B:LINE(13,131)-(242,186),15,B:NEXTBK:GOSUB50320
50110 GOSUB499:T$="Experimente pressionar uma das teclas com desenho semelhante …figura que est  na tela!":GOSUB1200:FORYS!=-32TO155:GOSUB810:NEXTYS!:YS!=155:ABC=1:CH5=1:GOSUB455:INTERVALON:ONINTERVAL=120GOSUB50450
50120 INTERVALON:TIME=0:GOSUB50360:GOSUB810:IFCW=1THENGOSUB510
50130 GOSUB1520:S!=30:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209)
50150 GT=1:PUTSPRITE20,(0,209):PUTSPRITE9,(0,209):GOSUB499:T$="Desta forma, vocˆ est  dizendo … mim SIM, NŽO e TALVEZ!^Vocˆ ainda pode gravar ou ler  um arquivo da fita cassete com a op`„o     .":GOSUB1200
50160 FORI=1TO8:LINE(80-I,43+I)-(91+I,43+I),15:NEXT:PUTSPRITE20,(83,45),6,5:GOSUB50320:PUTSPRITE20,(0,209):GOTO50240
50165 IFCW=1THENGOSUB510:CW=0
50166 RETURN
50170 GOSUB50165:GOSUB810:PUTSPRITE0,(0,209):GOSUB630:INTERVALSTOP:S!=1:XR!=205:YR!=150:INTERVALON:RETURN
50190 GOSUB50165:GOSUB810:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):GOSUB620:INTERVALSTOP:S!=7:XR!=187:YR!=155:INTERVALON:RETURN
50210 GOSUB50165:GOSUB810:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):GOSUB610:INTERVALSTOP:S!=3:XR!=222:YR!=155:INTERVALON:RETURN
50230 GOSUB810:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):GOSUB510:T$="Arquivo":GOSUB1200:INTERVALSTOP:S!=5:XR!=205:YR!=160:CW=1:INTERVALON:RETURN
50240 A=10:LINE(134,137)-(144,180),15,B:GOSUB499:T$="Este ‚ o marcador de tempo.":GOSUB1200:INTERVALOFF:FORDI=179TO139STEP-.2:LINE(137,DI)-(141,179),6,BF:GOSUB50500
50250 NEXT:GOSUB50320
50260 FORQI=1TO10:PUTSPRITEQI,(0,209):NEXTQI:LINE(13,131)-(242,186),1,BF:LINE(13,131)-(242,186),15,B
50270 GOSUB499:T$="       REGRAS DO JOGO:":GOSUB1200:GOSUB920:GOSUB50320
50280 GOSUB499:T$="Eu conhe`o alguns pa¡ses.^Toda vez que vocˆ me ensinar umnovo pa¡s, vocˆ ganhar  um pon-to.":GOSUB1200:GOSUB920:GOSUB7500:GOSUB499
50290 T$="Vocˆ deve responder minhas per-guntas com SIM, NŽO e   TALVEZ (quando em d£vida).^ ^Para tanto, vocˆ usar  as setasque j  vimos.":GOSUB1200:GOSUB50320
50300 GOSUB499:T$="O jogador que ensinar mais pa¡-ses vencer .":GOSUB1200:GOSUB50320
50310 GOSUB510:GOSUB499:T$="BOA SORTE!!!":GOSUB1200:GOSUB50320:GOSUB499:GOTO449
50320 GOSUB920:GOSUB7500:RETURN
50325 PUTSPRITE5,(178,146),11,8:FORI=1TO10:PLAY"v15s0l63t255","v15s0m5000t250l63":A$="n95":B$="n90":PLAYA$,B$:NEXT:RETURN
50330 FORI=1TO200:NEXT:RETURN
50340 PUTSPRITE9,(170,151),8,9:GOSUB50350:PUTSPRITE9,(170,151),1,9:GOSUB50350:P$=INKEY$:IFP$<>CHR$(13)THEN7500ELSEGOSUB1520:RETURN
50350 FORTG=1TO200:NEXTTG:RETURN
50360 RY=STICK(0):IFTIME>1000THENIFFLG=0THENGOSUB920:FLG=1ELSEGOSUB7000:A$=INKEY$:IFA$=CHR$(13)THENRETURN
50370 IFRY=0THEN50360ELSECH5=0:IFRY=1THENGOSUB50170ELSEIFRY=3THENGOSUB50210ELSEIFRY=7THENGOSUB50190ELSEIFRY=5THENGOSUB50230
50380 GOTO50360
50390 RETURN
50420 M1=M-XB:M2=R-YB:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08
50430 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%:ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%
50440 INTERVALSTOP:FORI=OTON%-1:PUTSPRITE9,(XB+I*DX,YB+I*DY),15,9:NEXT:PUTSPRITE9,(0,209):INTERVALON:RETURN
50450 IFGT=1THENRETURNELSEIFCH5=1THENGOTO50460ELSEPUTSPRITES!,(XR!,YR!),15,S!:GOSUB50330:PUTSPRITES!,(XR!,YR!),6,S!:GOSUB50330:RETURN
50460 PUTSPRITE1,(208,150),0,1:PUTSPRITE3,(227,155),0,3:PUTSPRITE5,(208,159),0,5:PUTSPRITE7,(191,155),0,7:GOSUB50330:GOSUB810:RETURN
50500 IFA>90THENRETURN
50510 A=A+.6:XW=INT(A):A$="l64n"+STR$(XW):PLAYA$: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(88,115):PRINT#1,"Geo-l¢gica":LINE(88,125)-(165,126),,BF:COLOR15
55070 PRESET(45,142):PRINT#1,"Gradiente Inform tica":PRESET(53,155):PRINT#1,"produzido pelo CEBI"
55080 RETURN

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

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

10 FORI=1TO10:KEYI,"":NEXT:COLOR1,4,4:GOSUB55000:CLEAR:GOTO260

20 AR=11:B1=11:CR1=11:E=IE:GOSUB9700:GOSUB230:S$=R$:E=E+1:GOSUB230:GOSUB510:GOSUB8500:GOSUB500:T$="Pense em um "+R$+".^Eu vou tentar adivinhar.":GOSUB1200

21 CVB=0:CPL=0:IN=E+1:GOSUB200:GOSUB200

40 INTERVALON:E=IN:GOSUB510

50 NAM=1:GOSUB1530:YS!=155:GOSUB810:GOSUB230:GOSUB500:T$=R$+"?":ABC=1:CPL=0:CVB=0:CDR=0:ASR=0:A$=R$:GOSUB1200:WAN=1

51 R!=STICK(0):IFR!MOD2=0THEN53ELSEGOSUB600

52 IFS!=3THENZ!=3:GOSUB610ELSEIFS!=7THENZ!=7:GOSUB620ELSEIFS!=5THENZ!=5:GOSUB810:NAM=0:DER=1:GOSUB510:CPL=0:PUTSPRITE8,(0,209):T$="Arquivo":GOSUB1200:NAM=1:GOTO130ELSEW=0:GOSUB630:GOSUB900:Z!=S!:S!=1

53 INTERVALON:R$=INKEY$:IFR$<>CHR$(13)THEN51ELSEPLAY"s13m500l63cdeg":GOSUB810:ABC=1:BBC=1:W=58:GOSUB1520:PUTSPRITE0,(0,209),0:PUTSPRITE2,(0,209),0

54 GOSUB1530:IFP=43THEN70

60 UE=E:S!=Z!:G=UE+1-(S!=7)*2:E=FNP(G):A=E:IFE=0THEN120ELSE50

70 IFS!=3THENGOSUB20000:GOSUB500:T$="Acertei!":GOSUB1200:GOSUB15700:GOSUB12000:GOSUB200:GOTO9100

80 GOSUB500:GOSUB12500:GOSUB12000:CPL=0

81 T$="Qual ‚ o pa¡s?":GOSUB1200:INTERVALOFF:GOSUB510:GOSUB1040:B$=T$:GOSUB15500:GOSUB510:QP(QJ)=QP(QJ)+1:GOSUB10000

82 T$="Escreva uma pergunta cuja res- posta seja <sim> para:":CPL=0:GOSUB500:GOSUB1200:INTERVALOFF:T$=B$+"."

83 GOSUB1200:INTERVALOFF:GOSUB510:GOSUB1040:R$=T$:GOSUB22000:PUTSPRITE8,(0,209)

84 FORI=LEN(R$)TO1STEP-1:IFMID$(R$,I,1)="?"THENR$=MID$(R$,1,LEN(R$)-1):NEXT

85 GOSUB510:GOSUB500:T$="Obrigado por ter me ensinado umnovo pa¡s.":GOSUB1200:INTERVALOFF

90 E=FI:C%=63:GOSUB220:E=FI:FI=FI+P+1

100 NN=E:GOSUB210:POKEG,M:POKEG+1,N:NN=FI+4:GOSUB210:POKEFI,M:POKEFI+1,N:NN=A:GOSUB210:POKEFI+2,M:POKEFI+3,N:FI=FI+4

110 R$=B$:GOSUB170:C%=43:E=FI:GOSUB220:FI=FI+P+1:GOTO9100

120 GOSUB810:GOSUB500:T$="Nƒo conhe`o...":GOSUB1200:GOSUB200:GOTO80

130 R$=INKEY$:IFR$=CHR$(13)THEN140ELSEZ!=STICK(0):IFZ!<>0THENS!=Z!:GOTO51ELSE130

140 CR1=6:GOSUB510:LKJ=1:GOSUB1520:INTERVALOFF:GOSUB810:GOSUB500:T$="Vocˆ deseja gravar os dados a- tuais em fita cassete?":GOSUB1200:GOSUB510

142 GOSUB150:IFRS=3THEN8300

143 PUTSPRITE0,(0,209):B1=11:AR=11:GOSUB500:T$="Vocˆ deseja chamar os dados da fita cassete?":GOSUB1200

145 GOSUB150:IFRS=3THENGOTO8350ELSE20

148 ASR=1:GOSUB810:GOSUB510:GOSUB500:T$="Qual o nome do arquivo que devo"+T$:GOSUB1200:GOSUB510:GOSUB1040:QQP$=T$:ASR=0:RETURN

149 ASR=1:GOSUB810:GOSUB700:A$=INKEY$:IFA$<>CHR$(13)THEN149ELSEGOSUB1520:ASR=0:RETURN

150 B1=11:AR=11

151 RY=STICK(0):IFRY=3THENRS=3:B1=11:AR=6:WN=11:GOSUB920:GOSUB610ELSEIFRY=7THENRS=7:B1=6:AR=11:WN=11:GOSUB920:GOSUB620

152 GOSUB700:A$=INKEY$:IFA$<>CHR$(13)THEN151ELSEGOSUB1520:WN=1:RETURN

170 M=LEN(R$):A$="":FORI!=1TOM

190 A$=A$+MID$(R$,I!,1):NEXT:R$=A$:RETURN

200 FORTY=1TO99:NEXT:RETURN

210 N=INT(NN/F):M=NN-N*F:RETURN

220 P=LEN(R$):FORI!=0TOP-1:POKEE+I!,ASC(MID$(R$,I!+1,1)):NEXT:POKEE+I!,C%:RETURN

230 R$=""

240 P=PEEK(E):IFP=43ORP=63THEN250ELSER$=R$+CHR$(P):E=E+1:GOTO240

250 RETURN

260 CLEAR1024:F=256:IE=52000!:DEFFNP(M)=PEEK(M)+PEEK(M+1)*F:TI=TIME

261 FORI=1TO4:MLS(I)=179:NEXT:QJ=1

270 QJ=1:WAN=0

280 E=IE:R$="CEBI":C%=43:GOSUB220:IN=IE+P+1:R$="pa¡s":E=IN:C%=43:GOSUB220:IN=IN+P+1

290 R$="Fica no Hemisf‚rio Sul":GOSUB170:E=IN:C%=63:GOSUB220:FI=IN+P+1:NN=FI+4:GOSUB210:POKEFI,M:POKEFI+1,N:POKEFI+2,0:POKEFI+3,0:FI=FI+4

295 R$="Brasil":GOSUB170:E=FI:C%=43:GOSUB220:FI=FI+P+1

296 SCREEN,2:F=F-1:SPRITE$(31)=CHR$(0)+CHR$(F)+CHR$(F)+CHR$(F):GOSUB1000:OPEN"grp:"FOR OUTPUTAS#1:F=F+1

300 FORC!=11TO18:GOSUB960:SPRITE$(C!)=R$:NEXT:

321 DIMBA$(20),UD$(20),SW(20):GOSUB25000

322 FORC!=1TO9STEP2:GOSUB960:SPRITE$(C!)=R$:NEXT:FORC!=0TO6STEP2:GOSUB960:SPRITE$(C!)=R$:NEXT:GOSUB960:SPRITE$(8)=R$:FORC!=1TO8:READSD$(C!):NEXT:FORC!=1TO16:READUD$(C!):NEXT

335 SCREEN2:COLOR1,4,4:CLS:GOSUB500:GOSUB510:LINE(13,72)-(242,73),2,BF:LINE(13,126)-(242,127),11,BF:LINE(13,131)-(242,186),1,BF:LINE(13,131)-(242,186),15,B:X=183:Y=150:

337 GOTO30000

449 GOSUB500:T$="Quantos jogadores ir„o partici-par?(1,2,3 ou 4)":GOSUB1200:CH5=1:GOSUB510:T$=INPUT$(1):CH5=0:NJ=VAL(T$):IFNJ<1ORNJ>4THEN449

450 FORI=1TONJ

451 GOSUB500:T$="Qual o nome do jogador"+STR$(I)+"?":GOSUB1200:GOSUB510:GOSUB1040:IFLEN(T$)>9THENGOSUB500:T$="Use no m ximo 9 letras.":GOSUB1200:GOSUB200:BEEP:GOTO451ELSENOM$(I)=T$

452 GOSUB500:T$="Qual a sua idade, "+NOM$(I)+"?":GOSUB1200:CH5=1:GOSUB510:GOSUB1040:CH5=0:IFVAL(T$)>100ORVAL(T$)<5THEN452ELSEQQP=QQP+VAL(T$):NEXT:MIC=(QQP/NJ)/100

453 GOSUB500:GOSUB510:GOTO457

455 LINE(183,150)-(231,166),15,BF:LINE(193,150)-(201,158),1:LINE-(193,166),1:LINE(221,150)-(213,158),1:LINE-(221,166),1:LINE(201,158)-(213,158),1

456 PSET(183,150),1:PSET(231,166),1:PSET(231,150),1:PSET(183,166),1:RETURN

457 IFC1!=6THENGOSUB500

458 IFC2!=6THENGOSUB510

460 INTERVALOFF:FORYS!=-32TO155:GOSUB810:NEXT:YS!=155

461 GOSUB455:LINE(181,148)-(233,168),15,B

462 BK=3:GOSUB9500:GOSUB9900

470 WAN=0:SCS=1:CR1=8

475 FORI=48600!TO48739!:POKEI+3398,PEEK(I):NEXT:FI=52139!:GOTO20

499 PLAY"v15s0l63t255":NO=(INT(RND(-TIME)*3))+67:N1$=CHR$(NO):N2$=CHR$(NO+1):N3$=CHR$(NO+2):PLAYN1$:PLAYN2$:PLAYN3$

500 VM!=7:V!=1:H!=2:C1!=INT(RND(-TIME+TI)*16):IFC1!=0ORC1!=1ORC1!=15ORC1!=4ORC1!=5ORC1!=CF!THEN500ELSECF!=C1!:LINE(13,4)-(242,68),CF!,BF:LINE(13,4)-(242,68),15,B:RETURN

510 PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):VM!=12:H!=2:V!=9:C2!=INT(RND(-TIME+TI)*16):IFC2!=0ORC2!=1ORC2!=15ORC2!=4ORC2!=5ORC2!=CF!THEN510ELSECF!=C2!:LINE(13,76)-(242,121),CF!,BF:LINE(13,76)-(242,121),15,B:RETURN

600 GOSUB920:GOSUB700:PUTSPRITES!,(XR!,YR!),15,S!:GOSUB602:S!=R!:BBC=0:ABC=0:INTERVALON:ONINTERVAL=30GOSUB700:GOSUB1530:RETURN

602 IFA$="n"ORA$="N"THENR!=7ELSEIFA$="s"ORA$="S"THENR!=3

603 RETURN

608 IFDER=1THENGOSUB510:DER=0

609 RETURN

610 GOSUB810:GOSUB608:CPL=0:PUTSPRITE0,(20,78),1,0:PUTSPRITE2,(0,209),0,6:PUTSPRITE8,(0,209):RETURN

620 GOSUB810:GOSUB608:CPL=0:PUTSPRITE0,(20,78),1,2:PUTSPRITE2,(0,209),0,6:PUT SPRITE8,(0,209):RETURN

630 GOSUB608:GOSUB810:CPL=0:PUTSPRITE0,(19,78),1,4:PUTSPRITE2,(36,78),1,6:PUT SPRITE8,(0,209):RETURN

700 IFBBC=1THENRETURNELSECTS=CTS+1:ZA=2-ZA:IFZA<0THENZA=ABS(ZA)ELSELINE(153,143)-(172,172),ZA+1,B:CDR=1:IFCTSMOD2=0THENGOSUB6500:CDR=0

710 IFS!MOD2=0THENRETURNELSEIFS!=3ORS!=7THENT!=ZA:XR!=209-(S!=3)*13+(S!=7)*22:YR!=155ELSEXR!=205:YR!=155-(S!=5)*5+(S!=1)*5:T!=ZA

711 IFABC=1THENRETURNELSEPUTSPRITE S!,(XR!,YR!),2-T!,S!:RETURN

720 PUTSPRITE1,(209,140),15,1:PUTSPRITE1,(209,140),8,1:RETURN

800 IFASR=1THENRETURNELSET!=0:U!=4-U!:S!=U!+3:PUTSPRITE7,(187,155),AR,7:PUTSPRITE3,(222,155),B1,3:PUTSPRITE1,(205,150),CR1,1:PUTSPRITE5,(205,160),CR1,5:GOSUB17230:GOSUB810:GOSUB6500

805 RETURN

810 PUTSPRITE3,(222,YS!),6,3:PUTSPRITE7,(187,YS!),6,7:PUTSPRITE5,(205,YS!+5),6,5:PUTSPRITE1,(205,YS!-5),6,1:RETURN

900 R!=INT(RND(1)*2):R!=R!*3:IFR!<1THENR!=7

901 S!=R!:RETURN

920 PUTSPRITE8,(0,209):INTERVALSTOP:LINE(155,145)-(170,170),3,BF:PSET(155,145),1:PSET(170,170),1:PSET(170,145),1:PSET(155,170),1:LINE(164,152)-(164,163),1:PSET(161,163),1:LINE(160,164)-(164,164),1:PSET(162,164),3:LINE(159,165)-(163,165),1

921 LINE(160,166)-(161,166),1:PSET(161,167),1:BBC=0:ABC=1:INTERVALON:RETURN

960 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:GOTO980

970 R$=R$+CHR$(VAL("&h"+S$))

980 NEXT:RETURN

1000 X1!=1:X2!=33:Y1!=0:GOSUB1030:RETURN

1030 HN!=X1!*7-1:VN!=Y1!*9-9:HX!=X2!*7+1:RETURN

1040 POKE64683!,1:ASR=1:INTERVALON:IFLKJ=0THENWAN=1

1045 LINE(13,76)-(242,121),0,B:LINE(13,76)-(242,121),15,B

1050 T$="":C!=0:Y!=V!*9+VN!

1060 X!=H!*7+HN!:Y!=Y!+9

1070 IFX!>HX!THEN1060

1080 A$=INKEY$:PUTSPRITE 0,(X!,Y!),15,31:PUTSPRITE0 ,(X!,Y!),0,31:IFA$=""THEN1080

1085 POKE64683!,0

1090 IFA$=CHR$(13)THEN1190

1100 IFA$<>CHR$(8)THEN1180

1120 IFX!-14<=HN!THEN1150

1130 X!=X!-7

1140 IFLEN(T$)<=1THEN1145ELSE1142

1142 T$=LEFT$(T$,LEN(T$)-1):GOTO1146

1145 T$="":X!=H!*7+HN!

1146 LINE(X!-1,Y!)-(X!+7,Y!+9),CF!,BF:GOTO1080

1150 IFY!-9<=V!*9-9THEN1080

1160 Y!=Y!-9:X!=HX!-2:GOTO1140

1180 IFASC(A$)<32THEN1080ELSEINTERVALSTOP:PRESET(X!,Y!),CF!:PRINT#1,A$:INTERVALON:X!=X!+7:T$=T$+A$:C!=C!+1:IFC!=2-CH5THEN6000ELSEIFC!=124THEN1190

1181 GOTO1070

1190 PLAY"s13m500l63defa":BBC=1:GOSUB1520:V!=(Y!-VN!)\9:IFV!>VM!THENV!=V!-4:T$="":IFV!=1THENGOSUB500ELSEGOSUB510

1195 IFT$=""THEN1040ELSEASR=0:RETURN

1200 Y!=V!*9+VN!+9:X!=H!*7+HN!

1205 WAN=0:IFNAM<>0THEN INTERVALON:ONINTERVAL=90GOSUB800

1220 PLAY"s8m99o6l63":FORJ!=1TOLEN(T$):IFX!>HX!THENGOSUB1250

1230 PUTSPRITE31,(X!,Y!),5,31:PUTSPRITE31,(X!,Y!),0,31:IFMID$(T$,J!,1)="^"THENGOSUB1250:J!=J!+1

1240 INTERVALSTOP: PRESET(X!,Y!),CF!:PLAYCHR$(65+RND(7)*7):PRINT#1,MID$(T$,J!,1):X!=X!+7:NEXT:V!=(Y!-VN!)/9:INTERVALON:RETURN

1250 Y!=Y!+9:X!=H!*7+HN!:RETURN

1500 W=58:T!=9-T!:PUTSPRITE8,(153,143),11,8:T!=15-T!:CPL=0:FORI=1TO10:PLAY"v15s0l63t255","v15s0m5000t250l63":A$="n95":B$="n90":PLAYA$,B$:NEXT:RETURN

1520 BBC=1:LINE(153,143)-(172,172),1,BF:RETURN

1530 TI=TIME:RETURN

4010 DATAzff04,z0012,zfe04,z0012,zf810,z0022,zff09,z007,zfc09,z007,0,0,7,f,f,f,7,z0012,80,80,80,z0010,1,7,f,3f,7f,3f,f,7,1,z007,0,c0,e0,f0,fc,f0,e0,c0,z008

4110 DATA0,3,3,f,f,3,3,z0012,c0,c0,z0011,18,18,18,ff,ff,18,18,18,18,z0010,fc,fc,z0011,zff6,z0010,zfe6,z0010

5000 DATAF8,20,20,20,20,z0027,F8,80,F8,8,F8,z0027,F8,88,F8,88,88,z0027,88,c8,a8,98,88,z0027,z0016,z0411,24,6C,F8,60,20,z002,f7,z822,f2,z122,f7,z009,44,6c,54,z444,z007,7,0,97,zd42,b7,b4,z942,z007,80,0,bc,za45,bc,z007

5100 DATAz002,fb,z222,23,z223,z009,d0,z502,d0,z502,5e,z007,z002,8b,z8a2,8b,8a,52,23,z009,de,2,4,8c,8,10,de,z007

5120 DATA0,1c,38,70,6f,50,21,49,81,a1,80,48,21,10,f,2,0,38,1c,e,f6,a,4,22,1,fd,1,12,4,8,f0,40

5130 DATAFinlandia,Colombia,Guine,Nigeria,Indonesia,Italia,Sui`a,Suecia

5150 DATAFinlƒndia,Col“mbia,Guin‚,Nig‚ria,Indon‚sia,It lia,Su¡`a,Su‚cia,Alemanha,Ocidental,Dinamarca,Hungria,Brasil,Bangladesh,Ir„,Jap„o

6000 CPL=0:PUTSPRITE8,(0,209):WN=11:GOSUB920:ABC=1:BBC=0:INTERVALON:ONINTERVAL=60GOSUB7000:GOTO1070

6500 IFWAN<>0THENGOSUB11000:CPL=CPL+1:IFCPL>9ANDCDR=0THENGOSUB1500

6501 RETURN

7000 IFBBC=1THENRETURNELSECTS=CTS+1:BY=2-BY:IFBY<0THENBY=ABS(BY)ELSELINE(153,143)-(172,172),BY+1,B

7010 RETURN

7500 GOSUB7000:Q$=INKEY$:IFQ$<>CHR$(13)THEN7500ELSEGOSUB1520:RETURN

8000 LINE(QX,QY)-(A2,O2),5,BF:PSET(QX,QY),1:PSET(QX,O2),1:PSET(A2,QY),1:PSET(A2,O2),1:INTERVALSTOP:CF!=5:X!=QX+4:Y!=QY+1:T$=IJ$+STR$(QP(QJ)):GOSUB1220:INTERVALON:RETURN

8300 PUTSPRITE0,(0,209):GOSUB500:T$="Pressione as teclas REC+PLAY dogravador.^Pronto para gravar?":GOSUB1200:GOSUB150:IFRS<>3THEN143ELSET$="gravar?":GOSUB148:GOSUB510:GOSUB500:T$="gravando":GOSUB1200:GOSUB40000:BSAVEQQP$,IE-2,FI:GOSUB500

8301 T$="Fim de grava`„o":GOSUB1200:GOTO20

8350 PUTSPRITE0,(0,209):GOSUB500:T$="Pressione a tecla PLAY.^Tudo pronto para chamar?":GOSUB1200:GOSUB150:IFRS<>3THEN20ELSET$="chamar?":GOSUB148:GOSUB510 :GOSUB500:T$="Arquivo sendo chamado.":GOSUB1200:BLOADQQP$:FI=PEEK(51998!)+PEEK(51999!)*F:GOSUB500

8351 T$="Arquivo pronto!":GOSUB1200:GOTO20

8500 GOSUB499:BEEP:T$=NOM$(QJ)+", agora ‚ a sua vez.":GOSUB1200:INTERVALOFF:PUTSPRITE8,(0,209):GOSUB17230:GOSUB500:RETURN

8800 IFQJ=1THENIJ$="1:":QX=24:QY=141:A2=70:O2=149ELSEIFQJ=2THENIJ$="2:":QX=24:QY=154:A2=70:O2=162ELSEIFQJ=3THENIJ$="3:":QX=79:QY=141:A2=125:O2=149ELSEIFQJ=4THENIJ$="4:":QX=79:QY=154:A2=125:O2=162

8801 GOSUB8850:RETURN

8850 INTERVALSTOP:COLORPL:CF!=5:X!=QX+4:Y!=QY+1:T$=IJ$+STR$(QP(QJ)):GOSUB1220:COLOR1:INTERVALON:RETURN

9100 GOSUB1520:PL=1:GOSUB8800:GOSUB500:QJ=QJ+1:IFQJ>NJTHENQJ=1

9110 GOSUB9700:PL=15:GOSUB8800:GOTO20

9200 CR1=8:GOSUB10500:GOSUB500:T$="Ojogo acabou.^Vamos jogar novamente?":GOSUB1200:FORK=1TO500:NEXT:ASR=0:WN=1:BBC=1

9202 GOSUB150:IFRS=3THEN20ELSEGOSUB500:T$="Fim de jogo.":GOSUB1200:PUTSPRITE0,(0,209):INTERVALOFF:GOSUB810:GOTO9300

9300 GOTO9300

9500 IJ$="1:":QX=24:QY=141:A2=70:O2=149: GOSUB8000:IFNJ>1THENIJ$="2:":QY=154:O2=162:GOSUB8000:IFNJ>2THENIJ$="3:":QX=79:QY=141:A2=125:O2=149:GOSUB8000:IFNJ>3THENIJ$="4:":QY=154:O2=162:GOSUB8000

9510 IFBK>1THENPL=15:GOSUB8800

9600 LINE(21,137)-(128,180),15,B:RETURN

9700 IFMLS(QJ)<139THENQV=QV+1:QJ=QJ+1:IFQJ>NJTHENQJ=1:GOTO9700ELSE9700

9710 LINE(137,138)-(141,179),1,BF:LINE(134,137)-(144,180),15,B:LINE(137,MLS(QJ))-(141,179),6,BF:CVB=0:RETURN

9800 QV=1:QJ=1:FORI=1TO4:QP(I)=0:CTZ(I)=0:MLS(I)=179:NEXT:RETURN

9900 LINE(24,167)-(125,175),14,BF:PSET(24,167),1:PSET(24,175),1:PSET(125,167),1:PSET(125,175),1:CF!=14:X!=28:Y!=168:T$=QNO$+A1$+QPC$:GOSUB1220:RETURN

10000 IFQJ=1THENIJ$="1:":QX=24:QY=141:A2=70:O2=149ELSEIFQJ=2THENIJ$="2:":QX=24:QY=154:A2=70:O2=162ELSEIFQJ=3THENIJ$="3:":QX=79:QY=141:A2=125:O2=149ELSEIFQJ=4THENIJ$="4:":QX=79:QY=154:A2=125:O2=162

10010 GOSUB8000:RETURN

10500 FORI=1TO4:IFQP(MY)<QP(I)THENMY=MY+1:I=0:GOTO10500ELSENEXT:IFQP(MY)<=VAL(QPC$)THENGOTO10501ELSEA1$=":":QNO$=NOM$(MY):QPC$=STR$(QP(MY))

10501 WAN=0:GOSUB9600:GOSUB9900:GOSUB9800:GOSUB9500:GOSUB9700:WAN=1:RETURN

11000 BEEP:MLS(QJ)=MLS(QJ)-MIC:LINE(137,MLS(QJ))-(141,178),6,BF:CVB=0:GOSUB710:IFMLS(QJ)<139THENGOTO15000

11100 RETURN

12000 GOSUB12100:L=1:K=90:INTERVALOFF:FORI=211TO11STEP-1:PUTSPRITE22,(I,K),SW(7),SW(1):PUTSPRITE21,(I+SW(15),K+SW(13)),SW(9),SW(3):PUTSPRITE20,(I+(SW(15)*2),K+(SW(13)*2)),SW(11),SW(5)

12010 NEXT:PUTSPRITE20,(0,209):PUTSPRITE21,(0,209):PUTSPRITE22,(0,209):INTERVALON

12011 RETURN

12100 LINE(13,76)-(242,121),14,BF:LINE(13,76)-(242,121),15,B:RETURN

12500 SSB=SSB+1:IFSSB=1THENWA=12ELSEIFSSB=2THENWA=13ELSEIFSSB=3THENWA=10ELSEIFSSB=4THENWA=14ELSEIFSSB=5THENWA=9

12501 GOSUB21000:IFSSB>5THENSSB=0

12502 RETURN

15000 CTZ(QJ)=1:GOSUB16000:GOSUB500:T$=NOM$(QJ)+",seu tempo j acabou":GOSUB1200:PL=1:GOSUB8800:QJ=QJ+1:IFQJ>NJTHENQJ=1:QV=QV+1

15110 GOSUB9700:PL=15:GOSUB8800:GOTO20

15500 FORI=1TO8:IFSD$(I)=B$THENGOSUB15600

15501 NEXT:RETURN

15600 GOSUB500:T$=UD$(I)+" tem acento!":GOSUB1200:B$=UD$(I):GOSUB17230:GOSUB17230:RETURN

15700 FORI=1TO16:IFA$=UD$(I)THENGOSUB500:T$="Veja a bandeira deste pa¡s.":GOSUB1200:RETURNELSENEXT:RETURN

16000 FORI=1TONJ:IFCTZ(I)=0THENRETURNELSENEXT:INTERVALOFF:ASR=1:GOTO9200

17230 FORK=1TO200:NEXT:RETURN

20000 IFA$="Alemanha Ocidental"THENWA=0ELSEIFA$="Bangladesh"THENWA=1ELSEIFA$="Finlƒndia"THENWA=2ELSEIFA$="Col“mbia"THENWA=3ELSEIFA$="Fran`a"THENWA=4ELSEIFA$="Dinamarca"THENWA=5

20020 IFA$="Guin‚"THENWA=6ELSEIFA$="Ir„"THENWA=7ELSEIFA$="Nig‚ria"THENWA=8ELSEIFA$="Brasil"THENWA=9ELSEIFA$="Jap„o"THENWA=10ELSEIFA$="Indon‚sia"THENWA=11

20030 IFA$="Hungria"THENWA=12ELSEIFA$="It lia"THENWA=13ELSEIFA$="Su¡`a"THENWA=14ELSEIFA$="Su‚cia"THENWA=15

20040 GOSUB21000:RETURN

21000 FORVB=1TO15STEP2:SW(VB)=VAL(MID$(BA$(WA),VB,2)):NEXT:RETURN

22000 GOSUB510:GOSUB500:T$="Est tudo certo?":GOSUB1200:CR1=6:ASR=0

22010 RY=STICK(0):IFRY=3THENRS=3:B1=11:AR=6:GOSUB920:GOSUB610ELSEIFRY=7THENRS=7:B1=6:AR=11:WN=11:GOSUB920:GOSUB620

22020 GOSUB150:IFRS=3THENRETURNELSE82

25000 BA$(0)="1111110106110400":BA$(1)="1314001206000000":BA$(2)="1317001507000000":BA$(3)="1111111104060400":BA$(4)="1212120415060005":BA$(5)="1317000615000000":BA$(6)="1212120611120005":BA$(7)="1111111215060400"

25010 BA$(8)="1212121215120005":BA$(9)="1315141211040000":BA$(10)="1314001506000000":BA$(11)="1818000615000600":BA$(12)="1111110615120400":BA$(13)="1212121215060005":BA$(14)="1316000615000000":BA$(15)="1317000711000000"

25020 RETURN

30000 A$(1,1)="s0m3000o4l8g16":A$(1,2)="s0m3000o3":A$(1,3)="s0m3000o2":A$(2,1)="o5co4b16o5cd16ed16ef16f#4r16g16":A$(2,2)="l8er16er16er16er16er16er16":A$(2,3)="l8cr16cr16cr16cr16cr16cr16"

30010 A$(3,1)="s0m8000o5l2c16":A$(3,2)="s0m8000o3c2":A$(3,3)="s0m8000o2c2"

30020 GOSUB12100:FORJ=1TO3:PLAYA$(J,1),A$(J,2),A$(J,3):NEXT

30030 K=90:I=121:FORL=1TO15:WA=WA+1:GOSUB21000:PUTSPRITE22,(I,K),SW(7),SW(1):PUTSPRITE21,(I+SW(15),K+SW(13)),SW(9),SW(3):PUTSPRITE20,(I+(SW(15)*2),K+(SW(13)*2)),SW(11),SW(5):

30040 IFWA=15THENWA=-1

30050 NEXT:FORI=20TO22:PUTSPRITEI,(0,209):NEXT:INTERVALON:GOTO50000

40000 POKE51999!,INT(FI/F):POKE51998!,FI-PEEK(51999!)*F:RETURN

50000 INTERVALOFF:GOSUB499:T$="Vocˆ j brincou com este jogo?^Tecle 0 caso j tenha jogado ou1 caso nunca tenha jogado.":GOSUB1200

50001 T$=INPUT$(1):T=VAL(T$):IFT=1THEN50010ELSEIFT=0THEN50310ELSE50001

50010 GOSUB499:T$="Toda vez que a figura que est piscando l embaixo aparecer, vocˆ dever pressionar o bot„o com desenho correspondente no teclado.^Experimente.":GOSUB1200:GOSUB50320

50020 GOSUB499:T$="Viu!!!^Desta forma vocˆ estar dizendo… mim que posso continuar.^ ^ ^N„o se esque`a de teclar ...":GOSUB1200:M=151:R=152:XB=216:YB=54:GOSUB50420:GOSUB50320

50030 GOSUB499:T$="Este retƒngulo, onde estou es- crevendo, ser usado apenas pa-ra fazer perguntas … vocˆ.^ ^ ^Lembre-se ...":GOSUB1200:M=151:R=152:XB=111:YB=63:GOSUB50420:GOSUB50320:GOSUB499

50040 T$="No retƒngulo do meio ‚ onde vo-cˆ ir escrever.^ ^Por exemplo, escreva seu nome agora.":GOSUB1200:GOSUB510:GOSUB1040:P$=T$:GOSUB510:GOSUB499

50060 T$="No retƒngulo de baixo v„o apa- recer os pontos de cada jogador^Podemos ter at‚ 4 jogadores ao mesmo tempo.":GOSUB1200:NJ=4:GOSUB9500:FORBK=1TO3:LINE(13,131)-(242,186),1,B:LINE(13,131)-(242,186),15,B:NEXTBK:GOSUB50320

50110 GOSUB499:T$="Experimente pressionar uma das teclas com desenho semelhante …figura que est na tela!":GOSUB1200:FORYS!=-32TO155:GOSUB810:NEXTYS!:YS!=155:ABC=1:CH5=1:GOSUB455:INTERVALON:ONINTERVAL=120GOSUB50450

50120 INTERVALON:TIME=0:GOSUB50360:GOSUB810:IFCW=1THENGOSUB510

50130 GOSUB1520:S!=30:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209)

50150 GT=1:PUTSPRITE20,(0,209):PUTSPRITE9,(0,209):GOSUB499:T$="Desta forma, vocˆ est dizendo … mim SIM, NŽO e TALVEZ!^Vocˆ ainda pode gravar ou ler um arquivo da fita cassete com a op`„o .":GOSUB1200

50160 FORI=1TO8:LINE(80-I,43+I)-(91+I,43+I),15:NEXT:PUTSPRITE20,(83,45),6,5:GOSUB50320:PUTSPRITE20,(0,209):GOTO50240

50165 IFCW=1THENGOSUB510:CW=0

50166 RETURN

50170 GOSUB50165:GOSUB810:PUTSPRITE0,(0,209):GOSUB630:INTERVALSTOP:S!=1:XR!=205:YR!=150:INTERVALON:RETURN

50190 GOSUB50165:GOSUB810:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):GOSUB620:INTERVALSTOP:S!=7:XR!=187:YR!=155:INTERVALON:RETURN

50210 GOSUB50165:GOSUB810:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):GOSUB610:INTERVALSTOP:S!=3:XR!=222:YR!=155:INTERVALON:RETURN

50230 GOSUB810:PUTSPRITE0,(0,209):PUTSPRITE2,(0,209):GOSUB510:T$="Arquivo":GOSUB1200:INTERVALSTOP:S!=5:XR!=205:YR!=160:CW=1:INTERVALON:RETURN

50240 A=10:LINE(134,137)-(144,180),15,B:GOSUB499:T$="Este ‚ o marcador de tempo.":GOSUB1200:INTERVALOFF:FORDI=179TO139STEP-.2:LINE(137,DI)-(141,179),6,BF:GOSUB50500

50250 NEXT:GOSUB50320

50260 FORQI=1TO10:PUTSPRITEQI,(0,209):NEXTQI:LINE(13,131)-(242,186),1,BF:LINE(13,131)-(242,186),15,B

50270 GOSUB499:T$=" REGRAS DO JOGO:":GOSUB1200:GOSUB920:GOSUB50320

50280 GOSUB499:T$="Eu conhe`o alguns pa¡ses.^Toda vez que vocˆ me ensinar umnovo pa¡s, vocˆ ganhar um pon-to.":GOSUB1200:GOSUB920:GOSUB7500:GOSUB499

50290 T$="Vocˆ deve responder minhas per-guntas com SIM, NŽO e TALVEZ (quando em d£vida).^ ^Para tanto, vocˆ usar as setasque j vimos.":GOSUB1200:GOSUB50320

50300 GOSUB499:T$="O jogador que ensinar mais pa¡-ses vencer .":GOSUB1200:GOSUB50320

50310 GOSUB510:GOSUB499:T$="BOA SORTE!!!":GOSUB1200:GOSUB50320:GOSUB499:GOTO449

50320 GOSUB920:GOSUB7500:RETURN

50325 PUTSPRITE5,(178,146),11,8:FORI=1TO10:PLAY"v15s0l63t255","v15s0m5000t250l63":A$="n95":B$="n90":PLAYA$,B$:NEXT:RETURN

50330 FORI=1TO200:NEXT:RETURN

50340 PUTSPRITE9,(170,151),8,9:GOSUB50350:PUTSPRITE9,(170,151),1,9:GOSUB50350:P$=INKEY$:IFP$<>CHR$(13)THEN7500ELSEGOSUB1520:RETURN

50350 FORTG=1TO200:NEXTTG:RETURN

50360 RY=STICK(0):IFTIME>1000THENIFFLG=0THENGOSUB920:FLG=1ELSEGOSUB7000:A$=INKEY$:IFA$=CHR$(13)THENRETURN

50370 IFRY=0THEN50360ELSECH5=0:IFRY=1THENGOSUB50170ELSEIFRY=3THENGOSUB50210ELSEIFRY=7THENGOSUB50190ELSEIFRY=5THENGOSUB50230

50380 GOTO50360

50390 RETURN

50420 M1=M-XB:M2=R-YB:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08

50430 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%:ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%

50440 INTERVALSTOP:FORI=OTON%-1:PUTSPRITE9,(XB+I*DX,YB+I*DY),15,9:NEXT:PUTSPRITE9,(0,209):INTERVALON:RETURN

50450 IFGT=1THENRETURNELSEIFCH5=1THENGOTO50460ELSEPUTSPRITES!,(XR!,YR!),15,S!:GOSUB50330:PUTSPRITES!,(XR!,YR!),6,S!:GOSUB50330:RETURN

50460 PUTSPRITE1,(208,150),0,1:PUTSPRITE3,(227,155),0,3:PUTSPRITE5,(208,159),0,5:PUTSPRITE7,(191,155),0,7:GOSUB50330:GOSUB810:RETURN

50500 IFA>90THENRETURN

50510 A=A+.6:XW=INT(A):A$="l64n"+STR$(XW):PLAYA$: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(88,115):PRINT#1,"Geo-l¢gica":LINE(88,125)-(165,126),,BF:COLOR15

55070 PRESET(45,142):PRINT#1,"Gradiente Inform tica":PRESET(53,155):PRINT#1,"produzido pelo CEBI"

55080 RETURN

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						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