TELEFONO
FILE INFORMATION
FILENAME(S): TELEFONO
FILE TYPE(S): PRG
FILE SIZE: 12K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
b4c5c0fbd79f573ae13aec59e411a1e3b56639a318e3bded5bb0daf40a17db51
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | TELEFONO | PRG | Bugjam - Argentina | 2 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..#.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 00 45 08 6E 00 8F 20 2A 2A 2A 20 49 4E |***.E.n.. *** IN|
00000030: 44 49 43 45 20 44 45 20 54 45 4C 45 46 4F 4E 4F |DICE DE TELEFONO|
00000040: 53 20 2A 2A 2A 00 67 08 78 00 8F 20 2A 2A 2A 2A |S ***.g.x.. ****|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 00 81 08 82 00 8F 20 50 4F |*******...... PO|
00000070: 52 20 46 52 41 4E 43 49 53 43 4F 20 41 47 4F 54 |R FRANCISCO AGOT|
00000080: 45 00 A5 08 8C 00 8F 20 41 44 41 50 54 41 44 4F |E...... ADAPTADO|
00000090: 20 50 41 52 41 20 4C 41 20 43 4F 4D 4D 4F 44 4F | PARA LA COMMODO|
000000A0: 52 45 20 36 34 00 C6 08 96 00 8F 20 53 41 4E 20 |RE 64...... SAN |
000000B0: 49 53 49 44 52 4F 2C 20 4A 55 4C 49 4F 20 44 45 |ISIDRO, JULIO DE|
000000C0: 20 31 39 38 35 2E 00 D0 08 A0 00 8D 39 30 30 30 | 1985.......9000|
000000D0: 00 E3 08 AA 00 8F 20 50 52 45 53 45 4E 54 41 43 |...... PRESENTAC|
000000E0: 49 4F 4E 00 0A 09 B4 00 99 22 93 11 11 22 A6 38 |ION......"...".8|
000000F0: 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 |)"* INDICE DE TE|
00000100: 4C 45 46 4F 4E 4F 53 20 2A 22 00 37 09 BE 00 99 |LEFONOS *".7....|
00000110: 22 11 11 1D 53 45 4C 45 43 43 49 4F 4E 45 20 45 |"...SELECCIONE E|
00000120: 4C 20 4E 55 4D 45 52 4F 20 44 45 20 53 55 20 4F |L NUMERO DE SU O|
00000130: 50 43 49 4F 4E 3A 22 00 6A 09 C8 00 99 22 11 11 |PCION:".j...."..|
00000140: 11 1D 31 2E 20 45 4E 54 52 41 52 20 44 41 54 4F |..1. ENTRAR DATO|
00000150: 53 28 50 4F 52 20 54 45 43 4C 41 44 4F 20 4F 20 |S(POR TECLADO O |
00000160: 45 58 54 45 52 49 4F 52 29 22 00 85 09 D2 00 99 |EXTERIOR)"......|
00000170: 22 1D 32 2E 20 42 55 53 43 41 52 20 55 4E 20 44 |".2. BUSCAR UN D|
00000180: 41 54 4F 2E 22 00 A4 09 DC 00 99 22 11 1D 33 2E |ATO."......"..3.|
00000190: 20 4D 4F 44 49 46 49 43 41 52 20 55 4E 20 44 41 | MODIFICAR UN DA|
000001A0: 54 4F 2E 22 00 D3 09 E6 00 99 22 11 1D 34 2E 20 |TO."......"..4. |
000001B0: 4C 49 53 54 41 52 20 45 4C 20 49 4E 44 49 43 45 |LISTAR EL INDICE|
000001C0: 20 45 4E 20 55 4E 41 20 49 4D 50 52 45 53 4F 52 | EN UNA IMPRESOR|
000001D0: 41 2E 22 00 FB 09 F0 00 99 22 11 1D 35 2E 20 47 |A."......"..5. G|
000001E0: 52 41 42 41 52 20 4C 4F 53 20 44 41 54 4F 53 20 |RABAR LOS DATOS |
000001F0: 59 20 45 53 43 41 50 41 52 2E 22 00 12 0A FA 00 |Y ESCAPAR.".....|
00000200: 99 22 11 11 11 1D 53 55 20 4F 50 43 49 4F 4E 3A |."....SU OPCION:|
00000210: 22 3B 00 25 0A 04 01 A1 41 24 3A 8B 41 24 B2 22 |";.%....A$:.A$."|
00000220: 22 A7 32 36 30 00 40 0A 0E 01 8B C6 28 41 24 29 |".260.@.....(A$)|
00000230: B3 34 39 B0 C6 28 41 24 29 B1 35 33 A7 32 36 30 |.49..(A$).53.260|
00000240: 00 48 0A 18 01 99 41 24 00 57 0A 22 01 81 47 B2 |.H....A$.W."..G.|
00000250: 31 A4 33 30 30 3A 82 00 63 0A 2C 01 41 B2 C5 28 |1.300:..c.,.A..(|
00000260: 41 24 29 00 83 0A 36 01 91 41 8D 31 30 30 30 2C |A$)...6..A.1000,|
00000270: 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 |2000,3000,4000,5|
00000280: 30 30 30 00 8D 0A 40 01 89 20 31 37 30 00 A0 0A |000...@.. 170...|
00000290: E8 03 8F 20 45 4E 54 52 41 52 20 44 41 54 4F 53 |... ENTRAR DATOS|
000002A0: 00 C7 0A F2 03 99 22 93 11 11 22 A6 38 29 22 2A |......"...".8)"*|
000002B0: 20 49 4E 44 49 43 45 20 44 45 20 54 45 4C 45 46 | INDICE DE TELEF|
000002C0: 4F 4E 4F 53 20 2A 22 00 E9 0A FC 03 99 A6 38 29 |ONOS *".......8)|
000002D0: 22 2A 20 20 45 4E 54 52 41 44 41 20 20 44 45 20 |"* ENTRADA DE |
000002E0: 44 41 54 4F 53 20 20 2A 22 00 16 0B 06 04 99 22 |DATOS *"......"|
000002F0: 11 11 1D 53 45 4C 45 43 43 49 4F 4E 45 20 45 4C |...SELECCIONE EL|
00000300: 20 4E 55 4D 45 52 4F 20 44 45 20 53 55 20 4F 50 | NUMERO DE SU OP|
00000310: 43 49 4F 4E 3A 22 00 3E 0B 10 04 99 22 11 11 11 |CION:".>...."...|
00000320: 1D 31 2E 20 45 4E 54 52 41 52 20 44 41 54 4F 53 |.1. ENTRAR DATOS|
00000330: 20 50 4F 52 20 54 45 43 4C 41 44 4F 2E 22 00 67 | POR TECLADO.".g|
00000340: 0B 1A 04 99 22 11 1D 32 2E 20 45 4E 54 52 41 52 |...."..2. ENTRAR|
00000350: 20 44 41 54 4F 53 20 50 4F 52 20 44 41 54 41 53 | DATOS POR DATAS|
00000360: 53 45 54 54 45 2E 22 00 90 0B 24 04 99 22 11 1D |SETTE."...$.."..|
00000370: 33 2E 20 45 4E 54 52 41 52 20 44 41 54 4F 53 20 |3. ENTRAR DATOS |
00000380: 50 4F 52 20 44 49 53 4B 2D 44 52 49 56 45 2E 22 |POR DISK-DRIVE."|
00000390: 00 B9 0B 2E 04 99 22 11 1D 34 2E 20 45 4E 54 52 |......"..4. ENTR|
000003A0: 41 52 20 44 41 54 4F 53 20 50 4F 52 20 4F 54 52 |AR DATOS POR OTR|
000003B0: 4F 20 4D 45 44 49 4F 2E 22 00 DF 0B 38 04 99 22 |O MEDIO."...8.."|
000003C0: 11 1D 35 2E 20 56 4F 4C 56 45 52 20 41 4C 20 4D |..5. VOLVER AL M|
000003D0: 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 2E 22 00 |ENU PRINCIPAL.".|
000003E0: F5 0B 42 04 99 22 11 11 1D 53 55 20 4F 50 43 49 |..B.."...SU OPCI|
000003F0: 4F 4E 3A 22 3B 00 09 0C 4C 04 A1 41 24 3A 8B 41 |ON:";...L..A$:.A|
00000400: 24 B2 22 22 A7 31 31 30 30 00 25 0C 56 04 8B C6 |$."".1100.%.V...|
00000410: 28 41 24 29 B3 34 39 B0 C6 28 41 24 29 B1 35 33 |(A$).49..(A$).53|
00000420: A7 31 31 30 30 00 2D 0C 60 04 99 41 24 00 3C 0C |.1100.-.`..A$.<.|
00000430: 6A 04 81 47 B2 31 A4 33 30 30 3A 82 00 48 0C 74 |j..G.1.300:..H.t|
00000440: 04 41 B2 C5 28 41 24 29 00 68 0C 7E 04 91 41 8D |.A..(A$).h.~..A.|
00000450: 31 31 37 30 2C 31 33 36 30 2C 31 35 30 30 2C 31 |1170,1360,1500,1|
00000460: 36 38 30 2C 31 31 36 30 00 6E 0C 88 04 8E 00 95 |680,1160.n......|
00000470: 0C 92 04 99 22 93 11 11 22 A6 38 29 22 2A 20 49 |...."...".8)"* I|
00000480: 4E 44 49 43 45 20 44 45 20 54 45 4C 45 46 4F 4E |NDICE DE TELEFON|
00000490: 4F 53 20 2A 22 00 B7 0C 97 04 99 A6 38 29 22 2A |OS *".......8)"*|
000004A0: 20 20 45 4E 54 52 41 44 41 20 20 44 45 20 44 41 | ENTRADA DE DA|
000004B0: 54 4F 53 20 20 2A 22 00 E7 0C 9C 04 99 22 11 11 |TOS *"......"..|
000004C0: 1D 50 4F 52 20 46 41 56 4F 52 2C 20 54 45 43 4C |.POR FAVOR, TECL|
000004D0: 45 45 20 4C 4F 53 20 44 41 54 4F 53 20 41 20 45 |EE LOS DATOS A E|
000004E0: 4E 54 52 41 52 3A 22 00 02 0D A1 04 99 22 11 11 |NTRAR:"......"..|
000004F0: 11 1D 41 50 45 4C 4C 2E 59 20 4E 4F 4D 42 52 45 |..APELL.Y NOMBRE|
00000500: 3A 22 00 15 0D A6 04 99 22 11 1D 54 45 4C 45 46 |:"......"..TELEF|
00000510: 4F 4E 4F 3A 22 00 2C 0D AB 04 99 22 11 1D 43 41 |ONO:".,...."..CA|
00000520: 4C 4C 45 20 59 20 4E 52 4F 2E 3A 22 00 41 0D B0 |LLE Y NRO.:".A..|
00000530: 04 99 22 11 1D 43 4F 44 2E 50 4F 53 54 41 4C 3A |.."..COD.POSTAL:|
00000540: 22 00 52 0D B5 04 99 22 11 1D 43 49 55 44 41 44 |".R...."..CIUDAD|
00000550: 3A 22 00 5C 0D BA 04 45 44 25 B2 30 00 79 0D BF |:".\...ED%.0.y..|
00000560: 04 52 25 B2 31 30 3A 43 25 B2 31 36 3A 4C 4E 25 |.R%.10:C%.16:LN%|
00000570: B2 32 33 3A 8D 38 30 30 30 00 89 0D C4 04 46 24 |.23:.8000.....F$|
00000580: 28 30 2C 43 29 B2 43 43 24 00 97 0D C9 04 8B 45 |(0,C).CC$......E|
00000590: 44 25 A7 31 32 38 35 00 B4 0D CE 04 52 25 B2 31 |D%.1285.....R%.1|
000005A0: 32 3A 43 25 B2 31 31 3A 4C 4E 25 B2 31 30 3A 8D |2:C%.11:LN%.10:.|
000005B0: 38 30 30 30 00 C4 0D D3 04 46 24 28 31 2C 43 29 |8000.....F$(1,C)|
000005C0: B2 43 43 24 00 D2 0D D8 04 8B 45 44 25 A7 31 32 |.CC$......ED%.12|
000005D0: 38 35 00 EF 0D DD 04 52 25 B2 31 34 3A 43 25 B2 |85.....R%.14:C%.|
000005E0: 31 35 3A 4C 4E 25 B2 32 33 3A 8D 38 30 30 30 00 |15:LN%.23:.8000.|
000005F0: FF 0D E2 04 46 24 28 32 2C 43 29 B2 43 43 24 00 |....F$(2,C).CC$.|
00000600: 0D 0E E7 04 8B 45 44 25 A7 31 32 38 35 00 29 0E |.....ED%.1285.).|
00000610: EC 04 52 25 B2 31 36 3A 43 25 B2 31 33 3A 4C 4E |..R%.16:C%.13:LN|
00000620: 25 B2 35 3A 8D 38 30 30 30 00 39 0E F1 04 46 24 |%.5:.8000.9...F$|
00000630: 28 33 2C 43 29 B2 43 43 24 00 47 0E F6 04 8B 45 |(3,C).CC$.G....E|
00000640: 44 25 A7 31 32 38 35 00 63 0E FB 04 52 25 B2 31 |D%.1285.c...R%.1|
00000650: 38 3A 43 25 B2 39 3A 4C 4E 25 B2 31 32 3A 8D 38 |8:C%.9:LN%.12:.8|
00000660: 30 30 30 00 73 0E 00 05 46 24 28 34 2C 43 29 B2 |000.s...F$(4,C).|
00000670: 43 43 24 00 7E 0E 05 05 45 44 25 B2 AB 31 00 93 |CC$.~...ED%..1..|
00000680: 0E 0A 05 52 25 B2 32 30 3A 43 25 B2 30 3A 8D 38 |...R%.20:C%.0:.8|
00000690: 32 30 30 00 C8 0E 0F 05 51 24 B2 22 11 1D 44 45 |200.....Q$."..DE|
000006A0: 53 45 41 20 4D 4F 44 49 46 49 43 41 52 20 41 4C |SEA MODIFICAR AL|
000006B0: 47 55 4E 20 44 41 54 4F 3F 28 53 2F 4E 29 20 20 |GUN DATO?(S/N) |
000006C0: 9D 22 3A 8D 38 33 30 30 00 DC 0E 14 05 8B 43 24 |.":.8300......C$|
000006D0: B2 22 4E 22 A7 43 B2 43 AA 31 3A 8E 00 FB 0E 19 |."N".C.C.1:.....|
000006E0: 05 51 24 B2 22 11 1D 51 55 45 20 4C 49 4E 45 41 |.Q$."..QUE LINEA|
000006F0: 3F 28 31 2D 35 29 3A 20 20 9D 22 00 1D 0F 1E 05 |?(1-5): .".....|
00000700: 52 25 B2 32 32 3A 4C 4E 25 B2 30 3A 4C 4F 25 B2 |R%.22:LN%.0:LO%.|
00000710: 31 3A 48 49 25 B2 35 3A 8D 38 35 30 30 00 3F 0F |1:HI%.5:.8500.?.|
00000720: 23 05 91 4E 4D 25 89 31 32 31 35 2C 31 32 33 30 |#..NM%.1215,1230|
00000730: 2C 31 32 34 35 2C 31 32 36 30 2C 31 32 37 35 00 |,1245,1260,1275.|
00000740: 61 0F 50 05 8F 20 45 4E 54 52 41 52 20 44 41 54 |a.P.. ENTRAR DAT|
00000750: 4F 53 20 50 4F 52 20 44 41 54 41 53 53 45 54 54 |OS POR DATASSETT|
00000760: 45 00 88 0F 5A 05 99 22 93 11 11 22 A6 38 29 22 |E...Z.."...".8)"|
00000770: 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 4C 45 |* INDICE DE TELE|
00000780: 46 4F 4E 4F 53 20 2A 22 00 AA 0F 64 05 99 A6 38 |FONOS *"...d...8|
00000790: 29 22 2A 20 20 45 4E 54 52 41 44 41 20 20 44 45 |)"* ENTRADA DE|
000007A0: 20 44 41 54 4F 53 20 20 2A 22 00 F0 0F 6E 05 99 | DATOS *"...n..|
000007B0: 22 11 11 1D 45 4E 54 52 45 20 45 4C 20 4E 4F 4D |"...ENTRE EL NOM|
000007C0: 42 52 45 20 44 45 4C 20 20 20 20 20 20 20 20 20 |BRE DEL |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 12 41 52 43 48 | .ARCH|
000007E0: 49 56 4F 20 44 45 20 44 41 54 4F 53 92 3A 22 3B |IVO DE DATOS.:";|
000007F0: 00 07 10 78 05 85 43 24 3A 8B C3 28 43 24 29 B1 |...x..C$:..(C$).|
00000800: 31 36 A7 31 33 36 30 00 35 10 82 05 99 22 11 1D |16.1360.5...."..|
00000810: 43 4F 4C 4F 51 55 45 20 45 4C 20 43 41 53 53 45 |COLOQUE EL CASSE|
00000820: 54 54 45 20 59 20 50 52 45 53 49 4F 4E 45 20 50 |TTE Y PRESIONE P|
00000830: 4C 41 59 2E 22 00 43 10 8C 05 9F 37 2C 31 2C 30 |LAY.".C....7,1,0|
00000840: 2C 43 24 00 73 10 96 05 99 22 11 1D 43 41 52 47 |,C$.s...."..CARG|
00000850: 41 4E 44 4F 20 4C 4F 53 20 44 41 54 4F 53 2E 2E |ANDO LOS DATOS..|
00000860: 2E 45 53 50 45 52 45 20 50 4F 52 20 46 41 56 4F |.ESPERE POR FAVO|
00000870: 52 2E 22 00 7C 10 A0 05 84 37 2C 43 00 89 10 AA |R.".|....7,C....|
00000880: 05 81 46 B2 30 A4 43 AB 31 00 B8 10 B4 05 84 37 |..F.0.C.1......7|
00000890: 2C 46 24 28 30 2C 46 29 2C 46 24 28 31 2C 46 29 |,F$(0,F),F$(1,F)|
000008A0: 2C 46 24 28 32 2C 46 29 2C 46 24 28 33 2C 46 29 |,F$(2,F),F$(3,F)|
000008B0: 2C 46 24 28 34 2C 46 29 00 C2 10 BE 05 82 46 3A |,F$(4,F)......F:|
000008C0: A0 37 00 EA 10 C8 05 99 22 11 1D 4C 4F 53 20 44 |.7......"..LOS D|
000008D0: 41 54 4F 53 20 48 41 4E 20 53 49 44 4F 20 43 41 |ATOS HAN SIDO CA|
000008E0: 52 47 41 44 4F 53 2E 2E 2E 22 00 FC 10 D2 05 81 |RGADOS..."......|
000008F0: 47 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 1E 11 DC |G.1.1000:.:.....|
00000900: 05 8F 20 43 41 52 47 41 52 20 44 41 54 4F 53 20 |.. CARGAR DATOS |
00000910: 50 4F 52 20 44 49 53 4B 2D 44 52 49 56 45 00 45 |POR DISK-DRIVE.E|
00000920: 11 E6 05 99 22 93 11 11 22 A6 38 29 22 2A 20 49 |...."...".8)"* I|
00000930: 4E 44 49 43 45 20 44 45 20 54 45 4C 45 46 4F 4E |NDICE DE TELEFON|
00000940: 4F 53 20 2A 22 00 67 11 F0 05 99 A6 38 29 22 2A |OS *".g.....8)"*|
00000950: 20 20 45 4E 54 52 41 44 41 20 20 44 45 20 44 41 | ENTRADA DE DA|
00000960: 54 4F 53 20 20 2A 22 00 AD 11 FA 05 99 22 11 11 |TOS *"......"..|
00000970: 1D 45 4E 54 52 45 20 45 4C 20 4E 4F 4D 42 52 45 |.ENTRE EL NOMBRE|
00000980: 20 44 45 4C 20 20 20 20 20 20 20 20 20 20 20 20 | DEL |
00000990: 20 20 20 20 20 20 20 20 12 41 52 43 48 49 56 4F | .ARCHIVO|
000009A0: 20 44 45 20 44 41 54 4F 53 92 3A 22 3B 00 C6 11 | DE DATOS.:";...|
000009B0: 04 06 85 43 32 24 3A 8B C3 28 43 32 24 29 B1 31 |...C2$:..(C2$).1|
000009C0: 36 A7 31 35 30 30 00 F6 11 0E 06 99 22 11 1D 43 |6.1500......"..C|
000009D0: 4F 4C 4F 51 55 45 20 45 4C 20 44 49 53 4B 45 54 |OLOQUE EL DISKET|
000009E0: 54 45 20 59 20 50 52 45 53 49 4F 4E 45 20 52 45 |TE Y PRESIONE RE|
000009F0: 54 55 52 4E 2E 22 00 0A 12 18 06 A1 41 24 3A 8B |TURN."......A$:.|
00000A00: 41 24 B2 22 22 A7 31 35 36 30 00 22 12 22 06 43 |A$."".1560.".".C|
00000A10: 31 24 B2 22 30 3A 22 3A 43 33 24 B2 22 2C 53 2C |1$."0:":C3$.",S,|
00000A20: 52 22 00 33 12 2C 06 9F 31 35 2C 38 2C 31 35 2C |R".3.,..15,8,15,|
00000A30: 22 49 22 00 4A 12 36 06 9F 37 2C 38 2C 37 2C 43 |"I".J.6..7,8,7,C|
00000A40: 31 24 AA 43 32 24 AA 43 33 24 00 54 12 40 06 8D |1$.C2$.C3$.T.@..|
00000A50: 39 32 30 30 00 84 12 4A 06 99 22 11 1D 43 41 52 |9200...J.."..CAR|
00000A60: 47 41 4E 44 4F 20 4C 4F 53 20 44 41 54 4F 53 2E |GANDO LOS DATOS.|
00000A70: 2E 2E 45 53 50 45 52 45 20 50 4F 52 20 46 41 56 |..ESPERE POR FAV|
00000A80: 4F 52 2E 22 00 8D 12 54 06 84 37 2C 43 00 9A 12 |OR."...T..7,C...|
00000A90: 5E 06 81 46 B2 30 A4 43 AB 31 00 C9 12 68 06 84 |^..F.0.C.1...h..|
00000AA0: 37 2C 46 24 28 30 2C 46 29 2C 46 24 28 31 2C 46 |7,F$(0,F),F$(1,F|
00000AB0: 29 2C 46 24 28 32 2C 46 29 2C 46 24 28 33 2C 46 |),F$(2,F),F$(3,F|
00000AC0: 29 2C 46 24 28 34 2C 46 29 00 D7 12 72 06 82 46 |),F$(4,F)...r..F|
00000AD0: 3A A0 37 3A A0 31 35 00 FF 12 7C 06 99 22 11 1D |:.7:.15...|.."..|
00000AE0: 4C 4F 53 20 44 41 54 4F 53 20 48 41 4E 20 53 49 |LOS DATOS HAN SI|
00000AF0: 44 4F 20 43 41 52 47 41 44 4F 53 2E 2E 2E 22 00 |DO CARGADOS...".|
00000B00: 11 13 86 06 81 47 B2 31 A4 31 30 30 30 3A 82 3A |.....G.1.1000:.:|
00000B10: 8E 00 33 13 90 06 8F 20 45 4E 54 52 41 52 20 44 |..3.... ENTRAR D|
00000B20: 41 54 4F 53 20 50 4F 52 20 4F 54 52 4F 20 4D 45 |ATOS POR OTRO ME|
00000B30: 44 49 4F 00 5A 13 9A 06 99 22 93 11 11 22 A6 38 |DIO.Z...."...".8|
00000B40: 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 |)"* INDICE DE TE|
00000B50: 4C 45 46 4F 4E 4F 53 20 2A 22 00 7C 13 A4 06 99 |LEFONOS *".|....|
00000B60: A6 38 29 22 2A 20 20 45 4E 54 52 41 44 41 20 20 |.8)"* ENTRADA |
00000B70: 44 45 20 44 41 54 4F 53 20 20 2A 22 00 B7 13 AE |DE DATOS *"....|
00000B80: 06 99 22 11 11 11 1D 45 53 54 41 20 50 41 52 54 |.."....ESTA PART|
00000B90: 45 20 4E 4F 20 48 41 20 53 49 44 4F 20 50 52 4F |E NO HA SIDO PRO|
00000BA0: 47 52 41 4D 41 44 41 20 50 4F 52 20 45 4C 4D 4F |GRAMADA POR ELMO|
00000BB0: 4D 45 4E 54 4F 2E 22 00 E8 13 B8 06 99 22 11 2A |MENTO."......".*|
00000BC0: 50 52 45 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 |PRESIONE UNA TEC|
00000BD0: 4C 41 20 50 41 52 41 20 56 4F 4C 56 45 52 20 41 |LA PARA VOLVER A|
00000BE0: 4C 20 4D 45 4E 55 2A 22 00 FC 13 C2 06 A1 41 24 |L MENU*"......A$|
00000BF0: 3A 8B 41 24 B2 22 22 A7 31 37 33 30 00 0E 14 CC |:.A$."".1730....|
00000C00: 06 81 47 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 26 |..G.1.1000:.:..&|
00000C10: 14 D0 07 8F 20 42 55 53 51 55 45 44 41 20 44 45 |.... BUSQUEDA DE|
00000C20: 20 44 41 54 4F 53 00 4D 14 DA 07 99 22 93 11 11 | DATOS.M...."...|
00000C30: 22 A6 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 |".8)"* INDICE DE|
00000C40: 20 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 6F 14 | TELEFONOS *".o.|
00000C50: E4 07 99 A6 38 29 22 2A 20 20 42 55 53 51 55 45 |....8)"* BUSQUE|
00000C60: 44 41 20 44 45 20 44 41 54 4F 53 20 20 2A 22 00 |DA DE DATOS *".|
00000C70: 9C 14 EE 07 99 22 11 11 1D 53 45 4C 45 43 43 49 |....."...SELECCI|
00000C80: 4F 4E 45 20 45 4C 20 4E 55 4D 45 52 4F 20 44 45 |ONE EL NUMERO DE|
00000C90: 20 53 55 20 4F 50 43 49 4F 4E 3A 22 00 CC 14 F8 | SU OPCION:"....|
00000CA0: 07 99 22 11 11 1D 31 2E 20 42 55 53 43 41 52 20 |.."...1. BUSCAR |
00000CB0: 44 41 54 4F 53 20 50 4F 52 20 41 50 45 4C 4C 49 |DATOS POR APELLI|
00000CC0: 44 4F 20 59 20 4E 4F 4D 42 52 45 2E 00 F3 14 02 |DO Y NOMBRE.....|
00000CD0: 08 99 22 11 1D 32 2E 20 42 55 53 43 41 52 20 44 |.."..2. BUSCAR D|
00000CE0: 41 54 4F 53 20 50 4F 52 20 54 45 4C 45 46 4F 4E |ATOS POR TELEFON|
00000CF0: 4F 2E 22 00 1B 15 0C 08 99 22 11 1D 33 2E 20 42 |O."......"..3. B|
00000D00: 55 53 43 41 52 20 44 41 54 4F 53 20 50 4F 52 20 |USCAR DATOS POR |
00000D10: 44 49 52 45 43 43 49 4F 4E 2E 22 00 3E 15 16 08 |DIRECCION.".>...|
00000D20: 99 22 11 1D 34 2E 20 4C 49 53 54 41 52 20 54 4F |."..4. LISTAR TO|
00000D30: 44 4F 20 45 4C 20 49 4E 44 49 43 45 2E 22 00 6B |DO EL INDICE.".k|
00000D40: 15 20 08 99 22 11 1D 35 2E 20 4C 49 53 54 41 52 |. .."..5. LISTAR|
00000D50: 20 45 4C 20 49 4E 44 49 43 45 20 50 4F 52 20 43 | EL INDICE POR C|
00000D60: 49 55 44 41 44 2C 45 54 43 2E 22 00 91 15 2A 08 |IUDAD,ETC."...*.|
00000D70: 99 22 11 1D 36 2E 20 56 4F 4C 56 45 52 20 41 4C |."..6. VOLVER AL|
00000D80: 20 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 2E | MENU PRINCIPAL.|
00000D90: 22 00 A8 15 34 08 99 22 11 11 11 1D 53 55 20 4F |"...4.."....SU O|
00000DA0: 50 43 49 4F 4E 3A 22 3B 00 BC 15 3E 08 A1 41 24 |PCION:";...>..A$|
00000DB0: 3A 8B 41 24 B2 22 22 A7 32 31 31 30 00 D8 15 48 |:.A$."".2110...H|
00000DC0: 08 8B C6 28 41 24 29 B3 34 39 B0 C6 28 41 24 29 |...(A$).49..(A$)|
00000DD0: B1 35 34 A7 32 31 31 30 00 E0 15 52 08 99 41 24 |.54.2110...R..A$|
00000DE0: 00 EF 15 5C 08 81 47 B2 31 A4 33 30 30 3A 82 00 |...\..G.1.300:..|
00000DF0: FB 15 66 08 41 B2 C5 28 41 24 29 00 20 16 70 08 |..f.A..(A$). .p.|
00000E00: 91 41 8D 32 31 38 30 2C 32 32 35 30 2C 32 33 31 |.A.2180,2250,231|
00000E10: 30 2C 32 33 35 30 2C 32 34 36 30 2C 32 31 37 30 |0,2350,2460,2170|
00000E20: 00 26 16 7A 08 8E 00 46 16 84 08 8F 20 42 55 53 |.&.z...F.... BUS|
00000E30: 43 41 52 20 44 41 54 4F 53 20 50 4F 52 20 41 50 |CAR DATOS POR AP|
00000E40: 45 4C 4C 49 44 4F 00 6D 16 8E 08 99 22 93 11 11 |ELLIDO.m...."...|
00000E50: 22 A6 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 |".8)"* INDICE DE|
00000E60: 20 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 8F 16 | TELEFONOS *"...|
00000E70: 98 08 99 A6 38 29 22 2A 20 20 42 55 53 51 55 45 |....8)"* BUSQUE|
00000E80: 44 41 20 44 45 20 44 41 54 4F 53 20 20 2A 22 00 |DA DE DATOS *".|
00000E90: AA 16 A2 08 4E 24 B2 22 41 50 45 4C 4C 49 44 4F |....N$."APELLIDO|
00000EA0: 20 59 20 4E 4F 4D 42 52 45 22 00 B2 16 AC 08 4C | Y NOMBRE".....L|
00000EB0: B2 30 00 BC 16 B6 08 89 39 35 30 30 00 DC 16 C0 |.0......9500....|
00000EC0: 08 8F 20 42 55 53 43 41 52 20 44 41 54 4F 53 20 |.. BUSCAR DATOS |
00000ED0: 50 4F 52 20 54 45 4C 45 46 4F 4E 4F 00 03 17 CA |POR TELEFONO....|
00000EE0: 08 99 22 93 11 11 22 A6 38 29 22 2A 20 49 4E 44 |.."...".8)"* IND|
00000EF0: 49 43 45 20 44 45 20 54 45 4C 45 46 4F 4E 4F 53 |ICE DE TELEFONOS|
00000F00: 20 2A 22 00 25 17 D4 08 99 A6 38 29 22 2A 20 20 | *".%.....8)"* |
00000F10: 42 55 53 51 55 45 44 41 20 44 45 20 44 41 54 4F |BUSQUEDA DE DATO|
00000F20: 53 20 20 2A 22 00 37 17 DE 08 4E 24 B2 22 54 45 |S *".7...N$."TE|
00000F30: 4C 45 46 4F 4E 4F 22 00 3F 17 E8 08 4C B2 31 00 |LEFONO".?...L.1.|
00000F40: 49 17 F2 08 89 39 35 30 30 00 6A 17 FC 08 8F 20 |I....9500.j.... |
00000F50: 42 55 53 43 41 52 20 44 41 54 4F 53 20 50 4F 52 |BUSCAR DATOS POR|
00000F60: 20 44 49 52 45 43 43 49 4F 4E 00 91 17 06 09 99 | DIRECCION......|
00000F70: 22 93 11 11 22 A6 38 29 22 2A 20 49 4E 44 49 43 |"...".8)"* INDIC|
00000F80: 45 20 44 45 20 54 45 4C 45 46 4F 4E 4F 53 20 2A |E DE TELEFONOS *|
00000F90: 22 00 B3 17 10 09 99 A6 38 29 22 2A 20 20 42 55 |".......8)"* BU|
00000FA0: 53 51 55 45 44 41 20 44 45 20 44 41 54 4F 53 20 |SQUEDA DE DATOS |
00000FB0: 20 2A 22 00 BB 17 1A 09 4C B2 32 00 C5 17 24 09 | *".....L.2...$.|
00000FC0: 89 39 35 30 30 00 E1 17 2E 09 8F 20 4C 49 53 54 |.9500...... LIST|
00000FD0: 41 52 20 54 4F 44 4F 20 45 4C 20 49 4E 44 49 43 |AR TODO EL INDIC|
00000FE0: 45 00 08 18 38 09 99 22 93 11 11 22 A6 38 29 22 |E...8.."...".8)"|
00000FF0: 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 4C 45 |* INDICE DE TELE|
00001000: 46 4F 4E 4F 53 20 2A 22 00 2A 18 42 09 99 A6 38 |FONOS *".*.B...8|
00001010: 29 22 2A 20 20 42 55 53 51 55 45 44 41 20 44 45 |)"* BUSQUEDA DE|
00001020: 20 44 41 54 4F 53 20 20 2A 22 00 4D 18 4C 09 99 | DATOS *".M.L..|
00001030: 22 11 11 1D 20 20 20 20 20 20 20 20 20 49 4E 44 |"... IND|
00001040: 49 43 45 20 43 4F 4D 50 4C 45 54 4F 22 00 5A 18 |ICE COMPLETO".Z.|
00001050: 56 09 81 46 B2 30 A4 43 AB 31 00 74 18 60 09 99 |V..F.0.C.1.t.`..|
00001060: 46 24 28 30 2C 46 29 3B A3 33 31 29 3B 46 24 28 |F$(0,F);.31);F$(|
00001070: 31 2C 46 29 00 83 18 6A 09 81 47 B2 31 A4 32 30 |1,F)...j..G.1.20|
00001080: 30 3A 82 00 8A 18 74 09 82 46 00 BC 18 7E 09 99 |0:....t..F...~..|
00001090: 22 11 11 2A 50 52 45 53 49 4F 4E 45 20 55 4E 41 |"..*PRESIONE UNA|
000010A0: 20 54 45 43 4C 41 20 50 41 52 41 20 56 4F 4C 56 | TECLA PARA VOLV|
000010B0: 45 52 20 41 4C 20 4D 45 4E 55 2A 22 00 D0 18 88 |ER AL MENU*"....|
000010C0: 09 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 34 34 30 |..A$:.A$."".2440|
000010D0: 00 D6 18 92 09 8E 00 F9 18 9C 09 8F 20 4C 49 53 |............ LIS|
000010E0: 54 41 52 20 49 4E 44 49 43 45 20 50 4F 52 20 43 |TAR INDICE POR C|
000010F0: 49 55 44 41 44 2C 45 54 43 00 20 19 A6 09 99 22 |IUDAD,ETC. ...."|
00001100: 93 11 11 22 A6 38 29 22 2A 20 49 4E 44 49 43 45 |...".8)"* INDICE|
00001110: 20 44 45 20 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 | DE TELEFONOS *"|
00001120: 00 42 19 B0 09 99 A6 38 29 22 2A 20 20 42 55 53 |.B.....8)"* BUS|
00001130: 51 55 45 44 41 20 44 45 20 44 41 54 4F 53 20 20 |QUEDA DE DATOS |
00001140: 2A 22 00 6F 19 BA 09 99 22 11 11 1D 53 45 4C 45 |*".o...."...SELE|
00001150: 43 43 49 4F 4E 45 20 45 4C 20 4E 55 4D 45 52 4F |CCIONE EL NUMERO|
00001160: 20 44 45 20 53 55 20 4F 50 43 49 4F 4E 3A 22 00 | DE SU OPCION:".|
00001170: 90 19 C4 09 99 22 11 11 1D 31 2E 20 4C 49 53 54 |....."...1. LIST|
00001180: 41 52 20 50 4F 52 20 49 4E 49 43 49 41 4C 2E 22 |AR POR INICIAL."|
00001190: 00 AF 19 CE 09 99 22 11 1D 32 2E 20 4C 49 53 54 |......"..2. LIST|
000011A0: 41 52 20 50 4F 52 20 43 49 55 44 41 44 2E 22 00 |AR POR CIUDAD.".|
000011B0: D5 19 D8 09 99 22 11 1D 33 2E 20 56 4F 4C 56 45 |....."..3. VOLVE|
000011C0: 52 20 41 4C 20 4D 45 4E 55 20 50 52 49 4E 43 49 |R AL MENU PRINCI|
000011D0: 50 41 4C 2E 22 00 EC 19 E2 09 99 22 11 11 11 1D |PAL."......"....|
000011E0: 53 55 20 4F 50 43 49 4F 4E 3A 22 3B 00 00 1A EC |SU OPCION:";....|
000011F0: 09 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 35 34 30 |..A$:.A$."".2540|
00001200: 00 1C 1A F6 09 8B C6 28 41 24 29 B3 34 39 B0 C6 |.......(A$).49..|
00001210: 28 41 24 29 B1 35 31 A7 32 35 34 30 00 24 1A 00 |(A$).51.2540.$..|
00001220: 0A 99 41 24 00 33 1A 0A 0A 81 47 B2 31 A4 33 30 |..A$.3....G.1.30|
00001230: 30 3A 82 00 3F 1A 14 0A 41 B2 C5 28 41 24 29 00 |0:..?...A..(A$).|
00001240: 55 1A 1E 0A 91 41 8D 32 36 31 30 2C 32 37 32 30 |U....A.2610,2720|
00001250: 2C 32 36 30 30 00 5B 1A 28 0A 8E 00 82 1A 32 0A |,2600.[.(.....2.|
00001260: 99 22 93 11 11 22 A6 38 29 22 2A 20 49 4E 44 49 |."...".8)"* INDI|
00001270: 43 45 20 44 45 20 54 45 4C 45 46 4F 4E 4F 53 20 |CE DE TELEFONOS |
00001280: 2A 22 00 A4 1A 3C 0A 99 A6 38 29 22 2A 20 20 42 |*"...<...8)"* B|
00001290: 55 53 51 55 45 44 41 20 44 45 20 44 41 54 4F 53 |USQUEDA DE DATOS|
000012A0: 20 20 2A 22 00 E2 1A 46 0A 99 22 11 11 11 1D 50 | *"...F.."....P|
000012B0: 4F 52 20 46 41 56 4F 52 2C 20 54 45 43 4C 45 45 |OR FAVOR, TECLEE|
000012C0: 20 4C 41 20 49 4E 49 43 49 41 4C 20 45 4C 45 47 | LA INICIAL ELEG|
000012D0: 49 44 41 22 3A 99 22 1D 49 4E 49 43 49 41 4C 3A |IDA":.".INICIAL:|
000012E0: 22 3B 00 F6 1A 50 0A A1 41 24 3A 8B 41 24 B2 22 |";...P..A$:.A$."|
000012F0: 22 A7 32 36 34 30 00 04 1B 5A 0A 99 41 24 3A 99 |".2640...Z..A$:.|
00001300: 22 11 11 22 00 11 1B 64 0A 81 46 B2 30 A4 43 AB |".."...d..F.0.C.|
00001310: 31 00 3D 1B 6E 0A 8B C8 28 28 46 24 28 30 2C 46 |1.=.n...((F$(0,F|
00001320: 29 29 2C 31 29 B2 41 24 A7 99 46 24 28 30 2C 46 |)),1).A$..F$(0,F|
00001330: 29 22 20 20 20 22 46 24 28 31 2C 46 29 00 44 1B |)" "F$(1,F).D.|
00001340: 78 0A 82 46 00 76 1B 82 0A 99 22 11 11 2A 50 52 |x..F.v...."..*PR|
00001350: 45 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 4C 41 |ESIONE UNA TECLA|
00001360: 20 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C 20 | PARA VOLVER AL |
00001370: 4D 45 4E 55 2A 22 00 8A 1B 8C 0A A1 41 24 3A 8B |MENU*"......A$:.|
00001380: 41 24 B2 22 22 A7 32 37 30 30 00 90 1B 96 0A 8E |A$."".2700......|
00001390: 00 B7 1B A0 0A 99 22 93 11 11 22 A6 38 29 22 2A |......"...".8)"*|
000013A0: 20 49 4E 44 49 43 45 20 44 45 20 54 45 4C 45 46 | INDICE DE TELEF|
000013B0: 4F 4E 4F 53 20 2A 22 00 D9 1B AA 0A 99 A6 38 29 |ONOS *".......8)|
000013C0: 22 2A 20 20 42 55 53 51 55 45 44 41 20 44 45 20 |"* BUSQUEDA DE |
000013D0: 44 41 54 4F 53 20 20 2A 22 00 15 1C B4 0A 99 22 |DATOS *"......"|
000013E0: 11 11 11 1D 50 4F 52 20 46 41 56 4F 52 2C 20 54 |....POR FAVOR, T|
000013F0: 45 43 4C 45 45 20 4C 41 20 43 49 55 44 41 44 20 |ECLEE LA CIUDAD |
00001400: 45 4C 45 47 49 44 41 22 3A 99 22 1D 43 49 55 44 |ELEGIDA":.".CIUD|
00001410: 41 44 3A 22 3B 00 1D 1C BE 0A 85 41 24 00 27 1C |AD:";......A$.'.|
00001420: C8 0A 99 22 11 11 22 00 34 1C D2 0A 81 46 B2 30 |..."..".4....F.0|
00001430: A4 43 AB 31 00 59 1C DC 0A 8B 46 24 28 34 2C 46 |.C.1.Y....F$(4,F|
00001440: 29 B2 41 24 A7 99 46 24 28 30 2C 46 29 22 20 20 |).A$..F$(0,F)" |
00001450: 20 22 46 24 28 32 2C 46 29 00 60 1C E6 0A 82 46 | "F$(2,F).`....F|
00001460: 00 92 1C F0 0A 99 22 11 11 2A 50 52 45 53 49 4F |......"..*PRESIO|
00001470: 4E 45 20 55 4E 41 20 54 45 43 4C 41 20 50 41 52 |NE UNA TECLA PAR|
00001480: 41 20 56 4F 4C 56 45 52 20 41 4C 20 4D 45 4E 55 |A VOLVER AL MENU|
00001490: 2A 22 00 A6 1C FA 0A A1 41 24 3A 8B 41 24 B2 22 |*"......A$:.A$."|
000014A0: 22 A7 32 38 31 30 00 AC 1C 04 0B 8E 00 C4 1C B8 |".2810..........|
000014B0: 0B 8F 20 4D 4F 44 49 46 49 43 41 52 20 55 4E 20 |.. MODIFICAR UN |
000014C0: 44 41 54 4F 00 EB 1C C2 0B 99 22 93 11 11 22 A6 |DATO......"...".|
000014D0: 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 |8)"* INDICE DE T|
000014E0: 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 0D 1D CC 0B |ELEFONOS *".....|
000014F0: 99 A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 43 49 |..8)"*MODIFICACI|
00001500: 4F 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 39 1D |ON DE DATOS*".9.|
00001510: D6 0B 99 22 11 1D 53 45 4C 45 43 43 49 4F 4E 45 |..."..SELECCIONE|
00001520: 20 45 4C 20 4E 55 4D 45 52 4F 20 44 45 20 53 55 | EL NUMERO DE SU|
00001530: 20 4F 50 43 49 4F 4E 3A 22 00 64 1D E0 0B 99 22 | OPCION:".d...."|
00001540: 11 11 1D 31 2E 20 4D 4F 44 49 46 49 43 41 52 20 |...1. MODIFICAR |
00001550: 55 4E 20 49 54 45 4D 20 44 45 20 55 4E 20 44 41 |UN ITEM DE UN DA|
00001560: 54 4F 2E 22 00 80 1D EA 0B 99 22 11 1D 32 2E 20 |TO."......"..2. |
00001570: 42 4F 52 52 41 52 20 55 4E 20 44 41 54 4F 2E 22 |BORRAR UN DATO."|
00001580: 00 A6 1D F4 0B 99 22 11 1D 33 2E 20 56 4F 4C 56 |......"..3. VOLV|
00001590: 45 52 20 41 4C 20 4D 45 4E 55 20 50 52 49 4E 43 |ER AL MENU PRINC|
000015A0: 49 50 41 4C 2E 22 00 BD 1D FE 0B 99 22 11 11 11 |IPAL."......"...|
000015B0: 1D 53 55 20 4F 50 43 49 4F 4E 3A 22 3B 00 D1 1D |.SU OPCION:";...|
000015C0: 08 0C A1 41 24 3A 8B 41 24 B2 22 22 A7 33 30 38 |...A$:.A$."".308|
000015D0: 30 00 ED 1D 12 0C 8B C6 28 41 24 29 B3 34 39 B0 |0.......(A$).49.|
000015E0: C6 28 41 24 29 B1 35 31 A7 33 30 38 30 00 F5 1D |.(A$).51.3080...|
000015F0: 1C 0C 99 41 24 00 04 1E 26 0C 81 47 B2 31 A4 33 |...A$...&..G.1.3|
00001600: 30 30 3A 82 00 10 1E 30 0C 41 B2 C5 28 41 24 29 |00:....0.A..(A$)|
00001610: 00 26 1E 3A 0C 91 41 8D 33 31 35 30 2C 33 36 38 |.&.:..A.3150,368|
00001620: 30 2C 33 31 34 30 00 31 1E 44 0C 43 4B B2 30 3A |0,3140.1.D.CK.0:|
00001630: 8E 00 54 1E 4E 0C 8F 20 4D 4F 44 49 46 49 43 41 |..T.N.. MODIFICA|
00001640: 52 20 55 4E 20 49 54 45 4D 20 44 45 20 55 4E 20 |R UN ITEM DE UN |
00001650: 44 41 54 4F 00 7B 1E 58 0C 99 22 93 11 11 22 A6 |DATO.{.X.."...".|
00001660: 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 |8)"* INDICE DE T|
00001670: 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 9D 1E 62 0C |ELEFONOS *"...b.|
00001680: 99 A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 43 49 |..8)"*MODIFICACI|
00001690: 4F 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 DB 1E |ON DE DATOS*"...|
000016A0: 6C 0C 99 22 11 11 1D 41 4E 54 45 53 20 44 45 20 |l.."...ANTES DE |
000016B0: 4D 4F 44 49 46 49 43 41 52 20 55 4E 20 44 41 54 |MODIFICAR UN DAT|
000016C0: 4F 20 48 41 59 20 51 55 45 20 20 20 20 20 4C 4F |O HAY QUE LO|
000016D0: 43 41 4C 49 5A 41 52 4C 4F 2E 22 00 FF 1E 76 0C |CALIZARLO."...v.|
000016E0: 4E 24 B2 22 41 50 45 4C 4C 49 44 4F 20 59 20 4E |N$."APELLIDO Y N|
000016F0: 4F 4D 42 52 45 22 3A 43 4B B2 31 3A 4C B2 30 00 |OMBRE":CK.1:L.0.|
00001700: 0A 1F 80 0C 8D 20 39 35 30 30 00 15 1F 85 0C 8B |..... 9500......|
00001710: 46 B2 43 A7 8E 00 3C 1F 8A 0C 99 22 93 11 11 22 |F.C...<...."..."|
00001720: A6 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 |.8)"* INDICE DE |
00001730: 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 5E 1F 94 |TELEFONOS *".^..|
00001740: 0C 99 A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 43 |...8)"*MODIFICAC|
00001750: 49 4F 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 84 |ION DE DATOS*"..|
00001760: 1F 9E 0C 99 22 11 11 1D 45 4C 20 44 41 54 4F 20 |...."...EL DATO |
00001770: 48 41 20 53 49 44 4F 20 4C 4F 43 41 4C 49 5A 41 |HA SIDO LOCALIZA|
00001780: 44 4F 2E 22 00 A7 1F A8 0C 99 22 1D 51 55 45 20 |DO."......".QUE |
00001790: 49 54 45 4D 20 44 45 53 45 41 20 4D 4F 44 49 46 |ITEM DESEA MODIF|
000017A0: 49 43 41 52 3F 3A 22 00 CA 1F B2 0C 99 22 11 11 |ICAR?:"......"..|
000017B0: 1D 31 2E 20 45 4C 20 41 50 45 4C 4C 49 44 4F 20 |.1. EL APELLIDO |
000017C0: 59 20 4E 4F 4D 42 52 45 2E 22 00 E3 1F BC 0C 99 |Y NOMBRE."......|
000017D0: 22 11 1D 32 2E 20 45 4C 20 54 45 4C 45 46 4F 4E |"..2. EL TELEFON|
000017E0: 4F 2E 22 00 05 20 C6 0C 99 22 11 1D 33 2E 20 4C |O.".. ..."..3. L|
000017F0: 41 20 43 41 4C 4C 45 20 59 20 45 4C 20 4E 55 4D |A CALLE Y EL NUM|
00001800: 45 52 4F 2E 22 00 23 20 D0 0C 99 22 11 1D 34 2E |ERO.".# ..."..4.|
00001810: 20 45 4C 20 43 4F 44 49 47 4F 20 50 4F 53 54 41 | EL CODIGO POSTA|
00001820: 4C 2E 22 00 3A 20 DA 0C 99 22 11 1D 35 2E 20 4C |L.".: ..."..5. L|
00001830: 41 20 43 49 55 44 41 44 2E 22 00 60 20 E4 0C 99 |A CIUDAD.".` ...|
00001840: 22 11 1D 36 2E 20 56 4F 4C 56 45 52 20 41 4C 20 |"..6. VOLVER AL |
00001850: 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 2E 22 |MENU PRINCIPAL."|
00001860: 00 76 20 EE 0C 99 22 11 11 1D 53 55 20 4F 50 43 |.v ..."...SU OPC|
00001870: 49 4F 4E 3A 22 3B 00 8A 20 F8 0C A1 41 24 3A 8B |ION:";.. ...A$:.|
00001880: 41 24 B2 22 22 A7 33 33 32 30 00 A6 20 02 0D 8B |A$."".3320.. ...|
00001890: C6 28 41 24 29 B3 34 39 B0 C6 28 41 24 29 B1 35 |.(A$).49..(A$).5|
000018A0: 34 A7 33 33 32 30 00 AE 20 0C 0D 99 41 24 00 BD |4.3320.. ...A$..|
000018B0: 20 16 0D 81 47 B2 31 A4 33 30 30 3A 82 00 C9 20 | ...G.1.300:... |
000018C0: 20 0D 41 B2 C5 28 41 24 29 00 EE 20 2A 0D 91 41 | .A..(A$).. *..A|
000018D0: 8D 33 33 39 30 2C 33 34 34 30 2C 33 34 39 30 2C |.3390,3440,3490,|
000018E0: 33 35 34 30 2C 33 35 39 30 2C 33 33 38 30 00 F4 |3540,3590,3380..|
000018F0: 20 34 0D 8E 00 1B 21 3E 0D 99 22 93 11 11 22 A6 | 4....!>.."...".|
00001900: 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 |8)"* INDICE DE T|
00001910: 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 3D 21 48 0D |ELEFONOS *".=!H.|
00001920: 99 A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 43 49 |..8)"*MODIFICACI|
00001930: 4F 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 6A 21 |ON DE DATOS*".j!|
00001940: 52 0D 99 22 11 11 1D 54 45 43 4C 45 45 20 45 4C |R.."...TECLEE EL|
00001950: 20 4E 55 45 56 4F 20 41 50 45 4C 4C 49 44 4F 20 | NUEVO APELLIDO |
00001960: 59 20 4E 4F 4D 42 52 45 3A 22 00 8C 21 5C 0D 85 |Y NOMBRE:"..!\..|
00001970: 22 41 50 45 4C 4C 49 44 4F 20 59 20 4E 4F 4D 42 |"APELLIDO Y NOMB|
00001980: 52 45 3A 22 3B 46 24 28 30 2C 46 29 00 96 21 66 |RE:";F$(0,F)..!f|
00001990: 0D 89 33 36 33 30 00 BD 21 70 0D 99 22 93 11 11 |..3630..!p.."...|
000019A0: 22 A6 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 |".8)"* INDICE DE|
000019B0: 20 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 DF 21 | TELEFONOS *"..!|
000019C0: 7A 0D 99 A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 |z...8)"*MODIFICA|
000019D0: 43 49 4F 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 |CION DE DATOS*".|
000019E0: 03 22 84 0D 99 22 11 11 1D 54 45 43 4C 45 45 20 |."..."...TECLEE |
000019F0: 45 4C 20 4E 55 45 56 4F 20 54 45 4C 45 46 4F 4E |EL NUEVO TELEFON|
00001A00: 4F 3A 22 00 1C 22 8E 0D 85 22 54 45 4C 45 46 4F |O:".."..."TELEFO|
00001A10: 4E 4F 3A 22 3B 46 24 28 31 2C 46 29 00 26 22 98 |NO:";F$(1,F).&".|
00001A20: 0D 89 33 36 33 30 00 4D 22 A2 0D 99 22 93 11 11 |..3630.M"..."...|
00001A30: 22 A6 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 |".8)"* INDICE DE|
00001A40: 20 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 6F 22 | TELEFONOS *".o"|
00001A50: AC 0D 99 A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 |....8)"*MODIFICA|
00001A60: 43 49 4F 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 |CION DE DATOS*".|
00001A70: 9C 22 B6 0D 99 22 11 11 1D 54 45 43 4C 45 45 20 |."..."...TECLEE |
00001A80: 4C 41 20 4E 55 45 56 41 20 43 41 4C 4C 45 20 59 |LA NUEVA CALLE Y|
00001A90: 20 45 4C 20 4E 55 4D 45 52 4F 3A 22 00 BB 22 C0 | EL NUMERO:"..".|
00001AA0: 0D 85 22 43 41 4C 4C 45 20 59 20 4E 55 4D 45 52 |.."CALLE Y NUMER|
00001AB0: 4F 3A 22 3B 46 24 28 32 2C 46 29 00 C5 22 CA 0D |O:";F$(2,F).."..|
00001AC0: 89 33 36 33 30 00 D3 22 D4 0D 4E 4D 25 B2 C5 28 |.3630.."..NM%..(|
00001AD0: 43 24 29 00 ED 22 DE 0D 8B 4E 4D 25 B3 4C 4F 25 |C$).."...NM%.LO%|
00001AE0: B0 4E 4D 25 B1 48 49 25 A7 38 35 33 30 00 16 23 |.NM%.HI%.8530..#|
00001AF0: E8 0D 99 22 11 11 1D 54 45 43 4C 45 45 20 45 4C |..."...TECLEE EL|
00001B00: 20 4E 55 45 56 4F 20 43 4F 44 49 47 4F 20 50 4F | NUEVO CODIGO PO|
00001B10: 53 54 41 4C 3A 22 00 34 23 F2 0D 85 22 43 4F 44 |STAL:".4#..."COD|
00001B20: 49 47 4F 20 50 4F 53 54 41 4C 3A 22 3B 46 24 28 |IGO POSTAL:";F$(|
00001B30: 33 2C 46 29 00 3E 23 FC 0D 89 33 36 33 30 00 65 |3,F).>#...3630.e|
00001B40: 23 06 0E 99 22 93 11 11 22 A6 38 29 22 2A 20 49 |#..."...".8)"* I|
00001B50: 4E 44 49 43 45 20 44 45 20 54 45 4C 45 46 4F 4E |NDICE DE TELEFON|
00001B60: 4F 53 20 2A 22 00 87 23 10 0E 99 A6 38 29 22 2A |OS *"..#....8)"*|
00001B70: 4D 4F 44 49 46 49 43 41 43 49 4F 4E 20 44 45 20 |MODIFICACION DE |
00001B80: 44 41 54 4F 53 2A 22 00 A9 23 1A 0E 99 22 11 11 |DATOS*"..#..."..|
00001B90: 1D 54 45 43 4C 45 45 20 4C 41 20 4E 55 45 56 41 |.TECLEE LA NUEVA|
00001BA0: 20 43 49 55 44 41 44 3A 22 00 C0 23 24 0E 85 22 | CIUDAD:"..#$.."|
00001BB0: 43 49 55 44 41 44 3A 22 3B 46 24 28 34 2C 46 29 |CIUDAD:";F$(4,F)|
00001BC0: 00 EF 23 2E 0E 99 22 11 11 1D 44 45 53 45 41 20 |..#..."...DESEA |
00001BD0: 20 4D 4F 44 49 46 49 43 41 52 20 4F 54 52 4F 20 | MODIFICAR OTRO |
00001BE0: 49 54 45 4D 20 44 45 4C 20 44 41 54 4F 3F 22 00 |ITEM DEL DATO?".|
00001BF0: 03 24 2F 0E A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |.$/..A$:.A$."".3|
00001C00: 36 33 31 00 1D 24 30 0E 8B 41 24 B3 B1 22 53 22 |631..$0..A$.."S"|
00001C10: AF 41 24 B3 B1 22 4E 22 A7 33 36 33 31 00 2F 24 |.A$.."N".3631./$|
00001C20: 31 0E 8B 41 24 B2 22 4E 22 AF 4D B2 31 A7 8E 00 |1..A$."N".M.1...|
00001C30: 40 24 32 0E 8B 41 24 B2 22 4E 22 A7 33 36 33 39 |@$2..A$."N".3639|
00001C40: 00 4A 24 33 0E 89 33 32 31 30 00 74 24 37 0E 99 |.J$3..3210.t$7..|
00001C50: 22 11 11 1D 44 45 53 45 41 20 4D 4F 44 49 46 49 |"...DESEA MODIFI|
00001C60: 43 41 52 20 4F 54 52 4F 20 44 41 54 4F 3F 28 53 |CAR OTRO DATO?(S|
00001C70: 2F 4E 29 22 00 88 24 38 0E A1 41 24 3A 8B 41 24 |/N)"..$8..A$:.A$|
00001C80: B2 22 22 A7 33 36 34 30 00 A2 24 42 0E 8B 41 24 |."".3640..$B..A$|
00001C90: B3 B1 22 53 22 AF 41 24 B3 B1 22 4E 22 A7 33 36 |.."S".A$.."N".36|
00001CA0: 34 30 00 B3 24 4C 0E 8B 41 24 B2 22 53 22 A7 33 |40..$L..A$."S".3|
00001CB0: 30 30 30 00 BE 24 56 0E 43 4B B2 30 3A 8E 00 D3 |000..$V.CK.0:...|
00001CC0: 24 60 0E 8F 20 42 4F 52 52 41 52 20 55 4E 20 44 |$`.. BORRAR UN D|
00001CD0: 41 54 4F 00 FA 24 6A 0E 99 22 93 11 11 22 A6 38 |ATO..$j.."...".8|
00001CE0: 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 |)"* INDICE DE TE|
00001CF0: 4C 45 46 4F 4E 4F 53 20 2A 22 00 1C 25 74 0E 99 |LEFONOS *"..%t..|
00001D00: A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 43 49 4F |.8)"*MODIFICACIO|
00001D10: 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 54 25 7E |N DE DATOS*".T%~|
00001D20: 0E 99 22 11 11 1D 41 4E 54 45 53 20 44 45 20 42 |.."...ANTES DE B|
00001D30: 4F 52 52 41 52 20 55 4E 20 44 41 54 4F 20 48 41 |ORRAR UN DATO HA|
00001D40: 59 20 51 55 45 20 4C 4F 43 41 4C 49 2D 5A 41 52 |Y QUE LOCALI-ZAR|
00001D50: 4C 4F 2E 22 00 78 25 88 0E 4E 24 B2 22 41 50 45 |LO.".x%..N$."APE|
00001D60: 4C 4C 49 44 4F 20 59 20 4E 4F 4D 42 52 45 22 3A |LLIDO Y NOMBRE":|
00001D70: 43 4B B2 31 3A 4C B2 30 00 83 25 92 0E 8D 20 39 |CK.1:L.0..%... 9|
00001D80: 35 30 30 00 AA 25 9C 0E 99 22 93 11 11 22 A6 38 |500..%..."...".8|
00001D90: 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 |)"* INDICE DE TE|
00001DA0: 4C 45 46 4F 4E 4F 53 20 2A 22 00 CC 25 A6 0E 99 |LEFONOS *"..%...|
00001DB0: A6 38 29 22 2A 4D 4F 44 49 46 49 43 41 43 49 4F |.8)"*MODIFICACIO|
00001DC0: 4E 20 44 45 20 44 41 54 4F 53 2A 22 00 F2 25 B0 |N DE DATOS*"..%.|
00001DD0: 0E 99 22 11 11 1D 45 4C 20 44 41 54 4F 20 48 41 |.."...EL DATO HA|
00001DE0: 20 53 49 44 4F 20 4C 4F 43 41 4C 49 5A 41 44 4F | SIDO LOCALIZADO|
00001DF0: 2E 22 00 21 26 BA 0E 99 22 11 1D 45 53 54 41 20 |.".!&..."..ESTA |
00001E00: 53 45 47 55 52 4F 20 51 55 45 20 51 55 49 45 52 |SEGURO QUE QUIER|
00001E10: 45 20 42 4F 52 52 41 52 4C 4F 3F 28 53 2F 4E 29 |E BORRARLO?(S/N)|
00001E20: 22 00 35 26 C4 0E A1 41 24 3A 8B 41 24 B2 22 22 |".5&...A$:.A$.""|
00001E30: A7 33 37 38 30 00 48 26 CE 0E 8B 41 24 B2 22 4E |.3780.H&...A$."N|
00001E40: 22 A7 43 4B B2 30 3A 8E 00 71 26 D8 0E 99 22 11 |".CK.0:..q&...".|
00001E50: 1D 45 53 50 45 52 45 20 55 4E 20 4D 4F 4D 45 4E |.ESPERE UN MOMEN|
00001E60: 54 4F 2C 20 50 4F 52 20 46 41 56 4F 52 2E 2E 2E |TO, POR FAVOR...|
00001E70: 22 00 7E 26 E2 0E 81 4A B2 46 A4 43 AB 31 00 CA |".~&...J.F.C.1..|
00001E80: 26 EC 0E 46 24 28 30 2C 4A 29 B2 46 24 28 30 2C |&..F$(0,J).F$(0,|
00001E90: 4A AA 31 29 3A 46 24 28 31 2C 4A 29 B2 46 24 28 |J.1):F$(1,J).F$(|
00001EA0: 31 2C 4A AA 31 29 3A 46 24 28 32 2C 4A 29 B2 46 |1,J.1):F$(2,J).F|
00001EB0: 24 28 32 2C 4A AA 31 29 3A 46 24 28 33 2C 4A 29 |$(2,J.1):F$(3,J)|
00001EC0: B2 46 24 28 33 2C 4A AA 31 29 00 E2 26 F6 0E 46 |.F$(3,J.1)..&..F|
00001ED0: 24 28 34 2C 4A 29 B2 46 24 28 34 2C 4A AA 31 29 |$(4,J).F$(4,J.1)|
00001EE0: 3A 82 00 F3 26 00 0F 43 4B B2 30 3A 43 B2 43 AB |:...&..CK.0:C.C.|
00001EF0: 31 3A 8E 00 14 27 A0 0F 8F 20 4C 49 53 54 41 52 |1:...'... LISTAR|
00001F00: 20 49 4E 44 49 43 45 20 45 4E 20 49 4D 50 52 45 | INDICE EN IMPRE|
00001F10: 53 4F 52 41 00 3B 27 AA 0F 99 22 93 11 11 22 A6 |SORA.;'..."...".|
00001F20: 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 |8)"* INDICE DE T|
00001F30: 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 76 27 B4 0F |ELEFONOS *".v'..|
00001F40: 99 22 11 11 11 1D 45 53 54 41 20 50 41 52 54 45 |."....ESTA PARTE|
00001F50: 20 4E 4F 20 48 41 20 53 49 44 4F 20 50 52 4F 47 | NO HA SIDO PROG|
00001F60: 52 41 4D 41 44 41 20 50 4F 52 20 45 4C 4D 4F 4D |RAMADA POR ELMOM|
00001F70: 45 4E 54 4F 2E 22 00 A7 27 BE 0F 99 22 11 2A 50 |ENTO."..'...".*P|
00001F80: 52 45 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 4C |RESIONE UNA TECL|
00001F90: 41 20 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C |A PARA VOLVER AL|
00001FA0: 20 4D 45 4E 55 2A 22 00 BB 27 C8 0F A1 41 24 3A | MENU*"..'...A$:|
00001FB0: 8B 41 24 B2 22 22 A7 34 30 34 30 00 C1 27 D2 0F |.A$."".4040..'..|
00001FC0: 8E 00 E2 27 88 13 8F 20 47 52 41 42 41 52 20 4C |...'... GRABAR L|
00001FD0: 4F 53 20 44 41 54 4F 53 20 59 20 45 53 43 41 50 |OS DATOS Y ESCAP|
00001FE0: 41 52 00 09 28 92 13 99 22 93 11 11 22 A6 38 29 |AR..(..."...".8)|
00001FF0: 22 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 4C |"* INDICE DE TEL|
00002000: 45 46 4F 4E 4F 53 20 2A 22 00 4C 28 9C 13 99 22 |EFONOS *".L(..."|
00002010: 11 11 1D 41 4E 54 45 53 20 44 45 20 45 53 43 41 |...ANTES DE ESCA|
00002020: 50 41 52 20 44 45 4C 20 50 52 4F 47 52 41 4D 41 |PAR DEL PROGRAMA|
00002030: 20 48 41 59 20 51 55 45 20 20 47 52 41 42 41 52 | HAY QUE GRABAR|
00002040: 20 4C 4F 53 20 44 41 54 4F 53 2E 22 00 97 28 A6 | LOS DATOS."..(.|
00002050: 13 99 22 1D 50 52 49 4D 45 52 4F 20 4F 52 44 45 |..".PRIMERO ORDE|
00002060: 4E 41 52 45 4D 4F 53 20 4C 4F 53 20 44 41 54 4F |NAREMOS LOS DATO|
00002070: 53 20 50 4F 52 20 41 4C 46 41 2D 42 45 54 4F 20 |S POR ALFA-BETO |
00002080: 59 20 44 45 53 50 55 45 53 20 4C 4F 53 20 47 52 |Y DESPUES LOS GR|
00002090: 41 42 41 52 45 22 3B 00 CE 28 AB 13 99 22 4D 4F |ABARE";..(..."MO|
000020A0: 53 2E 22 3A 99 22 1D 50 4F 52 20 46 41 56 4F 52 |S.":.".POR FAVOR|
000020B0: 2C 20 45 53 50 45 52 45 2E 2E 4F 52 44 45 4E 4F |, ESPERE..ORDENO|
000020C0: 20 4C 4F 53 20 44 41 54 4F 53 2E 2E 2E 22 00 D8 | LOS DATOS..."..|
000020D0: 28 AD 13 8D 39 33 30 30 00 03 29 B0 13 99 22 11 |(...9300..)...".|
000020E0: 1D 53 45 4C 45 43 43 49 4F 4E 45 20 4C 41 20 46 |.SELECCIONE LA F|
000020F0: 4F 52 4D 41 20 44 45 20 47 52 41 42 41 43 49 4F |ORMA DE GRABACIO|
00002100: 4E 2E 22 00 20 29 BA 13 99 22 11 11 1D 31 2E 20 |N.". )..."...1. |
00002110: 50 4F 52 20 44 41 54 41 53 53 45 54 54 45 2E 22 |POR DATASSETTE."|
00002120: 00 3C 29 C4 13 99 22 11 1D 32 2E 20 50 4F 52 20 |.<)..."..2. POR |
00002130: 44 49 53 4B 2D 44 52 49 56 45 2E 22 00 54 29 CE |DISK-DRIVE.".T).|
00002140: 13 99 22 11 1D 33 2E 20 4F 54 52 4F 20 4D 45 44 |.."..3. OTRO MED|
00002150: 49 4F 2E 22 00 7A 29 D8 13 99 22 11 1D 34 2E 20 |IO.".z)..."..4. |
00002160: 56 4F 4C 56 45 52 20 41 4C 20 4D 45 4E 55 20 50 |VOLVER AL MENU P|
00002170: 52 49 4E 43 49 50 41 4C 2E 22 00 8F 29 E2 13 99 |RINCIPAL."..)...|
00002180: 22 11 1D 53 55 20 4F 50 43 49 4F 4E 3A 22 3B 00 |"..SU OPCION:";.|
00002190: A3 29 EC 13 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |.)...A$:.A$."".5|
000021A0: 31 30 30 00 BF 29 F6 13 8B C6 28 41 24 29 B3 34 |100..)....(A$).4|
000021B0: 39 B0 C6 28 41 24 29 B1 35 32 A7 35 31 30 30 00 |9..(A$).52.5100.|
000021C0: C7 29 00 14 99 41 24 00 D6 29 0A 14 81 47 B2 31 |.)...A$..)...G.1|
000021D0: A4 33 30 30 3A 82 00 E2 29 14 14 41 B2 C5 28 41 |.300:...)..A..(A|
000021E0: 24 29 00 FD 29 1E 14 91 41 89 35 31 37 30 2C 35 |$)..)...A.5170,5|
000021F0: 33 31 30 2C 35 34 38 30 2C 35 31 36 30 00 03 2A |310,5480,5160..*|
00002200: 28 14 8E 00 25 2A 32 14 8F 20 47 52 41 42 41 52 |(...%*2.. GRABAR|
00002210: 20 44 41 54 4F 53 20 50 4F 52 20 44 41 54 41 53 | DATOS POR DATAS|
00002220: 53 45 54 54 45 00 4C 2A 3C 14 99 22 93 11 11 22 |SETTE.L*<.."..."|
00002230: A6 38 29 22 2A 20 49 4E 44 49 43 45 20 44 45 20 |.8)"* INDICE DE |
00002240: 54 45 4C 45 46 4F 4E 4F 53 20 2A 22 00 6E 2A 46 |TELEFONOS *".n*F|
00002250: 14 99 A6 38 29 22 2A 20 47 52 41 42 41 43 49 4F |...8)"* GRABACIO|
00002260: 4E 20 44 45 20 44 41 54 4F 53 20 20 2A 22 00 B4 |N DE DATOS *"..|
00002270: 2A 50 14 99 22 11 11 1D 45 4E 54 52 45 20 45 4C |*P.."...ENTRE EL|
00002280: 20 4E 4F 4D 42 52 45 20 44 45 4C 20 20 20 20 20 | NOMBRE DEL |
00002290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
000022A0: 41 52 43 48 49 56 4F 20 44 45 20 44 41 54 4F 53 |ARCHIVO DE DATOS|
000022B0: 92 3A 22 3B 00 CB 2A 5A 14 85 43 24 3A 8B C3 28 |.:";..*Z..C$:..(|
000022C0: 43 24 29 B1 31 36 A7 35 31 37 30 00 FB 2A 64 14 |C$).16.5170..*d.|
000022D0: 99 22 11 1D 43 4F 4C 4F 51 55 45 20 45 4C 20 43 |."..COLOQUE EL C|
000022E0: 41 53 53 45 54 54 45 20 59 20 50 52 45 53 49 4F |ASSETTE Y PRESIO|
000022F0: 4E 45 20 52 45 43 4F 52 44 2E 22 00 09 2B 6E 14 |NE RECORD."..+n.|
00002300: 9F 37 2C 31 2C 31 2C 43 24 00 39 2B 78 14 99 22 |.7,1,1,C$.9+x.."|
00002310: 11 1D 47 52 41 42 41 4E 44 4F 20 4C 4F 53 20 44 |..GRABANDO LOS D|
00002320: 41 54 4F 53 2E 2E 2E 45 53 50 45 52 45 20 50 4F |ATOS...ESPERE PO|
00002330: 52 20 46 41 56 4F 52 2E 22 00 42 2B 82 14 98 37 |R FAVOR.".B+...7|
00002340: 2C 43 00 4F 2B 8C 14 81 46 B2 30 A4 43 AB 31 00 |,C.O+...F.0.C.1.|
00002350: 84 2B 96 14 98 37 2C 46 24 28 30 2C 46 29 5A 24 |.+...7,F$(0,F)Z$|
00002360: 46 24 28 31 2C 46 29 5A 24 46 24 28 32 2C 46 29 |F$(1,F)Z$F$(2,F)|
00002370: 5A 24 46 24 28 33 2C 46 29 5A 24 46 24 28 34 2C |Z$F$(3,F)Z$F$(4,|
00002380: 46 29 5A 24 00 8E 2B A0 14 82 46 3A A0 37 00 B6 |F)Z$..+...F:.7..|
00002390: 2B AA 14 99 22 11 1D 4C 4F 53 20 44 41 54 4F 53 |+..."..LOS DATOS|
000023A0: 20 48 41 4E 20 53 49 44 4F 20 47 52 41 42 41 44 | HAN SIDO GRABAD|
000023B0: 4F 53 2E 2E 2E 22 00 CC 2B B4 14 81 47 B2 31 A4 |OS..."..+...G.1.|
000023C0: 31 30 30 30 3A 82 3A 89 35 35 32 30 00 F1 2B BE |1000:.:.5520..+.|
000023D0: 14 8F 20 47 52 41 42 41 52 20 4C 4F 53 20 44 41 |.. GRABAR LOS DA|
000023E0: 54 4F 53 20 45 4E 20 44 49 53 4B 2D 44 52 49 56 |TOS EN DISK-DRIV|
000023F0: 45 00 18 2C C8 14 99 22 93 11 11 22 A6 38 29 22 |E..,..."...".8)"|
00002400: 2A 20 49 4E 44 49 43 45 20 44 45 20 54 45 4C 45 |* INDICE DE TELE|
00002410: 46 4F 4E 4F 53 20 2A 22 00 3A 2C D2 14 99 A6 38 |FONOS *".:,....8|
00002420: 29 22 2A 20 47 52 41 42 41 43 49 4F 4E 20 44 45 |)"* GRABACION DE|
00002430: 20 44 41 54 4F 53 20 20 2A 22 00 80 2C DC 14 99 | DATOS *"..,...|
00002440: 22 11 11 1D 45 4E 54 52 45 20 45 4C 20 4E 4F 4D |"...ENTRE EL NOM|
00002450: 42 52 45 20 44 45 4C 20 20 20 20 20 20 20 20 20 |BRE DEL |
00002460: 20 20 20 20 20 20 20 20 20 20 20 12 41 52 43 48 | .ARCH|
00002470: 49 56 4F 20 44 45 20 44 41 54 4F 53 92 3A 22 3B |IVO DE DATOS.:";|
00002480: 00 99 2C E6 14 85 43 32 24 3A 8B C3 28 43 32 24 |..,...C2$:..(C2$|
00002490: 29 B1 31 36 A7 35 33 31 30 00 AA 2C E7 14 8B 43 |).16.5310..,...C|
000024A0: 32 24 B2 22 22 A7 35 33 31 30 00 C2 2C E9 14 41 |2$."".5310..,..A|
000024B0: 24 B2 C8 28 43 32 24 2C 31 29 3A 41 B2 C6 28 41 |$..(C2$,1):A..(A|
000024C0: 24 29 00 D6 2C EB 14 8B 41 B3 36 35 B0 41 B1 39 |$)..,...A.65.A.9|
000024D0: 30 A7 35 33 31 30 00 06 2D F0 14 99 22 11 1D 43 |0.5310..-..."..C|
000024E0: 4F 4C 4F 51 55 45 20 45 4C 20 44 49 53 4B 45 54 |OLOQUE EL DISKET|
000024F0: 54 45 20 59 20 50 52 45 53 49 4F 4E 45 20 52 45 |TE Y PRESIONE RE|
00002500: 54 55 52 4E 2E 22 00 1A 2D F5 14 A1 41 24 3A 8B |TURN."..-...A$:.|
00002510: 41 24 B2 22 22 A7 35 33 36 35 00 32 2D FA 14 43 |A$."".5365.2-..C|
00002520: 31 24 B2 22 30 3A 22 3A 43 33 24 B2 22 2C 53 2C |1$."0:":C3$.",S,|
00002530: 57 22 00 43 2D 04 15 9F 31 35 2C 38 2C 31 35 2C |W".C-...15,8,15,|
00002540: 22 49 22 00 5A 2D 0E 15 9F 37 2C 38 2C 37 2C 43 |"I".Z-...7,8,7,C|
00002550: 31 24 AA 43 32 24 AA 43 33 24 00 64 2D 18 15 8D |1$.C2$.C3$.d-...|
00002560: 39 32 30 30 00 75 2D 22 15 8B 45 4E B2 36 33 A7 |9200.u-"..EN.63.|
00002570: 89 35 33 38 30 00 7E 2D 2C 15 98 37 2C 43 00 8B |.5380.~-,..7,C..|
00002580: 2D 36 15 81 46 B2 30 A4 43 AB 31 00 C0 2D 40 15 |-6..F.0.C.1..-@.|
00002590: 98 37 2C 46 24 28 30 2C 46 29 5A 24 46 24 28 31 |.7,F$(0,F)Z$F$(1|
000025A0: 2C 46 29 5A 24 46 24 28 32 2C 46 29 5A 24 46 24 |,F)Z$F$(2,F)Z$F$|
000025B0: 28 33 2C 46 29 5A 24 46 24 28 34 2C 46 29 5A 24 |(3,F)Z$F$(4,F)Z$|
000025C0: 00 CE 2D 4A 15 82 46 3A A0 37 3A A0 31 35 00 F6 |..-J..F:.7:.15..|
000025D0: 2D 54 15 99 22 11 1D 4C 4F 53 20 44 41 54 4F 53 |-T.."..LOS DATOS|
000025E0: 20 48 41 4E 20 53 49 44 4F 20 47 52 41 42 41 44 | HAN SIDO GRABAD|
000025F0: 4F 53 2E 2E 2E 22 00 0C 2E 5E 15 81 47 B2 31 A4 |OS..."...^..G.1.|
00002600: 31 30 30 30 3A 82 3A 89 35 35 32 30 00 2E 2E 68 |1000:.:.5520...h|
00002610: 15 8F 20 47 52 41 42 41 52 20 44 41 54 4F 53 20 |.. GRABAR DATOS |
00002620: 50 4F 52 20 4D 4F 44 45 4D 2C 45 54 43 2E 00 55 |POR MODEM,ETC..U|
00002630: 2E 72 15 99 22 93 11 11 22 A6 38 29 22 2A 20 49 |.r.."...".8)"* I|
00002640: 4E 44 49 43 45 20 44 45 20 54 45 4C 45 46 4F 4E |NDICE DE TELEFON|
00002650: 4F 53 20 2A 22 00 90 2E 7C 15 99 22 11 11 11 1D |OS *"...|.."....|
00002660: 45 53 54 41 20 50 41 52 54 45 20 4E 4F 20 48 41 |ESTA PARTE NO HA|
00002670: 20 53 49 44 4F 20 50 52 4F 47 52 41 4D 41 44 41 | SIDO PROGRAMADA|
00002680: 20 50 4F 52 20 45 4C 4D 4F 4D 45 4E 54 4F 2E 22 | POR ELMOMENTO."|
00002690: 00 C1 2E 86 15 99 22 11 2A 50 52 45 53 49 4F 4E |......".*PRESION|
000026A0: 45 20 55 4E 41 20 54 45 43 4C 41 20 50 41 52 41 |E UNA TECLA PARA|
000026B0: 20 56 4F 4C 56 45 52 20 41 4C 20 4D 45 4E 55 2A | VOLVER AL MENU*|
000026C0: 22 00 D5 2E 89 15 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
000026D0: A7 35 35 31 33 00 DE 2E 8B 15 89 31 37 30 00 1D |.5513......170..|
000026E0: 2F 90 15 99 22 11 1D 45 53 54 41 20 53 45 47 55 |/..."..ESTA SEGU|
000026F0: 52 4F 20 51 55 45 20 51 55 49 45 52 45 20 41 42 |RO QUE QUIERE AB|
00002700: 41 4E 44 4F 4E 41 52 20 45 53 54 45 20 20 50 52 |ANDONAR ESTE PR|
00002710: 4F 47 52 41 4D 41 3F 28 53 2F 4E 29 22 00 32 2F |OGRAMA?(S/N)".2/|
00002720: 9A 15 99 22 11 1D 53 55 20 4F 50 43 49 4F 4E 3A |..."..SU OPCION:|
00002730: 22 3B 00 46 2F A4 15 A1 41 24 3A 8B 41 24 B2 22 |";.F/...A$:.A$."|
00002740: 22 A7 35 35 34 30 00 60 2F AE 15 8B 41 24 B3 B1 |".5540.`/...A$..|
00002750: 22 53 22 AF 41 24 B3 B1 22 4E 22 A7 35 35 31 30 |"S".A$.."N".5510|
00002760: 00 70 2F B8 15 8B 41 24 B2 22 4E 22 A7 31 37 30 |.p/...A$."N".170|
00002770: 00 7C 2F C2 15 99 22 93 13 22 3A 80 00 97 2F 40 |.|/..."..":.../@|
00002780: 1F 8F 20 53 55 42 52 55 54 49 4E 41 20 44 45 20 |.. SUBRUTINA DE |
00002790: 45 4E 54 52 41 44 41 00 C0 2F 4A 1F 53 50 24 B2 |ENTRADA../J.SP$.|
000027A0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000027B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000027C0: 00 E1 2F 54 1F 8D 38 32 30 30 3A 8F 20 50 4F 53 |../T..8200:. POS|
000027D0: 49 43 49 4F 4E 41 52 20 45 4C 20 43 55 52 53 4F |ICIONAR EL CURSO|
000027E0: 52 00 FA 2F 5E 1F 99 22 12 22 3B C8 28 53 50 24 |R../^..".";.(SP$|
000027F0: 2C 4C 4E 25 29 3B 22 92 22 3B 00 1B 30 68 1F 8D |,LN%);".";..0h..|
00002800: 38 32 30 30 3A 8F 20 50 4F 53 49 43 49 4F 4E 41 |8200:. POSICIONA|
00002810: 52 20 45 4C 20 43 55 52 53 4F 52 00 26 30 72 1F |R EL CURSOR.&0r.|
00002820: 43 43 24 B2 22 22 00 3A 30 7C 1F A1 43 24 3A 8B |CC$."".:0|..C$:.|
00002830: 43 24 B2 22 22 A7 38 30 36 30 00 4D 30 86 1F 8B |C$."".8060.M0...|
00002840: 43 24 B2 C7 28 31 33 29 A7 38 31 36 30 00 60 30 |C$..(13).8160.`0|
00002850: 90 1F 8B 43 24 B2 C7 28 32 30 29 A7 38 31 31 30 |...C$..(20).8110|
00002860: 00 80 30 9A 1F 8B C3 28 43 43 24 29 B3 4C 4E 25 |..0....(CC$).LN%|
00002870: A7 43 43 24 B2 43 43 24 AA 43 24 3A 99 43 24 3B |.CC$.CC$.C$:.C$;|
00002880: 00 8A 30 A4 1F 89 38 30 36 30 00 9B 30 AE 1F 8B |..0...8060..0...|
00002890: 43 43 24 B2 22 22 A7 38 30 36 30 00 A9 30 B8 1F |CC$."".8060..0..|
000028A0: 99 22 9D 12 20 92 9D 22 3B 00 D0 30 C2 1F 8F 20 |.".. ..";..0... |
000028B0: 42 4F 52 52 41 52 20 43 41 52 41 43 54 45 52 20 |BORRAR CARACTER |
000028C0: 44 45 20 4C 41 20 43 41 44 45 4E 41 20 43 43 24 |DE LA CADENA CC$|
000028D0: 00 E8 30 CC 1F 43 43 24 B2 C8 28 43 43 24 2C C3 |..0..CC$..(CC$,.|
000028E0: 28 43 43 24 29 AB 31 29 00 F2 30 D6 1F 89 38 30 |(CC$).1)..0...80|
000028F0: 36 30 00 16 31 E0 1F 8B 4C 4E 25 B1 C3 28 43 43 |60..1...LN%..(CC|
00002900: 24 29 A7 99 C8 28 53 50 24 2C 4C 4E 25 AB C3 28 |$)...(SP$,LN%..(|
00002910: 43 43 24 29 29 3B 00 1C 31 EA 1F 8E 00 4A 31 08 |CC$));..1....J1.|
00002920: 20 8F 20 53 55 42 52 55 54 49 4E 41 20 44 45 20 | . SUBRUTINA DE |
00002930: 50 4F 53 49 43 49 4F 4E 41 4D 49 45 4E 54 4F 20 |POSICIONAMIENTO |
00002940: 44 45 4C 20 43 55 52 53 4F 52 00 72 31 12 20 52 |DEL CURSOR.r1. R|
00002950: 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00002960: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002970: 11 22 00 9A 31 1C 20 43 24 B2 22 1D 1D 1D 1D 1D |."..1. C$.".....|
00002980: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002990: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 A4 31 26 20 99 |........."..1& .|
000029A0: 22 13 22 3B 00 BC 31 30 20 99 C8 28 52 24 2C 52 |".";..10 ..(R$,R|
000029B0: 25 29 3B C8 28 43 24 2C 43 25 29 3B 00 C2 31 3A |%);.(C$,C%);..1:|
000029C0: 20 8E 00 E6 31 6C 20 8F 20 53 55 42 52 55 54 49 | ...1l . SUBRUTI|
000029D0: 4E 41 20 44 45 20 45 4E 54 52 41 44 41 20 44 45 |NA DE ENTRADA DE|
000029E0: 20 53 20 4F 20 4E 00 EF 31 76 20 99 51 24 3B 00 | S O N..1v .Q$;.|
000029F0: F9 31 80 20 8D 38 34 30 30 00 13 32 8A 20 8B 43 |.1. .8400..2. .C|
00002A00: 24 B3 B1 22 53 22 AF 43 24 B3 B1 22 4E 22 A7 38 |$.."S".C$.."N".8|
00002A10: 33 32 30 00 1C 32 9E 20 99 43 24 3B 00 22 32 A8 |320..2. .C$;."2.|
00002A20: 20 8E 00 5C 32 D0 20 8F 20 56 49 53 55 41 4C 49 | ..\2. . VISUALI|
00002A30: 5A 41 52 20 43 45 4E 54 45 4C 4C 41 4E 44 4F 20 |ZAR CENTELLANDO |
00002A40: 45 4C 20 43 55 52 53 4F 52 20 59 20 4F 42 54 45 |EL CURSOR Y OBTE|
00002A50: 4E 45 52 20 43 41 52 41 43 54 45 52 00 68 32 DA |NER CARACTER.h2.|
00002A60: 20 81 49 B2 30 A4 36 30 00 7A 32 E4 20 8B 49 B2 | .I.0.60.z2. .I.|
00002A70: 30 A7 99 22 12 20 92 9D 22 3B 00 8B 32 EE 20 8B |0..". ..";..2. .|
00002A80: 49 B2 33 30 A7 99 22 20 9D 22 3B 00 A0 32 F8 20 |I.30.." .";..2. |
00002A90: A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 49 B2 36 30 |.C$:.C$.."".I.60|
00002AA0: 00 A7 32 02 21 82 49 00 B7 32 0C 21 8B 43 24 B2 |..2.!.I..2.!.C$.|
00002AB0: 22 22 A7 38 34 30 30 00 BD 32 16 21 8E 00 EB 32 |"".8400..2.!...2|
00002AC0: 34 21 8F 20 53 55 42 52 55 54 49 4E 41 20 50 41 |4!. SUBRUTINA PA|
00002AD0: 52 41 20 4F 42 54 45 4E 45 52 20 55 4E 20 4D 55 |RA OBTENER UN MU|
00002AE0: 4D 45 52 4F 20 45 4E 20 4E 4D 25 00 F5 32 3E 21 |MERO EN NM%..2>!|
00002AF0: 8D 38 30 30 30 00 FE 32 48 21 99 51 24 3B 00 08 |.8000..2H!.Q$;..|
00002B00: 33 52 21 8D 38 34 30 30 00 16 33 5C 21 4E 4D 25 |3R!.8400..3\!NM%|
00002B10: B2 C5 28 43 24 29 00 30 33 66 21 8B 4E 4D 25 B3 |..(C$).03f!.NM%.|
00002B20: 4C 4F 25 B0 4E 4D 25 B1 48 49 25 A7 38 35 33 30 |LO%.NM%.HI%.8530|
00002B30: 00 39 33 70 21 99 43 24 3B 00 3F 33 7A 21 8E 00 |.93p!.C$;.?3z!..|
00002B40: 5D 33 28 23 8F 20 44 49 4D 45 4E 53 49 4F 4E 45 |]3(#. DIMENSIONE|
00002B50: 53 20 59 20 56 41 52 49 41 42 4C 45 53 00 6D 33 |S Y VARIABLES.m3|
00002B60: 32 23 86 20 46 24 28 34 2C 31 30 30 29 00 7A 33 |2#. F$(4,100).z3|
00002B70: 3C 23 43 B2 30 3A 43 4B B2 30 00 85 33 46 23 5A |<#C.0:CK.0..3F#Z|
00002B80: 24 B2 22 2C 22 00 9B 33 50 23 97 35 33 32 38 30 |$.","..3P#.53280|
00002B90: 2C 30 3A 97 35 33 32 38 31 2C 30 00 A6 33 5A 23 |,0:.53281,0..3Z#|
00002BA0: 97 36 34 36 2C 35 00 AC 33 8B 23 8E 00 CF 33 F0 |.646,5..3.#...3.|
00002BB0: 23 8F 20 52 55 54 49 4E 41 20 44 45 20 45 52 52 |#. RUTINA DE ERR|
00002BC0: 4F 52 20 44 45 4C 20 44 49 53 4B 45 54 54 45 00 |OR DEL DISKETTE.|
00002BD0: EB 33 FA 23 84 31 35 2C 45 4E 2C 45 4D 24 2C 54 |.3.#.15,EN,EM$,T|
00002BE0: 2C 53 3A 8B 45 4E B3 32 30 A7 8E 00 09 34 04 24 |,S:.EN.20....4.$|
00002BF0: 8B 45 4E B2 36 33 A7 43 31 24 B2 22 40 30 3A 22 |.EN.63.C1$."@0:"|
00002C00: 3A A0 37 3A A0 31 35 3A 8E 00 23 34 0E 24 99 22 |:.7:.15:..#4.$."|
00002C10: 45 52 52 4F 52 20 23 22 3B 45 4E 2C 45 4D 24 2C |ERROR #";EN,EM$,|
00002C20: 54 2C 53 00 55 34 18 24 99 22 11 11 2A 50 52 45 |T,S.U4.$."..*PRE|
00002C30: 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 4C 41 20 |SIONE UNA TECLA |
00002C40: 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C 20 4D |PARA VOLVER AL M|
00002C50: 45 4E 55 2A 22 00 69 34 22 24 A1 41 24 3A 8B 41 |ENU*".i4"$.A$:.A|
00002C60: 24 B2 22 22 A7 39 32 35 30 00 73 34 2C 24 89 31 |$."".9250.s4,$.1|
00002C70: 30 30 30 00 94 34 54 24 8F 20 52 55 54 49 4E 41 |000..4T$. RUTINA|
00002C80: 20 44 45 20 4F 52 44 45 4E 20 41 4C 46 41 42 45 | DE ORDEN ALFABE|
00002C90: 54 49 43 4F 00 A1 34 5E 24 81 58 B2 30 A4 43 AB |TICO..4^$.X.0.C.|
00002CA0: 32 00 B0 34 68 24 81 59 B2 58 AA 31 A4 43 AB 31 |2..4h$.Y.X.1.C.1|
00002CB0: 00 CA 34 72 24 8B 46 24 28 30 2C 58 29 B1 46 24 |..4r$.F$(0,X).F$|
00002CC0: 28 30 2C 59 29 A7 39 33 37 30 00 D1 34 7C 24 82 |(0,Y).9370..4|$.|
00002CD0: 59 00 D8 34 86 24 82 58 00 DE 34 90 24 8E 00 08 |Y..4.$.X..4.$...|
00002CE0: 35 9A 24 54 24 B2 46 24 28 30 2C 58 29 3A 46 24 |5.$T$.F$(0,X):F$|
00002CF0: 28 30 2C 58 29 B2 46 24 28 30 2C 59 29 3A 46 24 |(0,X).F$(0,Y):F$|
00002D00: 28 30 2C 59 29 B2 54 24 00 32 35 A4 24 54 24 B2 |(0,Y).T$.25.$T$.|
00002D10: 46 24 28 31 2C 58 29 3A 46 24 28 31 2C 58 29 B2 |F$(1,X):F$(1,X).|
00002D20: 46 24 28 31 2C 59 29 3A 46 24 28 31 2C 59 29 B2 |F$(1,Y):F$(1,Y).|
00002D30: 54 24 00 5C 35 AE 24 54 24 B2 46 24 28 32 2C 58 |T$.\5.$T$.F$(2,X|
00002D40: 29 3A 46 24 28 32 2C 58 29 B2 46 24 28 32 2C 59 |):F$(2,X).F$(2,Y|
00002D50: 29 3A 46 24 28 32 2C 59 29 B2 54 24 00 86 35 B8 |):F$(2,Y).T$..5.|
00002D60: 24 54 24 B2 46 24 28 33 2C 58 29 3A 46 24 28 33 |$T$.F$(3,X):F$(3|
00002D70: 2C 58 29 B2 46 24 28 33 2C 59 29 3A 46 24 28 33 |,X).F$(3,Y):F$(3|
00002D80: 2C 59 29 B2 54 24 00 B0 35 C2 24 54 24 B2 46 24 |,Y).T$..5.$T$.F$|
00002D90: 28 34 2C 58 29 3A 46 24 28 34 2C 58 29 B2 46 24 |(4,X):F$(4,X).F$|
00002DA0: 28 34 2C 59 29 3A 46 24 28 34 2C 59 29 B2 54 24 |(4,Y):F$(4,Y).T$|
00002DB0: 00 BA 35 CC 24 89 39 33 34 30 00 DC 35 1C 25 8F |..5.$.9340..5.%.|
00002DC0: 20 52 55 54 49 4E 41 20 44 45 20 42 55 53 51 55 | RUTINA DE BUSQU|
00002DD0: 45 44 41 20 44 45 20 44 41 54 4F 53 00 1C 36 26 |EDA DE DATOS..6&|
00002DE0: 25 8B 4C B2 32 A7 99 22 11 11 1D 50 4F 52 20 46 |%.L.2.."...POR F|
00002DF0: 41 56 4F 52 2C 20 54 45 43 4C 45 45 20 4C 41 20 |AVOR, TECLEE LA |
00002E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002E10: 20 20 44 49 52 45 43 43 49 4F 4E 22 00 45 36 30 | DIRECCION".E60|
00002E20: 25 8B 4C B3 B1 32 A7 99 22 11 11 1D 50 4F 52 20 |%.L..2.."...POR |
00002E30: 46 41 56 4F 52 2C 20 54 45 43 4C 45 45 20 45 4C |FAVOR, TECLEE EL|
00002E40: 22 3A 99 4E 24 00 4D 36 3A 25 85 48 24 00 5A 36 |":.N$.M6:%.H$.Z6|
00002E50: 44 25 81 46 B2 30 A4 43 AB 31 00 6F 36 4E 25 8B |D%.F.0.C.1.o6N%.|
00002E60: 46 24 28 4C 2C 46 29 B2 48 24 A7 39 36 31 30 00 |F$(L,F).H$.9610.|
00002E70: 76 36 58 25 82 46 00 AE 36 62 25 99 22 11 1D 45 |v6X%.F..6b%."..E|
00002E80: 4C 20 44 41 54 4F 20 53 4F 4C 49 43 49 54 41 44 |L DATO SOLICITAD|
00002E90: 4F 20 4E 4F 20 46 49 47 55 52 41 20 45 4E 20 45 |O NO FIGURA EN E|
00002EA0: 4C 20 20 52 45 2D 47 49 53 54 52 4F 2E 22 00 DF |L RE-GISTRO."..|
00002EB0: 36 6C 25 99 22 11 2A 50 52 45 53 49 4F 4E 45 20 |6l%.".*PRESIONE |
00002EC0: 55 4E 41 20 54 45 43 4C 41 20 50 41 52 41 20 56 |UNA TECLA PARA V|
00002ED0: 4F 4C 56 45 52 20 41 4C 20 4D 45 4E 55 2A 22 00 |OLVER AL MENU*".|
00002EE0: F3 36 76 25 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 |.6v%.A$:.A$."".9|
00002EF0: 35 39 30 00 F9 36 80 25 8E 00 05 37 8A 25 8B 43 |590..6.%...7.%.C|
00002F00: 4B B2 31 A7 8E 00 2A 37 94 25 99 22 11 11 1D 41 |K.1...*7.%."...A|
00002F10: 50 45 4C 4C 49 44 4F 20 59 20 4E 4F 4D 42 52 45 |PELLIDO Y NOMBRE|
00002F20: 3A 22 3B 46 24 28 30 2C 46 29 00 45 37 9E 25 99 |:";F$(0,F).E7.%.|
00002F30: 22 11 1D 54 45 4C 45 46 4F 4E 4F 3A 22 3B 46 24 |"..TELEFONO:";F$|
00002F40: 28 31 2C 46 29 00 66 37 A8 25 99 22 11 1D 43 41 |(1,F).f7.%."..CA|
00002F50: 4C 4C 45 20 59 20 4E 55 4D 45 52 4F 3A 22 3B 46 |LLE Y NUMERO:";F|
00002F60: 24 28 32 2C 46 29 00 86 37 B2 25 99 22 11 1D 43 |$(2,F)..7.%."..C|
00002F70: 4F 44 49 47 4F 20 50 4F 53 54 41 4C 3A 22 3B 46 |ODIGO POSTAL:";F|
00002F80: 24 28 33 2C 46 29 00 9F 37 BC 25 99 22 11 1D 43 |$(3,F)..7.%."..C|
00002F90: 49 55 44 41 44 3A 22 3B 46 24 28 34 2C 46 29 00 |IUDAD:";F$(4,F).|
00002FA0: C6 37 C6 25 99 22 11 11 1D 44 45 53 45 41 20 42 |.7.%."...DESEA B|
00002FB0: 55 53 43 41 52 20 4F 54 52 4F 20 44 41 54 4F 3F |USCAR OTRO DATO?|
00002FC0: 28 53 2F 4E 29 22 00 DA 37 D0 25 A1 41 24 3A 8B |(S/N)"..7.%.A$:.|
00002FD0: 41 24 B2 22 22 A7 39 36 38 30 00 F4 37 DA 25 8B |A$."".9680..7.%.|
00002FE0: 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 4E 22 A7 |A$.."S".A$.."N".|
00002FF0: 39 36 38 30 00 05 38 E4 25 8B 41 24 B2 22 53 22 |9680..8.%.A$."S"|
00003000: A7 32 30 30 30 00 0B 38 EE 25 8E 00 00 00 4C 59 |.2000..8.%....LY|
..#.D.. ***************************.E.N.
. *** INDICE DE TELEFONOS ***.G.X.. ****
***********************...... POR FRANCI
SCO AGOTE...... ADAPTADO PARA LA COMMODO
RE 64.F.... SAN ISIDRO, JULIO DE 1985..P
. ..9000...... PRESENTACION......"...".8
)"* INDICE DE TELEFONOS *".7...."...SELE
CCIONE EL NUMERO DE SU OPCION:".J.H.."..
..1. ENTRAR DATOS(POR TECLADO O EXTERIOR
)"...R..".2. BUSCAR UN DATO."......"..3.
MODIFICAR UN DATO.".S...."..4. LISTAR E
L INDICE EN UNA IMPRESORA."......"..5. G
RABAR LOS DATOS Y ESCAPAR."......"....SU
OPCION:";.%....A$:.A$."".260.@....F(A$)
.49.F(A$).53.260.H....A$.W."..G.1.300:..
C.,.A.E(A$)...6..A.1000,2000,3000,4000,5
000...@.. 170. .... ENTRAR DATOS.G....".
..".8)"* INDICE DE TELEFONOS *".......8)
"* ENTRADA DE DATOS *"......"...SELEC
CIONE EL NUMERO DE SU OPCION:".>...."...
.1. ENTRAR DATOS POR TECLADO.".G...."..2
. ENTRAR DATOS POR DATASSETTE."...$.."..
3. ENTRAR DATOS POR DISK-DRIVE."......".
.4. ENTRAR DATOS POR OTRO MEDIO."...8.."
..5. VOLVER AL MENU PRINCIPAL."...B.."..
.SU OPCION:";...L..A$:.A$."".1100.%.V..F
(A$).49.F(A$).53.1100.-.`..A$.<.J..G.1.3
00:..H.T.A.E(A$).H.~..A.1170,1360,1500,1
680,1160.N.........."...".8)"* INDICE DE
TELEFONOS *".......8)"* ENTRADA DE DA
TOS *"......"...POR FAVOR, TECLEE LOS D
ATOS A ENTRAR:"......"....APELL.Y NOMBRE
:"......"..TELEFONO:".,...."..CALLE Y NR
O.:".A...."..COD.POSTAL:".R...."..CIUDAD
:".\...ED%.0.Y...R%.10:C%.16:LN%.23:.800
0...D.F$(0,C).CC$...I..ED%.1285...N.R%.1
2:C%.11:LN%.10:.8000.D.S.F$(1,C).CC$.R.X
..ED%.1285.....R%.14:C%.15:LN%.23:.8000.
....F$(2,C).CC$......ED%.1285.)...R%.16:
C%.13:LN%.5:.8000.9...F$(3,C).CC$.G....E
D%.1285.C...R%.18:C%.9:LN%.12:.8000.S...
F$(4,C).CC$.~...ED%..1.....R%.20:C%.0:.8
200.H...Q$."..DESEA MODIFICAR ALGUN DATO
?(S/N) .":.8300......C$."N".C.C.1:.....
.Q$."..QUE LINEA?(1-5): .".....R%.22:LN
%.0:LO%.1:HI%.5:.8500.?.#..NM%.1215,1230
,1245,1260,1275.A.P.. ENTRAR DATOS POR D
ATASSETTE...Z.."...".8)"* INDICE DE TELE
FONOS *"...D...8)"* ENTRADA DE DATOS
*"...N.."...ENTRE EL NOMBRE DEL
.ARCHIVO DE DATOS.:";...X..C$
:.C(C$).16.1360.5...."..COLOQUE EL CASSE
TTE Y PRESIONE PLAY.".C....7,1,0,C$.S...
."..CARGANDO LOS DATOS...ESPERE POR FAVO
R.".|. ..7,C......F.0.C.1......7,F$(0,F)
,F$(1,F),F$(2,F),F$(3,F),F$(4,F).B....F:
7...H.."..LOS DATOS HAN SIDO CARGADOS..
."...R..G.1.1000:.:....... CARGAR DATOS
POR DISK-DRIVE.E...."...".8)"* INDICE DE
TELEFONOS *".G.....8)"* ENTRADA DE DA
TOS *"......"...ENTRE EL NOMBRE DEL
.ARCHIVO DE DATOS.:";.F.
...C2$:.C(C2$).16.1500......"..COLOQUE E
L DISKETTE Y PRESIONE RETURN."......A$:.
A$."".1560.".".C1$."0:":C3$.",S,R".3.,..
15,8,15,"I".J.6..7,8,7,C1$.C2$.C3$.T.@..
9200...J.."..CARGANDO LOS DATOS...ESPERE
POR FAVOR."...T..7,C...^..F.0.C.1.I.H..
7,F$(0,F),F$(1,F),F$(2,F),F$(3,F),F$(4,F
).W.R..F: 7: 15...|.."..LOS DATOS HAN SI
DO CARGADOS..."......G.1.1000:.:..3....
ENTRAR DATOS POR OTRO MEDIO.Z...."...".8
)"* INDICE DE TELEFONOS *".|.....8)"* E
NTRADA DE DATOS *"......"....ESTA PART
E NO HA SIDO PROGRAMADA POR ELMOMENTO.".
.....".*PRESIONE UNA TECLA PARA VOLVER A
L MENU*"...B..A$:.A$."".1730...L..G.1.10
00:.:..&.P.. BUSQUEDA DE DATOS.M.Z.."...
".8)"* INDICE DE TELEFONOS *".O.....8)"*
BUSQUEDA DE DATOS *"......"...SELECCI
ONE EL NUMERO DE SU OPCION:".L...."...1.
BUSCAR DATOS POR APELLIDO Y NOMBRE.....
.."..2. BUSCAR DATOS POR TELEFONO.".....
."..3. BUSCAR DATOS POR DIRECCION.".>...
."..4. LISTAR TODO EL INDICE.".K. .."..5
. LISTAR EL INDICE POR CIUDAD,ETC."...*.
."..6. VOLVER AL MENU PRINCIPAL."...4.."
....SU OPCION:";...>..A$:.A$."".2110.X.H
..F(A$).49.F(A$).54.2110...R..A$...\..G.
1.300:....F.A.E(A$). .P..A.2180,2250,231
0,2350,2460,2170.&.Z...F.... BUSCAR DATO
S POR APELLIDO.M...."...".8)"* INDICE DE
TELEFONOS *".......8)"* BUSQUEDA DE DA
TOS *".....N$."APELLIDO Y NOMBRE".....L
.0......9500...... BUSCAR DATOS POR TELE
FONO...J.."...".8)"* INDICE DE TELEFONOS
*".%.T...8)"* BUSQUEDA DE DATOS *".7.
..N$."TELEFONO".?...L.1.I....9500.J....
BUSCAR DATOS POR DIRECCION......"...".8)
"* INDICE DE TELEFONOS *".......8)"* BU
SQUEDA DE DATOS *".....L.2.E.$..9500...
... LISTAR TODO EL INDICE...8.."...".8)"
* INDICE DE TELEFONOS *".*.B...8)"* BUS
QUEDA DE DATOS *".M.L.."... IND
ICE COMPLETO".Z.V..F.0.C.1.T.`..F$(0,F);
.31);F$(1,F)...J..G.1.200:....T..F...~..
"..*PRESIONE UNA TECLA PARA VOLVER AL ME
NU*".P....A$:.A$."".2440.V.......... LIS
TAR INDICE POR CIUDAD,ETC. ...."...".8)"
* INDICE DE TELEFONOS *".B.....8)"* BUS
QUEDA DE DATOS *".O...."...SELECCIONE E
L NUMERO DE SU OPCION:"...D.."...1. LIST
AR POR INICIAL."...N.."..2. LISTAR POR C
IUDAD.".U.X.."..3. VOLVER AL MENU PRINCI
PAL."......"....SU OPCION:";......A$:.A$
."".2540......F(A$).49.F(A$).51.2540.$..
..A$.3....G.1.300:..?...A.E(A$).U....A.2
610,2720,2600.[.(.....2.."...".8)"* INDI
CE DE TELEFONOS *"...<...8)"* BUSQUEDA
DE DATOS *"...F.."....POR FAVOR, TECLEE
LA INICIAL ELEGIDA":.".INICIAL:";...P..
A$:.A$."".2640...Z..A$:.".."...D..F.0.C.
1.=.N..H((F$(0,F)),1).A$..F$(0,F)" "F$
(1,F).D.X..F.V...."..*PRESIONE UNA TECLA
PARA VOLVER AL MENU*"......A$:.A$."".27
00......... .."...".8)"* INDICE DE TELEF
ONOS *".Y.....8)"* BUSQUEDA DE DATOS *
"......"....POR FAVOR, TECLEE LA CIUDAD
ELEGIDA":.".CIUDAD:";......A$.'.H.."..".
4.R..F.0.C.1.Y....F$(4,F).A$..F$(0,F)"
"F$(2,F).`....F......"..*PRESIONE UNA T
ECLA PARA VOLVER AL MENU*"......A$:.A$."
".2810.......D.... MODIFICAR UN DATO...B
.."...".8)"* INDICE DE TELEFONOS *"...L.
..8)"*MODIFICACION DE DATOS*".9.V.."..SE
LECCIONE EL NUMERO DE SU OPCION:".D...."
...1. MODIFICAR UN ITEM DE UN DATO."....
.."..2. BORRAR UN DATO."......"..3. VOLV
ER AL MENU PRINCIPAL."......"....SU OPCI
ON:";.Q....A$:.A$."".3080......F(A$).49.
F(A$).51.3080......A$...&..G.1.300:....0
.A.E(A$).&.:..A.3150,3680,3140.1.D.CK.0:
..T.N.. MODIFICAR UN ITEM DE UN DATO.{.X
.."...".8)"* INDICE DE TELEFONOS *"...B.
..8)"*MODIFICACION DE DATOS*"...L.."...A
NTES DE MODIFICAR UN DATO HAY QUE LO
CALIZARLO."...V.N$."APELLIDO Y NOMBRE":C
K.1:L.0...... 9500......F.C...<...."..."
.8)"* INDICE DE TELEFONOS *".^.....8)"*M
ODIFICACION DE DATOS*"......"...EL DATO
HA SIDO LOCALIZADO."......".QUE ITEM DES
EA MODIFICAR?:".J...."...1. EL APELLIDO
Y NOMBRE."......"..2. EL TELEFONO.".. F.
."..3. LA CALLE Y EL NUMERO.".# P.."..4.
EL CODIGO POSTAL.".: Z.."..5. LA CIUDAD
.".` ..."..6. VOLVER AL MENU PRINCIPAL."
.V ..."...SU OPCION:";.. ...A$:.A$."".33
20.. ...F(A$).49.F(A$).54.3320.. ...A$..
...G.1.300:..I .A.E(A$).. *..A.3390,34
40,3490,3540,3590,3380.. 4....!>.."...".
8)"* INDICE DE TELEFONOS *".=!H...8)"*MO
DIFICACION DE DATOS*".J!R.."...TECLEE EL
NUEVO APELLIDO Y NOMBRE:"..!\.."APELLID
O Y NOMBRE:";F$(0,F)..!F..3630..!P.."...
".8)"* INDICE DE TELEFONOS *"..!Z...8)"*
MODIFICACION DE DATOS*".."..."...TECLEE
EL NUEVO TELEFONO:".."..."TELEFONO:";F$(
1,F).&"...3630.M"..."...".8)"* INDICE DE
TELEFONOS *".O"....8)"*MODIFICACION DE
DATOS*".."..."...TECLEE LA NUEVA CALLE Y
EL NUMERO:".."..."CALLE Y NUMERO:";F$(2
,F).E"J..3630.S"T.NM%.E(C$).."...NM%.LO%
.NM%.HI%.8530..#..."...TECLEE EL NUEVO C
ODIGO POSTAL:".4#..."CODIGO POSTAL:";F$(
3,F).>#...3630.E#..."...".8)"* INDICE DE
TELEFONOS *"..#....8)"*MODIFICACION DE
DATOS*"..#..."...TECLEE LA NUEVA CIUDAD:
"..#$.."CIUDAD:";F$(4,F)..#..."...DESEA
MODIFICAR OTRO ITEM DEL DATO?"..$/..A$:
.A$."".3631..$0..A$.."S".A$.."N".3631./$
1..A$."N".M.1...@$2..A$."N".3639.J$3..32
10.T$7.."...DESEA MODIFICAR OTRO DATO?(S
/N)"..$8..A$:.A$."".3640..$B..A$.."S".A$
.."N".3640..$L..A$."S".3000..$V.CK.0:..S
$`.. BORRAR UN DATO..$J.."...".8)"* INDI
CE DE TELEFONOS *"..%T...8)"*MODIFICACIO
N DE DATOS*".T%~.."...ANTES DE BORRAR UN
DATO HAY QUE LOCALI-ZARLO.".X%..N$."APE
LLIDO Y NOMBRE":CK.1:L.0..%... 9500..%..
."...".8)"* INDICE DE TELEFONOS *".L%...
.8)"*MODIFICACION DE DATOS*"..%..."...EL
DATO HA SIDO LOCALIZADO.".!&..."..ESTA
SEGURO QUE QUIERE BORRARLO?(S/N)".5&D..A
$:.A$."".3780.H&N..A$."N".CK.0:..Q&X..".
.ESPERE UN MOMENTO, POR FAVOR...".~&...J
.F.C.1.J&..F$(0,J).F$(0,J.1):F$(1,J).F$(
1,J.1):F$(2,J).F$(2,J.1):F$(3,J).F$(3,J.
1)..&..F$(4,J).F$(4,J.1):...&..CK.0:C.C.
1:...' .. LISTAR INDICE EN IMPRESORA.;'.
.."...".8)"* INDICE DE TELEFONOS *".V'..
."....ESTA PARTE NO HA SIDO PROGRAMADA P
OR ELMOMENTO."..'...".*PRESIONE UNA TECL
A PARA VOLVER AL MENU*"..'H..A$:.A$."".4
040.A'R....'... GRABAR LOS DATOS Y ESCAP
AR..(..."...".8)"* INDICE DE TELEFONOS *
".L(..."...ANTES DE ESCAPAR DEL PROGRAMA
HAY QUE GRABAR LOS DATOS."..(...".PRIM
ERO ORDENAREMOS LOS DATOS POR ALFA-BETO
Y DESPUES LOS GRABARE";.N(..."MOS.":.".P
OR FAVOR, ESPERE..ORDENO LOS DATOS...".X
(...9300..)..."..SELECCIONE LA FORMA DE
GRABACION.". )..."...1. POR DATASSETTE."
.<)D.."..2. POR DISK-DRIVE.".T)N.."..3.
OTRO MEDIO.".Z)X.."..4. VOLVER AL MENU P
RINCIPAL."..)..."..SU OPCION:";..)...A$:
.A$."".5100..)...F(A$).49.F(A$).52.5100.
G)...A$.V)...G.1.300:...)..A.E(A$)..)...
A.5170,5310,5480,5160..*(...%*2.. GRABAR
DATOS POR DATASSETTE.L*<.."...".8)"* IN
DICE DE TELEFONOS *".N*F...8)"* GRABACIO
N DE DATOS *"..*P.."...ENTRE EL NOMBRE
DEL .ARCHIVO DE DATOS
.:";.K*Z..C$:.C(C$).16.5170..*D.."..COLO
QUE EL CASSETTE Y PRESIONE RECORD."..+N.
.7,1,1,C$.9+X.."..GRABANDO LOS DATOS...E
SPERE POR FAVOR.".B+...7,C.O+...F.0.C.1.
.+...7,F$(0,F)Z$F$(1,F)Z$F$(2,F)Z$F$(3,F
)Z$F$(4,F)Z$..+ ..F: 7..+..."..LOS DATOS
HAN SIDO GRABADOS...".L+...G.1.1000:.:.
5520..+... GRABAR LOS DATOS EN DISK-DRIV
E..,H.."...".8)"* INDICE DE TELEFONOS *"
.:,R...8)"* GRABACION DE DATOS *"..,...
"...ENTRE EL NOMBRE DEL
.ARCHIVO DE DATOS.:";..,...C2$:.C(C2$
).16.5310..,...C2$."".5310.B,..A$.H(C2$,
1):A.F(A$).V,...A.65.A.90.5310..-..."..C
OLOQUE EL DISKETTE Y PRESIONE RETURN."..
-...A$:.A$."".5365.2-..C1$."0:":C3$.",S,
W".C-...15,8,15,"I".Z-...7,8,7,C1$.C2$.C
3$.D-...9200.U-"..EN.63..5380.~-,..7,C..
-6..F.0.C.1..-@..7,F$(0,F)Z$F$(1,F)Z$F$(
2,F)Z$F$(3,F)Z$F$(4,F)Z$.N-J..F: 7: 15..
-T.."..LOS DATOS HAN SIDO GRABADOS..."..
.^..G.1.1000:.:.5520...H.. GRABAR DATOS
POR MODEM,ETC..U.R.."...".8)"* INDICE DE
TELEFONOS *"...|.."....ESTA PARTE NO HA
SIDO PROGRAMADA POR ELMOMENTO.".A....".
*PRESIONE UNA TECLA PARA VOLVER AL MENU*
".U....A$:.A$."".5513......170../..."..E
STA SEGURO QUE QUIERE ABANDONAR ESTE PR
OGRAMA?(S/N)".2/..."..SU OPCION:";.F/...
A$:.A$."".5540.`/...A$.."S".A$.."N".5510
.P/...A$."N".170.|/B.."..":.../@.. SUBRU
TINA DE ENTRADA../J.SP$."
"../T..8200:. POSICIONAR
EL CURSOR../^..".";H(SP$,LN%);".";..0H..
8200:. POSICIONAR EL CURSOR.&0R.CC$."".:
0|..C$:.C$."".8060.M0...C$.G(13).8160.`0
...C$.G(20).8110..0...C(CC$).LN%.CC$.CC$
.C$:.C$;..0...8060..0...CC$."".8060..0..
.".. ..";.P0B.. BORRAR CARACTER DE LA CA
DENA CC$..0L.CC$.H(CC$,C(CC$).1)..0V..80
60..1...LN%.C(CC$)..H(SP$,LN%.C(CC$));..
1....J1. . SUBRUTINA DE POSICIONAMIENTO
DEL CURSOR.R1. R$.".....................
........."..1. C$.".....................
........."..1& .".";..10 .H(R$,R%);H(C$,
C%);.B1: ...1L . SUBRUTINA DE ENTRADA DE
S O N..1V .Q$;..1. .8400..2. .C$.."S".C
$.."N".8320..2. .C$;."2. ..\2P . VISUALI
ZAR CENTELLANDO EL CURSOR Y OBTENER CARA
CTER.H2Z .I.0.60.Z2. .I.0..". ..";..2. .
I.30.." .";. 2. .C$:.C$.."".I.60..2.!.I.
.2.!.C$."".8400..2.!...24!. SUBRUTINA PA
RA OBTENER UN MUMERO EN NM%..2>!.8000..2
H!.Q$;..3R!.8400..3\!NM%.E(C$).03F!.NM%.
LO%.NM%.HI%.8530.93P!.C$;.?3Z!..]3(#. DI
MENSIONES Y VARIABLES.M32#. F$(4,100).Z3
<#C.0:CK.0..3F#Z$.","..3P#.53280,0:.5328
1,0..3Z#.646,5..3.#..O3.#. RUTINA DE ERR
OR DEL DISKETTE..3.#.15,EN,EM$,T,S:.EN.2
0....4.$.EN.63.C1$."@0:": 7: 15:..#4.$."
ERROR #";EN,EM$,T,S.U4.$."..*PRESIONE UN
A TECLA PARA VOLVER AL MENU*".I4"$.A$:.A
$."".9250.S4,$.1000..4T$. RUTINA DE ORDE
N ALFABETICO..4^$.X.0.C.2..4H$.Y.X.1.C.1
.J4R$.F$(0,X).F$(0,Y).9370.Q4|$.Y.X4.$.X
..4.$...5.$T$.F$(0,X):F$(0,X).F$(0,Y):F$
(0,Y).T$.25.$T$.F$(1,X):F$(1,X).F$(1,Y):
F$(1,Y).T$.\5.$T$.F$(2,X):F$(2,X).F$(2,Y
):F$(2,Y).T$..5.$T$.F$(3,X):F$(3,X).F$(3
,Y):F$(3,Y).T$..5B$T$.F$(4,X):F$(4,X).F$
(4,Y):F$(4,Y).T$..5L$.9340..5.%. RUTINA
DE BUSQUEDA DE DATOS..6&%.L.2.."...POR F
AVOR, TECLEE LA DIRECC
ION".E60%.L..2.."...POR FAVOR, TECLEE EL
":.N$.M6:%.H$.Z6D%.F.0.C.1.O6N%.F$(L,F).
H$.9610.V6X%.F..6B%."..EL DATO SOLICITAD
O NO FIGURA EN EL RE-GISTRO."..6L%.".*P
RESIONE UNA TECLA PARA VOLVER AL MENU*".
.6V%.A$:.A$."".9590..6.%...7.%.CK.1...*7
.%."...APELLIDO Y NOMBRE:";F$(0,F).E7.%.
"..TELEFONO:";F$(1,F).F7.%."..CALLE Y NU
MERO:";F$(2,F)..7.%."..CODIGO POSTAL:";F
$(3,F)..7.%."..CIUDAD:";F$(4,F).F7F%."..
.DESEA BUSCAR OTRO DATO?(S/N)".Z7P%.A$:.
A$."".9680..7Z%.A$.."S".A$.."N".9680..8.
%.A$."S".2000..8.%....LY
> CLICK IMAGE PREVIEW FOR FULL MODAL