TRATADOR TEXTOS
FILE INFORMATION
FILENAME(S): TRATADOR TEXTOS
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-12-02 02:09:38
APPEARS ON: 1 disk(s)
FILE HASH
0f90dcd4fe6d6e737f08bc1d8f9dc2b6dbc1f6edb7241440a1369e1ab20893e6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRATADOR TEXTOS | TRATADOR TEXTOS | PRG | Shine | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 00 00 00 9E 32 33 32 9E 32 30 37 30 |........232.2070|
00000010: 00 00 00 01 00 8F 22 A9 2B 8D 10 08 A9 08 8D 11 |......".+.......|
00000020: 08 60 54 54 54 54 54 54 54 54 54 00 56 08 02 00 |.`TTTTTTTTT.V...|
00000030: 97 38 30 39 2C 32 35 35 3A 8D 33 30 30 30 3A 97 |.809,255:.3000:.|
00000040: 35 33 32 38 31 2C 31 3A 97 35 33 32 38 30 2C 31 |53281,1:.53280,1|
00000050: 32 3A 99 22 90 22 00 A1 08 0A 00 4C 4D B2 35 3A |2:.".".....LM.5:|
00000060: 4C 4C B2 37 30 3A 50 53 B2 33 3A 50 45 B2 33 3A |LL.70:PS.3:PE.3:|
00000070: 50 50 B2 31 3A 52 45 B2 35 30 30 3A 8F 20 50 41 |PP.1:RE.500:. PA|
00000080: 52 41 4D 45 54 52 4F 53 20 44 45 20 49 4D 50 52 |RAMETROS DE IMPR|
00000090: 45 53 49 4F 4E 20 50 4F 52 20 44 45 46 45 43 54 |ESION POR DEFECT|
000000A0: 4F 00 D9 08 0F 00 52 4F 24 B2 C7 28 31 38 29 3A |O.....RO$..(18):|
000000B0: 52 46 24 B2 C7 28 31 34 36 29 3A 43 4C 24 B2 C7 |RF$..(146):CL$..|
000000C0: 28 31 35 37 29 3A 43 52 24 B2 C7 28 32 39 29 3A |(157):CR$..(29):|
000000D0: 43 44 24 B2 C7 28 31 37 29 00 F2 08 11 00 43 55 |CD$..(17).....CU|
000000E0: 24 B2 C7 28 31 34 35 29 3A 48 4F 24 B2 C7 28 31 |$..(145):HO$..(1|
000000F0: 39 29 00 0C 09 14 00 86 41 24 28 35 30 30 29 3A |9)......A$(500):|
00000100: 5A B2 36 35 35 33 36 3A 89 33 38 30 00 12 09 46 |Z.65536:.380...F|
00000110: 00 8F 00 28 09 50 00 4D B2 B8 28 30 29 3A 8B 4D |...(.P.M..(0):.M|
00000120: B3 30 A7 4D B2 4D AA 5A 00 52 09 5A 00 99 22 20 |.0.M.M.Z.R.Z.." |
00000130: 20 20 20 20 22 3B C7 28 31 38 29 22 51 55 45 44 | ";.(18)"QUED|
00000140: 41 4E 20 3A 22 3B 4D 22 9D 20 42 59 54 45 53 22 |AN :";M". BYTES"|
00000150: 3A 8E 00 86 09 5F 00 8F 20 2A 2A 2A 20 52 55 54 |:...._.. *** RUT|
00000160: 49 4E 41 20 44 45 20 45 44 49 43 49 4F 4E 20 44 |INA DE EDICION D|
00000170: 45 20 42 4C 4F 51 55 45 53 20 44 45 20 54 45 58 |E BLOQUES DE TEX|
00000180: 54 4F 20 2A 2A 2A 00 BE 09 64 00 99 C7 28 31 34 |TO ***...d...(14|
00000190: 37 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |7);"------------|
000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 E6 |------------";..|
000001C0: 09 66 00 99 52 4F 24 22 52 45 46 23 22 3B 50 3B |.f..RO$"REF#";P;|
000001D0: 52 46 24 3B 3A 81 58 B2 31 A4 38 3A 99 43 44 24 |RF$;:.X.1.8:.CD$|
000001E0: 3B 3A 82 58 3A 99 00 16 0A 68 00 99 22 2D 2D 2D |;:.X:....h.."---|
000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000210: 2D 2D 2D 2D 2D 22 00 45 0A 6A 00 99 22 20 20 54 |-----".E.j.." T|
00000220: 45 43 4C 41 20 43 4C 52 2F 48 4F 4D 45 3A 20 43 |ECLA CLR/HOME: C|
00000230: 55 52 53 4F 52 20 41 20 46 49 4E 20 44 45 20 4C |URSOR A FIN DE L|
00000240: 49 4E 45 41 22 00 74 0A 6C 00 99 22 20 20 53 48 |INEA".t.l.." SH|
00000250: 49 46 54 20 43 4C 52 2F 48 4F 4D 45 3A 20 43 55 |IFT CLR/HOME: CU|
00000260: 52 53 4F 52 20 41 20 50 52 49 4E 43 49 50 49 4F |RSOR A PRINCIPIO|
00000270: 20 44 45 22 00 9E 0A 6E 00 99 22 20 43 52 53 52 | DE"...n.." CRSR|
00000280: 20 4C 45 46 54 2F 52 49 47 48 54 3A 20 4D 55 45 | LEFT/RIGHT: MUE|
00000290: 56 45 4E 20 45 4C 20 43 55 52 53 4F 52 22 00 C6 |VEN EL CURSOR"..|
000002A0: 0A 70 00 99 22 20 20 54 45 43 4C 41 20 49 4E 53 |.p.." TECLA INS|
000002B0: 54 2F 44 45 4C 3A 20 42 4F 52 52 41 20 43 41 52 |T/DEL: BORRA CAR|
000002C0: 41 43 54 45 52 22 00 F0 0A 72 00 99 22 20 20 53 |ACTER"...r.." S|
000002D0: 48 49 46 54 20 49 4E 54 53 2F 44 45 4C 3A 20 49 |HIFT INTS/DEL: I|
000002E0: 4E 53 45 52 54 41 20 45 53 50 41 43 49 4F 20 22 |NSERTA ESPACIO "|
000002F0: 00 1F 0B 74 00 99 22 20 20 20 20 54 45 43 4C 41 |...t.." TECLA|
00000300: 20 52 45 54 55 52 4E 3A 20 56 55 45 4C 56 45 20 | RETURN: VUELVE |
00000310: 41 4C 20 4D 4F 44 4F 20 4E 4F 52 4D 41 4C 22 00 |AL MODO NORMAL".|
00000320: 37 0B 76 00 8B 41 24 28 50 29 B2 22 22 A7 41 24 |7.v..A$(P)."".A$|
00000330: 28 50 29 B2 22 20 22 00 4C 0B 78 00 99 48 4F 24 |(P)." ".L.x..HO$|
00000340: 43 44 24 43 44 24 3B 41 24 28 50 29 00 74 0B 7A |CD$CD$;A$(P).t.z|
00000350: 00 4C B2 31 3A 99 48 4F 24 43 44 24 43 44 24 52 |.L.1:.HO$CD$CD$R|
00000360: 4F 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 3B |O$;.(A$(P),L,1);|
00000370: 43 4C 24 3B 00 87 0B 7C 00 A1 45 24 3A 8B 45 24 |CL$;...|..E$:.E$|
00000380: B2 22 22 A7 31 32 34 00 9E 0B 7E 00 45 B2 C6 28 |."".124...~.E..(|
00000390: 45 24 29 3A 8B 45 B2 31 33 A7 89 31 37 34 00 B2 |E$):.E.13..174..|
000003A0: 0B 80 00 8B 45 B1 33 31 AF 45 B3 39 36 A7 89 31 |....E.31.E.96..1|
000003B0: 36 32 00 C9 0B 82 00 8B 45 B2 32 39 AF 4C AA 31 |62......E.29.L.1|
000003C0: B1 32 34 30 A7 89 31 32 34 00 EB 0B 84 00 8B 45 |.240..124......E|
000003D0: B2 32 39 A7 99 52 46 24 3B CA 28 41 24 28 50 29 |.29..RF$;.(A$(P)|
000003E0: 2C 4C 2C 31 29 3B 3A 89 31 37 30 00 01 0C 86 00 |,L,1);:.170.....|
000003F0: 8B 45 B2 31 35 37 AF 4C AB 31 B3 31 A7 89 31 32 |.E.157.L.1.1..12|
00000400: 34 00 33 0C 88 00 8B 45 B2 31 35 37 A7 99 52 46 |4.3....E.157..RF|
00000410: 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 3B 3A |$;.(A$(P),L,1);:|
00000420: 4C B2 4C AB 31 3A 99 43 4C 24 43 4C 24 3B 3A 89 |L.L.1:.CL$CL$;:.|
00000430: 31 37 32 00 48 0C 8A 00 8B 45 B2 31 34 35 B0 45 |172.H....E.145.E|
00000440: B2 31 37 A7 89 31 32 34 00 60 0C 8C 00 8B 45 B2 |.17..124.`....E.|
00000450: 31 34 38 AF 4C AA 31 B1 32 34 30 A7 89 31 32 34 |148.L.1.240..124|
00000460: 00 83 0C 8E 00 8B 45 B2 31 34 37 A7 99 52 46 24 |......E.147..RF$|
00000470: 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 3B 3A 89 |;.(A$(P),L,1);:.|
00000480: 31 32 32 00 B6 0C 90 00 8B 45 B2 31 39 A7 99 52 |122......E.19..R|
00000490: 46 24 48 4F 24 43 44 24 43 44 24 3B 41 24 28 50 |F$HO$CD$CD$;A$(P|
000004A0: 29 3B 43 4C 24 3B 3A 4C B2 C3 28 41 24 28 50 29 |);CL$;:L..(A$(P)|
000004B0: 29 3A 89 31 37 32 00 C7 0C 92 00 8B 45 B3 B1 31 |):.172......E..1|
000004C0: 34 38 A7 89 31 35 34 00 FC 0C 94 00 99 52 46 24 |48..154......RF$|
000004D0: 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 3B 43 4C |;.(A$(P),L,1);CL|
000004E0: 24 3B C7 28 31 34 38 29 3B 22 20 22 3B 43 4C 24 |$;.(148);" ";CL$|
000004F0: 52 4F 24 3B 22 20 22 3B 43 4C 24 3B 00 3A 0D 96 |RO$;" ";CL$;.:..|
00000500: 00 54 43 24 B2 41 24 28 50 29 3A 54 43 24 B2 C9 |.TC$.A$(P):TC$..|
00000510: 28 54 43 24 2C C3 28 54 43 24 29 AB 4C AA 31 29 |(TC$,.(TC$).L.1)|
00000520: 3A 41 24 28 50 29 B2 C8 28 41 24 28 50 29 2C 4C |:A$(P)..(A$(P),L|
00000530: AB 31 29 3A 45 24 B2 22 20 22 00 56 0D 98 00 41 |.1):E$." ".V...A|
00000540: 24 28 50 29 B2 41 24 28 50 29 AA 45 24 AA 54 43 |$(P).A$(P).E$.TC|
00000550: 24 3A 89 31 32 34 00 66 0D 9A 00 8B 45 B3 B1 32 |$:.124.f....E..2|
00000560: 30 A7 89 31 36 32 00 7A 0D 9C 00 4C B2 4C AB 31 |0..162.z...L.L.1|
00000570: 3A 8B 4C B3 31 A7 89 31 32 32 00 AF 0D 9E 00 54 |:.L.1..122.....T|
00000580: 43 24 B2 41 24 28 50 29 3A 54 43 24 B2 C9 28 54 |C$.A$(P):TC$..(T|
00000590: 43 24 2C C3 28 54 43 24 29 AB 4C 29 3A 41 24 28 |C$,.(TC$).L):A$(|
000005A0: 50 29 B2 C8 28 41 24 28 50 29 2C 4C AB 31 29 00 |P)..(A$(P),L.1).|
000005B0: D0 0D A0 00 41 24 28 50 29 B2 41 24 28 50 29 AA |....A$(P).A$(P).|
000005C0: 54 43 24 3A 99 C7 28 32 30 29 3B 3A 89 31 32 34 |TC$:..(20);:.124|
000005D0: 00 E2 0D A2 00 8B 4C AA 31 B1 32 34 30 A7 89 31 |......L.1.240..1|
000005E0: 32 34 00 17 0E A4 00 54 43 24 B2 41 24 28 50 29 |24.....TC$.A$(P)|
000005F0: 3A 54 43 24 B2 C9 28 54 43 24 2C C3 28 54 43 24 |:TC$..(TC$,.(TC$|
00000600: 29 AB 4C 29 3A 41 24 28 50 29 B2 C8 28 41 24 28 |).L):A$(P)..(A$(|
00000610: 50 29 2C 4C AB 31 29 00 2E 0E A6 00 41 24 28 50 |P),L.1).....A$(P|
00000620: 29 B2 41 24 28 50 29 AA 45 24 AA 54 43 24 00 45 |).A$(P).E$.TC$.E|
00000630: 0E A8 00 99 52 46 24 3B CA 28 41 24 28 50 29 2C |....RF$;.(A$(P),|
00000640: 4C 2C 31 29 3B 00 70 0E AA 00 4C B2 4C AA 31 3A |L,1);.p...L.L.1:|
00000650: 8B CA 28 41 24 28 50 29 2C 4C 2C 31 29 B2 22 22 |..(A$(P),L,1).""|
00000660: A7 41 24 28 50 29 B2 41 24 28 50 29 AA 22 20 22 |.A$(P).A$(P)." "|
00000670: 00 90 0E AC 00 99 52 4F 24 3B CA 28 41 24 28 50 |......RO$;.(A$(P|
00000680: 29 2C 4C 2C 31 29 3B 43 4C 24 3B 3A 89 31 32 34 |),L,1);CL$;:.124|
00000690: 00 A8 0E AE 00 99 52 46 24 3B CA 28 41 24 28 50 |......RF$;.(A$(P|
000006A0: 29 2C 4C 2C 31 29 3A 8E 00 D5 0E F0 00 8F 20 2A |),L,1):....... *|
000006B0: 2A 2A 2A 20 53 55 42 52 55 54 49 4E 41 20 44 45 |*** SUBRUTINA DE|
000006C0: 20 45 4E 54 52 41 44 41 20 44 45 20 44 41 54 4F | ENTRADA DE DATO|
000006D0: 53 20 2A 2A 2A 00 E2 0E F5 00 41 24 28 50 29 B2 |S ***.....A$(P).|
000006E0: 22 22 00 FA 0E FA 00 81 4E B2 31 A4 32 34 30 3A |""......N.1.240:|
000006F0: 99 22 20 20 9D 9D A4 9D 22 3B 00 0D 0F FF 00 A1 |." ....";......|
00000700: 42 24 3A 8B 42 24 B2 22 22 A7 32 35 35 00 1A 0F |B$:.B$."".255...|
00000710: 04 01 42 41 B2 C6 28 42 24 29 00 46 0F 09 01 8B |..BA..(B$).F....|
00000720: 42 41 B2 32 30 A7 8D 31 35 30 30 3A 99 C7 28 31 |BA.20..1500:..(1|
00000730: 35 37 29 3B C7 28 33 32 29 3B C7 28 31 35 37 29 |57);.(32);.(157)|
00000740: 3B 3A 89 33 30 35 00 5C 0F 0E 01 8B 42 41 B2 31 |;:.305.\....BA.1|
00000750: 33 A7 4E B2 32 34 30 3A 89 33 30 35 00 71 0F 18 |3.N.240:.305.q..|
00000760: 01 8B 42 41 B2 39 34 A7 99 22 20 20 20 20 20 22 |..BA.94.." "|
00000770: 3B 00 7E 0F 1D 01 8B 42 41 B2 34 33 A7 99 00 87 |;.~....BA.43....|
00000780: 0F 27 01 99 42 24 3B 00 9A 0F 2C 01 41 24 28 50 |.'..B$;...,.A$(P|
00000790: 29 B2 41 24 28 50 29 AA 42 24 00 A0 0F 31 01 82 |).A$(P).B$...1..|
000007A0: 00 A6 0F 36 01 8E 00 CE 0F 40 01 8F 3A 20 2A 2A |...6.....@..: **|
000007B0: 2A 2A 20 52 55 54 49 4E 41 20 44 45 20 56 49 53 |** RUTINA DE VIS|
000007C0: 55 41 4C 49 5A 41 43 49 4F 4E 20 2A 2A 2A 00 DE |UALIZACION ***..|
000007D0: 0F 4A 01 8B 41 24 28 50 29 B2 22 22 A7 8E 00 06 |.J..A$(P).""....|
000007E0: 10 55 01 8B C6 28 C8 28 41 24 28 50 29 2C 31 29 |.U...(.(A$(P),1)|
000007F0: 29 B2 39 34 A7 99 22 20 20 20 20 20 22 3B 41 24 |).94.." ";A$|
00000800: 28 50 29 3B 3A 8E 00 28 10 5F 01 8B C6 28 C8 28 |(P);:..(._...(.(|
00000810: 41 24 28 50 29 2C 31 29 29 B2 34 33 A7 99 3A 99 |A$(P),1)).43..:.|
00000820: 41 24 28 50 29 3B 3A 8E 00 36 10 73 01 99 41 24 |A$(P);:..6.s..A$|
00000830: 28 50 29 3B 3A 8E 00 52 10 7C 01 8F 20 2A 2A 2A |(P);:..R.|.. ***|
00000840: 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 20 2A |MENU PRINCIPAL *|
00000850: 2A 2A 00 67 10 86 01 99 C7 28 31 34 37 29 3B C7 |**.g.....(147);.|
00000860: 28 31 34 32 29 3A 99 00 8C 10 95 01 99 22 20 20 |(142):......." |
00000870: 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D | =======|
00000880: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 B1 10 9A |==========="....|
00000890: 01 99 22 20 20 20 20 20 20 20 20 20 20 20 3D 20 |.." = |
000008A0: 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 20 3D |MENU PRINCIPAL =|
000008B0: 22 00 D6 10 A4 01 99 22 20 20 20 20 20 20 20 20 |"......" |
000008C0: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
000008D0: 3D 3D 3D 3D 3D 22 00 DC 10 A9 01 99 00 FC 10 AE |====="..........|
000008E0: 01 99 3A 99 22 20 20 20 20 20 31 2E 20 45 53 43 |..:." 1. ESC|
000008F0: 52 49 42 49 52 20 54 45 58 54 4F 22 00 26 11 B8 |RIBIR TEXTO".&..|
00000900: 01 99 3A 99 22 20 20 20 20 20 32 2E 20 52 45 56 |..:." 2. REV|
00000910: 49 53 41 52 2F 45 44 49 54 41 52 20 55 4E 20 42 |ISAR/EDITAR UN B|
00000920: 4C 4F 51 55 45 22 00 51 11 BD 01 99 3A 99 22 20 |LOQUE".Q....:." |
00000930: 20 20 20 20 33 2E 20 49 4E 53 45 52 54 41 52 2F | 3. INSERTAR/|
00000940: 43 4F 50 49 41 52 20 55 4E 20 42 4C 4F 51 55 45 |COPIAR UN BLOQUE|
00000950: 22 00 74 11 C2 01 99 3A 99 22 20 20 20 20 20 34 |".t....:." 4|
00000960: 2E 20 4C 45 45 52 20 44 45 4C 20 43 41 53 53 45 |. LEER DEL CASSE|
00000970: 54 54 45 22 00 99 11 CC 01 99 3A 99 22 20 20 20 |TTE"......:." |
00000980: 20 20 35 2E 20 47 55 41 52 44 41 52 20 45 4E 20 | 5. GUARDAR EN |
00000990: 43 41 53 53 45 54 54 45 22 00 BE 11 D6 01 99 3A |CASSETTE"......:|
000009A0: 99 22 20 20 20 20 20 36 2E 20 53 41 43 41 52 20 |." 6. SACAR |
000009B0: 50 4F 52 20 49 4D 50 52 45 53 4F 52 41 22 00 D8 |POR IMPRESORA"..|
000009C0: 11 E0 01 99 3A 99 22 20 20 20 20 20 37 2E 20 54 |....:." 7. T|
000009D0: 45 52 4D 49 4E 41 52 22 00 E2 11 E4 01 99 3A 8D |ERMINAR"......:.|
000009E0: 37 30 00 03 12 E5 01 99 3A 99 22 20 20 20 20 20 |70......:." |
000009F0: 53 45 4C 45 43 43 49 4F 4E 41 52 20 28 31 2D 37 |SELECCIONAR (1-7|
00000A00: 29 3A 22 00 18 12 EA 01 A1 41 4F 24 3A 8B 41 4F |):"......AO$:.AO|
00000A10: 24 B2 22 22 A7 34 39 30 00 29 12 F4 01 8B 41 4F |$."".490.)....AO|
00000A20: 24 B2 22 31 22 A7 35 37 30 00 3A 12 FE 01 8B 41 |$."1".570.:....A|
00000A30: 4F 24 B2 22 32 22 A7 36 38 30 00 4D 12 03 02 8B |O$."2".680.M....|
00000A40: 41 4F 24 B2 22 33 22 A7 8D 32 31 30 30 00 60 12 |AO$."3"..2100.`.|
00000A50: 08 02 8B 41 4F 24 B2 22 34 22 A7 89 31 31 34 30 |...AO$."4"..1140|
00000A60: 00 73 12 12 02 8B 41 4F 24 B2 22 35 22 A7 8D 31 |.s....AO$."5"..1|
00000A70: 32 30 30 00 86 12 1C 02 8B 41 4F 24 B2 22 36 22 |200......AO$."6"|
00000A80: A7 8D 31 30 36 30 00 A3 12 26 02 8B 41 4F 24 B2 |..1060...&..AO$.|
00000A90: 22 37 22 A7 A0 32 30 30 3A 97 38 30 39 2C 32 34 |"7"..200:.809,24|
00000AA0: 36 3A A2 00 AC 12 30 02 89 33 38 30 00 D0 12 3A |6:....0..380...:|
00000AB0: 02 8F 20 2A 2A 2A 2A 20 52 55 54 49 4E 41 20 44 |.. **** RUTINA D|
00000AC0: 45 20 45 53 43 52 49 54 55 52 41 20 2A 2A 2A 2A |E ESCRITURA ****|
00000AD0: 00 DD 12 44 02 81 47 B2 31 A4 35 30 30 00 F5 12 |...D..G.1.500...|
00000AE0: 4E 02 8B 41 24 28 47 29 B2 22 22 A7 46 B2 47 3A |N..A$(G)."".F.G:|
00000AF0: 47 B2 35 30 30 00 FB 12 58 02 82 00 07 13 5A 02 |G.500...X.....Z.|
00000B00: 99 C7 28 31 34 37 29 00 32 13 5B 02 99 22 20 20 |..(147).2.[.." |
00000B10: 20 20 45 4E 54 52 41 20 45 4C 20 4E 55 4D 45 52 | ENTRA EL NUMER|
00000B20: 4F 20 44 45 20 52 45 46 45 52 45 4E 43 49 41 20 |O DE REFERENCIA |
00000B30: 4F 22 00 62 13 5C 02 99 22 20 27 52 45 54 55 52 |O".b.\.." 'RETUR|
00000B40: 4E 27 20 20 50 41 52 41 20 4C 41 20 50 52 4F 58 |N' PARA LA PROX|
00000B50: 49 4D 41 20 44 49 53 50 4F 4E 49 42 4C 45 22 3A |IMA DISPONIBLE":|
00000B60: 85 46 00 8E 13 5D 02 8B 46 B3 31 B0 46 B1 35 30 |.F...]..F.1.F.50|
00000B70: 30 A7 99 22 44 45 20 31 20 41 20 35 30 30 20 50 |0.."DE 1 A 500 P|
00000B80: 4F 52 20 46 41 56 4F 52 22 3A 89 36 30 33 00 CB |OR FAVOR":.603..|
00000B90: 13 62 02 99 C7 28 31 34 37 29 22 2D 2D 2D 2D 2D |.b...(147)"-----|
00000BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BC0: 2D 2D 2D 22 3B C7 28 31 34 29 3B 00 D8 13 6C 02 |---";.(14);...l.|
00000BD0: 81 50 B2 46 A4 35 30 30 00 ED 13 76 02 99 C7 28 |.P.F.500...v...(|
00000BE0: 31 38 29 3B 50 3B C7 28 31 34 36 29 3B 00 22 14 |18);P;.(146);.".|
00000BF0: 7B 02 8B 41 24 28 50 29 B3 B1 22 22 A7 99 C7 28 |{..A$(P)..""...(|
00000C00: 31 38 29 3B 22 52 45 46 2E 20 4F 43 55 50 41 44 |18);"REF. OCUPAD|
00000C10: 41 22 3A 81 58 B2 31 A4 31 30 30 3A 82 3A 89 36 |A":.X.1.100:.:.6|
00000C20: 36 30 00 2B 14 80 02 8D 32 34 30 00 41 14 8A 02 |60.+....240.A...|
00000C30: 8B 28 41 24 28 50 29 29 B2 22 22 A7 50 B2 35 30 |.(A$(P))."".P.50|
00000C40: 30 00 47 14 94 02 82 00 50 14 9E 02 89 33 38 30 |0.G.....P....380|
00000C50: 00 76 14 A8 02 8F 20 2A 2A 2A 20 52 45 56 49 53 |.v.... *** REVIS|
00000C60: 41 2F 43 4F 52 52 49 47 45 20 50 41 4E 54 41 4C |A/CORRIGE PANTAL|
00000C70: 4C 41 20 2A 2A 2A 00 82 14 B2 02 99 C7 28 31 34 |LA ***.......(14|
00000C80: 37 29 00 A1 14 BC 02 85 22 45 4E 54 52 41 20 52 |7)......"ENTRA R|
00000C90: 45 46 23 20 41 20 52 45 56 49 53 41 52 3A 22 3B |EF# A REVISAR:";|
00000CA0: 50 00 D4 14 C6 02 8B 50 B3 31 B0 50 B1 35 30 30 |P......P.1.P.500|
00000CB0: A7 99 50 4F 24 22 44 45 20 31 20 41 20 35 30 30 |..PO$"DE 1 A 500|
00000CC0: 20 50 4F 52 20 46 41 56 4F 52 2D 22 52 46 24 3A | POR FAVOR-"RF$:|
00000CD0: 89 37 30 30 00 F8 14 D0 02 8F 20 2A 2A 2A 2A 20 |.700...... **** |
00000CE0: 56 49 53 55 41 4C 49 5A 41 20 54 45 58 54 4F 20 |VISUALIZA TEXTO |
00000CF0: 52 45 46 20 2A 2A 2A 2A 00 30 15 D5 02 99 C7 28 |REF ****.0.....(|
00000D00: 31 34 37 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |147);"----------|
00000D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B |--------------";|
00000D30: 00 4C 15 DA 02 99 C7 28 31 34 29 3B 52 4F 24 3B |.L.....(14);RO$;|
00000D40: 22 52 45 46 23 22 3B 50 3B 52 46 24 00 5F 15 E4 |"REF#";P;RF$._..|
00000D50: 02 8B 41 24 28 50 29 B3 B1 22 22 A7 38 30 30 00 |..A$(P).."".800.|
00000D60: 72 15 F8 02 99 C7 28 31 38 29 3B 22 45 4D 50 54 |r.....(18);"EMPT|
00000D70: 59 22 00 7B 15 0C 03 89 38 32 30 00 84 15 20 03 |Y".{....820... .|
00000D80: 8D 33 32 30 00 9C 15 34 03 99 48 4F 24 3A 81 58 |.320...4..HO$:.X|
00000D90: B2 31 A4 38 3A 99 43 44 24 3B 3A 82 00 CD 15 3E |.1.8:.CD$;:....>|
00000DA0: 03 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
00000DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 ED 15 |-----------";...|
00000DD0: 43 03 99 52 4F 24 22 54 45 43 4C 41 53 20 44 45 |C..RO$"TECLAS DE|
00000DE0: 20 43 4F 4E 54 52 4F 4C 22 3B 52 46 24 00 03 16 | CONTROL";RF$...|
00000DF0: 48 03 99 22 20 27 46 27 3A 20 41 44 45 4C 41 4E |H.." 'F': ADELAN|
00000E00: 54 45 22 00 16 16 52 03 99 22 20 27 42 27 3A 20 |TE"...R.." 'B': |
00000E10: 41 54 52 41 53 22 00 29 16 5C 03 99 22 20 27 58 |ATRAS".).\.." 'X|
00000E20: 27 3A 20 53 41 4C 49 52 22 00 43 16 61 03 99 A6 |': SALIR".C.a...|
00000E30: 38 29 52 4F 24 22 45 53 43 4F 47 45 20 3F 22 3B |8)RO$"ESCOGE ?";|
00000E40: 52 46 24 00 57 16 66 03 99 22 20 27 44 27 3A 20 |RF$.W.f.." 'D': |
00000E50: 42 4F 52 52 41 52 22 00 6B 16 70 03 99 22 20 27 |BORRAR".k.p.." '|
00000E60: 45 27 3A 20 45 44 49 54 41 52 22 00 8C 16 84 03 |E': EDITAR".....|
00000E70: 99 52 4F 24 22 43 4F 44 49 47 4F 53 20 44 45 20 |.RO$"CODIGOS DE |
00000E80: 43 4F 4E 54 52 4F 4C 3A 22 52 46 24 00 AF 16 89 |CONTROL:"RF$....|
00000E90: 03 99 22 20 20 20 20 20 20 20 20 20 20 27 40 27 |.." '@'|
00000EA0: 20 3A 20 44 4F 42 4C 45 20 41 4E 43 48 4F 22 00 | : DOBLE ANCHO".|
00000EB0: D4 16 8E 03 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000EC0: 27 5E 27 20 3A 20 4E 55 45 56 4F 20 50 41 52 52 |'^' : NUEVO PARR|
00000ED0: 41 46 4F 22 00 F7 16 98 03 99 22 20 20 20 20 20 |AFO"......" |
00000EE0: 20 20 20 20 20 27 2B 27 20 3A 20 53 41 4C 54 41 | '+' : SALTA|
00000EF0: 20 4C 49 4E 45 41 22 00 1F 17 A2 03 99 22 20 20 | LINEA"......" |
00000F00: 20 20 20 20 20 20 20 20 27 5F 27 20 3A 20 4D 41 | '_' : MA|
00000F10: 52 47 45 4E 20 49 5A 51 55 49 45 52 44 4F 22 00 |RGEN IZQUIERDO".|
00000F20: 34 17 AD 03 A1 41 4F 24 3A 8B 41 4F 24 B2 22 22 |4....AO$:.AO$.""|
00000F30: A7 39 34 31 00 40 17 B1 03 99 C7 28 31 34 37 29 |.941.@.....(147)|
00000F40: 00 51 17 B6 03 8B 41 4F 24 B2 22 58 22 A7 33 38 |.Q....AO$."X".38|
00000F50: 30 00 6F 17 C0 03 8B 41 4F 24 B2 22 46 22 AF 50 |0.o....AO$."F".P|
00000F60: B3 35 30 30 A7 50 B2 50 AA 31 3A 89 37 32 30 00 |.500.P.P.1:.720.|
00000F70: 80 17 CA 03 8B 41 4F 24 B2 22 46 22 A7 37 32 30 |.....AO$."F".720|
00000F80: 00 9C 17 D4 03 8B 41 4F 24 B2 22 42 22 AF 50 B1 |......AO$."B".P.|
00000F90: 31 A7 50 B2 50 AB 31 3A 89 37 32 30 00 AD 17 DE |1.P.P.1:.720....|
00000FA0: 03 8B 41 4F 24 B2 22 42 22 A7 37 32 30 00 C4 17 |..AO$."B".720...|
00000FB0: E8 03 8B 41 4F 24 B2 22 45 22 A7 8D 31 30 30 3A |...AO$."E"..100:|
00000FC0: 89 37 32 30 00 DF 17 F2 03 8B 41 4F 24 B2 22 44 |.720......AO$."D|
00000FD0: 22 A7 41 24 28 50 29 B2 22 22 3A 89 37 32 30 00 |".A$(P)."":.720.|
00000FE0: E8 17 FC 03 89 37 32 35 00 0B 18 24 04 8F 20 2A |.....725...$.. *|
00000FF0: 2A 2A 2A 20 48 41 43 45 20 43 4F 50 49 41 20 49 |*** HACE COPIA I|
00001000: 4D 50 52 45 53 41 20 2A 2A 2A 2A 00 17 18 25 04 |MPRESA ****...%.|
00001010: 99 C7 28 31 34 37 29 00 4E 18 26 04 99 22 52 55 |..(147).N.&.."RU|
00001020: 54 49 4E 41 20 44 45 20 43 4F 4E 46 49 47 55 52 |TINA DE CONFIGUR|
00001030: 41 43 49 4F 4E 20 22 3A 85 51 24 3A 8B C8 28 51 |ACION ":.Q$:..(Q|
00001040: 24 2C 31 29 B3 B1 22 59 22 A7 31 30 38 35 00 83 |$,1).."Y".1085..|
00001050: 18 27 04 99 22 45 4E 54 52 41 20 4D 41 52 47 45 |.'.."ENTRA MARGE|
00001060: 4E 20 49 5A 51 55 49 45 52 44 4F 20 28 4E 55 4D |N IZQUIERDO (NUM|
00001070: 45 52 4F 20 44 45 20 43 41 52 41 43 54 45 52 45 |ERO DE CARACTERE|
00001080: 53 29 22 00 B4 18 28 04 4C 4D B2 35 3A 85 4C 4D |S)"...(.LM.5:.LM|
00001090: 3A 8B 4C 4D B1 37 30 A7 99 22 44 45 20 31 20 41 |:.LM.70.."DE 1 A|
000010A0: 20 37 30 20 50 4F 52 20 46 41 56 4F 52 22 3A 89 | 70 POR FAVOR":.|
000010B0: 31 30 36 33 00 F9 18 29 04 99 22 45 4E 54 52 41 |1063...).."ENTRA|
000010C0: 20 4C 4F 4E 47 49 54 55 44 20 44 45 20 4C 49 4E | LONGITUD DE LIN|
000010D0: 45 41 20 28 4E 55 4D 45 52 4F 20 54 4F 54 41 4C |EA (NUMERO TOTAL|
000010E0: 20 44 45 20 43 41 52 41 43 54 45 52 45 53 22 3A | DE CARACTERES":|
000010F0: 4C 4C B2 37 30 3A 85 4C 4C 00 29 19 2A 04 8B 4C |LL.70:.LL.).*..L|
00001100: 4C B3 32 30 B0 4C 4C B1 38 30 A7 99 22 44 45 20 |L.20.LL.80.."DE |
00001110: 32 30 20 41 20 38 30 20 50 4F 52 20 46 41 56 4F |20 A 80 POR FAVO|
00001120: 52 2D 22 3A 89 31 30 36 35 00 5E 19 2B 04 50 53 |R-":.1065.^.+.PS|
00001130: B2 33 3A 99 22 45 4E 54 52 41 20 4D 41 52 47 45 |.3:."ENTRA MARGE|
00001140: 4E 20 53 55 50 45 52 49 4F 52 20 28 4E 55 4D 45 |N SUPERIOR (NUME|
00001150: 52 4F 20 44 45 20 4C 49 4E 45 41 53 29 22 00 8F |RO DE LINEAS)"..|
00001160: 19 2D 04 85 50 53 3A 8B 50 53 B3 31 B0 50 53 B1 |.-..PS:.PS.1.PS.|
00001170: 36 35 A7 99 22 44 45 20 31 20 41 20 36 35 20 50 |65.."DE 1 A 65 P|
00001180: 4F 52 20 46 41 56 4F 52 22 3A 89 31 30 36 37 00 |OR FAVOR":.1067.|
00001190: C4 19 2F 04 50 45 B2 33 3A 99 22 45 4E 54 52 41 |../.PE.3:."ENTRA|
000011A0: 20 4D 41 52 47 45 4E 20 49 4E 46 45 52 49 4F 52 | MARGEN INFERIOR|
000011B0: 20 28 4E 55 4D 45 52 4F 20 44 45 20 4C 49 4E 45 | (NUMERO DE LINE|
000011C0: 41 53 29 22 00 F5 19 31 04 85 50 45 3A 8B 50 45 |AS)"...1..PE:.PE|
000011D0: B3 31 B0 50 45 B1 36 35 A7 99 22 44 45 20 31 20 |.1.PE.65.."DE 1 |
000011E0: 41 20 36 35 20 50 4F 52 20 46 41 56 4F 52 22 3A |A 65 POR FAVOR":|
000011F0: 89 31 30 37 31 00 14 1A 33 04 52 50 B2 31 3A 99 |.1071...3.RP.1:.|
00001200: 22 45 4E 54 52 41 20 52 45 46 23 20 49 4E 49 43 |"ENTRA REF# INIC|
00001210: 49 41 4C 22 00 47 1A 35 04 85 52 50 3A 8B 52 50 |IAL".G.5..RP:.RP|
00001220: B3 31 B0 52 50 B1 35 30 30 A7 99 22 44 45 20 31 |.1.RP.500.."DE 1|
00001230: 20 41 20 35 30 30 20 50 4F 52 20 46 41 56 4F 52 | A 500 POR FAVOR|
00001240: 22 3A 89 31 30 37 35 00 7D 1A 3B 04 52 45 B2 35 |":.1075.}.;.RE.5|
00001250: 30 30 3A 99 22 45 4E 54 52 41 20 52 45 46 23 20 |00:."ENTRA REF# |
00001260: 46 49 4E 41 4C 22 3A 85 52 45 3A 8B 52 45 B3 31 |FINAL":.RE:.RE.1|
00001270: B0 52 45 B1 35 30 30 A7 89 31 30 37 35 00 C5 1A |.RE.500..1075...|
00001280: 3D 04 99 22 50 52 45 50 41 52 41 20 45 4C 20 50 |=.."PREPARA EL P|
00001290: 41 50 45 4C 20 44 45 20 4C 41 20 49 4D 50 52 45 |APEL DE LA IMPRE|
000012A0: 53 4F 52 41 2E 22 3A 99 22 50 55 4C 53 41 20 55 |SORA.":."PULSA U|
000012B0: 4E 41 20 54 45 43 4C 41 20 50 41 52 41 20 53 45 |NA TECLA PARA SE|
000012C0: 47 55 49 52 22 00 D9 1A 3F 04 A1 51 24 3A 8B 51 |GUIR"...?..Q$:.Q|
000012D0: 24 B2 22 22 A7 31 30 38 37 00 F9 1A 41 04 8F 20 |$."".1087...A.. |
000012E0: 2A 2A 2A 2A 41 43 54 49 56 41 20 49 4D 50 52 45 |****ACTIVA IMPRE|
000012F0: 53 4F 52 41 20 2A 2A 2A 2A 00 0D 1B 43 04 9F 34 |SORA ****...C..4|
00001300: 2C 34 2C 37 3A 9D 34 3A 8D 31 33 38 37 00 36 1B |,4,7:.4:.1387.6.|
00001310: 45 04 4C 4D 24 B2 22 22 3A 81 4A B2 31 A4 4C 4D |E.LM$."":.J.1.LM|
00001320: 3A 4C 4D 24 B2 4C 4D 24 AA C7 28 33 32 29 3A 82 |:LM$.LM$..(32):.|
00001330: 4A 3A 50 46 B2 30 00 43 1B 47 04 81 50 B2 52 50 |J:PF.0.C.G..P.RP|
00001340: A4 52 45 00 68 1B 49 04 8B 41 24 28 50 29 B2 22 |.RE.h.I..A$(P)."|
00001350: 22 AF 41 24 28 50 AA 31 29 B2 22 22 A7 50 B2 35 |".A$(P.1)."".P.5|
00001360: 30 30 3A 89 31 31 31 30 00 72 1B 4C 04 8D 31 33 |00:.1110.r.L..13|
00001370: 30 30 00 78 1B 56 04 82 00 92 1B 60 04 8B 50 46 |00.x.V.....`..PF|
00001380: B2 31 A7 50 4F 24 B2 4C 4D 24 AA 42 24 3A 99 50 |.1.PO$.LM$.B$:.P|
00001390: 4F 24 00 9C 1B 65 04 98 34 3A A0 34 00 A2 1B 6A |O$...e..4:.4...j|
000013A0: 04 8E 00 C7 1B 74 04 8F 20 2A 2A 2A 2A 20 4C 45 |.....t.. **** LE|
000013B0: 45 20 41 52 43 48 49 56 4F 20 44 45 4C 20 44 49 |E ARCHIVO DEL DI|
000013C0: 53 43 4F 20 2A 2A 2A 00 F4 1B 76 04 99 C7 28 31 |SCO ***...v...(1|
000013D0: 34 37 29 3A 99 22 43 41 52 47 41 4E 44 4F 20 45 |47):."CARGANDO E|
000013E0: 4C 20 41 52 43 48 49 56 4F 20 44 45 20 54 45 58 |L ARCHIVO DE TEX|
000013F0: 54 4F 22 3B 00 0A 1C 7E 04 9F 35 2C 31 2C 35 2C |TO";...~..5,1,5,|
00001400: 22 54 45 58 54 46 49 4C 45 22 00 29 1C 80 04 45 |"TEXTFILE".)...E|
00001410: 52 B2 30 3A 8B 45 52 B2 31 A7 45 52 B2 30 3A 46 |R.0:.ER.1.ER.0:F|
00001420: 49 B2 30 3A 89 31 31 38 30 00 33 1C 83 04 84 35 |I.0:.1180.3....5|
00001430: 2C 46 49 00 48 1C 88 04 81 50 B2 31 A4 46 49 3A |,FI.H....P.1.FI:|
00001440: 41 24 28 50 29 B2 22 22 00 73 1C 8A 04 A1 23 35 |A$(P)."".s....#5|
00001450: 2C 43 24 3A 8B C6 28 43 24 29 B3 B1 31 33 A7 41 |,C$:..(C$)..13.A|
00001460: 24 28 50 29 B2 41 24 28 50 29 AA 43 24 3A 89 31 |$(P).A$(P).C$:.1|
00001470: 31 36 32 00 7F 1C 97 04 99 22 2E 22 3B 3A 82 00 |162......".";:..|
00001480: 8A 1C 9C 04 A0 35 3A A0 31 35 00 C4 1C 9E 04 99 |.....5:.15......|
00001490: 3A 99 3A 99 46 49 3B 22 42 4C 4F 51 55 45 53 20 |:.:.FI;"BLOQUES |
000014A0: 44 45 20 54 45 58 54 4F 20 4C 45 49 44 4F 53 2E |DE TEXTO LEIDOS.|
000014B0: 22 3A 99 22 50 55 4C 53 41 20 55 4E 41 20 54 45 |":."PULSA UNA TE|
000014C0: 43 4C 41 22 00 D8 1C A0 04 A1 51 24 3A 8B 51 24 |CLA"......Q$:.Q$|
000014D0: B2 22 22 A7 31 31 38 34 00 E1 1C A6 04 89 33 38 |."".1184......38|
000014E0: 30 00 08 1D B0 04 8F 20 2A 2A 2A 2A 47 55 41 52 |0...... ****GUAR|
000014F0: 44 41 20 41 52 43 48 49 56 4F 20 44 45 20 54 45 |DA ARCHIVO DE TE|
00001500: 58 54 4F 20 2A 2A 2A 2A 00 34 1D B2 04 99 C7 28 |XTO ****.4.....(|
00001510: 31 34 37 29 3A 99 22 47 55 41 52 44 41 4E 44 4F |147):."GUARDANDO|
00001520: 20 41 52 43 48 49 56 4F 20 44 45 20 54 45 58 54 | ARCHIVO DE TEXT|
00001530: 4F 22 3A 99 00 4A 1D BA 04 9F 35 2C 31 2C 35 2C |O":..J....5,1,5,|
00001540: 22 54 45 58 54 46 49 4C 45 22 00 69 1D BF 04 45 |"TEXTFILE".i...E|
00001550: 52 B2 30 3A 8B 45 52 B2 31 A7 45 52 B2 30 3A 46 |R.0:.ER.1.ER.0:F|
00001560: 49 B2 30 3A 89 31 32 37 35 00 76 1D D8 04 81 50 |I.0:.1275.v....P|
00001570: B2 31 A4 35 30 30 00 8A 1D DD 04 8B 41 24 28 50 |.1.500......A$(P|
00001580: 29 B3 B1 22 22 A7 46 49 B2 50 00 91 1D E2 04 82 |).."".FI.P......|
00001590: 50 00 9B 1D E7 04 98 35 2C 46 49 00 A7 1D EC 04 |P......5,FI.....|
000015A0: 81 50 B2 31 A4 46 49 00 B4 1D F1 04 98 35 2C 41 |.P.1.FI......5,A|
000015B0: 24 28 50 29 00 BB 1D F6 04 82 50 00 C6 1D FB 04 |$(P)......P.....|
000015C0: A0 35 3A A0 31 35 00 FF 1D 00 05 99 46 49 3B 22 |.5:.15......FI;"|
000015D0: 42 4C 4F 51 55 45 53 20 44 45 20 54 45 58 54 4F |BLOQUES DE TEXTO|
000015E0: 20 47 55 41 52 44 41 44 4F 53 2E 22 3A 99 22 50 | GUARDADOS.":."P|
000015F0: 55 4C 53 41 20 55 4E 41 20 54 45 43 4C 41 22 00 |ULSA UNA TECLA".|
00001600: 13 1E 05 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 |.....Q$:.Q$."".1|
00001610: 32 38 35 00 19 1E 0A 05 8E 00 3C 1E 14 05 8F 20 |285.......<.... |
00001620: 2A 2A 2A 2A 52 55 54 49 4E 41 20 44 45 20 49 4D |****RUTINA DE IM|
00001630: 50 52 45 53 4F 52 41 20 2A 2A 2A 2A 00 4D 1E 19 |PRESORA ****.M..|
00001640: 05 8B 41 24 28 50 29 B2 22 22 A7 20 8E 00 62 1E |..A$(P)."". ..b.|
00001650: 1E 05 54 43 B2 C6 28 C8 28 41 24 28 50 29 2C 31 |..TC..(.(A$(P),1|
00001660: 29 29 00 91 1E 23 05 8B 54 43 B2 39 34 A7 8D 31 |))...#..TC.94..1|
00001670: 33 38 30 3A 43 43 B2 4C 4D AA 35 3A 42 24 B2 22 |380:CC.LM.5:B$."|
00001680: 20 20 20 20 20 22 3A 50 46 B2 31 3A 89 31 33 34 | ":PF.1:.134|
00001690: 30 00 B8 1E 28 05 8B 54 43 B2 34 33 A7 8D 31 33 |0...(..TC.43..13|
000016A0: 38 30 3A 99 3A 4C 43 B2 4C 43 AA 31 3A 8D 31 33 |80:.:LC.LC.1:.13|
000016B0: 38 33 3A 89 31 33 34 30 00 E1 1E 2D 05 8B 54 43 |83:.1340...-..TC|
000016C0: B2 36 34 A7 8D 31 33 38 30 3A 44 57 B2 31 3A 99 |.64..1380:DW.1:.|
000016D0: C7 28 31 34 29 3A 8D 31 33 38 33 3A 89 31 33 34 |.(14):.1383:.134|
000016E0: 30 00 F8 1E 32 05 8B 54 43 B2 39 35 A7 8D 31 33 |0...2..TC.95..13|
000016F0: 38 30 3A 89 31 33 34 30 00 0C 1F 37 05 54 43 24 |80:.1340...7.TC$|
00001700: B2 41 24 28 50 29 3A 89 31 33 34 35 00 37 1F 3C |.A$(P):.1345.7.<|
00001710: 05 54 43 24 B2 C9 28 41 24 28 50 29 2C C3 28 41 |.TC$..(A$(P),.(A|
00001720: 24 28 50 29 29 AB 31 29 3A 8B 54 43 24 B2 22 22 |$(P)).1):.TC$.""|
00001730: A7 50 46 B2 30 3A 8E 00 47 1F 41 05 8B 50 46 B2 |.PF.0:..G.A..PF.|
00001740: 30 A7 42 24 B2 22 22 00 7D 1F 42 05 81 58 B2 31 |0.B$."".}.B..X.1|
00001750: A4 C3 28 54 43 24 29 3A 8B 42 24 B2 22 22 AF CA |..(TC$):.B$.""..|
00001760: 28 54 43 24 2C 58 2C 31 29 B2 C7 28 33 32 29 A7 |(TC$,X,1)..(32).|
00001770: 43 43 B2 43 43 AA 31 3A 58 B2 58 AA 31 00 9A 1F |CC.CC.1:X.X.1...|
00001780: 46 05 43 43 B2 43 43 AA 31 3A 42 24 B2 42 24 AA |F.CC.CC.1:B$.B$.|
00001790: CA 28 54 43 24 2C 58 2C 31 29 00 C2 1F 4B 05 8B |.(TC$,X,1)...K..|
000017A0: 4C 4C AB 43 43 B3 31 30 AF CA 28 54 43 24 2C 58 |LL.CC.10..(TC$,X|
000017B0: 2C 31 29 B2 22 20 22 A7 50 46 B2 31 3A 8D 31 33 |,1)." ".PF.1:.13|
000017C0: 38 30 00 D8 1F 50 05 8B 43 43 B1 4C 4C A7 50 46 |80...P..CC.LL.PF|
000017D0: B2 31 3A 8D 31 33 38 30 00 EB 1F 55 05 82 58 3A |.1:.1380...U..X:|
000017E0: 8B 42 24 B2 22 22 A7 50 46 B2 31 00 F1 1F 5F 05 |.B$."".PF.1..._.|
000017F0: 8E 00 26 20 64 05 8B 50 46 B2 31 AF 42 24 B3 B1 |..& d..PF.1.B$..|
00001800: 22 22 A7 50 4F 24 B2 4C 4D 24 AA 42 24 3A 99 50 |"".PO$.LM$.B$:.P|
00001810: 4F 24 3A 42 24 B2 22 22 3A 43 43 B2 4C 4D 3A 4C |O$:B$."":CC.LM:L|
00001820: 43 B2 4C 43 AA 31 00 3D 20 65 05 8B 44 57 B2 31 |C.LC.1.= e..DW.1|
00001830: A7 99 C7 28 31 35 29 3B 3A 44 57 B2 31 00 52 20 |...(15);:DW.1.R |
00001840: 67 05 8B 4C 43 B3 28 36 36 AB 50 45 29 A7 31 33 |g..LC.(66.PE).13|
00001850: 39 39 00 63 20 69 05 81 49 B2 31 A4 50 45 3A 99 |99.c i..I.1.PE:.|
00001860: 3A 82 49 00 74 20 6B 05 81 49 B2 31 A4 50 53 3A |:.I.t k..I.1.PS:|
00001870: 99 3A 82 49 00 7E 20 6D 05 4C 43 B2 50 53 00 89 |.:.I.~ m.LC.PS..|
00001880: 20 77 05 50 46 B2 30 3A 8E 00 C4 20 DC 05 8F 20 | w.PF.0:... ... |
00001890: 2A 2A 2A 2A 20 52 55 54 49 4E 41 20 44 45 20 54 |**** RUTINA DE T|
000018A0: 45 43 4C 41 20 44 45 4C 45 54 45 20 50 41 52 41 |ECLA DELETE PARA|
000018B0: 20 42 4C 4F 51 55 45 20 45 53 43 52 49 54 4F 20 | BLOQUE ESCRITO |
000018C0: 2A 2A 2A 2A 00 EF 20 E1 05 8B C3 28 41 24 28 50 |****.. ....(A$(P|
000018D0: 29 29 B3 31 A7 41 24 28 50 29 B2 22 22 3A 42 24 |)).1.A$(P)."":B$|
000018E0: B2 22 22 3A 4E B2 32 34 30 3A 89 31 35 33 30 00 |."":N.240:.1530.|
000018F0: 0D 21 E6 05 41 24 28 50 29 B2 C8 28 41 24 28 50 |.!..A$(P)..(A$(P|
00001900: 29 2C C3 28 41 24 28 50 29 29 AB 31 29 00 20 21 |),.(A$(P)).1). !|
00001910: F0 05 8B 4E B1 31 B0 4E B2 31 A7 4E B2 4E AB 31 |...N.1.N.1.N.N.1|
00001920: 00 26 21 FA 05 8E 00 32 21 34 08 99 C7 28 31 34 |.&!....2!4...(14|
00001930: 37 29 00 5D 21 3E 08 99 22 27 49 27 20 49 4E 53 |7).]!>.."'I' INS|
00001940: 45 52 54 41 20 55 4E 20 42 4C 4F 51 55 45 20 56 |ERTA UN BLOQUE V|
00001950: 41 43 49 4F 20 45 4E 20 52 45 46 23 22 00 8B 21 |ACIO EN REF#"..!|
00001960: 48 08 99 22 27 43 27 20 43 4F 50 49 41 20 55 4E |H.."'C' COPIA UN|
00001970: 20 42 4C 4F 51 55 45 20 45 4E 20 4F 54 52 4F 20 | BLOQUE EN OTRO |
00001980: 4E 55 45 56 4F 20 52 45 46 23 22 00 9E 21 52 08 |NUEVO REF#"..!R.|
00001990: 85 22 43 4F 4D 41 4E 44 4F 3A 22 3B 51 24 00 AF |."COMANDO:";Q$..|
000019A0: 21 5C 08 8B 51 24 B2 22 43 22 A7 32 32 30 30 00 |!\..Q$."C".2200.|
000019B0: C0 21 66 08 8B 51 24 B2 22 49 22 A7 32 34 30 30 |.!f..Q$."I".2400|
000019C0: 00 C9 21 70 08 89 33 38 30 00 DD 21 98 08 8F 20 |..!p..380..!... |
000019D0: 43 4F 50 49 41 52 20 42 4C 4F 51 55 45 00 FD 21 |COPIAR BLOQUE..!|
000019E0: A2 08 99 3A 99 22 43 4F 50 49 41 52 20 44 45 20 |...:."COPIAR DE |
000019F0: 42 4C 4F 51 55 45 20 52 45 46 23 3A 22 00 17 22 |BLOQUE REF#:".."|
00001A00: AC 08 85 50 31 3A 8B 50 31 B3 30 B0 50 31 B1 35 |...P1:.P1.0.P1.5|
00001A10: 30 30 A7 32 32 31 30 00 30 22 B1 08 85 22 41 4C |00.2210.0"..."AL|
00001A20: 20 42 4C 4F 51 55 45 20 52 45 46 23 3A 22 3B 50 | BLOQUE REF#:";P|
00001A30: 00 44 22 B6 08 8B 50 B3 30 B0 50 B1 35 30 30 A7 |.D"...P.0.P.500.|
00001A40: 32 32 31 30 00 7F 22 C0 08 99 22 52 45 46 23 22 |2210.."..."REF#"|
00001A50: 3B 50 31 3B 22 20 53 45 52 41 20 43 4F 50 49 41 |;P1;" SERA COPIA|
00001A60: 44 4F 20 45 4E 20 52 45 46 23 22 3B 50 3A 99 22 |DO EN REF#";P:."|
00001A70: 45 53 54 41 53 20 53 45 47 55 52 4F 20 3F 22 00 |ESTAS SEGURO ?".|
00001A80: A1 22 1A 09 51 24 B2 22 4E 22 3A 85 51 24 3A 8B |."..Q$."N":.Q$:.|
00001A90: C8 28 51 24 2C 31 29 B2 22 53 22 A7 89 32 33 35 |.(Q$,1)."S"..235|
00001AA0: 30 00 AA 22 24 09 89 33 38 30 00 BB 22 2E 09 41 |0.."$..380.."..A|
00001AB0: 24 28 50 29 B2 41 24 28 50 31 29 00 D0 22 38 09 |$(P).A$(P1).."8.|
00001AC0: 99 22 4F 54 52 41 20 43 4F 50 49 41 20 3F 3A 22 |."OTRA COPIA ?:"|
00001AD0: 00 F2 22 42 09 51 24 B2 22 4E 22 3A 85 51 24 3A |.."B.Q$."N":.Q$:|
00001AE0: 8B C8 28 51 24 2C 31 29 B2 22 53 22 A7 89 32 32 |..(Q$,1)."S"..22|
00001AF0: 31 30 00 FB 22 4C 09 89 33 38 30 00 2C 23 60 09 |10.."L..380.,#`.|
00001B00: 8F 20 49 4E 53 45 52 54 41 52 20 54 45 58 54 4F |. INSERTAR TEXTO|
00001B10: 20 45 4E 20 42 4C 41 4E 43 4F 20 45 4E 20 45 4C | EN BLANCO EN EL|
00001B20: 20 42 4C 4F 51 55 45 20 52 45 46 23 00 56 23 6A | BLOQUE REF#.V#j|
00001B30: 09 99 3A 99 22 52 45 46 23 20 44 4F 4E 44 45 20 |..:."REF# DONDE |
00001B40: 49 4E 53 45 52 54 41 52 20 45 4C 20 42 4C 4F 51 |INSERTAR EL BLOQ|
00001B50: 55 45 20 3F 3A 22 00 71 23 74 09 85 50 31 3A 8B |UE ?:".q#t..P1:.|
00001B60: 50 31 B3 31 B0 50 31 B1 35 30 30 A7 89 32 34 31 |P1.1.P1.500..241|
00001B70: 30 00 A1 23 7E 09 81 50 B2 50 31 A4 35 30 30 3A |0..#~..P.P1.500:|
00001B80: 8B 41 24 28 50 29 B2 22 22 AF 41 24 28 50 AB 31 |.A$(P)."".A$(P.1|
00001B90: 29 B2 22 22 A7 50 32 B2 50 AB 31 3A 50 B2 35 30 |)."".P2.P.1:P.50|
00001BA0: 30 00 A8 23 88 09 82 50 00 B7 23 8D 09 8B 50 32 |0..#...P..#...P2|
00001BB0: B3 31 A7 50 32 B2 31 00 D8 23 92 09 81 58 B2 50 |.1.P2.1..#...X.P|
00001BC0: 32 A4 50 31 A9 AB 31 3A 41 24 28 58 29 B2 41 24 |2.P1..1:A$(X).A$|
00001BD0: 28 58 AB 31 29 3A 82 58 00 E6 23 97 09 41 24 28 |(X.1):.X..#..A$(|
00001BE0: 50 31 29 B2 22 22 00 11 24 9C 09 99 22 52 45 46 |P1).""..$..."REF|
00001BF0: 23 20 22 3B 50 31 3B 22 20 4C 49 42 52 45 20 50 |# ";P1;" LIBRE P|
00001C00: 41 52 41 20 45 4E 54 52 41 52 20 54 45 58 54 4F |ARA ENTRAR TEXTO|
00001C10: 22 00 36 24 A6 09 51 24 B2 22 4E 22 3A 85 22 49 |".6$..Q$."N":."I|
00001C20: 4E 53 45 52 54 4F 20 4F 54 52 4F 20 42 4C 4F 51 |NSERTO OTRO BLOQ|
00001C30: 55 45 22 3B 51 24 00 4C 24 B0 09 8B C8 28 51 24 |UE";Q$.L$....(Q$|
00001C40: 2C 31 29 B2 22 53 22 A7 32 34 31 30 00 55 24 BA |,1)."S".2410.U$.|
00001C50: 09 89 33 38 30 00 6B 24 B8 0B 97 35 33 32 38 30 |..380.k$...53280|
00001C60: 2C 34 3A 97 35 33 32 38 31 2C 34 00 9F 24 B9 0B |,4:.53281,4..$..|
00001C70: 99 22 93 22 3A 81 58 B2 30 A4 32 32 3A 41 24 B2 |.".":.X.0.22:A$.|
00001C80: 41 24 AA 22 20 22 3A 99 41 24 22 90 53 54 41 52 |A$." ":.A$".STAR|
00001C90: 53 22 3A 81 59 B2 4F A4 33 30 30 3A 82 3A 82 00 |S":.Y.O.300:.:..|
00001CA0: AE 24 1C 0C 81 59 B2 30 A4 35 30 30 3A 82 00 E2 |.$...Y.0.500:...|
00001CB0: 24 80 0C 99 22 93 9E 11 11 11 11 11 1D 1D 1D 1D |$..."...........|
00001CC0: 1D 43 4F 4E 20 20 45 53 54 45 20 50 52 4F 47 52 |.CON ESTE PROGR|
00001CD0: 41 4D 41 20 20 4C 45 20 4F 46 52 45 43 45 4D 4F |AMA LE OFRECEMO|
00001CE0: 53 22 00 16 25 E4 0C 99 3A 99 22 11 1D 1D 1D 1D |S"..%...:.".....|
00001CF0: 1D 55 4E 20 20 50 45 51 55 45 4E 91 9D D2 11 4F |.UN PEQUEN....O|
00001D00: 20 20 54 52 41 54 41 44 4F 52 20 44 45 20 20 54 | TRATADOR DE T|
00001D10: 45 58 54 4F 53 22 00 46 25 48 0D 99 3A 99 22 11 |EXTOS".F%H..:.".|
00001D20: 1D 1D 1D 1D 1D 50 41 52 41 20 47 55 41 52 44 41 |.....PARA GUARDA|
00001D30: 52 20 45 4E 20 43 49 4E 54 41 20 44 49 46 45 52 |R EN CINTA DIFER|
00001D40: 45 4E 54 45 53 22 00 70 25 AC 0D 99 3A 99 22 11 |ENTES".p%...:.".|
00001D50: 1D 1D 1D 1D 1D 54 49 50 4F 53 20 44 45 20 44 4F |.....TIPOS DE DO|
00001D60: 43 55 4D 45 4E 54 4F 53 2F 54 45 58 54 4F 53 22 |CUMENTOS/TEXTOS"|
00001D70: 00 82 25 10 0E 81 58 B2 30 A4 33 30 30 30 3A 82 |..%...X.0.3000:.|
00001D80: 3A 8E 00 00 00 |:.... |
........232.2070......".+........`TTTTTT
TTT.V....809,255:.3000:.53281,1:.53280,1
2:.".".....LM.5:LL.70:PS.3:PE.3:PP.1:RE.
500:. PARAMETROS DE IMPRESION POR DEFECT
O.Y...RO$.G(18):RF$.G(146):CL$.G(157):CR
$.G(29):CD$.G(17).....CU$.G(145):HO$.G(1
9)......A$(500):Z.65536:.380...F...(.P.M
..(0):.M.0.M.M.Z.R.Z.." ";G(18)"QUED
AN :";M". BYTES":...._.. *** RUTINA DE E
DICION DE BLOQUES DE TEXTO ***...D..G(14
7);"------------------------------------
----";...F..RO$"REF#";P;RF$;:.X.1.8:.CD$
;:.X:....H.."---------------------------
-------------".E.J.." TECLA CLR/HOME: C
URSOR A FIN DE LINEA".T.L.." SHIFT CLR/
HOME: CURSOR A PRINCIPIO DE"...N.." CRSR
LEFT/RIGHT: MUEVEN EL CURSOR".F.P.." T
ECLA INST/DEL: BORRA CARACTER"...R.." S
HIFT INTS/DEL: INSERTA ESPACIO "...T.."
TECLA RETURN: VUELVE AL MODO NORMAL".
7.V..A$(P)."".A$(P)." ".L.X..HO$CD$CD$;A
$(P).T.Z.L.1:.HO$CD$CD$RO$;J(A$(P),L,1);
CL$;...|..E$:.E$."".124...~.E.F(E$):.E.1
3..174......E.31.E.96..162.I....E.29.L.1
.240..124......E.29..RF$;J(A$(P),L,1);:.
170......E.157.L.1.1..124.3....E.157..RF
$;J(A$(P),L,1);:L.L.1:.CL$CL$;:.172.H...
.E.145.E.17..124.`....E.148.L.1.240..124
......E.147..RF$;J(A$(P),L,1);:.122.....
.E.19..RF$HO$CD$CD$;A$(P);CL$;:L.C(A$(P)
):.172.G....E..148..154......RF$;J(A$(P)
,L,1);CL$;G(148);" ";CL$RO$;" ";CL$;.:..
.TC$.A$(P):TC$.I(TC$,C(TC$).L.1):A$(P).H
(A$(P),L.1):E$." ".V...A$(P).A$(P).E$.TC
$:.124.F....E..20..162.Z...L.L.1:.L.1..1
22.....TC$.A$(P):TC$.I(TC$,C(TC$).L):A$(
P).H(A$(P),L.1).P. .A$(P).A$(P).TC$:.G(2
0);:.124......L.1.240..124.....TC$.A$(P)
:TC$.I(TC$,C(TC$).L):A$(P).H(A$(P),L.1).
....A$(P).A$(P).E$.TC$.E....RF$;J(A$(P),
L,1);.P...L.L.1:.J(A$(P),L,1)."".A$(P).A
$(P)." "......RO$;J(A$(P),L,1);CL$;:.124
......RF$;J(A$(P),L,1):..U.... **** SUBR
UTINA DE ENTRADA DE DATOS ***.....A$(P).
""......N.1.240:." ....";......B$:.B$."
".255.....BA.F(B$).F....BA.20..1500:.G(1
57);G(32);G(157);:.305.\....BA.13.N.240:
.305.Q....BA.94.." ";.~....BA.43....
.'..B$;...,.A$(P).A$(P).B$. .1.....6...N
.@..: **** RUTINA DE VISUALIZACION ***..
.J..A$(P)."".....U..F(H(A$(P),1)).94.."
";A$(P);:..(._..F(H(A$(P),1)).43..:.
A$(P);:..6.S..A$(P);:..R.|.. ***MENU PRI
NCIPAL ***.G....G(147);G(142):......."
=================="......"
= MENU PRINCIPAL =".V...."
=================="............:."
1. ESCRIBIR TEXTO".&....:." 2. REV
ISAR/EDITAR UN BLOQUE".Q....:." 3. I
NSERTAR/COPIAR UN BLOQUE".T.B..:." 4
. LEER DEL CASSETTE"...L..:." 5. GUA
RDAR EN CASSETTE"...V..:." 6. SACAR
POR IMPRESORA".X....:." 7. TERMINAR"
......:.70......:." SELECCIONAR (1-7
):"......AO$:.AO$."".490.)....AO$."1".57
0.:....AO$."2".680.M....AO$."3"..2100.`.
...AO$."4"..1140.S....AO$."5"..1200.....
.AO$."6"..1060...&..AO$."7". 200:.809,24
6:....0..380.P.:.. **** RUTINA DE ESCRIT
URA ****...D..G.1.500...N..A$(G)."".F.G:
G.500...X.....Z..G(147).2.[.." ENTRA
EL NUMERO DE REFERENCIA O".B.\.." 'RETUR
N' PARA LA PROXIMA DISPONIBLE":.F...]..
F.1.F.500.."DE 1 A 500 POR FAVOR":.603.K
.B..G(147)"-----------------------------
-----------";G(14);.X.L..P.F.500...V..G(
18);P;G(146);.".{..A$(P)..""..G(18);"REF
. OCUPADA":.X.1.100:.:.660.+....240.A...
.(A$(P))."".P.500.G.....P....380.V.... *
** REVISA/CORRIGE PANTALLA ***......G(14
7)......"ENTRA REF# A REVISAR:";P.T.F..P
.1.P.500..PO$"DE 1 A 500 POR FAVOR-"RF$:
.700...P.. **** VISUALIZA TEXTO REF ****
.0.U..G(147);"--------------------------
--------------";.L.Z..G(14);RO$;"REF#";P
;RF$._....A$(P).."".800.R....G(18);"EMPT
Y".{....820... ..320...4..HO$:.X.1.8:.CD
$;:..M.>.."-----------------------------
-----------";...C..RO$"TECLAS DE CONTROL
";RF$...H.." 'F': ADELANTE"...R.." 'B':
ATRAS".).\.." 'X': SALIR".C.A...8)RO$"ES
COGE ?";RF$.W.F.." 'D': BORRAR".K.P.." '
E': EDITAR"......RO$"CODIGOS DE CONTROL:
"RF$......" '@' : DOBLE ANCHO".
T...." '^' : NUEVO PARRAFO"....
.." '+' : SALTA LINEA"......"
'_' : MARGEN IZQUIERDO".4....AO$
:.AO$."".941.@....G(147).Q....AO$."X".38
0.O....AO$."F".P.500.P.P.1:.720...J..AO$
."F".720...T..AO$."B".P.1.P.P.1:.720....
..AO$."B".720.D....AO$."E"..100:.720....
..AO$."D".A$(P)."":.720......725...$.. *
*** HACE COPIA IMPRESA ****...%..G(147).
N.&.."RUTINA DE CONFIGURACION ":.Q$:.H(Q
$,1).."Y".1085...'.."ENTRA MARGEN IZQUIE
RDO (NUMERO DE CARACTERES)"...(.LM.5:.LM
:.LM.70.."DE 1 A 70 POR FAVOR":.1063...)
.."ENTRA LONGITUD DE LINEA (NUMERO TOTAL
DE CARACTERES":LL.70:.LL.).*..LL.20.LL.
80.."DE 20 A 80 POR FAVOR-":.1065.^.+.PS
.3:."ENTRA MARGEN SUPERIOR (NUMERO DE LI
NEAS)"...-..PS:.PS.1.PS.65.."DE 1 A 65 P
OR FAVOR":.1067.D./.PE.3:."ENTRA MARGEN
INFERIOR (NUMERO DE LINEAS)"...1..PE:.PE
.1.PE.65.."DE 1 A 65 POR FAVOR":.1071...
3.RP.1:."ENTRA REF# INICIAL".G.5..RP:.RP
.1.RP.500.."DE 1 A 500 POR FAVOR":.1075.
}.;.RE.500:."ENTRA REF# FINAL":.RE:.RE.1
.RE.500..1075.E.=.."PREPARA EL PAPEL DE
LA IMPRESORA.":."PULSA UNA TECLA PARA SE
GUIR".Y.?..Q$:.Q$."".1087...A.. ****ACTI
VA IMPRESORA ****...C..4,4,7:.4:.1387.6.
E.LM$."":.J.1.LM:LM$.LM$.G(32):.J:PF.0.C
.G..P.RP.RE.H.I..A$(P)."".A$(P.1)."".P.5
00:.1110.R.L..1300.X.V.....`..PF.1.PO$.L
M$.B$:.PO$...E..4: 4...J...G.T.. **** LE
E ARCHIVO DEL DISCO ***...V..G(147):."CA
RGANDO EL ARCHIVO DE TEXTO";...~..5,1,5,
"TEXTFILE".)...ER.0:.ER.1.ER.0:FI.0:.118
0.3....5,FI.H....P.1.FI:A$(P)."".S....#5
,C$:.F(C$)..13.A$(P).A$(P).C$:.1162....
.".";:...... 5: 15.D....:.:.FI;"BLOQUES
DE TEXTO LEIDOS.":."PULSA UNA TECLA".X.
..Q$:.Q$."".1184......380...... ****GUAR
DA ARCHIVO DE TEXTO ****.4....G(147):."G
UARDANDO ARCHIVO DE TEXTO":..J....5,1,5,
"TEXTFILE".I...ER.0:.ER.1.ER.0:FI.0:.127
5.V.X..P.1.500......A$(P).."".FI.P......
P......5,FI......P.1.FI......5,A$(P)....
..P.F... 5: 15......FI;"BLOQUES DE TEXTO
GUARDADOS.":."PULSA UNA TECLA"......Q$:
.Q$."".1285.......<.... ****RUTINA DE IM
PRESORA ****.M....A$(P)."". ..B...TC.F(H
(A$(P),1))...#..TC.94..1380:CC.LM.5:B$."
":PF.1:.1340...(..TC.43..1380:.:LC.
LC.1:.1383:.1340...-..TC.64..1380:DW.1:.
G(14):.1383:.1340...2..TC.95..1380:.1340
...7.TC$.A$(P):.1345.7.<.TC$.I(A$(P),C(A
$(P)).1):.TC$."".PF.0:..G.A..PF.0.B$."".
}.B..X.1.C(TC$):.B$."".J(TC$,X,1).G(32).
CC.CC.1:X.X.1...F.CC.CC.1:B$.B$.J(TC$,X,
1).B.K..LL.CC.10.J(TC$,X,1)." ".PF.1:.13
80.X.P..CC.LL.PF.1:.1380...U..X:.B$."".P
F.1..._...& D..PF.1.B$.."".PO$.LM$.B$:.P
O$:B$."":CC.LM:LC.LC.1.= E..DW.1..G(15);
:DW.1.R G..LC.(66.PE).1399.C I..I.1.PE:.
:.I.T K..I.1.PS:.:.I.~ M.LC.PS.. W.PF.0:
..D ... **** RUTINA DE TECLA DELETE PARA
BLOQUE ESCRITO ****.. ...C(A$(P)).1.A$(
P)."":B$."":N.240:.1530..!..A$(P).H(A$(P
),C(A$(P)).1). !...N.1.N.1.N.N.1.&!....2
!4..G(147).]!>.."'I' INSERTA UN BLOQUE V
ACIO EN REF#"..!H.."'C' COPIA UN BLOQUE
EN OTRO NUEVO REF#"..!R.."COMANDO:";Q$..
!\..Q$."C".2200..!F..Q$."I".2400.I!P..38
0..!... COPIAR BLOQUE..!...:."COPIAR DE
BLOQUE REF#:".."...P1:.P1.0.P1.500.2210.
0"..."AL BLOQUE REF#:";P.D"...P.0.P.500.
2210."..."REF#";P1;" SERA COPIADO EN RE
F#";P:."ESTAS SEGURO ?".."..Q$."N":.Q$:.
H(Q$,1)."S"..2350.."$..380.."..A$(P).A$(
P1).P"8.."OTRA COPIA ?:".."B.Q$."N":.Q$:
.H(Q$,1)."S"..2210.."L..380.,#`.. INSERT
AR TEXTO EN BLANCO EN EL BLOQUE REF#.V#J
..:."REF# DONDE INSERTAR EL BLOQUE ?:".Q
#T..P1:.P1.1.P1.500..2410..#~..P.P1.500:
.A$(P)."".A$(P.1)."".P2.P.1:P.500..#...P
..#...P2.1.P2.1.X#...X.P2.P1..1:A$(X).A$
(X.1):.X..#..A$(P1).""..$..."REF# ";P1;"
LIBRE PARA ENTRAR TEXTO".6$..Q$."N":."I
NSERTO OTRO BLOQUE";Q$.L$...H(Q$,1)."S".
2410.U$...380.K$...53280,4:.53281,4..$..
.".":.X.0.22:A$.A$." ":.A$".STARS":.Y.O.
300:.:...$...Y.0.500:...$..."...........
.CON ESTE PROGRAMA LE OFRECEMOS"..%...
:."......UN PEQUEN..R.O TRATADOR DE T
EXTOS".F%H..:."......PARA GUARDAR EN CIN
TA DIFERENTES".P%...:."......TIPOS DE DO
CUMENTOS/TEXTOS"..%...X.0.3000:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL