SPRITE EDITOR
FILE INFORMATION
FILENAME(S): SPRITE EDITOR
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-10-19 23:07:05
APPEARS ON: 1 disk(s)
FILE HASH
bd2d83f290f0f67f5e3ec83d360abce9f240af875d3d3296d225ec06c27f9b1c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A31B | SPRITE EDITOR | PRG | Bugjam - Argentina | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 02 00 8F 20 4F 50 45 4E 20 52 53 2D |.. .... OPEN RS-|
00000010: 32 33 32 43 20 49 2F 4F 20 43 48 41 4E 4E 45 4C |232C I/O CHANNEL|
00000020: 00 48 08 03 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.H.... *********|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 00 68 08 05 00 9F 20 32 |********.h.... 2|
00000050: 30 30 2C 32 2C 33 2C C7 28 33 32 AA 36 29 AA C7 |00,2,3,.(32.6)..|
00000060: 28 33 32 AA 31 32 38 29 00 70 08 0A 00 89 38 30 |(32.128).p....80|
00000070: 00 96 08 0C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 00 BC 08 0D 00 8F 20 55 4E 50 |******...... UNP|
000000A0: 41 43 4B 20 42 49 54 20 56 41 4C 55 45 53 20 46 |ACK BIT VALUES F|
000000B0: 4F 52 20 45 41 43 48 20 42 59 54 45 00 E0 08 0E |OR EACH BYTE....|
000000C0: 00 8F 20 4F 46 20 41 20 36 33 20 42 59 54 45 20 |.. OF A 63 BYTE |
000000D0: 41 52 52 41 59 2E 20 49 46 20 42 49 54 20 49 53 |ARRAY. IF BIT IS|
000000E0: 00 06 09 0F 00 8F 20 53 45 54 20 54 48 45 4E 20 |...... SET THEN |
000000F0: 50 4F 4B 45 20 47 52 41 50 48 49 43 20 43 48 41 |POKE GRAPHIC CHA|
00000100: 52 41 43 54 45 52 00 2C 09 10 00 8F 20 49 4E 20 |RACTER.,.... IN |
00000110: 53 43 52 45 45 4E 20 4D 45 4D 4F 52 59 20 54 4F |SCREEN MEMORY TO|
00000120: 20 52 45 43 4F 4E 53 54 52 55 43 54 00 53 09 11 | RECONSTRUCT.S..|
00000130: 00 8F 20 53 50 52 49 54 45 20 49 4D 41 47 45 20 |.. SPRITE IMAGE |
00000140: 43 41 4C 4C 45 44 20 42 59 20 52 45 44 49 53 50 |CALLED BY REDISP|
00000150: 4C 41 59 00 62 09 12 00 8F 20 52 4F 55 54 49 4E |LAY.b.... ROUTIN|
00000160: 45 2E 00 89 09 13 00 8F 20 2A 2A 2A 2A 2A 2A 2A |E....... *******|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 09 14 00 4C B2 |*********.....L.|
00000190: 31 30 37 36 3A 4A B2 31 3A 81 49 B2 31 A4 32 31 |1076:J.1:.I.1.21|
000001A0: 00 B6 09 17 00 81 58 B2 31 A4 33 3A 41 B2 53 44 |......X.1.3:A.SD|
000001B0: 28 53 4E 2C 4A 29 00 DD 09 19 00 81 59 B2 31 A4 |(SN,J)......Y.1.|
000001C0: 38 3A 8B 41 AF 44 43 28 59 29 A7 97 4C AA 59 2C |8:.A.DC(Y)..L.Y,|
000001D0: 31 36 30 3A 97 4C AA 59 AA 4F 46 2C 30 00 E4 09 |160:.L.Y.OF,0...|
000001E0: 1A 00 82 59 00 F7 09 25 00 4C B2 4C AA 38 3A 4A |...Y...%.L.L.8:J|
000001F0: B2 4A AA 31 3A 82 58 00 05 0A 28 00 4C B2 4C AA |.J.1:.X...(.L.L.|
00000200: 31 36 3A 82 49 00 0B 0A 2A 00 8E 00 32 0A 2D 00 |16:.I...*...2.-.|
00000210: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 00 59 0A 2E 00 8F 20 49 4D 50 52 49 4D 49 |**.Y.... IMPRIMI|
00000240: 52 20 43 41 52 41 43 54 45 52 20 44 45 4C 20 41 |R CARACTER DEL A|
00000250: 4C 46 41 4E 55 4D 45 52 49 00 7F 0A 2F 00 8F 20 |LFANUMERI.../.. |
00000260: 43 4F 20 42 24 20 45 4E 20 4C 41 20 50 41 4E 54 |CO B$ EN LA PANT|
00000270: 41 4C 4C 41 20 43 4F 4D 45 4E 5A 41 4E 44 4F 00 |ALLA COMENZANDO.|
00000280: 99 0A 30 00 8F 20 45 4E 20 4C 41 20 44 49 52 45 |..0.. EN LA DIRE|
00000290: 43 43 49 4F 4E 20 4C 32 2E 00 C0 0A 31 00 8F 20 |CCION L2....1.. |
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 00 F3 0A 32 00 81 58 B2 30 A4 C3 28 42 24 29 AB |...2..X.0..(B$).|
000002D0: 31 3A 43 48 B2 C6 28 CA 28 42 24 2C 58 AA 31 2C |1:CH..(.(B$,X.1,|
000002E0: 31 29 29 3A 8B 43 48 B1 36 34 A7 43 48 B2 43 48 |1)):.CH.64.CH.CH|
000002F0: AB 36 34 00 10 0B 34 00 97 20 4C 32 AA 58 2C 43 |.64...4.. L2.X,C|
00000300: 48 3A 97 4C 32 AA 58 AA 4F 46 2C 31 31 3A 82 58 |H:.L2.X.OF,11:.X|
00000310: 00 16 0B 36 00 8E 00 3D 0B 37 00 8F 20 2A 2A 2A |...6...=.7.. ***|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 0B |*************.c.|
00000340: 38 00 8F 20 43 52 45 41 54 45 20 36 33 20 42 59 |8.. CREATE 63 BY|
00000350: 54 45 20 42 49 54 20 50 41 43 4B 45 44 20 41 52 |TE BIT PACKED AR|
00000360: 52 41 59 00 8A 0B 39 00 8F 20 46 52 4F 4D 20 53 |RAY...9.. FROM S|
00000370: 43 52 45 45 4E 20 49 4D 41 47 45 20 57 48 45 4E |CREEN IMAGE WHEN|
00000380: 20 43 41 4C 4C 45 44 20 42 59 00 96 0B 3A 00 8F | CALLED BY...:..|
00000390: 20 53 41 56 45 2E 00 BD 0B 3B 00 8F 20 2A 2A 2A | SAVE....;.. ***|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F3 0B |*************...|
000003C0: 3C 00 56 B2 35 33 32 34 38 3A 97 56 AA 32 31 2C |<.V.53248:.V.21,|
000003D0: 34 3A 97 20 32 30 34 32 2C 31 33 3A 97 56 AA 34 |4:. 2042,13:.V.4|
000003E0: 2C 34 35 3A 97 56 AA 35 2C 36 30 3A 97 56 AA 34 |,45:.V.5,60:.V.4|
000003F0: 31 2C 30 00 2E 0C 3E 00 4C B2 31 30 37 36 3A 4A |1,0...>.L.1076:J|
00000400: B2 31 3A 81 58 B2 31 A4 32 31 3A 81 49 B2 31 A4 |.1:.X.1.21:.I.1.|
00000410: 33 3A 81 59 B2 31 A4 38 3A 8B C2 28 4C AA 59 29 |3:.Y.1.8:..(L.Y)|
00000420: B2 31 36 30 A7 44 B2 44 AA 44 43 28 59 29 00 5B |.160.D.D.DC(Y).[|
00000430: 0C 3F 00 82 59 3A 97 38 33 31 AA 4A 2C 44 3A 44 |.?..Y:.831.J,D:D|
00000440: B2 30 3A 4C B2 4C AA 38 3A 4A B2 4A AA 31 3A 82 |.0:L.L.8:J.J.1:.|
00000450: 49 3A 4C B2 4C AA 31 36 3A 82 58 00 61 0C 41 00 |I:L.L.16:.X.a.A.|
00000460: 8E 00 88 0C 4B 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....K.. ********|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 0C 4C 00 8F 20 50 |********...L.. P|
00000490: 52 45 50 41 52 41 52 20 4C 4F 53 20 43 4F 4C 4F |REPARAR LOS COLO|
000004A0: 52 45 53 2C 20 44 49 4D 45 4E 53 49 4F 4E 41 52 |RES, DIMENSIONAR|
000004B0: 00 D6 0C 4D 00 8F 20 4C 4F 53 20 41 52 52 45 47 |...M.. LOS ARREG|
000004C0: 4C 4F 53 2C 20 45 20 49 4E 49 43 49 41 52 20 4C |LOS, E INICIAR L|
000004D0: 41 53 20 42 41 4E 00 E3 0C 4E 00 8F 20 44 45 52 |AS BAN...N.. DER|
000004E0: 41 53 2E 00 0A 0D 4F 00 8F 20 2A 2A 2A 2A 2A 2A |AS....O.. ******|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 0D 50 00 97 |**********.>.P..|
00000510: 20 35 33 32 38 31 2C 31 35 3A 97 20 35 33 32 38 | 53281,15:. 5328|
00000520: 31 2C 31 3A 97 20 36 34 36 2C 31 32 3A 53 4E B2 |1,1:. 646,12:SN.|
00000530: 30 3A 52 45 B2 30 3A 56 B2 35 33 32 34 38 00 60 |0:RE.0:V.53248.`|
00000540: 0D 55 00 99 C7 28 31 34 37 29 3A 97 20 35 33 32 |.U...(147):. 532|
00000550: 34 38 AA 32 31 2C 30 3A 4F 46 B2 35 34 32 37 32 |48.21,0:OF.54272|
00000560: 00 92 0D 56 00 86 53 44 28 38 2C 36 33 29 2C 54 |...V..SD(8,63),T|
00000570: 44 28 36 33 29 2C 44 43 28 38 29 2C 53 53 28 38 |D(63),DC(8),SS(8|
00000580: 29 2C 54 4E 28 38 29 2C 44 52 28 33 29 2C 47 28 |),TN(8),DR(3),G(|
00000590: 33 29 00 B9 0D 57 00 8F 20 2A 2A 2A 2A 2A 2A 2A |3)...W.. *******|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D9 0D 58 00 8F 20 |*********...X.. |
000005C0: 43 41 52 47 41 52 20 45 4C 20 41 52 52 45 47 4C |CARGAR EL ARREGL|
000005D0: 4F 20 44 45 20 42 49 54 53 00 00 0E 59 00 8F 20 |O DE BITS...Y.. |
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000600: 00 25 0E 5B 00 43 B2 32 35 36 3A 81 58 B2 31 A4 |.%.[.C.256:.X.1.|
00000610: 38 3A 44 43 28 58 29 B2 43 AD 32 3A 43 B2 44 43 |8:DC(X).C.2:C.DC|
00000620: 28 58 29 3A 82 00 4C 0E 62 00 8F 20 2A 2A 2A 2A |(X):..L.b.. ****|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6C 0E 63 |************.l.c|
00000650: 00 8F 20 49 4D 50 52 49 4D 49 52 20 4D 45 4E 55 |.. IMPRIMIR MENU|
00000660: 20 44 45 20 4F 52 44 45 4E 45 53 2E 00 92 0E 64 | DE ORDENES....d|
00000670: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000690: 2A 2A 00 BC 0E 65 00 99 22 20 20 20 20 20 2A 2A |**...e.." **|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 E6 0E 66 |***********"...f|
000006C0: 00 99 22 20 20 20 20 20 2A 20 20 20 20 20 20 20 |.." * |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 2A 22 00 10 0F 67 00 99 22 20 20 20 | *"...g.." |
000006F0: 20 20 2A 20 20 47 52 41 46 49 43 4F 53 20 50 41 | * GRAFICOS PA|
00000700: 52 41 20 4C 41 20 43 2D 36 34 20 20 A0 A0 2A 22 |RA LA C-64 ..*"|
00000710: 00 3A 0F 68 00 99 22 20 20 20 20 20 2A 20 50 41 |.:.h.." * PA|
00000720: 47 49 4E 41 20 36 31 20 44 45 20 4C 41 20 52 45 |GINA 61 DE LA RE|
00000730: 56 49 53 54 41 20 20 20 2A 22 00 64 0F 69 00 99 |VISTA *".d.i..|
00000740: 22 20 20 20 20 20 2A 20 20 20 20 20 27 4D 49 43 |" * 'MIC|
00000750: 52 4F 43 4F 4D 50 55 54 49 4E 47 27 20 20 20 20 |ROCOMPUTING' |
00000760: 20 20 2A 22 00 8E 0F 6A 00 99 22 20 20 20 20 20 | *"...j.." |
00000770: 2A 20 20 20 20 20 44 45 20 4A 55 4E 49 4F 20 44 |* DE JUNIO D|
00000780: 45 20 31 39 38 33 20 20 20 20 20 20 2A 22 00 B8 |E 1983 *"..|
00000790: 0F 6B 00 99 22 20 20 20 20 20 2A 20 20 20 20 20 |.k.." * |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007B0: 20 20 20 20 20 20 2A 22 00 E2 0F 6C 00 99 22 20 | *"...l.." |
000007C0: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 2A 22 00 F2 0F 73 00 81 58 B2 31 A4 35 30 30 30 |*"...s..X.1.5000|
000007F0: 3A 82 00 25 10 C8 00 99 C7 28 31 34 37 29 3A 99 |:..%.....(147):.|
00000800: 22 20 20 20 2A 2A 2A 20 20 20 4D 45 4E 55 20 44 |" *** MENU D|
00000810: 45 20 4C 4F 53 20 47 52 41 46 49 43 4F 53 20 20 |E LOS GRAFICOS |
00000820: 20 2A 2A 2A 22 00 2F 10 CD 00 99 3A 99 3A 99 00 | ***"./....:.:..|
00000830: 50 10 D2 00 99 22 20 20 20 27 43 27 20 50 41 52 |P...." 'C' PAR|
00000840: 41 20 43 52 45 41 52 20 44 49 42 55 4A 4F 53 22 |A CREAR DIBUJOS"|
00000850: 00 76 10 D3 00 99 22 20 20 20 27 41 27 20 50 41 |.v...." 'A' PA|
00000860: 52 41 20 41 4E 49 4D 41 52 20 4C 4F 53 20 44 49 |RA ANIMAR LOS DI|
00000870: 42 55 4A 4F 53 22 00 A4 10 D4 00 99 22 20 20 20 |BUJOS"......" |
00000880: 27 4C 27 20 50 41 52 41 20 43 41 52 47 41 52 20 |'L' PARA CARGAR |
00000890: 4C 41 20 43 2D 36 34 20 44 45 53 44 45 20 43 49 |LA C-64 DESDE CI|
000008A0: 4E 54 41 22 00 C7 10 D5 00 99 22 20 20 20 27 45 |NTA"......" 'E|
000008B0: 27 20 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C |' PARA VOLVER AL|
000008C0: 20 4D 45 4E 55 20 22 00 F5 10 D6 00 99 22 20 20 | MENU "......" |
000008D0: 20 27 53 27 20 50 41 52 41 20 47 55 41 52 44 41 | 'S' PARA GUARDA|
000008E0: 52 20 45 4C 20 44 49 42 55 4A 4F 20 45 4E 20 43 |R EL DIBUJO EN C|
000008F0: 49 4E 54 41 22 00 23 11 D7 00 99 22 20 20 20 27 |INTA".#...." '|
00000900: 44 27 20 50 41 52 41 20 4D 4F 53 54 52 41 52 20 |D' PARA MOSTRAR |
00000910: 4C 41 53 20 43 4F 4F 52 44 45 4E 41 44 41 53 20 |LAS COORDENADAS |
00000920: 20 20 22 00 51 11 D9 00 99 22 20 20 20 27 4E 27 | ".Q...." 'N'|
00000930: 20 50 41 52 41 20 4D 4F 53 54 52 41 52 20 45 4C | PARA MOSTRAR EL|
00000940: 20 23 20 44 45 20 44 49 42 55 4A 4F 53 20 20 20 | # DE DIBUJOS |
00000950: 22 00 76 11 DA 00 99 22 20 20 20 27 52 27 20 50 |".v...." 'R' P|
00000960: 41 52 41 20 4D 4F 53 54 52 41 52 20 55 4E 20 44 |ARA MOSTRAR UN D|
00000970: 49 42 55 4A 4F 22 00 9E 11 DB 00 99 22 20 20 20 |IBUJO"......" |
00000980: 27 51 27 20 50 41 52 41 20 54 45 52 4D 49 4E 41 |'Q' PARA TERMINA|
00000990: 52 20 45 4C 20 50 52 4F 47 52 41 4D 41 22 00 C4 |R EL PROGRAMA"..|
000009A0: 11 DC 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 2A 2A 00 DE 11 DD 00 8F 20 4C 45 43 54 55 |****...... LECTU|
000009D0: 52 41 20 44 45 4C 20 54 45 43 4C 41 44 4F 00 04 |RA DEL TECLADO..|
000009E0: 12 DE 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A00: 2A 2A 2A 2A 00 21 12 DF 00 99 3A 99 3A 99 22 49 |****.!....:.:."I|
00000A10: 4E 47 52 45 53 45 20 4C 41 20 4F 52 44 45 4E 22 |NGRESE LA ORDEN"|
00000A20: 3B 00 29 12 E0 00 85 41 24 00 35 12 E1 00 99 C7 |;.)....A$.5.....|
00000A30: 28 31 34 37 29 00 45 12 E6 00 8B 41 24 B2 22 43 |(147).E....A$."C|
00000A40: 22 89 34 30 30 00 55 12 F0 00 8B 41 24 B2 22 41 |".400.U....A$."A|
00000A50: 22 89 39 30 30 00 65 12 FA 00 8B 41 24 B2 22 4C |".900.e....A$."L|
00000A60: 22 89 38 30 30 00 75 12 04 01 8B 41 24 B2 22 45 |".800.u....A$."E|
00000A70: 22 89 32 30 30 00 86 12 0E 01 8B 41 24 B2 22 53 |".200......A$."S|
00000A80: 22 89 31 30 30 30 00 96 12 13 01 8B 41 24 B2 22 |".1000......A$."|
00000A90: 44 22 89 36 30 30 00 A6 12 14 01 8B 41 24 B2 22 |D".600......A$."|
00000AA0: 4E 22 89 33 30 30 00 BC 12 15 01 8B 41 24 B2 22 |N".300......A$."|
00000AB0: 52 22 A7 52 45 B2 31 3A 89 34 30 30 00 CF 12 17 |R".RE.1:.400....|
00000AC0: 01 8B 41 24 B2 22 51 22 A7 A0 32 30 30 3A 80 00 |..A$."Q"..200:..|
00000AD0: D8 12 18 01 89 32 30 30 00 FC 12 22 01 8F 20 2A |.....200...".. *|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 17 13 23 |************...#|
00000B00: 01 8F 20 4D 4F 53 54 52 41 52 20 4C 41 53 20 49 |.. MOSTRAR LAS I|
00000B10: 4D 41 47 45 4E 45 53 00 3B 13 24 01 8F 20 2A 2A |MAGENES.;.$.. **|
00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 13 2C 01 |***********.F.,.|
00000B40: 81 58 B2 31 A4 38 00 87 13 36 01 8B 53 53 28 58 |.X.1.8...6..SS(X|
00000B50: 29 B2 31 A7 99 22 44 49 42 55 4A 4F 20 4E 55 4D |).1.."DIBUJO NUM|
00000B60: 45 52 4F 22 3B 58 3B 22 53 45 20 45 4E 43 55 45 |ERO";X;"SE ENCUE|
00000B70: 4E 54 52 41 20 43 4F 44 49 46 49 43 41 44 4F 2E |NTRA CODIFICADO.|
00000B80: 22 3A 89 20 33 34 30 00 AB 13 40 01 99 22 44 49 |":. 340...@.."DI|
00000B90: 42 55 4A 4F 20 4E 55 4D 45 52 4F 22 3B 58 3B 22 |BUJO NUMERO";X;"|
00000BA0: 4E 4F 20 45 58 49 53 54 45 2E 22 00 B2 13 54 01 |NO EXISTE."...T.|
00000BB0: 82 58 00 D3 13 5E 01 85 22 54 45 43 4C 45 45 20 |.X...^.."TECLEE |
00000BC0: 50 41 52 41 20 53 41 4C 49 52 22 3B 41 24 3A 89 |PARA SALIR";A$:.|
00000BD0: 32 30 30 00 F7 13 7C 01 8F 20 2A 2A 2A 2A 2A 2A |200...|.. ******|
00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 00 14 14 7D 01 8F 20 49 4D |*******...}.. IM|
00000C00: 50 52 49 4D 49 52 20 49 4E 53 54 52 55 43 43 49 |PRIMIR INSTRUCCI|
00000C10: 4F 4E 45 53 00 38 14 7E 01 8F 20 2A 2A 2A 2A 2A |ONES.8.~.. *****|
00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C30: 2A 2A 2A 2A 2A 2A 2A 2A 00 66 14 90 01 99 22 50 |********.f...."P|
00000C40: 41 52 41 20 43 52 45 41 52 20 4C 41 53 20 49 4D |ARA CREAR LAS IM|
00000C50: 41 47 45 4E 45 53 20 55 53 45 20 45 4C 20 43 55 |AGENES USE EL CU|
00000C60: 52 53 4F 52 2E 22 00 A6 14 91 01 99 22 20 53 55 |RSOR."......" SU|
00000C70: 42 49 52 20 28 22 3B C7 28 31 32 33 29 3B 22 29 |BIR (";.(123);")|
00000C80: 2E 20 46 35 3D 42 4F 52 52 41 52 20 28 22 3B C7 |. F5=BORRAR (";.|
00000C90: 28 31 31 39 29 3B 22 29 20 46 37 3D 44 49 42 55 |(119);") F7=DIBU|
00000CA0: 4A 4F 20 28 22 3B 00 EC 14 92 01 99 C7 28 31 31 |JO (";.......(11|
00000CB0: 33 29 3B 22 29 2E 20 45 4C 20 4A 4F 59 53 54 49 |3);"). EL JOYSTI|
00000CC0: 43 4B 20 45 4E 20 45 4C 20 23 32 20 4D 55 45 56 |CK EN EL #2 MUEV|
00000CD0: 45 20 4C 41 20 4C 49 4E 45 41 2E 20 20 20 50 52 |E LA LINEA. PR|
00000CE0: 45 53 49 4F 4E 45 20 45 4C 20 22 3B 00 20 15 93 |ESIONE EL ";. ..|
00000CF0: 01 99 20 22 42 4F 54 4F 4E 20 52 4F 4A 4F 20 50 |.. "BOTON ROJO P|
00000D00: 41 52 41 20 53 45 4C 45 43 43 49 4F 4E 41 52 20 |ARA SELECCIONAR |
00000D10: 4C 41 53 20 4F 50 43 49 4F 4E 45 53 2E 22 3A 99 |LAS OPCIONES.":.|
00000D20: 00 4F 15 94 01 99 22 50 52 45 53 49 4F 4E 45 20 |.O...."PRESIONE |
00000D30: 27 51 27 20 50 41 52 41 20 53 41 4C 49 52 20 43 |'Q' PARA SALIR C|
00000D40: 55 41 4E 44 4F 20 54 45 52 4D 49 4E 45 2E 22 00 |UANDO TERMINE.".|
00000D50: 5F 15 95 01 99 3A 8B 52 45 B2 30 89 34 31 31 00 |_....:.RE.0.411.|
00000D60: 86 15 96 01 85 22 49 4E 47 52 45 53 45 20 44 49 |....."INGRESE DI|
00000D70: 42 55 4A 4F 23 20 50 41 52 41 20 4D 4F 53 54 52 |BUJO# PARA MOSTR|
00000D80: 41 52 22 3B 53 4E 00 B2 15 97 01 8B 53 4E B3 31 |AR";SN......SN.1|
00000D90: B0 53 4E B1 38 A7 99 22 44 45 20 31 20 41 20 38 |.SN.8.."DE 1 A 8|
00000DA0: 2C 20 50 4F 52 20 46 41 56 4F 52 2E 22 3A 89 34 |, POR FAVOR.":.4|
00000DB0: 30 36 00 E9 15 98 01 8B 53 53 28 53 4E 29 B2 30 |06......SS(SN).0|
00000DC0: A7 99 22 45 4C 20 44 49 42 55 4A 4F 20 23 22 3B |.."EL DIBUJO #";|
00000DD0: 53 4E 3B 22 4E 4F 20 45 58 49 53 54 45 2E 22 3A |SN;"NO EXISTE.":|
00000DE0: 52 45 B2 30 3A 89 34 30 30 00 1B 16 99 01 99 3A |RE.0:.400......:|
00000DF0: 99 22 20 20 20 50 41 52 41 20 49 4D 50 52 49 4D |." PARA IMPRIM|
00000E00: 49 52 20 44 49 42 55 4A 4F 23 22 3B 53 4E 3B 22 |IR DIBUJO#";SN;"|
00000E10: 50 4F 52 20 46 41 56 4F 52 22 3B 00 41 16 9B 01 |POR FAVOR";.A...|
00000E20: 99 3A 99 3A 99 22 50 52 45 53 49 4F 4E 45 20 27 |.:.:."PRESIONE '|
00000E30: 53 27 20 50 41 52 41 20 43 4F 4D 45 4E 5A 41 52 |S' PARA COMENZAR|
00000E40: 22 00 55 16 9C 01 85 41 24 3A 8B 41 24 B2 22 45 |".U....A$:.A$."E|
00000E50: 22 89 32 30 30 00 66 16 9D 01 8B 41 24 B3 B1 22 |".200.f....A$.."|
00000E60: 53 22 89 34 31 31 00 B4 16 9E 01 42 B2 31 30 33 |S".411.....B.103|
00000E70: 36 3A 4C B2 31 30 37 37 3A 42 4C B2 30 3A 4C 31 |6:L.1077:BL.0:L1|
00000E80: B2 31 30 37 37 3A 47 B2 33 32 3A 42 47 B2 39 30 |.1077:G.32:BG.90|
00000E90: 3A 47 28 31 29 B2 31 36 30 3A 47 28 32 29 B2 33 |:G(1).160:G(2).3|
00000EA0: 32 3A 47 28 33 29 B2 33 32 3A 47 31 B2 33 3A 47 |2:G(3).32:G1.3:G|
00000EB0: 54 B2 33 32 00 D3 16 9F 01 44 52 28 31 29 B2 38 |T.32.....DR(1).8|
00000EC0: 31 3A 44 52 28 32 29 B2 38 37 3A 44 52 28 33 29 |1:DR(2).87:DR(3)|
00000ED0: B2 39 31 00 11 17 A0 01 99 C7 28 31 34 37 29 3A |.91.......(147):|
00000EE0: 42 24 B2 22 46 31 3D 44 49 42 55 4A 4F 22 3A 4C |B$."F1=DIBUJO":L|
00000EF0: 32 B2 31 33 38 35 3A 8D 35 30 3A 42 24 B2 22 45 |2.1385:.50:B$."E|
00000F00: 43 48 4F 20 4D 4F 44 45 22 3A 4C 32 B2 31 34 32 |CHO MODE":L2.142|
00000F10: 35 00 4E 17 A1 01 8D 35 30 3A 42 24 B2 22 52 3D |5.N....50:B$."R=|
00000F20: 4E 4F 52 4D 41 4C 22 3A 4C 32 B2 31 35 30 35 3A |NORMAL":L2.1505:|
00000F30: 8D 35 30 3A 42 24 B2 22 44 49 42 55 4A 4F 3A 4C |.50:B$."DIBUJO:L|
00000F40: 32 3D 31 35 34 35 3A 47 4F 53 55 42 35 30 00 92 |2=1545:GOSUB50..|
00000F50: 17 A2 01 42 24 B2 22 58 3D 45 4A 45 20 58 22 3A |...B$."X=EJE X":|
00000F60: 4C 32 B2 31 36 32 35 3A 8D 35 30 3A 42 24 B2 22 |L2.1625:.50:B$."|
00000F70: 41 4D 50 4C 49 41 44 4F 22 3A 4C 32 B2 31 36 36 |AMPLIADO":L2.166|
00000F80: 35 3A 8D 35 30 3A 42 24 B2 22 59 3D 45 4A 45 20 |5:.50:B$."Y=EJE |
00000F90: 59 22 00 D2 17 A3 01 4C 32 B2 31 37 34 35 3A 8D |Y".....L2.1745:.|
00000FA0: 35 30 3A 42 24 B2 22 41 4D 50 4C 49 41 44 4F 22 |50:B$."AMPLIADO"|
00000FB0: 3A 4C 32 B2 31 37 38 35 3A 8D 35 30 3A 42 24 B2 |:L2.1785:.50:B$.|
00000FC0: 22 47 3D 58 20 45 20 59 22 3A 4C 32 B2 31 38 36 |"G=X E Y":L2.186|
00000FD0: 35 3A 00 F4 17 A4 01 8D 35 30 3A 42 24 B2 22 41 |5:......50:B$."A|
00000FE0: 4D 50 4C 49 41 44 4F 22 3A 4C 32 B2 31 39 30 35 |MPLIADO":L2.1905|
00000FF0: 3A 8D 35 30 00 30 18 A5 01 81 58 B2 42 A4 42 AA |:.50.0....X.B.B.|
00001000: 32 35 3A 97 58 2C 42 47 3A 97 58 AA 4F 46 2C 31 |25:.X,BG:.X.OF,1|
00001010: 35 3A 97 58 AA 32 32 AC 34 30 2C 42 47 3A 97 58 |5:.X.22.40,BG:.X|
00001020: AA 28 32 32 AC 34 30 29 AA 4F 46 2C 31 35 3A 82 |.(22.40).OF,15:.|
00001030: 00 70 18 A6 01 97 31 30 34 38 AA 4F 46 2C 31 31 |.p....1048.OF,11|
00001040: 3A 97 31 30 34 39 AA 4F 46 2C 31 31 3A 97 31 30 |:.1049.OF,11:.10|
00001050: 34 39 AA 32 32 AC 34 30 AA 4F 46 2C 31 31 3A 97 |49.22.40.OF,11:.|
00001060: 31 30 34 38 AA 32 32 AC 34 30 AA 4F 46 2C 31 31 |1048.22.40.OF,11|
00001070: 00 AA 18 A7 01 81 58 B2 42 A4 42 AA 32 32 AC 34 |......X.B.B.22.4|
00001080: 30 A9 34 30 3A 97 58 2C 42 47 3A 97 58 AA 4F 46 |0.40:.X,BG:.X.OF|
00001090: 2C 31 35 3A 97 58 AA 32 35 2C 42 47 3A 97 58 AA |,15:.X.25,BG:.X.|
000010A0: 32 35 AA 4F 46 2C 31 35 3A 82 00 E6 18 A9 01 4C |25.OF,15:......L|
000010B0: 32 B2 31 39 38 35 3A 42 24 B2 22 20 20 20 50 52 |2.1985:B$." PR|
000010C0: 45 53 49 4F 4E 45 20 27 51 27 20 43 4F 4E 20 45 |ESIONE 'Q' CON E|
000010D0: 4C 20 44 49 42 55 4A 4F 20 43 4F 4D 50 4C 45 54 |L DIBUJO COMPLET|
000010E0: 4F 22 3A 8D 35 30 00 20 19 AC 01 81 58 B2 42 A4 |O":.50. ....X.B.|
000010F0: 42 AA 32 32 AC 34 30 A9 34 30 3A 97 58 2C 42 47 |B.22.40.40:.X,BG|
00001100: 3A 97 58 AA 4F 46 2C 31 35 3A 97 58 AA 32 35 2C |:.X.OF,15:.X.25,|
00001110: 42 47 3A 97 58 AA 32 35 AA 4F 46 2C 31 35 3A 82 |BG:.X.25.OF,15:.|
00001120: 00 40 19 AD 01 97 31 34 37 36 20 AA 4F 46 2C 31 |.@....1476 .OF,1|
00001130: 31 3A 97 31 34 37 36 AA 32 35 AA 4F 46 2C 31 31 |1:.1476.25.OF,11|
00001140: 00 64 19 AE 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.d.... *********|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001160: 2A 2A 2A 2A 00 8A 19 AF 01 8F 20 43 4F 4E 54 52 |****...... CONTR|
00001170: 4F 4C 20 44 45 20 49 4D 50 52 45 53 49 4F 4E 20 |OL DE IMPRESION |
00001180: 44 45 4C 20 44 49 42 55 4A 4F 00 AE 19 B0 01 8F |DEL DIBUJO......|
00001190: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 |**************..|
000011B0: 19 B1 01 8B 52 45 B1 30 A7 8D 32 30 3A 52 45 B2 |....RE.0..20:RE.|
000011C0: 30 00 E5 19 B3 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0...... ********|
000011D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011E0: 2A 2A 2A 2A 2A 00 08 1A B4 01 8F 20 4D 4F 56 49 |*****...... MOVI|
000011F0: 4D 49 45 4E 54 4F 2C 20 44 49 42 55 4A 4F 2C 4F |MIENTO, DIBUJO,O|
00001200: 20 42 4F 52 52 41 44 4F 00 2C 1A B5 01 8F 20 59 | BORRADO.,.... Y|
00001210: 20 45 43 48 4F 20 4D 4F 44 45 20 43 55 41 4E 44 | ECHO MODE CUAND|
00001220: 4F 20 53 45 41 20 50 45 44 49 44 4F 00 50 1A B6 |O SEA PEDIDO.P..|
00001230: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001250: 00 5B 1A BC 01 4C B2 31 30 37 37 00 6E 1A BD 01 |.[...L.1077.n...|
00001260: 8B 47 31 B2 33 A7 47 28 47 31 29 B2 47 54 00 8B |.G1.3.G(G1).GT..|
00001270: 1A BE 01 97 4C 2C 47 28 47 31 29 3A 97 4C AA 4F |....L,G(G1):.L.O|
00001280: 46 2C 30 3A 42 4C B2 42 4C AA 31 00 9F 1A BF 01 |F,0:BL.BL.1.....|
00001290: 8B 42 4C B2 31 A7 97 4C 2C 44 52 28 47 31 29 00 |.BL.1..L,DR(G1).|
000012A0: AE 1A C0 01 8B 42 4C B2 32 A7 42 4C B2 30 00 D3 |.....BL.2.BL.0..|
000012B0: 1A C2 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012D0: 2A 2A 2A 00 ED 1A C3 01 8F 20 4C 45 43 54 55 52 |***...... LECTUR|
000012E0: 41 20 44 45 4C 20 54 45 43 4C 41 44 4F 00 12 1B |A DEL TECLADO...|
000012F0: C4 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001310: 2A 2A 00 2A 1B C5 01 A1 41 24 3A 8B 41 24 B2 22 |**.*....A$:.A$."|
00001320: 22 A7 58 B2 30 3A 89 34 35 35 00 36 1B C6 01 58 |".X.0:.455.6...X|
00001330: B2 C6 28 41 24 29 00 47 1B C7 01 8B 58 B2 32 39 |..(A$).G....X.29|
00001340: 20 A7 4C B2 4C AA 31 00 58 1B C8 01 8B 58 B2 31 | .L.L.1.X....X.1|
00001350: 35 37 A7 4C B2 4C AB 31 00 69 1B C9 01 8B 58 B2 |57.L.L.1.i....X.|
00001360: 31 37 A7 4C B2 4C AA 34 30 00 7B 1B CA 01 8B 58 |17.L.L.40.{....X|
00001370: B2 31 34 35 A7 4C B2 4C AB 34 30 00 8B 1B CB 01 |.145.L.L.40.....|
00001380: 8B 58 B2 31 33 35 A7 47 31 B2 31 00 9B 1B CC 01 |.X.135.G1.1.....|
00001390: 8B 58 B2 31 33 36 A7 47 31 B2 32 00 AA 1B CD 01 |.X.136.G1.2.....|
000013A0: 8B 58 B2 38 31 A7 89 35 30 30 00 BA 1B CE 01 8B |.X.81..500......|
000013B0: 58 B2 31 33 34 A7 47 31 B2 33 00 C9 1B CF 01 8B |X.134.G1.3......|
000013C0: 58 B2 31 33 33 A7 8D 36 30 00 E5 1B D0 01 8B 58 |X.133..60......X|
000013D0: B2 38 32 A7 97 35 33 32 37 31 2C 30 3A 97 35 33 |.82..53271,0:.53|
000013E0: 32 37 37 2C 30 00 01 1C D1 01 8B 58 B2 38 38 A7 |277,0......X.88.|
000013F0: 97 35 33 32 37 31 2C 30 3A 97 35 33 32 37 37 2C |.53271,0:.53277,|
00001400: 34 00 1D 1C D2 01 8B 58 B2 38 39 A7 97 35 33 32 |4......X.89..532|
00001410: 37 31 2C 34 3A 97 35 33 32 37 37 2C 30 00 39 1C |71,4:.53277,0.9.|
00001420: D3 01 8B 58 B2 37 31 A7 97 35 33 32 37 31 2C 34 |...X.71..53271,4|
00001430: 3A 97 35 33 32 37 37 2C 34 00 5D 1C D4 01 8F 20 |:.53277,4.].... |
00001440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 1C |*************.{.|
00001460: D5 01 8F 20 4C 45 43 54 55 52 41 20 44 45 4C 20 |... LECTURA DEL |
00001470: 4A 4F 59 53 54 49 43 4B 20 23 32 00 9F 1C D6 01 |JOYSTICK #2.....|
00001480: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000014A0: BE 1C D7 01 4A 4F B2 C2 28 35 36 33 32 30 29 3A |....JO..(56320):|
000014B0: 8B 4A 4F B2 31 32 36 A7 4C B2 4C AB 34 30 00 D1 |.JO.126.L.L.40..|
000014C0: 1C D8 01 8B 4A 4F B2 31 31 38 A7 4C B2 4C AB 33 |....JO.118.L.L.3|
000014D0: 39 00 E3 1C D9 01 8B 4A 4F B2 31 31 39 A7 4C B2 |9......JO.119.L.|
000014E0: 4C AA 31 00 F6 1C DA 01 8B 4A 4F B2 31 31 37 A7 |L.1......JO.117.|
000014F0: 4C B2 4C AA 34 31 00 09 1D DB 01 8B 4A 4F B2 31 |L.L.41......JO.1|
00001500: 32 35 A7 4C B2 4C AA 34 30 00 1C 1D DC 01 8B 4A |25.L.L.40......J|
00001510: 4F B2 31 32 31 A7 4C B2 4C AA 33 39 00 2E 1D DE |O.121.L.L.39....|
00001520: 01 8B 4A 4F B2 31 32 33 A7 4C B2 4C AB 31 00 41 |..JO.123.L.L.1.A|
00001530: 1D DF 01 8B 4A 4F B2 31 32 32 A7 4C B2 4C AB 34 |....JO.122.L.L.4|
00001540: 31 00 60 1D E1 01 8B 4A 4F B2 31 31 31 A7 47 31 |1.`....JO.111.G1|
00001550: B2 47 31 AA 31 3A 8B 47 31 B2 34 A7 47 31 B2 31 |.G1.1:.G1.4.G1.1|
00001560: 00 70 1D E2 01 8B 47 31 B2 32 A7 47 54 B2 33 32 |.p....G1.2.GT.32|
00001570: 00 82 1D EA 01 8B C2 28 4C 29 B2 42 47 A7 4C B2 |.......(L).BG.L.|
00001580: 4C 31 00 90 1D EB 01 8B 4C 31 B2 4C A7 34 39 35 |L1......L1.L.495|
00001590: 00 A2 1D EC 01 8B 47 31 B2 33 A7 47 54 B2 C2 28 |......G1.3.GT..(|
000015A0: 4C 29 00 C3 1D EF 01 97 4C 31 2C 47 28 47 31 29 |L)......L1,G(G1)|
000015B0: 3A 97 4C 31 AA 4F 46 2C 30 3A 4C 31 B2 4C 3A 89 |:.L1.OF,0:L1.L:.|
000015C0: 34 34 35 00 E9 1D F1 01 8F 20 2A 2A 2A 2A 2A 2A |445...... ******|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 1E F2 01 8F 20 |*********...... |
000015F0: 47 55 41 52 44 41 52 20 4C 41 20 49 4D 41 47 45 |GUARDAR LA IMAGE|
00001600: 4E 20 54 45 4D 50 4F 52 41 52 49 41 00 32 1E F3 |N TEMPORARIA.2..|
00001610: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001630: 2A 2A 00 71 1E F4 01 4C 32 B2 31 39 38 37 3A 42 |**.q...L2.1987:B|
00001640: 24 B2 22 45 53 50 45 52 45 2D 53 45 20 45 53 54 |$."ESPERE-SE EST|
00001650: 41 20 43 4F 50 49 41 4E 44 4F 20 4C 41 20 49 4D |A COPIANDO LA IM|
00001660: 41 47 45 4E 20 20 20 22 3A 8D 35 30 3A 44 43 B2 |AGEN ":.50:DC.|
00001670: 31 00 81 1E F5 01 97 35 33 32 34 38 AA 32 31 2C |1......53248.21,|
00001680: 30 00 BC 1E F8 01 4C B2 31 30 37 36 3A 4A B2 31 |0.....L.1076:J.1|
00001690: 3A 81 58 B2 31 A4 32 31 3A 81 49 B2 31 A4 33 3A |:.X.1.21:.I.1.3:|
000016A0: 81 59 B2 31 A4 38 3A 8B C2 28 4C AA 59 29 B2 31 |.Y.1.8:..(L.Y).1|
000016B0: 36 30 A7 44 B2 44 AA 44 43 28 59 29 00 E8 1E 12 |60.D.D.DC(Y)....|
000016C0: 02 82 59 3A 54 44 28 4A 29 B2 44 3A 44 B2 30 3A |..Y:TD(J).D:D.0:|
000016D0: 4C B2 4C AA 38 3A 4A B2 4A AA 31 3A 82 49 3A 4C |L.L.8:J.J.1:.I:L|
000016E0: B2 4C AA 31 36 3A 82 58 00 0D 1F 26 02 8F 20 2A |.L.16:.X...&.. *|
000016F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 44 1F |*************.D.|
00001710: 27 02 8F 20 47 55 41 52 44 41 52 20 45 4C 20 44 |'.. GUARDAR EL D|
00001720: 49 42 55 4A 4F 20 45 4E 20 55 4E 20 41 52 52 45 |IBUJO EN UN ARRE|
00001730: 47 4C 4F 20 35 35 32 20 52 45 4D 20 4F 20 53 41 |GLO 552 REM O SA|
00001740: 4C 49 44 41 00 69 1F 29 02 8F 20 2A 2A 2A 2A 2A |LIDA.i.).. *****|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 75 1F 2A 02 99 C7 |*********.u.*...|
00001770: 28 31 34 37 29 00 A3 1F 2B 02 99 22 50 52 45 53 |(147)...+.."PRES|
00001780: 49 4F 4E 45 20 27 53 27 20 50 41 52 41 20 43 4F |IONE 'S' PARA CO|
00001790: 44 49 46 49 43 41 52 20 45 4C 20 44 49 42 55 4A |DIFICAR EL DIBUJ|
000017A0: 4F 2E 22 00 C6 1F 2D 02 99 22 50 52 45 53 49 4F |O."...-.."PRESIO|
000017B0: 4E 45 20 27 45 27 20 50 41 52 41 20 54 45 52 4D |NE 'E' PARA TERM|
000017C0: 49 4E 41 52 2E 22 00 DA 1F 2E 02 85 41 24 3A 8B |INAR."......A$:.|
000017D0: 41 24 B2 22 53 22 A7 37 30 30 00 EF 1F 2F 02 8B |A$."S".700.../..|
000017E0: 41 24 B2 22 45 22 AF 44 43 B2 30 A7 32 30 30 00 |A$."E".DC.0.200.|
000017F0: 14 20 30 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. 0.. **********|
00001800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001810: 2A 2A 2A 2A 00 38 20 31 02 8F 20 56 45 52 49 46 |****.8 1.. VERIF|
00001820: 49 43 41 52 20 45 4C 20 50 45 44 49 44 4F 20 44 |ICAR EL PEDIDO D|
00001830: 45 20 53 41 4C 49 44 41 00 5D 20 32 02 8F 20 2A |E SALIDA.] 2.. *|
00001840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A2 20 |*************.. |
00001860: 3A 02 99 3A 99 22 43 4F 4F 52 44 45 4E 41 44 41 |:..:."COORDENADA|
00001870: 53 20 44 45 4C 20 44 49 42 55 4A 4F 20 53 49 4E |S DEL DIBUJO SIN|
00001880: 20 47 55 41 52 44 41 52 2E 22 3A 99 22 56 45 52 | GUARDAR.":."VER|
00001890: 49 46 49 51 55 45 20 4C 41 20 53 41 4C 49 44 41 |IFIQUE LA SALIDA|
000018A0: 2E 22 00 CF 20 3B 02 99 22 50 52 45 53 49 4F 4E |.".. ;.."PRESION|
000018B0: 45 20 27 53 27 49 20 4F 20 27 4E 27 4F 2E 22 3A |E 'S'I O 'N'O.":|
000018C0: 85 41 24 3A 8B 41 24 B2 22 4E 22 A7 35 35 35 00 |.A$:.A$."N".555.|
000018D0: DF 20 3F 02 8B 41 24 B2 22 53 22 A7 32 30 30 00 |. ?..A$."S".200.|
000018E0: E9 20 44 02 89 20 35 37 30 00 0E 21 58 02 8F 20 |. D.. 570..!X.. |
000018F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 |**************.3|
00001910: 21 59 02 8F 20 49 4D 50 52 49 4D 49 52 20 49 4E |!Y.. IMPRIMIR IN|
00001920: 53 54 52 55 43 43 49 4F 4E 45 53 20 50 41 52 41 |STRUCCIONES PARA|
00001930: 20 4C 41 00 59 21 5A 02 8F 20 52 55 54 49 4E 41 | LA.Y!Z.. RUTINA|
00001940: 20 44 45 20 49 4D 50 52 45 53 49 4F 4E 20 44 45 | DE IMPRESION DE|
00001950: 20 43 4F 4F 52 44 45 4E 41 00 6E 21 5B 02 8F 20 | COORDENA.n![.. |
00001960: 44 41 53 20 44 45 4C 20 44 49 42 55 4A 4F 00 93 |DAS DEL DIBUJO..|
00001970: 21 5C 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |!\.. ***********|
00001980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001990: 2A 2A 2A 00 9F 21 5D 02 99 C7 28 31 34 37 29 00 |***..!]...(147).|
000019A0: CD 21 60 02 99 22 45 53 54 41 20 52 55 54 49 4E |.!`.."ESTA RUTIN|
000019B0: 41 20 49 4D 50 52 49 4D 45 20 4C 41 53 20 36 33 |A IMPRIME LAS 63|
000019C0: 20 43 4F 4F 52 44 45 4E 41 44 41 53 22 00 E1 21 | COORDENADAS"..!|
000019D0: 61 02 99 22 20 44 45 4C 20 44 49 42 55 4A 4F 2E |a.." DEL DIBUJO.|
000019E0: 22 00 02 22 62 02 99 3A 99 22 49 4E 47 52 45 53 |".."b..:."INGRES|
000019F0: 45 20 45 4C 20 23 20 44 45 20 44 49 42 55 4A 4F |E EL # DE DIBUJO|
00001A00: 2E 22 00 31 22 63 02 99 22 49 4E 47 52 45 53 45 |.".1"c.."INGRESE|
00001A10: 20 55 4E 20 27 30 27 20 50 41 52 41 20 54 45 52 | UN '0' PARA TER|
00001A20: 4D 49 4E 41 52 20 4C 41 20 52 55 54 49 4E 41 2E |MINAR LA RUTINA.|
00001A30: 22 00 43 22 64 02 85 53 4E 3A 8B 53 4E B2 30 89 |".C"d..SN:.SN.0.|
00001A40: 32 30 30 00 6F 22 66 02 8B 53 4E B3 31 B0 53 4E |200.o"f..SN.1.SN|
00001A50: B1 38 A7 99 22 44 45 20 31 20 41 20 38 2C 20 50 |.8.."DE 1 A 8, P|
00001A60: 4F 52 20 46 41 56 4F 52 2E 22 3A 89 36 31 30 00 |OR FAVOR.":.610.|
00001A70: 95 22 67 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."g.. **********|
00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A90: 2A 2A 2A 2A 2A 00 BA 22 68 02 8F 20 43 48 45 51 |*****.."h.. CHEQ|
00001AA0: 55 45 4F 20 44 45 20 53 41 4C 49 44 41 20 50 4F |UEO DE SALIDA PO|
00001AB0: 52 20 50 41 4E 54 41 4C 4C 41 00 DF 22 69 02 8F |R PANTALLA.."i..|
00001AC0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001AE0: 27 23 6C 02 99 22 49 4E 47 52 45 53 45 20 55 4E |'#l.."INGRESE UN|
00001AF0: 41 20 27 50 27 20 50 41 52 41 20 53 41 4C 49 44 |A 'P' PARA SALID|
00001B00: 41 20 49 4D 50 52 45 53 41 22 3A 99 22 20 4F 20 |A IMPRESA":." O |
00001B10: 55 4E 41 20 27 53 27 20 50 41 52 41 20 50 41 4E |UNA 'S' PARA PAN|
00001B20: 54 41 4C 4C 41 2E 22 00 3C 23 71 02 85 41 24 3A |TALLA.".<#q..A$:|
00001B30: 8B 41 24 B2 22 50 22 A7 50 52 B2 31 00 51 23 74 |.A$."P".PR.1.Q#t|
00001B40: 02 8B 50 52 B2 31 A7 98 32 30 30 2C C7 28 31 33 |..PR.1..200,.(13|
00001B50: 29 00 96 23 75 02 8B 50 52 B2 31 A7 98 32 30 30 |)..#u..PR.1..200|
00001B60: 2C 22 20 20 44 49 42 55 4A 4F 22 3B 53 4E 3B 22 |," DIBUJO";SN;"|
00001B70: 44 45 53 43 52 49 50 43 49 4F 4E 20 44 45 20 43 |DESCRIPCION DE C|
00001B80: 4F 4F 52 44 45 4E 41 44 41 53 22 3A 98 32 30 30 |OORDENADAS":.200|
00001B90: 2C C7 28 31 33 29 00 A4 23 76 02 8B 50 52 B2 31 |,.(13)..#v..PR.1|
00001BA0: 89 36 34 30 00 D6 23 77 02 99 22 20 20 44 49 42 |.640..#w.." DIB|
00001BB0: 55 4A 4F 22 3B 53 4E 3B 22 44 45 53 43 52 49 50 |UJO";SN;"DESCRIP|
00001BC0: 43 49 4F 4E 20 44 45 20 43 4F 4F 52 44 45 4E 41 |CION DE COORDENA|
00001BD0: 44 41 53 22 3A 99 00 08 24 78 02 99 22 20 20 44 |DAS":...$x.." D|
00001BE0: 49 42 55 4A 4F 22 3B 53 4E 3B 22 44 45 53 43 52 |IBUJO";SN;"DESCR|
00001BF0: 49 50 43 49 4F 4E 20 44 45 20 43 4F 4F 52 44 45 |IPCION DE COORDE|
00001C00: 4E 41 44 41 53 22 3A 99 00 45 24 7A 02 54 43 B2 |NADAS":..E$z.TC.|
00001C10: 31 3A 81 58 B2 31 A4 32 31 3A 99 22 42 59 54 45 |1:.X.1.21:."BYTE|
00001C20: 22 3B 54 43 2C 3A 81 4A B2 31 A4 33 3A 99 53 44 |";TC,:.J.1.3:.SD|
00001C30: 28 53 4E 2C 54 43 29 2C 3A 54 43 B2 54 43 AA 31 |(SN,TC),:TC.TC.1|
00001C40: 3A 82 4A 2C 58 00 4F 24 7B 02 89 20 36 34 37 00 |:.J,X.O${.. 647.|
00001C50: 8E 24 80 02 54 43 B2 31 3A 81 58 B2 31 A4 37 3A |.$..TC.1:.X.1.7:|
00001C60: 98 32 30 30 2C 22 42 59 54 45 22 3B 54 43 2C 3A |.200,"BYTE";TC,:|
00001C70: 81 4A B2 31 A4 39 3A 98 32 30 30 2C 53 44 28 53 |.J.1.9:.200,SD(S|
00001C80: 4E 2C 54 43 29 3B 3A 54 43 B2 54 43 AA 31 00 A3 |N,TC);:TC.TC.1..|
00001C90: 24 82 02 82 4A 3A 98 32 30 30 2C C7 28 31 33 29 |$...J:.200,.(13)|
00001CA0: 3A 82 58 00 D8 24 87 02 99 22 49 4E 47 52 45 53 |:.X..$..."INGRES|
00001CB0: 45 20 43 55 41 4C 51 55 49 45 52 20 43 41 52 41 |E CUALQUIER CARA|
00001CC0: 43 54 45 52 20 50 41 52 41 20 45 4C 20 4D 45 4E |CTER PARA EL MEN|
00001CD0: 55 2E 22 3A 50 52 B2 30 00 E5 24 8A 02 85 41 24 |U.":PR.0..$...A$|
00001CE0: 3A 89 32 30 30 00 0A 25 B2 02 8F 20 2A 2A 2A 2A |:.200..%... ****|
00001CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 25 B7 02 8F |**********.1%...|
00001D10: 20 43 4F 50 49 41 52 20 44 45 20 4C 41 20 50 41 | COPIAR DE LA PA|
00001D20: 4E 54 41 4C 4C 41 20 41 4C 20 41 52 52 45 47 4C |NTALLA AL ARREGL|
00001D30: 4F 00 56 25 BC 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |O.V%... ********|
00001D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D50: 2A 2A 2A 2A 2A 2A 00 89 25 BD 02 99 22 49 4E 47 |******..%..."ING|
00001D60: 52 45 53 45 20 45 4C 20 23 20 44 45 20 44 49 42 |RESE EL # DE DIB|
00001D70: 55 4A 4F 20 51 55 45 20 44 45 53 45 41 20 41 52 |UJO QUE DESEA AR|
00001D80: 43 48 49 56 41 52 20 55 22 00 AF 25 BE 02 99 22 |CHIVAR U"..%..."|
00001D90: 4F 50 52 49 4D 41 20 55 4E 20 27 30 27 20 50 41 |OPRIMA UN '0' PA|
00001DA0: 52 41 20 53 41 4C 49 52 2E 22 3A 44 43 B2 30 00 |RA SALIR.":DC.0.|
00001DB0: C1 25 C0 02 85 53 4E 3A 8B 53 4E B2 30 A7 32 30 |.%...SN:.SN.0.20|
00001DC0: 30 00 EC 25 C1 02 8B 53 4E B3 31 B0 53 4E B1 38 |0..%...SN.1.SN.8|
00001DD0: A7 99 22 44 45 20 31 20 41 20 38 20 50 4F 52 20 |.."DE 1 A 8 POR |
00001DE0: 46 41 56 4F 52 2D 22 3A 89 37 30 31 00 12 26 C6 |FAVOR-":.701..&.|
00001DF0: 02 81 49 B2 31 A4 36 33 3A 53 44 28 53 4E 2C 49 |..I.1.63:SD(SN,I|
00001E00: 29 B2 54 44 28 49 29 3A 82 3A 53 53 28 53 4E 29 |).TD(I):.:SS(SN)|
00001E10: B2 31 00 40 26 D0 02 99 22 44 49 42 55 4A 4F 20 |.1.@&..."DIBUJO |
00001E20: 23 22 3B 53 4E 3A 99 22 43 4F 4F 52 44 45 4E 41 |#";SN:."COORDENA|
00001E30: 44 41 53 20 41 52 43 48 49 56 41 44 41 53 2E 22 |DAS ARCHIVADAS."|
00001E40: 00 78 26 DA 02 85 22 49 4E 47 52 45 53 45 20 43 |.x&..."INGRESE C|
00001E50: 55 41 4C 51 55 49 45 52 20 43 41 52 41 43 54 45 |UALQUIER CARACTE|
00001E60: 52 20 50 41 52 41 20 54 45 52 4D 49 4E 41 52 22 |R PARA TERMINAR"|
00001E70: 3B 41 24 3A 89 35 35 30 00 87 26 E4 02 99 22 45 |;A$:.550..&..."E|
00001E80: 52 52 4F 52 22 3A 80 00 AC 26 20 03 8F 20 2A 2A |RROR":...& .. **|
00001E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D1 26 21 |************..&!|
00001EB0: 03 8F 20 43 41 52 47 41 52 20 43 4F 4F 52 44 45 |.. CARGAR COORDE|
00001EC0: 4E 41 44 41 53 20 44 45 53 44 45 20 43 49 4E 54 |NADAS DESDE CINT|
00001ED0: 41 00 F5 26 22 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |A..&".. ********|
00001EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EF0: 2A 2A 2A 2A 2A 00 3D 27 25 03 99 22 45 53 54 41 |*****.='%.."ESTA|
00001F00: 20 52 55 54 49 4E 41 20 43 41 52 47 41 20 4C 41 | RUTINA CARGA LA|
00001F10: 53 20 43 4F 4F 52 44 45 4E 41 44 41 53 20 44 45 |S COORDENADAS DE|
00001F20: 53 44 45 20 20 45 4C 20 41 52 43 48 49 56 4F 20 |SDE EL ARCHIVO |
00001F30: 44 45 20 43 49 4E 54 41 20 23 31 2E 22 00 7D 27 |DE CINTA #1.".}'|
00001F40: 2A 03 99 22 49 4E 47 52 45 53 45 20 55 4E 41 20 |*.."INGRESE UNA |
00001F50: 27 4C 27 20 50 41 52 41 20 43 41 52 47 41 52 20 |'L' PARA CARGAR |
00001F60: 4F 20 55 4E 41 20 27 45 27 20 20 20 20 20 50 41 |O UNA 'E' PA|
00001F70: 52 41 20 54 45 52 4D 49 4E 41 52 2D 22 00 91 27 |RA TERMINAR-"..'|
00001F80: 34 03 85 41 24 3A 8B 41 24 B2 22 45 22 A7 32 30 |4..A$:.A$."E".20|
00001F90: 30 00 BB 27 3E 03 8B 41 24 B3 B1 22 4C 22 A7 99 |0..'>..A$.."L"..|
00001FA0: 22 27 45 27 20 4F 20 27 4C 27 20 50 4F 52 20 46 |"'E' O 'L' POR F|
00001FB0: 41 56 4F 52 2E 22 3A 89 38 32 30 00 E9 27 41 03 |AVOR.":.820..'A.|
00001FC0: 99 22 49 4E 47 52 45 53 45 20 45 4C 20 4E 4F 4D |."INGRESE EL NOM|
00001FD0: 42 52 45 20 44 45 4C 20 41 52 43 48 49 56 4F 20 |BRE DEL ARCHIVO |
00001FE0: 41 20 42 55 53 43 41 52 22 00 08 28 43 03 99 22 |A BUSCAR"..(C.."|
00001FF0: 42 55 53 43 41 4E 44 4F 20 45 4C 20 4E 4F 4D 42 |BUSCANDO EL NOMB|
00002000: 52 45 20 50 41 52 41 22 00 2F 28 48 03 53 41 24 |RE PARA"./(H.SA$|
00002010: B2 22 20 43 4F 4F 52 44 45 4E 41 44 41 53 20 44 |." COORDENADAS D|
00002020: 45 4C 20 44 49 42 55 4A 4F 22 3A 85 53 41 24 00 |EL DIBUJO":.SA$.|
00002030: 40 28 4D 03 8B 53 41 24 B2 22 45 22 A7 32 30 30 |@(M..SA$."E".200|
00002040: 00 4F 28 52 03 9F 31 2C 31 2C 30 2C 53 41 24 00 |.O(R..1,1,0,SA$.|
00002050: 5A 28 5C 03 81 49 B2 31 A4 38 00 67 28 66 03 84 |Z(\..I.1.8.g(f..|
00002060: 31 2C 53 53 28 49 29 00 7E 28 70 03 81 4A B2 31 |1,SS(I).~(p..J.1|
00002070: A4 36 33 3A 84 31 2C 53 44 28 49 2C 4A 29 00 85 |.63:.1,SD(I,J)..|
00002080: 28 71 03 82 4A 00 8C 28 7A 03 82 49 00 93 28 7B |(q..J..(z..I..({|
00002090: 03 A0 31 00 DF 28 7C 03 99 22 4C 41 53 20 43 4F |..1..(|.."LAS CO|
000020A0: 4F 52 44 45 4E 41 44 41 53 20 44 45 4C 20 44 49 |ORDENADAS DEL DI|
000020B0: 42 55 4A 4F 53 20 53 45 20 48 41 4E 20 43 41 52 |BUJOS SE HAN CAR|
000020C0: 47 41 20 44 4F 20 44 45 53 44 45 20 4C 41 20 43 |GA DO DESDE LA C|
000020D0: 49 4E 54 41 2E 49 4E 47 52 45 53 45 20 22 3B 00 |INTA.INGRESE ";.|
000020E0: 07 29 7D 03 99 22 43 55 41 4C 51 55 49 45 52 20 |.)}.."CUALQUIER |
000020F0: 43 41 52 41 43 54 45 52 20 50 41 52 41 20 54 45 |CARACTER PARA TE|
00002100: 52 4D 49 4E 41 52 22 00 14 29 7F 03 85 41 24 3A |RMINAR"..)...A$:|
00002110: 89 32 30 30 00 39 29 84 03 8F 20 2A 2A 2A 2A 2A |.200.9)... *****|
00002120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5E 29 85 03 8F 20 |*********.^)... |
00002140: 41 4E 49 4D 41 43 49 4F 4E 20 44 45 4C 20 44 49 |ANIMACION DEL DI|
00002150: 42 55 4A 4F 20 52 45 51 55 45 52 49 44 4F 00 80 |BUJO REQUERIDO..|
00002160: 29 86 03 8F 20 50 4F 52 20 54 45 43 4C 41 44 4F |)... POR TECLADO|
00002170: 20 4F 20 50 4F 52 20 4A 4F 59 53 54 49 43 4B 2E | O POR JOYSTICK.|
00002180: 00 A5 29 87 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)... *********|
00002190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021A0: 2A 2A 2A 2A 2A 00 B1 29 8E 03 99 C7 28 31 34 37 |*****..)....(147|
000021B0: 29 00 DE 29 98 03 99 22 45 53 54 41 20 52 55 54 |)..)..."ESTA RUT|
000021C0: 49 4E 41 20 41 4E 49 4D 41 52 41 20 43 55 41 4C |INA ANIMARA CUAL|
000021D0: 51 55 49 45 52 20 44 49 42 55 4A 4F 2E 22 00 0D |QUIER DIBUJO."..|
000021E0: 2A A2 03 99 22 53 55 20 44 49 42 55 4A 4F 20 50 |*..."SU DIBUJO P|
000021F0: 55 45 44 45 20 4D 4F 56 45 52 53 45 20 50 4F 52 |UEDE MOVERSE POR|
00002200: 20 4C 41 20 50 41 4E 54 41 4C 4C 41 22 00 3C 2A | LA PANTALLA".<*|
00002210: A4 03 99 22 43 4F 4E 20 4C 41 53 20 54 45 43 4C |..."CON LAS TECL|
00002220: 41 53 20 44 45 4C 20 43 55 52 53 4F 52 20 4F 20 |AS DEL CURSOR O |
00002230: 45 4C 20 4A 4F 59 53 54 49 43 4B 22 00 5A 2A A5 |EL JOYSTICK".Z*.|
00002240: 03 99 22 45 4E 20 4C 41 20 53 41 4C 49 44 41 20 |.."EN LA SALIDA |
00002250: 4E 55 4D 45 52 4F 20 32 2E 22 00 88 2A A7 03 99 |NUMERO 2."..*...|
00002260: 22 27 4A 27 20 50 41 52 41 20 4A 4F 59 53 54 49 |"'J' PARA JOYSTI|
00002270: 43 4B 20 4F 20 27 4B 27 20 50 41 52 41 20 50 41 |CK O 'K' PARA PA|
00002280: 4E 54 41 4C 4C 41 2E 22 00 AA 2A A8 03 99 22 28 |NTALLA."..*..."(|
00002290: 4F 50 52 49 4D 41 20 27 45 27 20 50 41 52 41 20 |OPRIMA 'E' PARA |
000022A0: 54 45 52 4D 49 4E 41 52 29 22 00 B2 2A A9 03 85 |TERMINAR)"..*...|
000022B0: 41 24 00 C6 2A AA 03 4B B2 30 3A 8B 41 24 B2 22 |A$..*..K.0:.A$."|
000022C0: 4A 22 A7 4B B2 31 00 D6 2A AB 03 8B 41 24 B2 22 |J".K.1..*...A$."|
000022D0: 4B 22 A7 4B B2 32 00 E6 2A AD 03 8B 41 24 B2 22 |K".K.2..*...A$."|
000022E0: 45 22 A7 32 30 30 00 F3 2A AF 03 8B 4B B2 30 A7 |E".200..*...K.0.|
000022F0: 32 39 30 00 18 2B B0 03 8F 20 2A 2A 2A 2A 2A 2A |290..+... ******|
00002300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002310: 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 2B B1 03 8F 20 4E |********.>+... N|
00002320: 55 4D 45 52 4F 2C 43 4F 4C 4F 52 20 59 20 46 4F |UMERO,COLOR Y FO|
00002330: 52 4D 41 20 44 45 20 44 49 53 50 4C 41 59 00 63 |RMA DE DISPLAY.c|
00002340: 2B B2 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |+... ***********|
00002350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002360: 2A 2A 2A 00 83 2B B8 03 85 22 49 4E 47 52 45 53 |***..+..."INGRES|
00002370: 45 20 45 4C 20 23 20 41 20 41 4E 49 4D 41 52 22 |E EL # A ANIMAR"|
00002380: 3B 53 4E 00 B5 2B B9 03 8B 53 53 28 53 4E 29 B2 |;SN..+...SS(SN).|
00002390: 30 A7 99 22 45 4C 20 44 49 42 55 4A 4F 20 23 22 |0.."EL DIBUJO #"|
000023A0: 3B 53 4E 3B 22 4E 4F 20 45 58 49 53 54 45 2E 22 |;SN;"NO EXISTE."|
000023B0: 3A 89 39 31 30 00 E0 2B BB 03 99 22 4F 50 52 49 |:.910..+..."OPRI|
000023C0: 4D 41 20 44 45 20 27 30 27 20 41 20 27 31 35 27 |MA DE '0' A '15'|
000023D0: 20 50 41 52 41 20 45 4C 20 43 4F 4C 4F 52 2E 22 | PARA EL COLOR."|
000023E0: 00 12 2C BC 03 85 41 3A 8B 41 B3 30 B0 41 B1 31 |..,...A:.A.0.A.1|
000023F0: 35 A7 99 22 45 4C 20 23 20 44 45 42 45 20 53 45 |5.."EL # DEBE SE|
00002400: 52 20 44 45 20 30 20 41 20 31 35 2E 22 3A 89 39 |R DE 0 A 15.":.9|
00002410: 35 35 00 1B 2C BD 03 43 4C B2 41 00 43 2C BE 03 |55..,..CL.A.C,..|
00002420: 99 22 4F 50 52 49 4D 41 20 27 52 27 20 50 41 52 |."OPRIMA 'R' PAR|
00002430: 41 20 44 49 42 55 4A 4F 20 53 54 41 4E 44 41 52 |A DIBUJO STANDAR|
00002440: 44 2E 22 00 6A 2C BF 03 99 22 20 20 20 20 20 20 |D.".j,..." |
00002450: 20 27 58 27 20 50 41 52 41 20 45 58 50 41 4E 53 | 'X' PARA EXPANS|
00002460: 49 4F 4E 20 45 4E 20 58 2E 22 00 91 2C C0 03 99 |ION EN X."..,...|
00002470: 22 20 20 20 20 20 20 20 27 59 27 20 50 41 52 41 |" 'Y' PARA|
00002480: 20 45 58 50 41 4E 53 49 4F 4E 20 45 4E 20 59 2E | EXPANSION EN Y.|
00002490: 22 00 BC 2C C1 03 99 22 20 20 20 20 20 20 20 27 |"..,..." '|
000024A0: 47 27 20 50 41 52 41 20 45 58 50 41 4E 53 49 4F |G' PARA EXPANSIO|
000024B0: 4E 20 45 4E 20 58 20 45 20 59 2E 22 00 D9 2C C2 |N EN X E Y."..,.|
000024C0: 03 85 41 24 3A 8B 41 24 B2 C7 28 31 33 29 B0 41 |..A$:.A$..(13).A|
000024D0: 24 B2 22 52 22 A7 39 36 37 00 ED 2C C3 03 8B 41 |$."R".967..,...A|
000024E0: 24 B2 22 58 22 A7 97 56 AA 32 39 2C 34 00 01 2D |$."X"..V.29,4..-|
000024F0: C4 03 8B 41 24 B2 22 59 22 A7 97 56 AA 32 33 2C |...A$."Y"..V.23,|
00002500: 34 00 1D 2D C5 03 8B 41 24 B2 22 47 22 A7 97 56 |4..-...A$."G"..V|
00002510: AA 32 39 2C 34 3A 97 56 AA 32 33 2C 34 00 2D 2D |.29,4:.V.23,4.--|
00002520: C6 03 8B 41 24 B2 22 45 22 A7 32 30 30 00 39 2D |...A$."E".200.9-|
00002530: C7 03 99 C7 28 31 34 37 29 00 73 2D C8 03 56 B2 |....(147).s-..V.|
00002540: 35 33 32 34 38 3A 97 56 AA 32 31 2C 34 3A 97 32 |53248:.V.21,4:.2|
00002550: 30 34 32 2C 31 33 3A 56 53 B2 38 33 31 3A 58 31 |042,13:VS.831:X1|
00002560: B2 31 30 30 3A 59 31 B2 31 30 30 3A 97 56 AA 34 |.100:Y1.100:.V.4|
00002570: 31 2C 30 00 90 2D C9 03 81 58 B2 31 A4 36 33 3A |1,0..-...X.1.63:|
00002580: 97 56 53 AA 58 2C 53 44 28 53 4E 2C 58 29 3A 82 |.VS.X,SD(SN,X):.|
00002590: 00 AD 2D CA 03 97 56 AA 34 2C 58 31 3A 97 56 AA |..-...V.4,X1:.V.|
000025A0: 35 2C 59 31 3A 97 56 AA 34 31 2C 43 4C 00 D2 2D |5,Y1:.V.41,CL..-|
000025B0: CB 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000025C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025D0: 2A 2A 00 F6 2D CC 03 8F 20 4C 45 43 54 55 52 41 |**..-... LECTURA|
000025E0: 20 44 45 20 54 45 43 4C 41 44 4F 20 4F 20 4A 4F | DE TECLADO O JO|
000025F0: 59 53 54 49 43 4B 00 1A 2E CD 03 8F 20 2A 2A 2A |YSTICK...... ***|
00002600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 2E CF 03 A1 |**********.2....|
00002620: 41 24 3A 8B 41 24 B2 22 22 A7 58 B2 30 3A 89 39 |A$:.A$."".X.0:.9|
00002630: 38 32 00 3E 2E D4 03 58 B2 C6 28 41 24 29 00 4B |82.>...X..(A$).K|
00002640: 2E D5 03 8B 4B B2 31 A7 39 38 36 00 6A 2E D6 03 |....K.1.986.j...|
00002650: 8B 58 B2 31 37 A7 59 31 B2 59 31 AA 31 3A 8B 59 |.X.17.Y1.Y1.1:.Y|
00002660: 31 B2 32 30 30 A7 59 31 B2 30 00 89 2E D7 03 8B |1.200.Y1.0......|
00002670: 58 B2 32 39 A7 58 31 B2 58 31 AA 31 3A 8B 58 31 |X.29.X1.X1.1:.X1|
00002680: B2 32 35 36 A7 58 31 B2 30 00 A9 2E D8 03 8B 58 |.256.X1.0......X|
00002690: B2 31 34 35 A7 59 31 B2 59 31 AB 31 3A 8B 59 31 |.145.Y1.Y1.1:.Y1|
000026A0: B2 30 A7 59 31 B2 31 39 39 00 C9 2E D9 03 8B 58 |.0.Y1.199......X|
000026B0: B2 31 35 37 A7 58 31 B2 58 31 AB 31 3A 8B 58 31 |.157.X1.X1.1:.X1|
000026C0: B2 30 A7 58 31 B2 32 35 35 00 F0 2E DA 03 8B 58 |.0.X1.255......X|
000026D0: B2 36 39 A7 97 56 AA 32 31 2C 30 3A 97 56 AA 32 |.69..V.21,0:.V.2|
000026E0: 33 2C 30 3A 97 56 AA 32 39 2C 30 3A 89 32 30 30 |3,0:.V.29,0:.200|
000026F0: 00 FD 2E DB 03 8B 4B B2 30 A7 39 39 38 00 29 2F |......K.0.998.)/|
00002700: DC 03 4A 4F B2 C2 28 35 36 33 32 30 29 3A 8B A8 |..JO..(56320):..|
00002710: 4A 4F AF 31 A7 59 31 B2 59 31 AB 31 3A 8B 59 31 |JO.1.Y1.Y1.1:.Y1|
00002720: B2 30 A7 59 31 B2 32 30 30 00 49 2F DD 03 8B A8 |.0.Y1.200.I/....|
00002730: 4A 4F AF 38 A7 58 31 B2 58 31 AA 31 3A 8B 58 31 |JO.8.X1.X1.1:.X1|
00002740: B2 32 35 36 A7 58 31 B2 30 00 69 2F DE 03 8B A8 |.256.X1.0.i/....|
00002750: 4A 4F AF 32 A7 59 31 B2 59 31 AA 31 3A 8B 59 31 |JO.2.Y1.Y1.1:.Y1|
00002760: B2 32 30 30 A7 59 31 B2 30 00 89 2F DF 03 8B A8 |.200.Y1.0../....|
00002770: 4A 4F AF 34 A7 58 31 B2 58 31 AB 31 3A 8B 58 31 |JO.4.X1.X1.1:.X1|
00002780: B2 30 A7 58 31 B2 32 35 35 00 9D 2F E6 03 97 56 |.0.X1.255../...V|
00002790: AA 34 2C 58 31 3A 97 56 AA 35 2C 59 31 00 A6 2F |.4,X1:.V.5,Y1../|
000027A0: E7 03 89 39 37 35 00 CA 2F E8 03 8F 20 2A 2A 2A |...975../... ***|
000027B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000027C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EB 2F E9 03 8F |**********../...|
000027D0: 20 47 55 41 52 44 41 52 20 4C 4F 53 20 44 41 54 | GUARDAR LOS DAT|
000027E0: 4F 53 20 45 4E 20 43 49 4E 54 41 00 0F 30 EA 03 |OS EN CINTA..0..|
000027F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00002800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002810: 59 30 F2 03 99 22 45 53 54 41 20 52 55 54 49 4E |Y0..."ESTA RUTIN|
00002820: 41 20 47 55 41 52 44 41 20 4C 41 53 20 43 4F 4F |A GUARDA LAS COO|
00002830: 52 44 45 4E 41 44 41 53 20 45 4E 20 20 20 20 43 |RDENADAS EN C|
00002840: 49 4E 54 41 20 42 41 4A 4F 20 45 4C 20 41 52 43 |INTA BAJO EL ARC|
00002850: 48 49 56 4F 20 23 31 2E 22 00 8D 30 FC 03 99 20 |HIVO #1."..0... |
00002860: 22 4F 50 52 49 4D 41 20 27 53 27 20 50 41 52 41 |"OPRIMA 'S' PARA|
00002870: 20 45 4D 50 45 5A 41 52 20 4F 20 27 45 27 20 50 | EMPEZAR O 'E' P|
00002880: 41 52 41 20 54 45 52 4D 49 4E 41 52 22 00 A1 30 |ARA TERMINAR"..0|
00002890: 06 04 85 41 24 3A 8B 41 24 B2 22 45 22 A7 32 30 |...A$:.A$."E".20|
000028A0: 30 00 CD 30 10 04 8B 41 24 B3 B1 22 53 22 A7 99 |0..0...A$.."S"..|
000028B0: 22 27 45 27 20 4F 20 27 53 27 2C 20 50 4F 52 20 |"'E' O 'S', POR |
000028C0: 46 41 56 4F 52 2E 22 3A 89 31 30 31 30 00 FA 30 |FAVOR.":.1010..0|
000028D0: 12 04 99 22 49 4E 47 52 45 53 45 20 45 4C 20 4E |..."INGRESE EL N|
000028E0: 4F 4D 42 52 45 20 44 45 4C 20 41 52 43 48 49 56 |OMBRE DEL ARCHIV|
000028F0: 4F 20 41 20 55 53 41 52 2E 22 00 29 31 13 04 99 |O A USAR.".)1...|
00002900: 22 28 45 4C 20 4E 4F 4D 42 52 45 20 44 45 20 50 |"(EL NOMBRE DE P|
00002910: 41 52 54 49 44 41 20 45 53 20 27 53 50 52 49 54 |ARTIDA ES 'SPRIT|
00002920: 45 20 44 41 54 41 27 29 22 00 44 31 14 04 53 41 |E DATA')".D1..SA|
00002930: 24 B2 22 53 50 52 49 54 45 20 44 41 54 41 22 3A |$."SPRITE DATA":|
00002940: 85 53 41 24 00 55 31 15 04 8B 53 41 24 B2 22 45 |.SA$.U1...SA$."E|
00002950: 22 A7 32 30 30 00 65 31 1F 04 9F 20 31 2C 31 2C |".200.e1... 1,1,|
00002960: 31 2C 53 41 24 00 70 31 24 04 81 49 B2 31 A4 38 |1,SA$.p1$..I.1.8|
00002970: 00 7D 31 2E 04 98 31 2C 53 53 28 49 29 00 94 31 |.}1...1,SS(I)..1|
00002980: 38 04 81 4A B2 31 A4 36 33 3A 98 31 2C 53 44 28 |8..J.1.63:.1,SD(|
00002990: 49 2C 4A 29 00 9B 31 42 04 82 4A 00 A2 31 4C 04 |I,J)..1B..J..1L.|
000029A0: 82 49 00 AA 31 55 04 A0 20 31 00 F5 31 56 04 99 |.I..1U.. 1..1V..|
000029B0: 22 53 55 53 20 43 4F 4F 52 44 45 4E 41 44 41 53 |"SUS COORDENADAS|
000029C0: 20 44 45 4C 20 44 49 42 55 4A 4F 20 48 41 4E 20 | DEL DIBUJO HAN |
000029D0: 53 49 44 4F 20 41 52 2D 20 20 43 48 49 56 41 44 |SIDO AR- CHIVAD|
000029E0: 41 53 2E 20 45 4C 20 23 20 44 45 20 41 52 43 48 |AS. EL # DE ARCH|
000029F0: 49 56 4F 20 22 00 1A 32 60 04 99 22 45 53 20 31 |IVO "..2`.."ES 1|
00002A00: 20 59 20 45 4C 20 4E 4F 4D 42 52 45 20 45 53 20 | Y EL NOMBRE ES |
00002A10: 1C 22 3B 53 41 24 3B 22 9B 22 00 49 32 6A 04 99 |.";SA$;".".I2j..|
00002A20: 22 50 52 45 53 49 4F 4E 45 20 43 55 41 4C 51 55 |"PRESIONE CUALQU|
00002A30: 49 45 52 20 54 45 43 4C 41 20 50 41 52 41 20 54 |IER TECLA PARA T|
00002A40: 45 52 4D 49 4E 41 52 2E 22 00 56 32 74 04 85 41 |ERMINAR.".V2t..A|
00002A50: 24 3A 89 32 30 30 00 5C 32 7E 04 80 00 00 00 2C |$:.200.\2~.....,|
00002A60: 00 |. |
.. .... OPEN RS-232C I/O CHANNEL.H.... *
********************************.H.... 2
00,2,3,G(32.6).G(32.128).P....80...... *
******************************...... UNP
ACK BIT VALUES FOR EACH BYTE...... OF A
63 BYTE ARRAY. IF BIT IS...... SET THEN
POKE GRAPHIC CHARACTER.,.... IN SCREEN M
EMORY TO RECONSTRUCT.S.... SPRITE IMAGE
CALLED BY REDISPLAY.B.... ROUTINE.......
********************************. ...L.
1076:J.1:.I.1.21......X.1.3:A.SD(SN,J)..
....Y.1.8:.A.DC(Y)..L.Y,160:.L.Y.OF,0...
...Y...%.L.L.8:J.J.1:.X...(.L.L.16:.I...
*...2.-.. ******************************
**.Y.... IMPRIMIR CARACTER DEL ALFANUMER
I../.. CO B$ EN LA PANTALLA COMENZANDO.
..0.. EN LA DIRECCION L2....1.. ********
************************...2..X.0.C(B$).
1:CH.F(J(B$,X.1,1)):.CH.64.CH.CH.64...4.
. L2.X,CH:.L2.X.OF,11:.X...6...=.7.. ***
*****************************.C.8.. CREA
TE 63 BYTE BIT PACKED ARRAY...9.. FROM S
CREEN IMAGE WHEN CALLED BY...:.. SAVE...
.;.. ********************************...
<.V.53248:.V.21,4:. 2042,13:.V.4,45:.V.5
,60:.V.41,0...>.L.1076:J.1:.X.1.21:.I.1.
3:.Y.1.8:.B(L.Y).160.D.D.DC(Y).[.?..Y:.8
31.J,D:D.0:L.L.8:J.J.1:.I:L.L.16:.X.A.A.
....K.. ********************************
...L.. PREPARAR LOS COLORES, DIMENSIONAR
.V.M.. LOS ARREGLOS, E INICIAR LAS BAN..
.N.. DERAS....O.. **********************
**********.>.P.. 53281,15:. 53281,1:. 64
6,12:SN.0:RE.0:V.53248.`.U..G(147):. 532
48.21,0:OF.54272...V..SD(8,63),TD(63),DC
(8),SS(8),TN(8),DR(3),G(3)...W.. *******
*************************.Y.X.. CARGAR E
L ARREGLO DE BITS...Y.. ****************
****************.%.[.C.256:.X.1.8:DC(X).
C.2:C.DC(X):..L.B.. ********************
************.L.C.. IMPRIMIR MENU DE ORDE
NES....D.. *****************************
**...E.." **************************
***"...F.." *
*"...G.." * GRAFICOS PARA LA C-
64 *".:.H.." * PAGINA 61 DE LA RE
VISTA *".D.I.." * 'MICROCOMPUT
ING' *"...J.." * DE JUNIO D
E 1983 *"...K.." *
*"...L.." ************
*****************"...S..X.1.5000:..%.H..
G(147):." *** MENU DE LOS GRAFICOS
***"./.M..:.:..P.R.." 'C' PARA CREAR
DIBUJOS".V.S.." 'A' PARA ANIMAR LOS DI
BUJOS"...T.." 'L' PARA CARGAR LA C-64
DESDE CINTA".G.U.." 'E' PARA VOLVER AL
MENU "...V.." 'S' PARA GUARDAR EL DIB
UJO EN CINTA".#.W.." 'D' PARA MOSTRAR
LAS COORDENADAS ".Q.Y.." 'N' PARA MO
STRAR EL # DE DIBUJOS ".V.Z.." 'R' P
ARA MOSTRAR UN DIBUJO"......" 'Q' PARA
TERMINAR EL PROGRAMA".D.... ***********
********************...... LECTURA DEL T
ECLADO...... ***************************
****.!....:.:."INGRESE LA ORDEN";.)....A
$.5....G(147).E....A$."C".400.U....A$."A
".900.E....A$."L".800.U....A$."E".200...
...A$."S".1000......A$."D".600......A$."
N".300......A$."R".RE.1:.400.O....A$."Q"
. 200:..X....200...".. *****************
************...#.. MOSTRAR LAS IMAGENES.
;.$.. *****************************.F.,.
.X.1.8...6..SS(X).1.."DIBUJO NUMERO";X;"
SE ENCUENTRA CODIFICADO.":. 340...@.."DI
BUJO NUMERO";X;"NO EXISTE."...T..X.S.^..
"TECLEE PARA SALIR";A$:.200...|.. ******
***********************...}.. IMPRIMIR I
NSTRUCCIONES.8.~.. *********************
********.F...."PARA CREAR LAS IMAGENES U
SE EL CURSOR."......" SUBIR (";G(123);")
. F5=BORRAR (";G(119);") F7=DIBUJO (";..
....G(113);"). EL JOYSTICK EN EL #2 MUEV
E LA LINEA. PRESIONE EL ";. .... "BOTO
N ROJO PARA SELECCIONAR LAS OPCIONES.":.
.O...."PRESIONE 'Q' PARA SALIR CUANDO TE
RMINE."._....:.RE.0.411......"INGRESE DI
BUJO# PARA MOSTRAR";SN......SN.1.SN.8.."
DE 1 A 8, POR FAVOR.":.406......SS(SN).0
.."EL DIBUJO #";SN;"NO EXISTE.":RE.0:.40
0......:." PARA IMPRIMIR DIBUJO#";SN;"
POR FAVOR";.A....:.:."PRESIONE 'S' PARA
COMENZAR".U....A$:.A$."E".200.F....A$.."
S".411.....B.1036:L.1077:BL.0:L1.1077:G.
32:BG.90:G(1).160:G(2).32:G(3).32:G1.3:G
T.32.S...DR(1).81:DR(2).87:DR(3).91... .
.G(147):B$."F1=DIBUJO":L2.1385:.50:B$."E
CHO MODE":L2.1425.N....50:B$."R=NORMAL":
L2.1505:.50:B$."DIBUJO:L2=1545:GOSUB50..
...B$."X=EJE X":L2.1625:.50:B$."AMPLIADO
":L2.1665:.50:B$."Y=EJE Y".R...L2.1745:.
50:B$."AMPLIADO":L2.1785:.50:B$."G=X E Y
":L2.1865:......50:B$."AMPLIADO":L2.1905
:.50.0....X.B.B.25:.X,BG:.X.OF,15:.X.22.
40,BG:.X.(22.40).OF,15:..P....1048.OF,11
:.1049.OF,11:.1049.22.40.OF,11:.1048.22.
40.OF,11......X.B.B.22.40.40:.X,BG:.X.OF
,15:.X.25,BG:.X.25.OF,15:......L2.1985:B
$." PRESIONE 'Q' CON EL DIBUJO COMPLET
O":.50. ....X.B.B.22.40.40:.X,BG:.X.OF,1
5:.X.25,BG:.X.25.OF,15:..@....1476 .OF,1
1:.1476.25.OF,11.D.... *****************
************...... CONTROL DE IMPRESION
DEL DIBUJO...... ***********************
******.A....RE.0..20:RE.0...... ********
*********************...... MOVIMIENTO,
DIBUJO,O BORRADO.,.... Y ECHO MODE CUAND
O SEA PEDIDO.P.... *********************
********.[...L.1077.N....G1.3.G(G1).GT..
....L,G(G1):.L.OF,0:BL.BL.1......BL.1..L
,DR(G1)......BL.2.BL.0.S.B.. ***********
*******************...C.. LECTURA DEL TE
CLADO...D.. ****************************
**.*.E..A$:.A$."".X.0:.455.6.F.X.F(A$).G
.G..X.29 .L.L.1.X.H..X.157.L.L.1.I.I..X.
17.L.L.40.{.J..X.145.L.L.40...K..X.135.G
1.1...L..X.136.G1.2...M..X.81..500...N..
X.134.G1.3.I.O..X.133..60...P..X.82..532
71,0:.53277,0...Q..X.88..53271,0:.53277,
4...R..X.89..53271,4:.53277,0.9.S..X.71.
.53271,4:.53277,4.].T.. ****************
*************.{.U.. LECTURA DEL JOYSTICK
#2...V.. *****************************.
..W.JO.B(56320):.JO.126.L.L.40.Q.X..JO.1
18.L.L.39...Y..JO.119.L.L.1...Z..JO.117.
L.L.41......JO.125.L.L.40......JO.121.L.
L.39......JO.123.L.L.1.A....JO.122.L.L.4
1.`....JO.111.G1.G1.1:.G1.4.G1.1.P....G1
.2.GT.32......B(L).BG.L.L1......L1.L.495
......G1.3.GT.B(L).C....L1,G(G1):.L1.OF,
0:L1.L:.445...... **********************
*********...... GUARDAR LA IMAGEN TEMPOR
ARIA.2.... *****************************
**.Q...L2.1987:B$."ESPERE-SE ESTA COPIAN
DO LA IMAGEN ":.50:DC.1......53248.21,
0.....L.1076:J.1:.X.1.21:.I.1.3:.Y.1.8:.
B(L.Y).160.D.D.DC(Y)......Y:TD(J).D:D.0:
L.L.8:J.J.1:.I:L.L.16:.X...&.. *********
*********************.D.'.. GUARDAR EL D
IBUJO EN UN ARREGLO 552 REM O SALIDA.I.)
.. ******************************.U.*..G
(147)...+.."PRESIONE 'S' PARA CODIFICAR
EL DIBUJO.".F.-.."PRESIONE 'E' PARA TERM
INAR.".Z....A$:.A$."S".700.../..A$."E".D
C.0.200.. 0.. **************************
****.8 1.. VERIFICAR EL PEDIDO DE SALIDA
.] 2.. ******************************..
:..:."COORDENADAS DEL DIBUJO SIN GUARDAR
.":."VERIFIQUE LA SALIDA.".O ;.."PRESION
E 'S'I O 'N'O.":.A$:.A$."N".555.. ?..A$.
"S".200.. D.. 570..!X.. ****************
**************.3!Y.. IMPRIMIR INSTRUCCIO
NES PARA LA.Y!Z.. RUTINA DE IMPRESION DE
COORDENA.N![.. DAS DEL DIBUJO..!\.. ***
***************************..!]..G(147).
M!`.."ESTA RUTINA IMPRIME LAS 63 COORDEN
ADAS"..!A.." DEL DIBUJO.".."B..:."INGRES
E EL # DE DIBUJO.".1"C.."INGRESE UN '0'
PARA TERMINAR LA RUTINA.".C"D..SN:.SN.0.
200.O"F..SN.1.SN.8.."DE 1 A 8, POR FAVOR
.":.610.."G.. **************************
*****.."H.. CHEQUEO DE SALIDA POR PANTAL
LA.."I.. ******************************.
'#L.."INGRESE UNA 'P' PARA SALIDA IMPRES
A":." O UNA 'S' PARA PANTALLA.".<#Q..A$:
.A$."P".PR.1.Q#T..PR.1..200,G(13)..#U..P
R.1..200," DIBUJO";SN;"DESCRIPCION DE C
OORDENADAS":.200,G(13)..#V..PR.1.640.V#W
.." DIBUJO";SN;"DESCRIPCION DE COORDENA
DAS":...$X.." DIBUJO";SN;"DESCRIPCION D
E COORDENADAS":..E$Z.TC.1:.X.1.21:."BYTE
";TC,:.J.1.3:.SD(SN,TC),:TC.TC.1:.J,X.O$
{.. 647..$..TC.1:.X.1.7:.200,"BYTE";TC,:
.J.1.9:.200,SD(SN,TC);:TC.TC.1..$...J:.2
00,G(13):.X.X$..."INGRESE CUALQUIER CARA
CTER PARA EL MENU.":PR.0..$...A$:.200..%
... ******************************.1%...
COPIAR DE LA PANTALLA AL ARREGLO.V%...
******************************..%..."ING
RESE EL # DE DIBUJO QUE DESEA ARCHIVAR U
"..%..."OPRIMA UN '0' PARA SALIR.":DC.0.
A%...SN:.SN.0.200..%A..SN.1.SN.8.."DE 1
A 8 POR FAVOR-":.701..&F..I.1.63:SD(SN,I
).TD(I):.:SS(SN).1.@&P.."DIBUJO #";SN:."
COORDENADAS ARCHIVADAS.".X&Z.."INGRESE C
UALQUIER CARACTER PARA TERMINAR";A$:.550
..&..."ERROR":...& .. ******************
************.Q&!.. CARGAR COORDENADAS DE
SDE CINTA..&".. ************************
*****.='%.."ESTA RUTINA CARGA LAS COORDE
NADAS DESDE EL ARCHIVO DE CINTA #1.".}'
*.."INGRESE UNA 'L' PARA CARGAR O UNA 'E
' PARA TERMINAR-"..'4..A$:.A$."E".20
0..'>..A$.."L".."'E' O 'L' POR FAVOR.":.
820..'A.."INGRESE EL NOMBRE DEL ARCHIVO
A BUSCAR"..(C.."BUSCANDO EL NOMBRE PARA"
./(H.SA$." COORDENADAS DEL DIBUJO":.SA$.
@(M..SA$."E".200.O(R..1,1,0,SA$.Z(\..I.1
.8.G(F..1,SS(I).~(P..J.1.63:.1,SD(I,J)..
(Q..J..(Z..I..({. 1..(|.."LAS COORDENADA
S DEL DIBUJOS SE HAN CARGA DO DESDE LA C
INTA.INGRESE ";..)}.."CUALQUIER CARACTER
PARA TERMINAR"..)..A$:.200.9)... *****
*************************.^)... ANIMACIO
N DEL DIBUJO REQUERIDO..)... POR TECLADO
O POR JOYSTICK...)... *****************
*************..)...G(147)..)..."ESTA RUT
INA ANIMARA CUALQUIER DIBUJO."..*..."SU
DIBUJO PUEDE MOVERSE POR LA PANTALLA".<*
..."CON LAS TECLAS DEL CURSOR O EL JOYST
ICK".Z*..."EN LA SALIDA NUMERO 2."..*...
"'J' PARA JOYSTICK O 'K' PARA PANTALLA."
..*..."(OPRIMA 'E' PARA TERMINAR)"..*...
A$.F*..K.0:.A$."J".K.1.V*...A$."K".K.2..
*...A$."E".200..*...K.0.290..+... ******
************************.>+... NUMERO,CO
LOR Y FORMA DE DISPLAY.C+... ***********
*******************..+..."INGRESE EL # A
ANIMAR";SN..+...SS(SN).0.."EL DIBUJO #"
;SN;"NO EXISTE.":.910..+..."OPRIMA DE '0
' A '15' PARA EL COLOR."..,...A:.A.0.A.1
5.."EL # DEBE SER DE 0 A 15.":.955..,..C
L.A.C,..."OPRIMA 'R' PARA DIBUJO STANDAR
D.".J,..." 'X' PARA EXPANSION EN X
."..,..." 'Y' PARA EXPANSION EN Y.
"..,A.." 'G' PARA EXPANSION EN X E
Y.".Y,B..A$:.A$.G(13).A$."R".967..,C..A
$."X"..V.29,4..-D..A$."Y"..V.23,4..-E..A
$."G"..V.29,4:.V.23,4.--F..A$."E".200.9-
G..G(147).S-H.V.53248:.V.21,4:.2042,13:V
S.831:X1.100:Y1.100:.V.41,0..-I..X.1.63:
.VS.X,SD(SN,X):...-J..V.4,X1:.V.5,Y1:.V.
41,CL.R-K.. ****************************
**..-L.. LECTURA DE TECLADO O JOYSTICK..
.M.. *****************************.2.O..
A$:.A$."".X.0:.982.>.T.X.F(A$).K.U..K.1.
986.J.V..X.17.Y1.Y1.1:.Y1.200.Y1.0...W..
X.29.X1.X1.1:.X1.256.X1.0...X..X.145.Y1.
Y1.1:.Y1.0.Y1.199.I.Y..X.157.X1.X1.1:.X1
.0.X1.255...Z..X.69..V.21,0:.V.23,0:.V.2
9,0:.200......K.0.998.)/..JO.B(56320):..
JO.1.Y1.Y1.1:.Y1.0.Y1.200.I/....JO.8.X1.
X1.1:.X1.256.X1.0.I/....JO.2.Y1.Y1.1:.Y1
.200.Y1.0../....JO.4.X1.X1.1:.X1.0.X1.25
5../...V.4,X1:.V.5,Y1../...975.J/... ***
**************************../... GUARDAR
LOS DATOS EN CINTA..0... **************
***************.Y0..."ESTA RUTINA GUARDA
LAS COORDENADAS EN CINTA BAJO EL ARC
HIVO #1."..0... "OPRIMA 'S' PARA EMPEZAR
O 'E' PARA TERMINAR"..0...A$:.A$."E".20
0.M0...A$.."S".."'E' O 'S', POR FAVOR.":
.1010..0..."INGRESE EL NOMBRE DEL ARCHIV
O A USAR.".)1..."(EL NOMBRE DE PARTIDA E
S 'SPRITE DATA')".D1..SA$."SPRITE DATA":
.SA$.U1...SA$."E".200.E1... 1,1,1,SA$.P1
$..I.1.8.}1...1,SS(I)..18..J.1.63:.1,SD(
I,J)..1B..J..1L..I..1U. 1..1V.."SUS COO
RDENADAS DEL DIBUJO HAN SIDO AR- CHIVAD
AS. EL # DE ARCHIVO "..2`.."ES 1 Y EL NO
MBRE ES .";SA$;".".I2J.."PRESIONE CUALQU
IER TECLA PARA TERMINAR.".V2T..A$:.200.\
2~.....,.
> CLICK IMAGE PREVIEW FOR FULL MODAL