_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

D/BASE DE DATOS 

FILE INFORMATION

FILENAME(S): D/BASE DE DATOS 

FILE TYPE(S): PRG

FILE SIZE: 8.9K

FIRST SEEN: 2025-10-19 23:07:13

APPEARS ON: 1 disk(s)

FILE HASH

cbf9812b7f61ae3b5d614d06bfc27a8c7328d8de8967162773090f22414bfc64

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PROCES TEXTOS D/BASE DE DATOS  PRG Bugjam - Argentina 3 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 07 08 A7 1F 9C 00  15 08 A9 1F 97 35 33 32  |.............532|
00000010: 38 30 2C 31 33 00 23 08  B1 1F 97 35 33 32 38 31  |80,13.#....53281|
00000020: 2C 31 31 00 2C 08 B9 1F  99 22 9E 22 00 36 08 BC  |,11.,....".".6..|
00000030: 1F 8D 38 31 33 36 00 46  08 BF 1F 8B 28 58 B2 30  |..8136.F....(X.0|
00000040: 29 A7 38 37 33 36 00 50  08 C5 1F 89 38 37 38 31  |).8736.P....8781|
00000050: 00 5C 08 C8 1F 44 24 B2  C7 28 30 29 00 67 08 CB  |.\...D$..(0).g..|
00000060: 1F 4D 52 24 B2 44 24 00  72 08 CD 1F 44 52 24 B2  |.MR$.D$.r...DR$.|
00000070: 44 24 00 7A 08 CF 1F 53  B2 30 00 88 08 D1 1F 42  |D$.z...S.0.....B|
00000080: 31 24 B2 C7 28 31 30 29  00 91 08 D4 1F 50 57 B2  |1$..(10).....PW.|
00000090: 30 00 9A 08 D6 1F 43 57  B2 30 00 A7 08 D8 1F 42  |0.....CW.0.....B|
000000A0: 24 B2 C7 28 33 32 29 00  B0 08 DC 1F 4E 43 B2 30  |$..(32).....NC.0|
000000B0: 00 B9 08 DE 1F 4E 4C B2  30 00 C2 08 E0 1F 50 47  |.....NL.0.....PG|
000000C0: B2 30 00 CB 08 E2 1F 46  31 B2 30 00 D4 08 E4 1F  |.0.....F1.0.....|
000000D0: 46 32 B2 30 00 DD 08 E6  1F 46 33 B2 30 00 E7 08  |F2.0.....F3.0...|
000000E0: E8 1F 4C 24 B2 44 24 00  F0 08 EA 1F 52 4C B2 30  |..L$.D$.....RL.0|
000000F0: 00 FB 08 EC 1F 53 42 24  B2 44 24 00 09 09 EE 1F  |.....SB$.D$.....|
00000100: 43 52 24 B2 C7 28 31 33  29 00 14 09 F1 1F 48 4E  |CR$..(13).....HN|
00000110: 24 B2 44 24 00 1F 09 F3  1F 49 44 24 B2 44 24 00  |$.D$.....ID$.D$.|
00000120: 29 09 F5 1F 41 24 B2 44  24 00 33 09 F7 1F 43 24  |)...A$.D$.3...C$|
00000130: B2 44 24 00 3C 09 F9 1F  54 25 B2 30 00 46 09 FB  |.D$.<...T%.0.F..|
00000140: 1F 49 24 B2 44 24 00 4F  09 FD 1F 43 4B B2 30 00  |.I$.D$.O...CK.0.|
00000150: 57 09 FF 1F 49 B2 30 00  5F 09 01 20 4A B2 30 00  |W...I.0._.. J.0.|
00000160: 67 09 03 20 4B B2 30 00  6F 09 05 20 4C B2 30 00  |g.. K.0.o.. L.0.|
00000170: 77 09 07 20 4D B2 30 00  7F 09 09 20 4E B2 30 00  |w.. M.0.... N.0.|
00000180: 88 09 0B 20 52 57 B2 35  00 91 09 0E 20 53 46 B2  |... RW.5.... SF.|
00000190: 30 00 99 09 11 20 5A B2  30 00 A6 09 14 20 45 24  |0.... Z.0.... E$|
000001A0: B2 22 45 4F 46 22 00 B3  09 1A 20 4D 45 B2 33 31  |."EOF".... ME.31|
000001B0: 30 30 30 00 BC 09 1F 20  45 4E B2 30 00 C7 09 22  |000.... EN.0..."|
000001C0: 20 45 4D 24 B2 44 24 00  D0 09 25 20 45 54 B2 30  | EM$.D$...% ET.0|
000001D0: 00 D9 09 28 20 45 53 B2  30 00 E4 09 2B 20 41 31  |...( ES.0...+ A1|
000001E0: 24 B2 44 24 00 EF 09 2E  20 41 32 24 B2 44 24 00  |$.D$.... A2$.D$.|
000001F0: FA 09 31 20 41 33 24 B2  44 24 00 00 0A 34 20 8E  |..1 A3$.D$...4 .|
00000200: 00 0F 0A 35 20 86 46 24  28 28 46 AA 31 29 29 00  |...5 .F$((F.1)).|
00000210: 1E 0A 3F 20 86 54 25 28  28 46 AA 31 29 29 00 2D  |..? .T%((F.1)).-|
00000220: 0A 49 20 86 4C 25 28 28  46 AA 31 29 29 00 33 0A  |.I .L%((F.1)).3.|
00000230: 53 20 8E 00 49 0A 54 20  86 52 45 24 28 28 52 AA  |S ..I.T .RE$((R.|
00000240: 31 29 2C 28 46 AA 31 29  29 00 57 0A 62 20 86 4D  |1),(F.1)).W.b .M|
00000250: 4C 24 28 39 2C 34 29 00  63 0A 6A 20 86 50 43 28  |L$(9,4).c.j .PC(|
00000260: 31 30 29 00 6F 0A 71 20  86 54 54 24 28 35 29 00  |10).o.q .TT$(5).|
00000270: 7B 0A 78 20 86 48 43 24  28 39 29 00 8A 0A 7F 20  |{.x .HC$(9).... |
00000280: 86 4B 25 28 28 52 AA 31  29 29 00 90 0A 89 20 8E  |.K%((R.1)).... .|
00000290: 00 98 0A 8A 20 A1 41 24  00 AA 0A 8C 20 8B 28 41  |.... .A$.... .(A|
000002A0: 24 B2 22 22 29 A7 38 33  33 30 00 B0 0A 92 20 8E  |$."").8330.... .|
000002B0: 00 C5 0A 93 20 8B 28 43  4B B3 B1 30 29 A7 3A 8D  |.... .(CK..0).:.|
000002C0: 31 32 35 30 33 00 F4 0A  9B 20 99 22 93 12 20 20  |12503.... ."..  |
000002D0: 20 20 20 20 20 20 43 4F  4D 49 45 4E 5A 41 20 42  |      COMIENZA B|
000002E0: 41 53 45 20 44 45 20 44  41 54 4F 53 20 20 20 20  |ASE DE DATOS    |
000002F0: 20 20 20 22 00 FA 0A C5  20 9C 00 04 0B C6 20 8D  |   ".... ..... .|
00000300: 38 31 33 36 00 36 0B C9  20 85 22 11 43 55 41 4E  |8136.6.. .".CUAN|
00000310: 54 4F 53 20 43 41 4D 50  4F 53 20 45 4E 20 43 41  |TOS CAMPOS EN CA|
00000320: 44 41 20 52 45 47 49 53  54 52 4F 3F 20 30 20 9D  |DA REGISTRO? 0 .|
00000330: 9D 9D 9D 22 3B 46 00 46  0B F8 20 8B 28 46 B2 30  |...";F.F.. .(F.0|
00000340: 29 A7 38 37 38 31 00 50  0B FF 20 8D 38 32 34 35  |).8781.P.. .8245|
00000350: 00 58 0B 02 21 49 B2 31  00 63 0B 04 21 81 49 B2  |.X..!I.1.c..!.I.|
00000360: 49 A4 46 00 7C 0B 09 21  99 22 13 11 11 11 11 12  |I.F.|..!."......|
00000370: 43 41 4D 50 4F 20 4E 52  4F 20 22 3B 00 83 0B 1C  |CAMPO NRO ";....|
00000380: 21 99 49 00 B0 0B 1E 21  99 22 11 54 49 54 55 4C  |!.I....!.".TITUL|
00000390: 4F 3F 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |O?              |
000003A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
000003B0: 00 DF 0B 46 21 99 22 4C  4F 4E 47 49 54 55 44 3F  |...F!."LONGITUD?|
000003C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 13 22 00  |             .".|
000003E0: ED 0B 70 21 99 22 11 11  11 11 11 22 3B 00 F6 0B  |..p!.".....";...|
000003F0: 77 21 99 A3 36 29 00 01  0C 79 21 85 46 24 28 49  |w!..6)...y!.F$(I|
00000400: 29 00 0A 0C 7E 21 99 A3  38 29 00 15 0C 80 21 85  |)...~!..8)....!.|
00000410: 4C 25 28 49 29 00 1C 0C  85 21 82 49 00 24 0C 88  |L%(I)....!.I.$..|
00000420: 21 4A B2 30 00 2F 0C 8A  21 81 4A B2 4A A4 46 00  |!J.0./..!.J.J.F.|
00000430: 41 0C 8F 21 52 4C B2 28  52 4C AA 4C 25 28 4A 29  |A..!RL.(RL.L%(J)|
00000440: 29 00 48 0C 95 21 82 4A  00 62 0C 98 21 52 4C B2  |).H..!.J.b..!RL.|
00000450: 28 28 52 4C AA 28 33 AC  28 46 AA 31 29 29 29 AA  |((RL.(3.(F.1))).|
00000460: 35 29 00 87 0C A3 21 52  B2 B5 28 28 28 28 4D 45  |5)....!R..((((ME|
00000470: AB 28 31 32 AC 28 46 AA  31 29 29 29 AB 32 31 30  |.(12.(F.1))).210|
00000480: 30 29 AD 52 4C 29 29 00  B5 0C B5 21 99 22 11 53  |0).RL))....!.".S|
00000490: 55 20 45 4C 45 43 43 49  4F 4E 20 50 45 52 4D 49  |U ELECCION PERMI|
000004A0: 54 49 52 41 20 41 50 52  4F 58 49 4D 41 44 41 4D  |TIRA APROXIMADAM|
000004B0: 45 4E 54 45 22 00 BD 0C  DE 21 99 52 3B 00 E6 0C  |ENTE"....!.R;...|
000004C0: E1 21 99 22 52 45 47 49  53 54 52 4F 53 2E 20 20  |.!."REGISTROS.  |
000004D0: 12 41 92 43 45 50 54 41  20 4F 20 12 52 92 45 43  |.A.CEPTA O .R.EC|
000004E0: 48 41 5A 41 3F 22 00 F0  0C 05 22 8D 38 33 33 30  |HAZA?"....".8330|
000004F0: 00 03 0D 08 22 8B 28 41  24 B2 22 52 22 29 A7 38  |....".(A$."R").8|
00000500: 33 34 37 00 23 0D 0F 22  8B 28 41 24 B2 22 41 22  |347.#..".(A$."A"|
00000510: 29 A7 3A 8D 38 32 37 36  3A 43 4B B2 31 3A 89 38  |).:.8276:CK.1:.8|
00000520: 37 38 31 00 2D 0D 1D 22  89 38 37 30 39 00 5C 0D  |781.-..".8709.\.|
00000530: 20 22 99 22 93 12 42 41  53 45 20 44 45 20 44 41  | "."..BASE DE DA|
00000540: 54 4F 53 20 20 20 31 39  38 35 20 50 4F 52 20 45  |TOS   1985 POR E|
00000550: 4C 41 20 43 4F 4D 50 2E  20 20 20 22 00 66 0D 4A  |LA COMP.   ".f.J|
00000560: 22 89 38 38 32 35 00 97  0D 4D 22 99 22 93 12 20  |".8825...M".".. |
00000570: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 4D 45  |              ME|
00000580: 4E 55 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |NU              |
00000590: 20 20 20 20 20 20 22 00  C8 0D 79 22 99 22 11 20  |      "...y".". |
000005A0: 20 12 43 92 52 45 41 52  20 4E 55 45 56 4F 20 41  | .C.REAR NUEVO A|
000005B0: 52 43 48 49 56 4F 20 20  20 20 20 20 12 52 92 45  |RCHIVO      .R.E|
000005C0: 54 49 52 41 52 53 45 22  00 EF 0D A5 22 99 22 11  |TIRARSE"....".".|
000005D0: 20 20 12 41 92 47 52 45  47 41 52 20 52 45 47 49  |  .A.GREGAR REGI|
000005E0: 53 54 52 4F 53 20 20 20  20 20 20 20 20 20 22 00  |STROS         ".|
000005F0: 15 0E C7 22 99 22 11 20  20 12 4D 92 4F 44 49 46  |...".".  .M.ODIF|
00000600: 49 43 41 52 20 52 45 47  49 53 54 52 4F 53 20 20  |ICAR REGISTROS  |
00000610: 20 20 20 20 22 00 44 0E  E8 22 99 22 11 20 20 12  |    ".D..".".  .|
00000620: 42 92 4F 52 52 41 52 20  52 45 47 49 53 54 52 4F  |B.ORRAR REGISTRO|
00000630: 53 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S               |
00000640: 20 20 20 22 00 68 0E 12  23 99 22 11 20 20 12 4C  |   ".h..#.".  .L|
00000650: 92 45 45 52 20 41 52 43  48 49 56 4F 53 20 44 45  |.EER ARCHIVOS DE|
00000660: 4C 20 44 49 53 43 4F 22  00 95 0E 31 23 99 22 11  |L DISCO"...1#.".|
00000670: 20 20 12 49 92 4D 50 52  49 4D 49 52 20 52 45 47  |  .I.MPRIMIR REG|
00000680: 49 53 54 52 4F 53 20 53  45 4C 45 43 43 49 4F 4E  |ISTROS SELECCION|
00000690: 41 44 4F 53 22 00 BA 0E  59 23 99 22 11 20 20 12  |ADOS"...Y#.".  .|
000006A0: 56 92 45 52 20 41 52 43  48 49 56 4F 53 20 45 4E  |V.ER ARCHIVOS EN|
000006B0: 20 50 41 4E 54 41 4C 4C  41 22 00 E2 0E 79 23 99  | PANTALLA"...y#.|
000006C0: 22 11 20 20 12 4F 92 52  44 45 4E 41 52 20 52 45  |".  .O.RDENAR RE|
000006D0: 47 49 53 54 52 4F 53 20  50 4F 52 20 43 41 4D 50  |GISTROS POR CAMP|
000006E0: 4F 22 00 06 0F 9C 23 99  22 11 20 20 12 47 92 52  |O"....#.".  .G.R|
000006F0: 41 42 41 52 20 41 52 43  48 49 56 4F 20 45 4E 20  |ABAR ARCHIVO EN |
00000700: 44 49 53 43 4F 22 00 3A  0F BB 23 99 22 11 20 20  |DISCO".:..#.".  |
00000710: 12 46 92 4F 52 4D 41 54  45 41 52 20 44 49 53 43  |.F.ORMATEAR DISC|
00000720: 4F 20 20 20 20 20 20 20  20 20 20 12 24 92 20 44  |O          .$. D|
00000730: 49 52 45 43 54 4F 52 49  4F 22 00 6B 0F EA 23 99  |IRECTORIO".k..#.|
00000740: 22 11 12 20 20 20 20 20  20 20 41 50 52 49 45 54  |"..       APRIET|
00000750: 45 20 4C 41 20 54 45 43  4C 41 20 44 45 53 45 41  |E LA TECLA DESEA|
00000760: 44 41 20 20 20 20 20 20  20 20 22 00 7F 0F 16 24  |DA        "....$|
00000770: 99 22 20 20 20 45 58 49  53 54 45 4E 20 22 3B 00  |."   EXISTEN ";.|
00000780: 87 0F 24 24 99 58 3B 00  A3 0F 26 24 99 22 52 45  |..$$.X;...&$."RE|
00000790: 47 49 53 54 52 4F 53 20  45 4E 20 4D 45 4D 4F 52  |GISTROS EN MEMOR|
000007A0: 49 41 22 00 DE 0F 3D 24  8B 28 52 B1 30 29 A7 3A  |IA"...=$.(R.0).:|
000007B0: 99 22 20 51 55 45 44 41  20 45 53 50 41 43 49 4F  |." QUEDA ESPACIO|
000007C0: 20 50 41 52 41 20 22 3B  3A 99 28 52 AB 58 29 3B  | PARA ";:.(R.X);|
000007D0: 3A 99 22 52 45 47 49 53  54 52 4F 53 91 22 00 E8  |:."REGISTROS."..|
000007E0: 0F 6C 24 8D 38 33 33 30  00 04 10 6F 24 8B 28 41  |.l$.8330...o$.(A|
000007F0: 24 B2 22 41 22 29 A7 3A  8D 31 31 39 38 37 3A 89  |$."A").:.11987:.|
00000800: 39 34 34 39 00 21 10 7B  24 8B 28 41 24 B2 22 4D  |9449.!.{$.(A$."M|
00000810: 22 29 A7 3A 8D 31 31 39  38 37 3A 89 31 30 39 31  |").:.11987:.1091|
00000820: 32 00 3E 10 87 24 8B 28  41 24 B2 22 42 22 29 A7  |2.>..$.(A$."B").|
00000830: 3A 8D 31 31 39 38 37 3A  89 31 31 32 30 31 00 51  |:.11987:.11201.Q|
00000840: 10 93 24 8B 28 41 24 B2  22 43 22 29 A7 38 33 33  |..$.(A$."C").833|
00000850: 39 00 65 10 9A 24 8B 28  41 24 B2 22 4C 22 29 A7  |9.e..$.(A$."L").|
00000860: 31 30 30 39 32 00 82 10  A1 24 8B 28 41 24 B2 22  |10092....$.(A$."|
00000870: 49 22 29 A7 3A 8D 31 32  30 33 35 3A 89 31 32 30  |I").:.12035:.120|
00000880: 34 36 00 9F 10 AD 24 8B  28 41 24 B2 22 56 22 29  |46....$.(A$."V")|
00000890: A7 3A 8D 31 31 39 38 37  3A 89 31 30 33 34 31 00  |.:.11987:.10341.|
000008A0: BB 10 B9 24 8B 28 41 24  B2 22 47 22 29 A7 3A 8D  |...$.(A$."G").:.|
000008B0: 31 31 39 38 37 3A 89 39  36 39 36 00 D8 10 C5 24  |11987:.9696....$|
000008C0: 8B 28 41 24 B2 22 4F 22  29 A7 3A 8D 31 31 39 38  |.(A$."O").:.1198|
000008D0: 37 3A 89 31 31 35 35 34  00 EC 10 D1 24 8B 28 41  |7:.11554....$.(A|
000008E0: 24 B2 22 52 22 29 A7 31  31 39 32 35 00 00 11 D8  |$."R").11925....|
000008F0: 24 8B 28 41 24 B2 22 46  22 29 A7 31 32 35 39 39  |$.(A$."F").12599|
00000900: 00 14 11 DF 24 8B 28 41  24 B2 22 24 22 29 A7 31  |....$.(A$."$").1|
00000910: 32 38 33 32 00 1E 11 E6  24 89 39 33 32 34 00 2A  |2832....$.9324.*|
00000920: 11 E9 24 49 B2 28 58 AA  31 29 00 35 11 ED 24 81  |..$I.(X.1).5..$.|
00000930: 49 B2 49 A4 52 00 62 11  F2 24 99 22 93 11 41 50  |I.I.R.b..$."..AP|
00000940: 52 49 45 54 45 20 12 52  45 54 55 52 4E 92 20 50  |RIETE .RETURN. P|
00000950: 41 52 41 20 45 4E 54 52  41 52 20 44 41 54 4F 53  |ARA ENTRAR DATOS|
00000960: 11 22 00 95 11 1A 25 99  22 41 50 52 49 45 54 45  |."....%."APRIETE|
00000970: 20 12 52 45 54 55 52 4E  92 20 53 49 4E 20 44 41  | .RETURN. SIN DA|
00000980: 54 4F 53 2C 20 50 41 52  41 20 54 45 52 4D 49 4E  |TOS, PARA TERMIN|
00000990: 41 52 11 11 22 00 AC 11  48 25 99 22 12 52 45 47  |AR.."...H%.".REG|
000009A0: 49 53 54 52 4F 20 4E 52  4F 20 22 3B 00 B4 11 59  |ISTRO NRO ";...Y|
000009B0: 25 99 49 3B 00 BD 11 5B  25 99 22 11 22 00 C5 11  |%.I;...[%."."...|
000009C0: 5E 25 4E B2 31 00 D0 11  60 25 81 4E B2 4E A4 46  |^%N.1...`%.N.N.F|
000009D0: 00 DC 11 65 25 99 46 24  28 4E 29 3B 00 EC 11 69  |...e%.F$(N);...i|
000009E0: 25 99 22 20 20 20 3E 9D  9D 9D 22 3B 00 FA 11 72  |%."   >...";...r|
000009F0: 25 85 52 45 24 28 49 2C  4E 29 00 1B 12 78 25 8B  |%.RE$(I,N)...x%.|
00000A00: 28 52 45 24 28 49 2C 4E  29 B2 22 22 29 A7 3A 52  |(RE$(I,N)."").:R|
00000A10: 45 24 28 49 2C 4E 29 B2  22 3E 22 00 41 12 86 25  |E$(I,N).">".A..%|
00000A20: 8B 28 C3 28 52 45 24 28  49 2C 4E 29 29 B1 4C 25  |.(.(RE$(I,N)).L%|
00000A30: 28 4E 29 29 A7 3A 8D 39  36 35 39 3A 89 39 35 37  |(N)).:.9659:.957|
00000A40: 33 00 69 12 97 25 8B 28  52 45 24 28 49 2C 31 29  |3.i..%.(RE$(I,1)|
00000A50: B2 22 3E 22 29 A7 3A 58  B2 28 49 AB 31 29 3A 43  |.">").:X.(I.1):C|
00000A60: 4B B2 31 3A 89 38 37 38  31 00 70 12 A9 25 82 4E  |K.1:.8781.p..%.N|
00000A70: 00 7C 12 AC 25 4B 25 28  49 29 B2 49 00 83 12 B0  |.|..%K%(I).I....|
00000A80: 25 82 49 00 8B 12 B3 25  58 B2 52 00 94 12 B6 25  |%.I....%X.R....%|
00000A90: 43 4B B2 31 00 9E 12 B8  25 89 38 37 38 31 00 B6  |CK.1....%.8781..|
00000AA0: 12 BB 25 99 22 4E 4F 20  45 58 43 45 44 45 52 20  |..%."NO EXCEDER |
00000AB0: 4C 4F 53 12 22 3B 00 C2  12 CD 25 99 4C 25 28 4E  |LOS.";....%.L%(N|
00000AC0: 29 3B 00 D5 12 D1 25 99  22 20 43 41 52 41 43 54  |);....%." CARACT|
00000AD0: 45 52 45 53 22 00 DB 12  DF 25 8E 00 0B 13 E0 25  |ERES"....%.....%|
00000AE0: 99 22 93 11 45 4E 54 52  45 20 45 4C 20 4E 4F 4D  |."..ENTRE EL NOM|
00000AF0: 42 52 45 20 44 45 4C 20  41 52 43 48 49 56 4F 20  |BRE DEL ARCHIVO |
00000B00: 41 20 47 52 41 42 41 52  20 20 22 00 3A 13 0B 26  |A GRABAR  ".:..&|
00000B10: 99 22 28 4D 41 58 3A 31  32 20 43 41 52 41 43 54  |."(MAX:12 CARACT|
00000B20: 45 52 45 53 29 2E 20 20  54 4F 44 4F 20 41 52 43  |ERES).  TODO ARC|
00000B30: 48 49 56 4F 20 20 20 20  20 22 00 67 13 35 26 99  |HIVO     ".g.5&.|
00000B40: 22 43 4F 4E 20 45 4C 20  4D 49 53 4D 4F 20 4E 4F  |"CON EL MISMO NO|
00000B50: 4D 42 52 45 20 53 45 52  41 20 45 4C 49 4D 49 4E  |MBRE SERA ELIMIN|
00000B60: 41 44 4F 2E 11 11 22 00  72 13 5D 26 99 22 20 20  |ADO...".r.]&."  |
00000B70: 22 3B 00 7B 13 61 26 99  4E 46 24 00 89 13 64 26  |";.{.a&.NF$...d&|
00000B80: 85 22 91 91 22 3B 4E 46  24 00 9C 13 6C 26 8B 28  |."..";NF$...l&.(|
00000B90: 4E 46 24 B2 22 22 29 A7  38 37 38 31 00 A9 13 73  |NF$."").8781...s|
00000BA0: 26 9F 31 35 2C 38 2C 31  35 00 B3 13 78 26 9D 31  |&.15,8,15...x&.1|
00000BB0: 35 2C 3B 00 DB 13 7A 26  98 31 35 2C 28 28 22 53  |5,;...z&.15,(("S|
00000BC0: 30 3A 42 44 5D 20 22 AA  C8 28 4E 46 24 2C 36 29  |0:BD] "..(NF$,6)|
00000BD0: 29 AA 22 21 56 49 45 4A  4F 22 29 00 E6 13 90 26  |)."!VIEJO")....&|
00000BE0: 8D 31 32 37 31 33 00 F0  13 93 26 9D 31 35 2C 3B  |.12713....&.15,;|
00000BF0: 00 23 14 95 26 98 31 35  2C 28 28 28 22 52 30 3A  |.#..&.15,((("R0:|
00000C00: 42 44 5D 20 22 AA C8 28  4E 46 24 2C 36 29 29 AA  |BD] "..(NF$,6)).|
00000C10: 22 21 56 49 45 4A 4F 3D  42 44 5D 20 22 29 AA 4E  |"!VIEJO=BD] ").N|
00000C20: 46 24 29 00 2E 14 B4 26  8D 31 32 37 31 33 00 51  |F$)....&.12713.Q|
00000C30: 14 B7 26 9F 35 2C 38 2C  35 2C 28 28 22 30 3A 42  |..&.5,8,5,(("0:B|
00000C40: 44 5D 20 22 AA 4E 46 24  29 AA 22 2C 53 2C 57 22  |D] ".NF$).",S,W"|
00000C50: 29 00 5C 14 CC 26 8D 31  32 37 31 33 00 65 14 CF  |).\..&.12713.e..|
00000C60: 26 9D 35 2C 3B 00 6D 14  D1 26 99 52 3B 00 77 14  |&.5,;.m..&.R;.w.|
00000C70: D4 26 99 43 52 24 3B 00  7F 14 D6 26 99 46 3B 00  |.&.CR$;....&.F;.|
00000C80: 89 14 D9 26 99 43 52 24  3B 00 92 14 DB 26 98 35  |...&.CR$;....&.5|
00000C90: 2C 58 00 9D 14 DD 26 8D  31 32 37 31 33 00 A5 14  |,X....&.12713...|
00000CA0: E0 26 4E B2 31 00 B0 14  E2 26 81 4E B2 4E A4 46  |.&N.1....&.N.N.F|
00000CB0: 00 B9 14 E7 26 9D 35 2C  3B 00 C5 14 E9 26 99 46  |....&.5,;....&.F|
00000CC0: 24 28 4E 29 3B 00 CF 14  ED 26 99 43 52 24 3B 00  |$(N);....&.CR$;.|
00000CD0: DC 14 EF 26 98 35 2C 4C  25 28 4E 29 00 E3 14 F3  |...&.5,L%(N)....|
00000CE0: 26 82 4E 00 EB 14 F6 26  49 B2 31 00 F6 14 F8 26  |&.N....&I.1....&|
00000CF0: 81 49 B2 49 A4 58 00 15  15 FC 26 99 22 11 47 52  |.I.I.X....&.".GR|
00000D00: 41 42 41 4E 44 4F 20 52  45 47 49 53 54 52 4F 20  |ABANDO REGISTRO |
00000D10: 4E 52 4F 22 3B 00 1D 15  15 27 99 49 3B 00 27 15  |NRO";....'.I;.'.|
00000D20: 17 27 99 22 91 91 22 00  2F 15 1B 27 4E B2 31 00  |.'.".."./..'N.1.|
00000D30: 3A 15 1D 27 81 4E B2 4E  A4 46 00 43 15 22 27 9D  |:..'.N.N.F.C."'.|
00000D40: 35 2C 3B 00 53 15 24 27  98 35 2C 52 45 24 28 49  |5,;.S.$'.5,RE$(I|
00000D50: 2C 4E 29 00 5A 15 29 27  82 4E 00 65 15 2C 27 8D  |,N).Z.)'.N.e.,'.|
00000D60: 31 32 37 31 33 00 6C 15  2F 27 82 49 00 72 15 32  |12713.l./'.I.r.2|
00000D70: 27 99 00 7A 15 33 27 49  B2 31 00 85 15 35 27 81  |'..z.3'I.1...5'.|
00000D80: 49 B2 49 A4 58 00 9E 15  39 27 99 22 11 53 41 56  |I.I.X...9'.".SAV|
00000D90: 49 4E 47 20 50 4F 49 4E  54 45 52 53 22 3B 00 A6  |ING POINTERS";..|
00000DA0: 15 4C 27 99 49 3B 00 B0  15 4E 27 99 22 91 91 22  |.L'.I;...N'.".."|
00000DB0: 00 B9 15 52 27 9D 35 2C  3B 00 C6 15 54 27 98 35  |...R'.5,;...T'.5|
00000DC0: 2C 4B 25 28 49 29 00 CD  15 58 27 82 49 00 D8 15  |,K%(I)...X'.I...|
00000DD0: 5B 27 8D 31 32 37 31 33  00 E1 15 5E 27 9D 35 2C  |['.12713...^'.5,|
00000DE0: 3B 00 EB 15 60 27 98 35  2C 45 24 00 F2 15 63 27  |;...`'.5,E$...c'|
00000DF0: A0 35 00 FA 15 65 27 A0  31 35 00 03 16 67 27 43  |.5...e'.15...g'C|
00000E00: 4B B2 30 00 0D 16 69 27  89 38 37 38 31 00 22 16  |K.0...i'.8781.".|
00000E10: 6C 27 8B 28 43 4B B3 B1  30 29 A7 3A 8D 31 32 35  |l'.(CK..0).:.125|
00000E20: 30 33 00 28 16 74 27 9C  00 32 16 75 27 8D 38 31  |03.(.t'..2.u'.81|
00000E30: 33 36 00 5F 16 78 27 99  22 93 11 45 4E 54 52 45  |36._.x'."..ENTRE|
00000E40: 20 4E 4F 4D 42 52 45 20  44 45 4C 20 41 52 43 48  | NOMBRE DEL ARCH|
00000E50: 49 56 4F 20 41 20 43 41  52 47 41 52 11 11 22 00  |IVO A CARGAR..".|
00000E60: 68 16 A0 27 85 4E 46 24  00 75 16 A4 27 9F 31 35  |h..'.NF$.u..'.15|
00000E70: 2C 38 2C 31 35 00 98 16  A9 27 9F 35 2C 38 2C 35  |,8,15....'.5,8,5|
00000E80: 2C 28 28 22 30 3A 42 44  5D 20 22 AA 4E 46 24 29  |,(("0:BD] ".NF$)|
00000E90: AA 22 2C 53 2C 52 22 29  00 A3 16 BE 27 8D 31 32  |.",S,R")....'.12|
00000EA0: 37 31 33 00 B0 16 C1 27  84 35 2C 52 2C 46 2C 58  |713....'.5,R,F,X|
00000EB0: 00 BB 16 CC 27 8D 31 32  37 31 33 00 C5 16 CF 27  |....'.12713....'|
00000EC0: 8D 38 32 34 35 00 CF 16  D2 27 8D 38 32 37 36 00  |.8245....'.8276.|
00000ED0: D7 16 D5 27 4E B2 31 00  E2 16 D7 27 81 4E B2 4E  |...'N.1....'.N.N|
00000EE0: A4 46 00 F5 16 DC 27 84  35 2C 46 24 28 4E 29 2C  |.F....'.5,F$(N),|
00000EF0: 4C 25 28 4E 29 00 FC 16  E6 27 82 4E 00 04 17 E9  |L%(N)....'.N....|
00000F00: 27 49 B2 31 00 0F 17 EB  27 81 49 B2 49 A4 58 00  |'I.1....'.I.I.X.|
00000F10: 2D 17 EF 27 99 22 11 4C  45 59 45 4E 44 4F 20 52  |-..'.".LEYENDO R|
00000F20: 45 47 49 53 54 52 4F 20  4E 52 4F 22 3B 00 35 17  |EGISTRO NRO";.5.|
00000F30: 07 28 99 49 3B 00 3F 17  09 28 99 22 91 91 22 00  |.(.I;.?..(."..".|
00000F40: 47 17 0D 28 4E B2 31 00  52 17 0F 28 81 4E B2 4E  |G..(N.1.R..(.N.N|
00000F50: A4 46 00 62 17 14 28 84  35 2C 52 45 24 28 49 2C  |.F.b..(.5,RE$(I,|
00000F60: 4E 29 00 69 17 1B 28 82  4E 00 74 17 1E 28 8D 31  |N).i..(.N.t..(.1|
00000F70: 32 37 31 33 00 7B 17 21  28 82 49 00 81 17 24 28  |2713.{.!(.I...$(|
00000F80: 99 00 89 17 25 28 49 B2  31 00 94 17 27 28 81 49  |....%(I.1...'(.I|
00000F90: B2 49 A4 58 00 AE 17 2B  28 99 22 11 4C 45 59 45  |.I.X...+(.".LEYE|
00000FA0: 4E 44 4F 20 50 55 4E 54  45 52 4F 53 22 3B 00 B6  |NDO PUNTEROS";..|
00000FB0: 17 3F 28 99 49 3B 00 C0  17 41 28 99 22 91 91 22  |.?(.I;...A(.".."|
00000FC0: 00 CD 17 45 28 84 35 2C  4B 25 28 49 29 00 D4 17  |...E(.5,K%(I)...|
00000FD0: 4B 28 82 49 00 DF 17 4E  28 8D 31 32 37 31 33 00  |K(.I...N(.12713.|
00000FE0: E8 17 51 28 53 B2 53 54  00 FA 17 53 28 8B 28 53  |..Q(S.ST...S(.(S|
00000FF0: B3 B1 30 29 A7 31 30 33  33 34 00 04 18 59 28 84  |..0).10334...Y(.|
00001000: 35 2C 45 24 00 0B 18 5E  28 A0 35 00 13 18 60 28  |5,E$...^(.5...`(|
00001010: A0 31 35 00 1D 18 62 28  89 38 37 38 31 00 25 18  |.15...b(.8781.%.|
00001020: 65 28 49 B2 31 00 35 18  67 28 8B 28 49 B2 30 29  |e(I.1.5.g(.(I.0)|
00001030: A7 38 37 38 31 00 45 18  6D 28 8B 28 49 B1 58 29  |.8781.E.m(.(I.X)|
00001040: A7 38 37 38 31 00 5F 18  73 28 99 22 93 11 11 12  |.8781._.s(."....|
00001050: 52 45 47 49 53 54 52 4F  20 4E 52 4F 92 22 3B 00  |REGISTRO NRO.";.|
00001060: 67 18 87 28 99 49 3B 00  7D 18 89 28 99 22 20 12  |g..(.I;.}..(." .|
00001070: 45 4E 20 41 52 43 48 49  56 4F 20 22 3B 00 87 18  |EN ARCHIVO ";...|
00001080: 99 28 99 4E 46 24 3B 00  91 18 9C 28 99 22 11 11  |.(.NF$;....(."..|
00001090: 22 00 99 18 A0 28 4E B2  31 00 A4 18 A2 28 81 4E  |"....(N.1....(.N|
000010A0: B2 4E A4 46 00 B0 18 A7  28 99 46 24 28 4E 29 3B  |.N.F....(.F$(N);|
000010B0: 00 BC 18 AB 28 99 22 3A  20 12 22 3B 00 CE 18 B0  |....(.": .";....|
000010C0: 28 99 52 45 24 28 4B 25  28 49 29 2C 4E 29 00 D5  |(.RE$(K%(I),N)..|
000010D0: 18 B7 28 82 4E 00 10 19  BA 28 99 22 11 20 12 50  |..(.N....(.". .P|
000010E0: 92 52 4F 58 49 4D 4F 2C  20 12 41 92 4E 54 45 52  |.ROXIMO, .A.NTER|
000010F0: 49 4F 52 2C 20 12 53 92  41 4C 54 41 52 2C 20 12  |IOR, .S.ALTAR, .|
00001100: 42 92 55 53 43 41 52 2C  20 12 4D 92 45 4E 55 22  |B.USCAR, .M.ENU"|
00001110: 00 1A 19 F0 28 8D 38 33  33 30 00 38 19 F3 28 8B  |....(.8330.8..(.|
00001120: 28 41 24 B2 22 50 22 29  A7 3A 49 B2 28 49 AA 31  |(A$."P").:I.(I.1|
00001130: 29 3A 89 31 30 33 34 33  00 56 19 00 29 8B 28 41  |):.10343.V..).(A|
00001140: 24 B2 22 41 22 29 A7 3A  49 B2 28 49 AB 31 29 3A  |$."A").:I.(I.1):|
00001150: 89 31 30 33 34 33 00 6A  19 0D 29 8B 28 41 24 B2  |.10343.j..).(A$.|
00001160: 22 53 22 29 A7 31 30 35  33 33 00 7E 19 14 29 8B  |"S").10533.~..).|
00001170: 28 41 24 B2 22 42 22 29  A7 31 30 35 36 35 00 91  |(A$."B").10565..|
00001180: 19 1B 29 8B 28 41 24 B2  22 4D 22 29 A7 38 37 38  |..).(A$."M").878|
00001190: 31 00 9C 19 22 29 89 31  30 34 38 30 00 BC 19 25  |1...").10480...%|
000011A0: 29 85 22 11 53 41 4C 54  41 52 20 41 20 52 45 47  |).".SALTAR A REG|
000011B0: 49 53 54 52 4F 20 4E 52  4F 22 3B 49 00 C7 19 42  |ISTRO NRO";I...B|
000011C0: 29 89 31 30 33 34 33 00  F6 19 45 29 99 22 93 20  |).10343...E).". |
000011D0: 20 12 42 55 53 43 41 52  20 52 45 47 49 53 54 52  | .BUSCAR REGISTR|
000011E0: 4F 53 20 43 4F 4E 20 49  54 45 4D 53 20 43 4F 4D  |OS CON ITEMS COM|
000011F0: 55 4E 45 53 11 22 00 FE  19 6F 29 4E B2 31 00 09  |UNES."...o)N.1..|
00001200: 1A 71 29 81 4E B2 4E A4  46 00 14 1A 76 29 99 22  |.q).N.N.F...v)."|
00001210: 20 12 22 3B 00 1C 1A 7A  29 99 4E 3B 00 27 1A 7C  | .";...z).N;.'.||
00001220: 29 99 22 92 20 22 3B 00  32 1A 80 29 99 46 24 28  |).". ";.2..).F$(|
00001230: 4E 29 00 39 1A 84 29 82  4E 00 69 1A 87 29 85 22  |N).9..).N.i..)."|
00001240: 11 51 55 45 20 43 41 4D  50 4F 20 44 45 53 45 41  |.QUE CAMPO DESEA|
00001250: 20 49 4E 56 45 53 54 49  47 41 52 53 45 3F 20 30  | INVESTIGARSE? 0|
00001260: 20 9D 9D 9D 9D 22 3B 53  46 00 7A 1A B3 29 8B 28  | ....";SF.z..).(|
00001270: 53 46 B2 30 29 A7 38 37  38 31 00 9F 1A BA 29 8B  |SF.0).8781....).|
00001280: 28 28 53 46 B3 31 29 B0  28 53 46 B1 46 29 29 A7  |((SF.1).(SF.F)).|
00001290: 3A 99 22 91 91 91 91 22  3A 89 31 30 36 33 31 00  |:."....":.10631.|
000012A0: BB 1A CF 29 99 22 11 45  4E 54 52 45 20 12 49 54  |...).".ENTRE .IT|
000012B0: 45 4D 20 43 4F 4D 55 4E  92 20 22 00 E4 1A E6 29  |EM COMUN. "....)|
000012C0: 99 22 11 28 4E 4F 20 53  45 20 52 45 51 55 49 45  |.".(NO SE REQUIE|
000012D0: 52 45 20 54 4F 44 41 20  4C 41 20 50 41 4C 41 42  |RE TODA LA PALAB|
000012E0: 52 41 29 22 00 EF 1A 0A  2A 99 22 11 12 22 3B 00  |RA)"....*."..";.|
000012F0: FC 1A 0E 2A 99 46 24 28  53 46 29 3B 00 07 1B 13  |...*.F$(SF);....|
00001300: 2A 99 22 92 20 22 3B 00  0F 1B 17 2A 85 54 24 00  |*.". ";....*.T$.|
00001310: 17 1B 1B 2A 49 B2 31 00  22 1B 1D 2A 81 49 B2 49  |...*I.1."..*.I.I|
00001320: A4 58 00 3D 1B 21 2A 99  22 11 42 55 53 43 41 4E  |.X.=.!*.".BUSCAN|
00001330: 44 4F 20 52 45 47 49 53  54 52 4F 22 3B 00 45 1B  |DO REGISTRO";.E.|
00001340: 36 2A 99 49 3B 00 4F 1B  38 2A 99 22 91 91 22 00  |6*.I;.O.8*."..".|
00001350: 76 1B 3C 2A 8B 28 54 24  B2 C8 28 52 45 24 28 4B  |v.<*.(T$..(RE$(K|
00001360: 25 28 49 29 2C 53 46 29  2C C3 28 54 24 29 29 29  |%(I),SF),.(T$)))|
00001370: A7 31 30 38 33 32 00 81  1B 4D 2A 89 31 30 39 30  |.10832...M*.1090|
00001380: 36 00 98 1B 50 2A 99 22  93 20 52 45 47 49 53 54  |6...P*.". REGIST|
00001390: 52 4F 20 4E 52 4F 22 3B  00 A0 1B 61 2A 99 49 3B  |RO NRO";...a*.I;|
000013A0: 00 A9 1B 63 2A 99 22 11  22 00 B1 1B 66 2A 4E B2  |...c*."."...f*N.|
000013B0: 31 00 BC 1B 68 2A 81 4E  B2 4E A4 46 00 C8 1B 6D  |1...h*.N.N.F...m|
000013C0: 2A 99 46 24 28 4E 29 3B  00 D4 1B 71 2A 99 22 3A  |*.F$(N);...q*.":|
000013D0: 20 12 22 3B 00 E6 1B 76  2A 99 52 45 24 28 4B 25  | .";...v*.RE$(K%|
000013E0: 28 49 29 2C 4E 29 00 ED  1B 7D 2A 82 4E 00 09 1C  |(I),N)...}*.N...|
000013F0: 80 2A 99 22 11 20 12 50  92 52 4F 58 49 4D 4F 20  |.*.". .P.ROXIMO |
00001400: 52 45 47 49 53 54 52 4F  22 00 13 1C 97 2A 8D 38  |REGISTRO"....*.8|
00001410: 33 33 30 00 1A 1C 9A 2A  82 49 00 24 1C 9D 2A 89  |330....*.I.$..*.|
00001420: 38 37 38 31 00 55 1C A0  2A 99 22 93 11 51 55 45  |8781.U..*."..QUE|
00001430: 20 52 45 47 49 53 54 52  4F 3F 20 45 4E 54 52 45  | REGISTRO? ENTRE|
00001440: 20 45 4C 12 4E 52 4F 92  20 4F 20 12 54 92 4F 44  | EL.NRO. O .T.OD|
00001450: 4F 53 11 11 22 00 5E 1C  CC 2A 85 4D 52 24 00 71  |OS..".^..*.MR$.q|
00001460: 1C CF 2A 8B 28 4D 52 24  B2 44 24 29 A7 38 37 38  |..*.(MR$.D$).878|
00001470: 31 00 8F 1C D5 2A 8B 28  4D 52 24 B2 22 54 22 29  |1....*.(MR$."T")|
00001480: A7 3A 4D 52 24 B2 44 24  3A 89 31 30 39 39 38 00  |.:MR$.D$:.10998.|
00001490: 9C 1C E0 2A 49 B2 C5 28  4D 52 24 29 00 A7 1C E3  |...*I..(MR$)....|
000014A0: 2A 4D 52 24 B2 44 24 00  C1 1C E5 2A 8B 28 49 B1  |*MR$.D$....*.(I.|
000014B0: 58 29 A7 3A 8D 31 31 39  36 31 3A 89 31 30 39 31  |X).:.11961:.1091|
000014C0: 32 00 CC 1C F0 2A 8D 31  31 30 31 33 00 D6 1C F3  |2....*.11013....|
000014D0: 2A 89 38 37 38 31 00 DE  1C F6 2A 49 B2 31 00 E9  |*.8781....*I.1..|
000014E0: 1C F8 2A 81 49 B2 49 A4  58 00 F4 1C FC 2A 8D 31  |..*.I.I.X....*.1|
000014F0: 31 30 31 33 00 FB 1C FF  2A 82 49 00 05 1D 02 2B  |1013....*.I....+|
00001500: 89 38 37 38 31 00 2D 1D  05 2B 99 22 93 20 20 20  |.8781.-..+.".   |
00001510: 11 4D 4F 44 49 46 49 51  55 45 20 45 4C 20 52 45  |.MODIFIQUE EL RE|
00001520: 47 49 53 54 52 4F 20 4E  52 4F 20 22 3B 00 35 1D  |GISTRO NRO ";.5.|
00001530: 27 2B 99 49 3B 00 44 1D  29 2B 99 22 20 43 55 41  |'+.I;.D.)+." CUA|
00001540: 4E 44 4F 22 00 77 1D 32  2B 99 22 41 50 41 52 45  |NDO".w.2+."APARE|
00001550: 43 45 20 43 41 44 41 20  43 41 4D 50 4F 2C 20 4C  |CE CADA CAMPO, L|
00001560: 55 45 47 4F 20 41 50 52  49 45 54 45 20 12 52 45  |UEGO APRIETE .RE|
00001570: 54 55 52 4E 92 11 22 00  7F 1D 60 2B 4E B2 31 00  |TURN.."...`+N.1.|
00001580: 8A 1D 62 2B 81 4E B2 4E  A4 46 00 96 1D 67 2B 99  |..b+.N.N.F...g+.|
00001590: 46 24 28 4E 29 3B 00 9F  1D 6B 2B 99 22 3A 22 00  |F$(N);...k+.":".|
000015A0: AC 1D 6E 2B 99 22 20 20  20 12 22 3B 00 BE 1D 74  |..n+."   .";...t|
000015B0: 2B 99 52 45 24 28 4B 25  28 49 29 2C 4E 29 00 DF  |+.RE$(K%(I),N)..|
000015C0: 1D 7B 2B 8B 28 C3 28 52  45 24 28 4B 25 28 49 29  |.{+.(.(RE$(K%(I)|
000015D0: 2C 4E 29 29 B1 33 36 29  A7 3A 99 22 91 22 3B 00  |,N)).36).:.".";.|
000015E0: EA 1D 8A 2B 99 22 91 20  22 3B 00 FC 1D 8E 2B 85  |...+.". ";....+.|
000015F0: 52 45 24 28 4B 25 28 49  29 2C 4E 29 00 27 1E 96  |RE$(K%(I),N).'..|
00001600: 2B 8B 28 C3 28 52 45 24  28 4B 25 28 49 29 2C 4E  |+.(.(RE$(K%(I),N|
00001610: 29 29 B1 4C 25 28 4E 29  29 A7 3A 8D 39 36 35 39  |)).L%(N)).:.9659|
00001620: 3A 89 31 31 31 30 34 00  50 1E A9 2B 8B 28 52 45  |:.11104.P..+.(RE|
00001630: 24 28 4B 25 28 49 29 2C  4E 29 B2 22 22 29 A7 3A  |$(K%(I),N)."").:|
00001640: 52 45 24 28 4B 25 28 49  29 2C 4E 29 B2 22 3E 22  |RE$(K%(I),N).">"|
00001650: 00 57 1E BB 2B 82 4E 00  60 1E BE 2B 43 4B B2 31  |.W..+.N.`..+CK.1|
00001660: 00 66 1E C0 2B 8E 00 9C  1E C1 2B 99 22 93 11 42  |.f..+.....+."..B|
00001670: 4F 52 52 41 52 20 51 55  45 20 52 45 47 49 53 54  |ORRAR QUE REGIST|
00001680: 52 4F 3F 20 45 4E 54 52  45 20 12 4E 52 4F 92 20  |RO? ENTRE .NRO. |
00001690: 4F 20 12 54 92 4F 44 4F  53 11 11 22 00 A5 1E F2  |O .T.ODOS.."....|
000016A0: 2B 85 44 52 24 00 B8 1E  F5 2B 8B 28 44 52 24 B2  |+.DR$....+.(DR$.|
000016B0: 44 24 29 A7 38 37 38 31  00 D6 1E FB 2B 8B 28 44  |D$).8781....+.(D|
000016C0: 52 24 B2 22 54 22 29 A7  3A 44 52 24 B2 44 24 3A  |R$."T").:DR$.D$:|
000016D0: 89 31 31 32 39 32 00 E3  1E 06 2C 49 B2 C5 28 44  |.11292....,I..(D|
000016E0: 52 24 29 00 EE 1E 09 2C  44 52 24 B2 44 24 00 08  |R$)....,DR$.D$..|
000016F0: 1F 0B 2C 8B 28 49 B1 58  29 A7 3A 8D 31 31 39 36  |..,.(I.X).:.1196|
00001700: 31 3A 89 31 31 32 35 30  00 13 1F 16 2C 8D 31 31  |1:.11250....,.11|
00001710: 33 30 37 00 1D 1F 19 2C  89 38 37 38 31 00 25 1F  |307....,.8781.%.|
00001720: 1C 2C 49 B2 31 00 30 1F  1E 2C 81 49 B2 49 A4 58  |.,I.1.0..,.I.I.X|
00001730: 00 3B 1F 22 2C 8D 31 31  33 30 37 00 42 1F 25 2C  |.;.",.11307.B.%,|
00001740: 82 49 00 4C 1F 28 2C 89  38 37 38 31 00 6E 1F 2B  |.I.L.(,.8781.n.+|
00001750: 2C 99 22 93 11 50 41 52  41 20 42 4F 52 52 41 52  |,."..PARA BORRAR|
00001760: 20 52 45 47 2E 20 4E 55  4D 45 52 4F 22 3B 00 76  | REG. NUMERO";.v|
00001770: 1F 47 2C 99 49 3B 00 87  1F 49 2C 99 22 2C 20 41  |.G,.I;...I,.", A|
00001780: 50 52 49 45 54 45 22 00  BB 1F 55 2C 99 22 20 12  |PRIETE"...U,." .|
00001790: 53 48 49 46 54 92 20 12  42 92 20 59 20 4C 55 45  |SHIFT. .B. Y LUE|
000017A0: 47 4F 20 4C 41 20 12 42  41 52 52 41 20 45 53 50  |GO LA .BARRA ESP|
000017B0: 41 43 49 41 44 4F 52 41  92 11 22 00 C3 1F 84 2C  |ACIADORA.."....,|
000017C0: 4E B2 31 00 CE 1F 86 2C  81 4E B2 4E A4 46 00 DA  |N.1....,.N.N.F..|
000017D0: 1F 8B 2C 99 46 24 28 4E  29 3B 00 E7 1F 8F 2C 99  |..,.F$(N);....,.|
000017E0: 22 20 20 20 12 22 3B 00  F9 1F 95 2C 99 52 45 24  |"   .";....,.RE$|
000017F0: 28 4B 25 28 49 29 2C 4E  29 00 00 20 9C 2C 82 4E  |(K%(I),N).. .,.N|
00001800: 00 0A 20 9F 2C 8D 38 33  33 30 00 1E 20 A2 2C 8B  |.. .,.8330.. .,.|
00001810: 28 41 24 B2 22 C2 22 29  A7 31 31 34 33 36 00 27  |(A$.".").11436.'|
00001820: 20 A9 2C 43 4B B2 31 00  2D 20 AB 2C 8E 00 49 20  | .,CK.1.- .,..I |
00001830: AC 2C 99 22 11 11 42 4F  52 52 41 4E 44 4F 20 52  |.,."..BORRANDO R|
00001840: 45 47 49 53 54 52 4F 22  3B 00 50 20 C2 2C 99 49  |EGISTRO";.P .,.I|
00001850: 00 79 20 C4 2C 99 22 11  12 52 45 43 4F 52 44 53  |.y .,."..RECORDS|
00001860: 20 4D 41 59 20 4E 4F 57  20 42 45 20 4F 55 54 20  | MAY NOW BE OUT |
00001870: 4F 46 20 4F 52 44 45 52  22 00 81 20 E8 2C 4E B2  |OF ORDER".. .,N.|
00001880: 31 00 8C 20 EA 2C 81 4E  B2 4E A4 46 00 A6 20 EF  |1.. .,.N.N.F.. .|
00001890: 2C 52 45 24 28 4B 25 28  49 29 2C 4E 29 B2 52 45  |,RE$(K%(I),N).RE|
000018A0: 24 28 58 2C 4E 29 00 B6  20 F9 2C 52 45 24 28 58  |$(X,N).. .,RE$(X|
000018B0: 2C 4E 29 B2 22 22 00 BD  20 FE 2C 82 4E 00 C5 20  |,N)."".. .,.N.. |
000018C0: 01 2D 4A B2 31 00 D0 20  03 2D 81 4A B2 4A A4 58  |.-J.1.. .-.J.J.X|
000018D0: 00 03 21 07 2D 8B 28 4B  25 28 4A 29 B2 58 29 A7  |..!.-.(K%(J).X).|
000018E0: 3A 4B 25 28 4A 29 B2 4B  25 28 58 29 3A 4B 25 28  |:K%(J).K%(X):K%(|
000018F0: 58 29 B2 30 3A 58 B2 28  58 AB 31 29 3A 89 31 31  |X).0:X.(X.1):.11|
00001900: 34 33 33 00 0A 21 1F 2D  82 4A 00 3D 21 22 2D 99  |433..!.-.J.=!"-.|
00001910: 22 93 11 12 20 52 45 47  49 53 54 52 4F 53 20 4F  |"... REGISTROS O|
00001920: 52 44 45 4E 41 44 4F 53  20 45 4E 20 4F 52 44 45  |RDENADOS EN ORDE|
00001930: 4E 20 41 53 43 45 4E 44  45 4E 54 45 22 00 45 21  |N ASCENDENTE".E!|
00001940: 50 2D 4E B2 31 00 50 21  52 2D 81 4E B2 4E A4 46  |P-N.1.P!R-.N.N.F|
00001950: 00 5B 21 57 2D 99 22 20  12 22 3B 00 63 21 5B 2D  |.[!W-." .";.c![-|
00001960: 99 4E 3B 00 6E 21 5D 2D  99 22 92 20 22 3B 00 79  |.N;.n!]-.". ";.y|
00001970: 21 61 2D 99 46 24 28 4E  29 00 80 21 65 2D 82 4E  |!a-.F$(N)..!e-.N|
00001980: 00 AE 21 68 2D 85 22 11  51 55 45 20 43 41 4D 50  |..!h-.".QUE CAMP|
00001990: 4F 20 44 45 53 45 41 20  4F 52 44 45 4E 41 52 53  |O DESEA ORDENARS|
000019A0: 45 20 3F 20 30 20 9D 9D  9D 9D 22 3B 53 46 00 BF  |E ? 0 ....";SF..|
000019B0: 21 92 2D 8B 28 53 46 B2  30 29 A7 38 37 38 31 00  |!.-.(SF.0).8781.|
000019C0: DA 21 99 2D 8B 28 53 46  B1 46 29 A7 3A 99 22 91  |.!.-.(SF.F).:.".|
000019D0: 91 91 22 3A 89 31 31 36  32 34 00 F8 21 A8 2D 99  |..":.11624..!.-.|
000019E0: 22 11 20 12 45 53 50 45  52 45 2C 20 50 4F 52 20  |". .ESPERE, POR |
000019F0: 46 41 56 4F 52 92 11 22  00 00 22 C1 2D 4D B2 58  |FAVOR.."..".-M.X|
00001A00: 00 0F 22 C3 2D 4D B2 B5  28 28 4D AD 32 29 29 00  |..".-M..((M.2)).|
00001A10: 26 22 C8 2D 8B 28 4D B2  30 29 A7 3A 43 4B B2 31  |&".-.(M.0).:CK.1|
00001A20: 3A 89 38 37 38 31 00 2E  22 D2 2D 4A B2 31 00 3A  |:.8781..".-J.1.:|
00001A30: 22 D4 2D 4B B2 28 58 AB  4D 29 00 42 22 D8 2D 49  |".-K.(X.M).B".-I|
00001A40: B2 4A 00 4E 22 DA 2D 4C  B2 28 49 AA 4D 29 00 6C  |.J.N".-L.(I.M).l|
00001A50: 22 DE 2D 99 22 4F 52 44  45 4E 41 4E 44 4F 20 20  |".-."ORDENANDO  |
00001A60: 20 20 20 20 20 9D 9D 9D  9D 9D 22 3B 00 74 22 F6  |     .....";.t".|
00001A70: 2D 99 49 3B 00 7D 22 F8  2D 99 22 91 22 00 A7 22  |-.I;.}".-.".".."|
00001A80: FB 2D 8B 28 52 45 24 28  4B 25 28 49 29 2C 53 46  |.-.(RE$(K%(I),SF|
00001A90: 29 B3 B2 52 45 24 28 4B  25 28 4C 29 2C 53 46 29  |)..RE$(K%(L),SF)|
00001AA0: 29 A7 31 31 38 31 37 00  B7 22 0D 2E 54 25 28 4E  |).11817.."..T%(N|
00001AB0: 29 B2 4B 25 28 49 29 00  C7 22 13 2E 4B 25 28 49  |).K%(I).."..K%(I|
00001AC0: 29 B2 4B 25 28 4C 29 00  D7 22 19 2E 4B 25 28 4C  |).K%(L).."..K%(L|
00001AD0: 29 B2 54 25 28 4E 29 00  E3 22 1F 2E 49 B2 28 49  |).T%(N).."..I.(I|
00001AE0: AB 4D 29 00 F4 22 23 2E  8B 28 49 B1 30 29 A7 31  |.M).."#..(I.0).1|
00001AF0: 31 37 33 38 00 00 23 29  2E 4A B2 28 4A AA 31 29  |1738..#).J.(J.1)|
00001B00: 00 11 23 2D 2E 8B 28 4A  B1 4B 29 A7 31 31 37 31  |..#-..(J.K).1171|
00001B10: 35 00 1C 23 33 2E 89 31  31 37 33 36 00 47 23 36  |5..#3..11736.G#6|
00001B20: 2E 99 22 93 11 11 20 12  4E 4F 20 51 55 49 45 52  |.."... .NO QUIER|
00001B30: 45 20 47 52 41 42 41 52  20 4C 4F 53 20 43 41 4D  |E GRABAR LOS CAM|
00001B40: 42 49 4F 53 20 3F 22 00  78 23 5C 2E 99 22 11 11  |BIOS ?".x#\.."..|
00001B50: 20 44 45 53 45 41 20 52  45 41 4C 4D 45 4E 54 45  | DESEA REALMENTE|
00001B60: 20 52 45 54 49 52 41 52  53 45 20 3F A0 12 53 92  | RETIRARSE ?..S.|
00001B70: 20 4F 52 20 12 4E 92 22  00 82 23 88 2E 8D 38 33  | OR .N."..#...83|
00001B80: 33 30 00 96 23 8B 2E 8B  28 41 24 B2 22 53 22 29  |30..#...(A$."S")|
00001B90: A7 31 31 39 33 31 00 A0  23 92 2E 89 38 37 38 31  |.11931..#...8781|
00001BA0: 00 B3 23 95 2E 8B 28 43  4B B3 B1 30 29 A7 31 31  |..#...(CK..0).11|
00001BB0: 38 33 30 00 D5 23 9B 2E  99 22 93 11 11 42 41 53  |830..#..."...BAS|
00001BC0: 45 20 44 45 20 44 41 54  4F 53 20 54 45 52 4D 49  |E DE DATOS TERMI|
00001BD0: 4E 41 44 41 22 00 DB 23  B8 2E 80 00 F9 23 B9 2E  |NADA"..#.....#..|
00001BE0: 99 22 A0 4E 4F 20 45 58  49 53 54 45 4E 20 52 45  |.".NO EXISTEN RE|
00001BF0: 47 49 53 54 52 4F 53 20  22 00 FF 23 D2 2E 8E 00  |GISTROS "..#....|
00001C00: 0C 24 D3 2E 8B 28 52 B1  30 29 A7 8E 00 2E 24 D8  |.$...(R.0)....$.|
00001C10: 2E 99 22 93 11 20 53 49  4E 20 41 52 43 48 49 56  |..".. SIN ARCHIV|
00001C20: 4F 53 20 45 4E 20 4D 45  4D 4F 52 49 41 22 00 36  |OS EN MEMORIA".6|
00001C30: 24 F5 2E 49 B2 31 00 44  24 F7 2E 81 49 B2 49 A4  |$..I.1.D$...I.I.|
00001C40: 31 30 30 30 00 4B 24 FD  2E 82 49 00 55 24 00 2F  |1000.K$...I.U$./|
00001C50: 89 38 37 38 31 00 6E 24  03 2F 8B 28 58 B3 31 29  |.8781.n$./.(X.1)|
00001C60: A7 3A 8D 31 31 39 39 32  3A 89 38 37 38 31 00 A0  |.:.11992:.8781..|
00001C70: 24 0E 2F 99 22 93 20 12  20 20 20 20 20 20 4D 45  |$./.". .      ME|
00001C80: 4E 55 20 50 52 49 4E 43  49 50 41 4C 20 44 45 20  |NU PRINCIPAL DE |
00001C90: 49 4D 50 52 45 53 49 4F  4E 20 20 20 20 20 20 22  |IMPRESION      "|
00001CA0: 00 C6 24 3B 2F 99 22 11  11 20 20 49 4D 50 52 49  |..$;/."..  IMPRI|
00001CB0: 4D 49 52 20 52 45 47 49  53 54 52 4F 53 20 55 53  |MIR REGISTROS US|
00001CC0: 41 4E 44 4F 3A 22 00 E8  24 5C 2F 99 22 11 20 20  |ANDO:"..$\/.".  |
00001CD0: 20 20 20 20 12 49 92 4E  46 4F 52 4D 45 53 20 59  |    .I.NFORMES Y|
00001CE0: 20 4C 49 53 54 41 53 22  00 0C 25 79 2F 99 22 11  | LISTAS"..%y/.".|
00001CF0: 20 20 20 20 20 20 12 45  92 54 49 51 55 45 54 41  |      .E.TIQUETA|
00001D00: 53 20 44 45 20 43 4F 52  52 45 4F 22 00 35 25 98  |S DE CORREO".5%.|
00001D10: 2F 99 22 11 20 20 20 20  20 20 12 53 92 55 42 50  |/.".      .S.UBP|
00001D20: 52 4F 47 52 41 4D 41 53  20 44 45 4C 20 55 53 55  |ROGRAMAS DEL USU|
00001D30: 41 52 49 4F 22 00 54 25  BC 2F 99 22 11 20 20 20  |ARIO".T%./.".   |
00001D40: 20 20 20 12 4D 92 45 4E  55 20 50 52 49 4E 43 49  |   .M.ENU PRINCI|
00001D50: 50 41 4C 22 00 84 25 D6  2F 99 22 11 20 12 20 20  |PAL"..%./.". .  |
00001D60: 20 20 20 20 41 50 52 49  45 54 45 20 4C 41 20 54  |    APRIETE LA T|
00001D70: 45 43 4C 41 20 44 45 53  45 41 44 41 20 20 20 20  |ECLA DESEADA    |
00001D80: 20 20 20 22 00 8E 25 01  30 8D 38 33 33 30 00 A2  |   "..%.0.8330..|
00001D90: 25 04 30 8B 28 41 24 B2  22 49 22 29 A7 31 32 33  |%.0.(A$."I").123|
00001DA0: 38 35 00 B5 25 0B 30 8B  28 41 24 B2 22 4D 22 29  |85..%.0.(A$."M")|
00001DB0: A7 38 37 38 31 00 C9 25  12 30 8B 28 41 24 B2 22  |.8781..%.0.(A$."|
00001DC0: 53 22 29 A7 31 32 34 34  37 00 DD 25 19 30 8B 28  |S").12447..%.0.(|
00001DD0: 41 24 B2 22 45 22 29 A7  31 32 33 32 33 00 E8 25  |A$."E").12323..%|
00001DE0: 20 30 89 31 32 32 38 39  00 1B 26 23 30 99 22 93  | 0.12289..&#0.".|
00001DF0: 11 11 11 20 20 20 43 41  52 47 41 4E 44 4F 20 45  |...   CARGANDO E|
00001E00: 4C 20 53 55 42 50 52 4F  47 52 41 4D 41 20 44 45  |L SUBPROGRAMA DE|
00001E10: 20 45 54 49 51 55 45 54  41 53 22 00 30 26 51 30  | ETIQUETAS".0&Q0|
00001E20: 93 22 42 44 45 54 49 51  55 45 54 41 53 22 2C 38  |."BDETIQUETAS",8|
00001E30: 00 64 26 61 30 99 22 93  11 11 11 43 41 52 47 41  |.d&a0."....CARGA|
00001E40: 4E 44 4F 20 53 55 42 50  52 4F 47 52 41 4D 41 20  |NDO SUBPROGRAMA |
00001E50: 44 45 20 49 4E 46 4F 52  4D 45 53 2F 20 4C 49 53  |DE INFORMES/ LIS|
00001E60: 54 41 53 22 00 78 26 90  30 93 22 42 44 49 4E 46  |TAS".x&.0."BDINF|
00001E70: 4F 52 4D 45 53 22 2C 38  00 A0 26 9F 30 99 22 93  |ORMES",8..&.0.".|
00001E80: 11 11 11 45 4E 54 52 45  20 4E 4F 4D 42 52 45 20  |...ENTRE NOMBRE |
00001E90: 44 45 4C 20 53 55 42 50  52 4F 47 52 41 4D 41 22  |DEL SUBPROGRAMA"|
00001EA0: 00 AA 26 C2 30 99 22 11  22 3B 00 B3 26 C5 30 99  |..&.0.".";..&.0.|
00001EB0: 53 42 24 00 C0 26 C7 30  85 22 91 22 3B 53 42 24  |SB$..&.0.".";SB$|
00001EC0: 00 D4 26 CD 30 8B 28 53  42 24 B2 44 24 29 A7 31  |..&.0.(SB$.D$).1|
00001ED0: 32 30 34 36 00 DF 26 D3  30 93 53 42 24 2C 38 00  |2046..&.0.SB$,8.|
00001EE0: 10 27 D7 30 99 22 93 11  20 12 45 53 54 4F 20 44  |.'.0.".. .ESTO D|
00001EF0: 45 53 54 52 55 49 52 41  20 45 4C 20 41 52 43 48  |ESTRUIRA EL ARCH|
00001F00: 49 56 4F 20 45 4E 20 4D  45 4D 4F 52 49 41 21 22  |IVO EN MEMORIA!"|
00001F10: 00 3E 27 03 31 99 22 11  11 47 52 41 42 41 20 45  |.>'.1."..GRABA E|
00001F20: 4C 20 41 52 43 48 49 56  4F 20 50 52 49 4D 45 52  |L ARCHIVO PRIMER|
00001F30: 4F 3F 20 12 53 92 20 4F  52 20 12 4E 92 22 00 48  |O? .S. OR .N.".H|
00001F40: 27 2C 31 8D 38 33 33 30  00 58 27 2F 31 8B 28 41  |',1.8330.X'/1.(A|
00001F50: 24 B2 22 4E 22 29 A7 8E  00 62 27 34 31 89 38 37  |$."N")...b'41.87|
00001F60: 38 31 00 85 27 37 31 99  22 93 11 20 45 53 54 41  |81..'71.".. ESTA|
00001F70: 20 53 45 47 55 52 4F 20  3F 20 12 53 92 20 4F 52  | SEGURO ? .S. OR|
00001F80: 20 12 4E 92 22 00 8F 27  55 31 8D 38 33 33 30 00  | .N."..'U1.8330.|
00001F90: A2 27 58 31 8B 28 41 24  B2 22 4E 22 29 A7 38 37  |.'X1.(A$."N").87|
00001FA0: 38 31 00 B6 27 5F 31 8B  28 41 24 B3 B1 22 53 22  |81..'_1.(A$.."S"|
00001FB0: 29 A7 38 37 38 31 00 DE  27 66 31 85 22 11 20 12  |).8781..'f1.". .|
00001FC0: 4E 4F 4D 42 52 45 20 44  45 4C 20 44 49 53 43 4F  |NOMBRE DEL DISCO|
00001FD0: 20 2C 49 44 92 22 3B 48  4E 24 2C 49 44 24 00 F1  | ,ID.";HN$,ID$..|
00001FE0: 27 86 31 8B 28 48 4E 24  B2 44 24 29 A7 38 37 38  |'.1.(HN$.D$).878|
00001FF0: 31 00 FE 27 8C 31 9F 31  35 2C 38 2C 31 35 00 08  |1..'.1.15,8,15..|
00002000: 28 91 31 9D 31 35 2C 3B  00 2A 28 93 31 98 31 35  |(.1.15,;.*(.1.15|
00002010: 2C 28 28 28 22 4E 45 57  30 3A 22 AA 48 4E 24 29  |,((("NEW0:".HN$)|
00002020: AA 22 2C 22 29 AA 49 44  24 29 00 35 28 A1 31 8D  |.",").ID$).5(.1.|
00002030: 31 32 37 31 33 00 3D 28  A4 31 A0 31 35 00 47 28  |12713.=(.1.15.G(|
00002040: A6 31 89 38 37 38 31 00  5C 28 A9 31 84 31 35 2C  |.1.8781.\(.1.15,|
00002050: 45 4E 2C 45 4D 24 2C 45  54 2C 45 53 00 75 28 B7  |EN,EM$,ET,ES.u(.|
00002060: 31 8B 28 28 45 4E B3 32  30 29 B0 28 45 4E B2 36  |1.((EN.20).(EN.6|
00002070: 32 29 29 A7 8E 00 8F 28  C2 31 99 22 12 11 45 52  |2))....(.1."..ER|
00002080: 52 4F 52 20 44 45 20 44  49 53 43 4F 92 22 3B 00  |ROR DE DISCO.";.|
00002090: 98 28 D6 31 99 45 4E 3B  00 A4 28 D9 31 99 22 9D  |.(.1.EN;..(.1.".|
000020A0: 2C 20 22 3B 00 AE 28 DE  31 99 45 4D 24 3B 00 B8  |, ";..(.1.EM$;..|
000020B0: 28 E1 31 99 22 2C 22 3B  00 C1 28 E4 31 99 45 54  |(.1.",";..(.1.ET|
000020C0: 3B 00 CC 28 E7 31 99 22  9D 2C 22 3B 00 D4 28 EB  |;..(.1.".,";..(.|
000020D0: 31 99 45 53 00 01 29 EE  31 99 22 11 41 50 52 49  |1.ES..).1.".APRI|
000020E0: 45 54 45 20 12 55 4E 41  20 54 45 43 4C 41 92 20  |ETE .UNA TECLA. |
000020F0: 59 20 56 55 45 4C 56 45  20 41 4C 20 4D 45 4E 55  |Y VUELVE AL MENU|
00002100: 22 00 0B 29 16 32 8D 38  33 33 30 00 12 29 19 32  |"..).2.8330..).2|
00002110: A0 35 00 1A 29 1B 32 A0  31 35 00 24 29 1D 32 89  |.5..).2.15.$).2.|
00002120: 38 37 38 31 00 31 29 20  32 9F 31 35 2C 38 2C 31  |8781.1) 2.15,8,1|
00002130: 35 00 41 29 25 32 9F 31  2C 38 2C 30 2C 22 24 30  |5.A)%2.1,8,0,"$0|
00002140: 22 00 4A 29 2D 32 99 22  93 22 00 55 29 30 32 8D  |".J)-2.".".U)02.|
00002150: 31 32 37 31 33 00 61 29  33 32 A1 23 31 2C 41 31  |12713.a)32.#1,A1|
00002160: 24 00 6D 29 38 32 A1 23  31 2C 41 32 24 00 79 29  |$.m)82.#1,A2$.y)|
00002170: 3D 32 A1 23 31 2C 41 31  24 00 85 29 42 32 A1 23  |=2.#1,A1$..)B2.#|
00002180: 31 2C 41 32 24 00 91 29  47 32 A1 23 31 2C 41 31  |1,A2$..)G2.#1,A1|
00002190: 24 00 9D 29 4C 32 A1 23  31 2C 41 32 24 00 B7 29  |$..)L2.#1,A2$..)|
000021A0: 51 32 8B 28 41 31 24 B3  B1 22 22 29 A7 3A 41 30  |Q2.(A1$.."").:A0|
000021B0: B2 C6 28 41 31 24 29 00  DC 29 5C 32 8B 28 41 32  |..(A1$)..)\2.(A2|
000021C0: 24 B3 B1 22 22 29 A7 3A  41 30 B2 28 41 30 AA 28  |$.."").:A0.(A0.(|
000021D0: C6 28 41 32 24 29 AC 32  35 36 29 29 00 F1 29 6E  |.(A2$).256))..)n|
000021E0: 32 99 CA 28 C4 28 41 30  29 2C 32 2C 32 35 35 29  |2..(.(A0),2,255)|
000021F0: 3B 00 FA 29 76 32 99 A3  33 29 00 06 2A 78 32 A1  |;..)v2..3)..*x2.|
00002200: 23 31 2C 41 32 24 00 19  2A 7D 32 8B 28 53 54 B3  |#1,A2$..*}2.(ST.|
00002210: B1 30 29 A7 31 33 30 32  34 00 31 2A 83 32 8B 28  |.0).13024.1*.2.(|
00002220: 41 32 24 B3 B1 C7 28 33  34 29 29 A7 31 32 39 32  |A2$...(34)).1292|
00002230: 30 00 3D 2A 8C 32 A1 23  31 2C 41 32 24 00 69 2A  |0.=*.2.#1,A2$.i*|
00002240: 91 32 8B 28 41 32 24 B3  B1 C7 28 33 34 29 29 A7  |.2.(A2$...(34)).|
00002250: 3A 99 22 12 22 3B 3A 99  41 32 24 3B 3A 99 22 92  |:.".";:.A2$;:.".|
00002260: 22 3B 3A 89 31 32 39 34  30 00 75 2A A5 32 A1 23  |";:.12940.u*.2.#|
00002270: 31 2C 41 32 24 00 8C 2A  AA 32 8B 28 41 32 24 B2  |1,A2$..*.2.(A2$.|
00002280: C7 28 33 32 29 29 A7 31  32 39 36 35 00 96 2A B3  |.(32)).12965..*.|
00002290: 32 99 A3 32 30 29 00 A1  2A B5 32 41 33 24 B2 22  |2..20)..*.2A3$."|
000022A0: 22 00 B3 2A B8 32 41 33  24 B2 28 41 33 24 AA 41  |"..*.2A3$.(A3$.A|
000022B0: 32 24 29 00 BF 2A BF 32  A1 23 31 2C 41 32 24 00  |2$)..*.2.#1,A2$.|
000022C0: D4 2A C4 32 8B 28 41 32  24 B3 B1 22 22 29 A7 31  |.*.2.(A2$.."").1|
000022D0: 32 39 38 34 00 E2 2A CB  32 99 C8 28 41 33 24 2C  |2984..*.2..(A3$,|
000022E0: 33 29 00 EA 2A D0 32 A1  41 24 00 00 2B D2 32 8B  |3)..*.2.A$..+.2.|
000022F0: 28 41 24 B3 B1 22 22 29  A7 3A 8D 31 33 30 37 38  |(A$.."").:.13078|
00002300: 00 12 2B DA 32 8B 28 53  54 B2 30 29 A7 31 32 38  |..+.2.(ST.0).128|
00002310: 36 31 00 2A 2B E0 32 99  22 20 42 4C 4F 51 55 45  |61.*+.2." BLOQUE|
00002320: 53 20 4C 49 42 52 45 53  22 3B 00 33 2B F2 32 41  |S LIBRES";.3+.2A|
00002330: 30 B2 30 00 3A 2B F5 32  A0 31 00 42 2B F7 32 A0  |0.0.:+.2.1.B+.2.|
00002340: 31 35 00 4C 2B F9 32 99  A3 32 32 29 00 66 2B FB  |15.L+.2..22).f+.|
00002350: 32 99 22 41 50 52 49 45  54 45 20 55 4E 41 20 54  |2."APRIETE UNA T|
00002360: 45 43 4C 41 92 22 00 70  2B 10 33 8D 38 33 33 30  |ECLA.".p+.3.8330|
00002370: 00 7A 2B 13 33 89 38 37  38 31 00 84 2B 16 33 8D  |.z+.3.8781..+.3.|
00002380: 38 33 33 30 00 8A 2B 19  33 8E 00 90 2B 1A 33 80  |8330..+.3...+.3.|
00002390: 00 00 00 00                                       |....            |
.............53280,13.#....53281,11.,...
.".".6....8136.F....(X.0).8736.P.E..8781
.\.H.D$.G(0).G.K.MR$.D$.R.M.DR$.D$.Z.O.S
.0...Q.B1$.G(10)...T.PW.0...V.CW.0...X.B
$.G(32).....NC.0.....NL.0.B...PG.0.K...F
1.0.T...F2.0.....F3.0.....L$.D$.....RL.0
.....SB$.D$.....CR$.G(13).....HN$.D$....
.ID$.D$.)...A$.D$.3...C$.D$.<...T%.0.F..
.I$.D$.O...CK.0.W...I.0._.. J.0.G.. K.0.
O.. L.0.W.. M.0... N.0.... RW.5.... SF.
0.... Z.0.... E$."EOF".... ME.31000.... 
EN.0.G." EM$.D$.P.% ET.0.Y.( ES.0...+ A1
$.D$.... A2$.D$...1 A3$.D$...4 ....5 .F$
((F.1))...? .T%((F.1)).-.I .L%((F.1)).3.
S ..I.T .RE$((R.1),(F.1)).W.B .ML$(9,4).
C.J .PC(10).O.Q .TT$(5).{.X .HC$(9)... 
.K%((R.1)).... ..... .A$.... .(A$."").83
30.... ..E.. .(CK..0).:.12503.... ."..  
      COMIENZA BASE DE DATOS       "...E
 ....F .8136.6.I .".CUANTOS CAMPOS EN CA
DA REGISTRO? 0 ....";F.F.. .(F.0).8781.P
.. .8245.X..!I.1.C..!.I.I.F.|..!."......
CAMPO NRO ";....!.I....!.".TITULO?      
                       "...F!."LONGITUD?
                             ."...P!."..
...";...W!..6)...Y!.F$(I)...~!..8)....!.
L%(I)....!.I.$..!J.0./..!.J.J.F.A..!RL.(
RL.L%(J)).H..!.J.B..!RL.((RL.(3.(F.1))).
5)....!R..((((ME.(12.(F.1))).2100).RL)).
...!.".SU ELECCION PERMITIRA APROXIMADAM
ENTE"....!.R;....!."REGISTROS.  .A.CEPTA
 O .R.ECHAZA?"....".8330....".(A$."R").8
347.#..".(A$."A").:.8276:CK.1:.8781.-.."
.8709.\. "."..BASE DE DATOS   1985 POR E
LA COMP.   ".F.J".8825...M"."..         
      MENU                    ".H.Y".". 
 .C.REAR NUEVO ARCHIVO      .R.ETIRARSE"
....".".  .A.GREGAR REGISTROS         ".
..G".".  .M.ODIFICAR REGISTROS      ".D.
.".".  .B.ORRAR REGISTROS               
   ".H..#.".  .L.EER ARCHIVOS DEL DISCO"
...1#.".  .I.MPRIMIR REGISTROS SELECCION
ADOS"...Y#.".  .V.ER ARCHIVOS EN PANTALL
A"...Y#.".  .O.RDENAR REGISTROS POR CAMP
O"....#.".  .G.RABAR ARCHIVO EN DISCO".:
..#.".  .F.ORMATEAR DISCO          .$. D
IRECTORIO".K..#."..       APRIETE LA TEC
LA DESEADA        "...$."   EXISTEN ";.
..$$.X;...&$."REGISTROS EN MEMORIA"...=$
.(R.0).:." QUEDA ESPACIO PARA ";:.(R.X);
:."REGISTROS."...L$.8330...O$.(A$."A").:
.11987:.9449.!.{$.(A$."M").:.11987:.1091
2.>..$.(A$."B").:.11987:.11201.Q..$.(A$.
"C").8339.E..$.(A$."L").10092....$.(A$."
I").:.12035:.12046....$.(A$."V").:.11987
:.10341....$.(A$."G").:.11987:.9696.X.E$
.(A$."O").:.11987:.11554...Q$.(A$."R").1
1925...X$.(A$."F").12599....$.(A$."$").1
2832....$.9324.*..$I.(X.1).5..$.I.I.R.B.
.$."..APRIETE .RETURN. PARA ENTRAR DATOS
."....%."APRIETE .RETURN. SIN DATOS, PAR
A TERMINAR.."...H%.".REGISTRO NRO ";...Y
%.I;...[%.".".E.^%N.1.P.`%.N.N.F...E%.F$
(N);...I%."   >...";...R%.RE$(I,N)...X%.
(RE$(I,N)."").:RE$(I,N).">".A..%.(C(RE$(
I,N)).L%(N)).:.9659:.9573.I..%.(RE$(I,1)
.">").:X.(I.1):CK.1:.8781.P..%.N.|..%K%(
I).I....%.I....%X.R....%CK.1....%.8781..
..%."NO EXCEDER LOS.";.B.M%.L%(N);.U.Q%.
" CARACTERES"....%.....%."..ENTRE EL NOM
BRE DEL ARCHIVO A GRABAR  ".:..&."(MAX:1
2 CARACTERES).  TODO ARCHIVO     ".G.5&.
"CON EL MISMO NOMBRE SERA ELIMINADO...".
R.]&."  ";.{.A&.NF$...D&."..";NF$...L&.(
NF$."").8781...S&.15,8,15...X&.15,;...Z&
.15,(("S0:BD] ".H(NF$,6))."!VIEJO")....&
.12713....&.15,;.#..&.15,((("R0:BD] ".H(
NF$,6))."!VIEJO=BD] ").NF$)....&.12713.Q
..&.5,8,5,(("0:BD] ".NF$).",S,W").\.L&.1
2713.E.O&.5,;.M.Q&.R;.W.T&.CR$;..V&.F;.
..Y&.CR$;....&.5,X....&.12713....&N.1...
.&.N.N.F....&.5,;.E..&.F$(N);.O..&.CR$;.
...&.5,L%(N)....&.N....&I.1....&.I.I.X..
..&.".GRABANDO REGISTRO NRO";....'.I;.'.
.'.".."./..'N.1.:..'.N.N.F.C."'.5,;.S.$'
.5,RE$(I,N).Z.)'.N.E.,'.12713.L./'.I.R.2
'..Z.3'I.1...5'.I.I.X...9'.".SAVING POIN
TERS";...L'.I;...N'.".."...R'.5,;.F.T'.5
,K%(I).M.X'.I.X.['.12713...^'.5,;...`'.5
,E$...C' 5...E' 15...G'CK.0...I'.8781.".
L'.(CK..0).:.12503.(.T'..2.U'.8136._.X'.
"..ENTRE NOMBRE DEL ARCHIVO A CARGAR..".
H. '.NF$.U..'.15,8,15....'.5,8,5,(("0:BD
] ".NF$).",S,R")....'.12713...A'.5,R,F,X
...L'.12713.E.O'.8245.O.R'.8276.W.U'N.1.
..W'.N.N.F....'.5,F$(N),L%(N)....'.N....
'I.1....'.I.I.X.-..'.".LEYENDO REGISTRO 
NRO";.5..(.I;.?..(."..".G..(N.1.R..(.N.N
.F.B..(.5,RE$(I,N).I..(.N.T..(.12713.{.!
(.I...$(....%(I.1...'(.I.I.X...+(.".LEYE
NDO PUNTEROS";...?(.I;...A(."..".M.E(.5,
K%(I).T.K(.I...N(.12713...Q(S.ST...S(.(S
..0).10334...Y(.5,E$...^( 5...`( 15...B(
.8781.%.E(I.1.5.G(.(I.0).8781.E.M(.(I.X)
.8781._.S(."....REGISTRO NRO.";.G..(.I;.
}..(." .EN ARCHIVO ";....(.NF$;....(."..
"... (N.1....(.N.N.F....(.F$(N);....(.":
 .";.N..(.RE$(K%(I),N).U..(.N....(.". .P
.ROXIMO, .A.NTERIOR, .S.ALTAR, .B.USCAR,
 .M.ENU"....(.8330.8..(.(A$."P").:I.(I.1
):.10343.V..).(A$."A").:I.(I.1):.10343.J
..).(A$."S").10533.~..).(A$."B").10565..
..).(A$."M").8781...").10480...%).".SALT
AR A REGISTRO NRO";I.G.B).10343...E).". 
 .BUSCAR REGISTROS CON ITEMS COMUNES."..
.O)N.1...Q).N.N.F...V)." .";...Z).N;.'.|
).". ";.2..).F$(N).9..).N.I..).".QUE CAM
PO DESEA INVESTIGARSE? 0 ....";SF.Z..).(
SF.0).8781....).((SF.1).(SF.F)).:."...."
:.10631...O).".ENTRE .ITEM COMUN. "....)
.".(NO SE REQUIERE TODA LA PALABRA)"....
*."..";....*.F$(SF);....*.". ";....*.T$.
...*I.1."..*.I.I.X.=.!*.".BUSCANDO REGIS
TRO";.E.6*.I;.O.8*."..".V.<*.(T$.H(RE$(K
%(I),SF),C(T$))).10832...M*.10906...P*."
. REGISTRO NRO";. .A*.I;...C*."."...F*N.
1...H*.N.N.F.H.M*.F$(N);.T.Q*.": .";...V
*.RE$(K%(I),N)...}*.N....*.". .P.ROXIMO 
REGISTRO"....*.8330....*.I.$..*.8781.U. 
*."..QUE REGISTRO? ENTRE EL.NRO. O .T.OD
OS..".^.L*.MR$.Q.O*.(MR$.D$).8781...U*.(
MR$."T").:MR$.D$:.10998....*I.E(MR$)....
*MR$.D$.A..*.(I.X).:.11961:.10912.L..*.1
1013.V..*.8781....*I.1....*.I.I.X....*.1
1013....*.I....+.8781.-..+.".   .MODIFIQ
UE EL REGISTRO NRO ";.5.'+.I;.D.)+." CUA
NDO".W.2+."APARECE CADA CAMPO, LUEGO APR
IETE .RETURN.."..`+N.1...B+.N.N.F...G+.
F$(N);...K+.":"...N+."   .";...T+.RE$(K%
(I),N)...{+.(C(RE$(K%(I),N)).36).:.".";.
...+.". ";....+.RE$(K%(I),N).'..+.(C(RE$
(K%(I),N)).L%(N)).:.9659:.11104.P..+.(RE
$(K%(I),N)."").:RE$(K%(I),N).">".W..+.N.
`..+CK.1.F..+....A+."..BORRAR QUE REGIST
RO? ENTRE .NRO. O .T.ODOS.."....+.DR$...
.+.(DR$.D$).8781.V..+.(DR$."T").:DR$.D$:
.11292....,I.E(DR$)....,DR$.D$....,.(I.X
).:.11961:.11250....,.11307....,.8781.%.
.,I.1.0..,.I.I.X.;.",.11307.B.%,.I.L.(,.
8781.N.+,."..PARA BORRAR REG. NUMERO";.V
.G,.I;...I,.", APRIETE"...U,." .SHIFT. .
B. Y LUEGO LA .BARRA ESPACIADORA..".C..,
N.1.N..,.N.N.F.Z..,.F$(N);....,."   .";.
...,.RE$(K%(I),N).. .,.N.. .,.8330.. .,.
(A$."B").11436.' .,CK.1.- .,..I .,."..BO
RRANDO REGISTRO";.P B,.I.Y D,."..RECORDS
 MAY NOW BE OUT OF ORDER".. .,N.1.. .,.N
.N.F.. .,RE$(K%(I),N).RE$(X,N).. .,RE$(X
,N)."".. .,.N.E .-J.1.P .-.J.J.X..!.-.(K
%(J).X).:K%(J).K%(X):K%(X).0:X.(X.1):.11
433..!.-.J.=!"-."... REGISTROS ORDENADOS
 EN ORDEN ASCENDENTE".E!P-N.1.P!R-.N.N.F
.[!W-." .";.C![-.N;.N!]-.". ";.Y!A-.F$(N
)..!E-.N..!H-.".QUE CAMPO DESEA ORDENARS
E ? 0 ....";SF..!.-.(SF.0).8781.Z!.-.(SF
.F).:."...":.11624..!.-.". .ESPERE, POR 
FAVOR..".."A-M.X.."C-M..((M.2)).&"H-.(M.
0).:CK.1:.8781.."R-J.1.:"T-K.(X.M).B"X-I
.J.N"Z-L.(I.M).L".-."ORDENANDO       ...
..";.T".-.I;.}".-."."..".-.(RE$(K%(I),SF
)..RE$(K%(L),SF)).11817.."..T%(N).K%(I).
G"..K%(I).K%(L).W"..K%(L).T%(N).."..I.(I
.M).."#..(I.0).11738..#).J.(J.1)..#-..(J
.K).11715..#3..11736.G#6.."... .NO QUIER
E GRABAR LOS CAMBIOS ?".X#\..".. DESEA R
EALMENTE RETIRARSE ? .S. OR .N."..#...83
30..#...(A$."S").11931. #...8781..#...(C
K..0).11830.U#..."...BASE DE DATOS TERMI
NADA"..#.....#..." NO EXISTEN REGISTROS 
"..#R....$S..(R.0)....$X..".. SIN ARCHIV
OS EN MEMORIA".6$..I.1.D$...I.I.1000.K$.
..I.U$./.8781.N$./.(X.1).:.11992:.8781. 
$./.". .      MENU PRINCIPAL DE IMPRESIO
N      ".F$;/."..  IMPRIMIR REGISTROS US
ANDO:"..$\/.".      .I.NFORMES Y LISTAS"
..%Y/.".      .E.TIQUETAS DE CORREO".5%.
/.".      .S.UBPROGRAMAS DEL USUARIO".T%
./.".      .M.ENU PRINCIPAL"..%V/.". .  
    APRIETE LA TECLA DESEADA       "..%.
0.8330..%.0.(A$."I").12385..%.0.(A$."M")
.8781.I%.0.(A$."S").12447..%.0.(A$."E").
12323..% 0.12289..&#0."....   CARGANDO E
L SUBPROGRAMA DE ETIQUETAS".0&Q0."BDETIQ
UETAS",8.D&A0."....CARGANDO SUBPROGRAMA 
DE INFORMES/ LISTAS".X&.0."BDINFORMES",8
. &.0."....ENTRE NOMBRE DEL SUBPROGRAMA"
..&B0.".";..&E0.SB$..&G0.".";SB$.T&M0.(S
B$.D$).12046..&S0.SB$,8..'W0.".. .ESTO D
ESTRUIRA EL ARCHIVO EN MEMORIA!".>'.1.".
.GRABA EL ARCHIVO PRIMERO? .S. OR .N.".H
',1.8330.X'/1.(A$."N")...B'41.8781..'71.
".. ESTA SEGURO ? .S. OR .N."..'U1.8330.
.'X1.(A$."N").8781..'_1.(A$.."S").8781..
'F1.". .NOMBRE DEL DISCO ,ID.";HN$,ID$..
'.1.(HN$.D$).8781..'.1.15,8,15..(.1.15,;
.*(.1.15,((("NEW0:".HN$).",").ID$).5(.1.
12713.=(.1 15.G(.1.8781.\(.1.15,EN,EM$,E
T,ES.U(.1.((EN.20).(EN.62))....(B1."..ER
ROR DE DISCO.";..(V1.EN;..(Y1."., ";..(.
1.EM$;..(.1.",";.A(.1.ET;.L(.1.".,";.T(.
1.ES..).1.".APRIETE .UNA TECLA. Y VUELVE
 AL MENU"..).2.8330..).2 5..).2 15.$).2.
8781.1) 2.15,8,15.A)%2.1,8,0,"$0".J)-2."
.".U)02.12713.A)32.#1,A1$.M)82.#1,A2$.Y)
=2.#1,A1$..)B2.#1,A2$..)G2.#1,A1$..)L2.#
1,A2$..)Q2.(A1$.."").:A0.F(A1$)..)\2.(A2
$.."").:A0.(A0.(F(A2$).256))..)N2.J(D(A0
),2,255);..)V2..3)..*X2.#1,A2$..*}2.(ST.
.0).13024.1*.2.(A2$..G(34)).12920.=*.2.#
1,A2$.I*.2.(A2$..G(34)).:.".";:.A2$;:.".
";:.12940.U*.2.#1,A2$..*.2.(A2$.G(32)).1
2965..*.2..20)..*.2A3$.""..*.2A3$.(A3$.A
2$)..*.2.#1,A2$.T*D2.(A2$.."").12984..*K
2.H(A3$,3)..*P2.A$..+R2.(A$.."").:.13078
..+Z2.(ST.0).12861.*+.2." BLOQUES LIBRES
";.3+.2A0.0.:+.2 1.B+.2 15.L+.2..22).F+.
2."APRIETE UNA TECLA.".P+.3.8330.Z+.3.87
81..+.3.8330..+.3...+.3.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL