SPRITE 1
FILE INFORMATION
FILENAME(S): SPRITE 1
FILE TYPE(S): PRG
FILE SIZE: 13.3K
FIRST SEEN: 2025-10-19 23:07:05
APPEARS ON: 1 disk(s)
FILE HASH
ce6e40dae0602bd87b6f616af5d9f895e70bc8bd13cd6ce480295289589bafd7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A31B | SPRITE 1 | PRG | Bugjam - Argentina | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 00 00 8F 22 14 14 14 14 14 14 48 4F |.. ...."......HO|
00000010: 52 41 20 53 4F 46 54 57 41 52 45 20 31 39 38 33 |RA SOFTWARE 1983|
00000020: 00 2D 08 01 00 8F 22 14 14 14 14 14 14 00 4A 08 |.-....".......J.|
00000030: 05 00 8F 20 53 41 56 45 22 53 50 52 49 54 45 2E |... SAVE"SPRITE.|
00000040: 31 2E 45 53 2E 4A 31 22 2C 38 00 71 08 E8 03 8D |1.ES.J1",8.q....|
00000050: 36 30 30 30 30 3A 99 22 93 20 20 20 20 20 20 20 |60000:.". |
00000060: 20 20 20 20 20 20 20 48 4F 52 44 41 43 20 36 34 | HORDAC 64|
00000070: 22 00 A0 08 E9 03 99 22 B0 C0 C0 C0 C0 C0 C0 C0 |"......"........|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 |..............."|
000000A0: 00 E4 08 EA 03 99 22 DD 20 12 9F 20 20 20 20 20 |......". .. |
000000B0: 20 20 20 20 20 20 20 53 50 52 49 54 45 20 20 31 | SPRITE 1|
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 05 92 | ..|
000000D0: 20 DD 22 3A 4D 53 24 B2 22 42 49 45 4E 56 45 4E | .":MS$."BIENVEN|
000000E0: 49 44 4F 22 00 1A 09 EB 03 99 22 AD C0 C0 C0 C0 |IDO"......".....|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 BD 22 3A 8D 36 33 31 30 30 00 4E 09 EC 03 81 |..":.63100.N....|
00000120: 49 B2 30 A4 36 32 3A 87 20 58 3A 97 38 33 32 AA |I.0.62:. X:.832.|
00000130: 49 2C 58 3A 82 3A 56 B2 35 33 32 34 38 3A 97 32 |I,X:.:V.53248:.2|
00000140: 30 34 30 2C 31 33 3A 97 56 AA 32 31 2C 31 00 94 |040,13:.V.21,1..|
00000150: 09 ED 03 97 56 AA 33 39 2C 31 3A 97 56 AA 31 2C |....V.39,1:.V.1,|
00000160: 31 30 30 3A 41 24 B2 22 13 11 11 11 11 11 11 11 |100:A$."........|
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 22 00 AF 09 EE 03 42 24 B2 22 45 53 54 | ".....B$."EST|
000001A0: 45 20 45 53 20 55 4E 20 53 50 52 49 54 45 22 00 |E ES UN SPRITE".|
000001B0: E1 09 EF 03 97 56 AA 33 39 2C 31 3A 97 56 AA 31 |.....V.39,1:.V.1|
000001C0: 2C 31 30 30 3A 81 58 B2 30 A4 32 35 35 A9 38 3A |,100:.X.0.255.8:|
000001D0: 97 56 2C 58 3A 99 C8 28 41 24 2C 38 AA 58 31 29 |.V,X:..(A$,8.X1)|
000001E0: 3B 00 14 0A F0 03 99 C9 28 42 24 2C 33 31 AB 58 |;.......(B$,31.X|
000001F0: 32 29 3A 58 32 B2 58 32 AB 28 58 32 B3 33 32 29 |2):X2.X2.(X2.32)|
00000200: 3A 58 31 B2 58 31 AA 31 3A 81 54 B2 31 A4 31 30 |:X1.X1.1:.T.1.10|
00000210: 3A 82 3A 82 00 43 0A F1 03 8D 36 33 30 30 30 3A |:.:..C....63000:|
00000220: 81 49 B2 30 A4 31 35 3A 97 56 AA 33 39 2C 49 3A |.I.0.15:.V.39,I:|
00000230: 81 54 B2 31 A4 35 30 3A 82 3A 82 3A 97 56 AA 32 |.T.1.50:.:.:.V.2|
00000240: 31 2C 30 00 85 0A F2 03 4D 53 24 B2 22 20 59 55 |1,0.....MS$." YU|
00000250: 4D 20 59 55 4D 22 3A 8D 36 33 31 30 30 3A 99 22 |M YUM":.63100:."|
00000260: 93 11 45 53 20 4D 55 59 20 46 41 43 49 4C 20 49 |..ES MUY FACIL I|
00000270: 4D 50 52 49 4D 49 52 20 20 38 20 27 53 50 52 49 |MPRIMIR 8 'SPRI|
00000280: 54 45 53 27 22 00 AD 0A FC 03 99 22 11 53 49 4D |TES'"......".SIM|
00000290: 55 4C 54 41 4E 45 41 4D 45 4E 54 45 20 45 4E 20 |ULTANEAMENTE EN |
000002A0: 4C 41 20 50 41 4E 54 41 4C 4C 41 2E 22 00 DA 0A |LA PANTALLA."...|
000002B0: 06 04 99 22 11 4C 4F 53 20 53 50 52 49 54 45 53 |...".LOS SPRITES|
000002C0: 20 53 45 52 41 4E 20 4E 55 4D 45 52 41 44 4F 53 | SERAN NUMERADOS|
000002D0: 20 30 2C 31 2C 2E 2E 37 2E 22 00 06 0B 10 04 99 | 0,1,..7."......|
000002E0: 22 11 45 4C 49 4A 41 20 55 4E 20 4E 55 4D 45 52 |".ELIJA UN NUMER|
000002F0: 4F 20 12 9E 28 44 45 20 30 20 41 20 37 29 92 05 |O ..(DE 0 A 7)..|
00000300: 20 59 20 55 4E 22 00 2E 0B 1A 04 99 22 11 55 4E | Y UN"......".UN|
00000310: 20 42 4C 4F 43 20 44 45 20 4D 45 4D 4F 52 49 41 | BLOC DE MEMORIA|
00000320: 20 50 41 52 41 20 47 55 41 52 44 41 52 22 00 53 | PARA GUARDAR".S|
00000330: 0B 24 04 99 22 11 4C 41 20 12 9F 27 46 4F 52 4D |.$..".LA ..'FORM|
00000340: 41 27 92 05 20 44 45 4C 20 53 50 52 49 54 45 20 |A'.. DEL SPRITE |
00000350: 4E 2E 22 00 76 0B 2E 04 4D 53 24 B2 22 30 31 32 |N.".v...MS$."012|
00000360: 33 34 35 36 2E 2E 37 22 3A 8D 36 33 31 30 30 3A |3456..7":.63100:|
00000370: 8D 36 33 30 30 30 00 A1 0B 38 04 99 22 93 55 4E |.63000...8..".UN|
00000380: 20 53 50 52 49 54 45 20 45 53 54 41 20 48 45 43 | SPRITE ESTA HEC|
00000390: 48 4F 20 44 45 20 55 4E 41 20 4D 41 54 52 49 5A |HO DE UNA MATRIZ|
000003A0: 22 00 D1 0B 42 04 99 22 44 45 20 12 9E 50 49 58 |"...B.."DE ..PIX|
000003B0: 45 4C 53 92 05 20 4F 20 12 9E 50 55 4E 54 4F 53 |ELS.. O ..PUNTOS|
000003C0: 05 92 20 45 4E 20 4C 41 20 50 41 4E 54 41 4C 4C |.. EN LA PANTALL|
000003D0: 41 00 FC 0B 4C 04 99 22 46 4F 52 4D 41 44 41 20 |A...L.."FORMADA |
000003E0: 44 45 20 9E 12 32 34 92 05 20 50 55 4E 54 4F 53 |DE ..24.. PUNTOS|
000003F0: 20 44 45 20 41 4E 43 48 4F 20 20 22 00 1B 0C 4D | DE ANCHO "...M|
00000400: 04 99 22 59 20 12 9E 32 31 92 05 20 50 55 4E 54 |.."Y ..21.. PUNT|
00000410: 4F 53 20 44 45 20 41 4C 54 4F 22 00 40 0C 56 04 |OS DE ALTO".@.V.|
00000420: 99 22 11 28 32 34 2A 32 31 3D 35 30 34 20 50 55 |.".(24*21=504 PU|
00000430: 4E 54 4F 53 20 45 4E 20 54 4F 54 41 4C 29 2E 22 |NTOS EN TOTAL)."|
00000440: 00 72 0C 5B 04 99 22 11 43 41 44 41 20 50 55 4E |.r.[..".CADA PUN|
00000450: 54 4F 20 50 55 45 44 45 20 41 50 41 52 45 43 45 |TO PUEDE APARECE|
00000460: 52 20 12 9E 50 52 45 4E 44 49 44 4F 92 05 2C 20 |R ..PRENDIDO.., |
00000470: 4F 22 00 A3 0C 60 04 99 22 45 53 54 41 52 20 12 |O"...`.."ESTAR .|
00000480: 9F 41 50 41 47 41 44 4F 92 05 2C 20 45 53 54 4F |.APAGADO.., ESTO|
00000490: 20 4C 4F 20 56 41 4D 4F 53 20 41 20 49 4E 44 49 | LO VAMOS A INDI|
000004A0: 43 41 52 00 C5 0C 65 04 99 22 43 4F 4E 20 55 4E |CAR...e.."CON UN|
000004B0: 20 27 31 27 20 28 50 41 52 41 20 50 52 45 4E 44 | '1' (PARA PREND|
000004C0: 49 44 4F 29 22 00 E8 0C 6A 04 99 22 4F 20 43 4F |IDO)"...j.."O CO|
000004D0: 4E 20 55 4E 20 27 30 27 20 28 50 41 52 41 20 41 |N UN '0' (PARA A|
000004E0: 50 41 47 41 44 4F 29 22 00 15 0D 74 04 99 22 11 |PAGADO)"...t..".|
000004F0: 50 4F 52 20 43 4F 4E 53 49 47 55 49 45 4E 54 45 |POR CONSIGUIENTE|
00000500: 20 53 45 20 50 55 45 44 45 20 47 55 41 52 44 41 | SE PUEDE GUARDA|
00000510: 52 20 4C 41 22 00 54 0D 7E 04 99 22 46 4F 52 4D |R LA".T.~.."FORM|
00000520: 41 20 44 45 20 55 4E 20 53 50 52 49 54 45 20 45 |A DE UN SPRITE E|
00000530: 4E 20 35 30 34 20 43 49 46 52 41 53 20 20 20 20 |N 504 CIFRAS |
00000540: 20 20 20 20 42 49 4E 41 52 49 41 53 20 28 42 49 | BINARIAS (BI|
00000550: 54 53 29 22 00 81 0D 88 04 99 22 11 43 4F 4D 4F |TS)"......".COMO|
00000560: 20 4E 4F 53 4F 54 52 4F 53 20 47 55 52 44 41 4D | NOSOTROS GURDAM|
00000570: 4F 53 20 4C 41 53 20 43 49 46 52 41 53 20 45 4E |OS LAS CIFRAS EN|
00000580: 22 00 A1 0D 8D 04 99 22 42 59 54 45 53 20 44 45 |"......"BYTES DE|
00000590: 42 45 4D 4F 53 20 45 46 45 43 54 55 41 52 20 4C |BEMOS EFECTUAR L|
000005A0: 41 00 CD 0D 92 04 99 22 53 49 47 55 49 45 4E 54 |A......"SIGUIENT|
000005B0: 45 20 44 49 56 49 53 49 4F 4E 3A 20 12 35 30 34 |E DIVISION: .504|
000005C0: 2F 38 3D 36 33 20 42 59 54 45 53 21 22 00 D8 0D |/8=63 BYTES!"...|
000005D0: 9C 04 8D 36 33 30 30 30 00 03 0E B0 04 99 22 93 |...63000......".|
000005E0: 52 45 53 45 52 56 41 52 45 4D 4F 53 20 12 36 33 |RESERVAREMOS .63|
000005F0: 92 20 42 59 54 45 53 20 44 45 20 4D 45 4D 4F 52 |. BYTES DE MEMOR|
00000600: 49 41 22 00 2B 0E BA 04 99 22 11 28 51 55 45 20 |IA".+....".(QUE |
00000610: 53 45 20 4C 4C 41 4D 41 52 41 4E 20 12 9E 27 42 |SE LLAMARAN ..'B|
00000620: 4C 4F 51 55 45 53 27 92 05 29 22 00 54 0E C4 04 |LOQUES'..)".T...|
00000630: 99 22 11 50 41 52 41 20 43 41 44 41 20 12 9E 27 |.".PARA CADA ..'|
00000640: 46 4F 52 4D 41 27 92 05 20 44 45 20 53 50 52 49 |FORMA'.. DE SPRI|
00000650: 54 45 2E 22 00 83 0E CE 04 99 22 11 53 49 20 55 |TE."......".SI U|
00000660: 53 54 45 44 20 4D 45 20 49 4E 44 49 43 41 20 45 |STED ME INDICA E|
00000670: 4C 20 4E 55 4D 45 52 4F 20 44 45 4C 20 42 4C 4F |L NUMERO DEL BLO|
00000680: 51 55 45 00 AE 0E D8 04 99 22 11 59 4F 20 53 41 |QUE......".YO SA|
00000690: 42 52 45 20 44 4F 4E 44 45 20 45 4E 43 4F 4E 54 |BRE DONDE ENCONT|
000006A0: 52 41 52 20 53 55 20 46 4F 52 4D 41 2E 22 00 DC |RAR SU FORMA."..|
000006B0: 0E EC 04 99 22 11 45 4A 45 4D 50 4C 4F 3A 20 53 |....".EJEMPLO: S|
000006C0: 49 20 55 53 54 45 44 20 45 53 43 52 49 42 45 20 |I USTED ESCRIBE |
000006D0: 12 42 4C 4F 51 55 45 20 39 30 92 22 00 08 0F F6 |.BLOQUE 90."....|
000006E0: 04 99 22 11 59 4F 20 49 52 45 20 48 41 43 49 41 |..".YO IRE HACIA|
000006F0: 20 45 4C 20 4C 55 47 41 52 20 44 45 20 4C 41 20 | EL LUGAR DE LA |
00000700: 4D 45 4D 4F 52 49 41 22 00 35 0F 00 05 99 22 11 |MEMORIA".5....".|
00000710: 12 9F 36 34 2A 39 30 3D 35 37 36 30 92 05 20 50 |..64*90=5760.. P|
00000720: 41 52 41 20 54 4F 4D 41 52 20 45 4C 20 50 52 49 |ARA TOMAR EL PRI|
00000730: 4D 45 52 4F 22 00 6C 0F 0A 05 99 22 11 44 45 20 |MERO".l....".DE |
00000740: 4C 4F 53 20 36 33 20 42 59 54 45 53 21 22 3A 4D |LOS 63 BYTES!":M|
00000750: 53 24 B2 22 36 33 20 51 55 45 20 3F 21 22 3A 8D |S$."63 QUE ?!":.|
00000760: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 9B 0F 14 |63100:.63000....|
00000770: 05 99 22 93 D1 50 41 52 41 20 4E 55 45 53 54 52 |.."..PARA NUESTR|
00000780: 4F 20 53 50 52 49 54 45 20 54 45 4E 45 4D 4F 53 |O SPRITE TENEMOS|
00000790: 20 51 55 45 20 45 4C 45 4A 49 52 00 BA 0F 1E 05 | QUE ELEJIR.....|
000007A0: 99 22 20 41 48 4F 52 41 20 55 4E 20 4E 55 4D 45 |." AHORA UN NUME|
000007B0: 52 4F 20 28 12 4E 92 29 20 59 00 DB 0F 23 05 99 |RO (.N.) Y...#..|
000007C0: 22 20 55 4E 20 4E 55 4D 45 52 4F 20 44 45 20 42 |" UN NUMERO DE B|
000007D0: 4C 4F 51 55 45 20 28 12 42 92 29 00 0F 10 28 05 |LOQUE (.B.)...(.|
000007E0: 99 22 11 D1 9E 12 54 4F 4D 45 20 4E 4F 54 41 05 |."....TOME NOTA.|
000007F0: 92 3A 4C 4F 53 20 42 4C 4F 51 55 45 53 20 20 42 |.:LOS BLOQUES B|
00000800: 3D 31 31 2C 31 33 2C 31 34 20 59 20 31 35 22 00 |=11,13,14 Y 15".|
00000810: 3C 10 32 05 99 22 20 53 4F 4E 20 27 41 4D 41 42 |<.2.." SON 'AMAB|
00000820: 4C 45 53 27 20 50 4F 52 51 55 45 20 4C 4F 53 20 |LES' PORQUE LOS |
00000830: 36 33 20 42 59 54 45 53 20 44 45 22 00 5C 10 3C |63 BYTES DE".\.<|
00000840: 05 99 22 20 4D 45 4D 4F 52 49 41 20 51 55 45 20 |.." MEMORIA QUE |
00000850: 43 4F 4D 49 45 4E 5A 41 4E 20 45 4E 00 90 10 46 |COMIENZAN EN...F|
00000860: 05 99 22 11 20 36 34 2A 31 31 3D 12 37 30 34 92 |..". 64*11=.704.|
00000870: 22 3A 99 22 20 36 34 2A 31 33 3D 12 38 33 32 92 |":." 64*13=.832.|
00000880: 22 3A 99 22 20 36 34 2A 31 34 3D 12 38 39 36 22 |":." 64*14=.896"|
00000890: 00 CB 10 50 05 99 22 20 36 34 2A 31 35 3D 12 39 |...P.." 64*15=.9|
000008A0: 36 30 92 20 22 3A 99 22 11 45 53 54 41 4E 20 44 |60. ":.".ESTAN D|
000008B0: 49 53 50 4F 4E 49 42 4C 45 53 20 50 41 52 41 20 |ISPONIBLES PARA |
000008C0: 4C 4F 53 20 53 50 52 49 54 45 53 00 F0 10 5A 05 |LOS SPRITES...Z.|
000008D0: 99 22 20 28 4D 45 4A 4F 52 20 44 49 43 48 4F 20 |." (MEJOR DICHO |
000008E0: 9E 12 52 45 53 45 52 56 41 44 4F 53 92 05 29 22 |..RESERVADOS..)"|
000008F0: 00 21 11 64 05 99 22 11 D1 50 4F 52 20 4C 4F 20 |.!.d.."..POR LO |
00000900: 54 41 4E 54 4F 20 44 45 42 45 52 41 20 55 44 2E |TANTO DEBERA UD.|
00000910: 20 12 50 4F 4B 41 92 52 20 4C 4F 53 20 12 30 92 | .POKA.R LOS .0.|
00000920: 22 00 41 11 6E 05 99 22 20 59 20 4C 4F 53 20 12 |".A.n.." Y LOS .|
00000930: 31 92 20 45 4E 20 45 4C 20 42 4C 4F 51 55 45 2E |1. EN EL BLOQUE.|
00000940: 22 00 7A 11 73 05 99 22 11 12 9E 31 30 30 20 46 |".z.s.."...100 F|
00000950: 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 |ORI=0TO62:READ X|
00000960: 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E 45 |:POKE64*B+I,X:NE|
00000970: 58 54 22 3A 8D 36 33 30 30 30 00 9D 11 78 05 99 |XT":.63000...x..|
00000980: 22 93 52 45 50 45 54 49 52 45 4D 4F 53 20 45 53 |".REPETIREMOS ES|
00000990: 54 4F 20 44 45 20 4E 55 45 56 4F 3A 22 00 CE 11 |TO DE NUEVO:"...|
000009A0: 82 05 99 22 11 12 31 30 30 20 46 4F 52 49 3D 30 |..."..100 FORI=0|
000009B0: 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B 45 |TO62:READ X:POKE|
000009C0: 36 34 2A 42 2B 49 2C 58 3A 4E 45 58 54 22 00 FB |64*B+I,X:NEXT"..|
000009D0: 11 8C 05 99 22 11 05 41 48 4F 52 41 20 4C 45 20 |...."..AHORA LE |
000009E0: 44 49 52 45 4D 4F 53 20 41 4C 20 43 2D 36 34 20 |DIREMOS AL C-64 |
000009F0: 44 4F 4E 44 45 20 54 49 45 4E 45 00 2C 12 96 05 |DONDE TIENE.,...|
00000A00: 99 22 11 51 55 45 20 49 52 20 41 1D 12 9E 42 55 |.".QUE IR A...BU|
00000A10: 53 43 41 52 92 05 20 4C 41 20 46 4F 52 4D 41 20 |SCAR.. LA FORMA |
00000A20: 44 45 4C 20 53 50 52 49 54 45 3A 22 00 5C 12 A0 |DEL SPRITE:".\..|
00000A30: 05 99 22 11 11 D1 50 41 52 41 20 45 4C 20 53 50 |.."...PARA EL SP|
00000A40: 52 49 54 45 20 12 4E 92 2C 20 48 41 59 20 51 55 |RITE .N., HAY QU|
00000A50: 45 20 45 53 43 52 49 42 49 52 3A 22 00 8A 12 AA |E ESCRIBIR:"....|
00000A60: 05 99 22 11 20 12 20 31 31 30 20 50 4F 4B 45 20 |..". . 110 POKE |
00000A70: 32 30 34 30 2B 4E 2C 42 92 3A 52 45 4D 20 42 3D |2040+N,B.:REM B=|
00000A80: 42 4C 4F 51 55 45 20 23 2E 22 00 B9 12 B4 05 99 |BLOQUE #."......|
00000A90: 22 11 11 11 D1 4C 41 53 20 4F 43 48 4F 20 44 49 |"....LAS OCHO DI|
00000AA0: 52 45 43 43 49 4F 4E 45 53 20 51 55 45 20 56 41 |RECCIONES QUE VA|
00000AB0: 4E 20 44 45 20 32 30 34 30 00 DF 12 BE 05 99 22 |N DE 2040......"|
00000AC0: 20 41 20 32 30 34 37 20 43 4F 4E 54 49 45 4E 45 | A 2047 CONTIENE|
00000AD0: 4E 20 45 4C 20 4E 55 4D 45 52 4F 20 44 45 4C 00 |N EL NUMERO DEL.|
00000AE0: 16 13 C8 05 99 22 20 42 4C 4F 51 55 45 20 41 20 |....." BLOQUE A |
00000AF0: 42 55 53 43 41 52 22 3A 4D 53 24 B2 22 20 20 12 |BUSCAR":MS$." .|
00000B00: 32 30 34 30 2B 4E 92 22 3A 8D 36 33 31 30 30 3A |2040+N.":.63100:|
00000B10: 8D 36 33 30 30 30 00 43 13 CD 05 99 22 93 45 53 |.63000.C....".ES|
00000B20: 54 4F 59 20 53 45 47 55 52 4F 20 51 55 45 20 41 |TOY SEGURO QUE A|
00000B30: 48 4F 52 41 20 55 53 54 45 44 20 44 45 53 45 41 |HORA USTED DESEA|
00000B40: 52 41 22 00 6D 13 CE 05 99 22 11 45 58 48 49 42 |RA".m....".EXHIB|
00000B50: 49 52 20 45 4C 20 53 50 52 49 54 45 20 45 4E 20 |IR EL SPRITE EN |
00000B60: 4C 41 20 50 41 4E 54 41 4C 4C 41 2C 22 00 92 13 |LA PANTALLA,"...|
00000B70: CF 05 99 22 11 44 41 52 4C 45 20 55 4E 20 4C 49 |...".DARLE UN LI|
00000B80: 4E 44 4F 20 43 4F 4C 4F 52 2C 20 4D 4F 56 45 52 |NDO COLOR, MOVER|
00000B90: 4C 4F 00 BB 13 D0 05 99 22 11 41 20 54 52 41 56 |LO......".A TRAV|
00000BA0: 45 53 20 44 45 20 4C 41 20 50 41 4E 54 41 4C 4C |ES DE LA PANTALL|
00000BB0: 41 2C 20 48 41 43 45 52 4C 4F 22 00 E2 13 D1 05 |A, HACERLO".....|
00000BC0: 99 22 11 4D 41 53 20 47 52 41 4E 44 45 20 4F 20 |.".MAS GRANDE O |
00000BD0: 4D 41 53 20 43 48 49 51 55 49 54 49 54 4F 2E 2E |MAS CHIQUITITO..|
00000BE0: 2E 22 00 F5 13 D2 05 99 22 11 59 20 4D 55 43 48 |."......".Y MUCH|
00000BF0: 4F 20 4D 41 53 00 32 14 D4 05 99 22 11 11 54 4F |O MAS.2...."..TO|
00000C00: 44 4F 20 45 53 54 4F 20 45 53 20 50 4F 53 49 42 |DO ESTO ES POSIB|
00000C10: 4C 45 20 47 52 41 43 49 41 53 20 41 22 3A 99 22 |LE GRACIAS A":."|
00000C20: 11 4C 41 20 27 50 55 4C 47 41 27 20 56 49 44 45 |.LA 'PULGA' VIDE|
00000C30: 4F 22 00 6C 14 D7 05 99 22 11 4C 41 20 12 9E 43 |O".l....".LA ..C|
00000C40: 48 49 50 20 56 49 44 45 4F 05 92 21 22 3A 4D 53 |HIP VIDEO..!":MS|
00000C50: 24 B2 22 4E 49 43 45 20 43 48 49 50 21 22 3A 8D |$."NICE CHIP!":.|
00000C60: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 85 14 DC |63100:.63000....|
00000C70: 05 99 22 93 12 20 20 4C 41 20 43 48 49 50 20 56 |..".. LA CHIP V|
00000C80: 49 44 45 4F 22 00 B0 14 DD 05 99 22 11 45 53 54 |IDEO"......".EST|
00000C90: 41 20 53 45 58 59 20 43 48 49 50 20 54 49 45 4E |A SEXY CHIP TIEN|
00000CA0: 45 20 34 37 20 44 49 52 45 43 43 49 4F 4E 45 53 |E 47 DIRECCIONES|
00000CB0: 00 DC 14 DE 05 99 22 11 44 45 20 4D 45 4D 4F 52 |......".DE MEMOR|
00000CC0: 49 41 20 49 4E 54 45 52 4E 41 20 4F 20 12 9E 52 |IA INTERNA O ..R|
00000CD0: 45 47 49 53 54 52 4F 53 05 92 2E 22 00 0E 15 E1 |EGISTROS..."....|
00000CE0: 05 99 22 11 51 55 45 20 43 4F 4D 49 45 4E 5A 41 |..".QUE COMIENZA|
00000CF0: 4E 20 45 4E 20 12 9F 24 44 30 30 30 05 92 20 45 |N EN ..$D000.. E|
00000D00: 4E 20 48 45 58 41 44 45 43 49 4D 41 4C 22 00 2D |N HEXADECIMAL".-|
00000D10: 15 E6 05 99 22 11 4F 20 12 9E 35 33 32 34 38 05 |....".O ..53248.|
00000D20: 92 20 45 4E 20 44 45 43 49 4D 41 4C 22 00 55 15 |. EN DECIMAL".U.|
00000D30: F0 05 99 22 11 45 4E 20 4E 55 45 53 54 52 4F 20 |...".EN NUESTRO |
00000D40: 50 52 4F 47 52 41 4D 41 20 44 45 46 49 4E 49 52 |PROGRAMA DEFINIR|
00000D50: 45 4D 4F 53 22 00 87 15 FA 05 99 22 11 12 9E 31 |EMOS"......"...1|
00000D60: 32 30 20 56 3D 35 33 32 34 38 3A 52 45 4D 20 50 |20 V=53248:REM P|
00000D70: 52 49 4E 43 49 50 49 4F 20 44 45 20 43 48 49 50 |RINCIPIO DE CHIP|
00000D80: 20 56 49 44 45 4F 22 00 AE 15 04 06 99 22 11 05 | VIDEO"......"..|
00000D90: 50 41 52 41 20 27 41 43 54 49 56 41 52 27 20 45 |PARA 'ACTIVAR' E|
00000DA0: 4C 20 53 50 52 49 54 45 20 23 20 4E 3A 22 00 CA |L SPRITE # N:"..|
00000DB0: 15 0E 06 99 22 11 12 9F 31 33 30 20 50 4F 4B 45 |...."...130 POKE|
00000DC0: 20 56 2B 32 31 2C 32 5E 4E 22 00 FB 15 18 06 99 | V+21,2^N"......|
00000DD0: 22 11 05 51 55 45 20 2E 2E 2E 45 53 20 32 20 45 |"..QUE ...ES 2 E|
00000DE0: 4C 45 56 41 44 4F 22 3A 99 22 11 41 20 4C 41 20 |LEVADO":.".A LA |
00000DF0: 50 4F 54 45 4E 43 49 41 20 4E 22 00 1E 16 19 06 |POTENCIA N".....|
00000E00: 4D 53 24 B2 22 45 4E 43 45 4E 44 45 52 3F 3F 22 |MS$."ENCENDER??"|
00000E10: 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 46 |:.63100:.63000.F|
00000E20: 16 1D 06 99 22 93 41 51 55 49 20 54 41 4D 42 49 |....".AQUI TAMBI|
00000E30: 45 4E 20 45 4C 20 32 31 20 48 41 43 45 20 45 4C |EN EL 21 HACE EL|
00000E40: 20 4A 55 45 47 4F 00 71 16 21 06 99 22 11 11 45 | JUEGO.q.!.."..E|
00000E50: 4C 20 42 59 54 45 20 51 55 45 20 45 53 54 41 20 |L BYTE QUE ESTA |
00000E60: 45 4E 20 12 9E 56 2B 32 31 92 05 20 54 49 45 4E |EN ..V+21.. TIEN|
00000E70: 45 00 88 16 22 06 99 22 11 54 41 4D 42 49 45 4E |E..."..".TAMBIEN|
00000E80: 20 38 20 42 49 54 53 2E 00 B5 16 23 06 99 22 11 | 8 BITS....#..".|
00000E90: 41 20 43 41 44 41 20 42 49 54 20 4C 45 20 43 4F |A CADA BIT LE CO|
00000EA0: 52 52 45 53 50 4F 4E 44 45 20 55 4E 20 53 50 52 |RRESPONDE UN SPR|
00000EB0: 49 54 45 2E 22 00 DF 16 24 06 99 22 11 50 41 52 |ITE."...$..".PAR|
00000EC0: 41 20 48 41 43 45 52 20 41 50 41 52 41 43 45 52 |A HACER APARACER|
00000ED0: 20 45 4C 20 53 50 52 49 54 45 20 23 20 35 22 00 | EL SPRITE # 5".|
00000EE0: 08 17 27 06 99 22 11 48 41 59 20 51 55 45 20 12 |..'..".HAY QUE .|
00000EF0: 9F 45 4E 43 45 4E 44 45 52 92 05 20 45 4C 20 42 |.ENCENDER.. EL B|
00000F00: 49 54 20 23 20 35 2E 22 00 1E 17 28 06 99 22 11 |IT # 5."...(..".|
00000F10: 43 4F 4D 4F 20 48 41 43 45 52 4C 4F 3F 22 00 42 |COMO HACERLO?".B|
00000F20: 17 2A 06 99 22 11 53 4F 4C 41 4D 45 4E 54 45 3A |.*..".SOLAMENTE:|
00000F30: 20 12 9E 50 4F 4B 45 20 56 2B 32 31 2C 33 32 05 | ..POKE V+21,32.|
00000F40: 92 22 00 73 17 2C 06 99 22 11 54 4F 4D 45 20 4E |.".s.,..".TOME N|
00000F50: 4F 54 41 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 90 B8 B8 |OTA.............|
00000F60: B8 B8 B8 B8 B8 B8 B8 91 05 3A 20 20 32 5E 35 3D |.........: 2^5=|
00000F70: 33 32 22 00 95 17 2D 06 4D 53 24 B2 22 20 30 30 |32"...-.MS$." 00|
00000F80: 31 30 30 30 30 30 22 3A 8D 36 33 31 30 30 3A 8D |100000":.63100:.|
00000F90: 36 33 30 30 30 00 C2 17 36 06 99 22 93 47 45 4E |63000...6..".GEN|
00000FA0: 45 52 41 4C 49 5A 41 4E 44 4F 20 53 45 20 50 55 |ERALIZANDO SE PU|
00000FB0: 45 44 45 20 44 45 43 49 52 20 51 55 45 20 50 41 |EDE DECIR QUE PA|
00000FC0: 52 41 00 F7 17 38 06 99 22 11 50 41 52 41 20 9E |RA...8..".PARA .|
00000FD0: 12 41 43 54 49 56 41 52 05 92 20 45 4C 20 53 50 |.ACTIVAR.. EL SP|
00000FE0: 52 49 54 45 20 23 20 4E 20 48 41 59 20 51 55 45 |RITE # N HAY QUE|
00000FF0: 20 48 41 43 45 52 22 00 12 18 3B 06 99 22 12 9F | HACER"...;.."..|
00001000: 31 33 30 20 50 4F 4B 45 56 2B 32 31 2C 32 5E 4E |130 POKEV+21,2^N|
00001010: 05 22 00 40 18 3C 06 99 22 11 28 55 53 54 45 44 |.".@.<..".(USTED|
00001020: 20 53 45 20 53 4F 52 50 52 45 4E 44 45 52 41 20 | SE SORPRENDERA |
00001030: 41 4C 20 43 4F 4D 50 52 4F 42 41 52 20 51 55 45 |AL COMPROBAR QUE|
00001040: 00 6E 18 4A 06 99 22 4C 4F 53 20 4F 54 52 4F 53 |.n.J.."LOS OTROS|
00001050: 20 53 50 52 49 54 45 53 20 48 41 4E 20 9F 44 45 | SPRITES HAN .DE|
00001060: 53 41 50 41 52 45 43 49 44 4F 21 05 29 22 00 9C |SAPARECIDO!.)"..|
00001070: 18 54 06 99 22 11 D1 53 49 20 55 53 54 45 44 20 |.T.."..SI USTED |
00001080: 51 55 49 45 52 45 20 45 4E 43 45 4E 44 45 52 20 |QUIERE ENCENDER |
00001090: 41 20 4C 41 20 56 45 5A 20 4C 4F 53 00 C0 18 5E |A LA VEZ LOS...^|
000010A0: 06 99 22 20 53 50 52 49 54 45 53 20 23 31 2C 20 |.." SPRITES #1, |
000010B0: 23 33 20 59 20 23 37 20 45 53 43 52 49 42 41 3A |#3 Y #7 ESCRIBA:|
000010C0: 00 DC 18 68 06 99 22 11 9E 50 4F 4B 45 56 2B 32 |...h.."..POKEV+2|
000010D0: 31 2C 31 2B 38 2B 31 32 38 92 05 22 00 06 19 72 |1,1+8+128.."...r|
000010E0: 06 99 22 11 4E 4F 54 41 3A 32 5E 30 2B 32 5E 33 |..".NOTA:2^0+2^3|
000010F0: 2B 32 5E 37 3D 31 2B 38 2B 31 32 38 20 28 4C 49 |+2^7=1+8+128 (LI|
00001100: 4E 44 4F 21 29 22 00 34 19 7C 06 99 22 11 59 20 |NDO!)".4.|..".Y |
00001110: 50 41 52 41 20 9E 12 45 4E 43 45 4E 44 45 52 20 |PARA ..ENCENDER |
00001120: 54 4F 54 4F 53 20 4C 4F 53 20 53 50 52 49 54 45 |TOTOS LOS SPRITE|
00001130: 53 05 92 3A 00 68 19 86 06 99 22 11 12 50 4F 4B |S..:.h...."..POK|
00001140: 45 56 2B 32 31 2C 32 35 35 22 3A 4D 53 24 B2 22 |EV+21,255":MS$."|
00001150: 20 31 30 30 30 31 30 30 31 22 3A 8D 36 33 31 30 | 10001001":.6310|
00001160: 30 3A 8D 36 33 30 30 30 00 85 19 A4 06 99 22 93 |0:.63000......".|
00001170: 48 41 53 54 41 20 41 48 4F 52 41 20 54 45 4E 45 |HASTA AHORA TENE|
00001180: 4D 4F 53 3A 22 00 B6 19 AE 06 99 22 11 12 31 30 |MOS:"......"..10|
00001190: 30 20 46 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 |0 FORI=0TO62:REA|
000011A0: 44 20 58 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 |D X:POKE64*B+I,X|
000011B0: 3A 4E 45 58 54 22 00 E6 19 B8 06 99 22 12 31 31 |:NEXT"......".11|
000011C0: 30 20 50 4F 4B 45 32 30 34 30 2B 4E 2C 42 3A 52 |0 POKE2040+N,B:R|
000011D0: 45 4D 20 4C 55 47 41 52 20 44 45 20 4C 41 20 46 |EM LUGAR DE LA F|
000011E0: 4F 52 4D 41 20 22 00 16 1A C2 06 99 22 12 31 32 |ORMA "......".12|
000011F0: 30 20 56 3D 35 33 32 34 38 3A 20 20 20 52 45 4D |0 V=53248: REM|
00001200: 20 50 52 49 4E 43 49 50 49 4F 20 43 48 49 50 20 | PRINCIPIO CHIP |
00001210: 56 49 44 45 4F 22 00 46 1A CC 06 99 22 12 31 33 |VIDEO".F....".13|
00001220: 30 20 50 4F 4B 45 56 2B 32 31 2C 32 5E 4E 3A 52 |0 POKEV+21,2^N:R|
00001230: 45 4D 20 41 43 54 49 56 45 20 45 4C 20 53 50 52 |EM ACTIVE EL SPR|
00001240: 49 54 45 20 20 22 00 73 1A D6 06 99 22 11 2E 2E |ITE ".s...."...|
00001250: 59 20 45 4C 20 53 50 52 49 54 45 20 23 20 4E 20 |Y EL SPRITE # N |
00001260: 45 53 54 41 20 45 4E 20 4C 41 20 50 41 4E 54 41 |ESTA EN LA PANTA|
00001270: 4C 4C 41 00 9A 1A E0 06 99 22 11 50 45 52 4F 2E |LLA......".PERO.|
00001280: 2E 2E 12 9E 20 44 45 20 51 55 45 20 43 4F 4C 4F |.... DE QUE COLO|
00001290: 52 20 3F 21 2A 2B 21 92 05 22 00 C6 1A EA 06 99 |R ?!*+!.."......|
000012A0: 22 11 48 41 59 20 55 4E 41 20 45 4C 45 43 43 49 |".HAY UNA ELECCI|
000012B0: 4F 4E 20 44 45 12 9F 20 31 36 20 43 4F 4C 4F 52 |ON DE.. 16 COLOR|
000012C0: 45 53 2E 92 05 22 00 E6 1A F4 06 99 22 11 4E 55 |ES..."......".NU|
000012D0: 4D 45 52 41 44 4F 53 3A 20 30 2C 31 2C 32 2C 2E |MERADOS: 0,1,2,.|
000012E0: 2E 2E 31 35 2E 22 00 12 1B FE 06 99 22 11 50 41 |..15."......".PA|
000012F0: 52 41 20 43 4F 4C 4F 52 45 41 52 20 45 4C 20 53 |RA COLOREAR EL S|
00001300: 50 52 49 54 45 20 23 20 4E 20 20 44 45 20 52 4F |PRITE # N DE RO|
00001310: 53 41 00 3C 1B 08 07 99 22 11 28 43 4F 4C 4F 52 |SA.<....".(COLOR|
00001320: 20 23 20 31 30 29 20 4E 4F 53 20 44 49 52 49 47 | # 10) NOS DIRIG|
00001330: 49 52 45 4D 4F 53 20 48 41 43 49 41 00 64 1B 12 |IREMOS HACIA.d..|
00001340: 07 99 22 11 4F 54 52 4F 20 52 45 47 49 53 54 52 |..".OTRO REGISTR|
00001350: 4F 20 45 4E 20 4C 41 20 43 48 49 50 20 56 49 44 |O EN LA CHIP VID|
00001360: 45 4F 2E 22 00 9F 1B 1C 07 99 22 11 12 9E 50 4F |EO."......"...PO|
00001370: 4B 45 56 2B 33 39 2B 4E 2C 31 30 05 92 3A 20 45 |KEV+39+N,10..: E|
00001380: 4C 20 53 50 52 49 54 45 20 23 20 4E 20 45 53 54 |L SPRITE # N EST|
00001390: 41 20 52 4F 53 41 21 22 3A 8D 36 33 30 30 30 00 |A ROSA!":.63000.|
000013A0: CB 1B 44 07 99 22 93 59 20 41 48 4F 52 41 20 2E |..D..".Y AHORA .|
000013B0: 2E 2E 45 4E 20 51 55 45 20 4C 55 47 41 52 20 45 |..EN QUE LUGAR E|
000013C0: 58 48 49 42 49 52 45 4D 4F 53 22 00 EC 1B 4E 07 |XHIBIREMOS"...N.|
000013D0: 99 22 45 4C 20 53 50 52 49 54 45 20 45 4E 20 4C |."EL SPRITE EN L|
000013E0: 41 20 50 41 4E 54 41 4C 4C 41 3F 22 00 18 1C 58 |A PANTALLA?"...X|
000013F0: 07 99 22 11 45 4C 20 43 2D 36 34 20 54 49 45 4E |..".EL C-64 TIEN|
00001400: 45 20 34 30 20 43 4F 4C 55 4D 4E 41 53 2C 20 43 |E 40 COLUMNAS, C|
00001410: 41 44 41 20 55 4E 41 22 00 47 1C 62 07 99 22 43 |ADA UNA".G.b.."C|
00001420: 4F 4E 54 49 45 4E 45 20 38 20 27 50 55 4E 54 4F |ONTIENE 8 'PUNTO|
00001430: 53 27 2C 20 4C 4F 20 51 55 45 20 52 45 50 52 45 |S', LO QUE REPRE|
00001440: 53 45 4E 54 41 3A 22 00 70 1C 63 07 99 22 9F 12 |SENTA:".p.c.."..|
00001450: 34 30 2A 38 3D 33 32 30 92 05 20 50 55 4E 54 4F |40*8=320.. PUNTO|
00001460: 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 45 53 2E 22 |S HORIZONTALES."|
00001470: 00 9B 1C 64 07 99 22 11 50 4F 52 20 4C 4F 20 54 |...d..".POR LO T|
00001480: 41 4E 54 4F 20 50 4F 44 52 45 4D 4F 53 20 9F 12 |ANTO PODREMOS ..|
00001490: 50 4F 53 49 43 49 4F 4E 41 52 22 00 C6 1C 6C 07 |POSICIONAR"...l.|
000014A0: 99 22 4E 55 45 53 54 52 4F 20 53 50 52 49 54 45 |."NUESTRO SPRITE|
000014B0: 20 4E 20 45 4E 20 43 41 44 41 20 55 4E 41 20 44 | N EN CADA UNA D|
000014C0: 45 20 4C 41 53 22 00 E3 1C 76 07 99 22 33 32 30 |E LAS"...v.."320|
000014D0: 20 50 4F 53 49 43 49 4F 4E 45 53 2D 12 9F 58 92 | POSICIONES-..X.|
000014E0: 05 2E 22 00 14 1D 80 07 99 22 11 11 45 4C 20 43 |.."......"..EL C|
000014F0: 36 34 20 54 49 45 4E 45 20 54 41 4D 42 49 45 4E |64 TIENE TAMBIEN|
00001500: 20 32 35 20 4C 49 4E 45 41 53 20 43 41 44 41 20 | 25 LINEAS CADA |
00001510: 55 4E 41 22 00 41 1D 8A 07 99 22 43 4F 4E 20 38 |UNA".A...."CON 8|
00001520: 20 50 55 4E 54 4F 53 20 44 45 20 41 4C 54 4F 20 | PUNTOS DE ALTO |
00001530: 4C 4F 20 51 55 45 20 52 45 50 52 45 53 45 4E 54 |LO QUE REPRESENT|
00001540: 41 00 6B 1D 8B 07 99 22 12 9F 32 35 2A 38 3D 32 |A.k...."..25*8=2|
00001550: 30 30 92 05 20 50 55 4E 54 4F 53 20 56 45 52 54 |00.. PUNTOS VERT|
00001560: 49 43 41 4C 45 4D 45 4E 54 45 22 00 93 1D 94 07 |ICALEMENTE".....|
00001570: 99 22 11 4C 55 45 47 4F 2C 20 50 4F 44 52 45 4D |.".LUEGO, PODREM|
00001580: 4F 53 20 43 4F 4C 4F 43 41 52 20 4E 55 45 53 54 |OS COLOCAR NUEST|
00001590: 52 4F 22 00 BA 1D 9E 07 99 22 53 50 52 49 54 45 |RO"......"SPRITE|
000015A0: 20 4E 20 45 4E 20 43 41 44 41 20 55 4E 41 20 44 | N EN CADA UNA D|
000015B0: 45 20 4C 41 53 20 32 30 30 22 00 E2 1D A0 07 99 |E LAS 200"......|
000015C0: 22 50 4F 53 49 43 49 4F 4E 45 53 2D 12 9F 59 92 |"POSICIONES-..Y.|
000015D0: 05 20 50 4F 53 49 42 4C 45 53 22 3A 8D 36 33 30 |. POSIBLES":.630|
000015E0: 30 30 00 0F 1E B2 07 99 22 93 59 20 51 55 49 45 |00......".Y QUIE|
000015F0: 4E 20 43 4F 4E 54 52 4F 4C 41 20 4C 41 20 49 4E |N CONTROLA LA IN|
00001600: 46 4F 52 4D 41 43 49 4F 4E 20 53 4F 42 52 45 00 |FORMACION SOBRE.|
00001610: 3B 1E BC 07 99 22 4C 41 20 50 4F 53 49 43 49 4F |;...."LA POSICIO|
00001620: 4E 2D 58 20 59 20 53 4F 42 52 45 20 4C 41 20 50 |N-X Y SOBRE LA P|
00001630: 4F 53 49 43 49 4F 4E 2D 59 20 3F 00 73 1E C6 07 |OSICION-Y ?.s...|
00001640: 99 22 11 50 4F 52 20 53 55 50 55 45 53 54 4F 21 |.".POR SUPUESTO!|
00001650: 20 20 45 53 20 4F 54 52 4F 20 52 45 47 49 53 54 | ES OTRO REGIST|
00001660: 52 4F 22 3A 99 22 12 9E 56 2B 41 4C 47 4F 20 05 |RO":."..V+ALGO .|
00001670: 92 2E 22 00 8D 1E D0 07 99 22 11 45 53 54 41 20 |.."......".ESTA |
00001680: 56 45 5A 20 45 53 43 52 49 42 41 3A 22 00 B1 1E |VEZ ESCRIBA:"...|
00001690: DA 07 99 22 12 50 4F 4B 45 20 56 2B 32 2A 4E 2C |...".POKE V+2*N,|
000016A0: 58 3A 50 4F 4B 45 20 56 2B 32 2A 4E 2B 31 2C 59 |X:POKE V+2*N+1,Y|
000016B0: 22 00 DC 1E E4 07 99 22 11 53 49 45 4D 50 52 45 |"......".SIEMPRE|
000016C0: 20 51 55 45 20 4C 41 53 20 27 58 27 20 59 20 4C | QUE LAS 'X' Y L|
000016D0: 41 53 20 27 59 27 20 53 45 41 4E 22 00 0A 1F E9 |AS 'Y' SEAN"....|
000016E0: 07 99 22 9F 12 4D 45 4E 4F 52 45 53 92 05 20 51 |.."..MENORES.. Q|
000016F0: 55 45 20 32 35 36 20 45 53 54 41 52 45 4D 4F 53 |UE 256 ESTAREMOS|
00001700: 20 45 4E 20 46 4F 52 4D 41 22 00 2D 1F F8 07 99 | EN FORMA".-....|
00001710: 22 11 45 4E 20 45 46 45 43 54 4F 20 50 4F 44 45 |".EN EFECTO PODE|
00001720: 4D 4F 53 20 45 53 43 52 49 42 49 52 22 00 52 1F |MOS ESCRIBIR".R.|
00001730: 02 08 99 22 11 12 46 4F 52 20 54 3D 30 20 54 4F |..."..FOR T=0 TO|
00001740: 20 35 30 30 20 20 20 20 20 20 20 20 20 20 20 20 | 500 |
00001750: 20 22 00 76 1F 0C 08 99 22 12 58 3D 54 2F 32 3A | ".v....".X=T/2:|
00001760: 59 3D 54 2F 33 20 20 20 20 20 20 20 20 20 20 20 |Y=T/3 |
00001770: 20 20 20 20 20 22 00 9A 1F 12 08 99 22 12 50 4F | "......".PO|
00001780: 4B 45 20 56 2B 32 2A 4E 2C 58 3A 50 4F 4B 45 20 |KE V+2*N,X:POKE |
00001790: 56 2B 32 2A 4E 2B 31 2C 59 22 00 C5 1F 16 08 99 |V+2*N+1,Y"......|
000017A0: 22 12 4E 45 58 54 20 54 20 20 20 20 20 20 20 20 |".NEXT T |
000017B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D | ":.|
000017C0: 36 33 30 30 30 00 E6 1F 20 08 99 22 93 45 4E 53 |63000... ..".ENS|
000017D0: 41 59 45 4D 4F 53 20 41 4C 47 4F 20 53 49 4D 50 |AYEMOS ALGO SIMP|
000017E0: 41 54 49 43 4F 22 00 0B 20 2A 08 99 22 11 12 46 |ATICO".. *.."..F|
000017F0: 4F 52 20 54 3D 30 20 54 4F 20 35 30 30 20 20 20 |OR T=0 TO 500 |
00001800: 20 20 20 20 20 20 20 20 20 20 22 00 2F 20 34 08 | "./ 4.|
00001810: 99 22 12 58 3D 46 4E 58 28 54 29 3A 59 3D 46 4E |.".X=FNX(T):Y=FN|
00001820: 59 28 54 29 20 20 20 20 20 20 20 20 20 20 22 00 |Y(T) ".|
00001830: 53 20 3E 08 99 22 12 50 4F 4B 45 20 56 2B 32 2A |S >..".POKE V+2*|
00001840: 4E 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 4E 2B 31 |N,X:POKE V+2*N+1|
00001850: 2C 59 22 00 77 20 48 08 99 22 12 4E 45 58 54 20 |,Y".w H..".NEXT |
00001860: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T |
00001870: 20 20 20 20 20 20 22 00 9B 20 52 08 99 22 11 59 | ".. R..".Y|
00001880: 20 4E 55 45 53 54 52 4F 20 53 50 52 49 54 45 20 | NUESTRO SPRITE |
00001890: 53 45 47 55 49 52 41 20 4C 41 22 00 C0 20 5C 08 |SEGUIRA LA".. \.|
000018A0: 99 22 11 43 55 52 56 41 20 44 41 44 41 20 50 4F |.".CURVA DADA PO|
000018B0: 52 20 4C 41 53 20 46 55 4E 43 49 4F 4E 45 53 22 |R LAS FUNCIONES"|
000018C0: 00 E3 20 66 08 99 22 11 46 4E 58 20 59 20 46 4E |.. f..".FNX Y FN|
000018D0: 59 2C 20 59 41 20 12 44 45 46 92 49 4E 49 44 41 |Y, YA .DEF.INIDA|
000018E0: 53 2E 22 00 06 21 6B 08 4D 53 24 B2 22 44 45 46 |S."..!k.MS$."DEF|
000018F0: 20 46 4E 58 28 58 29 22 3A 8D 36 33 31 30 30 3A | FNX(X)":.63100:|
00001900: 8D 36 33 30 30 30 00 2E 21 70 08 99 22 93 53 49 |.63000..!p..".SI|
00001910: 20 55 53 54 45 44 20 51 55 49 45 52 45 20 54 45 | USTED QUIERE TE|
00001920: 4E 45 52 20 45 4C 20 53 50 52 49 54 45 22 00 5B |NER EL SPRITE".[|
00001930: 21 7A 08 99 22 11 45 4E 20 45 4C 20 43 4F 53 54 |!z..".EN EL COST|
00001940: 41 44 4F 20 44 45 52 45 43 48 4F 20 44 45 20 4C |ADO DERECHO DE L|
00001950: 41 20 50 41 4E 54 41 4C 4C 41 22 00 80 21 84 08 |A PANTALLA"..!..|
00001960: 99 22 11 45 4E 20 4C 41 53 20 50 4F 53 49 43 49 |.".EN LAS POSICI|
00001970: 4F 4E 45 53 20 32 35 36 20 41 20 33 32 30 2C 22 |ONES 256 A 320,"|
00001980: 00 9F 21 8E 08 99 22 11 55 53 54 45 44 20 44 45 |..!...".USTED DE|
00001990: 42 45 52 41 20 48 41 43 45 52 2E 2E 2E 3A 22 00 |BERA HACER...:".|
000019A0: DC 21 A2 08 99 22 11 11 11 12 44 45 20 4E 55 45 |.!..."....DE NUE|
000019B0: 56 4F 20 20 20 45 4C 20 43 48 49 50 20 56 49 44 |VO EL CHIP VID|
000019C0: 45 4F 21 22 3A 4D 53 24 B2 22 20 41 44 4F 4E 44 |EO!":MS$." ADOND|
000019D0: 45 3F 20 21 22 3A 8D 36 33 31 30 30 00 E7 21 A7 |E? !":.63100..!.|
000019E0: 08 8D 36 33 30 30 30 00 13 22 AC 08 99 22 93 44 |..63000.."...".D|
000019F0: 45 20 4E 55 45 56 4F 20 4F 54 52 4F 20 52 45 47 |E NUEVO OTRO REG|
00001A00: 49 53 54 52 4F 3A 20 41 20 56 2B 31 36 2C 20 51 |ISTRO: A V+16, Q|
00001A10: 55 45 22 00 4C 22 B6 08 99 22 11 54 49 45 4E 45 |UE".L"...".TIENE|
00001A20: 20 54 41 4D 42 49 45 4E 20 38 20 42 49 54 53 2C | TAMBIEN 8 BITS,|
00001A30: 20 55 4E 4F 20 50 41 52 41 20 43 41 44 41 20 20 | UNO PARA CADA |
00001A40: 20 20 20 11 53 50 52 49 54 45 2E 22 00 76 22 C0 | .SPRITE.".v".|
00001A50: 08 99 22 11 50 41 52 41 20 4D 4F 56 45 52 20 45 |..".PARA MOVER E|
00001A60: 4C 20 53 50 52 49 54 45 20 23 20 4E 20 48 41 52 |L SPRITE # N HAR|
00001A70: 45 4D 4F 53 3A 22 00 8F 22 CA 08 99 22 11 12 9E |EMOS:".."..."...|
00001A80: 50 4F 4B 45 20 56 2B 31 36 2C 32 5E 4E 05 22 00 |POKE V+16,2^N.".|
00001A90: B9 22 D4 08 99 22 11 45 53 54 4F 20 45 4E 43 49 |."...".ESTO ENCI|
00001AA0: 45 4E 44 45 20 45 4C 20 27 42 49 54 20 4E 27 20 |ENDE EL 'BIT N' |
00001AB0: 50 41 52 41 20 51 55 45 22 00 E2 22 DE 08 99 22 |PARA QUE".."..."|
00001AC0: 11 45 4C 20 53 50 52 49 54 45 20 4E 20 53 45 20 |.EL SPRITE N SE |
00001AD0: 50 55 45 44 41 20 4D 4F 56 45 52 20 45 4E 54 52 |PUEDA MOVER ENTR|
00001AE0: 45 22 00 04 23 E3 08 99 22 11 4C 41 53 20 50 4F |E"..#...".LAS PO|
00001AF0: 53 49 43 49 4F 4E 45 53 20 32 35 36 20 59 20 33 |SICIONES 256 Y 3|
00001B00: 32 30 21 22 00 26 23 E8 08 4D 53 24 B2 22 20 31 |20!".&#..MS$." 1|
00001B10: 30 30 30 31 30 30 31 22 3A 8D 36 33 31 30 30 3A |0001001":.63100:|
00001B20: 8D 36 33 30 30 30 00 51 23 F2 08 99 22 93 12 54 |.63000.Q#..."..T|
00001B30: 4F 4D 45 20 4E 4F 54 41 92 3A 50 4F 4B 45 20 56 |OME NOTA.:POKE V|
00001B40: 2B 31 36 2C 33 32 20 56 41 20 56 41 52 49 41 52 |+16,32 VA VARIAR|
00001B50: 22 00 92 23 FC 08 99 22 11 4C 41 20 50 4F 53 49 |"..#...".LA POSI|
00001B60: 43 49 4F 4E 2D 58 20 44 45 4C 20 53 50 52 49 54 |CION-X DEL SPRIT|
00001B70: 45 20 23 35 20 50 4F 52 22 3A 99 22 11 9E 4C 41 |E #5 POR":."..LA|
00001B80: 20 12 41 44 49 43 49 4F 4E 20 44 45 20 32 35 36 | .ADICION DE 256|
00001B90: 05 22 00 B7 23 06 09 99 22 11 41 4C 20 56 41 4C |."..#...".AL VAL|
00001BA0: 4F 52 20 58 20 12 50 4F 4B 41 44 4F 92 20 45 4E |OR X .POKADO. EN|
00001BB0: 20 56 2B 32 2A 35 22 00 E3 23 10 09 99 22 11 12 | V+2*5"..#..."..|
00001BC0: 50 4F 4B 45 20 56 2B 32 2A 35 2C 35 30 3A 52 45 |POKE V+2*5,50:RE|
00001BD0: 4D 20 50 4F 53 49 43 49 4F 4E 2D 58 20 45 53 20 |M POSICION-X ES |
00001BE0: 35 30 22 00 06 24 1A 09 99 22 11 12 50 4F 4B 45 |50"..$..."..POKE|
00001BF0: 20 56 2B 31 36 2C 33 32 3A 52 45 4D 20 53 55 4D | V+16,32:REM SUM|
00001C00: 41 20 32 35 36 22 00 49 24 24 09 99 22 11 45 4C |A 256".I$$..".EL|
00001C10: 20 53 50 52 49 54 45 20 23 35 20 53 45 20 45 4E | SPRITE #5 SE EN|
00001C20: 43 4F 4E 54 52 41 52 41 20 45 4E 54 4F 4E 43 45 |CONTRARA ENTONCE|
00001C30: 53 22 3A 99 22 11 45 4E 20 4C 41 20 50 4F 53 49 |S":.".EN LA POSI|
00001C40: 43 49 4F 4E 20 33 30 36 22 00 6B 24 25 09 4D 53 |CION 306".k$%.MS|
00001C50: 24 B2 22 20 20 20 12 56 2B 31 36 92 22 3A 8D 36 |$." .V+16.":.6|
00001C60: 33 31 30 30 3A 8D 36 33 30 30 30 00 9E 24 29 09 |3100:.63000..$).|
00001C70: 99 22 93 50 41 52 41 20 54 45 4E 45 52 20 45 4C |.".PARA TENER EL|
00001C80: 20 53 50 52 49 54 45 20 23 30 20 12 9E 59 05 92 | SPRITE #0 ..Y..|
00001C90: 20 45 4C 20 53 50 52 49 54 45 20 23 33 22 00 CF | EL SPRITE #3"..|
00001CA0: 24 2E 09 99 22 11 12 9E 59 05 92 20 45 4C 20 53 |$..."...Y.. EL S|
00001CB0: 50 52 49 54 45 20 23 37 20 12 9E 54 4F 44 4F 53 |PRITE #7 ..TODOS|
00001CC0: 05 92 20 41 20 4C 41 20 44 45 52 45 43 48 41 00 |.. A LA DERECHA.|
00001CD0: FD 24 38 09 99 22 11 54 4F 4D 45 20 45 4E 54 4F |.$8..".TOME ENTO|
00001CE0: 4E 43 45 53 20 4C 4F 53 20 56 41 4C 4F 52 45 53 |NCES LOS VALORES|
00001CF0: 20 58 30 2C 58 33 20 59 20 58 37 3A 22 00 29 25 | X0,X3 Y X7:".)%|
00001D00: 42 09 99 22 11 12 50 4F 4B 45 20 56 2B 32 2A 30 |B.."..POKE V+2*0|
00001D10: 2C 58 30 3A 52 45 4D 20 50 4F 53 49 43 49 4F 4E |,X0:REM POSICION|
00001D20: 2D 58 20 44 45 20 23 30 22 00 55 25 4C 09 99 22 |-X DE #0".U%L.."|
00001D30: 11 12 50 4F 4B 45 20 56 2B 32 2A 33 2C 58 33 3A |..POKE V+2*3,X3:|
00001D40: 52 45 4D 20 50 4F 53 49 43 49 4F 4E 2D 58 20 44 |REM POSICION-X D|
00001D50: 45 20 23 33 22 00 81 25 56 09 99 22 11 12 50 4F |E #3"..%V.."..PO|
00001D60: 4B 45 20 56 2B 32 2A 37 2C 58 37 3A 52 45 4D 20 |KE V+2*7,X7:REM |
00001D70: 50 4F 53 49 43 49 4F 4E 2D 58 20 44 45 20 23 37 |POSICION-X DE #7|
00001D80: 22 00 AE 25 60 09 99 22 11 12 50 4F 4B 45 20 56 |"..%`.."..POKE V|
00001D90: 2B 31 36 2C 31 2B 38 2B 31 32 38 3A 53 55 4D 45 |+16,1+8+128:SUME|
00001DA0: 20 32 35 36 20 41 20 54 4F 44 4F 53 21 22 00 D1 | 256 A TODOS!"..|
00001DB0: 25 65 09 4D 53 24 B2 22 20 20 20 12 56 2B 32 2A |%e.MS$." .V+2*|
00001DC0: 4E 92 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 |N.":.63100:.6300|
00001DD0: 30 00 FA 25 66 09 99 22 93 45 4C 49 4A 41 20 45 |0..%f..".ELIJA E|
00001DE0: 4C 20 42 4C 4F 51 55 45 20 31 33 20 59 20 45 4C |L BLOQUE 13 Y EL|
00001DF0: 20 53 50 52 49 54 45 20 33 22 00 2A 26 67 09 99 | SPRITE 3".*&g..|
00001E00: 22 44 41 4E 44 4F 4C 45 20 41 20 54 4F 44 4F 53 |"DANDOLE A TODOS|
00001E10: 20 4C 4F 53 20 42 59 54 45 53 20 4C 41 20 46 4F | LOS BYTES LA FO|
00001E20: 52 4D 41 3D 12 32 34 30 92 22 00 5E 26 68 09 99 |RMA=.240.".^&h..|
00001E30: 22 11 12 9E 20 39 39 20 42 3D 31 33 3A 4E 3D 33 |"... 99 B=13:N=3|
00001E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E50: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 90 | ";..|
00001E60: 26 6A 09 99 22 12 31 30 30 20 46 4F 52 49 3D 30 |&j..".100 FORI=0|
00001E70: 54 4F 36 32 3A 58 3D 32 34 30 3A 50 4F 4B 45 36 |TO62:X=240:POKE6|
00001E80: 34 2A 42 2B 49 2C 58 3A 4E 45 58 54 20 20 22 3B |4*B+I,X:NEXT ";|
00001E90: 00 C2 26 74 09 99 22 12 31 31 30 20 50 4F 4B 45 |..&t..".110 POKE|
00001EA0: 32 30 34 30 2B 33 2C 42 3A 20 20 52 45 4D 20 47 |2040+3,B: REM G|
00001EB0: 55 41 52 44 41 52 20 4C 41 20 46 4F 52 4D 41 20 |UARDAR LA FORMA |
00001EC0: 22 3B 00 F4 26 7E 09 99 22 12 31 32 30 20 56 3D |";..&~..".120 V=|
00001ED0: 35 33 32 34 38 3A 20 20 20 20 52 45 4D 20 50 52 |53248: REM PR|
00001EE0: 49 4E 43 49 50 49 4F 20 43 48 49 50 20 56 49 44 |INCIPIO CHIP VID|
00001EF0: 45 4F 22 3B 00 26 27 88 09 99 22 12 31 33 30 20 |EO";.&'...".130 |
00001F00: 50 4F 4B 45 20 56 2B 33 39 2B 4E 2C 31 30 3A 52 |POKE V+39+N,10:R|
00001F10: 45 4D 20 43 4F 4C 4F 52 20 52 4F 53 41 20 20 20 |EM COLOR ROSA |
00001F20: 20 20 20 20 22 3B 00 58 27 92 09 99 22 12 31 34 | ";.X'...".14|
00001F30: 30 20 50 4F 4B 45 56 2B 32 31 2C 32 5E 4E 3A 20 |0 POKEV+21,2^N: |
00001F40: 20 52 45 4D 20 41 43 54 49 56 41 20 53 50 52 49 | REM ACTIVA SPRI|
00001F50: 54 45 20 20 20 20 22 3B 00 8A 27 9C 09 99 22 12 |TE ";..'...".|
00001F60: 31 35 30 20 46 4F 52 20 54 3D 30 20 54 4F 20 35 |150 FOR T=0 TO 5|
00001F70: 30 30 20 53 54 45 50 20 35 20 20 20 20 20 20 20 |00 STEP 5 |
00001F80: 20 20 20 20 20 20 20 20 22 3B 00 BC 27 A6 09 99 | ";..'...|
00001F90: 22 12 31 36 30 20 58 3D 54 2F 32 3A 59 3D 31 38 |".160 X=T/2:Y=18|
00001FA0: 30 2B 54 2F 35 20 20 20 20 20 20 20 20 20 20 20 |0+T/5 |
00001FB0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 EE 27 AB | ";..'.|
00001FC0: 09 99 22 12 31 37 30 20 50 4F 4B 45 20 56 2B 32 |..".170 POKE V+2|
00001FD0: 2A 4E 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 4E 2B |*N,X:POKE V+2*N+|
00001FE0: 31 2C 59 20 20 20 20 20 20 20 20 20 22 3B 00 27 |1,Y ";.'|
00001FF0: 28 B0 09 99 22 12 31 38 30 20 4E 45 58 54 20 54 |(...".180 NEXT T|
00002000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 05 22 | ."|
00002020: 3B 3A 8D 34 30 30 30 00 45 28 B5 09 4D 53 24 B2 |;:.4000.E(..MS$.|
00002030: 22 12 20 59 55 4D 20 21 21 21 20 20 92 22 3A 8D |". YUM !!! .":.|
00002040: 36 33 31 30 30 00 81 28 BA 09 99 22 91 91 91 91 |63100..(..."....|
00002050: 91 91 45 53 54 4F 20 45 53 20 56 41 4C 49 44 4F |..ESTO ES VALIDO|
00002060: 20 50 41 52 41 20 45 4C 20 53 50 52 49 54 45 2E | PARA EL SPRITE.|
00002070: 2E 4E 3D 33 20 20 20 20 22 3A 97 56 AA 32 31 2C |.N=3 ":.V.21,|
00002080: 30 00 B0 28 C4 09 99 22 11 41 48 4F 52 41 20 50 |0..(...".AHORA P|
00002090: 41 52 41 20 33 20 53 50 52 49 54 45 53 2E 2E 30 |ARA 3 SPRITES..0|
000020A0: 2C 20 33 20 59 20 37 2E 22 3A 8D 36 33 30 30 30 |, 3 Y 7.":.63000|
000020B0: 00 EA 28 CE 09 99 22 93 12 9F 31 30 30 20 46 4F |..(..."...100 FO|
000020C0: 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A |RI=0TO62:READ X:|
000020D0: 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E 45 58 |POKE64*B+I,X:NEX|
000020E0: 54 20 22 3B 3A 8D 32 36 30 30 00 25 29 D8 09 99 |T ";:.2600.%)...|
000020F0: 22 13 11 12 9F 31 31 30 20 50 4F 4B 45 32 30 34 |"....110 POKE204|
00002100: 30 2B 30 2C 42 3A 20 20 52 45 4D 20 42 4C 4F 51 |0+0,B: REM BLOQ|
00002110: 55 45 20 46 4F 52 4D 41 20 20 23 30 20 22 3B 3A |UE FORMA #0 ";:|
00002120: 8D 32 36 31 30 00 61 29 D9 09 99 22 13 11 11 12 |.2610.a)..."....|
00002130: 9F 31 31 31 20 50 4F 4B 45 32 30 34 30 2B 33 2C |.111 POKE2040+3,|
00002140: 42 3A 20 20 52 45 4D 20 42 4C 4F 51 55 45 20 46 |B: REM BLOQUE F|
00002150: 4F 52 4D 41 20 20 23 33 20 22 3B 3A 8D 32 36 32 |ORMA #3 ";:.262|
00002160: 30 00 9E 29 DA 09 99 22 13 11 11 11 12 9F 31 31 |0..)..."......11|
00002170: 32 20 50 4F 4B 45 32 30 34 30 2B 37 2C 42 3A 20 |2 POKE2040+7,B: |
00002180: 20 52 45 4D 20 42 4C 4F 51 55 45 20 46 4F 52 4D | REM BLOQUE FORM|
00002190: 41 20 20 23 37 20 22 3B 3A 8D 32 36 33 30 00 DC |A #7 ";:.2630..|
000021A0: 29 E2 09 99 22 13 11 11 11 11 12 9F 31 32 30 20 |)...".......120 |
000021B0: 56 3D 35 33 32 34 38 3A 20 20 20 52 45 4D 20 50 |V=53248: REM P|
000021C0: 52 49 4E 43 49 50 49 4F 20 43 48 49 50 20 56 49 |RINCIPIO CHIP VI|
000021D0: 44 45 4F 20 22 3B 3A 8D 32 36 34 30 00 1B 2A EC |DEO ";:.2640..*.|
000021E0: 09 99 22 13 11 11 11 11 11 12 9F 31 33 30 20 50 |.."........130 P|
000021F0: 4F 4B 45 20 56 2B 33 39 2B 30 2C 31 30 3A 52 45 |OKE V+39+0,10:RE|
00002200: 4D 20 23 30 20 45 53 20 52 4F 53 41 20 20 20 20 |M #0 ES ROSA |
00002210: 20 20 20 22 3B 3A 8D 32 36 35 30 00 5B 2A ED 09 | ";:.2650.[*..|
00002220: 99 22 13 11 11 11 11 11 11 12 9F 31 33 31 20 50 |.".........131 P|
00002230: 4F 4B 45 20 56 2B 33 39 2B 33 2C 31 32 3A 52 45 |OKE V+39+3,12:RE|
00002240: 4D 20 23 33 20 45 53 20 42 4C 41 4E 43 4F 20 20 |M #3 ES BLANCO |
00002250: 20 20 20 22 3B 3A 8D 32 36 36 30 00 9C 2A EE 09 | ";:.2660..*..|
00002260: 99 22 13 11 11 11 11 11 11 11 12 9F 31 33 32 20 |."..........132 |
00002270: 50 4F 4B 45 20 56 2B 33 39 2B 37 2C 31 34 3A 52 |POKE V+39+7,14:R|
00002280: 45 4D 20 23 37 20 45 53 20 43 45 4C 45 53 54 45 |EM #7 ES CELESTE|
00002290: 20 20 20 20 22 3B 3A 8D 32 36 37 30 00 DE 2A F6 | ";:.2670..*.|
000022A0: 09 99 22 13 11 11 11 11 11 11 11 11 12 9F 31 34 |.."...........14|
000022B0: 30 20 50 4F 4B 45 56 2B 32 31 2C 31 2B 38 2B 31 |0 POKEV+21,1+8+1|
000022C0: 32 38 3A 52 45 4D 20 41 43 54 49 56 45 20 53 50 |28:REM ACTIVE SP|
000022D0: 52 49 54 45 53 20 22 3B 3A 8D 32 36 38 30 00 21 |RITES ";:.2680.!|
000022E0: 2B 00 0A 99 22 13 11 11 11 11 11 11 11 11 11 12 |+..."...........|
000022F0: 9F 31 35 30 20 46 4F 52 20 54 3D 30 20 54 4F 20 |.150 FOR T=0 TO |
00002300: 35 30 30 3A 20 54 54 3D 54 2F 35 30 20 20 20 20 |500: TT=T/50 |
00002310: 20 20 20 20 20 20 20 20 20 22 3B 3A 8D 32 36 39 | ";:.269|
00002320: 30 00 65 2B 05 0A 99 22 13 11 11 11 11 11 11 11 |0.e+..."........|
00002330: 11 11 11 12 9F 31 36 30 20 58 30 3D 54 2F 32 3A |.....160 X0=T/2:|
00002340: 59 30 3D 54 2F 33 20 20 20 20 20 20 20 20 20 20 |Y0=T/3 |
00002350: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A | ";:|
00002360: 8D 32 37 30 30 00 AA 2B 06 0A 99 22 13 11 11 11 |.2700..+..."....|
00002370: 11 11 11 11 11 11 11 11 12 9F 31 36 31 20 58 33 |..........161 X3|
00002380: 3D 32 35 30 2D 54 2F 32 3A 59 33 3D 32 30 30 2D |=250-T/2:Y3=200-|
00002390: 54 2F 33 20 20 20 20 20 20 20 20 20 20 20 20 20 |T/3 |
000023A0: 20 20 22 3B 3A 8D 32 37 31 30 00 EF 2B 07 0A 99 | ";:.2710..+...|
000023B0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 12 9F |"...............|
000023C0: 31 36 32 20 58 37 3D 31 35 30 2B 31 30 30 2A 53 |162 X7=150+100*S|
000023D0: 49 4E 28 54 54 29 3A 59 37 3D 31 30 30 2B 35 30 |IN(TT):Y7=100+50|
000023E0: 2A 43 4F 53 28 54 54 29 22 3A 8D 32 37 32 30 00 |*COS(TT)":.2720.|
000023F0: 36 2C 0A 0A 99 22 9F 13 11 11 11 11 11 11 11 11 |6,..."..........|
00002400: 11 11 11 11 11 12 31 37 30 20 50 4F 4B 45 20 56 |......170 POKE V|
00002410: 2B 32 2A 30 2C 58 30 3A 50 4F 4B 45 20 56 2B 32 |+2*0,X0:POKE V+2|
00002420: 2A 30 2B 31 2C 59 30 20 20 20 20 20 20 20 22 3B |*0+1,Y0 ";|
00002430: 3A 8D 32 37 33 30 00 7E 2C 0F 0A 99 22 9F 13 11 |:.2730.~,..."...|
00002440: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 31 37 |..............17|
00002450: 31 20 50 4F 4B 45 20 56 2B 32 2A 33 2C 58 33 3A |1 POKE V+2*3,X3:|
00002460: 50 4F 4B 45 20 56 2B 32 2A 33 2B 31 2C 59 33 20 |POKE V+2*3+1,Y3 |
00002470: 20 20 20 20 20 20 22 3B 3A 8D 32 37 34 30 00 C1 | ";:.2740..|
00002480: 2C 10 0A 99 22 13 11 11 11 11 11 11 11 11 11 11 |,..."...........|
00002490: 11 11 11 11 11 9F 12 31 37 32 20 50 4F 4B 45 20 |.......172 POKE |
000024A0: 56 2B 32 2A 37 2C 58 37 3A 50 4F 4B 45 20 56 2B |V+2*7,X7:POKE V+|
000024B0: 32 2A 37 2B 31 2C 59 37 20 20 20 20 20 20 20 22 |2*7+1,Y7 "|
000024C0: 3B 00 CB 2C 11 0A 8D 32 37 35 30 00 0F 2D 14 0A |;..,...2750..-..|
000024D0: 99 22 9F 13 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000024E0: 11 11 11 11 12 31 38 30 20 4E 45 58 54 20 54 20 |.....180 NEXT T |
000024F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002500: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
00002510: 42 2D 1E 0A 8D 32 37 36 30 3A 8D 31 32 35 30 30 |B-...2760:.12500|
00002520: 3A 4D 53 24 B2 22 20 57 48 45 45 21 21 22 3A 8D |:MS$." WHEE!!":.|
00002530: 36 33 31 30 30 3A 8D 36 33 30 30 30 3A 89 32 38 |63100:.63000:.28|
00002540: 30 30 00 73 2D 28 0A 99 22 92 05 50 4F 4E 47 41 |00.s-(.."..PONGA|
00002550: 20 4C 41 20 44 41 54 41 20 45 4E 20 45 4C 20 42 | LA DATA EN EL B|
00002560: 4C 4F 51 55 45 20 27 42 27 22 3A 8D 36 33 30 30 |LOQUE 'B'":.6300|
00002570: 30 3A 8E 00 AA 2D 32 0A 99 22 92 05 44 49 43 45 |0:...-2.."..DICE|
00002580: 20 44 4F 4E 44 45 20 53 45 20 45 4E 43 55 45 4E | DONDE SE ENCUEN|
00002590: 54 52 41 20 4C 41 20 46 4F 52 4D 41 20 23 20 30 |TRA LA FORMA # 0|
000025A0: 22 3A 8D 36 33 30 30 30 3A 8E 00 E1 2D 3C 0A 99 |":.63000:...-<..|
000025B0: 22 92 05 44 49 43 45 20 44 4F 4E 44 45 20 53 45 |"..DICE DONDE SE|
000025C0: 20 45 4E 43 55 45 4E 54 52 41 20 4C 41 20 46 4F | ENCUENTRA LA FO|
000025D0: 52 4D 41 20 23 20 33 22 3A 8D 36 33 30 30 30 3A |RMA # 3":.63000:|
000025E0: 8E 00 18 2E 46 0A 99 22 92 05 44 49 43 45 20 44 |....F.."..DICE D|
000025F0: 4F 4E 44 45 20 53 45 20 45 4E 43 55 45 4E 54 52 |ONDE SE ENCUENTR|
00002600: 41 20 4C 41 20 46 4F 52 4D 41 20 23 20 37 22 3A |A LA FORMA # 7":|
00002610: 8D 36 33 30 30 30 3A 8E 00 41 2E 50 0A 99 22 92 |.63000:..A.P..".|
00002620: 05 52 45 43 55 45 52 44 45 20 45 53 54 45 20 4E |.RECUERDE ESTE N|
00002630: 55 4D 45 52 4F 21 21 22 3A 8D 36 33 30 30 30 3A |UMERO!!":.63000:|
00002640: 8E 00 6B 2E 5A 0A 99 22 92 05 50 4F 4B 45 20 56 |..k.Z.."..POKE V|
00002650: 2B 33 39 2B 4E 20 26 20 4E 3D 30 2E 2E 4F 4B 3F |+39+N & N=0..OK?|
00002660: 20 22 3A 8D 36 33 30 30 30 3A 8E 00 95 2E 64 0A | ":.63000:....d.|
00002670: 99 22 92 05 50 4F 4B 45 20 56 2B 33 39 2B 4E 20 |."..POKE V+39+N |
00002680: 26 20 4E 3D 33 2E 2E 4F 4B 21 20 22 3A 8D 36 33 |& N=3..OK! ":.63|
00002690: 30 30 30 3A 8E 00 BD 2E 6E 0A 99 22 92 05 2E 2E |000:....n.."....|
000026A0: 2E 51 55 45 20 4D 45 4A 4F 52 3F 2E 2E 2E 2E 2E |.QUE MEJOR?.....|
000026B0: 2E 2E 20 22 3A 8D 36 33 30 30 30 3A 8E 00 E7 2E |.. ":.63000:....|
000026C0: 78 0A 99 22 92 05 41 43 54 49 56 45 4C 4F 53 20 |x.."..ACTIVELOS |
000026D0: 54 4F 44 4F 53 20 21 21 21 21 21 21 21 22 3A 8D |TODOS !!!!!!!":.|
000026E0: 36 33 30 30 30 3A 8E 00 0E 2F 82 0A 99 22 05 92 |63000:.../..."..|
000026F0: 41 48 4F 52 41 20 50 41 52 41 20 35 30 30 20 50 |AHORA PARA 500 P|
00002700: 41 53 4F 53 22 3A 8D 36 33 30 30 30 3A 8E 00 39 |ASOS":.63000:..9|
00002710: 2F 8C 0A 99 22 05 92 44 45 46 49 4E 45 20 4C 41 |/..."..DEFINE LA|
00002720: 20 50 4F 53 49 43 49 4F 4E 20 58 20 45 20 59 22 | POSICION X E Y"|
00002730: 3A 8D 36 33 30 30 30 3A 8E 00 68 2F 96 0A 99 22 |:.63000:..h/..."|
00002740: 05 92 54 41 4D 42 49 45 4E 20 50 41 52 41 20 45 |..TAMBIEN PARA E|
00002750: 4C 20 23 33 20 20 20 20 20 20 20 20 20 20 22 3A |L #3 ":|
00002760: 8D 36 33 30 30 30 3A 8E 00 94 2F A0 0A 99 22 05 |.63000:.../...".|
00002770: 92 59 20 50 41 52 41 20 45 4C 20 23 37 20 2E 21 |.Y PARA EL #7 .!|
00002780: 3F 2A 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 |?* ":.630|
00002790: 30 30 3A 8E 00 BE 2F AA 0A 99 22 92 05 4D 55 45 |00:.../..."..MUE|
000027A0: 56 41 20 45 4C 20 53 50 52 49 54 45 20 23 30 20 |VA EL SPRITE #0 |
000027B0: 20 20 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 E8 | ":.63000:...|
000027C0: 2F B4 0A 99 22 05 92 4D 55 45 56 41 20 45 4C 20 |/..."..MUEVA EL |
000027D0: 53 50 52 49 54 45 20 23 33 20 20 20 20 20 22 3A |SPRITE #3 ":|
000027E0: 8D 36 33 30 30 30 3A 8E 00 12 30 BE 0A 99 22 05 |.63000:...0...".|
000027F0: 92 4D 55 45 56 41 20 45 4C 20 53 50 52 49 54 45 |.MUEVA EL SPRITE|
00002800: 20 23 37 20 20 20 20 20 22 3A 8D 36 33 30 30 30 | #7 ":.63000|
00002810: 3A 8E 00 3D 30 C8 0A 99 22 05 92 48 41 43 49 41 |:..=0..."..HACIA|
00002820: 20 45 4C 20 4E 45 58 54 20 54 20 20 20 20 20 20 | EL NEXT T |
00002830: 20 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 6A 30 | ":.63000:..j0|
00002840: F0 0A 99 22 93 05 50 4F 52 20 53 55 50 55 45 53 |..."..POR SUPUES|
00002850: 54 4F 20 51 55 45 20 50 4F 44 52 45 4D 4F 53 20 |TO QUE PODREMOS |
00002860: 48 41 43 45 52 20 4C 4F 53 22 00 97 30 FA 0A 99 |HACER LOS"..0...|
00002870: 22 11 53 50 52 49 54 45 53 20 43 41 44 41 20 55 |".SPRITES CADA U|
00002880: 4E 4F 20 43 4F 4E 20 46 4F 52 4D 41 20 44 49 46 |NO CON FORMA DIF|
00002890: 45 52 45 4E 54 45 22 00 AC 30 04 0B 99 22 11 59 |ERENTE"..0...".Y|
000028A0: 20 50 41 52 41 20 45 53 54 4F 3A 22 00 DA 30 0E | PARA ESTO:"..0.|
000028B0: 0B 99 22 11 12 46 4F 52 49 3D 30 54 4F 36 32 3A |.."..FORI=0TO62:|
000028C0: 52 45 41 44 20 58 3A 50 4F 4B 45 36 34 2A 42 30 |READ X:POKE64*B0|
000028D0: 2B 49 2C 58 3A 4E 45 58 54 22 00 08 31 18 0B 99 |+I,X:NEXT"..1...|
000028E0: 22 11 12 46 4F 52 49 3D 30 54 4F 36 32 3A 52 45 |"..FORI=0TO62:RE|
000028F0: 41 44 20 58 3A 50 4F 4B 45 36 34 2A 42 33 2B 49 |AD X:POKE64*B3+I|
00002900: 2C 58 3A 4E 45 58 54 22 00 36 31 22 0B 99 22 11 |,X:NEXT".61"..".|
00002910: 12 46 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 |.FORI=0TO62:READ|
00002920: 20 58 3A 50 4F 4B 45 36 34 2A 42 37 2B 49 2C 58 | X:POKE64*B7+I,X|
00002930: 3A 4E 45 58 54 22 00 5D 31 2C 0B 99 22 11 59 20 |:NEXT".]1,..".Y |
00002940: 50 41 52 41 20 54 45 4E 45 52 20 42 30 2C 20 42 |PARA TENER B0, B|
00002950: 33 20 59 20 42 37 20 54 4F 44 4F 53 22 00 83 31 |3 Y B7 TODOS"..1|
00002960: 36 0B 99 22 11 44 49 46 45 52 45 4E 54 45 53 2C |6..".DIFERENTES,|
00002970: 20 48 41 59 20 51 55 45 20 45 53 43 52 49 42 49 | HAY QUE ESCRIBI|
00002980: 52 3A 22 00 9B 31 40 0B 99 22 11 12 9E 50 4F 4B |R:"..1@.."...POK|
00002990: 45 32 30 34 30 2B 30 2C 42 30 22 00 B1 31 41 0B |E2040+0,B0"..1A.|
000029A0: 99 22 12 50 4F 4B 45 32 30 34 30 2B 33 2C 42 33 |.".POKE2040+3,B3|
000029B0: 22 00 C8 31 42 0B 99 22 12 50 4F 4B 45 32 30 34 |"..1B..".POKE204|
000029C0: 30 2B 37 2C 42 37 05 22 00 E4 31 45 0B 4D 53 24 |0+7,B7."..1E.MS$|
000029D0: B2 22 20 20 12 32 30 34 30 2B 4E 92 22 3A 8D 36 |." .2040+N.":.6|
000029E0: 33 31 30 30 00 EF 31 4A 0B 8D 36 33 30 30 30 00 |3100..1J..63000.|
000029F0: 1B 32 54 0B 99 22 93 4A 55 47 55 45 4D 4F 53 20 |.2T..".JUGUEMOS |
00002A00: 43 4F 4E 20 45 4C 20 53 50 52 49 54 45 20 43 52 |CON EL SPRITE CR|
00002A10: 45 41 44 4F 20 50 4F 52 3A 11 22 00 4B 32 5E 0B |EADO POR:.".K2^.|
00002A20: 99 22 12 20 39 39 20 42 3D 31 33 3A 4E 3D 33 20 |.". 99 B=13:N=3 |
00002A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A40: 20 20 20 20 20 20 20 20 20 20 22 00 7B 32 68 0B | ".{2h.|
00002A50: 99 22 12 31 30 30 20 46 4F 52 49 3D 30 54 4F 36 |.".100 FORI=0TO6|
00002A60: 32 3A 58 3D 32 34 30 3A 50 4F 4B 45 36 34 2A 42 |2:X=240:POKE64*B|
00002A70: 2B 49 2C 58 3A 4E 45 58 54 20 22 00 AB 32 72 0B |+I,X:NEXT "..2r.|
00002A80: 99 22 12 31 31 30 20 45 54 43 2E 20 45 54 43 2E |.".110 ETC. ETC.|
00002A90: 20 45 54 43 2E 20 20 20 20 20 20 20 20 20 20 20 | ETC. |
00002AA0: 20 20 20 20 20 20 20 20 20 20 22 00 CC 32 7C 0B | "..2|.|
00002AB0: 4E B2 33 3A 42 B2 31 33 3A 54 30 B2 35 30 30 3A |N.3:B.13:T0.500:|
00002AC0: 54 31 B2 35 30 30 3A 8D 34 31 30 30 00 D7 32 86 |T1.500:.4100..2.|
00002AD0: 0B 8D 36 33 30 30 30 00 06 33 8B 0B 99 22 13 11 |..63000..3..."..|
00002AE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 50 41 52 |.............PAR|
00002AF0: 41 20 43 41 4D 42 49 41 52 20 53 55 20 44 49 4D |A CAMBIAR SU DIM|
00002B00: 45 4E 53 49 4F 4E 00 3D 33 8C 0B 99 22 11 50 4F |ENSION.=3...".PO|
00002B10: 4B 41 52 45 4D 4F 53 20 45 4E 20 4F 54 52 4F 20 |KAREMOS EN OTRO |
00002B20: 52 45 47 49 53 54 52 4F 22 3A 99 22 11 56 2B 41 |REGISTRO":.".V+A|
00002B30: 4C 47 4F 92 20 22 3A 8D 36 33 30 30 30 00 64 33 |LGO. ":.63000.d3|
00002B40: 90 0B 99 22 93 59 4F 20 56 4F 59 20 41 47 52 41 |...".YO VOY AGRA|
00002B50: 4E 44 41 52 20 4C 41 20 44 49 4D 45 4E 53 49 4F |NDAR LA DIMENSIO|
00002B60: 4E 2D 58 22 00 A6 33 9A 0B 99 22 12 9E 20 20 20 |N-X"..3...".. |
00002B70: 20 50 4F 4B 45 20 56 2B 32 39 2C 32 5E 4E 20 20 | POKE V+29,2^N |
00002B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B90: 20 20 20 20 22 3A 8D 36 33 30 30 30 3A 97 56 AA | ":.63000:.V.|
00002BA0: 32 39 2C 32 AE 4E 00 D0 33 A4 0B 99 22 13 05 11 |29,2.N..3..."...|
00002BB0: 11 41 48 4F 52 41 20 41 47 52 41 4E 44 41 52 45 |.AHORA AGRANDARE|
00002BC0: 20 4C 41 20 44 49 4D 45 4E 53 49 4F 4E 2D 59 22 | LA DIMENSION-Y"|
00002BD0: 00 12 34 AE 0B 99 22 12 9E 20 20 20 20 50 4F 4B |..4...".. POK|
00002BE0: 45 20 56 2B 32 33 2C 32 5E 4E 20 20 20 20 20 20 |E V+23,2^N |
00002BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C00: 22 3A 8D 36 33 30 30 30 3A 97 56 AA 32 33 2C 32 |":.63000:.V.23,2|
00002C10: AE 4E 00 41 34 B8 0B 99 22 05 13 05 11 11 11 11 |.N.A4...".......|
00002C20: 59 4F 20 56 4F 59 20 41 20 52 45 44 55 43 49 52 |YO VOY A REDUCIR|
00002C30: 20 4C 41 20 44 49 4D 45 4E 53 49 4F 4E 2D 58 3A | LA DIMENSION-X:|
00002C40: 22 00 81 34 C2 0B 99 22 12 9E 20 20 20 20 50 4F |"..4...".. PO|
00002C50: 4B 45 20 56 2B 32 39 2C 30 20 20 20 20 20 20 20 |KE V+29,0 |
00002C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C70: 20 22 3A 8D 36 33 30 30 30 3A 97 56 AA 32 39 2C | ":.63000:.V.29,|
00002C80: 30 00 B2 34 CC 0B 99 22 05 13 05 11 11 11 11 11 |0..4..."........|
00002C90: 11 59 4F 20 56 4F 59 20 41 20 52 45 44 55 43 49 |.YO VOY A REDUCI|
00002CA0: 52 20 4C 41 20 44 49 4D 45 4E 53 49 4F 4E 2D 59 |R LA DIMENSION-Y|
00002CB0: 3A 22 00 F2 34 D6 0B 99 22 12 9E 20 20 20 20 50 |:"..4...".. P|
00002CC0: 4F 4B 45 20 56 2B 32 33 2C 30 20 20 20 20 20 20 |OKE V+23,0 |
00002CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002CE0: 20 20 22 3A 8D 36 33 30 30 30 3A 97 56 AA 32 33 | ":.63000:.V.23|
00002CF0: 2C 30 00 23 35 DB 0B 99 22 05 13 05 11 11 11 11 |,0.#5...".......|
00002D00: 11 11 11 11 20 20 20 20 20 20 20 20 45 53 20 50 |.... ES P|
00002D10: 52 45 43 49 4F 53 4F 20 20 20 20 20 20 20 20 20 |RECIOSO |
00002D20: 20 20 22 00 36 35 DC 0B 8D 36 33 30 30 30 3A 97 | ".65...63000:.|
00002D30: 56 AA 32 39 2C 30 00 4F 35 E0 0B 8D 36 33 30 30 |V.29,0.O5...6300|
00002D40: 30 3A 97 56 AA 32 31 2C 30 3A 89 34 39 39 36 00 |0:.V.21,0:.4996.|
00002D50: 9B 35 64 0F 83 30 2C 32 35 35 2C 30 2C 37 2C 32 |.5d..0,255,0,7,2|
00002D60: 35 35 2C 31 32 38 2C 31 35 2C 32 35 35 2C 31 39 |55,128,15,255,19|
00002D70: 32 2C 33 31 2C 32 35 35 2C 32 32 34 2C 36 33 2C |2,31,255,224,63,|
00002D80: 37 2C 32 34 30 2C 31 32 37 2C 37 2C 32 34 38 2C |7,240,127,7,248,|
00002D90: 32 35 35 2C 31 31 39 2C 32 34 30 00 E4 35 65 0F |255,119,240..5e.|
00002DA0: 83 32 35 35 2C 31 31 39 2C 32 32 34 2C 32 35 35 |.255,119,224,255|
00002DB0: 2C 32 35 35 2C 31 39 32 2C 32 35 35 2C 32 35 35 |,255,192,255,255|
00002DC0: 2C 31 32 38 2C 32 35 35 2C 32 35 35 2C 30 2C 32 |,128,255,255,0,2|
00002DD0: 35 35 2C 32 35 35 2C 30 2C 31 32 37 2C 32 35 35 |55,255,0,127,255|
00002DE0: 2C 31 32 38 00 28 36 66 0F 83 36 33 2C 32 35 35 |,128.(6f..63,255|
00002DF0: 2C 31 39 32 2C 33 31 2C 32 35 35 2C 32 32 34 2C |,192,31,255,224,|
00002E00: 31 35 2C 32 35 35 2C 32 34 30 2C 37 2C 32 35 35 |15,255,240,7,255|
00002E10: 2C 32 34 38 2C 31 2C 32 35 35 2C 32 35 32 2C 30 |,248,1,255,252,0|
00002E20: 2C 31 32 37 2C 32 34 38 00 3D 36 67 0F 83 30 2C |,127,248.=6g..0,|
00002E30: 33 31 2C 31 32 38 2C 30 2C 31 34 2C 30 00 43 36 |31,128,0,14,0.C6|
00002E40: A0 0F 3A 00 4C 36 AA 0F 42 B2 31 33 00 54 36 B4 |..:.L6..B.13.T6.|
00002E50: 0F 4E B2 33 00 6C 36 BE 0F 54 30 B2 30 3A 54 31 |.N.3.l6..T0.0:T1|
00002E60: B2 35 30 30 3A 8D 34 31 30 30 3A 8E 00 8A 36 04 |.500:.4100:...6.|
00002E70: 10 81 49 B2 30 A4 36 32 3A 58 B2 32 34 30 3A 97 |..I.0.62:X.240:.|
00002E80: 36 34 AC 42 AA 49 2C 58 3A 82 00 98 36 0E 10 97 |64.B.I,X:...6...|
00002E90: 32 30 34 30 AA 4E 2C 42 00 A4 36 18 10 56 B2 35 |2040.N,B..6..V.5|
00002EA0: 33 32 34 38 00 B4 36 22 10 97 20 56 AA 33 39 AA |3248..6".. V.39.|
00002EB0: 4E 2C 31 30 00 CE 36 27 10 97 20 56 AA 32 AC 4E |N,10..6'.. V.2.N|
00002EC0: 2C 30 3A 97 20 56 AA 32 AC 4E AA 31 2C 30 00 E4 |,0:. V.2.N.1,0..|
00002ED0: 36 28 10 97 20 56 AA 32 39 2C 30 3A 97 20 56 AA |6(.. V.29,0:. V.|
00002EE0: 32 33 2C 30 00 F2 36 2C 10 97 56 AA 32 31 2C 32 |23,0..6,..V.21,2|
00002EF0: AE 4E 00 06 37 36 10 81 20 54 B2 54 30 20 A4 20 |.N..76.. T.T0 . |
00002F00: 54 31 20 A9 20 35 00 1A 37 40 10 58 B2 54 AD 32 |T1 . 5..7@.X.T.2|
00002F10: 3A 59 B2 31 30 30 AA 54 AD 35 00 34 37 4A 10 97 |:Y.100.T.5.47J..|
00002F20: 20 56 AA 32 AC 4E 2C 58 3A 97 20 56 AA 32 AC 4E | V.2.N,X:. V.2.N|
00002F30: AA 31 2C 59 00 3C 37 54 10 82 20 54 00 42 37 5E |.1,Y.<7T.. T.B7^|
00002F40: 10 8E 00 66 37 84 13 99 22 93 45 4E 20 4E 55 45 |...f7...".EN NUE|
00002F50: 53 54 52 4F 20 50 52 4F 58 49 4D 4F 20 50 52 4F |STRO PROXIMO PRO|
00002F60: 47 52 41 4D 41 22 00 86 37 85 13 99 22 11 55 53 |GRAMA"..7...".US|
00002F70: 54 45 44 20 56 45 52 41 20 43 4F 4D 4F 20 4F 42 |TED VERA COMO OB|
00002F80: 54 45 4E 45 52 22 00 AD 37 86 13 99 22 11 42 45 |TENER"..7...".BE|
00002F90: 4C 4C 41 53 20 46 4F 52 4D 41 53 20 50 41 52 41 |LLAS FORMAS PARA|
00002FA0: 20 4C 4F 53 20 53 50 52 49 54 45 53 22 00 DA 37 | LOS SPRITES"..7|
00002FB0: 88 13 4D 53 24 B2 22 20 20 41 44 49 4F 53 21 20 |..MS$." ADIOS! |
00002FC0: 22 3A 8D 36 33 31 30 30 3A 81 49 B2 31 A4 35 3A |":.63100:.I.1.5:|
00002FD0: 8D 36 33 36 30 30 3A 82 3A 80 00 E0 37 D4 30 3A |.63600:.:...7.0:|
00002FE0: 00 FD 37 DE 30 81 49 B2 30 A4 36 32 3A 58 B2 32 |..7.0.I.0.62:X.2|
00002FF0: 34 30 3A 97 38 33 32 AA 49 2C 58 3A 82 00 20 38 |40:.832.I,X:.. 8|
00003000: E8 30 97 32 30 34 30 2C 31 33 3A 97 32 30 34 30 |.0.2040,13:.2040|
00003010: AA 33 2C 31 33 3A 97 32 30 34 30 AA 37 2C 31 33 |.3,13:.2040.7,13|
00003020: 00 4B 38 F2 30 56 B2 35 33 32 34 38 3A 97 20 56 |.K8.0V.53248:. V|
00003030: AA 33 39 2C 31 30 3A 97 56 AA 33 39 AA 33 2C 31 |.39,10:.V.39.3,1|
00003040: 3A 97 56 AA 33 39 AA 37 2C 31 34 00 5D 38 FC 30 |:.V.39.7,14.]8.0|
00003050: 97 56 AA 32 31 2C 31 AA 38 AA 31 32 38 00 71 38 |.V.21,1.8.128.q8|
00003060: 10 31 81 20 54 B2 30 20 A4 20 35 30 30 20 A9 20 |.1. T.0 . 500 . |
00003070: 35 00 83 38 15 31 58 30 B2 54 AD 32 3A 59 30 B2 |5..8.1X0.T.2:Y0.|
00003080: 54 AD 33 00 9D 38 16 31 58 33 B2 32 35 30 AB 54 |T.3..8.1X3.250.T|
00003090: AD 32 3A 59 33 B2 32 30 30 AB 54 AD 33 00 C6 38 |.2:Y3.200.T.3..8|
000030A0: 17 31 58 37 B2 31 35 30 AA 31 30 30 AC BF 28 54 |.1X7.150.100..(T|
000030B0: AD 35 30 29 3A 59 37 B2 31 30 30 AA 35 30 AC BE |.50):Y7.100.50..|
000030C0: 28 54 AD 35 30 29 00 E2 38 1A 31 97 20 56 AA 32 |(T.50)..8.1. V.2|
000030D0: AC 30 2C 58 30 3A 97 20 56 AA 32 AC 30 AA 31 2C |.0,X0:. V.2.0.1,|
000030E0: 59 30 00 FE 38 1F 31 97 20 56 AA 32 AC 33 2C 58 |Y0..8.1. V.2.3,X|
000030F0: 33 3A 97 20 56 AA 32 AC 33 AA 31 2C 59 33 00 1A |3:. V.2.3.1,Y3..|
00003100: 39 20 31 97 20 56 AA 32 AC 37 2C 58 37 3A 97 20 |9 1. V.2.7,X7:. |
00003110: 56 AA 32 AC 37 AA 31 2C 59 37 00 2C 39 24 31 82 |V.2.7.1,Y7.,9$1.|
00003120: 20 54 3A 97 56 AA 32 31 2C 30 3A 8E 00 32 39 60 | T:.V.21,0:..29`|
00003130: EA 3A 00 54 39 61 EA 42 54 24 B2 22 13 22 3A 81 |.:.T9a.BT$.".":.|
00003140: 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 24 AA 22 |I.1.24:BT$.BT$."|
00003150: 11 22 3A 82 00 9E 39 62 EA 50 54 24 B2 22 9E B0 |.":...9b.PT$."..|
00003160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D 9D 9D 9D |................|
00003170: 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D 1D 1D 1D |................|
00003180: 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003190: 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD 22 00 E6 |............."..|
000031A0: 39 63 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D |9c.PT$.PT$."....|
000031B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 A3 A3 A3 |................|
000031C0: A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D 9D 9D 9D |................|
000031D0: 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D 3D 3D 3D |........========|
000031E0: 3D 3D 3D 3D A7 22 00 22 3A 64 EA 50 54 24 B2 50 |====.".":d.PT$.P|
000031F0: 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |T$."............|
00003200: 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 |................|
00003210: CF 91 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003220: 9D 22 00 59 3A 65 EA 50 54 24 B2 42 54 24 AA 22 |.".Y:e.PT$.BT$."|
00003230: 91 91 91 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003240: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003250: 22 AA 50 54 24 AA 22 9F 22 00 89 3A 67 EA 4D 4C |".PT$."."..:g.ML|
00003260: 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D 1D 1D |$.".............|
00003270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003280: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 9C 3A 68 EA 57 44 |........"..:h.WD|
00003290: B2 34 30 3A 43 52 54 B2 31 30 32 34 00 D6 3A 69 |.40:CRT.1024..:i|
000032A0: EA 57 32 B2 57 44 AD 32 3A 57 33 B2 57 44 AB 31 |.W2.WD.2:W3.WD.1|
000032B0: 3A 57 31 24 B2 CA 28 C4 28 57 44 29 2C 32 29 3A |:W1$..(.(WD),2):|
000032C0: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
000032D0: 36 3A 99 22 05 22 00 F3 3A 6A EA 56 B2 35 33 32 |6:."."..:j.V.532|
000032E0: 34 38 3A 81 49 B2 30 A4 31 36 3A 97 56 AA 49 2C |48:.I.0.16:.V.I,|
000032F0: 30 3A 82 00 1A 3B 6B EA 97 56 AA 32 33 2C 30 3A |0:...;k..V.23,0:|
00003300: 97 56 AA 32 39 2C 30 3A 81 49 B2 30 A4 37 3A 97 |.V.29,0:.I.0.7:.|
00003310: 56 AA 33 39 AA 49 2C 30 3A 82 00 20 3B 74 EA 8E |V.39.I,0:.. ;t..|
00003320: 00 2B 3B 30 F2 8D 36 33 30 30 30 00 41 3B 31 F2 |.+;0..63000.A;1.|
00003330: 99 53 44 24 43 4C 24 3A 99 43 4C 24 3A 99 43 4C |.SD$CL$:.CL$:.CL|
00003340: 24 00 47 3B 33 F2 8E 00 89 3B 18 F6 99 22 13 11 |$.G;3....;..."..|
00003350: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003360: 11 11 11 11 11 11 11 50 52 45 53 49 4F 4E 45 20 |.......PRESIONE |
00003370: 12 52 45 54 55 52 4E 92 20 50 41 52 41 20 43 4F |.RETURN. PARA CO|
00003380: 4E 54 49 4E 55 41 52 22 3B 00 9F 3B 19 F6 A1 41 |NTINUAR";..;...A|
00003390: 24 3A 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 |$:.A$.."".63001.|
000033A0: B4 3B 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 |.;...A$:.A$."".6|
000033B0: 33 30 30 32 00 BA 3B 1B F6 8E 00 D5 3B 7C F6 8D |3002..;.....;|..|
000033C0: 36 33 36 30 30 3A 81 54 B2 31 A4 35 3A 99 50 54 |63600:.T.1.5:.PT|
000033D0: 24 4D 53 24 3B 00 EB 3B 7D F6 99 50 54 24 22 20 |$MS$;..;}..PT$" |
000033E0: 20 20 20 20 20 20 20 20 20 22 3B 00 FA 3B 7E F6 | ";..;~.|
000033F0: 99 50 54 24 4D 53 24 3B 3A 82 00 05 3C 7F F6 99 |.PT$MS$;:...<...|
00003400: 22 05 22 3A 8E 00 3C 3C 70 F8 97 35 34 32 39 36 |".":..<<p..54296|
00003410: 2C 31 35 3A 97 35 34 32 37 38 2C 32 34 30 3A 97 |,15:.54278,240:.|
00003420: 35 34 32 37 36 2C 31 37 3A 97 35 34 32 37 33 2C |54276,17:.54273,|
00003430: 31 30 30 AA 31 30 30 AC BB 28 30 29 00 60 3C 72 |100.100..(0).`<r|
00003440: F8 81 49 58 B2 31 A4 31 30 30 3A 82 3A 97 35 34 |..IX.1.100:.:.54|
00003450: 32 37 33 2C 30 3A 97 35 34 32 39 36 2C 30 3A 8E |273,0:.54296,0:.|
00003460: 00 8E 3C D4 F8 97 35 34 32 39 36 2C 31 35 3A 97 |..<...54296,15:.|
00003470: 35 34 32 37 38 2C 32 34 30 3A 97 35 34 32 37 36 |54278,240:.54276|
00003480: 2C 31 37 3A 97 35 34 32 37 33 2C 31 34 31 00 A3 |,17:.54273,141..|
00003490: 3C D5 F8 A1 58 24 3A 8B 58 24 B2 22 22 A7 36 33 |<...X$:.X$."".63|
000034A0: 37 30 31 00 DC 3C D6 F8 97 35 34 32 37 33 2C 30 |701..<...54273,0|
000034B0: 3A 99 22 93 53 41 56 45 22 C7 28 33 34 29 22 53 |:.".SAVE".(34)"S|
000034C0: 50 52 49 54 45 53 20 31 22 C7 28 33 34 29 22 3A |PRITES 1".(34)":|
000034D0: 47 4F 54 4F 36 33 37 30 30 22 3A 80 00 29 3D 9C |GOTO63700":..)=.|
000034E0: F9 53 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.SD$."..........|
000034F0: 11 11 11 11 11 11 11 11 11 22 3A 43 4C 24 B2 22 |.........":CL$."|
00003500: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00003510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003520: 20 20 20 20 20 20 20 92 22 00 5C 3D 9D F9 53 52 | .".\=..SR|
00003530: 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............|
00003540: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003550: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 62 3D 9E |...........".b=.|
00003560: F9 8E 00 00 00 |..... |
.. ...."......HORA SOFTWARE 1983.-....".
......J.... SAVE"SPRITE.1.ES.J1",8.Q....
60000:.". HORDAC 64". ...."
......................................."
......". .. SPRITE 1
.. .":MS$."BIENVENIDO"......".....
..................................":.631
00.N....I.0.62:. X:.832.I,X:.:V.53248:.2
040,13:.V.21,1......V.39,1:.V.1,100:A$."
........
".....B$."ESTE ES UN SPRITE"......V.3
9,1:.V.1,100:.X.0.255.8:.V,X:.H(A$,8.X1)
;......I(B$,31.X2):X2.X2.(X2.32):X1.X1.1
:.T.1.10:.:..C....63000:.I.0.15:.V.39,I:
.T.1.50:.:.:.V.21,0.....MS$." YUM YUM":.
63100:."..ES MUY FACIL IMPRIMIR 8 'SPRI
TES'"......".SIMULTANEAMENTE EN LA PANTA
LLA.".Z....".LOS SPRITES SERAN NUMERADOS
0,1,..7."......".ELIJA UN NUMERO ..(DE
0 A 7).. Y UN"......".UN BLOC DE MEMORIA
PARA GUARDAR".S.$..".LA ..'FORMA'.. DEL
SPRITE N.".V...MS$."0123456..7":.63100:
.63000...8..".UN SPRITE ESTA HECHO DE UN
A MATRIZ".Q.B.."DE ..PIXELS.. O ..PUNTOS
.. EN LA PANTALLA...L.."FORMADA DE ..24.
. PUNTOS DE ANCHO "...M.."Y ..21.. PUNT
OS DE ALTO".@.V..".(24*21=504 PUNTOS EN
TOTAL).".R.[..".CADA PUNTO PUEDE APARECE
R ..PRENDIDO.., O"...`.."ESTAR ..APAGADO
.., ESTO LO VAMOS A INDICAR.E.E.."CON UN
'1' (PARA PRENDIDO)"...J.."O CON UN '0'
(PARA APAGADO)"...T..".POR CONSIGUIENTE
SE PUEDE GUARDAR LA".T.~.."FORMA DE UN
SPRITE EN 504 CIFRAS BINARIAS (BI
TS)"......".COMO NOSOTROS GURDAMOS LAS C
IFRAS EN"......"BYTES DEBEMOS EFECTUAR L
A.M...."SIGUIENTE DIVISION: .504/8=63 BY
TES!".X....63000......".RESERVAREMOS .63
. BYTES DE MEMORIA".+....".(QUE SE LLAMA
RAN ..'BLOQUES'..)".T.D..".PARA CADA ..'
FORMA'.. DE SPRITE."...N..".SI USTED ME
INDICA EL NUMERO DEL BLOQUE...X..".YO SA
BRE DONDE ENCONTRAR SU FORMA."......".EJ
EMPLO: SI USTED ESCRIBE .BLOQUE 90."....
..".YO IRE HACIA EL LUGAR DE LA MEMORIA"
.5...."...64*90=5760.. PARA TOMAR EL PRI
MERO".L....".DE LOS 63 BYTES!":MS$."63 Q
UE ?!":.63100:.63000......".QPARA NUESTR
O SPRITE TENEMOS QUE ELEJIR......" AHORA
UN NUMERO (.N.) Y...#.." UN NUMERO DE B
LOQUE (.B.)...(..".Q..TOME NOTA..:LOS BL
OQUES B=11,13,14 Y 15".<.2.." SON 'AMAB
LES' PORQUE LOS 63 BYTES DE".\.<.." MEMO
RIA QUE COMIENZAN EN...F..". 64*11=.704.
":." 64*13=.832.":." 64*14=.896".K.P.."
64*15=.960. ":.".ESTAN DISPONIBLES PARA
LOS SPRITES...Z.." (MEJOR DICHO ..RESERV
ADOS..)".!.D..".QPOR LO TANTO DEBERA UD.
.POKA.R LOS .0.".A.N.." Y LOS .1. EN EL
BLOQUE.".Z.S.."...100 FORI=0TO62:READ X
:POKE64*B+I,X:NEXT":.63000...X..".REPETI
REMOS ESTO DE NUEVO:".N...."..100 FORI=0
TO62:READ X:POKE64*B+I,X:NEXT"......"..A
HORA LE DIREMOS AL C-64 DONDE TIENE.,...
.".QUE IR A...BUSCAR.. LA FORMA DEL SPRI
TE:".\. .."..QPARA EL SPRITE .N., HAY QU
E ESCRIBIR:"......". . 110 POKE 2040+N,B
.:REM B=BLOQUE #."......"...QLAS OCHO DI
RECCIONES QUE VAN DE 2040......" A 2047
CONTIENEN EL NUMERO DEL...H.." BLOQUE A
BUSCAR":MS$." .2040+N.":.63100:.63000.C
.M..".ESTOY SEGURO QUE AHORA USTED DESEA
RA".M.N..".EXHIBIR EL SPRITE EN LA PANTA
LLA,"...O..".DARLE UN LINDO COLOR, MOVER
LO...P..".A TRAVES DE LA PANTALLA, HACER
LO"...Q..".MAS GRANDE O MAS CHIQUITITO..
."...R..".Y MUCHO MAS.2.T.."..TODO ESTO
ES POSIBLE GRACIAS A":.".LA 'PULGA' VIDE
O".L.W..".LA ..CHIP VIDEO..!":MS$."NICE
CHIP!":.63100:.63000......".. LA CHIP V
IDEO"......".ESTA SEXY CHIP TIENE 47 DIR
ECCIONES......".DE MEMORIA INTERNA O ..R
EGISTROS..."......".QUE COMIENZAN EN ..$
D000.. EN HEXADECIMAL".-....".O ..53248.
. EN DECIMAL".U....".EN NUESTRO PROGRAMA
DEFINIREMOS"......"...120 V=53248:REM P
RINCIPIO DE CHIP VIDEO"......"..PARA 'AC
TIVAR' EL SPRITE # N:".J...."...130 POKE
V+21,2^N"......"..QUE ...ES 2 ELEVADO":
.".A LA POTENCIA N".....MS$."ENCENDER??"
:.63100:.63000.F....".AQUI TAMBIEN EL 21
HACE EL JUEGO.Q.!.."..EL BYTE QUE ESTA
EN ..V+21.. TIENE..."..".TAMBIEN 8 BITS.
...#..".A CADA BIT LE CORRESPONDE UN SPR
ITE."...$..".PARA HACER APARACER EL SPRI
TE # 5"...'..".HAY QUE ..ENCENDER.. EL B
IT # 5."...(..".COMO HACERLO?".B.*..".SO
LAMENTE: ..POKE V+21,32..".S.,..".TOME N
OTA......................: 2^5=32"...-.
MS$." 00100000":.63100:.63000.B.6..".GEN
ERALIZANDO SE PUEDE DECIR QUE PARA...8..
".PARA ..ACTIVAR.. EL SPRITE # N HAY QUE
HACER"...;.."..130 POKEV+21,2^N.".@.<..
".(USTED SE SORPRENDERA AL COMPROBAR QUE
.N.J.."LOS OTROS SPRITES HAN .DESAPARECI
DO!.)"...T..".QSI USTED QUIERE ENCENDER
A LA VEZ LOS...^.." SPRITES #1, #3 Y #7
ESCRIBA:...H.."..POKEV+21,1+8+128.."...R
..".NOTA:2^0+2^3+2^7=1+8+128 (LINDO!)".4
.|..".Y PARA ..ENCENDER TOTOS LOS SPRITE
S..:.H...."..POKEV+21,255":MS$." 1000100
1":.63100:.63000......".HASTA AHORA TENE
MOS:"......"..100 FORI=0TO62:READ X:POKE
64*B+I,X:NEXT"......".110 POKE2040+N,B:R
EM LUGAR DE LA FORMA "...B..".120 V=5324
8: REM PRINCIPIO CHIP VIDEO".F.L..".13
0 POKEV+21,2^N:REM ACTIVE EL SPRITE ".S
.V.."...Y EL SPRITE # N ESTA EN LA PANTA
LLA......".PERO..... DE QUE COLOR ?!*+!.
.".F....".HAY UNA ELECCION DE.. 16 COLOR
ES..."......".NUMERADOS: 0,1,2,...15."..
....".PARA COLOREAR EL SPRITE # N DE RO
SA.<....".(COLOR # 10) NOS DIRIGIREMOS H
ACIA.D....".OTRO REGISTRO EN LA CHIP VID
EO."......"...POKEV+39+N,10..: EL SPRITE
# N ESTA ROSA!":.63000.K.D..".Y AHORA .
..EN QUE LUGAR EXHIBIREMOS"...N.."EL SPR
ITE EN LA PANTALLA?"...X..".EL C-64 TIEN
E 40 COLUMNAS, CADA UNA".G.B.."CONTIENE
8 'PUNTOS', LO QUE REPRESENTA:".P.C.."..
40*8=320.. PUNTOS HORIZONTALES."...D..".
POR LO TANTO PODREMOS ..POSICIONAR".F.L.
."NUESTRO SPRITE N EN CADA UNA DE LAS"..
.V.."320 POSICIONES-..X..."......"..EL C
64 TIENE TAMBIEN 25 LINEAS CADA UNA".A..
.."CON 8 PUNTOS DE ALTO LO QUE REPRESENT
A.K...."..25*8=200.. PUNTOS VERTICALEMEN
TE"......".LUEGO, PODREMOS COLOCAR NUEST
RO"......"SPRITE N EN CADA UNA DE LAS 20
0"... .."POSICIONES-..Y.. POSIBLES":.630
00......".Y QUIEN CONTROLA LA INFORMACIO
N SOBRE.;...."LA POSICION-X Y SOBRE LA P
OSICION-Y ?.S.F..".POR SUPUESTO! ES OTR
O REGISTRO":."..V+ALGO ..."...P..".ESTA
VEZ ESCRIBA:"...Z..".POKE V+2*N,X:POKE V
+2*N+1,Y"......".SIEMPRE QUE LAS 'X' Y L
AS 'Y' SEAN"......"..MENORES.. QUE 256 E
STAREMOS EN FORMA".-....".EN EFECTO PODE
MOS ESCRIBIR".R...."..FOR T=0 TO 500
".V....".X=T/2:Y=T/3
"......".POKE V+2*N,X:POKE V+2*N+1,
Y".E....".NEXT T ":.
63000... ..".ENSAYEMOS ALGO SIMPATICO"..
*.."..FOR T=0 TO 500 "./ 4.
.".X=FNX(T):Y=FNY(T) ".S >..".P
OKE V+2*N,X:POKE V+2*N+1,Y".W H..".NEXT
T ".. R..".Y NUESTRO
SPRITE SEGUIRA LA".. \..".CURVA DADA PO
R LAS FUNCIONES".. F..".FNX Y FNY, YA .D
EF.INIDAS."..!K.MS$."DEF FNX(X)":.63100:
.63000..!P..".SI USTED QUIERE TENER EL S
PRITE".[!Z..".EN EL COSTADO DERECHO DE L
A PANTALLA"..!...".EN LAS POSICIONES 256
A 320,"..!...".USTED DEBERA HACER...:".
.!..."....DE NUEVO EL CHIP VIDEO!":MS$
." ADONDE? !":.63100..!...63000.."...".D
E NUEVO OTRO REGISTRO: A V+16, QUE".L"..
.".TIENE TAMBIEN 8 BITS, UNO PARA CADA
.SPRITE.".V"...".PARA MOVER EL SPRITE
# N HAREMOS:".."J.."...POKE V+16,2^N.".
."T..".ESTO ENCIENDE EL 'BIT N' PARA QUE
".."...".EL SPRITE N SE PUEDA MOVER ENTR
E"..#...".LAS POSICIONES 256 Y 320!".&#.
.MS$." 10001001":.63100:.63000.Q#..."..T
OME NOTA.:POKE V+16,32 VA VARIAR"..#..."
.LA POSICION-X DEL SPRITE #5 POR":."..LA
.ADICION DE 256."..#...".AL VALOR X .PO
KADO. EN V+2*5"..#..."..POKE V+2*5,50:RE
M POSICION-X ES 50"..$..."..POKE V+16,32
:REM SUMA 256".I$$..".EL SPRITE #5 SE EN
CONTRARA ENTONCES":.".EN LA POSICION 306
".K$%.MS$." .V+16.":.63100:.63000..$).
.".PARA TENER EL SPRITE #0 ..Y.. EL SPRI
TE #3".O$..."...Y.. EL SPRITE #7 ..TODOS
.. A LA DERECHA..$8..".TOME ENTONCES LOS
VALORES X0,X3 Y X7:".)%B.."..POKE V+2*0
,X0:REM POSICION-X DE #0".U%L.."..POKE V
+2*3,X3:REM POSICION-X DE #3"..%V.."..PO
KE V+2*7,X7:REM POSICION-X DE #7"..%`.."
..POKE V+16,1+8+128:SUME 256 A TODOS!".Q
%E.MS$." .V+2*N.":.63100:.63000..%F.."
.ELIJA EL BLOQUE 13 Y EL SPRITE 3".*&G..
"DANDOLE A TODOS LOS BYTES LA FORMA=.240
.".^&H.."... 99 B=13:N=3
";..&J..".100 FORI=0TO62:X=2
40:POKE64*B+I,X:NEXT ";.B&T..".110 POKE
2040+3,B: REM GUARDAR LA FORMA ";..&~..
".120 V=53248: REM PRINCIPIO CHIP VID
EO";.&'...".130 POKE V+39+N,10:REM COLOR
ROSA ";.X'...".140 POKEV+21,2^N:
REM ACTIVA SPRITE ";..'...".150 FOR
T=0 TO 500 STEP 5 ";..'...
".160 X=T/2:Y=180+T/5
";..'...".170 POKE V+2*N,X:POKE V+2*N+
1,Y ";.'(...".180 NEXT T
.";:.4000.E(..MS$.
". YUM !!! .":.63100..(..."......ESTO E
S VALIDO PARA EL SPRITE..N=3 ":.V.21,
0..(D..".AHORA PARA 3 SPRITES..0, 3 Y 7.
":.63000..(N.."...100 FORI=0TO62:READ X:
POKE64*B+I,X:NEXT ";:.2600.%)X.."....110
POKE2040+0,B: REM BLOQUE FORMA #0 ";:
.2610.A)Y..".....111 POKE2040+3,B: REM
BLOQUE FORMA #3 ";:.2620..)Z.."......11
2 POKE2040+7,B: REM BLOQUE FORMA #7 ";
:.2630..)...".......120 V=53248: REM P
RINCIPIO CHIP VIDEO ";:.2640..*...".....
...130 POKE V+39+0,10:REM #0 ES ROSA
";:.2650.[*...".........131 POKE V+39
+3,12:REM #3 ES BLANCO ";:.2660..*..
."..........132 POKE V+39+7,14:REM #7 ES
CELESTE ";:.2670..*..."...........14
0 POKEV+21,1+8+128:REM ACTIVE SPRITES ";
:.2680.!+..."............150 FOR T=0 TO
500: TT=T/50 ";:.2690.E+..."
.............160 X0=T/2:Y0=T/3
";:.2700..+..."............
..161 X3=250-T/2:Y3=200-T/3
";:.2710..+..."...............162 X7=1
50+100*SIN(TT):Y7=100+50*COS(TT)":.2720.
6,..."................170 POKE V+2*0,X0:
POKE V+2*0+1,Y0 ";:.2730.~,..."...
..............171 POKE V+2*3,X3:POKE V+2
*3+1,Y3 ";:.2740.A,..."...........
.......172 POKE V+2*7,X7:POKE V+2*7+1,Y7
";.K,...2750..-..."..............
.....180 NEXT T
";.B-...2760:.12500:MS$." WHEE!!":.
63100:.63000:.2800.S-(.."..PONGA LA DATA
EN EL BLOQUE 'B'":.63000:...-2.."..DICE
DONDE SE ENCUENTRA LA FORMA # 0":.63000
:...-<.."..DICE DONDE SE ENCUENTRA LA FO
RMA # 3":.63000:....F.."..DICE DONDE SE
ENCUENTRA LA FORMA # 7":.63000:..A.P..".
.RECUERDE ESTE NUMERO!!":.63000:..K.Z.."
..POKE V+39+N & N=0..OK? ":.63000:....D.
."..POKE V+39+N & N=3..OK! ":.63000:....
N..".....QUE MEJOR?....... ":.63000:....
X.."..ACTIVELOS TODOS !!!!!!!":.63000:..
./..."..AHORA PARA 500 PASOS":.63000:..9
/..."..DEFINE LA POSICION X E Y":.63000:
..H/..."..TAMBIEN PARA EL #3 ":
.63000:.../ .."..Y PARA EL #7 .!?*
":.63000:.../..."..MUEVA EL SPRITE #0
":.63000:.../..."..MUEVA EL SPRITE #
3 ":.63000:...0..."..MUEVA EL SPRITE
#7 ":.63000:..=0H.."..HACIA EL NEXT
T ":.63000:..J0..."..POR SUPUES
TO QUE PODREMOS HACER LOS"..0...".SPRITE
S CADA UNO CON FORMA DIFERENTE"..0...".Y
PARA ESTO:".Z0..."..FORI=0TO62:READ X:P
OKE64*B0+I,X:NEXT"..1..."..FORI=0TO62:RE
AD X:POKE64*B3+I,X:NEXT".61".."..FORI=0T
O62:READ X:POKE64*B7+I,X:NEXT".]1,..".Y
PARA TENER B0, B3 Y B7 TODOS"..16..".DIF
ERENTES, HAY QUE ESCRIBIR:"..1@.."...POK
E2040+0,B0"..1A..".POKE2040+3,B3".H1B.."
.POKE2040+7,B7."..1E.MS$." .2040+N.":.6
3100..1J..63000..2T..".JUGUEMOS CON EL S
PRITE CREADO POR:.".K2^..". 99 B=13:N=3
".{2H..".100 F
ORI=0TO62:X=240:POKE64*B+I,X:NEXT "..2R.
.".110 ETC. ETC. ETC.
".L2|.N.3:B.13:T0.500:T1.500:.4100.W2.
..63000..3..."...............PARA CAMBIA
R SU DIMENSION.=3...".POKAREMOS EN OTRO
REGISTRO":.".V+ALGO. ":.63000.D3...".YO
VOY AGRANDAR LA DIMENSION-X"..3..."..
POKE V+29,2^N ":.6
3000:.V.29,2.N.P3..."....AHORA AGRANDARE
LA DIMENSION-Y"..4...".. POKE V+23,2
^N ":.63000:.V.23,2
.N.A4...".......YO VOY A REDUCIR LA DIME
NSION-X:"..4B..".. POKE V+29,0
":.63000:.V.29,0..4L.."
.........YO VOY A REDUCIR LA DIMENSION-Y
:"..4V..".. POKE V+23,0
":.63000:.V.23,0.#5...".......
.... ES PRECIOSO ".65..
.63000:.V.29,0.O5...63000:.V.21,0:.4996.
.5D..0,255,0,7,255,128,15,255,192,31,255
,224,63,7,240,127,7,248,255,119,240..5E.
.255,119,224,255,255,192,255,255,128,255
,255,0,255,255,0,127,255,128.(6F..63,255
,192,31,255,224,15,255,240,7,255,248,1,2
55,252,0,127,248.=6G..0,31,128,0,14,0.C6
.:.L6..B.13.T6..N.3.L6..T0.0:T1.500:.41
00:...6...I.0.62:X.240:.64.B.I,X:...6...
2040.N,B..6..V.53248..6".. V.39.N,10.N6'
.. V.2.N,0:. V.2.N.1,0..6(.. V.29,0:. V.
23,0..6,..V.21,2.N..76.. T.T0 . T1 . 5..
7@.X.T.2:Y.100.T.5.47J.. V.2.N,X:. V.2.N
.1,Y.<7T.. T.B7^...F7...".EN NUESTRO PRO
XIMO PROGRAMA"..7...".USTED VERA COMO OB
TENER"..7...".BELLAS FORMAS PARA LOS SPR
ITES".Z7..MS$." ADIOS! ":.63100:.I.1.5:
.63600:.:...7T0:..7.0.I.0.62:X.240:.832.
I,X:.. 8.0.2040,13:.2040.3,13:.2040.7,13
.K8.0V.53248:. V.39,10:.V.39.3,1:.V.39.7
,14.]8.0.V.21,1.8.128.Q8.1. T.0 . 500 .
5..8.1X0.T.2:Y0.T.3..8.1X3.250.T.2:Y3.20
0.T.3.F8.1X7.150.100..(T.50):Y7.100.50..
(T.50)..8.1. V.2.0,X0:. V.2.0.1,Y0..8.1.
V.2.3,X3:. V.2.3.1,Y3..9 1. V.2.7,X7:.
V.2.7.1,Y7.,9$1. T:.V.21,0:..29`.:.T9A.B
T$.".":.I.1.24:BT$.BT$.".":...9B.PT$."..
........................................
....................."..9C.PT$.PT$."....
..........N............M................
============.".":D.PT$.PT$."............
...PO..........PO................".Y:E.P
T$.BT$."................................
".PT$."."..:G.ML$.".....................
................"..:H.WD.40:CRT.1024.V:I
.W2.WD.2:W3.WD.1:W1$.J(D(WD),2):.53281,6
:.53280,6:."."..:J.V.53248:.I.0.16:.V.I,
0:...;K..V.23,0:.V.29,0:.I.0.7:.V.39.I,0
:.. ;T...+;0..63000.A;1..SD$CL$:.CL$:.CL
$.G;3....;...".........................P
RESIONE .RETURN. PARA CONTINUAR";..;...A
$:.A$.."".63001..;...A$:.A$."".63002..;.
...U;|..63600:.T.1.5:.PT$MS$;..;}..PT$"
";..;~..PT$MS$;:...<..".":..<<
P..54296,15:.54278,240:.54276,17:.54273,
100.100..(0).`<R..IX.1.100:.:.54273,0:.5
4296,0:...<T..54296,15:.54278,240:.54276
,17:.54273,141..<U..X$:.X$."".63701..<V.
.54273,0:.".SAVE"G(34)"SPRITES 1"G(34)":
GOTO63700":..)=..SD$."..................
.":CL$.".
.".\=..SR$.".....................
...................".B=......
> CLICK IMAGE PREVIEW FOR FULL MODAL