LIST.DE PRECIOS
FILE INFORMATION
FILENAME(S): LIST.DE PRECIOS
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-10-19 23:07:09
APPEARS ON: 1 disk(s)
FILE HASH
c89671fe993f1f71f95dc1ed24d7916a1adfa92092dc27eaa0d68f6d252cdb98
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPARTACO 6316004 | LIST.DE PRECIOS | PRG | Bugjam - Argentina | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 0A 00 99 22 93 05 12 11 11 11 11 11 |..A...."........|
00000010: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00000020: 20 4C 49 53 54 41 53 20 44 45 20 50 52 45 43 49 | LISTAS DE PRECI|
00000030: 4F 53 20 20 20 20 20 20 20 20 20 20 20 20 92 9A |OS ..|
00000040: 22 00 51 08 32 00 81 47 B2 31 A4 33 30 30 30 3A |".Q.2..G.1.3000:|
00000050: 82 00 6F 08 E8 03 86 20 43 24 28 32 30 30 29 2C |..o.... C$(200),|
00000060: 51 5A 28 31 30 30 29 3A 8D 20 31 35 30 30 30 00 |QZ(100):. 15000.|
00000070: 90 08 F2 03 99 22 93 11 11 11 1D 1D 1D 23 23 23 |.....".......###|
00000080: 20 20 4F 50 43 49 4F 4E 45 53 20 20 23 23 23 22 | OPCIONES ###"|
00000090: 00 AF 08 FC 03 99 22 11 11 11 1D 1D 1D 1D 1D 31 |......"........1|
000000A0: 20 43 41 52 47 41 52 20 46 49 43 48 41 53 22 00 | CARGAR FICHAS".|
000000B0: CB 08 06 04 99 22 1D 1D 1D 1D 1D 32 20 41 4E 55 |.....".....2 ANU|
000000C0: 4C 41 52 20 46 49 43 48 41 53 22 00 E9 08 10 04 |LAR FICHAS".....|
000000D0: 99 22 1D 1D 1D 1D 1D 33 20 43 41 4D 42 49 41 52 |.".....3 CAMBIAR|
000000E0: 20 50 52 45 43 49 4F 53 22 00 00 09 1A 04 99 22 | PRECIOS"......"|
000000F0: 1D 1D 1D 1D 1D 34 20 49 4D 50 52 49 4D 49 52 22 |.....4 IMPRIMIR"|
00000100: 00 15 09 24 04 99 22 1D 1D 1D 1D 1D 35 20 53 41 |...$..".....5 SA|
00000110: 4C 49 44 41 22 00 42 09 2E 04 99 22 11 11 11 1D |LIDA".B...."....|
00000120: 1D 1D 1D 1D 1D 1D 50 55 4C 53 45 20 45 4C 20 4E |......PULSE EL N|
00000130: D7 2E 43 4F 52 52 45 53 50 4F 4E 44 49 45 4E 54 |..CORRESPONDIENT|
00000140: 45 22 00 6F 09 38 04 A1 20 41 24 3A 81 20 4E B2 |E".o.8.. A$:. N.|
00000150: 34 39 20 A4 20 35 33 3A 8B 20 41 24 B3 B1 C7 28 |49 . 53:. A$...(|
00000160: 4E 29 20 A7 20 82 20 4E 3A 89 20 31 30 38 30 00 |N) . . N:. 1080.|
00000170: 96 09 42 04 91 20 C5 28 41 24 29 20 89 20 31 31 |..B.. .(A$) . 11|
00000180: 30 30 2C 31 33 32 30 2C 31 34 30 30 2C 31 35 38 |00,1320,1400,158|
00000190: 30 2C 32 35 30 30 00 E3 09 4C 04 8F 20 23 23 23 |0,2500...L.. ###|
000001A0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000001B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000001C0: 23 23 23 23 23 23 20 43 41 52 47 41 20 44 45 20 |###### CARGA DE |
000001D0: 46 49 43 48 41 53 20 23 23 23 23 23 23 23 23 23 |FICHAS #########|
000001E0: 23 23 23 00 07 0A 56 04 99 22 93 11 11 1D 1D 1D |###...V.."......|
000001F0: 23 23 20 43 41 52 47 41 53 20 44 45 20 46 49 43 |## CARGAS DE FIC|
00000200: 48 41 53 20 23 23 22 00 26 0A 60 04 99 22 11 11 |HAS ##".&.`.."..|
00000210: 1D 1D 1D 1D 1D 28 20 30 20 50 41 52 41 20 53 41 |.....( 0 PARA SA|
00000220: 4C 49 52 20 29 22 00 44 0A 65 04 99 20 22 11 11 |LIR )".D.e.. "..|
00000230: 43 4F 44 49 47 4F 20 41 4E 54 45 52 49 4F 52 A0 |CODIGO ANTERIOR.|
00000240: 3A 22 3B 42 00 69 0A 6A 04 85 22 11 11 1D 1D 1D |:";B.i.j..".....|
00000250: 43 4F 44 49 47 4F 20 3A 20 20 30 30 30 30 30 9D |CODIGO : 00000.|
00000260: 9D 9D 9D 9D 9D 9D 22 3B 42 00 83 0A 74 04 85 22 |......";B...t.."|
00000270: 1D 1D 1D 11 11 41 52 54 49 43 55 4C 4F 20 3A 22 |.....ARTICULO :"|
00000280: 3B 42 24 00 A9 0A 7E 04 85 22 1D 1D 1D 11 11 50 |;B$...~..".....P|
00000290: 52 45 43 49 4F 20 3A 20 20 30 30 30 30 30 9D 9D |RECIO : 00000..|
000002A0: 9D 9D 9D 9D 9D 22 3B 42 50 00 C9 0A 88 04 85 22 |.....";BP......"|
000002B0: 11 11 1D 1D 1D 53 55 20 4F 50 43 49 4F 4E 20 3A |.....SU OPCION :|
000002C0: 20 20 31 9D 9D 9D 22 3B 41 00 DA 0A 92 04 8B 20 | 1...";A...... |
000002D0: 41 B2 30 20 A7 20 31 30 31 30 00 F9 0A 9C 04 43 |A.0 . 1010.....C|
000002E0: 44 B2 43 44 AA 31 3A 41 B2 43 44 3A 8D 20 31 31 |D.CD.1:A.CD:. 11|
000002F0: 39 30 3A 89 20 31 30 31 30 00 46 0B A6 04 8F 20 |90:. 1010.F.... |
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** |
00000320: 53 55 42 52 55 54 2E 43 41 52 47 41 20 44 45 20 |SUBRUT.CARGA DE |
00000330: 46 49 43 48 41 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |FICHAS *********|
00000340: 2A 2A 2A 2A 2A 2A 00 6B 0B B0 04 43 24 28 41 29 |******.k...C$(A)|
00000350: B2 22 22 3A 43 24 28 41 29 B2 C9 28 22 30 30 30 |."":C$(A)..("000|
00000360: 30 30 22 AA C4 28 42 29 2C 35 29 00 AF 0B B5 04 |00"..(B),5).....|
00000370: 43 24 28 41 29 B2 43 24 28 41 29 AA C8 28 42 24 |C$(A).C$(A)..(B$|
00000380: AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 22 2C 34 30 29 00 | ",40).|
000003B0: E0 0B BA 04 43 24 28 41 29 B2 43 24 28 41 29 AA |....C$(A).C$(A).|
000003C0: C9 28 22 30 30 30 30 30 30 30 30 30 30 30 30 30 |.("0000000000000|
000003D0: 30 22 AA C4 28 42 50 29 2C 31 34 29 3A 53 B2 31 |0"..(BP),14):S.1|
000003E0: 00 E6 0B C4 04 8E 00 33 0C CE 04 8F 20 2A 2A 2A |.......3.... ***|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 55 42 |************ SUB|
00000410: 52 55 54 2E 42 55 53 51 55 45 44 41 20 44 45 20 |RUT.BUSQUEDA DE |
00000420: 46 49 43 48 41 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |FICHAS *********|
00000430: 2A 2A 2A 00 46 0C D8 04 5A B2 30 3A 81 20 4E B2 |***.F...Z.0:. N.|
00000440: 31 20 A4 20 43 44 00 64 0C E2 04 42 B2 C5 28 C8 |1 . CD.d...B..(.|
00000450: 28 43 24 28 4E 29 2C 35 29 29 3A 8B 20 41 B2 42 |(C$(N),5)):. A.B|
00000460: 20 A7 20 8E 00 9E 0C EC 04 82 20 4E 3A 99 22 4E | . ....... N:."N|
00000470: 4F 20 45 58 49 53 54 45 20 45 53 45 20 43 4F 44 |O EXISTE ESE COD|
00000480: 49 47 4F 20 3F 3F 3F 22 3A 81 20 41 B2 31 20 A4 |IGO ???":. A.1 .|
00000490: 20 31 30 30 30 3A 82 41 3A 5A B2 31 3A 8E 00 EB | 1000:.A:Z.1:...|
000004A0: 0C F6 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 2A 2A 2A 20 53 55 42 52 55 54 2E 42 55 53 51 |**** SUBRUT.BUSQ|
000004D0: 55 45 44 41 20 44 45 20 44 41 54 4F 53 20 2A 2A |UEDA DE DATOS **|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 01 0D 00 05 |***********.....|
000004F0: 42 B2 C5 28 CA 28 43 24 28 41 29 2C 31 2C 35 29 |B..(.(C$(A),1,5)|
00000500: 29 00 16 0D 0A 05 42 24 B2 CA 28 43 24 28 41 29 |).....B$..(C$(A)|
00000510: 2C 36 2C 34 30 29 00 2F 0D 14 05 42 50 B2 C5 28 |,6,40)./...BP..(|
00000520: CA 28 43 24 28 41 29 2C 34 36 2C 31 34 29 29 00 |.(C$(A),46,14)).|
00000530: 35 0D 1E 05 8E 00 82 0D 28 05 8F 20 2A 2A 2A 2A |5.......(.. ****|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 41 4E 55 4C |*********** ANUL|
00000560: 41 52 20 46 49 43 48 41 53 20 2A 2A 2A 2A 2A 2A |AR FICHAS ******|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 00 A5 0D 32 05 99 22 93 1D 1D 1D 11 11 2A |**...2.."......*|
00000590: 2A 2A 20 41 4E 55 4C 41 52 20 46 49 43 48 41 53 |** ANULAR FICHAS|
000005A0: 20 2A 2A 2A 22 00 C7 0D 3C 05 99 22 1D 1D 1D 1D | ***"...<.."....|
000005B0: 1D 1D 1D 1D 1D 11 28 20 30 20 50 41 52 41 20 53 |......( 0 PARA S|
000005C0: 41 4C 49 52 20 29 22 00 E7 0D 46 05 85 22 11 11 |ALIR )"...F.."..|
000005D0: 1D 1D 43 55 41 4C 20 46 49 43 48 41 20 3A 20 20 |..CUAL FICHA : |
000005E0: 30 9D 9D 9D 22 3B 41 00 F8 0D 50 05 8B 20 41 B2 |0...";A...P.. A.|
000005F0: 30 20 A7 20 31 30 31 30 00 10 0E 5A 05 8D 20 31 |0 . 1010...Z.. 1|
00000600: 32 33 30 3A 8B 20 5A B2 31 20 A7 20 31 33 32 30 |230:. Z.1 . 1320|
00000610: 00 25 0E 64 05 53 B2 31 3A 81 20 41 B2 4E AA 31 |.%.d.S.1:. A.N.1|
00000620: 20 A4 20 43 44 00 4A 0E 6E 05 43 24 28 41 AB 31 | . CD.J.n.C$(A.1|
00000630: 29 B2 43 24 28 41 29 3A 82 20 41 3A 43 44 B2 43 |).C$(A):. A:CD.C|
00000640: 44 AB 31 3A 89 20 31 30 31 30 00 97 0E 78 05 8F |D.1:. 1010...x..|
00000650: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 20 43 41 4D 42 49 41 52 20 50 52 45 43 49 4F 53 | CAMBIAR PRECIOS|
00000680: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000690: 2A 2A 2A 2A 2A 2A 2A 00 BC 0E 82 05 99 22 93 11 |*******......"..|
000006A0: 11 1D 1D 1D 2A 2A 2A 20 43 41 4D 42 49 41 52 20 |....*** CAMBIAR |
000006B0: 50 52 45 43 49 4F 53 20 2A 2A 2A 22 00 FC 0E 8C |PRECIOS ***"....|
000006C0: 05 99 22 11 11 1D 1D 4F 50 43 49 4F 4E 20 28 31 |.."....OPCION (1|
000006D0: 20 56 41 4C 4F 52 20 46 49 4A 4F 2F 20 32 20 50 | VALOR FIJO/ 2 P|
000006E0: 4F 52 43 45 4E 54 41 4A 45 2F 20 33 20 53 41 4C |ORCENTAJE/ 3 SAL|
000006F0: 49 52 20 29 3A 20 20 20 20 20 20 22 00 0D 0F 8D |IR ): "....|
00000700: 05 85 20 4E 24 3A 4E B2 C5 28 4E 24 29 00 1E 0F |.. N$:N..(N$)...|
00000710: 96 05 8B 20 4E B2 31 20 A7 20 31 35 34 30 00 30 |... N.1 . 1540.0|
00000720: 0F A0 05 8B 20 4E B3 B1 32 20 A7 20 31 30 31 30 |.... N..2 . 1010|
00000730: 00 5A 0F AA 05 85 22 11 1D 1D 43 4F 44 49 47 4F |.Z...."...CODIGO|
00000740: 20 44 45 4C 20 41 52 54 49 43 55 4C 4F 20 49 4E | DEL ARTICULO IN|
00000750: 49 43 49 41 4C 20 3A 22 3B 45 00 81 0F B4 05 85 |ICIAL :";E......|
00000760: 22 1D 1D 43 4F 44 49 47 4F 20 44 45 4C 20 41 52 |"..CODIGO DEL AR|
00000770: 54 49 43 55 4C 4F 20 46 49 4E 41 4C 20 3A 22 3B |TICULO FINAL :";|
00000780: 46 00 A3 0F BE 05 85 22 1D 1D 50 4F 52 43 45 4E |F......"..PORCEN|
00000790: 54 41 4A 45 20 41 20 41 50 4C 49 43 41 52 20 3A |TAJE A APLICAR :|
000007A0: 22 3B 47 00 CF 0F C8 05 85 22 4F 50 43 49 4F 4E |";G......"OPCION|
000007B0: 20 28 31 20 43 4F 4E 54 20 2F 20 32 20 53 41 4C | (1 CONT / 2 SAL|
000007C0: 49 52 20 29 20 3A 20 20 31 9D 9D 9D 22 3B 4E 00 |IR ) : 1...";N.|
000007D0: E0 0F D2 05 8B 20 4E B2 32 20 A7 20 31 30 31 30 |..... N.2 . 1010|
000007E0: 00 EF 0F DC 05 81 20 41 B2 31 20 A4 20 43 44 00 |...... A.1 . CD.|
000007F0: 05 10 E6 05 42 B2 C5 28 CA 28 43 24 28 41 29 2C |....B..(.(C$(A),|
00000800: 31 2C 35 29 29 00 3D 10 F0 05 8B 20 45 B3 B2 42 |1,5)).=.... E..B|
00000810: 20 AF 20 42 B3 B2 46 20 A7 20 8D 20 31 32 37 30 | . B..F . . 1270|
00000820: 3A 42 50 B2 42 50 AA B5 28 42 50 AC 47 29 AD 31 |:BP.BP..(BP.G).1|
00000830: 30 30 3A 8D 20 31 31 39 30 3A 53 B2 31 00 4C 10 |00:. 1190:S.1.L.|
00000840: FA 05 82 20 41 3A 89 20 31 30 31 30 00 6F 10 04 |... A:. 1010.o..|
00000850: 06 85 22 1D 1D 11 11 43 4F 44 49 47 4F 20 44 45 |.."....CODIGO DE|
00000860: 4C 20 41 52 54 49 43 55 4C 4F 20 3A 22 3B 41 00 |L ARTICULO :";A.|
00000870: 89 10 0E 06 85 22 1D 1D 11 56 41 4C 4F 52 20 46 |....."...VALOR F|
00000880: 49 4E 41 4C 20 3A 22 3B 47 00 A1 10 18 06 8D 20 |INAL :";G...... |
00000890: 31 32 33 30 3A 8B 20 5A B2 31 20 A7 20 31 30 31 |1230:. Z.1 . 101|
000008A0: 30 00 C3 10 22 06 41 B2 4E 20 3A 8D 20 31 32 37 |0...".A.N :. 127|
000008B0: 30 3A 42 50 B2 47 3A 8D 20 31 31 39 30 3A 89 31 |0:BP.G:. 1190:.1|
000008C0: 30 31 30 00 10 11 2C 06 8F 20 2A 2A 2A 2A 2A 2A |010...,.. ******|
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 20 49 4D 50 52 45 43 |********* IMPREC|
000008F0: 49 4F 4E 20 44 45 4C 20 4C 49 53 54 41 44 4F 20 |ION DEL LISTADO |
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 00 3B 11 36 06 99 22 93 11 11 1D 1D 1D 2A 2A 2A |.;.6.."......***|
00000920: 20 49 4D 50 52 45 53 49 4F 4E 20 44 45 4C 20 4C | IMPRESION DEL L|
00000930: 49 53 54 41 44 4F 20 2A 2A 2A 22 00 72 11 40 06 |ISTADO ***".r.@.|
00000940: 85 22 11 11 1D 1D 4F 50 43 49 4F 4E 28 31 20 55 |."....OPCION(1 U|
00000950: 4E 41 20 48 4F 4A 41 2F 32 20 54 4F 44 4F 20 2F |NA HOJA/2 TODO /|
00000960: 33 20 53 41 4C 49 52 29 3A 20 20 33 9D 9D 9D 22 |3 SALIR): 3..."|
00000970: 3B 4E 00 83 11 4A 06 8B 20 4E B2 32 20 A7 20 31 |;N...J.. N.2 . 1|
00000980: 36 39 30 00 95 11 54 06 8B 20 4E B3 B1 31 20 A7 |690...T.. N..1 .|
00000990: 20 31 30 31 30 00 BF 11 5E 06 85 22 11 1D 1D 46 | 1010...^.."...F|
000009A0: 45 43 48 41 20 3A 20 20 30 30 2F 30 30 2F 30 30 |ECHA : 00/00/00|
000009B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 46 45 24 00 |..........";FE$.|
000009C0: DC 11 68 06 85 22 1D 1D 4E 55 4D 45 52 4F 20 44 |..h.."..NUMERO D|
000009D0: 45 20 48 4F 4A 41 20 3A 22 3B 48 4F 00 0C 12 72 |E HOJA :";HO...r|
000009E0: 06 85 22 1D 1D 43 4F 44 49 47 4F 20 44 45 4C 20 |.."..CODIGO DEL |
000009F0: 50 52 4F 56 45 45 44 4F 52 20 3A 20 20 30 30 30 |PROVEEDOR : 000|
00000A00: 30 30 9D 9D 9D 9D 9D 9D 9D 22 3B 49 00 33 12 7C |00.......";I.3.||
00000A10: 06 85 22 1D 1D 43 4F 44 49 47 4F 20 50 52 49 4D |.."..CODIGO PRIM|
00000A20: 2E 41 52 54 2E 44 45 4C 20 50 52 4F 56 2E 20 3A |.ART.DEL PROV. :|
00000A30: 22 3B 45 00 53 12 86 06 85 22 1D 1D 43 4F 44 49 |";E.S...."..CODI|
00000A40: 47 4F 20 55 4C 54 2E 41 52 54 2E 50 52 4F 56 2E |GO ULT.ART.PROV.|
00000A50: 22 3B 46 00 7C 12 90 06 9F 33 2C 34 20 3A 9D 33 |";F.|....3,4 :.3|
00000A60: 3A 8D 20 35 30 30 30 3A 8D 20 35 30 38 30 3A 98 |:. 5000:. 5080:.|
00000A70: 33 3A A0 20 33 3A 89 20 31 30 31 30 00 A6 12 9A |3:. 3:. 1010....|
00000A80: 06 85 22 1D 1D 11 46 45 43 48 41 20 3A 20 20 30 |.."...FECHA : 0|
00000A90: 30 2F 30 30 2F 30 30 9D 9D 9D 9D 9D 9D 9D 9D 9D |0/00/00.........|
00000AA0: 9D 22 3B 46 45 24 00 BC 12 A4 06 9F 20 33 2C 34 |.";FE$...... 3,4|
00000AB0: 3A 9D 33 3A 49 B2 30 3A 48 4F B2 30 00 CA 12 AE |:.3:I.0:HO.0....|
00000AC0: 06 59 43 B2 31 30 30 30 30 30 00 DA 12 B8 06 81 |.YC.100000......|
00000AD0: 20 59 42 B2 31 20 A4 20 43 44 00 F1 12 C2 06 42 | YB.1 . CD.....B|
00000AE0: B2 C5 28 CA 28 43 24 28 59 42 29 2C 31 2C 35 29 |..(.(C$(YB),1,5)|
00000AF0: 29 00 12 13 CC 06 8B 20 42 B3 B1 28 B5 28 42 AD |)...... B..(.(B.|
00000B00: 31 30 30 30 29 AC 31 30 30 30 29 20 A7 20 31 37 |1000).1000) . 17|
00000B10: 37 30 00 24 13 D6 06 8B 20 42 B3 B2 49 20 A7 20 |70.$.... B..I . |
00000B20: 31 37 37 30 00 37 13 E0 06 8B 20 42 B3 20 59 43 |1770.7.... B. YC|
00000B30: 20 A7 20 59 43 B2 42 00 65 13 EA 06 82 20 59 42 | . YC.B.e.... YB|
00000B40: 3A 8B 20 49 B2 59 43 20 B0 20 59 43 B2 31 30 30 |:. I.YC . YC.100|
00000B50: 30 30 30 20 A7 20 98 33 3A A0 20 33 20 3A 20 89 |000 . .3:. 3 : .|
00000B60: 20 31 30 31 30 00 7B 13 F4 06 49 B2 59 43 3A 45 | 1010.{...I.YC:E|
00000B70: B2 31 30 30 30 30 30 3A 46 B2 30 00 8B 13 FE 06 |.100000:F.0.....|
00000B80: 81 20 59 42 B2 31 20 A4 20 43 44 00 A2 13 08 07 |. YB.1 . CD.....|
00000B90: 42 B2 C5 28 CA 28 43 24 28 59 42 29 2C 31 2C 35 |B..(.(C$(YB),1,5|
00000BA0: 29 29 00 C2 13 12 07 8B 20 42 B3 B2 20 49 20 B0 |))...... B.. I .|
00000BB0: 20 42 B1 B2 20 49 AA 31 30 30 30 20 A7 20 31 38 | B.. I.1000 . 18|
00000BC0: 34 30 00 D3 13 1C 07 8B 20 42 B3 20 45 20 A7 20 |40...... B. E . |
00000BD0: 45 B2 42 00 E4 13 26 07 8B 20 42 B1 20 46 20 A7 |E.B...&.. B. F .|
00000BE0: 20 46 B2 42 00 0A 14 30 07 82 20 59 42 3A 48 4F | F.B...0.. YB:HO|
00000BF0: B2 48 4F AA 31 3A 8D 20 35 30 30 30 3A 8D 20 35 |.HO.1:. 5000:. 5|
00000C00: 30 38 30 3A 89 20 31 37 31 30 00 58 14 C3 09 8F |080:. 1710.X....|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C30: 20 46 49 4E 41 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | FINAL *********|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 00 71 14 C4 09 8B 20 53 |********.q.... S|
00000C60: B2 31 20 A7 20 43 59 B2 32 3A 8D 20 31 35 30 30 |.1 . CY.2:. 1500|
00000C70: 30 00 7C 14 CE 09 99 22 93 22 3A 80 00 9B 14 88 |0.|....".":.....|
00000C80: 13 98 33 3A 98 33 3A 41 B2 49 3A 8D 31 32 33 30 |..3:.3:A.I:.1230|
00000C90: 3A 41 B2 4E 3A 8D 20 31 32 37 30 00 BF 14 92 13 |:A.N:. 1270.....|
00000CA0: 98 33 2C C7 28 31 34 29 A3 31 29 22 2A 20 56 45 |.3,.(14).1)"* VE|
00000CB0: 52 20 4C 49 4E 45 41 20 35 30 31 30 20 2A 22 00 |R LINEA 5010 *".|
00000CC0: C6 14 96 13 98 33 00 F7 14 97 13 98 33 2C A3 32 |.....3......3,.2|
00000CD0: 29 22 56 45 52 20 4C 49 4E 45 41 20 35 30 31 35 |)"VER LINEA 5015|
00000CE0: 20 28 44 49 52 45 43 43 49 4F 4E 20 20 20 20 20 | (DIRECCION |
00000CF0: 20 20 20 20 20 20 22 00 FE 14 98 13 98 33 00 05 | "......3..|
00000D00: 15 99 13 98 33 00 18 15 9A 13 98 33 2C C7 28 31 |....3......3,.(1|
00000D10: 34 29 A3 31 29 20 42 24 00 50 15 9C 13 98 33 2C |4).1) B$.P....3,|
00000D20: C7 28 31 35 29 A3 32 29 22 4C 49 53 54 41 20 44 |.(15).2)"LISTA D|
00000D30: 45 20 50 52 45 43 49 4F 53 3A 22 3B 46 45 24 3B |E PRECIOS:";FE$;|
00000D40: A3 33 35 29 22 48 4F 4A 41 20 3A 20 22 3B 48 4F |.35)"HOJA : ";HO|
00000D50: 00 57 15 9D 13 98 33 00 A7 15 A6 13 41 24 B2 22 |.W....3.....A$."|
00000D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000DA0: 2D 2D 2D 2D 2D 2D 22 00 BA 15 A7 13 41 24 B2 41 |------".....A$.A|
00000DB0: 24 AA 22 2D 2D 2D 2D 2D 2D 22 00 C8 15 B0 13 98 |$."------"......|
00000DC0: 33 2C A3 32 29 20 41 24 00 11 16 BA 13 98 33 2C |3,.2) A$......3,|
00000DD0: A3 32 29 22 49 20 20 43 4F 44 49 47 4F 20 20 49 |.2)"I CODIGO I|
00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 | A|
00000DF0: 52 54 49 43 55 4C 4F 20 20 20 20 20 20 20 20 20 |RTICULO |
00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 22 | I"|
00000E10: 3B 00 2D 16 BB 13 98 33 2C 22 20 50 52 45 43 49 |;.-....3," PRECI|
00000E20: 4F 20 50 55 42 4C 49 43 4F 20 20 49 22 00 3A 16 |O PUBLICO I".:.|
00000E30: C4 13 98 33 2C A3 32 29 41 24 00 46 16 CE 13 50 |...3,.2)A$.F...P|
00000E40: 47 B2 31 33 3A 8E 00 93 16 D8 13 8F 20 2A 2A 2A |G.13:....... ***|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4A 45 |************ EJE|
00000E70: 43 55 43 49 4F 4E 20 44 45 20 44 41 54 4F 53 20 |CUCION DE DATOS |
00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E90: 2A 2A 2A 00 A6 16 E2 13 4D B2 31 3A 81 20 41 B2 |***.....M.1:. A.|
00000EA0: 31 20 A4 20 43 44 00 BC 16 EC 13 42 B2 C5 28 CA |1 . CD.....B..(.|
00000EB0: 28 43 24 28 41 29 2C 31 2C 35 29 29 00 DE 16 F6 |(C$(A),1,5))....|
00000EC0: 13 8B 20 45 B3 B2 42 20 AF 20 42 B3 B2 46 20 A7 |.. E..B . B..F .|
00000ED0: 20 51 5A 28 4D 29 B2 41 3A 4D B2 4D AA 31 00 F7 | QZ(M).A:M.M.1..|
00000EE0: 16 F7 13 82 20 41 3A 8B 20 4D B2 31 20 A7 20 8D |.... A:. M.1 . .|
00000EF0: 20 35 31 38 30 3A 8E 00 08 17 F8 13 81 20 51 58 | 5180:....... QX|
00000F00: B2 31 20 A4 20 4D AB 31 00 23 17 F9 13 57 B2 31 |.1 . M.1.#...W.1|
00000F10: 30 30 30 30 30 3A 81 20 51 48 B2 51 58 20 A4 20 |00000:. QH.QX . |
00000F20: 4D AB 31 00 3E 17 FA 13 55 B2 C5 28 CA 28 43 24 |M.1.>...U..(.(C$|
00000F30: 28 51 5A 28 51 48 29 29 2C 31 2C 35 29 29 00 61 |(QZ(QH)),1,5)).a|
00000F40: 17 FB 13 8B 20 57 20 B1 20 55 20 A7 20 57 20 B2 |.... W . U . W .|
00000F50: 55 20 3A 42 B2 51 48 3A 42 50 B2 51 5A 28 51 48 |U :B.QH:BP.QZ(QH|
00000F60: 29 00 87 17 FC 13 82 20 51 48 3A 51 48 B2 51 5A |)...... QH:QH.QZ|
00000F70: 28 51 58 29 3A 51 5A 28 51 58 29 B2 42 50 3A 51 |(QX):QZ(QX).BP:Q|
00000F80: 5A 28 42 29 B2 51 48 00 9D 17 FD 13 82 20 51 58 |Z(B).QH...... QX|
00000F90: 3A 81 20 51 58 B2 31 20 A4 20 4D AB 31 00 B8 17 |:. QX.1 . M.1...|
00000FA0: FE 13 41 B2 51 5A 28 51 58 29 3A 8D 20 31 32 37 |..A.QZ(QX):. 127|
00000FB0: 30 3A 8D 20 35 31 33 30 00 CA 17 FF 13 82 20 51 |0:. 5130...... Q|
00000FC0: 58 3A 8D 20 35 31 38 30 3A 8E 00 F8 17 0A 14 8B |X:. 5180:.......|
00000FD0: 20 50 47 B2 36 38 20 A7 20 48 4F B2 48 4F AA 31 | PG.68 . HO.HO.1|
00000FE0: 3A 8D 20 35 31 38 30 3A 8D 20 35 30 30 30 3A 58 |:. 5180:. 5000:X|
00000FF0: B2 42 3A 8D 35 32 30 30 00 08 18 0F 14 58 B2 42 |.B:.5200.....X.B|
00001000: 3A 20 8D 20 35 32 30 30 00 36 18 14 14 98 33 2C |: . 5200.6....3,|
00001010: A3 32 29 22 49 22 3B A3 36 AB 50 58 29 42 3B A3 |.2)"I";.6.PX)B;.|
00001020: 32 29 3B 22 49 20 22 3B 42 24 3B A3 35 29 3B 22 |2);"I ";B$;.5);"|
00001030: 49 20 41 3D 22 3B 00 6F 18 19 14 8B 20 B5 28 42 |I A=";.o.... .(B|
00001040: 50 29 B2 42 50 20 A7 20 42 24 B2 C9 28 22 20 20 |P).BP . B$..(" |
00001050: 20 20 20 20 20 20 20 22 AA C4 28 42 50 29 AA 22 | "..(BP)."|
00001060: 2E 30 30 22 2C 31 33 29 3A 89 20 35 31 36 30 00 |.00",13):. 5160.|
00001070: A4 18 1E 14 8B 20 42 50 B3 31 20 A7 20 42 24 B2 |..... BP.1 . B$.|
00001080: 22 20 20 20 20 20 20 20 20 20 30 22 AA CA 28 C4 |" 0"..(.|
00001090: 28 42 50 29 AA 22 30 22 2C 32 2C 33 29 3A 89 20 |(BP)."0",2,3):. |
000010A0: 35 31 36 30 00 D7 18 23 14 42 B2 C3 28 C4 28 B5 |5160...#.B..(.(.|
000010B0: 28 42 50 29 29 29 3A 42 24 B2 CA 28 22 20 20 20 |(BP))):B$..(" |
000010C0: 20 20 20 20 20 20 22 AA C4 28 42 50 29 AA 22 30 | "..(BP)."0|
000010D0: 22 2C 42 2C 31 33 29 00 E6 18 28 14 98 33 2C 42 |",B,13)...(..3,B|
000010E0: 24 3B 22 20 49 22 00 F5 18 32 14 50 47 B2 50 47 |$;" I"...2.PG.PG|
000010F0: AA 31 20 3A 8E 00 0E 19 3C 14 81 20 58 B2 50 47 |.1 :....<.. X.PG|
00001100: 20 A4 20 37 32 3A 98 33 3A 82 20 58 3A 8E 00 1E | . 72:.3:. X:...|
00001110: 19 50 14 81 20 50 58 B2 31 20 A4 20 32 30 00 32 |.P.. PX.1 . 20.2|
00001120: 19 5A 14 8B 20 58 AA 31 B3 31 30 AE 50 58 20 A7 |.Z.. X.1.10.PX .|
00001130: 20 8E 00 3D 19 64 14 82 20 50 58 3A 80 00 54 19 | ..=.d.. PX:..T.|
00001140: 98 3A 91 20 43 59 20 89 20 31 35 30 30 31 2C 31 |.:. CY . 15001,1|
00001150: 35 31 36 30 00 83 19 99 3A 99 22 93 11 1D 11 11 |5160....:.".....|
00001160: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001170: 1D 12 41 92 4E 54 49 47 55 4F 20 46 49 43 48 45 |..A.NTIGUO FICHE|
00001180: 52 4F 22 00 AA 19 9D 3A 99 22 11 1D 1D 11 11 1D |RO"....:."......|
00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 4E 92 55 45 56 |...........N.UEV|
000011A0: 4F 20 46 49 43 48 45 52 4F 22 00 BF 19 A2 3A 85 |O FICHERO"....:.|
000011B0: 22 11 11 11 11 20 20 41 9D 9D 9D 22 3B 41 24 00 |".... A...";A$.|
000011C0: D4 19 AC 3A 8B 20 41 24 B2 22 41 22 20 A7 20 31 |...:. A$."A" . 1|
000011D0: 35 30 38 30 00 E8 19 B6 3A 8B 20 41 24 B2 22 4E |5080....:. A$."N|
000011E0: 22 20 A7 31 35 30 35 30 00 F4 19 C0 3A 89 20 31 |" .15050....:. 1|
000011F0: 35 30 30 31 00 FF 19 CA 3A 58 5A B2 31 3A 8E 00 |5001....:XZ.1:..|
00001200: 26 1A E8 3A 58 5A B2 32 3A 85 22 11 11 1D 4E 4F |&..:XZ.2:."...NO|
00001210: 4D 42 52 45 20 44 45 4C 20 46 49 43 48 45 52 4F |MBRE DEL FICHERO|
00001220: 3A 22 3B 58 5A 24 00 42 1A F2 3A 9F 20 38 2C 38 |:";XZ$.B..:. 8,8|
00001230: 2C 38 2C 22 30 3A 22 AA 58 5A 24 AA 22 2C 53 2C |,8,"0:".XZ$.",S,|
00001240: 52 22 00 4B 1A FC 3A 43 44 B2 31 00 59 1A 06 3B |R".K..:CD.1.Y..;|
00001250: 84 38 2C 43 24 28 43 44 29 00 76 1A 24 3B 8B 20 |.8,C$(CD).v.$;. |
00001260: 53 54 B2 30 20 A7 20 43 44 B2 43 44 AA 31 3A 89 |ST.0 . CD.CD.1:.|
00001270: 20 31 35 31 31 30 00 80 1A 2E 3B A0 20 38 3A 8E | 15110....;. 8:.|
00001280: 00 93 1A 38 3B 8B 20 58 5A B2 32 20 A7 20 31 35 |...8;. XZ.2 . 15|
00001290: 31 39 30 00 D2 1A 42 3B 85 22 93 11 11 1D 1D 1D |190...B;."......|
000012A0: 1D 11 11 1D 1D 4E 4F 4D 42 52 45 20 44 45 4C 20 |.....NOMBRE DEL |
000012B0: 46 49 43 48 45 52 4F 20 41 20 43 4F 4C 4F 43 41 |FICHERO A COLOCA|
000012C0: 52 20 4C 4F 53 20 44 41 54 4F 53 20 3A 22 3B 58 |R LOS DATOS :";X|
000012D0: 5A 24 00 F5 1A 4C 3B 9F 38 2C 38 2C 38 2C 22 30 |Z$...L;.8,8,8,"0|
000012E0: 3A 22 AA 58 5A 24 AA 22 2C 53 2C 57 22 3A 89 20 |:".XZ$.",S,W":. |
000012F0: 31 35 32 30 30 00 12 1B 56 3B 9F 20 38 2C 38 2C |15200...V;. 8,8,|
00001300: 38 2C 22 40 30 3A 22 AA 58 5A 24 AA 22 2C 53 2C |8,"@0:".XZ$.",S,|
00001310: 57 22 00 21 1B 60 3B 81 20 4E B2 31 20 A4 20 43 |W".!.`;. N.1 . C|
00001320: 44 00 2E 1B 6A 3B 98 38 2C 43 24 28 4E 29 00 3A |D...j;.8,C$(N).:|
00001330: 1B 74 3B 82 20 4E 3A A0 20 38 00 55 1B 7E 3B 9F |.t;. N:. 8.U.~;.|
00001340: 38 2C 38 2C 38 2C 22 30 3A 22 AA 58 5A 24 AA 22 |8,8,8,"0:".XZ$."|
00001350: 2C 53 2C 52 22 00 6A 1B 88 3B 81 20 45 B2 31 20 |,S,R".j..;. E.1 |
00001360: A4 20 43 44 3A 41 24 B2 22 22 00 74 1B 92 3B 84 |. CD:A$."".t..;.|
00001370: 38 2C 41 24 00 8C 1B A6 3B 8B 20 41 24 B3 B1 43 |8,A$....;. A$..C|
00001380: 24 28 45 29 20 A7 20 31 35 33 31 30 00 A0 1B B0 |$(E) . 15310....|
00001390: 3B 8B 20 53 54 B3 B1 30 20 A7 20 31 35 33 30 30 |;. ST..0 . 15300|
000013A0: 00 B0 1B BA 3B 82 20 45 3A 89 20 31 35 33 31 30 |....;. E:. 15310|
000013B0: 00 C3 1B C4 3B 8B 20 43 44 B2 45 20 A7 20 A0 20 |....;. CD.E . . |
000013C0: 38 3A 8E 00 E8 1B CE 3B 99 22 11 11 1D 1D 2A 2A |8:.....;."....**|
000013D0: 20 45 52 52 4F 52 20 45 4E 20 45 4C 20 47 52 41 | ERROR EN EL GRA|
000013E0: 42 41 44 4F 20 2A 2A 22 00 12 1C D8 3B A0 20 38 |BADO **"....;. 8|
000013F0: 3A 99 22 41 50 52 45 54 45 20 4C 41 20 42 41 52 |:."APRETE LA BAR|
00001400: 52 41 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 |RA PARA CONTINUA|
00001410: 52 22 00 2B 1C E2 3B A1 20 41 24 3A 8B 20 41 24 |R".+..;. A$:. A$|
00001420: B2 22 22 20 A7 20 31 35 33 33 30 00 3C 1C EC 3B |."" . 15330.<..;|
00001430: 43 59 B2 32 3A 89 20 31 35 30 30 30 00 42 1C F6 |CY.2:. 15000.B..|
00001440: 3B 80 00 00 00 |;.... |
..A....".............. LISTAS
DE PRECIOS ..".Q.2..G.1.3000:
..O.... C$(200),QZ(100):. 15000......"..
.....### OPCIONES ###"......"........1
CARGAR FICHAS".K....".....2 ANULAR FICH
AS"......".....3 CAMBIAR PRECIOS"......"
.....4 IMPRIMIR"...$..".....5 SALIDA".B.
..."..........PULSE EL NW.CORRESPONDIENT
E".O.8.. A$:. N.49 . 53:. A$..G(N) . . N
:. 1080...B.. E(A$) . 1100,1320,1400,158
0,2500...L.. ###########################
############## CARGA DE FICHAS #########
###...V.."......## CARGAS DE FICHAS ##".
&.`..".......( 0 PARA SALIR )".D.E.. "..
CODIGO ANTERIOR :";B.I.J..".....CODIGO :
00000.......";B...T..".....ARTICULO :"
;B$...~..".....PRECIO : 00000.......";B
P.I....".....SU OPCION : 1...";A.Z....
A.0 . 1010.....CD.CD.1:A.CD:. 1190:. 101
0.F.... *******************************
SUBRUT.CARGA DE FICHAS ***************.K
...C$(A)."":C$(A).I("00000".D(B),5).....
C$(A).C$(A).H(B$."
",40).....C$(A).C$(A).
I("00000000000000".D(BP),14):S.1...D...3
.N.. ******************************* SUB
RUT.BUSQUEDA DE FICHAS ************.F.X.
Z.0:. N.1 . CD.D...B.E(H(C$(N),5)):. A.B
. ....... N:."NO EXISTE ESE CODIGO ???"
:. A.1 . 1000:.A:Z.1:....... ***********
******************** SUBRUT.BUSQUEDA DE
DATOS *************.....B.E(J(C$(A),1,5)
).....B$.J(C$(A),6,40)./...BP.E(J(C$(A),
46,14)).5.......(.. ********************
*********** ANULAR FICHAS **************
**********...2.."......*** ANULAR FICHAS
***".G.<.."..........( 0 PARA SALIR )".
..F.."....CUAL FICHA : 0...";A...P.. A.
0 . 1010...Z.. 1230:. Z.1 . 1320.%.D.S.1
:. A.N.1 . CD.J.N.C$(A.1).C$(A):. A:CD.C
D.1:. 1010...X.. ***********************
******** CAMBIAR PRECIOS ***************
*******......"......*** CAMBIAR PRECIOS
***"......"....OPCION (1 VALOR FIJO/ 2 P
ORCENTAJE/ 3 SALIR ): "...... N$:N.
E(N$)...... N.1 . 1540.0. .. N..2 . 1010
.Z...."...CODIGO DEL ARTICULO INICIAL :"
;E......"..CODIGO DEL ARTICULO FINAL :";
F......"..PORCENTAJE A APLICAR :";G.O.H.
."OPCION (1 CONT / 2 SALIR ) : 1...";N.
..R.. N.2 . 1010...... A.1 . CD.....B.E(
J(C$(A),1,5)).=.... E..B . B..F . . 1270
:BP.BP..(BP.G).100:. 1190:S.1.L.... A:.
1010.O...."....CODIGO DEL ARTICULO :";A.
....."...VALOR FINAL :";G...... 1230:. Z
.1 . 1010.C.".A.N :. 1270:BP.G:. 1190:.1
010...,.. ******************************
* IMPRECION DEL LISTADO ****************
.;.6.."......*** IMPRESION DEL LISTADO *
**".R.@.."....OPCION(1 UNA HOJA/2 TODO /
3 SALIR): 3...";N...J.. N.2 . 1690...T.
. N..1 . 1010...^.."...FECHA : 00/00/00
..........";FE$...H.."..NUMERO DE HOJA :
";HO...R.."..CODIGO DEL PROVEEDOR : 000
00.......";I.3.|.."..CODIGO PRIM.ART.DEL
PROV. :";E.S...."..CODIGO ULT.ART.PROV.
";F.|....3,4 :.3:. 5000:. 5080:.3: 3:.
1010......"...FECHA : 00/00/00.........
.";FE$...... 3,4:.3:I.0:HO.0.J...YC.1000
00.Z.... YB.1 . CD...B.B.E(J(C$(YB),1,5)
)...L.. B..(.(B.1000).1000) . 1770.$.V..
B..I . 1770.7.... B. YC . YC.B.E.... YB
:. I.YC . YC.100000 . .3: 3 : . 1010.{.
..I.YC:E.100000:F.0...... YB.1 . CD.....
B.E(J(C$(YB),1,5)).B.... B.. I . B.. I.1
000 . 1840.S.... B. E . E.B...&.. B. F .
F.B...0.. YB:HO.HO.1:. 5000:. 5080:. 17
10.X.C..********************************
FINAL *********************************
.Q.D.. S.1 . CY.2:. 15000.|.N..".":.....
..3:.3:A.I:.1230:A.N:. 1270......3,G(14)
.1)"* VER LINEA 5010 *".F....3......3,.2
)"VER LINEA 5015 (DIRECCION ".
.....3......3......3,G(14).1) B$.P....3,
G(15).2)"LISTA DE PRECIOS:";FE$;.35)"HOJ
A : ";HO.W....3.....A$."----------------
----------------------------------------
--------------".....A$.A$."------".H....
3,.2) A$......3,.2)"I CODIGO I
ARTICULO I"
;.-....3," PRECIO PUBLICO I".:.D..3,.2)
A$.F.N.PG.13:....X.. *******************
************ EJECUCION DE DATOS ********
***********.....M.1:. A.1 . CD.....B.E(J
(C$(A),1,5))...... E..B . B..F . QZ(M).A
:M.M.1...... A:. M.1 . . 5180:....... QX
.1 . M.1.#...W.100000:. QH.QX . M.1.>...
U.E(J(C$(QZ(QH)),1,5)).A.... W . U . W .
U :B.QH:BP.QZ(QH)...... QH:QH.QZ(QX):QZ(
QX).BP:QZ(B).QH...... QX:. QX.1 . M.1...
..A.QZ(QX):. 1270:. 5130.J.... QX:. 5180
:....... PG.68 . HO.HO.1:. 5180:. 5000:X
.B:.5200.....X.B: . 5200.6....3,.2)"I";.
6.PX)B;.2);"I ";B$;.5);"I A=";.O.... .(B
P).BP . B$.I(" ".D(BP).".00",13)
:. 5160...... BP.1 . B$." 0".J(D
(BP)."0",2,3):. 5160.W.#.B.C(D(.(BP))):B
$.J(" ".D(BP)."0",B,13)...(..3,B
$;" I"...2.PG.PG.1 :....<.. X.PG . 72:.3
:. X:....P.. PX.1 . 20.2.Z.. X.1.10.PX .
..=.D.. PX:..T..:. CY . 15001,15160....
:.".......................A.NTIGUO FICHE
RO"....:.".................N.UEVO FICHER
O"....:.".... A...";A$.T..:. A$."A" . 1
5080....:. A$."N" .15050....:. 15001...J
:XZ.1:..&..:XZ.2:."...NOMBRE DEL FICHERO
:";XZ$.B..:. 8,8,8,"0:".XZ$.",S,R".K..:C
D.1.Y..;.8,C$(CD).V.$;. ST.0 . CD.CD.1:.
15110....; 8:....8;. XZ.2 . 15190.R.B;
."...........NOMBRE DEL FICHERO A COLOCA
R LOS DATOS :";XZ$...L;.8,8,8,"0:".XZ$."
,S,W":. 15200...V;. 8,8,8,"@0:".XZ$.",S,
W".!.`;. N.1 . CD...J;.8,C$(N).:.T;. N:
8.U.~;.8,8,8,"0:".XZ$.",S,R".J..;. E.1
. CD:A$."".T..;.8,A$....;. A$..C$(E) . 1
5310. ..;. ST..0 . 15300....;. E:. 15310
.C.D;. CD.E . 8:....N;."....** ERROR E
N EL GRABADO **"...X; 8:."APRETE LA BAR
RA PARA CONTINUAR".+..;. A$:. A$."" . 15
330.<..;CY.2:. 15000.B..;....
> CLICK IMAGE PREVIEW FOR FULL MODAL