AGENDA TEL...
FILE INFORMATION
FILENAME(S): AGENDA TEL...
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-10-19 23:07:26
APPEARS ON: 1 disk(s)
FILE HASH
f60afce47acaa5378f35fdc57a74918414b5094c18f311cb22851b7bf50622b9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROG Y ARCHIVOS | AGENDA TEL... | PRG | Bugjam - Argentina | 17 | 5 | 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 24 08 02 00 97 20 37 38 |53281,0.$.... 78|
00000020: 38 2C 35 32 00 32 08 03 00 97 20 37 39 32 2C 31 |8,52.2.... 792,1|
00000030: 39 33 00 51 08 0A 00 86 20 4E 24 28 33 30 30 30 |93.Q.... N$(3000|
00000040: 29 2C 44 24 28 33 30 30 29 2C 54 24 28 33 30 30 |),D$(300),T$(300|
00000050: 29 00 5B 08 14 00 99 20 22 93 22 00 7C 08 19 00 |).[.... ".".|...|
00000060: 99 20 A3 31 31 29 3B 22 12 41 47 45 4E 44 41 20 |. .11);".AGENDA |
00000070: 54 45 4C 45 46 4F 4E 49 43 41 92 22 00 9F 08 1B |TELEFONICA."....|
00000080: 00 99 20 A3 31 31 29 3B 22 3D 3D 3D 3D 3D 3D 20 |.. .11);"====== |
00000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 99 3A 99 00 |==========":.:..|
000000A0: BF 08 1E 00 99 20 A3 31 30 29 3B 22 31 5F 49 4E |..... .10);"1_IN|
000000B0: 47 52 45 53 41 52 20 44 41 54 4F 53 22 3A 99 00 |GRESAR DATOS":..|
000000C0: DD 08 28 00 99 20 A3 31 30 29 3B 22 32 5F 42 4F |..(.. .10);"2_BO|
000000D0: 52 52 41 52 20 44 41 54 4F 53 22 3A 99 00 FC 08 |RRAR DATOS":....|
000000E0: 3C 00 99 20 A3 31 30 29 3B 22 33 5F 43 41 4D 42 |<.. .10);"3_CAMB|
000000F0: 49 41 52 20 44 41 54 4F 53 22 3A 99 00 1E 09 46 |IAR DATOS":....F|
00000100: 00 99 20 A3 31 30 29 3B 22 34 5F 4C 49 53 54 41 |.. .10);"4_LISTA|
00000110: 20 41 4C 46 41 42 45 54 49 43 41 22 3A 99 00 3C | ALFABETICA":..<|
00000120: 09 50 00 99 20 A3 31 30 29 3B 22 35 5F 42 55 53 |.P.. .10);"5_BUS|
00000130: 43 41 52 20 44 41 54 4F 53 22 3A 99 00 5A 09 5A |CAR DATOS":..Z.Z|
00000140: 00 99 20 A3 31 30 29 3B 22 36 5F 4C 45 45 52 20 |.. .10);"6_LEER |
00000150: 41 52 43 48 49 56 4F 22 3A 99 00 7A 09 64 00 99 |ARCHIVO":..z.d..|
00000160: 20 A3 31 30 29 3B 22 37 5F 47 52 41 42 41 52 20 | .10);"7_GRABAR |
00000170: 41 52 43 48 49 56 4F 22 3A 99 00 96 09 69 00 99 |ARCHIVO":....i..|
00000180: 20 A3 31 30 29 3B 22 38 5F 44 49 52 45 43 54 4F | .10);"8_DIRECTO|
00000190: 52 49 4F 22 3A 99 00 B0 09 6E 00 99 20 A3 31 36 |RIO":....n.. .16|
000001A0: 29 3B 22 11 11 11 12 2A 45 4C 49 4A 41 2A 92 22 |);"....*ELIJA*."|
000001B0: 00 C3 09 78 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...x..A$:.A$."".|
000001C0: 31 32 30 00 CF 09 82 00 41 B2 C5 28 41 24 29 00 |120.....A..(A$).|
000001D0: E1 09 8C 00 8B 20 41 B3 31 B0 41 B1 38 A7 31 32 |..... A.1.A.8.12|
000001E0: 30 00 14 0A 96 00 91 20 41 20 89 20 20 31 30 30 |0...... A . 100|
000001F0: 30 2C 32 30 30 30 2C 34 30 30 30 2C 35 30 30 30 |0,2000,4000,5000|
00000200: 2C 36 30 30 30 2C 37 30 30 30 2C 38 30 30 30 2C |,6000,7000,8000,|
00000210: 39 35 30 30 00 1C 0A 4A 01 82 42 42 00 26 0A E8 |9500...J..BB.&..|
00000220: 03 99 20 22 93 22 00 36 0A F2 03 49 49 B2 49 49 |.. ".".6...II.II|
00000230: AA 31 3A 99 3A 99 00 59 0A FC 03 99 20 A3 35 29 |.1:.:..Y.... .5)|
00000240: 3B 22 49 4E 47 52 45 53 45 20 44 41 54 4F 20 4E |;"INGRESE DATO N|
00000250: 27 22 3B 49 49 3A 99 3A 99 00 8A 0A 01 04 99 20 |'";II:.:....... |
00000260: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............|
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 22 00 A3 0A 06 04 85 |........."......|
00000290: 22 11 20 20 4E 4F 4D 42 52 45 3A 22 3B 4E 24 28 |". NOMBRE:";N$(|
000002A0: 49 49 29 00 BF 0A 0B 04 8B 20 4E 24 28 49 49 29 |II)...... N$(II)|
000002B0: B2 22 22 A7 49 49 B2 49 49 AB 31 3A 89 32 30 00 |."".II.II.1:.20.|
000002C0: DB 0A 10 04 85 22 11 20 20 44 49 52 45 43 43 49 |.....". DIRECCI|
000002D0: 4F 4E 3A 22 3B 44 24 28 49 49 29 00 F6 0A 1A 04 |ON:";D$(II).....|
000002E0: 85 22 11 20 20 54 45 4C 45 46 4F 4E 4F 3A 22 3B |.". TELEFONO:";|
000002F0: 54 24 28 49 49 29 00 28 0B 24 04 99 3A 99 22 B8 |T$(II).(.$..:.".|
00000300: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
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 22 00 32 0B 2E 04 89 31 30 |.......".2....10|
00000330: 30 30 00 44 0B D0 07 8F 20 42 4F 52 52 41 52 20 |00.D.... BORRAR |
00000340: 44 41 54 4F 00 4D 0B DA 07 99 22 93 22 00 55 0B |DATO.M....".".U.|
00000350: E4 07 99 3A 99 00 7D 0B EE 07 99 20 22 49 4E 47 |...:..}.... "ING|
00000360: 52 45 53 45 20 45 4C 20 44 41 54 4F 20 41 20 53 |RESE EL DATO A S|
00000370: 45 52 20 42 4F 52 52 41 44 4F 22 3A 99 00 AD 0B |ER BORRADO":....|
00000380: F8 07 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000390: B8 B8 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 22 00 B7 0B |............"...|
000003B0: 02 08 85 20 42 4F 24 00 C5 0B 0C 08 81 20 57 57 |... BO$...... WW|
000003C0: B2 31 A4 49 49 00 F0 0B 16 08 8B 4E 24 28 57 57 |.1.II......N$(WW|
000003D0: 29 B2 42 4F 24 B0 44 24 28 57 57 29 B2 42 4F 24 |).BO$.D$(WW).BO$|
000003E0: B0 54 24 28 57 57 29 B2 42 4F 24 A7 32 32 30 30 |.T$(WW).BO$.2200|
000003F0: 00 F8 0B 20 08 82 57 57 00 02 0C 2A 08 99 3A 99 |... ..WW...*..:.|
00000400: 3A 99 00 30 0C 34 08 99 22 45 53 45 20 44 41 54 |:..0.4.."ESE DAT|
00000410: 4F 20 59 41 20 41 20 53 49 44 4F 20 42 4F 52 52 |O YA A SIDO BORR|
00000420: 41 44 4F 20 4F 20 4E 4F 20 53 45 20 45 4E 2D 22 |ADO O NO SE EN-"|
00000430: 00 4C 0C 3E 08 99 22 43 55 45 4E 54 52 41 20 45 |.L.>.."CUENTRA E|
00000440: 4E 20 4C 41 20 41 47 45 4E 44 41 22 00 5C 0C 48 |N LA AGENDA".\.H|
00000450: 08 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 7F 0C 5C |..:.:.:.:.:....\|
00000460: 08 99 20 A3 31 30 29 3B 22 12 52 5F 52 45 54 4F |.. .10);".R_RETO|
00000470: 52 4E 41 52 20 41 20 4D 45 4E 55 92 22 3A 99 00 |RNAR A MENU.":..|
00000480: 9C 0C 66 08 99 20 A3 31 30 29 3B 22 12 42 5F 42 |..f.. .10);".B_B|
00000490: 4F 52 52 41 52 20 44 41 54 4F 92 22 00 B0 0C 70 |ORRAR DATO."...p|
000004A0: 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 31 37 30 |..A$:.A$."".2170|
000004B0: 00 BF 0C 7A 08 8B 41 24 B2 22 52 22 A7 32 30 00 |...z..A$."R".20.|
000004C0: D1 0C 84 08 8B 20 41 24 B2 22 42 22 A7 32 30 30 |..... A$."B".200|
000004D0: 30 00 DB 0C 8E 08 89 32 31 36 30 00 E3 0C 98 08 |0......2160.....|
000004E0: 99 3A 99 00 FB 0C A2 08 99 22 4E 4F 4D 42 52 45 |.:......."NOMBRE|
000004F0: 3A 22 3B 4E 24 28 57 57 29 3A 99 00 13 0D AC 08 |:";N$(WW):......|
00000500: 99 22 44 49 52 52 45 43 3A 22 3B 44 24 28 57 57 |."DIRREC:";D$(WW|
00000510: 29 3A 99 00 29 0D B6 08 99 22 54 45 4C 45 46 4F |):..)...."TELEFO|
00000520: 3A 22 3B 54 24 28 57 57 29 00 31 0D C0 08 99 3A |:";T$(WW).1....:|
00000530: 99 00 5C 0D CA 08 99 20 22 45 53 20 45 53 54 45 |..\.... "ES ESTE|
00000540: 20 45 4C 20 44 41 54 4F 20 41 20 53 45 52 20 42 | EL DATO A SER B|
00000550: 4F 52 52 41 44 4F 28 53 2F 4E 29 22 00 70 0D D4 |ORRADO(S/N)".p..|
00000560: 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 32 36 30 |..A$:.A$."".2260|
00000570: 00 87 0D DE 08 8B 20 41 24 B2 22 4E 22 A7 99 3A |...... A$."N"..:|
00000580: 99 3A 89 32 31 34 30 00 99 0D E8 08 8B 20 41 24 |.:.2140...... A$|
00000590: B2 22 53 22 A7 32 33 30 30 00 A3 0D F2 08 89 32 |."S".2300......2|
000005A0: 32 36 30 00 C5 0D FC 08 4E 24 28 57 57 29 B2 22 |260.....N$(WW)."|
000005B0: 22 3A 44 24 28 57 57 29 B2 22 22 3A 54 24 28 57 |":D$(WW)."":T$(W|
000005C0: 57 29 B2 22 22 00 D2 0D 06 09 81 41 41 B2 31 A4 |W).""......AA.1.|
000005D0: 49 49 00 E6 0D 10 09 8B 4E 24 28 41 41 29 B2 22 |II......N$(AA)."|
000005E0: 22 A7 32 33 34 30 00 F2 0D 1A 09 82 41 41 3A 89 |".2340......AA:.|
000005F0: 32 30 00 FE 0D 24 09 49 49 B2 49 49 AB 31 00 0E |20...$.II.II.1..|
00000600: 0E 2E 09 81 4A 4A B2 41 41 20 20 A4 49 49 00 42 |....JJ.AA .II.B|
00000610: 0E 38 09 4E 24 28 4A 4A 29 B2 4E 24 28 4A 4A AA |.8.N$(JJ).N$(JJ.|
00000620: 31 29 3A 44 24 28 4A 4A 29 B2 44 24 28 4A 4A AA |1):D$(JJ).D$(JJ.|
00000630: 31 29 3A 54 24 28 4A 4A 29 B2 54 24 28 4A 4A AA |1):T$(JJ).T$(JJ.|
00000640: 31 29 00 4E 0E 42 09 82 4A 4A 3A 89 32 30 00 58 |1).N.B..JJ:.20.X|
00000650: 0E B8 0B 89 31 30 30 30 00 6C 0E A0 0F 8F 20 43 |....1000.l.... C|
00000660: 41 4D 42 49 41 52 20 44 41 54 4F 53 00 76 0E AA |AMBIAR DATOS.v..|
00000670: 0F 99 20 22 93 22 00 7E 0E B4 0F 99 3A 99 00 A4 |.. ".".~....:...|
00000680: 0E BE 0F 99 22 49 4E 47 52 45 53 45 20 45 4C 20 |...."INGRESE EL |
00000690: 44 41 54 4F 20 41 20 53 45 52 20 43 41 4D 42 49 |DATO A SER CAMBI|
000006A0: 41 44 4F 22 00 D6 0E C8 0F 99 3A 99 22 B8 B8 B8 |ADO"......:."...|
000006B0: B8 B8 B8 B8 B8 B8 B8 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 22 00 E2 0E D2 0F 99 3A 85 20 43 |....."......:. C|
000006E0: 41 24 00 F0 0E DC 0F 81 20 4D 4D B2 31 A4 49 49 |A$...... MM.1.II|
000006F0: 00 1B 0F E6 0F 8B 4E 24 28 4D 4D 29 B2 43 41 24 |......N$(MM).CA$|
00000700: B0 44 24 28 4D 4D 29 B2 43 41 24 B0 54 24 28 4D |.D$(MM).CA$.T$(M|
00000710: 4D 29 B2 43 41 24 A7 34 35 30 30 00 23 0F F0 0F |M).CA$.4500.#...|
00000720: 82 4D 4D 00 2D 0F FA 0F 99 3A 99 3A 99 00 65 0F |.MM.-....:.:..e.|
00000730: 04 10 99 22 45 53 45 20 44 41 54 4F 20 4E 4F 20 |..."ESE DATO NO |
00000740: 53 45 20 45 4E 43 55 45 4E 54 52 41 20 45 4E 20 |SE ENCUENTRA EN |
00000750: 4C 41 20 41 47 45 4E 44 41 22 3A 99 3A 99 3A 99 |LA AGENDA":.:.:.|
00000760: 3A 99 3A 99 3A 00 88 0F 0E 10 99 20 A3 31 30 29 |:.:.:...... .10)|
00000770: 3B 22 12 52 5F 52 45 54 4F 52 4E 41 52 20 41 20 |;".R_RETORNAR A |
00000780: 4E 45 4D 55 92 22 3A 99 00 A6 0F 18 10 99 20 A3 |NEMU.":....... .|
00000790: 31 30 29 3B 22 12 43 5F 43 41 4D 42 49 41 52 20 |10);".C_CAMBIAR |
000007A0: 44 41 54 4F 92 22 00 BA 0F 22 10 A1 41 24 3A 8B |DATO."..."..A$:.|
000007B0: 41 24 B2 22 22 A7 34 31 33 30 00 C9 0F 2C 10 8B |A$."".4130...,..|
000007C0: 41 24 B2 22 52 22 A7 32 30 00 DB 0F 36 10 8B 20 |A$."R".20...6.. |
000007D0: 41 24 B2 22 43 22 A7 34 30 30 30 00 E5 0F 40 10 |A$."C".4000...@.|
000007E0: 89 34 31 33 30 00 ED 0F 94 11 99 3A 99 00 08 10 |.4130......:....|
000007F0: 9E 11 99 3B 22 4E 5F 4E 4F 4D 42 52 45 3A 22 3B |...;"N_NOMBRE:";|
00000800: 4E 24 28 4D 4D 29 3A 99 00 23 10 A8 11 99 3B 22 |N$(MM):..#....;"|
00000810: 44 5F 44 49 52 45 43 43 3A 22 3B 44 24 28 4D 4D |D_DIRECC:";D$(MM|
00000820: 29 3A 99 00 3E 10 B2 11 99 3B 22 54 5F 54 45 4C |):..>....;"T_TEL|
00000830: 45 46 4F 3A 22 3B 54 24 28 4D 4D 29 3A 99 00 46 |EFO:";T$(MM):..F|
00000840: 10 B7 11 99 3A 99 00 5A 10 BC 11 A1 41 24 3A 8B |....:..Z....A$:.|
00000850: 41 24 B2 22 22 A7 34 35 34 30 00 6C 10 C6 11 8B |A$."".4540.l....|
00000860: 20 41 24 B2 22 4E 22 A7 34 36 30 30 00 7E 10 D0 | A$."N".4600.~..|
00000870: 11 8B 20 41 24 B2 22 44 22 A7 34 37 30 30 00 90 |.. A$."D".4700..|
00000880: 10 DA 11 8B 20 41 24 B2 22 54 22 A7 34 38 30 30 |.... A$."T".4800|
00000890: 00 9A 10 E4 11 89 34 35 34 30 00 AE 10 F8 11 85 |......4540......|
000008A0: 20 22 4E 4F 4D 42 52 45 3A 22 3B 5A 5A 24 00 C3 | "NOMBRE:";ZZ$..|
000008B0: 10 02 12 4E 24 28 4D 4D 29 B2 5A 5A 24 3A 89 34 |...N$(MM).ZZ$:.4|
000008C0: 39 30 30 00 D9 10 5C 12 85 22 44 49 52 45 43 43 |900...\.."DIRECC|
000008D0: 49 4F 4E 3A 22 3B 5A 5A 24 00 EE 10 66 12 44 24 |ION:";ZZ$...f.D$|
000008E0: 28 4D 4D 29 B2 5A 5A 24 3A 89 34 39 30 30 00 03 |(MM).ZZ$:.4900..|
000008F0: 11 C0 12 85 22 54 45 4C 45 46 4F 4E 4F 3A 22 3B |...."TELEFONO:";|
00000900: 5A 5A 24 00 18 11 CA 12 54 24 28 4D 4D 29 B2 5A |ZZ$.....T$(MM).Z|
00000910: 5A 24 3A 89 34 39 30 30 00 1E 11 24 13 99 00 3F |Z$:.4900...$...?|
00000920: 11 2E 13 99 20 A3 31 30 29 3B 22 52 5F 52 45 54 |.... .10);"R_RET|
00000930: 4F 52 4E 41 52 20 41 20 4D 45 4E 55 22 3A 99 00 |ORNAR A MENU":..|
00000940: 5B 11 38 13 99 20 A3 31 30 29 3B 22 43 5F 43 41 |[.8.. .10);"C_CA|
00000950: 4D 42 49 41 52 20 44 41 54 4F 22 00 70 11 42 13 |MBIAR DATO".p.B.|
00000960: A1 41 24 3A 8B 20 41 24 B2 22 22 A7 34 39 33 30 |.A$:. A$."".4930|
00000970: 00 80 11 4C 13 8B 20 41 24 B2 22 52 22 A7 32 30 |...L.. A$."R".20|
00000980: 00 92 11 56 13 8B 20 41 24 B2 22 43 22 A7 34 30 |...V.. A$."C".40|
00000990: 30 30 00 9D 11 60 13 89 20 34 39 33 30 00 BB 11 |00...`.. 4930...|
000009A0: 88 13 8F 20 2A 2A 2A 20 4C 49 53 54 41 20 41 4C |... *** LISTA AL|
000009B0: 46 41 42 45 54 49 43 41 2A 2A 2A 00 C5 11 92 13 |FABETICA***.....|
000009C0: 99 20 22 93 22 00 D5 11 9C 13 81 41 B2 31 A4 31 |. "."......A.1.1|
000009D0: 30 3A 99 3A 82 00 FA 11 A6 13 99 20 A3 38 29 3B |0:.:....... .8);|
000009E0: 22 2A 2A 45 53 50 45 52 45 20 55 4E 4F 53 20 53 |"**ESPERE UNOS S|
000009F0: 45 47 55 4E 44 4F 53 2A 2A 22 00 02 12 B0 13 59 |EGUNDOS**".....Y|
00000A00: B2 30 00 11 12 BA 13 81 4B 4B B2 31 A4 49 49 AB |.0......KK.1.II.|
00000A10: 31 00 2D 12 C4 13 8B 20 4E 24 28 4B 4B 29 B3 B2 |1.-.... N$(KK)..|
00000A20: 4E 24 28 4B 4B AA 31 29 A7 35 31 34 30 00 49 12 |N$(KK.1).5140.I.|
00000A30: CE 13 4E 32 24 B2 4E 24 28 4B 4B 29 3A 4E 31 24 |..N2$.N$(KK):N1$|
00000A40: B2 4E 24 28 4B 4B AA 31 29 00 65 12 D8 13 4E 24 |.N$(KK.1).e...N$|
00000A50: 28 4B 4B 29 B2 4E 31 24 3A 4E 24 28 4B 4B AA 31 |(KK).N1$:N$(KK.1|
00000A60: 29 B2 4E 32 24 00 81 12 E2 13 44 32 24 B2 44 24 |).N2$.....D2$.D$|
00000A70: 28 4B 4B 29 3A 44 31 24 B2 44 24 28 4B 4B AA 31 |(KK):D1$.D$(KK.1|
00000A80: 29 00 9D 12 EC 13 44 24 28 4B 4B 29 B2 44 31 24 |).....D$(KK).D1$|
00000A90: 3A 44 24 28 4B 4B AA 31 29 B2 44 32 24 00 B9 12 |:D$(KK.1).D2$...|
00000AA0: F6 13 54 32 24 B2 54 24 28 4B 4B 29 3A 54 31 24 |..T2$.T$(KK):T1$|
00000AB0: B2 54 24 28 4B 4B AA 31 29 00 D5 12 00 14 54 24 |.T$(KK.1).....T$|
00000AC0: 28 4B 4B 29 B2 54 31 24 3A 54 24 28 4B 4B AA 31 |(KK).T1$:T$(KK.1|
00000AD0: 29 B2 54 32 24 00 DD 12 0A 14 59 B2 31 00 E5 12 |).T2$.....Y.1...|
00000AE0: 14 14 82 4B 4B 00 F4 12 1E 14 8B 20 59 B2 31 A7 |...KK...... Y.1.|
00000AF0: 35 30 34 30 00 FD 12 28 14 99 22 93 22 00 0A 13 |5040...(.."."...|
00000B00: 32 14 81 4A 4A B2 31 A4 49 49 00 12 13 3C 14 99 |2..JJ.1.II...<..|
00000B10: 3A 99 00 2D 13 46 14 99 20 A3 35 29 3B 22 44 41 |:..-.F.. .5);"DA|
00000B20: 54 4F 20 4E 27 22 3B 4A 4A 3A 99 3A 99 00 5D 13 |TO N'";JJ:.:..].|
00000B30: 50 14 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |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 22 00 65 13 |............".e.|
00000B60: 5A 14 99 3A 99 00 82 13 64 14 99 20 A3 35 29 3B |Z..:....d.. .5);|
00000B70: 22 4E 4F 4D 42 52 45 3A 22 3B 4E 24 28 4A 4A 29 |"NOMBRE:";N$(JJ)|
00000B80: 3A 99 00 9F 13 6E 14 99 20 A3 35 29 3B 22 44 49 |:....n.. .5);"DI|
00000B90: 52 45 43 2E 3A 22 3B 44 24 28 4A 4A 29 3A 99 00 |REC.:";D$(JJ):..|
00000BA0: BC 13 78 14 99 20 A3 35 29 3B 22 54 45 4C 45 46 |..x.. .5);"TELEF|
00000BB0: 2E 3A 22 3B 54 24 28 4A 4A 29 3A 99 00 CC 13 82 |.:";T$(JJ):.....|
00000BC0: 14 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 E6 13 8C |..:.:.:.:.:.....|
00000BD0: 14 99 20 A3 38 29 3B 22 43 5F 43 4F 4E 54 49 4E |.. .8);"C_CONTIN|
00000BE0: 55 41 52 22 3A 99 00 06 14 96 14 99 20 A3 38 29 |UAR":....... .8)|
00000BF0: 3B 22 52 5F 52 45 54 4F 52 4E 41 52 20 41 20 4D |;"R_RETORNAR A M|
00000C00: 45 4E 55 22 3A 99 00 1A 14 A0 14 A1 41 24 3A 8B |ENU":.......A$:.|
00000C10: 41 24 B2 22 22 A7 35 32 38 30 00 2C 14 AA 14 8B |A$."".5280.,....|
00000C20: 20 41 24 B2 22 52 22 A7 35 33 31 30 00 34 14 B4 | A$."R".5310.4..|
00000C30: 14 82 4A 4A 00 3C 14 BE 14 89 32 30 00 52 14 70 |..JJ.<....20.R.p|
00000C40: 17 8F 20 42 55 53 43 41 52 20 44 41 54 4F 53 2A |.. BUSCAR DATOS*|
00000C50: 2A 2A 00 5C 14 7A 17 99 20 22 93 22 00 64 14 84 |**.\.z.. ".".d..|
00000C60: 17 99 3A 99 00 89 14 8E 17 99 22 49 4E 47 52 45 |..:......."INGRE|
00000C70: 53 45 20 45 4C 20 44 41 54 4F 20 41 20 53 45 52 |SE EL DATO A SER|
00000C80: 20 42 55 53 43 41 44 4F 22 00 BB 14 98 17 99 3A | BUSCADO"......:|
00000C90: 99 22 B8 B8 B8 B8 B8 B8 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 22 00 C5 14 A2 17 |..........".....|
00000CC0: 85 20 44 41 24 00 D3 14 AC 17 81 20 5A 5A B2 31 |. DA$...... ZZ.1|
00000CD0: A4 49 49 00 FF 14 B6 17 8B 20 44 41 24 B2 4E 24 |.II...... DA$.N$|
00000CE0: 28 5A 5A 29 B0 44 41 24 B2 44 24 28 5A 5A 29 B0 |(ZZ).DA$.D$(ZZ).|
00000CF0: 44 41 24 B2 54 24 28 5A 5A 29 A7 36 35 30 30 00 |DA$.T$(ZZ).6500.|
00000D00: 07 15 C0 17 82 5A 5A 00 11 15 CA 17 99 3A 99 3A |.....ZZ......:.:|
00000D10: 99 00 40 15 D4 17 99 20 22 20 45 4C 20 44 41 54 |..@.... " EL DAT|
00000D20: 4F 20 42 55 53 43 41 44 4F 20 4E 4F 20 53 45 20 |O BUSCADO NO SE |
00000D30: 45 4E 43 55 45 4E 54 52 41 20 45 4E 20 4C 41 22 |ENCUENTRA EN LA"|
00000D40: 00 50 15 DE 17 99 20 22 20 41 47 45 4E 44 41 22 |.P.... " AGENDA"|
00000D50: 00 5F 15 E8 17 99 3A 99 3A 89 20 36 35 34 30 00 |._....:.:. 6540.|
00000D60: 69 15 64 19 99 3A 99 3A 99 00 82 15 6E 19 99 20 |i.d..:.:....n.. |
00000D70: 22 4E 4F 4D 42 52 45 3A 22 3B 4E 24 28 5A 5A 29 |"NOMBRE:";N$(ZZ)|
00000D80: 3A 99 00 9B 15 78 19 99 20 22 44 49 52 45 43 43 |:....x.. "DIRECC|
00000D90: 3A 22 3B 44 24 28 5A 5A 29 3A 99 00 B4 15 82 19 |:";D$(ZZ):......|
00000DA0: 99 20 22 54 45 4C 45 46 4F 3A 22 3B 54 24 28 5A |. "TELEFO:";T$(Z|
00000DB0: 5A 29 3A 99 00 BC 15 8C 19 99 3A 99 00 DD 15 96 |Z):.......:.....|
00000DC0: 19 99 20 A3 31 31 29 3B 22 52 5F 52 45 54 4F 52 |.. .11);"R_RETOR|
00000DD0: 4E 41 52 20 41 20 4E 45 4D 55 22 3A 99 00 F8 15 |NAR A NEMU":....|
00000DE0: A0 19 99 A3 31 31 29 3B 22 42 5F 42 55 53 43 41 |....11);"B_BUSCA|
00000DF0: 52 20 44 41 54 4F 53 22 00 0C 16 AA 19 A1 41 24 |R DATOS"......A$|
00000E00: 3A 8B 41 24 B2 22 22 A7 36 35 37 30 00 1C 16 B4 |:.A$."".6570....|
00000E10: 19 8B 20 41 24 B2 22 52 22 A7 32 30 00 2E 16 BE |.. A$."R".20....|
00000E20: 19 8B 20 41 24 B2 22 42 22 A7 36 30 30 30 00 39 |.. A$."B".6000.9|
00000E30: 16 2C 1A 89 20 36 35 37 30 00 52 16 58 1B 8F 20 |.,.. 6570.R.X.. |
00000E40: 4C 45 45 52 20 41 52 43 48 49 56 4F 2A 2A 2A 2A |LEER ARCHIVO****|
00000E50: 2A 2A 00 5C 16 62 1B 99 20 22 93 22 00 6C 16 67 |**.\.b.. ".".l.g|
00000E60: 1B 81 56 B2 31 A4 31 31 3A 99 3A 82 00 93 16 6C |..V.1.11:.:....l|
00000E70: 1B 99 20 A3 38 29 3B 22 12 2A 2A 45 53 50 45 52 |.. .8);".**ESPER|
00000E80: 45 20 55 4E 4F 53 20 53 45 47 55 4E 44 4F 53 2A |E UNOS SEGUNDOS*|
00000E90: 2A 92 22 00 9C 16 76 1B 49 49 B2 30 00 BC 16 80 |*."...v.II.0....|
00000EA0: 1B 9F 31 2C 38 2C 32 2C 22 4E 30 3A 41 47 45 4E |..1,8,2,"N0:AGEN|
00000EB0: 44 41 2C 53 45 51 2C 52 45 41 44 22 00 C8 16 8A |DA,SEQ,READ"....|
00000EC0: 1B 49 49 B2 49 49 AA 31 00 E4 16 94 1B 84 31 2C |.II.II.1......1,|
00000ED0: 4E 24 28 49 49 29 2C 44 24 28 49 49 29 2C 54 24 |N$(II),D$(II),T$|
00000EE0: 28 49 49 29 00 F4 16 9E 1B 8B 20 53 54 A7 A0 31 |(II)...... ST..1|
00000EF0: 3A 89 32 30 00 FE 16 A8 1B 89 37 30 35 30 00 07 |:.20......7050..|
00000F00: 17 40 1F 99 22 93 22 00 17 17 43 1F 81 57 B2 31 |.@.."."...C..W.1|
00000F10: A4 31 31 3A 99 3A 82 00 3D 17 44 1F 99 A3 38 29 |.11:.:..=.D...8)|
00000F20: 3B 22 12 2A 2A 45 53 50 45 52 45 20 55 4E 4F 53 |;".**ESPERE UNOS|
00000F30: 20 53 45 47 55 4E 44 4F 53 2A 2A 92 22 00 5A 17 | SEGUNDOS**.".Z.|
00000F40: 47 1F 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A 41 |G..15,8,15,"S0:A|
00000F50: 47 45 4E 44 41 22 3A A0 31 35 00 75 17 4A 1F 9F |GENDA":.15.u.J..|
00000F60: 31 2C 38 2C 32 2C 22 4E 30 3A 41 47 45 4E 44 41 |1,8,2,"N0:AGENDA|
00000F70: 2C 53 2C 57 22 00 82 17 54 1F 81 42 42 B2 31 A4 |,S,W"...T..BB.1.|
00000F80: 49 49 00 B1 17 5E 1F 98 31 2C 4E 24 28 42 42 29 |II...^..1,N$(BB)|
00000F90: 3B C7 28 31 33 29 3B 44 24 28 42 42 29 3B C7 28 |;.(13);D$(BB);.(|
00000FA0: 31 33 29 3B 54 24 28 42 42 29 3B C7 28 31 33 29 |13);T$(BB);.(13)|
00000FB0: 3B 00 B9 17 68 1F 82 42 42 00 C4 17 72 1F A0 31 |;...h..BB...r..1|
00000FC0: 3A 89 32 30 00 CA 17 32 23 80 00 DC 17 1C 25 8F |:.20...2#.....%.|
00000FD0: 2A 44 49 52 45 43 54 4F 52 49 4F 2A 00 E5 17 26 |*DIRECTORIO*...&|
00000FE0: 25 99 22 93 22 00 F2 17 30 25 9F 31 35 2C 38 2C |%."."...0%.15,8,|
00000FF0: 31 35 00 07 18 3A 25 9F 38 2C 38 2C 30 2C 22 24 |15...:%.8,8,0,"$|
00001000: 22 3A 8D 39 38 30 30 00 19 18 44 25 8B 20 C5 28 |":.9800...D%. .(|
00001010: 41 24 29 B1 30 20 A7 20 8E 00 2B 18 4E 25 A1 23 |A$).0 . ..+.N%.#|
00001020: 38 2C 41 24 3A A1 23 38 2C 41 24 00 4A 18 58 25 |8,A$:.#8,A$.J.X%|
00001030: A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 3A 8B 53 |.#8,A$:.#8,A$:.S|
00001040: 54 B2 36 34 20 A7 39 38 35 30 00 7C 18 62 25 A1 |T.64 .9850.|.b%.|
00001050: 23 38 2C 42 24 3A A1 23 38 2C 41 24 3A 42 B2 C6 |#8,B$:.#8,A$:B..|
00001060: 28 42 24 AA C7 28 30 29 29 AA 32 35 36 AC C6 28 |(B$..(0)).256..(|
00001070: 41 24 AA C7 28 30 29 29 3A 99 42 3B 00 9F 18 67 |A$..(0)):.B;...g|
00001080: 25 A1 23 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 20 |%.#8,A$:.A$."". |
00001090: 99 3A 92 32 30 33 2C 36 34 3A 89 39 35 36 30 00 |.:.203,64:.9560.|
000010A0: AE 18 6C 25 99 41 24 3B 3A 89 39 35 37 35 00 C2 |..l%.A$;:.9575..|
000010B0: 18 48 26 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C |.H&.15,A$,B$,C$,|
000010C0: 44 24 00 02 19 52 26 8B C5 28 41 24 29 B1 30 A7 |D$...R&..(A$).0.|
000010D0: 99 22 12 45 52 52 4F 52 20 45 4E 20 45 4C 20 44 |.".ERROR EN EL D|
000010E0: 49 53 43 4F 92 22 3B C7 28 31 33 29 3B 41 24 3B |ISCO.";.(13);A$;|
000010F0: 22 22 3B 42 24 3B 22 22 3B 43 24 3B 22 22 3B 44 |"";B$;"";C$;"";D|
00001100: 24 3B 00 15 19 5C 26 8B C5 28 41 24 29 B2 30 20 |$;...\&..(A$).0 |
00001110: A7 39 38 36 30 00 27 19 7A 26 A0 38 3A A0 31 35 |.9860.'.z&.8:.15|
00001120: 3A 97 31 39 38 2C 30 00 49 19 7B 26 99 20 A3 31 |:.198,0.I.{&. .1|
00001130: 30 29 22 11 11 11 12 4D 5F 56 4F 4C 56 45 52 20 |0)"....M_VOLVER |
00001140: 41 4C 20 4D 45 4E 55 92 22 00 66 19 7C 26 99 20 |AL MENU.".f.|&. |
00001150: A3 31 30 29 22 11 11 12 44 5F 44 49 52 45 43 54 |.10)"...D_DIRECT|
00001160: 4F 52 49 4F 92 22 00 7A 19 7D 26 A1 41 24 3A 8B |ORIO.".z.}&.A$:.|
00001170: 41 24 B2 22 22 A7 39 38 35 34 00 89 19 7E 26 8B |A$."".9854...~&.|
00001180: 41 24 B2 22 4D 22 A7 32 30 00 9A 19 7F 26 8B 41 |A$."M".20....&.A|
00001190: 24 B2 22 44 22 A7 39 35 31 30 00 A4 19 80 26 89 |$."D".9510....&.|
000011A0: 39 38 35 33 00 AA 19 84 26 8E 00 00 00 |9853....&.... |
.......53280,0:.53281,0.$.... 788,52.2..
.. 792,193.Q.... N$(3000),D$(300),T$(300
).[.... ".".|.... .11);".AGENDA TELEFONI
CA."...... .11);"====== ==========":.:..
..... .10);"1_INGRESAR DATOS":....(.. .1
0);"2_BORRAR DATOS":....<.. .10);"3_CAMB
IAR DATOS":....F.. .10);"4_LISTA ALFABET
ICA":..<.P.. .10);"5_BUSCAR DATOS":..Z.Z
.. .10);"6_LEER ARCHIVO":..Z.D.. .10);"7
_GRABAR ARCHIVO":....I.. .10);"8_DIRECTO
RIO":....N.. .16);"....*ELIJA*.".C.X..A$
:.A$."".120.O...A.E(A$)...... A.1.A.8.12
0...... A . 1000,2000,4000,5000,6000,70
00,8000,9500...J..BB.&.... ".".6...II.II
.1:.:..Y.... .5);"INGRESE DATO N'";II:.:
....... "...............................
........."......". NOMBRE:";N$(II).....
. N$(II)."".II.II.1:.20......". DIRECCI
ON:";D$(II)......". TELEFONO:";T$(II).(
.$..:.".................................
.......".2....1000.D.P.. BORRAR DATO.M.Z
..".".U....:..}.... "INGRESE EL DATO A S
ER BORRADO":......."....................
...................."...... BO$.E.... WW
.1.II......N$(WW).BO$.D$(WW).BO$.T$(WW).
BO$.2200... ..WW...*..:.:..0.4.."ESE DAT
O YA A SIDO BORRADO O NO SE EN-".L.>.."C
UENTRA EN LA AGENDA".\.H..:.:.:.:.:...\
.. .10);".R_RETORNAR A MENU.":....F.. .1
0);".B_BORRAR DATO."...P..A$:.A$."".2170
...Z..A$."R".20.Q.... A$."B".2000......2
160......:......."NOMBRE:";N$(WW):......
."DIRREC:";D$(WW):..)...."TELEFO:";T$(WW
).1....:..\.J.. "ES ESTE EL DATO A SER B
ORRADO(S/N)".P.T..A$:.A$."".2260...... A
$."N"..:.:.2140...... A$."S".2300......2
260.E...N$(WW)."":D$(WW)."":T$(WW)."".R.
...AA.1.II......N$(AA)."".2340......AA:.
20...$.II.II.1......JJ.AA .II.B.8.N$(JJ
).N$(JJ.1):D$(JJ).D$(JJ.1):T$(JJ).T$(JJ.
1).N.B..JJ:.20.X....1000.L. .. CAMBIAR D
ATOS.V.... ".".~....:......."INGRESE EL
DATO A SER CAMBIADO".V.H..:."...........
............................."...R..:. C
A$...... MM.1.II......N$(MM).CA$.D$(MM).
CA$.T$(MM).CA$.4500.#....MM.-....:.:..E.
..."ESE DATO NO SE ENCUENTRA EN LA AGEND
A":.:.:.:.:.:...... .10);".R_RETORNAR A
NEMU.":....... .10);".C_CAMBIAR DATO."..
."..A$:.A$."".4130.I.,..A$."R".20...6..
A$."C".4000...@..4130......:.......;"N_N
OMBRE:";N$(MM):..#....;"D_DIRECC:";D$(MM
):..>....;"T_TELEFO:";T$(MM):..F....:..Z
....A$:.A$."".4540.L.F.. A$."N".4600.~.P
.. A$."D".4700...Z.. A$."T".4800......45
40...... "NOMBRE:";ZZ$.C...N$(MM).ZZ$:.4
900.Y.\.."DIRECCION:";ZZ$...F.D$(MM).ZZ$
:.4900......"TELEFONO:";ZZ$...J.T$(MM).Z
Z$:.4900...$...?.... .10);"R_RETORNAR A
MENU":..[.8.. .10);"C_CAMBIAR DATO".P.B.
.A$:. A$."".4930...L.. A$."R".20...V.. A
$."C".4000...`.. 4930...... *** LISTA AL
FABETICA***.E.... ".".U....A.1.10:.:....
... .8);"**ESPERE UNOS SEGUNDOS**".....Y
.0......KK.1.II.1.-.D.. N$(KK)..N$(KK.1)
.5140.I.N.N2$.N$(KK):N1$.N$(KK.1).E.X.N$
(KK).N1$:N$(KK.1).N2$.....D2$.D$(KK):D1$
.D$(KK.1).....D$(KK).D1$:D$(KK.1).D2$...
..T2$.T$(KK):T1$.T$(KK.1).U...T$(KK).T1$
:T$(KK.1).T2$.....Y.1......KK...... Y.1.
5040...(.."."...2..JJ.1.II...<..:..-.F..
.5);"DATO N'";JJ:.:..].P.."............
............................".E.Z..:....
D.. .5);"NOMBRE:";N$(JJ):....N.. .5);"DI
REC.:";D$(JJ):....X.. .5);"TELEF.:";T$(J
J):..L....:.:.:.:.:....... .8);"C_CONTIN
UAR":....... .8);"R_RETORNAR A MENU":...
. ..A$:.A$."".5280.,.... A$."R".5310.4..
..JJ.<....20.R.P.. BUSCAR DATOS***.\.Z..
".".D....:......."INGRESE EL DATO A SER
BUSCADO"......:."......................
..................".E.... DA$.S.... ZZ.1
.II...... DA$.N$(ZZ).DA$.D$(ZZ).DA$.T$(Z
Z).6500......ZZ...J..:.:..@.T.. " EL DAT
O BUSCADO NO SE ENCUENTRA EN LA".P.... "
AGENDA"._....:.:. 6540.I.D..:.:....N..
"NOMBRE:";N$(ZZ):....X.. "DIRECC:";D$(ZZ
):....... "TELEFO:";T$(ZZ):.......:.....
.. .11);"R_RETORNAR A NEMU":.... ...11);
"B_BUSCAR DATOS"......A$:.A$."".6570....
.. A$."R".20...... A$."B".6000.9.,.. 657
0.R.X.. LEER ARCHIVO******.\.B.. ".".L.G
..V.1.11:.:....L.. .8);".**ESPERE UNOS S
EGUNDOS**."...V.II.0......1,8,2,"N0:AGEN
DA,SEQ,READ".H...II.II.1......1,N$(II),D
$(II),T$(II)...... ST. 1:.20......7050..
.@.."."...C..W.1.11:.:..=.D...8);".**ESP
ERE UNOS SEGUNDOS**.".Z.G..15,8,15,"S0:A
GENDA": 15.U.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.D.R. 1:.20.J.2
#.....%.*DIRECTORIO*...&%."."...0%.15,8,
15...:%.8,8,0,"$":.9800...D%. E(A$).0 .
..+.N%.#8,A$:.#8,A$.J.X%.#8,A$:.#8,A$:.S
T.64 .9850.|.B%.#8,B$:.#8,A$:B.F(B$.G(0)
).256.F(A$.G(0)):.B;...G%.#8,A$:.A$."".
.:.203,64:.9560...L%.A$;:.9575.B.H&.15,A
$,B$,C$,D$...R&.E(A$).0..".ERROR EN EL D
ISCO.";G(13);A$;"";B$;"";C$;"";D$;...\&.
E(A$).0 .9860.'.Z& 8: 15:.198,0.I.{&. .1
0)"....M_VOLVER AL MENU.".F.|&. .10)"...
D_DIRECTORIO.".Z.}&.A$:.A$."".9854...~&.
A$."M".20...&.A$."D".9510....&.9853....
&....
> CLICK IMAGE PREVIEW FOR FULL MODAL