SECRETARIA
FILE INFORMATION
FILENAME(S): SECRETARIA
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-10-19 23:07:10
APPEARS ON: 1 disk(s)
FILE HASH
eeae1743b268c349b242a9df599f711958ca1d2a8e514c72845ef9c8b68b79cd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARTON SOFT 784 | SECRETARIA | PRG | Bugjam - Argentina | 20 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 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 00 43 08 6E 00 8F 20 2A 20 53 45 43 52 45 |**.C.n.. * SECRE|
00000030: 54 41 52 49 41 20 45 4C 45 43 54 52 4F 4E 49 43 |TARIA ELECTRONIC|
00000040: 41 20 2A 00 64 08 78 00 8F 20 2A 2A 2A 2A 2A 2A |A *.d.x.. ******|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 00 92 08 AA 00 86 41 24 28 35 2C 36 |****......A$(5,6|
00000070: 30 29 2C 4F 24 28 35 29 2C 43 24 28 36 29 2C 50 |0),O$(5),C$(6),P|
00000080: 31 28 33 29 2C 50 32 28 33 29 2C 42 24 28 32 2C |1(3),P2(3),B$(2,|
00000090: 35 29 00 A3 08 B4 00 53 B2 35 34 32 37 32 3A 53 |5).....S.54272:S|
000000A0: 5A B2 30 00 AC 08 BE 00 50 4F B2 31 00 D6 08 C8 |Z.0.....PO.1....|
000000B0: 00 87 20 50 31 28 31 29 2C 50 31 28 32 29 2C 50 |.. P1(1),P1(2),P|
000000C0: 31 28 33 29 2C 50 32 28 31 29 2C 50 32 28 32 29 |1(3),P2(1),P2(2)|
000000D0: 2C 50 32 28 33 29 00 F0 08 D2 00 81 20 49 B2 31 |,P2(3)...... I.1|
000000E0: 20 A4 20 35 3A 87 20 42 24 28 31 2C 49 29 3A 82 | . 5:. B$(1,I):.|
000000F0: 00 09 09 DC 00 81 20 49 B2 31 20 A4 20 35 3A 87 |...... I.1 . 5:.|
00000100: 42 24 28 32 2C 49 29 3A 82 00 2A 09 E6 00 83 20 |B$(2,I):..*.... |
00000110: 36 39 37 2C 37 37 30 2C 38 35 32 2C 31 32 31 30 |697,770,852,1210|
00000120: 2C 31 33 34 30 2C 31 34 38 31 00 72 09 F0 00 83 |,1340,1481.r....|
00000130: 20 22 4E 4F 4D 42 52 45 20 20 20 3A 22 2C 22 54 | "NOMBRE :","T|
00000140: 45 4C 45 46 4F 4E 4F 20 3A 22 2C 22 44 49 52 45 |ELEFONO :","DIRE|
00000150: 43 43 49 4F 4E 3A 22 2C 22 43 49 55 44 41 44 20 |CCION:","CIUDAD |
00000160: 20 20 3A 22 2C 22 50 52 4F 56 49 4E 43 49 41 20 | :","PROVINCIA |
00000170: 3A 22 00 B9 09 FA 00 83 20 22 49 54 45 4D 20 3A |:"...... "ITEM :|
00000180: 22 2C 22 56 41 4C 4F 52 3A 22 2C 22 55 42 49 43 |","VALOR:","UBIC|
00000190: 41 43 49 4F 4E 20 20 3A 22 2C 22 46 45 43 48 41 |ACION :","FECHA|
000001A0: 20 43 4F 4D 50 52 41 3A 22 2C 22 4E 52 4F 2E 20 | COMPRA:","NRO. |
000001B0: 53 45 52 49 45 20 20 3A 22 00 E8 09 04 01 52 46 |SERIE :".....RF|
000001C0: B2 32 30 30 30 3A 52 46 B2 28 52 46 AB 33 30 29 |.2000:RF.(RF.30)|
000001D0: AD 38 3A 52 48 B2 B5 28 52 46 AD 38 29 3A 52 4C |.8:RH..(RF.8):RL|
000001E0: B2 52 46 AB 38 AC 52 48 00 FF 09 0E 01 81 20 58 |.RF.8.RH...... X|
000001F0: B2 53 A4 53 AA 32 34 3A 97 20 58 2C 30 3A 82 00 |.S.S.24:. X,0:..|
00000200: 20 0A 18 01 97 20 53 AA 32 33 2C 33 3A 97 20 53 | .... S.23,3:. S|
00000210: AA 32 31 2C 52 48 3A 97 20 53 AA 32 32 2C 52 4C |.21,RH:. S.22,RL|
00000220: 00 36 0A 22 01 99 22 90 93 11 11 22 3A 97 20 35 |.6.".."....":. 5|
00000230: 33 32 38 31 2C 31 00 5E 0A 2C 01 99 20 A3 36 29 |3281,1.^.,.. .6)|
00000240: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 86 |*************"..|
00000260: 0A 36 01 99 20 A3 36 29 22 2A 2A 20 53 45 43 52 |.6.. .6)"** SECR|
00000270: 45 54 41 52 49 41 20 45 4C 45 43 54 52 4F 4E 49 |ETARIA ELECTRONI|
00000280: 43 41 20 2A 2A 22 00 BD 0A 40 01 99 20 A3 36 29 |CA **"...@.. .6)|
00000290: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 20 |************* |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F3 0A | "...|
000002C0: 54 01 99 20 A3 38 29 22 31 2E 20 41 47 45 4E 44 |T.. .8)"1. AGEND|
000002D0: 41 20 54 45 4C 45 46 4F 4E 49 43 41 22 3A 20 99 |A TELEFONICA": .|
000002E0: 20 A3 38 29 22 11 32 2E 49 4E 56 45 4E 54 41 52 | .8)".2.INVENTAR|
000002F0: 49 4F 22 00 FE 0A 5E 01 8D 20 32 35 33 30 00 17 |IO"...^.. 2530..|
00000300: 0B 68 01 8B 20 4B B2 34 39 20 A7 20 4F 50 B2 31 |.h.. K.49 . OP.1|
00000310: 3A 20 89 20 33 39 30 00 30 0B 72 01 8B 20 4B B2 |: . 390.0.r.. K.|
00000320: 35 30 20 A7 20 4F 50 B2 32 3A 20 89 20 33 39 30 |50 . OP.2: . 390|
00000330: 00 4D 0B 7C 01 99 20 22 43 4F 52 52 45 47 49 52 |.M.|.. "CORREGIR|
00000340: 20 31 20 4F 20 32 22 3A 89 20 33 35 30 00 5B 0B | 1 O 2":. 350.[.|
00000350: 86 01 4E B2 30 3A 89 20 35 35 30 00 A1 0B 9A 01 |..N.0:. 550.....|
00000360: 99 22 11 11 45 4E 54 52 45 22 3A 99 22 11 1D 46 |."..ENTRE":."..F|
00000370: 20 50 41 52 41 20 46 49 4E 41 4C 49 5A 41 52 22 | PARA FINALIZAR"|
00000380: 3A 99 22 1D 43 20 50 41 52 41 20 52 45 2D 49 4E |:.".C PARA RE-IN|
00000390: 47 52 45 53 41 52 22 3A 47 31 B2 31 3A 47 32 B2 |GRESAR":G1.1:G2.|
000003A0: 32 00 AB 0B A4 01 49 B2 4E AA 31 00 C3 0B AE 01 |2.....I.N.1.....|
000003B0: 8B 20 49 B3 36 30 20 B0 20 49 B2 36 30 20 A7 20 |. I.60 . I.60 . |
000003C0: 34 36 30 00 EE 0B B8 01 99 22 11 11 2A 2A 2A 20 |460......"..*** |
000003D0: 20 41 52 43 48 49 56 4F 20 43 4F 4D 50 4C 45 54 | ARCHIVO COMPLET|
000003E0: 4F 20 28 4E 3D 36 30 29 2A 2A 2A 11 11 22 00 FA |O (N=60)***.."..|
000003F0: 0B C2 01 8D 32 35 32 30 3A 8E 00 03 0C CC 01 99 |....2520:.......|
00000400: 22 20 22 00 26 0C D6 01 99 42 24 28 4F 50 2C 31 |" ".&....B$(OP,1|
00000410: 29 3B 3A 41 24 28 31 2C 49 29 B2 22 22 3A 85 41 |);:A$(1,I)."":.A|
00000420: 24 28 31 2C 49 29 00 4C 0C E0 01 8B 20 41 24 28 |$(1,I).L.... A$(|
00000430: 31 2C 49 29 B2 22 46 22 B0 41 24 28 31 2C 49 29 |1,I)."F".A$(1,I)|
00000440: B2 22 46 49 4E 22 A7 20 31 37 32 30 00 61 0C EA |."FIN". 1720.a..|
00000450: 01 8B 41 24 28 31 2C 49 29 B2 22 22 A7 20 34 37 |..A$(1,I)."". 47|
00000460: 30 00 79 0C F4 01 8B 41 24 28 31 2C 49 29 B2 B3 |0.y....A$(1,I)..|
00000470: B1 22 52 22 A7 20 35 32 30 00 B5 0C FE 01 49 B2 |."R". 520.....I.|
00000480: 49 AB 31 3A 4E B2 49 AB 31 3A 99 22 20 20 20 2A |I.1:N.I.1:." *|
00000490: 2A 2A 20 52 45 2D 49 4E 47 52 45 53 45 20 55 4C |** RE-INGRESE UL|
000004A0: 54 49 4D 4F 20 42 4C 4F 51 55 45 20 2A 2A 2A 22 |TIMO BLOQUE ***"|
000004B0: 3A 89 34 36 30 00 C2 0C 08 02 81 5A B2 32 20 A4 |:.460......Z.2 .|
000004C0: 20 35 00 E8 0C 12 02 99 42 24 28 4F 50 2C 5A 29 | 5......B$(OP,Z)|
000004D0: 3B 3A 41 24 28 5A 2C 49 29 B2 22 22 3A 85 41 24 |;:A$(Z,I)."":.A$|
000004E0: 28 5A 2C 49 29 3A 82 5A 00 F6 0C 1C 02 4E B2 49 |(Z,I):.Z.....N.I|
000004F0: 3A 89 20 34 31 30 00 28 0D 26 02 53 43 B2 34 3A |:. 410.(.&.SC.4:|
00000500: 99 22 93 11 11 1D 1D 1D 1D 1D 1D 2A 2A 20 53 45 |.".........** SE|
00000510: 43 52 45 54 41 52 49 41 20 45 4C 45 43 54 52 4F |CRETARIA ELECTRO|
00000520: 4E 49 43 41 20 2A 2A 22 00 37 0D 30 02 8B 4F 50 |NICA **".7.0..OP|
00000530: B2 32 20 A7 35 38 30 00 59 0D 3A 02 99 A3 31 31 |.2 .580.Y.:...11|
00000540: 29 22 41 47 45 4E 44 41 20 54 45 4C 45 46 4F 4E |)"AGENDA TELEFON|
00000550: 49 43 41 22 3A 89 35 39 30 00 6F 0D 44 02 99 A3 |ICA":.590.o.D...|
00000560: 31 35 29 22 49 4E 56 45 4E 54 41 52 49 4F 22 00 |15)"INVENTARIO".|
00000570: 9F 0D 4E 02 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..N.."**********|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
000005A0: C2 0D 58 02 99 22 41 50 52 49 45 54 45 22 3A 99 |..X.."APRIETE":.|
000005B0: 22 31 2E 20 41 47 52 45 47 41 52 20 44 41 54 4F |"1. AGREGAR DATO|
000005C0: 53 22 00 F9 0D 62 02 99 22 32 2E 20 43 41 4D 42 |S"...b.."2. CAMB|
000005D0: 49 41 52 20 44 41 54 4F 53 22 3A 99 22 33 2E 20 |IAR DATOS":."3. |
000005E0: 4D 4F 53 54 52 41 52 20 4C 49 53 54 41 20 44 45 |MOSTRAR LISTA DE|
000005F0: 20 4E 4F 4D 42 52 45 53 22 00 24 0E 6C 02 99 20 | NOMBRES".$.l.. |
00000600: 22 34 2E 20 4D 4F 53 54 52 41 52 20 44 45 20 55 |"4. MOSTRAR DE U|
00000610: 4E 4F 22 3A 99 22 35 2E 20 55 53 41 52 20 44 41 |NO":."5. USAR DA|
00000620: 54 4F 53 22 00 52 0E 76 02 99 22 36 2E 20 47 55 |TOS".R.v.."6. GU|
00000630: 41 52 44 41 52 20 41 52 43 48 49 56 4F 22 3A 99 |ARDAR ARCHIVO":.|
00000640: 22 37 2E 20 54 52 41 45 52 20 41 52 43 48 49 56 |"7. TRAER ARCHIV|
00000650: 4F 22 00 7A 0E 80 02 99 22 38 2E 20 4C 49 53 54 |O".z...."8. LIST|
00000660: 41 52 20 45 4E 20 49 4D 50 52 45 53 4F 52 41 22 |AR EN IMPRESORA"|
00000670: 3A 99 22 39 2E 20 46 49 4E 22 00 84 0E 8A 02 8D |:."9. FIN"......|
00000680: 32 35 33 30 00 9C 0E 94 02 8B 20 4B B3 34 39 20 |2530...... K.49 |
00000690: B0 20 4B B1 35 37 20 A7 20 35 35 30 00 A5 0E 9E |. K.57 . 550....|
000006A0: 02 99 22 93 22 00 DD 0E A8 02 91 20 20 28 4B AB |.."."...... (K.|
000006B0: 34 38 29 8D 20 37 30 30 2C 37 33 30 2C 39 30 30 |48). 700,730,900|
000006C0: 2C 39 37 30 2C 31 38 39 30 2C 31 35 32 30 2C 31 |,970,1890,1520,1|
000006D0: 32 36 30 2C 32 32 39 30 2C 32 33 34 30 00 E6 0E |260,2290,2340...|
000006E0: B2 02 89 35 35 30 00 EF 0E BC 02 8D 34 31 30 00 |...550......410.|
000006F0: F5 0E C6 02 8E 00 1D 0F DA 02 85 22 4E 52 4F 2E |..........."NRO.|
00000700: 44 45 20 52 45 47 49 53 54 52 4F 22 3B 4D 24 3A |DE REGISTRO";M$:|
00000710: 8B 4D 24 B2 22 22 A7 4D 24 B2 22 31 22 00 5F 0F |.M$."".M$."1"._.|
00000720: E4 02 99 22 11 11 55 53 45 22 3A 99 22 11 43 55 |..."..USE":.".CU|
00000730: 52 53 4F 52 20 50 41 52 41 20 43 41 4D 42 49 4F |RSOR PARA CAMBIO|
00000740: 53 22 3A 99 22 11 2F 45 2F 50 41 52 41 20 45 4C |S":."./E/PARA EL|
00000750: 49 4D 49 4E 41 52 20 45 4C 20 49 54 45 4D 22 00 |IMINAR EL ITEM".|
00000760: 91 0F EE 02 99 22 11 3C 52 45 54 55 52 4E 3E 53 |.....".<RETURN>S|
00000770: 49 20 4E 4F 20 52 45 41 4C 49 5A 41 20 43 41 4D |I NO REALIZA CAM|
00000780: 42 49 4F 53 22 3A 99 22 11 11 22 3A 8D 31 31 36 |BIOS":."..":.116|
00000790: 30 00 9E 0F F8 02 47 31 B2 31 3A 49 B2 4D 00 B7 |0.....G1.1:I.M..|
000007A0: 0F 02 03 99 41 24 28 31 2C 4D 29 3B 3A 50 24 B2 |....A$(1,M);:P$.|
000007B0: 22 22 3A 85 20 50 24 00 C9 0F 0C 03 8B 20 50 24 |"":. P$...... P$|
000007C0: B2 22 22 20 A7 20 38 33 30 00 DF 0F 16 03 8B 20 |."" . 830...... |
000007D0: 50 24 B3 B1 22 2F 45 2F 22 20 A7 20 38 32 30 00 |P$.."/E/" . 820.|
000007E0: 14 10 20 03 81 5A B2 31 20 A4 20 35 3A 41 24 28 |.. ..Z.1 . 5:A$(|
000007F0: 5A 2C 4D 29 B2 22 55 4C 54 49 4D 4F 20 52 45 47 |Z,M)."ULTIMO REG|
00000800: 49 53 54 52 4F 20 44 45 4C 20 41 52 43 48 49 56 |ISTRO DEL ARCHIV|
00000810: 4F 22 3A 82 00 26 10 2A 03 8D 31 37 32 30 3A 4E |O":..&.*..1720:N|
00000820: B2 4E AB 31 3A 8E 00 3A 10 34 03 41 24 28 31 2C |.N.1:..:.4.A$(1,|
00000830: 4D 29 B2 50 24 3A 47 32 B2 31 00 5C 10 3E 03 81 |M).P$:G2.1.\.>..|
00000840: 20 5A B2 32 20 A4 35 3A 99 41 24 28 5A 2C 4D 29 | Z.2 .5:.A$(Z,M)|
00000850: 3B 3A 50 24 B2 22 22 3A 85 20 50 24 00 6E 10 48 |;:P$."":. P$.n.H|
00000860: 03 8B 20 50 24 B2 22 22 20 A7 20 38 36 30 00 85 |.. P$."" . 860..|
00000870: 10 52 03 41 24 28 5A 2C 4D 29 B2 50 24 3A 47 32 |.R.A$(Z,M).P$:G2|
00000880: B2 47 32 AA 31 00 8D 10 5C 03 82 20 5A 00 98 10 |.G2.1...\.. Z...|
00000890: 66 03 8D 20 31 30 34 30 00 AD 10 70 03 91 20 54 |f.. 1040...p.. T|
000008A0: 20 89 37 37 30 2C 37 33 30 2C 38 39 30 00 B3 10 | .770,730,890...|
000008B0: 7A 03 8E 00 C8 10 84 03 8B 20 47 32 B3 B1 30 20 |z........ G2..0 |
000008C0: A7 20 8D 20 31 37 32 30 00 F0 10 8E 03 81 58 58 |. . 1720......XX|
000008D0: B2 31 20 A4 20 4E 3A 4D B2 33 35 AB C3 28 41 24 |.1 . N:M.35..(A$|
000008E0: 28 32 2C 58 58 29 29 3A 54 24 B2 22 A0 A0 A0 22 |(2,XX)):T$."..."|
000008F0: 00 1E 11 98 03 99 A3 34 AB C3 28 54 24 29 29 58 |.......4..(T$))X|
00000900: 58 3B 22 9D 22 3B 54 24 3B 41 24 28 31 2C 58 58 |X;".";T$;A$(1,XX|
00000910: 29 3B A3 4D 29 3B 41 24 28 32 2C 58 58 29 00 3F |);.M);A$(2,XX).?|
00000920: 11 A2 03 49 31 B2 B5 28 58 58 AD 31 30 29 3A 8B |...I1..(XX.10):.|
00000930: 49 31 B3 B1 58 58 AD 31 30 20 A7 20 39 35 30 00 |I1..XX.10 . 950.|
00000940: 49 11 AC 03 8D 32 35 32 30 00 59 11 B6 03 82 58 |I....2520.Y....X|
00000950: 58 3A 8D 32 35 32 30 3A 8E 00 8B 11 CA 03 4D 24 |X:.2520:......M$|
00000960: B2 22 22 3A 85 22 11 11 4E 52 4F 2E 20 44 45 20 |."":."..NRO. DE |
00000970: 52 45 47 49 53 54 52 4F 22 3B 4D 24 3A 8B 20 4D |REGISTRO";M$:. M|
00000980: 24 B2 22 22 20 A7 20 31 30 33 30 00 95 11 D4 03 |$."" . 1030.....|
00000990: 8D 31 31 36 30 00 A4 11 DE 03 99 22 93 11 11 11 |.1160......"....|
000009A0: 1D 1D 1D 22 00 C2 11 E8 03 81 49 B2 31 A4 35 3A |..."......I.1.5:|
000009B0: 99 22 1D 1D 1D 1D 1D 22 3B 41 24 28 49 2C 4D 29 |.".....";A$(I,M)|
000009C0: 3A 82 00 CC 11 F2 03 8D 31 30 34 30 00 E2 11 FC |:.......1040....|
000009D0: 03 91 20 54 20 89 39 39 30 2C 39 37 30 2C 31 30 |.. T .990,970,10|
000009E0: 33 30 00 E8 11 06 04 8E 00 19 12 10 04 99 22 11 |30............".|
000009F0: 11 41 50 52 49 45 54 45 11 22 3A 99 22 41 20 50 |.APRIETE.":."A P|
00000A00: 41 52 41 20 55 4E 20 52 45 47 49 53 54 52 4F 20 |ARA UN REGISTRO |
00000A10: 41 4E 54 45 52 49 4F 52 22 00 42 12 1A 04 99 22 |ANTERIOR".B...."|
00000A20: 11 4F 20 50 41 52 41 20 54 52 41 45 52 20 4F 54 |.O PARA TRAER OT|
00000A30: 52 4F 20 52 45 47 49 53 54 52 4F 22 3A 8D 32 35 |RO REGISTRO":.25|
00000A40: 32 30 00 59 12 24 04 54 B2 33 3A 8B 20 4B B3 B1 |20.Y.$.T.3:. K..|
00000A50: 36 35 20 A7 20 31 30 39 30 00 6E 12 2E 04 54 B2 |65 . 1090.n...T.|
00000A60: 31 3A 8B 20 4D B2 31 20 A7 20 31 31 34 30 00 78 |1:. M.1 . 1140.x|
00000A70: 12 38 04 4D B2 4D AB 31 00 8B 12 42 04 8B 20 4B |.8.M.M.1...B.. K|
00000A80: B3 B1 38 30 20 A7 20 31 31 32 30 00 A0 12 4C 04 |..80 . 1120...L.|
00000A90: 54 B2 31 3A 8B 20 4D B2 4E 20 A7 20 31 31 34 30 |T.1:. M.N . 1140|
00000AA0: 00 AA 12 56 04 4D B2 4D AA 31 00 BD 12 60 04 8B |...V.M.M.1...`..|
00000AB0: 20 4B B3 B1 37 39 20 A7 20 31 31 34 30 00 C5 12 | K..79 . 1140...|
00000AC0: 6A 04 54 B2 32 00 CB 12 74 04 8E 00 E6 12 88 04 |j.T.2...t.......|
00000AD0: 8B 20 B6 28 C6 28 4D 24 29 AB 35 33 29 B1 34 20 |. .(.(M$).53).4 |
00000AE0: A7 20 31 32 30 30 00 05 13 92 04 4D B2 C5 28 4D |. 1200.....M..(M|
00000AF0: 24 29 3A 8B 20 4D B3 4E 20 B0 20 4D B2 4E 20 A7 |$):. M.N . M.N .|
00000B00: 20 31 31 39 30 00 0D 13 9C 04 4D B2 4E 00 13 13 | 1190.....M.N...|
00000B10: A6 04 8E 00 24 13 B0 04 81 49 B2 31 20 A4 20 4E |....$....I.1 . N|
00000B20: 3A 4D B2 49 00 41 13 BA 04 8B 20 C3 28 4D 24 29 |:M.I.A.... .(M$)|
00000B30: B1 C3 28 41 24 28 31 2C 49 29 29 A7 20 31 32 33 |..(A$(1,I)). 123|
00000B40: 30 00 61 13 C4 04 8B 20 4D 24 B2 C8 28 41 24 28 |0.a.... M$..(A$(|
00000B50: 31 2C 49 29 2C C3 28 4D 24 29 29 A7 20 31 32 34 |1,I),.(M$)). 124|
00000B60: 30 00 68 13 CE 04 82 49 00 6E 13 D8 04 8E 00 88 |0.h....I.n......|
00000B70: 13 EC 04 99 22 45 4E 54 52 45 20 31 2E 20 20 43 |...."ENTRE 1. C|
00000B80: 41 53 53 45 54 54 45 22 00 A2 13 F6 04 99 22 20 |ASSETTE"......" |
00000B90: 20 20 20 20 20 32 2C 20 20 44 49 53 4B 45 54 54 | 2, DISKETT|
00000BA0: 45 22 00 B5 13 00 05 85 22 11 11 4F 50 43 49 4F |E"......"..OPCIO|
00000BB0: 4E 22 3B 41 53 00 CD 13 0A 05 8B 41 53 B3 31 20 |N";AS......AS.1 |
00000BC0: B0 20 41 53 B1 32 20 A7 20 31 32 36 30 00 E9 13 |. AS.2 . 1260...|
00000BD0: 14 05 8B 20 41 53 B2 32 20 A7 41 53 B2 32 3A 53 |... AS.2 .AS.2:S|
00000BE0: 53 B2 38 3A 89 31 33 32 30 00 F7 13 1E 05 41 53 |S.8:.1320.....AS|
00000BF0: B2 30 3A 53 53 B2 31 00 1D 14 28 05 48 24 B2 C7 |.0:SS.1...(.H$..|
00000C00: 28 31 33 29 3A 85 22 4E 4F 4D 42 52 45 20 44 45 |(13):."NOMBRE DE|
00000C10: 4C 20 41 52 43 48 49 56 4F 22 3B 4E 24 00 30 14 |L ARCHIVO";N$.0.|
00000C20: 32 05 8B 20 41 53 B3 B1 32 20 A7 20 31 33 37 30 |2.. AS..2 . 1370|
00000C30: 00 36 14 3C 05 8F 00 52 14 46 05 9F 32 2C 53 53 |.6.<...R.F..2,SS|
00000C40: 2C 41 53 2C 22 30 3A 22 AA 4E 24 AA 22 2C 53 2C |,AS,"0:".N$.",S,|
00000C50: 52 22 00 5D 14 50 05 89 20 31 33 38 30 00 6D 14 |R".].P.. 1380.m.|
00000C60: 5A 05 9F 32 2C 53 53 2C 41 53 2C 4E 24 00 7F 14 |Z..2,SS,AS,N$...|
00000C70: 64 05 84 32 2C 4F 2C 4E 54 2C 46 24 2C 44 24 00 |d..2,O,NT,F$,D$.|
00000C80: 91 14 6E 05 8B 20 4F B2 4F 50 20 A7 20 31 34 36 |..n.. O.OP . 146|
00000C90: 30 00 A2 14 78 05 8B 20 4F B2 32 20 A7 20 31 34 |0...x.. O.2 . 14|
00000CA0: 32 30 00 C4 14 82 05 99 22 11 41 52 43 48 49 56 |20......".ARCHIV|
00000CB0: 4F 20 54 45 4C 45 46 4F 4E 49 43 4F 22 3A 89 20 |O TELEFONICO":. |
00000CC0: 31 34 33 30 00 E2 14 8C 05 99 22 11 41 52 43 48 |1430......".ARCH|
00000CD0: 49 56 4F 20 44 45 20 49 4E 56 45 4E 54 41 52 49 |IVO DE INVENTARI|
00000CE0: 4F 22 00 F8 14 96 05 99 22 50 52 4F 43 45 44 45 |O"......"PROCEDE|
00000CF0: 20 28 53 2F 4E 29 3F 22 00 0D 15 A0 05 8D 32 35 | (S/N)?"......25|
00000D00: 33 30 3A 8B 20 4B B2 37 38 20 A7 20 8E 00 20 15 |30:. K.78 . .. .|
00000D10: AA 05 8B 20 4B B3 B1 38 33 20 A7 20 31 34 34 30 |... K..83 . 1440|
00000D20: 00 2E 15 B4 05 4F 50 B2 4F 3A 4E B2 4E 54 00 50 |.....OP.O:N.NT.P|
00000D30: 15 BE 05 99 22 41 4E 54 45 52 49 4F 52 20 41 43 |...."ANTERIOR AC|
00000D40: 54 55 41 4C 49 5A 41 43 49 4F 4E 3A 22 3B 44 24 |TUALIZACION:";D$|
00000D50: 00 66 15 C8 05 81 49 B2 31 20 A4 20 4E 3A 81 4A |.f....I.1 . N:.J|
00000D60: B2 31 20 A4 20 35 00 7D 15 D2 05 84 32 2C 41 24 |.1 . 5.}....2,A$|
00000D70: 28 4A 2C 49 29 3A 82 20 4A 3A 82 20 49 00 8C 15 |(J,I):. J:. I...|
00000D80: DC 05 A0 32 3A 8D 32 35 32 30 3A 8E 00 A0 15 F0 |...2:.2520:.....|
00000D90: 05 8B 20 47 32 B3 B1 30 20 A7 20 8D 31 37 32 30 |.. G2..0 . .1720|
00000DA0: 00 BA 15 FA 05 99 22 45 4E 54 52 45 20 31 2E 20 |......"ENTRE 1. |
00000DB0: 20 43 41 53 53 45 54 54 45 22 00 D4 15 04 06 99 | CASSETTE"......|
00000DC0: 22 20 20 20 20 20 20 32 2E 20 20 44 49 53 4B 45 |" 2. DISKE|
00000DD0: 54 54 45 22 00 EC 15 0E 06 85 22 11 11 53 55 20 |TTE"......"..SU |
00000DE0: 45 4C 45 43 43 49 4F 4E 22 3B 41 53 00 05 16 18 |ELECCION";AS....|
00000DF0: 06 8B 20 41 53 B3 31 20 B0 20 41 53 B1 32 20 A7 |.. AS.1 . AS.2 .|
00000E00: 20 31 35 33 30 00 22 16 22 06 8B 20 41 53 B2 32 | 1530.".".. AS.2|
00000E10: 20 A7 20 41 53 B2 32 3A 53 53 B2 38 3A 89 31 35 | . AS.2:SS.8:.15|
00000E20: 39 30 00 30 16 2C 06 41 53 B2 31 3A 53 53 B2 31 |90.0.,.AS.1:SS.1|
00000E30: 00 56 16 36 06 48 24 B2 C7 28 31 33 29 3A 85 22 |.V.6.H$..(13):."|
00000E40: 4E 4F 4D 42 52 45 20 44 45 4C 20 41 52 43 48 49 |NOMBRE DEL ARCHI|
00000E50: 56 4F 22 3B 4E 24 00 68 16 40 06 85 20 22 46 45 |VO";N$.h.@.. "FE|
00000E60: 43 48 41 2E 22 3B 44 24 00 7B 16 4A 06 8B 20 41 |CHA.";D$.{.J.. A|
00000E70: 53 B3 B1 32 20 A7 20 31 36 35 30 00 81 16 54 06 |S..2 . 1650...T.|
00000E80: 8F 00 9D 16 5E 06 9F 32 2C 53 53 2C 41 53 2C 22 |....^..2,SS,AS,"|
00000E90: 30 3A 22 AA 4E 24 AA 22 2C 53 2C 57 22 00 A8 16 |0:".N$.",S,W"...|
00000EA0: 68 06 89 20 31 36 36 30 00 B9 16 72 06 9F 20 32 |h.. 1660...r.. 2|
00000EB0: 2C 53 53 2C 41 53 2C 4E 24 00 D7 16 7C 06 98 32 |,SS,AS,N$...|..2|
00000EC0: 2C 4F 50 3B 48 24 3B 4E 3B 48 24 3B 53 24 3B 48 |,OP;H$;N;H$;S$;H|
00000ED0: 24 3B 44 24 3B 48 24 00 09 17 86 06 81 20 49 B2 |$;D$;H$...... I.|
00000EE0: 31 20 A4 20 4E 3A 81 58 B2 31 20 A4 20 35 3A 8B |1 . N:.X.1 . 5:.|
00000EF0: 20 41 24 28 58 2C 49 29 B2 22 22 20 A7 20 41 24 | A$(X,I)."" . A$|
00000F00: 28 58 2C 49 29 B2 22 A0 22 00 23 17 90 06 98 32 |(X,I).".".#....2|
00000F10: 2C 41 24 28 58 2C 49 29 3B 48 24 3A 82 20 58 3A |,A$(X,I);H$:. X:|
00000F20: 82 20 49 00 2F 17 9A 06 98 32 2C 3B 3A A0 32 00 |. I./....2,;:.2.|
00000F30: 3A 17 A4 06 47 31 B2 30 3A 8E 00 5F 17 B8 06 99 |:...G1.0:.._....|
00000F40: 22 4F 52 44 45 4E 41 4D 49 45 4E 54 4F 20 53 45 |"ORDENAMIENTO SE|
00000F50: 47 55 4E 20 51 55 45 20 43 41 4D 50 4F 3F 22 00 |GUN QUE CAMPO?".|
00000F60: 82 17 C2 06 81 20 5A B2 31 20 A4 20 35 3A 99 5A |..... Z.1 . 5:.Z|
00000F70: 3B 22 2E 20 22 3B 42 24 28 4F 50 2C 5A 29 3A 82 |;". ";B$(OP,Z):.|
00000F80: 20 5A 00 8A 17 CC 06 85 20 46 00 A1 17 D6 06 8B | Z...... F......|
00000F90: 20 46 B3 31 20 B0 20 46 B1 35 20 A7 20 31 37 32 | F.1 . F.5 . 172|
00000FA0: 30 00 AA 17 E0 06 47 32 B2 30 00 D9 17 EA 06 99 |0.....G2.0......|
00000FB0: 22 11 11 11 20 20 20 2A 2A 2A 2A 2A 20 4F 52 44 |"... ***** ORD|
00000FC0: 45 4E 41 4E 44 4F 20 20 20 20 44 41 54 4F 53 20 |ENANDO DATOS |
00000FD0: 2A 2A 2A 2A 2A 11 11 11 22 00 FA 17 F4 06 81 20 |*****..."...... |
00000FE0: 49 B2 31 20 A4 20 4E AB 31 3A 81 20 4A B2 4E 20 |I.1 . N.1:. J.N |
00000FF0: A4 20 49 AA 31 20 A9 20 AB 31 00 29 18 FE 06 8B |. I.1 . .1.)....|
00001000: 20 41 24 28 46 2C 49 29 B3 41 24 28 46 2C 4A 29 | A$(F,I).A$(F,J)|
00001010: 20 B0 20 41 24 28 46 2C 49 29 B2 41 24 28 46 2C | . A$(F,I).A$(F,|
00001020: 4A 29 20 A7 20 31 38 31 30 00 33 18 08 07 8D 31 |J) . 1810.3....1|
00001030: 38 36 30 00 3B 18 12 07 82 20 4A 00 5A 18 1C 07 |860.;.... J.Z...|
00001040: 8B 20 41 24 28 46 2C 49 29 B3 B1 41 24 28 46 2C |. A$(F,I)..A$(F,|
00001050: 49 AA 31 29 A7 20 31 38 34 30 00 64 18 26 07 49 |I.1). 1840.d.&.I|
00001060: B2 49 AA 31 00 6C 18 30 07 82 20 49 00 72 18 3A |.I.1.l.0.. I.r.:|
00001070: 07 8E 00 9E 18 44 07 81 20 5A B2 31 20 A4 20 35 |.....D.. Z.1 . 5|
00001080: 3A 4F 24 28 5A 29 B2 41 24 28 5A 2C 49 29 3A 41 |:O$(Z).A$(Z,I):A|
00001090: 24 28 5A 2C 49 29 B2 41 24 28 5A 2C 4A 29 00 B6 |$(Z,I).A$(Z,J)..|
000010A0: 18 4E 07 41 24 28 5A 2C 4A 29 B2 4F 24 28 5A 29 |.N.A$(Z,J).O$(Z)|
000010B0: 3A 82 20 5A 3A 8E 00 C8 18 62 07 8B 20 4F 50 B2 |:. Z:....b.. OP.|
000010C0: 31 20 A7 20 31 39 36 30 00 D1 18 6C 07 53 4D B2 |1 . 1960...l.SM.|
000010D0: 30 00 F3 18 76 07 81 20 49 B2 31 20 A4 4E 3A 53 |0...v.. I.1 .N:S|
000010E0: 4D B2 53 4D AA C5 28 41 24 28 32 2C 49 29 29 3A |M.SM..(A$(2,I)):|
000010F0: 82 20 49 00 2E 19 80 07 99 20 22 11 11 1D 1D 1D |. I...... ".....|
00001100: 1D 43 4F 53 54 4F 20 54 4F 54 41 4C 20 44 45 20 |.COSTO TOTAL DE |
00001110: 54 4F 44 4F 53 20 4C 4F 53 20 49 54 45 4D 53 22 |TODOS LOS ITEMS"|
00001120: 3A 99 20 A3 31 34 29 22 11 11 22 3B 53 4D 00 3B |:. .14)"..";SM.;|
00001130: 19 8A 07 8D 20 32 35 32 30 3A 8E 00 54 19 A8 07 |.... 2520:..T...|
00001140: 8D 20 39 37 30 3A 8B 20 4D 24 B2 22 22 20 A7 20 |. 970:. M$."" . |
00001150: 32 31 30 30 00 61 19 B2 07 99 22 93 11 11 1D 1D |2100.a....".....|
00001160: 22 00 78 19 BC 07 54 24 B2 41 24 28 32 2C 4D 29 |".x...T$.A$(2,M)|
00001170: 3A 4C B2 C3 28 54 24 29 00 AC 19 C6 07 81 20 49 |:L..(T$)...... I|
00001180: B2 31 20 A4 20 35 3A 99 22 1D 1D 22 3B 41 24 28 |.1 . 5:."..";A$(|
00001190: 49 2C 4D 29 3A 82 3A 99 22 11 11 1D 1D 1D 1D 1D |I,M):.:.".......|
000011A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 BE 19 D0 |..........";....|
000011B0: 07 8B 20 4C B3 31 30 20 A7 20 32 30 32 30 00 D2 |.. L.10 . 2020..|
000011C0: 19 DA 07 4C B2 4C AA 31 3A 54 24 B2 22 31 22 AA |...L.L.1:T$."1".|
000011D0: 54 24 00 EC 19 E4 07 81 4A B2 31 20 A4 20 4C 3A |T$......J.1 . L:|
000011E0: 50 24 B2 CA 28 54 24 2C 4A 2C 31 29 00 12 1A EE |P$..(T$,J,1)....|
000011F0: 07 99 50 24 3B 3A 8B 20 C6 28 50 24 29 B3 34 38 |..P$;:. .(P$).48|
00001200: 20 B0 20 C6 28 50 24 29 B1 35 37 20 A7 20 32 30 | . .(P$).57 . 20|
00001210: 39 30 00 2C 1A F8 07 54 B2 C5 28 50 24 29 3A 8B |90.,...T..(P$):.|
00001220: 20 54 B3 B1 30 20 A7 20 32 30 36 30 00 4B 1A 02 | T..0 . 2060.K..|
00001230: 08 46 32 B2 39 34 31 3A 46 31 B2 31 33 33 36 3A |.F2.941:F1.1336:|
00001240: 8D 32 34 31 30 3A 89 32 30 38 30 00 6B 1A 0C 08 |.2410:.2080.k...|
00001250: 49 B2 B5 28 28 54 AB 31 29 AD 33 29 AA 31 3A 49 |I..((T.1).3).1:I|
00001260: 4A B2 54 AB 33 AC 28 49 AB 31 29 00 89 1A 16 08 |J.T.3.(I.1).....|
00001270: 46 31 B2 50 31 28 49 29 3A 46 32 B2 50 32 28 49 |F1.P1(I):F2.P2(I|
00001280: 4A 29 3A 8D 20 32 34 31 30 00 99 1A 20 08 81 58 |J):. 2410... ..X|
00001290: B2 31 A4 20 32 35 30 3A 82 00 A0 1A 2A 08 82 4A |.1. 250:....*..J|
000012A0: 00 BB 1A 34 08 99 22 11 11 22 3A 99 22 1D 41 50 |...4.."..":.".AP|
000012B0: 52 49 45 54 45 22 3A 99 22 11 22 00 EB 1A 3E 08 |RIETE":."."...>.|
000012C0: 99 22 1D 52 20 50 41 52 41 20 52 45 2D 44 49 53 |.".R PARA RE-DIS|
000012D0: 43 41 52 22 3A 99 22 1D 43 20 50 41 52 41 20 43 |CAR":.".C PARA C|
000012E0: 52 4F 4E 4F 4D 45 54 52 41 52 22 00 0A 1B 48 08 |RONOMETRAR"...H.|
000012F0: 99 22 1D 4E 20 50 41 52 41 20 55 4E 20 4E 55 45 |.".N PARA UN NUE|
00001300: 56 4F 20 4E 55 4D 45 52 4F 22 00 15 1B 52 08 8D |VO NUMERO"...R..|
00001310: 20 32 35 32 30 00 25 1B 5C 08 8B 4B B2 38 32 20 | 2520.%.\..K.82 |
00001320: A7 31 39 37 30 00 37 1B 66 08 8B 20 4B B2 37 38 |.1970.7.f.. K.78|
00001330: 20 A7 20 31 39 36 30 00 4A 1B 70 08 8B 20 4B B3 | . 1960.J.p.. K.|
00001340: B1 36 37 20 A7 20 32 31 38 30 00 5C 1B 7A 08 8D |.67 . 2180.\.z..|
00001350: 20 32 35 36 30 3A 8D 20 32 32 30 30 00 62 1B 84 | 2560:. 2200.b..|
00001360: 08 8E 00 73 1B 98 08 54 49 24 B2 22 30 30 30 30 |...s...TI$."0000|
00001370: 30 30 22 00 93 1B A2 08 81 49 B2 31 20 A4 20 36 |00"......I.1 . 6|
00001380: 3A 43 24 28 49 29 B2 CA 28 54 49 24 2C 49 2C 31 |:C$(I)..(TI$,I,1|
00001390: 29 3A 82 00 C3 1B AC 08 99 22 13 11 11 11 11 11 |):......."......|
000013A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000013B0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013C0: 1D 22 3B 00 F4 1B B6 08 99 43 24 28 31 29 3B 43 |.";......C$(1);C|
000013D0: 24 28 32 29 3B 22 3A 22 3B 43 24 28 33 29 3B 43 |$(2);":";C$(3);C|
000013E0: 24 28 34 29 3B 22 3A 22 3B 43 24 28 35 29 3B 43 |$(4);":";C$(5);C|
000013F0: 24 28 36 29 00 05 1C C0 08 81 49 B2 31 20 A4 20 |$(6)......I.1 . |
00001400: 32 35 30 3A 82 00 20 1C CA 08 49 B2 C2 28 31 39 |250:.. ...I..(19|
00001410: 37 29 3A 8B 20 49 B2 36 34 20 A7 20 32 32 31 30 |7):. I.64 . 2210|
00001420: 00 32 1C D4 08 8B 20 49 B2 31 37 20 A7 20 31 39 |.2.... I.17 . 19|
00001430: 37 30 00 38 1C DE 08 8E 00 41 1C F2 08 9F 34 2C |70.8.....A....4,|
00001440: 34 00 55 1C FC 08 81 49 B2 31 20 A4 4E 3A 81 4A |4.U....I.1 .N:.J|
00001450: B2 31 20 A4 35 00 66 1C 06 09 98 34 2C 41 24 28 |.1 .5.f....4,A$(|
00001460: 4A 2C 49 29 3A 82 00 7A 1C 10 09 98 34 2C 22 20 |J,I):..z....4," |
00001470: 22 3A 98 34 2C 22 20 22 3A 82 00 88 1C 1A 09 98 |":.4," ":.......|
00001480: 34 2C 3B 3A A0 34 3A 8E 00 B7 1C 24 09 99 22 93 |4,;:.4:....$..".|
00001490: 11 11 1D 44 45 53 45 41 20 54 45 52 4D 49 4E 41 |...DESEA TERMINA|
000014A0: 52 20 45 4C 20 50 52 4F 47 52 41 4D 41 20 59 20 |R EL PROGRAMA Y |
000014B0: 50 45 52 44 45 52 22 00 DF 1C 2E 09 99 22 1D 54 |PERDER"......".T|
000014C0: 4F 44 41 20 4C 41 20 49 4E 46 4F 52 4D 41 43 49 |ODA LA INFORMACI|
000014D0: 4F 4E 20 45 4E 20 4D 45 4D 4F 52 49 41 3F 22 00 |ON EN MEMORIA?".|
000014E0: EF 1C 38 09 99 22 1D 11 28 53 2F 4E 29 3F 22 00 |..8.."..(S/N)?".|
000014F0: F9 1C 42 09 8D 32 35 33 30 00 0A 1D 4C 09 8B 20 |..B..2530...L.. |
00001500: 4B B2 37 38 20 A7 20 37 31 30 00 1A 1D 56 09 8B |K.78 . 710...V..|
00001510: 20 4B B3 B1 38 33 20 A7 20 8E 00 20 1D 60 09 80 | K..83 . .. .`..|
00001520: 00 50 1D 6A 09 46 44 B2 B5 28 46 31 AD 2E 30 36 |.P.j.FD..(F1..06|
00001530: 30 39 37 29 3A 48 31 B2 B5 28 46 44 AD 32 35 36 |097):H1..(FD.256|
00001540: 29 3A 4C 31 B2 46 44 AB 28 32 35 36 AC 48 31 29 |):L1.FD.(256.H1)|
00001550: 00 80 1D 74 09 46 44 B2 B5 28 46 32 AD 2E 30 36 |...t.FD..(F2..06|
00001560: 30 39 37 29 3A 48 32 B2 B5 28 46 44 AD 32 35 36 |097):H2..(FD.256|
00001570: 29 3A 4C 32 B2 46 44 AB 28 32 35 36 AC 48 32 29 |):L2.FD.(256.H2)|
00001580: 00 94 1D 7E 09 97 53 AA 35 2C 30 3A 97 20 53 AA |...~..S.5,0:. S.|
00001590: 31 32 2C 30 00 AB 1D 88 09 97 53 AA 36 2C 32 32 |12,0......S.6,22|
000015A0: 34 3A 97 53 AA 31 33 2C 32 34 30 00 B9 1D 92 09 |4:.S.13,240.....|
000015B0: 97 20 53 AA 32 34 2C 33 31 00 CB 1D 9C 09 97 53 |. S.24,31......S|
000015C0: AA 31 2C 48 31 3A 97 53 2C 4C 31 00 DF 1D A6 09 |.1,H1:.S,L1.....|
000015D0: 97 53 AA 38 2C 48 32 3A 97 53 AA 37 2C 4C 32 00 |.S.8,H2:.S.7,L2.|
000015E0: F4 1D B0 09 97 53 AA 34 2C 33 33 3A 97 53 AA 31 |.....S.4,33:.S.1|
000015F0: 31 2C 33 33 00 06 1E BA 09 81 5A 58 B2 31 20 A4 |1,33......ZX.1 .|
00001600: 20 31 30 30 3A 82 00 1C 1E C4 09 97 20 53 AA 34 | 100:....... S.4|
00001610: 2C 33 32 3A 97 53 AA 31 31 2C 33 32 00 2A 1E CE |,32:.S.11,32.*..|
00001620: 09 97 53 AA 32 34 2C 30 3A 8E 00 55 1E D8 09 99 |..S.24,0:..U....|
00001630: 22 11 1D 1D 1D 1D 54 4F 51 55 45 20 55 4E 41 20 |".....TOQUE UNA |
00001640: 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 |TECLA PARA CONTI|
00001650: 4E 55 41 52 22 00 6E 1E E2 09 A1 20 4B 24 3A 8B |NUAR".n.... K$:.|
00001660: 20 4B 24 B3 B1 22 22 20 A7 20 32 35 33 30 00 86 | K$.."" . 2530..|
00001670: 1E EC 09 A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 |.... K$:. K$."" |
00001680: A7 20 32 35 34 30 00 94 1E F6 09 4B B2 C6 28 4B |. 2540.....K..(K|
00001690: 24 29 3A 8E 00 D2 1E 00 0A 99 22 91 91 91 91 22 |$):......."...."|
000016A0: 3B 3A 81 49 B2 31 A4 32 3A 99 22 20 20 20 20 20 |;:.I.1.2:." |
000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 | ":.|
000016D0: 3A 8E 00 00 00 |:.... |
..".D.. **************************.C.N..
* SECRETARIA ELECTRONICA *.D.X.. ******
********************......A$(5,60),O$(5)
,C$(6),P1(3),P2(3),B$(2,5).....S.54272:S
Z.0.....PO.1.V.H.. P1(1),P1(2),P1(3),P2(
1),P2(2),P2(3)...R.. I.1 . 5:. B$(1,I):.
...... I.1 . 5:.B$(2,I):..*.... 697,770,
852,1210,1340,1481.R.... "NOMBRE :","T
ELEFONO :","DIRECCION:","CIUDAD :","PR
OVINCIA :"...... "ITEM :","VALOR:","UBIC
ACION :","FECHA COMPRA:","NRO. SERIE :
".....RF.2000:RF.(RF.30).8:RH..(RF.8):RL
.RF.8.RH...... X.S.S.24:. X,0:.. .... S.
23,3:. S.21,RH:. S.22,RL.6.".."....":. 5
3281,1.^.,.. .6)"***********************
*****"...6.. .6)"** SECRETARIA ELECTRONI
CA **"...@.. .6)"***********************
***** "...T.. .8)"1. AGEND
A TELEFONICA": . .8)".2.INVENTARIO"...^.
. 2530...H.. K.49 . OP.1: . 390.0.R.. K.
50 . OP.2: . 390.M.|.. "CORREGIR 1 O 2":
. 350.[...N.0:. 550......"..ENTRE":."..F
PARA FINALIZAR":.".C PARA RE-INGRESAR":
G1.1:G2.2.....I.N.1.C.... I.60 . I.60 .
460......"..*** ARCHIVO COMPLETO (N=60)
***.."...B..2520:....L.." ".&.V..B$(OP,1
);:A$(1,I)."":.A$(1,I).L.... A$(1,I)."F"
.A$(1,I)."FIN". 1720.A....A$(1,I)."". 47
0.Y....A$(1,I)..."R". 520.....I.I.1:N.I.
1:." *** RE-INGRESE ULTIMO BLOQUE ***"
:.460.B....Z.2 . 5......B$(OP,Z);:A$(Z,I
)."":.A$(Z,I):.Z.....N.I:. 410.(.&.SC.4:
.".........** SECRETARIA ELECTRONICA **"
.7.0..OP.2 .580.Y.:...11)"AGENDA TELEFON
ICA":.590.O.D...15)"INVENTARIO"...N.."**
**************************************".
B.X.."APRIETE":."1. AGREGAR DATOS"...B..
"2. CAMBIAR DATOS":."3. MOSTRAR LISTA DE
NOMBRES".$.L.. "4. MOSTRAR DE UNO":."5.
USAR DATOS".R.V.."6. GUARDAR ARCHIVO":.
"7. TRAER ARCHIVO".Z...."8. LISTAR EN IM
PRESORA":."9. FIN"......2530...... K.49
. K.57 . 550......"."...... (K.48). 700
,730,900,970,1890,1520,1260,2290,2340...
...550......410...F.....Z.."NRO.DE REGIS
TRO";M$:.M$."".M$."1"._...."..USE":.".CU
RSOR PARA CAMBIOS":."./E/PARA ELIMINAR E
L ITEM"......".<RETURN>SI NO REALIZA CAM
BIOS":."..":.1160.....G1.1:I.M......A$(1
,M);:P$."":. P$.I.... P$."" . 830......
P$.."/E/" . 820... ..Z.1 . 5:A$(Z,M)."UL
TIMO REGISTRO DEL ARCHIVO":..&.*..1720:N
.N.1:..:.4.A$(1,M).P$:G2.1.\.>.. Z.2 .5:
.A$(Z,M);:P$."":. P$.N.H.. P$."" . 860..
.R.A$(Z,M).P$:G2.G2.1...\.. Z...F.. 1040
...P.. T .770,730,890...Z...H.... G2..0
. . 1720......XX.1 . N:M.35.C(A$(2,XX)):
T$." ".......4.C(T$))XX;".";T$;A$(1,XX
);.M);A$(2,XX).?...I1..(XX.10):.I1..XX.1
0 . 950.I....2520.Y....XX:.2520:....J.M$
."":."..NRO. DE REGISTRO";M$:. M$."" . 1
030...T..1160......".......".B....I.1.5:
.".....";A$(I,M):..L....1040...... T .99
0,970,1030............"..APRIETE.":."A P
ARA UN REGISTRO ANTERIOR".B....".O PARA
TRAER OTRO REGISTRO":.2520.Y.$.T.3:. K..
65 . 1090.N...T.1:. M.1 . 1140.X.8.M.M.1
...B.. K..80 . 1120. .L.T.1:. M.N . 1140
...V.M.M.1...`.. K..79 . 1140.E.J.T.2.K.
T........ .(F(M$).53).4 . 1200.....M.E(M
$):. M.N . M.N . 1190.....M.N.......$...
.I.1 . N:M.I.A.... C(M$).C(A$(1,I)). 123
0.A.D.. M$.H(A$(1,I),C(M$)). 1240.H.N..I
.N.X........"ENTRE 1. CASSETTE"......"
2, DISKETTE"......"..OPCION";AS.M.
...AS.1 . AS.2 . 1260...... AS.2 .AS.2:S
S.8:.1320.....AS.0:SS.1...(.H$.G(13):."N
OMBRE DEL ARCHIVO";N$.0.2.. AS..2 . 1370
.6.<...R.F..2,SS,AS,"0:".N$.",S,R".].P..
1380.M.Z..2,SS,AS,N$..D..2,O,NT,F$,D$.
..N.. O.OP . 1460...X.. O.2 . 1420.D....
".ARCHIVO TELEFONICO":. 1430......".ARCH
IVO DE INVENTARIO"......"PROCEDE (S/N)?"
... ..2530:. K.78 . .. .... K..83 . 1440
.....OP.O:N.NT.P...."ANTERIOR ACTUALIZAC
ION:";D$.F.H..I.1 . N:.J.1 . 5.}.R..2,A$
(J,I):. J:. I..... 2:.2520:.. .... G2..0
. .1720......"ENTRE 1. CASSETTE".T....
" 2. DISKETTE"......"..SU ELECCION
";AS...... AS.1 . AS.2 . 1530.".".. AS.2
. AS.2:SS.8:.1590.0.,.AS.1:SS.1.V.6.H$.
G(13):."NOMBRE DEL ARCHIVO";N$.H.@.. "FE
CHA.";D$.{.J.. AS..2 . 1650...T.....^..2
,SS,AS,"0:".N$.",S,W"...H.. 1660...R.. 2
,SS,AS,N$.W.|..2,OP;H$;N;H$;S$;H$;D$;H$.
..... I.1 . N:.X.1 . 5:. A$(X,I)."" . A$
(X,I)." ".#....2,A$(X,I);H$:. X:. I./...
.2,;: 2.:...G1.0:.._...."ORDENAMIENTO SE
GUN QUE CAMPO?"...B.. Z.1 . 5:.Z;". ";B$
(OP,Z):. Z...L.. F...V.. F.1 . F.5 . 172
0.....G2.0.Y...."... ***** ORDENANDO
DATOS *****..."...... I.1 . N.1:. J.N
. I.1 . .1.).... A$(F,I).A$(F,J) . A$(F,
I).A$(F,J) . 1810.3....1860.;.... J.Z...
. A$(F,I)..A$(F,I.1). 1840.D.&.I.I.1.L.0
.. I.R.:.....D.. Z.1 . 5:O$(Z).A$(Z,I):A
$(Z,I).A$(Z,J)...N.A$(Z,J).O$(Z):. Z:..H
.B.. OP.1 . 1960.Q.L.SM.0...V.. I.1 .N:S
M.SM.E(A$(2,I)):. I...... "......COSTO T
OTAL DE TODOS LOS ITEMS":. .14)"..";SM.;
.... 2520:..T.... 970:. M$."" . 2100.A..
..".....".X...T$.A$(2,M):L.C(T$)...F.. I
.1 . 5:."..";A$(I,M):.:."...............
..";...P.. L.10 . 2020.R.Z.L.L.1:T$."1".
T$......J.1 . L:P$.J(T$,J,1)......P$;:.
F(P$).48 . F(P$).57 . 2090.,...T.E(P$):.
T..0 . 2060.K...F2.941:F1.1336:.2410:.2
080.K...I..((T.1).3).1:IJ.T.3.(I.1).....
F1.P1(I):F2.P2(IJ):. 2410... ..X.1. 250:
.. .*..J...4.."..":.".APRIETE":."."...>.
.".R PARA RE-DISCAR":.".C PARA CRONOMETR
AR"...H..".N PARA UN NUEVO NUMERO"...R..
2520.%.\..K.82 .1970.7.F.. K.78 . 1960.
J.P.. K..67 . 2180.\.Z.. 2560:. 2200.B..
...S...TI$."000000"......I.1 . 6:C$(I).J
(TI$,I,1):..C...."......................
.................";......C$(1);C$(2);":"
;C$(3);C$(4);":";C$(5);C$(6)......I.1 .
250:.. .J.I.B(197):. I.64 . 2210.2.T.. I
.17 . 1970.8.....A....4,4.U....I.1 .N:.J
.1 .5.F....4,A$(J,I):..Z....4," ":.4," "
:.......4,;: 4:....$.."....DESEA TERMINA
R EL PROGRAMA Y PERDER"......".TODA LA I
NFORMACION EN MEMORIA?"...8.."..(S/N)?".
..B..2530...L.. K.78 . 710...V.. K..83 .
.. .`...P.J.FD..(F1..06097):H1..(FD.256
):L1.FD.(256.H1)...T.FD..(F2..06097):H2.
.(FD.256):L2.FD.(256.H2)...~..S.5,0:. S.
12,0......S.6,224:.S.13,240...... S.24,3
1.K....S.1,H1:.S,L1......S.8,H2:.S.7,L2.
.....S.4,33:.S.11,33......ZX.1 . 100:...
.D.. S.4,32:.S.11,32.*.N..S.24,0:..U.X..
".....TOQUE UNA TECLA PARA CONTINUAR".N.
... K$:. K$.."" . 2530...... K$:. K$.""
. 2540.....K.F(K$):..R...."....";:.I.1.2
:." ":.
:....
> CLICK IMAGE PREVIEW FOR FULL MODAL