Aprendendo a Ler – Volume III

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

Série de jogos educativos distribuídos em fita cassete pela Epcom Sistemas (Sharp), fabricante do microcomputador Hotbit – HB8000.

Teste o programa no WebMSX – The Online MSX Emulator

São 6 jogos, com o tema “ROUPAS”, que procuram ensinar a ler de uma forma bastante lúdica: “Aprendendo Palavras”, “Jogo de Palavras”, “Grande e Pequeno”, “Jogo Grande – Pequeno”, “Aprendendo Plural” e “Caixa Pintada”.

Distribuição: Epcom Sistemas (Sharp)
Ano: 1986
Contribuição: B@ss – Blog do B@ss

Código Fonte do Loader

1 GOTO5
3 LOAD"LER3A.BAS",R
5 REM*PROGRAMA EDUCACIONAL = VOLUME III*
10 SCREEN2:COLOR 10,4,4:CLS
20 LINE(30,40)-(210,150),1,BF:DRAW"C1BM30,40"
30 REM* CIRCLE(36,48),2,15,,,.8:PAINT(37,49),15
50 REM* CIRCLE(204,48),2,15,,,.8::PAINT(205,49),15
60 REM* CIRCLE(36,142),2,15,,,.8:PAINT(37,143),15
70 REM* CIRCLE(204,142),2,15,,,.8:PAINT(205,143),15
140 DRAW"C1M30,40E90R2F89"
160 CIRCLE(121,3),2,1,,,.8:PAINT(122,4),1
162 LINE(20,160)-(31,151),10:LINE(31,151)-(210,151),10:LINE(210,151)-(200,160),10:LINE(200,160)-(20,160),10:PAINT (40,155),10
170 LINE (40,152)-(60,152),6:LINE(60,152)-(60,154),6:LINE(60,154)-(40,154),6:LINE(40,154)-(40,152),6:PAINT(45,153),6
180 LINE(36,158)-(40,155),9:LINE(40,155)-(60,155),9:LINE(60,155)-(64,158),9:LINE(64,158)-(36,158),9:PAINT(40,157),9
185 LINE( 70,154)-(82,156),15,BF:LINE(75,156)-(85,159),15,BF:LINE(110,156)-(121,158),13,BF:LINE(140,156)-(153,158),2,BF:LINE(180,154)-(189,156),5,BF
190 LINE(160,153)-(172,155),15,BF
195 OPEN"GRP:"FOROUTPUTAS#1
200 COLOR6:DRAW"BM70,50":PRINT#1,"EPCOM SISTEMAS":DRAW"BM104,70":COLOR15:PRINT#1,"S‚rie"
210 DRAW"C4BM80,80UL4G4D4F2R4E1U2L3G3G1D3F2R6E6R2E2F2D5G2L3H4BM92,88U8BM93,95E2U5BM96,93F2R2E2U4"
212 DRAW"C4BM103,93F2R1U4E2R4BM107,94F2R4E2R1E2U2E1R3F2D3G3L2H3BM124,93F3R1U4E2R4BM129,95F2R3E2R1U4D4R1F2R1E1U3E2R2F2D3G2L2H2E1R1E2R3E2F2D5"
214 DRAW"C4BM154,94E2R2F2D5E2U2E2R2F2D2G2L2H2BM168,98F2R3E2E2U7H1L1G1D7F5R14D5F9G12F8G6"
218 CIRCLE(137,84),2,4:REMAINT(137,84),4
220 COLOR12:DRAW"BM58,115":PRINT#1,"Aprendendo a ler "
230 COLOR15:DRAW"BM92,130":PRINT#1,"volume III"
240 PLAY"T210O4L8EFGL4GL4FEAL2AL8DEL8FL4FL8FL4EDL2G.L4EL8GL4GL8GL4FEACEL4AGFEDL2C."
250 PLAY"L8CDEL4EL4EL8EL4DCFL2FL8DCL4DL8DL4CDL2E.L4CL8EL4EL8EL4DCL2FL4FL4FFGAGGL2E."
255 IFPLAY(0)THENGOTO255
260 GOTO3

1 GOTO5

3 LOAD"LER3A.BAS",R

5 REM*PROGRAMA EDUCACIONAL = VOLUME III*

10 SCREEN2:COLOR 10,4,4:CLS

20 LINE(30,40)-(210,150),1,BF:DRAW"C1BM30,40"

30 REM* CIRCLE(36,48),2,15,,,.8:PAINT(37,49),15

50 REM* CIRCLE(204,48),2,15,,,.8::PAINT(205,49),15

60 REM* CIRCLE(36,142),2,15,,,.8:PAINT(37,143),15

70 REM* CIRCLE(204,142),2,15,,,.8:PAINT(205,143),15

140 DRAW"C1M30,40E90R2F89"

160 CIRCLE(121,3),2,1,,,.8:PAINT(122,4),1

162 LINE(20,160)-(31,151),10:LINE(31,151)-(210,151),10:LINE(210,151)-(200,160),10:LINE(200,160)-(20,160),10:PAINT (40,155),10

170 LINE (40,152)-(60,152),6:LINE(60,152)-(60,154),6:LINE(60,154)-(40,154),6:LINE(40,154)-(40,152),6:PAINT(45,153),6

180 LINE(36,158)-(40,155),9:LINE(40,155)-(60,155),9:LINE(60,155)-(64,158),9:LINE(64,158)-(36,158),9:PAINT(40,157),9

185 LINE( 70,154)-(82,156),15,BF:LINE(75,156)-(85,159),15,BF:LINE(110,156)-(121,158),13,BF:LINE(140,156)-(153,158),2,BF:LINE(180,154)-(189,156),5,BF

190 LINE(160,153)-(172,155),15,BF

195 OPEN"GRP:"FOROUTPUTAS#1

200 COLOR6:DRAW"BM70,50":PRINT#1,"EPCOM SISTEMAS":DRAW"BM104,70":COLOR15:PRINT#1,"S‚rie"

210 DRAW"C4BM80,80UL4G4D4F2R4E1U2L3G3G1D3F2R6E6R2E2F2D5G2L3H4BM92,88U8BM93,95E2U5BM96,93F2R2E2U4"

212 DRAW"C4BM103,93F2R1U4E2R4BM107,94F2R4E2R1E2U2E1R3F2D3G3L2H3BM124,93F3R1U4E2R4BM129,95F2R3E2R1U4D4R1F2R1E1U3E2R2F2D3G2L2H2E1R1E2R3E2F2D5"

214 DRAW"C4BM154,94E2R2F2D5E2U2E2R2F2D2G2L2H2BM168,98F2R3E2E2U7H1L1G1D7F5R14D5F9G12F8G6"

218 CIRCLE(137,84),2,4:REMAINT(137,84),4

220 COLOR12:DRAW"BM58,115":PRINT#1,"Aprendendo a ler "

230 COLOR15:DRAW"BM92,130":PRINT#1,"volume III"

240 PLAY"T210O4L8EFGL4GL4FEAL2AL8DEL8FL4FL8FL4EDL2G.L4EL8GL4GL8GL4FEACEL4AGFEDL2C."

250 PLAY"L8CDEL4EL4EL8EL4DCFL2FL8DCL4DL8DL4CDL2E.L4CL8EL4EL8EL4DCL2FL4FL4FFGAGGL2E."

255 IFPLAY(0)THENGOTO255

260 GOTO3

Código Fonte do Programa

4 CLEAR400:ONSTOP GOSUB 5:STOP ON: ONERROR GOTO4:GOTO10
5 RETURN
10 P=3.14159:GOSUB2630:DEF FNR(X)=INT(RND(1)*X+1):DEF FNS(M$)=(252-LEN(M$)*8)/2:X=RND(-TIME):OPEN"GRP:"FOR OUTPUT AS #1:DIMW$(18):DIMP(9):DIMC(5):DIMAC(5):GOSUB1210:GOSUB100:GOTO2420
20 TH=TH+1
30 Q=26
40 COLOR1,15,15:KT=0:SCREEN2:X=0:MQ=10
50 IFX=10THENPLAY"L4T180BC":GOTO120ELSEX=X+1:M$=W$(X)
60 MQ=MQ+16:A$="100,"+STR$(MQ):F=1:DRAW"BM"+A$:GOSUB70:GOTO50
70 COLORF
80 PRINT#1,M$;:RETURN
90 DRAW"C4BM-2,+2F2E4":RETURN
100 RESTORE:FORY=1TO9:READW$(Y):NEXT:FORY=1TO9:READZ$(Y):NEXT:RETURN
110 DATApalet¢,pul“ver,meia,cal‡a,chap‚u,casaco para frio,saia,camiseta,pijama
120 F=1:LINE(80,Q)-(88,Q+8),4,BF
130 Z$="Y"
140 IN$="X"
150 GOSUB3380
160 IN$=INKEY$:IFIN$=CHR$(31)THEN170ELSEIFIN$=CHR$(30)THEN190ELSEIFIN$=CHR$(32)THEN250ELSEIFIN$=CHR$(13)THEN480ELSE160
170 IFQ<=144THENV=16ELSEV=-128
180 GOTO200
190 IFQ>=32THENV=-16ELSEV=128
200 F=15:LINE(80,Q)-(88,Q+8),15,BF
210 Q=Q+V
220 LINE(80,Q)-(88,Q+8),4,BF:F=1
230 PLAY"O4C"
240 IF PLAY(1)<>0THEN240ELSE140
250 COLOR1,15,15:F=1
260 SCREEN2
270 IN$="X"
280 IFKT=0THENS=8:XC=40ELSES=4:XC=80
290 X=XC:Y=120:G=1:E=2:R=4:H=S/8:DRAW"BM"+STR$(X)+",120C"+STR$(F)+"A0S"+STR$(S)
300 P=3.14159
310 ON(Q-10)/16GOSUB500,550,600,640,680,710,750,800,860
320 PLAY"CO4E"
330 IFTH>1THEN340ELSEM$=W$((Q-10)/16):GOTO370
340 IFKT=0THENM$=W$((Q-10)/16)+" grande "ELSEIFKT=2THENM$=W$((Q-10)/16)+" pequeno ":IF((Q-10)/16)=3OR((Q-10)/16)=4OR((Q-10)/16)=7OR((Q-10)/16)=8THENM$=W$((Q-10)/16)+" pequena "
350 REM* IF KT=0THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2):XX=1ELSEXX=0
360 REM* IF KT=2THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2):XX=1ELSEXX=0
370 W=FNS(M$)
372 W=FNS(M$):Z9$=W$((Q-10)/16):Z9=(LEN(Z9$)*8)+2
375 IFTH<=1THEN376ELSEIFKT=0THENLINE(W+Z9,180)-(W+(LEN(M$)*8)+10,188),3,BFELSELINE(W+Z9,180)-(W+(LEN(M$)*8)+10,188),3,BF
376 DRAW"BM"+STR$(W)+",180"+"C"+STR$(F)+"S8"+"A0"
380 REM* IFXX=1THENIFKT=0THENLINE(W,180)-(W+36,188),11,BF:GOTO400ELSELINE(W,180)-(W+60,188),11,BF:GOTO400
390 REM* IFTH<=1THEN400ELSEIFKT=0THENLINE(W+16,180)-(W+52,188),11,BFELSELINE(W+16,180)-(W+76,188),11,BF
400 DRAW"BM"+STR$(W)+",180"+"C"+STR$(F)+"S8"+"A0"
410 GOSUB80
420 IFTH=1THEN460
430 KT=KT+1
440 IFKT=1THEN400:ELSEIFKT=2THEN450:ELSEIFKT=3THEN400:ELSE460
450 IN$=INKEY$:IFIN$=""THEN450ELSESCREEN2:GOTO270
460 GOSUB3380
470 IN$=INKEY$:IFIN$=CHR$(32)THEN40ELSEIFIN$=CHR$(13)THEN2430ELSE470
480 GOTO2430
490 GOTO490
500 REM COAT
510 DRAW"BD10BR2M+6,-50M+4,-10E2M+6,-2R10E4R14F8D6G2F2M-12,+16U3M+8,-13U10H4L14G4D10M+8,+13D3M-12,-16E2H2U6E5"
520 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD10BR2M+10,+2M+8,-52D54R18U4NR6U36BR6D40R18U54M+8,+52M+10,-2M-6,-50M-4,-10H2M-6,-2L10BM"+STR$(X+48*H)+","+STR$(Y+8*H)+"U12R10D12L10BR24U12R10D12L10"
530 IFS=8ORCL$="Y"THEN540ELSERETURN
540 PAINT(X+12*H,Y),F,F:PAINT(X+148*H,Y),F,F:RETURN
550 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D10L28BU50BR14NM+12,-30NM-12,-30U4NM+11,-27M-11,-27"
560 IFS=8ORCL$="Y"THEN570ELSERETURN
570 PAINT(X+76*H,Y-40*H),F,F:PAINT(X+30*H,Y-80*H),F,F:PAINT(X+130*H,Y-80*H),F,F:RETURN
580 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D12L24BU52BR12NM+12,-28NM-12,-28U4NM+11,-25M-11,-25"
590 RETURN
600 DRAW"BM"+STR$(X+20*H)+","+STR$(Y+40*H):GOSUB630:DRAW"BM"+STR$(X+100*H)+","+STR$(Y+40*H):GOSUB630
610 IFS=8ORCL$="Y"THEN620ELSERETURN
620 PAINT(X+24*H,Y+30*H),F,F:PAINT(X+104*H,Y+30*H),F,F:RETURN
630 DRAW"BR2E18UEU44D12L2NU12L2NU12L2NU12L2NU12L2NU12L2U12NR12D42G14G2D4F4R3E2H7BR20BU14NE6F4":RETURN
640 DRAW"BD20BR20M+2,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+2,+50L16M-2,-30M-6,-16M-6,+16M-2,+30L16"
650 IFS=8ORCL$="Y"THEN660ELSERETURN
660 PAINT(X+64*H,Y),F,F:RETURN
670 DRAW"BD20BR20M+0,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+0,+50L16M-0,-30M-6,-16M-6,+16M-0,+30L16":RETURN
680 DRAW"BR14BU14M+10,-27BR40M+10,+27":CIRCLE(X+88*H,Y-30*H),60*H,F,P,.1*P,.3:CIRCLE(X+88*H,Y-84*H),40*H,F,,,.3:CIRCLE(X+88*H,Y-30*H),88*H,F,.71*P,.3*P,.3
690 IFS=8ORCL$="Y"THEN700ELSERETURN
700 PAINT(X+88*H,Y-6*H),F,F:PAINT(X+88*H,Y-84*H),F,F:RETURN
710 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L18NU50L16U40M-7,+40"
720 IFS=8ORCL$="Y"THEN730ELSERETURN
730 PAINT(X+80*H,Y-40*H),F,F:RETURN
740 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L16NU48L14U40M-7,+40":RETURN
750 DRAW"BD20BR12BU6M+7,-59NR46U3R46D3M+7,+59M-9,+4NM-4,-44M-10,+1NM-1,-43L10NU43L9NM+1,-43M-12,-1NM+4,-44M-11,-4"
760 IFS=8ORCL$="Y"THEN770ELSERETURN
770 PAINT(X+80*H,Y-40*H),F,F
780 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD20BR12BU6C15BM+11,+4NM+4,-44BM+12,+1NM+1,-43BR9NU43BR10NM-1,-43BM+10,-1NM-4,-44C"+STR$(F):RETURN
790 RETURN
800 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L38"
810 IFS=8ORCL$="Y"THEN820ELSEDRAW"C7":RETURN
820 PAINT(X+96*H,Y-50*H),F,F:
830 IF F=1THENTC=15ELSETC=1
840 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(TC)+"BD24BR48BU40U8M-4,+2M+4,+2M+4,-2M-4,-2C"+STR$(F):RETURN
850 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L32":TC=F:GOTO840
860 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(X+16*H)+","+STR$(Y-36*H)+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-4,+26L26M-4,-26M-6,+24M-6,-2"
870 IFS=8ORCL$="Y"THEN880ELSERETURN
880 PAINT(X+56*H,Y-74*H),F,F:PAINT(X+56*H,Y-12*H),F,F:RETURN
890 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(X+16*H)+","+STR$(Y-36*H)+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+4,+1M+4,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-2,+26L26M-2,-26M-6,+24M-6,-2"
900 RETURN
910 IC=0:COLOR1,15,15:F=1:SCREEN2:GOSUB920:GOTO1030
920 K=0:T=58:W=1:FORV=10TO128STEP59:U=10:GOSUB1580:NEXTV
930 W=0:T=60:FORU=12TO243STEP77:V=8:GOSUB1580:NEXTU
940 FORR=52TO112STEP60
950 W=0:T=8:FORU=74TO228STEP77:V=R:GOSUB1580
960 NEXTU,R
970 FORR=74TO228STEP77
980 W=1:T=3:FORV=54TO114STEP60:U=R:GOSUB1580
990 NEXTV,R
1000 T=20:W=1:FORV=140TO172STEP16:U=162:GOSUB1580:NEXTV
1010 T=17:W=0:FORU=164TO244STEP16:V=138:GOSUB1580:NEXTU
1020 RETURN
1030 I=0
1040 FORY=50TO109STEP59:FORX=26TO180STEP77:GOSUB1690
1050 A(I)=P(I):NEXTX,Y
1060 GOSUB1300
1070 U=76:V=56:E=1:GOSUB1080
1080 FORZ=1TO9
1090 IFZ>6THENO=P(Z)ELSEO=P(Q(Z))
1100 M$=W$(O)
1110 F=1
1120 DRAW"BM24,174C"+STR$(F)+"S8A0"
1130 GOSUB70
1140 IFF=15THENF=1:COLOR F:GOTO1180
1150 GOSUB1390
1160 IFH$=CHR$(13)THEN2430
1170 IFF=15THENM$=W$(O):GOTO1120
1180 GOSUB1690
1190 IFZ=9THEN1750
1200 A(E)=P(I):NEXTZ:RETURN
1210 FORI=1TO9
1220 FL=0
1230 P(I)=FNR(9)
1240 FORJ=1TOI
1250 IFP(J)=P(I)THENFL=FL+1
1260 NEXTJ
1270 IFFL>1THEN1220
1280 NEXTI
1290 RETURN
1300 FORI=1TO6
1310 FL=0
1320 Q(I)=FNR(6)
1330 FORJ=1TOI
1340 IFQ(J)=Q(I)THENFL=FL+1
1350 NEXTJ
1360 IFFL>1THEN1310
1370 NEXTI
1380 RETURN
1390 D$=STR$(U)+","+STR$(V):DRAW"BM"+D$
1400 IFF=1THENLINE(U,V)-(U+10,V+10),4,BFELSELINE(U,V)-(U+10,V+10),15,BF
1410 IFF=15THEN1470ELSEPLAY"C":GOTO1420
1420 GOSUB3380
1430 H$=INKEY$
1440 IFH$=CHR$(28)ORH$=CHR$(29)THEN1460ELSEIFH$=" "THEN1500ELSEIFH$=CHR$(13)THENRETURN
1450 IFH$=CHR$(30)ORH$=CHR$(31)THEN1460ELSEIFF=15THEN1530ELSE1430
1460 F=15:GOTO1390
1470 IFH$=CHR$(28)THENU=U+77ELSEIFH$=CHR$(31)THENV=V+59ELSEIFH$=CHR$(29)THENU=U-77ELSEIFH$=CHR$(30)THENV=V-59
1480 IFU<75THENU=230ELSEIFU>230THENU=76ELSEIFV<56THENV=115ELSEIFV>115THENV=56
1490 IFU=76ANDV=56THENE=1ELSEIFU=153ANDV=56THENE=2ELSEIFU=230ANDV=56THENE=3ELSEIFU=76ANDV=115THENE=4ELSEIFU=153ANDV=115THENE=5ELSEE=6
1500 IFCG=1ANDH$=" "THENRETURNELSEIFH$=" "ANDO=A(E)THEN1520
1510 F=1:GOTO1390
1520 GOSUB1640
1530 F=5:IFE=1ORE=2ORE=3THENY=50ELSEIFE=4ORE=5ORE=6THENY=109
1540 IFE=1ORE=4THENX=26ELSEIFE=2ORE=5THENX=103ELSEIFE=3ORE=6THENX=180
1550 S=2:F=15:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"A0S2
1560 ONA(E)GOSUB500,580,600,670,680,740,750,850,890
1570 RETURN
1580 FORI=1TO T
1590 IFW=0THENV=V+2
1600 IFW=1THENU=U+4
1610 PSET(U,V),F
1620 NEXTI
1630 RETURN
1640 K=K+1:IFK<=5THENR=146ELSEIFK>=6THENR=162ELSEIFK>10THEN2020
1650 IFK=1ORK=6THENL=234ELSEIFK=2ORK=7THENL=218ELSEIFK=3ORK=8THENL=202ELSEIFK=4ORK=9THENL=186ELSEIFK=5ORK=10THENL=170
1660 DRAW"BM"+STR$(L)+","+STR$(R):GOSUB90
1670 PLAY"T210V15L60CL15EGO3CEGO4CEG05V8":RETURN
1680 IFCG=1THENRETURN
1690 IFIC>8THENGOTO1740ELSEIC=IC+1
1700 T=0
1710 S=2:H=S/8
1720 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"A0S2"
1730 I=IC:ONP(I)GOSUB500,580,600,670,680,740,750,850,890:RETURN
1740 S=2:H=S/8:T=T+1:I=Q(T):DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"A0S2":ONP(I)GOSUB500,580,600,670,680,740,750,850,890:RETURN
1750 H$=" ":H$=INKEY$:IFH$<>CHR$(13)THEN1750ELSE2430
1760 COLOR1,15,15:F=1:SCREEN2:GOSUB1210
1770 T=59:W=1:FORV=16TO134STEP118:U=8:GOSUB1580
1780 NEXTV
1790 W=0:T=60:FORU=10TO246STEP118:V=14:GOSUB1580
1800 NEXTU
1810 W=0:T=8:FORU=108TO230STEP121:V=118:GOSUB1580
1820 NEXTU
1830 FORR=108TO230STEP121
1840 W=1:T=4:V=120:U=R:GOSUB1580
1850 NEXTR
1860 W=1:T=40:FORV=1TO14STEP13:U=8:GOSUB1580
1870 NEXTV
1880 W=0:T=6:FORU=10TO170STEP16:V=0:GOSUB1580
1890 NEXTU
1900 CM=0:CJ=0:CTM=0:CTJ=0
1910 FORI=1TO9
1920 M=FNR(2):J=FNR(2):F=1:Y=80:GOSUB1930:GOTO2120
1930 IFCM<>MTHENCM=M:CTM=1ELSEIFCTM=1THENCTM=CTM+1ELSECTM=1:IFM=1THENM=2:CM=2ELSEM=1:CM=1
1940 IFCJ<>JTHENCJ=J:CTJ=1ELSEIFCTJ=1THENCTJ=CTJ+1ELSECTJ=1:IFJ=1THENJ=2:CJ=2ELSEJ=1:CJ=1
1950 IFJ=1THENS=2:X=45ELSES=4:X=26
1960 H=S/8
1970 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"S"+STR$(S)
1980 IF S=2THENGOSUB4540ELSEGOSUB4530
1990 IFS=4THENX=155ELSEX=144
2000 IFX=155THENS=2ELSES=4
2010 H=S/8:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"S"+STR$(S)
2020 IF S=2THENGOSUB4540ELSEGOSUB4530
2030 REM*IFF=1ANDM=1THENLINE(40,174)-(76,182),11,BF
2040 REM*IFF=1ANDM=2THENLINE(40,174)-(100,182),11,BF
2050 REM*IFF=15ANDM=1THENLINE(40,174)-(76,182),15,BF
2060 REM*IFF=15ANDM=2THENLINE(40,174)-(100,182),15,BF
2070 IFM=1THENM$=W$(P(I))+" grande "ELSEM$=W$(P(I))+" pequeno":IFM<>1ANDP(I)=3ORP(I)=4ORP(I)=7ORP(I)=8THENM$=W$(P(I))+" pequena "
2080 REM* IFP(I)=3ORP(I)=4ORP(I)=9THENM$=RIGhT$(M$,LEN(M$)-2):DRAW"BM40,174C"+STR$(F)+"S8":GOTO2100
2090 DRAW"BM24,174C"+STR$(F)+"S8A0"
2100 GOSUB70
2110 RETURN
2120 U=112:V=122
2130 REM MOVE STAR
2140 IFF=1THENLINE(U,V)-(U+10,V+10),4,BFELSELINE(U,V)-(U+10,V+10),15,BF
2150 IFF=15THEN2210ELSEH$=INKEY$:PLAY"O4C"
2160 GOSUB3380
2170 H$="X":H$=INKEY$
2180 IFH$=CHR$(13)THEN2430ELSEIFH$=CHR$(28)ORH$=CHR$(29)THEN2200ELSEIFH$=" "THEN2190ELSE2170
2190 IFU=232ANDM=J THEN2250ELSEIFU=112ANDM<>J THEN2250ELSE2170
2200 F=15:GOTO2130
2210 IFH$=CHR$(28)ANDU=112THENU=232
2220 IFH$=CHR$(29)ANDU=232THENU=112
2230 IFH$=" "THENF=1:NEXTI:GOSUB3380:GOTO2260
2240 F=1:GOTO2140
2250 GOSUB1670:L=16+((I-1)*16):DRAW"BM"+STR$(L)+",4":GOSUB90:F=15:GOSUB1950:GOTO2130
2260 IN$=INKEY$:IFIN$=" "ORIN$=CHR$(13)THEN2430ELSE2260
2270 COLOR1,15,15:SCREEN2:GOSUB1210:GOTO2290
2280 DATApalet¢s,pul“veres,meias,cal‡as,chap‚us,casacos para frio,saias,camisetas,pijamas
2290 FORI=1TO9:F=1:GOSUB2330:GOSUB2610:GOSUB3380
2300 H$=INKEY$:IFH$=CHR$(13)THEN2430ELSEIFH$<>" "THEN2300
2310 CLS:NEXTI
2320 GOTO2430
2330 S=2:H=S/8:FORY=45TO135STEP45
2340 FORX=24TO190STEP83
2350 DRAW"BM"+STR$(X)+","+STR$(Y)+"A0S"+STR$(S)+"C"+STR$(F)
2360 ONP(I)GOSUB500,580,600,670,680,740,750,850,890
2370 NEXTX:NEXTY
2380 M$="v rios "+Z$(P(I)):GOSUB7000
2390 W=FNS(M$)
2400 DRAW"BM"+STR$(W)+",174C"+STR$(F)+"S8A0"
2410 GOSUB70:RETURN
2420 MX=30:MY=60
2430 REM** MUNU **
2440 COLOR1,15,15:SCREEN2:F=1:B=15:XX=0
2450 DRAW"BM70,18":M$="ROUPAS":GOSUB70:DRAW"BM50,60":M$="aprendendo palavras":GOSUB70:DRAW"BM50,80":M$="jogo de palavras":GOSUB70:DRAW"BM50,100":M$="grande e pequeno":GOSUB70:DRAW"BM50,120":M$="jogo grande - pequeno":GOSUB70:DRAW"BM50,140"
2451 M$="aprendendo Plural"
2452 REM*DRAW"BM70,18":M$="ROUPAS":GOSUB70:DRAW"BM50,60":M$="aprendendo palavras":GOSUB70:DRAW"BM50,80":M$="jogo de palavras":GOSUB70:DRAW"BM50,100":M$="big and little":GOSUB70:DRAW"BM50,120":M$="big-little game":GOSUB70:DRAW"BM50,140":M$="lots of":GOSUB
2460 GOSUB80: DRAW"BM50,160":M$="caixa pintada":GOSUB70
2470 GOSUB3390
2480 REM** MOVE CURSOR **
2490 LINE(MX,MY)-(MX+8,MY+8),4,BF
2500 IN$=INKEY$
2510 IFIN$=CHR$(30)THENIFMY>60THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY-20:GOTO2490
2520 IFIN$=CHR$(31)THENIFMY<160THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY+20:GOTO2490
2530 IFIN$<>" "THEN2500
2540 CL$="Y"
2550 IFMY=60THENTH=1:GOTO30
2560 IFMY=80THENCL$="N":GOTO910
2570 IFMY=100THENTH=2:GOTO30
2580 IFMY=120THENCL$="N":GOTO1760
2590 IFMY=140THENCL$="N":GOTO2270
2600 IFMY=160THEN2700
2610 PLAY"L4T255CDEFGFEDCDEFCR1"
2620 RETURN
2630 ON KEY GOSUB4110,4180,4250,4320,4390:RETURN
2640 KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON:KEY(5)ON
2650 RETURN
2660 C(1)=1:C(2)=2:C(3)=4:C(4)=8:C(5)=10
2670 FORJ=5TO1STEP-1:CS=FNR(J):AC(J)=C(CS):C(CS)=C(J):NEXTJ:AC=FNR(5)
2680 DD=FNR(5):IFDD=AC THEN2680ELSEAC(0)=AC(DD):RETURN
2690 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF:KEY(5)OFF:RETURN
2700 GOSUB2640:FC=1:SX=MX:SY=MY:MX=30:MY=60
2710 COLOR1,15,15:SCREEN2:F=1:WG%=0
2720 DRAW"BM70,18":F=2:M$="ROUPAS":GOSUB70:DRAW"BM50,60":F=1:M$="Aprendendo palavras":GOSUB70:DRAW"BM50,80":F=8:M$="Jogo de cores":GOSUB70:DRAW"BM50,100":F=10:M$="Jogo do grande  ":GOSUB70:DRAW"BM50,120"
2730 LINE(MX,MY)-(MX+8,MY+8),4,BF
2740 GOSUB3380
2750 IN$=INKEY$
2760 IFIN$=CHR$(30)THENIFMY>60THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY-20:GOTO2730
2770 IFIN$=CHR$(31)THENIFMY<100THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY+20:GOTO2730
2780 IFIN$<>" "ANDIN$<>CHR$(13)THEN2750
2790 IFIN$=CHR$(13)THENGOSUB2690:MY=SY:GOTO2430
2800 CL$="Y"
2810 IFMY=60THENTH=1:GOSUB2840:WG%=1:GOTO2860
2820 IFMY=80THENGOTO3230
2830 IFMY=100THENTH=2:GOSUB2840:GOTO2860
2840 GOSUB2640:GOSUB4030:LINE(0,14)-(255,191),15,BF:RETURN
2850 TH=TH+1
2860 Q=26
2870 KT=0:LINE(0,14)-(255,191),15,BF:X=0:MQ=10:TD%=0:GOSUB2690
2880 IF X=10THENPLAY"L4T180BC":GOSUB2640:GOTO2900ELSEX=X+1:M$=W$(X)
2890 MQ=MQ+16:A$="100,"+STR$(MQ):DRAW"BM"+A$:GOSUB80:GOTO2880
2900 LINE(80,Q)-(88,Q+8),4,BF
2910 GOSUB3380
2920 IN$=INKEY$:IFIN$=CHR$(31)THEN2930ELSEIFIN$=CHR$(30)THEN2950ELSEIFIN$=CHR$(32)THEN3000ELSEIFIN$=CHR$(13)THEN2710ELSE2920
2930 IFQ<=144THENV=16ELSEV=-128
2940 GOTO2960
2950 IFQ>=32THENV=-16ELSEV=128
2960 F=15:LINE(80,Q)-(88,Q+8),15,BF:GOSUB70
2970 Q=Q+V:COLOR FC:LINE(80,Q)-(88,Q+8),4,BF
2980 PLAY"O4C"
2990 IF PLAY(1)<>0THEN2990ELSEIN$="":GOTO2910
3000 LINE(0,14)-(255,191),15,BF:FC=FD:TD%=1:COLOR FC:GOSUB3020
3010 FC=FD:IN$=INKEY$:IFIN$=CHR$(32)THEN2870ELSEIFIN$=CHR$(13)THEN2710ELSE3010
3020 IN$="X"
3030 IFKT=0THENS=7:XC=40ELSES=4:XC=80
3040 X=XC:Y=120:G=1:E=2:R=4:H=S/8:DRAW"BM"+STR$(X)+",120C"+STR$(FC)+"A0S"+STR$(S)
3050 ON(Q-10)/16GOSUB3510,3560,3590,3620,3640,3660,3690,3720,3750
3060 PLAY"CO4E"
3070 IF TH>1THEN3080ELSEM$=W$((Q-10)/16):GOTO3120
3080 IF KT=0THENM$="  grande "ELSEIFKT=2THENM$="  pequeno ":IFKT<>0AND((Q-10)/16)=3OR((Q-10)/16)=4OR((Q-10)/16)=7OR((AQ-10/16)=8THENM$=" pequena "
3090 REM8 IF KT=2THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2)
3100 REM0 IF KT=0THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2)
3110 W=FNS(M$)-15:DRAW"BM"+STR$(W)+",170":COLOR1:GOSUB80:COLOR1:M$=W$((Q-10)/16)
3120 IF FC=1THENM1$="preto "ELSEIFFC=2THENM1$="verde "ELSEIFFC=4THENM1$="azul "ELSEIF FC=8THENM1$="vermelho "ELSEM1$="amarelo "
3125 T$=M$+M1$:W=FNS(T$)
3130 IFTH>1THENT$=M$+M1$:W=FNS(T$):DRAW"BM"+STR$(W)+",180":GOSUB80 ELSET$="  "+M$+M1$:DRAW"BM"+STR$(W)+",180":COLOR1:M$="  ":GOSUB80:COLOR1:M$=W$((Q-10)/16):GOSUB80
3140 REM T$=M$+M1$:W=FNS(T$):DRAW"BM"+STR$(W)+",180":T$=M$:COLORFC:M$=M1$:GOSUB80:GOTO3160
3150 REM* T$="  "+M$+M1$:W=FNS(T$):DRAW"BM"+STR$(W)+",180":T$=M$:COLOR1:M$="  ":GOSUB80:COLORFC:M$=M1$:GOSUB80
3160 COLORFC:M$=" "+M1$:GOSUB5000:GOSUB80:COLORFC
3170 IFTH=1THEN3220
3180 KT=KT+1
3190 IFKT=1THEN3180ELSEIFKT=2THEN3210ELSE3220
3200 IN$=""
3210 IN$=INKEY$:IFIN$=""THEN3210ELSELINE(0,14)-(255,191),15,BF
3220 RETURN
3230 GOSUB2690:COLOR1,15,15:F=1:SCREEN2:GOSUB920
3240 FORI=1TO9:IC=0:GOSUB2660:FORY=50TO109STEP59:FORX=26TO180STEP77:GOSUB3350:NEXTX,Y
3250 IF AC(AC)=1THENM1$=" preta "ELSEIFAC(AC)=2THENM1$=" verde "ELSEIFAC(AC)=4THENM1$=" azul "ELSEIF AC(AC)=8THENM1$=" vermelha "ELSEM1$=" amarela "
3260 IF P(I)=3ORP(I)=4ORP(I)=7ORP(I)=8THENXX=1ELSEXX=0
3270 DRAW"BM24,174":IFXX=0THENM$="  ":COLOR1:GOSUB80
3280 M$=W$(P(I)):TC=AC(AC):COLOR 1:GOSUB80:COLORTC:M$=M1$:GOSUB6000:GOSUB80:E=1:U=76:V=56
3290 CG=1:GOSUB1390:CG=0:IFH$=CHR$(13)THEN2710
3300 IFAC<>E-1THEN3290ELSELINE(U,V)-(U+10,V+10),15,BF
3310 DRAW"S8C1":CG=1:GOSUB1640:CG=0
3320 FORY=14TO73STEP59:FORX=14TO168STEP77:LINE(X,Y)-(X+64,Y+38),15,BF:LINE(X,Y)-(X+58,Y+50),15,BF:NEXTX,Y
3330 LINE(0,174)-(255,191),15,BF:NEXTI
3340 GOSUB2640:FORI=1TO500:NEXTI:GOTO2710
3350 FC=AC(IC):IC=IC+1
3360 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(FC)+"S2":COLOR FC:S=2:H=S/8:CL$="Y"
3370 ONP(I)GOSUB3770,3820,3850,3880,3900,3920,3950,3980,4010:RETURN
3380 IN$=INKEY$:IFIN$<>""THEN3380ELSERETURN
3390 PLAY"L4T255","L4T255","L4T255"
3400 '*** jingle bells ***
3410 PLAY"o6cr64ar64gr64fr64c","o5ar64o6cr64o5b-r64fr64a","o3fr64o4cr64fr64cr64o3f"
3420 PLAY"o5cr64f"
3430 PLAY"o6cr64cr64ar64gr64fr64d","o5ar64ao6r64co5r64b-r64ar64b-","O4CR64O3FR64O4CR64FR64CR64O3B-O4R64FR64B-R64F"
3440 PLAY"O6DR64B-R64AR64GR64ER64","O4B-R64O5DR64CR64O4B-R64B-","O3GR64O4DR64GR64DR64CR64GR64B-R64GR64"
3450 PLAY"O4CR64GR64O5CO4R64GO3R64FO4R64CR64FR64C","O7CR64CR64O6B-R64GR64AR64","O5ER64ER64ER64ER64F"
3460 PLAY"o6cr64ar64gr64fr64c","o5ar64o6cr64o5b-r64fr64a","o3fr64o4cr64fr64cr64o3f"
3470 PLAY"o5cr64f"
3480 PLAY"o6cr64cr64ar64gr64fr64d","o5ar64ao6r64co5r64b-r64ar64b-","O4CR64O3FR64O4CR64FR64CR64O3B-O4R64FR64B-R64F"
3490  PLAY"O6DR64B-R64AR64GR64O7CR64CR64CR64CR64DR64CR64O6B-R64GR64F","O5B-R64O6DR64CR64O5B-R64O6ER64ER64ER64ER64ER64ER64ER64ER64C","O3GO4R64DR64GR64DR64CR64GR64O5CR64CR64B-R64AR64GR64FR64CR64"
3500 RETURN
3510 REM COAT
3520 DRAW"BD10BR2M+6,-50M+4,-10E2M+6,-2R10E4R14F8D6G2F2M-12,+16U3M+8,-13U10H4L14G4D10M+8,+13D3M-12,-16E2H2U6E5"
3530 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD10BR2M+10,+2M+8,-52D54R18U4NR6U36BR6D40R18U54M+8,+52M+10,-2M-6,-50M-4,-10H2M-6,-2L10BM"+STR$(X+48*H)+","+STR$(Y+8*H)+"U12R10D12L10BR24U12R10D12L10"
3540 IFS=8ORCL$="Y"THEN3550ELSERETURN
3550 PAINT(X+12*H,Y),FC,FC:PAINT(X+148*H,Y),FC,FC:RETURN
3560 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D10L28BU50BR14NM+12,-30NM-12,-30U4NM+11,-27M-11,-27"
3570 CIRCLE(X+74*H,Y-92*H),22*H,FC,2*P,P
3580 PAINT(X+76*H,Y-40*H),FC,FC:PAINT(X+30*H,Y-80*H),FC,FC:PAINT(X+130*H,Y-80*H),FC,FC:RETURN
3590 DRAW"BM"+STR$(INT(X+20*H))+","+STR$(Y+40*H):GOSUB3610:DRAW"BM"+STR$(INT(X+100*H))+","+STR$(Y+40*H):GOSUB3610
3600 PAINT(X+24*H,Y+30*H),FC,FC:PAINT(X+104*H,Y+30*H),FC,FC:RETURN
3610 DRAW"BR2E18UEU44D12L2NU12L2NU12L2NU12L2NU12L2NU12L2U12NR10D42G14G2D4F3R3E2H6BR19BU15NE6F4":RETURN
3620 DRAW"BD20BR20M+2,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+2,+50L16M-2,-30M-6,-16M-6,+16M-2,+30L16"
3630 PAINT(X+64*H,Y),FC,FC:RETURN
3640 DRAW"BR14BU14M+10,-27BR40M+10,+27":CIRCLE(X+88*H,Y-30*H),60*H,FC,P,.1*P,.3:CIRCLE(X+88*H,Y-84*H),40*H,FC,,,.3:CIRCLE(X+88*H,Y-30*H),88*H,FC,.71*P,.3*P,.3
3650 PAINT(X+88*H,Y-7*H),FC,FC:PAINT(X+88*H,Y-84*H),FC,FC:RETURN
3660 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L18NU50L16U40M-7,+40"
3670 IFS=8ORCL$="Y"THEN3680ELSERETURN
3680 PAINT(X+80*H,Y-40*H),FC,FC:RETURN
3690 DRAW"BD20BR12BU6M+7,-59NR46U3R46D3M+7,+59M-9,+4NM-4,-44M-10,+1NM-1,-43L10NU43L9NM+1,-43M-12,-1NM+4,-44M-11,-4"
3700 PAINT(X+80*H,Y-40*H),FC,FC:IFFC=1THENTC=15ELSETC=1
3710 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD20BR12BU6C"+STR$(TC)+"BM+11,+4NM+4,-44BM+12,+1NM+1,-43BR9NU43BR10NM-1,-43BM+10,-1NM-4,-44C"+STR$(F):RETURN
3720 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L38"
3730 IF FC=1THENTC=15ELSETC=1
3740 PAINT(X+96*H,Y-50*H),FC,FC:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(TC)+"BD24BR52BU40U8M-4,+2M+4,+2M+4,-2M-4,-2C"+STR$(F):RETURN
3750 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(INT(X+16*H)+1)+","+STR$(INT(Y-36*H))+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-4,+26L26M-4,-26M-6,+24M-6,-2"
3760 PAINT(X+56*H,Y-74*H),FC,FC:PAINT(X+56*H,Y-12*H),FC,FC:RETURN
3770 REM COAT
3780 DRAW"BD10BR2M+6,-50M+4,-10E2M+6,-2R10E4R14F8D6G2F2M-12,+16U3M+8,-13U10H4L14G4D10M+8,+13D3M-12,-16E2H2U6E5"
3790 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD10BR2M+10,+2M+8,-52D54R18U4NR6U36BR6D40R18U54M+8,+52M+10,-2M-6,-50M-4,-10H2M-6,-2L10BM"+STR$(X+48*H)+","+STR$(Y+8*H)+"U12R10D12L10BR24U12R10D12L10"
3800 IFS=8ORCL$="Y"THEN3810ELSERETURN
3810 PAINT(X+12*H,Y),FC,FC:PAINT(X+148*H,Y),FC,FC:RETURN
3820 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D12L24BU52BR12NM+12,-28NM-12,-28U4NM+11,-25M-11,-25"
3830 CIRCLE(X+74*H,Y-92*H),22*H,FC,2*P,P
3840 PAINT(X+76*H,Y-40*H),FC,FC:PAINT(X+30*H,Y-80*H),FC,FC:PAINT(X+126*H,Y-80*H),FC,FC:RETURN
3850 DRAW"BM"+STR$(INT(X+20*H))+","+STR$(Y+40*H):GOSUB3870:DRAW"BM"+STR$(INT(X+100*H))+","+STR$(Y+40*H):GOSUB3870
3860 PAINT(X+24*H,Y+30*H),FC,FC:PAINT(X+104*H,Y+30*H),FC,FC:RETURN
3870 DRAW"BR2E18UEU44D12L2NU12L2NU12L2NU12L2NU12L2NU12L2U12NR10D42G14G2D4F4R5E4H7BR20BU15NE3F2":RETURN
3880 DRAW"BD20BR20M+0,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+0,+50L16M-0,-30M-6,-16M-6,+16M-0,+30L16"
3890 PAINT(X+64*H,Y),FC,FC:RETURN
3900 DRAW"BR14BU14M+10,-27BR40M+10,+27":CIRCLE(X+88*H,Y-30*H),60*H,FC,P,.1*P,.3:CIRCLE(X+88*H,Y-84*H),40*H,FC,,,.3:CIRCLE(X+88*H,Y-30*H),88*H,FC,.71*P,.3*P,.3
3910 PAINT(X+88*H,Y-7*H),FC,FC:PAINT(X+88*H,Y-84*H),FC,FC:RETURN
3920 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L16NU44L14U40M-7,+40"
3930 IFS=8ORCL$="Y"THEN3940ELSERETURN
3940 PAINT(X+80*H,Y-40*H),FC,FC:RETURN
3950 DRAW"BD20BR12BU6M+7,-59NR46U3R46D3M+7,+59M-9,+4NM-4,-44M-10,+1NM-1,-43L10NU43L9NM+1,-43M-12,-1NM+4,-44M-11,-4"
3960 PAINT(X+80*H,Y-40*H),FC,FC:TC=15
3970 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD20BR12BU6C"+STR$(TC)+"BM+11,+4NM+4,-44BM+12,+1NM+1,-43BR9NU43BR10NM-1,-43BM+10,-1NM-4,-44C"+STR$(F):RETURN
3980 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L32"
3990 IF F=1THENTC=15ELSETC=1
4000 PAINT(X+96*H,Y-50*H),FC,FC:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(TC)+"BD24BR48BU40U8M-4,+2M+4,+2M+4,-2M-4,-2C"+STR$(F):RETURN
4010 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(X+16*H)+","+STR$(Y-36*H)+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+4,+1M+4,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-2,+26L26M-2,-26M-6,+24M-6,-2"
4020 PAINT(X+56*H,Y-74*H),FC,FC:PAINT(X+56*H,Y-12*H),FC,FC:RETURN
4030 CLS
4040 LINE(8,0)-(48,12),1,BF:F=15:DRAW"BM16,2":M$="F1":GOSUB70
4050 LINE(58,0)-(98,12),8,BF:F=1:DRAW"BM66,2":M$="F2":GOSUB70
4060 LINE(108,0)-(148,12),4,BF:F=1:DRAW"BM116,2":M$="F3":GOSUB70
4070 LINE(158,0)-(198,12),2,BF:F=1:DRAW"BM166,2":M$="F4":GOSUB70
4080 LINE(208,0)-(248,12),10,BF:F=1:DRAW"BM216,2":M$="F5":GOSUB70
4090 DRAW"BM36,2":COLOR15:M$="*":GOSUB80:WG%=0:COLOR1:DRAW"C1":FD=1
4100 RETURN
4110 REM F1
4120 GOSUB4460
4130 FD=1
4140 DRAW"BM36,2":COLOR15:GOSUB80:COLOR FD
4150 IFWG%=1ANDTD%=1THENGOSUB4520
4160 IF TD%=0THENFC=FD
4170 RETURN
4180 REM F2
4190 GOSUB4460
4200 FD=8
4210 DRAW"BM86,2":COLOR1:GOSUB80:COLOR FD
4220 IFWG%=1ANDTD%=1THENGOSUB4520
4230 IF TD%=0THENFC=FD
4240 RETURN
4250 REM F3
4260 GOSUB4460
4270 FD=4
4280 DRAW"BM136,2":COLOR1:GOSUB80:COLOR FD
4290 IFWG%=1ANDTD%=1THENGOSUB4520
4300 IF TD%=0THENFC=FD
4310 RETURN
4320 REM F4
4330 GOSUB4460
4340 FD=2
4350 DRAW"BM186,2":COLOR1:GOSUB80:COLOR FD
4360 IFWG%=1ANDTD%=1THENGOSUB4520
4370 IF TD%=0THENFC=FD
4380 RETURN
4390 REM F5
4400 GOSUB4460
4410 FD=10
4420 DRAW"BM236,2":COLOR1:GOSUB80:COLOR FD
4430 IFWG%=1ANDTD%=1THENGOSUB4520
4440 IF TD%=0THENFC=FD
4450 RETURN
4460 IF FD=1THENCOLOR1:DRAW"BM36,2":M$="*":GOSUB80:RETURN
4470 IF FD=4THENCOLOR4:DRAW"BM136,2":M$="*":GOSUB80:RETURN
4480 IF FD=10THENCOLOR10:DRAW"BM236,2":M$="*":GOSUB80:RETURN
4490 IF FD=8THENCOLOR8:DRAW"BM86,2":M$="*":GOSUB80:RETURN
4500 IF FD=2THENCOLOR2:DRAW"BM186,2":M$="*":GOSUB80:RETURN
4510 RETURN
4520 LINE(0,14)-(255,191),15,BF:FC=FD:COLORFC:GOSUB3020:RETURN
4530 ONP(I)GOSUB500,550,600,640,680,710,750,800,860,840:RETURN
4540 ONP(I)GOSUB500,580,600,670,680,740,750,850,890,840:RETURN
5000 ON((Q-10)/16)GOSUB5010,5010,5020,5020,5010,5010,5020,5020,5010
5010 RETURN
5020 IFM$=" preto "THENM$=" preta ":RETURN
5030 IFM$=" amarelo "THENM$=" amarela ":RETURN
5040 IFM$=" vermelho "THENM$=" vermelha ":RETURN
6000 IFI>9THENGOTO6010ELSEONP(I)GOSUB6020,6020,6010,6010,6020,6020,6010,6010,6020
6010 RETURN
6020 IFM$=" preta "THENM$=" preto":RETURN
6030 IFM$=" vermelha "THENM$=" vermelho":RETURN
6040 IFM$=" amarela "THENM$=" amarelo":RETURN
7000 IFM$="v rios meias"THENM$="v rias meias ":RETURN
7010 IFM$="v rios cal‡as"THENM$="v rias cal‡as":RETURN
7020 IFM$="v rios saias"THENM$="v rias saias":RETURN
7030 IFM$="v rios camisetas"THENM$="v rias camisetas":RETURN
7040 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

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

