Aprendendo a Ler – Volume III
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 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 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 |
