BASICO III
FILE INFORMATION
FILENAME(S): BASICO III
FILE TYPE(S): PRG
FILE SIZE: 15K
FIRST SEEN: 2025-10-19 23:07:10
APPEARS ON: 1 disk(s)
FILE HASH
c74e24426e240801898372a07726e9c95e118dcd575d1c951f32c0ac4e8049fb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A04A | BASICO III | PRG | Bugjam - Argentina | 19 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 8A 30 30 31 30 30 00 19 08 01 |.......00100....|
00000010: 00 8F 22 14 14 14 14 14 14 00 34 08 02 00 8F 22 |..".......4...."|
00000020: 14 14 14 14 14 14 53 4F 46 54 20 4C 41 4B 45 20 |......SOFT LAKE |
00000030: 31 39 38 35 00 41 08 03 00 8F 22 14 14 14 14 14 |1985.A....".....|
00000040: 14 00 5D 08 05 00 8F 20 53 41 56 45 22 42 41 53 |..].... SAVE"BAS|
00000050: 49 43 2E 33 20 45 53 2E 4A 32 22 2C 38 00 7E 08 |IC.3 ES.J2",8.~.|
00000060: 64 00 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 |d..53281,15:.532|
00000070: 38 30 2C 31 32 3A 99 22 90 22 3A 99 22 93 00 AE |80,12:.".":."...|
00000080: 08 65 00 99 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.e.."...........|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 F2 |............."..|
000000B0: 08 66 00 99 22 DD 20 12 1F 20 20 20 20 20 20 20 |.f..". .. |
000000C0: 20 41 4C 4C 20 42 4C 41 43 4B 20 53 4F 46 54 57 | ALL BLACK SOFTW|
000000D0: 41 52 45 20 20 20 20 20 20 20 20 20 1C 92 20 DD |ARE .. .|
000000E0: 22 3A 4D 53 24 B2 22 42 41 53 49 43 20 49 49 49 |":MS$."BASIC III|
000000F0: 20 22 00 23 09 67 00 99 22 1C AD C0 C0 C0 C0 C0 | ".#.g..".......|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000120: BD 90 22 00 40 09 68 00 53 4E 24 B2 22 31 30 30 |..".@.h.SN$."100|
00000130: 30 22 3A 8D 36 33 32 30 30 3A 8D 36 33 36 30 30 |0":.63200:.63600|
00000140: 00 59 09 69 00 8D 36 30 30 30 30 3A 8D 36 33 31 |.Y.i..60000:.631|
00000150: 30 30 3A 8D 35 39 30 30 30 00 5F 09 E8 03 3A 00 |00:.59000._...:.|
00000160: 92 09 ED 03 99 22 93 12 1C 20 20 20 20 20 20 20 |....."... |
00000170: 20 4D 41 4E 49 50 55 4C 41 43 49 4F 4E 20 44 45 | MANIPULACION DE|
00000180: 20 43 41 44 45 4E 41 53 20 20 20 20 20 20 20 20 | CADENAS |
00000190: 20 22 00 C2 09 10 04 99 22 1F 12 52 45 43 4F 52 | "......"..RECOR|
000001A0: 44 45 4D 4F 53 92 3A 54 4F 44 41 53 20 4C 41 53 |DEMOS.:TODAS LAS|
000001B0: 20 56 41 52 49 41 42 4C 45 53 20 43 4F 4E 20 55 | VARIABLES CON U|
000001C0: 4E 22 00 F0 09 1A 04 99 22 4E 4F 4D 42 52 45 20 |N"......"NOMBRE |
000001D0: 51 55 45 20 54 45 52 4D 49 4E 41 20 43 4F 4E 20 |QUE TERMINA CON |
000001E0: 24 20 53 45 20 49 4E 54 45 52 50 52 45 54 41 22 |$ SE INTERPRETA"|
000001F0: 00 1E 0A 24 04 99 22 43 4F 4D 4F 20 55 4E 41 20 |...$.."COMO UNA |
00000200: 43 41 44 45 4E 41 20 44 45 20 53 49 4D 42 4F 4C |CADENA DE SIMBOL|
00000210: 4F 53 2C 20 59 20 4E 4F 20 43 4F 4D 4F 22 00 41 |OS, Y NO COMO".A|
00000220: 0A 2E 04 99 22 55 4E 20 56 41 4C 4F 52 20 4F 20 |...."UN VALOR O |
00000230: 55 4E 41 20 49 4E 53 54 52 55 43 43 49 4F 4E 2E |UNA INSTRUCCION.|
00000240: 22 00 65 0A 42 04 99 22 11 12 41 24 3D 22 C7 28 |".e.B.."..A$=".(|
00000250: 33 34 29 22 31 32 33 2A 34 35 36 2F 37 38 39 22 |34)"123*456/789"|
00000260: C7 28 33 34 29 00 98 0A 4C 04 99 22 11 90 53 49 |.(34)...L.."..SI|
00000270: 47 4E 49 46 49 43 41 3A 1F 20 41 24 20 45 53 20 |GNIFICA:. A$ ES |
00000280: 55 4E 20 43 4F 4E 4A 55 4E 54 4F 20 44 45 20 53 |UN CONJUNTO DE S|
00000290: 49 4D 42 4F 4C 4F 53 22 00 C5 0A 60 04 99 22 28 |IMBOLOS"...`.."(|
000002A0: 50 4F 52 20 53 55 50 55 45 53 54 4F 20 59 4F 20 |POR SUPUESTO YO |
000002B0: 4E 4F 20 56 4F 59 20 41 20 45 56 41 4C 55 41 52 |NO VOY A EVALUAR|
000002C0: 20 41 24 29 2E 00 F7 0A 6F 04 99 22 11 12 20 20 | A$)....o..".. |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 20 20 22 00 1A 0B 74 04 99 22 11 41 | "...t..".A|
00000300: 51 55 49 20 48 41 59 20 55 4E 20 4C 49 4E 44 4F |QUI HAY UN LINDO|
00000310: 20 43 4F 4E 4A 55 4E 54 4F 22 00 3A 0B 7E 04 99 | CONJUNTO".:.~..|
00000320: 22 11 A5 20 B4 20 B5 20 A1 20 12 B6 92 20 12 B6 |".. . . . ... ..|
00000330: 92 20 12 AA 92 20 12 20 92 22 00 40 0B 83 04 99 |. ... . .".@....|
00000340: 00 6E 0B 88 04 99 22 4C 45 53 20 4C 4C 41 4D 41 |.n...."LES LLAMA|
00000350: 52 45 4D 4F 53 20 41 53 49 3A 20 53 24 28 31 29 |REMOS ASI: S$(1)|
00000360: 2C 53 24 28 32 29 2C 2E 2C 53 24 28 38 29 00 79 |,S$(2),.,S$(8).y|
00000370: 0B 92 04 8D 36 33 30 30 30 00 AC 0B A6 04 99 22 |....63000......"|
00000380: 93 1C 12 20 20 20 20 20 20 20 20 20 4E 4F 53 4F |... NOSO|
00000390: 54 52 4F 53 20 45 53 43 52 49 42 49 52 45 4D 4F |TROS ESCRIBIREMO|
000003A0: 53 3A 20 20 20 20 20 20 20 20 20 22 00 C5 0B B0 |S: "....|
000003B0: 04 99 22 1F 31 30 20 53 24 28 31 29 3D 22 C7 28 |..".10 S$(1)=".(|
000003C0: 33 34 29 22 A5 00 DD 0B BA 04 99 22 32 30 20 53 |34)"......."20 S|
000003D0: 24 28 32 29 3D 22 C7 28 33 34 29 22 B4 00 F5 0B |$(2)=".(34)"....|
000003E0: C4 04 99 22 33 30 20 53 24 28 33 29 3D 22 C7 28 |..."30 S$(3)=".(|
000003F0: 33 34 29 22 B5 00 0D 0C CE 04 99 22 34 30 20 53 |34)"......."40 S|
00000400: 24 28 34 29 3D 22 C7 28 33 34 29 22 A1 00 27 0C |$(4)=".(34)"..'.|
00000410: D3 04 99 22 35 30 20 53 24 28 35 29 3D 22 C7 28 |..."50 S$(5)=".(|
00000420: 33 34 29 22 12 B6 92 00 41 0C D8 04 99 22 36 30 |34)"....A...."60|
00000430: 20 53 24 28 36 29 3D 22 C7 28 33 34 29 22 12 AA | S$(6)=".(34)"..|
00000440: 92 00 5B 0C E2 04 99 22 37 30 20 53 24 28 37 29 |..[...."70 S$(7)|
00000450: 3D 22 C7 28 33 34 29 22 12 A7 92 00 75 0C EC 04 |=".(34)"....u...|
00000460: 99 22 38 30 20 53 24 28 38 29 3D 22 C7 28 33 34 |."80 S$(8)=".(34|
00000470: 29 22 12 20 92 00 9B 0C ED 04 99 22 20 20 20 20 |)". ......." |
00000480: 20 20 20 20 20 20 20 20 5E 45 53 54 45 20 45 53 | ^ESTE ES|
00000490: 20 55 4E 20 52 56 53 2D 4F 46 46 00 A7 0C F6 04 | UN RVS-OFF.....|
000004A0: 99 22 52 41 52 4F 3F 00 D1 0C 00 05 99 22 4C 4F |."RARO?......"LO|
000004B0: 53 20 50 52 49 4D 45 52 4F 53 20 34 20 45 53 54 |S PRIMEROS 4 EST|
000004C0: 41 4E 20 45 4E 20 45 4C 20 54 45 43 4C 41 44 4F |AN EN EL TECLADO|
000004D0: 22 00 FA 0C 0A 05 99 22 4C 4F 53 20 55 4C 54 49 |"......"LOS ULTI|
000004E0: 4D 4F 53 20 34 20 53 45 20 4F 42 54 49 45 4E 45 |MOS 4 SE OBTIENE|
000004F0: 4E 20 43 4F 4E 20 12 52 56 53 00 23 0D 14 05 99 |N CON .RVS.#....|
00000500: 22 4C 4F 53 20 43 41 52 41 43 54 45 52 45 53 C0 |"LOS CARACTERES.|
00000510: C0 C0 C0 C0 3E 20 20 B6 2C AA 2C A7 2C 20 59 20 |....> .,.,., Y |
00000520: 20 20 22 00 30 0D 1E 05 99 A6 33 32 29 22 5E 22 | ".0.....32)"^"|
00000530: 00 46 0D 28 05 99 A6 32 39 29 22 12 45 53 54 45 |.F.(...29)".ESTE|
00000540: 20 45 53 20 55 4E 00 5D 0D 32 05 99 A6 32 39 29 | ES UN.].2...29)|
00000550: 22 12 45 53 50 41 43 49 4F 20 20 20 22 00 7B 0D |".ESPACIO ".{.|
00000560: 3C 05 99 22 91 91 56 45 41 20 51 55 45 20 48 45 |<.."..VEA QUE HE|
00000570: 4D 4F 53 20 43 45 52 52 41 44 4F 00 98 0D 46 05 |MOS CERRADO...F.|
00000580: 99 22 45 4C 20 52 56 53 20 43 4F 4E 20 45 4C 20 |."EL RVS CON EL |
00000590: 52 56 53 20 4F 46 46 21 00 B5 0D 50 05 99 22 20 |RVS OFF!...P.." |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 1C 20 A3 A3 A3 | . ...|
000005B0: A3 A3 A3 A3 A3 00 F6 0D 5A 05 99 22 54 41 4D 50 |........Z.."TAMP|
000005C0: 4F 43 4F 20 4E 4F 20 54 45 4E 45 4D 4F 53 20 4E |OCO NO TENEMOS N|
000005D0: 45 43 45 53 49 44 41 44 20 44 45 20 4C 41 53 22 |ECESIDAD DE LAS"|
000005E0: 3A 99 22 55 4C 54 49 4D 41 53 20 43 4F 4D 49 4C |:."ULTIMAS COMIL|
000005F0: 4C 41 53 2E 22 3B 00 28 0E 64 05 99 22 20 59 4F |LAS.";.(.d.." YO|
00000600: 20 43 4F 4D 50 52 45 4E 44 45 52 45 22 3A 99 22 | COMPRENDERE":."|
00000610: 51 55 45 20 22 C7 28 33 34 29 22 52 45 54 55 52 |QUE ".(34)"RETUR|
00000620: 4E 22 C7 28 33 34 29 3B 00 47 0E 6E 05 99 22 20 |N".(34);.G.n.." |
00000630: 54 45 52 4D 49 4E 41 20 4C 41 20 49 4E 53 54 52 |TERMINA LA INSTR|
00000640: 55 43 43 49 4F 4E 2E 00 54 0E 78 05 99 3A 8D 36 |UCCION..T.x..:.6|
00000650: 33 30 30 30 00 87 0E 8C 05 99 22 93 1C 12 20 20 |3000......"... |
00000660: 45 4E 54 52 45 20 41 48 4F 52 41 20 4C 41 53 20 |ENTRE AHORA LAS |
00000670: 49 4E 53 54 52 55 43 43 49 4F 4E 45 53 20 23 31 |INSTRUCCIONES #1|
00000680: 30 2D 38 30 20 20 1F 00 B3 0E 96 05 99 22 55 53 |0-80 ......."US|
00000690: 54 45 44 20 50 55 45 44 45 20 44 45 53 50 4C 41 |TED PUEDE DESPLA|
000006A0: 5A 41 52 20 45 4C 20 43 55 52 53 4F 52 20 48 41 |ZAR EL CURSOR HA|
000006B0: 43 49 41 00 E0 0E A0 05 99 22 45 4C 20 23 20 31 |CIA......"EL # 1|
000006C0: 30 2C 20 50 52 45 53 49 4F 4E 41 52 20 52 45 54 |0, PRESIONAR RET|
000006D0: 55 52 4E 20 38 20 56 45 43 45 53 20 59 20 59 4F |URN 8 VECES Y YO|
000006E0: 00 09 0F AA 05 99 22 50 45 4E 53 41 52 45 20 51 |......"PENSARE Q|
000006F0: 55 45 20 55 53 54 45 44 20 4C 41 53 20 48 41 20 |UE USTED LAS HA |
00000700: 45 53 43 52 49 54 4F 2E 22 00 22 0F DC 05 99 22 |ESCRITO."."...."|
00000710: 11 31 30 20 53 24 28 31 29 3D 22 C7 28 33 34 29 |.10 S$(1)=".(34)|
00000720: 22 A5 00 3A 0F E6 05 99 22 32 30 20 53 24 28 32 |"..:...."20 S$(2|
00000730: 29 3D 22 C7 28 33 34 29 22 B4 00 52 0F F0 05 99 |)=".(34)"..R....|
00000740: 22 33 30 20 53 24 28 33 29 3D 22 C7 28 33 34 29 |"30 S$(3)=".(34)|
00000750: 22 B5 00 6A 0F FA 05 99 22 34 30 20 53 24 28 34 |"..j...."40 S$(4|
00000760: 29 3D 22 C7 28 33 34 29 22 A1 00 83 0F FF 05 99 |)=".(34)".......|
00000770: 22 35 30 20 53 24 28 35 29 3D 22 C7 28 33 34 29 |"50 S$(5)=".(34)|
00000780: 22 12 B6 00 9C 0F 04 06 99 22 36 30 20 53 24 28 |"........"60 S$(|
00000790: 36 29 3D 22 C7 28 33 34 29 22 12 AA 00 B5 0F 0E |6)=".(34)"......|
000007A0: 06 99 22 37 30 20 53 24 28 37 29 3D 22 C7 28 33 |.."70 S$(7)=".(3|
000007B0: 34 29 22 12 A7 00 D0 0F 18 06 99 22 38 30 20 53 |4)"........"80 S|
000007C0: 24 28 38 29 3D 22 C7 28 33 34 29 22 12 20 92 22 |$(8)=".(34)". ."|
000007D0: 00 FF 0F 22 06 99 22 11 44 45 53 50 55 45 53 20 |..."..".DESPUES |
000007E0: 44 45 20 48 41 43 45 52 4C 4F 2C 90 45 53 43 52 |DE HACERLO,.ESCR|
000007F0: 49 42 41 3A 1F 20 4C 49 53 54 31 30 2D 38 30 00 |IBA:. LIST10-80.|
00000800: 2C 10 36 06 99 22 11 2E 2E 2E 50 41 52 41 20 45 |,.6.."....PARA E|
00000810: 53 54 41 52 20 53 45 47 55 52 4F 20 51 55 45 20 |STAR SEGURO QUE |
00000820: 59 4F 20 4C 41 53 20 54 45 4E 47 4F 00 5B 10 40 |YO LAS TENGO.[.@|
00000830: 06 99 3A 99 22 1C 20 28 50 41 52 41 20 43 4F 4E |..:.". (PARA CON|
00000840: 54 49 4E 55 41 52 20 12 50 52 45 53 49 4F 4E 45 |TINUAR .PRESIONE|
00000850: 20 40 92 29 13 11 11 11 11 11 22 00 72 10 A4 06 | @.)......".r...|
00000860: 53 4E 24 B2 22 30 32 30 30 30 22 3A 89 36 33 34 |SN$."02000":.634|
00000870: 30 30 00 7D 10 D0 07 8D 36 30 30 30 30 00 8F 10 |00.}....60000...|
00000880: D1 07 86 44 24 28 31 32 29 2C 56 28 31 32 29 00 |...D$(12),V(12).|
00000890: C3 10 D6 07 44 24 28 31 29 B2 22 45 4E 45 22 3A |....D$(1)."ENE":|
000008A0: 44 24 28 32 29 B2 22 46 45 42 22 3A 44 24 28 33 |D$(2)."FEB":D$(3|
000008B0: 29 B2 22 4D 41 52 22 3A 44 24 28 34 29 B2 22 41 |)."MAR":D$(4)."A|
000008C0: 42 52 22 00 F7 10 D7 07 44 24 28 35 29 B2 22 4D |BR".....D$(5)."M|
000008D0: 41 59 22 3A 44 24 28 36 29 B2 22 4A 55 4E 22 3A |AY":D$(6)."JUN":|
000008E0: 44 24 28 37 29 B2 22 4A 55 4C 22 3A 44 24 28 38 |D$(7)."JUL":D$(8|
000008F0: 29 B2 22 41 47 4F 22 00 2E 11 D8 07 44 24 28 39 |)."AGO".....D$(9|
00000900: 29 B2 22 53 45 50 22 3A 44 24 28 31 30 29 B2 22 |)."SEP":D$(10)."|
00000910: 4F 43 54 22 3A 44 24 28 31 31 29 B2 22 4E 4F 56 |OCT":D$(11)."NOV|
00000920: 22 3A 44 24 28 31 32 29 B2 22 44 45 43 22 00 62 |":D$(12)."DEC".b|
00000930: 11 3E 08 56 28 31 29 B2 31 30 3A 56 28 32 29 B2 |.>.V(1).10:V(2).|
00000940: 31 35 3A 56 28 33 29 B2 32 30 3A 56 28 34 29 B2 |15:V(3).20:V(4).|
00000950: 32 35 3A 56 28 35 29 B2 33 30 3A 56 28 36 29 B2 |25:V(5).30:V(6).|
00000960: 33 31 00 99 11 48 08 56 28 37 29 B2 32 35 3A 56 |31...H.V(7).25:V|
00000970: 28 38 29 B2 32 30 3A 56 28 39 29 B2 31 35 3A 56 |(8).20:V(9).15:V|
00000980: 28 31 30 29 B2 31 32 3A 56 28 31 31 29 B2 31 31 |(10).12:V(11).11|
00000990: 3A 56 28 31 32 29 B2 31 30 00 BE 11 52 08 81 49 |:V(12).10...R..I|
000009A0: B2 31 A4 31 32 3A 99 22 1F 12 22 44 24 28 49 29 |.1.12:.".."D$(I)|
000009B0: 22 2D 22 C4 28 56 28 49 29 29 22 A7 22 3B 00 D5 |"-".(V(I))".";..|
000009C0: 11 5C 08 81 4A B2 31 A4 56 28 49 29 3A 99 22 12 |.\..J.1.V(I):.".|
000009D0: 20 22 3B 3A 82 00 F1 11 66 08 99 53 24 28 38 AC | ";:....f..S$(8.|
000009E0: 28 56 28 49 29 AB B5 28 56 28 49 29 29 29 29 3A |(V(I)..(V(I)))):|
000009F0: 82 00 00 12 70 08 81 49 B2 31 A4 35 30 30 3A 82 |....p..I.1.500:.|
00000A00: 00 12 12 7A 08 99 3A 99 22 20 20 20 4C 49 4E 44 |...z..:." LIND|
00000A10: 4F 3F 00 21 12 7F 08 81 49 B2 31 A4 35 30 30 3A |O?.!....I.1.500:|
00000A20: 82 00 38 12 84 08 99 3A 99 22 20 20 45 4E 53 41 |..8....:." ENSA|
00000A30: 59 45 4D 4F 53 4C 4F 21 00 47 12 8E 08 81 49 B2 |YEMOSLO!.G....I.|
00000A40: 31 A4 35 30 30 3A 82 00 6E 12 98 08 99 22 50 52 |1.500:..n...."PR|
00000A50: 49 4D 45 52 4F 20 44 45 46 49 4E 49 52 45 4D 4F |IMERO DEFINIREMO|
00000A60: 53 20 4C 41 53 20 43 41 44 45 4E 41 53 3A 00 74 |S LAS CADENAS:.t|
00000A70: 12 99 08 99 00 91 12 A2 08 99 22 4D 24 28 31 29 |.........."M$(1)|
00000A80: 3D 22 C7 28 33 34 29 22 45 4E 45 22 C7 28 33 34 |=".(34)"ENE".(34|
00000A90: 29 00 AE 12 AC 08 99 22 4D 24 28 32 29 3D 22 C7 |)......"M$(2)=".|
00000AA0: 28 33 34 29 22 46 45 42 22 C7 28 33 34 29 00 B4 |(34)"FEB".(34)..|
00000AB0: 12 B5 08 99 00 C2 12 B6 08 99 22 2E 2E 45 54 43 |.........."..ETC|
00000AC0: 2E 22 00 CD 12 C0 08 8D 36 33 30 30 30 00 01 13 |."......63000...|
00000AD0: CA 08 99 22 93 12 1C 20 20 20 20 20 20 50 41 52 |..."... PAR|
00000AE0: 41 20 44 45 4D 4F 53 54 52 41 52 4C 45 20 4F 54 |A DEMOSTRARLE OT|
00000AF0: 52 4F 20 44 45 20 4D 49 53 20 20 20 20 20 20 22 |RO DE MIS "|
00000B00: 3B 00 31 13 DE 08 99 22 20 20 20 20 20 54 41 4C |;.1...." TAL|
00000B10: 45 4E 54 4F 53 2C 20 48 41 52 45 4D 4F 53 20 4C |ENTOS, HAREMOS L|
00000B20: 4F 20 53 49 47 55 49 45 4E 54 45 3A 20 20 20 20 |O SIGUIENTE: |
00000B30: 1F 00 69 13 E8 08 99 3A 99 22 31 30 30 20 44 41 |..i....:."100 DA|
00000B40: 54 41 20 22 C7 28 33 34 29 22 45 4E 45 22 C7 28 |TA ".(34)"ENE".(|
00000B50: 33 34 29 22 2C 22 C7 28 33 34 29 22 46 45 42 22 |34)",".(34)"FEB"|
00000B60: C7 28 33 34 29 22 2C 22 3B 00 A2 13 F2 08 99 C7 |.(34)",";.......|
00000B70: 28 33 34 29 22 4D 41 52 22 C7 28 33 34 29 22 2C |(34)"MAR".(34)",|
00000B80: 22 C7 28 33 34 29 22 41 42 52 22 C7 28 33 34 29 |".(34)"ABR".(34)|
00000B90: 22 2C 22 C7 28 33 34 29 22 4D 41 59 22 C7 28 33 |",".(34)"MAY".(3|
00000BA0: 34 29 00 D8 13 F7 08 99 22 31 30 31 20 44 41 54 |4)......"101 DAT|
00000BB0: 41 20 22 C7 28 33 34 29 22 4A 55 4E 22 C7 28 33 |A ".(34)"JUN".(3|
00000BC0: 34 29 22 2C 22 C7 28 33 34 29 22 4A 55 4C 22 C7 |4)",".(34)"JUL".|
00000BD0: 28 33 34 29 22 2C 22 3B 00 11 14 F8 08 99 C7 28 |(34)",";.......(|
00000BE0: 33 34 29 22 41 47 4F 22 C7 28 33 34 29 22 2C 22 |34)"AGO".(34)","|
00000BF0: C7 28 33 34 29 22 53 45 50 22 C7 28 33 34 29 22 |.(34)"SEP".(34)"|
00000C00: 2C 22 C7 28 33 34 29 22 4F 43 54 22 C7 28 33 34 |,".(34)"OCT".(34|
00000C10: 29 00 43 14 F9 08 99 22 31 30 32 20 44 41 54 41 |).C...."102 DATA|
00000C20: 20 22 C7 28 33 34 29 22 4E 4F 56 22 C7 28 33 34 | ".(34)"NOV".(34|
00000C30: 29 22 2C 22 C7 28 33 34 29 22 44 45 43 22 C7 28 |)",".(34)"DEC".(|
00000C40: 33 34 29 00 7B 14 2E 09 99 3A 99 22 45 53 54 41 |34).{....:."ESTA|
00000C50: 53 20 49 4E 53 54 52 55 43 43 49 4F 4E 45 53 20 |S INSTRUCCIONES |
00000C60: 22 C7 28 33 34 29 22 44 41 54 41 22 C7 28 33 34 |".(34)"DATA".(34|
00000C70: 29 22 20 44 45 46 49 4E 45 4E 22 00 BE 14 38 09 |)" DEFINEN"...8.|
00000C80: 99 22 55 4E 20 4E 55 4D 45 52 4F 20 44 45 20 43 |."UN NUMERO DE C|
00000C90: 41 44 45 4E 41 53 2C 20 4C 4C 41 4D 41 44 41 53 |ADENAS, LLAMADAS|
00000CA0: 20 45 4E 45 2C 20 20 20 20 20 46 45 42 2C 20 4D | ENE, FEB, M|
00000CB0: 41 52 2C 20 41 42 52 2C 20 45 54 43 2E 22 00 D4 |AR, ABR, ETC."..|
00000CC0: 14 4C 09 99 22 11 41 48 4F 52 41 20 45 53 43 52 |.L..".AHORA ESCR|
00000CD0: 49 42 41 3A 00 FD 14 56 09 99 3A 99 22 12 31 30 |IBA:...V..:.".10|
00000CE0: 33 20 46 4F 52 49 3D 31 54 4F 31 32 3A 52 45 41 |3 FORI=1TO12:REA|
00000CF0: 44 20 4D 24 28 49 29 3A 4E 45 58 54 22 00 39 15 |D M$(I):NEXT".9.|
00000D00: 60 09 99 3A 99 22 4C 41 20 4F 52 44 45 4E 20 12 |`..:."LA ORDEN .|
00000D10: 1C 22 C7 28 33 34 29 22 52 45 41 44 22 C7 28 33 |.".(34)"READ".(3|
00000D20: 34 29 22 92 1F 20 4C 45 45 20 4C 41 20 49 4E 46 |4)".. LEE LA INF|
00000D30: 4F 52 4D 41 43 49 4F 4E 22 00 4F 15 65 09 99 22 |ORMACION".O.e.."|
00000D40: 44 41 54 41 20 59 20 41 53 49 47 4E 41 3A 22 00 |DATA Y ASIGNA:".|
00000D50: 7D 15 6A 09 99 22 11 4C 41 20 43 41 44 45 4E 41 |}.j..".LA CADENA|
00000D60: 20 22 C7 28 33 34 29 22 45 4E 45 22 C7 28 33 34 | ".(34)"ENE".(34|
00000D70: 29 22 20 41 4C 20 4D 24 28 31 29 2C 22 00 AA 15 |)" AL M$(1),"...|
00000D80: 74 09 99 22 4C 41 20 43 41 44 45 4E 41 20 22 C7 |t.."LA CADENA ".|
00000D90: 28 33 34 29 22 46 45 42 22 C7 28 33 34 29 22 20 |(34)"FEB".(34)" |
00000DA0: 41 4C 20 4D 24 28 32 29 2C 22 00 DC 15 75 09 99 |AL M$(2),"...u..|
00000DB0: 22 4C 41 20 43 41 44 45 4E 41 20 22 C7 28 33 34 |"LA CADENA ".(34|
00000DC0: 29 22 4D 41 52 22 C7 28 33 34 29 22 20 41 4C 20 |)"MAR".(34)" AL |
00000DD0: 4D 24 28 33 29 2E 2E 45 54 43 2E 22 00 E7 15 79 |M$(3)..ETC."...y|
00000DE0: 09 8D 36 33 30 30 30 00 16 16 7E 09 99 22 93 1F |..63000...~.."..|
00000DF0: 55 53 54 45 44 20 44 45 42 45 20 49 4E 46 4F 52 |USTED DEBE INFOR|
00000E00: 4D 41 52 4D 45 20 43 55 41 4E 54 4F 53 20 44 45 |MARME CUANTOS DE|
00000E10: 20 45 53 54 4F 53 00 3F 16 88 09 99 22 11 4D 24 | ESTOS.?....".M$|
00000E20: 28 31 29 2C 4D 24 28 32 29 2C 45 54 43 2E 20 54 |(1),M$(2),ETC. T|
00000E30: 49 45 4E 45 20 55 53 54 45 44 20 50 41 52 41 00 |IENE USTED PARA.|
00000E40: 67 16 92 09 99 22 11 52 45 53 45 52 56 41 52 4C |g....".RESERVARL|
00000E50: 45 53 20 4C 55 47 41 52 20 45 4E 20 4D 49 20 4D |ES LUGAR EN MI M|
00000E60: 45 4D 4F 52 49 41 2E 00 99 16 97 09 99 22 11 12 |EMORIA......."..|
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E90: 20 20 20 20 20 20 20 20 22 00 C9 16 9C 09 99 22 | "......"|
00000EA0: 11 50 41 52 41 20 41 51 55 45 4C 4C 4F 20 53 45 |.PARA AQUELLO SE|
00000EB0: 20 55 54 49 4C 49 5A 41 20 4C 41 20 49 4E 53 54 | UTILIZA LA INST|
00000EC0: 52 55 43 43 49 4F 4E 3A 22 00 E0 16 A6 09 99 22 |RUCCION:"......"|
00000ED0: 11 12 39 30 20 44 49 4D 20 4D 24 28 31 32 29 22 |..90 DIM M$(12)"|
00000EE0: 00 13 17 AB 09 99 22 11 11 12 20 20 20 20 20 20 |......"... |
00000EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F10: 20 20 22 00 46 17 B0 09 99 22 11 51 55 45 20 53 | ".F....".QUE S|
00000F20: 49 47 4E 49 46 49 43 41 20 1C 12 4C 41 20 44 49 |IGNIFICA ..LA DI|
00000F30: 4D 45 4E 53 49 4F 4E 92 1F 20 44 45 20 4C 41 20 |MENSION.. DE LA |
00000F40: 4D 41 54 52 49 5A 00 72 17 BA 09 99 22 11 44 45 |MATRIZ.r....".DE|
00000F50: 20 43 41 44 45 4E 41 53 20 4C 4C 41 4D 41 44 41 | CADENAS LLAMADA|
00000F60: 20 4D 24 28 49 29 20 45 53 20 12 1C 20 31 32 20 | M$(I) ES .. 12 |
00000F70: 92 1F 00 7D 17 C4 09 8D 36 33 30 30 30 00 B0 17 |...}....63000...|
00000F80: D8 09 99 22 93 12 1C 20 20 20 20 20 20 20 20 20 |..."... |
00000F90: 20 20 43 41 53 49 20 54 45 52 4D 49 4E 41 4D 4F | CASI TERMINAMO|
00000FA0: 53 21 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |S! "|
00000FB0: 00 BF 17 EC 09 81 49 B2 31 A4 35 30 30 3A 82 00 |......I.1.500:..|
00000FC0: EA 17 0A 0A 99 22 11 12 1F 39 30 20 44 49 4D 20 |....."...90 DIM |
00000FD0: 4D 24 28 31 32 29 20 20 20 20 20 20 20 20 20 20 |M$(12) |
00000FE0: 20 20 20 20 20 20 20 20 20 22 00 13 18 14 0A 99 | "......|
00000FF0: 22 12 31 30 30 20 44 41 54 41 20 45 4E 45 2C 46 |".100 DATA ENE,F|
00001000: 45 42 2C 4D 41 52 2C 41 42 52 2C 4D 41 59 2C 4A |EB,MAR,ABR,MAY,J|
00001010: 55 4E 22 00 3C 18 28 0A 99 22 12 31 30 31 20 44 |UN".<.(..".101 D|
00001020: 41 54 41 20 4A 55 4C 2C 41 47 4F 2C 53 45 50 2C |ATA JUL,AGO,SEP,|
00001030: 4F 43 54 2C 4E 4F 56 2C 44 45 43 22 00 65 18 32 |OCT,NOV,DEC".e.2|
00001040: 0A 99 22 12 31 30 32 20 46 4F 52 49 3D 31 54 4F |..".102 FORI=1TO|
00001050: 31 32 3A 52 45 41 44 20 4D 24 28 49 29 3A 4E 45 |12:READ M$(I):NE|
00001060: 58 54 20 20 22 00 9D 18 3C 0A 99 22 11 11 4E 4F |XT "...<.."..NO|
00001070: 54 45 11 9D 9D 9D 9D B8 B8 B8 B8 91 3A 53 49 20 |TE..........:SI |
00001080: 12 54 4F 44 41 53 92 20 4C 41 53 20 44 41 54 41 |.TODAS. LAS DATA|
00001090: 20 53 4F 4E 20 43 41 44 45 4E 41 53 22 00 C6 18 | SON CADENAS"...|
000010A0: 41 0A 99 22 11 55 53 54 45 44 20 50 55 45 44 45 |A..".USTED PUEDE|
000010B0: 20 4F 4D 49 54 49 52 20 4C 41 53 20 43 4F 4D 49 | OMITIR LAS COMI|
000010C0: 4C 4C 41 53 21 22 00 F6 18 46 0A 99 22 11 11 11 |LLAS!"...F.."...|
000010D0: 28 4E 4F 20 45 4E 54 52 45 20 54 4F 44 41 56 49 |(NO ENTRE TODAVI|
000010E0: 41 20 4C 41 53 20 49 4E 53 54 52 55 43 43 49 4F |A LAS INSTRUCCIO|
000010F0: 4E 45 53 29 2E 22 00 01 19 50 0A 8D 36 33 30 30 |NES)."...P..6300|
00001100: 30 00 35 19 5A 0A 99 22 93 12 1C 20 20 48 41 59 |0.5.Z.."... HAY|
00001110: 20 51 55 45 20 45 4E 54 52 41 52 20 4C 4F 53 20 | QUE ENTRAR LOS |
00001120: 31 32 20 56 41 4C 4F 52 45 53 20 51 55 45 20 20 |12 VALORES QUE |
00001130: 20 20 20 22 3B 00 65 19 64 0A 99 22 20 20 20 20 | ";.e.d.." |
00001140: 20 20 44 41 4E 20 45 4C 20 4C 41 52 47 4F 20 44 | DAN EL LARGO D|
00001150: 45 20 4C 41 53 20 42 41 52 52 41 53 20 20 20 20 |E LAS BARRAS |
00001160: 20 20 20 20 22 00 AC 19 69 0A 99 22 11 1F 55 53 | "...i.."..US|
00001170: 41 4D 4F 53 20 50 41 52 41 20 45 53 54 4F 20 4C |AMOS PARA ESTO L|
00001180: 41 20 49 4E 53 54 52 55 43 43 49 4F 4E 20 12 49 |A INSTRUCCION .I|
00001190: 4E 50 55 54 92 22 3A 99 22 44 45 4E 54 52 4F 20 |NPUT.":."DENTRO |
000011A0: 44 45 20 55 4E 20 42 55 43 4C 45 22 00 C9 19 78 |DE UN BUCLE"...x|
000011B0: 0A 99 22 11 12 31 30 35 20 46 4F 52 20 49 3D 31 |.."..105 FOR I=1|
000011C0: 54 4F 31 32 20 20 20 20 22 00 F1 19 82 0A 99 22 |TO12 "......"|
000011D0: 12 31 31 30 3F 22 C7 28 33 34 29 22 56 41 4C 4F |.110?".(34)"VALO|
000011E0: 52 20 22 C7 28 33 34 29 22 4D 24 28 49 29 20 20 |R ".(34)"M$(I) |
000011F0: 22 00 0D 1A 8C 0A 99 22 12 31 32 30 20 49 4E 50 |"......".120 INP|
00001200: 55 54 20 56 28 49 29 20 20 20 20 20 22 00 3B 1A |UT V(I) ".;.|
00001210: 91 0A 99 3A 99 22 4E 4F 54 45 20 51 55 45 20 23 |...:."NOTE QUE #|
00001220: 31 31 30 20 56 41 20 49 4D 50 52 49 4D 49 52 20 |110 VA IMPRIMIR |
00001230: 55 4E 20 4D 45 4E 53 41 4A 45 22 00 4E 1A 92 0A |UN MENSAJE".N...|
00001240: 99 22 11 43 4F 4D 4F 20 45 53 54 45 3A 22 00 66 |.".COMO ESTE:".f|
00001250: 1A 93 0A 99 3A 99 22 1C 12 56 41 4C 4F 52 20 45 |....:."..VALOR E|
00001260: 4E 45 3D 3F 1F 22 00 71 1A 95 0A 8D 36 33 30 30 |NE=?.".q....6300|
00001270: 30 00 A4 1A 96 0A 99 22 93 12 1C 20 20 20 20 20 |0......"... |
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012A0: 20 20 20 22 00 D4 1A 9B 0A 99 22 11 1F 53 49 20 | "......"..SI |
000012B0: 53 45 20 44 41 20 55 4E 20 56 41 4C 4F 52 20 44 |SE DA UN VALOR D|
000012C0: 45 20 31 35 30 20 53 24 28 38 29 3D 12 20 92 20 |E 150 S$(8)=. . |
000012D0: 59 20 4C 41 00 01 1B A0 0A 99 22 50 41 4E 54 41 |Y LA......"PANTA|
000012E0: 4C 4C 41 20 45 53 20 45 4E 20 52 45 41 4C 49 44 |LLA ES EN REALID|
000012F0: 41 44 20 44 45 20 34 30 20 43 4F 4C 55 4D 4E 41 |AD DE 40 COLUMNA|
00001300: 53 00 2B 1B AA 0A 99 22 45 53 20 4E 45 43 45 53 |S.+...."ES NECES|
00001310: 41 52 49 4F 20 42 55 53 43 41 52 20 45 4C 20 56 |ARIO BUSCAR EL V|
00001320: 41 4C 4F 52 20 4D 41 58 49 4D 4F 00 4D 1B B4 0A |ALOR MAXIMO.M...|
00001330: 99 22 59 20 52 45 44 55 43 49 52 4C 4F 20 50 41 |."Y REDUCIRLO PA|
00001340: 52 41 20 49 4D 50 52 49 4D 49 52 4C 4F 00 66 1B |RA IMPRIMIRLO.f.|
00001350: BE 0A 99 22 50 52 4F 50 4F 52 43 49 4F 4E 41 4C |..."PROPORCIONAL|
00001360: 4D 45 4E 54 45 2E 00 99 1B CD 0A 99 22 12 1C 20 |MENTE.......".. |
00001370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001390: 20 20 20 20 20 20 20 1F 22 00 C6 1B D2 0A 99 22 | ."......"|
000013A0: 11 43 4F 4D 4F 20 56 45 20 55 44 2E 56 41 4D 4F |.COMO VE UD.VAMO|
000013B0: 53 20 41 20 49 4D 50 52 49 4D 49 52 20 55 4E 41 |S A IMPRIMIR UNA|
000013C0: 20 42 41 52 52 41 00 F0 1B DC 0A 99 22 44 45 20 | BARRA......"DE |
000013D0: 4C 41 52 47 4F 20 50 52 4F 50 4F 52 43 49 4F 4E |LARGO PROPORCION|
000013E0: 41 4C 20 41 20 43 41 44 41 20 49 4E 50 55 54 2E |AL A CADA INPUT.|
000013F0: 00 19 1C E6 0A 99 22 48 41 52 45 4D 4F 53 20 45 |......"HAREMOS E|
00001400: 53 54 4F 20 49 4D 50 52 49 4D 49 45 4E 44 4F 20 |STO IMPRIMIENDO |
00001410: 55 4E 20 43 49 45 52 54 4F 00 35 1C F0 0A 99 22 |UN CIERTO.5...."|
00001420: 4E 55 4D 45 52 4F 20 44 45 20 12 20 92 5F 20 45 |NUMERO DE . ._ E|
00001430: 53 54 4F 53 2E 00 50 1C F5 0A 99 22 11 51 55 45 |STOS..P....".QUE|
00001440: 20 53 45 20 4C 4C 41 4D 41 4E 20 53 24 28 38 29 | SE LLAMAN S$(8)|
00001450: 00 7B 1C FA 0A 99 22 11 20 20 20 20 20 20 20 20 |.{....". |
00001460: 20 20 20 20 20 20 20 20 20 20 53 45 20 41 43 55 | SE ACU|
00001470: 45 52 44 41 20 55 53 54 45 44 3F 00 86 1C 04 0B |ERDA USTED?.....|
00001480: 8D 36 33 30 30 30 00 B9 1C 0E 0B 99 22 93 12 1C |.63000......"...|
00001490: 20 20 20 20 20 20 20 20 20 20 56 41 4D 4F 53 20 | VAMOS |
000014A0: 41 20 45 53 43 52 49 42 49 52 3A 20 20 20 20 20 |A ESCRIBIR: |
000014B0: 20 20 20 20 20 20 20 20 22 00 CC 1C 18 0B 99 22 | "......"|
000014C0: 1F 31 30 34 20 4D 41 58 56 3D 30 22 00 F3 1C 22 |.104 MAXV=0"..."|
000014D0: 0B 99 22 31 33 30 20 49 46 20 4D 41 58 56 3C 56 |.."130 IF MAXV<V|
000014E0: 28 49 29 20 54 48 45 4E 20 4D 41 58 56 3D 56 28 |(I) THEN MAXV=V(|
000014F0: 49 29 22 00 03 1D 2C 0B 81 49 B2 31 A4 31 30 30 |I)"...,..I.1.100|
00001500: 30 3A 82 00 35 1D 36 0B 99 22 11 12 20 20 20 20 |0:..5.6..".. |
00001510: 20 20 20 20 20 20 54 45 4E 44 52 45 4D 4F 53 20 | TENDREMOS |
00001520: 45 4E 54 4F 4E 43 45 53 20 20 20 20 20 20 20 20 |ENTONCES |
00001530: 20 20 20 20 22 00 47 1D 3B 0B 99 22 1F 31 30 34 | ".G.;..".104|
00001540: 20 4D 41 58 56 3D 30 00 5D 1D 40 0B 99 22 31 30 | MAXV=0.].@.."10|
00001550: 35 20 46 4F 52 20 49 3D 31 54 4F 31 32 00 82 1D |5 FOR I=1TO12...|
00001560: 4A 0B 99 22 31 31 30 3F 22 C7 28 33 34 29 22 56 |J.."110?".(34)"V|
00001570: 41 4C 4F 52 20 22 C7 28 33 34 29 22 20 4D 24 28 |ALOR ".(34)" M$(|
00001580: 49 29 00 97 1D 54 0B 99 22 31 32 30 20 49 4E 50 |I)...T.."120 INP|
00001590: 55 54 20 56 28 49 29 00 BD 1D 86 0B 99 22 31 33 |UT V(I)......"13|
000015A0: 30 20 49 46 20 4D 41 58 56 3C 56 28 49 29 20 54 |0 IF MAXV<V(I) T|
000015B0: 48 45 4E 20 4D 41 58 56 3D 56 28 49 29 00 F0 1D |HEN MAXV=V(I)...|
000015C0: 90 0B 99 22 11 12 1C 20 20 20 20 20 20 20 20 20 |..."... |
000015D0: 20 20 54 4F 51 55 45 20 55 4E 41 20 54 45 43 4C | TOQUE UNA TECL|
000015E0: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |A "|
000015F0: 00 04 1E 91 0B A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00001600: 32 39 36 31 00 32 1E 9A 0B 99 22 1F 56 45 52 49 |2961.2....".VERI|
00001610: 46 49 43 41 52 45 4D 4F 53 20 53 49 20 4D 41 58 |FICAREMOS SI MAX|
00001620: 56 20 28 30 20 45 4E 20 53 55 20 4F 52 49 47 45 |V (0 EN SU ORIGE|
00001630: 4E 29 00 58 1E A4 0B 99 22 45 53 20 4D 45 4E 4F |N).X...."ES MENO|
00001640: 52 20 51 55 45 20 45 4C 20 56 41 4C 4F 52 20 44 |R QUE EL VALOR D|
00001650: 45 20 49 4E 50 55 54 2E 00 81 1E B1 0B 99 22 11 |E INPUT.......".|
00001660: 1C 53 49 20 45 53 54 41 20 43 4F 4E 44 49 43 49 |.SI ESTA CONDICI|
00001670: 4F 4E 20 53 45 20 43 55 4D 50 4C 45 20 4D 41 58 |ON SE CUMPLE MAX|
00001680: 56 00 98 1E B3 0B 99 22 54 4F 4D 41 20 45 4C 20 |V......"TOMA EL |
00001690: 56 41 4C 4F 52 20 56 2E 00 D3 1E B8 0B 99 22 1F |VALOR V.......".|
000016A0: 55 4E 41 20 56 45 5A 20 54 45 52 4D 49 4E 41 44 |UNA VEZ TERMINAD|
000016B0: 4F 20 45 4C 20 42 55 43 4C 45 20 22 C7 28 33 34 |O EL BUCLE ".(34|
000016C0: 29 22 46 4F 52 2D 4E 45 58 54 22 C7 28 33 34 29 |)"FOR-NEXT".(34)|
000016D0: 22 20 22 00 F9 1E C2 0B 99 22 4D 41 58 56 20 53 |" "......"MAXV S|
000016E0: 45 52 41 20 49 47 55 41 4C 20 41 4C 20 56 41 4C |ERA IGUAL AL VAL|
000016F0: 4F 52 20 4D 41 58 49 4D 4F 00 11 1F CC 0B 99 22 |OR MAXIMO......"|
00001700: 44 45 20 4C 4F 53 20 56 41 4C 4F 52 45 53 2D 56 |DE LOS VALORES-V|
00001710: 21 00 1C 1F D1 0B 8D 36 33 30 30 30 00 4F 1F D6 |!......63000.O..|
00001720: 0B 99 22 93 1C 12 20 53 49 20 55 4E 20 56 41 4C |.."... SI UN VAL|
00001730: 4F 52 20 45 53 20 2C 20 50 4F 52 20 45 4A 45 4D |OR ES , POR EJEM|
00001740: 50 4C 4F 2C 20 31 32 33 34 35 36 2E 37 20 22 00 |PLO, 123456.7 ".|
00001750: 7C 1F E0 0B 99 22 1F 4E 45 43 45 53 49 54 41 52 ||....".NECESITAR|
00001760: 45 20 38 20 45 53 50 41 43 49 4F 53 20 50 41 52 |E 8 ESPACIOS PAR|
00001770: 41 20 49 4D 50 52 49 4D 49 52 4C 4F 00 A1 1F EA |A IMPRIMIRLO....|
00001780: 0B 99 22 11 59 20 45 53 20 4E 45 43 45 53 41 52 |..".Y ES NECESAR|
00001790: 49 4F 20 51 55 45 20 4C 4F 20 53 45 50 41 2E 2E |IO QUE LO SEPA..|
000017A0: 2E 00 D4 1F EF 0B 99 22 11 12 11 20 20 20 20 20 |......."... |
000017B0: 20 20 20 20 20 20 20 50 4F 52 20 4C 4F 20 54 41 | POR LO TA|
000017C0: 4E 54 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 |NTO |
000017D0: 20 20 20 22 00 12 20 F4 0B 99 22 11 4D 49 45 4E | ".. ...".MIEN|
000017E0: 54 52 41 53 20 55 44 2E 20 45 46 45 43 54 55 41 |TRAS UD. EFECTUA|
000017F0: 20 45 4C 20 49 4E 50 55 54 20 44 45 20 4C 41 53 | EL INPUT DE LAS|
00001800: 20 27 56 27 22 3A 99 22 91 59 20 42 55 53 43 41 | 'V'":.".Y BUSCA|
00001810: 22 3B 00 2A 20 FE 0B 99 22 20 53 55 20 56 41 4C |";.* ..." SU VAL|
00001820: 4F 52 20 4D 41 58 49 4D 4F 2C 00 58 20 03 0C 99 |OR MAXIMO,.X ...|
00001830: 22 11 55 53 54 45 44 20 50 4F 44 52 41 20 45 4E |".USTED PODRA EN|
00001840: 43 4F 4E 54 52 41 52 20 54 41 4D 42 49 45 4E 20 |CONTRAR TAMBIEN |
00001850: 4C 41 20 4D 41 59 4F 52 00 82 20 08 0C 99 22 12 |LA MAYOR.. ...".|
00001860: 1C 4C 4F 4E 47 49 54 55 44 1F 92 20 20 44 45 20 |.LONGITUD.. DE |
00001870: 4C 4F 53 20 4E 55 4D 45 52 4F 53 20 20 56 28 49 |LOS NUMEROS V(I|
00001880: 29 2E 00 8D 20 1C 0C 8D 36 33 30 30 30 00 BC 20 |)... ...63000.. |
00001890: 26 0C 99 22 93 11 50 52 49 4D 45 52 4F 20 56 41 |&.."..PRIMERO VA|
000018A0: 4D 4F 53 20 41 20 43 41 4D 42 49 41 52 20 45 4C |MOS A CAMBIAR EL|
000018B0: 20 4E 55 4D 45 52 4F 20 56 28 49 29 00 E6 20 30 | NUMERO V(I).. 0|
000018C0: 0C 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 1C 20 20 A3 | . .|
000018E0: A3 A3 A3 A3 A3 1F 00 08 21 3A 0C 99 22 50 4F 52 |........!:.."POR|
000018F0: 20 55 4E 41 20 43 41 44 45 4E 41 20 44 45 20 53 | UNA CADENA DE S|
00001900: 49 4D 42 4F 4C 4F 53 2C 00 20 21 44 0C 99 22 20 |IMBOLOS,. !D.." |
00001910: 20 20 20 20 20 20 1C 20 A3 A3 A3 A3 A3 A3 1F 22 | . ......."|
00001920: 00 43 21 4E 0C 99 22 53 49 20 44 45 46 49 4E 49 |.C!N.."SI DEFINI|
00001930: 4D 4F 53 3A 20 58 24 3D 53 54 52 24 28 56 28 49 |MOS: X$=STR$(V(I|
00001940: 29 29 22 00 73 21 62 0C 99 22 11 50 4F 44 45 4D |))".s!b..".PODEM|
00001950: 4F 53 20 45 4E 43 4F 4E 54 52 41 52 20 4C 41 20 |OS ENCONTRAR LA |
00001960: 12 1C 4C 4F 4E 47 49 54 55 44 92 1F 20 44 45 20 |..LONGITUD.. DE |
00001970: 58 24 22 00 87 21 63 0C 99 22 11 43 4F 4E 20 4C |X$"..!c..".CON L|
00001980: 41 20 4F 52 44 45 4E 00 9D 21 6C 0C 99 22 11 1C |A ORDEN..!l.."..|
00001990: 12 4C 3D 4C 45 4E 28 58 24 29 92 1F 22 00 A8 21 |.L=LEN(X$).."..!|
000019A0: 71 0C 8D 36 33 30 30 30 00 DB 21 76 0C 99 22 93 |q..63000..!v..".|
000019B0: 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 45 |.. E|
000019C0: 53 43 52 49 42 41 4D 4F 53 3A 20 20 20 20 20 20 |SCRIBAMOS: |
000019D0: 20 20 20 20 20 20 20 20 20 20 22 00 00 22 80 0C | ".."..|
000019E0: 99 22 12 1C 31 34 30 20 58 24 3D 53 54 52 24 28 |."..140 X$=STR$(|
000019F0: 56 28 49 29 29 3A 4C 3D 4C 45 4E 28 58 24 29 22 |V(I)):L=LEN(X$)"|
00001A00: 00 10 22 8A 0C 81 49 B2 31 A4 31 30 30 30 3A 82 |.."...I.1.1000:.|
00001A10: 00 2E 22 94 0C 99 22 11 1F 2E 2E 4F 20 50 4F 52 |.."..."....O POR|
00001A20: 51 55 45 20 4E 4F 20 41 53 49 3F 2E 2E 22 00 4E |QUE NO ASI?..".N|
00001A30: 22 9E 0C 99 22 11 12 1C 31 34 30 20 4C 3D 4C 45 |"..."...140 L=LE|
00001A40: 4E 28 53 54 52 24 28 56 28 49 29 29 29 22 00 7A |N(STR$(V(I)))".z|
00001A50: 22 A3 0C 99 22 11 1F 4E 4F 54 45 20 51 55 45 20 |"..."..NOTE QUE |
00001A60: 12 53 54 52 24 28 56 29 92 20 43 41 4D 42 49 41 |.STR$(V). CAMBIA|
00001A70: 20 55 4E 20 4E 55 4D 45 52 4F 00 9C 22 A4 0C 99 | UN NUMERO.."...|
00001A80: 22 41 20 55 4E 41 20 43 41 44 45 4E 41 20 44 45 |"A UNA CADENA DE|
00001A90: 20 43 41 52 41 43 54 45 52 45 53 21 00 C6 22 A5 | CARACTERES!..".|
00001AA0: 0C 99 22 11 2E 2E 59 20 51 55 45 20 12 4C 45 4E |.."...Y QUE .LEN|
00001AB0: 28 56 24 29 92 20 44 41 20 4C 41 20 4C 4F 4E 47 |(V$). DA LA LONG|
00001AC0: 49 54 55 44 20 22 00 DE 22 A6 0C 99 22 44 45 20 |ITUD ".."..."DE |
00001AD0: 4C 41 20 43 41 44 45 4E 41 20 56 24 21 22 00 10 |LA CADENA V$!"..|
00001AE0: 23 A8 0C 99 22 11 12 20 20 20 20 20 20 20 20 20 |#...".. |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001B10: 00 44 23 B2 0C 99 22 50 41 52 41 20 45 4E 43 4F |.D#..."PARA ENCO|
00001B20: 4E 54 52 41 52 20 4C 41 20 4D 41 59 4F 52 20 22 |NTRAR LA MAYOR "|
00001B30: C7 28 33 34 29 22 4C 4F 4E 47 49 54 55 44 22 C7 |.(34)"LONGITUD".|
00001B40: 28 33 34 29 00 66 23 BC 0C 99 22 44 45 20 4C 4F |(34).f#..."DE LO|
00001B50: 53 20 56 41 4C 4F 52 45 53 20 27 56 27 20 45 53 |S VALORES 'V' ES|
00001B60: 43 52 49 42 41 3A 00 85 23 C6 0C 99 22 11 12 1C |CRIBA:..#..."...|
00001B70: 31 35 30 20 49 46 20 4D 4C 3C 4C 20 54 48 45 4E |150 IF ML<L THEN|
00001B80: 20 4D 4C 3D 4C 00 AC 23 D0 0C 99 22 11 1F 28 53 | ML=L..#..."..(S|
00001B90: 49 4D 49 4C 41 52 20 41 20 4C 41 20 42 55 53 51 |IMILAR A LA BUSQ|
00001BA0: 55 45 44 41 20 44 45 20 4D 41 58 29 00 B7 23 DA |UEDA DE MAX)..#.|
00001BB0: 0C 8D 36 33 30 30 30 00 E8 23 E4 0C 99 22 93 11 |..63000..#..."..|
00001BC0: 11 54 45 52 4D 49 4E 45 4D 4F 53 20 45 4E 54 4F |.TERMINEMOS ENTO|
00001BD0: 4E 43 45 53 20 45 4C 20 42 55 43 4C 45 20 46 4F |NCES EL BUCLE FO|
00001BE0: 52 2D 4E 45 58 54 21 22 00 16 24 EE 0C 99 22 1C |R-NEXT!"..$...".|
00001BF0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 20 20 20 20 20 20 |.......... |
00001C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 | ...|
00001C10: A3 A3 A3 A3 A3 22 00 28 24 F8 0C 99 22 1F 11 31 |.....".($..."..1|
00001C20: 36 30 20 4E 45 58 54 22 00 33 24 02 0D 8D 36 33 |60 NEXT".3$...63|
00001C30: 30 30 30 00 66 24 0C 0D 99 22 93 12 1C 20 20 20 |000.f$..."... |
00001C40: 20 20 20 20 20 20 4E 4F 53 4F 54 52 4F 53 20 48 | NOSOTROS H|
00001C50: 45 4D 4F 53 20 48 45 43 48 4F 3A 20 20 20 20 20 |EMOS HECHO: |
00001C60: 20 20 20 20 20 22 00 75 24 16 0D 81 49 B2 31 A4 | ".u$...I.1.|
00001C70: 35 30 30 3A 82 00 90 24 AA 19 99 22 1F 39 30 20 |500:...$...".90 |
00001C80: 44 49 4D 20 4D 24 28 31 32 29 2C 56 28 31 32 29 |DIM M$(12),V(12)|
00001C90: 00 B7 24 B4 19 99 22 31 30 30 20 44 41 54 41 20 |..$..."100 DATA |
00001CA0: 45 4E 45 2C 46 45 42 2C 4D 41 52 2C 41 42 52 2C |ENE,FEB,MAR,ABR,|
00001CB0: 4D 41 59 2C 4A 55 4E 00 DE 24 C8 19 99 22 31 30 |MAY,JUN..$..."10|
00001CC0: 31 20 44 41 54 41 20 4A 55 4C 2C 41 47 4F 2C 53 |1 DATA JUL,AGO,S|
00001CD0: 45 50 2C 4F 43 54 2C 4E 4F 56 2C 44 45 43 00 FE |EP,OCT,NOV,DEC..|
00001CE0: 24 E6 19 99 22 31 30 32 20 46 4F 52 49 3D 31 54 |$..."102 FORI=1T|
00001CF0: 4F 31 32 3A 52 45 41 44 20 4D 24 28 49 29 00 14 |O12:READ M$(I)..|
00001D00: 25 F0 19 99 22 31 30 34 20 4D 41 58 56 3D 30 3A |%..."104 MAXV=0:|
00001D10: 4D 4C 3D 30 00 2A 25 18 1A 99 22 31 30 35 20 46 |ML=0.*%..."105 F|
00001D20: 4F 52 20 49 3D 31 54 4F 31 32 00 54 25 22 1A 99 |OR I=1TO12.T%"..|
00001D30: 22 31 31 30 20 50 52 49 4E 54 22 C7 28 33 34 29 |"110 PRINT".(34)|
00001D40: 22 56 41 4C 4F 52 20 22 C7 28 33 34 29 22 20 4D |"VALOR ".(34)" M|
00001D50: 24 28 49 29 00 69 25 2C 1A 99 22 31 32 30 20 49 |$(I).i%,.."120 I|
00001D60: 4E 50 55 54 20 56 28 49 29 00 8F 25 C2 1A 99 22 |NPUT V(I)..%..."|
00001D70: 31 33 30 20 49 46 20 4D 41 58 56 3C 56 28 49 29 |130 IF MAXV<V(I)|
00001D80: 20 54 48 45 4E 20 4D 41 58 56 3D 56 28 49 29 00 | THEN MAXV=V(I).|
00001D90: AB 25 3E 1C 99 22 31 34 30 20 4C 3D 4C 45 4E 28 |.%>.."140 L=LEN(|
00001DA0: 53 54 52 24 28 56 28 49 29 29 29 00 C7 25 48 1C |STR$(V(I)))..%H.|
00001DB0: 99 22 31 35 30 20 49 46 20 4D 4C 3C 4C 20 54 48 |."150 IF ML<L TH|
00001DC0: 45 4E 20 4D 4C 3D 4C 00 D6 25 98 1C 99 22 31 36 |EN ML=L..%..."16|
00001DD0: 30 20 4E 45 58 54 00 FC 25 A2 1C 99 3A 99 22 4E |0 NEXT..%...:."N|
00001DE0: 4F 54 45 20 51 55 45 20 53 45 20 48 41 20 49 4E |OTE QUE SE HA IN|
00001DF0: 43 4F 52 50 4F 52 41 44 4F 20 4C 41 00 29 26 AC |CORPORADO LA.)&.|
00001E00: 1C 99 22 44 49 4D 45 4E 53 49 4F 4E 20 44 45 20 |.."DIMENSION DE |
00001E10: 4C 4F 53 20 56 41 4C 4F 52 45 53 20 56 2C 20 45 |LOS VALORES V, E|
00001E20: 4E 20 45 4C 20 23 39 30 2E 00 59 26 B6 1C 99 22 |N EL #90..Y&..."|
00001E30: 11 4E 4F 54 45 20 54 41 4D 42 49 45 4E 20 51 55 |.NOTE TAMBIEN QU|
00001E40: 45 20 48 41 42 45 4D 4F 53 20 49 4E 49 43 49 41 |E HABEMOS INICIA|
00001E50: 4C 49 5A 41 44 4F 20 4D 4C 00 80 26 BB 1C 99 22 |LIZADO ML..&..."|
00001E60: 91 28 4C 41 20 4D 41 58 49 4D 41 20 4C 4F 4E 47 |.(LA MAXIMA LONG|
00001E70: 49 54 55 44 20 44 45 20 4C 41 53 20 56 27 53 29 |ITUD DE LAS V'S)|
00001E80: 00 A3 26 C0 1C 99 22 43 4F 4E 20 45 4C 20 56 41 |..&..."CON EL VA|
00001E90: 4C 4F 52 20 30 2E 2E 2E 45 4E 20 45 4C 20 23 31 |LOR 0...EN EL #1|
00001EA0: 30 34 2E 00 AE 26 CA 1C 8D 36 33 30 30 30 00 E1 |04...&...63000..|
00001EB0: 26 D4 1C 99 22 93 12 1C 20 20 20 20 4F 4B 2E 2E |&..."... OK..|
00001EC0: 45 4E 54 52 45 4D 4F 53 20 45 53 54 41 53 20 49 |ENTREMOS ESTAS I|
00001ED0: 4E 53 54 52 55 43 43 49 4F 4E 45 53 20 20 20 20 |NSTRUCCIONES |
00001EE0: 22 00 0F 27 E8 1C 99 22 1F 45 53 43 52 49 42 41 |"..'...".ESCRIBA|
00001EF0: 20 12 52 55 4E 92 20 50 41 52 41 20 45 4D 50 45 | .RUN. PARA EMPE|
00001F00: 5A 41 52 20 45 4C 20 50 52 4F 47 52 41 4D 41 00 |ZAR EL PROGRAMA.|
00001F10: 3B 27 FC 1C 99 22 11 11 44 45 53 50 55 45 53 20 |;'..."..DESPUES |
00001F20: 44 45 20 48 41 42 45 52 20 45 4E 54 52 41 44 4F |DE HABER ENTRADO|
00001F30: 20 31 32 20 56 41 4C 4F 52 45 53 00 62 27 06 1D | 12 VALORES.b'..|
00001F40: 99 22 44 45 20 49 4E 50 55 54 2C 20 55 53 54 45 |."DE INPUT, USTE|
00001F50: 44 20 50 55 45 44 45 20 50 52 45 47 55 4E 54 41 |D PUEDE PREGUNTA|
00001F60: 52 3A 00 6F 27 10 1D 99 22 11 3F 56 28 33 29 00 |R:.o'...".?V(3).|
00001F70: 9F 27 1A 1D 99 22 11 59 20 59 4F 20 49 4D 50 52 |.'...".Y YO IMPR|
00001F80: 49 4D 49 52 45 20 45 4C 20 56 41 4C 4F 52 20 45 |IMIRE EL VALOR E|
00001F90: 4E 54 52 41 44 4F 20 44 45 20 4D 41 52 5A 4F 00 |NTRADO DE MARZO.|
00001FA0: D3 27 42 1D 99 22 11 11 11 12 20 20 20 20 20 20 |.'B..".... |
00001FB0: 20 20 20 20 20 54 4F 51 55 45 20 55 4E 41 20 54 | TOQUE UNA T|
00001FC0: 45 43 4C 41 20 20 20 20 20 20 20 20 20 20 20 20 |ECLA |
00001FD0: 20 20 22 00 E7 27 43 1D A1 41 24 3A 8B 41 24 B2 | "..'C..A$:.A$.|
00001FE0: 22 22 A7 37 34 39 31 00 F8 27 56 1D 99 22 12 1C |"".7491..'V.."..|
00001FF0: 52 45 43 55 45 52 44 45 00 24 28 5B 1D 99 22 1F |RECUERDE.$([..".|
00002000: 55 53 54 45 44 20 4E 4F 20 54 49 45 4E 45 20 4E |USTED NO TIENE N|
00002010: 45 43 45 53 49 44 41 44 20 44 45 20 45 53 43 52 |ECESIDAD DE ESCR|
00002020: 49 42 49 52 00 52 28 60 1D 99 22 54 4F 44 4F 20 |IBIR.R(`.."TODO |
00002030: 45 53 54 4F 2E 20 55 4E 20 4D 4F 4E 54 4F 4E 20 |ESTO. UN MONTON |
00002040: 44 45 20 52 45 54 55 52 4E 53 20 42 41 53 54 41 |DE RETURNS BASTA|
00002050: 52 41 00 82 28 6F 1D 99 3A 99 22 28 59 20 59 4F |RA..(o..:."(Y YO|
00002060: 20 56 4F 59 20 41 20 50 45 4E 53 41 52 20 51 55 | VOY A PENSAR QU|
00002070: 45 20 55 44 2E 20 4C 4F 20 45 53 43 52 49 42 49 |E UD. LO ESCRIBI|
00002080: 4F 29 00 8D 28 74 1D 8D 36 33 30 30 30 00 98 28 |O)..(t..63000..(|
00002090: 7E 1D 99 22 93 11 22 3B 00 B3 28 7A 21 99 22 39 |~.."..";..(z!."9|
000020A0: 30 20 44 49 4D 20 4D 24 28 31 32 29 2C 56 28 31 |0 DIM M$(12),V(1|
000020B0: 32 29 22 00 DA 28 84 21 99 22 31 30 30 20 44 41 |2)"..(.!."100 DA|
000020C0: 54 41 20 45 4E 45 2C 46 45 42 2C 4D 41 52 2C 41 |TA ENE,FEB,MAR,A|
000020D0: 42 52 2C 4D 41 59 2C 4A 55 4E 00 01 29 98 21 99 |BR,MAY,JUN..).!.|
000020E0: 22 31 30 31 20 44 41 54 41 20 4A 55 4C 2C 41 47 |"101 DATA JUL,AG|
000020F0: 4F 2C 53 45 50 2C 4F 43 54 2C 4E 4F 56 2C 44 45 |O,SEP,OCT,NOV,DE|
00002100: 43 00 27 29 B6 21 3A 99 22 31 30 32 20 46 4F 52 |C.').!:."102 FOR|
00002110: 49 3D 31 54 4F 31 32 3A 52 45 41 44 20 4D 24 28 |I=1TO12:READ M$(|
00002120: 49 29 3A 4E 45 58 54 00 3D 29 C0 21 99 22 31 30 |I):NEXT.=).!."10|
00002130: 34 20 4D 41 58 56 3D 30 3A 4D 4C 3D 30 00 53 29 |4 MAXV=0:ML=0.S)|
00002140: E8 21 99 22 31 30 35 20 46 4F 52 20 49 3D 31 54 |.!."105 FOR I=1T|
00002150: 4F 31 32 00 7D 29 F2 21 99 22 31 31 30 20 50 52 |O12.}).!."110 PR|
00002160: 49 4E 54 22 C7 28 33 34 29 22 56 41 4C 4F 52 20 |INT".(34)"VALOR |
00002170: 22 C7 28 33 34 29 22 20 4D 24 28 49 29 00 92 29 |".(34)" M$(I)..)|
00002180: FC 21 99 22 31 32 30 20 49 4E 50 55 54 20 56 28 |.!."120 INPUT V(|
00002190: 49 29 00 B8 29 92 22 99 22 31 33 30 20 49 46 20 |I)..)."."130 IF |
000021A0: 4D 41 58 56 3C 56 28 49 29 20 54 48 45 4E 20 4D |MAXV<V(I) THEN M|
000021B0: 41 58 56 3D 56 28 49 29 00 D4 29 0E 24 99 22 31 |AXV=V(I)..).$."1|
000021C0: 34 30 20 4C 3D 4C 45 4E 28 53 54 52 24 28 56 28 |40 L=LEN(STR$(V(|
000021D0: 49 29 29 29 00 F0 29 18 24 99 22 31 35 30 20 49 |I)))..).$."150 I|
000021E0: 46 20 4D 4C 3C 4C 20 54 48 45 4E 20 4D 4C 3D 4C |F ML<L THEN ML=L|
000021F0: 00 FF 29 68 24 99 22 31 36 30 20 4E 45 58 54 00 |..)h$."160 NEXT.|
00002200: 28 2A 72 24 99 22 11 1C 20 28 12 50 52 45 53 49 |(*r$.".. (.PRESI|
00002210: 4F 4E 45 20 40 92 20 50 41 52 41 20 43 4F 4E 54 |ONE @. PARA CONT|
00002220: 49 4E 55 41 52 29 1F 13 00 3F 2A 7C 24 53 4E 24 |INUAR)...?*|$SN$|
00002230: B2 22 31 30 30 30 30 22 3A 89 36 33 34 30 30 00 |."10000":.63400.|
00002240: 5C 2A 10 27 8D 36 30 30 30 30 3A 99 22 93 1F 4F |\*.'.60000:."..O|
00002250: 4B 2E 2E 53 49 47 41 4D 4F 53 21 22 00 77 2A 11 |K..SIGAMOS!".w*.|
00002260: 27 4D 53 24 B2 22 44 41 4C 45 20 44 41 4C 45 22 |'MS$."DALE DALE"|
00002270: 3A 8D 36 33 31 30 30 00 82 2A 12 27 8D 36 33 30 |:.63100..*.'.630|
00002280: 30 30 00 B5 2A 1A 27 99 22 93 12 1C 20 20 20 20 |00..*.'."... |
00002290: 45 4D 50 45 5A 41 52 45 20 50 4F 52 20 49 4D 50 |EMPEZARE POR IMP|
000022A0: 52 49 4D 49 52 20 4C 41 53 20 42 41 52 52 41 53 |RIMIR LAS BARRAS|
000022B0: 20 20 20 20 22 00 CC 2A 2E 27 99 22 11 1F 31 37 | "..*.'."..17|
000022C0: 30 20 46 4F 52 49 3D 31 54 4F 31 32 00 FC 2A 38 |0 FORI=1TO12..*8|
000022D0: 27 99 22 31 38 30 20 3F 22 C7 28 33 34 29 22 12 |'."180 ?".(34)".|
000022E0: 22 C7 28 33 34 29 22 4D 24 28 49 29 22 C7 28 33 |".(34)"M$(I)".(3|
000022F0: 34 29 22 2D 22 C7 28 33 34 29 22 3B 00 14 2B 42 |4)"-".(34)";..+B|
00002300: 27 99 22 31 39 30 20 4C 24 3D 53 54 52 24 28 56 |'."190 L$=STR$(V|
00002310: 28 49 29 29 00 28 2B 4C 27 99 22 32 30 30 20 4C |(I)).(+L'."200 L|
00002320: 3D 4C 45 4E 28 4C 24 29 00 56 2B 6A 27 99 22 32 |=LEN(L$).V+j'."2|
00002330: 33 30 20 3F 22 C7 28 33 34 29 22 12 22 C7 28 33 |30 ?".(34)".".(3|
00002340: 34 29 22 4C 24 22 C7 28 33 34 29 22 A7 22 C7 28 |4)"L$".(34)".".(|
00002350: 33 34 29 22 3B 22 00 70 2B 74 27 99 22 32 34 30 |34)";".p+t'."240|
00002360: 20 53 3D 56 28 49 29 2A 33 30 2F 4D 41 58 56 22 | S=V(I)*30/MAXV"|
00002370: 00 8D 2B 7E 27 99 22 32 35 30 20 49 53 3D 49 4E |..+~'."250 IS=IN|
00002380: 54 28 53 29 3A 46 53 3D 53 2D 49 53 22 00 B0 2B |T(S):FS=S-IS"..+|
00002390: 88 27 99 22 32 36 30 20 46 4F 52 4A 3D 31 54 4F |.'."260 FORJ=1TO|
000023A0: 49 53 3A 3F 53 24 28 38 29 3B 3A 4E 45 58 54 22 |IS:?S$(8);:NEXT"|
000023B0: 00 C5 2B 92 27 99 22 32 37 30 20 3F 53 24 28 38 |..+.'."270 ?S$(8|
000023C0: 2A 46 53 29 22 00 D5 2B 9C 27 99 22 32 38 30 20 |*FS)"..+.'."280 |
000023D0: 4E 45 58 54 22 00 01 2C A6 27 99 22 11 23 31 38 |NEXT"..,.'.".#18|
000023E0: 30 20 49 4D 50 52 49 4D 45 20 28 45 4E 20 52 56 |0 IMPRIME (EN RV|
000023F0: 53 29 20 45 4C 20 4D 45 53 20 59 20 55 4E 20 2D |S) EL MES Y UN -|
00002400: 2E 00 2F 2C B0 27 99 22 23 31 39 30 2F 32 30 30 |../,.'."#190/200|
00002410: 20 43 4F 4E 56 49 45 52 54 45 20 45 4C 20 56 41 | CONVIERTE EL VA|
00002420: 4C 4F 52 20 56 28 49 29 20 45 4E 20 55 4E 41 00 |LOR V(I) EN UNA.|
00002430: 55 2C BA 27 99 22 20 20 20 20 20 43 41 44 45 4E |U,.'." CADEN|
00002440: 41 20 28 4C 24 29 2C 59 20 44 45 54 45 52 4D 49 |A (L$),Y DETERMI|
00002450: 4E 41 20 4C 41 00 7B 2C C4 27 99 22 20 20 20 20 |NA LA.{,.'." |
00002460: 20 4C 4F 4E 47 49 54 55 44 20 44 45 20 4C 41 20 | LONGITUD DE LA |
00002470: 43 41 44 45 4E 41 20 28 4C 29 2E 00 9B 2C C9 27 |CADENA (L)...,.'|
00002480: 99 22 23 32 33 30 20 49 4D 50 52 49 4D 45 20 4C |."#230 IMPRIME L|
00002490: 24 20 59 20 55 4E 20 12 A7 92 22 00 C9 2C CE 27 |$ Y UN ..."..,.'|
000024A0: 99 22 23 32 34 30 20 52 45 44 55 43 45 20 45 4C |."#240 REDUCE EL|
000024B0: 20 56 41 4C 4F 52 20 44 45 20 4C 41 53 20 56 20 | VALOR DE LAS V |
000024C0: 44 45 20 4D 41 4E 45 52 41 00 ED 2C D8 27 99 22 |DE MANERA..,.'."|
000024D0: 20 20 20 20 20 51 55 45 20 45 4C 20 4D 41 53 20 | QUE EL MAS |
000024E0: 47 52 41 4E 44 45 20 53 45 41 20 33 30 00 19 2D |GRANDE SEA 30..-|
000024F0: E2 27 99 22 20 20 20 20 20 45 4C 20 56 41 4C 4F |.'." EL VALO|
00002500: 52 20 52 45 44 55 43 49 44 4F 20 53 45 20 4C 4C |R REDUCIDO SE LL|
00002510: 41 4D 41 52 41 20 53 2E 22 00 30 2D EC 27 99 22 |AMARA S.".0-.'."|
00002520: 12 54 4F 51 55 45 20 55 4E 41 20 54 45 43 4C 41 |.TOQUE UNA TECLA|
00002530: 00 45 2D F6 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.E-.'.A$:.A$."".|
00002540: 31 30 32 33 30 00 6F 2D 00 28 99 22 11 23 32 35 |10230.o-.(.".#25|
00002550: 30 20 54 4F 4D 41 20 4C 41 20 50 41 52 54 45 20 |0 TOMA LA PARTE |
00002560: 45 4E 54 45 52 41 20 44 45 20 53 28 49 53 29 00 |ENTERA DE S(IS).|
00002570: 91 2D 0A 28 99 22 20 20 20 20 20 59 20 4C 41 20 |.-.(." Y LA |
00002580: 46 52 41 43 43 49 4F 4E 20 44 45 20 53 28 46 53 |FRACCION DE S(FS|
00002590: 29 00 B0 2D 14 28 99 22 23 32 36 30 20 49 4D 50 |)..-.(."#260 IMP|
000025A0: 52 49 4D 45 20 4C 4F 53 20 20 12 20 92 27 53 22 |RIME LOS . .'S"|
000025B0: 00 DE 2D 1E 28 99 22 23 32 37 30 20 49 4D 50 52 |..-.(."#270 IMPR|
000025C0: 49 4D 45 20 4C 41 20 55 4C 54 49 4D 41 20 50 41 |IME LA ULTIMA PA|
000025D0: 52 54 45 20 46 52 41 43 43 49 4F 4E 41 4C 00 FB |RTE FRACCIONAL..|
000025E0: 2D 28 28 99 22 20 20 20 20 20 53 24 28 38 29 2C |-((." S$(8),|
000025F0: 53 24 28 31 29 2E 2E 45 54 43 2E 00 27 2E 32 28 |S$(1)..ETC..'.2(|
00002600: 99 22 20 20 20 20 20 44 45 20 41 43 55 45 52 44 |." DE ACUERD|
00002610: 4F 20 41 4C 20 4C 41 20 44 49 4D 45 4E 53 49 4F |O AL LA DIMENSIO|
00002620: 4E 20 44 45 20 4C 41 00 4B 2E 3C 28 99 22 20 20 |N DE LA.K.<(." |
00002630: 20 20 20 46 52 41 43 43 49 4F 4E 2C 20 45 53 20 | FRACCION, ES |
00002640: 44 45 43 49 52 2C 20 46 53 2E 1C 00 56 2E A0 28 |DECIR, FS...V..(|
00002650: 8D 36 33 30 30 30 00 89 2E B4 28 99 22 93 1C 12 |.63000....(."...|
00002660: 20 20 20 20 20 20 45 4E 54 52 45 20 45 4C 20 50 | ENTRE EL P|
00002670: 52 4F 47 52 41 4D 41 20 50 4F 52 20 46 41 56 4F |ROGRAMA POR FAVO|
00002680: 52 20 20 20 20 20 20 20 22 00 B6 2E BE 28 99 22 |R "....(."|
00002690: 1F 55 53 54 45 44 20 59 41 20 48 41 20 45 4E 54 |.USTED YA HA ENT|
000026A0: 52 41 44 4F 20 4C 41 53 20 49 4E 53 54 52 55 43 |RADO LAS INSTRUC|
000026B0: 43 49 4F 4E 45 53 00 E1 2E C8 28 99 22 23 39 39 |CIONES....(."#99|
000026C0: 2D 23 31 36 30 2E 20 41 48 4F 52 41 20 45 4E 54 |-#160. AHORA ENT|
000026D0: 52 45 20 4C 41 53 20 53 49 47 55 49 45 4E 54 45 |RE LAS SIGUIENTE|
000026E0: 53 00 F4 2E D2 28 99 22 12 45 4E 53 41 59 45 4C |S....(.".ENSAYEL|
000026F0: 41 53 92 21 00 1A 2F DC 28 99 22 11 45 4E 20 50 |AS.!../.(.".EN P|
00002700: 41 52 54 49 43 55 4C 41 52 2C 20 45 53 43 52 49 |ARTICULAR, ESCRI|
00002710: 42 41 20 56 41 4C 4F 52 45 53 00 41 2F E6 28 99 |BA VALORES.A/.(.|
00002720: 22 51 55 45 20 54 49 45 4E 45 4E 20 4C 4F 4E 47 |"QUE TIENEN LONG|
00002730: 49 54 55 44 45 53 20 44 49 46 45 52 45 4E 54 45 |ITUDES DIFERENTE|
00002740: 53 00 58 2F F0 28 99 22 43 4F 4D 4F 20 31 32 33 |S.X/.(."COMO 123|
00002750: 20 59 20 31 32 33 34 2E 00 91 2F FA 28 99 22 11 | Y 1234.../.(.".|
00002760: 41 53 49 20 56 45 52 41 20 55 53 54 45 44 20 51 |ASI VERA USTED Q|
00002770: 55 45 20 54 4F 44 41 56 49 41 20 54 45 4E 45 4D |UE TODAVIA TENEM|
00002780: 4F 53 22 3A 99 22 54 52 41 42 41 4A 4F 3A 20 22 |OS":."TRABAJO: "|
00002790: 3B 00 AD 2F 04 29 99 22 90 45 4A 45 43 55 54 45 |;../.).".EJECUTE|
000027A0: 20 45 4C 20 50 52 4F 47 52 41 4D 41 1F 00 DF 2F | EL PROGRAMA.../|
000027B0: 68 29 99 22 11 12 20 20 20 20 20 20 20 20 20 20 |h).".. |
000027C0: 54 52 41 54 45 20 44 45 20 41 52 52 45 47 4C 41 |TRATE DE ARREGLA|
000027D0: 52 4C 4F 21 20 20 20 20 20 20 20 20 20 20 22 00 |RLO! ".|
000027E0: 09 30 86 29 99 22 11 11 11 11 11 11 11 11 12 52 |.0.).".........R|
000027F0: 45 54 55 52 4E 92 20 50 41 52 41 20 45 4C 20 50 |ETURN. PARA EL P|
00002800: 52 4F 47 52 41 4D 41 22 3B 00 14 30 8F 29 8D 36 |ROGRAMA";..0.).6|
00002810: 33 30 30 31 00 38 30 9A 29 99 22 93 48 45 20 41 |3001.80.).".HE A|
00002820: 51 55 49 20 44 45 20 4E 55 45 56 4F 20 45 4C 20 |QUI DE NUEVO EL |
00002830: 50 52 4F 47 52 41 4D 41 00 48 30 A4 29 81 49 B2 |PROGRAMA.H0.).I.|
00002840: 31 A4 31 35 30 30 3A 82 00 51 30 F8 2A 99 22 93 |1.1500:..Q0.*.".|
00002850: 22 00 68 30 16 2B 99 3A 99 22 31 37 30 20 46 4F |".h0.+.:."170 FO|
00002860: 52 49 3D 31 54 4F 31 32 00 98 30 20 2B 99 22 31 |RI=1TO12..0 +."1|
00002870: 38 30 20 3F 22 C7 28 33 34 29 22 12 22 C7 28 33 |80 ?".(34)".".(3|
00002880: 34 29 22 4D 24 28 49 29 22 C7 28 33 34 29 22 2D |4)"M$(I)".(34)"-|
00002890: 22 C7 28 33 34 29 22 3B 00 B0 30 2A 2B 99 22 31 |".(34)";..0*+."1|
000028A0: 39 30 20 4C 24 3D 53 54 52 24 28 56 28 49 29 29 |90 L$=STR$(V(I))|
000028B0: 00 C4 30 34 2B 99 22 32 30 30 20 4C 3D 4C 45 4E |..04+."200 L=LEN|
000028C0: 28 4C 24 29 00 F2 30 52 2B 99 22 32 33 30 20 3F |(L$)..0R+."230 ?|
000028D0: 22 C7 28 33 34 29 22 12 22 C7 28 33 34 29 22 4C |".(34)".".(34)"L|
000028E0: 24 22 C7 28 33 34 29 22 A7 22 C7 28 33 34 29 22 |$".(34)".".(34)"|
000028F0: 3B 22 00 0B 31 5C 2B 99 22 32 34 30 20 53 3D 56 |;"..1\+."240 S=V|
00002900: 28 49 29 2A 33 30 2F 4D 41 58 56 00 27 31 66 2B |(I)*30/MAXV.'1f+|
00002910: 99 22 32 35 30 20 49 53 3D 49 4E 54 28 53 29 3A |."250 IS=INT(S):|
00002920: 46 53 3D 53 2D 49 53 00 49 31 70 2B 99 22 32 36 |FS=S-IS.I1p+."26|
00002930: 30 20 46 4F 52 4A 3D 31 54 4F 49 53 3A 3F 53 24 |0 FORJ=1TOIS:?S$|
00002940: 28 38 29 3B 3A 4E 45 58 54 00 5D 31 7A 2B 99 22 |(8);:NEXT.]1z+."|
00002950: 32 37 30 20 3F 53 24 28 38 2A 46 53 29 00 6C 31 |270 ?S$(8*FS).l1|
00002960: 84 2B 99 22 32 38 30 20 4E 45 58 54 00 96 31 8E |.+."280 NEXT..1.|
00002970: 2B 99 22 11 1C 20 28 50 52 45 53 49 4F 4E 45 20 |+.".. (PRESIONE |
00002980: 12 40 92 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 |.@. PARA CONTINU|
00002990: 41 52 29 13 11 22 00 AD 31 98 2B 53 4E 24 B2 22 |AR).."..1.+SN$."|
000029A0: 31 32 30 30 30 22 3A 89 36 33 34 30 30 00 D4 31 |12000":.63400..1|
000029B0: E0 2E 8D 36 30 30 30 30 3A 99 22 93 22 3A 20 20 |...60000:.".": |
000029C0: 4D 53 24 B2 22 54 52 41 42 41 4A 45 22 3A 8D 36 |MS$."TRABAJE":.6|
000029D0: 33 31 30 30 00 08 32 E5 2E 99 22 93 1C 12 20 20 |3100..2..."... |
000029E0: 41 48 4F 52 41 20 55 53 54 45 44 20 50 55 45 44 |AHORA USTED PUED|
000029F0: 45 20 56 45 52 20 4C 41 20 49 4D 50 4F 52 54 41 |E VER LA IMPORTA|
00002A00: 4E 43 49 41 20 20 22 3B 00 38 32 EA 2E 99 22 20 |NCIA ";.82..." |
00002A10: 20 20 20 20 44 45 20 4C 41 20 4C 4F 4E 47 49 54 | DE LA LONGIT|
00002A20: 55 44 20 44 45 20 4C 4F 53 20 56 41 4C 4F 52 45 |UD DE LOS VALORE|
00002A30: 53 20 20 20 20 20 20 22 00 4E 32 EF 2E 99 22 1F |S ".N2...".|
00002A40: 59 20 45 53 20 50 4F 52 20 45 53 54 4F 22 00 6F |Y ES POR ESTO".o|
00002A50: 32 F4 2E 99 22 51 55 45 20 4C 45 20 48 45 20 50 |2..."QUE LE HE P|
00002A60: 45 44 49 44 4F 20 49 4E 43 4C 55 49 52 3A 22 00 |EDIDO INCLUIR:".|
00002A70: 88 32 FE 2E 99 22 11 31 39 30 4C 24 3D 53 54 52 |.2...".190L$=STR|
00002A80: 24 28 56 28 49 29 29 22 00 9C 32 08 2F 99 22 32 |$(V(I))"..2./."2|
00002A90: 30 30 4C 3D 4C 45 4E 28 4C 24 29 22 00 CE 32 12 |00L=LEN(L$)"..2.|
00002AA0: 2F 99 22 11 12 20 20 20 59 20 45 4C 20 50 52 4F |/.".. Y EL PRO|
00002AB0: 47 52 41 4D 41 20 4E 4F 20 4C 4F 53 20 48 41 20 |GRAMA NO LOS HA |
00002AC0: 55 54 49 4C 49 5A 41 44 4F 21 20 20 20 22 00 DE |UTILIZADO! "..|
00002AD0: 32 1C 2F 99 22 11 41 48 4F 52 41 2E 2E 2E 00 05 |2./.".AHORA.....|
00002AE0: 33 21 2F 99 22 56 41 4D 4F 53 20 41 20 45 53 43 |3!/."VAMOS A ESC|
00002AF0: 52 49 42 49 52 20 23 32 31 30 20 59 20 23 32 32 |RIBIR #210 Y #22|
00002B00: 30 3A 22 3A 99 00 20 33 26 2F 99 22 11 32 31 30 |0:":.. 3&/.".210|
00002B10: 20 49 46 20 4C 3D 4D 4C 20 47 4F 54 4F 32 33 30 | IF L=ML GOTO230|
00002B20: 00 44 33 30 2F 99 22 32 32 30 20 46 4F 52 4A 3D |.D30/."220 FORJ=|
00002B30: 31 54 4F 4D 4C 2D 4C 3A 3F 53 24 28 38 29 3B 3A |1TOML-L:?S$(8);:|
00002B40: 4E 45 58 54 00 72 33 3A 2F 99 22 32 33 30 20 3F |NEXT.r3:/."230 ?|
00002B50: 22 C7 28 33 34 29 22 12 22 C7 28 33 34 29 22 4C |".(34)".".(34)"L|
00002B60: 24 22 C7 28 33 34 29 22 A7 22 C7 28 33 34 29 22 |$".(34)".".(34)"|
00002B70: 3B 22 00 8B 33 44 2F 99 22 32 34 30 20 53 3D 56 |;"..3D/."240 S=V|
00002B80: 28 49 29 2A 33 30 2F 4D 41 58 56 00 96 33 4E 2F |(I)*30/MAXV..3N/|
00002B90: 99 22 45 54 43 2E 00 C7 33 58 2F 99 22 12 20 20 |."ETC...3X/.". |
00002BA0: 20 20 20 20 20 20 20 20 20 50 52 45 53 49 4F 4E | PRESION|
00002BB0: 45 20 55 4E 41 20 54 45 43 4C 41 20 20 20 20 20 |E UNA TECLA |
00002BC0: 20 20 20 20 20 20 22 00 DC 33 62 2F A1 41 24 3A | "..3b/.A$:|
00002BD0: 8B 41 24 B2 22 22 A7 31 32 31 33 30 00 08 34 6C |.A$."".12130..4l|
00002BE0: 2F 99 22 11 53 49 20 45 4C 20 56 41 4C 4F 52 20 |/.".SI EL VALOR |
00002BF0: 41 20 49 4D 50 52 49 4D 49 52 20 53 45 52 41 20 |A IMPRIMIR SERA |
00002C00: 12 1C 43 4F 52 54 4F 22 00 2B 34 76 2F 99 22 1F |..CORTO".+4v/.".|
00002C10: 49 4E 53 45 52 54 41 52 45 4D 4F 53 20 41 4C 47 |INSERTAREMOS ALG|
00002C20: 55 4E 4F 53 20 12 20 92 27 53 2E 00 5E 34 94 2F |UNOS . .'S..^4./|
00002C30: 99 22 11 23 32 32 30 20 49 4E 53 45 52 54 41 20 |.".#220 INSERTA |
00002C40: 45 53 54 4F 53 20 12 20 92 27 53 20 41 4E 54 45 |ESTOS . .'S ANTE|
00002C50: 53 20 44 45 20 49 4D 50 52 49 4D 49 52 22 00 74 |S DE IMPRIMIR".t|
00002C60: 34 9E 2F 99 22 91 20 20 20 20 20 45 4C 20 56 41 |4./.". EL VA|
00002C70: 4C 4F 52 2E 00 A3 34 A8 2F 99 22 1C 11 53 49 20 |LOR...4./."..SI |
00002C80: 45 4C 20 56 41 4C 4F 52 20 41 20 49 4D 50 52 49 |EL VALOR A IMPRI|
00002C90: 4D 49 52 20 45 53 20 45 4C 20 51 55 45 20 54 49 |MIR ES EL QUE TI|
00002CA0: 45 4E 45 00 DE 34 B2 2F 99 22 4C 41 20 4D 41 59 |ENE..4./."LA MAY|
00002CB0: 4F 52 20 4C 4F 4E 47 49 54 55 44 20 28 4C 3D 4D |OR LONGITUD (L=M|
00002CC0: 4C 29 20 4F 4D 49 54 49 52 45 4D 4F 53 22 3A 99 |L) OMITIREMOS":.|
00002CD0: 22 4C 4F 53 20 12 20 92 27 53 2E 1F 11 22 00 E9 |"LOS . .'S..."..|
00002CE0: 34 BC 2F 8D 36 33 30 30 30 00 1C 35 C6 2F 99 22 |4./.63000..5./."|
00002CF0: 93 12 1C 20 46 49 4E 41 4C 4D 45 4E 54 45 2C 44 |... FINALMENTE,D|
00002D00: 45 4E 54 52 4F 20 44 45 20 55 4E 20 42 55 43 4C |ENTRO DE UN BUCL|
00002D10: 45 20 46 4F 52 2D 4E 45 58 54 20 22 00 4A 35 D0 |E FOR-NEXT ".J5.|
00002D20: 2F 99 22 1F 59 4F 20 4F 42 45 44 45 5A 43 4F 20 |/.".YO OBEDEZCO |
00002D30: 53 49 45 4D 50 52 45 20 4C 41 53 20 49 4E 53 54 |SIEMPRE LAS INST|
00002D40: 52 55 43 43 49 4F 4E 45 53 22 00 8A 35 DA 2F 99 |RUCCIONES"..5./.|
00002D50: 22 45 4E 54 52 45 20 45 4C 20 22 C7 28 33 34 29 |"ENTRE EL ".(34)|
00002D60: 22 46 4F 52 22 C7 28 33 34 29 22 20 59 20 45 4C |"FOR".(34)" Y EL|
00002D70: 20 22 C7 28 33 34 29 22 4E 45 58 54 20 50 4F 52 | ".(34)"NEXT POR|
00002D80: 20 4C 4F 20 4D 45 4E 4F 53 22 00 B1 35 E4 2F 99 | LO MENOS"..5./.|
00002D90: 22 55 4E 41 20 56 45 5A 20 41 4E 54 45 53 20 44 |"UNA VEZ ANTES D|
00002DA0: 45 20 43 4F 4D 50 52 4F 42 41 52 20 53 49 20 48 |E COMPROBAR SI H|
00002DB0: 45 00 CB 35 EE 2F 99 22 54 45 52 4D 49 4E 41 44 |E..5./."TERMINAD|
00002DC0: 4F 20 45 4C 20 42 55 43 4C 45 21 00 F9 35 F8 2F |O EL BUCLE!..5./|
00002DD0: 99 22 11 45 53 20 44 45 43 49 52 2C 20 51 55 45 |.".ES DECIR, QUE|
00002DE0: 20 44 45 4E 54 52 4F 20 44 45 20 55 4E 20 42 55 | DENTRO DE UN BU|
00002DF0: 43 4C 45 20 43 4F 4D 4F 3A 00 14 36 02 30 99 22 |CLE COMO:..6.0."|
00002E00: 11 12 20 32 36 30 20 46 4F 52 20 4A 3D 31 20 54 |.. 260 FOR J=1 T|
00002E10: 4F 20 49 53 00 3D 36 0C 30 99 3A 99 22 4F 42 45 |O IS.=6.0.:."OBE|
00002E20: 44 45 43 45 52 45 20 4C 41 20 49 4E 53 54 52 55 |DECERE LA INSTRU|
00002E30: 43 43 49 4F 4E 20 55 4E 41 20 56 45 5A 00 5B 36 |CCION UNA VEZ.[6|
00002E40: 16 30 99 22 41 55 4E 51 55 45 20 12 49 53 92 20 |.0."AUNQUE .IS. |
00002E50: 53 45 41 20 43 45 52 4F 28 21 29 00 89 36 20 30 |SEA CERO(!)..6 0|
00002E60: 99 22 50 4F 52 20 4C 4F 20 54 41 4E 54 4F 20 45 |."POR LO TANTO E|
00002E70: 53 20 50 52 45 43 49 53 4F 20 43 4F 4D 50 52 4F |S PRECISO COMPRO|
00002E80: 42 41 52 3A 20 49 53 3D 30 00 A7 36 2A 30 99 22 |BAR: IS=0..6*0."|
00002E90: 11 12 32 35 35 20 49 46 20 49 53 3D 30 20 47 4F |..255 IF IS=0 GO|
00002EA0: 20 54 4F 20 32 37 30 00 D3 36 34 30 99 22 11 41 | TO 270..640.".A|
00002EB0: 53 49 20 45 4E 20 45 4C 20 23 32 37 30 2C 20 53 |SI EN EL #270, S|
00002EC0: 45 20 49 4D 50 52 49 4D 45 20 53 4F 4C 41 4D 45 |E IMPRIME SOLAME|
00002ED0: 4E 54 45 00 F9 36 3E 30 99 22 4C 41 20 50 41 52 |NTE..6>0."LA PAR|
00002EE0: 54 45 20 50 52 4F 50 4F 52 43 49 4F 4E 41 4C 20 |TE PROPORCIONAL |
00002EF0: 44 45 20 53 24 28 38 29 2E 00 04 37 48 30 8D 36 |DE S$(8)...7H0.6|
00002F00: 33 30 30 30 00 43 37 52 30 99 22 93 12 1C 20 20 |3000.C7R0."... |
00002F10: 20 20 20 20 45 4C 20 50 52 4F 44 55 43 54 4F 20 | EL PRODUCTO |
00002F20: 22 C7 28 33 34 29 22 54 45 52 4D 49 4E 41 44 4F |".(34)"TERMINADO|
00002F30: 22 C7 28 33 34 29 22 20 45 53 3A 20 20 20 20 20 |".(34)" ES: |
00002F40: 20 20 22 00 5A 37 E6 32 99 22 11 1F 31 37 30 20 | ".Z7.2."..170 |
00002F50: 46 4F 52 49 3D 31 54 4F 31 32 00 8A 37 F0 32 99 |FORI=1TO12..7.2.|
00002F60: 22 31 38 30 20 3F 22 C7 28 33 34 29 22 12 22 C7 |"180 ?".(34)".".|
00002F70: 28 33 34 29 22 4D 24 28 49 29 22 C7 28 33 34 29 |(34)"M$(I)".(34)|
00002F80: 22 2D 22 C7 28 33 34 29 22 3B 00 A2 37 FA 32 99 |"-".(34)";..7.2.|
00002F90: 22 31 39 30 20 4C 24 3D 53 54 52 24 28 56 28 49 |"190 L$=STR$(V(I|
00002FA0: 29 29 00 B6 37 04 33 99 22 32 30 30 20 4C 3D 4C |))..7.3."200 L=L|
00002FB0: 45 4E 28 4C 24 29 00 D0 37 05 33 99 22 32 31 30 |EN(L$)..7.3."210|
00002FC0: 20 49 46 20 4C 3D 4D 4C 20 47 4F 54 4F 32 33 30 | IF L=ML GOTO230|
00002FD0: 00 F4 37 06 33 99 22 32 32 30 20 46 4F 52 4A 3D |..7.3."220 FORJ=|
00002FE0: 31 54 4F 4D 4C 2D 4C 3A 3F 53 24 28 38 29 3B 3A |1TOML-L:?S$(8);:|
00002FF0: 4E 45 58 54 00 23 38 22 33 99 22 32 33 30 20 3F |NEXT.#8"3."230 ?|
00003000: 22 C7 28 33 34 29 22 12 22 C7 28 33 34 29 22 4C |".(34)".".(34)"L|
00003010: 24 22 C7 28 33 34 29 22 A7 22 C7 28 33 34 29 22 |$".(34)".".(34)"|
00003020: 3B 22 3B 00 39 38 23 33 99 C7 28 33 34 29 22 92 |;";.98#3..(34)".|
00003030: 22 C7 28 33 34 29 22 3B 22 00 52 38 2C 33 99 22 |".(34)";".R8,3."|
00003040: 32 34 30 20 53 3D 56 28 49 29 2A 33 30 2F 4D 41 |240 S=V(I)*30/MA|
00003050: 58 56 00 6E 38 36 33 99 22 32 35 30 20 49 53 3D |XV.n863."250 IS=|
00003060: 49 4E 54 28 53 29 3A 46 53 3D 53 2D 49 53 00 86 |INT(S):FS=S-IS..|
00003070: 38 3B 33 99 22 32 35 35 20 49 46 49 53 3D 30 47 |8;3."255 IFIS=0G|
00003080: 4F 54 4F 32 37 30 00 A8 38 40 33 99 22 32 36 30 |OTO270..8@3."260|
00003090: 20 46 4F 52 4A 3D 31 54 4F 49 53 3A 3F 53 24 28 | FORJ=1TOIS:?S$(|
000030A0: 38 29 3B 3A 4E 45 58 54 00 BD 38 4A 33 99 22 32 |8);:NEXT..8J3."2|
000030B0: 37 30 20 3F 53 24 28 38 2A 46 53 29 22 00 CC 38 |70 ?S$(8*FS)"..8|
000030C0: 54 33 99 22 32 38 30 20 4E 45 58 54 00 E9 38 56 |T3."280 NEXT..8V|
000030D0: 33 99 22 05 3F 22 C7 28 33 34 29 22 93 22 C7 28 |3.".?".(34)".".(|
000030E0: 33 34 29 22 3A 52 55 4E 1F 00 14 39 59 33 99 22 |34)":RUN...9Y3."|
000030F0: 11 28 48 45 20 49 4E 43 4C 55 49 44 4F 20 55 4E |.(HE INCLUIDO UN|
00003100: 20 52 56 53 2D 4F 46 46 20 45 4E 20 45 4C 20 23 | RVS-OFF EN EL #|
00003110: 32 33 30 29 00 41 39 5E 33 99 3A 99 22 11 1C 45 |230).A9^3.:."..E|
00003120: 4E 54 52 45 20 4C 41 53 20 49 4E 53 54 52 55 43 |NTRE LAS INSTRUC|
00003130: 43 49 4F 4E 45 53 20 59 20 12 45 4E 53 41 59 45 |CIONES Y .ENSAYE|
00003140: 22 00 6B 39 68 33 99 22 11 20 50 52 45 53 49 4F |".k9h3.". PRESIO|
00003150: 4E 45 20 12 40 92 20 50 41 52 41 20 43 4F 4E 54 |NE .@. PARA CONT|
00003160: 49 4E 55 41 52 2E 1F 13 11 11 22 00 82 39 72 33 |INUAR....."..9r3|
00003170: 53 4E 24 B2 22 31 35 30 30 30 22 3A 89 36 33 34 |SN$."15000":.634|
00003180: 30 30 00 A9 39 98 3A 8D 36 30 30 30 30 3A 99 22 |00..9.:.60000:."|
00003190: 93 22 3A 4D 53 24 B2 22 46 55 4E 43 49 4F 4E 41 |.":MS$."FUNCIONA|
000031A0: 21 22 3A 8D 36 33 31 30 30 00 B4 39 2E 3B 8D 36 |!":.63100..9.;.6|
000031B0: 33 30 30 30 00 DF 39 3D 3B 99 22 93 22 3A 4D 53 |3000..9=;.".":MS|
000031C0: 24 B2 22 12 1C 20 20 41 44 49 4F 53 21 20 20 92 |$.".. ADIOS! .|
000031D0: 22 3A 8D 36 33 31 30 30 3A 8D 36 33 35 30 30 00 |":.63100:.63500.|
000031E0: F5 39 42 3B 81 49 B2 31 A4 35 3A 8D 36 33 36 35 |.9B;.I.1.5:.6365|
000031F0: 30 3A 82 3A 80 00 00 3A 40 5B 8D 36 33 30 30 30 |0:.:...:@[.63000|
00003200: 00 09 3A 78 E6 99 22 93 22 00 33 3A 82 E6 99 22 |..:x..".".3:..."|
00003210: 13 1F 11 D1 44 55 52 41 4E 54 45 20 4C 41 20 4C |....DURANTE LA L|
00003220: 45 43 43 49 4F 4E 20 50 4F 44 52 41 20 55 53 54 |ECCION PODRA UST|
00003230: 45 44 22 00 5A 3A 83 E6 99 22 20 45 4E 53 41 59 |ED".Z:..." ENSAY|
00003240: 41 52 20 4C 41 53 20 49 4E 53 54 52 55 43 43 49 |AR LAS INSTRUCCI|
00003250: 4F 4E 45 53 20 59 20 4C 4F 53 00 84 3A 84 E6 99 |ONES Y LOS..:...|
00003260: 22 20 50 52 4F 47 52 41 4D 41 53 20 45 53 43 52 |" PROGRAMAS ESCR|
00003270: 49 54 4F 53 20 45 4E 20 4C 41 20 50 41 4E 54 41 |ITOS EN LA PANTA|
00003280: 4C 4C 41 2E 00 AD 3A 8C E6 99 22 11 D1 54 41 4D |LLA...:..."..TAM|
00003290: 42 49 45 4E 20 50 4F 44 52 41 20 55 53 54 45 44 |BIEN PODRA USTED|
000032A0: 20 45 53 43 52 49 42 49 52 20 53 55 53 00 D4 3A | ESCRIBIR SUS..:|
000032B0: 91 E6 99 22 20 50 52 4F 50 49 4F 53 20 50 52 4F |..." PROPIOS PRO|
000032C0: 47 52 41 4D 41 53 20 59 20 45 4A 45 43 55 54 41 |GRAMAS Y EJECUTA|
000032D0: 52 4C 4F 53 00 F9 3A 93 E6 99 22 20 45 53 43 52 |RLOS..:..." ESCR|
000032E0: 49 42 49 45 4E 44 4F 20 27 52 55 4E 27 20 28 2B |IBIENDO 'RUN' (+|
000032F0: 20 52 45 54 55 52 4E 29 2E 00 28 3B 96 E6 99 22 | RETURN)..(;..."|
00003300: 11 D1 45 53 54 4F 20 45 53 20 50 4F 53 49 42 4C |..ESTO ES POSIBL|
00003310: 45 20 50 4F 52 51 55 45 20 48 45 4D 4F 53 1C 20 |E PORQUE HEMOS. |
00003320: 44 49 56 49 44 49 44 4F 00 4C 3B 98 E6 99 22 20 |DIVIDIDO.L;..." |
00003330: 1F 4C 41 20 4D 45 4D 4F 52 49 41 20 44 45 4C 20 |.LA MEMORIA DEL |
00003340: 43 2D 36 34 20 45 4E 20 44 4F 53 3A 00 6F 3B 99 |C-64 EN DOS:.o;.|
00003350: E6 99 22 20 55 4E 41 20 50 41 52 54 45 20 50 41 |.." UNA PARTE PA|
00003360: 52 41 20 45 4C 20 50 52 4F 47 52 41 4D 41 2C 00 |RA EL PROGRAMA,.|
00003370: 93 3B 9A E6 99 22 20 4C 41 20 4F 54 52 41 20 50 |.;..." LA OTRA P|
00003380: 41 52 41 20 53 55 53 20 45 4A 45 52 43 49 43 49 |ARA SUS EJERCICI|
00003390: 4F 53 2E 00 BB 3B A0 E6 99 22 11 D1 41 4C 20 50 |OS...;..."..AL P|
000033A0: 52 45 53 49 4F 4E 41 52 20 12 1C 20 4C 41 20 54 |RESIONAR .. LA T|
000033B0: 45 43 4C 41 20 40 20 1F 92 2C 22 00 E5 3B A5 E6 |ECLA @ ..,"..;..|
000033C0: 99 22 20 55 53 54 45 44 20 56 4F 4C 56 45 52 41 |." USTED VOLVERA|
000033D0: 20 41 4C 20 50 52 4F 47 52 41 4D 41 20 54 55 54 | AL PROGRAMA TUT|
000033E0: 4F 52 49 41 4C 00 10 3C AA E6 99 22 11 D1 1C 41 |ORIAL..<..."...A|
000033F0: 20 56 45 43 45 53 2C 1F 20 50 52 45 53 49 4F 4E | VECES,. PRESION|
00003400: 41 4E 44 4F 20 4C 41 20 54 45 43 4C 41 20 1C 40 |ANDO LA TECLA .@|
00003410: 00 37 3C B4 E6 99 22 20 1F 50 4F 44 52 41 20 54 |.7<..." .PODRA T|
00003420: 41 4D 42 49 45 4E 20 56 4F 4C 56 45 52 20 55 4E |AMBIEN VOLVER UN|
00003430: 41 20 4F 20 44 4F 53 00 53 3C B9 E6 99 22 20 50 |A O DOS.S<..." P|
00003440: 41 47 49 4E 41 53 20 48 41 43 49 41 20 41 54 52 |AGINAS HACIA ATR|
00003450: 41 53 2E 00 78 3C DC E6 8D 36 33 30 30 30 3A 4D |AS..x<...63000:M|
00003460: 53 24 B2 22 12 40 92 5F 52 45 43 55 45 52 44 45 |S$.".@._RECUERDE|
00003470: 22 3A 8D 36 33 31 30 30 00 85 3C E6 E6 8D 36 33 |":.63100..<...63|
00003480: 30 30 31 3A 8E 00 90 3C 60 EA 97 32 30 34 2C 31 |001:...<`..204,1|
00003490: 00 B2 3C 61 EA 42 54 24 B2 22 13 22 3A 81 49 B2 |..<a.BT$.".":.I.|
000034A0: 31 A4 32 34 3A 42 54 24 B2 42 54 24 AA 22 11 22 |1.24:BT$.BT$."."|
000034B0: 3A 82 00 FC 3C 62 EA 50 54 24 B2 22 1C B0 C0 C0 |:...<b.PT$."....|
000034C0: C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D 9D 9D 9D 9D 9D |................|
000034D0: 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000034E0: 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D AD |................|
000034F0: B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD 22 00 44 3D 63 |...........".D=c|
00003500: EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D |.PT$.PT$."......|
00003510: 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 A3 A3 A3 A3 A3 |................|
00003520: A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003530: 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |......==========|
00003540: 3D 3D A7 22 00 80 3D 64 EA 50 54 24 B2 50 54 24 |==."..=d.PT$.PT$|
00003550: AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |."..............|
00003560: 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 CF 91 |................|
00003570: 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 |..............."|
00003580: 00 B7 3D 65 EA 50 54 24 B2 42 54 24 AA 22 91 91 |..=e.PT$.BT$."..|
00003590: 91 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000035A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA |..............".|
000035B0: 50 54 24 AA 22 90 22 00 E7 3D 67 EA 4D 4C 24 B2 |PT$."."..=g.ML$.|
000035C0: 22 13 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |"...............|
000035D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000035E0: 1D 1D 1D 1D 1D 1D 22 00 02 3E 68 EA 57 44 B2 34 |......"..>h.WD.4|
000035F0: 30 3A 43 52 54 B2 31 30 32 34 3A 99 C7 28 31 34 |0:CRT.1024:..(14|
00003600: 32 29 00 26 3E 69 EA 57 32 B2 57 44 AD 32 3A 57 |2).&>i.W2.WD.2:W|
00003610: 33 B2 57 44 AB 31 3A 57 31 24 B2 CA 28 C4 28 57 |3.WD.1:W1$..(.(W|
00003620: 44 29 2C 32 29 3A 00 48 3E 6A EA 57 32 24 B2 CA |D),2):.H>j.W2$..|
00003630: 28 C4 28 57 32 29 2C 32 29 3A 57 33 24 B2 CA 28 |(.(W2),2):W3$..(|
00003640: C4 28 57 33 29 2C 32 29 00 6A 3E 74 EA 99 22 93 |.(W3),2).j>t..".|
00003650: 22 3A 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 |":.53281,15:.532|
00003660: 38 30 2C 31 32 3A 99 22 90 22 00 98 3E 46 EE 8B |80,12:."."..>F..|
00003670: C2 28 37 38 39 29 B3 B1 37 AC 31 36 AA 31 35 A7 |.(789)..7.16.15.|
00003680: 9E 28 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA |.(7.4096.15.256.|
00003690: 31 32 AC 31 36 AA 33 29 00 9E 3E 47 EE 8E 00 A4 |12.16.3)..>G....|
000036A0: 3E 48 EE 3A 00 BE 3E 49 EE 4D B2 37 AC 34 30 39 |>H.:..>I.M.7.409|
000036B0: 36 AA 31 35 AC 32 35 36 AA 31 35 AC 31 36 00 C4 |6.15.256.15.16..|
000036C0: 3E 4A EE 8C 00 DC 3E 4B EE 81 49 B2 4D A4 4D AA |>J....>K..I.M.M.|
000036D0: 31 35 3A 87 4B 3A 97 49 2C 4B 3A 82 00 F6 3E 4C |15:.K:.I,K:...>L|
000036E0: EE 83 20 31 2C 39 36 2C 33 2C 39 36 2C 33 2C 39 |.. 1,96,3,96,3,9|
000036F0: 36 2C 33 2C 39 36 00 14 3F 4D EE 83 20 31 34 34 |6,3,96..?M.. 144|
00003700: 2C 31 32 37 2C 30 2C 30 2C 31 34 34 2C 31 32 37 |,127,0,0,144,127|
00003710: 2C 30 2C 30 00 31 3F 4E EE 4D B2 36 AC 34 30 39 |,0,0.1?N.M.6.409|
00003720: 36 3A 81 49 B2 30 A4 32 3A 97 4D AA 49 2C 30 3A |6:.I.0.2:.M.I,0:|
00003730: 82 00 37 3F 4F EE 8E 00 79 3F 18 F6 99 22 13 11 |..7?O...y?..."..|
00003740: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003750: 11 11 11 11 11 11 11 50 52 45 53 49 4F 4E 45 20 |.......PRESIONE |
00003760: 12 52 45 54 55 52 4E 92 20 50 41 52 41 20 43 4F |.RETURN. PARA CO|
00003770: 4E 54 49 4E 55 41 52 22 3B 00 8F 3F 19 F6 A1 41 |NTINUAR";..?...A|
00003780: 24 3A 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 |$:.A$.."".63001.|
00003790: A4 3F 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 |.?...A$:.A$."".6|
000037A0: 33 30 30 32 00 AA 3F 1B F6 8E 00 C5 3F 7C F6 8D |3002..?.....?|..|
000037B0: 36 33 36 35 30 3A 81 54 B2 31 A4 35 3A 99 50 54 |63650:.T.1.5:.PT|
000037C0: 24 4D 53 24 3B 00 DB 3F 7D F6 99 50 54 24 22 20 |$MS$;..?}..PT$" |
000037D0: 20 20 20 20 20 20 20 20 20 22 3B 00 EA 3F 7E F6 | ";..?~.|
000037E0: 99 50 54 24 4D 53 24 3B 3A 82 00 F0 3F 7F F6 8E |.PT$MS$;:...?...|
000037F0: 00 15 40 E0 F6 97 35 36 2C 39 36 3A 97 35 32 2C |..@...56,96:.52,|
00003800: 39 36 3A 97 35 35 2C 30 3A 97 35 31 2C 30 3A 8D |96:.55,0:.51,0:.|
00003810: 36 31 30 30 30 00 27 40 E1 F6 57 44 B2 34 30 3A |61000.'@..WD.40:|
00003820: 99 C7 28 31 34 32 29 00 40 40 E2 F6 4D B2 37 AC |..(142).@@..M.7.|
00003830: 34 30 39 36 AA 31 35 AC 32 35 36 AA 39 AC 31 36 |4096.15.256.9.16|
00003840: 00 58 40 E3 F6 81 49 B2 4D A4 4D AA 39 31 3A 87 |.X@...I.M.M.91:.|
00003850: 4B 3A 97 49 2C 4B 3A 82 00 9F 40 E4 F6 83 31 36 |K:.I,K:...@...16|
00003860: 35 2C 32 30 33 2C 32 30 31 2C 34 36 2C 32 30 38 |5,203,201,46,208|
00003870: 2C 38 33 2C 33 32 2C 31 39 35 2C 31 32 37 2C 31 |,83,32,195,127,1|
00003880: 36 35 2C 34 34 2C 32 30 31 2C 38 2C 32 34 30 2C |65,44,201,8,240,|
00003890: 33 2C 33 32 2C 31 37 37 2C 31 32 37 2C 33 32 00 |3,32,177,127,32.|
000038A0: E4 40 E5 F6 83 31 34 32 2C 31 36 36 2C 31 36 35 |.@...142,166,165|
000038B0: 2C 34 34 2C 32 30 31 2C 38 2C 32 34 30 2C 33 2C |,44,201,8,240,3,|
000038C0: 37 36 2C 31 32 38 2C 31 36 34 2C 37 36 2C 31 37 |76,128,164,76,17|
000038D0: 34 2C 31 36 37 2C 31 36 32 2C 31 36 2C 31 38 39 |4,167,162,16,189|
000038E0: 2C 32 33 39 00 2D 41 E6 F6 83 31 32 37 2C 37 32 |,239.-A...127,72|
000038F0: 2C 31 38 31 2C 34 32 2C 31 35 37 2C 32 33 39 2C |,181,42,157,239,|
00003900: 31 32 37 2C 31 30 34 2C 31 34 39 2C 34 32 2C 32 |127,104,149,42,2|
00003910: 30 32 2C 32 30 38 2C 32 34 31 2C 39 36 2C 31 32 |02,208,241,96,12|
00003920: 30 2C 31 37 33 2C 32 33 38 2C 31 32 37 00 72 41 |0,173,238,127.rA|
00003930: E7 F6 83 37 37 2C 32 30 2C 33 2C 31 34 31 2C 32 |...77,20,3,141,2|
00003940: 30 2C 33 2C 31 37 33 2C 32 33 39 2C 31 32 37 2C |0,3,173,239,127,|
00003950: 37 37 2C 32 31 2C 33 2C 31 34 31 2C 32 31 2C 33 |77,21,3,141,21,3|
00003960: 2C 38 38 2C 39 36 2C 31 37 33 2C 32 30 2C 33 2C |,88,96,173,20,3,|
00003970: 37 33 00 B1 41 E8 F6 83 31 34 34 2C 31 34 31 2C |73..A...144,141,|
00003980: 32 33 38 2C 31 32 37 2C 31 37 33 2C 32 31 2C 33 |238,127,173,21,3|
00003990: 2C 37 33 2C 31 32 37 2C 31 34 31 2C 32 33 39 2C |,73,127,141,239,|
000039A0: 31 32 37 2C 39 36 2C 37 36 2C 32 35 35 2C 32 35 |127,96,76,255,25|
000039B0: 35 00 CF 41 F0 F6 97 4D AA 39 30 2C C2 28 37 38 |5..A...M.90,.(78|
000039C0: 38 29 3A 97 4D AA 39 31 2C C2 28 37 38 39 29 00 |8):.M.91,.(789).|
000039D0: ED 41 F4 F6 4B 45 59 B2 37 AC 34 30 39 36 AA 31 |.A..KEY.7.4096.1|
000039E0: 35 AC 32 35 36 AA 31 33 AC 31 36 AA 38 00 F8 41 |5.256.13.16.8..A|
000039F0: F5 F6 9E 28 4B 45 59 29 00 FE 41 43 F7 8E 00 04 |...(KEY)..AC....|
00003A00: 42 44 F7 3A 00 0F 42 45 F7 8D 36 33 36 30 30 00 |BD.:..BE..63600.|
00003A10: 1A 42 46 F7 8D 36 31 30 30 30 00 25 42 47 F7 89 |.BF..61000.%BG..|
00003A20: 36 33 34 30 33 00 2B 42 A8 F7 3A 00 36 42 A9 F7 |63403.+B..:.6B..|
00003A30: 8D 36 33 36 30 30 00 56 42 AB F7 53 57 54 43 48 |.63600.VB..SWTCH|
00003A40: B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 39 |.7.4096.15.256.9|
00003A50: AC 31 36 AA 31 35 00 63 42 AC F7 9E 28 53 57 54 |.16.15.cB...(SWT|
00003A60: 43 48 29 00 70 42 AD F7 97 32 30 34 2C 32 3A 80 |CH).pB...204,2:.|
00003A70: 00 76 42 0C F8 3A 00 8B 42 0D F8 53 4E 24 B2 22 |.vB..:..B..SN$."|
00003A80: 31 30 30 22 3A 8D 36 33 36 30 30 00 BA 42 0E F8 |100":.63600..B..|
00003A90: 4D B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA |M.7.4096.15.256.|
00003AA0: 31 32 AC 31 36 AA 33 3A 8B C2 28 37 38 39 29 B2 |12.16.3:..(789).|
00003AB0: 37 AC 31 36 AA 31 35 A7 9E 4D 00 C0 42 0F F8 8E |7.16.15..M..B...|
00003AC0: 00 C6 42 70 F8 3A 00 E1 42 71 F8 4D B2 32 30 35 |..Bp.:..Bq.M.205|
00003AD0: 39 3A 53 4E 24 B2 22 30 30 30 30 30 22 AA 53 4E |9:SN$."00000".SN|
00003AE0: 24 00 01 43 72 F8 81 49 B2 31 A4 35 3A 97 4D AB |$..Cr..I.1.5:.M.|
00003AF0: 49 2C C6 28 C9 28 53 4E 24 2C 49 29 29 3A 82 3A |I,.(.(SN$,I)):.:|
00003B00: 8E 00 38 43 A2 F8 97 35 34 32 39 36 2C 31 35 3A |..8C...54296,15:|
00003B10: 97 35 34 32 37 38 2C 32 34 30 3A 97 35 34 32 37 |.54278,240:.5427|
00003B20: 36 2C 31 37 3A 97 35 34 32 37 33 2C 31 30 30 AA |6,17:.54273,100.|
00003B30: 31 30 30 AC BB 28 30 29 00 5C 43 A4 F8 81 49 58 |100..(0).\C...IX|
00003B40: B2 31 A4 31 30 30 3A 82 3A 97 35 34 32 37 33 2C |.1.100:.:.54273,|
00003B50: 30 3A 97 35 34 32 39 36 2C 30 3A 8E 00 8A 43 D4 |0:.54296,0:...C.|
00003B60: F8 97 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 |..54296,15:.5427|
00003B70: 38 2C 32 34 30 3A 97 35 34 32 37 36 2C 31 37 3A |8,240:.54276,17:|
00003B80: 97 35 34 32 37 33 2C 31 34 31 00 9F 43 D5 F8 A1 |.54273,141..C...|
00003B90: 58 24 3A 8B 58 24 B2 22 22 A7 36 33 37 30 31 00 |X$:.X$."".63701.|
00003BA0: D3 43 D6 F8 97 35 34 32 37 33 2C 30 3A 99 22 93 |.C...54273,0:.".|
00003BB0: 53 41 56 45 22 C7 28 33 34 29 22 42 41 53 49 43 |SAVE".(34)"BASIC|
00003BC0: 20 32 22 C7 28 33 34 29 22 3A 47 4F 54 4F 36 33 | 2".(34)":GOTO63|
00003BD0: 37 30 30 00 00 00 05 |700.... |
.......00100......".......4...."......SO
FT LAKE 1985.A....".......].... SAVE"BAS
IC.3 ES.J2",8.~.D..53281,15:.53280,12:."
.":."....E.."...........................
............."...F..". .. ALL BLA
CK SOFTWARE .. .":MS$."BASIC III
".#.G.."...............................
..........".@.H.SN$."1000":.63200:.63600
.Y.I..60000:.63100:.59000._...:......"..
. MANIPULACION DE CADENAS
".B...."..RECORDEMOS.:TODAS LAS VARIABL
ES CON UN"......"NOMBRE QUE TERMINA CON
$ SE INTERPRETA"...$.."COMO UNA CADENA D
E SIMBOLOS, Y NO COMO".A...."UN VALOR O
UNA INSTRUCCION.".E.B.."..A$="G(34)"123*
456/789"G(34)...L.."..SIGNIFICA:. A$ ES
UN CONJUNTO DE SIMBOLOS".E.`.."(POR SUPU
ESTO YO NO VOY A EVALUAR A$)....O.."..
".
..T..".AQUI HAY UN LINDO CONJUNTO".:.~..
".. . . . ... ... ... . .".@.....N...."L
ES LLAMAREMOS ASI: S$(1),S$(2),.,S$(8).Y
....63000......"... NOSOTROS ESC
RIBIREMOS: ".E....".10 S$(1)="G(
34)"......."20 S$(2)="G(34)"....D.."30 S
$(3)="G(34)"....N.."40 S$(4)="G(34)"..'.
S.."50 S$(5)="G(34)"....A.X.."60 S$(6)="
G(34)"....[...."70 S$(7)="G(34)"....U...
."80 S$(8)="G(34)". ......."
^ESTE ES UN RVS-OFF......"RARO?.Q...."LO
S PRIMEROS 4 ESTAN EN EL TECLADO"......"
LOS ULTIMOS 4 SE OBTIENEN CON .RVS.#....
"LOS CARACTERES.....> .,.,., Y ".0...
..32)"^".F.(...29)".ESTE ES UN.].2...29)
".ESPACIO ".{.<.."..VEA QUE HEMOS CERR
ADO...F.."EL RVS CON EL RVS OFF!...P.."
. ...........Z.."TAMPOCO NO T
ENEMOS NECESIDAD DE LAS":."ULTIMAS COMIL
LAS.";.(.D.." YO COMPRENDERE":."QUE "G(3
4)"RETURN"G(34);.G.N.." TERMINA LA INSTR
UCCION..T.X..:.63000......"... ENTRE AH
ORA LAS INSTRUCCIONES #10-80 ......."US
TED PUEDE DESPLAZAR EL CURSOR HACIA... .
."EL # 10, PRESIONAR RETURN 8 VECES Y YO
......"PENSARE QUE USTED LAS HA ESCRITO.
"."....".10 S$(1)="G(34)"..:...."20 S$(2
)="G(34)"..R...."30 S$(3)="G(34)"..J....
"40 S$(4)="G(34)"......."50 S$(5)="G(34)
"........"60 S$(6)="G(34)"........"70 S$
(7)="G(34)"...P...."80 S$(8)="G(34)". ."
..."..".DESPUES DE HACERLO,.ESCRIBA:. LI
ST10-80.,.6.."....PARA ESTAR SEGURO QUE
YO LAS TENGO.[.@..:.". (PARA CONTINUAR .
PRESIONE @.)......".R...SN$."02000":.634
00.}.P..60000...Q..D$(12),V(12).C.V.D$(1
)."ENE":D$(2)."FEB":D$(3)."MAR":D$(4)."A
BR"...W.D$(5)."MAY":D$(6)."JUN":D$(7)."J
UL":D$(8)."AGO"...X.D$(9)."SEP":D$(10)."
OCT":D$(11)."NOV":D$(12)."DEC".B.>.V(1).
10:V(2).15:V(3).20:V(4).25:V(5).30:V(6).
31...H.V(7).25:V(8).20:V(9).15:V(10).12:
V(11).11:V(12).10...R..I.1.12:.".."D$(I)
"-"D(V(I))".";.U.\..J.1.V(I):.". ";:....
F..S$(8.(V(I)..(V(I)))):....P..I.1.500:.
...Z..:." LINDO?.!...I.1.500:..8....:
." ENSAYEMOSLO!.G....I.1.500:..N...."PR
IMERO DEFINIREMOS LAS CADENAS:.T........
.."M$(1)="G(34)"ENE"G(34)......"M$(2)="G
(34)"FEB"G(34).......B...."..ETC.".M....
63000...J.."... PARA DEMOSTRARLE OT
RO DE MIS ";.1...." TALENTOS, H
AREMOS LO SIGUIENTE: ..I....:."100 DA
TA "G(34)"ENE"G(34)","G(34)"FEB"G(34)","
;......G(34)"MAR"G(34)","G(34)"ABR"G(34)
","G(34)"MAY"G(34).X...."101 DATA "G(34)
"JUN"G(34)","G(34)"JUL"G(34)",";......G(
34)"AGO"G(34)","G(34)"SEP"G(34)","G(34)"
OCT"G(34).C...."102 DATA "G(34)"NOV"G(34
)","G(34)"DEC"G(34).{....:."ESTAS INSTRU
CCIONES "G(34)"DATA"G(34)" DEFINEN"...8.
."UN NUMERO DE CADENAS, LLAMADAS ENE,
FEB, MAR, ABR, ETC.".T.L..".AHORA ESCR
IBA:...V..:.".103 FORI=1TO12:READ M$(I):
NEXT".9.`..:."LA ORDEN .."G(34)"READ"G(3
4)".. LEE LA INFORMACION".O.E.."DATA Y A
SIGNA:".}.J..".LA CADENA "G(34)"ENE"G(34
)" AL M$(1),"...T.."LA CADENA "G(34)"FEB
"G(34)" AL M$(2),"...U.."LA CADENA "G(34
)"MAR"G(34)" AL M$(3)..ETC."...Y..63000.
..~.."..USTED DEBE INFORMARME CUANTOS DE
ESTOS.?....".M$(1),M$(2),ETC. TIENE UST
ED PARA.G....".RESERVARLES LUGAR EN MI M
EMORIA......."..
".I....".PARA AQUELLO SE
UTILIZA LA INSTRUCCION:"......"..90 DIM
M$(12)"......"...
".F....".QUE SIGNIFICA
..LA DIMENSION.. DE LA MATRIZ.R....".DE
CADENAS LLAMADA M$(I) ES .. 12 ...}.D..
63000...X.."... CASI TERMINAMO
S! "......I.1.500:......."..
.90 DIM M$(12) "......
".100 DATA ENE,FEB,MAR,ABR,MAY,JUN".<.(.
.".101 DATA JUL,AGO,SEP,OCT,NOV,DEC".E.2
..".102 FORI=1TO12:READ M$(I):NEXT "...
<.."..NOTE..........:SI .TODAS. LAS DATA
SON CADENAS".F.A..".USTED PUEDE OMITIR
LAS COMILLAS!"...F.."...(NO ENTRE TODAVI
A LAS INSTRUCCIONES)."...P..63000.5.Z.."
... HAY QUE ENTRAR LOS 12 VALORES QUE
";.E.D.." DAN EL LARGO DE LAS BA
RRAS "...I.."..USAMOS PARA ESTO L
A INSTRUCCION .INPUT.":."DENTRO DE UN BU
CLE".I.X.."..105 FOR I=1TO12 "......"
.110?"G(34)"VALOR "G(34)"M$(I) "......"
.120 INPUT V(I) ".;....:."NOTE QUE #
110 VA IMPRIMIR UN MENSAJE".N....".COMO
ESTE:".F....:."..VALOR ENE=?.".Q....6300
0......"...
".T...."..SI SE DA UN VALOR D
E 150 S$(8)=. . Y LA... .."PANTALLA ES E
N REALIDAD DE 40 COLUMNAS.+...."ES NECES
ARIO BUSCAR EL VALOR MAXIMO.M...."Y REDU
CIRLO PARA IMPRIMIRLO.F...."PROPORCIONAL
MENTE....M.."..
.".F.R..".COMO VE UD.VAMO
S A IMPRIMIR UNA BARRA......"DE LARGO PR
OPORCIONAL A CADA INPUT......."HAREMOS E
STO IMPRIMIENDO UN CIERTO.5...."NUMERO D
E . ._ ESTOS..P....".QUE SE LLAMAN S$(8)
.{....". SE ACUERDA UST
ED?......63000......"... VAMOS
A ESCRIBIR: ".L....".104 MAX
V=0"...".."130 IF MAXV<V(I) THEN MAXV=V(
I)"...,..I.1.1000:..5.6..".. TE
NDREMOS ENTONCES ".G.;..".104
MAXV=0.].@.."105 FOR I=1TO12...J.."110?
"G(34)"VALOR "G(34)" M$(I)...T.."120 INP
UT V(I)......"130 IF MAXV<V(I) THEN MAXV
=V(I)......"... TOQUE UNA TECL
A "......A$:.A$."".2961.2..
..".VERIFICAREMOS SI MAXV (0 EN SU ORIGE
N).X...."ES MENOR QUE EL VALOR DE INPUT.
......"..SI ESTA CONDICION SE CUMPLE MAX
V......"TOMA EL VALOR V..S....".UNA VEZ
TERMINADO EL BUCLE "G(34)"FOR-NEXT"G(34)
" "...B.."MAXV SERA IGUAL AL VALOR MAXIM
O...L.."DE LOS VALORES-V!...Q..63000.O.V
.."... SI UN VALOR ES , POR EJEMPLO, 123
456.7 ".|....".NECESITARE 8 ESPACIOS PAR
A IMPRIMIRLO......".Y ES NECESARIO QUE L
O SEPA....T...."... POR LO TA
NTO ".. ...".MIENTRAS UD.
EFECTUA EL INPUT DE LAS 'V'":.".Y BUSCA
";.* ..." SU VALOR MAXIMO,.X ...".USTED
PODRA ENCONTRAR TAMBIEN LA MAYOR.. ...".
.LONGITUD.. DE LOS NUMEROS V(I)... ...
63000.. &.."..PRIMERO VAMOS A CAMBIAR EL
NUMERO V(I).. 0.."
. .........!:.."POR UNA CADENA DE S
IMBOLOS,. !D.." . .......".C!N.."S
I DEFINIMOS: X$=STR$(V(I))".S!B..".PODEM
OS ENCONTRAR LA ..LONGITUD.. DE X$"..!C.
.".CON LA ORDEN..!L.."...L=LEN(X$).."..!
Q..63000..!V.."... ESCRIBAMO
S: ".."..."..140 X$=STR$(
V(I)):L=LEN(X$)".."...I.1.1000:..."...".
...O PORQUE NO ASI?..".N"..."...140 L=LE
N(STR$(V(I)))".Z"..."..NOTE QUE .STR$(V)
. CAMBIA UN NUMERO.."..."A UNA CADENA DE
CARACTERES!.F"..."...Y QUE .LEN(V$). DA
LA LONGITUD ".."..."DE LA CADENA V$!"..
#..."..
".D#..."PARA ENCONTRAR LA MAYOR "
G(34)"LONGITUD"G(34).F#..."DE LOS VALORE
S 'V' ESCRIBA:..#F.."...150 IF ML<L THEN
ML=L..#P.."..(SIMILAR A LA BUSQUEDA DE
MAX)..#Z..63000..#..."...TERMINEMOS ENTO
NCES EL BUCLE FOR-NEXT!"..$...".........
.. ........".($..."..1
60 NEXT".3$...63000.F$..."... NO
SOTROS HEMOS HECHO: ".U$...I.1.
500:...$...".90 DIM M$(12),V(12)..$..."1
00 DATA ENE,FEB,MAR,ABR,MAY,JUN..$H.."10
1 DATA JUL,AGO,SEP,OCT,NOV,DEC..$..."102
FORI=1TO12:READ M$(I)..%..."104 MAXV=0:
ML=0.*%..."105 FOR I=1TO12.T%".."110 PRI
NT"G(34)"VALOR "G(34)" M$(I).I%,.."120 I
NPUT V(I)..%B.."130 IF MAXV<V(I) THEN MA
XV=V(I)..%>.."140 L=LEN(STR$(V(I))).G%H.
."150 IF ML<L THEN ML=L.V%..."160 NEXT..
%...:."NOTE QUE SE HA INCORPORADO LA.)&.
.."DIMENSION DE LOS VALORES V, EN EL #90
..Y&...".NOTE TAMBIEN QUE HABEMOS INICIA
LIZADO ML..&...".(LA MAXIMA LONGITUD DE
LAS V'S)..&..."CON EL VALOR 0...EN EL #1
04...&J..63000..&T.."... OK..ENTREMOS
ESTAS INSTRUCCIONES "..'...".ESCRIBA
.RUN. PARA EMPEZAR EL PROGRAMA.;'..."..
DESPUES DE HABER ENTRADO 12 VALORES.B'..
."DE INPUT, USTED PUEDE PREGUNTAR:.O'...
".?V(3)..'...".Y YO IMPRIMIRE EL VALOR E
NTRADO DE MARZO.S'B..".... TOQ
UE UNA TECLA "..'C..A$:.A$.
"".7491..'V.."..RECUERDE.$([..".USTED NO
TIENE NECESIDAD DE ESCRIBIR.R(`.."TODO
ESTO. UN MONTON DE RETURNS BASTARA..(O..
:."(Y YO VOY A PENSAR QUE UD. LO ESCRIBI
O)..(T..63000..(~.."..";..(Z!."90 DIM M$
(12),V(12)".Z(.!."100 DATA ENE,FEB,MAR,A
BR,MAY,JUN..).!."101 DATA JUL,AGO,SEP,OC
T,NOV,DEC.').!:."102 FORI=1TO12:READ M$(
I):NEXT.=).!."104 MAXV=0:ML=0.S).!."105
FOR I=1TO12.}).!."110 PRINT"G(34)"VALOR
"G(34)" M$(I)..).!."120 INPUT V(I)..).".
"130 IF MAXV<V(I) THEN MAXV=V(I).T).$."1
40 L=LEN(STR$(V(I)))..).$."150 IF ML<L T
HEN ML=L..)H$."160 NEXT.(*R$.".. (.PRESI
ONE @. PARA CONTINUAR)...?*|$SN$."10000"
:.63400.\*.'.60000:."..OK..SIGAMOS!".W*.
'MS$."DALE DALE":.63100..*.'.63000..*.'.
"... EMPEZARE POR IMPRIMIR LAS BARRAS
".L*.'."..170 FORI=1TO12..*8'."180 ?
"G(34)"."G(34)"M$(I)"G(34)"-"G(34)";..+B
'."190 L$=STR$(V(I)).(+L'."200 L=LEN(L$)
.V+J'."230 ?"G(34)"."G(34)"L$"G(34)"."G(
34)";".P+T'."240 S=V(I)*30/MAXV"..+~'."2
50 IS=INT(S):FS=S-IS"..+.'."260 FORJ=1TO
IS:?S$(8);:NEXT".E+.'."270 ?S$(8*FS)".U+
.'."280 NEXT"..,.'.".#180 IMPRIME (EN RV
S) EL MES Y UN -../,.'."#190/200 CONVIER
TE EL VALOR V(I) EN UNA.U,.'." CADEN
A (L$),Y DETERMINA LA.{,D'." LONGITU
D DE LA CADENA (L)...,I'."#230 IMPRIME L
$ Y UN ...".I,N'."#240 REDUCE EL VALOR D
E LAS V DE MANERA..,X'." QUE EL MAS
GRANDE SEA 30..-.'." EL VALOR REDUCI
DO SE LLAMARA S.".0-.'.".TOQUE UNA TECLA
.E-.'.A$:.A$."".10230.O-.(.".#250 TOMA L
A PARTE ENTERA DE S(IS)..-.(." Y LA
FRACCION DE S(FS)..-.(."#260 IMPRIME LOS
. .'S"..-.(."#270 IMPRIME LA ULTIMA PA
RTE FRACCIONAL..-((." S$(8),S$(1)..E
TC..'.2(." DE ACUERDO AL LA DIMENSIO
N DE LA.K.<(." FRACCION, ES DECIR, F
S...V. (.63000....(."... ENTRE EL P
ROGRAMA POR FAVOR "....(.".USTED Y
A HA ENTRADO LAS INSTRUCCIONES...H(."#99
-#160. AHORA ENTRE LAS SIGUIENTES...R(."
.ENSAYELAS.!../.(.".EN PARTICULAR, ESCRI
BA VALORES.A/.(."QUE TIENEN LONGITUDES D
IFERENTES.X/.(."COMO 123 Y 1234.../.(.".
ASI VERA USTED QUE TODAVIA TENEMOS":."TR
ABAJO: ";../.).".EJECUTE EL PROGRAMA.../
H).".. TRATE DE ARREGLARLO!
"..0.).".........RETURN. PARA EL P
ROGRAMA";..0.).63001.80.).".HE AQUI DE N
UEVO EL PROGRAMA.H0.).I.1.1500:..Q0.*.".
".H0.+.:."170 FORI=1TO12..0 +."180 ?"G(3
4)"."G(34)"M$(I)"G(34)"-"G(34)";..0*+."1
90 L$=STR$(V(I)).D04+."200 L=LEN(L$)..0R
+."230 ?"G(34)"."G(34)"L$"G(34)"."G(34)"
;"..1\+."240 S=V(I)*30/MAXV.'1F+."250 IS
=INT(S):FS=S-IS.I1P+."260 FORJ=1TOIS:?S$
(8);:NEXT.]1Z+."270 ?S$(8*FS).L1.+."280
NEXT..1.+.".. (PRESIONE .@. PARA CONTINU
AR).."..1.+SN$."12000":.63400.T1...60000
:.".": MS$."TRABAJE":.63100..2..."...
AHORA USTED PUEDE VER LA IMPORTANCIA ";
.82..." DE LA LONGITUD DE LOS VALORE
S ".N2...".Y ES POR ESTO".O2..."QUE
LE HE PEDIDO INCLUIR:"..2...".190L$=STR
$(V(I))"..2./."200L=LEN(L$)".N2./."..
Y EL PROGRAMA NO LOS HA UTILIZADO! "..
2./.".AHORA.....3!/."VAMOS A ESCRIBIR #2
10 Y #220:":.. 3&/.".210 IF L=ML GOTO230
.D30/."220 FORJ=1TOML-L:?S$(8);:NEXT.R3:
/."230 ?"G(34)"."G(34)"L$"G(34)"."G(34)"
;"..3D/."240 S=V(I)*30/MAXV..3N/."ETC..G
3X/.". PRESIONE UNA TECLA
"..3B/.A$:.A$."".12130..4L/.".SI E
L VALOR A IMPRIMIR SERA ..CORTO".+4V/.".
INSERTAREMOS ALGUNOS . .'S..^4./.".#220
INSERTA ESTOS . .'S ANTES DE IMPRIMIR".T
4./.". EL VALOR...4./."..SI EL VALOR
A IMPRIMIR ES EL QUE TIENE..4./."LA MAY
OR LONGITUD (L=ML) OMITIREMOS":."LOS . .
'S..."..4./.63000..5F/."... FINALMENTE,D
ENTRO DE UN BUCLE FOR-NEXT ".J5P/.".YO O
BEDEZCO SIEMPRE LAS INSTRUCCIONES"..5Z/.
"ENTRE EL "G(34)"FOR"G(34)" Y EL "G(34)"
NEXT POR LO MENOS"..5./."UNA VEZ ANTES D
E COMPROBAR SI HE.K5./."TERMINADO EL BUC
LE!..5./.".ES DECIR, QUE DENTRO DE UN BU
CLE COMO:..6.0.".. 260 FOR J=1 TO IS.=6.
0.:."OBEDECERE LA INSTRUCCION UNA VEZ.[6
.0."AUNQUE .IS. SEA CERO(!)..6 0."POR LO
TANTO ES PRECISO COMPROBAR: IS=0..6*0."
..255 IF IS=0 GO TO 270.S640.".ASI EN EL
#270, SE IMPRIME SOLAMENTE..6>0."LA PAR
TE PROPORCIONAL DE S$(8)...7H0.63000.C7R
0."... EL PRODUCTO "G(34)"TERMINADO
"G(34)" ES: ".Z7.2."..170 FORI=1TO
12..7.2."180 ?"G(34)"."G(34)"M$(I)"G(34)
"-"G(34)";..7.2."190 L$=STR$(V(I))..7.3.
"200 L=LEN(L$).P7.3."210 IF L=ML GOTO230
..7.3."220 FORJ=1TOML-L:?S$(8);:NEXT.#8"
3."230 ?"G(34)"."G(34)"L$"G(34)"."G(34)"
;";.98#3.G(34)"."G(34)";".R8,3."240 S=V(
I)*30/MAXV.N863."250 IS=INT(S):FS=S-IS..
8;3."255 IFIS=0GOTO270..8@3."260 FORJ=1T
OIS:?S$(8);:NEXT..8J3."270 ?S$(8*FS)".L8
T3."280 NEXT..8V3.".?"G(34)"."G(34)":RUN
...9Y3.".(HE INCLUIDO UN RVS-OFF EN EL #
230).A9^3.:."..ENTRE LAS INSTRUCCIONES Y
.ENSAYE".K9H3.". PRESIONE .@. PARA CONT
INUAR....."..9R3SN$."15000":.63400..9.:.
60000:.".":MS$."FUNCIONA!":.63100..9.;.6
3000..9=;.".":MS$.".. ADIOS! .":.63100
:.63500..9B;.I.1.5:.63650:.:...:@[.63000
..:X..".".3:..."...QDURANTE LA LECCION P
ODRA USTED".Z:..." ENSAYAR LAS INSTRUCCI
ONES Y LOS..:..." PROGRAMAS ESCRITOS EN
LA PANTALLA...:...".QTAMBIEN PODRA USTED
ESCRIBIR SUS.T:..." PROPIOS PROGRAMAS Y
EJECUTARLOS..:..." ESCRIBIENDO 'RUN' (+
RETURN)..(;...".QESTO ES POSIBLE PORQUE
HEMOS. DIVIDIDO.L;..." .LA MEMORIA DEL
C-64 EN DOS:.O;..." UNA PARTE PARA EL PR
OGRAMA,..;..." LA OTRA PARA SUS EJERCICI
OS...; ..".QAL PRESIONAR .. LA TECLA @ .
.,"..;..." USTED VOLVERA AL PROGRAMA TUT
ORIAL..<...".Q.A VECES,. PRESIONANDO LA
TECLA .@.7<..." .PODRA TAMBIEN VOLVER UN
A O DOS.S<..." PAGINAS HACIA ATRAS..X<..
.63000:MS$.".@._RECUERDE":.63100..<...63
001:...<`..204,1..<A.BT$.".":.I.1.24:BT$
.BT$.".":...<B.PT$."....................
........................................
...".D=C.PT$.PT$."..............N.......
.....M................============."..=D
.PT$.PT$."...............PO..........PO.
..............."..=E.PT$.BT$."..........
......................".PT$."."..=G.ML$.
".....................................".
.>H.WD.40:CRT.1024:.G(142).&>I.W2.WD.2:W
3.WD.1:W1$.J(D(WD),2):.H>J.W2$.J(D(W2),2
):W3$.J(D(W3),2).J>T..".":.53281,15:.532
80,12:."."..>F..B(789)..7.16.15..(7.4096
.15.256.12.16.3)..>G....>H.:..>I.M.7.409
6.15.256.15.16.D>J....>K..I.M.M.15:.K:.I
,K:...>L.. 1,96,3,96,3,96,3,96..?M.. 144
,127,0,0,144,127,0,0.1?N.M.6.4096:.I.0.2
:.M.I,0:..7?O...Y?..."..................
.......PRESIONE .RETURN. PARA CONTINUAR"
;..?...A$:.A$.."".63001..?...A$:.A$."".6
3002..?....E?|..63650:.T.1.5:.PT$MS$;..?
}..PT$" ";..?~..PT$MS$;:...?..
..@...56,96:.52,96:.55,0:.51,0:.61000.'@
..WD.40:.G(142).@@..M.7.4096.15.256.9.16
.X@...I.M.M.91:.K:.I,K:...@...165,203,20
1,46,208,83,32,195,127,165,44,201,8,240,
3,32,177,127,32..@...142,166,165,44,201,
8,240,3,76,128,164,76,174,167,162,16,189
,239.-A...127,72,181,42,157,239,127,104,
149,42,202,208,241,96,120,173,238,127.RA
...77,20,3,141,20,3,173,239,127,77,21,3,
141,21,3,88,96,173,20,3,73..A...144,141,
238,127,173,21,3,73,127,141,239,127,96,7
6,255,255.OA...M.90,B(788):.M.91,B(789).
.A..KEY.7.4096.15.256.13.16.8..A...(KEY)
..AC....BD.:..BE..63600..BF..61000.%BG..
63403.+B..:.6B...63600.VB..SWTCH.7.4096.
15.256.9.16.15.CB...(SWTCH).PB...204,2:.
.VB..:..B..SN$."100":.63600..B..M.7.4096
.15.256.12.16.3:.B(789).7.16.15..M..B...
.FBP.:..BQ.M.2059:SN$."00000".SN$..CR..I
.1.5:.M.I,F(I(SN$,I)):.:..8C...54296,15:
.54278,240:.54276,17:.54273,100.100..(0)
.\C...IX.1.100:.:.54273,0:.54296,0:...CT
..54296,15:.54278,240:.54276,17:.54273,1
41..CU..X$:.X$."".63701.SCV..54273,0:.".
SAVE"G(34)"BASIC 2"G(34)":GOTO63700....
> CLICK IMAGE PREVIEW FOR FULL MODAL