Hotbit Memória

2 de agosto de 20172 de agosto de 2017 MSX-Basic 0 comentários Aplicativos, Didáticos

Jogo da memória desenvolvido pela Sharp/Epcom para sua linha de programas Educacionais.

Teste o programa no WebMSX – The Online MSX Emulator

Tente encontrar os pares de números.

Autor: Epcom Sistemas
Ano: 1986
Contribuição: Jeimes Uchôa

Código Fonte

1 'MEMORIA
10 CLEAR100:MAXFILES=1
20 GOTO860
30 IFINKEY$<>""THEN30ELSEW$="":X=X1:Y=Y1:J=0:L2=0:S4=63:S5=S1:C2=10:K=1:FORI=S1TOS1+L1-1:PUTSPRITEI,(0,209):NEXT
40 IFKTHENJ=NOTJ:IFJTHENPUTSPRITES5,(X,Y),C1,C2ELSEPUTSPRITES5,(X,Y),C1,63
50 GOSUB80:IFZ=""THEN40ELSEIFZ=CHR$(11)THEN30ELSEIFZ=CHR$(13)ANDW$<>""THENQ=VAL(W$):PUTSPRITES5,(X,Y),C1,S4:RETURNELSEC2=10:IFZ<"0"ORZ>"9"THENGOSUB150:IFZ>"…"THENC2=10:GOTO40ELSE40ELSEIFL2<L1THENW$=W$+Z:W=VAL(Z):PUTSPRITES5,STEP(0,0),C1,W:L2=L2+1
60 IFL2<L1THENX=X+12:S5=S5+1ELSEK=0:S4=W
70 GOTO40
80 FORI=1TO100:Z=INKEY$:IFZ<>""THEN RETURNELSENEXT:RETURN
90 PUTSPRITE15,(212,60),C,15+F:PUTSPRITE 16,STEP(16,0),C,16+F:RETURN
100 LINE(M1*24+32,192)-STEP(-16,-16),4,BF:ONF3GOTO110,120,130
110 DRAW"C11BR7D2R2FR2NED2FD2NR2DGD2NFL2GL2ND2LHL2NGU2HUNL2U2EU2NHR2EBD4":PAINTSTEP(0,0),11:DRAW"C4HGBR5EFBD3G2L3H2":RETURN
120 DRAW"C15BD8R7FR7D2GLG3L2H2LGL2HU2HU2BF":PAINTSTEP(0,0),15:DRAW"C11BU2NLE2U2NHR2E2NUF2R2NED2F2NRGDGH2L2GLH2NLBE2":PAINTSTEP(0,0),11:DRAW"C4RBR2R":RETURN
130 DRAW"C15BD4D2FDFREREF2RE2FREUEUHLHLGH2LG2H2LGDBR2":PAINTSTEP(0,0),15:DRAW"C15BD8NG2BR3G3BR3E4BR3G4":RETURN
140 IFPLAY(0)THEN140ELSERETURN
150 PLAY"T255V12O2G4","T255V12O5A4":RETURN
160 PLAY"T200S1M2500O5B8M7000G2":RETURN
170 PLAY"T255S1M300O5B16":RETURN
180 PRINT#1,W$;:RETURN:' FORI=1TOLEN(W$):N=INSTR("Þýï“ãà˜ä’œë—óöš†Žò”–ßîúíù°•›ðåê÷ø‘",MID$(W$,I,1)):IFN>0THENDRAWZ(N-1):NEXT:RETURNELSEDRAW"BR8":NEXT:RETURN
190 FORK=0TOJ:NEXT:RETURN
200 IFINKEY$<>""THEN200ELSELINE(42,164)-(224,188),15,BF:COLOR4:DRAW"BM43,172":W$=" PRESSIONE UMA TECLA !":GOSUB180:W$=INPUT$(1):RETURN
210 FORI=0TO31:PUTSPRITEI,(0,209),,63:NEXT:CLS:RETURN
220 GOSUB610:FORN1=0TON0-1:GOSUB200:GOSUB250:GOSUB670:GOSUB230:NEXT:GOSUB810:END
230 IFD1(N1)=10ANDE1(N1)=1THEND1(N1+1)=1:SWAPN0,N1:N0=N0+1:W$="    PARABNS !! "ELSEIFN1=N0-1THENW$="      FIM   "ELSERETURN
240 LINE(42,164)-(224,188),15,BF:DRAW"BM77,172":COLOR4:GOSUB180:J=8000:GOTO190
250 GOSUB290:COLOR15,4,4:GOSUB210:GOSUB390:M0=24/(D2(D1(N1)-1)MOD10)+(10-W3!(N1)):M1=M0:W9!(N1)=10:GOSUB400:GOSUB450:R0=0:R1=0:GOSUB460:IFW9!(N1)<0THENW9!(N1)=0
260 J=2000:GOSUB190:IFF1=0THENRETURNELSEGOSUB320
270 COLOR15:DRAW"BM32,12":W$="RESPOSTA CERTA  ":GOSUB180:GOSUB340:J=16000:GOSUB190:RETURN
280 IFINKEY$=""THEN280ELSERETURN
290 J=0:K0=D2(D1(N1)-1)MOD10:FORI=1TO24\K0:W=RND(1)*(D2(D1(N1)-1)\10)+1:FORI1=1TOK0:O0(J)=W:J=J+1:NEXT:NEXT
300 FORI=0TO23:SWAPO0(I),O0(RND(1)*24):NEXT:RETURN
310 DRAW"BM222,58C15G2DGD4FD2FGDGD2FDF2R2EFR3EFR2E2UEU2HUHEU2EU4HUH2LGLHL3GLHLBD24C1RU2RDBGBDC10L3DR3BR8BU3C1URD2RBGC10R3DL3BU8":PAINTSTEP(0,0),15:F=0:C=1:GOSUB90:RETURN
320 LINE(16,0)-(247,24),4,BF:LINE(192,26)-(255,44),4,BF:RETURN
330 C1=12:C2=15:FORI=0TO23:O=I+1:GOSUB350:NEXT:RETURN
340 C1=15:C2=12:FORI=0TO23:O=O0(I):GOSUB350:NEXT:RETURN
350 IFO0(I)<0THENRETURNELSEX=16+44*(IMOD4):Y=28+28*(I\4):GOSUB360:RETURN
360 GOSUB170:LINE(X,Y)-STEP(39,24),C1,BF:PRESET(X,Y):Q1=O\10:Q2=OMOD10:IFQ1THENDRAW"BM+9,6C=C2;XN$(Q1);XN$(Q2);":RETURNELSEDRAW"BM+15,6C=C2;XN$(O);":RETURN
370 DRAW"BM196,48":COLOR15:PRINT#1,"CORRETO!":J=200:FORI=1TO4:C=1:F=0:GOSUB90:GOSUB190:C=6:F=2:GOSUB90:PLAY"T120S1M1500L16O6CO5G","T120S1M1500L16O5GE":GOSUB190:NEXT:LINE(196,48)-(259,55),4,BF:RETURN
380 C=1:F=4:GOSUB90:PLAY"T255S1M700O3L16GGGGGGGG","T255S1M700O7L16CCCCCCCC":RETURN
390 GOSUB330:CIRCLE(30,12),12,13:PAINT(30,12),13:DRAW"BM25,5C15XN$(K0);BM48,8":W$="CART´ES":GOSUB180:J=7000:GOSUB190:RETURN
400 GOSUB320:GOSUB340
410 IFINKEY$<>""THEN410ELSEDRAW"BM16,0":COLOR15:W$="MEMORIZE OS N‹MEROS E":GOSUB180:DRAW"BM16,8":W$="APERTE QUALQUER TECLA!":GOSUB180:GOSUB280:RETURN
420 GOSUB320:DRAW"BM16,8":COLOR15:W$="DECORE DE NOVO!":GOSUB180:GOSUB340
430 X=0:GOSUB660:TIME=0:INTERVALON:ONINTERVAL=60GOSUB570
440 IFX=0THEN440ELSEINTERVALOFF:RETURN
450 GOSUB320:GOSUB330:GOSUB310:FORI=0TOK0-1:LINE(208,84+I*28)-STEP(39,23),15,BF:IFI=K0-1THENNEXT:RETURNELSELINE(226,108+I*28)-STEP(3,4),6,BF:NEXT:RETURN
460 F=0:C=1:GOSUB90:FORI=0TO7:PUTSPRITEI,(0,209):NEXTI:GOSUB540:FORK1=0TOK0-1
470 X1=217:Y1=88+K1*28:L1=2:C1=8:S1=K1*2:GOSUB30:IFQ<1ORQ>24THENGOSUB150:GOTO470ELSEO1(K1)=Q-1
480 IFO0(O1(K1))<0THENGOSUB150:GOTO470ELSEIFK1<>0THENFORI=K1-1TO0STEP-1:IFO1(I)=O1(K1)THENGOSUB150:GOTO470ELSENEXTI
490 C1=15:C2=12:I=Q-1:O=O0(I):GOSUB350
500 IFK1=0THENNEXTK1ELSEIFO0(O1(0))=O0(O1(K1))THENNEXTK1ELSEGOSUB530:IFM1<=-W3!(N1)THENF1=1:RETURNELSEGOSUB420:GOSUB330:GOTO460
510 GOSUB370:C1=13:C2=15:FORJ=0TOK0-1:I=O1(J):O=O0(O1(J)):GOSUB350:O0(O1(J))=-O0(O1(J)):NEXTJ
520 R1=R1+1:M1=M1-1:IFR1>=24/K0THENRETURNELSE460
530 R0=R0+1:M1=M1-1:W9!(N1)=W9!(N1)-1:GOSUB380:RETURN
540 GOSUB320:X=16:Y=0:O=ABS(M1):C1=5:C2=15:GOSUB560:IFM1<1THEN550ELSEGOSUB360:DRAW"BM64,8":COLOR15:W$="TENTATIVAS   ":GOSUB180:RETURN
550 O=O+1:GOSUB360:DRAW"BM64,8":COLOR15:W$="TENTE DE NOVO":GOSUB180:RETURN
560 DRAW"BM182,0":W$="ENCONTRE":GOSUB180:DRAW"BM182,8":W$="CONJUNTO":GOSUB180:DRAW"BM182,16":W$="IGUAL.  ":GOSUB180:RETURN
570 W=R0:IFW>5THENW=5ELSEW=D3(W)
580 W=W-INT(TIME/60):IFW<0THENX=1:RETURN
590 LINE(216,28)-STEP(31,15),4,BF:Q1=W\10:IFQ1THENDRAW"BM216,28C15XN$(Q1);"
600 Q2=WMOD10:DRAW"BM228,28C15XN$(Q2);":RETURN
610 DIMO0(23),O1(3),D2(9),D3(5),N$(9):RESTORE650:FORI=0TO9:READD2(I):NEXT:FORI=1TO5:READD3(I):NEXT
620 N$(0)="BR2R5DL5GD9LU9BR8D9GL5DR5BE2U9BE2BR3":N$(1)="BD4DRUEURDEU2RD12R4DL9UR4U9BE3BR7":N$(2)="BD2DRUER5FD3GDHDGL3BG2D3R9UL8U2ER3BE4U3BH2L5BR12":N$(3)="BD2DRUEUR5BF2D3BD3D3BG2L5BH2URDFR5EU3HL3UR3EU3HL4BEBR10"
630 N$(4)="BD6D3R6D4RU4R2UL2U8LD2L2DR2D5L5U2E2DHBE4BR8":N$(5)="R9DL8D3R4BF2GUF3UG3RHBG2L4DR5UBU7L5U4BEBR13":N$(6)="BR4R3DL3G2RHBG2D7RU4R6FD3GL5DR5BE2U3BH2L6U2BE4BR9":N$(7)="D3RU3R8D3BG2HRG2D7LU7BE4DU2L6BEBR11"
640 N$(8)="BR2R5BF2D3BD3D3BG2L5BH2U3BU3U3RD3BD3D3FR5EU3HL5UR5EU3HL5BEBR11":N$(9)="BR2R5BF2D7BG2HRG3L2UR2FBE3BUU7HL5GD3FR5DL5BH2U3BE2BR12":RETURN
650 DATA102,302,502,303,503,703,903,504,704,994,30,20,15,10,5
660 DRAW"BM192,28C15BDD2EU2RD2FG2D4F2GDRUER3FDRUHE2U4H2EU2RFD2HUBG2LDRFL2DR2D3L5U6R2U2RUL3DRD":PAINTSTEP(-2,3),15:RETURN
670 IFW9!(N1)>=W3!(N1)THENE1(N1)=1:D1(N1+1)=D1(N1)+1ELSEIFW9!(N1)<=W3!(N1)-1.5THENE1(N1)=3:D1(N1+1)=D1(N1)-1ELSEE1(N1)=2:D1(N1+1)=D1(N1)
680 IFW9!(N1)=0THENE1(N1)=3:D1(N1+1)=D1(N1+1)-1
690 W3!(N1+1)=W9!(N1)-1:IFW3!(N1+1)<1THENW3!(N1+1)=1
700 IFD1(N1+1)<1THEND1(N1+1)=1
710 COLOR,15,15:GOSUB210:Y=8:FORX=24TO240STEP24:GOSUB800:NEXT:X=240:FORY=32TO176STEP24:GOSUB800:NEXT:Y=176:FORX=216TO24STEP-24:GOSUB800:NEXT:X=24:FORY=152TO32STEP-24:GOSUB800:NEXT
720 LINE(124,32)-(147,167),1,BF:FORI=0TO112STEP16:LINE(135,40+I)-STEP(1,8),15,BF:NEXT:FORI=0TO80STEP80:LINE(84+I,32)-STEP(23,64),1,BF:FORJ=0TO48STEP16:LINE(95+I,40+J)-STEP(1,8),15,BF:NEXT:NEXT:LINE(64,96)-(207,127),4,BF:X=E1(N1)*40+40
730 PUTSPRITE1,(X,95),4,62:PUTSPRITE2,STEP(15,0),4,62:PUTSPRITE3,(120,111),4,62:PUTSPRITE4,STEP(16,0),4,62:PUTSPRITE5,(120,127),4,21:PUTSPRITE6,(136,127),4,22:FORI=1TO3:LINE(I*40+71,47)-STEP(-31,-25),4,BF:PSETSTEP(8,4),4:ONIGOSUB110,120,130:NEXT
740 FORI=152TO112STEP-1:PUTSPRITE7,(128,I),6,23:PUTSPRITE8,(128,I),4,24:SOUND0,103+I:SOUND8,15:FORK=1TO5:SOUND8,0:NEXT:J=10:GOSUB190:NEXT:X=E1(N1)*40+48:GOSUB790:FORI=1TO4:PUTSPRITEI,(0,209):NEXT
750 PSET(93,108),4:I=USR9(0):ONE1(N1)GOSUB760,770,780:GOTO140
760 COLOR15:W$=" MUITO BOM!":GOSUB180:PLAY"T100S1M10000","T100S1M10000","t100s1m10000":PLAY"O5C4O4A8.A+16O5C4O4F4L16GAA+O5CO4A+8A8G2","O4A4F8.G16A4C4L16EFGAG8F8E2","o4F4C8.D16F4O3A4O4L16CCDED8C8C2":RETURN
770 COLOR15:W$="    BOM!":GOSUB180:PLAY"T80S1M1000L16O5DEFGABO6C8.O5M7000C2","T80S1M1000L16O4ABO5CDEFG8.O4M7000G2":RETURN
780 COLOR15:W$="ESTUDE MAIS!":GOSUB180:PLAY"T120S1M1000L16O6CO5BAGFEDC4O6M3000C8","T120S1M1000L16O5CO4BAGFEDC4O5M3000C8":RETURN
790 FORI=95TO48STEP-1:PUTSPRITE7,(X,I),6,23:PUTSPRITE8,(X,I),4,24:J=95-I:SOUND0,255-J:SOUND8,15:FORK=1TO5:SOUND8,0:NEXT:J=10:GOSUB190:NEXT:RETURN
800 LINE(X-1,Y)-STEP(2,12),6,BF:CIRCLE(X,Y),8,12,,,1.4:PAINTSTEP(0,-2),12,12:PLAY"T255S1M800O6G16":RETURN
810 COLOR15,4,4:GOSUB210:LINE(0,52)-(255,171),,BF:RESTORE850:FORI=1TO8:READX,Y,W$:PRESET(X,Y):PRINT#1,W$:NEXT:FORI=72TO80STEP8:FORJ=16TO40STEP8:READC:LINE(I,J)-STEP(7,7),C,BF:NEXTJ,I:FORI=0TO10:C=3:IFIMOD5=0THENC=1
820 J=I*4+64:K=I*6+111:DRAW"C=C;BM0,=J;R255BM0,=K;R255":NEXT:LINE(0,105)-(255,110),4,BF:COLOR4,15:FORI=0TON0-1:X=I*24+16:PRESET(X-4,54):PRINT#1,I+1:Y=D1(I)*4:D=0:C=2:L=15:R=0:GOSUB850:Y=W3!(I)*6:C=13:L=7:R=67:GOSUB850:Y=60:D=8:C=7:GOSUB850
830 Y=W1(I)*.6:C=11:GOSUB850:Y=W9!(I)*6:C=9:GOSUB850:PSET(X,176):ONE1(I)GOSUB110,120,130:NEXT:COLOR15,4:PRESET(208,20):PRINT#1,D1(N0):PRESET(208,32):PRINT#1,INT(W3!(N0))
840 IFINKEY$<>""GOTO840ELSEW$=INPUT$(1):RETURN
850 FORJ=0TOY:LINE(X+D,104-J+R)-STEP(L,0),C:NEXT:RETURN:DATA24,0,REGISTRO,95,24,ERROS,96,40,PONTOS,24,32,META,24,16,N‰VEL,152,0,PRŠXIMA META,160,20,N‰VEL,160,32,PONTOS,2,13,13,13,2,7,9,9
860 DEFINTA-Y:DEFSTRZ:COLOR15,4,4:SCREEN2,2,0,,1:DRAW"A0S0":OPEN"GRP:"FOROUTPUTAS#1:DEFUSR9=&H90:I=USR9(0):GOSUB970:GOSUB920:GOSUB210
870 LINE(16,0)-(247,191),15,B:DRAW"BM40,16C15":W$="PREENCHA OS ‰TENS ABAIXO.":GOSUB180:DRAW"BM28,48":W$="N‹MERO DE EXERC‰CIOS":GOSUB180:PRESET(140,60):W$="(1-10)":GOSUB180:LINE(200,44)-STEP(40,24),15,BF
880 X1=208:Y1=48:L1=2:S1=0:C1=8:GOSUB30:IFQ<1ORQ>10THENGOSUB150:GOTO880ELSEN0=Q:GOSUB160:DIMD1(N0),E1(N0-1),T1(N0-1),W1(N0-1),W3!(N0),W9!(N0-1)
890 DRAW"BM28,80":W$="N‰VEL DE DIFICULDADE":GOSUB180:DRAW"BM140,92":W$="(1-10)":GOSUB180:LINE(200,76)-STEP(40,24),15,BF
900 Y1=80:S1=2:GOSUB30:IFQ<1ORQ>10THENGOSUB150:GOTO900ELSED1(0)=Q:GOSUB160:DRAW"BM28,112":W$="META DE PONTOS (1-10)":GOSUB180:LINE(200,108)-STEP(40,24),15,BF
910 Y1=112:S1=4:GOSUB30:IFQ<1ORQ>10 THENGOSUB150:GOTO910ELSEW3!(0)=Q:GOSUB160:GOTO220
920 COLOR,4,4:GOSUB210:X=128:Y=64:C=6:R=92:T!=.7:GOSUB960:C=10:R=64:T!=1:GOSUB960:C=2:T!=3:GOSUB960:DRAW"C6BM64,110M+11,48C13M+5,24M+95,0M+6,-25C6M+10,-47C13BM-11,48M-106,0BF3":PAINTSTEP(0,0),13:DRAW"C6BM104,112M+8,46BR31M+8,-46"
930 LINE(72,48)-(183,79),15,BF:GOSUB1090:LINE(80,87)-(175,95),1,BF:PRESET(84,88):COLOR15:PRINT#1,"  MEMORIA  ":PSET(86,163),13:PRINT#1,"EDUCACIONAL":PSET(90,172),13:PRINT#1,"5 A 8 ANOS"
940 '
950 SOUND7,&HF8:PLAY"T80S14M600O5L16AFCA+FDO6CO5GEA+FDAFCGECFCO4AS13M1000O5F4.","T80V10O5L16FCO4AO5FDO4A+O5GECFDO4A+O5FCO4AO5ECO4GO5CO4AFO4S13M1000C4.","T80V10O4L16FFFA+A+A+CCCDDDFFFCCCFFFS13M1000F4.":J=200:GOTO190
960 CIRCLE(X,Y),R,C,,,T!:PAINT(X,Y-63),C:RETURN
970 DRAW"BM10,90":PRINT#1,"BENVINDO AO MUNDO DOS N‹MEROS!":DIMZ(34):W=RND(-TIME):RESTORE1010:GOSUB3000:FORI=10TO25:W$=STRING$(32,0):FORJ=1TO32:READA$:MID$(W$,J)=CHR$(VAL("&H"+A$)):NEXT:SPRITE$(I)=W$:NEXT
980 SPRITE$(62)=STRING$(32,255):COLOR4:LINE(80,8)-(0,0),0,BF:PRINT#1,"O123456789":FORI=0TO9:W$=STRING$(32,0):FORJ=0TO7:W=VPEEK(BASE(12)+I*8+J):GOSUB1000:NEXT:SPRITE$(I)=W$:NEXT:COLOR15
990 RETURN
1000 Q=0:FORK=0TO3:Q=Q*4:Q=QOR((WAND&H80)\&H80)*3:W=W*2:NEXT:MID$(W$,J*2+1,2)=STRING$(2,Q):W=WAND&HFF:Q=0:FORK=4TO7:Q=Q*4:Q=QOR((WAND&H80)\&H80)*3:W=W*2:NEXT:MID$(W$,J*2+17,2)=STRING$(2,Q):RETURN
1010 DATA,,,,,,,,,,,,,,,ff,,,,,,,,,,,,,,,,e0,,,,,,,78,FC,FF,FF,FF,FF,FF,CF,87,,,,,,,18,7C,FF,FF,FF,FF,FF,FF,BE,18,,,1D,39,71,63,E3,E3,E3,E3,E3,E3,63,71,39,1D,6,60,B8,9C,8E,C6,C7,C7,C7,C7,C7,C7,C6,8E,9C,B8,60
1020 DATA1,2,6,E,1C,1C,1C,1C,1C,1C,1C,1C,E,6,22,11,80,40,60,70,38,38,38,38,38,38,38,38,70,60,44,80,10,8,8,4,4,7,3,3,3,1,,,,,,,8,10,10,20,20,E0,C0,C0,C0,80,,,,,,,,,,,,,,,,1,2,4,c,c,,,,,,,4,4,4,,,80,,,,,,0
1030 DATA,,,,20,20,20,,,1,,,,,,,,,,,,,,,,80,40,20,30,30,,,,,,,,,,8,C,F,,,,,,,4,A,,,7,8,10,20,20,A0,20,20,20,10,8,7,20,50,,,E0,10,8,4,4,5,4,4,4,8,10,E0,,,,,,,,10,30,F0,,,,,,,,,,,,,,8,C,F,,,,,,,,8,4,2,20,10,8,4,2,81,1,2,4,8,10,20
1040 DATA,10,20,40,4,8,10,20,40,81,80,40,20,10,8,4,,,,,,,,10,30,F0,,,,,,,ff,ff,ff,ff,ff,ff,ff,ff,FF,FF,FF,Fe,F8,F0,e0,e0,FF,FF,FF,FF,FF,FF,FF,FF,FF,F0,80,,,,,,FF,FF,FF,FF,FF,FF,FF,FF,FF,F,1,,,,,,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,7F,1F,F,7,7
1050 DATA3,3,7,7,7,6,4,C,1C,1C,1F,1C,7,4,7,3,C0,C0,E0,E0,E0,60,20,30,38,38,F8,38,E0,20,E0,C0,,,,30,38,31,3,3,3,3,,3,38,3B,38,38,,,,C,1C,8C,C0,C0,C0,C0,,C0,1C,DC,1C,1C
1060 DATAFF,E6,81,E4,E4,CC,91,FF,E7,80,E4,CC,90,F4,F0,FF,E0,60,20,A0,E0,E0,E0,E0,E0,E0,20,E0,20,E0,E0,E0
1070 REM P-1009
1080 DRAW"BFBD2R5DGL4D2BR5U BE2BR3L2DGDREDREBEBRD2R4EU2HL4BR14L4GD2FR4BR3R3EU2HL3GD2FBR6U3EFDRDEUEFD3BR2U2R4EUL5BR7D3FR3EU3BR5L3D4BR6R4BU2L4GU2ER4BR2R5DGL4D2BR5UDBR9L4HU2ER4BR3R3FD2GL3HNU2BR8RBR4GBR8L4U4BR4R4L2D4BE4R4FD2GL4U2":RETURN
1090 ' HOTBIT
1100 '
1110 FOR I=1 TO 7
1120   ON I GOSUB 1170,1200,1240,1280,1320,1350,1400
1130   PLAY"t255s1m950o5b8":GOSUB140
1140 NEXT
1150 RETURN
1160 '
1170 DRAW"BM80,56C9R4D8R4U8R4D18L4U8L4D8L4U18": 'H
1180 PAINTSTEP(1,1), 9
1190 RETURN
1200 DRAW"BM98,56C5R8F2D14G2L8H2U14E2":'O
1210 PAINTSTEP(1,1), 5
1220 DRAW"BM98,57C15R1D1L1U1BM98,59R1D1L1U1BM103,56R1D1L1U1BM100,62R1D1L1U1BM106,57R1D2L1U1BM98,61R1D1L1U1BM103,64R1D1L1U1BM102,59R1D1L1U1":'PONTOS
1230 RETURN
1240 DRAW"BM112,56C9R12D4L4D14L4U14L4U4":'T
1250 PAINTSTEP(1,1), 9
1260 ' PAINTSTEP(-3,0), 5
1270 RETURN
1280 DRAW"BM128,56C9R8F3D3G3F3D3G3L8U18BM132,60R3D3L3U3BM132,68R3D3L3U3":'B
1290 PAINTSTEP(-1,-1), 9
1300 'PAINTSTEP(-3,0), 5
1310 RETURN
1320 DRAW"BM144,56C9R12D4L4D10R4D4L12U4R4U10L4U4":'I
1330 PAINTSTEP(1,1), 9
1340 RETURN
1350 DRAW"BM160,56C9R12D4L4D14L4U14L4U4":'T
1360 PAINTSTEP(1,1) ,9
1370 'PAINTSTEP(0,6), 5
1380 'PAINTSTEP(0,5), 5
1390 RETURN
1400 'DRAW"BM172,52C5L10GL2G2DGD3F3RF2RFDFDG3L5DGDR10EUE2U4HUHL HLHLHUHU2ERERER6E":'S
1410 'PAINTSTEP(-1,0), 5
1420 RETURN
3000 PRESET(40,120):PRINT#1,"estou":PSET(80,140):PRINT#1,"pensando":PRESET(144,160):PRINT#1,"aguarde ...":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

