Hotbit Memória
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 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 |
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 |