CONTROL STOCK
FILE INFORMATION
FILENAME(S): CONTROL STOCK
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
26a2b55ae7185d2f1455fd419b53dc65b0943f6f0e999298d563da93f780fbc0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | CONTROL STOCK | PRG | Bugjam - Argentina | 23 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 97 35 33 32 38 30 2C 36 3A 97 |..;....53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 99 22 93 05 11 11 11 11 |53281,6:."......|
00000020: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
00000030: C7 28 31 34 29 3B C7 28 38 29 3B 00 61 08 14 00 |.(14);.(8);.a...|
00000040: 99 22 C3 4F 4E 54 52 4F 4C 20 44 45 20 53 54 4F |.".ONTROL DE STO|
00000050: 43 4B 20 22 3A 81 50 B2 30 A4 20 35 30 30 3A 82 |CK ":.P.0. 500:.|
00000060: 50 00 70 08 1E 00 86 53 24 28 33 30 30 2C 34 29 |P.p....S$(300,4)|
00000070: 00 79 08 28 00 99 22 93 22 00 9F 08 32 00 99 A3 |.y.(.."."...2...|
00000080: 31 33 29 3B 22 CF 50 43 49 4F 4E 45 53 22 3A 99 |13);".PCIONES":.|
00000090: A3 31 33 29 3B 22 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |.13);"........".|
000000A0: A5 08 3C 00 99 00 D4 08 46 00 99 22 C3 41 52 47 |..<.....F..".ARG|
000000B0: 41 52 20 45 58 49 53 54 45 4E 43 49 41 53 20 41 |AR EXISTENCIAS A|
000000C0: 43 54 55 41 4C 45 53 2E 2E 2E 2E 2E 2E 2E 2E 2E |CTUALES.........|
000000D0: 2E 2E 31 22 00 DA 08 50 00 99 00 09 09 5A 00 99 |..1"...P.....Z..|
000000E0: 22 D3 41 4C 56 41 52 20 45 58 49 53 54 45 4E 43 |".ALVAR EXISTENC|
000000F0: 49 41 53 20 41 43 54 55 41 4C 45 53 2E 2E 2E 2E |IAS ACTUALES....|
00000100: 2E 2E 2E 2E 2E 2E 2E 32 22 00 0F 09 64 00 99 00 |.......2"...d...|
00000110: 3E 09 6E 00 99 22 CC 49 53 54 41 52 20 45 58 49 |>.n..".ISTAR EXI|
00000120: 53 54 45 4E 43 49 41 53 20 41 43 54 55 41 4C 45 |STENCIAS ACTUALE|
00000130: 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 33 22 00 44 |S...........3".D|
00000140: 09 78 00 99 00 73 09 82 00 99 22 CC 49 53 54 41 |.x...s....".ISTA|
00000150: 52 20 45 58 49 53 54 45 4E 43 49 41 53 20 41 20 |R EXISTENCIAS A |
00000160: 52 45 4E 4F 56 41 52 2E 2E 2E 2E 2E 2E 2E 2E 2E |RENOVAR.........|
00000170: 2E 34 22 00 79 09 8C 00 99 00 A8 09 96 00 99 22 |.4".y.........."|
00000180: C3 41 4D 42 49 41 52 20 44 41 54 4F 53 20 44 45 |.AMBIAR DATOS DE|
00000190: 20 55 4E 20 45 4C 45 4D 45 4E 54 4F 2E 2E 2E 2E | UN ELEMENTO....|
000001A0: 2E 2E 2E 2E 2E 2E 35 22 00 AE 09 A0 00 99 00 DD |......5"........|
000001B0: 09 AA 00 99 22 C5 4E 54 52 41 52 20 4E 55 4D 45 |....".NTRAR NUME|
000001C0: 52 4F 20 44 45 20 45 4C 45 4D 45 4E 54 4F 53 20 |RO DE ELEMENTOS |
000001D0: 56 45 4E 44 49 44 4F 53 2E 2E 2E 36 22 00 E3 09 |VENDIDOS...6"...|
000001E0: B4 00 99 00 12 0A BE 00 99 22 D3 41 4C 49 44 41 |.........".ALIDA|
000001F0: 20 44 45 4C 20 50 52 4F 47 52 41 4D 41 2E 2E 2E | DEL PROGRAMA...|
00000200: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000210: 37 22 00 18 0A C8 00 99 00 49 0A D2 00 99 22 12 |7".......I....".|
00000220: 20 20 20 20 20 20 20 D4 45 43 4C 45 45 20 4C 41 | .ECLEE LA|
00000230: 20 4F 50 43 49 4F 4E 20 44 45 53 45 41 44 41 20 | OPCION DESEADA |
00000240: 20 20 20 20 20 20 20 92 22 00 51 0A DC 00 A1 41 | .".Q....A|
00000250: 24 00 68 0A E6 00 8B 41 24 B3 22 31 22 B0 41 24 |$.h....A$."1".A$|
00000260: B1 22 37 22 A7 32 32 30 00 71 0A FA 00 99 22 93 |."7".220.q....".|
00000270: 22 00 9F 0A 04 01 91 C5 28 41 24 29 8D 31 30 30 |".......(A$).100|
00000280: 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 |0,2000,3000,4000|
00000290: 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 30 00 |,5000,6000,7000.|
000002A0: A7 0A 0E 01 89 34 30 00 C0 0A E8 03 9F 32 2C 31 |.....40......2,1|
000002B0: 2C 30 2C 22 45 58 49 53 54 45 4E 43 49 41 53 22 |,0,"EXISTENCIAS"|
000002C0: 00 CD 0A F2 03 81 41 B2 30 A4 33 30 30 00 D8 0A |......A.0.300...|
000002D0: FC 03 81 42 B2 30 A4 34 00 FF 0A 06 04 84 32 2C |...B.0.4......2,|
000002E0: 53 24 28 41 2C 42 29 3A 8B 53 24 28 41 2C 42 29 |S$(A,B):.S$(A,B)|
000002F0: B2 22 2D 22 A7 53 24 28 41 2C 42 29 B2 22 22 00 |."-".S$(A,B)."".|
00000300: 06 0B 10 04 82 42 00 10 0B 1A 04 82 41 3A A0 32 |.....B......A:.2|
00000310: 00 16 0B 24 04 8E 00 2F 0B D0 07 9F 32 2C 31 2C |...$.../....2,1,|
00000320: 31 2C 22 45 58 49 53 54 45 4E 43 49 41 53 22 00 |1,"EXISTENCIAS".|
00000330: 3C 0B DA 07 81 41 B2 30 A4 33 30 30 00 5F 0B E4 |<....A.0.300._..|
00000340: 07 81 42 B2 30 A4 34 3A 8B 53 24 28 41 2C 42 29 |..B.0.4:.S$(A,B)|
00000350: B2 22 22 A7 53 24 28 41 2C 42 29 B2 22 2D 22 00 |."".S$(A,B)."-".|
00000360: 6E 0B EE 07 98 32 2C 53 24 28 41 2C 42 29 00 75 |n....2,S$(A,B).u|
00000370: 0B F8 07 82 42 00 7F 0B 02 08 82 41 3A A0 32 00 |....B......A:.2.|
00000380: 85 0B 0C 08 8E 00 92 0B B8 0B 81 41 B2 30 A4 33 |...........A.0.3|
00000390: 30 30 00 A7 0B C2 0B 8B 53 24 28 41 2C 30 29 B2 |00......S$(A,0).|
000003A0: 22 22 A7 33 30 39 30 00 B0 0B CC 0B 99 22 93 22 |"".3090......"."|
000003B0: 00 C9 0B D6 0B 99 22 C1 52 54 49 43 55 4C 4F 3A |......".RTICULO:|
000003C0: 22 3B 53 24 28 41 2C 30 29 00 EA 0B E0 0B 99 22 |";S$(A,0)......"|
000003D0: C3 4F 44 49 47 4F 20 44 45 20 50 45 44 49 44 4F |.ODIGO DE PEDIDO|
000003E0: 3A 22 3B 53 24 28 41 2C 31 29 00 04 0C EA 0B 99 |:";S$(A,1)......|
000003F0: 22 D0 52 4F 56 45 45 44 4F 52 3A 22 3B 53 24 28 |".ROVEEDOR:";S$(|
00000400: 41 2C 32 29 00 24 0C F4 0B 99 22 CE 49 56 45 4C |A,2).$....".IVEL|
00000410: 20 44 45 20 50 45 44 49 44 4F 3A 22 3B 53 24 28 | DE PEDIDO:";S$(|
00000420: 41 2C 33 29 00 66 0C F9 0B 8B C5 28 53 24 28 41 |A,3).f.....(S$(A|
00000430: 2C 34 29 29 B3 C5 28 53 24 28 41 2C 33 29 29 A7 |,4))..(S$(A,3)).|
00000440: 99 22 12 C5 58 49 53 54 45 4E 43 49 41 53 20 52 |."..XISTENCIAS R|
00000450: 45 53 54 41 4E 54 45 53 3A 22 3B 53 24 28 41 2C |ESTANTES:";S$(A,|
00000460: 34 29 3B 22 92 22 00 A4 0C FE 0B 8B C5 28 53 24 |4);".".......(S$|
00000470: 28 41 2C 34 29 29 B1 B2 C5 28 53 24 28 41 2C 33 |(A,4))...(S$(A,3|
00000480: 29 29 A7 99 22 C5 58 49 53 54 45 4E 43 49 41 53 |))..".XISTENCIAS|
00000490: 20 52 45 53 54 41 4E 54 45 53 3A 22 3B 53 24 28 | RESTANTES:";S$(|
000004A0: 41 2C 34 29 00 B8 0C 08 0C A1 41 24 3A 8B 41 24 |A,4)......A$:.A$|
000004B0: B2 22 22 A7 33 30 38 30 00 BF 0C 12 0C 82 41 00 |."".3080......A.|
000004C0: C5 0C 1C 0C 8E 00 D1 0C A0 0F 9F 34 2C 34 3A 9D |...........4,4:.|
000004D0: 34 00 DE 0C A5 0F 81 41 B2 30 A4 33 30 30 00 F3 |4......A.0.300..|
000004E0: 0C AA 0F 8B 53 24 28 41 2C 30 29 B2 22 22 A7 34 |....S$(A,0)."".4|
000004F0: 30 39 30 00 13 0D B4 0F 8B C5 28 53 24 28 41 2C |090.......(S$(A,|
00000500: 34 29 29 B1 C5 28 53 24 28 41 2C 33 29 29 A7 34 |4))..(S$(A,3)).4|
00000510: 30 39 30 00 2C 0D BE 0F 99 22 C1 52 54 49 43 55 |090.,....".RTICU|
00000520: 4C 4F 3A 22 3B 53 24 28 41 2C 30 29 00 4D 0D C8 |LO:";S$(A,0).M..|
00000530: 0F 99 22 C3 4F 44 49 47 4F 20 44 45 20 50 45 44 |..".ODIGO DE PED|
00000540: 49 44 4F 3A 22 3B 53 24 28 41 2C 31 29 00 67 0D |IDO:";S$(A,1).g.|
00000550: D2 0F 99 22 D0 52 4F 56 45 45 44 4F 52 3A 22 3B |...".ROVEEDOR:";|
00000560: 53 24 28 41 2C 32 29 00 87 0D DC 0F 99 22 CE 49 |S$(A,2)......".I|
00000570: 56 45 4C 20 44 45 20 50 45 44 49 44 4F 3A 22 3B |VEL DE PEDIDO:";|
00000580: 53 24 28 41 2C 33 29 00 AD 0D E6 0F 99 22 C5 58 |S$(A,3)......".X|
00000590: 49 53 54 45 4E 43 49 41 53 20 52 45 53 54 41 4E |ISTENCIAS RESTAN|
000005A0: 54 45 53 3A 22 3B 53 24 28 41 2C 34 29 00 DC 0D |TES:";S$(A,4)...|
000005B0: F0 0F 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..."............|
000005C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000005D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 E3 0D FA |..........."....|
000005E0: 0F 82 41 00 EC 0D 04 10 A0 34 3A 8E 00 17 0E 88 |..A......4:.....|
000005F0: 13 9F 31 2C 30 2C 30 3A 99 22 CE 4F 4D 42 52 45 |..1,0,0:.".OMBRE|
00000600: 20 44 45 4C 20 41 52 54 49 43 55 4C 4F 3A 22 3A | DEL ARTICULO:":|
00000610: 84 31 2C 41 24 3A 99 00 20 0E 9C 13 44 B2 AB 31 |.1,A$:.. ...D..1|
00000620: 00 2D 0E A6 13 81 41 B2 30 A4 33 30 30 00 46 0E |.-....A.0.300.F.|
00000630: B0 13 8B 53 24 28 41 2C 30 29 B2 41 24 AF 44 B2 |...S$(A,0).A$.D.|
00000640: AB 31 A7 44 B2 41 00 4D 0E BA 13 82 41 00 84 0E |.1.D.A.M....A...|
00000650: C4 13 8B 44 B2 AB 31 A7 99 22 CE 4F 20 53 45 20 |...D..1..".O SE |
00000660: 48 41 20 45 4E 43 4F 4E 54 52 41 44 4F 20 45 53 |HA ENCONTRADO ES|
00000670: 45 20 41 52 54 49 43 55 4C 4F 22 3A A0 31 3A 89 |E ARTICULO":.1:.|
00000680: 35 30 30 30 00 8C 0E C9 13 41 B2 44 00 B0 0E CE |5000.....A.D....|
00000690: 13 99 22 CE 4F 4D 42 52 45 20 44 45 4C 20 41 52 |..".OMBRE DEL AR|
000006A0: 54 49 43 55 4C 4F 3A 22 3B 53 24 28 41 2C 30 29 |TICULO:";S$(A,0)|
000006B0: 00 D1 0E D8 13 99 22 C3 4F 44 49 47 4F 20 44 45 |......".ODIGO DE|
000006C0: 20 50 45 44 49 44 4F 3A 22 3B 53 24 28 41 2C 31 | PEDIDO:";S$(A,1|
000006D0: 29 00 EB 0E E2 13 99 22 D0 52 4F 56 45 45 44 4F |)......".ROVEEDO|
000006E0: 52 3A 22 3B 53 24 28 41 2C 32 29 00 0B 0F EC 13 |R:";S$(A,2).....|
000006F0: 99 22 CE 49 56 45 4C 20 44 45 20 50 45 44 49 44 |.".IVEL DE PEDID|
00000700: 4F 3A 22 3B 53 24 28 41 2C 33 29 00 31 0F F6 13 |O:";S$(A,3).1...|
00000710: 99 22 C5 58 49 53 54 45 4E 43 49 41 53 20 52 45 |.".XISTENCIAS RE|
00000720: 53 54 41 4E 54 45 53 3A 22 3B 53 24 28 41 2C 34 |STANTES:";S$(A,4|
00000730: 29 00 60 0F 00 14 99 22 B7 B7 B7 B7 B7 B7 B7 B7 |).`...."........|
00000740: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000750: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |..............."|
00000760: 00 8B 0F 0A 14 99 22 CE 55 45 56 4F 20 4E 4F 4D |......".UEVO NOM|
00000770: 42 52 45 20 44 45 4C 20 41 52 54 49 43 55 4C 4F |BRE DEL ARTICULO|
00000780: 3A 22 3B 3A 84 31 2C 41 24 3A 99 00 A1 0F 14 14 |:";:.1,A$:......|
00000790: 8B 41 24 B2 22 22 A7 41 24 B2 53 24 28 41 2C 30 |.A$."".A$.S$(A,0|
000007A0: 29 00 B0 0F 1E 14 53 24 28 41 2C 30 29 B2 41 24 |).....S$(A,0).A$|
000007B0: 00 D8 0F 28 14 99 22 CE 55 45 56 4F 20 43 4F 44 |...(..".UEVO COD|
000007C0: 49 47 4F 20 44 45 20 50 45 44 49 44 4F 3A 22 3B |IGO DE PEDIDO:";|
000007D0: 3A 84 31 2C 41 24 3A 99 00 EE 0F 32 14 8B 41 24 |:.1,A$:....2..A$|
000007E0: B2 22 22 A7 41 24 B2 53 24 28 41 2C 31 29 00 FD |."".A$.S$(A,1)..|
000007F0: 0F 3C 14 53 24 28 41 2C 31 29 B2 41 24 00 1D 10 |.<.S$(A,1).A$...|
00000800: 46 14 99 22 CE 55 45 56 4F 20 50 52 4F 56 45 45 |F..".UEVO PROVEE|
00000810: 44 4F 52 22 3B 3A 84 31 2C 41 24 3A 99 00 33 10 |DOR";:.1,A$:..3.|
00000820: 50 14 8B 41 24 B2 22 22 A7 41 24 B2 53 24 28 41 |P..A$."".A$.S$(A|
00000830: 2C 32 29 00 42 10 5A 14 53 24 28 41 2C 32 29 B2 |,2).B.Z.S$(A,2).|
00000840: 41 24 00 69 10 64 14 99 22 CE 55 45 56 4F 20 4E |A$.i.d..".UEVO N|
00000850: 49 56 45 4C 20 44 45 20 50 45 44 49 44 4F 3A 22 |IVEL DE PEDIDO:"|
00000860: 3B 3A 84 31 2C 41 24 3A 99 00 7F 10 6E 14 8B 41 |;:.1,A$:....n..A|
00000870: 24 B2 22 22 A7 41 24 B2 53 24 28 41 2C 33 29 00 |$."".A$.S$(A,3).|
00000880: 8E 10 78 14 53 24 28 41 2C 33 29 B2 41 24 00 BC |..x.S$(A,3).A$..|
00000890: 10 82 14 99 22 CE 55 45 56 41 53 20 45 58 49 53 |....".UEVAS EXIS|
000008A0: 54 45 4E 43 49 41 53 20 52 45 53 54 41 4E 54 45 |TENCIAS RESTANTE|
000008B0: 53 3A 22 3B 3A 84 31 2C 41 24 3A 99 00 D2 10 8C |S:";:.1,A$:.....|
000008C0: 14 8B 41 24 B2 22 22 A7 41 24 B2 53 24 28 41 2C |..A$."".A$.S$(A,|
000008D0: 34 29 00 E1 10 96 14 53 24 28 41 2C 34 29 B2 41 |4).....S$(A,4).A|
000008E0: 24 00 E8 10 A0 14 A0 31 00 EE 10 AA 14 8E 00 18 |$......1........|
000008F0: 11 70 17 9F 31 2C 30 2C 30 3A 99 22 CE 4F 4D 42 |.p..1,0,0:.".OMB|
00000900: 52 45 20 44 45 4C 20 41 52 54 49 43 55 4C 4F 22 |RE DEL ARTICULO"|
00000910: 3A 84 31 2C 41 24 3A 99 00 21 11 7A 17 44 B2 AB |:.1,A$:..!.z.D..|
00000920: 31 00 2E 11 84 17 81 41 B2 30 A4 33 30 30 00 42 |1......A.0.300.B|
00000930: 11 8E 17 8B 53 24 28 41 2C 30 29 B2 41 24 A7 44 |....S$(A,0).A$.D|
00000940: B2 41 00 49 11 98 17 82 41 00 73 11 A2 17 8B 44 |.A.I....A.s....D|
00000950: B2 AB 31 A7 99 22 CE 4F 20 48 41 59 20 54 41 4C |..1..".O HAY TAL|
00000960: 20 41 52 54 49 43 55 4C 4F 22 3A A0 31 3A 89 36 | ARTICULO":.1:.6|
00000970: 30 30 30 00 7B 11 AC 17 41 B2 44 00 A1 11 B6 17 |000.{...A.D.....|
00000980: 99 22 C5 58 49 54 45 4E 43 49 41 53 20 41 4E 54 |.".XITENCIAS ANT|
00000990: 45 52 49 4F 52 45 53 3A 22 3B 53 24 28 41 2C 34 |ERIORES:";S$(A,4|
000009A0: 29 00 C0 11 C0 17 99 22 CE 55 4D 45 52 4F 20 56 |)......".UMERO V|
000009B0: 45 4E 44 49 44 4F 3A 22 3A 84 31 2C 4E 3A A0 31 |ENDIDO:":.1,N:.1|
000009C0: 00 DC 11 CA 17 53 24 28 41 2C 34 29 B2 C4 28 C5 |.....S$(A,4)..(.|
000009D0: 28 53 24 28 41 2C 34 29 29 AB 4E 29 00 E2 11 D4 |(S$(A,4)).N)....|
000009E0: 17 8E 00 F1 11 58 1B 99 22 C1 44 49 4F 53 22 3A |.....X..".DIOS":|
000009F0: 80 00 00 00 05 3A |.....: |
..;....53280,6:.53281,6:."..............
......";G(14);G(8);.A...."CONTROL DE STO
CK ":.P.0. 500:.P.P....S$(300,4).Y.(..".
"...2...13);"OPCIONES":..13);"........".
..<...T.F.."CARGAR EXISTENCIAS ACTUALES.
..........1".Z.P.....Z.."SALVAR EXISTENC
IAS ACTUALES...........2"...D...>.N.."LI
STAR EXISTENCIAS ACTUALES...........3".D
.X...S...."LISTAR EXISTENCIAS A RENOVAR.
.........4".Y.........."CAMBIAR DATOS DE
UN ELEMENTO..........5"... ........"ENT
RAR NUMERO DE ELEMENTOS VENDIDOS...6"...
........."SALIDA DEL PROGRAMA...........
........7"...H...I.R..". TECLEE LA
OPCION DESEADA .".Q....A$.H....A
$."1".A$."7".220.Q...."."......E(A$).100
0,2000,3000,4000,5000,6000,7000......40.
.....2,1,0,"EXISTENCIAS".M....A.0.300.X.
...B.0.4......2,S$(A,B):.S$(A,B)."-".S$(
A,B).""......B......A: 2...$.../.P..2,1,
1,"EXISTENCIAS".<.Z..A.0.300._....B.0.4:
.S$(A,B)."".S$(A,B)."-".N....2,S$(A,B).U
....B.....A: 2............A.0.300...B..
S$(A,0)."".3090...L..".".I.V.."ARTICULO:
";S$(A,0)......"CODIGO DE PEDIDO:";S$(A,
1)......"PROVEEDOR:";S$(A,2).$...."NIVEL
DE PEDIDO:";S$(A,3).F....E(S$(A,4)).E(S
$(A,3))..".EXISTENCIAS RESTANTES:";S$(A,
4);"."......E(S$(A,4))..E(S$(A,3)).."EXI
STENCIAS RESTANTES:";S$(A,4)......A$:.A$
."".3080......A.E.....Q. ..4,4:.4......A
.0.300......S$(A,0)."".4090......E(S$(A,
4)).E(S$(A,3)).4090.,...."ARTICULO:";S$(
A,0).M.H.."CODIGO DE PEDIDO:";S$(A,1).G.
R.."PROVEEDOR:";S$(A,2)......"NIVEL DE P
EDIDO:";S$(A,3)......"EXISTENCIAS RESTAN
TES:";S$(A,4)......"....................
..................."......A..... 4:.....
..1,0,0:."NOMBRE DEL ARTICULO:":.1,A$:..
...D..1.-....A.0.300.F....S$(A,0).A$.D.
.1.D.A.M....A...D..D..1.."NO SE HA ENCON
TRADO ESE ARTICULO": 1:.5000...I.A.D...N
.."NOMBRE DEL ARTICULO:";S$(A,0).Q.X.."C
ODIGO DE PEDIDO:";S$(A,1)......"PROVEEDO
R:";S$(A,2)......"NIVEL DE PEDIDO:";S$(A
,3).1...."EXISTENCIAS RESTANTES:";S$(A,4
).`...."................................
......."......"NUEVO NOMBRE DEL ARTICULO
:";:.1,A$:.......A$."".A$.S$(A,0).....S$
(A,0).A$.X.(.."NUEVO CODIGO DE PEDIDO:";
:.1,A$:....2..A$."".A$.S$(A,1)...<.S$(A,
1).A$...F.."NUEVO PROVEEDOR";:.1,A$:..3.
P..A$."".A$.S$(A,2).B.Z.S$(A,2).A$.I.D..
"NUEVO NIVEL DE PEDIDO:";:.1,A$:...N..A
$."".A$.S$(A,3)...X.S$(A,3).A$......"NUE
VAS EXISTENCIAS RESTANTES:";:.1,A$:..R..
..A$."".A$.S$(A,4).....S$(A,4).A$... . 1
.........P..1,0,0:."NOMBRE DEL ARTICULO"
:.1,A$:..!.Z.D..1......A.0.300.B....S$(A
,0).A$.D.A.I....A.S....D..1.."NO HAY TAL
ARTICULO": 1:.6000.{...A.D......"EXITEN
CIAS ANTERIORES:";S$(A,4)......"NUMERO V
ENDIDO:":.1,N: 1...J.S$(A,4).D(E(S$(A,4)
).N)...T.....X.."ADIOS":.....:
> CLICK IMAGE PREVIEW FOR FULL MODAL