1 'MEMORIA

10 CLEAR100:MAXFILES=1

20 GOTO860

30 IFINKEY$<>""THEN30ELSEW$="":X=X1:Y=Y1:J=0:L2=0:S4=63:S5=S1:C2=10:K=1:FORI=S1TOS1+L1-1:PUTSPRITEI,(0,209):NEXT

40 IFKTHENJ=NOTJ:IFJTHENPUTSPRITES5,(X,Y),C1,C2ELSEPUTSPRITES5,(X,Y),C1,63

50 GOSUB80:IFZ=""THEN40ELSEIFZ=CHR$(11)THEN30ELSEIFZ=CHR$(13)ANDW$<>""THENQ=VAL(W$):PUTSPRITES5,(X,Y),C1,S4:RETURNELSEC2=10:IFZ<"0"ORZ>"9"THENGOSUB150:IFZ>"…"THENC2=10:GOTO40ELSE40ELSEIFL2<L1THENW$=W$+Z:W=VAL(Z):PUTSPRITES5,STEP(0,0),C1,W:L2=L2+1

60 IFL2<L1THENX=X+12:S5=S5+1ELSEK=0:S4=W

70 GOTO40

80 FORI=1TO100:Z=INKEY$:IFZ<>""THEN RETURNELSENEXT:RETURN

