BASE DE DATOS
FILE INFORMATION
FILENAME(S): BASE DE DATOS
FILE TYPE(S): PRG
FILE SIZE: 13.2K
FIRST SEEN: 2025-10-19 23:07:13
APPEARS ON: 1 disk(s)
FILE HASH
d5ebb20617512e86143bf7f6d75f1b2d844d0eef3bb758f07e73a885c0ddd2a1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROCES TEXTOS | BASE DE DATOS | PRG | Bugjam - Argentina | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 01 00 8F 2A 2A 44 46 4D 20 42 59 2A |.......**DFM BY*|
00000010: 49 4E 44 45 53 43 4F 4D 50 2A 53 4F 46 54 57 41 |INDESCOMP*SOFTWA|
00000020: 52 45 28 43 29 20 31 35 2E 30 37 2E 38 33 00 5C |RE(C) 15.07.83.\|
00000030: 08 64 00 58 B2 30 3A 59 B2 30 3A 52 B2 30 3A 43 |.d.X.0:Y.0:R.0:C|
00000040: B2 30 3A 49 50 24 B2 22 22 3A 4B 24 B2 22 22 3A |.0:IP$."":K$."":|
00000050: 45 4D 24 B2 22 22 3A 4E 24 B2 22 22 00 66 08 B4 |EM$."":N$."".f..|
00000060: 00 8D 34 34 36 30 00 85 08 BE 00 41 24 28 52 2C |..4460.....A$(R,|
00000070: 43 29 B2 22 22 3A 4D B2 33 31 37 34 33 3A 46 B2 |C)."":M.31743:F.|
00000080: 30 3A 53 B2 30 00 91 08 C8 00 99 C7 28 31 34 37 |0:S.0.......(147|
00000090: 29 00 9B 08 D2 00 8D 33 36 37 30 00 C9 08 DC 00 |)......3670.....|
000000A0: 99 3A 99 3A 99 22 20 20 20 20 20 4D 3D 20 4D 41 |.:.:." M= MA|
000000B0: 59 55 53 43 55 4C 41 53 20 20 20 4E 3D 20 4D 49 |YUSCULAS N= MI|
000000C0: 4E 55 53 43 55 4C 41 53 22 00 DE 08 E6 00 A1 20 |NUSCULAS"...... |
000000D0: 4B 24 3A 8B 20 4B 24 B2 22 22 A7 32 33 30 00 F8 |K$:. K$."".230..|
000000E0: 08 F0 00 8B 4B 24 B2 22 4D 22 A7 99 C7 28 31 34 |....K$."M"...(14|
000000F0: 32 29 20 3A 89 32 37 30 00 10 09 FA 00 8B 4B 24 |2) :.270......K$|
00000100: B2 22 4E 22 A7 99 C7 28 31 34 29 3A 89 32 37 30 |."N"...(14):.270|
00000110: 00 19 09 04 01 89 32 33 30 00 2B 09 0E 01 99 C7 |......230.+.....|
00000120: 28 31 34 37 29 3A 8D 33 36 37 30 00 31 09 18 01 |(147):.3670.1...|
00000130: 99 00 50 09 22 01 99 A3 39 29 22 4E 4F 4D 42 52 |..P."...9)"NOMBR|
00000140: 45 2D 46 49 43 48 45 52 4F 20 3D 20 22 3B 4E 24 |E-FICHERO = ";N$|
00000150: 00 80 09 2C 01 99 3A 99 A3 36 29 20 22 20 20 20 |...,..:..6) " |
00000160: 50 55 4C 53 45 20 4E 55 4D 45 52 4F 20 44 45 20 |PULSE NUMERO DE |
00000170: 4F 50 43 49 4F 4E 22 3A 99 3A 20 8D 32 37 32 30 |OPCION":.: .2720|
00000180: 00 AF 09 36 01 99 22 31 20 43 52 45 41 52 20 46 |...6.."1 CREAR F|
00000190: 49 43 48 45 52 4F 20 20 22 A3 32 30 29 22 32 20 |ICHERO ".20)"2 |
000001A0: 43 41 4D 42 49 41 52 20 4E 4F 4D 42 52 45 22 00 |CAMBIAR NOMBRE".|
000001B0: D9 09 40 01 99 22 33 20 42 55 53 43 41 52 20 20 |..@.."3 BUSCAR |
000001C0: 20 20 20 20 22 A3 32 30 29 22 34 20 53 45 4C 45 | ".20)"4 SELE|
000001D0: 43 43 43 49 4F 4E 41 52 22 00 0A 0A 4A 01 99 22 |CCCIONAR"...J.."|
000001E0: 35 20 43 41 52 47 41 52 2F 47 52 41 42 41 52 20 |5 CARGAR/GRABAR |
000001F0: 20 20 22 A3 32 30 29 22 36 20 53 41 4C 49 44 41 | ".20)"6 SALIDA|
00000200: 20 49 4D 50 52 45 53 4F 52 41 00 31 0A 54 01 99 | IMPRESORA.1.T..|
00000210: 22 37 20 4F 52 44 45 4E 41 52 20 20 22 A3 32 30 |"7 ORDENAR ".20|
00000220: 29 22 38 20 55 54 49 4C 49 44 41 44 45 53 22 3A |)"8 UTILIDADES":|
00000230: 99 00 5A 0A 5E 01 99 A3 31 31 29 20 20 20 20 22 |..Z.^...11) "|
00000240: 12 39 20 46 49 4E 2D 50 52 4F 47 52 41 4D 41 22 |.9 FIN-PROGRAMA"|
00000250: 20 3A 99 3A 20 8D 32 37 32 30 00 66 0A 68 01 97 | :.: .2720.f.h..|
00000260: 20 31 35 38 2C 30 00 7C 0A 72 01 A1 20 4B 24 3A | 158,0.|.r.. K$:|
00000270: 8B 20 4B 24 B2 22 22 A7 20 33 37 30 00 9A 0A 7C |. K$."". 370...||
00000280: 01 8B 20 C5 28 4B 24 29 B3 31 20 B0 20 C5 28 4B |.. .(K$).1 . .(K|
00000290: 24 29 B1 39 20 A7 20 33 37 30 00 D4 0A 86 01 91 |$).9 . 370......|
000002A0: 20 C5 28 4B 24 29 20 89 20 31 34 30 30 2C 39 30 | .(K$) . 1400,90|
000002B0: 30 2C 31 31 36 30 2C 32 30 32 30 2C 32 37 35 30 |0,1160,2020,2750|
000002C0: 2C 34 36 33 30 2C 34 34 32 30 2C 33 37 31 30 2C |,4630,4420,3710,|
000002D0: 33 36 34 30 00 DA 0A 90 01 3A 00 E5 0A 9A 01 8D |3640.....:......|
000002E0: 20 34 33 38 30 00 19 0B A4 01 8B 20 59 B2 30 20 | 4380...... Y.0 |
000002F0: A7 20 45 4D 24 B2 22 12 4E 4F 20 45 58 49 53 54 |. EM$.".NO EXIST|
00000300: 45 20 46 49 43 48 45 52 4F 20 21 92 22 3A 8D 20 |E FICHERO !.":. |
00000310: 32 36 35 30 3A 89 32 37 30 00 3E 0B AE 01 99 22 |2650:.270.>...."|
00000320: 50 55 4C 53 45 20 12 43 20 50 41 52 41 20 53 45 |PULSE .C PARA SE|
00000330: 47 55 49 52 20 42 55 53 43 41 4E 44 4F 22 00 50 |GUIR BUSCANDO".P|
00000340: 0B B8 01 99 22 4F 20 12 4D 92 3D 4D 45 4E 55 22 |...."O .M.=MENU"|
00000350: 00 64 0B C2 01 A1 20 4B 24 3A 8B 4B 24 B2 22 22 |.d.... K$:.K$.""|
00000360: A7 34 35 30 00 7B 0B CC 01 8B 4B 24 B2 22 43 22 |.450.{....K$."C"|
00000370: A7 8D 34 33 38 30 3A 89 34 39 30 00 8B 0B D6 01 |..4380:.490.....|
00000380: 8B 4B 24 B2 22 4D 22 A7 32 37 30 00 94 0B E0 01 |.K$."M".270.....|
00000390: 89 34 35 30 00 B1 0B EA 01 8D 37 39 30 30 3A 43 |.450......7900:C|
000003A0: 4F 4C B2 31 3A 4C 4E 45 B2 32 31 3A 8D 38 30 30 |OL.1:LNE.21:.800|
000003B0: 30 00 D7 0B F4 01 99 22 42 55 53 51 55 45 44 41 |0......"BUSQUEDA|
000003C0: 20 50 4F 52 20 43 4C 41 56 45 20 20 20 20 20 20 | POR CLAVE |
000003D0: 20 20 20 20 20 20 22 00 FD 0B FE 01 99 22 2D 2D | "......"--|
000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 1D 0C |------------"...|
00000400: 08 02 99 22 49 4E 54 52 4F 2E 20 22 22 12 22 41 |..."INTRO. ""."A|
00000410: 24 28 30 2C 31 29 22 92 22 22 3A 22 3B 00 2C 0C |$(0,1)"."":";.,.|
00000420: 12 02 8D 32 35 37 30 3A 89 35 39 30 00 36 0C 1C |...2570:.590.6..|
00000430: 02 8D 37 39 30 30 00 4D 0C 1E 02 43 4F 4C B2 31 |..7900.M...COL.1|
00000440: 3A 4C 4E 45 B2 32 31 3A 8D 38 30 30 30 00 76 0C |:LNE.21:.8000.v.|
00000450: 26 02 99 22 48 41 59 20 22 59 22 20 52 45 47 49 |&.."HAY "Y" REGI|
00000460: 53 54 52 4F 53 20 45 4E 20 45 53 54 45 20 46 49 |STROS EN ESTE FI|
00000470: 43 48 45 52 4F 22 00 9A 0C 30 02 99 22 51 55 45 |CHERO"...0.."QUE|
00000480: 20 4E 55 4D 45 52 4F 20 44 45 53 45 41 20 3F 2E | NUMERO DESEA ?.|
00000490: 3A 22 3B 3A 8D 20 32 35 37 30 00 C1 0C 3A 02 52 |:";:. 2570...:.R|
000004A0: B2 C5 28 49 50 24 29 3A 8B 20 52 B2 30 20 B0 20 |..(IP$):. R.0 . |
000004B0: 52 B1 59 20 A7 20 8D 34 33 38 30 3A 89 20 35 35 |R.Y . .4380:. 55|
000004C0: 30 00 CC 0C 44 02 89 20 31 31 36 35 00 D7 0C 4E |0...D.. 1165...N|
000004D0: 02 4C 24 B2 49 50 24 00 E3 0C 58 02 46 B2 C3 28 |.L$.IP$...X.F..(|
000004E0: 4C 24 29 00 F1 0C 62 02 81 20 52 B2 31 20 A4 20 |L$)...b.. R.1 . |
000004F0: 59 00 0B 0D 6C 02 8B 4C 24 B2 C8 28 41 24 28 52 |Y...l..L$..(A$(R|
00000500: 2C 31 29 2C 46 29 A7 31 31 36 35 00 11 0D 76 02 |,1),F).1165...v.|
00000510: 82 00 1B 0D 80 02 8D 34 33 38 30 00 3B 0D 8A 02 |.......4380.;...|
00000520: 99 22 12 4E 4F 20 45 58 49 53 54 45 20 45 4C 20 |.".NO EXISTE EL |
00000530: 52 45 47 49 53 54 52 4F 21 92 22 00 4E 0D 94 02 |REGISTRO!.".N...|
00000540: 81 20 5A B2 31 20 A4 20 31 30 30 30 3A 82 00 58 |. Z.1 . 1000:..X|
00000550: 0D 9E 02 89 20 34 31 30 00 5E 0D A8 02 3A 00 84 |.... 410.^...:..|
00000560: 0D B2 02 99 22 4E 55 4D 45 52 4F 20 44 45 20 4C |...."NUMERO DE L|
00000570: 49 4E 45 41 20 50 41 52 41 20 4D 4F 44 49 46 49 |INEA PARA MODIFI|
00000580: 43 41 52 22 00 A5 0D BC 02 99 22 50 55 4C 53 45 |CAR"......"PULSE|
00000590: 20 44 45 20 31 20 41 20 22 58 22 20 3A 22 3B 3A | DE 1 A "X" :";:|
000005A0: 8D 32 35 37 30 00 B3 0D C6 02 43 20 B2 C5 28 49 |.2570.....C ..(I|
000005B0: 50 24 29 00 BD 0D D0 02 8D 34 33 38 30 00 F6 0D |P$)......4380...|
000005C0: DA 02 99 22 44 41 54 4F 53 20 45 58 49 53 54 45 |..."DATOS EXISTE|
000005D0: 4E 54 45 53 20 20 22 22 12 22 41 24 28 30 2C 43 |NTES ""."A$(0,C|
000005E0: 29 22 92 22 22 20 3D 20 22 3A 99 20 22 12 22 41 |)"."" = ":. "."A|
000005F0: 24 28 52 2C 43 29 00 25 0E E4 02 99 22 44 41 54 |$(R,C).%...."DAT|
00000600: 4F 53 20 4E 55 45 56 4F 53 20 22 3B 3A 99 22 5B |OS NUEVOS ";:."[|
00000610: 22 3B 3A 8D 34 34 30 30 3A 99 C8 28 53 24 2C 41 |";:.4400:..(S$,A|
00000620: 28 43 29 29 3B 00 42 0E EE 02 99 22 5D 22 3B 3A |(C));.B...."]";:|
00000630: 99 C8 28 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D |..(T$,A(C));:.".|
00000640: 22 3B 00 5B 0E F8 02 8D 20 32 35 37 30 3A 41 24 |";.[.... 2570:A$|
00000650: 28 52 2C 43 29 B2 49 50 24 3A 99 00 89 0E 02 03 |(R,C).IP$:......|
00000660: 8B 20 C3 28 41 24 28 52 2C 43 29 29 B1 41 28 43 |. .(A$(R,C)).A(C|
00000670: 29 A7 41 24 28 52 2C 43 29 B2 C8 28 41 24 28 52 |).A$(R,C)..(A$(R|
00000680: 2C 43 29 2C 41 28 43 29 29 00 91 0E 0C 03 43 B2 |,C),A(C)).....C.|
00000690: 32 00 9B 0E 16 03 89 31 31 36 35 00 A6 0E 20 03 |2......1165... .|
000006A0: 8D 20 32 37 32 30 00 CD 0E 2A 03 99 22 4E 55 4D |. 2720...*.."NUM|
000006B0: 45 52 4F 20 44 45 20 4C 49 4E 45 41 20 50 41 52 |ERO DE LINEA PAR|
000006C0: 41 20 4D 4F 44 49 46 49 43 41 52 20 22 00 EF 0E |A MODIFICAR "...|
000006D0: 34 03 99 22 50 55 4C 53 45 20 44 45 20 31 20 41 |4.."PULSE DE 1 A|
000006E0: 20 22 58 22 20 3A 22 3B 3A 8D 32 35 37 30 3B 00 | "X" :";:.2570;.|
000006F0: FC 0E 3E 03 43 B2 C5 28 49 50 24 29 00 0C 0F 48 |..>.C..(IP$)...H|
00000700: 03 99 22 12 22 41 24 28 30 2C 43 29 00 49 0F 52 |.."."A$(0,C).I.R|
00000710: 03 99 22 49 4E 54 52 4F 44 55 5A 43 41 20 4E 55 |.."INTRODUZCA NU|
00000720: 45 56 4F 20 4E 4F 4D 42 52 45 20 5B 20 20 20 20 |EVO NOMBRE [ |
00000730: 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ]..........|
00000740: 22 3B 3A 8D 20 32 35 37 30 00 5B 0F 5C 03 41 24 |";:. 2570.[.\.A$|
00000750: 28 30 2C 43 29 B2 49 50 24 3A 99 00 87 0F 66 03 |(0,C).IP$:....f.|
00000760: 8B 20 C3 28 41 24 28 30 2C 43 29 29 B3 39 A7 41 |. .(A$(0,C)).9.A|
00000770: 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 AA 22 |$(0,C).A$(0,C)."|
00000780: 20 22 3A 89 38 37 30 00 AF 0F 70 03 8B 20 C3 28 | ":.870...p.. .(|
00000790: 41 24 28 30 2C 43 29 29 B1 39 A7 41 24 28 30 2C |A$(0,C)).9.A$(0,|
000007A0: 43 29 B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 00 |C)..(A$(0,C),9).|
000007B0: B9 0F 7A 03 89 31 31 36 35 00 EA 0F 84 03 99 22 |..z..1165......"|
000007C0: 4E 55 45 56 4F 20 4E 4F 4D 42 52 45 20 46 49 43 |NUEVO NOMBRE FIC|
000007D0: 48 45 52 4F 20 5B 20 20 20 20 20 20 20 20 5D 9D |HERO [ ].|
000007E0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 00 10 8E 03 8D |........";......|
000007F0: 32 35 37 30 3A 4E 24 B2 49 50 24 3A 89 32 37 30 |2570:N$.IP$:.270|
00000800: 00 32 10 98 03 8D 37 39 30 30 3A 43 4F 4C B2 31 |.2....7900:COL.1|
00000810: 3A 4C 4E 45 B2 32 31 3A 8D 38 30 30 30 3A 99 22 |:LNE.21:.8000:."|
00000820: 44 45 53 45 41 20 4D 4F 44 49 46 49 43 41 52 3A |DESEA MODIFICAR:|
00000830: 2D 22 00 50 10 A2 03 99 22 12 48 3A 43 41 42 45 |-".P....".H:CABE|
00000840: 43 45 52 41 20 4F 20 12 44 3A 44 41 54 4F 53 22 |CERA O .D:DATOS"|
00000850: 00 63 10 AC 03 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |.c....K$:.K$."".|
00000860: 39 34 30 00 7A 10 B6 03 8B 4B 24 B2 22 48 22 A7 |940.z....K$."H".|
00000870: 8D 34 33 38 30 3A 89 38 31 30 00 91 10 C0 03 8B |.4380:.810......|
00000880: 4B 24 B2 22 44 22 A7 8D 34 33 38 30 3A 89 36 39 |K$."D"..4380:.69|
00000890: 30 00 9A 10 CA 03 89 39 34 30 00 AC 10 D4 03 99 |0......940......|
000008A0: C7 28 31 34 37 29 3A 8D 32 37 32 30 00 D1 10 DE |.(147):.2720....|
000008B0: 03 99 20 A3 39 29 22 20 2A 46 49 43 48 45 52 4F |.. .9)" *FICHERO|
000008C0: 20 45 4E 20 53 43 52 4F 4C 4C 2A 20 22 3A 99 3A | EN SCROLL* ":.:|
000008D0: 99 00 DC 10 E8 03 8D 20 32 37 32 30 00 EF 10 F2 |....... 2720....|
000008E0: 03 81 20 5A B2 31 20 A4 20 32 30 30 30 3A 82 00 |.. Z.1 . 2000:..|
000008F0: 1A 11 FC 03 99 C7 28 31 34 37 29 3A 99 22 4E 4F |......(147):."NO|
00000900: 4D 42 52 45 2E 2E 2E 3D 22 20 20 A3 31 35 29 22 |MBRE...=" .15)"|
00000910: 12 22 3B 4E 24 22 92 22 3A 99 00 44 11 06 04 99 |.";N$".":..D....|
00000920: 22 20 20 20 20 20 20 50 55 4C 53 45 20 12 53 50 |" PULSE .SP|
00000930: 41 43 45 20 50 41 52 41 92 20 46 49 4E 41 4C 49 |ACE PARA. FINALI|
00000940: 5A 41 52 22 00 4F 11 10 04 8D 20 32 37 32 30 00 |ZAR".O.... 2720.|
00000950: 5C 11 1A 04 81 20 52 B2 31 20 A4 59 00 69 11 24 |\.... R.1 .Y.i.$|
00000960: 04 81 20 43 B2 31 20 A4 58 00 92 11 2E 04 99 22 |.. C.1 .X......"|
00000970: 12 22 C8 28 41 24 28 30 2C 43 29 2C 39 29 22 92 |.".(A$(0,C),9)".|
00000980: 22 A3 31 32 29 C8 28 41 24 28 52 2C 43 29 2C 32 |".12).(A$(R,C),2|
00000990: 36 29 00 C9 11 38 04 8B 20 43 B2 31 20 A7 20 99 |6)...8.. C.1 . .|
000009A0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
000009B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000009C0: A3 A3 A3 A3 A3 A3 A3 A3 22 00 DB 11 42 04 81 20 |........"...B.. |
000009D0: 5A B2 31 20 A4 20 34 30 30 3A 82 00 E8 11 4C 04 |Z.1 . 400:....L.|
000009E0: 82 3A 8D 20 32 37 32 30 00 01 12 56 04 A1 20 4B |.:. 2720...V.. K|
000009F0: 24 3A 8B 20 4B 24 B2 22 20 22 20 A7 20 31 31 36 |$:. K$." " . 116|
00000A00: 35 00 07 12 60 04 82 00 19 12 6A 04 81 20 5A B2 |5...`.....j.. Z.|
00000A10: 31 20 A4 20 36 30 30 3A 82 00 28 12 74 04 52 B2 |1 . 600:..(.t.R.|
00000A20: 59 3A 89 20 31 31 36 35 00 3C 12 7E 04 99 C7 28 |Y:. 1165.<.~...(|
00000A30: 31 34 37 29 3A 99 3A 99 3A 99 3A 99 00 73 12 88 |147):.:.:.:..s..|
00000A40: 04 52 B2 31 3A 20 8B 20 59 B2 30 20 A7 20 45 4D |.R.1: . Y.0 . EM|
00000A50: 24 B2 22 12 4E 4F 20 45 58 49 53 54 45 20 46 49 |$.".NO EXISTE FI|
00000A60: 43 48 45 52 4F 20 92 22 3A 8D 32 36 35 30 3A 89 |CHERO .":.2650:.|
00000A70: 32 37 30 00 7B 12 8D 04 41 B2 31 00 88 12 92 04 |270.{...A.1.....|
00000A80: 8B 52 B2 30 A7 52 B2 31 00 9B 12 93 04 8B 52 B1 |.R.0.R.1......R.|
00000A90: 59 A7 52 B2 52 AB 31 3A 52 B2 59 00 A8 12 94 04 |Y.R.R.1:R.Y.....|
00000AA0: 8B 41 B2 30 A7 41 B2 31 00 B8 12 95 04 8B 41 B1 |.A.0.A.1......A.|
00000AB0: 32 35 A7 41 B2 41 AB 31 00 E9 12 97 04 99 C7 28 |25.A.A.1.......(|
00000AC0: 31 34 37 29 3A 99 22 12 22 3B 4E 24 20 A3 31 39 |147):.".";N$ .19|
00000AD0: 29 22 52 45 47 49 53 54 52 4F 20 4E 55 4D 2E 22 |)"REGISTRO NUM."|
00000AE0: 3B 52 3A 8D 20 32 37 32 30 00 F7 12 B0 04 81 20 |;R:. 2720...... |
00000AF0: 43 B2 31 20 A4 20 58 00 03 13 B5 04 47 47 B2 41 |C.1 . X.....GG.A|
00000B00: 28 43 29 00 14 13 B6 04 8B 47 47 B1 32 34 A7 47 |(C)......GG.24.G|
00000B10: 47 B2 32 34 00 25 13 BA 04 99 22 12 22 C4 28 43 |G.24.%....".".(C|
00000B20: 29 22 92 22 3B 00 53 13 BF 04 99 A3 34 29 22 12 |)".";.S.....4)".|
00000B30: 22 C8 28 41 24 28 30 2C 43 29 2C 39 29 22 92 22 |".(A$(0,C),9)"."|
00000B40: A3 31 35 29 CA 28 41 24 28 52 2C 43 29 2C 41 2C |.15).(A$(R,C),A,|
00000B50: 47 47 29 00 62 13 C0 04 8B 43 B2 31 A7 8D 32 37 |GG).b....C.1..27|
00000B60: 32 30 00 81 13 C4 04 82 3A 43 4F 4C B2 31 3A 4C |20......:COL.1:L|
00000B70: 4E 45 B2 32 30 3A 8D 38 30 30 30 3A 8D 32 37 33 |NE.20:.8000:.273|
00000B80: 30 00 9A 13 CE 04 99 A3 31 32 29 22 12 2A 2A 4F |0.......12)".**O|
00000B90: 50 43 49 4F 4E 45 53 2A 2A 22 00 D5 13 D8 04 99 |PCIONES**"......|
00000BA0: 22 50 55 4C 53 45 3A 12 4E 92 3D 20 2B 20 12 4C |"PULSE:.N.= + .L|
00000BB0: 92 3D 20 2D 20 12 46 92 3D 42 55 53 2E 12 47 92 |.= - .F.=BUS..G.|
00000BC0: 3D 52 45 47 20 12 41 92 4D 4F 44 49 46 20 12 4D |=REG .A.MODIF .M|
00000BD0: 92 45 4E 55 22 00 18 14 E2 04 99 22 12 43 92 41 |.ENU"......".C.A|
00000BE0: 4C 43 2E 20 12 49 92 3D 44 41 54 4F 53 20 12 44 |LC. .I.=DATOS .D|
00000BF0: 92 3D 42 4F 52 52 41 20 12 50 92 49 4D 50 52 2E |.=BORRA .P.IMPR.|
00000C00: 20 12 53 92 43 52 4F 4C 4C 20 12 3C 92 20 12 3E | .S.CROLL .<. .>|
00000C10: 22 3A 97 31 35 38 2C 30 00 22 14 EC 04 8D 32 37 |":.158,0."....27|
00000C20: 33 30 00 36 14 F6 04 A1 4B 24 3A 8B 4B 24 B2 22 |30.6....K$:.K$."|
00000C30: 22 A7 31 32 37 30 00 52 14 00 05 8B 20 4B 24 B2 |".1270.R.... K$.|
00000C40: 22 4E 22 20 A7 20 52 B2 52 AA 31 3A 89 20 31 31 |"N" . R.R.1:. 11|
00000C50: 36 35 00 6E 14 0A 05 8B 20 4B 24 B2 22 4C 22 20 |65.n.... K$."L" |
00000C60: A7 20 52 B2 52 AB 31 3A 89 20 31 31 36 35 00 81 |. R.R.1:. 1165..|
00000C70: 14 14 05 8B 20 4B 24 B2 22 4D 22 20 A7 20 32 37 |.... K$."M" . 27|
00000C80: 30 00 9A 14 1E 05 8B 20 4B 24 B2 22 49 22 20 A7 |0...... K$."I" .|
00000C90: 20 46 B2 31 3A 89 31 38 34 30 00 AB 14 28 05 8B | F.1:.1840...(..|
00000CA0: 20 4B 24 B2 22 47 22 A7 35 34 30 00 BC 14 32 05 | K$."G".540...2.|
00000CB0: 8B 20 4B 24 B2 22 46 22 A7 34 39 30 00 CD 14 3C |. K$."F".490...<|
00000CC0: 05 8B 20 4B 24 B2 22 53 22 A7 39 38 30 00 E5 14 |.. K$."S".980...|
00000CD0: 41 05 8B 4B 24 B2 22 3E 22 A7 41 B2 41 AA 31 3A |A..K$.">".A.A.1:|
00000CE0: 89 31 31 37 30 00 FD 14 42 05 8B 4B 24 B2 22 3C |.1170...B..K$."<|
00000CF0: 22 A7 41 B2 41 AB 31 3A 89 31 31 37 30 00 0E 15 |".A.A.1:.1170...|
00000D00: 46 05 8B 20 4B 24 B2 22 41 22 A7 39 32 30 00 20 |F.. K$."A".920. |
00000D10: 15 50 05 8B 20 4B 24 B2 22 50 22 A7 33 39 33 30 |.P.. K$."P".3930|
00000D20: 00 32 15 5A 05 8B 20 4B 24 B2 22 43 22 A7 34 30 |.2.Z.. K$."C".40|
00000D30: 30 30 00 43 15 5F 05 8B 4B 24 B2 22 44 22 A7 37 |00.C._..K$."D".7|
00000D40: 30 30 30 00 4D 15 64 05 89 31 32 37 30 00 53 15 |000.M.d..1270.S.|
00000D50: 6E 05 3A 00 8E 15 78 05 99 20 C7 28 31 34 37 29 |n.:...x.. .(147)|
00000D60: 3A 99 3A 99 22 12 2A 2A 43 55 49 44 41 44 4F 2A |:.:.".**CUIDADO*|
00000D70: 2A 20 50 55 45 44 45 20 42 4F 52 52 41 52 20 45 |* PUEDE BORRAR E|
00000D80: 4C 20 46 49 43 48 45 52 4F 20 20 20 20 22 00 B8 |L FICHERO "..|
00000D90: 15 82 05 99 22 20 20 20 20 20 20 20 20 20 20 12 |...." .|
00000DA0: 44 45 20 4C 41 20 4D 45 4D 4F 52 49 41 20 92 22 |DE LA MEMORIA ."|
00000DB0: 3A 99 3A 99 3A 99 3A 99 00 DD 15 8C 05 99 20 A3 |:.:.:.:....... .|
00000DC0: 38 29 20 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |8) "............|
00000DD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 03 16 |............"...|
00000DE0: 96 05 99 20 A3 38 29 22 50 55 4C 53 45 20 53 28 |... .8)"PULSE S(|
00000DF0: 53 49 29 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 |SI) PARA CONTINU|
00000E00: 41 52 22 00 2A 16 A0 05 99 20 A3 38 29 22 20 20 |AR".*.... .8)" |
00000E10: 20 20 20 20 4E 28 4E 4F 29 20 59 20 4D 45 4E 55 | N(NO) Y MENU|
00000E20: 20 20 22 3A 97 31 35 38 2C 30 00 4F 16 AA 05 99 | ":.158,0.O....|
00000E30: 20 A3 38 29 20 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | .8) "..........|
00000E40: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |..............".|
00000E50: 66 16 B4 05 A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 |f.... K$:. K$.""|
00000E60: A7 20 31 34 36 30 00 79 16 BE 05 8B 20 4B 24 B2 |. 1460.y.... K$.|
00000E70: 22 4E 22 20 A7 20 32 37 30 00 8D 16 C8 05 8B 20 |"N" . 270...... |
00000E80: 4B 24 B2 22 53 22 20 A7 20 31 35 30 30 00 98 16 |K$."S" . 1500...|
00000E90: D2 05 89 20 31 34 36 30 00 AD 16 DC 05 99 20 C7 |... 1460...... .|
00000EA0: 28 31 34 37 29 3A 9C 3A 8D 34 34 36 30 00 D2 16 |(147):.:.4460...|
00000EB0: E6 05 99 22 49 4E 54 52 4F 44 55 5A 43 41 20 46 |..."INTRODUZCA F|
00000EC0: 45 43 48 41 2D 48 4F 59 20 3A 22 3B 3A 8D 32 35 |ECHA-HOY :";:.25|
00000ED0: 37 30 00 E5 16 F0 05 4D 24 B2 49 50 24 3A 99 C7 |70.....M$.IP$:..|
00000EE0: 28 31 34 37 29 00 05 17 FA 05 99 20 A3 31 32 29 |(147)...... .12)|
00000EF0: 22 12 43 52 45 41 4E 44 4F 20 46 49 43 48 45 52 |".CREANDO FICHER|
00000F00: 4F 92 22 3A 99 00 10 17 04 06 8D 20 32 37 32 30 |O.":....... 2720|
00000F10: 00 47 17 0E 06 99 22 43 55 41 4C 20 45 53 20 45 |.G...."CUAL ES E|
00000F20: 4C 20 4E 4F 4D 42 52 45 2D 46 49 43 48 45 52 4F |L NOMBRE-FICHERO|
00000F30: 20 3F 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D | ?[ ]....|
00000F40: 9D 9D 9D 9D 9D 22 3B 00 51 17 18 06 8D 32 35 37 |.....";.Q....257|
00000F50: 30 00 63 17 22 06 4E 24 B2 C8 28 49 50 24 2C 38 |0.c.".N$..(IP$,8|
00000F60: 29 3A 99 00 6E 17 2C 06 8D 20 32 37 32 30 00 A2 |):..n.,.. 2720..|
00000F70: 17 36 06 99 22 43 55 41 4E 54 4F 53 20 43 41 4D |.6.."CUANTOS CAM|
00000F80: 50 4F 53 20 50 4F 52 20 52 45 47 49 53 54 52 4F |POS POR REGISTRO|
00000F90: 20 3F 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D 20 32 35 | ?[ ]...";:. 25|
00000FA0: 37 30 00 B6 17 40 06 58 B2 C5 28 C8 28 49 50 24 |70...@.X..(.(IP$|
00000FB0: 2C 32 29 29 3A 99 00 E5 17 4A 06 8B 20 58 B3 31 |,2)):....J.. X.1|
00000FC0: 20 B0 20 58 B1 31 35 20 A7 20 99 22 12 45 4C 20 | . X.15 . .".EL |
00000FD0: 4D 41 58 49 4D 4F 20 45 53 20 31 35 92 22 3A 89 |MAXIMO ES 15.":.|
00000FE0: 20 31 35 39 30 00 F6 17 54 06 99 20 C7 28 31 34 | 1590...T.. .(14|
00000FF0: 37 29 3A 43 B2 31 00 1D 18 5E 06 99 22 12 45 4C |7):C.1...^..".EL|
00001000: 20 46 49 43 48 45 52 4F 20 53 45 20 4C 4C 41 4D | FICHERO SE LLAM|
00001010: 41 20 22 3B 4E 24 3A 8D 20 32 37 32 30 00 4E 18 |A ";N$:. 2720.N.|
00001020: 68 06 99 22 4E 4F 54 41 3A 20 45 53 54 45 20 43 |h.."NOTA: ESTE C|
00001030: 41 4D 50 4F 20 31 20 45 53 20 45 4C 20 12 20 43 |AMPO 1 ES EL . C|
00001040: 20 4C 20 41 20 56 20 45 20 92 A0 22 3A 99 00 59 | L A V E ..":..Y|
00001050: 18 72 06 8D 20 32 37 32 30 00 5F 18 7C 06 3A 00 |.r.. 2720._.|.:.|
00001060: 94 18 86 06 99 22 54 49 54 55 4C 4F 20 44 45 4C |....."TITULO DEL|
00001070: 20 12 43 41 4D 50 4F 92 22 43 22 20 20 5B 20 20 | .CAMPO."C" [ |
00001080: 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D | ]........|
00001090: 9D 9D 22 3B 00 A1 18 90 06 8D 20 32 35 37 30 3A |..";...... 2570:|
000010A0: 99 00 B6 18 9A 06 41 24 28 30 2C 43 29 B2 C8 28 |......A$(0,C)..(|
000010B0: 49 50 24 2C 39 29 00 E3 18 A4 06 8B 20 C3 28 41 |IP$,9)...... .(A|
000010C0: 24 28 30 2C 43 29 29 B3 39 A7 41 24 28 30 2C 43 |$(0,C)).9.A$(0,C|
000010D0: 29 B2 41 24 28 30 2C 43 29 AA 22 20 22 3A 89 31 |).A$(0,C)." ":.1|
000010E0: 37 30 30 00 11 19 AE 06 99 22 20 12 43 92 41 52 |700......" .C.AR|
000010F0: 41 43 54 45 52 45 53 20 4F 20 12 4E 92 55 4D 45 |ACTERES O .N.UME|
00001100: 52 4F 53 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 37 |ROS [ ]..";:.257|
00001110: 30 00 27 19 B8 06 41 41 24 28 43 29 B2 C8 28 49 |0.'...AA$(C)..(I|
00001120: 50 24 2C 31 29 3A 99 00 3C 19 C2 06 8B 41 41 24 |P$,1):..<....AA$|
00001130: 28 43 29 B2 22 4E 22 A7 31 37 35 30 00 51 19 CC |(C)."N".1750.Q..|
00001140: 06 8B 41 41 24 28 43 29 B2 22 43 22 A7 31 37 38 |..AA$(C)."C".178|
00001150: 30 00 61 19 D1 06 8D 34 33 38 30 3A 89 31 37 31 |0.a....4380:.171|
00001160: 30 00 8A 19 D6 06 99 22 4E 55 4D 45 52 4F 20 44 |0......"NUMERO D|
00001170: 45 20 43 41 52 41 43 54 45 52 45 53 20 44 45 4C |E CARACTERES DEL|
00001180: 20 52 45 47 49 53 54 52 4F 22 00 B0 19 E0 06 99 | REGISTRO"......|
00001190: 22 4D 41 58 2E 20 39 20 43 41 52 41 43 54 45 52 |"MAX. 9 CARACTER|
000011A0: 45 53 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 37 30 |ES [ ]..";:.2570|
000011B0: 00 C2 19 EA 06 41 28 43 29 B2 C5 28 49 50 24 29 |.....A(C)..(IP$)|
000011C0: 3A 99 00 E0 19 EF 06 8B 41 28 43 29 B1 39 A7 99 |:.......A(C).9..|
000011D0: 22 91 91 22 3A 8D 34 33 38 30 3A 89 31 37 35 30 |"..":.4380:.1750|
000011E0: 00 EA 19 F0 06 89 31 38 31 30 00 13 1A F4 06 99 |......1810......|
000011F0: 22 4E 55 4D 45 52 4F 20 44 45 20 43 41 52 41 43 |"NUMERO DE CARAC|
00001200: 54 45 52 45 53 20 44 45 4C 20 52 45 47 49 53 54 |TERES DEL REGIST|
00001210: 52 4F 22 00 3B 1A FE 06 99 22 4D 41 58 2E 33 36 |RO".;...."MAX.36|
00001220: 20 43 41 52 41 43 54 45 52 45 53 20 5B 20 20 5D | CARACTERES [ ]|
00001230: 9D 9D 9D 22 3B 3A 8D 32 35 37 30 00 4D 1A 08 07 |...";:.2570.M...|
00001240: 41 28 43 29 B2 C5 28 49 50 24 29 3A 99 00 6C 1A |A(C)..(IP$):..l.|
00001250: 0D 07 8B 41 28 43 29 B1 33 36 A7 99 22 91 91 22 |...A(C).36..".."|
00001260: 3A 8D 34 33 38 30 3A 89 31 37 38 30 00 7D 1A 12 |:.4380:.1780.}..|
00001270: 07 8B 20 43 B2 58 20 A7 20 31 38 34 30 00 8E 1A |.. C.X . 1840...|
00001280: 1C 07 43 B2 43 AA 31 3A 89 20 31 36 36 30 00 94 |..C.C.1:. 1660..|
00001290: 1A 26 07 3A 00 B3 1A 30 07 8B 20 46 B2 31 20 A7 |.&.:...0.. F.1 .|
000012A0: 20 52 B2 59 AA 31 3A 59 B2 59 AA 31 3A 89 20 31 | R.Y.1:Y.Y.1:. 1|
000012B0: 38 36 30 00 BF 1A 3A 07 52 B2 31 3A 59 B2 31 00 |860...:.R.1:Y.1.|
000012C0: EF 1A 44 07 99 20 C7 28 31 34 37 29 3A 99 20 A3 |..D.. .(147):. .|
000012D0: 31 32 29 22 12 52 45 47 49 53 54 52 4F 20 4E 55 |12)".REGISTRO NU|
000012E0: 4D 2E 22 3B 52 22 92 22 3A 8D 20 32 37 32 30 00 |M.";R".":. 2720.|
000012F0: 20 1B 4E 07 99 A3 32 29 22 50 41 52 41 20 46 49 | .N...2)"PARA FI|
00001300: 4E 41 4C 49 5A 41 52 20 45 4E 54 52 41 44 41 53 |NALIZAR ENTRADAS|
00001310: 20 54 45 43 4C 45 45 20 27 46 49 4E 27 22 3A 99 | TECLEE 'FIN'":.|
00001320: 00 2D 1B 62 07 8D 20 32 37 32 30 3A 99 00 3B 1B |.-.b.. 2720:..;.|
00001330: 6C 07 81 20 43 B2 31 20 A4 20 58 00 69 1B 76 07 |l.. C.1 . X.i.v.|
00001340: 99 22 43 41 4D 50 4F 20 22 41 24 28 30 2C 43 29 |."CAMPO "A$(0,C)|
00001350: 3A 99 22 5B 22 3B 3A 8D 34 34 30 30 3A 99 C8 28 |:."[";:.4400:..(|
00001360: 53 24 2C 41 28 43 29 29 3B 00 8C 1B 80 07 99 22 |S$,A(C));......"|
00001370: 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 3B |]";:..(T$,A(C));|
00001380: 3A 99 22 9D 22 3B 3A 8D 32 35 37 30 00 B2 1B 8A |:.".";:.2570....|
00001390: 07 8B 49 50 24 B2 22 46 49 4E 22 AF 20 46 B2 30 |..IP$."FIN". F.0|
000013A0: 20 A7 20 52 B2 31 3A 59 B2 59 AB 31 3A 89 20 32 | . R.1:Y.Y.1:. 2|
000013B0: 37 30 00 DB 1B 94 07 8B 49 50 24 B2 22 46 49 4E |70......IP$."FIN|
000013C0: 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 52 AB 31 3A |".F.1.F.0:R.R.1:|
000013D0: 59 B2 59 AB 31 3A 89 31 31 36 35 00 F5 1B 9E 07 |Y.Y.1:.1165.....|
000013E0: 41 24 28 52 2C 43 29 B2 C8 28 49 50 24 2C 41 28 |A$(R,C)..(IP$,A(|
000013F0: 43 29 29 3A 99 00 11 1C A8 07 8B 41 24 28 52 2C |C)):.......A$(R,|
00001400: 43 29 B2 22 22 A7 41 24 28 52 2C 43 29 B2 22 2D |C)."".A$(R,C)."-|
00001410: 22 00 1C 1C B2 07 8D 20 32 37 32 30 00 22 1C BC |"...... 2720."..|
00001420: 07 82 00 38 1C C6 07 8B 20 46 B2 31 20 A7 20 46 |...8.... F.1 . F|
00001430: B2 30 3A 89 31 31 36 35 00 4F 1C D0 07 52 B2 52 |.0:.1165.O...R.R|
00001440: AA 31 3A 59 B2 59 AA 31 3A 89 20 31 38 36 30 00 |.1:Y.Y.1:. 1860.|
00001450: 55 1C DA 07 3A 00 86 1C E4 07 8B 20 59 B2 30 20 |U...:...... Y.0 |
00001460: A7 20 45 4D 24 B2 22 12 4E 4F 20 45 58 49 53 54 |. EM$.".NO EXIST|
00001470: 45 20 46 49 43 48 45 52 4F 92 22 3A 8D 32 36 35 |E FICHERO.":.265|
00001480: 30 3A 89 32 37 30 00 9F 1C E5 07 99 C7 28 31 34 |0:.270.......(14|
00001490: 37 29 3A 99 3A 8D 20 32 37 32 30 3A 45 B2 30 00 |7):.:. 2720:E.0.|
000014A0: DF 1C E6 07 99 22 44 45 53 45 41 20 53 41 4C 49 |....."DESEA SALI|
000014B0: 44 41 20 44 45 20 52 45 53 55 4C 54 41 44 4F 53 |DA DE RESULTADOS|
000014C0: 20 45 4E 22 3A 99 22 49 4D 50 52 45 53 4F 52 41 | EN":."IMPRESORA|
000014D0: 3A 20 20 12 53 92 49 20 4F 20 12 4E 92 4F 22 00 |: .S.I O .N.O".|
000014E0: F5 1C E7 07 A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 |..... K$:. K$.""|
000014F0: A7 32 30 32 33 00 0C 1D E8 07 8B 4B 24 B2 22 53 |.2023......K$."S|
00001500: 22 A7 50 52 B2 35 3A 89 32 30 33 30 00 23 1D E9 |".PR.5:.2030.#..|
00001510: 07 8B 4B 24 B2 22 4E 22 A7 50 52 B2 30 3A 89 32 |..K$."N".PR.0:.2|
00001520: 30 33 30 00 2D 1D EA 07 89 32 30 32 33 00 46 1D |030.-....2023.F.|
00001530: EE 07 99 C7 28 31 34 37 29 3A 8B 20 50 52 B2 30 |....(147):. PR.0|
00001540: A7 54 54 B2 31 35 00 54 1D EF 07 81 20 52 B2 31 |.TT.15.T.... R.1|
00001550: 20 A4 20 59 00 8E 1D F8 07 99 3A 20 99 22 4E 4F | . Y......: ."NO|
00001560: 4D 42 52 45 20 44 45 20 43 41 4D 50 4F 20 92 20 |MBRE DE CAMPO . |
00001570: 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D |[ ].....|
00001580: 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 37 30 3B 00 9C |.....";:.2570;..|
00001590: 1D 02 08 44 50 24 B2 49 50 24 3A 99 00 BC 1D 0C |...DP$.IP$:.....|
000015A0: 08 8B C3 28 44 50 24 29 B3 39 A7 44 50 24 B2 44 |...(DP$).9.DP$.D|
000015B0: 50 24 AA 22 20 22 3A 89 32 30 36 30 00 CC 1D 16 |P$." ":.2060....|
000015C0: 08 99 3A 8D 32 37 32 30 3A 43 B2 31 00 E5 1D 20 |..:.2720:C.1... |
000015D0: 08 8B 20 41 24 28 30 2C 43 29 B2 44 50 24 20 A7 |.. A$(0,C).DP$ .|
000015E0: 20 32 31 31 30 00 FE 1D 2A 08 43 B2 43 AA 31 3A | 2110...*.C.C.1:|
000015F0: 8B 20 43 B3 58 AA 31 20 A7 20 32 30 38 30 00 22 |. C.X.1 . 2080."|
00001600: 1E 34 08 45 4D 24 B2 22 12 2A 2A 4E 4F 20 45 58 |.4.EM$.".**NO EX|
00001610: 49 53 54 45 2A 2A 22 3A 8D 32 36 35 30 3A 89 32 |ISTE**":.2650:.2|
00001620: 37 30 00 3C 1E 3E 08 99 22 49 4E 54 52 4F 44 55 |70.<.>.."INTRODU|
00001630: 5A 43 41 20 12 22 44 50 24 22 92 22 00 59 1E 40 |ZCA ."DP$".".Y.@|
00001640: 08 99 22 5B 22 3B 3A 8D 34 34 30 30 3A 99 C8 28 |.."[";:.4400:..(|
00001650: 53 24 2C 41 28 43 29 29 3B 00 76 1E 41 08 99 22 |S$,A(C));.v.A.."|
00001660: 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 3B |]";:..(T$,A(C));|
00001670: 3A 99 22 9D 22 3B 00 92 1E 43 08 8D 20 32 35 37 |:.".";...C.. 257|
00001680: 30 3A 43 50 24 B2 49 50 24 3A 99 3A 8D 20 32 37 |0:CP$.IP$:.:. 27|
00001690: 32 30 00 9F 1E 48 08 46 B2 C3 28 43 50 24 29 00 |20...H.F..(CP$).|
000016A0: B4 1E 52 08 99 C7 28 31 34 37 29 3A 99 3A 8D 20 |..R...(147):.:. |
000016B0: 32 37 32 30 00 CB 1E 5C 08 8B 20 41 41 24 28 43 |2720...\.. AA$(C|
000016C0: 29 B2 22 43 22 A7 20 32 34 33 30 00 ED 1E 66 08 |)."C". 2430...f.|
000016D0: 99 22 44 45 53 45 41 20 4C 4F 53 20 43 41 4D 50 |."DESEA LOS CAMP|
000016E0: 4F 53 20 22 44 50 24 22 3A 2D 22 3A 99 00 0B 1F |OS "DP$":-":....|
000016F0: 70 08 99 20 A3 32 29 22 12 49 92 47 55 41 4C 20 |p.. .2)".I.GUAL |
00001700: 41 22 A3 31 35 29 43 50 24 3A 99 00 2B 1F 7A 08 |A".15)CP$:..+.z.|
00001710: 99 20 A3 32 29 22 12 4D 92 45 4E 4F 52 20 51 55 |. .2)".M.ENOR QU|
00001720: 45 22 A3 31 35 29 43 50 24 3A 99 00 4C 1F 84 08 |E".15)CP$:..L...|
00001730: 99 A3 32 29 22 12 47 92 20 4D 41 59 4F 52 20 51 |..2)".G. MAYOR Q|
00001740: 55 45 22 A3 31 35 29 43 50 24 3A 99 00 58 1F 8E |UE".15)CP$:..X..|
00001750: 08 97 20 31 35 38 2C 30 00 6F 1F 98 08 A1 20 4B |.. 158,0.o.... K|
00001760: 24 3A 8B 20 4B 24 B2 22 22 A7 20 32 32 30 30 00 |$:. K$."". 2200.|
00001770: 83 1F A2 08 8B 20 4B 24 B2 22 49 22 20 A7 20 32 |..... K$."I" . 2|
00001780: 34 33 30 00 97 1F AC 08 8B 20 4B 24 B2 22 4D 22 |430...... K$."M"|
00001790: 20 A7 20 32 32 35 30 00 AB 1F B6 08 8B 20 4B 24 | . 2250...... K$|
000017A0: B2 22 47 22 20 A7 20 32 33 34 30 00 B6 1F C0 08 |."G" . 2340.....|
000017B0: 89 20 32 32 30 30 00 C9 1F CA 08 99 C7 28 31 34 |. 2200.......(14|
000017C0: 37 29 3A 8D 20 32 37 32 30 00 F0 1F CF 08 8B 50 |7):. 2720......P|
000017D0: 52 B2 35 A7 99 22 20 20 20 12 49 4D 50 52 49 4D |R.5.." .IMPRIM|
000017E0: 49 45 4E 44 4F 92 22 3A 20 9F 34 2C 34 3A 9D 34 |IENDO.": .4,4:.4|
000017F0: 00 10 20 D4 08 99 A3 32 29 22 45 4C 20 46 49 43 |.. ....2)"EL FIC|
00001800: 48 45 52 4F 20 22 4E 24 22 20 54 49 45 4E 45 22 |HERO "N$" TIENE"|
00001810: 00 33 20 DE 08 99 A3 32 29 44 50 24 22 20 4D 45 |.3 ....2)DP$" ME|
00001820: 4E 4F 52 20 51 55 45 20 22 43 50 24 3A 8D 20 32 |NOR QUE "CP$:. 2|
00001830: 37 32 30 00 41 20 E8 08 81 20 52 B2 31 20 A4 20 |720.A ... R.1 . |
00001840: 59 00 5A 20 E9 08 8B 50 52 B2 35 AF C3 28 C4 28 |Y.Z ...PR.5..(.(|
00001850: 52 29 29 B2 32 A7 54 54 B2 35 00 73 20 EA 08 8B |R)).2.TT.5.s ...|
00001860: 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 33 A7 54 |PR.5..(.(R)).3.T|
00001870: 54 B2 34 00 8C 20 EB 08 8B 50 52 B2 35 AF C3 28 |T.4.. ...PR.5..(|
00001880: C4 28 52 29 29 B2 34 A7 54 54 B2 33 00 C9 20 F2 |.(R)).4.TT.3.. .|
00001890: 08 8B 20 C5 28 41 24 28 52 2C 43 29 29 B3 C5 28 |.. .(A$(R,C))..(|
000018A0: 43 50 24 29 A7 99 20 22 52 45 47 49 53 54 52 4F |CP$).. "REGISTRO|
000018B0: 20 4E 55 4D 2E 22 3B 52 A3 54 54 29 C8 28 41 24 | NUM.";R.TT).(A$|
000018C0: 28 52 2C 31 29 2C 32 34 29 00 CF 20 FC 08 3A 00 |(R,1),24).. ..:.|
000018D0: D5 20 06 09 82 00 E5 20 0B 09 8B 50 52 B2 35 A7 |. ..... ...PR.5.|
000018E0: 98 34 3A A0 34 00 EB 20 10 09 3A 00 F6 20 1A 09 |.4:.4.. ..:.. ..|
000018F0: 89 20 32 35 32 30 00 0A 21 24 09 99 20 C7 28 31 |. 2520..!$.. .(1|
00001900: 34 37 29 3A 8D 20 32 37 32 30 00 31 21 29 09 8B |47):. 2720.1!)..|
00001910: 50 52 B2 35 A7 99 22 20 20 20 12 49 4D 50 52 49 |PR.5.." .IMPRI|
00001920: 4D 49 45 4E 44 4F 92 22 3A 20 9F 34 2C 34 3A 9D |MIENDO.": .4,4:.|
00001930: 34 00 52 21 2E 09 99 A3 32 29 22 45 4C 20 46 49 |4.R!....2)"EL FI|
00001940: 43 48 45 52 4F 20 22 4E 24 22 20 54 49 45 4E 45 |CHERO "N$" TIENE|
00001950: 20 22 00 76 21 38 09 99 20 A3 32 29 44 50 24 22 | ".v!8.. .2)DP$"|
00001960: 20 4D 41 59 4F 52 20 51 55 45 20 22 43 50 24 3A | MAYOR QUE "CP$:|
00001970: 8D 20 32 37 32 30 00 84 21 42 09 81 20 52 B2 31 |. 2720..!B.. R.1|
00001980: 20 A4 20 59 00 9D 21 43 09 8B 50 52 B2 35 AF C3 | . Y..!C..PR.5..|
00001990: 28 C4 28 52 29 29 B2 32 A7 54 54 B2 35 00 B6 21 |(.(R)).2.TT.5..!|
000019A0: 44 09 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 |D..PR.5..(.(R)).|
000019B0: 33 A7 54 54 B2 34 00 CF 21 45 09 8B 50 52 B2 35 |3.TT.4..!E..PR.5|
000019C0: AF C3 28 C4 28 52 29 29 B2 34 A7 54 54 B2 33 00 |..(.(R)).4.TT.3.|
000019D0: 0C 22 4C 09 8B 20 C5 28 41 24 28 52 2C 43 29 29 |."L.. .(A$(R,C))|
000019E0: B1 C5 28 43 50 24 29 A7 99 20 22 52 45 47 49 53 |..(CP$).. "REGIS|
000019F0: 54 52 4F 20 4E 55 4D 2E 22 3B 52 A3 54 54 29 C8 |TRO NUM.";R.TT).|
00001A00: 28 41 24 28 52 2C 31 29 2C 32 34 29 00 12 22 56 |(A$(R,1),24).."V|
00001A10: 09 3A 00 18 22 60 09 82 00 28 22 65 09 8B 50 52 |.:.."`...("e..PR|
00001A20: B2 35 A7 98 34 3A A0 34 00 2E 22 6A 09 3A 00 39 |.5..4:.4.."j.:.9|
00001A30: 22 74 09 89 20 32 35 32 30 00 4C 22 7E 09 99 C7 |"t.. 2520.L"~...|
00001A40: 28 31 34 37 29 3A 8D 20 32 37 32 30 00 73 22 83 |(147):. 2720.s".|
00001A50: 09 8B 50 52 B2 35 A7 99 22 20 20 20 12 49 4D 50 |..PR.5.." .IMP|
00001A60: 52 49 4D 49 45 4E 44 4F 92 22 3A 20 9F 34 2C 34 |RIMIENDO.": .4,4|
00001A70: 3A 9D 34 00 94 22 88 09 99 20 A3 32 29 22 45 4C |:.4.."... .2)"EL|
00001A80: 20 46 49 43 48 45 52 4F 20 22 4E 24 22 20 54 49 | FICHERO "N$" TI|
00001A90: 45 4E 45 22 00 B0 22 92 09 99 20 A3 32 29 44 50 |ENE".."... .2)DP|
00001AA0: 24 22 20 3D 20 22 43 50 24 3A 8D 20 32 37 32 30 |$" = "CP$:. 2720|
00001AB0: 00 BE 22 9C 09 81 20 52 B2 31 20 A4 20 59 00 D7 |.."... R.1 . Y..|
00001AC0: 22 9D 09 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 |"...PR.5..(.(R))|
00001AD0: B2 32 A7 54 54 B2 35 00 F0 22 9E 09 8B 50 52 B2 |.2.TT.5.."...PR.|
00001AE0: 35 AF C3 28 C4 28 52 29 29 B2 33 A7 54 54 B2 34 |5..(.(R)).3.TT.4|
00001AF0: 00 09 23 9F 09 8B 50 52 B2 35 AF C3 28 C4 28 52 |..#...PR.5..(.(R|
00001B00: 29 29 B2 34 A7 54 54 B2 33 00 44 23 A6 09 8B C8 |)).4.TT.3.D#....|
00001B10: 28 41 24 28 52 2C 43 29 2C 46 29 B2 43 50 24 A7 |(A$(R,C),F).CP$.|
00001B20: 99 22 52 45 47 49 53 54 52 4F 20 4E 55 4D 2E 20 |."REGISTRO NUM. |
00001B30: 22 3B 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 |";R.TT).(A$(R,1)|
00001B40: 2C 32 34 29 00 4A 23 B0 09 3A 00 50 23 BA 09 82 |,24).J#..:.P#...|
00001B50: 00 60 23 BF 09 8B 50 52 B2 35 A7 98 34 3A A0 34 |.`#...PR.5..4:.4|
00001B60: 00 66 23 C4 09 3A 00 6C 23 CE 09 3A 00 92 23 D8 |.f#..:.l#..:..#.|
00001B70: 09 99 3A 97 20 31 35 38 2C 30 3A 99 20 A3 31 30 |..:. 158,0:. .10|
00001B80: 29 22 12 50 55 4C 53 45 20 27 53 50 41 43 45 27 |)".PULSE 'SPACE'|
00001B90: 92 22 00 A9 23 E2 09 A1 20 4B 24 3A 8B 20 4B 24 |."..#... K$:. K$|
00001BA0: B2 22 22 A7 20 32 35 33 30 00 C3 23 EC 09 8B 20 |."". 2530..#... |
00001BB0: 4B 24 B2 22 20 22 20 A7 20 52 B2 52 AB 31 3A 89 |K$." " . R.R.1:.|
00001BC0: 32 37 30 00 CE 23 F6 09 89 20 32 35 33 30 00 D4 |270..#... 2530..|
00001BD0: 23 00 0A 3A 00 E4 23 0A 0A 42 24 B2 22 20 22 3A |#..:..#..B$." ":|
00001BE0: 99 22 22 3B 00 FB 23 14 0A A1 49 50 24 3A 8B 49 |."";..#...IP$:.I|
00001BF0: 50 24 B2 22 22 A7 89 32 35 38 30 00 17 24 1E 0A |P$.""..2580..$..|
00001C00: 8B 42 24 B2 22 20 22 AF C6 28 49 50 24 29 B2 32 |.B$." "..(IP$).2|
00001C10: 30 A7 89 32 35 38 30 00 45 24 28 0A 8B C6 28 49 |0..2580.E$(...(I|
00001C20: 50 24 29 B2 32 30 A7 42 24 B2 C8 28 42 24 2C C3 |P$).20.B$..(B$,.|
00001C30: 28 42 24 29 AB 31 29 3A 99 22 9D 20 9D 22 3B 3A |(B$).1):.". .";:|
00001C40: 89 32 35 38 30 00 64 24 32 0A 8B 49 50 24 B2 C7 |.2580.d$2..IP$..|
00001C50: 28 31 33 29 A7 49 50 24 B2 CA 28 42 24 2C 32 29 |(13).IP$..(B$,2)|
00001C60: 3A 99 3A 8E 00 7D 24 3C 0A 41 B2 C6 28 49 50 24 |:.:..}$<.A..(IP$|
00001C70: 29 3A 8B 41 B3 31 31 A7 89 32 35 38 30 00 9F 24 |):.A.11..2580..$|
00001C80: 46 0A 42 24 B2 42 24 AA 49 50 24 3A 99 22 12 22 |F.B$.B$.IP$:."."|
00001C90: 3B 49 50 24 3B 22 92 22 3B 3A 89 32 35 38 30 00 |;IP$;".";:.2580.|
00001CA0: A5 24 50 0A 3A 00 AB 24 5A 0A 3A 00 B5 24 64 0A |.$P.:..$Z.:..$d.|
00001CB0: 99 20 45 4D 24 00 C8 24 6E 0A 81 20 54 38 B2 31 |. EM$..$n.. T8.1|
00001CC0: 20 A4 31 30 30 30 3A 82 00 CE 24 8C 0A 8E 00 D4 | .1000:...$.....|
00001CD0: 24 96 0A 3A 00 05 25 A0 0A 99 22 A3 A3 A3 A3 A3 |$..:..%...".....|
00001CE0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001CF0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001D00: A3 A3 22 3A 8E 00 36 25 AA 0A 99 22 2D 2D 2D 2D |..":..6%..."----|
00001D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D30: 2D 2D 2D 22 3A 8E 00 3C 25 B4 0A 3A 00 6A 25 BE |---":..<%..:.j%.|
00001D40: 0A 99 20 22 44 45 53 45 41 20 43 41 52 47 41 52 |.. "DESEA CARGAR|
00001D50: 20 12 4C 92 4F 41 44 20 4F 20 47 52 41 42 41 52 | .L.OAD O GRABAR|
00001D60: 20 12 53 92 41 56 45 22 3A 99 00 81 25 C8 0A A1 | .S.AVE":...%...|
00001D70: 20 4B 24 3A 8B 20 4B 24 B2 22 22 A7 20 32 37 36 | K$:. K$."". 276|
00001D80: 30 00 93 25 D2 0A 8B 20 4B 24 B2 22 4C 22 A7 33 |0..%... K$."L".3|
00001D90: 30 37 30 00 A5 25 DC 0A 8B 20 4B 24 B2 22 53 22 |070..%... K$."S"|
00001DA0: A7 32 38 30 30 00 AF 25 E6 0A 89 32 37 36 30 00 |.2800..%...2760.|
00001DB0: E0 25 F0 0A 8B 20 59 B2 30 20 A7 20 45 4D 24 B2 |.%... Y.0 . EM$.|
00001DC0: 22 12 4E 4F 20 45 58 49 53 54 45 20 46 49 43 48 |".NO EXISTE FICH|
00001DD0: 45 52 4F 92 22 3A 8D 32 36 35 30 3A 89 32 37 30 |ERO.":.2650:.270|
00001DE0: 00 EA 25 FA 0A 8D 34 33 38 30 00 19 26 04 0B 99 |..%...4380..&...|
00001DF0: 22 51 55 49 45 52 45 20 47 52 41 42 41 52 20 45 |"QUIERE GRABAR E|
00001E00: 4E 20 12 44 92 49 53 43 4F 20 4F 20 12 54 92 20 |N .D.ISCO O .T. |
00001E10: 43 49 4E 54 41 3F 22 3A 99 00 25 26 18 0B 97 20 |CINTA?":..%&... |
00001E20: 31 35 38 2C 30 00 3D 26 22 0B A1 20 4B 24 3A 8B |158,0.=&".. K$:.|
00001E30: 20 4B 24 B2 22 22 20 A7 20 32 38 35 30 00 51 26 | K$."" . 2850.Q&|
00001E40: 2C 0B 8B 20 4B 24 B2 22 54 22 20 A7 20 32 39 30 |,.. K$."T" . 290|
00001E50: 30 00 65 26 36 0B 8B 20 4B 24 B2 22 44 22 20 A7 |0.e&6.. K$."D" .|
00001E60: 20 33 32 35 30 00 70 26 40 0B 89 20 32 38 35 30 | 3250.p&@.. 2850|
00001E70: 00 76 26 4A 0B 3A 00 80 26 54 0B 8D 34 33 38 30 |.v&J.:..&T..4380|
00001E80: 00 9F 26 59 0B 99 22 12 43 4F 4C 4F 51 55 45 20 |..&Y..".COLOQUE |
00001E90: 4C 41 20 43 2E 20 43 41 53 53 45 54 54 45 22 00 |LA C. CASSETTE".|
00001EA0: BC 26 5E 0B 99 22 50 55 4C 53 45 20 12 43 92 20 |.&^.."PULSE .C. |
00001EB0: 50 41 52 41 20 53 45 47 55 49 52 22 00 C8 26 68 |PARA SEGUIR"..&h|
00001EC0: 0B 97 20 31 35 38 2C 30 00 E2 26 72 0B A1 20 4B |.. 158,0..&r.. K|
00001ED0: 24 3A 8B 20 4B 24 B3 B1 22 43 22 20 A7 20 32 39 |$:. K$.."C" . 29|
00001EE0: 33 30 00 FC 26 7C 0B 8D 34 33 38 30 3A 99 22 47 |30..&|..4380:."G|
00001EF0: 52 41 42 41 4E 44 4F 20 12 22 4E 24 00 06 27 81 |RABANDO ."N$..'.|
00001F00: 0B 99 22 91 91 22 00 15 27 86 0B 9F 20 31 2C 31 |..".."..'... 1,1|
00001F10: 2C 31 2C 4E 24 00 23 27 90 0B 98 31 2C 59 3A 98 |,1,N$.#'...1,Y:.|
00001F20: 31 2C 58 00 3B 27 9A 0B 81 20 43 B2 31 20 A4 20 |1,X.;'... C.1 . |
00001F30: 58 3A 98 31 2C 41 28 43 29 3A 82 00 55 27 A4 0B |X:.1,A(C):..U'..|
00001F40: 81 20 43 B2 31 20 A4 20 58 3A 98 31 2C 41 41 24 |. C.1 . X:.1,AA$|
00001F50: 28 43 29 3A 82 00 63 27 AE 0B 81 20 52 B2 31 20 |(C):..c'... R.1 |
00001F60: A4 20 59 00 7E 27 B8 0B 81 20 43 B2 31 20 A4 20 |. Y.~'... C.1 . |
00001F70: 58 3A 98 31 2C 41 24 28 52 2C 43 29 3A 82 00 84 |X:.1,A$(R,C):...|
00001F80: 27 C2 0B 82 00 9F 27 CC 0B 81 20 43 B2 31 20 A4 |'.....'... C.1 .|
00001F90: 20 58 3A 98 31 2C 41 24 28 30 2C 43 29 3A 82 00 | X:.1,A$(0,C):..|
00001FA0: A7 27 D6 0B A0 20 31 00 B1 27 EA 0B 89 20 32 37 |.'... 1..'... 27|
00001FB0: 30 00 B7 27 F4 0B 3A 00 BD 27 FE 0B 3A 00 CA 27 |0..'..:..'..:..'|
00001FC0: 08 0C 9C 3A 8D 20 34 34 36 30 00 EE 27 12 0C 8D |...:. 4460..'...|
00001FD0: 34 33 38 30 3A 20 99 22 51 55 49 45 52 45 20 43 |4380: ."QUIERE C|
00001FE0: 41 52 47 41 52 20 44 45 53 44 45 3A 2D 22 00 10 |ARGAR DESDE:-"..|
00001FF0: 28 1C 0C 99 22 12 44 92 49 53 43 4F 20 4F 20 12 |(...".D.ISCO O .|
00002000: 54 92 3D 43 49 4E 54 41 22 3A 97 31 35 38 2C 30 |T.=CINTA":.158,0|
00002010: 00 26 28 26 0C A1 20 4B 24 3A 8B 20 4B 24 B2 22 |.&(&.. K$:. K$."|
00002020: 22 A7 33 31 31 30 00 37 28 30 0C 8B 4B 24 B2 22 |".3110.7(0..K$."|
00002030: 54 22 A7 33 31 36 30 00 48 28 3A 0C 8B 4B 24 B2 |T".3160.H(:..K$.|
00002040: 22 44 22 A7 33 32 31 30 00 52 28 44 0C 89 33 31 |"D".3210.R(D..31|
00002050: 31 30 00 58 28 4E 0C 3A 00 6B 28 58 0C 54 B2 31 |10.X(N.:.k(X.T.1|
00002060: 3A 55 B2 30 3A 4E 4E 24 B2 4E 24 00 99 28 62 0C |:U.0:NN$.N$..(b.|
00002070: 8D 34 33 38 30 3A 99 22 43 4F 4C 4F 51 55 45 20 |.4380:."COLOQUE |
00002080: 4C 41 20 43 49 4E 54 41 20 45 4E 20 45 4C 20 43 |LA CINTA EN EL C|
00002090: 41 53 53 45 54 54 45 20 22 00 B8 28 6C 0C 99 22 |ASSETTE "..(l.."|
000020A0: 59 20 50 55 4C 53 45 20 12 59 92 20 50 41 52 41 |Y PULSE .Y. PARA|
000020B0: 20 53 45 47 55 49 52 22 00 CF 28 76 0C A1 20 4B | SEGUIR"..(v.. K|
000020C0: 24 3A 8B 4B 24 B3 B1 22 59 22 A7 33 31 39 30 00 |$:.K$.."Y".3190.|
000020D0: D9 28 80 0C 89 33 34 36 30 00 DF 28 8A 0C 3A 00 |.(...3460..(..:.|
000020E0: 14 29 94 0C 54 B2 38 3A 55 B2 34 3A 4E 31 24 B2 |.)..T.8:U.4:N1$.|
000020F0: 22 30 3A 22 3A 4E 32 24 B2 22 2C 53 45 51 2C 52 |"0:":N2$.",SEQ,R|
00002100: 45 41 44 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 4E 24 |EAD":NN$.N1$.NN$|
00002110: AA 4E 32 24 00 1E 29 9E 0C 89 33 34 36 30 00 24 |.N2$..)...3460.$|
00002120: 29 A8 0C 3A 00 2A 29 B2 0C 3A 00 34 29 BC 0C 8D |)..:.*)..:.4)...|
00002130: 34 33 38 30 00 5E 29 C6 0C 99 22 44 45 53 45 41 |4380.^)..."DESEA|
00002140: 20 47 52 41 42 41 52 20 45 4E 20 45 4C 20 44 52 | GRABAR EN EL DR|
00002150: 49 56 45 20 12 30 92 20 4F 20 12 31 92 22 00 76 |IVE .0. O .1.".v|
00002160: 29 DA 0C A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 |)... K$:. K$."" |
00002170: A7 20 33 32 39 30 00 91 29 E4 0C 8B 20 C5 28 4B |. 3290..)... .(K|
00002180: 24 29 B2 30 A7 20 44 52 B2 30 3A 89 20 33 33 33 |$).0. DR.0:. 333|
00002190: 30 00 AC 29 EE 0C 8B 20 C5 28 4B 24 29 B2 31 A7 |0..)... .(K$).1.|
000021A0: 20 44 52 B2 31 3A 89 20 33 33 33 30 00 B6 29 F8 | DR.1:. 3330..).|
000021B0: 0C 89 33 32 39 30 00 E4 29 02 0D 4E 31 24 B2 22 |..3290..)..N1$."|
000021C0: 44 52 3A 22 3A 4E 32 24 B2 22 2C 53 45 51 2C 57 |DR:":N2$.",SEQ,W|
000021D0: 52 49 54 45 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 24 |RITE":NN$.N1$.N$|
000021E0: AA 4E 32 24 00 F7 29 0C 0D 9F 31 2C 38 2C 34 2C |.N2$..)...1,8,4,|
000021F0: 22 40 22 AA 4E 4E 24 00 08 2A 16 0D 98 31 2C 59 |"@".NN$..*...1,Y|
00002200: 3A 99 C7 28 31 33 29 3B 00 19 2A 20 0D 98 31 2C |:..(13);..* ..1,|
00002210: 58 3A 99 C7 28 31 33 29 3B 00 39 2A 2A 0D 81 20 |X:..(13);.9**.. |
00002220: 43 B2 31 20 A4 20 58 3A 98 31 2C 41 28 43 29 3A |C.1 . X:.1,A(C):|
00002230: 99 C7 28 31 33 29 3B 3A 82 00 5B 2A 34 0D 81 20 |..(13);:..[*4.. |
00002240: 43 B2 31 20 A4 20 58 3A 98 31 2C 41 41 24 28 43 |C.1 . X:.1,AA$(C|
00002250: 29 3A 99 C7 28 31 33 29 3B 3A 82 00 69 2A 3E 0D |):..(13);:..i*>.|
00002260: 81 20 52 B2 31 20 A4 20 59 00 8C 2A 48 0D 81 20 |. R.1 . Y..*H.. |
00002270: 43 B2 31 20 A4 20 58 3A 98 31 2C 41 24 28 52 2C |C.1 . X:.1,A$(R,|
00002280: 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 92 2A 52 |C):..(13);:...*R|
00002290: 0D 82 00 B5 2A 5C 0D 81 20 43 B2 31 20 A4 20 58 |....*\.. C.1 . X|
000022A0: 3A 98 31 2C 41 24 28 30 2C 43 29 3A 99 C7 28 31 |:.1,A$(0,C):..(1|
000022B0: 33 29 3B 3A 82 00 BC 2A 66 0D A0 31 00 C5 2A 70 |3);:...*f..1..*p|
000022C0: 0D 89 32 37 30 00 CB 2A 7A 0D 3A 00 03 2B 84 0D |..270..*z.:..+..|
000022D0: 8D 34 33 38 30 3A 99 22 4E 4F 4D 42 52 45 20 46 |.4380:."NOMBRE F|
000022E0: 49 43 48 45 52 4F 20 5B 20 20 20 20 20 20 20 20 |ICHERO [ |
000022F0: 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 20 32 |].........";:. 2|
00002300: 35 37 30 00 1C 2B 8E 0D 4E 24 B2 C8 28 49 50 24 |570..+..N$..(IP$|
00002310: 2C 38 29 3A 4E 4E 24 B2 4E 24 3A 99 00 2C 2B 93 |,8):NN$.N$:..,+.|
00002320: 0D 8B 54 B2 31 A7 99 22 91 91 91 22 00 3B 2B 98 |..T.1.."...".;+.|
00002330: 0D 9F 31 2C 54 2C 55 2C 4E 4E 24 00 49 2B A2 0D |..1,T,U,NN$.I+..|
00002340: 84 31 2C 59 3A 84 31 2C 58 00 61 2B AC 0D 81 20 |.1,Y:.1,X.a+... |
00002350: 43 B2 31 20 A4 20 58 3A 84 31 2C 41 28 43 29 3A |C.1 . X:.1,A(C):|
00002360: 82 00 7B 2B B6 0D 81 20 43 B2 31 20 A4 20 58 3A |..{+... C.1 . X:|
00002370: 84 31 2C 41 41 24 28 43 29 3A 82 00 89 2B C0 0D |.1,AA$(C):...+..|
00002380: 81 20 52 B2 31 20 A4 20 59 00 97 2B CA 0D 81 20 |. R.1 . Y..+... |
00002390: 43 B2 31 20 A4 20 58 00 A6 2B D4 0D 84 31 2C 41 |C.1 . X..+...1,A|
000023A0: 24 28 52 2C 43 29 00 AE 2B DE 0D 82 3A 82 00 BC |$(R,C)..+...:...|
000023B0: 2B E8 0D 81 20 43 B2 31 20 A4 20 58 00 CB 2B F2 |+... C.1 . X..+.|
000023C0: 0D 84 31 2C 41 24 28 30 2C 43 29 00 D1 2B FC 0D |..1,A$(0,C)..+..|
000023D0: 82 00 D8 2B 06 0E A0 31 00 E2 2B 10 0E 8D 34 33 |...+...1..+...43|
000023E0: 38 30 00 FE 2B 15 0E 99 22 54 45 43 4C 45 45 20 |80..+..."TECLEE |
000023F0: 46 45 43 48 41 20 44 45 20 48 4F 59 20 22 00 1D |FECHA DE HOY "..|
00002400: 2C 1A 0E 99 22 28 45 47 2E 20 32 39 2E 31 32 2E |,..."(EG. 29.12.|
00002410: 38 32 29 20 3A 22 3B 3A 8D 32 35 37 30 00 2A 2C |82) :";:.2570.*,|
00002420: 24 0E 4D 24 B2 49 50 24 3A 99 00 33 2C 2E 0E 89 |$.M$.IP$:..3,...|
00002430: 32 37 30 00 39 2C 38 0E 3A 00 6C 2C 42 0E 45 4D |270.9,8.:.l,B.EM|
00002440: 24 B2 22 46 20 49 20 4E 20 2E 12 20 2A 2A 2A 42 |$."F I N .. ***B|
00002450: 41 53 45 20 44 45 20 44 41 54 4F 53 20 28 43 29 |ASE DE DATOS (C)|
00002460: 2A 2A 2A 92 22 3A 8D 20 32 36 35 30 00 7B 2C 4C |***.":. 2650.{,L|
00002470: 0E 97 20 31 34 34 2C 38 35 3A 80 00 A6 2C 56 0E |.. 144,85:...,V.|
00002480: 99 3A 20 20 99 22 20 20 20 20 20 20 20 20 2A 2A |.: ." **|
00002490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000024A0: 2A 2A 2A 2A 2A 22 00 CD 2C 60 0E 99 22 20 20 20 |*****"..,`.." |
000024B0: 20 20 20 20 20 2A 2A 2A 2A 20 42 41 53 45 20 44 | **** BASE D|
000024C0: 45 20 44 41 54 4F 53 20 2A 2A 2A 2A 22 00 0C 2D |E DATOS ****"..-|
000024D0: 6A 0E 99 22 20 20 20 20 20 20 20 20 2A 2A 2A 2A |j.." ****|
000024E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000024F0: 2A 2A 2A 22 3A 99 22 20 20 20 20 20 20 20 20 20 |***":." |
00002500: 20 20 20 20 20 20 20 20 20 20 20 22 00 4D 2D 74 | ".M-t|
00002510: 0E 99 22 20 20 12 20 49 20 92 20 12 20 4E 20 92 |.." . I . . N .|
00002520: 20 12 20 44 20 92 20 12 20 45 20 92 20 12 20 53 | . D . . E . . S|
00002530: 20 92 20 12 20 43 20 92 20 12 20 4F 20 92 20 12 | . . C . . O . .|
00002540: 20 4D 20 92 20 12 20 50 20 92 22 3A 8E 00 71 2D | M . . P .":..q-|
00002550: 7E 0E 99 C7 28 31 34 37 29 3A 99 A3 31 34 29 22 |~...(147):..14)"|
00002560: 12 2A 2A 55 54 49 4C 49 44 41 44 45 53 2A 2A 92 |.**UTILIDADES**.|
00002570: 22 00 7E 2D 88 0E 99 3A 99 A3 33 29 22 22 00 89 |".~-...:..3)""..|
00002580: 2D 92 0E 99 A3 33 29 22 22 00 A7 2D 9C 0E 99 A3 |-....3)""..-....|
00002590: 33 29 22 4D 45 4D 4F 52 49 41 20 4C 49 42 52 45 |3)"MEMORIA LIBRE|
000025A0: 20 3D 20 12 4D 92 22 00 C4 2D A6 0E 99 A3 33 29 | = .M."..-....3)|
000025B0: 22 50 41 52 41 20 4D 45 4E 55 20 12 53 50 41 43 |"PARA MENU .SPAC|
000025C0: 45 20 92 22 00 DA 2D B0 0E A1 20 56 24 3A 8B 20 |E ."..-... V$:. |
000025D0: 56 24 B2 22 22 A7 33 37 36 30 00 EC 2D CE 0E 8B |V$."".3760..-...|
000025E0: 20 56 24 B2 22 4D 22 A7 33 38 34 30 00 FD 2D D8 | V$."M".3840..-.|
000025F0: 0E 8B 20 56 24 B2 22 20 22 A7 32 37 30 00 1D 2E |.. V$." ".270...|
00002600: E2 0E 99 3A 99 22 12 50 55 4C 53 45 20 53 50 41 |...:.".PULSE SPA|
00002610: 43 45 20 50 41 52 41 20 4D 45 4E 55 22 00 34 2E |CE PARA MENU".4.|
00002620: EC 0E A1 20 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 |... K$:.K$.." ".|
00002630: 33 37 36 30 00 3D 2E F6 0E 89 32 37 30 00 49 2E |3760.=....270.I.|
00002640: 00 0F 99 C7 28 31 34 37 29 00 77 2E 0A 0F 99 3A |....(147).w....:|
00002650: 99 3A 99 3A 99 22 20 44 49 53 50 4F 4E 45 20 44 |.:.:." DISPONE D|
00002660: 45 20 22 B8 28 30 29 22 20 42 59 54 45 53 20 4C |E ".(0)" BYTES L|
00002670: 49 42 52 45 53 20 22 00 94 2E 14 0F 99 3A 99 22 |IBRES "......:."|
00002680: 20 44 45 53 45 41 20 56 4F 4C 56 45 52 20 41 4C | DESEA VOLVER AL|
00002690: 20 3A 2D 22 00 AF 2E 1E 0F 99 3A 99 22 20 12 4D | :-"......:." .M|
000026A0: 92 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 22 00 |.ENU PRINCIPAL".|
000026B0: C9 2E 28 0F 99 3A 99 22 20 12 55 92 3D 20 55 54 |..(..:." .U.= UT|
000026C0: 49 4C 49 44 41 44 45 53 22 00 DF 2E 32 0F A1 20 |ILIDADES"...2.. |
000026D0: 4B 24 3A 8B 20 4B 24 B2 22 22 A7 33 38 39 30 00 |K$:. K$."".3890.|
000026E0: F0 2E 3C 0F 8B 20 4B 24 B2 22 4D 22 A7 32 37 30 |..<.. K$."M".270|
000026F0: 00 02 2F 46 0F 8B 20 4B 24 B2 22 55 22 A7 33 37 |../F.. K$."U".37|
00002700: 31 30 00 0C 2F 50 0F 89 33 38 39 30 00 18 2F 5A |10../P..3890../Z|
00002710: 0F 9F 34 2C 34 3A 9D 34 00 49 2F 64 0F 99 C7 28 |..4,4:.4.I/d...(|
00002720: 31 34 37 29 3A 99 22 12 22 3B 4E 24 20 A3 31 39 |147):.".";N$ .19|
00002730: 29 22 52 45 47 49 53 54 52 4F 20 4E 55 4D 2E 22 |)"REGISTRO NUM."|
00002740: 3B 52 3A 8D 20 32 37 33 30 00 82 2F 6E 0F 43 B2 |;R:. 2730../n.C.|
00002750: 31 3A 99 22 12 22 C4 28 43 29 22 92 22 3B 3A 99 |1:.".".(C)".";:.|
00002760: A3 32 29 22 12 22 20 41 24 28 30 2C 43 29 22 92 |.2)"." A$(0,C)".|
00002770: 22 A3 33 29 3B C8 28 41 24 28 52 2C 43 29 2C 32 |".3);.(A$(R,C),2|
00002780: 34 29 00 8C 2F 78 0F 8D 32 37 33 30 00 9A 2F 82 |4)../x..2730../.|
00002790: 0F 81 20 43 B2 32 20 A4 20 58 00 C1 2F 8C 0F 99 |.. C.2 . X../...|
000027A0: C4 28 43 29 3B 3A 99 A3 32 29 41 24 28 30 2C 43 |.(C);:..2)A$(0,C|
000027B0: 29 A3 33 29 C8 28 41 24 28 52 2C 43 29 2C 32 34 |).3).(A$(R,C),24|
000027C0: 29 00 DE 2F 96 0F 82 3A 99 3A 8D 32 37 32 30 3A |)../...:.:.2720:|
000027D0: 99 3A 20 98 34 3A A0 34 3A 89 31 31 36 35 00 0E |.: .4:.4:.1165..|
000027E0: 30 A0 0F 8D 37 39 30 30 3A 43 4F 4C B2 31 3A 4C |0...7900:COL.1:L|
000027F0: 4E 45 B2 32 31 3A 8D 38 30 30 30 3A 99 22 44 45 |NE.21:.8000:."DE|
00002800: 53 45 41 20 52 45 41 4C 49 5A 41 52 20 22 00 35 |SEA REALIZAR ".5|
00002810: 30 AA 0F 99 22 12 43 92 41 4C 43 55 4C 4F 53 20 |0...".C.ALCULOS |
00002820: 4F 20 12 54 92 4F 54 41 4C 49 5A 41 52 20 43 41 |O .T.OTALIZAR CA|
00002830: 4D 50 4F 53 22 00 4B 30 B4 0F A1 20 4B 24 3A 8B |MPOS".K0... K$:.|
00002840: 20 4B 24 B2 22 22 A7 34 30 32 30 00 66 30 BE 0F | K$."".4020.f0..|
00002850: 8B 4B 24 B2 22 54 22 A7 20 20 20 8D 34 33 38 30 |.K$."T". .4380|
00002860: 3A 89 34 32 34 30 00 81 30 C8 0F 8B 4B 24 B2 22 |:.4240..0...K$."|
00002870: 43 22 A7 20 20 20 8D 34 33 38 30 3A 89 34 30 36 |C". .4380:.406|
00002880: 30 00 8B 30 D2 0F 89 34 30 32 30 00 A7 30 DC 0F |0..0...4020..0..|
00002890: 99 22 43 4F 4E 20 51 55 45 20 43 41 4D 50 4F 20 |."CON QUE CAMPO |
000028A0: 44 45 53 45 41 20 22 00 CB 30 E6 0F 99 22 4F 50 |DESEA "..0..."OP|
000028B0: 45 52 41 52 2C 28 44 45 20 31 20 41 29 20 22 58 |ERAR,(DE 1 A) "X|
000028C0: 22 20 3A 22 3B 3A 8D 32 35 37 30 00 D8 30 F0 0F |" :";:.2570..0..|
000028D0: 43 B2 C5 28 49 50 24 29 00 E2 30 FA 0F 8D 34 33 |C..(IP$)..0...43|
000028E0: 38 30 00 09 31 04 10 8B 41 41 24 28 43 29 B2 22 |80..1...AA$(C)."|
000028F0: 43 22 A7 99 22 12 43 41 4D 50 4F 20 4E 4F 92 20 |C"..".CAMPO NO. |
00002900: 4E 55 4D 45 52 49 43 4F 22 00 1E 31 0E 10 8B 41 |NUMERICO"..1...A|
00002910: 41 24 28 43 29 B2 22 4E 22 A7 34 31 33 30 00 34 |A$(C)."N".4130.4|
00002920: 31 18 10 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 |1...I.1.1000:.:.|
00002930: 31 31 36 35 00 62 31 22 10 99 22 49 4E 54 52 4F |1165.b1".."INTRO|
00002940: 44 55 5A 43 41 20 4C 45 54 52 41 20 4D 41 53 20 |DUZCA LETRA MAS |
00002950: 43 41 4E 54 49 44 41 44 20 45 4A 2E 28 41 32 35 |CANTIDAD EJ.(A25|
00002960: 29 22 00 9B 31 2C 10 99 22 12 41 92 3D 53 55 4D |)"..1,..".A.=SUM|
00002970: 41 20 12 53 92 52 45 53 54 41 52 20 12 4D 92 55 |A .S.RESTAR .M.U|
00002980: 4C 54 49 50 4C 2E 20 12 44 92 49 56 49 44 49 52 |LTIPL. .D.IVIDIR|
00002990: 20 12 5A 92 3D 43 45 52 4F 53 22 00 BF 31 36 10 | .Z.=CEROS"..16.|
000029A0: 99 22 12 52 92 3D 53 55 53 54 49 54 55 49 52 3A |.".R.=SUSTITUIR:|
000029B0: 22 3B 3A 8D 32 35 37 30 3A 4C 24 B2 49 50 24 00 |";:.2570:L$.IP$.|
000029C0: E8 31 40 10 8B C8 28 4C 24 2C 31 29 B2 22 53 22 |.1@...(L$,1)."S"|
000029D0: A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AB C5 28 |.P..(A$(R,C))..(|
000029E0: CA 28 4C 24 2C 32 29 29 00 11 32 4A 10 8B C8 28 |.(L$,2))..2J...(|
000029F0: 4C 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 41 24 |L$,1)."A".P..(A$|
00002A00: 28 52 2C 43 29 29 AA C5 28 CA 28 4C 24 2C 32 29 |(R,C))..(.(L$,2)|
00002A10: 29 00 3A 32 54 10 8B C8 28 4C 24 2C 31 29 B2 22 |).:2T...(L$,1)."|
00002A20: 4D 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AC |M".P..(A$(R,C)).|
00002A30: C5 28 CA 28 4C 24 2C 32 29 29 00 63 32 5E 10 8B |.(.(L$,2)).c2^..|
00002A40: C8 28 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 C5 28 |.(L$,1)."D".P..(|
00002A50: 41 24 28 52 2C 43 29 29 AD C5 28 CA 28 4C 24 2C |A$(R,C))..(.(L$,|
00002A60: 32 29 29 00 78 32 68 10 8B C8 28 4C 24 2C 31 29 |2)).x2h...(L$,1)|
00002A70: B2 22 5A 22 A7 50 B2 30 00 96 32 72 10 8B C8 28 |."Z".P.0..2r...(|
00002A80: 4C 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 CA 28 |L$,1)."R".P..(.(|
00002A90: 4C 24 2C 32 29 29 00 AC 32 7C 10 41 24 28 52 2C |L$,2))..2|.A$(R,|
00002AA0: 43 29 B2 CA 28 C4 28 50 29 2C 32 29 00 B6 32 86 |C)..(.(P),2)..2.|
00002AB0: 10 89 31 31 36 35 00 CD 32 90 10 99 22 51 55 45 |..1165..2..."QUE|
00002AC0: 20 43 41 4D 50 4F 20 44 45 53 45 41 22 00 F4 32 | CAMPO DESEA"..2|
00002AD0: 9A 10 99 22 54 4F 54 41 4C 49 5A 41 52 20 28 44 |..."TOTALIZAR (D|
00002AE0: 45 20 31 20 41 29 20 22 58 22 20 3A 22 3B 3A 8D |E 1 A) "X" :";:.|
00002AF0: 32 35 37 30 00 01 33 A4 10 43 B2 C5 28 49 50 24 |2570..3..C..(IP$|
00002B00: 29 00 0B 33 AE 10 8D 34 33 38 30 00 35 33 B8 10 |)..3...4380.53..|
00002B10: 8B 41 41 24 28 43 29 B2 22 43 22 A7 99 22 12 43 |.AA$(C)."C"..".C|
00002B20: 41 4D 50 4F 20 44 45 20 43 41 52 41 43 54 45 52 |AMPO DE CARACTER|
00002B30: 45 53 20 92 22 00 4A 33 C2 10 8B 41 41 24 28 43 |ES .".J3...AA$(C|
00002B40: 29 B2 22 4E 22 A7 34 33 31 30 00 60 33 CC 10 81 |)."N".4310.`3...|
00002B50: 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 36 35 |I.1.1000:.:.1165|
00002B60: 00 68 33 D6 10 54 B2 30 00 85 33 E0 10 81 20 52 |.h3..T.0..3... R|
00002B70: B2 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 2C |.1.Y:T.T..(A$(R,|
00002B80: 43 29 29 3A 82 00 C7 33 EA 10 99 22 56 41 4C 4F |C)):...3..."VALO|
00002B90: 52 20 54 4F 54 41 4C 20 44 45 4C 20 43 41 4D 50 |R TOTAL DEL CAMP|
00002BA0: 4F 20 3A 22 3A 99 22 12 22 41 24 28 30 2C 43 29 |O :":."."A$(0,C)|
00002BB0: 22 92 22 22 20 3D 20 20 20 20 20 20 20 20 20 20 |"."" = |
00002BC0: 20 20 20 20 22 3B 54 00 E9 33 F4 10 99 22 50 55 | ";T..3..."PU|
00002BD0: 4C 53 45 20 12 53 50 41 43 45 20 92 20 50 41 52 |LSE .SPACE . PAR|
00002BE0: 41 20 53 45 47 55 49 52 22 00 FD 33 FE 10 A1 4B |A SEGUIR"..3...K|
00002BF0: 24 3A 8B 4B 24 B2 22 22 A7 34 33 35 30 00 0E 34 |$:.K$."".4350..4|
00002C00: 08 11 8B 4B 24 B2 22 20 22 A7 31 31 36 30 00 18 |...K$." ".1160..|
00002C10: 34 12 11 89 34 33 35 30 00 4A 34 1C 11 42 4C 24 |4...4350.J4..BL$|
00002C20: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00002C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C40: 20 20 20 20 20 20 20 20 20 22 00 68 34 26 11 99 | ".h4&..|
00002C50: 22 91 91 22 3B 3A 99 42 4C 24 3A 99 42 4C 24 3A |"..";:.BL$:.BL$:|
00002C60: 99 22 91 91 91 22 3A 8E 00 9A 34 30 11 53 24 B2 |."...":...40.S$.|
00002C70: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00002C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C90: 20 20 20 20 20 20 20 20 20 22 00 CE 34 3A 11 54 | "..4:.T|
00002CA0: 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |$.".............|
00002CB0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002CC0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 8E 00 D4 |...........":...|
00002CD0: 34 44 11 3A 00 05 35 45 11 8B 20 59 B2 30 20 A7 |4D.:..5E.. Y.0 .|
00002CE0: 20 45 4D 24 B2 22 12 4E 4F 20 45 58 49 53 54 45 | EM$.".NO EXISTE|
00002CF0: 20 46 49 43 48 45 52 4F 92 22 3A 8D 32 36 35 30 | FICHERO.":.2650|
00002D00: 3A 89 32 37 30 00 0F 35 4E 11 8D 34 34 37 30 00 |:.270..5N..4470.|
00002D10: 3B 35 58 11 99 22 12 43 4C 41 53 49 46 49 43 41 |;5X..".CLASIFICA|
00002D20: 43 49 4F 4E 92 20 43 4F 4D 50 4C 45 54 41 22 3A |CION. COMPLETA":|
00002D30: 81 4A B2 31 A4 31 30 30 30 3A 82 00 44 35 62 11 |.J.1.1000:..D5b.|
00002D40: 89 32 37 30 00 7E 35 6C 11 86 20 41 24 28 32 30 |.270.~5l.. A$(20|
00002D50: 30 2C 31 35 29 2C 41 41 24 28 31 35 29 2C 41 28 |0,15),AA$(15),A(|
00002D60: 31 35 29 2C 43 24 28 31 35 29 2C 42 24 28 31 35 |15),C$(15),B$(15|
00002D70: 29 3A 41 24 28 52 2C 43 29 B2 22 22 3A 8E 00 84 |):A$(R,C)."":...|
00002D80: 35 76 11 3A 00 A0 35 80 11 99 22 50 4F 52 20 51 |5v.:..5..."POR Q|
00002D90: 55 45 20 43 41 4D 50 4F 20 44 45 53 45 41 20 22 |UE CAMPO DESEA "|
00002DA0: 00 C5 35 8A 11 99 22 4F 52 44 45 4E 41 52 20 28 |..5..."ORDENAR (|
00002DB0: 44 45 20 31 20 41 29 20 22 58 22 20 3A 22 3B 3A |DE 1 A) "X" :";:|
00002DC0: 8D 32 35 37 30 00 D2 35 94 11 4D B2 C5 28 49 50 |.2570..5..M..(IP|
00002DD0: 24 29 00 DC 35 9E 11 8D 34 33 38 30 00 F8 35 A8 |$)..5...4380..5.|
00002DE0: 11 99 22 12 45 53 50 45 52 45 92 20 50 4F 52 20 |..".ESPERE. POR |
00002DF0: 46 41 56 4F 52 2E 2E 22 00 05 36 B2 11 81 52 B2 |FAVOR.."..6...R.|
00002E00: 31 A4 59 AB 31 00 14 36 BC 11 81 49 B2 28 52 AA |1.Y.1..6...I.(R.|
00002E10: 31 29 A4 59 00 3A 36 C6 11 8B 41 41 24 28 4D 29 |1).Y.:6...AA$(M)|
00002E20: B2 22 43 22 AF 41 24 28 49 2C 4D 29 B1 B2 41 24 |."C".A$(I,M)..A$|
00002E30: 28 52 2C 4D 29 A7 34 36 31 30 00 66 36 CB 11 8B |(R,M).4610.f6...|
00002E40: 41 41 24 28 4D 29 B2 22 4E 22 AF C5 28 41 24 28 |AA$(M)."N"..(A$(|
00002E50: 49 2C 4D 29 29 B1 B2 C5 28 41 24 28 52 2C 4D 29 |I,M))...(A$(R,M)|
00002E60: 29 A7 34 36 31 30 00 71 36 D0 11 81 43 B2 31 A4 |).4610.q6...C.1.|
00002E70: 58 00 83 36 DA 11 42 24 28 43 29 B2 41 24 28 52 |X..6..B$(C).A$(R|
00002E80: 2C 43 29 00 97 36 E4 11 41 24 28 52 2C 43 29 B2 |,C)..6..A$(R,C).|
00002E90: 41 24 28 49 2C 43 29 00 A9 36 EE 11 41 24 28 49 |A$(I,C)..6..A$(I|
00002EA0: 2C 43 29 B2 42 24 28 43 29 00 B0 36 F8 11 82 43 |,C).B$(C)..6...C|
00002EB0: 00 B8 36 02 12 82 3A 82 00 BE 36 0C 12 8E 00 EF |..6...:...6.....|
00002EC0: 36 16 12 8B 20 59 B2 30 20 A7 20 45 4D 24 B2 22 |6... Y.0 . EM$."|
00002ED0: 12 4E 4F 20 45 58 49 53 54 45 20 46 49 43 48 45 |.NO EXISTE FICHE|
00002EE0: 52 4F 92 22 3A 8D 32 36 35 30 3A 89 32 37 30 00 |RO.":.2650:.270.|
00002EF0: 13 37 17 12 99 C7 28 31 34 37 29 3A 99 3A 99 A3 |.7....(147):.:..|
00002F00: 31 32 29 22 53 41 4C 49 44 41 20 45 53 43 52 49 |12)"SALIDA ESCRI|
00002F10: 54 41 22 00 2D 37 18 12 99 A3 31 32 29 22 2D 2D |TA".-7....12)"--|
00002F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 46 37 |------------".F7|
00002F30: 1B 12 99 22 43 41 4D 50 4F 53 20 41 20 49 4E 43 |..."CAMPOS A INC|
00002F40: 4C 55 49 52 20 22 00 61 37 1C 12 99 22 45 4E 20 |LUIR ".a7..."EN |
00002F50: 49 4E 46 4F 52 4D 45 20 49 4D 50 52 45 53 4F 3F |INFORME IMPRESO?|
00002F60: 22 00 6B 37 1D 12 8D 32 37 32 30 00 76 37 20 12 |".k7...2720.v7 .|
00002F70: 81 43 B2 31 A4 58 00 84 37 2A 12 99 41 24 28 30 |.C.1.X..7*..A$(0|
00002F80: 2C 43 29 3B 00 A6 37 34 12 99 22 20 20 12 53 92 |,C);..74.." .S.|
00002F90: 49 20 4F 20 12 4E 92 4F 20 5B 20 5D 9D 9D 22 3B |I O .N.O [ ]..";|
00002FA0: 3A 8D 32 35 37 30 00 BB 37 3E 12 43 24 28 43 29 |:.2570..7>.C$(C)|
00002FB0: B2 C8 28 49 50 24 2C 31 29 3A 99 00 C2 37 48 12 |..(IP$,1):...7H.|
00002FC0: 82 43 00 FD 37 4A 12 8D 32 37 32 30 3A 99 22 44 |.C..7J..2720:."D|
00002FD0: 45 53 45 41 20 53 41 4C 54 4F 20 44 45 20 4C 49 |ESEA SALTO DE LI|
00002FE0: 4E 45 41 20 12 53 92 49 20 4F 20 12 4E 92 4F 20 |NEA .S.I O .N.O |
00002FF0: 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 37 30 00 0E 38 |[ ]..";:.2570..8|
00003000: 4B 12 4C 46 24 B2 C8 28 49 50 24 2C 31 29 00 52 |K.LF$..(IP$,1).R|
00003010: 38 4D 12 99 22 44 45 53 45 41 20 45 4E 56 49 41 |8M.."DESEA ENVIA|
00003020: 52 20 43 4F 44 49 47 4F 20 43 48 52 24 20 41 22 |R CODIGO CHR$ A"|
00003030: 3A 99 22 4C 41 20 49 4D 50 52 45 53 4F 52 41 20 |:."LA IMPRESORA |
00003040: 12 53 92 49 20 4F 20 12 4E 92 4F 5B 20 5D 9D 9D |.S.I O .N.O[ ]..|
00003050: 22 3B 00 69 38 4E 12 8D 32 35 37 30 3A 43 53 24 |";.i8N..2570:CS$|
00003060: B2 C8 28 49 50 24 2C 31 29 00 A2 38 4F 12 8B 43 |..(IP$,1)..8O..C|
00003070: 53 24 B2 22 53 22 A7 99 22 49 4E 54 52 4F 44 55 |S$."S".."INTRODU|
00003080: 43 49 52 20 43 48 52 24 20 5B 20 20 5D 9D 9D 9D |CIR CHR$ [ ]...|
00003090: 22 3B 3A 8D 32 35 37 30 3A 43 53 B2 C5 28 49 50 |";:.2570:CS..(IP|
000030A0: 24 29 00 AE 38 54 12 9F 34 2C 34 3A 9D 34 00 D3 |$)..8T..4,4:.4..|
000030B0: 38 57 12 8B 43 53 24 B2 22 53 22 A7 99 20 C7 28 |8W..CS$."S".. .(|
000030C0: 43 53 29 3A 8B 43 54 24 B2 22 59 22 A7 99 C7 28 |CS):.CT$."Y"...(|
000030D0: 43 54 29 00 F0 38 5C 12 99 4D 24 A6 31 30 29 22 |CT)..8\..M$.10)"|
000030E0: 4E 4F 4D 42 52 45 2E 2E 20 3D 20 22 4E 24 3A 99 |NOMBRE.. = "N$:.|
000030F0: 00 0A 39 66 12 81 20 52 B2 30 A4 59 3A 52 24 B2 |..9f.. R.0.Y:R$.|
00003100: 22 22 20 3A 81 43 B2 31 A4 58 00 3A 39 70 12 8B |"" :.C.1.X.:9p..|
00003110: C3 28 41 24 28 52 2C 43 29 29 B3 41 28 43 29 A7 |.(A$(R,C)).A(C).|
00003120: 20 41 24 28 52 2C 43 29 B2 41 24 28 52 2C 43 29 | A$(R,C).A$(R,C)|
00003130: AA 22 20 22 3A 89 34 37 32 30 00 6F 39 75 12 8B |." ":.4720.o9u..|
00003140: C3 28 41 24 28 52 2C 43 29 29 B3 C3 28 41 24 28 |.(A$(R,C))..(A$(|
00003150: 30 2C 43 29 29 A7 41 24 28 52 2C 43 29 B2 41 24 |0,C)).A$(R,C).A$|
00003160: 28 52 2C 43 29 AA 22 20 22 3A 89 34 37 32 35 00 |(R,C)." ":.4725.|
00003170: 91 39 7A 12 8B 43 24 28 43 29 B2 22 53 22 A7 20 |.9z..C$(C)."S". |
00003180: 52 24 B2 52 24 AA 41 24 28 52 2C 43 29 AA 22 20 |R$.R$.A$(R,C)." |
00003190: 22 00 98 39 84 12 82 43 00 AA 39 8E 12 8B 4C 46 |"..9...C..9...LF|
000031A0: 24 B2 22 4E 22 A7 20 99 52 24 00 C2 39 8F 12 8B |$."N". .R$..9...|
000031B0: 4C 46 24 B2 22 53 22 A7 20 99 52 24 2C C7 28 31 |LF$."S". .R$,.(1|
000031C0: 33 29 00 E5 39 90 12 8B 52 B2 30 A7 50 B2 C3 28 |3)..9...R.0.P..(|
000031D0: 52 24 29 3A 81 49 B2 31 A4 50 3A 99 22 2D 22 3B |R$):.I.1.P:."-";|
000031E0: 3A 82 49 3A 99 00 EC 39 98 12 82 52 00 F6 39 99 |:.I:...9...R..9.|
000031F0: 12 99 3A 99 3A 99 00 0A 3A 9A 12 99 22 20 20 20 |..:.:...:..." |
00003200: 2A 54 4F 54 41 4C 45 53 2A 22 00 20 3A 9B 12 99 |*TOTALES*". :...|
00003210: 22 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 |" ---------":.|
00003220: 00 2F 3A 9C 12 81 43 B2 31 A4 58 3A 54 B2 30 00 |./:...C.1.X:T.0.|
00003230: 4B 3A 9D 12 81 52 B2 31 A4 59 3A 54 B2 54 AA C5 |K:...R.1.Y:T.T..|
00003240: 28 41 24 28 52 2C 43 29 29 3A 82 00 6A 3A 9E 12 |(A$(R,C)):..j:..|
00003250: 8B 41 41 24 28 43 29 B2 22 4E 22 A7 99 41 24 28 |.AA$(C)."N"..A$(|
00003260: 30 2C 43 29 A3 32 30 29 3B 54 00 71 3A 9F 12 82 |0,C).20);T.q:...|
00003270: 43 00 7B 3A A2 12 98 34 3A A0 34 00 9D 3A AC 12 |C.{:...4:.4..:..|
00003280: 81 43 B2 31 A4 58 3A 41 24 28 30 2C 43 29 B2 C8 |.C.1.X:A$(0,C)..|
00003290: 28 41 24 28 30 2C 43 29 2C 39 29 3A 82 00 A6 3A |(A$(0,C),9):...:|
000032A0: B6 12 89 32 37 30 00 E4 3A 58 1B 8D 37 39 30 30 |...270..:X..7900|
000032B0: 3A 43 4F 4C B2 31 3A 4C 4E 45 B2 32 31 3A 8D 38 |:COL.1:LNE.21:.8|
000032C0: 30 30 30 3A 99 22 12 42 4F 52 52 41 52 92 20 45 |000:.".BORRAR. E|
000032D0: 53 54 41 20 56 44 2E 20 53 45 47 55 52 4F 3F 20 |STA VD. SEGURO? |
000032E0: 53 2F 4E 22 00 F8 3A 5D 1B A1 4B 24 3A 8B 4B 24 |S/N"..:]..K$:.K$|
000032F0: B2 22 22 A7 37 30 30 35 00 09 3B 62 1B 8B 4B 24 |."".7005..;b..K$|
00003300: B2 22 53 22 A7 37 30 32 35 00 1A 3B 67 1B 8B 4B |."S".7025..;g..K|
00003310: 24 B2 22 4E 22 A7 31 31 36 35 00 24 3B 6C 1B 89 |$."N".1165.$;l..|
00003320: 37 30 30 35 00 35 3B 71 1B 54 B2 52 3A 81 52 B2 |7005.5;q.T.R:.R.|
00003330: 54 A4 59 AA 31 00 40 3B 76 1B 81 43 B2 31 A4 58 |T.Y.1.@;v..C.1.X|
00003340: 00 56 3B 7B 1B 41 24 28 52 2C 43 29 B2 41 24 28 |.V;{.A$(R,C).A$(|
00003350: 52 AA 31 2C 43 29 00 5D 3B 80 1B 82 43 00 64 3B |R.1,C).];...C.d;|
00003360: 85 1B 82 52 00 74 3B 8A 1B 59 B2 59 AB 31 3A 89 |...R.t;..Y.Y.1:.|
00003370: 31 31 36 30 00 92 3B DC 1E 43 4F 4C B2 31 3A 4C |1160..;..COL.1:L|
00003380: 4E 45 B2 32 31 3A 8D 38 30 30 30 3A 81 49 B2 31 |NE.21:.8000:.I.1|
00003390: A4 33 00 C6 3B DD 1E 99 22 20 20 20 20 20 20 20 |.3..;..." |
000033A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033C0: 22 3A 82 49 3A 8E 00 F9 3B 40 1F 41 43 43 24 B2 |":.I:...;@.ACC$.|
000033D0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000033E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000033F0: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 2C 3C 4A 1F 44 4F |........".,<J.DO|
00003400: 57 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 |W$."............|
00003410: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003420: 11 11 11 11 11 11 11 11 11 11 11 22 00 37 3C 54 |...........".7<T|
00003430: 1F 81 5A B2 31 A4 32 00 41 3C 5E 1F 99 22 13 22 |..Z.1.2.A<^.."."|
00003440: 3B 00 5C 3C 68 1F 8B 43 4F 4C B1 31 A7 99 C8 28 |;.\<h..COL.1...(|
00003450: 41 43 43 24 2C 43 4F 4C AB 31 29 3B 00 77 3C 72 |ACC$,COL.1);.w<r|
00003460: 1F 8B 4C 4E 45 B1 31 A7 99 C8 28 44 4F 57 24 2C |..LNE.1...(DOW$,|
00003470: 4C 4E 45 AB 31 29 3B 00 AC 3C 76 1F 8B 5A B2 31 |LNE.1);..<v..Z.1|
00003480: A7 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00003490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000034A0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 B3 3C 78 | ";..<x|
000034B0: 1F 82 5A 00 B9 3C 7C 1F 8E 00 00 00 00 00 |..Z..<|....... |
.......**DFM BY*INDESCOMP*SOFTWARE(C) 15
.07.83.\.D.X.0:Y.0:R.0:C.0:IP$."":K$."":
EM$."":N$."".F....4460.....A$(R,C)."":M.
31743:F.0:S.0...H..G(147)...R..3670.I...
.:.:." M= MAYUSCULAS N= MINUSCULAS
"...... K$:. K$."".230......K$."M"..G(14
2) :.270......K$."N"..G(14):.270......23
0.+....G(147):.3670.1.....P."...9)"NOMBR
E-FICHERO = ";N$...,..:..6) " PULSE NU
MERO DE OPCION":.: .2720...6.."1 CREAR F
ICHERO ".20)"2 CAMBIAR NOMBRE".Y.@.."3
BUSCAR ".20)"4 SELECCCIONAR"...J.."
5 CARGAR/GRABAR ".20)"6 SALIDA IMPRESO
RA.1.T.."7 ORDENAR ".20)"8 UTILIDADES":
..Z.^...11) ".9 FIN-PROGRAMA" :.: .27
20.F.H.. 158,0.|.R.. K$:. K$."". 370...|
.. E(K$).1 . E(K$).9 . 370.T.... E(K$) .
1400,900,1160,2020,2750,4630,4420,3710,
3640.Z...:...... 4380...... Y.0 . EM$.".
NO EXISTE FICHERO !.":. 2650:.270.>...."
PULSE .C PARA SEGUIR BUSCANDO".P...."O .
M.=MENU".D.B.. K$:.K$."".450.{.L..K$."C"
..4380:.490...V..K$."M".270......450....
..7900:COL.1:LNE.21:.8000.W...."BUSQUEDA
POR CLAVE "......"----------
--------------------"......"INTRO. ""."A
$(0,1)"."":";.,....2570:.590.6....7900.M
...COL.1:LNE.21:.8000.V.&.."HAY "Y" REGI
STROS EN ESTE FICHERO"...0.."QUE NUMERO
DESEA ?.:";:. 2570.A.:.R.E(IP$):. R.0 .
R.Y . .4380:. 550.L.D.. 1165.W.N.L$.IP$.
..X.F.C(L$)...B.. R.1 . Y...L..L$.H(A$(R
,1),F).1165...V........4380.;....".NO EX
ISTE EL REGISTRO!.".N.... Z.1 . 1000:..X
.... 410.^...:......"NUMERO DE LINEA PAR
A MODIFICAR"......"PULSE DE 1 A "X" :";:
.2570...F.C .E(IP$)...P..4380...Z.."DATO
S EXISTENTES ""."A$(0,C)"."" = ":. "."A
$(R,C).%...."DATOS NUEVOS ";:."[";:.4400
:.H(S$,A(C));.B...."]";:.H(T$,A(C));:.".
";.[.... 2570:A$(R,C).IP$:....... C(A$(R
,C)).A(C).A$(R,C).H(A$(R,C),A(C)).....C.
2......1165... .. 2720.M.*.."NUMERO DE L
INEA PARA MODIFICAR "...4.."PULSE DE 1 A
"X" :";:.2570;...>.C.E(IP$)...H.."."A$(
0,C).I.R.."INTRODUZCA NUEVO NOMBRE [
]..........";:. 2570.[.\.A$(0,C).IP
$:....F.. C(A$(0,C)).9.A$(0,C).A$(0,C)."
":.870...P.. C(A$(0,C)).9.A$(0,C).H(A$(
0,C),9)...Z..1165......"NUEVO NOMBRE FIC
HERO [ ].........";......2570:N$.
IP$:.270.2....7900:COL.1:LNE.21:.8000:."
DESEA MODIFICAR:-".P....".H:CABECERA O .
D:DATOS".C....K$:.K$."".940.Z....K$."H".
.4380:.810......K$."D"..4380:.690...J..9
40...T..G(147):.2720.Q.... .9)" *FICHERO
EN SCROLL* ":.:....... 2720...... Z.1 .
2000:.......G(147):."NOMBRE...=" .15)"
.";N$".":..D...." PULSE .SPACE PARA
. FINALIZAR".O.... 2720.\.... R.1 .Y.I.$
.. C.1 .X......"."H(A$(0,C),9)".".12)H(A
$(R,C),26).I.8.. C.1 . ."...............
........................"...B.. Z.1 . 40
0:....L..:. 2720...V.. K$:. K$." " . 116
5...`.....J.. Z.1 . 600:..(.T.R.Y:. 1165
.<.~..G(147):.:.:.:..S...R.1: . Y.0 . EM
$.".NO EXISTE FICHERO .":.2650:.270.{...
A.1......R.0.R.1......R.Y.R.R.1:R.Y.....
.A.0.A.1......A.25.A.A.1......G(147):.".
";N$ .19)"REGISTRO NUM.";R:. 2720......
C.1 . X.....GG.A(C)......GG.24.GG.24.%..
.."."D(C)".";.S.....4)"."H(A$(0,C),9)"."
.15)J(A$(R,C),A,GG).B....C.1..2720...D..
:COL.1:LNE.20:.8000:.2730...N...12)".**O
PCIONES**".U.X.."PULSE:.N.= + .L.= - .F.
=BUS..G.=REG .A.MODIF .M.ENU"......".C.A
LC. .I.=DATOS .D.=BORRA .P.IMPR. .S.CROL
L .<. .>":.158,0."....2730.6....K$:.K$."
".1270.R.... K$."N" . R.R.1:. 1165.N....
K$."L" . R.R.1:. 1165...... K$."M" . 27
0...... K$."I" . F.1:.1840...(.. K$."G".
540...2.. K$."F".490.M.<.. K$."S".980...
A..K$.">".A.A.1:.1170...B..K$."<".A.A.1:
.1170...F.. K$."A".920. .P.. K$."P".3930
.2.Z.. K$."C".4000.C._..K$."D".7000.M.D.
.1270.S.N.:...X.. G(147):.:.".**CUIDADO*
* PUEDE BORRAR EL FICHERO "......"
.DE LA MEMORIA .":.:.:.:....... .
8) "........................"...... .8)"
PULSE S(SI) PARA CONTINUAR".*. .. .8)"
N(NO) Y MENU ":.158,0.O.... .8) "..
......................".F.... K$:. K$.""
. 1460.Y.... K$."N" . 270...H.. K$."S" .
1500...R.. 1460...... G(147):.:.4460.R.
..."INTRODUZCA FECHA-HOY :";:.2570.....M
$.IP$:.G(147)...... .12)".CREANDO FICHER
O.":....... 2720.G...."CUAL ES EL NOMBRE
-FICHERO ?[ ].........";.Q....257
0.C.".N$.H(IP$,8):..N.,.. 2720...6.."CUA
NTOS CAMPOS POR REGISTRO ?[ ]...";:. 25
70...@.X.E(H(IP$,2)):....J.. X.1 . X.15
. .".EL MAXIMO ES 15.":. 1590...T.. G(14
7):C.1...^..".EL FICHERO SE LLAMA ";N$:.
2720.N.H.."NOTA: ESTE CAMPO 1 ES EL . C
L A V E . ":..Y.R.. 2720._.|.:......"TI
TULO DEL .CAMPO."C" [ ]........
..";...... 2570:......A$(0,C).H(IP$,9)..
.... C(A$(0,C)).9.A$(0,C).A$(0,C)." ":.1
700......" .C.ARACTERES O .N.UMEROS [ ].
.";:.2570.'...AA$(C).H(IP$,1):..<.B..AA$
(C)."N".1750.Q.L..AA$(C)."C".1780.A.Q..4
380:.1710...V.."NUMERO DE CARACTERES DEL
REGISTRO"......"MAX. 9 CARACTERES [ ]..
";:.2570.B...A(C).E(IP$):.......A(C).9..
"..":.4380:.1750......1810......"NUMERO
DE CARACTERES DEL REGISTRO".;...."MAX.36
CARACTERES [ ]...";:.2570.M...A(C).E(I
P$):..L....A(C).36.."..":.4380:.1780.}..
.. C.X . 1840.....C.C.1:. 1660...&.:...0
.. F.1 . R.Y.1:Y.Y.1:. 1860...:.R.1:Y.1.
..D.. G(147):. .12)".REGISTRO NUM.";R"."
:. 2720. .N...2)"PARA FINALIZAR ENTRADAS
TECLEE 'FIN'":..-.B.. 2720:..;.L.. C.1
. X.I.V.."CAMPO "A$(0,C):."[";:.4400:.H(
S$,A(C));......"]";:.H(T$,A(C));:.".";:.
2570......IP$."FIN". F.0 . R.1:Y.Y.1:. 2
70......IP$."FIN".F.1.F.0:R.R.1:Y.Y.1:.1
165.....A$(R,C).H(IP$,A(C)):.......A$(R,
C)."".A$(R,C)."-"...... 2720.".....8.F..
F.1 . F.0:.1165.O.P.R.R.1:Y.Y.1:. 1860.
U.Z.:...... Y.0 . EM$.".NO EXISTE FICHER
O.":.2650:.270......G(147):.:. 2720:E.0.
....."DESEA SALIDA DE RESULTADOS EN":."I
MPRESORA: .S.I O .N.O"...... K$:. K$.""
.2023......K$."S".PR.5:.2030.#....K$."N"
.PR.0:.2030.-....2023.F....G(147):. PR.0
.TT.15.T.... R.1 . Y......: ."NOMBRE DE
CAMPO . [ ]..........";:.2570;..
...DP$.IP$:.......C(DP$).9.DP$.DP$." ":.
2060.L....:.2720:C.1... .. A$(0,C).DP$ .
2110...*.C.C.1:. C.X.1 . 2080.".4.EM$."
.**NO EXISTE**":.2650:.270.<.>.."INTRODU
ZCA ."DP$".".Y.@.."[";:.4400:.H(S$,A(C))
;.V.A.."]";:.H(T$,A(C));:.".";...C.. 257
0:CP$.IP$:.:. 2720...H.F.C(CP$)...R..G(1
47):.:. 2720.K.\.. AA$(C)."C". 2430...F.
."DESEA LOS CAMPOS "DP$":-":....P.. .2)"
.I.GUAL A".15)CP$:..+.Z.. .2)".M.ENOR QU
E".15)CP$:..L.....2)".G. MAYOR QUE".15)C
P$:..X.... 158,0.O.... K$:. K$."". 2200.
..... K$."I" . 2430...... K$."M" . 2250.
..... K$."G" . 2340...... 2200.I.J..G(14
7):. 2720...O..PR.5.." .IMPRIMIENDO.":
.4,4:.4.. T...2)"EL FICHERO "N$" TIENE"
.3 ....2)DP$" MENOR QUE "CP$:. 2720.A ..
. R.1 . Y.Z ...PR.5.C(D(R)).2.TT.5.S ...
PR.5.C(D(R)).3.TT.4.. ...PR.5.C(D(R)).4.
TT.3.I ... E(A$(R,C)).E(CP$).. "REGISTRO
NUM.";R.TT)H(A$(R,1),24).O ..:.U .....
...PR.5..4: 4.. ..:.. ... 2520..!$.. G(1
47):. 2720.1!)..PR.5.." .IMPRIMIENDO."
: .4,4:.4.R!....2)"EL FICHERO "N$" TIENE
".V!8.. .2)DP$" MAYOR QUE "CP$:. 2720..
!B.. R.1 . Y..!C..PR.5.C(D(R)).2.TT.5..!
D..PR.5.C(D(R)).3.TT.4.O!E..PR.5.C(D(R))
.4.TT.3.."L.. E(A$(R,C)).E(CP$).. "REGIS
TRO NUM.";R.TT)H(A$(R,1),24).."V.:.."`..
.("E..PR.5..4: 4.."J.:.9"T.. 2520.L"~..G
(147):. 2720.S"...PR.5.." .IMPRIMIENDO
.": .4,4:.4.."... .2)"EL FICHERO "N$" TI
ENE".."... .2)DP$" = "CP$:. 2720.."... R
.1 . Y.W"...PR.5.C(D(R)).2.TT.5.."...PR.
5.C(D(R)).3.TT.4..#...PR.5.C(D(R)).4.TT.
3.D#...H(A$(R,C),F).CP$.."REGISTRO NUM.
";R.TT)H(A$(R,1),24).J#..:.P#....`#...PR
.5..4: 4.F#D.:.L#N.:..#X..:. 158,0:. .10
)".PULSE 'SPACE'."..#... K$:. K$."". 253
0.C#... K$." " . R.R.1:.270.N#... 2530.T
#..:..#..B$." ":."";..#...IP$:.IP$.""..2
580..$...B$." ".F(IP$).20..2580.E$(..F(I
P$).20.B$.H(B$,C(B$).1):.". .";:.2580.D$
2..IP$.G(13).IP$.J(B$,2):.:..}$<.A.F(IP$
):.A.11..2580..$F.B$.B$.IP$:.".";IP$;"."
;:.2580..$P.:..$Z.:..$D.. EM$.H$N.. T8.1
.1000:..N$....T$..:..% ..".............
..........................":..6%..."----
-----------------------------------":..<
%..:.J%... "DESEA CARGAR .L.OAD O GRABAR
.S.AVE":...%H.. K$:. K$."". 2760..%R..
K$."L".3070..%... K$."S".2800..%...2760.
.%... Y.0 . EM$.".NO EXISTE FICHERO.":.2
650:.270..%...4380..&..."QUIERE GRABAR E
N .D.ISCO O .T. CINTA?":..%&... 158,0.=&
".. K$:. K$."" . 2850.Q&,.. K$."T" . 290
0.E&6.. K$."D" . 3250.P&@.. 2850.V&J.:..
&T..4380..&Y..".COLOQUE LA C. CASSETTE".
.&^.."PULSE .C. PARA SEGUIR".H&H.. 158,0
..&R.. K$:. K$.."C" . 2930..&|..4380:."G
RABANDO ."N$..'...".."..'... 1,1,1,N$.#'
...1,Y:.1,X.;'... C.1 . X:.1,A(C):..U'..
. C.1 . X:.1,AA$(C):..C'... R.1 . Y.~'..
. C.1 . X:.1,A$(R,C):...'B....'L.. C.1 .
X:.1,A$(0,C):...'V. 1..'... 270..'..:.
.'..:.J'...:. 4460..'...4380: ."QUIERE C
ARGAR DESDE:-"..(...".D.ISCO O .T.=CINTA
":.158,0.&(&.. K$:. K$."".3110.7(0..K$."
T".3160.H(:..K$."D".3210.R(D..3110.X(N.:
.K(X.T.1:U.0:NN$.N$..(B..4380:."COLOQUE
LA CINTA EN EL CASSETTE "..(L.."Y PULSE
.Y. PARA SEGUIR".O(V.. K$:.K$.."Y".3190.
Y(...3460..(..:..)..T.8:U.4:N1$."0:":N2$
.",SEQ,READ":NN$.N1$.NN$.N2$..)...3460.$
)..:.*)..:.4)...4380.^)F.."DESEA GRABAR
EN EL DRIVE .0. O .1.".V)Z.. K$:. K$.""
. 3290..)... E(K$).0. DR.0:. 3330..)...
E(K$).1. DR.1:. 3330..)...3290..)..N1$."
DR:":N2$.",SEQ,WRITE":NN$.N1$.N$.N2$..).
..1,8,4,"@".NN$..*...1,Y:.G(13);..* ..1,
X:.G(13);.9**.. C.1 . X:.1,A(C):.G(13);:
..[*4.. C.1 . X:.1,AA$(C):.G(13);:..I*>.
. R.1 . Y..*H.. C.1 . X:.1,A$(R,C):.G(13
);:...*R....*\.. C.1 . X:.1,A$(0,C):.G(1
3);:...*F. 1.E*P..270.K*Z.:..+...4380:."
NOMBRE FICHERO [ ].........";:. 2
570..+..N$.H(IP$,8):NN$.N$:..,+...T.1.."
...".;+...1,T,U,NN$.I+...1,Y:.1,X.A+...
C.1 . X:.1,A(C):..{+... C.1 . X:.1,AA$(C
):...+... R.1 . Y..+J.. C.1 . X..+T..1,A
$(R,C)..+...:...+... C.1 . X.K+...1,A$(0
,C).Q+....X+.. 1..+...4380..+..."TECLEE
FECHA DE HOY "..,..."(EG. 29.12.82) :";:
.2570.*,$.M$.IP$:..3,...270.9,8.:.L,B.EM
$."F I N .. ***BASE DE DATOS (C)***.":.
2650.{,L.. 144,85:...,V..: ." **
*********************".M,`.." ***
* BASE DE DATOS ****"..-J.." ****
*******************":."
".M-T.." . I . . N . . D . . E . . S
. . C . . O . . M . . P .":..Q-~..G(147
):..14)".**UTILIDADES**.".~-...:..3)""..
-....3)""..-....3)"MEMORIA LIBRE = .M.".
D-....3)"PARA MENU .SPACE .".Z-... V$:.
V$."".3760..-N.. V$."M".3840..-X.. V$."
".270......:.".PULSE SPACE PARA MENU".4.
... K$:.K$.." ".3760.=....270.I....G(147
).W....:.:.:." DISPONE DE ".(0)" BYTES L
IBRES "......:." DESEA VOLVER AL :-"....
..:." .M.ENU PRINCIPAL".I.(..:." .U.= UT
ILIDADES"...2.. K$:. K$."".3890...<.. K$
."M".270../F.. K$."U".3710../P..3890../Z
..4,4:.4.I/D..G(147):.".";N$ .19)"REGIST
RO 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:."DE
SEA REALIZAR ".50...".C.ALCULOS O .T.OTA
LIZAR CAMPOS".K0... K$:. K$."".4020.F0..
.K$."T". .4380:.4240..0H..K$."C". .4
380:.4060..0R..4020..0..."CON QUE CAMPO
DESEA ".K0..."OPERAR,(DE 1 A) "X" :";:.2
570.X0..C.E(IP$)..0...4380..1...AA$(C)."
C"..".CAMPO NO. NUMERICO"..1...AA$(C)."N
".4130.41...I.1.1000:.:.1165.B1".."INTRO
DUZCA LETRA MAS CANTIDAD EJ.(A25)"..1,..
".A.=SUMA .S.RESTAR .M.ULTIPL. .D.IVIDIR
.Z.=CEROS"..16..".R.=SUSTITUIR:";:.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 CAMPO DESEA"..2
..."TOTALIZAR (DE 1 A) "X" :";:.2570..3.
.C.E(IP$)..3...4380.53...AA$(C)."C"..".C
AMPO DE CARACTERES .".J3B..AA$(C)."N".43
10.`3L..I.1.1000:.:.1165.H3V.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 FICHERO.":.2650
:.270..5N..4470.;5X..".CLASIFICACION. CO
MPLETA":.J.1.1000:..D5B..270.~5L.. A$(20
0,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.Q
6P..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$.".NO EXISTE FICHE
RO.":.2650:.270..7...G(147):.:..12)"SALI
DA 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:."D
ESEA SALTO DE LINEA .S.I O .N.O [ ]..";:
.2570..8K.LF$.H(IP$,1).R8M.."DESEA ENVIA
R CODIGO CHR$ A":."LA IMPRESORA .S.I O .
N.O[ ]..";.I8N..2570:CS$.H(IP$,1)..8O..C
S$."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)." ":.47
20.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:.".B
ORRAR. ESTA VD. SEGURO? S/N"..:]..K$:.K$
."".7005..;B..K$."S".7025..;G..K$."N".11
65.$;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$,LNE.1);..<V..Z.1
.."
";..<X..Z..<|.......
> CLICK IMAGE PREVIEW FOR FULL MODAL