4 CLEAR400:ONSTOP GOSUB 5:STOP ON: ONERROR GOTO4:GOTO10

5 RETURN

10 P=3.14159:GOSUB2630:DEF FNR(X)=INT(RND(1)*X+1):DEF FNS(M$)=(252-LEN(M$)*8)/2:X=RND(-TIME):OPEN"GRP:"FOR OUTPUT AS #1:DIMW$(18):DIMP(9):DIMC(5):DIMAC(5):GOSUB1210:GOSUB100:GOTO2420

20 TH=TH+1

30 Q=26

40 COLOR1,15,15:KT=0:SCREEN2:X=0:MQ=10

50 IFX=10THENPLAY"L4T180BC":GOTO120ELSEX=X+1:M$=W$(X)

60 MQ=MQ+16:A$="100,"+STR$(MQ):F=1:DRAW"BM"+A$:GOSUB70:GOTO50

70 COLORF

80 PRINT#1,M$;:RETURN

90 DRAW"C4BM-2,+2F2E4":RETURN

100 RESTORE:FORY=1TO9:READW$(Y):NEXT:FORY=1TO9:READZ$(Y):NEXT:RETURN

110 DATApalet¢,pul“ver,meia,cal‡a,chap‚u,casaco para frio,saia,camiseta,pijama

120 F=1:LINE(80,Q)-(88,Q+8),4,BF

130 Z$="Y"

140 IN$="X"

150 GOSUB3380

160 IN$=INKEY$:IFIN$=CHR$(31)THEN170ELSEIFIN$=CHR$(30)THEN190ELSEIFIN$=CHR$(32)THEN250ELSEIFIN$=CHR$(13)THEN480ELSE160

170 IFQ<=144THENV=16ELSEV=-128

180 GOTO200

190 IFQ>=32THENV=-16ELSEV=128

200 F=15:LINE(80,Q)-(88,Q+8),15,BF

210 Q=Q+V

220 LINE(80,Q)-(88,Q+8),4,BF:F=1

230 PLAY"O4C"

240 IF PLAY(1)<>0THEN240ELSE140

250 COLOR1,15,15:F=1

260 SCREEN2

270 IN$="X"

280 IFKT=0THENS=8:XC=40ELSES=4:XC=80

290 X=XC:Y=120:G=1:E=2:R=4:H=S/8:DRAW"BM"+STR$(X)+",120C"+STR$(F)+"A0S"+STR$(S)

300 P=3.14159

310 ON(Q-10)/16GOSUB500,550,600,640,680,710,750,800,860

320 PLAY"CO4E"

330 IFTH>1THEN340ELSEM$=W$((Q-10)/16):GOTO370

