FILMS A.E.M.
FILE INFORMATION
FILENAME(S): FILMS A.E.M.
FILE TYPE(S): DEL
FILE SIZE: 3.6K
FIRST SEEN: 2025-10-19 23:07:26
APPEARS ON: 1 disk(s)
FILE HASH
d29c0d7304973348d5a3814a5c6e6bad2d22f2fedffef3d2450c52bd838d30f1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROG Y ARCHIVOS | FILMS A.E.M. | DEL | Bugjam - Argentina | 1 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 28 0F 99 3A 99 22 20 12 55 92 3D 20 55 54 49 4C |(..:." .U.= UTIL|
00000010: 49 44 41 44 45 53 22 00 DF 2E 32 0F A1 20 4B 24 |IDADES"...2.. K$|
00000020: 3A 8B 20 4B 24 B2 22 22 A7 33 38 39 30 00 F0 2E |:. K$."".3890...|
00000030: 3C 0F 8B 20 4B 24 B2 22 4D 22 A7 32 37 30 00 02 |<.. K$."M".270..|
00000040: 2F 46 0F 8B 20 4B 24 B2 22 55 22 A7 33 37 31 30 |/F.. K$."U".3710|
00000050: 00 0C 2F 50 0F 89 33 38 39 30 00 18 2F 5A 0F 9F |../P..3890../Z..|
00000060: 34 2C 34 3A 9D 34 00 49 2F 64 0F 99 C7 28 31 34 |4,4:.4.I/d...(14|
00000070: 37 29 3A 99 22 12 22 3B 4E 24 20 A3 31 39 29 22 |7):.".";N$ .19)"|
00000080: 52 45 47 49 53 54 52 4F 20 4E 55 4D 2E 22 3B 52 |REGISTRO NUM.";R|
00000090: 3A 8D 20 32 37 33 30 00 82 2F 6E 0F 43 B2 31 3A |:. 2730../n.C.1:|
000000A0: 99 22 12 22 C4 28 43 29 22 92 22 3B 3A 99 A3 32 |.".".(C)".";:..2|
000000B0: 29 22 12 22 20 41 24 28 30 2C 43 29 22 92 22 A3 |)"." A$(0,C)".".|
000000C0: 33 29 3B C8 28 41 24 28 52 2C 43 29 2C 32 34 29 |3);.(A$(R,C),24)|
000000D0: 00 8C 2F 78 0F 8D 32 37 33 30 00 9A 2F 82 0F 81 |../x..2730../...|
000000E0: 20 43 B2 32 20 A4 20 58 00 C1 2F 8C 0F 99 C4 28 | C.2 . X../....(|
000000F0: 43 29 3B 3A 99 A3 32 29 41 24 28 30 2C 43 29 A3 |C);:..2)A$(0,C).|
00000100: 33 29 C8 28 41 24 28 52 2C 43 29 2C 32 34 29 00 |3).(A$(R,C),24).|
00000110: DE 2F 96 0F 82 3A 99 3A 8D 32 37 32 30 3A 99 3A |./...:.:.2720:.:|
00000120: 20 98 34 3A A0 34 3A 89 31 31 36 35 00 0E 30 A0 | .4:.4:.1165..0.|
00000130: 0F 8D 37 39 30 30 3A 43 4F 4C B2 31 3A 4C 4E 45 |..7900:COL.1:LNE|
00000140: B2 32 31 3A 8D 38 30 30 30 3A 99 22 44 45 53 45 |.21:.8000:."DESE|
00000150: 41 20 52 45 41 4C 49 5A 41 52 20 22 00 35 30 AA |A REALIZAR ".50.|
00000160: 0F 99 22 12 43 92 41 4C 43 55 4C 4F 53 20 4F 20 |..".C.ALCULOS O |
00000170: 12 54 92 4F 54 41 4C 49 5A 41 52 20 43 41 4D 50 |.T.OTALIZAR CAMP|
00000180: 4F 53 22 00 4B 30 B4 0F A1 20 4B 24 3A 8B 20 4B |OS".K0... K$:. K|
00000190: 24 B2 22 22 A7 34 30 32 30 00 66 30 BE 0F 8B 4B |$."".4020.f0...K|
000001A0: 24 B2 22 54 22 A7 20 20 20 8D 34 33 38 30 3A 89 |$."T". .4380:.|
000001B0: 34 32 34 30 00 81 30 C8 0F 8B 4B 24 B2 22 43 22 |4240..0...K$."C"|
000001C0: A7 20 20 20 8D 34 33 38 30 3A 89 34 30 36 30 00 |. .4380:.4060.|
000001D0: 8B 30 D2 0F 89 34 30 32 30 00 A7 30 DC 0F 99 22 |.0...4020..0..."|
000001E0: 43 4F 4E 20 51 55 45 20 43 41 4D 50 4F 20 44 45 |CON QUE CAMPO DE|
000001F0: 53 45 41 20 22 00 CB 30 E6 0F 99 22 4F 50 45 52 |SEA "..0..."OPER|
00000200: 41 52 2C 28 44 45 20 31 20 41 29 20 22 58 22 20 |AR,(DE 1 A) "X" |
00000210: 3A 22 3B 3A 8D 32 35 37 30 00 D8 30 F0 0F 43 B2 |:";:.2570..0..C.|
00000220: C5 28 49 50 24 29 00 E2 30 FA 0F 8D 34 33 38 30 |.(IP$)..0...4380|
00000230: 00 09 31 04 10 8B 41 41 24 28 43 29 B2 22 43 22 |..1...AA$(C)."C"|
00000240: A7 99 22 12 43 41 4D 50 4F 20 4E 4F 92 20 4E 55 |..".CAMPO NO. NU|
00000250: 4D 45 52 49 43 4F 22 00 1E 31 0E 10 8B 41 41 24 |MERICO"..1...AA$|
00000260: 28 43 29 B2 22 4E 22 A7 34 31 33 30 00 34 31 18 |(C)."N".4130.41.|
00000270: 10 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 |..I.1.1000:.:.11|
00000280: 36 35 00 62 31 22 10 99 22 49 4E 54 52 4F 44 55 |65.b1".."INTRODU|
00000290: 5A 43 41 20 4C 45 54 52 41 20 4D 41 53 20 43 41 |ZCA LETRA MAS CA|
000002A0: 4E 54 49 44 41 44 20 45 4A 2E 28 41 32 35 29 22 |NTIDAD EJ.(A25)"|
000002B0: 00 9B 31 2C 10 99 22 12 41 92 3D 53 55 4D 41 20 |..1,..".A.=SUMA |
000002C0: 12 53 92 52 45 53 54 41 52 20 12 4D 92 55 4C 54 |.S.RESTAR .M.ULT|
000002D0: 49 50 4C 2E 20 12 44 92 49 56 49 44 49 52 20 12 |IPL. .D.IVIDIR .|
000002E0: 5A 92 3D 43 45 52 4F 53 22 00 BF 31 36 10 99 22 |Z.=CEROS"..16.."|
000002F0: 12 52 92 3D 53 55 53 54 49 54 55 49 52 3A 22 3B |.R.=SUSTITUIR:";|
00000300: 3A 8D 32 35 37 30 3A 4C 24 B2 49 50 24 00 E8 31 |:.2570:L$.IP$..1|
00000310: 40 10 8B C8 28 4C 24 2C 31 29 B2 22 53 22 A7 50 |@...(L$,1)."S".P|
00000320: B2 C5 28 41 24 28 52 2C 43 29 29 AB C5 28 CA 28 |..(A$(R,C))..(.(|
00000330: 4C 24 2C 32 29 29 00 11 32 4A 10 8B C8 28 4C 24 |L$,2))..2J...(L$|
00000340: 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 41 24 28 52 |,1)."A".P..(A$(R|
00000350: 2C 43 29 29 AA C5 28 CA 28 4C 24 2C 32 29 29 00 |,C))..(.(L$,2)).|
00000360: 3A 32 54 10 8B C8 28 4C 24 2C 31 29 B2 22 4D 22 |:2T...(L$,1)."M"|
00000370: A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AC C5 28 |.P..(A$(R,C))..(|
00000380: CA 28 4C 24 2C 32 29 29 00 63 32 5E 10 8B C8 28 |.(L$,2)).c2^...(|
00000390: 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 C5 28 41 24 |L$,1)."D".P..(A$|
000003A0: 28 52 2C 43 29 29 AD C5 28 CA 28 4C 24 2C 32 29 |(R,C))..(.(L$,2)|
000003B0: 29 00 78 32 68 10 8B C8 28 4C 24 2C 31 29 B2 22 |).x2h...(L$,1)."|
000003C0: 5A 22 A7 50 B2 30 00 96 32 72 10 8B C8 28 4C 24 |Z".P.0..2r...(L$|
000003D0: 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 CA 28 4C 24 |,1)."R".P..(.(L$|
000003E0: 2C 32 29 29 00 AC 32 7C 10 41 24 28 52 2C 43 29 |,2))..2|.A$(R,C)|
000003F0: B2 CA 28 C4 28 50 29 2C 32 29 00 B6 32 86 10 89 |..(.(P),2)..2...|
00000400: 31 31 36 35 00 CD 32 90 10 99 22 51 55 45 20 43 |1165..2..."QUE C|
00000410: 41 4D 50 4F 20 44 45 53 45 41 22 00 F4 32 9A 10 |AMPO DESEA"..2..|
00000420: 99 22 54 4F 54 41 4C 49 5A 41 52 20 28 44 45 20 |."TOTALIZAR (DE |
00000430: 31 20 41 29 20 22 58 22 20 3A 22 3B 3A 8D 32 35 |1 A) "X" :";:.25|
00000440: 37 30 00 01 33 A4 10 43 B2 C5 28 49 50 24 29 00 |70..3..C..(IP$).|
00000450: 0B 33 AE 10 8D 34 33 38 30 00 35 33 B8 10 8B 41 |.3...4380.53...A|
00000460: 41 24 28 43 29 B2 22 43 22 A7 99 22 12 43 41 4D |A$(C)."C"..".CAM|
00000470: 50 4F 20 44 45 20 43 41 52 41 43 54 45 52 45 53 |PO DE CARACTERES|
00000480: 20 92 22 00 4A 33 C2 10 8B 41 41 24 28 43 29 B2 | .".J3...AA$(C).|
00000490: 22 4E 22 A7 34 33 31 30 00 60 33 CC 10 81 49 B2 |"N".4310.`3...I.|
000004A0: 31 A4 31 30 30 30 3A 82 3A 89 31 31 36 35 00 68 |1.1000:.:.1165.h|
000004B0: 33 D6 10 54 B2 30 00 85 33 E0 10 81 20 52 B2 31 |3..T.0..3... R.1|
000004C0: A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 2C 43 29 |.Y:T.T..(A$(R,C)|
000004D0: 29 3A 82 00 C7 33 EA 10 99 22 56 41 4C 4F 52 20 |):...3..."VALOR |
000004E0: 54 4F 54 41 4C 20 44 45 4C 20 43 41 4D 50 4F 20 |TOTAL DEL CAMPO |
000004F0: 3A 22 3A 99 22 12 22 41 24 28 30 2C 43 29 22 92 |:":."."A$(0,C)".|
00000500: 22 22 20 3D 20 20 20 20 20 20 20 20 20 20 20 20 |"" = |
00000510: 20 20 22 3B 54 00 E9 33 F4 10 99 22 50 55 4C 53 | ";T..3..."PULS|
00000520: 45 20 12 53 50 41 43 45 20 92 20 50 41 52 41 20 |E .SPACE . PARA |
00000530: 53 45 47 55 49 52 22 00 FD 33 FE 10 A1 4B 24 3A |SEGUIR"..3...K$:|
00000540: 8B 4B 24 B2 22 22 A7 34 33 35 30 00 0E 34 08 11 |.K$."".4350..4..|
00000550: 8B 4B 24 B2 22 20 22 A7 31 31 36 30 00 18 34 12 |.K$." ".1160..4.|
00000560: 11 89 34 33 35 30 00 4A 34 1C 11 42 4C 24 B2 22 |..4350.J4..BL$."|
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000590: 20 20 20 20 20 20 20 22 00 68 34 26 11 99 22 91 | ".h4&..".|
000005A0: 91 22 3B 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 22 |.";:.BL$:.BL$:."|
000005B0: 91 91 91 22 3A 8E 00 9A 34 30 11 53 24 B2 22 20 |...":...40.S$." |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 20 20 22 00 CE 34 3A 11 54 24 B2 | "..4:.T$.|
000005F0: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
00000600: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000610: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 8E 00 D4 34 44 |.........":...4D|
00000620: 11 3A 00 05 35 45 11 8B 20 59 B2 30 20 A7 20 45 |.:..5E.. Y.0 . E|
00000630: 4D 24 B2 22 12 4E 4F 20 45 58 49 53 54 45 20 46 |M$.".NO EXISTE F|
00000640: 49 43 48 45 52 4F 92 22 3A 8D 32 36 35 30 3A 89 |ICHERO.":.2650:.|
00000650: 32 37 30 00 0F 35 4E 11 8D 34 34 37 30 00 3B 35 |270..5N..4470.;5|
00000660: 58 11 99 22 12 43 4C 41 53 49 46 49 43 41 43 49 |X..".CLASIFICACI|
00000670: 4F 4E 92 20 43 4F 4D 50 4C 45 54 41 22 3A 81 4A |ON. COMPLETA":.J|
00000680: B2 31 A4 31 30 30 30 3A 82 00 44 35 62 11 89 32 |.1.1000:..D5b..2|
00000690: 37 30 00 7E 35 6C 11 86 20 41 24 28 32 30 30 2C |70.~5l.. A$(200,|
000006A0: 31 35 29 2C 41 41 24 28 31 35 29 2C 41 28 31 35 |15),AA$(15),A(15|
000006B0: 29 2C 43 24 28 31 35 29 2C 42 24 28 31 35 29 3A |),C$(15),B$(15):|
000006C0: 41 24 28 52 2C 43 29 B2 22 22 3A 8E 00 84 35 76 |A$(R,C)."":...5v|
000006D0: 11 3A 00 A0 35 80 11 99 22 50 4F 52 20 51 55 45 |.:..5..."POR QUE|
000006E0: 20 43 41 4D 50 4F 20 44 45 53 45 41 20 22 00 C5 | CAMPO DESEA "..|
000006F0: 35 8A 11 99 22 4F 52 44 45 4E 41 52 20 28 44 45 |5..."ORDENAR (DE|
00000700: 20 31 20 41 29 20 22 58 22 20 3A 22 3B 3A 8D 32 | 1 A) "X" :";:.2|
00000710: 35 37 30 00 D2 35 94 11 4D B2 C5 28 49 50 24 29 |570..5..M..(IP$)|
00000720: 00 DC 35 9E 11 8D 34 33 38 30 00 F8 35 A8 11 99 |..5...4380..5...|
00000730: 22 12 45 53 50 45 52 45 92 20 50 4F 52 20 46 41 |".ESPERE. POR FA|
00000740: 56 4F 52 2E 2E 22 00 05 36 B2 11 81 52 B2 31 A4 |VOR.."..6...R.1.|
00000750: 59 AB 31 00 14 36 BC 11 81 49 B2 28 52 AA 31 29 |Y.1..6...I.(R.1)|
00000760: A4 59 00 3A 36 C6 11 8B 41 41 24 28 4D 29 B2 22 |.Y.:6...AA$(M)."|
00000770: 43 22 AF 41 24 28 49 2C 4D 29 B1 B2 41 24 28 52 |C".A$(I,M)..A$(R|
00000780: 2C 4D 29 A7 34 36 31 30 00 66 36 CB 11 8B 41 41 |,M).4610.f6...AA|
00000790: 24 28 4D 29 B2 22 4E 22 AF C5 28 41 24 28 49 2C |$(M)."N"..(A$(I,|
000007A0: 4D 29 29 B1 B2 C5 28 41 24 28 52 2C 4D 29 29 A7 |M))...(A$(R,M)).|
000007B0: 34 36 31 30 00 71 36 D0 11 81 43 B2 31 A4 58 00 |4610.q6...C.1.X.|
000007C0: 83 36 DA 11 42 24 28 43 29 B2 41 24 28 52 2C 43 |.6..B$(C).A$(R,C|
000007D0: 29 00 97 36 E4 11 41 24 28 52 2C 43 29 B2 41 24 |)..6..A$(R,C).A$|
000007E0: 28 49 2C 43 29 00 A9 36 EE 11 41 24 28 49 2C 43 |(I,C)..6..A$(I,C|
000007F0: 29 B2 42 24 28 43 29 00 B0 36 F8 11 82 43 00 B8 |).B$(C)..6...C..|
00000800: 36 02 12 82 3A 82 00 BE 36 0C 12 8E 00 EF 36 16 |6...:...6.....6.|
00000810: 12 8B 20 59 B2 30 20 A7 20 45 4D 24 B2 22 12 4E |.. Y.0 . EM$.".N|
00000820: 4F 20 45 58 49 53 54 45 20 46 49 43 48 45 52 4F |O EXISTE FICHERO|
00000830: 92 22 3A 8D 32 36 35 30 3A 89 32 37 30 00 13 37 |.":.2650:.270..7|
00000840: 17 12 99 C7 28 31 34 37 29 3A 99 3A 99 A3 31 32 |....(147):.:..12|
00000850: 29 22 53 41 4C 49 44 41 20 45 53 43 52 49 54 41 |)"SALIDA ESCRITA|
00000860: 22 00 2D 37 18 12 99 A3 31 32 29 22 2D 2D 2D 2D |".-7....12)"----|
00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 46 37 1B 12 |----------".F7..|
00000880: 99 22 43 41 4D 50 4F 53 20 41 20 49 4E 43 4C 55 |."CAMPOS A INCLU|
00000890: 49 52 20 22 00 61 37 1C 12 99 22 45 4E 20 49 4E |IR ".a7..."EN IN|
000008A0: 46 4F 52 4D 45 20 49 4D 50 52 45 53 4F 3F 22 00 |FORME IMPRESO?".|
000008B0: 6B 37 1D 12 8D 32 37 32 30 00 76 37 20 12 81 43 |k7...2720.v7 ..C|
000008C0: B2 31 A4 58 00 84 37 2A 12 99 41 24 28 30 2C 43 |.1.X..7*..A$(0,C|
000008D0: 29 3B 00 A6 37 34 12 99 22 20 20 12 53 92 49 20 |);..74.." .S.I |
000008E0: 4F 20 12 4E 92 4F 20 5B 20 5D 9D 9D 22 3B 3A 8D |O .N.O [ ]..";:.|
000008F0: 32 35 37 30 00 BB 37 3E 12 43 24 28 43 29 B2 C8 |2570..7>.C$(C)..|
00000900: 28 49 50 24 2C 31 29 3A 99 00 C2 37 48 12 82 43 |(IP$,1):...7H..C|
00000910: 00 FD 37 4A 12 8D 32 37 32 30 3A 99 22 44 45 53 |..7J..2720:."DES|
00000920: 45 41 20 53 41 4C 54 4F 20 44 45 20 4C 49 4E 45 |EA SALTO DE LINE|
00000930: 41 20 12 53 92 49 20 4F 20 12 4E 92 4F 20 5B 20 |A .S.I O .N.O [ |
00000940: 5D 9D 9D 22 3B 3A 8D 32 35 37 30 00 0E 38 4B 12 |]..";:.2570..8K.|
00000950: 4C 46 24 B2 C8 28 49 50 24 2C 31 29 00 52 38 4D |LF$..(IP$,1).R8M|
00000960: 12 99 22 44 45 53 45 41 20 45 4E 56 49 41 52 20 |.."DESEA ENVIAR |
00000970: 43 4F 44 49 47 4F 20 43 48 52 24 20 41 22 3A 99 |CODIGO CHR$ A":.|
00000980: 22 4C 41 20 49 4D 50 52 45 53 4F 52 41 20 12 53 |"LA IMPRESORA .S|
00000990: 92 49 20 4F 20 12 4E 92 4F 5B 20 5D 9D 9D 22 3B |.I O .N.O[ ]..";|
000009A0: 00 69 38 4E 12 8D 32 35 37 30 3A 43 53 24 B2 C8 |.i8N..2570:CS$..|
000009B0: 28 49 50 24 2C 31 29 00 A2 38 4F 12 8B 43 53 24 |(IP$,1)..8O..CS$|
000009C0: B2 22 53 22 A7 99 22 49 4E 54 52 4F 44 55 43 49 |."S".."INTRODUCI|
000009D0: 52 20 43 48 52 24 20 5B 20 20 5D 9D 9D 9D 22 3B |R CHR$ [ ]...";|
000009E0: 3A 8D 32 35 37 30 3A 43 53 B2 C5 28 49 50 24 29 |:.2570:CS..(IP$)|
000009F0: 00 AE 38 54 12 9F 34 2C 34 3A 9D 34 00 D3 38 57 |..8T..4,4:.4..8W|
00000A00: 12 8B 43 53 24 B2 22 53 22 A7 99 20 C7 28 43 53 |..CS$."S".. .(CS|
00000A10: 29 3A 8B 43 54 24 B2 22 59 22 A7 99 C7 28 43 54 |):.CT$."Y"...(CT|
00000A20: 29 00 F0 38 5C 12 99 4D 24 A6 31 30 29 22 4E 4F |)..8\..M$.10)"NO|
00000A30: 4D 42 52 45 2E 2E 20 3D 20 22 4E 24 3A 99 00 0A |MBRE.. = "N$:...|
00000A40: 39 66 12 81 20 52 B2 30 A4 59 3A 52 24 B2 22 22 |9f.. R.0.Y:R$.""|
00000A50: 20 3A 81 43 B2 31 A4 58 00 3A 39 70 12 8B C3 28 | :.C.1.X.:9p...(|
00000A60: 41 24 28 52 2C 43 29 29 B3 41 28 43 29 A7 20 41 |A$(R,C)).A(C). A|
00000A70: 24 28 52 2C 43 29 B2 41 24 28 52 2C 43 29 AA 22 |$(R,C).A$(R,C)."|
00000A80: 20 22 3A 89 34 37 32 30 00 6F 39 75 12 8B C3 28 | ":.4720.o9u...(|
00000A90: 41 24 28 52 2C 43 29 29 B3 C3 28 41 24 28 30 2C |A$(R,C))..(A$(0,|
00000AA0: 43 29 29 A7 41 24 28 52 2C 43 29 B2 41 24 28 52 |C)).A$(R,C).A$(R|
00000AB0: 2C 43 29 AA 22 20 22 3A 89 34 37 32 35 00 91 39 |,C)." ":.4725..9|
00000AC0: 7A 12 8B 43 24 28 43 29 B2 22 53 22 A7 20 52 24 |z..C$(C)."S". R$|
00000AD0: B2 52 24 AA 41 24 28 52 2C 43 29 AA 22 20 22 00 |.R$.A$(R,C)." ".|
00000AE0: 98 39 84 12 82 43 00 AA 39 8E 12 8B 4C 46 24 B2 |.9...C..9...LF$.|
00000AF0: 22 4E 22 A7 20 99 52 24 00 C2 39 8F 12 8B 4C 46 |"N". .R$..9...LF|
00000B00: 24 B2 22 53 22 A7 20 99 52 24 2C C7 28 31 33 29 |$."S". .R$,.(13)|
00000B10: 00 E5 39 90 12 8B 52 B2 30 A7 50 B2 C3 28 52 24 |..9...R.0.P..(R$|
00000B20: 29 3A 81 49 B2 31 A4 50 3A 99 22 2D 22 3B 3A 82 |):.I.1.P:."-";:.|
00000B30: 49 3A 99 00 EC 39 98 12 82 52 00 F6 39 99 12 99 |I:...9...R..9...|
00000B40: 3A 99 3A 99 00 0A 3A 9A 12 99 22 20 20 20 2A 54 |:.:...:..." *T|
00000B50: 4F 54 41 4C 45 53 2A 22 00 20 3A 9B 12 99 22 20 |OTALES*". :..." |
00000B60: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 00 2F | ---------":../|
00000B70: 3A 9C 12 81 43 B2 31 A4 58 3A 54 B2 30 00 4B 3A |:...C.1.X:T.0.K:|
00000B80: 9D 12 81 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 41 |...R.1.Y:T.T..(A|
00000B90: 24 28 52 2C 43 29 29 3A 82 00 6A 3A 9E 12 8B 41 |$(R,C)):..j:...A|
00000BA0: 41 24 28 43 29 B2 22 4E 22 A7 99 41 24 28 30 2C |A$(C)."N"..A$(0,|
00000BB0: 43 29 A3 32 30 29 3B 54 00 71 3A 9F 12 82 43 00 |C).20);T.q:...C.|
00000BC0: 7B 3A A2 12 98 34 3A A0 34 00 9D 3A AC 12 81 43 |{:...4:.4..:...C|
00000BD0: B2 31 A4 58 3A 41 24 28 30 2C 43 29 B2 C8 28 41 |.1.X:A$(0,C)..(A|
00000BE0: 24 28 30 2C 43 29 2C 39 29 3A 82 00 A6 3A B6 12 |$(0,C),9):...:..|
00000BF0: 89 32 37 30 00 E4 3A 58 1B 8D 37 39 30 30 3A 43 |.270..:X..7900:C|
00000C00: 4F 4C B2 31 3A 4C 4E 45 B2 32 31 3A 8D 38 30 30 |OL.1:LNE.21:.800|
00000C10: 30 3A 99 22 12 42 4F 52 52 41 52 92 20 45 53 54 |0:.".BORRAR. EST|
00000C20: 41 20 56 44 2E 20 53 45 47 55 52 4F 3F 20 53 2F |A VD. SEGURO? S/|
00000C30: 4E 22 00 F8 3A 5D 1B A1 4B 24 3A 8B 4B 24 B2 22 |N"..:]..K$:.K$."|
00000C40: 22 A7 37 30 30 35 00 09 3B 62 1B 8B 4B 24 B2 22 |".7005..;b..K$."|
00000C50: 53 22 A7 37 30 32 35 00 1A 3B 67 1B 8B 4B 24 B2 |S".7025..;g..K$.|
00000C60: 22 4E 22 A7 31 31 36 35 00 24 3B 6C 1B 89 37 30 |"N".1165.$;l..70|
00000C70: 30 35 00 35 3B 71 1B 54 B2 52 3A 81 52 B2 54 A4 |05.5;q.T.R:.R.T.|
00000C80: 59 AA 31 00 40 3B 76 1B 81 43 B2 31 A4 58 00 56 |Y.1.@;v..C.1.X.V|
00000C90: 3B 7B 1B 41 24 28 52 2C 43 29 B2 41 24 28 52 AA |;{.A$(R,C).A$(R.|
00000CA0: 31 2C 43 29 00 5D 3B 80 1B 82 43 00 64 3B 85 1B |1,C).];...C.d;..|
00000CB0: 82 52 00 74 3B 8A 1B 59 B2 59 AB 31 3A 89 31 31 |.R.t;..Y.Y.1:.11|
00000CC0: 36 30 00 92 3B DC 1E 43 4F 4C B2 31 3A 4C 4E 45 |60..;..COL.1:LNE|
00000CD0: B2 32 31 3A 8D 38 30 30 30 3A 81 49 B2 31 A4 33 |.21:.8000:.I.1.3|
00000CE0: 00 C6 3B DD 1E 99 22 20 20 20 20 20 20 20 20 20 |..;..." |
00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000D10: 82 49 3A 8E 00 F9 3B 40 1F 41 43 43 24 B2 22 1D |.I:...;@.ACC$.".|
00000D20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D30: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D40: 1D 1D 1D 1D 1D 1D 22 00 2C 3C 4A 1F 44 4F 57 24 |......".,<J.DOW$|
00000D50: B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000D60: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000D70: 11 11 11 11 11 11 11 11 11 22 00 37 3C 54 1F 81 |.........".7<T..|
00000D80: 5A B2 31 A4 32 00 41 3C 5E 1F 99 22 13 22 3B 00 |Z.1.2.A<^..".";.|
00000D90: 5C 3C 68 1F 8B 43 4F 4C B1 31 A7 99 C8 28 41 43 |\<h..COL.1...(AC|
00000DA0: 43 24 2C 43 4F 4C AB 31 29 3B 00 77 3C 72 1F 8B |C$,COL.1);.w<r..|
00000DB0: 4C 4E 45 B1 31 A7 99 C8 28 44 4F 57 24 2C 4C 4E |LNE.1...(DOW$,LN|
00000DC0: 45 AB 31 29 3B 00 AC 3C 76 1F 8B 5A B2 31 A7 99 |E.1);..<v..Z.1..|
00000DD0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DF0: 20 20 20 20 20 20 20 20 22 3B 00 B3 3C 78 1F 82 | ";..<x..|
00000E00: 5A 00 B9 3C 7C 1F 8E 00 00 00 00 00 01 18 60 AD |Z..<|.........`.|
00000E10: 1B 06 C9 05 D0 03 20 49 90 20 80 B4 A2 11 BD AC |...... I. ......|
00000E20: 95 95 37 CA D0 F8 8A A2 43 95 48 CA D0 FB A0 19 |..7.....C.H.....|
00000E30: 99 57 00 99 CE 77 88 10 F7 8C 15 D0 60 AD 10 06 |.W...w......`...|
00000E40: 20 F7 8E AD 14 06 20 06 8F AD 18 06 20 18 | ..... ..... . |
(..:." .U.= UTILIDADES"...2.. K$:. K$.""
.3890...<.. K$."M".270../F.. K$."U".3710
../P..3890../Z..4,4:.4.I/D..G(147):.".";
N$ .19)"REGISTRO NUM.";R:. 2730../N.C.1:
."."D(C)".";:..2)"." A$(0,C)".".3);H(A$(
R,C),24)../X..2730../... C.2 . X.A/...D(
C);:..2)A$(0,C).3)H(A$(R,C),24)../...:.:
.2720:.: .4: 4:.1165..0 ..7900:COL.1:LNE
.21:.8000:."DESEA REALIZAR ".50...".C.AL
CULOS O .T.OTALIZAR CAMPOS".K0... K$:. K
$."".4020.F0...K$."T". .4380:.4240..0H
..K$."C". .4380:.4060..0R..4020..0..."
CON QUE CAMPO DESEA ".K0..."OPERAR,(DE 1
A) "X" :";:.2570.X0..C.E(IP$)..0...4380
..1...AA$(C)."C"..".CAMPO NO. NUMERICO".
.1...AA$(C)."N".4130.41...I.1.1000:.:.11
65.B1".."INTRODUZCA LETRA MAS CANTIDAD E
J.(A25)"..1,..".A.=SUMA .S.RESTAR .M.ULT
IPL. .D.IVIDIR .Z.=CEROS"..16..".R.=SUST
ITUIR:";:.2570:L$.IP$..1@..H(L$,1)."S".P
.E(A$(R,C)).E(J(L$,2))..2J..H(L$,1)."A".
P.E(A$(R,C)).E(J(L$,2)).:2T..H(L$,1)."M"
.P.E(A$(R,C)).E(J(L$,2)).C2^..H(L$,1)."D
".P.E(A$(R,C)).E(J(L$,2)).X2H..H(L$,1)."
Z".P.0..2R..H(L$,1)."R".P.E(J(L$,2))..2|
.A$(R,C).J(D(P),2)..2...1165.M2..."QUE C
AMPO DESEA"..2..."TOTALIZAR (DE 1 A) "X"
:";:.2570..3..C.E(IP$)..3...4380.53...A
A$(C)."C"..".CAMPO DE CARACTERES .".J3B.
.AA$(C)."N".4310.`3L..I.1.1000:.:.1165.H
3V.T.0..3... R.1.Y:T.T.E(A$(R,C)):..G3..
."VALOR TOTAL DEL CAMPO :":."."A$(0,C)".
"" = ";T..3..."PULSE .SPACE
. PARA SEGUIR"..3...K$:.K$."".4350..4..
.K$." ".1160..4...4350.J4..BL$."
".H4&..".
.";:.BL$:.BL$:."...":...40.S$."
".N4:.T$.
".......................................
.":..T4D.:..5E.. Y.0 . EM$.".NO EXISTE F
ICHERO.":.2650:.270..5N..4470.;5X..".CLA
SIFICACION. COMPLETA":.J.1.1000:..D5B..2
70.~5L.. A$(200,15),AA$(15),A(15),C$(15)
,B$(15):A$(R,C)."":...5V.:. 5..."POR QUE
CAMPO DESEA ".E5..."ORDENAR (DE 1 A) "X
" :";:.2570.R5..M.E(IP$)..5...4380..5...
".ESPERE. POR FAVOR.."..6...R.1.Y.1..6..
.I.(R.1).Y.:6F..AA$(M)."C".A$(I,M)..A$(R
,M).4610.F6K..AA$(M)."N".E(A$(I,M))..E(A
$(R,M)).4610.Q6P..C.1.X..6Z.B$(C).A$(R,C
)..6..A$(R,C).A$(I,C)..6..A$(I,C).B$(C).
.6...C..6...:...6.....6... Y.0 . EM$.".N
O EXISTE FICHERO.":.2650:.270..7...G(147
):.:..12)"SALIDA ESCRITA".-7....12)"----
----------".F7..."CAMPOS A INCLUIR ".A7.
.."EN INFORME IMPRESO?".K7...2720.V7 ..C
.1.X..7*..A$(0,C);..74.." .S.I O .N.O [
]..";:.2570..7>.C$(C).H(IP$,1):..B7H..C
..7J..2720:."DESEA SALTO DE LINEA .S.I O
.N.O [ ]..";:.2570..8K.LF$.H(IP$,1).R8M
.."DESEA ENVIAR CODIGO CHR$ A":."LA IMPR
ESORA .S.I O .N.O[ ]..";.I8N..2570:CS$.H
(IP$,1)..8O..CS$."S".."INTRODUCIR CHR$ [
]...";:.2570:CS.E(IP$)..8T..4,4:.4.S8W
..CS$."S".. G(CS):.CT$."Y"..G(CT)..8\..M
$.10)"NOMBRE.. = "N$:...9F.. R.0.Y:R$.""
:.C.1.X.:9P..C(A$(R,C)).A(C). A$(R,C).A
$(R,C)." ":.4720.O9U..C(A$(R,C)).C(A$(0,
C)).A$(R,C).A$(R,C)." ":.4725..9Z..C$(C)
."S". R$.R$.A$(R,C)." "..9...C..9...LF$.
"N". .R$.B9...LF$."S". .R$,G(13)..9...R.
0.P.C(R$):.I.1.P:."-";:.I:...9...R..9...
:.:...:..." *TOTALES*". :..." ------
---":../:...C.1.X:T.0.K:...R.1.Y:T.T.E(A
$(R,C)):..J:...AA$(C)."N"..A$(0,C).20);T
.Q:...C.{:...4: 4..:...C.1.X:A$(0,C).H(A
$(0,C),9):...:...270..:X..7900:COL.1:LNE
.21:.8000:.".BORRAR. ESTA VD. SEGURO? S/
N"..:]..K$:.K$."".7005..;B..K$."S".7025.
.;G..K$."N".1165.$;L..7005.5;Q.T.R:.R.T.
Y.1.@;V..C.1.X.V;{.A$(R,C).A$(R.1,C).];.
..C.D;...R.T;..Y.Y.1:.1160..;..COL.1:LNE
.21:.8000:.I.1.3.F;..."
":.I:...;@.ACC$.".
......................................".
,<J.DOW$."..............................
.........".7<T..Z.1.2.A<^..".";.\<H..COL
.1..H(ACC$,COL.1);.W<R..LNE.1..H(DOW$,LN
E.1);..<V..Z.1.."
";..<X..Z..<|.........`.
..I.P. I. ........7JP...C.HJP. ..W..NW..
...P`... ..... ..... .
> CLICK IMAGE PREVIEW FOR FULL MODAL