90 PUTSPRITE15,(212,60),C,15+F:PUTSPRITE 16,STEP(16,0),C,16+F:RETURN

100 LINE(M1*24+32,192)-STEP(-16,-16),4,BF:ONF3GOTO110,120,130

110 DRAW"C11BR7D2R2FR2NED2FD2NR2DGD2NFL2GL2ND2LHL2NGU2HUNL2U2EU2NHR2EBD4":PAINTSTEP(0,0),11:DRAW"C4HGBR5EFBD3G2L3H2":RETURN

120 DRAW"C15BD8R7FR7D2GLG3L2H2LGL2HU2HU2BF":PAINTSTEP(0,0),15:DRAW"C11BU2NLE2U2NHR2E2NUF2R2NED2F2NRGDGH2L2GLH2NLBE2":PAINTSTEP(0,0),11:DRAW"C4RBR2R":RETURN

130 DRAW"C15BD4D2FDFREREF2RE2FREUEUHLHLGH2LG2H2LGDBR2":PAINTSTEP(0,0),15:DRAW"C15BD8NG2BR3G3BR3E4BR3G4":RETURN

140 IFPLAY(0)THEN140ELSERETURN

150 PLAY"T255V12O2G4","T255V12O5A4":RETURN

160 PLAY"T200S1M2500O5B8M7000G2":RETURN

170 PLAY"T255S1M300O5B16":RETURN

180 PRINT#1,W$;:RETURN:' FORI=1TOLEN(W$):N=INSTR("Þýï“ãà˜ä’œë—óöš†Žò”–ßîúíù°•›ðåê÷ø‘",MID$(W$,I,1)):IFN>0THENDRAWZ(N-1):NEXT:RETURNELSEDRAW"BR8":NEXT:RETURN

190 FORK=0TOJ:NEXT:RETURN

200 IFINKEY$<>""THEN200ELSELINE(42,164)-(224,188),15,BF:COLOR4:DRAW"BM43,172":W$=" PRESSIONE UMA TECLA !":GOSUB180:W$=INPUT$(1):RETURN

210 FORI=0TO31:PUTSPRITEI,(0,209),,63:NEXT:CLS:RETURN

220 GOSUB610:FORN1=0TON0-1:GOSUB200:GOSUB250:GOSUB670:GOSUB230:NEXT:GOSUB810:END

230 IFD1(N1)=10ANDE1(N1)=1THEND1(N1+1)=1:SWAPN0,N1:N0=N0+1:W$=" PARABNS !! "ELSEIFN1=N0-1THENW$=" FIM "ELSERETURN

240 LINE(42,164)-(224,188),15,BF:DRAW"BM77,172":COLOR4:GOSUB180:J=8000:GOTO190

250 GOSUB290:COLOR15,4,4:GOSUB210:GOSUB390:M0=24/(D2(D1(N1)-1)MOD10)+(10-W3!(N1)):M1=M0:W9!(N1)=10:GOSUB400:GOSUB450:R0=0:R1=0:GOSUB460:IFW9!(N1)<0THENW9!(N1)=0

260 J=2000:GOSUB190:IFF1=0THENRETURNELSEGOSUB320

270 COLOR15:DRAW"BM32,12":W$="RESPOSTA CERTA ":GOSUB180:GOSUB340:J=16000:GOSUB190:RETURN

280 IFINKEY$=""THEN280ELSERETURN

290 J=0:K0=D2(D1(N1)-1)MOD10:FORI=1TO24\K0:W=RND(1)*(D2(D1(N1)-1)\10)+1:FORI1=1TOK0:O0(J)=W:J=J+1:NEXT:NEXT

300 FORI=0TO23:SWAPO0(I),O0(RND(1)*24):NEXT:RETURN

310 DRAW"BM222,58C15G2DGD4FD2FGDGD2FDF2R2EFR3EFR2E2UEU2HUHEU2EU4HUH2LGLHL3GLHLBD24C1RU2RDBGBDC10L3DR3BR8BU3C1URD2RBGC10R3DL3BU8":PAINTSTEP(0,0),15:F=0:C=1:GOSUB90:RETURN

320 LINE(16,0)-(247,24),4,BF:LINE(192,26)-(255,44),4,BF:RETURN

330 C1=12:C2=15:FORI=0TO23:O=I+1:GOSUB350:NEXT:RETURN

340 C1=15:C2=12:FORI=0TO23:O=O0(I):GOSUB350:NEXT:RETURN

350 IFO0(I)<0THENRETURNELSEX=16+44*(IMOD4):Y=28+28*(I\4):GOSUB360:RETURN

360 GOSUB170:LINE(X,Y)-STEP(39,24),C1,BF:PRESET(X,Y):Q1=O\10:Q2=OMOD10:IFQ1THENDRAW"BM+9,6C=C2;XN$(Q1);XN$(Q2);":RETURNELSEDRAW"BM+15,6C=C2;XN$(O);":RETURN

370 DRAW"BM196,48":COLOR15:PRINT#1,"CORRETO!":J=200:FORI=1TO4:C=1:F=0:GOSUB90:GOSUB190:C=6:F=2:GOSUB90:PLAY"T120S1M1500L16O6CO5G","T120S1M1500L16O5GE":GOSUB190:NEXT:LINE(196,48)-(259,55),4,BF:RETURN

380 C=1:F=4:GOSUB90:PLAY"T255S1M700O3L16GGGGGGGG","T255S1M700O7L16CCCCCCCC":RETURN

390 GOSUB330:CIRCLE(30,12),12,13:PAINT(30,12),13:DRAW"BM25,5C15XN$(K0);BM48,8":W$="CART´ES":GOSUB180:J=7000:GOSUB190:RETURN

400 GOSUB320:GOSUB340

410 IFINKEY$<>""THEN410ELSEDRAW"BM16,0":COLOR15:W$="MEMORIZE OS N‹MEROS E":GOSUB180:DRAW"BM16,8":W$="APERTE QUALQUER TECLA!":GOSUB180:GOSUB280:RETURN

420 GOSUB320:DRAW"BM16,8":COLOR15:W$="DECORE DE NOVO!":GOSUB180:GOSUB340

430 X=0:GOSUB660:TIME=0:INTERVALON:ONINTERVAL=60GOSUB570

440 IFX=0THEN440ELSEINTERVALOFF:RETURN

450 GOSUB320:GOSUB330:GOSUB310:FORI=0TOK0-1:LINE(208,84+I*28)-STEP(39,23),15,BF:IFI=K0-1THENNEXT:RETURNELSELINE(226,108+I*28)-STEP(3,4),6,BF:NEXT:RETURN

460 F=0:C=1:GOSUB90:FORI=0TO7:PUTSPRITEI,(0,209):NEXTI:GOSUB540:FORK1=0TOK0-1

470 X1=217:Y1=88+K1*28:L1=2:C1=8:S1=K1*2:GOSUB30:IFQ<1ORQ>24THENGOSUB150:GOTO470ELSEO1(K1)=Q-1

480 IFO0(O1(K1))<0THENGOSUB150:GOTO470ELSEIFK1<>0THENFORI=K1-1TO0STEP-1:IFO1(I)=O1(K1)THENGOSUB150:GOTO470ELSENEXTI

490 C1=15:C2=12:I=Q-1:O=O0(I):GOSUB350

500 IFK1=0THENNEXTK1ELSEIFO0(O1(0))=O0(O1(K1))THENNEXTK1ELSEGOSUB530:IFM1<=-W3!(N1)THENF1=1:RETURNELSEGOSUB420:GOSUB330:GOTO460

510 GOSUB370:C1=13:C2=15:FORJ=0TOK0-1:I=O1(J):O=O0(O1(J)):GOSUB350:O0(O1(J))=-O0(O1(J)):NEXTJ

520 R1=R1+1:M1=M1-1:IFR1>=24/K0THENRETURNELSE460

530 R0=R0+1:M1=M1-1:W9!(N1)=W9!(N1)-1:GOSUB380:RETURN

540 GOSUB320:X=16:Y=0:O=ABS(M1):C1=5:C2=15:GOSUB560:IFM1<1THEN550ELSEGOSUB360:DRAW"BM64,8":COLOR15:W$="TENTATIVAS ":GOSUB180:RETURN

550 O=O+1:GOSUB360:DRAW"BM64,8":COLOR15:W$="TENTE DE NOVO":GOSUB180:RETURN

560 DRAW"BM182,0":W$="ENCONTRE":GOSUB180:DRAW"BM182,8":W$="CONJUNTO":GOSUB180:DRAW"BM182,16":W$="IGUAL. ":GOSUB180:RETURN

570 W=R0:IFW>5THENW=5ELSEW=D3(W)

580 W=W-INT(TIME/60):IFW<0THENX=1:RETURN

590 LINE(216,28)-STEP(31,15),4,BF:Q1=W\10:IFQ1THENDRAW"BM216,28C15XN$(Q1);"

600 Q2=WMOD10:DRAW"BM228,28C15XN$(Q2);":RETURN

610 DIMO0(23),O1(3),D2(9),D3(5),N$(9):RESTORE650:FORI=0TO9:READD2(I):NEXT:FORI=1TO5:READD3(I):NEXT

620 N$(0)="BR2R5DL5GD9LU9BR8D9GL5DR5BE2U9BE2BR3":N$(1)="BD4DRUEURDEU2RD12R4DL9UR4U9BE3BR7":N$(2)="BD2DRUER5FD3GDHDGL3BG2D3R9UL8U2ER3BE4U3BH2L5BR12":N$(3)="BD2DRUEUR5BF2D3BD3D3BG2L5BH2URDFR5EU3HL3UR3EU3HL4BEBR10"

630 N$(4)="BD6D3R6D4RU4R2UL2U8LD2L2DR2D5L5U2E2DHBE4BR8":N$(5)="R9DL8D3R4BF2GUF3UG3RHBG2L4DR5UBU7L5U4BEBR13":N$(6)="BR4R3DL3G2RHBG2D7RU4R6FD3GL5DR5BE2U3BH2L6U2BE4BR9":N$(7)="D3RU3R8D3BG2HRG2D7LU7BE4DU2L6BEBR11"

640 N$(8)="BR2R5BF2D3BD3D3BG2L5BH2U3BU3U3RD3BD3D3FR5EU3HL5UR5EU3HL5BEBR11":N$(9)="BR2R5BF2D7BG2HRG3L2UR2FBE3BUU7HL5GD3FR5DL5BH2U3BE2BR12":RETURN

650 DATA102,302,502,303,503,703,903,504,704,994,30,20,15,10,5

660 DRAW"BM192,28C15BDD2EU2RD2FG2D4F2GDRUER3FDRUHE2U4H2EU2RFD2HUBG2LDRFL2DR2D3L5U6R2U2RUL3DRD":PAINTSTEP(-2,3),15:RETURN

670 IFW9!(N1)>=W3!(N1)THENE1(N1)=1:D1(N1+1)=D1(N1)+1ELSEIFW9!(N1)<=W3!(N1)-1.5THENE1(N1)=3:D1(N1+1)=D1(N1)-1ELSEE1(N1)=2:D1(N1+1)=D1(N1)

680 IFW9!(N1)=0THENE1(N1)=3:D1(N1+1)=D1(N1+1)-1

690 W3!(N1+1)=W9!(N1)-1:IFW3!(N1+1)<1THENW3!(N1+1)=1

700 IFD1(N1+1)<1THEND1(N1+1)=1

710 COLOR,15,15:GOSUB210:Y=8:FORX=24TO240STEP24:GOSUB800:NEXT:X=240:FORY=32TO176STEP24:GOSUB800:NEXT:Y=176:FORX=216TO24STEP-24:GOSUB800:NEXT:X=24:FORY=152TO32STEP-24:GOSUB800:NEXT

720 LINE(124,32)-(147,167),1,BF:FORI=0TO112STEP16:LINE(135,40+I)-STEP(1,8),15,BF:NEXT:FORI=0TO80STEP80:LINE(84+I,32)-STEP(23,64),1,BF:FORJ=0TO48STEP16:LINE(95+I,40+J)-STEP(1,8),15,BF:NEXT:NEXT:LINE(64,96)-(207,127),4,BF:X=E1(N1)*40+40

730 PUTSPRITE1,(X,95),4,62:PUTSPRITE2,STEP(15,0),4,62:PUTSPRITE3,(120,111),4,62:PUTSPRITE4,STEP(16,0),4,62:PUTSPRITE5,(120,127),4,21:PUTSPRITE6,(136,127),4,22:FORI=1TO3:LINE(I*40+71,47)-STEP(-31,-25),4,BF:PSETSTEP(8,4),4:ONIGOSUB110,120,130:NEXT

740 FORI=152TO112STEP-1:PUTSPRITE7,(128,I),6,23:PUTSPRITE8,(128,I),4,24:SOUND0,103+I:SOUND8,15:FORK=1TO5:SOUND8,0:NEXT:J=10:GOSUB190:NEXT:X=E1(N1)*40+48:GOSUB790:FORI=1TO4:PUTSPRITEI,(0,209):NEXT

750 PSET(93,108),4:I=USR9(0):ONE1(N1)GOSUB760,770,780:GOTO140

760 COLOR15:W$=" MUITO BOM!":GOSUB180:PLAY"T100S1M10000","T100S1M10000","t100s1m10000":PLAY"O5C4O4A8.A+16O5C4O4F4L16GAA+O5CO4A+8A8G2","O4A4F8.G16A4C4L16EFGAG8F8E2","o4F4C8.D16F4O3A4O4L16CCDED8C8C2":RETURN

770 COLOR15:W$=" BOM!":GOSUB180:PLAY"T80S1M1000L16O5DEFGABO6C8.O5M7000C2","T80S1M1000L16O4ABO5CDEFG8.O4M7000G2":RETURN

780 COLOR15:W$="ESTUDE MAIS!":GOSUB180:PLAY"T120S1M1000L16O6CO5BAGFEDC4O6M3000C8","T120S1M1000L16O5CO4BAGFEDC4O5M3000C8":RETURN

790 FORI=95TO48STEP-1:PUTSPRITE7,(X,I),6,23:PUTSPRITE8,(X,I),4,24:J=95-I:SOUND0,255-J:SOUND8,15:FORK=1TO5:SOUND8,0:NEXT:J=10:GOSUB190:NEXT:RETURN

800 LINE(X-1,Y)-STEP(2,12),6,BF:CIRCLE(X,Y),8,12,,,1.4:PAINTSTEP(0,-2),12,12:PLAY"T255S1M800O6G16":RETURN

810 COLOR15,4,4:GOSUB210:LINE(0,52)-(255,171),,BF:RESTORE850:FORI=1TO8:READX,Y,W$:PRESET(X,Y):PRINT#1,W$:NEXT:FORI=72TO80STEP8:FORJ=16TO40STEP8:READC:LINE(I,J)-STEP(7,7),C,BF:NEXTJ,I:FORI=0TO10:C=3:IFIMOD5=0THENC=1

820 J=I*4+64:K=I*6+111:DRAW"C=C;BM0,=J;R255BM0,=K;R255":NEXT:LINE(0,105)-(255,110),4,BF:COLOR4,15:FORI=0TON0-1:X=I*24+16:PRESET(X-4,54):PRINT#1,I+1:Y=D1(I)*4:D=0:C=2:L=15:R=0:GOSUB850:Y=W3!(I)*6:C=13:L=7:R=67:GOSUB850:Y=60:D=8:C=7:GOSUB850

830 Y=W1(I)*.6:C=11:GOSUB850:Y=W9!(I)*6:C=9:GOSUB850:PSET(X,176):ONE1(I)GOSUB110,120,130:NEXT:COLOR15,4:PRESET(208,20):PRINT#1,D1(N0):PRESET(208,32):PRINT#1,INT(W3!(N0))

840 IFINKEY$<>""GOTO840ELSEW$=INPUT$(1):RETURN

850 FORJ=0TOY:LINE(X+D,104-J+R)-STEP(L,0),C:NEXT:RETURN:DATA24,0,REGISTRO,95,24,ERROS,96,40,PONTOS,24,32,META,24,16,N‰VEL,152,0,PRŠXIMA META,160,20,N‰VEL,160,32,PONTOS,2,13,13,13,2,7,9,9

860 DEFINTA-Y:DEFSTRZ:COLOR15,4,4:SCREEN2,2,0,,1:DRAW"A0S0":OPEN"GRP:"FOROUTPUTAS#1:DEFUSR9=&H90:I=USR9(0):GOSUB970:GOSUB920:GOSUB210

870 LINE(16,0)-(247,191),15,B:DRAW"BM40,16C15":W$="PREENCHA OS ‰TENS ABAIXO.":GOSUB180:DRAW"BM28,48":W$="N‹MERO DE EXERC‰CIOS":GOSUB180:PRESET(140,60):W$="(1-10)":GOSUB180:LINE(200,44)-STEP(40,24),15,BF

880 X1=208:Y1=48:L1=2:S1=0:C1=8:GOSUB30:IFQ<1ORQ>10THENGOSUB150:GOTO880ELSEN0=Q:GOSUB160:DIMD1(N0),E1(N0-1),T1(N0-1),W1(N0-1),W3!(N0),W9!(N0-1)

890 DRAW"BM28,80":W$="N‰VEL DE DIFICULDADE":GOSUB180:DRAW"BM140,92":W$="(1-10)":GOSUB180:LINE(200,76)-STEP(40,24),15,BF

900 Y1=80:S1=2:GOSUB30:IFQ<1ORQ>10THENGOSUB150:GOTO900ELSED1(0)=Q:GOSUB160:DRAW"BM28,112":W$="META DE PONTOS (1-10)":GOSUB180:LINE(200,108)-STEP(40,24),15,BF

910 Y1=112:S1=4:GOSUB30:IFQ<1ORQ>10 THENGOSUB150:GOTO910ELSEW3!(0)=Q:GOSUB160:GOTO220

920 COLOR,4,4:GOSUB210:X=128:Y=64:C=6:R=92:T!=.7:GOSUB960:C=10:R=64:T!=1:GOSUB960:C=2:T!=3:GOSUB960:DRAW"C6BM64,110M+11,48C13M+5,24M+95,0M+6,-25C6M+10,-47C13BM-11,48M-106,0BF3":PAINTSTEP(0,0),13:DRAW"C6BM104,112M+8,46BR31M+8,-46"

930 LINE(72,48)-(183,79),15,BF:GOSUB1090:LINE(80,87)-(175,95),1,BF:PRESET(84,88):COLOR15:PRINT#1," MEMORIA ":PSET(86,163),13:PRINT#1,"EDUCACIONAL":PSET(90,172),13:PRINT#1,"5 A 8 ANOS"

940 '

950 SOUND7,&HF8:PLAY"T80S14M600O5L16AFCA+FDO6CO5GEA+FDAFCGECFCO4AS13M1000O5F4.","T80V10O5L16FCO4AO5FDO4A+O5GECFDO4A+O5FCO4AO5ECO4GO5CO4AFO4S13M1000C4.","T80V10O4L16FFFA+A+A+CCCDDDFFFCCCFFFS13M1000F4.":J=200:GOTO190