340 IFKT=0THENM$=W$((Q-10)/16)+" grande "ELSEIFKT=2THENM$=W$((Q-10)/16)+" pequeno ":IF((Q-10)/16)=3OR((Q-10)/16)=4OR((Q-10)/16)=7OR((Q-10)/16)=8THENM$=W$((Q-10)/16)+" pequena "

350 REM* IF KT=0THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2):XX=1ELSEXX=0

360 REM* IF KT=2THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2):XX=1ELSEXX=0

370 W=FNS(M$)

372 W=FNS(M$):Z9$=W$((Q-10)/16):Z9=(LEN(Z9$)*8)+2

375 IFTH<=1THEN376ELSEIFKT=0THENLINE(W+Z9,180)-(W+(LEN(M$)*8)+10,188),3,BFELSELINE(W+Z9,180)-(W+(LEN(M$)*8)+10,188),3,BF

376 DRAW"BM"+STR$(W)+",180"+"C"+STR$(F)+"S8"+"A0"

380 REM* IFXX=1THENIFKT=0THENLINE(W,180)-(W+36,188),11,BF:GOTO400ELSELINE(W,180)-(W+60,188),11,BF:GOTO400

390 REM* IFTH<=1THEN400ELSEIFKT=0THENLINE(W+16,180)-(W+52,188),11,BFELSELINE(W+16,180)-(W+76,188),11,BF

400 DRAW"BM"+STR$(W)+",180"+"C"+STR$(F)+"S8"+"A0"

410 GOSUB80

420 IFTH=1THEN460

430 KT=KT+1

440 IFKT=1THEN400:ELSEIFKT=2THEN450:ELSEIFKT=3THEN400:ELSE460

450 IN$=INKEY$:IFIN$=""THEN450ELSESCREEN2:GOTO270

460 GOSUB3380

470 IN$=INKEY$:IFIN$=CHR$(32)THEN40ELSEIFIN$=CHR$(13)THEN2430ELSE470

480 GOTO2430

490 GOTO490

500 REM COAT

510 DRAW"BD10BR2M+6,-50M+4,-10E2M+6,-2R10E4R14F8D6G2F2M-12,+16U3M+8,-13U10H4L14G4D10M+8,+13D3M-12,-16E2H2U6E5"

520 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD10BR2M+10,+2M+8,-52D54R18U4NR6U36BR6D40R18U54M+8,+52M+10,-2M-6,-50M-4,-10H2M-6,-2L10BM"+STR$(X+48*H)+","+STR$(Y+8*H)+"U12R10D12L10BR24U12R10D12L10"

530 IFS=8ORCL$="Y"THEN540ELSERETURN

540 PAINT(X+12*H,Y),F,F:PAINT(X+148*H,Y),F,F:RETURN

550 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D10L28BU50BR14NM+12,-30NM-12,-30U4NM+11,-27M-11,-27"

560 IFS=8ORCL$="Y"THEN570ELSERETURN

570 PAINT(X+76*H,Y-40*H),F,F:PAINT(X+30*H,Y-80*H),F,F:PAINT(X+130*H,Y-80*H),F,F:RETURN

580 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D12L24BU52BR12NM+12,-28NM-12,-28U4NM+11,-25M-11,-25"

590 RETURN

600 DRAW"BM"+STR$(X+20*H)+","+STR$(Y+40*H):GOSUB630:DRAW"BM"+STR$(X+100*H)+","+STR$(Y+40*H):GOSUB630

610 IFS=8ORCL$="Y"THEN620ELSERETURN

620 PAINT(X+24*H,Y+30*H),F,F:PAINT(X+104*H,Y+30*H),F,F:RETURN

630 DRAW"BR2E18UEU44D12L2NU12L2NU12L2NU12L2NU12L2NU12L2U12NR12D42G14G2D4F4R3E2H7BR20BU14NE6F4":RETURN

640 DRAW"BD20BR20M+2,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+2,+50L16M-2,-30M-6,-16M-6,+16M-2,+30L16"

650 IFS=8ORCL$="Y"THEN660ELSERETURN

660 PAINT(X+64*H,Y),F,F:RETURN

670 DRAW"BD20BR20M+0,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+0,+50L16M-0,-30M-6,-16M-6,+16M-0,+30L16":RETURN

680 DRAW"BR14BU14M+10,-27BR40M+10,+27":CIRCLE(X+88*H,Y-30*H),60*H,F,P,.1*P,.3:CIRCLE(X+88*H,Y-84*H),40*H,F,,,.3:CIRCLE(X+88*H,Y-30*H),88*H,F,.71*P,.3*P,.3

690 IFS=8ORCL$="Y"THEN700ELSERETURN

700 PAINT(X+88*H,Y-6*H),F,F:PAINT(X+88*H,Y-84*H),F,F:RETURN

710 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L18NU50L16U40M-7,+40"

720 IFS=8ORCL$="Y"THEN730ELSERETURN

730 PAINT(X+80*H,Y-40*H),F,F:RETURN

740 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L16NU48L14U40M-7,+40":RETURN

750 DRAW"BD20BR12BU6M+7,-59NR46U3R46D3M+7,+59M-9,+4NM-4,-44M-10,+1NM-1,-43L10NU43L9NM+1,-43M-12,-1NM+4,-44M-11,-4"

760 IFS=8ORCL$="Y"THEN770ELSERETURN

770 PAINT(X+80*H,Y-40*H),F,F

780 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD20BR12BU6C15BM+11,+4NM+4,-44BM+12,+1NM+1,-43BR9NU43BR10NM-1,-43BM+10,-1NM-4,-44C"+STR$(F):RETURN

790 RETURN

800 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L38"

810 IFS=8ORCL$="Y"THEN820ELSEDRAW"C7":RETURN

820 PAINT(X+96*H,Y-50*H),F,F:

830 IF F=1THENTC=15ELSETC=1

840 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(TC)+"BD24BR48BU40U8M-4,+2M+4,+2M+4,-2M-4,-2C"+STR$(F):RETURN

850 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L32":TC=F:GOTO840

860 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(X+16*H)+","+STR$(Y-36*H)+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-4,+26L26M-4,-26M-6,+24M-6,-2"

870 IFS=8ORCL$="Y"THEN880ELSERETURN

880 PAINT(X+56*H,Y-74*H),F,F:PAINT(X+56*H,Y-12*H),F,F:RETURN

890 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(X+16*H)+","+STR$(Y-36*H)+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+4,+1M+4,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-2,+26L26M-2,-26M-6,+24M-6,-2"

900 RETURN

910 IC=0:COLOR1,15,15:F=1:SCREEN2:GOSUB920:GOTO1030

