AGENDA TELEFONO
FILE INFORMATION
FILENAME(S): AGENDA TELEFONO
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
2e1b30e397eba209c09f28f8f9ecd90e4057699e10300523796cf506f653c84a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | AGENDA TELEFONO | PRG | Bugjam - Argentina | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 35 33 32 38 31 2C 30 00 2A 08 02 00 97 35 33 32 |53281,0.*....532| 00000020: 37 32 2C 32 33 3A 99 22 99 22 00 48 08 0A 00 86 |72,23:.".".H....| 00000030: 20 4E 24 28 33 30 30 29 2C 44 24 28 33 30 30 29 | N$(300),D$(300)| 00000040: 2C 54 24 28 33 30 30 29 00 52 08 14 00 99 20 22 |,T$(300).R.... "| 00000050: 93 22 00 71 08 19 00 99 20 A3 31 31 29 3B 22 41 |.".q.... .11);"A| 00000060: 47 45 4E 44 41 20 54 45 4C 45 46 4F 4E 49 43 41 |GENDA TELEFONICA| 00000070: 22 00 94 08 1B 00 99 20 A3 31 31 29 3B 22 3D 3D |"...... .11);"==| 00000080: 3D 3D 3D 3D 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==== =========="| 00000090: 3A 99 3A 99 00 B3 08 1E 00 99 20 A3 38 29 3B 22 |:.:....... .8);"| 000000A0: 31 5F 49 4E 47 52 45 53 41 52 20 44 41 54 4F 53 |1_INGRESAR DATOS| 000000B0: 22 3A 99 00 D0 08 28 00 99 20 A3 38 29 3B 22 32 |":....(.. .8);"2| 000000C0: 5F 42 4F 52 52 41 52 20 44 41 54 4F 53 22 3A 99 |_BORRAR DATOS":.| 000000D0: 00 EE 08 32 00 99 20 A3 38 29 3B 22 33 5F 41 47 |...2.. .8);"3_AG| 000000E0: 52 45 47 41 52 20 44 41 54 4F 53 22 3A 99 00 0C |REGAR DATOS":...| 000000F0: 09 3C 00 99 20 A3 38 29 3B 22 34 5F 43 41 4D 42 |.<.. .8);"4_CAMB| 00000100: 49 41 52 20 44 41 54 4F 53 22 3A 99 00 2D 09 46 |IAR DATOS":..-.F| 00000110: 00 99 20 A3 38 29 3B 22 35 5F 4C 49 53 54 41 20 |.. .8);"5_LISTA | 00000120: 41 4C 46 41 42 45 54 49 43 41 22 3A 99 00 4A 09 |ALFABETICA":..J.| 00000130: 50 00 99 20 A3 38 29 3B 22 36 5F 42 55 53 43 41 |P.. .8);"6_BUSCA| 00000140: 52 20 44 41 54 4F 53 22 3A 99 00 67 09 5A 00 99 |R DATOS":..g.Z..| 00000150: 20 A3 38 29 3B 22 37 5F 4C 45 45 52 20 41 52 43 | .8);"7_LEER ARC| 00000160: 48 49 56 4F 22 3A 99 00 86 09 64 00 99 20 A3 38 |HIVO":....d.. .8| 00000170: 29 3B 22 38 5F 47 52 41 42 41 52 20 41 52 43 48 |);"8_GRABAR ARCH| 00000180: 49 56 4F 22 3A 99 00 A4 09 69 00 99 20 A3 38 29 |IVO":....i.. .8)| 00000190: 3B 22 39 5F 46 49 4E 20 44 45 20 54 41 52 45 41 |;"9_FIN DE TAREA| 000001A0: 53 22 3A 99 00 B9 09 6E 00 99 20 A3 31 36 29 3B |S":....n.. .16);| 000001B0: 22 2A 45 4C 49 4A 41 2A 22 00 CC 09 78 00 A1 41 |"*ELIJA*"...x..A| 000001C0: 24 3A 8B 41 24 B2 22 22 A7 31 32 30 00 D8 09 82 |$:.A$."".120....| 000001D0: 00 41 B2 C5 28 41 24 29 00 EA 09 8C 00 8B 20 41 |.A..(A$)...... A| 000001E0: B3 31 B0 41 B1 39 A7 31 32 30 00 22 0A 96 00 91 |.1.A.9.120."....| 000001F0: 20 41 20 89 20 20 31 30 30 30 2C 32 30 30 30 2C | A . 1000,2000,| 00000200: 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 |3000,4000,5000,6| 00000210: 30 30 30 2C 37 30 30 30 2C 38 30 30 30 2C 39 30 |000,7000,8000,90| 00000220: 30 30 00 2A 0A 4A 01 82 42 42 00 34 0A E8 03 99 |00.*.J..BB.4....| 00000230: 20 22 93 22 00 44 0A F2 03 49 49 B2 49 49 AA 31 | ".".D...II.II.1| 00000240: 3A 99 3A 99 00 67 0A FC 03 99 20 A3 35 29 3B 22 |:.:..g.... .5);"| 00000250: 49 4E 47 52 45 53 45 20 44 41 54 4F 20 4E 27 22 |INGRESE DATO N'"| 00000260: 3B 49 49 3A 99 3A 99 00 98 0A 01 04 99 20 22 B8 |;II:.:....... ".| 00000270: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000280: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000290: B8 B8 B8 B8 B8 B8 B8 22 00 B1 0A 06 04 85 22 20 |......."......" | 000002A0: 20 20 4E 4F 4D 42 52 45 3A 22 3B 4E 24 28 49 49 | NOMBRE:";N$(II| 000002B0: 29 00 CD 0A 0B 04 8B 20 4E 24 28 49 49 29 B2 22 |)...... N$(II)."| 000002C0: 22 A7 49 49 B2 49 49 AB 31 3A 89 32 30 00 E9 0A |".II.II.1:.20...| 000002D0: 10 04 85 22 20 20 20 44 49 52 45 43 43 49 4F 4E |..." DIRECCION| 000002E0: 3A 22 3B 44 24 28 49 49 29 00 04 0B 1A 04 85 22 |:";D$(II)......"| 000002F0: 20 20 20 54 45 4C 45 46 4F 4E 4F 3A 22 3B 54 24 | TELEFONO:";T$| 00000300: 28 49 49 29 00 36 0B 24 04 99 3A 99 22 B8 B8 B8 |(II).6.$..:."...| 00000310: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000320: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000330: B8 B8 B8 B8 B8 22 00 40 0B 2E 04 89 31 30 30 30 |.....".@....1000| 00000340: 00 52 0B D0 07 8F 20 42 4F 52 52 41 52 20 44 41 |.R.... BORRAR DA| 00000350: 54 4F 00 5B 0B DA 07 99 22 93 22 00 63 0B E4 07 |TO.[....".".c...| 00000360: 99 3A 99 00 8B 0B EE 07 99 20 22 49 4E 47 52 45 |.:....... "INGRE| 00000370: 53 45 20 45 4C 20 44 41 54 4F 20 41 20 53 45 52 |SE EL DATO A SER| 00000380: 20 42 4F 52 52 41 44 4F 22 3A 99 00 BB 0B F8 07 | BORRADO":......| 00000390: 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |."..............| 000003A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000003B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 C5 0B 02 08 |..........".....| 000003C0: 85 20 42 4F 24 00 D3 0B 0C 08 81 20 57 57 B2 31 |. BO$...... WW.1| 000003D0: A4 49 49 00 FE 0B 16 08 8B 4E 24 28 57 57 29 B2 |.II......N$(WW).| 000003E0: 42 4F 24 B0 44 24 28 57 57 29 B2 42 4F 24 B0 54 |BO$.D$(WW).BO$.T| 000003F0: 24 28 57 57 29 B2 42 4F 24 A7 32 32 30 30 00 06 |$(WW).BO$.2200..| 00000400: 0C 20 08 82 57 57 00 10 0C 2A 08 99 3A 99 3A 99 |. ..WW...*..:.:.| 00000410: 00 3E 0C 34 08 99 22 45 53 45 20 44 41 54 4F 20 |.>.4.."ESE DATO | 00000420: 59 41 20 41 20 53 49 44 4F 20 42 4F 52 52 41 44 |YA A SIDO BORRAD| 00000430: 4F 20 4F 20 4E 4F 20 53 45 20 45 4E 2D 22 00 5A |O O NO SE EN-".Z| 00000440: 0C 3E 08 99 22 43 55 45 4E 54 52 41 20 45 4E 20 |.>.."CUENTRA EN | 00000450: 4C 41 20 41 47 45 4E 44 41 22 00 6A 0C 48 08 99 |LA AGENDA".j.H..| 00000460: 3A 99 3A 99 3A 99 3A 99 3A 99 00 8B 0C 5C 08 99 |:.:.:.:.:....\..| 00000470: 20 A3 31 30 29 3B 22 52 5F 52 45 54 4F 52 4E 41 | .10);"R_RETORNA| 00000480: 52 20 41 20 4D 45 4E 55 22 3A 99 00 A6 0C 66 08 |R A MENU":....f.| 00000490: 99 20 A3 31 30 29 3B 22 42 5F 42 4F 52 52 41 52 |. .10);"B_BORRAR| 000004A0: 20 44 41 54 4F 22 00 BA 0C 70 08 A1 41 24 3A 8B | DATO"...p..A$:.| 000004B0: 41 24 B2 22 22 A7 32 31 37 30 00 C9 0C 7A 08 8B |A$."".2170...z..| 000004C0: 41 24 B2 22 52 22 A7 32 30 00 DB 0C 84 08 8B 20 |A$."R".20...... | 000004D0: 41 24 B2 22 42 22 A7 32 30 30 30 00 E5 0C 8E 08 |A$."B".2000.....| 000004E0: 89 32 31 36 30 00 ED 0C 98 08 99 3A 99 00 05 0D |.2160......:....| 000004F0: A2 08 99 22 4E 4F 4D 42 52 45 3A 22 3B 4E 24 28 |..."NOMBRE:";N$(| 00000500: 57 57 29 3A 99 00 1D 0D AC 08 99 22 44 49 52 52 |WW):......."DIRR| 00000510: 45 43 3A 22 3B 44 24 28 57 57 29 3A 99 00 33 0D |EC:";D$(WW):..3.| 00000520: B6 08 99 22 54 45 4C 45 46 4F 3A 22 3B 54 24 28 |..."TELEFO:";T$(| 00000530: 57 57 29 00 3B 0D C0 08 99 3A 99 00 66 0D CA 08 |WW).;....:..f...| 00000540: 99 20 22 45 53 20 45 53 54 45 20 45 4C 20 44 41 |. "ES ESTE EL DA| 00000550: 54 4F 20 41 20 53 45 52 20 42 4F 52 52 41 44 4F |TO A SER BORRADO| 00000560: 28 53 2F 4E 29 22 00 7A 0D D4 08 A1 41 24 3A 8B |(S/N)".z....A$:.| 00000570: 41 24 B2 22 22 A7 32 32 36 30 00 91 0D DE 08 8B |A$."".2260......| 00000580: 20 41 24 B2 22 4E 22 A7 99 3A 99 3A 89 32 31 34 | A$."N"..:.:.214| 00000590: 30 00 A3 0D E8 08 8B 20 41 24 B2 22 53 22 A7 32 |0...... A$."S".2| 000005A0: 33 30 30 00 AD 0D F2 08 89 32 32 36 30 00 CF 0D |300......2260...| 000005B0: FC 08 4E 24 28 57 57 29 B2 22 22 3A 44 24 28 57 |..N$(WW)."":D$(W| 000005C0: 57 29 B2 22 22 3A 54 24 28 57 57 29 B2 22 22 00 |W)."":T$(WW)."".| 000005D0: DC 0D 06 09 81 41 41 B2 31 A4 49 49 00 F0 0D 10 |.....AA.1.II....| 000005E0: 09 8B 4E 24 28 41 41 29 B2 22 22 A7 32 33 34 30 |..N$(AA)."".2340| 000005F0: 00 FC 0D 1A 09 82 41 41 3A 89 32 30 00 08 0E 24 |......AA:.20...$| 00000600: 09 49 49 B2 49 49 AB 31 00 18 0E 2E 09 81 4A 4A |.II.II.1......JJ| 00000610: B2 41 41 20 20 A4 49 49 00 4C 0E 38 09 4E 24 28 |.AA .II.L.8.N$(| 00000620: 4A 4A 29 B2 4E 24 28 4A 4A AA 31 29 3A 44 24 28 |JJ).N$(JJ.1):D$(| 00000630: 4A 4A 29 B2 44 24 28 4A 4A AA 31 29 3A 54 24 28 |JJ).D$(JJ.1):T$(| 00000640: 4A 4A 29 B2 54 24 28 4A 4A AA 31 29 00 58 0E 42 |JJ).T$(JJ.1).X.B| 00000650: 09 82 4A 4A 3A 89 32 30 00 62 0E B8 0B 89 31 30 |..JJ:.20.b....10| 00000660: 30 30 00 76 0E A0 0F 8F 20 43 41 4D 42 49 41 52 |00.v.... CAMBIAR| 00000670: 20 44 41 54 4F 53 00 80 0E AA 0F 99 20 22 93 22 | DATOS...... "."| 00000680: 00 88 0E B4 0F 99 3A 99 00 AE 0E BE 0F 99 22 49 |......:......."I| 00000690: 4E 47 52 45 53 45 20 45 4C 20 44 41 54 4F 20 41 |NGRESE EL DATO A| 000006A0: 20 53 45 52 20 43 41 4D 42 49 41 44 4F 22 00 E0 | SER CAMBIADO"..| 000006B0: 0E C8 0F 99 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 |....:.".........| 000006C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000006D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 |..............."| 000006E0: 00 EC 0E D2 0F 99 3A 85 20 43 41 24 00 FA 0E DC |......:. CA$....| 000006F0: 0F 81 20 4D 4D B2 31 A4 49 49 00 25 0F E6 0F 8B |.. MM.1.II.%....| 00000700: 4E 24 28 4D 4D 29 B2 43 41 24 B0 44 24 28 4D 4D |N$(MM).CA$.D$(MM| 00000710: 29 B2 43 41 24 B0 54 24 28 4D 4D 29 B2 43 41 24 |).CA$.T$(MM).CA$| 00000720: A7 34 35 30 30 00 2D 0F F0 0F 82 4D 4D 00 37 0F |.4500.-....MM.7.| 00000730: FA 0F 99 3A 99 3A 99 00 6F 0F 04 10 99 22 45 53 |...:.:..o...."ES| 00000740: 45 20 44 41 54 4F 20 4E 4F 20 53 45 20 45 4E 43 |E DATO NO SE ENC| 00000750: 55 45 4E 54 52 41 20 45 4E 20 4C 41 20 41 47 45 |UENTRA EN LA AGE| 00000760: 4E 44 41 22 3A 99 3A 99 3A 99 3A 99 3A 99 3A 00 |NDA":.:.:.:.:.:.| 00000770: 90 0F 0E 10 99 20 A3 31 30 29 3B 22 52 5F 52 45 |..... .10);"R_RE| 00000780: 54 4F 52 4E 41 52 20 41 20 4E 45 4D 55 22 3A 99 |TORNAR A NEMU":.| 00000790: 00 AC 0F 18 10 99 20 A3 31 30 29 3B 22 43 5F 43 |...... .10);"C_C| 000007A0: 41 4D 42 49 41 52 20 44 41 54 4F 22 00 C0 0F 22 |AMBIAR DATO"..."| 000007B0: 10 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 31 33 30 |..A$:.A$."".4130| 000007C0: 00 CF 0F 2C 10 8B 41 24 B2 22 52 22 A7 32 30 00 |...,..A$."R".20.| 000007D0: E1 0F 36 10 8B 20 41 24 B2 22 43 22 A7 34 30 30 |..6.. A$."C".400| 000007E0: 30 00 EB 0F 40 10 89 34 31 33 30 00 F3 0F 94 11 |0...@..4130.....| 000007F0: 99 3A 99 00 0E 10 9E 11 99 3B 22 4E 5F 4E 4F 4D |.:.......;"N_NOM| 00000800: 42 52 45 3A 22 3B 4E 24 28 4D 4D 29 3A 99 00 29 |BRE:";N$(MM):..)| 00000810: 10 A8 11 99 3B 22 44 5F 44 49 52 45 43 43 3A 22 |....;"D_DIRECC:"| 00000820: 3B 44 24 28 4D 4D 29 3A 99 00 44 10 B2 11 99 3B |;D$(MM):..D....;| 00000830: 22 54 5F 54 45 4C 45 46 4F 3A 22 3B 54 24 28 4D |"T_TELEFO:";T$(M| 00000840: 4D 29 3A 99 00 4C 10 B7 11 99 3A 99 00 60 10 BC |M):..L....:..`..| 00000850: 11 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 35 34 30 |..A$:.A$."".4540| 00000860: 00 72 10 C6 11 8B 20 41 24 B2 22 4E 22 A7 34 36 |.r.... A$."N".46| 00000870: 30 30 00 84 10 D0 11 8B 20 41 24 B2 22 44 22 A7 |00...... A$."D".| 00000880: 34 37 30 30 00 96 10 DA 11 8B 20 41 24 B2 22 54 |4700...... A$."T| 00000890: 22 A7 34 38 30 30 00 A0 10 E4 11 89 34 35 34 30 |".4800......4540| 000008A0: 00 B4 10 F8 11 85 20 22 4E 4F 4D 42 52 45 3A 22 |...... "NOMBRE:"| 000008B0: 3B 5A 5A 24 00 C9 10 02 12 4E 24 28 4D 4D 29 B2 |;ZZ$.....N$(MM).| 000008C0: 5A 5A 24 3A 89 34 39 30 30 00 DF 10 5C 12 85 22 |ZZ$:.4900...\.."| 000008D0: 44 49 52 45 43 43 49 4F 4E 3A 22 3B 5A 5A 24 00 |DIRECCION:";ZZ$.| 000008E0: F4 10 66 12 44 24 28 4D 4D 29 B2 5A 5A 24 3A 89 |..f.D$(MM).ZZ$:.| 000008F0: 34 39 30 30 00 09 11 C0 12 85 22 54 45 4C 45 46 |4900......"TELEF| 00000900: 4F 4E 4F 3A 22 3B 5A 5A 24 00 1E 11 CA 12 54 24 |ONO:";ZZ$.....T$| 00000910: 28 4D 4D 29 B2 5A 5A 24 3A 89 34 39 30 30 00 24 |(MM).ZZ$:.4900.$| 00000920: 11 24 13 99 00 45 11 2E 13 99 20 A3 31 30 29 3B |.$...E.... .10);| 00000930: 22 52 5F 52 45 54 4F 52 4E 41 52 20 41 20 4D 45 |"R_RETORNAR A ME| 00000940: 4E 55 22 3A 99 00 61 11 38 13 99 20 A3 31 30 29 |NU":..a.8.. .10)| 00000950: 3B 22 43 5F 43 41 4D 42 49 41 52 20 44 41 54 4F |;"C_CAMBIAR DATO| 00000960: 22 00 76 11 42 13 A1 41 24 3A 8B 20 41 24 B2 22 |".v.B..A$:. A$."| 00000970: 22 A7 34 39 33 30 00 86 11 4C 13 8B 20 41 24 B2 |".4930...L.. A$.| 00000980: 22 52 22 A7 32 30 00 98 11 56 13 8B 20 41 24 B2 |"R".20...V.. A$.| 00000990: 22 43 22 A7 34 30 30 30 00 A3 11 60 13 89 20 34 |"C".4000...`.. 4| 000009A0: 39 33 30 00 C1 11 88 13 8F 20 2A 2A 2A 20 4C 49 |930...... *** LI| 000009B0: 53 54 41 20 41 4C 46 41 42 45 54 49 43 41 2A 2A |STA ALFABETICA**| 000009C0: 2A 00 CB 11 92 13 99 20 22 93 22 00 DB 11 9C 13 |*...... ".".....| 000009D0: 81 41 B2 31 A4 31 30 3A 99 3A 82 00 00 12 A6 13 |.A.1.10:.:......| 000009E0: 99 20 A3 38 29 3B 22 2A 2A 45 53 50 45 52 45 20 |. .8);"**ESPERE | 000009F0: 55 4E 4F 53 20 53 45 47 55 4E 44 4F 53 2A 2A 22 |UNOS SEGUNDOS**"| 00000A00: 00 08 12 B0 13 59 B2 30 00 17 12 BA 13 81 4B 4B |.....Y.0......KK| 00000A10: B2 31 A4 49 49 AB 31 00 33 12 C4 13 8B 20 4E 24 |.1.II.1.3.... N$| 00000A20: 28 4B 4B 29 B3 B2 4E 24 28 4B 4B AA 31 29 A7 35 |(KK)..N$(KK.1).5| 00000A30: 31 34 30 00 4F 12 CE 13 4E 32 24 B2 4E 24 28 4B |140.O...N2$.N$(K| 00000A40: 4B 29 3A 4E 31 24 B2 4E 24 28 4B 4B AA 31 29 00 |K):N1$.N$(KK.1).| 00000A50: 6B 12 D8 13 4E 24 28 4B 4B 29 B2 4E 31 24 3A 4E |k...N$(KK).N1$:N| 00000A60: 24 28 4B 4B AA 31 29 B2 4E 32 24 00 87 12 E2 13 |$(KK.1).N2$.....| 00000A70: 44 32 24 B2 44 24 28 4B 4B 29 3A 44 31 24 B2 44 |D2$.D$(KK):D1$.D| 00000A80: 24 28 4B 4B AA 31 29 00 A3 12 EC 13 44 24 28 4B |$(KK.1).....D$(K| 00000A90: 4B 29 B2 44 31 24 3A 44 24 28 4B 4B AA 31 29 B2 |K).D1$:D$(KK.1).| 00000AA0: 44 32 24 00 BF 12 F6 13 54 32 24 B2 54 24 28 4B |D2$.....T2$.T$(K| 00000AB0: 4B 29 3A 54 31 24 B2 54 24 28 4B 4B AA 31 29 00 |K):T1$.T$(KK.1).| 00000AC0: DB 12 00 14 54 24 28 4B 4B 29 B2 54 31 24 3A 54 |....T$(KK).T1$:T| 00000AD0: 24 28 4B 4B AA 31 29 B2 54 32 24 00 E3 12 0A 14 |$(KK.1).T2$.....| 00000AE0: 59 B2 31 00 EB 12 14 14 82 4B 4B 00 FA 12 1E 14 |Y.1......KK.....| 00000AF0: 8B 20 59 B2 31 A7 35 30 34 30 00 03 13 28 14 99 |. Y.1.5040...(..| 00000B00: 22 93 22 00 10 13 32 14 81 4A 4A B2 31 A4 49 49 |"."...2..JJ.1.II| 00000B10: 00 18 13 3C 14 99 3A 99 00 33 13 46 14 99 20 A3 |...<..:..3.F.. .| 00000B20: 35 29 3B 22 44 41 54 4F 20 4E 27 22 3B 4A 4A 3A |5);"DATO N'";JJ:| 00000B30: 99 3A 99 00 63 13 50 14 99 22 B8 B8 B8 B8 B8 B8 |.:..c.P.."......| 00000B40: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000B50: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000B60: B8 B8 22 00 6B 13 5A 14 99 3A 99 00 88 13 64 14 |..".k.Z..:....d.| 00000B70: 99 20 A3 35 29 3B 22 4E 4F 4D 42 52 45 3A 22 3B |. .5);"NOMBRE:";| 00000B80: 4E 24 28 4A 4A 29 3A 99 00 A5 13 6E 14 99 20 A3 |N$(JJ):....n.. .| 00000B90: 35 29 3B 22 44 49 52 45 43 2E 3A 22 3B 44 24 28 |5);"DIREC.:";D$(| 00000BA0: 4A 4A 29 3A 99 00 C2 13 78 14 99 20 A3 35 29 3B |JJ):....x.. .5);| 00000BB0: 22 54 45 4C 45 46 2E 3A 22 3B 54 24 28 4A 4A 29 |"TELEF.:";T$(JJ)| 00000BC0: 3A 99 00 D2 13 82 14 99 3A 99 3A 99 3A 99 3A 99 |:.......:.:.:.:.| 00000BD0: 3A 99 00 EC 13 8C 14 99 20 A3 38 29 3B 22 43 5F |:....... .8);"C_| 00000BE0: 43 4F 4E 54 49 4E 55 41 52 22 3A 99 00 0C 14 96 |CONTINUAR":.....| 00000BF0: 14 99 20 A3 38 29 3B 22 52 5F 52 45 54 4F 52 4E |.. .8);"R_RETORN| 00000C00: 41 52 20 41 20 4D 45 4E 55 22 3A 99 00 20 14 A0 |AR A MENU":.. ..| 00000C10: 14 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 32 38 30 |..A$:.A$."".5280| 00000C20: 00 32 14 AA 14 8B 20 41 24 B2 22 52 22 A7 35 33 |.2.... A$."R".53| 00000C30: 31 30 00 3A 14 B4 14 82 4A 4A 00 42 14 BE 14 89 |10.:....JJ.B....| 00000C40: 32 30 00 58 14 70 17 8F 20 42 55 53 43 41 52 20 |20.X.p.. BUSCAR | 00000C50: 44 41 54 4F 53 2A 2A 2A 00 62 14 7A 17 99 20 22 |DATOS***.b.z.. "| 00000C60: 93 22 00 6A 14 84 17 99 3A 99 00 8F 14 8E 17 99 |.".j....:.......| 00000C70: 22 49 4E 47 52 45 53 45 20 45 4C 20 44 41 54 4F |"INGRESE EL DATO| 00000C80: 20 41 20 53 45 52 20 42 55 53 43 41 44 4F 22 00 | A SER BUSCADO".| 00000C90: C1 14 98 17 99 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 |.....:."........| 00000CA0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000CB0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000CC0: 22 00 CB 14 A2 17 85 20 44 41 24 00 D9 14 AC 17 |"...... DA$.....| 00000CD0: 81 20 5A 5A B2 31 A4 49 49 00 05 15 B6 17 8B 20 |. ZZ.1.II...... | 00000CE0: 44 41 24 B2 4E 24 28 5A 5A 29 B0 44 41 24 B2 44 |DA$.N$(ZZ).DA$.D| 00000CF0: 24 28 5A 5A 29 B0 44 41 24 B2 54 24 28 5A 5A 29 |$(ZZ).DA$.T$(ZZ)| 00000D00: A7 36 35 30 30 00 0D 15 C0 17 82 5A 5A 00 17 15 |.6500......ZZ...| 00000D10: CA 17 99 3A 99 3A 99 00 46 15 D4 17 99 20 22 20 |...:.:..F.... " | 00000D20: 45 4C 20 44 41 54 4F 20 42 55 53 43 41 44 4F 20 |EL DATO BUSCADO | 00000D30: 4E 4F 20 53 45 20 45 4E 43 55 45 4E 54 52 41 20 |NO SE ENCUENTRA | 00000D40: 45 4E 20 4C 41 22 00 56 15 DE 17 99 20 22 20 41 |EN LA".V.... " A| 00000D50: 47 45 4E 44 41 22 00 65 15 E8 17 99 3A 99 3A 89 |GENDA".e....:.:.| 00000D60: 20 36 35 34 30 00 6F 15 64 19 99 3A 99 3A 99 00 | 6540.o.d..:.:..| 00000D70: 88 15 6E 19 99 20 22 4E 4F 4D 42 52 45 3A 22 3B |..n.. "NOMBRE:";| 00000D80: 4E 24 28 5A 5A 29 3A 99 00 A1 15 78 19 99 20 22 |N$(ZZ):....x.. "| 00000D90: 44 49 52 45 43 43 3A 22 3B 44 24 28 5A 5A 29 3A |DIRECC:";D$(ZZ):| 00000DA0: 99 00 BA 15 82 19 99 20 22 54 45 4C 45 46 4F 3A |....... "TELEFO:| 00000DB0: 22 3B 54 24 28 5A 5A 29 3A 99 00 C2 15 8C 19 99 |";T$(ZZ):.......| 00000DC0: 3A 99 00 E3 15 96 19 99 20 A3 31 31 29 3B 22 52 |:....... .11);"R| 00000DD0: 5F 52 45 54 4F 52 4E 41 52 20 41 20 4E 45 4D 55 |_RETORNAR A NEMU| 00000DE0: 22 3A 99 00 FE 15 A0 19 99 A3 31 31 29 3B 22 42 |":........11);"B| 00000DF0: 5F 42 55 53 43 41 52 20 44 41 54 4F 53 22 00 12 |_BUSCAR DATOS"..| 00000E00: 16 AA 19 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 35 |....A$:.A$."".65| 00000E10: 37 30 00 22 16 B4 19 8B 20 41 24 B2 22 52 22 A7 |70.".... A$."R".| 00000E20: 32 30 00 34 16 BE 19 8B 20 41 24 B2 22 42 22 A7 |20.4.... A$."B".| 00000E30: 36 30 30 30 00 3F 16 2C 1A 89 20 36 35 37 30 00 |6000.?.,.. 6570.| 00000E40: 58 16 58 1B 8F 20 4C 45 45 52 20 41 52 43 48 49 |X.X.. LEER ARCHI| 00000E50: 56 4F 2A 2A 2A 2A 2A 2A 00 62 16 62 1B 99 20 22 |VO******.b.b.. "| 00000E60: 93 22 00 72 16 67 1B 81 56 B2 31 A4 31 31 3A 99 |.".r.g..V.1.11:.| 00000E70: 3A 82 00 97 16 6C 1B 99 20 A3 38 29 3B 22 2A 2A |:....l.. .8);"**| 00000E80: 45 53 50 45 52 45 20 55 4E 4F 53 20 53 45 47 55 |ESPERE UNOS SEGU| 00000E90: 4E 44 4F 53 2A 2A 22 00 A0 16 76 1B 49 49 B2 30 |NDOS**"...v.II.0| 00000EA0: 00 C0 16 80 1B 9F 31 2C 38 2C 32 2C 22 4E 30 3A |......1,8,2,"N0:| 00000EB0: 41 47 45 4E 44 41 2C 53 45 51 2C 52 45 41 44 22 |AGENDA,SEQ,READ"| 00000EC0: 00 CC 16 8A 1B 49 49 B2 49 49 AA 31 00 E8 16 94 |.....II.II.1....| 00000ED0: 1B 84 31 2C 4E 24 28 49 49 29 2C 44 24 28 49 49 |..1,N$(II),D$(II| 00000EE0: 29 2C 54 24 28 49 49 29 00 F8 16 9E 1B 8B 20 53 |),T$(II)...... S| 00000EF0: 54 A7 A0 31 3A 89 32 30 00 02 17 A8 1B 89 37 30 |T..1:.20......70| 00000F00: 35 30 00 0B 17 40 1F 99 22 93 22 00 1B 17 43 1F |50...@.."."...C.| 00000F10: 81 57 B2 31 A4 31 31 3A 99 3A 82 00 3F 17 44 1F |.W.1.11:.:..?.D.| 00000F20: 99 A3 38 29 3B 22 2A 2A 45 53 50 45 52 45 20 55 |..8);"**ESPERE U| 00000F30: 4E 4F 53 20 53 45 47 55 4E 44 4F 53 2A 2A 22 00 |NOS SEGUNDOS**".| 00000F40: 5C 17 47 1F 9F 31 35 2C 38 2C 31 35 2C 22 53 30 |\.G..15,8,15,"S0| 00000F50: 3A 41 47 45 4E 44 41 22 3A A0 31 35 00 77 17 4A |:AGENDA":.15.w.J| 00000F60: 1F 9F 31 2C 38 2C 32 2C 22 4E 30 3A 41 47 45 4E |..1,8,2,"N0:AGEN| 00000F70: 44 41 2C 53 2C 57 22 00 84 17 54 1F 81 42 42 B2 |DA,S,W"...T..BB.| 00000F80: 31 A4 49 49 00 B3 17 5E 1F 98 31 2C 4E 24 28 42 |1.II...^..1,N$(B| 00000F90: 42 29 3B C7 28 31 33 29 3B 44 24 28 42 42 29 3B |B);.(13);D$(BB);| 00000FA0: C7 28 31 33 29 3B 54 24 28 42 42 29 3B C7 28 31 |.(13);T$(BB);.(1| 00000FB0: 33 29 3B 00 BB 17 68 1F 82 42 42 00 C6 17 72 1F |3);...h..BB...r.| 00000FC0: A0 31 3A 89 32 30 00 CF 17 28 23 99 22 93 22 00 |.1:.20...(#.".".| 00000FD0: D5 17 32 23 80 00 00 00 |..2#.... |
.......53280,0:.53281,0.*....53272,23:." .".H.... N$(300),D$(300),T$(300).R.... " .".Q.... .11);"AGENDA TELEFONICA"...... .11);"====== ==========":.:....... .8);" 1_INGRESAR DATOS":..P.(.. .8);"2_BORRAR DATOS":....2.. .8);"3_AGREGAR DATOS":... .<.. .8);"4_CAMBIAR DATOS":..-.F.. .8);" 5_LISTA ALFABETICA":..J.P.. .8);"6_BUSCA R DATOS":..G.Z.. .8);"7_LEER ARCHIVO":.. ..D.. .8);"8_GRABAR ARCHIVO":....I.. .8) ;"9_FIN DE TAREAS":....N.. .16);"*ELIJA* ".L.X..A$:.A$."".120.X...A.E(A$)...... A .1.A.9.120.".... A . 1000,2000,3000,400 0,5000,6000,7000,8000,9000.*.J..BB.4.... ".".D...II.II.1:.:..G.... .5);"INGRESE DATO N'";II:.:....... "................. ......................."......" NOMBRE :";N$(II).M.... N$(II)."".II.II.1:.20... ..." DIRECCION:";D$(II)......" TELEF ONO:";T$(II).6.$..:."................... .....................".@....1000.R.P.. B ORRAR DATO.[.Z..".".C....:....... "INGRE SE EL DATO A SER BORRADO":......."...... ..................................".E... . BO$.S.... WW.1.II......N$(WW).BO$.D$(W W).BO$.T$(WW).BO$.2200... ..WW...*..:.:. .>.4.."ESE DATO YA A SIDO BORRADO O NO S E EN-".Z.>.."CUENTRA EN LA AGENDA".J.H.. :.:.:.:.:....\.. .10);"R_RETORNAR A MENU ":....F.. .10);"B_BORRAR DATO"...P..A$:. A$."".2170.I.Z..A$."R".20...... A$."B".2 000......2160......:......."NOMBRE:";N$( WW):......."DIRREC:";D$(WW):..3...."TELE FO:";T$(WW).;....:..F.J.. "ES ESTE EL DA TO A SER BORRADO(S/N)".Z.T..A$:.A$."".22 60...... A$."N"..:.:.2140...... A$."S".2 300......2260.O...N$(WW)."":D$(WW)."":T$ (WW).""......AA.1.II......N$(AA)."".2340 ......AA:.20...$.II.II.1......JJ.AA .II .L.8.N$(JJ).N$(JJ.1):D$(JJ).D$(JJ.1):T$( JJ).T$(JJ.1).X.B..JJ:.20.B....1000.V. .. CAMBIAR DATOS...... "."......:......."I NGRESE EL DATO A SER CAMBIADO"...H..:.". ......................................." ...R..:. CA$...... MM.1.II.%....N$(MM).C A$.D$(MM).CA$.T$(MM).CA$.4500.-....MM.7. ...:.:..O...."ESE DATO NO SE ENCUENTRA E N LA AGENDA":.:.:.:.:.:...... .10);"R_RE TORNAR A NEMU":....... .10);"C_CAMBIAR D ATO"..."..A$:.A$."".4130.O.,..A$."R".20. ..6.. A$."C".4000...@..4130......:...... .;"N_NOMBRE:";N$(MM):..)....;"D_DIRECC:" ;D$(MM):..D....;"T_TELEFO:";T$(MM):..L.. ..:..`....A$:.A$."".4540.R.F.. A$."N".46 00...P.. A$."D".4700...Z.. A$."T".4800. ....4540...... "NOMBRE:";ZZ$.I...N$(MM). ZZ$:.4900...\.."DIRECCION:";ZZ$...F.D$(M M).ZZ$:.4900......"TELEFONO:";ZZ$...J.T$ (MM).ZZ$:.4900.$.$...E.... .10);"R_RETOR NAR A MENU":..A.8.. .10);"C_CAMBIAR DATO ".V.B..A$:. A$."".4930...L.. A$."R".20.. .V.. A$."C".4000...`.. 4930.A.... *** LI STA ALFABETICA***.K.... "."......A.1.10: .:....... .8);"**ESPERE UNOS SEGUNDOS**" .....Y.0......KK.1.II.1.3.D.. N$(KK)..N$ (KK.1).5140.O.N.N2$.N$(KK):N1$.N$(KK.1). K.X.N$(KK).N1$:N$(KK.1).N2$.....D2$.D$(K K):D1$.D$(KK.1).....D$(KK).D1$:D$(KK.1). D2$.....T2$.T$(KK):T1$.T$(KK.1).....T$(K K).T1$:T$(KK.1).T2$.....Y.1......KK..... . Y.1.5040...(.."."...2..JJ.1.II...<..:. .3.F.. .5);"DATO N'";JJ:.:..C.P.."...... ..................................".K.Z. .:....D.. .5);"NOMBRE:";N$(JJ):....N.. . 5);"DIREC.:";D$(JJ):..B.X.. .5);"TELEF.: ";T$(JJ):..R....:.:.:.:.:....... .8);"C_ CONTINUAR":....... .8);"R_RETORNAR A MEN U":.. . ..A$:.A$."".5280.2.... A$."R".53 10.:....JJ.B....20.X.P.. BUSCAR DATOS*** .B.Z.. ".".J....:......."INGRESE EL DATO A SER BUSCADO".A....:."................ ........................".K.... DA$.Y... . ZZ.1.II...... DA$.N$(ZZ).DA$.D$(ZZ).DA $.T$(ZZ).6500......ZZ...J..:.:..F.T.. " EL DATO BUSCADO NO SE ENCUENTRA EN LA".V .... " AGENDA".E....:.:. 6540.O.D..:.:.. ..N.. "NOMBRE:";N$(ZZ):....X.. "DIRECC:" ;D$(ZZ):....... "TELEFO:";T$(ZZ):..B.... :....... .11);"R_RETORNAR A NEMU":.... . ..11);"B_BUSCAR DATOS"......A$:.A$."".65 70.".... A$."R".20.4.... A$."B".6000.?., .. 6570.X.X.. LEER ARCHIVO******.B.B.. " .".R.G..V.1.11:.:....L.. .8);"**ESPERE U NOS SEGUNDOS**". .V.II.0......1,8,2,"N0: AGENDA,SEQ,READ".L...II.II.1......1,N$(I I),D$(II),T$(II)...... ST. 1:.20......70 50...@.."."...C..W.1.11:.:..?.D...8);"** ESPERE UNOS SEGUNDOS**".\.G..15,8,15,"S0 :AGENDA": 15.W.J..1,8,2,"N0:AGENDA,S,W". ..T..BB.1.II...^..1,N$(BB);G(13);D$(BB); G(13);T$(BB);G(13);...H..BB.F.R. 1:.20.O .(#.".".U.2#....
> CLICK IMAGE PREVIEW FOR FULL MODAL