960 CIRCLE(X,Y),R,C,,,T!:PAINT(X,Y-63),C:RETURN

970 DRAW"BM10,90":PRINT#1,"BENVINDO AO MUNDO DOS N‹MEROS!":DIMZ(34):W=RND(-TIME):RESTORE1010:GOSUB3000:FORI=10TO25:W$=STRING$(32,0):FORJ=1TO32:READA$:MID$(W$,J)=CHR$(VAL("&H"+A$)):NEXT:SPRITE$(I)=W$:NEXT

980 SPRITE$(62)=STRING$(32,255):COLOR4:LINE(80,8)-(0,0),0,BF:PRINT#1,"O123456789":FORI=0TO9:W$=STRING$(32,0):FORJ=0TO7:W=VPEEK(BASE(12)+I*8+J):GOSUB1000:NEXT:SPRITE$(I)=W$:NEXT:COLOR15

990 RETURN

1000 Q=0:FORK=0TO3:Q=Q*4:Q=QOR((WAND&H80)\&H80)*3:W=W*2:NEXT:MID$(W$,J*2+1,2)=STRING$(2,Q):W=WAND&HFF:Q=0:FORK=4TO7:Q=Q*4:Q=QOR((WAND&H80)\&H80)*3:W=W*2:NEXT:MID$(W$,J*2+17,2)=STRING$(2,Q):RETURN

1010 DATA,,,,,,,,,,,,,,,ff,,,,,,,,,,,,,,,,e0,,,,,,,78,FC,FF,FF,FF,FF,FF,CF,87,,,,,,,18,7C,FF,FF,FF,FF,FF,FF,BE,18,,,1D,39,71,63,E3,E3,E3,E3,E3,E3,63,71,39,1D,6,60,B8,9C,8E,C6,C7,C7,C7,C7,C7,C7,C6,8E,9C,B8,60

1020 DATA1,2,6,E,1C,1C,1C,1C,1C,1C,1C,1C,E,6,22,11,80,40,60,70,38,38,38,38,38,38,38,38,70,60,44,80,10,8,8,4,4,7,3,3,3,1,,,,,,,8,10,10,20,20,E0,C0,C0,C0,80,,,,,,,,,,,,,,,,1,2,4,c,c,,,,,,,4,4,4,,,80,,,,,,0

1030 DATA,,,,20,20,20,,,1,,,,,,,,,,,,,,,,80,40,20,30,30,,,,,,,,,,8,C,F,,,,,,,4,A,,,7,8,10,20,20,A0,20,20,20,10,8,7,20,50,,,E0,10,8,4,4,5,4,4,4,8,10,E0,,,,,,,,10,30,F0,,,,,,,,,,,,,,8,C,F,,,,,,,,8,4,2,20,10,8,4,2,81,1,2,4,8,10,20

1040 DATA,10,20,40,4,8,10,20,40,81,80,40,20,10,8,4,,,,,,,,10,30,F0,,,,,,,ff,ff,ff,ff,ff,ff,ff,ff,FF,FF,FF,Fe,F8,F0,e0,e0,FF,FF,FF,FF,FF,FF,FF,FF,FF,F0,80,,,,,,FF,FF,FF,FF,FF,FF,FF,FF,FF,F,1,,,,,,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,7F,1F,F,7,7

1050 DATA3,3,7,7,7,6,4,C,1C,1C,1F,1C,7,4,7,3,C0,C0,E0,E0,E0,60,20,30,38,38,F8,38,E0,20,E0,C0,,,,30,38,31,3,3,3,3,,3,38,3B,38,38,,,,C,1C,8C,C0,C0,C0,C0,,C0,1C,DC,1C,1C

1060 DATAFF,E6,81,E4,E4,CC,91,FF,E7,80,E4,CC,90,F4,F0,FF,E0,60,20,A0,E0,E0,E0,E0,E0,E0,20,E0,20,E0,E0,E0

1070 REM P-1009

1080 DRAW"BFBD2R5DGL4D2BR5U BE2BR3L2DGDREDREBEBRD2R4EU2HL4BR14L4GD2FR4BR3R3EU2HL3GD2FBR6U3EFDRDEUEFD3BR2U2R4EUL5BR7D3FR3EU3BR5L3D4BR6R4BU2L4GU2ER4BR2R5DGL4D2BR5UDBR9L4HU2ER4BR3R3FD2GL3HNU2BR8RBR4GBR8L4U4BR4R4L2D4BE4R4FD2GL4U2":RETURN

1090 ' HOTBIT

1100 '

1110 FOR I=1 TO 7

1120 ON I GOSUB 1170,1200,1240,1280,1320,1350,1400

1130 PLAY"t255s1m950o5b8":GOSUB140

1140 NEXT

1150 RETURN

1160 '

1170 DRAW"BM80,56C9R4D8R4U8R4D18L4U8L4D8L4U18": 'H

1180 PAINTSTEP(1,1), 9

1190 RETURN

1200 DRAW"BM98,56C5R8F2D14G2L8H2U14E2":'O

1210 PAINTSTEP(1,1), 5

1220 DRAW"BM98,57C15R1D1L1U1BM98,59R1D1L1U1BM103,56R1D1L1U1BM100,62R1D1L1U1BM106,57R1D2L1U1BM98,61R1D1L1U1BM103,64R1D1L1U1BM102,59R1D1L1U1":'PONTOS

1230 RETURN

1240 DRAW"BM112,56C9R12D4L4D14L4U14L4U4":'T

1250 PAINTSTEP(1,1), 9

1260 ' PAINTSTEP(-3,0), 5

1270 RETURN

1280 DRAW"BM128,56C9R8F3D3G3F3D3G3L8U18BM132,60R3D3L3U3BM132,68R3D3L3U3":'B

1290 PAINTSTEP(-1,-1), 9

1300 'PAINTSTEP(-3,0), 5

1310 RETURN

1320 DRAW"BM144,56C9R12D4L4D10R4D4L12U4R4U10L4U4":'I

1330 PAINTSTEP(1,1), 9

1340 RETURN

1350 DRAW"BM160,56C9R12D4L4D14L4U14L4U4":'T

1360 PAINTSTEP(1,1) ,9

1370 'PAINTSTEP(0,6), 5

1380 'PAINTSTEP(0,5), 5

1390 RETURN

1400 'DRAW"BM172,52C5L10GL2G2DGD3F3RF2RFDFDG3L5DGDR10EUE2U4HUHL HLHLHUHU2ERERER6E":'S

1410 'PAINTSTEP(-1,0), 5

1420 RETURN

3000 PRESET(40,120):PRINT#1,"estou":PSET(80,140):PRINT#1,"pensando":PRESET(144,160):PRINT#1,"aguarde ...":RETURN

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