920 K=0:T=58:W=1:FORV=10TO128STEP59:U=10:GOSUB1580:NEXTV

930 W=0:T=60:FORU=12TO243STEP77:V=8:GOSUB1580:NEXTU

940 FORR=52TO112STEP60

950 W=0:T=8:FORU=74TO228STEP77:V=R:GOSUB1580

960 NEXTU,R

970 FORR=74TO228STEP77

980 W=1:T=3:FORV=54TO114STEP60:U=R:GOSUB1580

990 NEXTV,R

1000 T=20:W=1:FORV=140TO172STEP16:U=162:GOSUB1580:NEXTV

1010 T=17:W=0:FORU=164TO244STEP16:V=138:GOSUB1580:NEXTU

1020 RETURN

1030 I=0

1040 FORY=50TO109STEP59:FORX=26TO180STEP77:GOSUB1690

1050 A(I)=P(I):NEXTX,Y

1060 GOSUB1300

1070 U=76:V=56:E=1:GOSUB1080

1080 FORZ=1TO9

1090 IFZ>6THENO=P(Z)ELSEO=P(Q(Z))

1100 M$=W$(O)

1110 F=1

1120 DRAW"BM24,174C"+STR$(F)+"S8A0"

1130 GOSUB70

1140 IFF=15THENF=1:COLOR F:GOTO1180

1150 GOSUB1390

1160 IFH$=CHR$(13)THEN2430

1170 IFF=15THENM$=W$(O):GOTO1120

1180 GOSUB1690

1190 IFZ=9THEN1750

1200 A(E)=P(I):NEXTZ:RETURN

1210 FORI=1TO9

1220 FL=0

1230 P(I)=FNR(9)

1240 FORJ=1TOI

1250 IFP(J)=P(I)THENFL=FL+1

1260 NEXTJ

1270 IFFL>1THEN1220

1280 NEXTI

1290 RETURN

1300 FORI=1TO6

1310 FL=0

1320 Q(I)=FNR(6)

1330 FORJ=1TOI

1340 IFQ(J)=Q(I)THENFL=FL+1

1350 NEXTJ

1360 IFFL>1THEN1310

1370 NEXTI

1380 RETURN

1390 D$=STR$(U)+","+STR$(V):DRAW"BM"+D$

1400 IFF=1THENLINE(U,V)-(U+10,V+10),4,BFELSELINE(U,V)-(U+10,V+10),15,BF

1410 IFF=15THEN1470ELSEPLAY"C":GOTO1420

1420 GOSUB3380

1430 H$=INKEY$

1440 IFH$=CHR$(28)ORH$=CHR$(29)THEN1460ELSEIFH$=" "THEN1500ELSEIFH$=CHR$(13)THENRETURN

1450 IFH$=CHR$(30)ORH$=CHR$(31)THEN1460ELSEIFF=15THEN1530ELSE1430

1460 F=15:GOTO1390

1470 IFH$=CHR$(28)THENU=U+77ELSEIFH$=CHR$(31)THENV=V+59ELSEIFH$=CHR$(29)THENU=U-77ELSEIFH$=CHR$(30)THENV=V-59

1480 IFU<75THENU=230ELSEIFU>230THENU=76ELSEIFV<56THENV=115ELSEIFV>115THENV=56

1490 IFU=76ANDV=56THENE=1ELSEIFU=153ANDV=56THENE=2ELSEIFU=230ANDV=56THENE=3ELSEIFU=76ANDV=115THENE=4ELSEIFU=153ANDV=115THENE=5ELSEE=6

1500 IFCG=1ANDH$=" "THENRETURNELSEIFH$=" "ANDO=A(E)THEN1520

1510 F=1:GOTO1390

1520 GOSUB1640

1530 F=5:IFE=1ORE=2ORE=3THENY=50ELSEIFE=4ORE=5ORE=6THENY=109

1540 IFE=1ORE=4THENX=26ELSEIFE=2ORE=5THENX=103ELSEIFE=3ORE=6THENX=180

1550 S=2:F=15:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"A0S2

1560 ONA(E)GOSUB500,580,600,670,680,740,750,850,890

1570 RETURN

1580 FORI=1TO T

1590 IFW=0THENV=V+2

1600 IFW=1THENU=U+4

1610 PSET(U,V),F

1620 NEXTI

1630 RETURN

1640 K=K+1:IFK<=5THENR=146ELSEIFK>=6THENR=162ELSEIFK>10THEN2020

1650 IFK=1ORK=6THENL=234ELSEIFK=2ORK=7THENL=218ELSEIFK=3ORK=8THENL=202ELSEIFK=4ORK=9THENL=186ELSEIFK=5ORK=10THENL=170

1660 DRAW"BM"+STR$(L)+","+STR$(R):GOSUB90

1670 PLAY"T210V15L60CL15EGO3CEGO4CEG05V8":RETURN

1680 IFCG=1THENRETURN

1690 IFIC>8THENGOTO1740ELSEIC=IC+1

1700 T=0

1710 S=2:H=S/8

1720 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"A0S2"

1730 I=IC:ONP(I)GOSUB500,580,600,670,680,740,750,850,890:RETURN

1740 S=2:H=S/8:T=T+1:I=Q(T):DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"A0S2":ONP(I)GOSUB500,580,600,670,680,740,750,850,890:RETURN

1750 H$=" ":H$=INKEY$:IFH$<>CHR$(13)THEN1750ELSE2430

1760 COLOR1,15,15:F=1:SCREEN2:GOSUB1210

1770 T=59:W=1:FORV=16TO134STEP118:U=8:GOSUB1580

1780 NEXTV

1790 W=0:T=60:FORU=10TO246STEP118:V=14:GOSUB1580

1800 NEXTU

1810 W=0:T=8:FORU=108TO230STEP121:V=118:GOSUB1580

1820 NEXTU

1830 FORR=108TO230STEP121

1840 W=1:T=4:V=120:U=R:GOSUB1580

1850 NEXTR

1860 W=1:T=40:FORV=1TO14STEP13:U=8:GOSUB1580

1870 NEXTV

1880 W=0:T=6:FORU=10TO170STEP16:V=0:GOSUB1580

1890 NEXTU

1900 CM=0:CJ=0:CTM=0:CTJ=0

1910 FORI=1TO9

1920 M=FNR(2):J=FNR(2):F=1:Y=80:GOSUB1930:GOTO2120

1930 IFCM<>MTHENCM=M:CTM=1ELSEIFCTM=1THENCTM=CTM+1ELSECTM=1:IFM=1THENM=2:CM=2ELSEM=1:CM=1

1940 IFCJ<>JTHENCJ=J:CTJ=1ELSEIFCTJ=1THENCTJ=CTJ+1ELSECTJ=1:IFJ=1THENJ=2:CJ=2ELSEJ=1:CJ=1

1950 IFJ=1THENS=2:X=45ELSES=4:X=26

1960 H=S/8

1970 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"S"+STR$(S)

1980 IF S=2THENGOSUB4540ELSEGOSUB4530

1990 IFS=4THENX=155ELSEX=144

2000 IFX=155THENS=2ELSES=4

2010 H=S/8:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(F)+"S"+STR$(S)

2020 IF S=2THENGOSUB4540ELSEGOSUB4530

2030 REM*IFF=1ANDM=1THENLINE(40,174)-(76,182),11,BF

2040 REM*IFF=1ANDM=2THENLINE(40,174)-(100,182),11,BF

2050 REM*IFF=15ANDM=1THENLINE(40,174)-(76,182),15,BF

2060 REM*IFF=15ANDM=2THENLINE(40,174)-(100,182),15,BF

2070 IFM=1THENM$=W$(P(I))+" grande "ELSEM$=W$(P(I))+" pequeno":IFM<>1ANDP(I)=3ORP(I)=4ORP(I)=7ORP(I)=8THENM$=W$(P(I))+" pequena "

2080 REM* IFP(I)=3ORP(I)=4ORP(I)=9THENM$=RIGhT$(M$,LEN(M$)-2):DRAW"BM40,174C"+STR$(F)+"S8":GOTO2100

2090 DRAW"BM24,174C"+STR$(F)+"S8A0"

2100 GOSUB70

2110 RETURN

2120 U=112:V=122

2130 REM MOVE STAR

2140 IFF=1THENLINE(U,V)-(U+10,V+10),4,BFELSELINE(U,V)-(U+10,V+10),15,BF

2150 IFF=15THEN2210ELSEH$=INKEY$:PLAY"O4C"

2160 GOSUB3380

2170 H$="X":H$=INKEY$

2180 IFH$=CHR$(13)THEN2430ELSEIFH$=CHR$(28)ORH$=CHR$(29)THEN2200ELSEIFH$=" "THEN2190ELSE2170

2190 IFU=232ANDM=J THEN2250ELSEIFU=112ANDM<>J THEN2250ELSE2170

2200 F=15:GOTO2130

2210 IFH$=CHR$(28)ANDU=112THENU=232

2220 IFH$=CHR$(29)ANDU=232THENU=112

2230 IFH$=" "THENF=1:NEXTI:GOSUB3380:GOTO2260

2240 F=1:GOTO2140

2250 GOSUB1670:L=16+((I-1)*16):DRAW"BM"+STR$(L)+",4":GOSUB90:F=15:GOSUB1950:GOTO2130

2260 IN$=INKEY$:IFIN$=" "ORIN$=CHR$(13)THEN2430ELSE2260

2270 COLOR1,15,15:SCREEN2:GOSUB1210:GOTO2290

2280 DATApalet¢s,pul“veres,meias,cal‡as,chap‚us,casacos para frio,saias,camisetas,pijamas

2290 FORI=1TO9:F=1:GOSUB2330:GOSUB2610:GOSUB3380

2300 H$=INKEY$:IFH$=CHR$(13)THEN2430ELSEIFH$<>" "THEN2300

2310 CLS:NEXTI

2320 GOTO2430

2330 S=2:H=S/8:FORY=45TO135STEP45

2340 FORX=24TO190STEP83

2350 DRAW"BM"+STR$(X)+","+STR$(Y)+"A0S"+STR$(S)+"C"+STR$(F)

2360 ONP(I)GOSUB500,580,600,670,680,740,750,850,890

2370 NEXTX:NEXTY

2380 M$="v rios "+Z$(P(I)):GOSUB7000

2390 W=FNS(M$)

2400 DRAW"BM"+STR$(W)+",174C"+STR$(F)+"S8A0"

2410 GOSUB70:RETURN

2420 MX=30:MY=60

2430 REM** MUNU **

2440 COLOR1,15,15:SCREEN2:F=1:B=15:XX=0

2450 DRAW"BM70,18":M$="ROUPAS":GOSUB70:DRAW"BM50,60":M$="aprendendo palavras":GOSUB70:DRAW"BM50,80":M$="jogo de palavras":GOSUB70:DRAW"BM50,100":M$="grande e pequeno":GOSUB70:DRAW"BM50,120":M$="jogo grande - pequeno":GOSUB70:DRAW"BM50,140"

2451 M$="aprendendo Plural"

2452 REM*DRAW"BM70,18":M$="ROUPAS":GOSUB70:DRAW"BM50,60":M$="aprendendo palavras":GOSUB70:DRAW"BM50,80":M$="jogo de palavras":GOSUB70:DRAW"BM50,100":M$="big and little":GOSUB70:DRAW"BM50,120":M$="big-little game":GOSUB70:DRAW"BM50,140":M$="lots of":GOSUB

2460 GOSUB80: DRAW"BM50,160":M$="caixa pintada":GOSUB70

2470 GOSUB3390

2480 REM** MOVE CURSOR **

2490 LINE(MX,MY)-(MX+8,MY+8),4,BF

2500 IN$=INKEY$

2510 IFIN$=CHR$(30)THENIFMY>60THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY-20:GOTO2490

2520 IFIN$=CHR$(31)THENIFMY<160THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY+20:GOTO2490

