Ligue-se ao Expert

30 de julho de 201730 de julho de 2017 MSX-Basic 0 comentários Aplicativos, Didáticos

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

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

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

Compartilhe: