AGENDA/DISCADOR
FILE INFORMATION
FILENAME(S): AGENDA/DISCADOR
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-10-19 23:07:10
APPEARS ON: 1 disk(s)
FILE HASH
248d8eea040fe9337821849ebc76d17dfe6be9b3f3e2114ca0862dd6bf1d6e19
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KILLER SOFTWARE | AGENDA/DISCADOR | PRG | Bugjam - Argentina | 15 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 38 08 02 00 99 20 22 93 05 1D 1D 1D 1D 1D |..8.... ".......|
00000010: 1D 1D 1D 11 11 11 11 11 11 11 11 11 11 2A 2A 2A |.............***|
00000020: 12 44 49 53 43 41 44 4F 52 20 54 45 4C 45 46 4F |.DISCADOR TELEFO|
00000030: 4E 49 43 4F 2A 2A 2A 22 00 55 08 05 00 97 35 33 |NICO***".U....53|
00000040: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 97 |280,0:.53281,0:.|
00000050: 31 39 32 2C 37 00 73 08 06 00 97 31 2C 37 3A 81 |192,7.s....1,7:.|
00000060: 54 B2 31 20 A4 20 38 30 30 3A 82 20 54 3A 97 31 |T.1 . 800:. T:.1|
00000070: 2C 33 39 00 8B 08 0A 00 86 20 41 24 28 32 37 2C |,39...... A$(27,|
00000080: 32 30 29 3A 86 20 41 28 31 35 29 00 9B 08 14 00 |20):. A(15).....|
00000090: 86 20 58 24 28 32 37 2C 32 30 29 00 AC 08 19 00 |. X$(27,20).....|
000000A0: 81 20 51 B2 31 A4 35 30 30 3A 82 51 00 B7 08 1E |. Q.1.500:.Q....|
000000B0: 00 89 20 33 30 30 30 00 E1 08 28 00 99 22 93 11 |.. 3000...(.."..|
000000C0: 1D 1D 1D 2A 2A 2A 2A 20 44 49 53 43 41 44 4F 52 |...**** DISCADOR|
000000D0: 20 54 45 4C 45 46 4F 4E 49 43 4F 20 2A 2A 2A 2A | TELEFONICO ****|
000000E0: 22 00 05 09 32 00 99 22 11 11 1D 1D 1D 31 2E 20 |"...2..".....1. |
000000F0: 43 41 52 47 41 52 20 44 41 54 4F 53 20 44 45 20 |CARGAR DATOS DE |
00000100: 47 55 49 41 22 00 2E 09 37 00 99 22 11 1D 1D 1D |GUIA"...7.."....|
00000110: 32 2E 20 49 4E 47 52 45 53 41 52 20 44 41 54 4F |2. INGRESAR DATO|
00000120: 53 20 54 45 4C 45 46 4F 4E 49 43 4F 53 22 00 50 |S TELEFONICOS".P|
00000130: 09 3C 00 99 22 11 1D 1D 1D 33 2E 20 44 49 53 43 |.<.."....3. DISC|
00000140: 41 52 20 44 49 52 45 43 54 41 4D 45 4E 54 45 22 |AR DIRECTAMENTE"|
00000150: 00 6D 09 46 00 99 22 11 1D 1D 1D 34 2E 20 42 55 |.m.F.."....4. BU|
00000160: 53 43 41 52 20 45 4E 20 47 55 49 41 22 00 99 09 |SCAR EN GUIA"...|
00000170: 50 00 99 22 11 1D 1D 1D 35 2E 20 56 4F 4C 56 45 |P.."....5. VOLVE|
00000180: 52 20 41 20 44 49 53 43 41 52 20 55 4C 54 49 4D |R A DISCAR ULTIM|
00000190: 4F 20 4E 55 4D 45 52 4F 22 00 BD 09 55 00 99 22 |O NUMERO"...U.."|
000001A0: 11 1D 1D 1D 36 2E 20 47 55 41 52 44 41 52 20 47 |....6. GUARDAR G|
000001B0: 55 49 41 20 45 4E 20 44 49 53 43 4F 22 00 DF 09 |UIA EN DISCO"...|
000001C0: 5A 00 99 22 11 1D 1D 1D 37 2E 20 43 4F 52 54 41 |Z.."....7. CORTA|
000001D0: 52 20 43 4F 4D 55 4E 49 43 41 43 49 4F 4E 22 00 |R COMUNICACION".|
000001E0: 0F 0A 5B 00 99 22 11 1D 1D 1D 38 2E 20 43 4F 52 |..[.."....8. COR|
000001F0: 54 41 52 2D 50 52 45 56 49 4F 20 52 45 47 49 53 |TAR-PREVIO REGIS|
00000200: 54 52 4F 20 41 20 52 45 53 55 4D 45 4E 2D 22 00 |TRO A RESUMEN-".|
00000210: 31 0A 5C 00 99 22 11 1D 1D 1D 39 2E 20 52 45 53 |1.\.."....9. RES|
00000220: 55 4D 45 4E 20 44 45 20 4C 4C 41 4D 41 44 41 53 |UMEN DE LLAMADAS|
00000230: 22 00 55 0A 5F 00 99 22 11 1D 1D 1D 1D 1D 1D 48 |".U._..".......H|
00000240: 41 47 41 20 53 55 20 45 4C 45 43 43 49 4F 4E 28 |AGA SU ELECCION(|
00000250: 31 2D 39 29 22 00 61 0A 64 00 41 24 B2 C7 28 30 |1-9)".a.d.A$..(0|
00000260: 29 00 74 0A 65 00 54 49 24 B2 22 30 30 30 30 30 |).t.e.TI$."00000|
00000270: 30 22 3A 99 00 90 0A 66 00 99 22 1D 1D 1D 1D 1D |0":....f..".....|
00000280: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 22 54 49 24 |............"TI$|
00000290: 00 AD 0A 67 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...g..".........|
000002A0: 1D 1D 1D 1D 1D 1D 1D 12 91 22 54 49 24 00 C9 0A |........."TI$...|
000002B0: 6E 00 A1 20 41 24 3A 20 8B 20 C5 28 41 24 29 B2 |n.. A$: . .(A$).|
000002C0: 30 20 A7 20 89 20 31 30 33 00 06 0B 78 00 91 C5 |0 . . 103...x...|
000002D0: 28 41 24 29 89 20 36 30 30 30 2C 37 30 30 2C 35 |(A$). 6000,700,5|
000002E0: 30 30 2C 31 35 30 2C 34 30 31 30 2C 35 30 30 30 |00,150,4010,5000|
000002F0: 2C 33 35 30 2C 31 30 31 30 30 2C 31 31 30 30 30 |,350,10100,11000|
00000300: 3A 89 20 31 31 30 00 12 0B 96 00 8D 20 31 30 30 |:. 110...... 100|
00000310: 30 30 00 2F 0B A0 00 99 20 22 93 11 11 1D 49 4E |00./.... "....IN|
00000320: 54 52 4F 44 55 5A 43 41 20 4C 45 54 52 41 22 00 |TRODUZCA LETRA".|
00000330: 44 0B A1 00 A1 20 43 24 3A 8B 20 43 24 B2 22 22 |D.... C$:. C$.""|
00000340: A7 31 36 31 00 4D 0B AA 00 99 22 93 22 00 5C 0B |.161.M....".".\.|
00000350: B4 00 43 B2 C6 28 43 24 29 AB 36 34 00 79 0B B9 |..C..(C$).64.y..|
00000360: 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A |.."...........**|
00000370: 2A 22 43 24 22 2A 2A 2A 22 00 88 0B BE 00 81 20 |*"C$"***"...... |
00000380: 53 B2 31 20 A4 20 32 30 00 99 0B C8 00 99 53 A3 |S.1 . 20......S.|
00000390: 34 29 41 24 28 43 2C 53 29 00 C6 0B CD 00 99 22 |4)A$(C,S)......"|
000003A0: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000003B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 58 |.............."X|
000003C0: 24 28 43 2C 53 29 00 CE 0B D2 00 82 20 53 00 0A |$(C,S)...... S..|
000003D0: 0C DC 00 85 20 22 4E 55 4D 45 52 4F 20 44 45 20 |.... "NUMERO DE |
000003E0: 4F 52 44 45 4E 20 50 2F 44 49 53 43 41 52 20 45 |ORDEN P/DISCAR E|
000003F0: 4C 20 30 20 50 2F 53 41 4C 49 52 22 3B 53 3A 8B |L 0 P/SALIR";S:.|
00000400: 53 B2 30 20 A7 20 89 20 34 30 00 15 0C E6 00 8D |S.0 . . 40......|
00000410: 20 34 30 30 30 00 34 0C 5E 01 97 31 2C 37 3A 81 | 4000.4.^..1,7:.|
00000420: 20 54 B2 31 20 A4 20 38 30 30 3A 82 20 54 3A 97 | T.1 . 800:. T:.|
00000430: 31 2C 33 39 00 3D 0C 7C 01 89 20 34 30 00 64 0C |1,39.=.|.. 40.d.|
00000440: F4 01 85 20 22 93 49 4E 54 52 4F 44 55 5A 43 41 |... ".INTRODUZCA|
00000450: 20 4E 55 4D 45 52 4F 20 41 20 44 49 53 43 41 52 | NUMERO A DISCAR|
00000460: 22 3B 58 24 00 73 0C F9 01 41 24 28 43 2C 53 29 |";X$.s...A$(C,S)|
00000470: B2 22 22 00 7E 0C FE 01 89 20 34 30 31 30 00 8A |."".~.... 4010..|
00000480: 0C BC 02 8D 20 31 30 30 30 30 00 A3 0C C1 02 99 |.... 10000......|
00000490: 22 93 49 4E 54 52 4F 44 55 5A 43 41 20 4C 45 54 |".INTRODUZCA LET|
000004A0: 52 41 22 00 B7 0C C6 02 A1 20 43 24 3A 8B 43 24 |RA"...... C$:.C$|
000004B0: B2 22 22 A7 37 31 30 00 C1 0C CB 02 99 20 22 93 |."".710...... ".|
000004C0: 22 00 D0 0C D0 02 43 B2 C6 28 43 24 29 AB 36 34 |".....C..(C$).64|
000004D0: 00 ED 0C D2 02 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
000004E0: 1D 1D 2A 2A 2A 22 43 24 22 2A 2A 2A 22 00 FC 0C |..***"C$"***"...|
000004F0: D3 02 81 20 53 B2 31 20 A4 20 32 30 00 0D 0D D4 |... S.1 . 20....|
00000500: 02 99 53 A3 34 29 41 24 28 43 2C 53 29 00 3A 0D |..S.4)A$(C,S).:.|
00000510: DA 02 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00000520: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000530: 1D 1D 22 58 24 28 43 2C 53 29 00 42 0D E4 02 82 |.."X$(C,S).B....|
00000540: 20 53 00 79 0D EE 02 85 22 4E 55 4D 45 52 4F 20 | S.y...."NUMERO |
00000550: 44 45 20 4F 52 44 45 4E 20 45 4C 20 30 20 50 41 |DE ORDEN EL 0 PA|
00000560: 52 41 20 53 41 4C 49 52 22 3B 55 3A 20 8B 20 55 |RA SALIR";U: . U|
00000570: B2 30 20 A7 20 89 20 34 30 00 AF 0D F8 02 85 22 |.0 . . 40......"|
00000580: 49 4E 54 52 4F 44 55 5A 43 41 20 4E 4F 4D 42 52 |INTRODUZCA NOMBR|
00000590: 45 20 28 4D 45 4E 4F 53 20 44 45 20 31 35 20 4C |E (MENOS DE 15 L|
000005A0: 45 54 52 41 53 29 22 3B 41 24 28 43 2C 55 29 00 |ETRAS)";A$(C,U).|
000005B0: D7 0D 02 03 85 22 49 4E 54 52 4F 44 55 5A 43 41 |....."INTRODUZCA|
000005C0: 20 4E 55 4D 2E 20 54 45 4C 45 46 4F 4E 4F 22 3B | NUM. TELEFONO";|
000005D0: 58 24 28 43 2C 55 29 00 E1 0D 0C 03 89 20 37 31 |X$(C,U)...... 71|
000005E0: 35 00 20 0E B8 0B 99 22 93 11 1D 1D 1D 50 41 52 |5. ....".....PAR|
000005F0: 41 20 47 45 4E 45 52 41 52 20 55 4E 41 20 4E 55 |A GENERAR UNA NU|
00000600: 45 56 41 20 47 55 49 41 20 50 55 4C 53 45 20 4C |EVA GUIA PULSE L|
00000610: 41 20 20 20 20 4C 45 54 52 41 20 2D 47 2D 2E 22 |A LETRA -G-."|
00000620: 00 66 0E BD 0B 99 22 11 1D 1D 1D 43 55 41 4C 51 |.f...."....CUALQ|
00000630: 55 49 45 52 20 4F 54 52 41 20 54 45 43 4C 41 20 |UIER OTRA TECLA |
00000640: 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 20 20 |PARA CONTINUAR |
00000650: 20 20 20 53 49 20 59 41 20 45 58 49 53 54 45 20 | SI YA EXISTE |
00000660: 47 55 49 41 2E 22 00 82 0E C2 0B 41 24 B2 22 22 |GUIA.".....A$.""|
00000670: 3A A1 20 41 24 3A 8B 41 24 B2 22 22 A7 20 33 30 |:. A$:.A$."". 30|
00000680: 31 30 00 97 0E CC 0B 8B 20 41 24 B3 B1 22 47 22 |10...... A$.."G"|
00000690: 20 A7 20 89 20 34 30 00 C1 0E D6 0B 99 22 11 41 | . . 40......".A|
000006A0: 53 45 47 55 52 45 53 45 20 51 55 45 20 45 53 54 |SEGURESE QUE EST|
000006B0: 45 20 45 4C 20 44 49 53 43 4F 20 4C 49 53 54 4F |E EL DISCO LISTO|
000006C0: 22 00 00 0F E0 0B 99 22 11 53 49 20 48 41 59 20 |"......".SI HAY |
000006D0: 55 4E 41 20 47 55 49 41 20 45 4E 20 45 4C 20 44 |UNA GUIA EN EL D|
000006E0: 49 53 43 4F 20 53 45 52 41 20 42 4F 52 52 41 44 |ISCO SERA BORRAD|
000006F0: 41 43 4F 4E 46 49 52 4D 41 52 28 53 2F 4E 29 22 |ACONFIRMAR(S/N)"|
00000700: 00 1E 0F EA 0B 41 24 B2 22 22 3A A1 20 41 24 3A |.....A$."":. A$:|
00000710: 8B 20 41 24 B2 22 22 20 A7 20 33 30 35 30 00 51 |. A$."" . 3050.Q|
00000720: 0F EF 0B 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000730: 11 11 11 11 11 11 11 11 11 11 11 11 55 4E 20 4D |............UN M|
00000740: 4F 4D 45 4E 54 4F 20 50 4F 52 20 46 41 56 4F 52 |OMENTO POR FAVOR|
00000750: 22 00 68 0F F4 0B 8B 20 41 24 B3 B1 22 53 22 20 |".h.... A$.."S" |
00000760: A7 20 89 20 33 30 30 30 00 84 0F 12 0C 81 20 49 |. . 3000...... I|
00000770: B2 31 20 A4 20 32 37 20 3A 81 20 20 4A B2 31 20 |.1 . 27 :. J.1 |
00000780: A4 20 32 30 00 A0 0F 1C 0C 41 24 28 49 2C 4A 29 |. 20.....A$(I,J)|
00000790: B2 22 2A 22 3A 58 24 28 49 2C 4A 29 B2 22 2A 22 |."*":X$(I,J)."*"|
000007A0: 00 AC 0F 26 0C 82 20 4A 3A 82 20 49 00 B7 0F 30 |...&.. J:. I...0|
000007B0: 0C 89 20 35 30 30 30 00 C6 0F A0 0F 58 24 B2 58 |.. 5000.....X$.X|
000007C0: 24 28 43 2C 53 29 00 F8 0F AA 0F 99 20 22 93 43 |$(C,S)...... ".C|
000007D0: 4F 4E 46 49 52 4D 41 52 20 45 4C 20 4E 55 4D 45 |ONFIRMAR EL NUME|
000007E0: 52 4F 28 53 2F 4E 29 22 C5 28 58 24 29 22 20 22 |RO(S/N)".(X$)" "|
000007F0: 20 41 24 28 43 2C 53 29 00 3B 10 AF 0F 99 22 93 | A$(C,S).;....".|
00000800: 43 4F 4E 46 49 52 4D 41 52 20 45 4C 20 4E 55 4D |CONFIRMAR EL NUM|
00000810: 45 52 4F 28 53 2F 4E 29 22 3A 99 22 11 11 11 11 |ERO(S/N)":."....|
00000820: 1D 1D 1D 1D 1D 1D 1D 1D 12 22 58 24 22 92 22 22 |........."X$".""|
00000830: 20 22 20 41 24 20 28 43 2C 53 29 00 45 10 B0 0F | " A$ (C,S).E...|
00000840: 4B 24 B2 22 22 00 5C 10 B1 0F A1 20 4B 24 3A 8B |K$."".\.... K$:.|
00000850: 20 4B 24 B2 22 22 89 20 34 30 31 37 00 6D 10 B3 | K$."". 4017.m..|
00000860: 0F 8B 20 4B 24 B2 22 4E 22 89 20 34 30 00 82 10 |.. K$."N". 40...|
00000870: B4 0F 8B 20 4B 24 B3 B1 22 53 22 20 89 20 34 30 |... K$.."S" . 40|
00000880: 31 37 00 9F 10 B6 0F 99 22 11 11 11 11 44 49 53 |17......"....DIS|
00000890: 43 41 4E 44 4F 20 22 20 41 24 28 43 2C 53 29 00 |CANDO " A$(C,S).|
000008A0: B1 10 B7 0F 81 20 49 B2 31 20 A4 20 C3 28 58 24 |..... I.1 . .(X$|
000008B0: 29 00 DA 10 B9 0F 41 28 49 29 B2 C5 28 CA 28 58 |).....A(I)..(.(X|
000008C0: 24 2C 49 2C 31 29 29 3A 8B 20 41 28 49 29 B2 30 |$,I,1)):. A(I).0|
000008D0: 20 A7 20 41 28 49 29 B2 31 30 00 E2 10 BE 0F 82 | . A(I).10......|
000008E0: 20 49 00 0A 11 C8 0F 81 20 4A B2 31 20 A4 20 C3 | I...... J.1 . .|
000008F0: 28 58 24 29 3A 99 3A 99 41 28 4A 29 AB 31 30 AC |(X$):.:.A(J).10.|
00000900: B5 28 41 28 4A 29 AD 31 30 29 00 1B 11 D2 0F 81 |.(A(J).10)......|
00000910: 20 4E B2 31 20 A4 20 41 28 4A 29 00 24 11 DC 0F | N.1 . A(J).$...|
00000920: 97 31 2C 37 00 32 11 E6 0F 81 20 54 B2 31 A4 20 |.1,7.2.... T.1. |
00000930: 33 35 00 3A 11 F0 0F 82 20 54 00 4A 11 FA 0F 97 |35.:.... T.J....|
00000940: 31 2C 33 39 3A 99 22 2E 22 3B 00 5D 11 04 10 81 |1,39:.".";.]....|
00000950: 20 54 B2 31 20 A4 20 31 35 3A 82 20 54 00 65 11 | T.1 . 15:. T.e.|
00000960: 0E 10 82 20 4E 00 6E 11 18 10 4B B2 54 49 00 85 |... N.n...K.TI..|
00000970: 11 22 10 8B 20 54 49 AB 4B B3 36 30 20 A7 20 89 |.".. TI.K.60 . .|
00000980: 20 34 31 33 30 00 8C 11 2C 10 82 4A 00 95 11 36 | 4130...,..J...6|
00000990: 10 89 20 34 30 00 9B 11 88 13 99 00 D2 11 8A 13 |.. 40...........|
000009A0: 99 22 93 12 47 55 41 52 44 41 4E 44 4F 92 22 3A |."..GUARDANDO.":|
000009B0: 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C |.15,8,15:.2,8,2,|
000009C0: 22 40 30 3A 44 41 54 41 20 47 55 49 41 2C 53 2C |"@0:DATA GUIA,S,|
000009D0: 57 22 00 E3 11 8D 13 47 24 B2 22 58 22 3A 98 32 |W".....G$."X":.2|
000009E0: 2C 47 24 00 FD 11 92 13 81 20 49 B2 31 20 A4 20 |,G$...... I.1 . |
000009F0: 32 37 3A 81 20 4A B2 31 20 A4 20 32 30 00 1E 12 |27:. J.1 . 20...|
00000A00: 9C 13 98 32 2C 41 24 28 49 2C 4A 29 3A 98 32 2C |...2,A$(I,J):.2,|
00000A10: 58 24 28 49 2C 4A 29 3A 8D 20 39 30 30 30 00 31 |X$(I,J):. 9000.1|
00000A20: 12 A6 13 82 20 4A 3A 82 20 49 3A A0 32 3A A0 31 |.... J:. I:.2:.1|
00000A30: 35 00 3A 12 B0 13 89 20 34 30 00 6F 12 70 17 99 |5.:.... 40.o.p..|
00000A40: 22 93 12 43 41 52 47 41 4E 44 4F 92 22 3A 9F 31 |"..CARGANDO.":.1|
00000A50: 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 30 |5,8,15:.2,8,2,"0|
00000A60: 3A 44 41 54 41 20 47 55 49 41 2C 53 2C 52 22 00 |:DATA GUIA,S,R".|
00000A70: 79 12 75 17 84 32 2C 47 24 00 92 12 7A 17 81 20 |y.u..2,G$...z.. |
00000A80: 49 B2 31 20 A4 32 37 3A 81 20 4A B2 31 20 A4 20 |I.1 .27:. J.1 . |
00000A90: 32 30 00 B3 12 84 17 84 32 2C 41 24 28 49 2C 4A |20......2,A$(I,J|
00000AA0: 29 3A 84 32 2C 58 24 28 49 2C 4A 29 3A 8D 20 39 |):.2,X$(I,J):. 9|
00000AB0: 30 30 30 00 C6 12 8E 17 82 20 4A 3A 82 20 49 3A |000...... J:. I:|
00000AC0: A0 32 3A A0 31 35 00 CF 12 98 17 89 20 34 30 00 |.2:.15...... 40.|
00000AD0: E4 12 28 23 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |..(#.15,EN,EM$,E|
00000AE0: 54 2C 45 53 00 F2 12 32 23 8B 45 4E B2 30 20 A7 |T,ES...2#.EN.0 .|
00000AF0: 20 8E 00 10 13 3C 23 99 22 11 11 1D 1D 1D 1D 45 | ....<#."......E|
00000B00: 52 52 4F 52 20 45 4E 20 44 49 53 43 4F 11 11 22 |RROR EN DISCO.."|
00000B10: 00 23 13 46 23 99 20 45 4E 3B 45 4D 24 3B 45 54 |.#.F#. EN;EM$;ET|
00000B20: 3B 45 53 00 4F 13 5A 23 99 22 11 11 11 50 52 45 |;ES.O.Z#."...PRE|
00000B30: 53 49 4F 4E 45 20 55 4E 41 20 54 45 43 4C 41 20 |SIONE UNA TECLA |
00000B40: 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 22 00 |PARA CONTINUAR".|
00000B50: 6D 13 64 23 47 24 B2 22 22 3A A1 20 47 24 3A 8B |m.d#G$."":. G$:.|
00000B60: 20 47 24 B2 22 22 20 A7 20 39 30 36 30 00 7C 13 | G$."" . 9060.|.|
00000B70: 6E 23 A0 32 3A A0 31 35 3A 89 34 30 00 8B 13 10 |n#.2:.15:.40....|
00000B80: 27 8B 47 24 B2 22 58 22 A7 20 8E 00 B5 13 1A 27 |'.G$."X". .....'|
00000B90: 99 22 93 11 11 1D 1D 12 44 45 42 45 20 43 41 52 |."......DEBE CAR|
00000BA0: 47 41 52 20 4C 41 20 47 55 49 41 20 50 52 49 4D |GAR LA GUIA PRIM|
00000BB0: 45 52 4F 92 22 00 BE 13 24 27 89 20 35 30 00 C8 |ERO."...$'. 50..|
00000BC0: 13 74 27 47 B2 47 AA 31 00 E7 13 76 27 8B 47 B2 |.t'G.G.1...v'.G.|
00000BD0: 31 A7 41 31 24 B2 41 24 28 43 2C 53 29 3A 41 31 |1.A1$.A$(C,S):A1|
00000BE0: B2 C5 28 54 49 24 29 00 06 14 77 27 8B 20 47 B2 |..(TI$)...w'. G.|
00000BF0: 31 20 AF 20 41 24 28 43 2C 53 29 B2 22 22 A7 20 |1 . A$(C,S)."". |
00000C00: 41 31 24 B2 58 24 00 25 14 78 27 8B 47 B2 32 A7 |A1$.X$.%.x'.G.2.|
00000C10: 41 32 24 B2 41 24 28 43 2C 53 29 3A 41 32 B2 C5 |A2$.A$(C,S):A2..|
00000C20: 28 54 49 24 29 00 44 14 79 27 8B 20 47 B2 32 20 |(TI$).D.y'. G.2 |
00000C30: AF 20 41 24 28 43 2C 53 29 B2 22 22 A7 20 41 32 |. A$(C,S)."". A2|
00000C40: 24 B2 58 24 00 63 14 7A 27 8B 47 B2 33 A7 41 33 |$.X$.c.z'.G.3.A3|
00000C50: 24 B2 41 24 28 43 2C 53 29 3A 41 33 B2 C5 28 54 |$.A$(C,S):A3..(T|
00000C60: 49 24 29 00 82 14 7B 27 8B 20 47 B2 33 20 AF 20 |I$)...{'. G.3 . |
00000C70: 41 24 28 43 2C 53 29 B2 22 22 A7 20 41 33 24 B2 |A$(C,S)."". A3$.|
00000C80: 58 24 00 A1 14 7C 27 8B 47 B2 34 A7 41 34 24 B2 |X$...|'.G.4.A4$.|
00000C90: 41 24 28 43 2C 53 29 3A 41 34 B2 C5 28 54 49 24 |A$(C,S):A4..(TI$|
00000CA0: 29 00 C0 14 7D 27 8B 20 47 B2 34 20 AF 20 41 24 |)...}'. G.4 . A$|
00000CB0: 28 43 2C 53 29 B2 22 22 A7 20 41 34 24 B2 58 24 |(C,S)."". A4$.X$|
00000CC0: 00 DF 14 7E 27 8B 47 B2 35 A7 41 35 24 B2 41 24 |...~'.G.5.A5$.A$|
00000CD0: 28 43 2C 53 29 3A 41 35 B2 C5 28 54 49 24 29 00 |(C,S):A5..(TI$).|
00000CE0: FE 14 7F 27 8B 20 47 B2 35 20 AF 20 41 24 28 43 |...'. G.5 . A$(C|
00000CF0: 2C 53 29 B2 22 22 A7 20 41 35 24 B2 58 24 00 1D |,S)."". A5$.X$..|
00000D00: 15 80 27 8B 47 B2 36 A7 41 36 24 B2 41 24 28 43 |..'.G.6.A6$.A$(C|
00000D10: 2C 53 29 3A 41 36 B2 C5 28 54 49 24 29 00 3C 15 |,S):A6..(TI$).<.|
00000D20: 81 27 8B 20 47 B2 36 20 AF 20 41 24 28 43 2C 53 |.'. G.6 . A$(C,S|
00000D30: 29 B2 22 22 A7 20 41 36 24 B2 58 24 00 5B 15 82 |)."". A6$.X$.[..|
00000D40: 27 8B 47 B2 37 A7 41 37 24 B2 41 24 28 43 2C 53 |'.G.7.A7$.A$(C,S|
00000D50: 29 3A 41 37 B2 C5 28 54 49 24 29 00 7A 15 83 27 |):A7..(TI$).z..'|
00000D60: 8B 20 47 B2 37 20 AF 20 41 24 28 43 2C 53 29 B2 |. G.7 . A$(C,S).|
00000D70: 22 22 A7 20 41 37 24 B2 58 24 00 99 15 84 27 8B |"". A7$.X$....'.|
00000D80: 47 B2 38 A7 41 38 24 B2 41 24 28 43 2C 53 29 3A |G.8.A8$.A$(C,S):|
00000D90: 41 38 B2 C5 28 54 49 24 29 00 B8 15 85 27 8B 20 |A8..(TI$)....'. |
00000DA0: 47 B2 38 20 AF 20 41 24 28 43 2C 53 29 B2 22 22 |G.8 . A$(C,S).""|
00000DB0: A7 20 41 38 24 B2 58 24 00 D7 15 86 27 8B 47 B2 |. A8$.X$....'.G.|
00000DC0: 39 A7 41 39 24 B2 41 24 28 43 2C 53 29 3A 41 39 |9.A9$.A$(C,S):A9|
00000DD0: B2 C5 28 54 49 24 29 00 F6 15 87 27 8B 20 47 B2 |..(TI$)....'. G.|
00000DE0: 39 20 AF 20 41 24 28 43 2C 53 29 B2 22 22 A7 20 |9 . A$(C,S)."". |
00000DF0: 41 39 24 B2 58 24 00 00 16 D8 27 89 20 33 35 30 |A9$.X$....'. 350|
00000E00: 00 2A 16 F8 2A 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D |.*..*.".........|
00000E10: 1D 11 11 11 12 43 4F 4E 54 52 4F 4C 20 44 45 20 |.....CONTROL DE |
00000E20: 4C 4C 41 4D 41 44 41 53 92 22 00 4E 16 02 2B 99 |LLAMADAS.".N..+.|
00000E30: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D AF AF AF AF AF AF |"...............|
00000E40: AF AF AF AF AF AF AF AF AF AF AF AF AF 22 00 7B |.............".{|
00000E50: 16 07 2B 99 22 11 11 4C 4C 41 4D 4F 20 41 20 20 |..+."..LLAMO A |
00000E60: 20 20 20 20 20 20 20 20 20 20 20 50 4F 52 20 55 | POR U|
00000E70: 4E 20 4C 41 50 53 4F 20 44 45 22 00 98 16 0C 2B |N LAPSO DE"....+|
00000E80: 8B 20 47 B1 30 20 A7 20 99 22 11 31 29 2D 22 41 |. G.0 . .".1)-"A|
00000E90: 31 24 A3 33 30 29 41 31 00 B5 16 16 2B 8B 20 47 |1$.30)A1....+. G|
00000EA0: B1 31 20 A7 20 99 22 11 32 29 2D 22 41 32 24 A3 |.1 . .".2)-"A2$.|
00000EB0: 33 30 29 41 32 00 D2 16 20 2B 8B 20 47 B1 32 20 |30)A2... +. G.2 |
00000EC0: A7 20 99 22 11 33 29 2D 22 41 33 24 A3 33 30 29 |. .".3)-"A3$.30)|
00000ED0: 41 33 00 EF 16 2A 2B 8B 20 47 B1 33 20 A7 20 99 |A3...*+. G.3 . .|
00000EE0: 22 11 34 29 2D 22 41 34 24 A3 33 30 29 41 34 00 |".4)-"A4$.30)A4.|
00000EF0: 0C 17 34 2B 8B 20 47 B1 34 20 A7 20 99 22 11 35 |..4+. G.4 . .".5|
00000F00: 29 2D 22 41 35 24 A3 33 30 29 41 35 00 29 17 3E |)-"A5$.30)A5.).>|
00000F10: 2B 8B 20 47 B1 35 20 A7 20 99 22 11 36 29 2D 22 |+. G.5 . .".6)-"|
00000F20: 41 36 24 A3 33 30 29 41 36 00 46 17 48 2B 8B 20 |A6$.30)A6.F.H+. |
00000F30: 47 B1 36 20 A7 20 99 22 11 37 29 2D 22 41 37 24 |G.6 . .".7)-"A7$|
00000F40: A3 33 30 29 41 37 00 63 17 52 2B 8B 20 47 B1 37 |.30)A7.c.R+. G.7|
00000F50: 20 A7 20 99 22 11 38 29 2D 22 41 38 24 A3 33 30 | . .".8)-"A8$.30|
00000F60: 29 41 38 00 80 17 5C 2B 8B 20 47 B1 38 20 A7 20 |)A8...\+. G.8 . |
00000F70: 99 22 11 39 29 2D 22 41 39 24 A3 33 30 29 41 39 |.".9)-"A9$.30)A9|
00000F80: 00 AB 17 C0 2B 99 22 1D 1D 1D 1D 11 12 50 55 4C |....+."......PUL|
00000F90: 53 45 20 55 4E 20 54 45 43 4C 41 20 50 41 52 41 |SE UN TECLA PARA|
00000FA0: 20 43 4F 4E 54 49 4E 55 41 52 22 00 C4 17 24 2C | CONTINUAR"...$,|
00000FB0: A1 20 53 50 24 3A 8B 20 53 50 24 B2 22 22 A7 31 |. SP$:. SP$."".1|
00000FC0: 31 33 30 30 00 CD 17 88 2C 89 20 34 30 00 00 00 |1300....,. 40...|
..8.... "....................***.DISCADO
R TELEFONICO***".U....53280,0:.53281,0:.
192,7.S....1,7:.T.1 . 800:. T:.1,39.....
. A$(27,20):. A(15)...... X$(27,20).....
. Q.1.500:.Q...... 3000...(..".....****
DISCADOR TELEFONICO ****"...2..".....1.
CARGAR DATOS DE GUIA"...7.."....2. INGRE
SAR DATOS TELEFONICOS".P.<.."....3. DISC
AR DIRECTAMENTE".M.F.."....4. BUSCAR EN
GUIA"...P.."....5. VOLVER A DISCAR ULTIM
O NUMERO"...U.."....6. GUARDAR GUIA EN D
ISCO"...Z.."....7. CORTAR COMUNICACION".
..[.."....8. CORTAR-PREVIO REGISTRO A RE
SUMEN-".1.\.."....9. RESUMEN DE LLAMADAS
".U._..".......HAGA SU ELECCION(1-9)".A.
D.A$.G(0).T.E.TI$."000000":....F..".....
............"TI$...G..".................
."TI$.I.N.. A$: . E(A$).0 . . 103...X..E
(A$). 6000,700,500,150,4010,5000,350,101
00,11000:. 110...... 10000./. .. "....IN
TRODUZCA LETRA".D.... C$:. C$."".161.M..
..".".\...C.F(C$).64.Y...."...........**
*"C$"***"...... S.1 . 20...H..S.4)A$(C,S
).F.M..".............................."X
$(C,S).N.R.. S...... "NUMERO DE ORDEN P/
DISCAR EL 0 P/SALIR";S:.S.0 . . 40......
4000.4.^..1,7:. T.1 . 800:. T:.1,39.=.|
.. 40.D.... ".INTRODUZCA NUMERO A DISCAR
";X$.S...A$(C,S)."".~.... 4010...... 100
00...A..".INTRODUZCA LETRA"...F.. C$:.C$
."".710.A.K.. ".".P.P.C.F(C$).64...R..".
..........***"C$"***"...S.. S.1 . 20...T
..S.4)A$(C,S).:.Z.."....................
.........."X$(C,S).B.... S.Y...."NUMERO
DE ORDEN EL 0 PARA SALIR";U: . U.0 . . 4
0......"INTRODUZCA NOMBRE (MENOS DE 15 L
ETRAS)";A$(C,U).W...."INTRODUZCA NUM. TE
LEFONO";X$(C,U)...... 715. ....".....PAR
A GENERAR UNA NUEVA GUIA PULSE LA LET
RA -G-.".F...."....CUALQUIER OTRA TECLA
PARA CONTINUAR SI YA EXISTE GUIA."..
.B.A$."":. A$:.A$."". 3010...L.. A$.."G"
. . 40.A.V..".ASEGURESE QUE ESTE EL DIS
CO LISTO"......".SI HAY UNA GUIA EN EL D
ISCO SERA BORRADACONFIRMAR(S/N)".....A$.
"":. A$:. A$."" . 3050.Q...."...........
............UN MOMENTO POR FAVOR".H....
A$.."S" . . 3000...... I.1 . 27 :. J.1
. 20. ...A$(I,J)."*":X$(I,J)."*"...&.. J
:. I...0.. 5000.F. .X$.X$(C,S)...... ".C
ONFIRMAR EL NUMERO(S/N)"E(X$)" " A$(C,S)
.;....".CONFIRMAR EL NUMERO(S/N)":."....
........."X$"."" " A$ (C,S).E...K$."".\.
... K$:. K$."". 4017.M.... K$."N". 40...
... K$.."S" . 4017......"....DISCANDO "
A$(C,S)...... I.1 . C(X$).Z...A(I).E(J(X
$,I,1)):. A(I).0 . A(I).10...... I...H..
J.1 . C(X$):.:.A(J).10..(A(J).10)...R..
N.1 . A(J).$....1,7.2.... T.1. 35.:....
T.J....1,39:.".";.].... T.1 . 15:. T.E.
... N.N...K.TI...".. TI.K.60 . . 4130...
,..J...6.. 40.......R...."..GUARDANDO.":
.15,8,15:.2,8,2,"@0:DATA GUIA,S,W".....G
$."X":.2,G$...... I.1 . 27:. J.1 . 20...
...2,A$(I,J):.2,X$(I,J):. 9000.1.... J:.
I: 2: 15.:.... 40.O.P.."..CARGANDO.":.1
5,8,15:.2,8,2,"0:DATA GUIA,S,R".Y.U..2,G
$...Z.. I.1 .27:. J.1 . 20......2,A$(I,J
):.2,X$(I,J):. 9000.F.... J:. I: 2: 15.O
.... 40...(#.15,EN,EM$,ET,ES...2#.EN.0 .
....<#."......ERROR EN DISCO..".#.F#. E
N;EM$;ET;ES.O.Z#."...PRESIONE UNA TECLA
PARA CONTINUAR".M.D#G$."":. G$:. G$."" .
9060.|.N# 2: 15:.40....'.G$."X". .....'
."......DEBE CARGAR LA GUIA PRIMERO."...
$'. 50.H.T'G.G.1...V'.G.1.A1$.A$(C,S):A1
.E(TI$)...W'. G.1 . A$(C,S)."". A1$.X$.%
.X'.G.2.A2$.A$(C,S):A2.E(TI$).D.Y'. G.2
. A$(C,S)."". A2$.X$.C.Z'.G.3.A3$.A$(C,S
):A3.E(TI$)...{'. G.3 . A$(C,S)."". A3$.
X$...|'.G.4.A4$.A$(C,S):A4.E(TI$)...}'.
G.4 . A$(C,S)."". A4$.X$...~'.G.5.A5$.A$
(C,S):A5.E(TI$)...'. G.5 . A$(C,S)."".
A5$.X$....'.G.6.A6$.A$(C,S):A6.E(TI$).<.
.'. G.6 . A$(C,S)."". A6$.X$.[..'.G.7.A7
$.A$(C,S):A7.E(TI$).Z..'. G.7 . A$(C,S).
"". A7$.X$....'.G.8.A8$.A$(C,S):A8.E(TI$
)....'. G.8 . A$(C,S)."". A8$.X$.W..'.G.
9.A9$.A$(C,S):A9.E(TI$)....'. G.9 . A$(C
,S)."". A9$.X$...X'. 350.*..*.".........
.....CONTROL DE LLAMADAS.".N..+.".......
.....................".{..+."..LLAMO A
POR UN LAPSO DE"....+. G.0 .
.".1)-"A1$.30)A1....+. G.1 . .".2)-"A2$.
30)A2.R. +. G.2 . .".3)-"A3$.30)A3...*+.
G.3 . .".4)-"A4$.30)A4...4+. G.4 . .".5
)-"A5$.30)A5.).>+. G.5 . .".6)-"A6$.30)A
6.F.H+. G.6 . .".7)-"A7$.30)A7.C.R+. G.7
. .".8)-"A8$.30)A8...\+. G.8 . .".9)-"A
9$.30)A9....+."......PULSE UN TECLA PARA
CONTINUAR".D.$,. SP$:. SP$."".11300.M..
,. 40...
> CLICK IMAGE PREVIEW FOR FULL MODAL