2530 IFIN$<>" "THEN2500

2540 CL$="Y"

2550 IFMY=60THENTH=1:GOTO30

2560 IFMY=80THENCL$="N":GOTO910

2570 IFMY=100THENTH=2:GOTO30

2580 IFMY=120THENCL$="N":GOTO1760

2590 IFMY=140THENCL$="N":GOTO2270

2600 IFMY=160THEN2700

2610 PLAY"L4T255CDEFGFEDCDEFCR1"

2620 RETURN

2630 ON KEY GOSUB4110,4180,4250,4320,4390:RETURN

2640 KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON:KEY(5)ON

2650 RETURN

2660 C(1)=1:C(2)=2:C(3)=4:C(4)=8:C(5)=10

2670 FORJ=5TO1STEP-1:CS=FNR(J):AC(J)=C(CS):C(CS)=C(J):NEXTJ:AC=FNR(5)

2680 DD=FNR(5):IFDD=AC THEN2680ELSEAC(0)=AC(DD):RETURN

2690 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF:KEY(5)OFF:RETURN

2700 GOSUB2640:FC=1:SX=MX:SY=MY:MX=30:MY=60

2710 COLOR1,15,15:SCREEN2:F=1:WG%=0

2720 DRAW"BM70,18":F=2:M$="ROUPAS":GOSUB70:DRAW"BM50,60":F=1:M$="Aprendendo palavras":GOSUB70:DRAW"BM50,80":F=8:M$="Jogo de cores":GOSUB70:DRAW"BM50,100":F=10:M$="Jogo do grande ":GOSUB70:DRAW"BM50,120"

2730 LINE(MX,MY)-(MX+8,MY+8),4,BF

2740 GOSUB3380

2750 IN$=INKEY$

2760 IFIN$=CHR$(30)THENIFMY>60THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY-20:GOTO2730

2770 IFIN$=CHR$(31)THENIFMY<100THENLINE(MX,MY)-(MX+8,MY+8),15,BF:MY=MY+20:GOTO2730

2780 IFIN$<>" "ANDIN$<>CHR$(13)THEN2750

2790 IFIN$=CHR$(13)THENGOSUB2690:MY=SY:GOTO2430

2800 CL$="Y"

2810 IFMY=60THENTH=1:GOSUB2840:WG%=1:GOTO2860

2820 IFMY=80THENGOTO3230

2830 IFMY=100THENTH=2:GOSUB2840:GOTO2860

2840 GOSUB2640:GOSUB4030:LINE(0,14)-(255,191),15,BF:RETURN

2850 TH=TH+1

2860 Q=26

2870 KT=0:LINE(0,14)-(255,191),15,BF:X=0:MQ=10:TD%=0:GOSUB2690

2880 IF X=10THENPLAY"L4T180BC":GOSUB2640:GOTO2900ELSEX=X+1:M$=W$(X)

2890 MQ=MQ+16:A$="100,"+STR$(MQ):DRAW"BM"+A$:GOSUB80:GOTO2880

2900 LINE(80,Q)-(88,Q+8),4,BF

2910 GOSUB3380

2920 IN$=INKEY$:IFIN$=CHR$(31)THEN2930ELSEIFIN$=CHR$(30)THEN2950ELSEIFIN$=CHR$(32)THEN3000ELSEIFIN$=CHR$(13)THEN2710ELSE2920

2930 IFQ<=144THENV=16ELSEV=-128

2940 GOTO2960

2950 IFQ>=32THENV=-16ELSEV=128

2960 F=15:LINE(80,Q)-(88,Q+8),15,BF:GOSUB70

2970 Q=Q+V:COLOR FC:LINE(80,Q)-(88,Q+8),4,BF

2980 PLAY"O4C"

2990 IF PLAY(1)<>0THEN2990ELSEIN$="":GOTO2910

3000 LINE(0,14)-(255,191),15,BF:FC=FD:TD%=1:COLOR FC:GOSUB3020

3010 FC=FD:IN$=INKEY$:IFIN$=CHR$(32)THEN2870ELSEIFIN$=CHR$(13)THEN2710ELSE3010

3020 IN$="X"

3030 IFKT=0THENS=7:XC=40ELSES=4:XC=80

3040 X=XC:Y=120:G=1:E=2:R=4:H=S/8:DRAW"BM"+STR$(X)+",120C"+STR$(FC)+"A0S"+STR$(S)

3050 ON(Q-10)/16GOSUB3510,3560,3590,3620,3640,3660,3690,3720,3750

3060 PLAY"CO4E"

3070 IF TH>1THEN3080ELSEM$=W$((Q-10)/16):GOTO3120

3080 IF KT=0THENM$=" grande "ELSEIFKT=2THENM$=" pequeno ":IFKT<>0AND((Q-10)/16)=3OR((Q-10)/16)=4OR((Q-10)/16)=7OR((AQ-10/16)=8THENM$=" pequena "

3090 REM8 IF KT=2THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2)

3100 REM0 IF KT=0THENIF(Q-10)/16=3OR(Q-10)/16=4OR(Q-10)/16=9THENM$=RIGHT$(M$,LEN(M$)-2)

3110 W=FNS(M$)-15:DRAW"BM"+STR$(W)+",170":COLOR1:GOSUB80:COLOR1:M$=W$((Q-10)/16)

3120 IF FC=1THENM1$="preto "ELSEIFFC=2THENM1$="verde "ELSEIFFC=4THENM1$="azul "ELSEIF FC=8THENM1$="vermelho "ELSEM1$="amarelo "

3125 T$=M$+M1$:W=FNS(T$)

3130 IFTH>1THENT$=M$+M1$:W=FNS(T$):DRAW"BM"+STR$(W)+",180":GOSUB80 ELSET$=" "+M$+M1$:DRAW"BM"+STR$(W)+",180":COLOR1:M$=" ":GOSUB80:COLOR1:M$=W$((Q-10)/16):GOSUB80

3140 REM T$=M$+M1$:W=FNS(T$):DRAW"BM"+STR$(W)+",180":T$=M$:COLORFC:M$=M1$:GOSUB80:GOTO3160

3150 REM* T$=" "+M$+M1$:W=FNS(T$):DRAW"BM"+STR$(W)+",180":T$=M$:COLOR1:M$=" ":GOSUB80:COLORFC:M$=M1$:GOSUB80

3160 COLORFC:M$=" "+M1$:GOSUB5000:GOSUB80:COLORFC

3170 IFTH=1THEN3220

3180 KT=KT+1

3190 IFKT=1THEN3180ELSEIFKT=2THEN3210ELSE3220

3200 IN$=""

3210 IN$=INKEY$:IFIN$=""THEN3210ELSELINE(0,14)-(255,191),15,BF

3220 RETURN

3230 GOSUB2690:COLOR1,15,15:F=1:SCREEN2:GOSUB920

3240 FORI=1TO9:IC=0:GOSUB2660:FORY=50TO109STEP59:FORX=26TO180STEP77:GOSUB3350:NEXTX,Y

3250 IF AC(AC)=1THENM1$=" preta "ELSEIFAC(AC)=2THENM1$=" verde "ELSEIFAC(AC)=4THENM1$=" azul "ELSEIF AC(AC)=8THENM1$=" vermelha "ELSEM1$=" amarela "

3260 IF P(I)=3ORP(I)=4ORP(I)=7ORP(I)=8THENXX=1ELSEXX=0

3270 DRAW"BM24,174":IFXX=0THENM$=" ":COLOR1:GOSUB80

3280 M$=W$(P(I)):TC=AC(AC):COLOR 1:GOSUB80:COLORTC:M$=M1$:GOSUB6000:GOSUB80:E=1:U=76:V=56

3290 CG=1:GOSUB1390:CG=0:IFH$=CHR$(13)THEN2710

3300 IFAC<>E-1THEN3290ELSELINE(U,V)-(U+10,V+10),15,BF

3310 DRAW"S8C1":CG=1:GOSUB1640:CG=0

3320 FORY=14TO73STEP59:FORX=14TO168STEP77:LINE(X,Y)-(X+64,Y+38),15,BF:LINE(X,Y)-(X+58,Y+50),15,BF:NEXTX,Y

3330 LINE(0,174)-(255,191),15,BF:NEXTI

3340 GOSUB2640:FORI=1TO500:NEXTI:GOTO2710

3350 FC=AC(IC):IC=IC+1

3360 DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(FC)+"S2":COLOR FC:S=2:H=S/8:CL$="Y"

3370 ONP(I)GOSUB3770,3820,3850,3880,3900,3920,3950,3980,4010:RETURN

3380 IN$=INKEY$:IFIN$<>""THEN3380ELSERETURN

3390 PLAY"L4T255","L4T255","L4T255"

3400 '*** jingle bells ***

3410 PLAY"o6cr64ar64gr64fr64c","o5ar64o6cr64o5b-r64fr64a","o3fr64o4cr64fr64cr64o3f"

3420 PLAY"o5cr64f"

3430 PLAY"o6cr64cr64ar64gr64fr64d","o5ar64ao6r64co5r64b-r64ar64b-","O4CR64O3FR64O4CR64FR64CR64O3B-O4R64FR64B-R64F"

3440 PLAY"O6DR64B-R64AR64GR64ER64","O4B-R64O5DR64CR64O4B-R64B-","O3GR64O4DR64GR64DR64CR64GR64B-R64GR64"

3450 PLAY"O4CR64GR64O5CO4R64GO3R64FO4R64CR64FR64C","O7CR64CR64O6B-R64GR64AR64","O5ER64ER64ER64ER64F"

3460 PLAY"o6cr64ar64gr64fr64c","o5ar64o6cr64o5b-r64fr64a","o3fr64o4cr64fr64cr64o3f"

3470 PLAY"o5cr64f"

3480 PLAY"o6cr64cr64ar64gr64fr64d","o5ar64ao6r64co5r64b-r64ar64b-","O4CR64O3FR64O4CR64FR64CR64O3B-O4R64FR64B-R64F"

3490 PLAY"O6DR64B-R64AR64GR64O7CR64CR64CR64CR64DR64CR64O6B-R64GR64F","O5B-R64O6DR64CR64O5B-R64O6ER64ER64ER64ER64ER64ER64ER64ER64C","O3GO4R64DR64GR64DR64CR64GR64O5CR64CR64B-R64AR64GR64FR64CR64"

3500 RETURN

3510 REM COAT

3520 DRAW"BD10BR2M+6,-50M+4,-10E2M+6,-2R10E4R14F8D6G2F2M-12,+16U3M+8,-13U10H4L14G4D10M+8,+13D3M-12,-16E2H2U6E5"

3530 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD10BR2M+10,+2M+8,-52D54R18U4NR6U36BR6D40R18U54M+8,+52M+10,-2M-6,-50M-4,-10H2M-6,-2L10BM"+STR$(X+48*H)+","+STR$(Y+8*H)+"U12R10D12L10BR24U12R10D12L10"

3540 IFS=8ORCL$="Y"THEN3550ELSERETURN

3550 PAINT(X+12*H,Y),FC,FC:PAINT(X+148*H,Y),FC,FC:RETURN

3560 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D10L28BU50BR14NM+12,-30NM-12,-30U4NM+11,-27M-11,-27"

3570 CIRCLE(X+74*H,Y-92*H),22*H,FC,2*P,P

3580 PAINT(X+76*H,Y-40*H),FC,FC:PAINT(X+30*H,Y-80*H),FC,FC:PAINT(X+130*H,Y-80*H),FC,FC:RETURN

3590 DRAW"BM"+STR$(INT(X+20*H))+","+STR$(Y+40*H):GOSUB3610:DRAW"BM"+STR$(INT(X+100*H))+","+STR$(Y+40*H):GOSUB3610

3600 PAINT(X+24*H,Y+30*H),FC,FC:PAINT(X+104*H,Y+30*H),FC,FC:RETURN

