COD. MAQ. 2
FILE INFORMATION
FILENAME(S): COD. MAQ. 2
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-10-19 23:07:10
APPEARS ON: 1 disk(s)
FILE HASH
d838f3784922883ea6c1e3ae167b97a1e1090b60a66fd581bc3d93247552119a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A04A | COD. MAQ. 2 | PRG | Bugjam - Argentina | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 00 00 8F 22 14 14 14 14 14 14 28 43 |..#...."......(C|
00000010: 29 48 4F 52 41 20 53 4F 46 54 57 41 52 45 20 31 |)HORA SOFTWARE 1|
00000020: 39 38 33 00 30 08 01 00 8F 22 14 14 14 14 14 14 |983.0...."......|
00000030: 00 48 08 05 00 8F 20 53 41 56 45 22 4D 4C 32 2E |.H.... SAVE"ML2.|
00000040: 45 53 2E 4A 31 22 2C 38 00 64 08 32 00 97 35 33 |ES.J1",8.d.2..53|
00000050: 32 38 31 2C 31 35 3A 97 35 33 32 38 30 2C 36 3A |281,15:.53280,6:|
00000060: 99 22 1F 22 00 6C 08 64 00 99 22 93 00 9C 08 65 |.".".l.d.."....e|
00000070: 00 99 22 1C B0 C0 C0 C0 C0 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 AE 22 00 E0 08 66 |..........."...f|
000000A0: 00 99 22 DD 20 12 1F 20 20 20 20 20 20 45 4E 20 |..". .. EN |
000000B0: 45 4C 20 49 4E 54 45 52 49 4F 52 20 44 45 4C 20 |EL INTERIOR DEL |
000000C0: 43 2D 36 34 20 20 20 20 20 20 1C 92 20 DD 22 3A |C-64 .. .":|
000000D0: 4D 53 24 B2 22 42 49 45 4E 56 45 4E 49 44 4F 22 |MS$."BIENVENIDO"|
000000E0: 00 11 09 67 00 99 22 1C AD C0 C0 C0 C0 C0 C0 C0 |...g..".........|
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 BD 90 |................|
00000110: 22 00 2A 09 E8 03 8D 36 30 30 30 30 3A 8D 36 33 |".*....60000:.63|
00000120: 31 30 30 3A 8D 36 33 30 30 30 00 3B 09 EA 0B 8D |100:.63000.;....|
00000130: 34 30 33 36 30 3A 8D 35 30 30 30 00 4B 09 A0 0F |40360:.5000.K...|
00000140: 99 22 93 59 20 41 48 4F 52 41 22 00 72 09 A1 0F |.".Y AHORA".r...|
00000150: 99 22 11 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A |.". ****|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 22 00 98 09 A2 0F 99 22 20 20 20 20 20 20 20 |*"......" |
00000180: 20 20 2A 20 55 4E 41 20 49 4E 54 45 52 52 4F 47 | * UNA INTERROG|
00000190: 41 43 49 4F 4E 20 2A 22 00 BE 09 A3 0F 99 22 20 |ACION *"......" |
000001A0: 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A | ********|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 E6 |*************"..|
000001C0: 09 A4 0F 81 49 B2 31 A4 35 30 30 3A 82 3A 4D 53 |....I.1.500:.:MS|
000001D0: 24 B2 22 4C 41 20 50 52 55 45 42 41 21 92 22 3A |$."LA PRUEBA!.":|
000001E0: 8D 36 33 31 30 30 00 25 0A AA 0F 99 22 13 1F 11 |.63100.%...."...|
000001F0: 11 11 11 11 11 59 4F 20 4C 45 53 20 56 4F 59 20 |.....YO LES VOY |
00000200: 41 20 50 52 45 47 55 4E 54 41 52 20 41 4C 47 55 |A PREGUNTAR ALGU|
00000210: 4E 41 53 22 3A 4D 53 24 B2 22 4D 55 59 20 20 42 |NAS":MS$."MUY B|
00000220: 49 45 4E 21 22 00 46 0A B4 0F 99 22 50 52 45 47 |IEN!".F...."PREG|
00000230: 55 4E 54 41 53 20 53 4F 42 52 45 20 4D 49 20 4D |UNTAS SOBRE MI M|
00000240: 49 53 4D 4F 2E 22 00 73 0A B9 0F 99 22 11 53 49 |ISMO.".s....".SI|
00000250: 20 4C 41 20 50 52 45 47 55 4E 54 41 20 45 53 20 | LA PREGUNTA ES |
00000260: 52 45 4C 41 43 49 4F 4E 41 44 41 20 43 4F 4E 20 |RELACIONADA CON |
00000270: 55 4E 22 00 9D 0A BE 0F 99 22 4C 55 47 41 52 20 |UN"......"LUGAR |
00000280: 44 45 20 4C 41 20 4D 45 4D 4F 52 49 41 20 4F 20 |DE LA MEMORIA O |
00000290: 55 4E 41 20 44 49 52 45 43 43 49 4F 4E 00 CB 0A |UNA DIRECCION...|
000002A0: C8 0F 99 22 11 12 52 45 53 50 4F 4E 44 41 20 43 |..."..RESPONDA C|
000002B0: 4F 4E 20 34 20 43 49 46 52 41 53 20 45 4E 20 48 |ON 4 CIFRAS EN H|
000002C0: 45 58 41 44 45 43 49 4D 41 4C 22 00 F3 0A D2 0F |EXADECIMAL".....|
000002D0: 99 22 51 55 45 20 43 4F 4D 49 45 4E 43 45 4E 20 |."QUE COMIENCEN |
000002E0: 43 4F 4E 20 24 20 28 43 4F 4D 4F 20 24 31 32 33 |CON $ (COMO $123|
000002F0: 34 29 22 00 23 0B DC 0F 99 22 11 2E 2E 2E 41 20 |4)".#...."....A |
00000300: 4D 45 4E 4F 53 20 51 55 45 20 53 45 20 49 4E 44 |MENOS QUE SE IND|
00000310: 49 51 55 45 20 44 45 20 4F 54 52 4F 20 4D 4F 44 |IQUE DE OTRO MOD|
00000320: 4F 1C 22 00 35 0B E6 0F 8D 35 30 30 30 30 3A 8D |O.".5....50000:.|
00000330: 36 33 30 30 30 00 4E 0B F0 0F 81 4E B2 31 A4 51 |63000.N....N.1.Q|
00000340: 51 3A 99 22 93 11 11 11 22 51 24 28 4E 29 00 63 |Q:."...."Q$(N).c|
00000350: 0B F5 0F A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 34 |....A$:.A$.."".4|
00000360: 30 38 35 00 80 0B FA 0F 85 22 11 11 11 20 20 20 |085......"... |
00000370: D6 9D 9D 9D 22 3B 41 24 3A 99 22 11 11 11 11 22 |....";A$:."...."|
00000380: 00 AD 0B 04 10 8B 41 24 B2 41 24 28 4E 29 A7 8D |......A$.A$(N)..|
00000390: 36 33 31 30 30 3A 99 22 13 11 11 11 11 11 11 11 |63100:."........|
000003A0: 11 11 11 11 11 11 22 3A 89 34 31 32 30 00 BB 0B |......":.4120...|
000003B0: 0E 10 99 41 4E 24 41 24 28 4E 29 00 D2 0B 18 10 |...AN$A$(N).....|
000003C0: 99 22 11 22 4D 24 28 4E 29 3A 8D 36 33 30 30 30 |."."M$(N):.63000|
000003D0: 3A 82 00 FA 0B 22 10 99 22 93 51 55 49 45 52 45 |:...."..".QUIERE|
000003E0: 20 55 53 54 45 44 20 52 45 50 45 54 49 52 20 4C | USTED REPETIR L|
000003F0: 41 20 50 52 55 45 42 41 3F 22 00 0E 0C 2C 10 85 |A PRUEBA?"...,..|
00000400: 22 11 11 20 20 20 53 9D 9D 9D 22 3B 41 24 00 25 |".. S...";A$.%|
00000410: 0C 36 10 8B 41 24 B2 22 53 22 A7 99 22 93 22 3A |.6..A$."S"..".":|
00000420: 89 34 30 38 30 00 30 0C 40 10 89 33 39 39 39 39 |.4080.0.@..39999|
00000430: 00 63 0C 88 13 99 22 93 1C 12 20 20 20 20 20 20 |.c...."... |
00000440: 20 20 20 20 20 20 20 4F 54 52 4F 20 45 4A 45 4D | OTRO EJEM|
00000450: 50 4C 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 |PLO |
00000460: 20 20 22 00 A0 0C 8D 13 99 22 1F 45 4A 45 43 55 | "......".EJECU|
00000470: 54 41 52 45 4D 4F 53 20 45 4C 20 53 49 47 55 49 |TAREMOS EL SIGUI|
00000480: 45 4E 54 45 20 50 52 4F 47 52 41 4D 41 3A 22 3A |ENTE PROGRAMA:":|
00000490: 51 54 24 B2 C7 28 33 34 29 3A 8D 36 33 39 30 30 |QT$..(34):.63900|
000004A0: 00 B9 0C 92 13 99 22 11 1C 20 31 30 20 41 42 24 |......".. 10 AB$|
000004B0: 3D 53 54 52 24 28 37 29 22 00 E3 0C 9C 13 99 22 |=STR$(7)"......"|
000004C0: 11 1F 56 45 41 4D 4F 53 20 41 48 4F 52 41 20 44 |..VEAMOS AHORA D|
000004D0: 4F 4E 44 45 20 45 53 54 41 20 47 55 41 52 44 41 |ONDE ESTA GUARDA|
000004E0: 44 41 22 00 F8 0C A1 13 99 22 4C 41 20 43 41 44 |DA"......"LA CAD|
000004F0: 45 4E 41 20 27 37 27 22 00 26 0D A6 13 99 22 11 |ENA '7'".&....".|
00000500: 45 4E 54 52 45 4D 4F 53 20 41 4C 20 4D 4C 4D 20 |ENTREMOS AL MLM |
00000510: 43 4F 4E 20 12 53 59 53 32 30 34 38 92 20 59 20 |CON .SYS2048. Y |
00000520: 4C 55 45 47 4F 22 00 52 0D B0 13 99 22 11 2E 12 |LUEGO".R...."...|
00000530: 4D 20 30 38 30 30 2D 30 38 33 30 92 20 50 41 52 |M 0800-0830. PAR|
00000540: 41 20 56 45 52 20 45 4C 20 50 52 4F 47 52 41 4D |A VER EL PROGRAM|
00000550: 41 22 00 7D 0D BA 13 99 22 11 2E 12 4D 20 37 46 |A".}...."...M 7F|
00000560: 46 38 2D 37 46 46 46 92 20 50 41 52 41 20 56 45 |F8-7FFF. PARA VE|
00000570: 52 20 4C 41 20 43 41 44 45 4E 41 2E 22 00 8E 0D |R LA CADENA."...|
00000580: C4 13 8D 36 33 30 30 30 3A 99 22 93 22 3B 00 B6 |...63000:.".";..|
00000590: 0D 71 17 99 22 11 2E 3A 20 20 30 38 30 30 20 30 |.q.."..: 0800 0|
000005A0: 30 20 30 45 20 30 38 20 30 41 20 30 30 20 34 31 |0 0E 08 0A 00 41|
000005B0: 20 34 32 20 32 34 00 DD 0D 72 17 99 22 2E 3A 20 | 42 24...r..".: |
000005C0: 20 30 38 30 38 20 42 32 20 43 34 20 32 38 20 33 | 0808 B2 C4 28 3|
000005D0: 37 20 32 39 20 30 30 20 30 30 20 30 30 00 04 0E |7 29 00 00 00...|
000005E0: 73 17 99 22 2E 3A 20 20 30 38 31 30 20 34 31 20 |s..".: 0810 41 |
000005F0: 43 32 20 30 32 20 46 43 20 37 46 20 30 30 20 30 |C2 02 FC 7F 00 0|
00000600: 30 20 41 41 00 2B 0E 74 17 99 22 2E 3A 20 20 30 |0 AA.+.t..".: 0|
00000610: 38 31 38 20 41 41 20 41 41 20 41 41 20 41 41 20 |818 AA AA AA AA |
00000620: 41 41 20 41 41 20 41 41 20 41 41 00 56 0E 75 17 |AA AA AA AA.V.u.|
00000630: 99 22 11 11 2E 3A 20 20 37 46 46 38 20 41 41 20 |."...: 7FF8 AA |
00000640: 41 41 20 41 41 20 41 41 20 32 30 20 33 37 20 31 |AA AA AA 20 37 1|
00000650: 32 20 30 34 1C 22 00 7B 0E D4 17 53 44 B2 33 3A |2 04.".{...SD.3:|
00000660: 53 52 B2 32 34 3A 43 43 24 B2 22 30 30 20 30 30 |SR.24:CC$."00 00|
00000670: 20 30 30 22 3A 8D 35 35 30 30 30 00 A4 0E DE 17 | 00":.55000.....|
00000680: 99 53 44 24 22 45 53 54 4F 53 20 53 4F 4E 20 4C |.SD$"ESTOS SON L|
00000690: 4F 53 20 33 20 42 59 54 45 53 20 27 30 30 27 2D |OS 3 BYTES '00'-|
000006A0: 51 55 45 22 00 C0 0E E8 17 99 22 54 45 52 4D 49 |QUE"......"TERMI|
000006B0: 4E 41 4E 20 45 4C 20 50 52 4F 47 52 41 4D 41 22 |NAN EL PROGRAMA"|
000006C0: 00 D2 0E F2 17 8D 36 32 30 30 30 3A 8D 35 35 30 |......62000:.550|
000006D0: 31 30 00 F3 0E FC 17 53 44 B2 34 3A 53 52 B2 39 |10.....SD.4:SR.9|
000006E0: 3A 43 43 24 B2 22 34 31 20 43 32 22 3A 8D 35 35 |:CC$."41 C2":.55|
000006F0: 30 30 30 00 0F 0F 06 18 99 53 44 24 22 12 34 31 |000......SD$".41|
00000700: 92 3D 27 41 27 20 45 4E 20 41 53 43 49 49 22 00 |.='A' EN ASCII".|
00000710: 35 0F 10 18 99 22 12 34 32 92 3D 27 42 27 2E 2E |5....".42.='B'..|
00000720: 50 45 52 4F 20 24 38 30 20 45 53 20 41 47 52 45 |PERO $80 ES AGRE|
00000730: 47 41 44 4F 22 00 67 0F 1A 18 99 22 50 41 52 41 |GADO".g...."PARA|
00000740: 20 49 4E 44 49 43 41 52 20 55 4E 41 20 12 43 41 | INDICAR UNA .CA|
00000750: 44 45 4E 41 92 2C 20 52 45 53 55 4C 54 41 4E 44 |DENA., RESULTAND|
00000760: 4F 20 12 43 32 92 22 00 79 0F 24 18 8D 36 32 30 |O .C2.".y.$..620|
00000770: 30 30 3A 8D 35 35 30 31 30 00 98 0F 2E 18 53 44 |00:.55010.....SD|
00000780: B2 34 3A 53 52 B2 31 35 3A 43 43 24 B2 22 30 32 |.4:SR.15:CC$."02|
00000790: 22 3A 8D 35 35 30 30 30 00 CA 0F 38 18 99 53 44 |":.55000...8..SD|
000007A0: 24 22 4C 41 20 43 41 44 45 4E 41 20 41 42 24 20 |$"LA CADENA AB$ |
000007B0: 54 49 45 4E 45 20 12 30 32 92 20 42 59 54 45 53 |TIENE .02. BYTES|
000007C0: 20 44 45 20 4C 41 52 47 4F 22 00 DC 0F 42 18 8D | DE LARGO"...B..|
000007D0: 36 32 30 30 30 3A 8D 35 35 30 31 30 00 FE 0F 4C |62000:.55010...L|
000007E0: 18 53 44 B2 34 3A 53 52 B2 31 38 3A 43 43 24 B2 |.SD.4:SR.18:CC$.|
000007F0: 22 46 43 20 37 46 22 3A 8D 35 35 30 30 30 00 2F |"FC 7F":.55000./|
00000800: 10 56 18 99 53 44 24 22 59 20 45 53 54 41 20 41 |.V..SD$"Y ESTA A|
00000810: 4C 4D 41 43 45 4E 41 44 41 20 45 4E 20 24 12 37 |LMACENADA EN $.7|
00000820: 46 46 43 92 2E 20 20 20 20 20 20 20 20 20 22 00 |FFC.. ".|
00000830: 41 10 60 18 8D 36 32 30 30 30 3A 8D 35 35 30 31 |A.`..62000:.5501|
00000840: 30 00 63 10 6A 18 53 44 B2 38 3A 53 52 B2 32 31 |0.c.j.SD.8:SR.21|
00000850: 3A 43 43 24 B2 22 32 30 20 33 37 22 3A 8D 35 35 |:CC$."20 37":.55|
00000860: 30 30 30 00 87 10 74 18 99 53 44 24 22 41 51 55 |000...t..SD$"AQU|
00000870: 49 2C 20 45 4E 20 24 37 46 46 43 2C 20 45 53 54 |I, EN $7FFC, EST|
00000880: 41 20 41 42 24 2E 22 00 AE 10 7E 18 99 22 11 41 |A AB$."...~..".A|
00000890: 42 24 20 45 53 3A 12 32 30 92 3D 27 45 53 50 41 |B$ ES:.20.='ESPA|
000008A0: 43 49 4F 27 2B 12 33 37 92 3D 27 37 27 22 00 C0 |CIO'+.37.='7'"..|
000008B0: 10 88 18 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 |....62000:.55010|
000008C0: 00 E2 10 92 18 53 44 B2 38 3A 53 52 B2 32 37 3A |.....SD.8:SR.27:|
000008D0: 43 43 24 B2 22 31 32 20 30 38 22 3A 8D 35 35 30 |CC$."12 08":.550|
000008E0: 30 30 00 05 11 9C 18 99 53 44 24 22 59 20 44 4F |00......SD$"Y DO|
000008F0: 4E 44 45 20 49 4E 44 49 43 41 20 51 55 45 20 45 |NDE INDICA QUE E|
00000900: 53 20 44 45 22 00 21 11 A6 18 99 22 32 20 42 59 |S DE".!...."2 BY|
00000910: 54 45 53 20 44 45 20 4C 4F 4E 47 49 54 55 44 3F |TES DE LONGITUD?|
00000920: 22 00 44 11 B0 18 99 22 2E 2E 45 4E 20 4C 41 20 |".D...."..EN LA |
00000930: 44 49 52 45 43 43 49 4F 4E 3A 20 24 12 30 38 31 |DIRECCION: $.081|
00000940: 32 92 21 22 00 63 11 BA 18 53 44 B2 34 3A 53 52 |2.!".c...SD.4:SR|
00000950: B2 31 35 3A 43 43 24 B2 22 30 32 22 3A 8D 35 35 |.15:CC$."02":.55|
00000960: 30 30 30 00 7E 11 C4 18 8D 35 35 30 31 30 3A A1 |000.~....55010:.|
00000970: 41 24 3A 8B 41 24 B2 22 22 A7 36 33 33 30 00 A8 |A$:.A$."".6330..|
00000980: 11 CE 18 99 22 93 53 49 4E 20 45 4D 42 41 52 47 |....".SIN EMBARG|
00000990: 4F 2C 20 53 49 20 53 55 20 50 52 4F 47 52 41 4D |O, SI SU PROGRAM|
000009A0: 41 20 46 55 45 52 41 22 00 C2 11 D8 18 99 22 11 |A FUERA"......".|
000009B0: 20 31 30 20 41 42 24 3D 22 51 54 24 22 37 22 51 | 10 AB$="QT$"7"Q|
000009C0: 54 24 00 E6 11 E2 18 99 22 11 41 20 44 4F 4E 44 |T$......".A DOND|
000009D0: 45 20 43 52 45 45 20 55 53 54 45 44 20 4D 4F 53 |E CREE USTED MOS|
000009E0: 54 52 41 52 41 22 00 FA 11 EC 18 99 22 11 45 4C |TRARA"......".EL|
000009F0: 20 50 55 4E 54 45 52 4F 3F 22 00 26 12 F6 18 99 | PUNTERO?".&....|
00000A00: 22 11 12 4E 4F 92 20 41 20 24 37 46 46 43 2C 20 |"..NO. A $7FFC, |
00000A10: 53 49 4E 4F 20 41 4C 20 4C 55 47 41 52 20 55 42 |SINO AL LUGAR UB|
00000A20: 49 43 41 44 4F 22 00 49 12 00 19 99 22 11 45 4E |ICADO".I....".EN|
00000A30: 20 45 4C 20 50 52 4F 47 52 41 4D 41 20 42 41 53 | EL PROGRAMA BAS|
00000A40: 49 43 20 44 4F 4E 44 45 22 00 63 12 0A 19 99 22 |IC DONDE".c...."|
00000A50: 11 53 45 20 45 4E 43 55 45 4E 54 52 41 20 27 37 |.SE ENCUENTRA '7|
00000A60: 27 2E 22 00 6E 12 0F 19 8D 36 32 30 30 30 00 8F |'.".n....62000..|
00000A70: 12 14 19 99 53 44 24 22 59 20 45 53 45 20 4C 55 |....SD$"Y ESE LU|
00000A80: 47 41 52 20 45 53 20 24 12 30 38 30 41 92 22 00 |GAR ES $.080A.".|
00000A90: BB 12 19 19 99 22 2E 2E 51 55 45 20 54 49 45 4E |....."..QUE TIEN|
00000AA0: 45 20 53 4F 4C 4F 20 31 20 42 59 54 45 20 44 45 |E SOLO 1 BYTE DE|
00000AB0: 20 4C 4F 4E 47 49 54 55 44 21 22 00 D8 12 1E 19 | LONGITUD!".....|
00000AC0: 53 44 B2 33 3A 53 52 B2 39 3A 43 43 24 B2 22 37 |SD.3:SR.9:CC$."7|
00000AD0: 22 3A 8D 35 35 30 30 30 00 F3 12 28 19 8D 35 35 |":.55000...(..55|
00000AE0: 30 31 30 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 36 |010:.A$:.A$."".6|
00000AF0: 34 33 30 00 F9 12 32 19 8E 00 2E 13 3F 9C 99 22 |430...2.....?.."|
00000B00: 93 22 3A 4D 53 24 B2 22 12 20 20 41 44 49 4F 53 |.":MS$.". ADIOS|
00000B10: 21 20 20 92 22 3A 8D 36 33 31 30 30 3A 81 49 B2 |! .":.63100:.I.|
00000B20: 31 A4 35 3A 8D 36 33 36 30 30 3A 82 3A 80 00 47 |1.5:.63600:.:..G|
00000B30: 13 A8 9D 8D 36 32 30 30 30 3A 8D 36 33 39 30 30 |....62000:.63900|
00000B40: 3A 8D 35 35 30 31 30 00 85 13 AD 9D 99 22 93 1C |:.55010......"..|
00000B50: 12 20 20 20 20 20 20 56 41 4D 4F 53 20 41 20 45 |. VAMOS A E|
00000B60: 53 43 52 49 42 49 52 20 4F 54 52 4F 20 45 4A 45 |SCRIBIR OTRO EJE|
00000B70: 4D 50 4C 4F 20 20 20 20 20 22 3A 81 49 B2 31 A4 |MPLO ":.I.1.|
00000B80: 35 30 30 3A 82 00 B3 13 B2 9D 99 22 1F 12 31 30 |500:......."..10|
00000B90: 20 46 4F 52 49 3D 31 54 4F 31 30 3A 41 28 49 29 | FORI=1TO10:A(I)|
00000BA0: 3D 49 2A 49 3A 41 24 28 49 29 3D 53 54 52 24 28 |=I*I:A$(I)=STR$(|
00000BB0: 49 29 22 00 EC 13 BC 9D 99 22 12 32 30 20 50 52 |I)"......".20 PR|
00000BC0: 49 4E 54 22 C7 28 33 34 29 22 2B 22 C7 28 33 34 |INT".(34)"+".(34|
00000BD0: 29 22 3A 4E 45 58 54 20 20 20 20 20 20 20 20 20 |)":NEXT |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 22 00 17 14 C6 | "....|
00000BF0: 9D 99 22 1C 59 2C 20 41 4E 54 45 53 11 9D 9D 9D |..".Y, ANTES....|
00000C00: 9D 9D B8 B8 B8 B8 B8 91 20 44 45 20 45 4A 45 43 |........ DE EJEC|
00000C10: 55 54 41 52 4C 4F 22 00 3E 14 D0 9D 99 22 11 45 |UTARLO".>....".E|
00000C20: 4E 54 52 45 4D 4F 53 20 41 4C 20 4D 4C 4D 20 43 |NTREMOS AL MLM C|
00000C30: 4F 4E 20 12 53 59 53 32 30 34 38 92 3A 22 00 4A |ON .SYS2048.:".J|
00000C40: 14 DA 9D 99 22 11 11 1F 42 2A 00 69 14 E4 9D 99 |...."...B*.i....|
00000C50: 22 20 20 20 20 20 50 43 20 20 53 52 20 41 43 20 |" PC SR AC |
00000C60: 58 52 20 59 52 20 53 50 22 00 88 14 EE 9D 99 22 |XR YR SP"......"|
00000C70: 2E 3B 20 20 30 38 30 31 20 33 32 20 30 34 20 35 |.; 0801 32 04 5|
00000C80: 45 20 30 30 20 46 38 22 00 9C 14 F8 9D 99 22 2E |E 00 F8"......".|
00000C90: 4D 20 30 30 32 42 20 30 30 33 33 22 00 C4 14 02 |M 002B 0033"....|
00000CA0: 9E 99 22 2E 3A 20 20 30 30 32 42 20 30 31 20 30 |..".: 002B 01 0|
00000CB0: 38 20 32 45 20 30 38 20 32 45 20 30 38 20 32 45 |8 2E 08 2E 08 2E|
00000CC0: 20 30 38 22 00 EC 14 0C 9E 99 22 2E 3A 20 20 30 | 08"......".: 0|
00000CD0: 30 33 33 20 30 30 20 38 30 20 44 41 20 37 46 20 |033 00 80 DA 7F |
00000CE0: 30 30 20 38 30 20 31 34 20 46 46 22 00 F7 14 16 |00 80 14 FF"....|
00000CF0: 9E 99 22 2E 58 1C 22 00 1A 15 20 9E 53 44 B2 31 |..".X."... .SD.1|
00000D00: 34 3A 53 52 B2 30 39 3A 43 43 24 B2 22 30 31 20 |4:SR.09:CC$."01 |
00000D10: 30 38 22 3A 8D 35 35 30 30 30 00 3E 15 2A 9E 99 |08":.55000.>.*..|
00000D20: 53 44 24 22 45 4C 20 50 52 4F 47 52 41 4D 41 20 |SD$"EL PROGRAMA |
00000D30: 42 41 53 49 43 20 43 4F 4D 49 45 4E 5A 41 00 5D |BASIC COMIENZA.]|
00000D40: 15 34 9E 99 22 45 4E 20 24 30 38 30 31 2E 2E 50 |.4.."EN $0801..P|
00000D50: 4F 52 20 53 55 50 55 45 53 54 4F 21 22 00 6F 15 |OR SUPUESTO!".o.|
00000D60: 3E 9E 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 00 |>..62000:.55010.|
00000D70: 92 15 48 9E 53 44 B2 31 34 3A 53 52 B2 31 35 3A |..H.SD.14:SR.15:|
00000D80: 43 43 24 B2 22 32 45 20 30 38 22 3A 8D 35 35 30 |CC$."2E 08":.550|
00000D90: 30 30 00 B6 15 52 9E 99 53 44 24 22 45 4C 20 50 |00...R..SD$"EL P|
00000DA0: 52 4F 47 52 41 4D 41 20 42 41 53 49 43 20 54 45 |ROGRAMA BASIC TE|
00000DB0: 52 4D 49 4E 41 22 00 E0 15 5C 9E 99 22 45 4E 20 |RMINA"...\.."EN |
00000DC0: 24 30 38 32 45 2E 2E 44 45 53 50 55 45 53 20 44 |$082E..DESPUES D|
00000DD0: 45 20 33 20 42 59 54 45 53 20 27 30 30 27 2E 22 |E 3 BYTES '00'."|
00000DE0: 00 F2 15 66 9E 8D 36 32 30 30 30 3A 8D 35 35 30 |...f..62000:.550|
00000DF0: 31 30 00 1B 16 70 9E 53 44 B2 31 34 3A 53 52 B2 |10...p.SD.14:SR.|
00000E00: 32 31 3A 43 43 24 B2 22 32 45 20 30 38 20 32 45 |21:CC$."2E 08 2E|
00000E10: 20 30 38 22 3A 8D 35 35 30 30 30 00 41 16 7A 9E | 08":.55000.A.z.|
00000E20: 99 53 44 24 22 54 4F 44 41 56 49 41 20 4E 4F 20 |.SD$"TODAVIA NO |
00000E30: 48 41 4E 20 53 49 44 4F 20 43 52 45 41 44 41 53 |HAN SIDO CREADAS|
00000E40: 22 00 66 16 84 9E 99 22 56 41 52 49 41 42 4C 45 |".f...."VARIABLE|
00000E50: 53 2C 20 4D 41 54 52 49 43 45 53 20 4F 20 43 41 |S, MATRICES O CA|
00000E60: 44 45 4E 41 53 22 00 78 16 8E 9E 8D 36 32 30 30 |DENAS".x....6200|
00000E70: 30 3A 8D 35 35 30 31 30 00 AD 16 98 9E 53 44 B2 |0:.55010.....SD.|
00000E80: 31 35 3A 53 52 B2 30 39 3A 43 43 24 B2 22 30 30 |15:SR.09:CC$."00|
00000E90: 20 38 30 20 44 41 20 37 46 20 30 30 20 38 30 20 | 80 DA 7F 00 80 |
00000EA0: 31 34 20 46 46 22 3A 8D 35 35 30 30 30 00 D2 16 |14 FF":.55000...|
00000EB0: A2 9E 99 53 44 24 22 4E 4F 20 48 41 20 50 41 53 |...SD$"NO HA PAS|
00000EC0: 41 44 4F 20 4E 41 44 41 20 45 53 50 45 43 49 41 |ADO NADA ESPECIA|
00000ED0: 4C 22 00 E4 16 B6 9E 8D 36 32 30 30 30 3A 8D 35 |L"......62000:.5|
00000EE0: 35 30 31 30 00 26 17 C0 9E 99 53 44 24 22 1F 12 |5010.&....SD$"..|
00000EF0: 41 48 4F 52 41 20 92 20 45 4A 45 43 55 54 41 52 |AHORA . EJECUTAR|
00000F00: 45 4D 4F 53 20 20 20 11 9D 9D 9D 9D 9D 9D 9D 9D |EMOS .........|
00000F10: 9D 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000F20: B8 B8 B8 91 22 3B 00 44 17 CA 9E 99 22 20 45 4C |....";.D...." EL|
00000F30: 20 50 52 4F 47 52 41 4D 41 22 3A 99 22 56 45 41 | PROGRAMA":."VEA|
00000F40: 2E 2E 2E 22 00 76 17 CF 9E 99 22 13 20 20 20 20 |...".v....". |
00000F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F70: 20 20 20 20 1C 22 00 A3 17 D0 9E 99 22 12 31 30 | ."......".10|
00000F80: 20 46 4F 52 49 3D 31 54 4F 31 30 3A 41 28 49 29 | FORI=1TO10:A(I)|
00000F90: 3D 49 2A 49 3A 41 24 28 49 29 3D 53 54 52 24 28 |=I*I:A$(I)=STR$(|
00000FA0: 49 29 22 00 DC 17 D1 9E 99 22 12 32 30 20 50 52 |I)"......".20 PR|
00000FB0: 49 4E 54 22 C7 28 33 34 29 22 2B 22 C7 28 33 34 |INT".(34)"+".(34|
00000FC0: 29 22 3A 4E 45 58 54 20 20 20 20 20 20 20 20 20 |)":NEXT |
00000FD0: 20 20 20 20 20 20 20 20 20 20 20 22 00 16 18 D2 | "....|
00000FE0: 9E 81 49 B2 31 A4 35 3A 99 22 20 20 20 20 20 20 |..I.1.5:." |
00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001010: 20 20 22 3B 3A 82 00 2D 18 D4 9E 8D 36 32 30 30 | ";:..-....6200|
00001020: 30 3A 8D 35 35 30 31 30 3A 99 22 1F 22 00 50 18 |0:.55010:.".".P.|
00001030: DE 9E 53 44 B2 31 34 3A 53 52 B2 30 39 3A 43 43 |..SD.14:SR.09:CC|
00001040: 24 B2 22 30 31 20 30 38 22 3A 8D 35 35 30 30 30 |$."01 08":.55000|
00001050: 00 82 18 E8 9E 99 53 44 24 22 45 4C 20 43 4F 4D |......SD$"EL COM|
00001060: 49 45 4E 5A 4F 20 44 45 20 42 41 53 49 43 20 4E |IENZO DE BASIC N|
00001070: 4F 20 43 41 4D 42 49 41 20 20 20 20 20 20 20 20 |O CAMBIA |
00001080: 20 22 00 94 18 F2 9E 8D 36 32 30 30 30 3A 8D 35 | "......62000:.5|
00001090: 35 30 31 30 00 B7 18 FC 9E 53 44 B2 31 34 3A 53 |5010.....SD.14:S|
000010A0: 52 B2 31 35 3A 43 43 24 B2 22 32 45 20 30 38 22 |R.15:CC$."2E 08"|
000010B0: 3A 8D 35 35 30 30 30 00 DB 18 06 9F 99 53 44 24 |:.55000......SD$|
000010C0: 22 45 4C 20 46 49 4E 20 44 45 20 42 41 53 49 43 |"EL FIN DE BASIC|
000010D0: 20 4E 4F 20 43 41 4D 42 49 41 22 00 0E 19 10 9F | NO CAMBIA".....|
000010E0: 99 22 28 45 53 20 54 41 4D 42 49 45 4E 20 45 4C |."(ES TAMBIEN EL|
000010F0: 20 43 4F 4D 49 45 4E 5A 4F 20 44 45 20 4C 41 53 | COMIENZO DE LAS|
00001100: 22 3A 99 22 56 41 52 49 41 42 4C 45 53 22 00 20 |":."VARIABLES". |
00001110: 19 1A 9F 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 |....62000:.55010|
00001120: 00 49 19 24 9F 53 44 B2 31 34 3A 53 52 B2 32 31 |.I.$.SD.14:SR.21|
00001130: 3A 43 43 24 B2 22 33 35 20 30 38 20 39 42 20 30 |:CC$."35 08 9B 0|
00001140: 38 22 3A 8D 35 35 30 30 30 00 75 19 2E 9F 99 53 |8":.55000.u....S|
00001150: 44 24 22 4C 41 20 4D 41 54 52 49 5A 20 41 28 49 |D$"LA MATRIZ A(I|
00001160: 29 20 45 53 54 41 20 41 4C 4D 41 43 45 4E 41 44 |) ESTA ALMACENAD|
00001170: 41 20 44 45 22 00 92 19 38 9F 99 22 24 30 38 33 |A DE"...8.."$083|
00001180: 35 20 48 41 43 49 41 20 27 41 52 52 49 42 41 27 |5 HACIA 'ARRIBA'|
00001190: 2E 22 00 9D 19 42 9F 8D 36 32 30 30 30 00 C7 19 |."...B..62000...|
000011A0: 43 9F 99 53 44 24 22 59 20 54 45 52 4D 49 4E 41 |C..SD$"Y TERMINA|
000011B0: 20 45 4E 20 24 30 38 37 32 2E 20 49 4E 46 4F 52 | EN $0872. INFOR|
000011C0: 4D 41 43 49 4F 4E 22 00 ED 19 44 9F 99 22 41 43 |MACION"...D.."AC|
000011D0: 45 52 43 41 20 44 45 4C 20 41 4C 4D 41 43 45 4E |ERCA DEL ALMACEN|
000011E0: 41 4A 45 20 44 45 20 41 24 28 49 29 22 00 09 1A |AJE DE A$(I)"...|
000011F0: 45 9F 99 22 45 53 54 41 20 45 4E 20 24 30 38 37 |E.."ESTA EN $087|
00001200: 33 2D 24 30 38 39 42 2E 22 00 1B 1A 46 9F 8D 36 |3-$089B."...F..6|
00001210: 32 30 30 30 3A 8D 35 35 30 31 30 00 3E 1A 4C 9F |2000:.55010.>.L.|
00001220: 53 44 B2 31 35 3A 53 52 B2 30 39 3A 43 43 24 B2 |SD.15:SR.09:CC$.|
00001230: 22 44 37 20 37 46 22 3A 8D 35 35 30 30 30 00 65 |"D7 7F":.55000.e|
00001240: 1A 56 9F 99 53 44 24 22 4C 41 20 4D 41 54 52 49 |.V..SD$"LA MATRI|
00001250: 5A 20 41 24 28 49 29 20 45 53 54 41 20 53 49 54 |Z A$(I) ESTA SIT|
00001260: 55 41 44 41 22 00 92 1A 60 9F 99 22 41 20 50 41 |UADA"...`.."A PA|
00001270: 52 54 49 52 20 44 45 20 24 38 30 30 30 20 28 45 |RTIR DE $8000 (E|
00001280: 4E 20 52 45 41 4C 49 44 41 44 20 24 37 46 46 46 |N REALIDAD $7FFF|
00001290: 29 22 00 B3 1A 65 9F 99 22 12 44 45 43 45 4E 44 |)"...e..".DECEND|
000012A0: 49 45 4E 44 4F 92 20 48 41 53 54 41 20 24 37 46 |IENDO. HASTA $7F|
000012B0: 44 37 22 00 BE 1A 6A 9F 8D 36 32 30 30 30 00 EF |D7"...j..62000..|
000012C0: 1A 74 9F 99 53 44 24 22 52 45 43 55 45 52 44 45 |.t..SD$"RECUERDE|
000012D0: 2E 2E 2E 4C 4F 53 20 45 4C 45 4D 45 4E 54 4F 53 |...LOS ELEMENTOS|
000012E0: 20 44 45 20 41 24 28 49 29 20 20 20 20 20 22 00 | DE A$(I) ".|
000012F0: 15 1B 7E 9F 99 22 45 53 54 41 4E 20 47 55 41 52 |..~.."ESTAN GUAR|
00001300: 44 41 44 4F 53 20 45 4D 20 24 30 38 37 33 2D 24 |DADOS EM $0873-$|
00001310: 30 38 39 42 22 00 20 1B 88 9F 8D 36 32 30 30 30 |089B". ....62000|
00001320: 00 43 1B 92 9F 99 53 44 24 22 59 20 4C 41 53 20 |.C....SD$"Y LAS |
00001330: 43 41 44 45 4E 41 53 20 20 3D 27 31 27 2D 27 31 |CADENAS ='1'-'1|
00001340: 30 27 22 00 6C 1B 9C 9F 99 22 45 53 54 41 4E 20 |0'".l...."ESTAN |
00001350: 41 4C 4D 41 43 45 4E 41 44 41 53 20 45 4E 20 24 |ALMACENADAS EN $|
00001360: 37 46 44 37 2D 24 37 46 46 46 2E 22 00 7E 1B A6 |7FD7-$7FFF.".~..|
00001370: 9F 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 00 A7 |..62000:.55010..|
00001380: 1B AB 9F 53 44 B2 31 34 3A 53 52 B2 31 35 3A 43 |...SD.14:SR.15:C|
00001390: 43 24 B2 22 32 45 20 30 38 20 33 35 20 30 38 22 |C$."2E 08 35 08"|
000013A0: 3A 8D 35 35 30 30 30 00 D3 1B B0 9F 99 53 44 24 |:.55000......SD$|
000013B0: 22 12 45 4E 54 4F 4E 43 45 53 92 2E 2E 2E 45 4C |".ENTONCES....EL|
000013C0: 20 56 41 4C 4F 52 20 44 45 20 27 49 27 20 45 53 | VALOR DE 'I' ES|
000013D0: 54 41 22 00 06 1C BA 9F 99 22 47 55 41 52 44 41 |TA"......"GUARDA|
000013E0: 44 4F 20 45 4E 20 37 20 42 59 54 45 53 20 44 45 |DO EN 7 BYTES DE|
000013F0: 20 24 30 38 32 45 22 3A 99 22 48 41 53 54 41 20 | $082E":."HASTA |
00001400: 24 30 38 33 34 22 00 11 1C C4 9F 8D 36 32 30 30 |$0834"......6200|
00001410: 30 00 36 1C CE 9F 99 53 44 24 22 32 20 42 59 54 |0.6....SD$"2 BYT|
00001420: 45 53 20 50 41 52 41 20 53 55 20 4E 4F 4D 42 52 |ES PARA SU NOMBR|
00001430: 45 3A 12 49 92 22 00 64 1C D8 9F 99 22 35 20 42 |E:.I.".d...."5 B|
00001440: 59 54 45 53 20 50 41 52 41 20 53 55 20 56 41 4C |YTES PARA SU VAL|
00001450: 4F 52 3D 31 2C 44 45 53 50 55 45 53 20 32 2C 45 |OR=1,DESPUES 2,E|
00001460: 54 43 2E 22 00 76 1C E2 9F 8D 36 32 30 30 30 3A |TC.".v....62000:|
00001470: 8D 35 35 30 31 30 00 9F 1C EC 9F 53 44 B2 31 34 |.55010.....SD.14|
00001480: 3A 53 52 B2 32 31 3A 43 43 24 B2 22 33 35 20 30 |:SR.21:CC$."35 0|
00001490: 38 20 39 42 20 30 38 22 3A 8D 35 35 30 30 30 00 |8 9B 08":.55000.|
000014A0: CA 1C F6 9F 99 53 44 24 22 4C 4F 53 20 56 41 4C |.....SD$"LOS VAL|
000014B0: 4F 52 45 53 20 44 45 20 41 28 49 29 20 45 53 54 |ORES DE A(I) EST|
000014C0: 41 4E 20 45 4E 20 4C 4F 53 22 00 F3 1C 00 A0 99 |AN EN LOS"......|
000014D0: 22 4C 55 47 41 52 45 53 20 24 30 38 33 35 2D 24 |"LUGARES $0835-$|
000014E0: 30 38 37 32 20 28 49 4E 43 4C 55 59 45 4E 44 4F |0872 (INCLUYENDO|
000014F0: 20 32 22 00 14 1D 0A A0 99 22 42 59 54 45 53 20 | 2"......"BYTES |
00001500: 50 41 52 41 20 53 55 20 4E 4F 4D 42 52 45 20 12 |PARA SU NOMBRE .|
00001510: 41 92 29 22 00 1F 1D 14 A0 8D 36 32 30 30 30 00 |A.)"......62000.|
00001520: 48 1D 1E A0 99 53 44 24 22 4C 41 20 55 4C 54 49 |H....SD$"LA ULTI|
00001530: 4D 41 20 50 41 52 54 45 20 44 45 20 45 53 54 41 |MA PARTE DE ESTA|
00001540: 20 53 45 52 49 45 3A 22 00 77 1D 28 A0 99 22 24 | SERIE:".w.(.."$|
00001550: 30 38 33 35 2D 24 30 38 39 42 20 45 53 20 50 41 |0835-$089B ES PA|
00001560: 52 41 20 53 55 50 45 52 56 49 53 41 52 20 20 20 |RA SUPERVISAR |
00001570: 20 20 20 20 20 20 22 00 A1 1D 32 A0 99 22 45 4C | "...2.."EL|
00001580: 20 41 4C 4D 41 43 45 4E 41 4A 45 20 44 45 20 43 | ALMACENAJE DE C|
00001590: 41 44 41 20 41 24 28 49 29 20 45 4E 20 52 41 4D |ADA A$(I) EN RAM|
000015A0: 22 00 B3 1D 3C A0 8D 36 32 30 30 30 3A 8D 35 35 |"...<..62000:.55|
000015B0: 30 31 30 00 E5 1D 46 A0 99 53 44 24 22 41 4C 20 |010...F..SD$"AL |
000015C0: 45 53 43 52 49 42 49 52 20 12 43 4C 52 92 20 44 |ESCRIBIR .CLR. D|
000015D0: 45 53 50 55 45 53 20 44 45 20 12 45 4A 45 43 55 |ESPUES DE .EJECU|
000015E0: 54 41 52 92 22 00 0C 1E 50 A0 99 22 45 4C 20 50 |TAR."...P.."EL P|
000015F0: 52 4F 47 52 41 4D 41 2E 20 4C 41 53 20 56 41 52 |ROGRAMA. LAS VAR|
00001600: 49 41 42 4C 45 53 2C 20 4C 41 53 22 00 37 1E 5A |IABLES, LAS".7.Z|
00001610: A0 99 22 43 41 44 45 4E 41 53 20 59 20 4C 41 53 |.."CADENAS Y LAS|
00001620: 20 4D 41 54 52 49 43 45 53 20 53 45 20 44 45 53 | MATRICES SE DES|
00001630: 43 41 52 47 41 4E 22 00 42 1E 64 A0 8D 36 32 30 |CARGAN".B.d..620|
00001640: 30 30 00 6C 1E 6E A0 99 53 44 24 22 59 20 4C 4F |00.l.n..SD$"Y LO|
00001650: 53 20 50 55 4E 54 45 52 4F 53 20 56 55 45 4C 56 |S PUNTEROS VUELV|
00001660: 45 4E 20 41 20 53 45 52 2E 2E 2E 22 00 77 1E 78 |EN A SER...".w.x|
00001670: A0 8D 36 32 30 30 30 00 AC 1E 82 A0 53 44 B2 31 |..62000.....SD.1|
00001680: 34 3A 53 52 B2 30 39 3A 43 43 24 B2 22 30 31 20 |4:SR.09:CC$."01 |
00001690: 30 38 20 32 45 20 30 38 20 32 45 20 30 38 20 32 |08 2E 08 2E 08 2|
000016A0: 45 20 30 38 22 3A 8D 35 35 30 31 30 00 E1 1E 8C |E 08":.55010....|
000016B0: A0 53 44 B2 31 35 3A 53 52 B2 30 39 3A 43 43 24 |.SD.15:SR.09:CC$|
000016C0: B2 22 30 30 20 38 30 20 44 41 20 37 46 20 30 30 |."00 80 DA 7F 00|
000016D0: 20 38 30 20 31 34 20 46 46 22 3A 8D 35 35 30 31 | 80 14 FF":.5501|
000016E0: 30 00 06 1F 96 A0 99 53 44 24 22 49 47 55 41 4C |0......SD$"IGUAL|
000016F0: 20 41 4C 20 46 49 4E 20 44 45 4C 20 50 52 4F 47 | AL FIN DEL PROG|
00001700: 52 41 4D 41 2E 22 00 25 1F A0 A0 99 22 44 45 53 |RAMA.".%...."DES|
00001710: 44 45 20 24 30 38 30 31 20 48 41 53 54 41 20 24 |DE $0801 HASTA $|
00001720: 30 38 32 45 22 00 35 1F AA A0 8D 36 32 30 30 30 |082E".5....62000|
00001730: 3A 99 22 1C 22 00 57 1F B4 A0 99 53 44 24 22 2E |:.".".W....SD$".|
00001740: 2E 59 20 41 44 49 56 49 4E 41 20 51 55 45 20 50 |.Y ADIVINA QUE P|
00001750: 41 53 41 20 53 49 22 00 74 1F BE A0 99 22 55 53 |ASA SI".t...."US|
00001760: 54 45 44 20 45 53 43 52 49 42 45 20 12 4E 45 57 |TED ESCRIBE .NEW|
00001770: 92 21 21 22 00 7F 1F C8 A0 8D 36 32 30 30 30 00 |.!!"......62000.|
00001780: B4 1F DC A0 53 44 B2 31 34 3A 53 52 B2 30 39 3A |....SD.14:SR.09:|
00001790: 43 43 24 B2 22 30 31 20 30 38 20 30 33 20 30 38 |CC$."01 08 03 08|
000017A0: 20 30 33 20 30 38 20 30 33 20 30 38 22 3A 8D 35 | 03 08 03 08":.5|
000017B0: 35 30 31 30 00 EC 1F E6 A0 53 44 B2 31 35 3A 53 |5010.....SD.15:S|
000017C0: 52 B2 30 39 3A 43 43 24 B2 22 30 30 20 38 30 20 |R.09:CC$."00 80 |
000017D0: 44 41 20 37 46 20 30 30 20 38 30 20 31 34 20 46 |DA 7F 00 80 14 F|
000017E0: 46 3A 47 4F 53 55 42 35 35 30 31 30 00 14 20 F0 |F:GOSUB55010.. .|
000017F0: A0 99 53 44 24 22 50 4F 4E 47 4F 20 30 30 20 30 |..SD$"PONGO 00 0|
00001800: 30 20 30 30 20 45 4E 20 24 30 38 30 30 2D 24 30 |0 00 EN $0800-$0|
00001810: 38 30 32 22 00 34 20 FA A0 99 22 59 20 45 53 4F |802".4 ..."Y ESO|
00001820: 20 45 53 20 54 4F 44 4F 20 4D 55 43 48 41 43 48 | ES TODO MUCHACH|
00001830: 4F 53 21 22 00 5E 20 04 A1 8D 36 32 30 30 30 3A |OS!".^ ...62000:|
00001840: 99 22 93 22 3A 4D 53 24 B2 22 20 20 45 53 20 54 |.".":MS$." ES T|
00001850: 4F 44 4F 20 22 3A 8D 36 33 31 30 30 3A 8E 00 7D |ODO ":.63100:..}|
00001860: 20 50 C3 51 51 B2 31 30 3A 41 4E 24 B2 22 11 52 | P.QQ.10:AN$.".R|
00001870: 45 53 50 55 45 53 54 41 20 3D 20 12 22 00 A4 20 |ESPUESTA = .".. |
00001880: 51 C3 41 24 28 31 29 B2 22 56 32 22 3A 8B C2 28 |Q.A$(1)."V2":..(|
00001890: 33 32 37 36 38 29 B2 39 20 A7 41 24 28 31 29 B2 |32768).9 .A$(1).|
000018A0: 22 56 34 22 00 B9 20 54 C3 81 49 B2 32 A4 51 51 |"V4".. T..I.2.QQ|
000018B0: 3A 87 41 24 28 49 29 3A 82 00 E1 20 55 C3 83 20 |:.A$(I):... U.. |
000018C0: 24 41 30 30 30 2C 24 30 34 30 30 2C 24 30 38 30 |$A000,$0400,$080|
000018D0: 31 2C 33 2C 4E 2C 53 2C 24 30 33 33 43 2C 53 2C |1,3,N,S,$033C,S,|
000018E0: 53 00 F6 20 38 C7 81 49 B2 31 A4 51 51 3A 87 51 |S.. 8..I.1.QQ:.Q|
000018F0: 24 28 49 29 3A 82 00 20 21 39 C7 83 20 22 93 12 |$(I):.. !9.. "..|
00001900: 51 55 45 20 54 49 50 4F 20 44 45 20 42 41 53 49 |QUE TIPO DE BASI|
00001910: 43 20 54 45 4E 47 4F 20 92 20 56 32 2F 56 34 22 |C TENGO . V2/V4"|
00001920: 00 48 21 3A C7 83 20 22 93 12 44 4F 4E 44 45 20 |.H!:.. "..DONDE |
00001930: 45 4D 50 49 45 5A 41 4E 20 4C 4F 53 20 52 4F 4D |EMPIEZAN LOS ROM|
00001940: 53 20 42 41 53 49 43 22 00 74 21 3B C7 83 20 22 |S BASIC".t!;.. "|
00001950: 93 12 44 4F 4E 44 45 20 45 4D 50 49 45 5A 41 20 |..DONDE EMPIEZA |
00001960: 4C 41 20 4D 45 4D 4F 52 49 41 20 50 41 4E 54 41 |LA MEMORIA PANTA|
00001970: 4C 4C 41 22 00 9F 21 3C C7 83 20 22 93 12 44 4F |LLA"..!<.. "..DO|
00001980: 4E 44 45 20 45 4D 50 49 45 5A 41 4E 20 4C 4F 53 |NDE EMPIEZAN LOS|
00001990: 20 50 52 4F 47 52 41 4D 53 20 42 41 53 49 43 00 | PROGRAMS BASIC.|
000019A0: E0 21 3D C7 83 20 22 93 12 45 4E 20 43 55 41 4E |.!=.. "..EN CUAN|
000019B0: 54 4F 53 20 42 59 54 45 53 20 43 45 52 4F 20 54 |TOS BYTES CERO T|
000019C0: 45 52 4D 49 4E 41 4E 20 4C 4F 53 20 20 20 20 20 |ERMINAN LOS |
000019D0: 20 50 52 4F 47 52 41 4D 53 20 42 41 53 49 43 22 | PROGRAMS BASIC"|
000019E0: 00 2C 22 3E C7 83 20 22 93 12 50 45 45 4B 28 31 |.,">.. "..PEEK(1|
000019F0: 30 32 35 29 2B 32 35 36 2A 50 45 45 4B 28 31 30 |025)+256*PEEK(10|
00001A00: 32 36 29 3D 4E 55 4D 45 52 4F 20 44 45 20 4C 41 |26)=NUMERO DE LA|
00001A10: 20 20 50 52 49 4D 45 52 41 20 49 4E 53 52 55 43 | PRIMERA INSRUC|
00001A20: 43 49 4F 4E 20 92 20 28 53 2F 4E 29 00 6B 22 3F |CION . (S/N).k"?|
00001A30: C7 83 20 22 93 12 4C 41 53 20 43 41 44 45 4E 41 |.. "..LAS CADENA|
00001A40: 53 20 45 53 54 41 4E 20 41 4C 4D 41 43 45 4E 41 |S ESTAN ALMACENA|
00001A50: 44 41 53 20 45 4E 20 4C 41 20 43 49 4D 41 44 45 |DAS EN LA CIMADE|
00001A60: 20 52 41 4D 92 28 53 2F 4E 29 22 00 9B 22 40 C7 | RAM.(S/N)".."@.|
00001A70: 83 20 22 93 12 44 4F 4E 44 45 20 45 4D 50 49 45 |. "..DONDE EMPIE|
00001A80: 5A 41 20 45 4C 20 42 55 46 46 45 52 20 44 45 20 |ZA EL BUFFER DE |
00001A90: 4C 41 20 43 41 53 45 54 54 41 22 00 D9 22 41 C7 |LA CASETTA".."A.|
00001AA0: 83 20 22 93 12 24 30 30 32 42 2F 24 30 30 32 43 |. "..$002B/$002C|
00001AB0: 3D 45 53 20 45 4C 20 50 55 4E 54 45 52 4F 20 41 |=ES EL PUNTERO A|
00001AC0: 4C 20 43 4F 4D 49 45 4E 5A 4F 20 44 45 42 41 53 |L COMIENZO DEBAS|
00001AD0: 49 43 92 28 53 2F 4E 29 22 00 15 23 42 C7 83 20 |IC.(S/N)"..#B.. |
00001AE0: 22 93 12 24 30 30 33 37 2F 24 30 30 33 38 3D 45 |"..$0037/$0038=E|
00001AF0: 53 20 45 4C 20 50 55 4E 54 45 52 4F 20 41 20 4C |S EL PUNTERO A L|
00001B00: 41 20 43 49 4D 41 20 44 45 20 20 52 41 4D 92 28 |A CIMA DE RAM.(|
00001B10: 53 2F 4E 29 22 00 2A 23 20 CB 81 51 B2 31 A4 51 |S/N)".*# ..Q.1.Q|
00001B20: 51 3A 87 4D 24 28 51 29 3A 82 00 51 23 21 CB 83 |Q:.M$(Q):..Q#!..|
00001B30: 20 53 49 20 50 45 45 4B 28 33 32 37 36 38 29 3D | SI PEEK(32768)=|
00001B40: 39 20 45 4E 54 4F 4E 43 45 53 20 45 53 20 56 34 |9 ENTONCES ES V4|
00001B50: 2E 00 70 23 22 CB 83 20 44 45 53 44 45 20 24 41 |..p#".. DESDE $A|
00001B60: 30 30 30 20 48 41 53 54 41 20 24 42 46 46 46 2E |000 HASTA $BFFF.|
00001B70: 00 A4 23 23 CB 83 20 48 41 53 54 41 20 24 30 37 |..##.. HASTA $07|
00001B80: 46 46 2E 2E 4A 55 53 54 4F 20 41 4E 54 45 53 20 |FF..JUSTO ANTES |
00001B90: 44 45 4C 20 43 4F 4D 49 45 4E 5A 4F 20 44 45 42 |DEL COMIENZO DEB|
00001BA0: 41 53 49 43 00 C0 23 24 CB 83 20 32 30 34 38 3D |ASIC..#$.. 2048=|
00001BB0: 24 30 38 30 30 20 54 49 45 4E 45 20 27 30 30 27 |$0800 TIENE '00'|
00001BC0: 00 DC 23 25 CB 83 20 4C 41 20 27 43 41 44 45 4E |..#%.. LA 'CADEN|
00001BD0: 41 27 20 45 53 20 30 30 20 30 30 2E 00 0A 24 26 |A' ES 00 00...$&|
00001BE0: CB 83 20 45 4C 20 4C 41 20 27 43 41 44 45 4E 41 |.. EL LA 'CADENA|
00001BF0: 27 20 41 20 4C 41 20 53 45 47 55 4E 44 41 20 49 |' A LA SEGUNDA I|
00001C00: 4E 53 54 52 55 43 43 49 4F 4E 00 44 24 27 CB 83 |NSTRUCCION.D$'..|
00001C10: 20 45 53 54 41 4E 20 41 4C 4D 41 43 45 4E 41 44 | ESTAN ALMACENAD|
00001C20: 4F 53 20 44 45 53 44 45 20 24 37 46 46 46 20 20 |OS DESDE $7FFF |
00001C30: 20 20 20 20 20 20 20 20 20 48 41 43 49 41 20 41 | HACIA A|
00001C40: 42 41 4A 4F 00 5D 24 28 CB 83 20 50 52 45 47 55 |BAJO.]$(.. PREGU|
00001C50: 4E 54 41 20 43 4F 43 48 49 4E 41 21 21 00 74 24 |NTA COCHINA!!.t$|
00001C60: 29 CB 83 20 34 33 2F 34 34 20 45 4E 20 44 45 43 |).. 43/44 EN DEC|
00001C70: 49 4D 41 4C 00 8B 24 2A CB 83 20 35 35 2F 35 36 |IMAL..$*.. 55/56|
00001C80: 20 45 4E 20 44 45 43 49 4D 41 4C 00 91 24 07 CF | EN DECIMAL..$..|
00001C90: 8E 00 B4 24 D8 D6 99 C8 28 53 44 24 2C 53 44 29 |...$....(SD$,SD)|
00001CA0: C8 28 53 52 24 2C 53 52 29 22 12 22 43 43 24 22 |.(SR$,SR)"."CC$"|
00001CB0: 92 22 3A 8E 00 D4 24 E2 D6 99 C8 28 53 44 24 2C |.":...$....(SD$,|
00001CC0: 53 44 29 C8 28 53 52 24 2C 53 52 29 43 43 24 22 |SD).(SR$,SR)CC$"|
00001CD0: 92 22 3A 8E 00 DA 24 60 EA 3A 00 FC 24 61 EA 42 |.":...$`.:..$a.B|
00001CE0: 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 3A 42 |T$.".":.I.1.24:B|
00001CF0: 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 46 25 62 |T$.BT$.".":..F%b|
00001D00: EA 50 54 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 |.PT$."..........|
00001D10: C0 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001D20: DD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D |................|
00001D30: 9D 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 |................|
00001D40: C0 C0 C0 B2 BD 22 00 8E 25 63 EA 50 54 24 B2 50 |....."..%c.PT$.P|
00001D50: 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |T$."............|
00001D60: 9D 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD |................|
00001D70: 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 |................|
00001D80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 CA |============."..|
00001D90: 25 64 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D |%d.PT$.PT$."....|
00001DA0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 |................|
00001DB0: A3 A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D |................|
00001DC0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 FD 25 65 EA 50 |........."..%e.P|
00001DD0: 54 24 B2 42 54 24 AA 22 91 91 91 91 91 91 1D 1D |T$.BT$."........|
00001DE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001DF0: 1D 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 00 2D 26 |........".PT$.-&|
00001E00: 67 EA 4D 4C 24 B2 22 13 11 11 11 11 11 11 11 11 |g.ML$.".........|
00001E10: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 40 26 |............".@&|
00001E30: 68 EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 |h.WD.40:CRT.1024|
00001E40: 00 63 26 69 EA 57 32 B2 57 44 AD 32 3A 57 33 B2 |.c&i.W2.WD.2:W3.|
00001E50: 57 44 AB 31 3A 57 31 24 B2 CA 28 C4 28 57 44 29 |WD.1:W1$..(.(WD)|
00001E60: 2C 32 29 00 80 26 6A EA 56 B2 35 33 32 34 38 3A |,2)..&j.V.53248:|
00001E70: 81 49 B2 30 A4 31 36 3A 97 56 AA 49 2C 30 3A 82 |.I.0.16:.V.I,0:.|
00001E80: 00 A7 26 6B EA 97 56 AA 32 33 2C 30 3A 97 56 AA |..&k..V.23,0:.V.|
00001E90: 32 39 2C 30 3A 81 49 B2 30 A4 37 3A 97 56 AA 33 |29,0:.I.0.7:.V.3|
00001EA0: 39 AA 49 2C 30 3A 82 00 AD 26 74 EA 8E 00 BF 26 |9.I,0:...&t....&|
00001EB0: 30 F2 8D 36 33 30 30 30 3A 8D 36 33 36 30 30 00 |0..63000:.63600.|
00001EC0: D5 26 31 F2 99 53 44 24 43 4C 24 3A 99 43 4C 24 |.&1..SD$CL$:.CL$|
00001ED0: 3A 99 43 4C 24 00 DB 26 33 F2 8E 00 23 27 18 F6 |:.CL$..&3...#'..|
00001EE0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001EF0: 11 11 11 11 11 11 11 11 11 11 11 50 52 45 53 49 |...........PRESI|
00001F00: 4F 4E 45 20 53 4F 42 52 45 20 12 52 45 54 55 52 |ONE SOBRE .RETUR|
00001F10: 4E 92 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 |N. PARA CONTINUA|
00001F20: 52 22 3B 00 39 27 19 F6 A1 41 24 3A 8B 41 24 B3 |R";.9'...A$:.A$.|
00001F30: B1 22 22 A7 36 33 30 30 31 00 4E 27 1A F6 A1 41 |."".63001.N'...A|
00001F40: 24 3A 8B 41 24 B2 22 22 A7 36 33 30 30 32 00 54 |$:.A$."".63002.T|
00001F50: 27 1B F6 8E 00 6F 27 7C F6 8D 36 33 36 30 30 3A |'....o'|..63600:|
00001F60: 81 54 B2 31 A4 35 3A 99 50 54 24 4D 53 24 3B 00 |.T.1.5:.PT$MS$;.|
00001F70: 85 27 7D F6 99 50 54 24 22 20 20 20 20 20 20 20 |.'}..PT$" |
00001F80: 20 20 20 22 3B 00 94 27 7E F6 99 50 54 24 4D 53 | ";..'~..PT$MS|
00001F90: 24 3B 3A 82 00 9A 27 7F F6 8E 00 D1 27 70 F8 97 |$;:...'.....'p..|
00001FA0: 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 38 2C |54296,15:.54278,|
00001FB0: 32 34 30 3A 97 35 34 32 37 36 2C 31 37 3A 97 35 |240:.54276,17:.5|
00001FC0: 34 32 37 33 2C 31 30 30 AA 31 30 30 AC BB 28 30 |4273,100.100..(0|
00001FD0: 29 00 F5 27 72 F8 81 49 58 B2 31 A4 31 30 30 3A |)..'r..IX.1.100:|
00001FE0: 82 3A 97 35 34 32 37 33 2C 30 3A 97 35 34 32 39 |.:.54273,0:.5429|
00001FF0: 36 2C 30 3A 8E 00 23 28 D4 F8 97 35 34 32 39 36 |6,0:..#(...54296|
00002000: 2C 31 35 3A 97 35 34 32 37 38 2C 32 34 30 3A 97 |,15:.54278,240:.|
00002010: 35 34 32 37 36 2C 31 37 3A 97 35 34 32 37 33 2C |54276,17:.54273,|
00002020: 31 34 31 00 38 28 D5 F8 A1 58 24 3A 8B 58 24 B2 |141.8(...X$:.X$.|
00002030: 22 22 A7 36 33 37 30 31 00 73 28 D6 F8 97 35 34 |"".63701.s(...54|
00002040: 32 37 33 2C 30 3A 99 22 93 53 41 56 45 22 C7 28 |273,0:.".SAVE".(|
00002050: 33 34 29 22 43 2E 4D 41 51 55 49 4E 41 20 32 22 |34)"C.MAQUINA 2"|
00002060: C7 28 33 34 29 22 3A 47 4F 54 4F 36 33 37 30 30 |.(34)":GOTO63700|
00002070: 22 3A 80 00 C0 28 9C F9 53 44 24 B2 22 13 11 11 |":...(..SD$."...|
00002080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002090: 22 3A 43 4C 24 B2 22 92 20 20 20 20 20 20 20 20 |":CL$.". |
000020A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 | ."|
000020C0: 00 F3 28 9D F9 53 52 24 B2 22 1D 1D 1D 1D 1D 1D |..(..SR$."......|
000020D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000020E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000020F0: 1D 1D 22 00 F9 28 9E F9 8E 00 00 00 |.."..(...... |
..#...."......(C)HORA SOFTWARE 1983.0...
.".......H.... SAVE"ML2.ES.J1",8.D.2..53
281,15:.53280,6:.".".L.D.."....E..".....
..................................."...F
..". .. EN EL INTERIOR DEL C-64
.. .":MS$."BIENVENIDO"...G..".........
................................".*....6
0000:.63100:.63000.;....40360:.5000.K. .
.".Y AHORA".R....". ************
*********"......" * UNA INTERROG
ACION *"......" ****************
*****"......I.1.500:.:MS$."LA PRUEBA!.":
.63100.%...."........YO LES VOY A PREGUN
TAR ALGUNAS":MS$."MUY BIEN!".F...."PREG
UNTAS SOBRE MI MISMO.".S....".SI LA PREG
UNTA ES RELACIONADA CON UN"......"LUGAR
DE LA MEMORIA O UNA DIRECCION.K.H.."..RE
SPONDA CON 4 CIFRAS EN HEXADECIMAL"...R.
."QUE COMIENCEN CON $ (COMO $1234)".#...
."....A MENOS QUE SE INDIQUE DE OTRO MOD
O.".5....50000:.63000.N....N.1.QQ:."....
"Q$(N).C....A$:.A$.."".4085......"...
V...";A$:."...."......A$.A$(N)..63100:."
..............":.4120......AN$A$(N).R...
."."M$(N):.63000:...."..".QUIERE USTED R
EPETIR LA PRUEBA?"...,..".. S...";A$.%
.6..A$."S"..".":.4080.0.@..39999.C....".
.. OTRO EJEMPLO
". ....".EJECUTAREMOS EL SIGUIENTE PRO
GRAMA:":QT$.G(34):.63900......".. 10 AB$
=STR$(7)"......"..VEAMOS AHORA DONDE EST
A GUARDADA"......"LA CADENA '7'".&....".
ENTREMOS AL MLM CON .SYS2048. Y LUEGO".R
...."...M 0800-0830. PARA VER EL PROGRAM
A".}...."...M 7FF8-7FFF. PARA VER LA CAD
ENA."...D..63000:.".";...Q.."..: 0800 0
0 0E 08 0A 00 41 42 24...R..".: 0808 B2
C4 28 37 29 00 00 00...S..".: 0810 41
C2 02 FC 7F 00 00 AA.+.T..".: 0818 AA A
A AA AA AA AA AA AA.V.U.."...: 7FF8 AA
AA AA AA 20 37 12 04.".{.T.SD.3:SR.24:CC
$."00 00 00":.55000......SD$"ESTOS SON L
OS 3 BYTES '00'-QUE"......"TERMINAN EL P
ROGRAMA".R....62000:.55010.....SD.4:SR.9
:CC$."41 C2":.55000......SD$".41.='A' EN
ASCII".5....".42.='B'..PERO $80 ES AGRE
GADO".G...."PARA INDICAR UNA .CADENA., R
ESULTANDO .C2.".Y.$..62000:.55010.....SD
.4:SR.15:CC$."02":.55000.J.8..SD$"LA CAD
ENA AB$ TIENE .02. BYTES DE LARGO"...B..
62000:.55010...L.SD.4:SR.18:CC$."FC 7F":
.55000./.V..SD$"Y ESTA ALMACENADA EN $.7
FFC.. ".A.`..62000:.55010.C.J.SD
.8:SR.21:CC$."20 37":.55000...T..SD$"AQU
I, EN $7FFC, ESTA AB$."...~..".AB$ ES:.2
0.='ESPACIO'+.37.='7'"......62000:.55010
.....SD.8:SR.27:CC$."12 08":.55000......
SD$"Y DONDE INDICA QUE ES DE".!...."2 BY
TES DE LONGITUD?".D...."..EN LA DIRECCIO
N: $.0812.!".C...SD.4:SR.15:CC$."02":.55
000.~.D..55010:.A$:.A$."".6330...N..".SI
N EMBARGO, SI SU PROGRAMA FUERA".B.X..".
10 AB$="QT$"7"QT$......".A DONDE CREE U
STED MOSTRARA"......".EL PUNTERO?".&....
"..NO. A $7FFC, SINO AL LUGAR UBICADO".I
....".EN EL PROGRAMA BASIC DONDE".C...."
.SE ENCUENTRA '7'.".N....62000......SD$"
Y ESE LUGAR ES $.080A."......"..QUE TIEN
E SOLO 1 BYTE DE LONGITUD!".X...SD.3:SR.
9:CC$."7":.55000...(..55010:.A$:.A$."".6
430...2.....?..".":MS$.". ADIOS! .":.6
3100:.I.1.5:.63600:.:..G....62000:.63900
:.55010......"... VAMOS A ESCRIBIR
OTRO EJEMPLO ":.I.1.500:......."..10
FORI=1TO10:A(I)=I*I:A$(I)=STR$(I)".....
.".20 PRINT"G(34)"+"G(34)":NEXT
"...F..".Y, ANTES............
DE EJECUTARLO".>.P..".ENTREMOS AL MLM C
ON .SYS2048.:".J.Z.."...B*.I...." PC
SR AC XR YR SP"......".; 0801 32 04 5
E 00 F8"......".M 002B 0033".D....".: 0
02B 01 08 2E 08 2E 08 2E 08"......".: 0
033 00 80 DA 7F 00 80 14 FF"......".X.".
.. .SD.14:SR.09:CC$."01 08":.55000.>.*..
SD$"EL PROGRAMA BASIC COMIENZA.].4.."EN
$0801..POR SUPUESTO!".O.>..62000:.55010.
..H.SD.14:SR.15:CC$."2E 08":.55000...R..
SD$"EL PROGRAMA BASIC TERMINA"...\.."EN
$082E..DESPUES DE 3 BYTES '00'."...F..62
000:.55010...P.SD.14:SR.21:CC$."2E 08 2E
08":.55000.A.Z..SD$"TODAVIA NO HAN SIDO
CREADAS".F...."VARIABLES, MATRICES O CA
DENAS".X....62000:.55010.....SD.15:SR.09
:CC$."00 80 DA 7F 00 80 14 FF":.55000.R.
...SD$"NO HA PASADO NADA ESPECIAL"......
62000:.55010.&....SD$"..AHORA . EJECUTAR
EMOS .............................";.D
.J.." EL PROGRAMA":."VEA...".V.O..".
."..
.P..".10 FORI=1TO10:A(I)=I*I:A$(I)=STR$(
I)"...Q..".20 PRINT"G(34)"+"G(34)":NEXT
"...R..I.1.5:."
";:..-
.T..62000:.55010:.".".P...SD.14:SR.09:CC
$."01 08":.55000......SD$"EL COMIENZO DE
BASIC NO CAMBIA "......62000:.5
5010.....SD.14:SR.15:CC$."2E 08":.55000.
.....SD$"EL FIN DE BASIC NO CAMBIA".....
."(ES TAMBIEN EL COMIENZO DE LAS":."VARI
ABLES". ....62000:.55010.I.$.SD.14:SR.21
:CC$."35 08 9B 08":.55000.U....SD$"LA MA
TRIZ A(I) ESTA ALMACENADA DE"...8.."$083
5 HACIA 'ARRIBA'."...B..62000.G.C..SD$"Y
TERMINA EN $0872. INFORMACION"...D.."AC
ERCA DEL ALMACENAJE DE A$(I)"...E.."ESTA
EN $0873-$089B."...F..62000:.55010.>.L.
SD.15:SR.09:CC$."D7 7F":.55000.E.V..SD$"
LA MATRIZ A$(I) ESTA SITUADA"...`.."A PA
RTIR DE $8000 (EN REALIDAD $7FFF)"...E..
".DECENDIENDO. HASTA $7FD7"...J..62000..
.T..SD$"RECUERDE...LOS ELEMENTOS DE A$(I
) "...~.."ESTAN GUARDADOS EM $0873-$
089B". ....62000.C....SD$"Y LAS CADENAS
='1'-'10'".L...."ESTAN ALMACENADAS EN $
7FD7-$7FFF.".~....62000:.55010.....SD.14
:SR.15:CC$."2E 08 35 08":.55000.S....SD$
".ENTONCES....EL VALOR DE 'I' ESTA".....
."GUARDADO EN 7 BYTES DE $082E":."HASTA
$0834"...D..62000.6.N..SD$"2 BYTES PARA
SU NOMBRE:.I.".D.X.."5 BYTES PARA SU VAL
OR=1,DESPUES 2,ETC.".V....62000:.55010..
...SD.14:SR.21:CC$."35 08 9B 08":.55000.
J....SD$"LOS VALORES DE A(I) ESTAN EN LO
S".... ."LUGARES $0835-$0872 (INCLUYENDO
2".... ."BYTES PARA SU NOMBRE .A.)"....
.62000.H.. .SD$"LA ULTIMA PARTE DE ESTA
SERIE:".W.( ."$0835-$089B ES PARA SUPER
VISAR "...2 ."EL ALMACENAJE DE C
ADA A$(I) EN RAM"...< .62000:.55010...F
.SD$"AL ESCRIBIR .CLR. DESPUES DE .EJECU
TAR."...P ."EL PROGRAMA. LAS VARIABLES,
LAS".7.Z ."CADENAS Y LAS MATRICES SE DES
CARGAN".B.D .62000.L.N .SD$"Y LOS PUNTER
OS VUELVEN A SER...".W.X .62000.... SD.1
4:SR.09:CC$."01 08 2E 08 2E 08 2E 08":.5
5010.... SD.15:SR.09:CC$."00 80 DA 7F 00
80 14 FF":.55010.... .SD$"IGUAL AL FIN
DEL PROGRAMA.".%. ."DESDE $0801 HASTA $
082E".5.. .62000:.".".W.. .SD$"..Y ADIVI
NA QUE PASA SI".T.. ."USTED ESCRIBE .NEW
.!!"..H .62000.... SD.14:SR.09:CC$."01
08 03 08 03 08 03 08":.55010.... SD.15:S
R.09:CC$."00 80 DA 7F 00 80 14 FF:GOSUB5
5010.. . .SD$"PONGO 00 00 00 EN $0800-$0
802".4 . ."Y ESO ES TODO MUCHACHOS!".^ .
..62000:.".":MS$." ES TODO ":.63100:..}
PCQQ.10:AN$.".RESPUESTA = .".. QCA$(1).
"V2":.B(32768).9 .A$(1)."V4".. TC.I.2.QQ
:.A$(I):... UC. $A000,$0400,$0801,3,N,S,
$033C,S,S.. 8G.I.1.QQ:.Q$(I):.. !9G. "..
QUE TIPO DE BASIC TENGO . V2/V4".H!:G. "
..DONDE EMPIEZAN LOS ROMS BASIC".T!;G. "
..DONDE EMPIEZA LA MEMORIA PANTALLA"..!<
G. "..DONDE EMPIEZAN LOS PROGRAMS BASIC.
.!=G. "..EN CUANTOS BYTES CERO TERMINAN
LOS PROGRAMS BASIC".,">G. "..PEEK(1
025)+256*PEEK(1026)=NUMERO DE LA PRIMER
A INSRUCCION . (S/N).K"?G. "..LAS CADENA
S ESTAN ALMACENADAS EN LA CIMADE RAM.(S/
N)".."@G. "..DONDE EMPIEZA EL BUFFER DE
LA CASETTA".Y"AG. "..$002B/$002C=ES EL P
UNTERO AL COMIENZO DEBASIC.(S/N)"..#BG.
"..$0037/$0038=ES EL PUNTERO A LA CIMA D
E RAM.(S/N)".*# K.Q.1.QQ:.M$(Q):..Q#!K.
SI PEEK(32768)=9 ENTONCES ES V4..P#"K.
DESDE $A000 HASTA $BFFF...##K. HASTA $07
FF..JUSTO ANTES DEL COMIENZO DEBASIC..#$
K. 2048=$0800 TIENE '00'..#%K. LA 'CADEN
A' ES 00 00...$&K. EL LA 'CADENA' A LA S
EGUNDA INSTRUCCION.D$'K. ESTAN ALMACENAD
OS DESDE $7FFF HACIA ABAJO.]$(
K. PREGUNTA COCHINA!!.T$)K. 43/44 EN DEC
IMAL..$*K. 55/56 EN DECIMAL..$.O...$XV.H
(SD$,SD)H(SR$,SR)"."CC$".":..T$.V.H(SD$,
SD)H(SR$,SR)CC$".":..Z$`.:..$A.BT$.".":.
I.1.24:BT$.BT$.".":..F%B.PT$."..........
........................................
............."..%C.PT$.PT$."............
..N............M................========
====.".J%D.PT$.PT$."...............PO...
.......PO................"..%E.PT$.BT$."
................................".PT$.-&
G.ML$.".................................
....".@&H.WD.40:CRT.1024.C&I.W2.WD.2:W3.
WD.1:W1$.J(D(WD),2)..&J.V.53248:.I.0.16:
.V.I,0:...&K..V.23,0:.V.29,0:.I.0.7:.V.3
9.I,0:...&T....&0..63000:.63600.U&1..SD$
CL$:.CL$:.CL$..&3...#'..."..............
...........PRESIONE SOBRE .RETURN. PARA
CONTINUAR";.9'...A$:.A$.."".63001.N'...A
$:.A$."".63002.T'....O'|..63600:.T.1.5:.
PT$MS$;..'}..PT$" ";..'~..PT$MS
$;:...'...Q'P..54296,15:.54278,240:.542
76,17:.54273,100.100..(0)..'R..IX.1.100:
.:.54273,0:.54296,0:..#(T..54296,15:.542
78,240:.54276,17:.54273,141.8(U..X$:.X$.
"".63701.S(V..54273,0:.".SAVE"G(34)"C.MA
QUINA 2"G(34)":GOTO63700":...(..SD$."...
................":CL$.".
."..(..SR$."......
.................................."..(..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL