Geo-Lógica
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 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 |