3610 DRAW"BR2E18UEU44D12L2NU12L2NU12L2NU12L2NU12L2NU12L2U12NR10D42G14G2D4F3R3E2H6BR19BU15NE6F4":RETURN

3620 DRAW"BD20BR20M+2,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+2,+50L16M-2,-30M-6,-16M-6,+16M-2,+30L16"

3630 PAINT(X+64*H,Y),FC,FC:RETURN

3640 DRAW"BR14BU14M+10,-27BR40M+10,+27":CIRCLE(X+88*H,Y-30*H),60*H,FC,P,.1*P,.3:CIRCLE(X+88*H,Y-84*H),40*H,FC,,,.3:CIRCLE(X+88*H,Y-30*H),88*H,FC,.71*P,.3*P,.3

3650 PAINT(X+88*H,Y-7*H),FC,FC:PAINT(X+88*H,Y-84*H),FC,FC:RETURN

3660 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L18NU50L16U40M-7,+40"

3670 IFS=8ORCL$="Y"THEN3680ELSERETURN

3680 PAINT(X+80*H,Y-40*H),FC,FC:RETURN

3690 DRAW"BD20BR12BU6M+7,-59NR46U3R46D3M+7,+59M-9,+4NM-4,-44M-10,+1NM-1,-43L10NU43L9NM+1,-43M-12,-1NM+4,-44M-11,-4"

3700 PAINT(X+80*H,Y-40*H),FC,FC:IFFC=1THENTC=15ELSETC=1

3710 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD20BR12BU6C"+STR$(TC)+"BM+11,+4NM+4,-44BM+12,+1NM+1,-43BR9NU43BR10NM-1,-43BM+10,-1NM-4,-44C"+STR$(F):RETURN

3720 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L38"

3730 IF FC=1THENTC=15ELSETC=1

3740 PAINT(X+96*H,Y-50*H),FC,FC:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(TC)+"BD24BR52BU40U8M-4,+2M+4,+2M+4,-2M-4,-2C"+STR$(F):RETURN

3750 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(INT(X+16*H)+1)+","+STR$(INT(Y-36*H))+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-4,+26L26M-4,-26M-6,+24M-6,-2"

3760 PAINT(X+56*H,Y-74*H),FC,FC:PAINT(X+56*H,Y-12*H),FC,FC:RETURN

3770 REM COAT

3780 DRAW"BD10BR2M+6,-50M+4,-10E2M+6,-2R10E4R14F8D6G2F2M-12,+16U3M+8,-13U10H4L14G4D10M+8,+13D3M-12,-16E2H2U6E5"

3790 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD10BR2M+10,+2M+8,-52D54R18U4NR6U36BR6D40R18U54M+8,+52M+10,-2M-6,-50M-4,-10H2M-6,-2L10BM"+STR$(X+48*H)+","+STR$(Y+8*H)+"U12R10D12L10BR24U12R10D12L10"

3800 IFS=8ORCL$="Y"THEN3810ELSERETURN

3810 PAINT(X+12*H,Y),FC,FC:PAINT(X+148*H,Y),FC,FC:RETURN

3820 DRAW"BR24BD24U10M-6,-44F1NM+10,-20H2NM+11,-21M-14,+40M-8,-2M+2,-5NM+8,+2M+12,-47M+7,-8M+5,-3M+12,-2R8D4L6U4R8M+12,+2M+5,+3M+7,+8M+12,+47NM-8,+2M+2,+5M-8,+2M-14,-40G2NM-10,-20E2NM-11,-21G1M-6,+44D12L24BU52BR12NM+12,-28NM-12,-28U4NM+11,-25M-11,-25"

3830 CIRCLE(X+74*H,Y-92*H),22*H,FC,2*P,P

3840 PAINT(X+76*H,Y-40*H),FC,FC:PAINT(X+30*H,Y-80*H),FC,FC:PAINT(X+126*H,Y-80*H),FC,FC:RETURN

3850 DRAW"BM"+STR$(INT(X+20*H))+","+STR$(Y+40*H):GOSUB3870:DRAW"BM"+STR$(INT(X+100*H))+","+STR$(Y+40*H):GOSUB3870

3860 PAINT(X+24*H,Y+30*H),FC,FC:PAINT(X+104*H,Y+30*H),FC,FC:RETURN

3870 DRAW"BR2E18UEU44D12L2NU12L2NU12L2NU12L2NU12L2NU12L2U12NR10D42G14G2D4F4R5E4H7BR20BU15NE3F2":RETURN

3880 DRAW"BD20BR20M+0,-50M+4,-20F3M-4,+14G3M+4,-20L2NU4R22U4L4D4R22U4NL40D4L2M+4,+20H3M-4,-14E3M+4,+20M+0,+50L16M-0,-30M-6,-16M-6,+16M-0,+30L16"

3890 PAINT(X+64*H,Y),FC,FC:RETURN

3900 DRAW"BR14BU14M+10,-27BR40M+10,+27":CIRCLE(X+88*H,Y-30*H),60*H,FC,P,.1*P,.3:CIRCLE(X+88*H,Y-84*H),40*H,FC,,,.3:CIRCLE(X+88*H,Y-30*H),88*H,FC,.71*P,.3*P,.3

3910 PAINT(X+88*H,Y-7*H),FC,FC:PAINT(X+88*H,Y-84*H),FC,FC:RETURN

3920 DRAW"BD21BR5NM+8,+1M+7,-40M+3,-6E3M+8,-4R8U3F2H8U4E6R6F6D4G6D3G2L2U3R2E2D3E8U6H8L6G8D6F8BR6R8M+8,+4F3M+3,+6M+7,+40M-8,+1M-7,-40D40L16NU44L14U40M-7,+40"

3930 IFS=8ORCL$="Y"THEN3940ELSERETURN

3940 PAINT(X+80*H,Y-40*H),FC,FC:RETURN

3950 DRAW"BD20BR12BU6M+7,-59NR46U3R46D3M+7,+59M-9,+4NM-4,-44M-10,+1NM-1,-43L10NU43L9NM+1,-43M-12,-1NM+4,-44M-11,-4"

3960 PAINT(X+80*H,Y-40*H),FC,FC:TC=15

3970 DRAW"BM"+STR$(X)+","+STR$(Y)+"BD20BR12BU6C"+STR$(TC)+"BM+11,+4NM+4,-44BM+12,+1NM+1,-43BR9NU43BR10NM-1,-43BM+10,-1NM-4,-44C"+STR$(F):RETURN

3980 DRAW"BD24BR24M-2,-50G8NH10G2H10E16M+10,-6R6M+1,+2M+2,+2M+3,+2M+3,+1M+3,-1M+3,-2M+2,-2M+1,-2R6M+10,+6F16G10H2NE10H8M-2,+50L32"

3990 IF F=1THENTC=15ELSETC=1

4000 PAINT(X+96*H,Y-50*H),FC,FC:DRAW"BM"+STR$(X)+","+STR$(Y)+"C"+STR$(TC)+"BD24BR48BU40U8M-4,+2M+4,+2M+4,-2M-4,-2C"+STR$(F):RETURN

4010 DRAW"BD25BR16M+8,-36NR26U4R26D4M+8,+36M-8,+2M-13,-28M-13,+28M-8,-2BM"+STR$(X+16*H)+","+STR$(Y-36*H)+"M+8,-30M+12,-6M+1,+2M+2,+2M+3,+2M+4,+1M+4,-1M+3,-2M+2,-2M+1,-2M+12,+6M+8,+30M-6,+2M-6,-24M-2,+26L26M-2,-26M-6,+24M-6,-2"

4020 PAINT(X+56*H,Y-74*H),FC,FC:PAINT(X+56*H,Y-12*H),FC,FC:RETURN

4030 CLS

4040 LINE(8,0)-(48,12),1,BF:F=15:DRAW"BM16,2":M$="F1":GOSUB70

4050 LINE(58,0)-(98,12),8,BF:F=1:DRAW"BM66,2":M$="F2":GOSUB70

4060 LINE(108,0)-(148,12),4,BF:F=1:DRAW"BM116,2":M$="F3":GOSUB70

4070 LINE(158,0)-(198,12),2,BF:F=1:DRAW"BM166,2":M$="F4":GOSUB70

4080 LINE(208,0)-(248,12),10,BF:F=1:DRAW"BM216,2":M$="F5":GOSUB70

4090 DRAW"BM36,2":COLOR15:M$="*":GOSUB80:WG%=0:COLOR1:DRAW"C1":FD=1

4100 RETURN

4110 REM F1

4120 GOSUB4460

4130 FD=1

4140 DRAW"BM36,2":COLOR15:GOSUB80:COLOR FD

4150 IFWG%=1ANDTD%=1THENGOSUB4520

4160 IF TD%=0THENFC=FD

4170 RETURN

4180 REM F2

4190 GOSUB4460

4200 FD=8

4210 DRAW"BM86,2":COLOR1:GOSUB80:COLOR FD

4220 IFWG%=1ANDTD%=1THENGOSUB4520

4230 IF TD%=0THENFC=FD

4240 RETURN

4250 REM F3

4260 GOSUB4460

4270 FD=4

4280 DRAW"BM136,2":COLOR1:GOSUB80:COLOR FD

4290 IFWG%=1ANDTD%=1THENGOSUB4520

4300 IF TD%=0THENFC=FD

4310 RETURN

4320 REM F4

4330 GOSUB4460

4340 FD=2

4350 DRAW"BM186,2":COLOR1:GOSUB80:COLOR FD

4360 IFWG%=1ANDTD%=1THENGOSUB4520

4370 IF TD%=0THENFC=FD

4380 RETURN

4390 REM F5

4400 GOSUB4460

4410 FD=10

4420 DRAW"BM236,2":COLOR1:GOSUB80:COLOR FD

4430 IFWG%=1ANDTD%=1THENGOSUB4520

4440 IF TD%=0THENFC=FD

4450 RETURN

4460 IF FD=1THENCOLOR1:DRAW"BM36,2":M$="*":GOSUB80:RETURN

4470 IF FD=4THENCOLOR4:DRAW"BM136,2":M$="*":GOSUB80:RETURN

4480 IF FD=10THENCOLOR10:DRAW"BM236,2":M$="*":GOSUB80:RETURN

4490 IF FD=8THENCOLOR8:DRAW"BM86,2":M$="*":GOSUB80:RETURN

4500 IF FD=2THENCOLOR2:DRAW"BM186,2":M$="*":GOSUB80:RETURN

4510 RETURN

4520 LINE(0,14)-(255,191),15,BF:FC=FD:COLORFC:GOSUB3020:RETURN

4530 ONP(I)GOSUB500,550,600,640,680,710,750,800,860,840:RETURN

4540 ONP(I)GOSUB500,580,600,670,680,740,750,850,890,840:RETURN

5000 ON((Q-10)/16)GOSUB5010,5010,5020,5020,5010,5010,5020,5020,5010

5010 RETURN

5020 IFM$=" preto "THENM$=" preta ":RETURN

5030 IFM$=" amarelo "THENM$=" amarela ":RETURN

5040 IFM$=" vermelho "THENM$=" vermelha ":RETURN

6000 IFI>9THENGOTO6010ELSEONP(I)GOSUB6020,6020,6010,6010,6020,6020,6010,6010,6020

6010 RETURN

6020 IFM$=" preta "THENM$=" preto":RETURN

6030 IFM$=" vermelha "THENM$=" vermelho":RETURN

6040 IFM$=" amarela "THENM$=" amarelo":RETURN

7000 IFM$="v rios meias"THENM$="v rias meias ":RETURN

7010 IFM$="v rios cal‡as"THENM$="v rias cal‡as":RETURN

7020 IFM$="v rios saias"THENM$="v rias saias":RETURN

7030 IFM$="v rios camisetas"THENM$="v rias camisetas":RETURN

7040 RETURN

Compartilhe: