Ligue-se ao Expert
Programa de demonstração do computador Expert da Gradiente.
Teste o programa no WebMSX – The Online MSX Emulator
Acompanhava a embalagem deste computador e vinha gravado em cartucho.
Empresa: Gradiente Industrial S.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 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 |
10 CLEAR1024:POKE64683!,1:OPEN"grp:"FOROUTPUTAS#1:GOSUB180 20 SOUND6,1:SOUND7,40:A$="v10l8t150o3co4co3co4co3co4co3co4cdcv10l8t150o3do4do3do4do3do4do3do4ded":D$="v10l8t150o2co3co2co3co2co3co2co3cdcv10l8t150o2do3do2do3do2do3do2do3ded":G$="v10l8t150o2co3co2go3co2co3co2go3cdv13cv10l8t150o2do3do2do3do2do3do2do3ded" 30 B$="s0m1000t150o2c4.c8c4.c8l16cedcs0m1000t150o2d2d2l16def#a":E$="s0m1000t150o2c4.c8c4.c8l16cedcs0m1000t150o2d2d2l16def#a":H$="s0m1000t150o2c4.c8c4.c8l16cedcs0m1000t150o2d2d2l16def#a" 40 C$="t150v10l8o3cer8v13o4ev10o3cer8eco4v13eo3v10cf#ao4v13f#v10o3cf#af#av13o4f#":F$="t150v15l8o5e-ee-er8r8r8r8e-egg-gg-r8r8r8r8g-g":I$="t150v15l8b-gb-gr8r8r8r8agao6c" 50 PUTSPRITE6,(114,60),8,7:PUTSPRITE5,(98,60),8,5:PLAYA$,B$,C$:FORI=0TO499:NEXT:FORJ=0TO99:PUTSPRITE6,(114,60),8,7:FORI=0TO9:NEXT:PUTSPRITE6,(114,60),8,6:NEXT:PLAYD$,E$,F$:FORJ=98TO354:PUTSPRITE6,(J,60),7,6:PUTSPRITE5,(230-J,60),7,5:NEXT:PLAYG$,H$,I$ 60 FORJ=60TO316:PUTSPRITE6,(98,J),13,6:PUTSPRITE5,(130,376-J),13,5:NEXT:PLAYA$,B$:PUTSPRITE6,(98,60),11,9:PUTSPRITE5,(130,60),11,8 70 FORI=0TO127:PUTSPRITE10,(I+1,-16+I),12:LINE(I,I)-(I,I+16),3:NEXT:PLAYD$,E$:FORI=0TO127:PUTSPRITE11,(I+1,1+I),10,10:LINE(I,17+I)-(I,32+I),11:NEXT:PLAYG$,H$:FORI=0TO127:PUTSPRITE12,(I+1,18+I),4,10:LINE(I,33+I)-(I,48+I),7:NEXT:PLAYA$,B$,C$ 80 PUTSPRITE10,(0,209):PUTSPRITE11,(0,209):PUTSPRITE12,(0,209):FORD=90TO0STEP-3:PUTSPRITE1,(D-30,D+1),2:PUTSPRITE2,(2+D,181-D),2:NEXT:FORD=90TO-9STEP-3:PUTSPRITE3,(213-D,181-D),2:PUTSPRITE4,(245-D,D+1),2:NEXT:PUTSPRITE4,(0,209):PLAYD$,E$,F$ 90 KEYOFF:SCREEN1:WIDTH32:FORI=-9TO94STEP3:PUTSPRITE6,(220-I,40),13,12:PUTSPRITE5,(I,40),13,11:NEXT 100 FORJ=384TO391:VPOKEJ,0:VPOKEJ+8,255:NEXT::L=2:C=1:LOCATE0,0,1:J$="EXPERT":FORI=1TOLEN(J$):CA=ASC(MID$(J$,I,1))*8:FORJ=CATOCA+7:M$(J-CA)=RIGHT$(" "+BIN$(VPEEK(J)),8):M$(J-CA)=MID$(M$(J-CA),1,5):NEXT 110 FORJ=LTOL+7:LOCATEC,J:PRINTM$(J-L);:NEXT:C=C+5:L=L+3:NEXT:PLAYG$,H$,I$:RESTORE130:LOCATE0,0,0:FORI=0TO3:FORJ=0TO7:READJ$:D(I,J)=VAL("&H"+J$):NEXT:NEXT 120 FORK=0TO8:FORI=0TO3:COLORI+9:FORJ=0TO7:VPOKE392+J,D(I,J):NEXT:NEXT:FORI=2TO0:COLORI+9:FORJ=0TO7:VPOKE392+J,D(I,J):NEXT:NEXT:NEXT:PLAYA$,B$:FORK=0TO6:FORI=0TO3:COLORI+9:FORJ=0TO7:VPOKE2040+J,D(I,J):NEXT:NEXT:FORI=2TO0:COLORI+9:FORJ=0TO7 130 VPOKE2040+J,D(I,J):NEXT:NEXT:NEXT:FORD=0TO90STEP3:PUTSPRITE1,(D-30,D+1),2:PUTSPRITE2,(2+D,181-D),2:NEXT:FORD=0TO90STEP3:PUTSPRITE3,(213-D,181-D),2:PUTSPRITE4,(245-D,D+1),2:NEXT:PLAYD$,E$:FORI=0TO500:NEXT:CLS:PUTSPRITE5,(0,209) 140 PUTSPRITE6,(0,209):LOCATE9,8:PRINT"Parab‚ns pelo":LOCATE14,10:PRINT"seu":LOCATE6,18:PRINT"o computador mundial":PLAY"v10l8t100o2co3co2co3c2","s0m1000t100o2c4.c2","t100v15l8e-e-e2" 145 ONINTERVAL=3600GOSUB1870:INTERVALOFF:GOSUB1370:FORI=0TO4000:NEXT:GOSUB470:GOTO260 150 R$="":FORI1=1TO32:READS$:IFS$>"y"THENT%=VAL(MID$(S$,4)):I1=I1+T%-1:A$=MID$(S$,2,2):FORJ=1TOT%:R$=R$+CHR$(VAL("&h"+A$)):NEXT:GOTO170 160 R$=R$+CHR$(VAL("&h"+S$)) 170 NEXT:RETURN 180 SCREEN 3,3:COLOR15,1,1:CLS:TIME=0 190 FORI=13TO14:GOSUB150:SPRITE$(I)=R$:NEXT:RESTORE210:FORD=1TO7:GOSUB150:CLS:PRESET(80,70):PRINT#1,8-D:PLAY"V9F7":SPRITE$(D)=R$:FORI=0TO150:NEXT:NEXT:FORI=8TO12:GOSUB150:SPRITE$(I)=R$:NEXT 200 SCREEN2:SOUND0,0:SOUND1,0:SOUND7,&HFE:SOUND8,7:FORD=0TO90STEP3:PUTSPRITE1,(D-30,D+1):PUTSPRITE2,(2+D,181-D):PUTSPRITE3,(213-D,181-D):PUTSPRITE4,(245-D,D+1):SOUND0,200-D:SOUND8,8:FOR L=0TO50:NEXT:NEXT:PLAY"O7C64":RETURN 210 DATAzff5,e0,cf,zdf2,c0,zdf2,cf,e0,zff2,zf05,16,f7,f3,f1,10,f0,f1,f3,16,zf02,z005,04,0d,99,f1,e1,f1,b9,1d,0d,z007,fe,83,01,03,fe,z006 220 DATA z005,3f,60,z402,7f,z402,60,3f,z007,cf,18,z102,df,11,z102,d0,z002,z005,e7,30,10,30,e0,80,c0,60,30,z007,fc,z408,z002 230 DATA11,1b,z152,z113,z009,z0016,e,11,10,e,1,11,e,0,z008,e,z115,e,0,z008,e,11,10,e,1,11,e,0,z008,z112,a,4,a,z112,0,z008,1e,z112,1e,14,12,11,z009,z0016,6,9,z103,9,6,0,z008,e,z115,e,0,0,z008 240 DATAz006,1,3,7,e,1d,3a,74,a8,90,e0,4,e,1d,3a,74,e8,d0,a0,40,80,z006 250 DATA0,0,38,44,7c,z442,0,z008,0,0,38,44,40,44,38,10,z008,38,0,38,44,7c,z442,0,z008,0,0,38,z443,38,0,z008 260 COLOR15,4,7:SCREEN2,2:GOSUB470:A$="Sempre que o desenho abaixo aparecer, vocˆ pode pressionar a tecla com o mes-mo desenho no teclado!":H=2:V=10:GOSUB490:X=X+30:Y=Y+30:GOSUB450:CLS 270 A$="Eu sou o EXPERT, um grande amigo seu.^ ^Vim para ajudar vocˆ e sua fam¡lia!^ ^V em frente e veja um pouco do que ^posso fazer por todos!":V=9:GOSUB490:X=X+10:Y=Y+10:GOSUB450 280 B$="seu nome?":GOSUB1880:C$=N$:B$="nome do seu pai?":GOSUB1880:P$=N$:B$="nome da sua m±e?":GOSUB1880:M$=N$:N$=RIGHT$(" "+C$,9):GOTO1040 290 A$=INKEY$:IFA$=""THEN290ELSEI=INSTR(N1$,A$):J=INSTR(N2$,A$):I=I+T*SGN(I):J=J+T*SGN(J):PLAY"n=i;","n=j;":GOTO290 300 GOSUB1370:COLOR15,4,7:SCREEN2,2,0:RESTORE1030:GOSUB150:SPRITE$(11)=R$:A$=N$+":^ ^Sou ¢timo m£sico!^ ^Vamos tocar com a fam¡lia!":V=9:H=6:GOSUB490:PLAY"S0M400L63T255":FORX=-9TO255STEP4:PUTSPRITE0,(X,100),15,11:PLAY"D":NEXT:X=210:Y=140:GOSUB450 310 CLS:PLAY"T230V11","T230V7":LINE(7,7)-(249,17),1,B:LINE(7,174)-(249,184),1,B 320 X=68:Y=37:A$="23 567 90":B$="QWERTYUIOP":C$="1":GOSUB430:N1$="Q2W3ER5T6Y7UI9O0P":N2$="ZSXDCVGBHNJM,L.€;":N3$="QWERTYUI":SPRITE$(63)=CHR$(255):LINE(23,90)-(233,102),,B:TIME=0:ONINTERVAL=90GOSUB380 330 FORI=23TO232STEP30:LINE(I,91)-(I,101):NEXT:FORI=36TO218STEP30:PRESET(I,93),POINT(I,93):PRINT#1,CHR$(49+(I-36)\30):NEXT:A=7:PRESET(163,80):PRINT#1,"[F2]=AGUDO":PRESET(16,80):PRINT#1,"[F1]=GRAVE":INTERVALON:GOTO550 340 O=O-1:CN=CN+1:Z=34+O*30:PUTSPRITE1,(Z,101),1,63:PUTSPRITE2,(Z,89),1,63:IFO<0THENO=0:Z=34+O*30:PUTSPRITE1,(Z,101),1,63:PUTSPRITE2,(Z,89),1,63 350 GOTO370 360 O=O+1:Z=34+O*30:PUTSPRITE1,(Z,101),1,63:PUTSPRITE2,(Z,89),1,63:IFO>6THENO=6:Z=34+O*30:PUTSPRITE2,(Z,101),1,63:PUTSPRITE1,(Z,89),1,63 370 O=O+1:PLAY"O=O;","O=O;":O=O-1:T=O*12:RETURN 380 IFTIME>7200THENPRESET(98,25):PRINT#1,"[F5]=fim":ONKEYGOSUB340,360,,,670:KEY(5)ON:ONINTERVAL=90GOSUB390:INTERVALON:RETURN 390 IFC>231THENC=0 400 IFPLAY(0)THENRETURNELSEC=C+8:LINE(C,8)-(C+7,16),RND(-TIME)*14+2,BF 410 IFPLAY(0)THENRETURNELSELINE(248-C,175)-(248-C+7,183),RND(-TIME)*14+2,BF 420 RETURN 430 INTERVALOFF:LINE(X,Y)-(X+120,Y+30),15,B:COLOR1:LINE(X+114,Y)-(X+102,Y+15),,B:LINE(X+90,Y+15)-(X+102,Y),,B:LINE(X+78,Y+15)-(X+66,Y),,B:LINE-(X+54,Y+15),,B:LINE-(X+42,Y),,B:LINE(X+30,Y)-(X+18,Y+15),,B:LINE-(X+6,Y),,B 440 PRESET(X-52,Y+15):PRINT#1,"PIANO"+C$:FORI=0TO8:PRESET(X+10+I*12,Y+4):PRINT#1,MID$(A$,I+1,1):NEXT:COLOR15:FORI=0TO9:PRESET(X+4+I*12,Y+19):PRINT#1,MID$(B$,I+1,1):NEXT:FORI=X+12TOX+108STEP12:LINE(I,Y+16)-(I,Y+29):NEXT:INTERVALON:RETURN 450 O=7:INTERVALOFF:LINE(X,Y)-(X+15,Y+25),3,BF:COLOR4:PSET(X,Y):PSET(X+15,Y+25):PSET(X+15,Y):PSET(X,Y+25):LINE(X+9,Y+7)-(X+9,Y+17):PSET(X+6,Y+17):LINE(X+5,Y+18)-(X+9,Y+18):PSET(X+6,Y+19):PLAY"V7T255L63O7":IFWYTHENRETURN 460 A$=INKEY$:PLAYCHR$(65+RND(-TIME)*7):PLAY"O=O;":LINE(X-3,Y-3)-(X+18,Y+28),3,B:LINE(X-3,Y-3)-(X+18,Y+28),4,B:IFA$=CHR$(13)THENBEEP:PLAY"","","O5S13L32M500BCDEFG":O=6:INTERVALON:COLOR15:RETURNELSE450 470 X1=0:X2=40:Y1=0:GOSUB480:RETURN 480 HN=X1*6-1:VN=Y1*8-8:HX=X2*6+1:RETURN 490 Y=V*8+VN+8:X=H*6+HN:PLAY"S8M500o4l64":FORJ=1TOLEN(A$):IFX>HXTHENGOSUB530 500 IFMID$(A$,J,1)="^"THENGOSUB530:J=J+1 510 INTERVALOFF:PUTSPRITE0,(X,Y+5),7:PRESET(X,Y),POINT(X,Y):PRINT#1,MID$(A$,J,1):IFPLAY(0)THEN520ELSEPLAYCHR$(65+RND(7)*7) 520 X=X+6:NEXT:V=(Y-VN)/8:INTERVALON:RETURN 530 Y=Y+8:X=H*6+HN:INTERVALON:RETURN 540 PRESET(H*8,V*8):PRINT#1,A$:RETURN 550 A$="Agora vocˆ vai tocar usando o teclado do EXPERT como um piano!":V=14:H=2:GOSUB490:X=X+12:Y=Y+4:GOSUB450:GOSUB660:O=6:T=O*12 560 H=12:V=15:C$="Pressione a tecla ":B$="Q":A$=C$+B$:GOSUB490:GOSUB650:GOSUB660:A$="A tecla Q ‚ a nota D¢ de um piano.":V=14:H=2:GOSUB490:X=120:Y=Y+16:GOSUB450:GOSUB660 570 H=7:V=15:C$="Pressione a tecla ":B$="Q":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=15:B$="W":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=15:B$="E":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660 580 V=15:B$="R":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=15:B$="T":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=15:B$="Y":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660 590 V=15:B$="U":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=15:B$="I":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:GOSUB340:A$="Utilizando [F1] e [F2], o som fica maisgrave ou mais agudo!":H=2:V=14:GOSUB490:X=X+10:Y=Y+6:GOSUB450:GOSUB660 600 V=15:H=2:A$="Vamos deixar o som mais GRAVE!":GOSUB490:X=X+20:Y=Y-5:GOSUB450:GOSUB660:V=14:H=4:A$="Agora pressione [F1] trˆs vezes!":GOSUB490:O=6 610 ONKEYGOSUB340:KEY(1)ON:BEEP:IFCN<4THEN610 620 GOSUB660:H=7:V=17:C$="Pressione a tecla ":B$="Q":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=17:B$="W":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660:V=17:B$="E":A$=C$+B$:GOSUB540:GOSUB650:GOSUB660 630 A$="Vocˆ agora tocar com dois pianos dife-rentes. Divirta-se!":V=14:H=2:GOSUB490:X=X+10:Y=Y+6:GOSUB450:GOSUB660:ONKEYGOSUB340,360:KEY(1)ON:KEY(2)ON:PUTSPRITE0,(0,209):GOSUB340 640 X=68:Y=125:A$="SD GHJ L€":B$="ZXCVBNM,.;":C$="2":GOSUB430:PLAY"T230L8S9M999","T230V15L8":GOTO290 650 A$=INKEY$:IFA$=""THEN650ELSEIFA$<>B$THEN650ELSEI=INSTR(N1$,A$):I=T+I:PLAY"V13N=I;":I=INSTR(N3$,A$)*12+59:PUTSPRITE1,(I,67),7,63:PUTSPRITE2,(I,68),7,63:RETURN 660 LINE(0,103)-(255,165),4,BF:RETURN 670 INTERVALOFF:GOSUB1370:COLOR15,4,5:SCREEN2,2:RESTORE1020:GOSUB150:SPRITE$(0)=R$ 680 A$=N$+":^ ^Tamb‚m sou £til na cozinha.^ ^Posso guardar as receitas da sua m±e em^um fich rio eletr“nico.^ ^Dna."+M$+" vai adorar!":H=2:V=7:GOSUB490:FORX=-9TO255STEP3:PUTSPRITE0,(X,100):PLAY"V7O5L63"+CHR$(65+RND(7)*7):NEXT:BEEP:X=210:Y=140 690 PUTSPRITE0,(0,209):GOSUB450:TIME=0:ONKEYGOSUB,,,,1750:ONINTERVAL=60GOSUB1000:INTERVALON 700 CLS:A$="Cozinha Eletr“nica:^ ^ ^ ^ ^Escolha a receita pressionando o n£mero correspondente:^ ^ ^ ^ ^ 1 - Sopa de ervilha.^ ^ 2 - Peixe … moda do norte. ":V=2:H=1:GOSUB490:PLAY"t230cdefg":C=0 710 B$=INKEY$:IFB$<"1"ORB$>"2"THENPLAY"V3O7"+CHR$(65+RND(-TIME)*7):GOTO710 720 BEEP:D=VAL(B$):CLS:V=2:H=4:A$="Para quantas pessoas?^ ^(no m¡nimo 1 e no m ximo 9)":GOSUB490:C=0 730 A$=INKEY$:IFA$<"1"ORA$>"9"THENPLAY"V3O7"+CHR$(65+RND(-TIME)*7):GOTO730 740 BEEP:C=VAL(A$):D=VAL(B$):ONDGOSUB750,870:GOTO700 750 CLS:A$="Sopa de ervilha":V=1:H=14:GOSUB490:LINE(X,Y+8)-(X-LEN(A$)*6-2,Y+8),9 760 A$="^ ^ingredientes:^ ^":E$="s":D$="s":IFC=1THENB$="meia":C$="uma":E$="":D$="" 770 IFC=2THENB$="uma":C$="duas":D$="" 780 IFC=3THENB$="uma e meia":C$="trˆs":D$="" 790 IFC=4THENB$="duas":C$="quatro" 800 IFC=5THENB$="duas e meia":C$="cinco" 810 IFC=6THENB$="trˆs":C$="seis" 820 IFC=7THENB$="trˆs e meia":C$="sete" 830 IFC=8THENB$="quatro":C$="oito" 840 IFC=9THENB$="quatro e meia":C$="nove" 850 A$=A$+B$+" lata"+D$+" de ervilha.^"+C$+" fatia"+E$+" de p±o de forma.^"+C$+" x¡cara"+E$+" de leite.^"+C$+" fatia"+E$+" de cebola.":H=2:GOSUB490 860 A$="^ ^Coloque os ingredientes no liquidifica-dor e misture. Quando a massa estiver homogˆnea, leve-a ao fogo brando. Espe-re esquentar e est pronto.^ ^Adicione sal ao seu gosto.":GOSUB490:X=X+19:GOSUB450:RETURN 870 CLS:A$="Peixe … moda do norte":V=1:H=10:GOSUB490:LINE(X,Y+8)-(X-LEN(A$)*6-2,Y+8),8 880 A$="^ingredientes:^ ^":E$="es":H$="es":IFC=1THENB$="15O gr":C$="meia":D$="7":F$="trˆs":G$="uma":H$="":E$="" 890 IFC=2THENB$="25O gr":C$="uma":D$="14":F$="cinco":G$="duas":E$="" 900 IFC=3THENB$="35O gr":C$="uma e meia":D$="21":F$="oito":G$="trˆs":E$="" 910 IFC=4THENB$="5OO gr":C$="duas":D$="28":F$="dez":G$="quatro" 920 IFC=5THENB$="65O gr":C$="duas e meia":D$="35":F$="treze":G$="cinco" 930 IFC=6THENB$="8OO gr":C$="trˆs":D$="42":F$="quinze":G$="seis" 940 IFC=7THENB$="um Kg":C$="trˆs e meia":D$="49":F$="dezoito":G$="sete" 950 IFC=8THENB$="um Kg e 2OO gr":C$="quatro":D$="56":F$="vinte":G$="oito" 960 IFC=9THENB$="um Kg e 4OO gr":C$="quatro e meia":D$="63":F$="vinte e trˆs":G$="nove" 970 A$=A$+B$+" de fil‚ de pescadinha.^"+C$+" colher"+E$+" (sopa) de ¢leo.^"+D$+" colheres de molho de tomate.^(28 colheres = 1 lata)^"+F$+" azeitonas pretas.^"+G$+" colher"+H$+" (ch ) de leite de c“co.":H=1:GOSUB490 980 A$="^Tempere os fil‚s por 3O minutos. Ponha o¢leo numa frigideira que tenha tampa, coloque os fil‚s de peixe. Cubra com o mo-lho de tomate, espalhe por cima as azei-tonas, tampe a frigideira e leve ao fogo":GOSUB490 990 A$="baixo, deixando ferver por 1O minutos.^Junte o leite de c“co e deixe ferver pormais 5 minutos.":GOSUB490:X=X+80:Y=Y+9:GOSUB450:RETURN 1000 IFTIME>3600THENPRESET(99,180),POINT(99,180):PRINT#1,"[F5]=fim":KEY(5)ON 1010 IFFRTHENRETURNELSEGOSUB1370:FR=1:RETURN 1020 DATAa8,a9,zab2,zfb2,f9,70,z208,4,c6,66,za62,66,c6,z862,z847 1030 DATAz0012,e,1f,e,0,0,80,c0,b8,80,c0,b8,z806,z003 1040 GOSUB1120:GOTO1200 1050 GOSUB1190:GOSUB1160:W=175:Z=160 1060 GOSUB1070:GOSUB1090:GOTO1060 1070 SWAPU,D:PUTSPRITE1,(XX+1,YY-17),U,1 1080 IFR=1THENLINE(XA,YA)-(XX,YY),C:RETURN 1090 A=STICK(0):IFA=0THEN1090 1100 XX=XX+1*((A>1ANDA<5)*(XX<245)):XX=XX-1*((A>5ANDA<9)*(XX>11)):YY=YY+1*((A>3ANDA<7)*(YY<139)):YY=YY-1*((A>7ORA<3)*(YY>YL)) 1110 A$="":XA=XX:YA=YY:CO=9:CQ=1:RETURN 1120 RESTORE240:U=3:D=15:YL=75:F=0:YA=100:XA=YA:XX=YA:A$="":YY=XX:R=1:C=0:GOSUB150:ONKEYGOSUB1140,1160,1190,1180,1380 1130 SCREEN 2,2:SPRITE$(1)=R$:LINE(0,0)-(255,191),15,BF:COLOR7:RETURN 1140 SWAPR,F:IFRTHENCO=15ELSECO=1 1150 A$="(n±o)":H=2:V=22.5:COLORCO:GOSUB490:COLOR9:RETURN 1160 C=C+1:IFC>15THENC=1 1170 LINE(50,182)-(63,187),C,BF:U=C:D=15:RETURN 1180 PSET(XX,YY),C-1:LINE(10,10)-(245,140),C,B:PAINT(XX,YY),C:RETURN 1190 LINE(8,YL)-(248,140),4,BF:RETURN 1200 LINE(8,75)-(248,140),4,BF:CO=1:A$=N$+":^ ^Posso ajudar vocˆ a fazer desenhos ge-^ ^niais! Veja!":V=10:GOSUB490:FORI=10TO245STEP3:PUTSPRITE1,(I,54),1:PLAY"s11l63e":LINE(127,12)-(I,70),1:NEXT:BEEP:X=X+15:Y=Y-4:GOSUB450:GOSUB1190:GOSUB1320:W=8 1210 A$=N$+", usaremos o l pis abaixo pa-^ ^ra desenhar!":H=2:V=4:GOSUB490:PUTSPRITE1,(XX-1,YY-16),15:X=210:Y=90:GOSUB450:GOSUB1190:GOSUB1320 1220 A$="Para mover o l pis use as setas do can-^to direito do teclado.^ ^Vamos l , experimente pression -las!^ ^Pressione duas ao mesmo tempo!":V=2:GOSUB490:W=175:Z=160:GOSUB1330:ONINTERVAL=1200GOSUB1230:INTERVALON:C=15:U=1:GOTO1060 1230 INTERVALOFF:GOSUB1370:GOSUB1320:A$=N$+", tecle [F1] ao mover o l pis!^ ^[F1] est na parte superior do teclado.^ ^Tecle [F1] para voltar a riscar!":V=2:GOSUB490:ONINTERVAL=1200GOSUB1240:H1=3:GOSUB1290:INTERVALON:KEY(1)ON:GOTO1060 1240 INTERVALOFF:GOSUB1370:GOSUB1320:CO=1:V=4:H=7:A$="[F2] muda a cor do risco.":GOSUB490:ONINTERVAL=1200GOSUB1250:KEY(2)ON:KEY(1)ON:R=0:F=1:GOSUB1140:INTERVALON:GOTO1060 1250 INTERVALOFF:GOSUB1370:GOSUB1320:CO=1:A$="[F3] apaga o desenho.":V=4:H=9:GOSUB490:ONINTERVAL=1200GOSUB1260:KEY(1)ON:KEY(2)ON:KEY(3)ON:INTERVALON:GOTO1060 1260 INTERVALOFF:K=5:GOSUB1370:GOSUB1320:CO=1:A$="Descubra o meu potencial art¡stico!":V=3:H=4:GOSUB490:A$=N$+", m±os ao trabalho!":COLOR1:CP=1:V=5:GOSUB490:X=210:Y=90:FORI=1TO4:KEY(I)ON:NEXT:FORI=1TO3000:NEXT:GOSUB1190 1270 TIME=0:ONINTERVAL=3600GOSUB1280:YL=10:INTERVALON:GOTO1050 1280 INTERVALOFF:H1=4:GOSUB1290:ONINTERVAL=20000GOSUB1870:GOSUB1870:KEY(5)ON:RETURN 1290 COLOR1:FORI=0TOH1:LINE(21+28*I,150)-(35+28*I,160),1,B:PRESET(23+28*I,152),15:PRINT#1,"F":PRESET(29+28*I,152),15:PRINT#1,RIGHT$(STR$(I+1),1):LINE(21+28*I+7,160)-(21+28*I+7,163):NEXT 1300 A$="risca cor apaga fim":H=2:V=20.7:CO=1:GOSUB490:CO=1:A$="pinta":H=12:V=22.5:GOSUB490:LINE (112,160)-(112,183),1:LINE-(104,183),1:COLORCO 1310 C=C-1:GOSUB1160:RETURN 1320 LINE(8,10)-(248,74),15,BF:COLOR1:RETURN 1330 COLOR15:LINE(W,Z)-(W+48,Z+16),5,BF:LINE(W+10,Z)-(W+18,Z+8),1:LINE-(W+10,Z+16),1:LINE(W+38,Z)-(W+30,Z+8),1:LINE-(W+38,Z+16),1:LINE(W+18,Z+8)-(W+30,Z+8),1:PSET(W,Z):PSET(W+48,Z+16):PSET(W+48,Z):PSET(W,Z+16) 1340 A$="u5nf2g2":PRESET(199,155):COLOR1:DRAW"a0xa$;":PRESET(232,168):DRAW"a3xa$;":PRESET(199,181):DRAW"a2xa$;":PRESET(166,168):DRAW"A1XA$;":RETURN 1350 RETURN 1360 IFG=1THENRETURNELSEFORJ=1TOLEN(A$)/4:PLAY"ar64":NEXT:G=1:RETURN 1370 FORI=1TO5:KEY(I)OFF:Z$=INKEY$:NEXT:RETURN 1380 ONINTERVAL=999GOSUB1870:GOSUB1370:COLOR15,4,7:SCREEN2,2:RESTORE1930:GOSUB150:SPRITE$(0)=R$:A$=N$+":^ ^Posso calcular o consumo do seu ^ ^carro!":H=5:V=6:GOSUB490:A$="Veremos como!":V=V+1:GOSUB490:X=X+15:Y=Y+9:FORI=255TO0STEP-3 1390 Z$=INKEY$:PUTSPRITE0,(I,120):PLAY"s13o3l63c":NEXT:PUTSPRITE0,(0,209):GOSUB450:INTERVALOFF 1400 B$=" ":COLOR3,1:SCREEN0:FORI=1TO39:B$=B$+" ":NEXT:LI=1:DIMKM(3),LT(3):PR=5:KM(0)=550:LT(0)=50:A$="!":CLS:PRINTSPC(9);"Planilha Eletr“nica":PRINT:FORI=1TO14:PRINTSPC(2);A$;SPC(7);A$;SPC(7);A$;SPC(7);A$;SPC(10);A$;"":NEXT 1410 FORJ=1TO3:LOCATE3,2*J:FORI=1TO34:PRINT"-";:NEXT:NEXT:LOCATE3,15:FORI=1TO34:PRINT"-";:NEXT:LOCATE4,3:PRINT"litro = Cz$05.00";:LOCATE 3,5:PRINT" KMS ! LITROS! KM/L ! Cz$":GOSUB1370:ONKEYGOSUB1500,1540,,,300:KEY(1)ON:KEY(2)ON 1420 KEY(5)ON:LOCATE 3,7:PRINT" 550";TAB(10);"! 50";TAB(18)"! 11";:GOSUB1640 1430 H=1:GOSUB1450 1440 KEY(1)ON:KEY(2)ON:PLAY"O3L63V7"+CHR$(RND(9)*7+65):LOCATE7+H,1:IFFITHENFI=0:GOTO1440:ELSEPRINT" =":H=H+1:IFH<20THEN1440ELSELOCATE7+H,1:PRINT" ":H=1:GOTO1440 1450 GOSUB1460:GOSUB1640:GOSUB1710:RETURN 1460 LOCATE2,18:PRINT"[F1] - altera pre‡o do combust¡vel":LOCATE2,19:PRINT"[F2] - calcula consumo do seu carro":LOCATE13,21:PRINT"[F5] = FIM" 1470 RETURN 1480 LOCATE0,17:FORI=1TO3:PRINTB$;:NEXT:RETURN 1490 REMGET1,2 1500 FI=1:KEY(1)OFF:KEY(2)OFF:C$="":GOSUB1480:LOCATE3,19:PRINT"Pre‡o do combust¡vel = Cz$ __.__":LOCATE30,19:FORI=1TO4 1510 A$=INPUT$(1):IFA$<"0"ORA$>"9"THEN1510ELSEPRINTA$;:IFI=2THENPRINT"."; 1520 C$=C$+A$:NEXT:C=VAL(C$)/100:C$=STR$(C) 1530 LOCATE12,3:IFVAL(C$)=0THEN1500ELSEFORH=0TO5:LOCATE15,3:PRINT" ":FORI=0TO60:NEXT:LOCATE15,3:PRINTC:FORI=0TO60:NEXT:NEXT:PR=VAL(C$):F=1:GOSUB1450:RETURN 1540 FI=1:KEY(1)OFF:KEY(2)OFF:F=2:C$="":GOSUB1480:LOCATE3,19:PRINT"Distƒncia percorrida = ---- kms." 1550 LOCATE26,19:FORI=1TO4 1560 A$=INPUT$(1):IFA$<"0"ORA$>"9"THEN1560ELSEPRINTA$; 1570 C$=C$+A$:NEXT 1580 LOCATE3,7+2*LI:PRINT" ":LOCATE3,7+2*LI:PRINTVAL(C$);:KM(LI)=VAL(C$) 1590 C$="":GOSUB1480:LOCATE3,19:PRINT"Litros de combust¡vel = --- lts." 1600 LOCATE27,19:FORI=1TO3 1610 A$=INPUT$(1):IFA$<"0"ORA$>"9"THEN1560ELSEPRINTA$; 1620 C$=C$+A$:NEXT 1630 LOCATE11,7+2*LI:IFVAL(C$)=0THEN1590ELSEPRINT" ";:LOCATE11,7+2*LILI:PRINTVAL(C$);:LT(LI)=VAL(C$):LI=LI+1:GOSUB1450:RETURN 1640 IFF=2THENK=LI-1:H=7+2*(K):LOCATE20,H:IF(KM(K)=0ORLT(K)=0)THENPRINT"x ";:GOSUB1690:ELSEFORL=0TO2:LOCATE20,H:PRINT" ";:FORI=0TO60:NEXT:LOCATE19,H:PRINT(INT((KM(K)/LT(K))*10))/10;:FORI=0TO60:NEXT:NEXT:GOSUB1690:RETURN:ELSEGOTO1660 1650 RETURN 1660 FORK=0TO3:H=7+2*K:LOCATE29,H:IFLT(K)=0THENPRINT" x";:ELSEGOSUB1690 1670 NEXT 1680 RETURN 1690 FORL=0TO2:LOCATE29,H:PRINT" ";:FORI=0TO60:NEXT:LOCATE28,H:PRINTINT(LT(K)*PR);:FORI=0TO60:NEXT:NEXT:RETURN 1700 REMINDICA LINHa 1710 IFLI=4THENLI=1 1720 IFLI<>1THENLOCATE0,5+2*LI:PRINT" ";:ELSELOCATE0,13:PRINT" ";:LOCATE0,7+2*LI:PRINT"=>"; 1730 LOCATE0,7+2*LI:PRINT"=>";:RETURN 1740 CLS:PRINT"FIM":END 1750 RESTORE1940:FORI=1TO3:GOSUB150:SPRITE$(I)=R$:NEXT:GOSUB1370:SPRITE$(0)="":ONINTERVAL=999GOSUB1870:COLOR15,4,5:SCREEN2:A$=N$+":^ ^ ^Vocˆ est indo assim na ?":H=2:V=3:GOSUB490 1760 PLAY"l63t255":XX=153:PUTSPRITE3,(XX,47):PUTSPRITE2,(XX+16,47):PUTSPRITE1,(XX+32,47):FORI=0TO1999:NEXT:FORI=49TO150:PUTSPRITE3,(XX,I):PUTSPRITE2,(XX+16,I):PUTSPRITE1,(XX+32,I):J=95-I/4:PLAY"n=j;":NEXT:BEEP 1770 A$="Use meus programas educacionais, e v ^assim:":V=10:GOSUB490:X=210:Y=140:FORI=0TO50:A$=INKEY$:NEXT:FORI=150TO0STEP-3:PUTSPRITE3,(XX,I):PUTSPRITE2,(XX+16,I):PUTSPRITE1,(XX+32,I):J=95-I/4:PLAY"n=j;":NEXT:BEEP:GOSUB450 1780 PUTSPRITE1,(0,209):PUTSPRITE2,(0,209):PUTSPRITE3,(0,209) 1790 CLS:A$="^Conhe‡a os programas da Gradiente para o seu EXPERT:^ ^ ^Toque! - construir m£sicas e ritmos.":V=0:GOSUB490 1800 A$="Fich rio Eletr“nico - guardar dados im-portantes.^ ^Planicalc 40 - calcular despesas dom‚s-ticas com esta planilha eletr“nica.":V=7:GOSUB490:A$="Redator Eletr“nico - criar cartas para seus amigos.":V=13:GOSUB490 1810 A$="Expert-Logo - linguagem Logo.^ ^S‚rie Acentue! - aprender portuguˆs de modo simples e gostoso.":V=16:GOSUB490:X=X+15:Y=Y+5:GOSUB450 1820 CLS:A$="Pressione:^ ^[F1] = reinicia.^[F3] = listar programa.^[F5] = fim.":V=9:GOSUB490:ONKEYGOSUB10,,1840,,1850:KEY(1)ON:KEY(3)ON:KEY(5)ON 1830 GOTO 1830 1840 SCREEN0:LIST 1850 CLS:SCREEN0:LOCATE17,10:PRINT"FIM!" 1860 GOTO 1860 1870 FORI=0TO9:BEEP:NEXT:RETURN 1880 CLS:COLOR15:A$="Qual o "+B$:V=9:GOSUB490:N$="" 1890 X=210:Y=140:WY=1:GOSUB450:X=11:Y=90:COLOR15 1900 LINE(207,137)-(228,168),3,B:LINE(207,137)-(228,168),4,B:A$=INKEY$:IFA$=""THEN1900ELSEIFA$=CHR$(13)ORLEN(N$)>9THEN1910ELSEN$=N$+A$:PRESET(X,Y):PRINT#1,A$:X=X+8:GOTO1900 1910 WY=0:CLS:IFLEN(N$)>9THENA$="Ei! Use at‚ 9 letras!":V=12:GOSUB490:X=X+10:Y=Y+20:GOSUB450:CLS:GOTO1880 1920 IFN$=""THEN1880ELSERETURN 1930 DATA z004,1,2,4,7b,BF,FF,67,24,18,z007,e0,50,48,f6,D7,FE,e7,24,18,z003 1940 DATA10,10,10,10,10,10,1f,0,z008,4,a,11,11,1f,11,11,0,z008,6,9,10,10,10,9,6,0,z008,e,11,11,11,11,11,e,0,z008,1f,10,10,1e,10,10,1f,0,z008,e,11,10,e,1,11,e,0,z008 |