STOCK/FACTURACIO
FILE INFORMATION
FILENAME(S): STOCK/FACTURACIO
FILE TYPE(S): PRG
FILE SIZE: 22.4K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
8c651141504118fa4305b6c3ffca005ecf6c04dcdefa8002e2610fa979e8755c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | STOCK/FACTURACIO | PRG | Bugjam - Argentina | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 01 00 86 20 52 45 24 28 32 30 30 29 |....... RE$(200)|
00000010: 2C 46 41 24 28 39 39 29 00 30 08 02 00 97 35 33 |,FA$(99).0....53|
00000020: 32 38 31 2C 31 36 3A 97 35 33 32 38 30 2C 31 36 |281,16:.53280,16|
00000030: 00 6C 08 03 00 99 22 93 11 11 11 11 11 11 11 11 |.l....".........|
00000040: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1C 50 52 4F 47 52 |...........PROGR|
00000050: 41 4D 41 44 4F 52 3A 20 37 32 2D 39 39 34 30 22 |AMADOR: 72-9940"|
00000060: 3A 81 4A B2 31 A4 32 35 30 3A 82 4A 00 8F 08 05 |:.J.1.250:.J....|
00000070: 00 8D 20 31 30 30 3A 8F 20 53 55 42 20 50 4F 4E |.. 100:. SUB PON|
00000080: 47 4F 20 54 49 54 55 4C 4F 2B 2B 2B 2B 2B 2B 00 |GO TITULO++++++.|
00000090: C1 08 0A 00 59 24 B2 22 13 11 11 11 11 11 11 11 |....Y$."........|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000B0: 11 22 3A 8F 20 43 55 52 53 4F 52 20 41 42 41 4A |.":. CURSOR ABAJ|
000000C0: 4F 00 FF 08 0F 00 58 24 B2 22 1D 1D 1D 1D 1D 1D |O.....X$."......|
000000D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000F0: 1D 22 3A 45 31 24 B2 22 50 45 54 45 54 45 22 00 |.":E1$."PETETE".|
00000100: 4E 09 14 00 8F 20 4C 45 4F 20 41 52 43 48 49 56 |N.... LEO ARCHIV|
00000110: 4F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |O***************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D |**************..|
00000150: 09 19 00 99 C8 28 59 24 2C 32 33 29 3B 22 56 41 |.....(Y$,23);"VA|
00000160: 20 41 20 4C 45 45 52 20 45 4C 20 41 52 43 48 49 | A LEER EL ARCHI|
00000170: 56 4F 20 28 53 2F 4E 29 22 3B 3A 85 51 31 24 3A |VO (S/N)";:.Q1$:|
00000180: 8B 20 51 31 24 B2 22 4E 22 A7 20 37 35 00 A0 09 |. Q1$."N". 75...|
00000190: 1E 00 8B 20 51 31 24 B3 B1 22 53 22 A7 20 32 35 |... Q1$.."S". 25|
000001A0: 00 E3 09 23 00 99 C8 28 59 24 2C 32 33 29 3B 22 |...#...(Y$,23);"|
000001B0: 50 52 45 50 41 52 45 20 45 4C 20 43 41 53 53 45 |PREPARE EL CASSE|
000001C0: 54 54 45 20 45 4E 20 45 4C 20 20 49 4E 49 43 49 |TTE EN EL INICI|
000001D0: 4F 20 44 45 4C 20 20 20 41 52 43 48 49 56 4F 2C |O DEL ARCHIVO,|
000001E0: 20 22 3B 00 07 0A 28 00 4F 24 B2 22 22 3A 85 22 | ";...(.O$."":."|
000001F0: 4C 55 45 47 4F 20 50 55 4C 53 45 20 52 45 54 55 |LUEGO PULSE RETU|
00000200: 52 4E 20 22 3B 4F 24 00 13 0A 2D 00 9F 20 31 2C |RN ";O$...-.. 1,|
00000210: 31 2C 30 00 2D 0A 32 00 81 20 4A B2 31 20 A4 20 |1,0.-.2.. J.1 . |
00000220: 32 30 30 3A 84 31 2C 52 45 24 28 4A 29 00 4A 0A |200:.1,RE$(J).J.|
00000230: 37 00 8B 20 53 54 B2 36 34 20 A7 20 A0 20 31 3A |7.. ST.64 . . 1:|
00000240: 4A B2 32 30 31 3A 89 20 36 35 00 71 0A 3C 00 8B |J.201:. 65.q.<..|
00000250: 20 53 54 B3 B1 30 20 A7 20 99 22 43 49 4E 54 41 | ST..0 . ."CINTA|
00000260: 20 45 4E 20 4D 41 4C 20 45 53 54 41 44 4F 22 3A | EN MAL ESTADO":|
00000270: 90 00 79 0A 41 00 82 20 4A 00 C9 0A 46 00 8F 20 |..y.A.. J...F.. |
00000280: 46 49 4E 20 4C 45 4F 20 41 52 43 48 49 56 4F 2A |FIN LEO ARCHIVO*|
00000290: 2A 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 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EB 0A 4B 00 8D 20 |*********...K.. |
000002D0: 32 30 30 3A 8F 20 53 55 42 20 4D 45 4E 55 2B 2B |200:. SUB MENU++|
000002E0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 03 0B 50 00 |+++++++++++...P.|
000002F0: 91 20 41 20 8D 20 35 30 30 2C 34 30 30 30 2C 39 |. A . 500,4000,9|
00000300: 39 30 30 00 52 0B 55 00 8F 20 43 55 49 44 41 44 |900.R.U.. CUIDAD|
00000310: 4F 20 43 4F 4E 20 22 41 22 20 45 4E 20 4D 45 4E |O CON "A" EN MEN|
00000320: 55 2C 41 47 52 45 47 41 52 20 4D 41 53 20 53 55 |U,AGREGAR MAS SU|
00000330: 42 52 55 54 49 4E 41 53 2A 2A 2A 2A 2A 2A 2A 2A |BRUTINAS********|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000350: 2A 2A 00 76 0B 5A 00 89 20 37 35 3A 8F 20 56 55 |**.v.Z.. 75:. VU|
00000360: 45 4C 56 45 20 41 4C 20 4D 45 4E 55 2B 2B 2B 2B |ELVE AL MENU++++|
00000370: 2B 2B 2B 2B 2B 2B 00 7C 0B 62 00 90 00 CC 0B 63 |++++++.|.b.....c|
00000380: 00 8F 20 43 4F 4D 49 45 4E 5A 41 20 53 55 42 20 |.. COMIENZA SUB |
00000390: 50 4F 4E 47 4F 20 54 49 54 55 4C 4F 2A 2A 2A 2A |PONGO TITULO****|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1A 0C 64 |************...d|
000003D0: 00 8F 20 42 55 53 43 41 52 20 4C 45 54 52 53 20 |.. BUSCAR LETRS |
000003E0: 4D 41 53 20 4C 49 4E 44 41 53 20 28 4C 49 42 52 |MAS LINDAS (LIBR|
000003F0: 4F 20 42 41 53 49 43 32 20 50 41 47 20 33 37 32 |O BASIC2 PAG 372|
00000400: 2C 20 46 4F 54 4F 43 4F 50 49 41 53 20 4D 41 52 |, FOTOCOPIAS MAR|
00000410: 49 41 4E 4F 29 2B 2B 2B 2B 2B 00 23 0C 69 00 99 |IANO)+++++.#.i..|
00000420: 22 93 22 00 4C 0C 6E 00 99 22 13 11 11 11 11 11 |".".L.n.."......|
00000430: 11 11 11 11 11 22 3B A3 31 32 29 3B 22 9E 53 49 |.....";.12);".SI|
00000440: 53 54 45 4D 41 20 20 44 45 22 3A 99 00 6B 0C 73 |STEMA DE":..k.s|
00000450: 00 99 A3 31 32 29 3B 22 9E 47 45 53 54 49 4F 4E |...12);".GESTION|
00000460: 20 43 4F 4D 45 52 43 49 41 4C 22 00 84 0C 78 00 | COMERCIAL"...x.|
00000470: 8D 20 31 35 30 3A 8F 20 53 55 42 20 52 45 43 55 |. 150:. SUB RECU|
00000480: 41 44 52 4F 00 CD 0C 7D 00 8E 3A 8F 20 46 49 4E |ADRO...}..:. FIN|
00000490: 20 53 55 42 20 50 4F 4E 47 4F 20 54 49 54 55 4C | SUB PONGO TITUL|
000004A0: 4F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |O***************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D3 0C |*************...|
000004D0: 93 00 8F 00 22 0D 94 00 8F 20 43 4F 4D 49 45 4E |....".... COMIEN|
000004E0: 5A 41 20 53 55 42 20 52 45 43 55 41 44 52 4F 2A |ZA SUB RECUADRO*|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 00 55 0D 96 00 99 20 22 13 11 11 11 11 22 |**.U.... "....."|
00000530: 3B A3 35 29 3B 22 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |;.5);"..........|
00000540: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
00000550: A6 A6 A6 A6 22 00 7E 0D A0 00 81 20 4A B2 31 20 |....".~.... J.1 |
00000560: A4 20 31 35 3A 20 99 20 A3 35 29 20 C7 28 31 36 |. 15: . .5) .(16|
00000570: 36 29 3B A3 33 34 29 20 C7 28 31 36 36 29 00 B2 |6);.34) .(166)..|
00000580: 0D A5 00 82 20 4A 3A 99 20 3B A3 35 29 3B 22 A6 |.... J:. ;.5);".|
00000590: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
000005A0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 22 3B 22 |.............";"|
000005B0: 9A 22 00 FC 0D AA 00 8E 3A 8F 20 46 49 4E 20 52 |."......:. FIN R|
000005C0: 45 43 55 41 44 52 4F 2A 2A 2A 2A 2A 2A 2A 2A 2A |ECUADRO*********|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 0E C5 |************....|
00000600: 00 8F 00 51 0E C6 00 8F 20 43 4F 4D 49 45 4E 5A |...Q.... COMIENZ|
00000610: 41 20 53 55 42 20 4D 45 4E 55 20 2A 2A 2A 2A 2A |A SUB MENU *****|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000650: 2A 00 57 0E C7 00 8F 00 84 0E C8 00 99 22 93 22 |*.W.........."."|
00000660: 3A 99 22 11 11 11 11 11 11 22 3B A3 31 31 29 3B |:."......";.11);|
00000670: 22 9F 47 45 53 54 49 4F 4E 20 43 4F 4D 45 52 43 |".GESTION COMERC|
00000680: 49 41 4C 22 00 A6 0E CD 00 99 20 A3 31 31 29 22 |IAL"...... .11)"|
00000690: 2D 2D 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 2D |------- --------|
000006A0: 2D 22 3A 99 3A 99 00 BD 0E D2 00 99 20 A3 38 29 |-":.:....... .8)|
000006B0: 22 31 2E 2D 20 53 54 4F 43 4B 22 3A 99 00 DA 0E |"1.- STOCK":....|
000006C0: D7 00 99 20 A3 38 29 22 32 2E 2D 20 46 41 43 54 |... .8)"2.- FACT|
000006D0: 55 52 41 43 49 4F 4E 22 3A 99 00 0C 0F DC 00 8F |URACION":.......|
000006E0: 20 20 20 50 52 49 4E 54 54 41 42 28 38 29 22 33 | PRINTTAB(8)"3|
000006F0: 2E 2D 20 43 55 45 4E 54 41 53 20 43 4F 52 52 49 |.- CUENTAS CORRI|
00000700: 45 4E 54 45 53 22 3A 50 52 49 4E 54 00 20 0F E1 |ENTES":PRINT. ..|
00000710: 00 99 A3 38 29 22 33 2E 2D 20 53 41 4C 49 44 41 |...8)"3.- SALIDA|
00000720: 00 35 0F E6 00 8D 20 31 35 30 3A 8F 20 52 45 43 |.5.... 150:. REC|
00000730: 55 41 44 52 4F 00 67 0F EB 00 99 C8 28 59 24 2C |UADRO.g.....(Y$,|
00000740: 32 33 29 3B 22 49 4E 47 52 45 53 45 20 55 4E 41 |23);"INGRESE UNA|
00000750: 20 44 45 20 4C 41 53 20 4F 50 43 49 4F 4E 45 53 | DE LAS OPCIONES|
00000760: 22 3B 3A 85 20 41 24 00 8D 0F ED 00 8B 20 41 24 |";:. A$...... A$|
00000770: B2 22 31 22 B0 41 24 B2 22 32 22 B0 41 24 B2 22 |."1".A$."2".A$."|
00000780: 33 22 A7 20 41 B2 C5 28 41 24 29 3A 8E 00 D9 0F |3". A..(A$):....|
00000790: 04 01 89 32 33 35 3A 8F 20 46 49 4E 20 53 55 42 |...235:. FIN SUB|
000007A0: 20 4D 45 4E 55 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | MENU***********|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 0F BE 01 52 45 |*********.....RE|
000007E0: 4E B2 52 45 4E AA 31 3A 89 34 33 35 35 00 3C 10 |N.REN.1:.4355.<.|
000007F0: F2 01 8F 20 43 4F 4D 49 45 4E 5A 41 20 53 55 42 |... COMIENZA SUB|
00000800: 20 53 54 4F 43 4B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | STOCK**********|
00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5E 10 F4 |************.^..|
00000840: 01 8D 20 39 30 30 3A 8F 20 53 55 42 20 4D 45 4E |.. 900:. SUB MEN|
00000850: 55 20 53 54 4F 43 4B 2B 2B 2B 2B 2B 2B 2B 00 95 |U STOCK+++++++..|
00000860: 10 F9 01 91 20 42 20 89 20 31 30 30 30 2C 20 31 |.... B . 1000, 1|
00000870: 33 30 30 2C 31 35 30 30 2C 31 38 30 30 2C 31 39 |300,1500,1800,19|
00000880: 35 30 3A 8F 20 43 55 49 44 41 44 4F 20 43 41 4D |50:. CUIDADO CAM|
00000890: 42 49 41 52 2B 00 9B 10 82 03 8F 00 EA 10 83 03 |BIAR+...........|
000008A0: 8F 20 43 4F 4D 49 45 4E 5A 41 20 53 55 42 20 4D |. COMIENZA SUB M|
000008B0: 45 4E 55 20 53 54 4F 43 4B 2A 2A 2A 2A 2A 2A 2A |ENU STOCK*******|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 18 11 84 03 99 |**********......|
000008F0: 22 93 11 11 11 11 11 11 22 3B A3 31 36 29 3B 22 |".......";.16);"|
00000900: 9B 53 54 4F 43 4B 22 3A 99 A3 31 36 29 22 2D 2D |.STOCK":..16)"--|
00000910: 2D 2D 2D 22 3A 99 3A 99 00 3F 11 89 03 99 A3 37 |---":.:..?.....7|
00000920: 29 22 31 2E 2D 20 41 4C 54 41 53 20 59 20 4D 4F |)"1.- ALTAS Y MO|
00000930: 44 49 46 49 43 41 43 49 4F 4E 45 53 22 3A 99 00 |DIFICACIONES":..|
00000940: 62 11 8E 03 99 A3 37 29 22 32 2E 2D 20 42 41 4A |b.....7)"2.- BAJ|
00000950: 41 53 20 44 45 20 41 52 54 49 43 55 4C 4F 53 22 |AS DE ARTICULOS"|
00000960: 3A 99 00 85 11 93 03 99 A3 37 29 22 33 2E 2D 20 |:........7)"3.- |
00000970: 43 41 4D 42 49 4F 53 20 44 45 20 50 52 45 43 49 |CAMBIOS DE PRECI|
00000980: 4F 53 22 3A 99 00 AA 11 98 03 99 A3 37 29 22 34 |OS":........7)"4|
00000990: 2E 2D 20 4C 49 53 54 41 44 4F 53 20 59 20 43 4F |.- LISTADOS Y CO|
000009A0: 4E 53 55 4C 54 41 53 22 3A 99 00 C7 11 9D 03 99 |NSULTAS":.......|
000009B0: A3 37 29 22 35 2E 2D 20 4D 45 4E 55 20 50 52 49 |.7)"5.- MENU PRI|
000009C0: 4E 43 49 50 41 4C 22 00 E9 11 A2 03 8D 20 31 35 |NCIPAL"...... 15|
000009D0: 30 3A 8F 20 53 55 42 20 52 45 43 55 41 44 52 4F |0:. SUB RECUADRO|
000009E0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 19 12 A7 03 99 C8 |+++++++++.......|
000009F0: 28 59 24 2C 32 34 29 3B 22 49 4E 47 52 45 53 45 |(Y$,24);"INGRESE|
00000A00: 20 4C 41 20 4F 50 43 49 4F 4E 20 45 4C 45 47 49 | LA OPCION ELEGI|
00000A10: 44 41 22 3B 3A 85 20 42 24 00 4C 12 AC 03 8B 20 |DA";:. B$.L.... |
00000A20: 42 24 B2 22 31 22 B0 42 24 B2 22 32 22 B0 42 24 |B$."1".B$."2".B$|
00000A30: B2 22 33 22 B0 42 24 B2 22 34 22 B0 42 24 B2 22 |."3".B$."4".B$."|
00000A40: 35 22 A7 42 B2 C5 28 42 24 29 3A 8E 00 98 12 B1 |5".B..(B$):.....|
00000A50: 03 89 39 33 35 3A 8F 20 46 49 4E 20 53 55 42 20 |..935:. FIN SUB |
00000A60: 4D 45 4E 55 20 53 54 4F 43 4B 2A 2A 2A 2A 2A 2A |MENU STOCK******|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 12 E7 03 8F 20 43 |********...... C|
00000AA0: 4F 4D 49 45 4E 5A 41 20 53 55 42 20 41 4C 54 41 |OMIENZA SUB ALTA|
00000AB0: 53 20 59 20 4D 4F 44 49 46 49 43 41 43 49 4F 4E |S Y MODIFICACION|
00000AC0: 45 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ES**************|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 00 10 13 E8 03 99 22 93 22 |*******......"."|
00000AF0: 3A 99 3B A3 37 29 22 41 4C 54 41 53 20 20 59 20 |:.;.7)"ALTAS Y |
00000B00: 20 4D 4F 44 49 46 49 43 41 43 49 4F 4E 45 53 22 | MODIFICACIONES"|
00000B10: 00 3E 13 E9 03 99 A3 37 29 22 2D 2D 2D 2D 2D 20 |.>.....7)"----- |
00000B20: 20 2D 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | - ------------|
00000B30: 2D 2D 22 3A 8B 42 41 B2 31 A7 31 30 30 33 00 5C |--":.BA.1.1003.\|
00000B40: 13 EA 03 8D 33 30 30 30 3A 42 41 B2 31 3A 8F 20 |....3000:BA.1:. |
00000B50: 41 55 54 4F 52 49 5A 41 43 49 4F 4E 00 88 13 EB |AUTORIZACION....|
00000B60: 03 99 C8 28 59 24 2C 32 33 29 3B 22 50 41 52 41 |...(Y$,23);"PARA|
00000B70: 20 56 4F 4C 56 45 52 20 41 4C 20 4D 45 4E 55 20 | VOLVER AL MENU |
00000B80: 54 49 50 45 45 20 30 22 00 B6 13 ED 03 99 20 C8 |TIPEE 0"...... .|
00000B90: 28 59 24 2C 37 29 3B 22 41 52 54 49 43 55 4C 4F |(Y$,7);"ARTICULO|
00000BA0: 20 28 31 2D 32 30 30 29 22 3B 3A 41 31 B2 39 39 | (1-200)";:A1.99|
00000BB0: 39 3A 85 20 41 31 00 D1 13 F2 03 8B 20 41 31 B3 |9:. A1...... A1.|
00000BC0: 30 20 B0 20 41 31 B1 32 30 30 20 A7 20 31 30 30 |0 . A1.200 . 100|
00000BD0: 35 00 E3 13 F7 03 8B 20 41 31 B3 B1 30 A7 20 31 |5...... A1..0. 1|
00000BE0: 30 32 30 00 F2 13 FA 03 42 41 B2 30 3A 89 20 35 |020.....BA.0:. 5|
00000BF0: 30 30 00 29 14 FC 03 99 C8 28 59 24 2C 32 33 29 |00.).....(Y$,23)|
00000C00: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C20: 20 20 20 20 20 20 20 20 22 00 34 14 FD 03 8D 20 | ".4.... |
00000C30: 31 32 30 30 00 47 14 01 04 8B 20 4E 4F 24 B2 22 |1200.G.... NO$."|
00000C40: 22 A7 20 31 30 36 30 00 6E 14 06 04 99 C8 28 59 |". 1060.n.....(Y|
00000C50: 24 2C 38 29 3B 22 31 2E 2D 20 44 45 53 43 52 49 |$,8);"1.- DESCRI|
00000C60: 50 43 49 4F 4E 3A 20 20 20 22 3B 4E 4F 24 00 95 |PCION: ";NO$..|
00000C70: 14 0B 04 99 C8 28 59 24 2C 39 29 3B 22 32 2E 2D |.....(Y$,9);"2.-|
00000C80: 20 53 54 4F 43 4B 20 41 43 54 55 41 4C 3A 20 20 | STOCK ACTUAL: |
00000C90: 22 3B 43 41 4E 00 BE 14 10 04 99 C8 28 59 24 2C |";CAN.......(Y$,|
00000CA0: 31 30 29 3B 22 33 2E 2D 20 53 54 4F 43 4B 20 4D |10);"3.- STOCK M|
00000CB0: 49 4E 49 4D 4F 3A 20 20 22 3B 43 4D 49 4E 00 E8 |INIMO: ";CMIN..|
00000CC0: 14 15 04 99 C8 28 59 24 2C 31 31 29 3B 22 34 2E |.....(Y$,11);"4.|
00000CD0: 2D 20 50 4F 52 43 45 4E 54 41 4A 45 20 49 56 41 |- PORCENTAJE IVA|
00000CE0: 3A 20 20 22 3B 49 56 41 00 15 15 1A 04 99 C8 28 |: ";IVA.......(|
00000CF0: 59 24 2C 31 32 29 3B 22 35 2E 2D 20 50 52 45 43 |Y$,12);"5.- PREC|
00000D00: 49 4F 20 4C 49 53 54 41 20 31 3A 20 20 22 3B 50 |IO LISTA 1: ";P|
00000D10: 52 45 28 31 29 00 49 15 1F 04 99 C8 28 59 24 2C |RE(1).I.....(Y$,|
00000D20: 31 33 29 3B 22 36 2E 2D 20 50 52 45 43 49 4F 20 |13);"6.- PRECIO |
00000D30: 4C 49 53 54 41 20 32 3A 20 20 22 3B 50 52 45 28 |LISTA 2: ";PRE(|
00000D40: 32 29 3A 89 20 31 31 35 30 00 81 15 24 04 99 C8 |2):. 1150...$...|
00000D50: 28 59 24 2C 38 29 3B 22 31 2E 2D 20 44 45 53 43 |(Y$,8);"1.- DESC|
00000D60: 52 49 50 43 49 4F 4E 3A 20 22 3B 3A 85 20 4E 4F |RIPCION: ";:. NO|
00000D70: 24 3A 20 8B 20 53 45 4E B2 31 20 A7 20 31 31 35 |$: . SEN.1 . 115|
00000D80: 30 00 AA 15 29 04 99 C8 28 59 24 2C 39 29 3B 22 |0...)...(Y$,9);"|
00000D90: 32 2E 2D 20 53 54 4F 43 4B 20 41 43 54 55 41 4C |2.- STOCK ACTUAL|
00000DA0: 3A 20 22 3B 3A 85 20 43 41 4E 00 C9 15 2E 04 8B |: ";:. CAN......|
00000DB0: 20 43 41 4E B3 30 20 B0 20 43 41 4E B1 39 39 39 | CAN.0 . CAN.999|
00000DC0: 39 39 20 A7 20 31 30 36 35 00 DC 15 33 04 8B 20 |99 . 1065...3.. |
00000DD0: 53 45 4E B2 31 20 A7 20 31 31 35 30 00 07 16 38 |SEN.1 . 1150...8|
00000DE0: 04 99 C8 28 59 24 2C 31 30 29 3B 22 33 2E 2D 20 |...(Y$,10);"3.- |
00000DF0: 53 54 4F 43 4B 20 4D 49 4E 49 4D 4F 3A 20 22 3B |STOCK MINIMO: ";|
00000E00: 3A 85 20 43 4D 49 4E 00 27 16 3C 04 8B 20 43 4D |:. CMIN.'.<.. CM|
00000E10: 49 4E B3 30 20 B0 20 43 4D 49 4E B1 39 39 39 39 |IN.0 . CMIN.9999|
00000E20: 20 A7 20 31 30 38 30 00 3A 16 3E 04 8B 20 53 45 | . 1080.:.>.. SE|
00000E30: 4E B2 31 20 A7 20 31 31 35 30 00 66 16 42 04 99 |N.1 . 1150.f.B..|
00000E40: C8 28 59 24 2C 31 31 29 3B 22 34 2E 2D 20 50 4F |.(Y$,11);"4.- PO|
00000E50: 52 43 45 4E 54 41 4A 45 20 49 56 41 3A 20 22 3B |RCENTAJE IVA: ";|
00000E60: 3A 85 20 49 56 41 00 82 16 46 04 8B 20 49 56 41 |:. IVA...F.. IVA|
00000E70: B3 30 20 B0 20 49 56 41 B1 34 30 20 A7 20 31 30 |.0 . IVA.40 . 10|
00000E80: 39 30 00 95 16 48 04 8B 20 53 45 4E B2 31 20 A7 |90...H.. SEN.1 .|
00000E90: 20 31 31 35 30 00 C4 16 4C 04 99 C8 28 59 24 2C | 1150...L...(Y$,|
00000EA0: 31 32 29 3B 22 35 2E 2D 20 50 52 45 43 49 4F 20 |12);"5.- PRECIO |
00000EB0: 4C 49 53 54 41 20 31 3A 20 22 3B 3A 85 20 50 52 |LISTA 1: ";:. PR|
00000EC0: 45 28 31 29 00 EA 16 50 04 8B 20 50 52 45 28 31 |E(1)...P.. PRE(1|
00000ED0: 29 B3 30 20 B0 20 50 52 45 28 31 29 B1 39 39 39 |).0 . PRE(1).999|
00000EE0: 39 39 39 20 A7 20 31 31 30 30 00 FD 16 52 04 8B |999 . 1100...R..|
00000EF0: 20 53 45 4E B2 31 20 A7 20 31 31 35 30 00 2C 17 | SEN.1 . 1150.,.|
00000F00: 56 04 99 C8 28 59 24 2C 31 33 29 3B 22 36 2E 2D |V...(Y$,13);"6.-|
00000F10: 20 50 52 45 43 49 4F 20 4C 49 53 54 41 20 32 3A | PRECIO LISTA 2:|
00000F20: 20 22 3B 3A 85 20 50 52 45 28 32 29 00 52 17 5A | ";:. PRE(2).R.Z|
00000F30: 04 8B 20 50 52 45 28 32 29 B3 30 20 B0 20 50 52 |.. PRE(2).0 . PR|
00000F40: 45 28 32 29 B1 39 39 39 39 39 39 20 A7 20 31 31 |E(2).999999 . 11|
00000F50: 31 30 00 65 17 5C 04 8B 20 53 45 4E B2 31 20 A7 |10.e.\.. SEN.1 .|
00000F60: 20 31 31 35 30 00 A6 17 7E 04 99 C8 28 59 24 2C | 1150...~...(Y$,|
00000F70: 32 33 29 3B 22 44 45 53 45 41 20 4D 4F 44 49 46 |23);"DESEA MODIF|
00000F80: 49 43 41 52 20 41 4C 47 55 4E 20 43 41 4D 50 4F |ICAR ALGUN CAMPO|
00000F90: 20 28 53 2F 4E 29 3A 20 3F 22 3B 3A A1 20 51 24 | (S/N): ?";:. Q$|
00000FA0: 3A 53 45 4E B2 30 00 C1 17 83 04 8B 20 51 24 B2 |:SEN.0...... Q$.|
00000FB0: 22 4E 22 20 A7 20 8D 31 32 35 30 3A 89 31 30 30 |"N" . .1250:.100|
00000FC0: 30 00 D6 17 88 04 8B 20 51 24 B3 B1 22 53 22 20 |0...... Q$.."S" |
00000FD0: A7 20 31 31 35 30 00 0D 18 8A 04 99 C8 28 59 24 |. 1150.......(Y$|
00000FE0: 2C 32 33 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,23);" |
00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001000: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 4A 18 | ".J.|
00001010: 8D 04 99 C8 28 59 24 2C 32 33 29 3B 22 54 49 50 |....(Y$,23);"TIP|
00001020: 45 45 20 4E 52 4F 2E 20 44 45 4C 20 43 41 4D 50 |EE NRO. DEL CAMP|
00001030: 4F 20 41 20 4D 4F 44 49 46 49 43 41 52 22 3B 3A |O A MODIFICAR";:|
00001040: 85 20 51 24 3A 53 45 4E B2 31 00 88 18 92 04 8B |. Q$:SEN.1......|
00001050: 20 51 24 B2 22 31 22 B0 51 24 B2 22 32 22 B0 51 | Q$."1".Q$."2".Q|
00001060: 24 B2 22 33 22 B0 51 24 B2 22 34 22 B0 51 24 B2 |$."3".Q$."4".Q$.|
00001070: 22 35 22 B0 51 24 B2 22 36 22 A7 51 B2 C5 28 51 |"5".Q$."6".Q..(Q|
00001080: 24 29 3A 89 31 31 37 35 00 92 18 94 04 89 31 31 |$):.1175......11|
00001090: 36 35 00 BA 18 97 04 91 20 51 20 89 20 31 30 36 |65...... Q . 106|
000010A0: 30 2C 31 30 36 35 2C 31 30 38 30 2C 31 30 39 30 |0,1065,1080,1090|
000010B0: 2C 31 31 30 30 2C 31 31 31 30 00 08 19 AF 04 8F |,1100,1110......|
000010C0: 20 43 4F 4D 49 45 4E 5A 41 20 53 55 42 20 43 4F | COMIENZA SUB CO|
000010D0: 4E 56 45 52 53 49 4F 4E 20 41 20 4E 55 4D 45 52 |NVERSION A NUMER|
000010E0: 4F 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |OS**************|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001100: 2A 2A 2A 2A 2A 2A 2A 2A 00 39 19 B0 04 43 41 4E |********.9...CAN|
00001110: B2 C5 28 CA 28 52 45 24 28 41 31 29 2C 31 2C 35 |..(.(RE$(A1),1,5|
00001120: 29 29 3A 43 4D 49 4E B2 C5 28 CA 28 52 45 24 28 |)):CMIN..(.(RE$(|
00001130: 41 31 29 2C 36 2C 34 29 29 00 71 19 B5 04 50 52 |A1),6,4)).q...PR|
00001140: 45 28 31 29 B2 C5 28 CA 28 52 45 24 28 41 31 29 |E(1)..(.(RE$(A1)|
00001150: 2C 31 30 2C 36 29 29 3A 50 52 45 28 32 29 B2 C5 |,10,6)):PRE(2)..|
00001160: 28 CA 28 52 45 24 28 41 31 29 2C 31 36 2C 36 29 |(.(RE$(A1),16,6)|
00001170: 29 00 A1 19 BA 04 49 56 41 B2 C5 28 CA 28 52 45 |).....IVA..(.(RE|
00001180: 24 28 41 31 29 2C 32 32 2C 32 29 29 3A 4E 4F 24 |$(A1),22,2)):NO$|
00001190: B2 CA 28 52 45 24 28 41 31 29 2C 32 34 2C 31 34 |..(RE$(A1),24,14|
000011A0: 29 00 EA 19 C4 04 8E 3A 8F 20 46 49 4E 20 53 55 |)......:. FIN SU|
000011B0: 42 20 43 4F 4E 56 45 52 53 49 4F 4E 20 41 20 4E |B CONVERSION A N|
000011C0: 55 4D 45 52 4F 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |UMEROS**********|
000011D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 38 1A E1 04 8F |**********.8....|
000011F0: 20 43 4F 4D 49 45 4E 5A 41 20 53 55 42 20 43 4F | COMIENZA SUB CO|
00001200: 4E 56 45 52 53 49 4F 4E 20 41 20 43 41 44 45 4E |NVERSION A CADEN|
00001210: 41 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |A***************|
00001220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001230: 2A 2A 2A 2A 2A 2A 2A 2A 00 71 1A E2 04 43 41 4E |********.q...CAN|
00001240: 24 B2 CA 28 C4 28 43 41 4E AA 31 30 30 30 30 30 |$..(.(CAN.100000|
00001250: 29 2C 33 2C 35 29 3A 43 4D 49 4E 24 B2 CA 28 C4 |),3,5):CMIN$..(.|
00001260: 28 43 4D 49 4E AA 31 30 30 30 30 29 2C 33 2C 34 |(CMIN.10000),3,4|
00001270: 29 00 AF 1A E7 04 50 31 24 B2 CA 28 C4 28 50 52 |).....P1$..(.(PR|
00001280: 45 28 31 29 AA 31 30 30 30 30 30 30 29 2C 33 2C |E(1).1000000),3,|
00001290: 36 29 3A 50 32 24 B2 CA 28 C4 28 50 52 45 28 32 |6):P2$..(.(PRE(2|
000012A0: 29 AA 31 30 30 30 30 30 30 29 2C 33 2C 36 29 00 |).1000000),3,6).|
000012B0: CA 1A EC 04 49 56 41 24 B2 CA 28 C4 28 49 56 41 |....IVA$..(.(IVA|
000012C0: AA 31 30 30 29 2C 33 2C 32 29 00 F2 1A F1 04 52 |.100),3,2).....R|
000012D0: 45 24 28 41 31 29 B2 43 41 4E 24 AA 43 4D 49 4E |E$(A1).CAN$.CMIN|
000012E0: 24 AA 50 31 24 AA 50 32 24 AA 49 56 41 24 AA 4E |$.P1$.P2$.IVA$.N|
000012F0: 4F 24 00 3B 1B FB 04 8E 3A 20 8F 20 46 49 4E 20 |O$.;....: . FIN |
00001300: 53 55 42 20 43 4F 4E 56 45 52 53 49 4F 4E 20 41 |SUB CONVERSION A|
00001310: 20 43 41 44 45 4E 41 53 2A 2A 2A 2A 2A 2A 2A 2A | CADENAS********|
00001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 1B 11 05 |***********.A...|
00001340: 8F 00 8F 1B 12 05 8F 20 43 4F 4D 49 45 4E 5A 41 |....... COMIENZA|
00001350: 20 53 55 42 20 42 41 4A 41 53 20 44 45 20 41 52 | SUB BAJAS DE AR|
00001360: 54 49 43 55 4C 4F 53 2A 2A 2A 2A 2A 2A 2A 2A 2A |TICULOS*********|
00001370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001390: B9 1B 14 05 99 22 93 11 20 20 20 20 20 20 20 20 |.....".. |
000013A0: 20 20 20 12 20 42 41 4A 41 53 20 44 45 20 41 52 | . BAJAS DE AR|
000013B0: 54 49 43 55 4C 4F 53 20 22 00 D2 1B 19 05 8D 33 |TICULOS "......3|
000013C0: 30 30 30 3A 8F 20 41 55 54 4F 52 49 5A 41 43 49 |000:. AUTORIZACI|
000013D0: 4F 4E 00 09 1C 2A 05 99 C8 28 59 24 2C 31 33 29 |ON...*...(Y$,13)|
000013E0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
000013F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001400: 20 20 20 20 20 20 20 20 22 00 40 1C 2B 05 99 C8 | ".@.+...|
00001410: 28 59 24 2C 31 35 29 3B 22 20 20 20 20 20 20 20 |(Y$,15);" |
00001420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001440: 00 76 1C 2C 05 99 C8 28 59 24 2C 31 38 29 3B 22 |.v.,...(Y$,18);"|
00001450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001470: 20 20 20 20 20 22 00 AB 1C 2D 05 99 C8 28 59 24 | "...-...(Y$|
00001480: 2C 32 33 29 3B 22 49 4E 47 52 45 53 45 20 30 20 |,23);"INGRESE 0 |
00001490: 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C 20 4D |PARA VOLVER AL M|
000014A0: 45 4E 55 22 3A 45 32 24 B2 22 22 00 E6 1C 32 05 |ENU":E2$.""...2.|
000014B0: 99 C8 28 59 24 2C 31 33 29 3B 22 4E 55 4D 45 52 |..(Y$,13);"NUMER|
000014C0: 4F 20 44 45 20 41 52 54 49 43 55 4C 4F 20 28 31 |O DE ARTICULO (1|
000014D0: 2D 32 30 30 29 22 3B 3A 85 20 41 31 3A 8B 41 31 |-200)";:. A1:.A1|
000014E0: B2 30 A7 35 30 30 00 01 1D 37 05 8B 20 41 31 B3 |.0.500...7.. A1.|
000014F0: 30 20 B0 20 41 31 B1 32 30 30 20 A7 20 31 33 33 |0 . A1.200 . 133|
00001500: 30 00 0C 1D 3C 05 8D 20 31 32 30 30 00 1F 1D 41 |0...<.. 1200...A|
00001510: 05 8B 4E 4F 24 B3 B1 22 22 A7 20 31 33 35 35 00 |..NO$.."". 1355.|
00001520: 56 1D 46 05 99 C8 28 59 24 2C 31 35 29 3B 22 41 |V.F...(Y$,15);"A|
00001530: 52 54 49 43 55 4C 4F 20 49 4E 45 58 49 53 54 45 |RTICULO INEXISTE|
00001540: 4E 54 45 22 3A 81 4A B2 31 A4 33 38 30 3A 82 4A |NTE":.J.1.380:.J|
00001550: 3A 89 31 33 32 32 00 78 1D 4B 05 99 C8 28 59 24 |:.1322.x.K...(Y$|
00001560: 2C 31 35 29 3B 22 44 45 53 43 52 49 50 43 49 4F |,15);"DESCRIPCIO|
00001570: 4E 3A 20 22 3B 4E 4F 24 00 B2 1D 50 05 99 C8 28 |N: ";NO$...P...(|
00001580: 59 24 2C 31 38 29 3B 22 45 53 54 41 20 53 45 47 |Y$,18);"ESTA SEG|
00001590: 55 52 4F 20 44 45 20 44 41 52 4C 4F 20 44 45 20 |URO DE DARLO DE |
000015A0: 42 41 4A 41 20 28 53 2F 4E 29 3F 22 3B 3A A1 20 |BAJA (S/N)?";:. |
000015B0: 57 24 00 C6 1D 55 05 8B 20 57 24 B2 22 4E 22 20 |W$...U.. W$."N" |
000015C0: A7 20 31 33 32 32 00 DB 1D 5A 05 8B 20 57 24 B3 |. 1322...Z.. W$.|
000015D0: B1 22 53 22 20 A7 20 31 33 36 30 00 28 1E 5F 05 |."S" . 1360.(._.|
000015E0: 43 41 4E B2 30 3A 43 4D 49 4E B2 30 3A 49 56 41 |CAN.0:CMIN.0:IVA|
000015F0: B2 30 3A 50 52 45 28 31 29 B2 30 3A 50 52 45 28 |.0:PRE(1).0:PRE(|
00001600: 32 29 B2 30 3A 4E 4F 24 B2 22 22 3A 8F 20 44 41 |2).0:NO$."":. DA|
00001610: 20 44 45 20 42 41 4A 41 2B 2B 2B 2B 2B 2B 2B 2B | DE BAJA++++++++|
00001620: 2B 2B 2B 2B 2B 2B 2B 2B 00 33 1E 62 05 8D 20 31 |++++++++.3.b.. 1|
00001630: 32 35 30 00 7A 1E 63 05 56 56 B2 32 31 32 AC 32 |250.z.c.VV.212.2|
00001640: 35 36 3A 97 56 56 AA 32 34 2C 31 35 3A 97 56 56 |56:.VV.24,15:.VV|
00001650: 2C 30 3A 8F 20 43 52 45 4F 20 53 4F 4E 49 44 4F |,0:. CREO SONIDO|
00001660: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00001670: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 A0 1E 64 05 97 |++++++++++...d..|
00001680: 56 56 AA 31 2C 38 30 3A 97 56 56 AA 35 2C 39 3A |VV.1,80:.VV.5,9:|
00001690: 97 56 56 AA 34 2C 30 3A 97 56 56 AA 34 2C 33 33 |.VV.4,0:.VV.4,33|
000016A0: 00 D6 1E 68 05 99 C8 28 59 24 2C 31 38 29 3B 22 |...h...(Y$,18);"|
000016B0: 12 20 20 20 20 20 20 20 20 20 20 20 42 41 4A 41 |. BAJA|
000016C0: 20 45 46 45 43 54 55 41 44 41 20 20 20 20 20 20 | EFECTUADA |
000016D0: 20 20 20 20 20 22 00 ED 1E 69 05 81 4A B2 31 A4 | "...i..J.1.|
000016E0: 38 30 30 3A 82 4A 3A 89 20 31 33 32 32 00 F3 1E |800:.J:. 1322...|
000016F0: 6E 05 8F 00 41 1F 6F 05 8F 20 46 49 4E 20 53 55 |n...A.o.. FIN SU|
00001700: 42 20 42 41 4A 41 53 20 44 45 20 41 52 54 49 43 |B BAJAS DE ARTIC|
00001710: 55 4C 4F 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ULOS************|
00001720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001740: 2A 00 47 1F D9 05 8F 00 96 1F DA 05 8F 20 43 4F |*.G.......... CO|
00001750: 4D 49 45 4E 5A 41 20 53 55 42 20 43 41 4D 42 49 |MIENZA SUB CAMBI|
00001760: 4F 20 44 45 20 50 52 45 43 49 4F 53 2A 2A 2A 2A |O DE PRECIOS****|
00001770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001790: 2A 2A 2A 2A 2A 2A 00 CB 1F DC 05 99 22 93 22 3A |******......".":|
000017A0: 99 22 20 20 20 20 20 20 20 20 20 12 20 43 41 4D |." . CAM|
000017B0: 42 49 4F 20 44 45 20 50 52 45 43 49 4F 53 20 22 |BIO DE PRECIOS "|
000017C0: 3A 8B 42 41 B2 31 A7 31 35 30 35 00 E9 1F DE 05 |:.BA.1.1505.....|
000017D0: 8D 33 30 30 30 3A 42 41 B2 31 3A 8F 20 41 55 54 |.3000:BA.1:. AUT|
000017E0: 4F 52 49 5A 41 43 49 4F 4E 00 1E 20 E1 05 99 C8 |ORIZACION.. ....|
000017F0: 28 59 24 2C 32 33 29 3B 22 54 49 50 45 45 20 30 |(Y$,23);"TIPEE 0|
00001800: 20 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C 20 | PARA VOLVER AL |
00001810: 4D 45 4E 55 20 44 45 20 53 54 4F 43 4B 22 00 4B |MENU DE STOCK".K|
00001820: 20 E6 05 99 C8 28 59 24 2C 37 29 3B 22 20 31 2E | ....(Y$,7);" 1.|
00001830: 2D 20 43 41 4D 42 49 4F 20 44 45 20 50 52 45 43 |- CAMBIO DE PREC|
00001840: 49 4F 20 44 49 52 45 43 54 4F 22 00 7B 20 EB 05 |IO DIRECTO".{ ..|
00001850: 99 C8 28 59 24 2C 39 29 3B 22 20 32 2E 2D 20 43 |..(Y$,9);" 2.- C|
00001860: 41 4D 42 49 4F 20 44 45 20 50 52 45 43 49 4F 20 |AMBIO DE PRECIO |
00001870: 50 4F 52 43 45 4E 54 55 41 4C 22 00 AA 20 F0 05 |PORCENTUAL".. ..|
00001880: 99 C8 28 59 24 2C 31 35 29 3B 22 20 54 49 50 45 |..(Y$,15);" TIPE|
00001890: 45 20 4C 41 20 4F 50 43 49 4F 4E 20 45 4C 45 47 |E LA OPCION ELEG|
000018A0: 49 44 41 22 3B 3A 85 20 57 24 00 C2 20 F2 05 8B |IDA";:. W$.. ...|
000018B0: 20 57 24 B2 22 30 22 A7 20 42 41 B2 30 3A 89 35 | W$."0". BA.0:.5|
000018C0: 30 30 00 E4 20 F5 05 8B 20 57 24 B2 22 31 22 20 |00.. ... W$."1" |
000018D0: A7 53 31 24 B2 22 44 49 52 45 43 54 4F 22 3A 89 |.S1$."DIRECTO":.|
000018E0: 31 35 34 30 00 0B 21 FA 05 8B 20 57 24 B2 22 32 |1540..!... W$."2|
000018F0: 22 20 A7 20 53 31 24 B2 22 50 4F 52 43 45 4E 54 |" . S1$."PORCENT|
00001900: 55 41 4C 22 3A 20 89 31 35 34 30 00 15 21 FF 05 |UAL": .1540..!..|
00001910: 89 31 35 32 30 00 4C 21 04 06 99 C8 28 59 24 2C |.1520.L!....(Y$,|
00001920: 32 33 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |23);" |
00001930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001940: 20 20 20 20 20 20 20 20 20 20 20 22 00 7B 21 09 | ".{!.|
00001950: 06 99 C8 28 59 24 2C 37 29 3B 22 20 31 2E 2D 20 |...(Y$,7);" 1.- |
00001960: 4C 49 53 54 41 20 44 45 20 50 52 45 43 49 4F 53 |LISTA DE PRECIOS|
00001970: 20 4E 52 4F 2E 31 20 20 20 20 22 00 B0 21 0E 06 | NRO.1 "..!..|
00001980: 99 C8 28 59 24 2C 39 29 3B 22 20 32 2E 2D 20 4C |..(Y$,9);" 2.- L|
00001990: 49 53 54 41 20 44 45 20 50 52 45 43 49 4F 53 20 |ISTA DE PRECIOS |
000019A0: 4E 52 4F 2E 32 20 20 20 20 20 20 20 20 20 20 22 |NRO.2 "|
000019B0: 00 E0 21 18 06 99 C8 28 59 24 2C 31 35 29 3B 22 |..!....(Y$,15);"|
000019C0: 20 49 4E 47 52 45 53 45 20 4C 41 20 4F 50 43 49 | INGRESE LA OPCI|
000019D0: 4F 4E 20 45 4C 45 47 49 44 41 22 3B 3A 85 45 24 |ON ELEGIDA";:.E$|
000019E0: 00 F9 21 1B 06 8B 20 45 24 B2 22 31 22 A7 20 53 |..!... E$."1". S|
000019F0: 32 B2 31 3A 89 31 35 37 30 00 11 22 1C 06 8B 45 |2.1:.1570.."...E|
00001A00: 24 B2 22 32 22 A7 20 53 32 B2 32 3A 89 31 35 37 |$."2". S2.2:.157|
00001A10: 30 00 1B 22 1F 06 89 31 35 36 30 00 51 22 22 06 |0.."...1560.Q"".|
00001A20: 99 C8 28 59 24 2C 37 29 3B 22 20 20 20 20 20 20 |..(Y$,7);" |
00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A50: 22 00 87 22 23 06 99 C8 28 59 24 2C 39 29 3B 22 |".."#...(Y$,9);"|
00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A80: 20 20 20 20 20 20 22 00 BE 22 24 06 99 C8 28 59 | ".."$...(Y|
00001A90: 24 2C 31 35 29 3B 22 20 20 20 20 20 20 20 20 20 |$,15);" |
00001AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F3 | "..|
00001AC0: 22 27 06 99 C8 28 59 24 2C 39 29 3B 22 44 45 4C |"'...(Y$,9);"DEL|
00001AD0: 20 41 52 54 2E 4E 52 4F 2E 22 3B 3A 85 20 4A 31 | ART.NRO.";:. J1|
00001AE0: 3A 8B 20 4A 31 B3 31 B0 4A 31 B1 32 30 30 A7 31 |:. J1.1.J1.200.1|
00001AF0: 35 37 35 00 1E 23 2C 06 99 C8 28 59 24 2C 39 29 |575..#,...(Y$,9)|
00001B00: 3B C8 28 58 24 2C 31 38 29 3B 22 48 41 53 54 41 |;.(X$,18);"HASTA|
00001B10: 20 45 4C 20 4E 52 4F 2E 22 3B 3A 85 4A 32 00 36 | EL NRO.";:.J2.6|
00001B20: 23 2E 06 8B 4A 32 B3 4A 31 B0 4A 32 B1 32 30 30 |#...J2.J1.J2.200|
00001B30: A7 20 31 35 38 30 00 6C 23 31 06 99 C8 28 59 24 |. 1580.l#1...(Y$|
00001B40: 2C 37 29 3B 22 20 31 2E 2D 20 49 4E 43 52 45 4D |,7);" 1.- INCREM|
00001B50: 45 4E 54 4F 20 44 45 20 50 52 45 43 49 4F 20 20 |ENTO DE PRECIO |
00001B60: 20 20 20 20 20 20 20 20 20 20 20 22 00 A2 23 36 | "..#6|
00001B70: 06 99 C8 28 59 24 2C 39 29 3B 22 20 32 2E 2D 20 |...(Y$,9);" 2.- |
00001B80: 44 45 43 52 45 4D 45 4E 54 4F 20 44 45 20 50 52 |DECREMENTO DE PR|
00001B90: 45 43 49 4F 20 20 20 20 20 20 20 20 20 20 20 20 |ECIO |
00001BA0: 20 22 00 D0 23 3B 06 99 C8 28 59 24 2C 31 35 29 | "..#;...(Y$,15)|
00001BB0: 3B 22 54 49 50 45 45 20 4C 41 20 4F 50 43 49 4F |;"TIPEE LA OPCIO|
00001BC0: 4E 20 45 4C 45 47 49 44 41 22 3B 3A 85 20 49 24 |N ELEGIDA";:. I$|
00001BD0: 00 F6 23 3D 06 8B 49 24 B2 22 31 22 A7 20 53 33 |..#=..I$."1". S3|
00001BE0: 24 B2 22 49 4E 43 52 45 4D 45 4E 54 4F 20 22 3A |$."INCREMENTO ":|
00001BF0: 89 20 31 36 30 35 00 1C 24 3E 06 8B 20 49 24 B2 |. 1605..$>.. I$.|
00001C00: 22 32 22 A7 20 53 33 24 B2 22 44 45 43 52 45 4D |"2". S3$."DECREM|
00001C10: 45 4E 54 4F 20 22 3A 89 31 36 30 35 00 26 24 40 |ENTO ":.1605.&$@|
00001C20: 06 89 31 35 39 35 00 50 24 45 06 99 22 93 22 3A |..1595.P$E..".":|
00001C30: 99 22 20 20 20 20 20 20 20 20 20 12 20 43 41 4D |." . CAM|
00001C40: 42 49 4F 20 44 45 20 50 52 45 43 49 4F 53 20 22 |BIO DE PRECIOS "|
00001C50: 00 63 24 47 06 8B 20 57 24 B2 22 32 22 A7 20 31 |.c$G.. W$."2". 1|
00001C60: 36 31 31 00 9C 24 4A 06 99 C8 28 59 24 2C 31 31 |611..$J...(Y$,11|
00001C70: 29 3B 22 43 41 4E 54 49 44 41 44 20 44 45 4C 20 |);"CANTIDAD DEL |
00001C80: 22 3B 53 33 24 3B 22 28 36 4E 29 3A 20 24 41 22 |";S3$;"(6N): $A"|
00001C90: 3B 3A 85 20 53 34 3A 89 31 36 31 34 00 CE 24 4B |;:. S4:.1614..$K|
00001CA0: 06 99 C8 28 59 24 2C 31 31 29 3B 22 43 41 4E 54 |...(Y$,11);"CANT|
00001CB0: 49 44 41 44 20 44 45 4C 20 22 3B 53 33 24 3B 22 |IDAD DEL ";S3$;"|
00001CC0: 28 33 4E 29 3A 20 25 22 3B 3A 85 20 53 34 00 EA |(3N): %";:. S4..|
00001CD0: 24 4C 06 8B 20 53 34 B3 30 B0 53 34 B1 39 39 39 |$L.. S4.0.S4.999|
00001CE0: 39 39 39 20 A7 20 31 36 31 30 00 06 25 4E 06 8B |999 . 1610..%N..|
00001CF0: 20 53 34 B3 30 B0 53 34 B1 39 39 39 39 39 39 20 | S4.0.S4.999999 |
00001D00: A7 20 31 36 31 30 00 2B 25 4F 06 99 C8 28 59 24 |. 1610.+%O...(Y$|
00001D10: 2C 37 29 3B 22 43 41 4D 42 49 4F 20 44 45 20 50 |,7);"CAMBIO DE P|
00001D20: 52 45 43 49 4F 20 22 3B 53 31 24 00 61 25 54 06 |RECIO ";S1$.a%T.|
00001D30: 99 C8 28 59 24 2C 39 29 3B 22 4C 49 53 54 41 20 |..(Y$,9);"LISTA |
00001D40: 44 45 20 50 52 45 43 49 4F 53 20 4E 52 4F 2E 22 |DE PRECIOS NRO."|
00001D50: 3B 53 32 3B 22 20 20 20 20 20 20 20 20 20 20 20 |;S2;" |
00001D60: 22 00 98 25 56 06 99 C8 28 59 24 2C 31 31 29 3B |"..%V...(Y$,11);|
00001D70: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D90: 20 20 20 20 20 20 20 22 00 CC 25 59 06 99 C8 28 | "..%Y...(|
00001DA0: 59 24 2C 31 31 29 3B 22 44 45 4C 20 41 52 54 2E |Y$,11);"DEL ART.|
00001DB0: 20 4E 52 4F 2E 22 3B 4A 31 3B 22 48 41 53 54 41 | NRO.";J1;"HASTA|
00001DC0: 20 45 4C 20 4E 52 4F 2E 22 3B 4A 32 00 EA 25 5E | EL NRO.";J2..%^|
00001DD0: 06 99 C8 28 59 24 2C 31 33 29 3B 53 33 24 3B 22 |...(Y$,13);S3$;"|
00001DE0: 44 45 20 50 52 45 43 49 4F 22 00 FE 25 60 06 8B |DE PRECIO"..%`..|
00001DF0: 20 57 24 B2 22 32 22 20 A7 20 31 36 33 37 00 2F | W$."2" . 1637./|
00001E00: 26 63 06 99 C8 28 59 24 2C 31 35 29 3B 22 43 41 |&c...(Y$,15);"CA|
00001E10: 4E 54 49 44 41 44 20 44 45 4C 20 22 3B 53 33 24 |NTIDAD DEL ";S3$|
00001E20: 3B 22 24 41 22 3B 53 34 3A 89 20 31 36 34 30 00 |;"$A";S4:. 1640.|
00001E30: 58 26 65 06 99 C8 28 59 24 2C 31 35 29 3B 22 43 |X&e...(Y$,15);"C|
00001E40: 41 4E 54 49 44 41 44 20 44 45 4C 20 22 3B 53 33 |ANTIDAD DEL ";S3|
00001E50: 24 3B 53 34 3B 22 25 22 00 94 26 68 06 99 C8 28 |$;S4;"%"..&h...(|
00001E60: 59 24 2C 32 31 29 3B 22 45 53 54 41 20 54 4F 44 |Y$,21);"ESTA TOD|
00001E70: 4F 20 43 4F 52 52 45 43 54 4F 20 28 53 2F 4E 29 |O CORRECTO (S/N)|
00001E80: 22 3B 3A 85 20 55 24 3A 8B 55 24 B2 22 4E 22 A7 |";:. U$:.U$."N".|
00001E90: 31 35 30 30 00 A9 26 6D 06 8B 20 55 24 B3 B1 22 |1500..&m.. U$.."|
00001EA0: 53 22 20 A7 20 31 36 34 30 00 DB 26 6F 06 99 C8 |S" . 1640..&o...|
00001EB0: 28 59 24 2C 31 38 29 3B 22 20 20 20 9E 45 53 50 |(Y$,18);" .ESP|
00001EC0: 45 52 45 20 55 4E 20 4D 4F 4D 45 4E 54 4F 2C 20 |ERE UN MOMENTO, |
00001ED0: 50 4F 52 20 46 41 56 4F 52 9A 22 00 EE 26 72 06 |POR FAVOR."..&r.|
00001EE0: 8B 20 57 24 B2 22 32 22 A7 20 31 36 39 30 00 14 |. W$."2". 1690..|
00001EF0: 27 77 06 81 20 41 31 B2 4A 31 20 A4 4A 32 3A 8D |'w.. A1.J1 .J2:.|
00001F00: 20 31 32 30 30 3A 8B 20 49 24 B2 22 32 22 A7 20 | 1200:. I$."2". |
00001F10: 31 36 37 30 00 31 27 7C 06 50 52 45 28 53 32 29 |1670.1'|.PRE(S2)|
00001F20: B2 50 52 45 28 53 32 29 AA 53 34 3A 89 31 36 37 |.PRE(S2).S4:.167|
00001F30: 35 00 4F 27 81 06 50 52 45 28 53 32 29 B2 50 52 |5.O'..PRE(S2).PR|
00001F40: 45 28 53 32 29 AA 53 34 3A 8D 20 31 32 35 30 00 |E(S2).S4:. 1250.|
00001F50: 66 27 86 06 50 52 45 28 53 32 29 B2 50 52 45 28 |f'..PRE(S2).PRE(|
00001F60: 53 32 29 AB 53 34 00 71 27 8B 06 8D 20 31 32 35 |S2).S4.q'... 125|
00001F70: 30 00 7A 27 90 06 82 20 41 31 00 85 27 95 06 89 |0.z'... A1..'...|
00001F80: 20 31 37 31 32 00 AC 27 9A 06 81 20 41 31 B2 4A | 1712..'... A1.J|
00001F90: 31 20 A4 20 4A 32 3A 8D 20 31 32 30 30 3A 8B 20 |1 . J2:. 1200:. |
00001FA0: 49 24 B2 22 32 22 A7 20 31 37 30 30 00 D8 27 9F |I$."2". 1700..'.|
00001FB0: 06 50 52 45 28 53 32 29 B2 50 52 45 28 53 32 29 |.PRE(S2).PRE(S2)|
00001FC0: AA 28 50 52 45 28 53 32 29 AC 53 34 AD 31 30 30 |.(PRE(S2).S4.100|
00001FD0: 29 3A 89 20 31 37 30 35 00 FD 27 A4 06 50 52 45 |):. 1705..'..PRE|
00001FE0: 28 53 32 29 B2 50 52 45 28 53 32 29 AB 28 50 52 |(S2).PRE(S2).(PR|
00001FF0: 45 28 53 32 29 AC 53 34 AD 31 30 30 29 00 08 28 |E(S2).S4.100)..(|
00002000: A9 06 8D 20 31 32 35 30 00 10 28 AE 06 82 41 31 |... 1250..(...A1|
00002010: 00 40 28 B0 06 56 56 B2 32 31 32 AC 32 35 36 3A |.@(..VV.212.256:|
00002020: 97 56 56 AA 32 34 2C 31 35 3A 97 56 56 2C 30 3A |.VV.24,15:.VV,0:|
00002030: 97 56 56 AA 31 2C 38 30 3A 97 56 56 AA 35 2C 39 |.VV.1,80:.VV.5,9|
00002040: 00 55 28 B1 06 97 56 56 AA 34 2C 30 3A 97 56 56 |.U(...VV.4,0:.VV|
00002050: AA 34 2C 33 33 00 8C 28 B3 06 99 C8 28 59 24 2C |.4,33..(....(Y$,|
00002060: 31 38 29 3B 22 12 20 20 20 20 20 20 4D 4F 44 49 |18);". MODI|
00002070: 46 49 43 41 43 49 4F 4E 20 52 45 41 4C 49 5A 41 |FICACION REALIZA|
00002080: 44 41 20 20 20 20 20 20 20 20 20 22 00 9E 28 B8 |DA "..(.|
00002090: 06 81 4A B2 31 20 A4 31 30 30 30 3A 82 4A 00 A9 |..J.1 .1000:.J..|
000020A0: 28 BD 06 89 20 31 35 30 30 00 AF 28 05 07 8F 00 |(... 1500..(....|
000020B0: FD 28 06 07 8F 20 43 4F 4D 49 45 4E 5A 41 20 53 |.(... COMIENZA S|
000020C0: 55 42 20 4C 49 53 54 41 44 4F 53 20 59 20 43 4F |UB LISTADOS Y CO|
000020D0: 4E 53 55 4C 54 41 53 2A 2A 2A 2A 2A 2A 2A 2A 2A |NSULTAS*********|
000020E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2A 29 |*************.*)|
00002100: 08 07 99 22 93 22 3A 99 22 20 20 20 20 20 20 20 |...".":." |
00002110: 20 20 12 20 4C 49 53 54 41 44 4F 53 20 59 20 43 | . LISTADOS Y C|
00002120: 4F 4E 53 55 4C 54 41 53 20 22 00 5C 29 0D 07 99 |ONSULTAS ".\)...|
00002130: C8 28 59 24 2C 37 29 3B 22 20 31 2E 2D 20 43 4F |.(Y$,7);" 1.- CO|
00002140: 4E 53 55 4C 54 41 20 44 45 4C 20 4E 52 4F 2E 20 |NSULTA DEL NRO. |
00002150: 44 45 20 41 52 54 49 43 55 4C 4F 22 00 8B 29 12 |DE ARTICULO"..).|
00002160: 07 99 C8 28 59 24 2C 39 29 3B 22 20 32 2E 2D 20 |...(Y$,9);" 2.- |
00002170: 43 4F 4E 53 55 4C 54 41 20 44 45 20 4C 41 20 44 |CONSULTA DE LA D|
00002180: 45 53 43 52 49 50 43 49 4F 4E 22 00 B4 29 17 07 |ESCRIPCION"..)..|
00002190: 99 C8 28 59 24 2C 31 31 29 3B 22 20 33 2E 2D 20 |..(Y$,11);" 3.- |
000021A0: 43 4F 4E 53 55 4C 54 41 20 44 45 20 50 52 45 43 |CONSULTA DE PREC|
000021B0: 49 4F 53 22 00 DC 29 1C 07 99 C8 28 59 24 2C 31 |IOS"..)....(Y$,1|
000021C0: 33 29 3B 22 20 34 2E 2D 20 43 4F 4E 53 55 4C 54 |3);" 4.- CONSULT|
000021D0: 41 20 44 45 4C 20 53 54 4F 43 4B 22 00 FA 29 1E |A DEL STOCK"..).|
000021E0: 07 99 C8 28 59 24 2C 31 35 29 3B 22 20 35 2E 2D |...(Y$,15);" 5.-|
000021F0: 20 4C 49 53 54 41 44 4F 53 22 00 26 2A 21 07 99 | LISTADOS".&*!..|
00002200: C8 28 59 24 2C 32 33 29 3B 22 54 49 50 45 45 20 |.(Y$,23);"TIPEE |
00002210: 30 20 50 41 52 41 20 56 4F 4C 56 45 52 20 41 4C |0 PARA VOLVER AL|
00002220: 20 4D 45 4E 55 22 00 66 2A 26 07 99 C8 28 59 24 | MENU".f*&...(Y$|
00002230: 2C 31 38 29 3B 22 54 49 50 45 45 20 4C 41 20 4F |,18);"TIPEE LA O|
00002240: 50 43 49 4F 4E 20 45 4C 45 47 49 44 41 22 3B 3A |PCION ELEGIDA";:|
00002250: 43 24 B2 22 22 3A 85 20 43 24 3A 8B 43 24 B2 22 |C$."":. C$:.C$."|
00002260: 30 22 A7 35 30 30 00 99 2A 28 07 8B 43 24 B3 B1 |0".500..*(..C$..|
00002270: 22 31 22 AF 43 24 B3 B1 22 32 22 AF 43 24 B3 B1 |"1".C$.."2".C$..|
00002280: 22 33 22 AF 43 24 B3 B1 22 34 22 AF 43 24 B3 B1 |"3".C$.."4".C$..|
00002290: 22 35 22 A7 20 31 38 33 30 00 C3 2A 2B 07 43 B2 |"5". 1830..*+.C.|
000022A0: C5 28 43 24 29 3A 91 20 43 20 89 31 38 34 30 2C |.(C$):. C .1840,|
000022B0: 31 38 37 30 2C 31 38 39 30 2C 31 39 32 30 2C 31 |1870,1890,1920,1|
000022C0: 39 34 30 00 F0 2A 30 07 99 22 93 22 3A 99 22 20 |940..*0..".":." |
000022D0: 20 20 20 20 20 20 20 20 12 20 4C 49 53 54 41 44 | . LISTAD|
000022E0: 4F 53 20 59 20 43 4F 4E 53 55 4C 54 41 53 20 22 |OS Y CONSULTAS "|
000022F0: 00 1F 2B 32 07 99 C8 28 59 24 2C 39 29 3B 22 44 |..+2...(Y$,9);"D|
00002300: 45 53 43 52 49 50 43 49 4F 4E 20 44 45 4C 20 41 |ESCRIPCION DEL A|
00002310: 52 54 49 43 55 4C 4F 22 3B 3A 85 20 4E 4D 24 00 |RTICULO";:. NM$.|
00002320: 4E 2B 35 07 81 20 41 31 B2 31 20 A4 20 32 30 30 |N+5.. A1.1 . 200|
00002330: 3A 8B 20 4E 4D 24 B2 CA 28 52 45 24 28 41 31 29 |:. NM$..(RE$(A1)|
00002340: 2C 32 34 2C 31 34 29 20 A7 20 31 38 36 30 00 56 |,24,14) . 1860.V|
00002350: 2B 3A 07 82 41 31 00 94 2B 3F 07 99 C8 28 59 24 |+:..A1..+?...(Y$|
00002360: 2C 31 31 29 3B 22 41 52 54 49 43 55 4C 4F 20 49 |,11);"ARTICULO I|
00002370: 4E 45 58 49 53 54 45 4E 54 45 20 41 20 45 53 41 |NEXISTENTE A ESA|
00002380: 20 44 45 53 43 52 49 50 43 49 4F 4E 22 3A 89 20 | DESCRIPCION":. |
00002390: 31 38 36 35 00 BA 2B 44 07 99 C8 28 59 24 2C 31 |1865..+D...(Y$,1|
000023A0: 31 29 3B 22 41 52 54 49 43 55 4C 4F 20 4E 52 4F |1);"ARTICULO NRO|
000023B0: 2E 9E 22 3B 41 31 3B 22 9A 22 00 F8 2B 49 07 99 |..";A1;"."..+I..|
000023C0: C8 28 59 24 2C 32 33 29 3B 22 41 50 52 49 45 54 |.(Y$,23);"APRIET|
000023D0: 45 20 43 55 41 4C 51 55 49 45 52 20 54 45 43 4C |E CUALQUIER TECL|
000023E0: 41 22 3B 3A A1 20 51 57 24 3A 8B 20 51 57 24 B2 |A";:. QW$:. QW$.|
000023F0: 22 22 A7 20 31 38 36 35 00 03 2C 4A 07 89 20 31 |"". 1865..,J.. 1|
00002400: 38 30 30 00 2F 2C 4E 07 99 22 93 22 3A 81 20 41 |800./,N..".":. A|
00002410: 31 B2 31 20 A4 20 32 30 30 3A 8D 20 31 32 30 30 |1.1 . 200:. 1200|
00002420: 3A 8B 20 4E 4F 24 B2 22 22 A7 20 31 38 37 36 00 |:. NO$."". 1876.|
00002430: 5F 2C 50 07 99 20 22 41 52 54 2E 4E 52 4F 2E 22 |_,P.. "ART.NRO."|
00002440: 3B 41 31 3B 22 9D 3D 20 20 22 3B 4E 4F 24 3A A1 |;A1;".= ";NO$:.|
00002450: 20 51 24 3A 8B 51 24 B2 22 22 A7 31 38 37 36 00 | Q$:.Q$."".1876.|
00002460: 73 2C 52 07 A1 45 24 3A 8B 45 24 B2 22 22 A7 31 |s,R..E$:.E$."".1|
00002470: 38 37 34 00 9D 2C 54 07 A1 57 24 3A 8B 57 24 B2 |874..,T..W$:.W$.|
00002480: 22 85 22 B0 57 24 B2 22 86 22 B0 57 24 B2 22 87 |".".W$.".".W$.".|
00002490: 22 B0 57 24 B2 22 88 22 A7 31 38 30 30 00 A6 2C |".W$.".".1800..,|
000024A0: 56 07 82 20 41 31 00 B1 2C 58 07 89 20 31 38 30 |V.. A1..,X.. 180|
000024B0: 30 00 DE 2C 62 07 99 22 93 22 3A 99 22 20 20 20 |0..,b..".":." |
000024C0: 20 20 20 20 20 20 12 20 4C 49 53 54 41 44 4F 53 | . LISTADOS|
000024D0: 20 59 20 43 4F 4E 53 55 4C 54 41 53 20 22 00 09 | Y CONSULTAS "..|
000024E0: 2D 64 07 99 C8 28 59 24 2C 37 29 3B 22 20 31 2E |-d...(Y$,7);" 1.|
000024F0: 2D 20 4C 49 53 54 41 20 44 45 20 50 52 45 43 49 |- LISTA DE PRECI|
00002500: 4F 53 20 4E 52 4F 2E 31 22 00 34 2D 65 07 99 C8 |OS NRO.1".4-e...|
00002510: 28 59 24 2C 39 29 3B 22 20 32 2E 2D 20 4C 49 53 |(Y$,9);" 2.- LIS|
00002520: 54 41 20 44 45 20 50 52 45 43 49 4F 53 20 4E 52 |TA DE PRECIOS NR|
00002530: 4F 2E 32 22 00 56 2D 66 07 99 C8 28 59 24 2C 31 |O.2".V-f...(Y$,1|
00002540: 31 29 3B 22 20 33 2E 2D 20 41 4D 42 41 53 20 4C |1);" 3.- AMBAS L|
00002550: 49 53 54 41 53 22 00 86 2D 68 07 99 C8 28 59 24 |ISTAS"..-h...(Y$|
00002560: 2C 31 35 29 3B 22 49 4E 47 52 45 53 45 20 4C 41 |,15);"INGRESE LA|
00002570: 20 4F 50 43 49 4F 4E 20 45 4C 45 47 49 44 41 22 | OPCION ELEGIDA"|
00002580: 3B 3A 85 20 50 24 00 A8 2D 6A 07 8B 50 24 B3 B1 |;:. P$..-j..P$..|
00002590: 22 31 22 AF 50 24 B3 B1 22 32 22 AF 50 24 B3 B1 |"1".P$.."2".P$..|
000025A0: 22 33 22 A7 31 38 39 36 00 DF 2D 6B 07 99 C8 28 |"3".1896..-k...(|
000025B0: 59 24 2C 31 35 29 3B 22 20 20 20 20 20 20 20 20 |Y$,15);" |
000025C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000025E0: 15 2E 6C 07 99 C8 28 59 24 2C 37 29 3B 22 20 20 |..l...(Y$,7);" |
000025F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002610: 20 20 20 20 22 00 4C 2E 6D 07 99 C8 28 59 24 2C | ".L.m...(Y$,|
00002620: 31 31 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |11);" |
00002630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002640: 20 20 20 20 20 20 20 20 20 20 20 22 00 82 2E 6E | "...n|
00002650: 07 99 C8 28 59 24 2C 39 29 3B 22 20 20 20 20 20 |...(Y$,9);" |
00002660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002680: 20 22 00 C1 2E 70 07 99 C8 28 59 24 2C 39 29 3B | "...p...(Y$,9);|
00002690: 22 4E 52 4F 2E 20 44 45 20 41 52 54 49 43 55 4C |"NRO. DE ARTICUL|
000026A0: 4F 20 28 31 2D 32 30 30 29 22 3B 3A 85 41 31 3A |O (1-200)";:.A1:|
000026B0: 8B 41 31 B3 31 B0 41 31 B1 32 30 30 A7 31 39 30 |.A1.1.A1.200.190|
000026C0: 34 00 FB 2E 72 07 8D 20 31 32 30 30 3A 8B 4E 4F |4...r.. 1200:.NO|
000026D0: 24 B2 22 22 A7 99 C8 28 59 24 2C 31 31 29 3B 22 |$.""...(Y$,11);"|
000026E0: 41 52 54 49 43 55 4C 4F 20 49 4E 45 58 49 53 54 |ARTICULO INEXIST|
000026F0: 45 4E 54 45 22 3A 89 31 39 31 34 00 1D 2F 73 07 |ENTE":.1914../s.|
00002700: 99 C8 28 59 24 2C 31 31 29 3B 22 44 45 53 43 52 |..(Y$,11);"DESCR|
00002710: 49 50 43 49 4F 4E 3A 20 22 3B 4E 4F 24 00 54 2F |IPCION: ";NO$.T/|
00002720: 74 07 99 C8 28 59 24 2C 31 33 29 3B 22 50 4F 52 |t...(Y$,13);"POR|
00002730: 43 45 4E 54 41 4A 45 20 49 56 41 3A 22 3B 49 56 |CENTAJE IVA:";IV|
00002740: 41 3B 22 25 22 3A 8B 20 50 24 B2 22 32 22 A7 20 |A;"%":. P$."2". |
00002750: 31 39 31 32 00 98 2F 76 07 99 C8 28 59 24 2C 31 |1912../v...(Y$,1|
00002760: 35 29 3B 22 4C 49 53 54 41 20 44 45 20 50 52 45 |5);"LISTA DE PRE|
00002770: 43 49 4F 53 20 4E 52 4F 2E 31 3A 24 41 9E 22 3B |CIOS NRO.1:$A.";|
00002780: 50 52 45 28 31 29 3B 22 9A 22 3A 8B 50 24 B2 22 |PRE(1);".":.P$."|
00002790: 31 22 A7 20 31 39 31 34 00 CE 2F 78 07 99 C8 28 |1". 1914../x...(|
000027A0: 59 24 2C 31 36 29 3B 22 4C 49 53 54 41 20 44 45 |Y$,16);"LISTA DE|
000027B0: 20 50 52 45 43 49 4F 53 20 4E 52 4F 2E 32 3A 24 | PRECIOS NRO.2:$|
000027C0: 41 9E 22 3B 50 52 45 28 32 29 3B 22 9A 22 00 09 |A.";PRE(2);"."..|
000027D0: 30 7A 07 99 C8 28 59 24 2C 32 33 29 3B 22 41 50 |0z...(Y$,23);"AP|
000027E0: 52 49 45 54 45 20 43 55 41 4C 51 55 49 45 52 20 |RIETE CUALQUIER |
000027F0: 54 45 43 4C 41 22 3A A1 51 57 24 3A 8B 51 57 24 |TECLA":.QW$:.QW$|
00002800: B2 22 22 A7 20 31 39 31 34 00 13 30 7C 07 89 31 |."". 1914..0|..1|
00002810: 38 30 30 00 40 30 80 07 99 22 93 22 3A 99 22 20 |800.@0...".":." |
00002820: 20 20 20 20 20 20 20 20 12 20 4C 49 53 54 41 44 | . LISTAD|
00002830: 4F 53 20 59 20 43 4F 4E 53 55 4C 54 41 53 20 22 |OS Y CONSULTAS "|
00002840: 00 7F 30 82 07 99 C8 28 59 24 2C 39 29 3B 22 4E |..0....(Y$,9);"N|
00002850: 52 4F 2E 20 44 45 20 41 52 54 49 43 55 4C 4F 20 |RO. DE ARTICULO |
00002860: 28 31 2D 32 30 30 29 22 3B 3A 85 41 31 3A 8B 41 |(1-200)";:.A1:.A|
00002870: 31 B3 31 B0 41 31 B1 32 30 30 A7 31 39 32 32 00 |1.1.A1.200.1922.|
00002880: B9 30 84 07 8D 20 31 32 30 30 3A 8B 4E 4F 24 B2 |.0... 1200:.NO$.|
00002890: 22 22 A7 99 C8 28 59 24 2C 31 31 29 3B 22 41 52 |""...(Y$,11);"AR|
000028A0: 54 49 43 55 4C 4F 20 49 4E 45 58 49 53 54 45 4E |TICULO INEXISTEN|
000028B0: 54 45 22 3A 89 31 39 33 32 00 D9 30 86 07 99 C8 |TE":.1932..0....|
000028C0: 28 59 24 2C 31 31 29 3B 22 44 45 53 43 52 49 50 |(Y$,11);"DESCRIP|
000028D0: 43 49 4F 4E 3A 22 4E 4F 24 00 00 31 88 07 99 C8 |CION:"NO$..1....|
000028E0: 28 59 24 2C 31 33 29 3B 22 53 54 4F 43 4B 20 41 |(Y$,13);"STOCK A|
000028F0: 43 54 55 41 4C 3A 9E 22 3B 43 41 4E 3B 22 9A 22 |CTUAL:.";CAN;"."|
00002900: 00 28 31 8A 07 99 C8 28 59 24 2C 31 35 29 3B 22 |.(1....(Y$,15);"|
00002910: 53 54 4F 43 4B 20 4D 49 4E 49 4D 4F 3A 9E 22 3B |STOCK MINIMO:.";|
00002920: 43 4D 49 4E 3B 22 9A 22 00 64 31 8C 07 99 C8 28 |CMIN;".".d1....(|
00002930: 59 24 2C 32 30 29 3B 22 41 50 52 49 45 54 45 20 |Y$,20);"APRIETE |
00002940: 43 55 41 4C 51 55 49 45 52 20 54 45 43 4C 41 22 |CUALQUIER TECLA"|
00002950: 3B 3A A1 51 57 24 3A 8B 51 57 24 B2 22 22 A7 20 |;:.QW$:.QW$."". |
00002960: 31 39 33 32 00 6E 31 8E 07 89 31 38 30 30 00 A9 |1932.n1...1800..|
00002970: 31 94 07 8D 20 38 32 30 30 3A 8F 20 53 55 42 52 |1... 8200:. SUBR|
00002980: 55 54 49 4E 41 2B 4C 49 53 54 41 44 4F 53 2B 2B |UTINA+LISTADOS++|
00002990: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
000029A0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 F7 31 9B 07 8F 20 |+++++++++..1... |
000029B0: 46 49 4E 41 4C 49 5A 41 20 53 55 42 20 4C 49 53 |FINALIZA SUB LIS|
000029C0: 54 41 44 4F 53 20 59 20 43 4F 4E 53 55 4C 54 41 |TADOS Y CONSULTA|
000029D0: 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S***************|
000029E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000029F0: 2A 2A 2A 2A 2A 2A 2A 00 45 32 9C 07 8F 20 43 4F |*******.E2... CO|
00002A00: 4D 49 45 4E 5A 41 20 53 55 42 20 53 41 4C 49 44 |MIENZA SUB SALID|
00002A10: 41 20 44 45 4C 20 53 54 4F 43 4B 2A 2A 2A 2A 2A |A DEL STOCK*****|
00002A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A40: 2A 2A 2A 2A 2A 00 8F 32 9E 07 89 20 37 35 3A 8F |*****..2... 75:.|
00002A50: 20 56 55 45 4C 56 45 20 41 4C 20 4D 45 4E 55 20 | VUELVE AL MENU |
00002A60: 50 52 49 4E 43 49 50 41 4C 2B 2B 2B 2B 2B 2B 2B |PRINCIPAL+++++++|
00002A70: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00002A80: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 |+++++++++++++++.|
00002A90: DD 32 A3 07 8F 20 46 49 4E 20 53 55 42 20 53 41 |.2... FIN SUB SA|
00002AA0: 4C 49 44 41 20 44 45 4C 20 53 54 4F 43 4B 2A 2A |LIDA DEL STOCK**|
00002AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E3 32 |*************..2|
00002AE0: B6 0B 8F 00 31 33 B7 0B 8F 20 43 4F 4D 49 45 4E |....13... COMIEN|
00002AF0: 5A 41 20 53 55 42 20 41 55 54 4F 52 49 5A 41 43 |ZA SUB AUTORIZAC|
00002B00: 49 4F 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ION*************|
00002B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B30: 2A 00 6C 33 B8 0B 99 C8 28 59 24 2C 31 33 29 3B |*.l3....(Y$,13);|
00002B40: 22 45 53 54 41 20 41 55 54 4F 52 49 5A 41 44 4F |"ESTA AUTORIZADO|
00002B50: 20 28 53 2F 4E 29 20 3F 22 3B 3A A1 20 57 24 3A | (S/N) ?";:. W$:|
00002B60: 8B 20 57 24 B2 22 4E 22 A7 35 30 30 00 7F 33 BD |. W$."N".500..3.|
00002B70: 0B 8B 57 24 B3 B1 22 53 22 A7 20 33 30 30 30 00 |..W$.."S". 3000.|
00002B80: BA 33 C2 0B 99 C8 28 59 24 2C 31 33 29 3B 22 49 |.3....(Y$,13);"I|
00002B90: 4E 47 52 45 53 45 20 4C 41 20 50 41 4C 41 42 52 |NGRESE LA PALABR|
00002BA0: 41 20 43 4C 41 56 45 20 3F 22 3B 22 90 22 3B 3A |A CLAVE ?";".";:|
00002BB0: 85 20 45 32 24 3A 99 22 9A 22 00 F5 33 C7 0B 8B |. E2$:."."..3...|
00002BC0: 20 45 31 24 B3 B1 45 32 24 20 A7 20 99 22 93 11 | E1$..E2$ . ."..|
00002BD0: 11 11 1D 1D 1D 12 20 49 4E 43 4F 52 52 45 43 54 |...... INCORRECT|
00002BE0: 4F 20 22 3A 81 4A B2 31 A4 32 35 30 3A 82 4A 3A |O ":.J.1.250:.J:|
00002BF0: 89 20 35 30 30 00 2C 34 CC 0B 99 C8 28 59 24 2C |. 500.,4....(Y$,|
00002C00: 31 33 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |13);" |
00002C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C20: 20 20 20 20 20 20 20 20 20 20 20 22 00 63 34 D1 | ".c4.|
00002C30: 0B 99 C8 28 59 24 2C 31 35 29 3B 22 20 20 20 20 |...(Y$,15);" |
00002C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C60: 20 20 22 00 99 34 D6 0B 99 C8 28 59 24 2C 31 38 | "..4....(Y$,18|
00002C70: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00002C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C90: 20 20 20 20 20 20 20 20 22 00 E2 34 DB 0B 8E 3A | "..4...:|
00002CA0: 8F 20 46 49 4E 20 53 55 42 20 41 55 54 4F 52 49 |. FIN SUB AUTORI|
00002CB0: 5A 41 43 49 4F 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ZACION**********|
00002CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CE0: 2A 2A 00 E8 34 9E 0F 8F 00 36 35 9F 0F 8F 20 43 |**..4....65... C|
00002CF0: 4F 4D 49 45 4E 5A 41 20 53 55 42 20 46 41 43 54 |OMIENZA SUB FACT|
00002D00: 55 52 41 43 49 4F 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A |URACION*********|
00002D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D30: 2A 2A 2A 2A 2A 2A 00 65 35 A0 0F 99 22 93 22 3A |******.e5...".":|
00002D40: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 12 |." .|
00002D50: 20 46 41 43 54 55 52 41 43 49 4F 4E 20 22 3A 43 | FACTURACION ":C|
00002D60: 4F B2 31 30 30 00 73 35 A3 0F 97 20 31 34 36 35 |O.100.s5... 1465|
00002D70: 2C 37 30 00 AE 35 A4 0F 99 C8 28 59 24 2C 31 33 |,70..5....(Y$,13|
00002D80: 29 3B 22 41 4E 4F 3A 20 38 35 22 3A 41 4E B2 31 |);"ANO: 85":AN.1|
00002D90: 39 38 35 3A 89 20 34 30 31 30 3A 8F 20 43 41 4D |985:. 4010:. CAM|
00002DA0: 42 49 41 52 20 43 41 44 41 20 41 4E 49 4F 00 DC |BIAR CADA ANIO..|
00002DB0: 35 A5 0F 99 C8 28 59 24 2C 31 33 29 3B 22 41 4E |5....(Y$,13);"AN|
00002DC0: 4F 3A 22 3B 3A 85 20 41 4E 3A 8B 20 41 4E B3 30 |O:";:. AN:. AN.0|
00002DD0: B0 41 4E B1 39 39 A7 20 34 30 30 35 00 EB 35 A6 |.AN.99. 4005..5.|
00002DE0: 0F 41 4E B2 31 39 30 30 AA 41 4E 00 20 36 AA 0F |.AN.1900.AN. 6..|
00002DF0: 99 C8 28 59 24 2C 31 33 29 3B C9 28 58 24 2C 31 |..(Y$,13);.(X$,1|
00002E00: 30 29 3B 22 4D 45 53 3A 22 3B 3A 85 20 4D 45 3A |0);"MES:";:. ME:|
00002E10: 8B 4D 45 B3 31 B0 4D 45 B1 31 32 A7 34 30 31 30 |.ME.1.ME.12.4010|
00002E20: 00 44 36 AF 0F 99 C8 28 59 24 2C 31 33 29 3B C9 |.D6....(Y$,13);.|
00002E30: 28 58 24 2C 32 30 29 3B 22 44 49 41 3A 22 3B 3A |(X$,20);"DIA:";:|
00002E40: 85 20 44 49 00 63 36 B4 0F 8B 20 4D 45 B2 32 20 |. DI.c6... ME.2 |
00002E50: AF 28 44 49 B2 33 30 B0 44 49 B2 33 31 29 A7 34 |.(DI.30.DI.31).4|
00002E60: 30 31 35 00 8D 36 B6 0F 8B 20 28 4D 45 B2 34 B0 |015..6... (ME.4.|
00002E70: 4D 45 B2 36 B0 4D 45 B2 39 B0 4D 45 B2 31 31 29 |ME.6.ME.9.ME.11)|
00002E80: AF 20 44 49 B2 33 31 A7 20 34 30 31 35 00 A4 36 |. DI.31. 4015..6|
00002E90: B7 0F 8B 20 44 49 B3 31 B0 44 49 B1 33 31 A7 20 |... DI.1.DI.31. |
00002EA0: 34 30 31 35 00 D9 36 B8 0F 99 C8 28 59 24 2C 32 |4015..6....(Y$,2|
00002EB0: 34 29 3B 22 44 45 53 45 41 20 4D 4F 44 49 46 49 |4);"DESEA MODIFI|
00002EC0: 43 41 52 20 4C 41 20 46 45 43 48 41 20 28 53 2F |CAR LA FECHA (S/|
00002ED0: 4E 29 22 3B 3A 85 20 51 24 00 EB 36 B9 0F 8B 51 |N)";:. Q$..6...Q|
00002EE0: 24 B2 22 53 22 A7 20 34 30 30 30 00 FE 36 BA 0F |$."S". 4000..6..|
00002EF0: 8B 51 24 B3 B1 22 4E 22 A7 20 34 30 32 34 00 2E |.Q$.."N". 4024..|
00002F00: 37 BE 0F 99 22 93 22 3A 99 22 20 20 20 20 20 20 |7...".":." |
00002F10: 20 20 20 20 20 20 20 12 20 46 41 43 54 55 52 41 | . FACTURA|
00002F20: 43 49 4F 4E 20 22 3A 43 4F B2 43 4F AA 31 00 6A |CION ":CO.CO.1.j|
00002F30: 37 C3 0F 99 C8 28 59 24 2C 36 29 3B 22 46 41 43 |7....(Y$,6);"FAC|
00002F40: 54 55 52 41 20 4E 52 4F 2E 3A 22 3B 43 4F 2C 22 |TURA NRO.:";CO,"|
00002F50: 46 45 43 48 41 3A 22 3B 44 49 3B 22 9D 2F 22 3B |FECHA:";DI;"./";|
00002F60: 4D 45 3B 22 9D 2F 22 3B 41 4E 00 8D 37 C8 0F 99 |ME;"./";AN..7...|
00002F70: C8 28 59 24 2C 31 32 29 3B 22 31 2E 2D 20 4E 4F |.(Y$,12);"1.- NO|
00002F80: 4D 42 52 45 3A 22 3B 3A 85 20 4E 46 24 00 B2 37 |MBRE:";:. NF$..7|
00002F90: CD 0F 99 C8 28 59 24 2C 31 33 29 3B 22 32 2E 2D |....(Y$,13);"2.-|
00002FA0: 20 44 4F 4D 49 43 49 4C 49 4F 3A 22 3B 3A 85 44 | DOMICILIO:";:.D|
00002FB0: 46 24 00 D7 37 D2 0F 99 C8 28 59 24 2C 31 34 29 |F$..7....(Y$,14)|
00002FC0: 3B 22 33 2E 2D 20 4C 4F 43 41 4C 49 44 41 44 3A |;"3.- LOCALIDAD:|
00002FD0: 22 3B 3A 85 4C 46 24 00 FC 37 D7 0F 99 C8 28 59 |";:.LF$..7....(Y|
00002FE0: 24 2C 31 35 29 3B 22 34 2E 2D 20 50 52 4F 56 49 |$,15);"4.- PROVI|
00002FF0: 4E 43 49 41 3A 22 3B 3A 85 50 46 24 00 20 38 DC |NCIA:";:.PF$. 8.|
00003000: 0F 99 C8 28 59 24 2C 31 36 29 3B 22 35 2E 2D 20 |...(Y$,16);"5.- |
00003010: 54 45 4C 45 46 4F 4E 4F 3A 22 3B 3A 85 54 46 24 |TELEFONO:";:.TF$|
00003020: 00 45 38 E1 0F 99 C8 28 59 24 2C 31 37 29 3B 22 |.E8....(Y$,17);"|
00003030: 36 2E 2D 20 4E 52 4F 2E 49 56 41 3A 22 3B 3A 85 |6.- NRO.IVA:";:.|
00003040: 20 49 32 46 24 00 69 38 E6 0F 99 C8 28 59 24 2C | I2F$.i8....(Y$,|
00003050: 31 38 29 3B 22 37 2E 2D 20 4E 52 4F 2E 47 41 4E |18);"7.- NRO.GAN|
00003060: 2E 3A 22 3B 3A 85 47 46 24 00 A3 38 E8 0F 99 C8 |.:";:.GF$..8....|
00003070: 28 59 24 2C 31 39 29 3B 22 38 2E 2D 20 4C 49 53 |(Y$,19);"8.- LIS|
00003080: 54 41 20 4E 52 4F 2E 3A 22 3B 3A 85 20 4C 24 3A |TA NRO.:";:. L$:|
00003090: 8B 4C 24 B2 22 31 22 B0 4C 24 B2 22 32 22 A7 34 |.L$."1".L$."2".4|
000030A0: 30 37 34 00 AD 38 E9 0F 89 34 30 37 32 00 C9 38 |074..8...4072..8|
000030B0: EA 0F 4C B2 C5 28 4C 24 29 3A 52 45 4E B2 31 3A |..L..(L$):REN.1:|
000030C0: 52 47 B2 31 3A 54 54 B2 30 00 FC 38 EB 0F 99 C8 |RG.1:TT.0..8....|
000030D0: 28 59 24 2C 32 33 29 3B 22 44 45 53 45 41 20 4D |(Y$,23);"DESEA M|
000030E0: 4F 44 49 46 49 43 41 52 20 41 4C 47 55 4E 20 43 |ODIFICAR ALGUN C|
000030F0: 41 4D 50 4F 20 28 53 2F 4E 29 3F 22 00 13 39 EE |AMPO (S/N)?"..9.|
00003100: 0F A1 20 51 24 3A 8B 51 24 B2 22 53 22 A7 20 34 |.. Q$:.Q$."S". 4|
00003110: 30 38 35 00 25 39 F0 0F 8B 51 24 B2 22 4E 22 A7 |085.%9...Q$."N".|
00003120: 20 34 31 30 30 00 30 39 F2 0F 89 20 34 30 37 38 | 4100.09... 4078|
00003130: 00 68 39 F5 0F 99 C8 28 59 24 2C 32 33 29 3B 22 |.h9....(Y$,23);"|
00003140: 54 49 50 45 45 20 4E 52 4F 2E 20 44 45 4C 20 43 |TIPEE NRO. DEL C|
00003150: 41 4D 50 4F 20 41 20 4D 4F 44 49 46 49 43 41 52 |AMPO A MODIFICAR|
00003160: 20 22 3B 3A 85 20 57 24 00 AB 39 F7 0F 8B 57 24 | ";:. W$..9...W$|
00003170: B2 22 31 22 B0 57 24 B2 22 32 22 B0 57 24 B2 22 |."1".W$."2".W$."|
00003180: 33 22 B0 57 24 B2 22 34 22 B0 57 24 B2 22 35 22 |3".W$."4".W$."5"|
00003190: B0 57 24 B2 22 36 22 B0 57 24 B2 22 37 22 B0 57 |.W$."6".W$."7".W|
000031A0: 24 B2 22 38 22 A7 20 34 30 39 35 00 B5 39 FA 0F |$."8". 4095..9..|
000031B0: 89 34 30 38 35 00 EA 39 FF 0F 57 B2 C5 28 57 24 |.4085..9..W..(W$|
000031C0: 29 3A 91 20 57 20 89 20 34 30 34 30 2C 34 30 34 |):. W . 4040,404|
000031D0: 35 2C 34 30 35 30 2C 34 30 35 35 2C 34 30 36 30 |5,4050,4055,4060|
000031E0: 2C 34 30 36 35 2C 34 30 37 30 00 0A 3A 04 10 8D |,4065,4070..:...|
000031F0: 20 38 30 30 30 3A 8F 20 53 55 42 20 43 55 41 44 | 8000:. SUB CUAD|
00003200: 52 4F 20 46 41 43 54 55 52 41 00 3E 3A 09 10 99 |RO FACTURA.>:...|
00003210: C8 28 59 24 2C 32 34 29 3B 22 54 49 50 45 45 20 |.(Y$,24);"TIPEE |
00003220: 27 30 27 20 50 41 52 41 20 4D 4F 44 49 46 49 43 |'0' PARA MODIFIC|
00003230: 41 52 20 4F 20 54 45 52 4D 49 4E 41 52 22 00 67 |AR O TERMINAR".g|
00003240: 3A 0E 10 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B |:....(Y$,REN.2);|
00003250: 22 9D 22 3B 52 47 3B C9 28 58 24 2C 32 29 3B 22 |".";RG;.(X$,2);"|
00003260: 9D 22 3B 3A 85 41 24 00 95 3A 13 10 41 41 24 B2 |.";:.A$..:..AA$.|
00003270: CA 28 41 24 2C 31 2C 31 29 3A 41 42 24 B2 CA 28 |.(A$,1,1):AB$..(|
00003280: 41 24 2C 32 2C 31 29 3A 41 43 24 B2 CA 28 41 24 |A$,2,1):AC$..(A$|
00003290: 2C 33 2C 31 29 00 B3 3A 18 10 8B C6 28 41 41 24 |,3,1)..:....(AA$|
000032A0: 29 B1 34 37 AF C6 28 41 41 24 29 B3 35 38 A7 34 |).47..(AA$).58.4|
000032B0: 31 32 35 00 BE 3A 1A 10 89 20 34 31 31 30 00 00 |125..:... 4110..|
000032C0: 3B 1D 10 8B 41 42 24 B2 22 30 22 B0 41 42 24 B2 |;...AB$."0".AB$.|
000032D0: 22 31 22 B0 41 42 24 B2 22 32 22 B0 41 42 24 B2 |"1".AB$."2".AB$.|
000032E0: 22 33 22 B0 41 42 24 B2 22 34 22 B0 41 42 24 B2 |"3".AB$."4".AB$.|
000032F0: 22 35 22 B0 41 42 24 B2 22 36 22 A7 34 31 33 35 |"5".AB$."6".4135|
00003300: 00 22 3B 22 10 8B 41 42 24 B2 22 37 22 B0 41 42 |.";"..AB$."7".AB|
00003310: 24 B2 22 38 22 B0 41 42 24 B2 22 39 22 A7 34 31 |$."8".AB$."9".41|
00003320: 33 35 00 36 3B 24 10 41 31 B2 C5 28 41 41 24 29 |35.6;$.A1..(AA$)|
00003330: 3A 89 34 31 35 30 00 78 3B 27 10 8B 41 43 24 B2 |:.4150.x;'..AC$.|
00003340: 22 30 22 B0 41 43 24 B2 22 31 22 B0 41 43 24 B2 |"0".AC$."1".AC$.|
00003350: 22 32 22 B0 41 43 24 B2 22 33 22 B0 41 43 24 B2 |"2".AC$."3".AC$.|
00003360: 22 34 22 B0 41 43 24 B2 22 35 22 B0 41 43 24 B2 |"4".AC$."5".AC$.|
00003370: 22 36 22 A7 34 31 34 35 00 AF 3B 2C 10 8B 41 43 |"6".4145..;,..AC|
00003380: 24 B3 B1 22 37 22 B0 41 43 24 B3 B1 22 38 22 B0 |$.."7".AC$.."8".|
00003390: 41 43 24 B3 B1 22 39 22 A7 20 41 31 B2 C5 28 CA |AC$.."9". A1..(.|
000033A0: 28 41 24 2C 31 2C 32 29 29 3A 89 34 31 35 30 00 |(A$,1,2)):.4150.|
000033B0: C3 3B 31 10 41 31 B2 C5 28 CA 28 41 24 2C 31 2C |.;1.A1..(.(A$,1,|
000033C0: 33 29 29 00 D9 3B 36 10 8B 41 31 B3 30 B0 41 31 |3))..;6..A1.0.A1|
000033D0: B1 32 30 30 A7 34 31 31 30 00 E9 3B 3B 10 8B 41 |.200.4110..;;..A|
000033E0: 31 B2 30 A7 20 34 34 30 30 00 F3 3B 3C 10 8D 31 |1.0. 4400..;<..1|
000033F0: 32 30 30 00 27 3C 3D 10 8B 20 4E 4F 24 B2 22 22 |200.'<=.. NO$.""|
00003400: A7 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 |...(Y$,REN.2);.(|
00003410: 58 24 2C 37 29 3B 22 12 49 4E 45 58 49 53 54 92 |X$,7);".INEXIST.|
00003420: 22 3A 89 34 31 36 32 00 5F 3C 3E 10 8B 20 43 41 |":.4162._<>.. CA|
00003430: 4E B3 43 4D 49 4E 20 A7 20 99 C8 28 59 24 2C 52 |N.CMIN . ..(Y$,R|
00003440: 45 4E AA 32 29 3B C9 28 58 24 2C 37 29 3B 22 12 |EN.2);.(X$,7);".|
00003450: 20 4E 4F 20 48 41 59 92 22 3A 89 34 31 36 32 00 | NO HAY.":.4162.|
00003460: 69 3C 40 10 89 34 31 36 39 00 79 3C 42 10 81 4A |i<@..4169.y<B..J|
00003470: B2 31 A4 39 30 30 3A 82 4A 00 A2 3C 43 10 99 C8 |.1.900:.J..<C...|
00003480: 28 59 24 2C 52 45 4E AA 32 29 3B 22 20 20 C2 20 |(Y$,REN.2);" . |
00003490: 20 20 C2 20 20 20 20 20 20 20 C2 22 3A 89 34 31 | . .":.41|
000034A0: 31 30 00 D8 3C 49 10 99 C8 28 59 24 2C 52 45 4E |10..<I...(Y$,REN|
000034B0: AA 32 29 3B C9 28 58 24 2C 32 29 3B 41 31 3B 22 |.2);.(X$,2);A1;"|
000034C0: 9D 20 20 22 3A 97 28 31 30 36 36 AA 28 34 30 AC |. ":.(1066.(40.|
000034D0: 52 45 4E 29 29 2C 36 36 00 14 3D 4A 10 99 C8 28 |REN)),66..=J...(|
000034E0: 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C 37 |Y$,REN.2);.(X$,7|
000034F0: 29 3B 4E 4F 24 3B 22 20 20 20 20 20 20 20 20 22 |);NO$;" "|
00003500: 3A 97 28 31 30 37 30 AA 28 34 30 AC 52 45 4E 29 |:.(1070.(40.REN)|
00003510: 29 2C 36 36 00 53 3D 4F 10 99 C8 28 59 24 2C 52 |),66.S=O...(Y$,R|
00003520: 45 4E AA 32 29 3B C9 28 58 24 2C 31 34 29 3B 50 |EN.2);.(X$,14);P|
00003530: 52 45 28 4C 29 3B 22 9D 20 20 20 20 20 20 22 3A |RE(L);". ":|
00003540: 97 28 31 30 37 38 AA 28 34 30 AC 52 45 4E 29 29 |.(1078.(40.REN))|
00003550: 2C 36 36 00 8C 3D 54 10 99 C8 28 59 24 2C 52 45 |,66..=T...(Y$,RE|
00003560: 4E AA 32 29 3B C9 28 58 24 2C 32 31 29 3B 49 56 |N.2);.(X$,21);IV|
00003570: 41 3B 22 9D 20 20 20 22 3A 97 28 31 30 38 35 AA |A;". ":.(1085.|
00003580: 28 34 30 AC 52 45 4E 29 29 2C 36 36 00 C0 3D 59 |(40.REN)),66..=Y|
00003590: 10 97 28 31 30 38 39 AA 28 34 30 AC 52 45 4E 29 |..(1089.(40.REN)|
000035A0: 29 2C 36 36 3A 99 C8 28 59 24 2C 52 45 4E AA 32 |),66:..(Y$,REN.2|
000035B0: 29 3B C9 28 58 24 2C 32 36 29 3B 3A 85 20 43 24 |);.(X$,26);:. C$|
000035C0: 00 FC 3D 5E 10 43 41 24 B2 CA 28 43 24 2C 31 2C |..=^.CA$..(C$,1,|
000035D0: 31 29 3A 43 42 24 B2 CA 28 43 24 2C 32 2C 31 29 |1):CB$..(C$,2,1)|
000035E0: 3A 43 43 24 B2 CA 28 43 24 2C 33 2C 31 29 3A 43 |:CC$..(C$,3,1):C|
000035F0: 44 24 B2 CA 28 43 24 2C 34 2C 31 29 00 1B 3E 63 |D$..(C$,4,1)..>c|
00003600: 10 8B 20 C6 28 43 41 24 29 B1 34 37 AF C6 28 43 |.. .(CA$).47..(C|
00003610: 41 24 29 B3 35 38 A7 34 32 30 35 00 25 3E 68 10 |A$).58.4205.%>h.|
00003620: 89 34 31 38 35 00 44 3E 6D 10 8B 20 C6 28 43 42 |.4185.D>m.. .(CB|
00003630: 24 29 B1 34 37 AF C6 28 43 42 24 29 B3 35 38 A7 |$).47..(CB$).58.|
00003640: 34 32 31 35 00 58 3E 72 10 43 31 B2 C5 28 43 41 |4215.X>r.C1..(CA|
00003650: 24 29 3A 89 34 32 34 30 00 77 3E 77 10 8B 20 C6 |$):.4240.w>w.. .|
00003660: 28 43 43 24 29 B1 34 37 AF C6 28 43 43 24 29 B3 |(CC$).47..(CC$).|
00003670: 35 38 A7 34 32 32 35 00 91 3E 7C 10 43 31 B2 C5 |58.4225..>|.C1..|
00003680: 28 CA 28 43 24 2C 31 2C 32 29 29 3A 89 34 32 34 |(.(C$,1,2)):.424|
00003690: 30 00 D4 3E 81 10 8B 20 43 44 24 B2 22 31 22 B0 |0..>... CD$."1".|
000036A0: 43 44 24 B2 22 32 22 B0 43 44 24 B2 22 33 22 B0 |CD$."2".CD$."3".|
000036B0: 43 44 24 B2 22 34 22 B0 43 44 24 B2 22 35 22 B0 |CD$."4".CD$."5".|
000036C0: 43 44 24 B2 22 36 22 B0 43 44 24 B2 22 37 22 A7 |CD$."6".CD$."7".|
000036D0: 34 32 33 35 00 F7 3E 82 10 8B 20 43 44 24 B2 22 |4235..>... CD$."|
000036E0: 38 22 B0 43 44 24 B2 22 39 22 B0 43 44 24 B2 22 |8".CD$."9".CD$."|
000036F0: 30 22 A7 34 32 33 35 00 11 3F 86 10 43 31 B2 C5 |0".4235..?..C1..|
00003700: 28 CA 28 43 24 2C 31 2C 33 29 29 3A 89 34 32 34 |(.(C$,1,3)):.424|
00003710: 30 00 25 3F 8B 10 43 31 B2 C5 28 CA 28 43 24 2C |0.%?..C1..(.(C$,|
00003720: 31 2C 34 29 29 00 3B 3F 90 10 8B 20 43 41 4E AA |1,4)).;?... CAN.|
00003730: 31 B1 43 31 20 A7 20 34 32 36 30 00 72 3F 94 10 |1.C1 . 4260.r?..|
00003740: 99 C8 28 59 24 2C 32 34 29 3B 22 20 20 20 20 20 |..(Y$,24);" |
00003750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003770: 20 22 00 A5 3F 95 10 99 C8 28 59 24 2C 32 34 29 | "..?....(Y$,24)|
00003780: 3B 22 12 20 53 4F 4C 4F 20 51 55 45 44 41 4E 20 |;". SOLO QUEDAN |
00003790: 22 3B 43 41 4E 3B 22 9D 20 55 4E 49 44 41 44 45 |";CAN;". UNIDADE|
000037A0: 53 20 92 22 3B 00 B5 3F 96 10 81 4A B2 31 A4 39 |S .";..?...J.1.9|
000037B0: 30 30 3A 82 4A 00 E0 3F 9A 10 99 C8 28 59 24 2C |00:.J..?....(Y$,|
000037C0: 52 45 4E AA 32 29 3B C9 28 58 24 2C 32 36 29 3B |REN.2);.(X$,26);|
000037D0: 22 C2 20 20 20 C2 20 20 20 22 3A 89 34 31 38 35 |". . ":.4185|
000037E0: 00 16 40 A4 10 49 4D 50 B2 B5 28 28 43 31 AC 50 |..@..IMP..((C1.P|
000037F0: 52 45 28 4C 29 29 AA 28 43 31 AC 50 52 45 28 4C |RE(L)).(C1.PRE(L|
00003800: 29 AC 49 56 41 AD 31 30 30 29 29 3A 43 41 4E B2 |).IVA.100)):CAN.|
00003810: 43 41 4E AB 43 31 00 4F 40 A9 10 99 C8 28 59 24 |CAN.C1.O@....(Y$|
00003820: 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C 32 35 29 |,REN.2);.(X$,25)|
00003830: 3B 43 31 3B 22 9D 20 20 20 20 20 20 22 3A 97 31 |;C1;". ":.1|
00003840: 30 38 39 AA 28 34 30 AC 52 45 4E 29 2C 36 36 00 |089.(40.REN),66.|
00003850: 7F 40 AE 10 99 C8 28 59 24 2C 52 45 4E AA 32 29 |.@....(Y$,REN.2)|
00003860: 3B C9 28 58 24 2C 33 30 29 3B 49 4D 50 3A 97 31 |;.(X$,30);IMP:.1|
00003870: 30 39 34 AA 28 34 30 AC 52 45 4E 29 2C 36 36 00 |094.(40.REN),66.|
00003880: 8D 40 B3 10 54 54 B2 54 54 AA 49 4D 50 00 A7 40 |.@..TT.TT.IMP..@|
00003890: B8 10 99 C8 28 59 24 2C 32 31 29 3B C9 28 58 24 |....(Y$,21);.(X$|
000038A0: 2C 32 38 29 3B 54 54 00 BF 40 BD 10 8B 20 43 4D |,28);TT..@... CM|
000038B0: 49 4E AB 31 B3 43 41 4E 20 A7 20 34 33 30 30 00 |IN.1.CAN . 4300.|
000038C0: F6 40 C1 10 99 C8 28 59 24 2C 32 34 29 3B 22 20 |.@....(Y$,24);" |
000038D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000038E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000038F0: 20 20 20 20 20 22 00 28 41 C2 10 99 C8 28 59 24 | ".(A....(Y$|
00003900: 2C 32 34 29 3B 22 12 20 51 55 45 44 41 4E 20 53 |,24);". QUEDAN S|
00003910: 4F 4C 4F 20 22 3B 43 41 4E 3B 22 9D 20 55 4E 49 |OLO ";CAN;". UNI|
00003920: 44 41 44 45 53 20 92 22 00 6F 41 C7 10 56 56 B2 |DADES .".oA..VV.|
00003930: 32 31 32 AC 32 35 36 3A 97 56 56 AA 32 34 2C 31 |212.256:.VV.24,1|
00003940: 35 3A 97 56 56 2C 30 3A 8F 20 43 52 45 4F 20 53 |5:.VV,0:. CREO S|
00003950: 4F 4E 49 44 4F 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |ONIDO+++++++++++|
00003960: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 |+++++++++++++++.|
00003970: A2 41 C8 10 97 56 56 AA 31 2C 38 30 3A 97 56 56 |.A...VV.1,80:.VV|
00003980: AA 35 2C 39 3A 97 56 56 AA 34 2C 30 3A 97 56 56 |.5,9:.VV.4,0:.VV|
00003990: AA 34 2C 33 33 3A 81 4A B2 31 A4 31 30 30 30 3A |.4,33:.J.1.1000:|
000039A0: 82 4A 00 BA 41 CC 10 46 41 24 28 52 47 29 B2 C4 |.J..A..FA$(RG)..|
000039B0: 28 41 31 29 AA C4 28 43 31 29 00 C4 41 D6 10 8D |(A1)..(C1)..A...|
000039C0: 31 32 35 30 00 DD 41 F4 10 52 47 B2 52 47 AA 31 |1250..A..RG.RG.1|
000039D0: 3A 41 58 B2 28 52 47 AB 31 29 AD 31 37 00 11 42 |:AX.(RG.1).17..B|
000039E0: F9 10 8B 52 45 4E B2 31 37 B0 41 58 B2 32 B0 41 |...REN.17.AX.2.A|
000039F0: 58 B2 33 B0 41 58 B2 34 B0 41 58 B2 35 B0 41 58 |X.3.AX.4.AX.5.AX|
00003A00: B2 36 20 A7 20 52 45 4E B2 31 3A 89 20 34 33 34 |.6 . REN.1:. 434|
00003A10: 37 00 1F 42 FA 10 52 45 4E B2 52 45 4E AA 31 00 |7..B..REN.REN.1.|
00003A20: 62 42 FB 10 99 C8 28 59 24 2C 52 45 4E AA 32 29 |bB....(Y$,REN.2)|
00003A30: 3B 22 20 20 C2 20 20 20 C2 20 20 20 20 20 20 20 |;" . . |
00003A40: C2 20 20 20 20 20 20 C2 20 20 20 C2 20 20 20 20 |. . . |
00003A50: C2 20 20 20 20 20 20 20 20 20 22 3B 3A 89 34 33 |. ";:.43|
00003A60: 35 35 00 77 42 03 11 49 4D 50 B2 30 3A 43 31 B2 |55.wB..IMP.0:C1.|
00003A70: 30 3A 49 56 41 B2 30 00 81 42 08 11 89 34 31 30 |0:IVA.0..B...410|
00003A80: 35 00 A1 42 30 11 99 C8 28 59 24 2C 52 45 4E AA |5..B0...(Y$,REN.|
00003A90: 32 29 3B C9 28 58 24 2C 33 29 3B 22 20 20 20 C2 |2);.(X$,3);" .|
00003AA0: 22 00 DA 42 32 11 99 C8 28 59 24 2C 32 34 29 3B |"..B2...(Y$,24);|
00003AB0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003AD0: 20 20 20 20 20 20 20 20 22 3B 00 14 43 35 11 99 | ";..C5..|
00003AE0: C8 28 59 24 2C 32 34 29 3B 22 9F 44 45 53 45 41 |.(Y$,24);".DESEA|
00003AF0: 20 52 45 56 49 53 41 52 20 4C 41 20 46 41 43 54 | REVISAR LA FACT|
00003B00: 55 52 41 20 28 53 2F 4E 29 3F 22 3B 22 9A 22 3A |URA (S/N)?";".":|
00003B10: A1 20 52 24 00 25 43 3A 11 8B 52 24 B2 22 4E 22 |. R$.%C:..R$."N"|
00003B20: A7 34 35 32 30 00 37 43 3F 11 8B 52 24 B3 B1 22 |.4520.7C?..R$.."|
00003B30: 53 22 A7 34 34 30 35 00 4D 43 44 11 52 45 4E B2 |S".4405.MCD.REN.|
00003B40: 31 3A 54 54 B2 30 3A 8D 20 38 30 30 30 00 5F 43 |1:TT.0:. 8000._C|
00003B50: 45 11 81 20 58 58 B2 31 20 A4 20 52 47 AB 31 00 |E.. XX.1 . RG.1.|
00003B60: 7D 43 49 11 8B 20 CA 28 46 41 24 28 58 58 29 2C |}CI.. .(FA$(XX),|
00003B70: 33 2C 31 29 B2 22 20 22 A7 34 34 34 30 00 9B 43 |3,1)." ".4440..C|
00003B80: 4E 11 8B 20 CA 28 46 41 24 28 58 58 29 2C 34 2E |N.. .(FA$(XX),4.|
00003B90: 31 29 B2 22 20 22 A7 34 34 34 35 00 BD 43 53 11 |1)." ".4445..CS.|
00003BA0: 41 31 B2 C5 28 C8 28 46 41 24 28 58 58 29 2C 34 |A1..(.(FA$(XX),4|
00003BB0: 29 29 3A 59 55 B2 36 3A 89 34 34 35 30 00 DF 43 |)):YU.6:.4450..C|
00003BC0: 58 11 41 31 B2 C5 28 C8 28 46 41 24 28 58 58 29 |X.A1..(.(FA$(XX)|
00003BD0: 2C 32 29 29 3A 59 55 B2 34 3A 89 34 34 35 30 00 |,2)):YU.4:.4450.|
00003BE0: FB 43 5D 11 41 31 B2 C5 28 C8 28 46 41 24 28 58 |.C].A1..(.(FA$(X|
00003BF0: 58 29 2C 33 29 29 3A 59 55 B2 35 00 15 44 62 11 |X),3)):YU.5..Db.|
00003C00: 43 31 B2 C5 28 CA 28 46 41 24 28 58 58 29 2C 59 |C1..(.(FA$(XX),Y|
00003C10: 55 2C 34 29 29 00 20 44 67 11 8D 20 31 32 30 30 |U,4)). Dg.. 1200|
00003C20: 00 38 44 6C 11 99 C8 28 59 24 2C 52 45 4E AA 32 |.8Dl...(Y$,REN.2|
00003C30: 29 3B 22 9D 22 3B 58 58 00 6F 44 6E 11 99 C8 28 |);".";XX.oDn...(|
00003C40: 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C 32 |Y$,REN.2);.(X$,2|
00003C50: 29 3B 41 31 3B 22 9D 20 20 20 20 20 22 3A 97 31 |);A1;". ":.1|
00003C60: 30 36 36 AA 28 34 30 AC 52 45 4E 29 2C 36 36 00 |066.(40.REN),66.|
00003C70: AB 44 71 11 99 C8 28 59 24 2C 52 45 4E AA 32 29 |.Dq...(Y$,REN.2)|
00003C80: 3B C9 28 58 24 2C 37 29 3B 4E 4F 24 3B 22 20 20 |;.(X$,7);NO$;" |
00003C90: 20 20 20 20 20 20 22 3A 97 28 31 30 37 30 AA 28 | ":.(1070.(|
00003CA0: 34 30 AC 52 45 4E 29 29 2C 36 36 00 EA 44 76 11 |40.REN)),66..Dv.|
00003CB0: 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 |..(Y$,REN.2);.(X|
00003CC0: 24 2C 31 34 29 3B 50 52 45 28 4C 29 3B 22 9D 20 |$,14);PRE(L);". |
00003CD0: 20 20 20 20 20 22 3A 97 28 31 30 37 38 AA 28 34 | ":.(1078.(4|
00003CE0: 30 AC 52 45 4E 29 29 2C 36 36 00 23 45 7B 11 99 |0.REN)),66.#E{..|
00003CF0: C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 |.(Y$,REN.2);.(X$|
00003D00: 2C 32 31 29 3B 49 56 41 3B 22 9D 20 20 20 22 3A |,21);IVA;". ":|
00003D10: 97 28 31 30 38 35 AA 28 34 30 AC 52 45 4E 29 29 |.(1085.(40.REN))|
00003D20: 2C 36 36 00 59 45 80 11 49 4D 50 B2 B5 28 28 43 |,66.YE..IMP..((C|
00003D30: 31 AC 50 52 45 28 4C 29 29 AA 28 43 31 AC 50 52 |1.PRE(L)).(C1.PR|
00003D40: 45 28 4C 29 AC 49 56 41 AD 31 30 30 29 29 3A 43 |E(L).IVA.100)):C|
00003D50: 41 4E B2 43 41 4E AB 43 31 00 92 45 85 11 99 C8 |AN.CAN.C1..E....|
00003D60: 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C |(Y$,REN.2);.(X$,|
00003D70: 32 35 29 3B 43 31 3B 22 9D 20 20 20 20 20 20 22 |25);C1;". "|
00003D80: 3A 97 31 30 38 39 AA 28 34 30 AC 52 45 4E 29 2C |:.1089.(40.REN),|
00003D90: 36 36 00 C2 45 8A 11 99 C8 28 59 24 2C 52 45 4E |66..E....(Y$,REN|
00003DA0: AA 32 29 3B C9 28 58 24 2C 33 30 29 3B 49 4D 50 |.2);.(X$,30);IMP|
00003DB0: 3A 97 31 30 39 34 AA 28 34 30 AC 52 45 4E 29 2C |:.1094.(40.REN),|
00003DC0: 36 36 00 D0 45 8D 11 54 54 B2 54 54 AA 49 4D 50 |66..E..TT.TT.IMP|
00003DD0: 00 EA 45 8F 11 99 C8 28 59 24 2C 32 31 29 3B C9 |..E....(Y$,21);.|
00003DE0: 28 58 24 2C 32 38 29 3B 54 54 00 1C 46 94 11 8B |(X$,28);TT..F...|
00003DF0: 52 45 4E B2 31 37 B0 58 58 B2 33 34 B0 58 58 B2 |REN.17.XX.34.XX.|
00003E00: 35 31 B0 58 58 B2 36 38 B0 58 58 B2 38 35 A7 20 |51.XX.68.XX.85. |
00003E10: 52 45 4E B2 31 3A 89 20 34 35 31 30 00 2A 46 99 |REN.1:. 4510.*F.|
00003E20: 11 52 45 4E B2 52 45 4E AA 31 00 66 46 9E 11 99 |.REN.REN.1.fF...|
00003E30: C8 28 59 24 2C 52 45 4E AA 32 29 3B 22 20 20 C2 |.(Y$,REN.2);" .|
00003E40: 20 20 20 C2 20 20 20 20 20 20 20 C2 20 20 20 20 | . . |
00003E50: 20 20 C2 20 20 20 C2 20 20 20 20 C2 20 20 20 20 | . . . |
00003E60: 20 20 20 20 22 3B 00 6F 46 A3 11 82 20 58 58 00 | ";.oF... XX.|
00003E70: A8 46 A8 11 99 C8 28 59 24 2C 32 34 29 3B 22 20 |.F....(Y$,24);" |
00003E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003EA0: 20 20 20 20 20 20 22 3B 00 E6 46 A9 11 99 C8 28 | ";..F....(|
00003EB0: 59 24 2C 32 34 29 3B 22 20 9F 44 45 53 45 41 20 |Y$,24);" .DESEA |
00003EC0: 4D 4F 44 49 46 49 43 41 52 20 41 4C 47 55 4E 20 |MODIFICAR ALGUN |
00003ED0: 52 45 4E 47 4C 4F 4E 20 28 53 2F 4E 29 9A 22 3B |RENGLON (S/N).";|
00003EE0: 3A 85 20 4D 44 24 00 F9 46 AD 11 8B 4D 44 24 B2 |:. MD$..F...MD$.|
00003EF0: 22 4E 22 A7 20 34 37 35 30 00 0D 47 B2 11 8B 4D |"N". 4750..G...M|
00003F00: 44 24 B3 B1 22 53 22 A7 20 34 35 32 30 00 46 47 |D$.."S". 4520.FG|
00003F10: B3 11 99 C8 28 59 24 2C 32 34 29 3B 22 20 20 20 |....(Y$,24);" |
00003F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F40: 20 20 20 20 22 3B 00 80 47 B4 11 99 C8 28 59 24 | ";..G....(Y$|
00003F50: 2C 32 34 29 3B 22 9F 54 49 50 45 45 20 4E 52 4F |,24);".TIPEE NRO|
00003F60: 2E 20 44 45 4C 20 52 45 4E 47 4C 4F 4E 20 41 20 |. DEL RENGLON A |
00003F70: 4D 4F 44 49 46 49 43 41 52 22 3B 3A 85 20 4D 44 |MODIFICAR";:. MD|
00003F80: 00 99 47 B5 11 8B 20 4D 44 B3 31 B0 4D 44 B1 52 |..G... MD.1.MD.R|
00003F90: 47 AB 31 A7 20 34 35 33 32 00 AA 47 B7 11 52 45 |G.1. 4532..G..RE|
00003FA0: 4E B2 31 3A 8D 20 38 30 30 30 00 C8 47 BC 11 8B |N.1:. 8000..G...|
00003FB0: 20 CA 28 46 41 24 28 4D 44 29 2C 33 2C 31 29 B2 | .(FA$(MD),3,1).|
00003FC0: 22 20 22 A7 34 35 35 35 00 E6 47 C1 11 8B 20 CA |" ".4555..G... .|
00003FD0: 28 46 41 24 28 4D 44 29 2C 34 2E 31 29 B2 22 20 |(FA$(MD),4.1)." |
00003FE0: 22 A7 34 35 36 30 00 08 48 C6 11 41 31 B2 C5 28 |".4560..H..A1..(|
00003FF0: C8 28 46 41 24 28 4D 44 29 2C 34 29 29 3A 59 55 |.(FA$(MD),4)):YU|
00004000: B2 36 3A 89 34 35 36 35 00 2A 48 CB 11 41 31 B2 |.6:.4565.*H..A1.|
00004010: C5 28 C8 28 46 41 24 28 4D 44 29 2C 32 29 29 3A |.(.(FA$(MD),2)):|
00004020: 59 55 B2 34 3A 89 34 35 36 35 00 46 48 D0 11 41 |YU.4:.4565.FH..A|
00004030: 31 B2 C5 28 C8 28 46 41 24 28 4D 44 29 2C 33 29 |1..(.(FA$(MD),3)|
00004040: 29 3A 59 55 B2 35 00 60 48 D5 11 43 31 B2 C5 28 |):YU.5.`H..C1..(|
00004050: CA 28 46 41 24 28 4D 44 29 2C 59 55 2C 34 29 29 |.(FA$(MD),YU,4))|
00004060: 00 6B 48 DA 11 8D 20 31 32 30 30 00 83 48 DF 11 |.kH... 1200..H..|
00004070: 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B 22 9D 22 |..(Y$,REN.2);"."|
00004080: 3B 4D 44 00 BA 48 E1 11 99 C8 28 59 24 2C 52 45 |;MD..H....(Y$,RE|
00004090: 4E AA 32 29 3B C9 28 58 24 2C 32 29 3B 41 31 3B |N.2);.(X$,2);A1;|
000040A0: 22 9D 20 20 20 20 20 22 3A 97 31 30 36 36 AA 28 |". ":.1066.(|
000040B0: 34 30 AC 52 45 4E 29 2C 36 36 00 F6 48 E4 11 99 |40.REN),66..H...|
000040C0: C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 |.(Y$,REN.2);.(X$|
000040D0: 2C 37 29 3B 4E 4F 24 3B 22 20 20 20 20 20 20 20 |,7);NO$;" |
000040E0: 20 22 3A 97 28 31 30 37 30 AA 28 34 30 AC 52 45 | ":.(1070.(40.RE|
000040F0: 4E 29 29 2C 36 36 00 35 49 E6 11 99 C8 28 59 24 |N)),66.5I....(Y$|
00004100: 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C 31 34 29 |,REN.2);.(X$,14)|
00004110: 3B 50 52 45 28 4C 29 3B 22 9D 20 20 20 20 20 20 |;PRE(L);". |
00004120: 22 3A 97 28 31 30 37 38 AA 28 34 30 AC 52 45 4E |":.(1078.(40.REN|
00004130: 29 29 2C 36 36 00 6E 49 E9 11 99 C8 28 59 24 2C |)),66.nI....(Y$,|
00004140: 52 45 4E AA 32 29 3B C9 28 58 24 2C 32 31 29 3B |REN.2);.(X$,21);|
00004150: 49 56 41 3B 22 9D 20 20 20 22 3A 97 28 31 30 38 |IVA;". ":.(108|
00004160: 35 AA 28 34 30 AC 52 45 4E 29 29 2C 36 36 00 A7 |5.(40.REN)),66..|
00004170: 49 EB 11 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B |I....(Y$,REN.2);|
00004180: C9 28 58 24 2C 32 35 29 3B 43 31 3B 22 9D 20 20 |.(X$,25);C1;". |
00004190: 20 20 20 20 22 3A 97 31 30 38 39 AA 28 34 30 AC | ":.1089.(40.|
000041A0: 52 45 4E 29 2C 36 36 00 D2 49 EE 11 49 4D 50 B2 |REN),66..I..IMP.|
000041B0: B5 28 28 43 31 AC 50 52 45 28 4C 29 29 AA 28 43 |.((C1.PRE(L)).(C|
000041C0: 31 AC 50 52 45 28 4C 29 AC 49 56 41 AD 31 30 30 |1.PRE(L).IVA.100|
000041D0: 29 29 00 02 4A F0 11 99 C8 28 59 24 2C 52 45 4E |))..J....(Y$,REN|
000041E0: AA 32 29 3B C9 28 58 24 2C 33 30 29 3B 49 4D 50 |.2);.(X$,30);IMP|
000041F0: 3A 97 31 30 39 34 AA 28 34 30 AC 52 45 4E 29 2C |:.1094.(40.REN),|
00004200: 36 36 00 1C 4A F3 11 99 C8 28 59 24 2C 32 31 29 |66..J....(Y$,21)|
00004210: 3B C9 28 58 24 2C 32 38 29 3B 54 54 00 46 4A F5 |;.(X$,28);TT.FJ.|
00004220: 11 52 45 4E B2 52 45 4E AA 31 3A 54 54 B2 54 54 |.REN.REN.1:TT.TT|
00004230: AB 49 4D 50 3A 43 41 4E B2 43 41 4E AA 43 31 3A |.IMP:CAN.CAN.C1:|
00004240: 8D 20 31 32 35 30 00 6F 4A F8 11 99 C8 28 59 24 |. 1250.oJ....(Y$|
00004250: 2C 52 45 4E AA 32 29 3B 22 9D 22 3B 4D 44 3B C9 |,REN.2);".";MD;.|
00004260: 28 58 24 2C 32 29 3B 22 9D 22 3B 3A 85 41 24 00 |(X$,2);".";:.A$.|
00004270: 9D 4A FA 11 41 41 24 B2 CA 28 41 24 2C 31 2C 31 |.J..AA$..(A$,1,1|
00004280: 29 3A 41 42 24 B2 CA 28 41 24 2C 32 2C 31 29 3A |):AB$..(A$,2,1):|
00004290: 41 43 24 B2 CA 28 41 24 2C 33 2C 31 29 00 BB 4A |AC$..(A$,3,1)..J|
000042A0: FD 11 8B C6 28 41 41 24 29 B1 34 37 AF C6 28 41 |....(AA$).47..(A|
000042B0: 41 24 29 B3 35 38 A7 34 36 31 30 00 C6 4A FF 11 |A$).58.4610..J..|
000042C0: 89 20 34 36 30 30 00 08 4B 02 12 8B 41 42 24 B2 |. 4600..K...AB$.|
000042D0: 22 30 22 B0 41 42 24 B2 22 31 22 B0 41 42 24 B2 |"0".AB$."1".AB$.|
000042E0: 22 32 22 B0 41 42 24 B2 22 33 22 B0 41 42 24 B2 |"2".AB$."3".AB$.|
000042F0: 22 34 22 B0 41 42 24 B2 22 35 22 B0 41 42 24 B2 |"4".AB$."5".AB$.|
00004300: 22 36 22 A7 34 36 31 37 00 2A 4B 04 12 8B 41 42 |"6".4617.*K...AB|
00004310: 24 B2 22 37 22 B0 41 42 24 B2 22 38 22 B0 41 42 |$."7".AB$."8".AB|
00004320: 24 B2 22 39 22 A7 34 36 31 37 00 3E 4B 07 12 41 |$."9".4617.>K..A|
00004330: 31 B2 C5 28 41 41 24 29 3A 89 34 36 32 35 00 80 |1..(AA$):.4625..|
00004340: 4B 09 12 8B 41 43 24 B2 22 30 22 B0 41 43 24 B2 |K...AC$."0".AC$.|
00004350: 22 31 22 B0 41 43 24 B2 22 32 22 B0 41 43 24 B2 |"1".AC$."2".AC$.|
00004360: 22 33 22 B0 41 43 24 B2 22 34 22 B0 41 43 24 B2 |"3".AC$."4".AC$.|
00004370: 22 35 22 B0 41 43 24 B2 22 36 22 A7 34 36 32 32 |"5".AC$."6".4622|
00004380: 00 B7 4B 0C 12 8B 41 43 24 B3 B1 22 37 22 B0 41 |..K...AC$.."7".A|
00004390: 43 24 B3 B1 22 38 22 B0 41 43 24 B3 B1 22 39 22 |C$.."8".AC$.."9"|
000043A0: A7 20 41 31 B2 C5 28 CA 28 41 24 2C 31 2C 32 29 |. A1..(.(A$,1,2)|
000043B0: 29 3A 89 34 36 32 35 00 CB 4B 0E 12 41 31 B2 C5 |):.4625..K..A1..|
000043C0: 28 CA 28 41 24 2C 31 2C 33 29 29 00 E1 4B 11 12 |(.(A$,1,3))..K..|
000043D0: 8B 41 31 B3 31 B0 41 31 B1 32 30 30 A7 34 36 30 |.A1.1.A1.200.460|
000043E0: 30 00 EB 4B 13 12 8D 31 32 30 30 00 1F 4C 16 12 |0..K...1200..L..|
000043F0: 8B 20 4E 4F 24 B2 22 22 A7 99 C8 28 59 24 2C 52 |. NO$.""...(Y$,R|
00004400: 45 4E AA 32 29 3B C9 28 58 24 2C 37 29 3B 22 12 |EN.2);.(X$,7);".|
00004410: 49 4E 45 58 49 53 54 92 22 3A 89 34 36 33 37 00 |INEXIST.":.4637.|
00004420: 57 4C 18 12 8B 20 43 41 4E B3 43 4D 49 4E 20 A7 |WL... CAN.CMIN .|
00004430: 20 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 | ..(Y$,REN.2);.(|
00004440: 58 24 2C 37 29 3B 22 12 20 4E 4F 20 48 41 59 92 |X$,7);". NO HAY.|
00004450: 22 3A 89 34 36 33 37 00 61 4C 1B 12 89 34 36 34 |":.4637.aL...464|
00004460: 32 00 71 4C 1D 12 81 4A B2 31 A4 39 30 30 3A 82 |2.qL...J.1.900:.|
00004470: 4A 00 9A 4C 20 12 99 C8 28 59 24 2C 52 45 4E AA |J..L ...(Y$,REN.|
00004480: 32 29 3B 22 20 20 C2 20 20 20 C2 20 20 20 20 20 |2);" . . |
00004490: 20 20 C2 22 3A 89 34 36 30 30 00 D0 4C 22 12 99 | .":.4600..L"..|
000044A0: C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 |.(Y$,REN.2);.(X$|
000044B0: 2C 32 29 3B 41 31 3B 22 9D 20 20 22 3A 97 28 31 |,2);A1;". ":.(1|
000044C0: 30 36 36 AA 28 34 30 AC 52 45 4E 29 29 2C 36 36 |066.(40.REN)),66|
000044D0: 00 0C 4D 25 12 99 C8 28 59 24 2C 52 45 4E AA 32 |..M%...(Y$,REN.2|
000044E0: 29 3B C9 28 58 24 2C 37 29 3B 4E 4F 24 3B 22 20 |);.(X$,7);NO$;" |
000044F0: 20 20 20 20 20 20 20 22 3A 97 28 31 30 37 30 AA | ":.(1070.|
00004500: 28 34 30 AC 52 45 4E 29 29 2C 36 36 00 4B 4D 27 |(40.REN)),66.KM'|
00004510: 12 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 |...(Y$,REN.2);.(|
00004520: 58 24 2C 31 34 29 3B 50 52 45 28 4C 29 3B 22 9D |X$,14);PRE(L);".|
00004530: 20 20 20 20 20 20 22 3A 97 28 31 30 37 38 AA 28 | ":.(1078.(|
00004540: 34 30 AC 52 45 4E 29 29 2C 36 36 00 84 4D 2A 12 |40.REN)),66..M*.|
00004550: 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 |..(Y$,REN.2);.(X|
00004560: 24 2C 32 31 29 3B 49 56 41 3B 22 9D 20 20 20 22 |$,21);IVA;". "|
00004570: 3A 97 28 31 30 38 35 AA 28 34 30 AC 52 45 4E 29 |:.(1085.(40.REN)|
00004580: 29 2C 36 36 00 B8 4D 2C 12 97 28 31 30 38 39 AA |),66..M,..(1089.|
00004590: 28 34 30 AC 52 45 4E 29 29 2C 36 36 3A 99 C8 28 |(40.REN)),66:..(|
000045A0: 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C 32 |Y$,REN.2);.(X$,2|
000045B0: 36 29 3B 3A 85 20 43 24 00 F4 4D 2F 12 43 41 24 |6);:. C$..M/.CA$|
000045C0: B2 CA 28 43 24 2C 31 2C 31 29 3A 43 42 24 B2 CA |..(C$,1,1):CB$..|
000045D0: 28 43 24 2C 32 2C 31 29 3A 43 43 24 B2 CA 28 43 |(C$,2,1):CC$..(C|
000045E0: 24 2C 33 2C 31 29 3A 43 44 24 B2 CA 28 43 24 2C |$,3,1):CD$..(C$,|
000045F0: 34 2C 31 29 00 13 4E 31 12 8B 20 C6 28 43 41 24 |4,1)..N1.. .(CA$|
00004600: 29 B1 34 37 AF C6 28 43 41 24 29 B3 35 38 A7 34 |).47..(CA$).58.4|
00004610: 36 36 32 00 1D 4E 34 12 89 34 36 35 32 00 3C 4E |662..N4..4652.<N|
00004620: 36 12 8B 20 C6 28 43 42 24 29 B1 34 37 AF C6 28 |6.. .(CB$).47..(|
00004630: 43 42 24 29 B3 35 38 A7 34 36 36 37 00 50 4E 39 |CB$).58.4667.PN9|
00004640: 12 43 31 B2 C5 28 43 41 24 29 3A 89 34 36 38 32 |.C1..(CA$):.4682|
00004650: 00 6F 4E 3B 12 8B 20 C6 28 43 43 24 29 B1 34 37 |.oN;.. .(CC$).47|
00004660: AF C6 28 43 43 24 29 B3 35 38 A7 34 36 37 32 00 |..(CC$).58.4672.|
00004670: 89 4E 3E 12 43 31 B2 C5 28 CA 28 43 24 2C 31 2C |.N>.C1..(.(C$,1,|
00004680: 32 29 29 3A 89 34 36 38 32 00 CD 4E 40 12 8B 20 |2)):.4682..N@.. |
00004690: 43 44 24 B2 22 31 22 B0 43 44 24 B2 22 32 22 B0 |CD$."1".CD$."2".|
000046A0: 43 44 24 B2 22 33 22 B0 43 44 24 B2 22 34 22 B0 |CD$."3".CD$."4".|
000046B0: 43 44 24 B2 22 35 22 B0 43 44 24 B2 22 36 22 B0 |CD$."5".CD$."6".|
000046C0: 43 44 24 B2 22 37 22 A7 34 34 36 38 30 00 F0 4E |CD$."7".44680..N|
000046D0: 43 12 8B 20 43 44 24 B2 22 38 22 B0 43 44 24 B2 |C.. CD$."8".CD$.|
000046E0: 22 39 22 B0 43 44 24 B2 22 30 22 A7 34 36 38 30 |"9".CD$."0".4680|
000046F0: 00 0A 4F 45 12 43 31 B2 C5 28 CA 28 43 24 2C 31 |..OE.C1..(.(C$,1|
00004700: 2C 33 29 29 3A 89 34 36 38 32 00 1E 4F 48 12 43 |,3)):.4682..OH.C|
00004710: 31 B2 C5 28 CA 28 43 24 2C 31 2C 34 29 29 00 34 |1..(.(C$,1,4)).4|
00004720: 4F 4A 12 8B 20 43 41 4E AA 31 B1 43 31 20 A7 20 |OJ.. CAN.1.C1 . |
00004730: 34 36 39 35 00 6B 4F 4D 12 99 C8 28 59 24 2C 32 |4695.kOM...(Y$,2|
00004740: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
00004750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004760: 20 20 20 20 20 20 20 20 20 20 22 00 9E 4F 4F 12 | "..OO.|
00004770: 99 C8 28 59 24 2C 32 34 29 3B 22 12 20 53 4F 4C |..(Y$,24);". SOL|
00004780: 4F 20 51 55 45 44 41 4E 20 22 3B 43 41 4E 3B 22 |O QUEDAN ";CAN;"|
00004790: 9D 20 55 4E 49 44 41 44 45 53 20 92 22 3B 00 AE |. UNIDADES .";..|
000047A0: 4F 52 12 81 4A B2 31 A4 39 30 30 3A 82 4A 00 D9 |OR..J.1.900:.J..|
000047B0: 4F 54 12 99 C8 28 59 24 2C 52 45 4E AA 32 29 3B |OT...(Y$,REN.2);|
000047C0: C9 28 58 24 2C 32 36 29 3B 22 C2 20 20 20 C2 20 |.(X$,26);". . |
000047D0: 20 20 22 3A 89 34 36 35 32 00 0F 50 57 12 49 4D | ":.4652..PW.IM|
000047E0: 50 B2 B5 28 28 43 31 AC 50 52 45 28 4C 29 29 AA |P..((C1.PRE(L)).|
000047F0: 28 43 31 AC 50 52 45 28 4C 29 AC 49 56 41 AD 31 |(C1.PRE(L).IVA.1|
00004800: 30 30 29 29 3A 43 41 4E B2 43 41 4E AB 43 31 00 |00)):CAN.CAN.C1.|
00004810: 48 50 59 12 99 C8 28 59 24 2C 52 45 4E AA 32 29 |HPY...(Y$,REN.2)|
00004820: 3B C9 28 58 24 2C 32 35 29 3B 43 31 3B 22 9D 20 |;.(X$,25);C1;". |
00004830: 20 20 20 20 20 22 3A 97 31 30 38 39 AA 28 34 30 | ":.1089.(40|
00004840: AC 52 45 4E 29 2C 36 36 00 78 50 5C 12 99 C8 28 |.REN),66.xP\...(|
00004850: 59 24 2C 52 45 4E AA 32 29 3B C9 28 58 24 2C 33 |Y$,REN.2);.(X$,3|
00004860: 30 29 3B 49 4D 50 3A 97 31 30 39 34 AA 28 34 30 |0);IMP:.1094.(40|
00004870: AC 52 45 4E 29 2C 36 36 00 86 50 5E 12 54 54 B2 |.REN),66..P^.TT.|
00004880: 54 54 AA 49 4D 50 00 AC 50 60 12 99 C8 28 59 24 |TT.IMP..P`...(Y$|
00004890: 2C 32 31 29 3B C9 28 58 24 2C 32 38 29 3B 22 20 |,21);.(X$,28);" |
000048A0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 C6 50 61 | ";..Pa|
000048B0: 12 99 C8 28 59 24 2C 32 31 29 3B C9 28 58 24 2C |...(Y$,21);.(X$,|
000048C0: 32 38 29 3B 54 54 00 DE 50 63 12 8B 20 43 4D 49 |28);TT..Pc.. CMI|
000048D0: 4E AB 31 B3 43 41 4E 20 A7 20 34 37 32 30 00 15 |N.1.CAN . 4720..|
000048E0: 51 66 12 99 C8 28 59 24 2C 32 34 29 3B 22 20 20 |Qf...(Y$,24);" |
000048F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004910: 20 20 20 20 22 00 47 51 68 12 99 C8 28 59 24 2C | ".GQh...(Y$,|
00004920: 32 34 29 3B 22 12 20 51 55 45 44 41 4E 20 53 4F |24);". QUEDAN SO|
00004930: 4C 4F 20 22 3B 43 41 4E 3B 22 9D 20 55 4E 49 44 |LO ";CAN;". UNID|
00004940: 41 44 45 53 20 92 22 00 8E 51 6B 12 56 56 B2 32 |ADES ."..Qk.VV.2|
00004950: 31 32 AC 32 35 36 3A 97 56 56 AA 32 34 2C 31 35 |12.256:.VV.24,15|
00004960: 3A 97 56 56 2C 30 3A 8F 20 43 52 45 4F 20 53 4F |:.VV,0:. CREO SO|
00004970: 4E 49 44 4F 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |NIDO++++++++++++|
00004980: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 C1 |++++++++++++++..|
00004990: 51 6D 12 97 56 56 AA 31 2C 38 30 3A 97 56 56 AA |Qm..VV.1,80:.VV.|
000049A0: 35 2C 39 3A 97 56 56 AA 34 2C 30 3A 97 56 56 AA |5,9:.VV.4,0:.VV.|
000049B0: 34 2C 33 33 3A 81 4A B2 31 A4 31 30 30 30 3A 82 |4,33:.J.1.1000:.|
000049C0: 4A 00 D9 51 70 12 46 41 24 28 4D 44 29 B2 C4 28 |J..Qp.FA$(MD)..(|
000049D0: 41 31 29 AA C4 28 43 31 29 00 E3 51 75 12 8D 31 |A1)..(C1)..Qu..1|
000049E0: 32 35 30 00 EE 51 7A 12 89 20 34 34 30 32 00 27 |250..Qz.. 4402.'|
000049F0: 52 8E 12 99 C8 28 59 24 2C 32 34 29 3B 22 20 20 |R....(Y$,24);" |
00004A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004A20: 20 20 20 20 20 22 3B 00 59 52 90 12 99 C8 28 59 | ";.YR....(Y|
00004A30: 24 2C 32 34 29 3B 22 9F 41 50 52 55 45 42 41 20 |$,24);".APRUEBA |
00004A40: 4C 41 20 46 41 43 54 55 52 41 20 28 53 2F 4E 29 |LA FACTURA (S/N)|
00004A50: 9A 22 3B 3A 85 20 5A 39 24 00 6D 52 93 12 8B 20 |.";:. Z9$.mR... |
00004A60: 5A 39 24 B2 22 53 22 A7 20 34 37 38 30 00 82 52 |Z9$."S". 4780..R|
00004A70: 98 12 8B 20 5A 39 24 B3 B1 22 4E 22 A7 20 34 37 |... Z9$.."N". 47|
00004A80: 35 32 00 C3 52 9D 12 58 39 24 B2 22 22 3A 99 C8 |52..R..X9$."":..|
00004A90: 28 59 24 2C 32 34 29 3B 22 9F 52 45 50 49 54 41 |(Y$,24);".REPITA|
00004AA0: 2C 9A 20 41 50 52 55 45 42 41 20 4C 41 20 46 41 |,. APRUEBA LA FA|
00004AB0: 43 54 55 52 41 20 28 53 2F 4E 29 22 3B 3A 85 20 |CTURA (S/N)";:. |
00004AC0: 58 39 24 00 F6 52 A2 12 8B 20 58 39 24 B2 22 4E |X9$..R... X9$."N|
00004AD0: 22 A7 20 43 4F B2 43 4F AB 31 3A 81 4A B2 31 A4 |". CO.CO.1:.J.1.|
00004AE0: 39 39 3A 46 41 24 28 4A 29 B2 22 22 3A 82 4A 3A |99:FA$(J)."":.J:|
00004AF0: 89 20 34 30 33 30 00 0A 53 A7 12 8B 20 58 39 24 |. 4030..S... X9$|
00004B00: B3 B1 22 53 22 A7 34 37 36 35 00 48 53 AC 12 99 |.."S".4765.HS...|
00004B10: 22 93 22 3A 99 C8 28 59 24 2C 32 34 29 3B 22 49 |".":..(Y$,24);"I|
00004B20: 4E 47 52 45 53 45 20 30 20 50 41 52 41 20 41 4E |NGRESE 0 PARA AN|
00004B30: 55 4C 41 52 20 4C 41 20 46 41 43 54 55 52 41 20 |ULAR LA FACTURA |
00004B40: 20 20 20 20 20 20 22 3B 00 8A 53 B1 12 5A 35 24 | ";..S..Z5$|
00004B50: B2 22 22 3A 99 22 13 50 52 45 50 41 52 45 20 4C |."":.".PREPARE L|
00004B60: 41 20 49 4D 50 52 45 53 4F 52 41 20 59 22 3A 99 |A IMPRESORA Y":.|
00004B70: 22 4C 55 45 47 4F 20 50 55 4C 53 45 20 52 45 54 |"LUEGO PULSE RET|
00004B80: 55 52 4E 22 3B 3A 85 5A 35 24 00 9E 53 B6 12 8B |URN";:.Z5$..S...|
00004B90: 20 5A 35 24 B2 22 30 22 A7 20 34 37 36 35 00 A4 | Z5$."0". 4765..|
00004BA0: 53 C0 12 90 00 AA 53 3E 1F 8F 00 F8 53 3F 1F 8F |S.....S>....S?..|
00004BB0: 20 43 4F 4D 49 45 4E 5A 41 20 53 55 42 20 4D 45 | COMIENZA SUB ME|
00004BC0: 4E 55 20 46 41 43 54 55 52 41 2A 2A 2A 2A 2A 2A |NU FACTURA******|
00004BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004BF0: 2A 2A 2A 2A 2A 2A 2A 2A 00 27 54 40 1F 99 22 93 |********.'T@..".|
00004C00: 20 20 C2 41 52 54 C2 44 45 53 43 52 49 50 C2 50 | .ART.DESCRIP.P|
00004C10: 2E 55 4E 49 54 C2 49 56 41 C2 43 41 4E 54 C2 49 |.UNIT.IVA.CANT.I|
00004C20: 4D 50 4F 52 54 45 22 00 5A 54 45 1F 99 22 20 20 |MPORTE".ZTE.." |
00004C30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00004C40: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00004C50: A3 A3 A3 A3 A3 A3 22 3B 3A 8C 00 69 54 4A 1F 81 |......";:..iTJ..|
00004C60: 4A B2 31 A4 36 3A 87 20 41 00 88 54 4F 1F 81 4B |J.1.6:. A..TO..K|
00004C70: B2 31 A4 31 38 3A 41 B2 41 AA 34 30 3A 97 41 2C |.1.18:A.A.40:.A,|
00004C80: 36 36 3A 82 4B 3A 82 4A 00 BF 54 54 1F 99 C8 28 |66:.K:.J..TT...(|
00004C90: 59 24 2C 32 30 29 3B C9 28 58 24 2C 31 31 29 3B |Y$,20);.(X$,11);|
00004CA0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00004CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00004CC0: EA 54 59 1F 99 C8 28 59 24 2C 32 31 29 3B C9 28 |.TY...(Y$,21);.(|
00004CD0: 58 24 2C 31 31 29 3B 22 A5 49 4D 50 4F 52 54 45 |X$,11);".IMPORTE|
00004CE0: 20 46 49 4E 41 4C 3A 24 41 22 00 21 55 5E 1F 99 | FINAL:$A".!U^..|
00004CF0: C8 28 59 24 2C 32 32 29 3B C9 28 58 24 2C 31 31 |.(Y$,22);.(X$,11|
00004D00: 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |);"-------------|
00004D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004D20: 22 00 45 55 9F 1F 83 20 31 30 32 36 2C 31 30 33 |".EU... 1026,103|
00004D30: 30 2C 31 30 33 38 2C 31 30 34 35 2C 31 30 34 39 |0,1038,1045,1049|
00004D40: 2C 31 30 35 34 00 8E 55 A4 1F 8E 3A 8F 20 46 49 |,1054..U...:. FI|
00004D50: 4E 20 4D 45 4E 55 20 46 41 43 54 55 52 41 2A 2A |N MENU FACTURA**|
00004D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 |**************..|
00004D90: 55 A9 1F 99 C8 28 59 24 2C 32 34 29 3B 22 54 49 |U....(Y$,24);"TI|
00004DA0: 50 45 45 20 30 20 50 41 52 41 20 4D 4F 44 49 46 |PEE 0 PARA MODIF|
00004DB0: 49 43 41 52 20 4F 20 54 45 52 4D 49 4E 41 52 22 |ICAR O TERMINAR"|
00004DC0: 00 CA 55 AE 1F 89 38 31 31 30 00 D0 55 06 20 8F |..U...8110..U. .|
00004DD0: 00 1E 56 07 20 8F 20 43 4F 4D 49 45 4E 5A 41 20 |..V. . COMIENZA |
00004DE0: 53 55 42 20 4C 49 53 54 41 44 4F 53 2A 2A 2A 2A |SUB LISTADOS****|
00004DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B |**************.K|
00004E20: 56 08 20 99 22 93 22 3A 99 22 20 20 20 20 20 20 |V. .".":." |
00004E30: 20 20 20 12 20 4C 49 53 54 41 44 4F 53 20 59 20 | . LISTADOS Y |
00004E40: 43 4F 4E 53 55 4C 54 41 53 20 22 00 7C 56 0D 20 |CONSULTAS ".|V. |
00004E50: 99 C8 28 59 24 2C 38 29 3B 22 31 2E 2D 20 4C 49 |..(Y$,8);"1.- LI|
00004E60: 53 54 41 44 4F 20 44 45 20 4C 49 53 54 41 20 44 |STADO DE LISTA D|
00004E70: 45 20 50 52 45 43 49 4F 53 20 31 22 00 AE 56 12 |E PRECIOS 1"..V.|
00004E80: 20 99 C8 28 59 24 2C 31 30 29 3B 22 32 2E 2D 20 | ..(Y$,10);"2.- |
00004E90: 4C 49 53 54 41 44 4F 20 44 45 20 4C 49 53 54 41 |LISTADO DE LISTA|
00004EA0: 20 44 45 20 50 52 45 43 49 4F 53 20 32 22 00 E5 | DE PRECIOS 2"..|
00004EB0: 56 17 20 99 C8 28 59 24 2C 31 32 29 3B 22 33 2E |V. ..(Y$,12);"3.|
00004EC0: 2D 20 4C 49 53 54 41 44 4F 20 44 45 20 41 4D 42 |- LISTADO DE AMB|
00004ED0: 41 53 20 4C 49 53 54 41 53 20 44 45 20 50 52 45 |AS LISTAS DE PRE|
00004EE0: 43 49 4F 53 22 00 1B 57 1C 20 99 C8 28 59 24 2C |CIOS"..W. ..(Y$,|
00004EF0: 31 34 29 3B 22 34 2E 2D 20 4C 49 53 54 41 44 4F |14);"4.- LISTADO|
00004F00: 20 44 45 20 41 52 54 2E 20 43 4F 4E 20 53 54 4F | DE ART. CON STO|
00004F10: 43 4B 20 43 52 49 54 49 43 4F 22 00 4D 57 21 20 |CK CRITICO".MW! |
00004F20: 99 C8 28 59 24 2C 31 36 29 3B 22 35 2E 2D 20 4C |..(Y$,16);"5.- L|
00004F30: 49 53 54 41 44 4F 20 44 45 20 53 54 4F 43 4B 20 |ISTADO DE STOCK |
00004F40: 44 45 20 41 52 54 49 43 55 4C 4F 53 22 00 70 57 |DE ARTICULOS".pW|
00004F50: 26 20 99 C8 28 59 24 2C 31 38 29 3B 22 36 2E 2D |& ..(Y$,18);"6.-|
00004F60: 20 56 55 45 4C 56 45 20 41 4C 20 4D 45 4E 55 22 | VUELVE AL MENU"|
00004F70: 00 A0 57 2B 20 99 C8 28 59 24 2C 32 33 29 3B 22 |..W+ ..(Y$,23);"|
00004F80: 49 4E 47 52 45 53 45 20 4C 41 20 4F 50 43 49 4F |INGRESE LA OPCIO|
00004F90: 4E 20 45 4C 45 47 49 44 41 22 3B 3A 85 20 50 24 |N ELEGIDA";:. P$|
00004FA0: 00 D6 57 30 20 8B 20 50 24 B2 22 31 22 B0 50 24 |..W0 . P$."1".P$|
00004FB0: B2 22 32 22 B0 50 24 B2 22 33 22 B0 50 24 B2 22 |."2".P$."3".P$."|
00004FC0: 34 22 B0 50 24 B2 22 35 22 B0 50 24 B2 22 36 22 |4".P$."5".P$."6"|
00004FD0: A7 20 38 32 34 35 00 E1 57 32 20 89 20 38 32 33 |. 8245..W2 . 823|
00004FE0: 35 00 06 58 35 20 9F 20 34 2C 34 3A 8F 20 41 42 |5..X5 . 4,4:. AB|
00004FF0: 52 4F 20 49 4D 50 52 45 53 4F 52 41 2B 2B 2B 2B |RO IMPRESORA++++|
00005000: 2B 2B 2B 2B 2B 2B 00 19 58 36 20 8B 20 50 24 B2 |++++++..X6 . P$.|
00005010: 22 36 22 A7 20 31 38 30 30 00 4A 58 37 20 99 22 |"6". 1800.JX7 ."|
00005020: 93 22 3A 99 C8 28 59 24 2C 32 34 29 3B 22 54 49 |.":..(Y$,24);"TI|
00005030: 50 45 45 20 30 20 50 41 52 41 20 56 4F 4C 56 45 |PEE 0 PARA VOLVE|
00005040: 52 20 41 4C 20 4D 45 4E 55 22 00 85 58 38 20 99 |R AL MENU"..X8 .|
00005050: 20 22 13 50 52 45 50 41 52 45 20 4C 41 20 49 4D | ".PREPARE LA IM|
00005060: 50 52 45 53 4F 52 41 22 3A 99 22 59 20 4C 55 45 |PRESORA":."Y LUE|
00005070: 47 4F 20 50 55 4C 53 45 20 52 45 54 55 52 4E 22 |GO PULSE RETURN"|
00005080: 3B 3A 85 54 24 00 97 58 39 20 8B 54 24 B2 22 30 |;:.T$..X9 .T$."0|
00005090: 22 A7 20 31 38 30 30 00 C6 58 3A 20 50 B2 C5 28 |". 1800..X: P..(|
000050A0: 50 24 29 3A 91 20 50 20 89 38 32 35 35 2C 38 33 |P$):. P .8255,83|
000050B0: 30 30 2C 38 33 35 30 2C 38 34 30 30 2C 38 34 35 |00,8350,8400,845|
000050C0: 30 2C 31 38 30 30 00 E3 58 3F 20 45 31 24 B2 C9 |0,1800..X? E1$..|
000050D0: 28 58 24 2C 37 29 3A 45 32 24 B2 C9 28 58 24 2C |(X$,7):E2$..(X$,|
000050E0: 32 35 29 00 14 59 41 20 98 34 2C 20 22 41 52 54 |25)..YA .4, "ART|
000050F0: 2E 22 3B 45 31 24 3B 22 44 45 53 43 52 49 50 43 |.";E1$;"DESCRIPC|
00005100: 49 4F 4E 22 3B 45 32 24 3B 22 50 52 45 43 49 4F |ION";E2$;"PRECIO|
00005110: 20 24 41 22 00 47 59 44 20 98 34 2C 20 22 2D 2D | $A".GYD .4, "--|
00005120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005140: 2D 2D 2D 2D 2D 2D 22 00 58 59 49 20 81 20 41 31 |------".XYI . A1|
00005150: B2 31 20 A4 20 32 30 30 00 74 59 4E 20 8D 20 31 |.1 . 200.tYN . 1|
00005160: 32 30 30 3A 20 8B 20 4E 4F 24 B2 22 22 20 A7 20 |200: . NO$."" . |
00005170: 38 32 38 35 00 92 59 53 20 98 34 2C 20 41 31 3B |8285..YS .4, A1;|
00005180: 45 31 24 3B 4E 4F 24 3B 45 32 24 3B 50 52 45 28 |E1$;NO$;E2$;PRE(|
00005190: 31 29 00 9B 59 58 20 82 20 41 31 00 AA 59 5D 20 |1)..YX . A1..Y] |
000051A0: A0 20 34 3A 89 20 31 38 30 30 00 C7 59 6C 20 45 |. 4:. 1800..Yl E|
000051B0: 31 24 B2 C9 28 58 24 2C 37 29 3A 45 32 24 B2 C9 |1$..(X$,7):E2$..|
000051C0: 28 58 24 2C 32 35 29 00 F8 59 6E 20 98 34 2C 20 |(X$,25)..Yn .4, |
000051D0: 22 41 52 54 2E 22 3B 45 31 24 3B 22 44 45 53 43 |"ART.";E1$;"DESC|
000051E0: 52 49 50 43 49 4F 4E 22 3B 45 32 24 3B 22 50 52 |RIPCION";E2$;"PR|
000051F0: 45 43 49 4F 20 24 41 22 00 2B 5A 71 20 98 34 2C |ECIO $A".+Zq .4,|
00005200: 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | "--------------|
00005210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 3C 5A 76 20 |----------".<Zv |
00005230: 81 20 41 31 B2 31 20 A4 20 32 30 30 00 58 5A 7B |. A1.1 . 200.XZ{|
00005240: 20 8D 20 31 32 30 30 3A 20 8B 20 4E 4F 24 B2 22 | . 1200: . NO$."|
00005250: 22 20 A7 20 38 33 33 30 00 76 5A 80 20 98 34 2C |" . 8330.vZ. .4,|
00005260: 20 41 31 3B 45 31 24 3B 4E 4F 24 3B 45 32 24 3B | A1;E1$;NO$;E2$;|
00005270: 50 52 45 28 32 29 00 7F 5A 85 20 82 20 41 31 00 |PRE(2)..Z. . A1.|
00005280: 8E 5A 8A 20 A0 20 34 3A 89 20 31 38 30 30 00 B8 |.Z. . 4:. 1800..|
00005290: 5A 9E 20 45 31 24 B2 C9 28 58 24 2C 37 29 3A 45 |Z. E1$..(X$,7):E|
000052A0: 32 24 B2 C9 28 58 24 2C 32 35 29 3A 45 33 24 B2 |2$..(X$,25):E3$.|
000052B0: C9 28 58 24 2C 34 30 29 00 FB 5A A0 20 98 34 2C |.(X$,40)..Z. .4,|
000052C0: 20 22 41 52 54 2E 22 3B 45 31 24 3B 22 44 45 53 | "ART.";E1$;"DES|
000052D0: 43 52 49 50 43 49 4F 4E 22 3B 45 32 24 3B 22 4C |CRIPCION";E2$;"L|
000052E0: 49 53 54 41 20 31 20 24 41 22 3B 45 33 24 3B 22 |ISTA 1 $A";E3$;"|
000052F0: 4C 49 53 54 41 20 32 20 24 41 22 00 3A 5B A3 20 |LISTA 2 $A".:[. |
00005300: 98 34 2C 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.4, "-----------|
00005310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 4B 5B A8 20 81 |---------".K[. .|
00005340: 20 41 31 B2 31 20 A4 20 32 30 30 00 67 5B AD 20 | A1.1 . 200.g[. |
00005350: 8D 20 31 32 30 30 3A 20 8B 20 4E 4F 24 B2 22 22 |. 1200: . NO$.""|
00005360: 20 A7 20 38 33 38 30 00 90 5B B2 20 98 34 2C 20 | . 8380..[. .4, |
00005370: 41 31 3B 45 31 24 3B 4E 4F 24 3B 45 32 24 3B 50 |A1;E1$;NO$;E2$;P|
00005380: 52 45 28 31 29 3B 45 33 24 3B 50 52 45 28 32 29 |RE(1);E3$;PRE(2)|
00005390: 00 99 5B B7 20 82 20 41 31 00 A8 5B BC 20 A0 20 |..[. . A1..[. . |
000053A0: 34 3A 89 20 31 38 30 30 00 D2 5B D0 20 45 31 24 |4:. 1800..[. E1$|
000053B0: B2 C9 28 58 24 2C 37 29 3A 45 32 24 B2 C9 28 58 |..(X$,7):E2$..(X|
000053C0: 24 2C 32 35 29 3A 45 33 24 B2 C9 28 58 24 2C 33 |$,25):E3$..(X$,3|
000053D0: 35 29 00 13 5C D2 20 98 34 2C 20 22 41 52 54 2E |5)..\. .4, "ART.|
000053E0: 22 3B 45 31 24 3B 22 44 45 53 43 52 49 50 43 49 |";E1$;"DESCRIPCI|
000053F0: 4F 4E 22 3B 45 32 24 3B 22 53 54 4F 43 4B 20 22 |ON";E2$;"STOCK "|
00005400: 3B 45 33 24 3B 22 53 54 4F 43 4B 20 4D 49 4E 49 |;E3$;"STOCK MINI|
00005410: 4D 4F 22 00 4D 5C D5 20 98 34 2C 20 22 2D 2D 2D |MO".M\. .4, "---|
00005420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 5E 5C |------------".^\|
00005450: DA 20 81 20 41 31 B2 31 20 A4 20 32 30 30 00 7A |. . A1.1 . 200.z|
00005460: 5C DF 20 8D 20 31 32 30 30 3A 20 8B 20 4E 4F 24 |\. . 1200: . NO$|
00005470: B2 22 22 20 A7 20 38 34 33 30 00 92 5C E1 20 8B |."" . 8430..\. .|
00005480: 20 43 41 4E AA 31 B1 43 4D 49 4E 20 A7 20 38 34 | CAN.1.CMIN . 84|
00005490: 32 35 00 B6 5C E4 20 98 34 2C 20 41 31 3B 45 31 |25..\. .4, A1;E1|
000054A0: 24 3B 4E 4F 24 3B 45 32 24 3B 43 41 4E 3B 45 33 |$;NO$;E2$;CAN;E3|
000054B0: 24 3B 43 4D 49 4E 00 BF 5C E9 20 82 20 41 31 00 |$;CMIN..\. . A1.|
000054C0: CE 5C EE 20 A0 20 34 3A 89 20 31 38 30 30 00 F8 |.\. . 4:. 1800..|
000054D0: 5C 02 21 45 31 24 B2 C9 28 58 24 2C 37 29 3A 45 |\.!E1$..(X$,7):E|
000054E0: 32 24 B2 C9 28 58 24 2C 32 35 29 3A 45 33 24 B2 |2$..(X$,25):E3$.|
000054F0: C9 28 58 24 2C 33 35 29 00 39 5D 04 21 98 34 2C |.(X$,35).9].!.4,|
00005500: 20 22 41 52 54 2E 22 3B 45 31 24 3B 22 44 45 53 | "ART.";E1$;"DES|
00005510: 43 52 49 50 43 49 4F 4E 22 3B 45 32 24 3B 22 53 |CRIPCION";E2$;"S|
00005520: 54 4F 43 4B 20 22 3B 45 33 24 3B 22 53 54 4F 43 |TOCK ";E3$;"STOC|
00005530: 4B 20 4D 49 4E 49 4D 4F 22 00 73 5D 07 21 98 34 |K MINIMO".s].!.4|
00005540: 2C 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |, "-------------|
00005550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005570: 2D 2D 22 00 84 5D 0C 21 81 20 41 31 B2 31 20 A4 |--"..].!. A1.1 .|
00005580: 20 32 30 30 00 A0 5D 11 21 8D 20 31 32 30 30 3A | 200..].!. 1200:|
00005590: 20 8B 20 4E 4F 24 B2 22 22 20 A7 20 38 34 38 30 | . NO$."" . 8480|
000055A0: 00 C4 5D 16 21 98 34 2C 20 41 31 3B 45 31 24 3B |..].!.4, A1;E1$;|
000055B0: 4E 4F 24 3B 45 32 24 3B 43 41 4E 3B 45 33 24 3B |NO$;E2$;CAN;E3$;|
000055C0: 43 4D 49 4E 00 CD 5D 1B 21 82 20 41 31 00 DC 5D |CMIN..].!. A1..]|
000055D0: 20 21 A0 20 34 3A 89 20 31 38 30 30 00 E2 5D A9 | !. 4:. 1800..].|
000055E0: 26 8F 00 30 5E AA 26 8F 20 43 4F 4D 49 45 4E 5A |&..0^.&. COMIENZ|
000055F0: 41 20 53 55 42 20 47 52 41 42 4F 20 41 52 43 48 |A SUB GRABO ARCH|
00005600: 49 56 4F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |IVO*************|
00005610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005630: 00 36 5E AB 26 8F 00 3F 5E AC 26 99 22 93 22 00 |.6^.&..?^.&.".".|
00005640: 7F 5E AD 26 99 C8 28 59 24 2C 34 29 3B 22 44 45 |.^.&..(Y$,4);"DE|
00005650: 53 45 41 20 47 52 41 42 41 52 20 45 4C 20 41 52 |SEA GRABAR EL AR|
00005660: 43 48 49 56 4F 20 28 53 2F 4E 29 20 3F 22 3A A1 |CHIVO (S/N) ?":.|
00005670: 20 51 24 3A 8B 51 24 B2 22 22 A7 39 39 30 31 00 | Q$:.Q$."".9901.|
00005680: AB 5E AE 26 99 C8 28 59 24 2C 32 33 29 3B 22 50 |.^.&..(Y$,23);"P|
00005690: 41 52 41 20 56 4F 4C 56 45 52 20 41 4C 20 4D 45 |ARA VOLVER AL ME|
000056A0: 4E 55 20 54 49 50 45 45 20 4F 22 00 BE 5E B0 26 |NU TIPEE O"..^.&|
000056B0: 8B 20 51 24 B3 B1 22 4E 22 A7 39 39 31 30 00 FD |. Q$.."N".9910..|
000056C0: 5E B1 26 99 C8 28 59 24 2C 34 29 3B 22 52 45 50 |^.&..(Y$,4);"REP|
000056D0: 49 54 41 20 53 55 20 52 45 53 50 55 45 53 54 41 |ITA SU RESPUESTA|
000056E0: 20 28 53 2F 4E 29 20 3F 20 20 20 20 20 22 3A A1 | (S/N) ? ":.|
000056F0: 51 24 3A 8B 51 24 B2 22 4E 22 A7 20 80 00 0F 5F |Q$:.Q$."N". ..._|
00005700: B3 26 8B 20 51 24 B2 22 30 22 20 A7 20 37 35 00 |.&. Q$."0" . 75.|
00005710: 24 5F B4 26 8B 20 51 24 B3 B1 22 53 22 20 A7 20 |$_.&. Q$.."S" . |
00005720: 39 39 30 35 00 2F 5F B5 26 89 20 39 39 31 35 00 |9905./_.&. 9915.|
00005730: 41 5F B6 26 8B 20 51 24 B2 22 30 22 20 A7 20 37 |A_.&. Q$."0" . 7|
00005740: 35 00 55 5F B7 26 8B 20 51 24 B3 B1 22 53 22 A7 |5.U_.&. Q$.."S".|
00005750: 20 39 39 30 31 00 80 5F BB 26 99 22 93 22 3A 99 | 9901.._.&.".":.|
00005760: 22 50 52 45 50 41 52 45 20 45 4C 20 43 41 53 53 |"PREPARE EL CASS|
00005770: 45 54 54 45 20 41 20 47 52 41 42 41 52 2C 20 22 |ETTE A GRABAR, "|
00005780: 00 9E 5F C0 26 85 20 22 4C 55 45 47 4F 20 50 55 |.._.&. "LUEGO PU|
00005790: 4C 53 45 20 52 45 54 55 52 4E 22 3B 4F 24 00 AA |LSE RETURN";O$..|
000057A0: 5F C5 26 9F 20 31 2C 31 2C 32 00 BA 5F CA 26 81 |_.&. 1,1,2.._.&.|
000057B0: 20 4A B2 31 20 A4 20 32 30 30 00 C8 5F CF 26 98 | J.1 . 200.._.&.|
000057C0: 31 2C 52 45 24 28 4A 29 00 D0 5F D4 26 82 20 4A |1,RE$(J).._.&. J|
000057D0: 00 D8 5F D9 26 A0 20 31 00 DE 5F DD 26 8F 00 2C |.._.&. 1.._.&..,|
000057E0: 60 DE 26 8F 20 46 49 4E 20 53 55 42 20 47 52 41 |`.&. FIN SUB GRA|
000057F0: 42 4F 20 41 52 43 48 49 56 4F 2A 2A 2A 2A 2A 2A |BO ARCHIVO******|
00005800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 60 E3 |************.2`.|
00005830: 26 8F 00 4C 60 10 27 8F 20 20 20 31 30 30 3D 50 |&..L`.'. 100=P|
00005840: 4F 4E 47 4F 20 54 49 54 55 4C 4F 53 00 67 60 11 |ONGO TITULOS.g`.|
00005850: 27 8F 20 20 20 39 39 30 30 3D 47 52 41 42 4F 20 |'. 9900=GRABO |
00005860: 41 52 43 48 49 56 4F 00 79 60 12 27 8F 20 20 20 |ARCHIVO.y`.'. |
00005870: 32 30 30 3D 20 4D 45 4E 55 00 8B 60 13 27 8F 20 |200= MENU..`.'. |
00005880: 20 20 35 30 30 2D 53 54 4F 43 4B 00 A2 60 14 27 | 500-STOCK..`.'|
00005890: 8F 20 20 20 39 30 30 2D 4D 45 4E 55 20 53 54 4F |. 900-MENU STO|
000058A0: 43 4B 00 B7 60 15 27 8F 20 20 20 31 35 30 2D 52 |CK..`.'. 150-R|
000058B0: 45 43 55 41 44 52 4F 00 D9 60 16 27 8F 20 20 20 |ECUADRO..`.'. |
000058C0: 31 32 30 30 2D 43 4F 4E 56 45 52 53 49 4F 4E 20 |1200-CONVERSION |
000058D0: 41 20 4E 55 4D 45 52 4F 53 00 FA 60 17 27 8F 20 |A NUMEROS..`.'. |
000058E0: 20 20 31 32 35 30 2D 43 4F 4E 56 45 52 53 49 4F | 1250-CONVERSIO|
000058F0: 4E 20 41 20 43 41 44 45 4E 41 00 1E 61 18 27 8F |N A CADENA..a.'.|
00005900: 20 20 20 31 30 30 30 2D 41 4C 54 41 53 20 59 20 | 1000-ALTAS Y |
00005910: 4D 4F 44 49 46 49 43 41 43 49 4F 4E 45 53 00 3D |MODIFICACIONES.=|
00005920: 61 19 27 8F 20 20 20 31 35 30 30 2D 43 41 4D 42 |a.'. 1500-CAMB|
00005930: 49 4F 20 44 45 20 50 52 45 43 49 4F 53 00 5F 61 |IO DE PRECIOS._a|
00005940: 1A 27 8F 20 20 20 31 38 30 30 2D 4C 49 53 54 41 |.'. 1800-LISTA|
00005950: 44 4F 53 20 59 20 43 4F 4E 53 55 4C 54 41 53 00 |DOS Y CONSULTAS.|
00005960: 79 61 1B 27 8F 20 20 20 33 30 30 30 2D 41 55 54 |ya.'. 3000-AUT|
00005970: 4F 52 49 5A 41 43 49 4F 4E 00 95 61 1C 27 8F 20 |ORIZACION..a.'. |
00005980: 20 20 38 30 30 30 2D 43 55 41 44 52 4F 20 46 41 | 8000-CUADRO FA|
00005990: 43 54 55 52 41 00 00 00 1C |CTURA.... |
....... RE$(200),FA$(99).0....53281,16:.
53280,16.L...."....................PROGR
AMADOR: 72-9940":.J.1.250:.J...... 100:.
SUB PONGO TITULO++++++.A...Y$."........
.................":. CURSOR ABAJO.....X$
."......................................
.":E1$."PETETE".N.... LEO ARCHIVO*******
****************************************
**************......H(Y$,23);"VA A LEER
EL ARCHIVO (S/N)";:.Q1$:. Q1$."N". 75. .
... Q1$.."S". 25...#..H(Y$,23);"PREPARE
EL CASSETTE EN EL INICIO DEL ARCHIVO,
";...(.O$."":."LUEGO PULSE RETURN ";O$.
..-.. 1,1,0.-.2.. J.1 . 200:.1,RE$(J).J.
7.. ST.64 . 1:J.201:. 65.Q.<.. ST..0 .
."CINTA EN MAL ESTADO":..Y.A.. J.I.F..
FIN LEO ARCHIVO*************************
*********************************...K..
200:. SUB MENU+++++++++++++...P.. A . 50
0,4000,9900.R.U.. CUIDADO CON "A" EN MEN
U,AGREGAR MAS SUBRUTINAS****************
**********.V.Z.. 75:. VUELVE AL MENU++++
++++++.|.B...L.C.. COMIENZA SUB PONGO TI
TULO************************************
************...D.. BUSCAR LETRS MAS LIND
AS (LIBRO BASIC2 PAG 372, FOTOCOPIAS MAR
IANO)+++++.#.I..".".L.N.."...........";.
12);".SISTEMA DE":..K.S...12);".GESTION
COMERCIAL"...X.. 150:. SUB RECUADRO.M.}
..:. FIN SUB PONGO TITULO***************
*****************************.S....."...
. COMIENZA SUB RECUADRO*****************
**********************************.U....
".....";.5);"..........................
....".~. .. J.1 . 15: . .5) G(166);.34)
G(166)...... J:. ;.5);".................
.............";"."......:. FIN RECUADRO*
****************************************
************...E...Q.F.. COMIENZA SUB ME
NU *************************************
*****************.W.G.....H..".":.".....
.";.11);".GESTION COMERCIAL"...M.. .11)"
------- ---------":.:....R.. .8)"1.- STO
CK":..Z.W.. .8)"2.- FACTURACION":.......
PRINTTAB(8)"3.- CUENTAS CORRIENTES":P
RINT. .....8)"3.- SALIDA.5.... 150:. REC
UADRO.G....H(Y$,23);"INGRESE UNA DE LAS
OPCIONES";:. A$...... A$."1".A$."2".A$."
3". A.E(A$):..Y....235:. FIN SUB MENU***
****************************************
*********.....REN.REN.1:.4355.<.... COMI
ENZA SUB STOCK**************************
****************************.^.... 900:.
SUB MENU STOCK+++++++...... B . 1000, 1
300,1500,1800,1950:. CUIDADO CAMBIAR+...
......... COMIENZA SUB MENU STOCK*******
****************************************
**......".......";.16);".STOCK":..16)"--
---":.:..?.....7)"1.- ALTAS Y MODIFICACI
ONES":..B.....7)"2.- BAJAS DE ARTICULOS"
:........7)"3.- CAMBIOS DE PRECIOS":....
....7)"4.- LISTADOS Y CONSULTAS":..G....
.7)"5.- MENU PRINCIPAL"...... 150:. SUB
RECUADRO+++++++++......H(Y$,24);"INGRESE
LA OPCION ELEGIDA";:. B$.L.... B$."1".B
$."2".B$."3".B$."4".B$."5".B.E(B$):.....
..935:. FIN SUB MENU STOCK**************
********************************...... C
OMIENZA SUB ALTAS Y MODIFICACIONES******
*******************************......"."
:.;.7)"ALTAS Y MODIFICACIONES".>.....7
)"----- - --------------":.BA.1.1003.\
....3000:BA.1:. AUTORIZACION......H(Y$,2
3);"PARA VOLVER AL MENU TIPEE 0"...... H
(Y$,7);"ARTICULO (1-200)";:A1.999:. A1.Q
.... A1.0 . A1.200 . 1005...... A1..0. 1
020.....BA.0:. 500.)....H(Y$,23);"
".4....
1200.G.... NO$."". 1060.N....H(Y$,8);"1.
- DESCRIPCION: ";NO$......H(Y$,9);"2.-
STOCK ACTUAL: ";CAN......H(Y$,10);"3.-
STOCK MINIMO: ";CMIN......H(Y$,11);"4.
- PORCENTAJE IVA: ";IVA......H(Y$,12);"
5.- PRECIO LISTA 1: ";PRE(1).I....H(Y$,
13);"6.- PRECIO LISTA 2: ";PRE(2):. 115
0...$..H(Y$,8);"1.- DESCRIPCION: ";:. NO
$: . SEN.1 . 1150...)..H(Y$,9);"2.- STOC
K ACTUAL: ";:. CAN.I.... CAN.0 . CAN.999
99 . 1065...3.. SEN.1 . 1150...8..H(Y$,1
0);"3.- STOCK MINIMO: ";:. CMIN.'.<.. CM
IN.0 . CMIN.9999 . 1080.:.>.. SEN.1 . 11
50.F.B..H(Y$,11);"4.- PORCENTAJE IVA: ";
:. IVA...F.. IVA.0 . IVA.40 . 1090...H..
SEN.1 . 1150.D.L..H(Y$,12);"5.- PRECIO
LISTA 1: ";:. PRE(1)...P.. PRE(1).0 . PR
E(1).999999 . 1100...R.. SEN.1 . 1150.,.
V..H(Y$,13);"6.- PRECIO LISTA 2: ";:. PR
E(2).R.Z.. PRE(2).0 . PRE(2).999999 . 11
10.E.\.. SEN.1 . 1150...~..H(Y$,23);"DES
EA MODIFICAR ALGUN CAMPO (S/N): ?";:. Q$
:SEN.0.A.... Q$."N" . .1250:.1000.V....
Q$.."S" . 1150......H(Y$,23);"
".J....H(Y$,
23);"TIPEE NRO. DEL CAMPO A MODIFICAR";:
. Q$:SEN.1...... Q$."1".Q$."2".Q$."3".Q$
."4".Q$."5".Q$."6".Q.E(Q$):.1175......11
65...... Q . 1060,1065,1080,1090,1100,11
10...... COMIENZA SUB CONVERSION A NUMER
OS**************************************
.9...CAN.E(J(RE$(A1),1,5)):CMIN.E(J(RE$(
A1),6,4)).Q...PRE(1).E(J(RE$(A1),10,6)):
PRE(2).E(J(RE$(A1),16,6)).....IVA.E(J(RE
$(A1),22,2)):NO$.J(RE$(A1),24,14)...D..:
. FIN SUB CONVERSION A NUMEROS**********
**************************.8.... COMIENZ
A SUB CONVERSION A CADENA***************
************************.Q...CAN$.J(D(CA
N.100000),3,5):CMIN$.J(D(CMIN.10000),3,4
).....P1$.J(D(PRE(1).1000000),3,6):P2$.J
(D(PRE(2).1000000),3,6).J...IVA$.J(D(IVA
.100),3,2).....RE$(A1).CAN$.CMIN$.P1$.P2
$.IVA$.NO$.;....: . FIN SUB CONVERSION A
CADENAS********************************
***.A.......... COMIENZA SUB BAJAS DE AR
TICULOS*********************************
*******......".. . BAJAS DE AR
TICULOS ".R....3000:. AUTORIZACION...*..
H(Y$,13);"
".@.+..H(Y$,15);"
".V.,..H(Y$,18);"
"..
.-..H(Y$,23);"INGRESE 0 PARA VOLVER AL M
ENU":E2$.""...2..H(Y$,13);"NUMERO DE ART
ICULO (1-200)";:. A1:.A1.0.500...7.. A1.
0 . A1.200 . 1330...<.. 1200...A..NO$.."
". 1355.V.F..H(Y$,15);"ARTICULO INEXISTE
NTE":.J.1.380:.J:.1322.X.K..H(Y$,15);"DE
SCRIPCION: ";NO$...P..H(Y$,18);"ESTA SEG
URO DE DARLO DE BAJA (S/N)?";:. W$.F.U..
W$."N" . 1322...Z.. W$.."S" . 1360.(._.
CAN.0:CMIN.0:IVA.0:PRE(1).0:PRE(2).0:NO$
."":. DA DE BAJA++++++++++++++++.3.B.. 1
250.Z.C.VV.212.256:.VV.24,15:.VV,0:. CRE
O SONIDO++++++++++++++++++++++++++. .D..
VV.1,80:.VV.5,9:.VV.4,0:.VV.4,33.V.H..H(
Y$,18);". BAJA EFECTUADA
"...I..J.1.800:.J:. 1322...N...A.O.
. FIN SUB BAJAS DE ARTICULOS************
*********************************.G.Y...
..Z.. COMIENZA SUB CAMBIO DE PRECIOS****
**************************************.K
....".":." . CAMBIO DE PRECIOS "
:.BA.1.1505......3000:BA.1:. AUTORIZACIO
N.. ...H(Y$,23);"TIPEE 0 PARA VOLVER AL
MENU DE STOCK".K ...H(Y$,7);" 1.- CAMBIO
DE PRECIO DIRECTO".{ ...H(Y$,9);" 2.- C
AMBIO DE PRECIO PORCENTUAL".. ...H(Y$,15
);" TIPEE LA OPCION ELEGIDA";:. W$.B ...
W$."0". BA.0:.500.. ... W$."1" .S1$."DI
RECTO":.1540..!... W$."2" . S1$."PORCENT
UAL": .1540..!...1520.L!...H(Y$,23);"
".{!.
..H(Y$,7);" 1.- LISTA DE PRECIOS NRO.1
"..!...H(Y$,9);" 2.- LISTA DE PRECIOS
NRO.2 "..!...H(Y$,15);" INGRESE
LA OPCION ELEGIDA";:.E$..!... E$."1". S
2.1:.1570.."...E$."2". S2.2:.1570.."...1
560.Q""..H(Y$,7);"
".."#..H(Y$,9);"
".."$..H(Y
$,15);"
".."'..H(Y$,9);"DEL ART.NRO.";:. J1
:. J1.1.J1.200.1575..#,..H(Y$,9);H(X$,18
);"HASTA EL NRO.";:.J2.6#...J2.J1.J2.200
. 1580.L#1..H(Y$,7);" 1.- INCREMENTO DE
PRECIO "..#6..H(Y$,9);" 2.-
DECREMENTO DE PRECIO ".P#;..
H(Y$,15);"TIPEE LA OPCION ELEGIDA";:. I$
..#=..I$."1". S3$."INCREMENTO ":. 1605..
$>.. I$."2". S3$."DECREMENTO ":.1605.&$@
..1595.P$E..".":." . CAMBIO DE P
RECIOS ".C$G.. W$."2". 1611..$J..H(Y$,11
);"CANTIDAD DEL ";S3$;"(6N): $A";:. S4:.
1614.N$K..H(Y$,11);"CANTIDAD DEL ";S3$;"
(3N): %";:. S4..$L.. S4.0.S4.999999 . 16
10..%N.. S4.0.S4.999999 . 1610.+%O..H(Y$
,7);"CAMBIO DE PRECIO ";S1$.A%T..H(Y$,9)
;"LISTA DE PRECIOS NRO.";S2;"
"..%V..H(Y$,11);"
".L%Y..H(Y$,11);"DEL ART.
NRO.";J1;"HASTA EL NRO.";J2..%^..H(Y$,1
3);S3$;"DE PRECIO"..%`.. W$."2" . 1637./
&C..H(Y$,15);"CANTIDAD DEL ";S3$;"$A";S4
:. 1640.X&E..H(Y$,15);"CANTIDAD DEL ";S3
$;S4;"%"..&H..H(Y$,21);"ESTA TODO CORREC
TO (S/N)";:. U$:.U$."N".1500..&M.. U$.."
S" . 1640..&O..H(Y$,18);" .ESPERE UN M
OMENTO, POR FAVOR."..&R.. W$."2". 1690..
'W.. A1.J1 .J2:. 1200:. I$."2". 1670.1'|
.PRE(S2).PRE(S2).S4:.1675.O'..PRE(S2).PR
E(S2).S4:. 1250.F'..PRE(S2).PRE(S2).S4.Q
'... 1250.Z'... A1..'... 1712..'... A1.J
1 . J2:. 1200:. I$."2". 1700.X'..PRE(S2)
.PRE(S2).(PRE(S2).S4.100):. 1705..'..PRE
(S2).PRE(S2).(PRE(S2).S4.100)..(... 1250
..(...A1.@(..VV.212.256:.VV.24,15:.VV,0:
.VV.1,80:.VV.5,9.U(...VV.4,0:.VV.4,33..(
...H(Y$,18);". MODIFICACION REALIZA
DA "..(...J.1 .1000:.J..(... 150
0..(.....(... COMIENZA SUB LISTADOS Y CO
NSULTAS*********************************
*****.*)...".":." . LISTADOS Y C
ONSULTAS ".\)...H(Y$,7);" 1.- CONSULTA D
EL NRO. DE ARTICULO"..)...H(Y$,9);" 2.-
CONSULTA DE LA DESCRIPCION"..)...H(Y$,11
);" 3.- CONSULTA DE PRECIOS"..)...H(Y$,1
3);" 4.- CONSULTA DEL STOCK"..)...H(Y$,1
5);" 5.- LISTADOS".&*!..H(Y$,23);"TIPEE
0 PARA VOLVER AL MENU".F*&..H(Y$,18);"TI
PEE LA OPCION ELEGIDA";:C$."":. C$:.C$."
0".500..*(..C$.."1".C$.."2".C$.."3".C$..
"4".C$.."5". 1830.C*+.C.E(C$):. C .1840,
1870,1890,1920,1940..*0..".":."
. LISTADOS Y CONSULTAS "..+2..H(Y$,9);"D
ESCRIPCION DEL ARTICULO";:. NM$.N+5.. A1
.1 . 200:. NM$.J(RE$(A1),24,14) . 1860.V
+:..A1..+?..H(Y$,11);"ARTICULO INEXISTEN
TE A ESA DESCRIPCION":. 1865..+D..H(Y$,1
1);"ARTICULO NRO..";A1;"."..+I..H(Y$,23)
;"APRIETE CUALQUIER TECLA";:. QW$:. QW$.
"". 1865..,J.. 1800./,N..".":. A1.1 . 20
0:. 1200:. NO$."". 1876._,P.. "ART.NRO."
;A1;".= ";NO$:. Q$:.Q$."".1876.S,R..E$:
.E$."".1874..,T..W$:.W$.".".W$.".".W$.".
".W$.".".1800..,V.. A1..,X.. 1800..,B.."
.":." . LISTADOS Y CONSULTAS "..
-D..H(Y$,7);" 1.- LISTA DE PRECIOS NRO.1
".4-E..H(Y$,9);" 2.- LISTA DE PRECIOS NR
O.2".V-F..H(Y$,11);" 3.- AMBAS LISTAS"..
-H..H(Y$,15);"INGRESE LA OPCION ELEGIDA"
;:. P$..-J..P$.."1".P$.."2".P$.."3".1896
..-K..H(Y$,15);"
"...L..H(Y$,7);"
".L.M..H(Y$,
11);"
"...N..H(Y$,9);"
".A.P..H(Y$,9);"NRO. DE
ARTICULO (1-200)";:.A1:.A1.1.A1.200.190
4...R.. 1200:.NO$.""..H(Y$,11);"ARTICULO
INEXISTENTE":.1914../S..H(Y$,11);"DESCR
IPCION: ";NO$.T/T..H(Y$,13);"PORCENTAJE
IVA:";IVA;"%":. P$."2". 1912../V..H(Y$,1
5);"LISTA DE PRECIOS NRO.1:$A.";PRE(1);"
.":.P$."1". 1914.N/X..H(Y$,16);"LISTA DE
PRECIOS NRO.2:$A.";PRE(2);"."..0Z..H(Y$
,23);"APRIETE CUALQUIER TECLA":.QW$:.QW$
."". 1914..0|..1800.@0...".":."
. LISTADOS Y CONSULTAS ".0...H(Y$,9);"N
RO. DE ARTICULO (1-200)";:.A1:.A1.1.A1.2
00.1922..0... 1200:.NO$.""..H(Y$,11);"AR
TICULO INEXISTENTE":.1932.Y0...H(Y$,11);
"DESCRIPCION:"NO$..1...H(Y$,13);"STOCK A
CTUAL:.";CAN;".".(1...H(Y$,15);"STOCK MI
NIMO:.";CMIN;".".D1...H(Y$,20);"APRIETE
CUALQUIER TECLA";:.QW$:.QW$."". 1932.N1.
..1800..1... 8200:. SUBRUTINA+LISTADOS++
+++++++++++++++++++++++++..1... FINALIZA
SUB LISTADOS Y CONSULTAS***************
***********************.E2... COMIENZA S
UB SALIDA DEL STOCK*********************
*********************..2... 75:. VUELVE
AL MENU PRINCIPAL+++++++++++++++++++++++
+++++++++++++++..2... FIN SUB SALIDA DEL
STOCK**********************************
*************..2....13... COMIENZA SUB A
UTORIZACION*****************************
*****************.L3...H(Y$,13);"ESTA AU
TORIZADO (S/N) ?";:. W$:. W$."N".500.3.
..W$.."S". 3000..3B..H(Y$,13);"INGRESE L
A PALABRA CLAVE ?";".";:. E2$:."."..3G..
E1$..E2$ . ."........ INCORRECTO ":.J.1
.250:.J:. 500.,4L..H(Y$,13);"
".C4Q..H(Y$,1
5);"
"..4V..H(Y$,18);"
"..4...:. FIN SUB AUTORI
ZACION**********************************
**********..4....65... COMIENZA SUB FACT
URACION*********************************
**************.E5 ..".":." .
FACTURACION ":CO.100.S5... 1465,70..5..
.H(Y$,13);"ANO: 85":AN.1985:. 4010:. CAM
BIAR CADA ANIO..5...H(Y$,13);"ANO:";:. A
N:. AN.0.AN.99. 4005..5..AN.1900.AN. 6..
.H(Y$,13);I(X$,10);"MES:";:. ME:.ME.1.ME
.12.4010.D6...H(Y$,13);I(X$,20);"DIA:";:
. DI.C6... ME.2 .(DI.30.DI.31).4015..6..
. (ME.4.ME.6.ME.9.ME.11). DI.31. 4015..6
... DI.1.DI.31. 4015.Y6...H(Y$,24);"DESE
A MODIFICAR LA FECHA (S/N)";:. Q$..6...Q
$."S". 4000..6...Q$.."N". 4024..7...".":
." . FACTURACION ":CO.CO.1.J
7C..H(Y$,6);"FACTURA NRO.:";CO,"FECHA:";
DI;"./";ME;"./";AN..7H..H(Y$,12);"1.- NO
MBRE:";:. NF$..7M..H(Y$,13);"2.- DOMICIL
IO:";:.DF$.W7R..H(Y$,14);"3.- LOCALIDAD:
";:.LF$..7W..H(Y$,15);"4.- PROVINCIA:";:
.PF$. 8...H(Y$,16);"5.- TELEFONO:";:.TF$
.E8...H(Y$,17);"6.- NRO.IVA:";:. I2F$.I8
...H(Y$,18);"7.- NRO.GAN.:";:.GF$..8...H
(Y$,19);"8.- LISTA NRO.:";:. L$:.L$."1".
L$."2".4074..8...4072.I8..L.E(L$):REN.1:
RG.1:TT.0..8...H(Y$,23);"DESEA MODIFICAR
ALGUN CAMPO (S/N)?"..9... Q$:.Q$."S". 4
085.%9...Q$."N". 4100.09... 4078.H9...H(
Y$,23);"TIPEE NRO. DEL CAMPO A MODIFICAR
";:. W$..9...W$."1".W$."2".W$."3".W$."4
".W$."5".W$."6".W$."7".W$."8". 4095..9..
.4085..9..W.E(W$):. W . 4040,4045,4050,4
055,4060,4065,4070..:... 8000:. SUB CUAD
RO FACTURA.>:...H(Y$,24);"TIPEE '0' PARA
MODIFICAR O TERMINAR".G:...H(Y$,REN.2);
".";RG;I(X$,2);".";:.A$..:..AA$.J(A$,1,1
):AB$.J(A$,2,1):AC$.J(A$,3,1)..:...F(AA$
).47.F(AA$).58.4125..:... 4110..;...AB$.
"0".AB$."1".AB$."2".AB$."3".AB$."4".AB$.
"5".AB$."6".4135.";"..AB$."7".AB$."8".AB
$."9".4135.6;$.A1.E(AA$):.4150.X;'..AC$.
"0".AC$."1".AC$."2".AC$."3".AC$."4".AC$.
"5".AC$."6".4145..;,..AC$.."7".AC$.."8".
AC$.."9". A1.E(J(A$,1,2)):.4150.C;1.A1.E
(J(A$,1,3)).Y;6..A1.0.A1.200.4110..;;..A
1.0. 4400..;<..1200.'<=.. NO$.""..H(Y$,R
EN.2);I(X$,7);".INEXIST.":.4162._<>.. CA
N.CMIN . .H(Y$,REN.2);I(X$,7);". NO HAY.
":.4162.I<@..4169.Y<B..J.1.900:.J..<C..H
(Y$,REN.2);" B B B":.4110.X<I..
H(Y$,REN.2);I(X$,2);A1;". ":.(1066.(40.
REN)),66..=J..H(Y$,REN.2);I(X$,7);NO$;"
":.(1070.(40.REN)),66.S=O..H(Y$,R
EN.2);I(X$,14);PRE(L);". ":.(1078.(
40.REN)),66..=T..H(Y$,REN.2);I(X$,21);IV
A;". ":.(1085.(40.REN)),66..=Y..(1089.
(40.REN)),66:.H(Y$,REN.2);I(X$,26);:. C$
..=^.CA$.J(C$,1,1):CB$.J(C$,2,1):CC$.J(C
$,3,1):CD$.J(C$,4,1)..>C.. F(CA$).47.F(C
A$).58.4205.%>H..4185.D>M.. F(CB$).47.F(
CB$).58.4215.X>R.C1.E(CA$):.4240.W>W.. F
(CC$).47.F(CC$).58.4225..>|.C1.E(J(C$,1,
2)):.4240.T>... CD$."1".CD$."2".CD$."3".
CD$."4".CD$."5".CD$."6".CD$."7".4235..>.
.. CD$."8".CD$."9".CD$."0".4235..?..C1.E
(J(C$,1,3)):.4240.%?..C1.E(J(C$,1,4)).;?
... CAN.1.C1 . 4260.R?...H(Y$,24);"
"..?...
H(Y$,24);". SOLO QUEDAN ";CAN;". UNIDADE
S .";..?...J.1.900:.J..?...H(Y$,REN.2);I
(X$,26);"B B ":.4185..@..IMP..((C1.P
RE(L)).(C1.PRE(L).IVA.100)):CAN.CAN.C1.O
@...H(Y$,REN.2);I(X$,25);C1;". ":.1
089.(40.REN),66.@...H(Y$,REN.2);I(X$,30
);IMP:.1094.(40.REN),66..@..TT.TT.IMP..@
...H(Y$,21);I(X$,28);TT..@... CMIN.1.CAN
. 4300..@A..H(Y$,24);"
".(AB..H(Y$,24);".
QUEDAN SOLO ";CAN;". UNIDADES .".OAG.VV.
212.256:.VV.24,15:.VV,0:. CREO SONIDO+++
+++++++++++++++++++++++..AH..VV.1,80:.VV
.5,9:.VV.4,0:.VV.4,33:.J.1.1000:.J..AL.F
A$(RG).D(A1).D(C1).DAV..1250..A..RG.RG.1
:AX.(RG.1).17..B...REN.17.AX.2.AX.3.AX.4
.AX.5.AX.6 . REN.1:. 4347..B..REN.REN.1.
BB...H(Y$,REN.2);" B B B B
B B ";:.4355.WB..IMP.0:C1.
0:IVA.0..B...4105..B0..H(Y$,REN.2);I(X$,
3);" B".ZB2..H(Y$,24);"
";..C5..H(Y$,24)
;".DESEA REVISAR LA FACTURA (S/N)?";".":
. R$.%C:..R$."N".4520.7C?..R$.."S".4405.
MCD.REN.1:TT.0:. 8000._CE.. XX.1 . RG.1.
}CI.. J(FA$(XX),3,1)." ".4440..CN.. J(FA
$(XX),4.1)." ".4445..CS.A1.E(H(FA$(XX),4
)):YU.6:.4450..CX.A1.E(H(FA$(XX),2)):YU.
4:.4450..C].A1.E(H(FA$(XX),3)):YU.5..DB.
C1.E(J(FA$(XX),YU,4)). DG.. 1200.8DL..H(
Y$,REN.2);".";XX.ODN..H(Y$,REN.2);I(X$,2
);A1;". ":.1066.(40.REN),66..DQ..H(Y
$,REN.2);I(X$,7);NO$;" ":.(1070.(
40.REN)),66..DV..H(Y$,REN.2);I(X$,14);PR
E(L);". ":.(1078.(40.REN)),66.#E{..
H(Y$,REN.2);I(X$,21);IVA;". ":.(1085.(
40.REN)),66.YE..IMP..((C1.PRE(L)).(C1.PR
E(L).IVA.100)):CAN.CAN.C1..E...H(Y$,REN.
2);I(X$,25);C1;". ":.1089.(40.REN),
66.BE...H(Y$,REN.2);I(X$,30);IMP:.1094.(
40.REN),66.PE..TT.TT.IMP..E...H(Y$,21);I
(X$,28);TT..F...REN.17.XX.34.XX.51.XX.68
.XX.85. REN.1:. 4510.*F..REN.REN.1.FF...
H(Y$,REN.2);" B B B B B
B ";.OF... XX..F...H(Y$,24);"
";
..F...H(Y$,24);" .DESEA MODIFICAR ALGUN
RENGLON (S/N).";:. MD$..F...MD$."N". 475
0..G...MD$.."S". 4520.FG...H(Y$,24);"
";..
G...H(Y$,24);".TIPEE NRO. DEL RENGLON A
MODIFICAR";:. MD..G... MD.1.MD.RG.1. 453
2..G..REN.1:. 8000.HG... J(FA$(MD),3,1).
" ".4555..GA.. J(FA$(MD),4.1)." ".4560..
HF.A1.E(H(FA$(MD),4)):YU.6:.4565.*HK.A1.
E(H(FA$(MD),2)):YU.4:.4565.FHP.A1.E(H(FA
$(MD),3)):YU.5.`HU.C1.E(J(FA$(MD),YU,4))
.KHZ.. 1200..H...H(Y$,REN.2);".";MD..H..
.H(Y$,REN.2);I(X$,2);A1;". ":.1066.(
40.REN),66..H...H(Y$,REN.2);I(X$,7);NO$;
" ":.(1070.(40.REN)),66.5I...H(Y$
,REN.2);I(X$,14);PRE(L);". ":.(1078
.(40.REN)),66.NI...H(Y$,REN.2);I(X$,21);
IVA;". ":.(1085.(40.REN)),66..I...H(Y$
,REN.2);I(X$,25);C1;". ":.1089.(40.
REN),66.RI..IMP..((C1.PRE(L)).(C1.PRE(L)
.IVA.100))..J...H(Y$,REN.2);I(X$,30);IMP
:.1094.(40.REN),66..J...H(Y$,21);I(X$,28
);TT.FJ..REN.REN.1:TT.TT.IMP:CAN.CAN.C1:
. 1250.OJ...H(Y$,REN.2);".";MD;I(X$,2);"
.";:.A$..J..AA$.J(A$,1,1):AB$.J(A$,2,1):
AC$.J(A$,3,1)..J...F(AA$).47.F(AA$).58.4
610.FJ... 4600..K...AB$."0".AB$."1".AB$.
"2".AB$."3".AB$."4".AB$."5".AB$."6".4617
.*K...AB$."7".AB$."8".AB$."9".4617.>K..A
1.E(AA$):.4625..K...AC$."0".AC$."1".AC$.
"2".AC$."3".AC$."4".AC$."5".AC$."6".4622
..K...AC$.."7".AC$.."8".AC$.."9". A1.E(J
(A$,1,2)):.4625.KK..A1.E(J(A$,1,3))..K..
.A1.1.A1.200.4600..K...1200..L... NO$.""
..H(Y$,REN.2);I(X$,7);".INEXIST.":.4637.
WL... CAN.CMIN . .H(Y$,REN.2);I(X$,7);".
NO HAY.":.4637.AL...4642.QL...J.1.900:.
J..L ..H(Y$,REN.2);" B B B":.46
00.PL"..H(Y$,REN.2);I(X$,2);A1;". ":.(1
066.(40.REN)),66..M%..H(Y$,REN.2);I(X$,7
);NO$;" ":.(1070.(40.REN)),66.KM'
..H(Y$,REN.2);I(X$,14);PRE(L);". ":
.(1078.(40.REN)),66..M*..H(Y$,REN.2);I(X
$,21);IVA;". ":.(1085.(40.REN)),66..M,
..(1089.(40.REN)),66:.H(Y$,REN.2);I(X$,2
6);:. C$..M/.CA$.J(C$,1,1):CB$.J(C$,2,1)
:CC$.J(C$,3,1):CD$.J(C$,4,1)..N1.. F(CA$
).47.F(CA$).58.4662..N4..4652.<N6.. F(CB
$).47.F(CB$).58.4667.PN9.C1.E(CA$):.4682
.ON;.. F(CC$).47.F(CC$).58.4672..N>.C1.E
(J(C$,1,2)):.4682.MN@.. CD$."1".CD$."2".
CD$."3".CD$."4".CD$."5".CD$."6".CD$."7".
44680..NC.. CD$."8".CD$."9".CD$."0".4680
..OE.C1.E(J(C$,1,3)):.4682..OH.C1.E(J(C$
,1,4)).4OJ.. CAN.1.C1 . 4695.KOM..H(Y$,2
4);"
"..OO..H(Y$,24);". SOLO QUEDAN ";CAN;"
. UNIDADES .";..OR..J.1.900:.J.YOT..H(Y$
,REN.2);I(X$,26);"B B ":.4652..PW.IM
P..((C1.PRE(L)).(C1.PRE(L).IVA.100)):CAN
.CAN.C1.HPY..H(Y$,REN.2);I(X$,25);C1;".
":.1089.(40.REN),66.XP\..H(Y$,REN.2
);I(X$,30);IMP:.1094.(40.REN),66..P^.TT.
TT.IMP..P`..H(Y$,21);I(X$,28);"
";.FPA..H(Y$,21);I(X$,28);TT..PC.. CMI
N.1.CAN . 4720..QF..H(Y$,24);"
".GQH..H(Y$,
24);". QUEDAN SOLO ";CAN;". UNIDADES .".
.QK.VV.212.256:.VV.24,15:.VV,0:. CREO SO
NIDO++++++++++++++++++++++++++.AQM..VV.1
,80:.VV.5,9:.VV.4,0:.VV.4,33:.J.1.1000:.
J.YQP.FA$(MD).D(A1).D(C1)..QU..1250..QZ.
. 4402.'R...H(Y$,24);"
";.YR...H(Y$,24);".
APRUEBA LA FACTURA (S/N).";:. Z9$.MR...
Z9$."S". 4780..R... Z9$.."N". 4752.CR..X
9$."":.H(Y$,24);".REPITA,. APRUEBA LA FA
CTURA (S/N)";:. X9$..R... X9$."N". CO.CO
.1:.J.1.99:FA$(J)."":.J:. 4030..S... X9$
.."S".4765.HS...".":.H(Y$,24);"INGRESE 0
PARA ANULAR LA FACTURA ";..S..Z5$
."":.".PREPARE LA IMPRESORA Y":."LUEGO P
ULSE RETURN";:.Z5$..S... Z5$."0". 4765..
S.....S>....S?.. COMIENZA SUB MENU FACTU
RA**************************************
********.'T@..". BARTBDESCRIPBP.UNITBIV
ABCANTBIMPORTE".ZTE.." ................
......................";:..ITJ..J.1.6:.
A..TO..K.1.18:A.A.40:.A,66:.K:.J..TT..H(
Y$,20);I(X$,11);"-----------------------
------"..TY..H(Y$,21);I(X$,11);".IMPORTE
FINAL:$A".!U^..H(Y$,22);I(X$,11);"-----
------------------------".EU... 1026,103
0,1038,1045,1049,1054..U...:. FIN MENU F
ACTURA**********************************
**************..U...H(Y$,24);"TIPEE 0 PA
RA MODIFICAR O TERMINAR".JU...8110.PU. .
..V. . COMIENZA SUB LISTADOS************
**************************************.K
V. .".":." . LISTADOS Y CONSULTA
S ".|V. .H(Y$,8);"1.- LISTADO DE LISTA D
E PRECIOS 1"..V. .H(Y$,10);"2.- LISTADO
DE LISTA DE PRECIOS 2"..V. .H(Y$,12);"3.
- LISTADO DE AMBAS LISTAS DE PRECIOS"..W
. .H(Y$,14);"4.- LISTADO DE ART. CON STO
CK CRITICO".MW! .H(Y$,16);"5.- LISTADO D
E STOCK DE ARTICULOS".PW& .H(Y$,18);"6.-
VUELVE AL MENU". W+ .H(Y$,23);"INGRESE
LA OPCION ELEGIDA";:. P$.VW0 . P$."1".P$
."2".P$."3".P$."4".P$."5".P$."6". 8245..
W2 . 8235..X5 . 4,4:. ABRO IMPRESORA++++
++++++..X6 . P$."6". 1800.JX7 .".":.H(Y$
,24);"TIPEE 0 PARA VOLVER AL MENU"..X8 .
".PREPARE LA IMPRESORA":."Y LUEGO PULSE
RETURN";:.T$..X9 .T$."0". 1800.FX: P.E(
P$):. P .8255,8300,8350,8400,8450,1800..
X? E1$.I(X$,7):E2$.I(X$,25)..YA .4, "ART
.";E1$;"DESCRIPCION";E2$;"PRECIO $A".GYD
.4, "----------------------------------
------".XYI . A1.1 . 200.TYN . 1200: . N
O$."" . 8285..YS .4, A1;E1$;NO$;E2$;PRE(
1)..YX . A1..Y] 4:. 1800.GYL E1$.I(X$,
7):E2$.I(X$,25)..YN .4, "ART.";E1$;"DESC
RIPCION";E2$;"PRECIO $A".+ZQ .4, "------
----------------------------------".<ZV
. A1.1 . 200.XZ{ . 1200: . NO$."" . 8330
.VZ. .4, A1;E1$;NO$;E2$;PRE(2).Z. . A1.
.Z. 4:. 1800..Z. E1$.I(X$,7):E2$.I(X$,
25):E3$.I(X$,40)..Z .4, "ART.";E1$;"DES
CRIPCION";E2$;"LISTA 1 $A";E3$;"LISTA 2
$A".:[. .4, "---------------------------
-------------------------".K[. . A1.1 .
200.G[. . 1200: . NO$."" . 8380..[. .4,
A1;E1$;NO$;E2$;PRE(1);E3$;PRE(2)..[. . A
1..[. 4:. 1800.R[P E1$.I(X$,7):E2$.I(X
$,25):E3$.I(X$,35)..\R .4, "ART.";E1$;"D
ESCRIPCION";E2$;"STOCK ";E3$;"STOCK MINI
MO".M\U .4, "---------------------------
--------------------".^\Z . A1.1 . 200.Z
\. . 1200: . NO$."" . 8430..\. . CAN.1.C
MIN . 8425..\. .4, A1;E1$;NO$;E2$;CAN;E3
$;CMIN..\. . A1.N\. 4:. 1800..\.!E1$.I
(X$,7):E2$.I(X$,25):E3$.I(X$,35).9].!.4,
"ART.";E1$;"DESCRIPCION";E2$;"STOCK ";E
3$;"STOCK MINIMO".S].!.4, "-------------
----------------------------------"..].!
. A1.1 . 200. ].!. 1200: . NO$."" . 8480
.D].!.4, A1;E1$;NO$;E2$;CAN;E3$;CMIN.M].
!. A1..] ! 4:. 1800..].&..0^.&. COMIENZ
A SUB GRABO ARCHIVO*********************
************************.6^.&..?^.&.".".
^.&.H(Y$,4);"DESEA GRABAR EL ARCHIVO (S
/N) ?":. Q$:.Q$."".9901..^.&.H(Y$,23);"P
ARA VOLVER AL MENU TIPEE O"..^.&. Q$.."N
".9910..^.&.H(Y$,4);"REPITA SU RESPUESTA
(S/N) ? ":.Q$:.Q$."N". ..._.&. Q$."
0" . 75.$_.&. Q$.."S" . 9905./_.&. 9915.
A_.&. Q$."0" . 75.U_.&. Q$.."S". 9901.._
.&.".":."PREPARE EL CASSETTE A GRABAR, "
.._.&. "LUEGO PULSE RETURN";O$.._E&. 1,1
,2.._J&. J.1 . 200.H_O&.1,RE$(J).P_T&. J
.X_Y& 1.._.&..,`.&. FIN SUB GRABO ARCHI
VO**************************************
************.2`.&..L`.'. 100=PONGO TIT
ULOS.G`.'. 9900=GRABO ARCHIVO.Y`.'.
200= MENU..`.'. 500-STOCK..`.'. 900-
MENU STOCK..`.'. 150-RECUADRO.Y`.'.
1200-CONVERSION A NUMEROS..`.'. 1250-C
ONVERSION A CADENA..A.'. 1000-ALTAS Y
MODIFICACIONES.=A.'. 1500-CAMBIO DE PR
ECIOS._A.'. 1800-LISTADOS Y CONSULTAS.
YA.'. 3000-AUTORIZACION..A.'. 8000-C
UADRO FACTURA....
> CLICK IMAGE PREVIEW FOR FULL MODAL