Fichero Medico - Version 2 (S) (Face B) (1985) (M-8544-1985) [Original] [TAPE] [UTILITAIRE].cdt
HexaDumpAscii only
000000: 5A 58 54 61 70 65 21 1A 01 00 30 33 32 30 32 32 ZXTape!...032022
000010: 2D 30 31 2D 31 37 20 30 39 3A 34 38 3A 33 33 20 -01-17 09:48:33
000020: 43 53 57 32 43 44 54 2D 32 30 31 39 31 31 30 32 CSW2CDT-20191102
000030: 20 2D 79 20 2D 66 20 32 32 30 35 30 20 2D 35 20 -y -f 22050 -5
000040: 09 53 11 52 09 46 04 46 04 E2 04 6B 09 00 10 08 .S.R.F.F...k....
000050: 11 00 07 01 00 2C 50 52 4F 47 52 41 4D 41 00 00 .....,PROGRAMA..
000060: 00 00 00 00 00 00 01 FF 01 98 05 70 01 FF 98 05 ...........p....
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 2C 35 FF FF FF FF 11 54 09 46 ......,5.....T.F
000160: 04 46 04 E5 04 4F 09 00 10 08 0B 28 11 06 00 16 .F...O.....(....
000170: 0C 00 0A 00 B3 20 9F 20 1E 54 01 00 26 00 14 00 ..... . .T..&...
000180: AD 20 0F 01 82 20 0F 01 A2 20 0E 2C 0F 01 A2 20 . ... ... .,...
000190: 0F 2C 19 18 01 A2 20 10 2C 19 12 01 A2 20 11 2C .,.... .,.... .,
0001A0: 14 00 23 00 1E 00 8C 20 30 2C 33 31 2C 31 32 37 ..#.... 0,31,127
0001B0: 2C 32 34 30 2C 32 32 34 2C 32 32 34 2C 32 32 34 ,240,224,224,224
0001C0: 2C 32 32 34 00 26 00 28 00 8C 20 32 32 34 2C 32 ,224.&.(.. 224,2
0001D0: 32 34 2C 32 32 34 2C 32 35 35 2C 32 35 35 2C 32 24,224,255,255,2
0001E0: 32 34 2C 32 32 34 2C 32 32 34 00 26 00 32 00 8C 24,224,224.&.2..
0001F0: 20 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 32 34 224,224,224,224
000200: 2C 32 32 34 2C 32 32 34 2C 32 34 30 2C 32 34 30 ,224,224,240,240
000210: 00 1A 00 3C 00 8C 20 30 2C 32 35 35 2C 32 35 35 ...<.. 0,255,255
000220: 2C 30 2C 30 2C 30 2C 30 2C 30 00 1C 00 46 00 8C ,0,0,0,0,0...F..
000230: 20 30 2C 30 2C 30 2C 32 35 35 2C 32 35 34 2C 33 0,0,0,255,254,3
000240: 30 2C 31 35 2C 37 00 16 00 50 00 8C 20 33 2C 31 0,15,7...P.. 3,1
000250: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 1C 00 5A ,0,0,0,0,0,0...Z
000260: 00 8C 20 30 2C 32 32 34 2C 32 34 38 2C 32 38 2C .. 0,224,248,28,
000270: F4 2D 31 34 2C 37 2C 37 2C 37 00 1E 00 64 00 8C .-14,7,7,7...d..
000280: 20 31 34 2C 32 38 2C 31 32 30 2C 32 32 34 2C 30 14,28,120,224,0
000290: 2C 30 2C 30 2C 31 32 38 00 22 00 6E 00 8C 20 31 ,0,0,128.".n.. 1
0002A0: 39 32 2C 32 32 34 2C 32 34 30 2C 31 32 30 2C 36 92,224,240,120,6
0002B0: 30 2C 33 30 2C 36 33 2C 36 33 00 23 00 78 00 8C 0,30,63,63.#.x..
0002C0: 20 30 2C 33 31 2C 31 32 37 2C 32 34 30 2C 32 32 0,31,127,240,22
0002D0: 34 2C 32 32 34 2C 32 32 34 2C 32 32 34 00 26 00 4,224,224,224.&.
0002E0: 82 00 8C 20 32 32 34 2C 32 32 34 2C 32 32 34 2C ... 224,224,224,
0002F0: 32 35 35 2C 32 35 35 2C 32 32 34 2C 32 32 34 2C 255,255,224,224,
000300: 32 32 34 00 26 00 8C 00 8C 20 32 32 34 2C 32 32 224.&.... 224,22
000310: 34 2C 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 32 4,224,224,224,22
000320: 34 2C 32 34 30 2C 32 34 30 00 1A 00 96 00 8C 20 4,240,240......
000330: 30 2C 32 35 35 2C 32 35 35 2C 30 2C 30 2C 30 2C 0,255,255,0,0,0,
000340: 30 2C 30 00 1A 00 A0 00 8C 20 30 2C 30 2C 30 2C 0,0...... 0,0,0,
000350: 32 35 35 2C 32 35 35 2C 30 2C 30 2C 30 00 16 00 255,255,0,0,0...
000360: AA 00 8C 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C ... 0,0,0,0,0,0,
000370: 30 2C 6E 43 30 00 1C 00 B4 00 8C 20 30 2C 31 39 0,nC0...... 0,19
000380: 32 2C 32 34 30 2C 32 38 2C 31 34 2C 37 2C 37 2C 2,240,28,14,7,7,
000390: 37 00 1C 00 BE 00 8C 20 31 34 2C 32 38 2C 31 32 7...... 14,28,12
0003A0: 30 2C 32 32 34 2C 30 2C 30 2C 30 2C 30 00 16 00 0,224,0,0,0,0...
0003B0: C8 00 8C 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C ... 0,0,0,0,0,0,
0003C0: 30 2C 30 00 23 00 D2 00 8C 20 30 2C 33 31 2C 31 0,0.#.... 0,31,1
0003D0: 32 37 2C 32 34 30 2C 32 32 34 2C 32 32 34 2C 32 27,240,224,224,2
0003E0: 32 34 2C 32 32 34 00 26 00 DC 00 8C 20 32 32 34 24,224.&.... 224
0003F0: 2C 32 32 34 2C 32 34 30 2C 32 35 35 2C 32 35 35 ,224,240,255,255
000400: 2C 32 34 30 2C 32 32 34 2C 32 32 34 00 26 00 E6 ,240,224,224.&..
000410: 00 8C 20 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 .. 224,224,224,2
000420: 32 34 2C 32 32 34 2C 32 32 34 2C 32 34 30 2C 32 24,224,224,240,2
000430: 34 30 00 1A 00 F0 00 8C 20 30 2C 32 35 35 2C 32 40...... 0,255,2
000440: 35 35 2C 30 2C 30 2C 30 2C 30 2C 30 00 1A 00 FA 55,0,0,0,0,0....
000450: 00 8C 20 30 2C 30 2C 30 2C 32 35 35 2C 32 35 35 .. 0,0,0,255,255
000460: 2C 30 2C 30 2C 30 00 16 00 04 01 8C 20 30 2C 30 ,0,0,0...... 0,0
000470: 2C 30 2C 30 6E 24 2C 30 2C 30 2C 30 2C 30 00 1B ,0,0n$,0,0,0,0..
000480: 00 0E 01 8C 20 30 2C 32 34 38 2C 32 35 34 2C 31 .... 0,248,254,1
000490: 35 2C 37 2C 37 2C 37 2C 37 00 1C 00 18 01 8C 20 5,7,7,7,7......
0004A0: 37 2C 37 2C 31 35 2C 32 35 35 2C 32 35 35 2C 31 7,7,15,255,255,1
0004B0: 35 2C 37 2C 37 00 18 00 22 01 8C 20 37 2C 37 2C 5,7,7...".. 7,7,
0004C0: 37 2C 37 2C 37 2C 37 2C 31 35 2C 31 35 00 2F 00 7,7,7,7,15,15./.
0004D0: 2C 01 C7 20 1E 1E 00 01 03 00 00 6C E6 EF FF 03 ,.. .......l....
0004E0: 28 19 0A 29 F4 FF 03 28 19 0D 29 01 0D 00 00 63 (..)...(..)....c
0004F0: 6E F4 EF 19 20 01 CF 20 80 20 19 20 00 8F 00 36 n... .. . . ...6
000500: 01 9E 20 0D 00 00 E9 EF 0F 20 EC 20 17 01 9E 20 .. ...... . ...
000510: 0D 00 00 EA EF 0F 20 EC 20 11 01 C3 20 0D 00 00 ...... . ... ...
000520: E1 2C 0D 00 00 E2 2C 0D 00 00 E3 2C 0D 00 00 E4 .,....,....,....
000530: 2C 0D 00 00 E5 2C 0D 00 00 E6 2C 0D 00 00 E7 2C ,....,....,....,
000540: 0D 00 00 E8 01 CF 20 0D 00 00 63 6E F4 F4 0F 2C ...... ...cn...,
000550: 0D 00 00 E1 2C 0D 00 00 E2 2C 0D 00 00 E3 2C 0D ....,....,....,.
000560: 00 00 E4 2C 0D 00 00 E5 2C 0D 00 00 E6 2C 0D 00 ...,....,....,..
000570: 00 E7 2C 0D 00 00 44 31 E8 01 0D 00 00 63 6E F4 ..,...D1.....cn.
000580: EF 0D 00 00 63 6E F4 F4 0F 01 B0 01 B0 00 CD 00 ....cn..........
000590: 40 01 03 00 00 E1 EF 22 20 20 20 20 20 20 22 01 @......" ".
0005A0: BF 01 BF 01 BF 01 9E 20 0D 00 00 E9 EF 0F 20 EC ....... ...... .
0005B0: 20 11 01 9E 20 0D 00 00 EA EF 0F 20 EC 20 11 01 ... ...... . ..
0005C0: 9E 20 0D 00 00 EB EF 0F 20 EC 20 11 01 03 00 00 . ...... . .....
0005D0: E1 EF 03 00 00 E1 F4 FF 03 28 19 20 F4 17 F6 28 .........(. ...(
0005E0: 0D 00 00 EA F5 0F 29 F4 11 F6 28 0D 00 00 EB F5 ......)...(.....
0005F0: 0F 29 F4 0D 00 00 E9 29 01 B0 01 03 00 00 E1 EF .).....)........
000600: 03 00 00 E1 F4 22 20 20 20 22 01 B0 01 03 00 00 ....." "......
000610: E1 EF 03 00 00 E1 F4 03 00 00 6C E6 F4 22 20 20 ..........l.."
000620: 20 20 20 20 22 01 B0 01 03 00 00 E1 EF FF 75 28 ".........u(
000630: 03 00 00 E1 2C FF 0E 28 03 00 00 E1 29 F5 17 29 ....,..(....)..)
000640: 01 BB 20 10 01 BF 20 03 00 00 E1 3B 22 20 53 79 .. ... ....;" Sy
000650: 73 74 65 6D 73 20 49 6E 63 22 00 AD 00 4A 01 BF stems Inc"...J..
000660: 01 BF 01 BF 01 BF 01 BF 01 BF 20 EA 28 17 29 3B .......... .(.);
000670: 22 3D 3D 3D 20 46 49 43 7C 56 48 45 52 4F 20 4D "=== FIC|VHERO M
000680: 45 44 49 43 4F 20 3D 3D 3D 22 01 BF 01 BF 01 BB EDICO ==="......
000690: 20 11 01 BF 20 EA 28 19 10 29 3B 22 43 41 52 47 ... .(..);"CARG
0006A0: 41 4E 44 4F 22 3B 03 00 00 6C E6 3B 03 00 00 6C ANDO";...l.;...l
0006B0: E6 3B EA 28 15 29 3B 22 45 53 50 45 52 45 20 55 .;.(.);"ESPERE U
0006C0: 4E 20 4D 4F 4D 45 4E 54 4F 20 50 4F 52 20 46 41 N MOMENTO POR FA
0006D0: 56 4F 52 22 01 BC 20 0E 2C 0E 01 94 20 1A 7E 02 VOR".. .,... .~.
0006E0: 2C 0E 01 94 20 1A 7E 02 2C 1A 8E 01 01 94 20 0E ,... .~.,..... .
0006F0: 2C 1A 8E 01 01 94 20 0E 2C 0E 01 BB 20 0F 01 CA ,..... .,... ...
000700: 22 21 70 72 6F 67 72 61 6D 00 06 00 54 01 C9 00 "!program...T...
000710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000770: 00 00 00 00 00 00 00 00 00 00 55 12 FF FF FF FF ..........U.....
000780: 11 55 09 46 04 46 04 E3 04 66 09 01 10 08 11 00 .U.F.F...f......
000790: 07 01 00 2C 50 52 4F 47 52 41 4D 00 00 00 00 00 ...,PROGRAM.....
0007A0: 00 00 00 00 01 00 01 00 08 70 01 FF 0A 1D 00 00 .........p......
0007B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000890: 00 00 00 00 29 7A FF FF FF FF 11 54 09 46 04 46 ....)z.....T.F.F
0008A0: 04 E9 04 48 09 01 10 08 00 0A 15 08 00 16 1D 00 ...H............
0008B0: 0A 00 AD 20 10 01 CF 20 80 20 19 FF 01 9F 20 1E ... ... . .... .
0008C0: E0 01 01 B3 20 9F 20 1E 80 02 00 EE 00 14 00 93 .... . .........
0008D0: 20 03 00 00 73 65 70 B1 28 15 29 2C 03 00 00 73 ...sep.(.),...s
0008E0: 65 70 B2 28 15 29 01 03 00 00 73 65 70 B1 28 0F ep.(.)....sep.(.
0008F0: 29 EF 22 7C 22 01 03 00 00 73 65 70 B2 28 0F 29 )."|"....sep.(.)
000900: EF 22 61 22 01 03 00 00 73 65 70 B1 28 10 29 EF ."a"....sep.(.).
000910: 22 7B 22 01 03 00 00 73 65 70 B2 28 10 29 EF 22 "{"....sep.(.)."
000920: 65 22 01 03 00 00 73 65 70 B1 28 11 29 EF 22 2A e"....sep.(.)."*
000930: 22 01 03 00 00 73 65 70 B2 28 11 29 EF 22 69 22 "....sep.(.)."i"
000940: 01 03 00 00 73 65 70 B1 28 12 29 EF 22 2B 22 01 ....sep.(.)."+".
000950: 03 00 00 73 65 70 B2 28 12 29 EF 22 6F 22 01 03 ...sep.(.)."o"..
000960: 00 00 73 65 70 B1 28 13 29 EF 22 7D 22 01 03 00 ..sep.(.)."}"...
000970: 00 73 65 70 B2 28 13 29 EF 22 75 22 01 03 00 00 .sep.(.)."u"....
000980: 73 65 70 B1 28 14 29 EF 22 3C 22 01 03 00 00 73 sep.(.)."<"....s
000990: 65 70 B2 28 14 29 EF 22 6E 22 01 03 00 00 73 65 ep.(.)."n"....se
0009A0: 70 B1 28 15 29 EF 22 3E 22 01 03 00 00 73 2E F5 p.(.).">"....s..
0009B0: 65 70 B2 28 15 29 EF 22 4E 22 00 06 00 1E 00 C5 ep.(.)."N"......
0009C0: 00 31 00 28 00 C5 20 3D 3D 3D 3D 3D 3D 3D 3D 3D .1.(.. =========
0009D0: 3D 3D 3D 3D 20 49 4E 53 54 52 55 43 43 49 4F 4E ==== INSTRUCCION
0009E0: 45 53 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ES =============
0009F0: 3D 00 06 00 32 00 C5 00 39 00 3C 00 9F 20 1E 4E =...2...9.<.. .N
000A00: 02 01 BF 01 BF 22 50 55 4C 53 45 20 55 4E 41 20 ....."PULSE UNA
000A10: 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 49 TECLA PARA CONTI
000A20: 4E 55 41 52 2E 22 01 D6 20 FF 43 EF 22 22 01 D5 NUAR.".. .C.""..
000A30: 00 21 00 46 00 0D 00 00 74 72 75 E5 EF 28 0F EF .!.F....tru..(..
000A40: 0F 29 01 0D 00 00 66 61 6C 73 E5 EF 28 0F F2 0F .)....fals..(...
000A50: 29 00 8C 00 50 00 8A 01 A9 20 12 2C 19 0A 01 BF )...P.... .,....
000A60: 22 51 55 49 45 52 45 20 4C 49 53 54 41 52 20 4C "QUIERE LISTAR L
000A70: 41 53 20 49 4E 53 54 52 55 43 43 49 4F 4E 45 53 AS INSTRUCCIONES
000A80: 20 50 4F 52 20 49 4D 50 52 45 53 4F 52 41 20 20 POR IMPRESORA
000A90: 28 73 2F 6E 29 20 3F 22 01 03 00 00 69 EE EF 22 (s/n) ?"....i.."
000AA0: 22 01 D6 20 03 00 00 69 EE F2 22 73 22 20 FA 20 ".. ...i.."s" .
000AB0: BC E9 03 00 00 69 EE F2 22 6E 22 01 03 00 00 69 .....i.."n"....i
000AC0: EE EF FF 11 28 FF 43 29 01 D5 01 0D 00 00 69 6D ....(.C)......im
000AD0: F0 EF 28 03 00 00 69 EE EF 22 73 22 29 01 8A 00 ..(...i.."s")...
000AE0: 69 00 5A 00 C7 20 1E 96 00 01 C3 20 03 00 00 FA i.Z.. ..... ....
000AF0: 01 0D 00 00 EC EF FF 0E 28 03 00 00 FA 29 01 D6 ........(....)..
000B00: 20 FF 11 28 03 00 00 FA 29 F2 22 66 69 6E 22 01 ..(....)."fin".
000B10: 0D 00 00 62 6F EC EF 0D 00 00 66 61 6C 73 E5 01 ...bo.....fals..
000B20: A1 20 0D 00 00 69 6D F0 20 EB 20 03 00 00 70 61 . ...im. . ...pa
000B30: F2 EF 03 00 00 FA 01 9F 20 1E 76 02 01 03 00 00 ........ .v.....
000B40: FA EF 03 00 00 70 61 F2 00 70 00 64 00 A1 20 FF .....pa..p.d.. .
000B50: 11 28 03 00 00 FA 29 EF 22 77 61 69 74 22 20 EB .(....)."wait" .
000B60: 20 C3 20 03 00 00 FA 01 0D 00 00 EC EF FF 0E 28 . ............(
000B70: 03 00 00 FA 29 01 A1 20 FE 28 0D 00 00 69 6D F0 ....).. .(...im.
000B80: 29 20 EB 20 A9 20 12 2C 19 19 01 BF 22 50 55 4C ) . . .,...."PUL
000B90: 53 45 20 55 4E 41 20 54 45 43 4C 41 20 50 41 52 SE UNA TECLA PAR
000BA0: 41 20 43 4F 4E 54 49 4E 55 41 52 22 01 D6 20 FF A CONTINUAR".. .
000BB0: 43 EF 7D F9 22 22 01 D5 01 8A 00 C6 00 6E 00 A1 C.}."".......n..
000BC0: 20 FF 75 28 03 00 00 FA 2C 0F 29 EF 22 24 22 20 .u(....,.)."$"
000BD0: EB 20 0D 00 00 EC EF 0D 00 00 EC F5 0F 01 03 00 . ..............
000BE0: 00 FA EF FF 79 28 03 00 00 FA 2C 0D 00 00 EC 29 ....y(....,....)
000BF0: 01 9E 20 0D 00 00 69 E9 EF 0D 00 00 69 6D F0 20 .. ...i.....im.
000C00: EC 20 0E 01 0D 00 00 63 61 EE EF F5 0D 00 00 69 . .....ca......i
000C10: E9 F6 16 01 BF 23 0D 00 00 63 61 EE 2C EA 28 28 .....#...ca.,.((
000C20: 19 50 F5 0D 00 00 EC 29 F7 10 29 3B 03 00 00 FA .P.....)..);....
000C30: 3B FF 7B 28 0D 00 00 EC 2C FF 03 28 16 29 29 3B ;.{(....,..(.));
000C40: FF 03 28 19 16 29 3B FF 03 28 0F 29 3B FF 7B 28 ..(..);..(.);.{(
000C50: 0D 00 00 EC 2C 22 5F 22 29 3B FF 03 28 19 16 29 ....,"_");..(..)
000C60: 3B FF 03 28 0E 29 01 BF 23 0D 00 00 63 61 EE 01 ;..(.)..#...ca..
000C70: B0 01 0D 00 00 62 6F EC EF 0D 00 00 74 72 75 E5 .....bo.....tru.
000C80: 00 70 00 78 00 A1 20 28 FE 28 0D 00 00 62 6F EC .p.x.. (.(...bo.
000C90: 29 29 FA 28 FF 11 28 03 00 00 FA 29 F2 22 66 69 )).(..(....)."fi
000CA0: 6E 22 29 20 EB 20 9E 20 0D 00 00 69 E9 EF 0D 00 n") . . ...i....
000CB0: 00 69 6D F0 4B 94 20 EC 20 0E 01 0D 00 00 63 61 .im.K. . .....ca
000CC0: EE EF F5 0D 00 00 69 E9 F6 16 01 BF 23 0D 00 00 ......i.....#...
000CD0: 63 61 EE 2C EA 28 28 19 50 F5 0D 00 00 EC 29 F7 ca.,.((.P.....).
000CE0: 10 29 3B 03 00 00 FA 01 BF 23 0D 00 00 63 61 EE .);......#...ca.
000CF0: 01 B0 00 1B 00 82 00 C3 20 03 00 00 FA 01 0D 00 ........ .......
000D00: 00 EC EF FF 0E 28 03 00 00 FA 29 01 D5 00 0A 00 .....(....).....
000D10: 8C 00 A0 20 1E 3C 00 00 E6 00 96 00 8C 20 24 49 ... .<....... $I
000D20: 4E 53 54 52 55 43 43 49 4F 4E 45 53 2C 2C 22 20 NSTRUCCIONES,,"
000D30: 20 45 6C 20 70 72 6F 67 72 61 6D 61 20 46 49 43 El programa FIC
000D40: 48 45 52 4F 20 4D 45 44 49 43 4F 20 6C 65 20 70 HERO MEDICO le p
000D50: 72 6F 70 6F 72 63 69 6F 6E 61 20 75 6E 61 20 63 roporciona una c
000D60: 2B 6D 6F 64 61 20 62 61 73 65 20 64 65 20 64 61 +moda base de da
000D70: 74 6F 73 20 70 61 72 61 20 6C 6C 65 76 61 72 61 tos para llevara
000D80: 6C 20 64 2A 61 20 73 75 20 69 6E 66 6F 72 6D 61 l d*a su informa
000D90: 63 69 2B 6E 2E 20 43 6F 6E 73 74 61 20 64 65 20 ci+n. Consta de
000DA0: 73 69 65 74 65 20 63 61 6D 70 6F 73 20 20 70 6F siete campos po
000DB0: 72 20 66 69 63 68 B8 29 61 2C 20 61 64 6D 69 74 r fich.)a, admit
000DC0: 69 65 6E 64 6F 20 20 75 6E 20 20 6D 7C 78 69 6D iendo un m|xim
000DD0: 6F 64 65 20 20 32 30 30 20 66 69 63 68 61 73 20 ode 200 fichas
000DE0: 70 6F 72 20 66 69 63 68 65 72 6F 2E 20 45 73 74 por fichero. Est
000DF0: 6F 73 20 63 61 6D 70 6F 73 20 73 6F 6E 3A 22 00 os campos son:".
000E00: 63 00 A0 00 8C 20 22 4E 4F 4D 42 52 45 20 20 20 c.... "NOMBRE
000E10: 20 20 20 20 20 20 20 20 20 20 20 22 2C 22 44 49 ","DI
000E20: 52 45 43 43 49 4F 4E 2F 54 46 4E 4F 20 20 20 20 RECCION/TFNO
000E30: 20 20 22 2C 22 45 44 41 44 2F 46 45 43 48 41 20 ","EDAD/FECHA
000E40: 4E 41 43 49 4D 49 45 4E 54 4F 22 2C 22 53 45 58 NACIMIENTO","SEX
000E50: 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 O
000E60: 20 22 00 4B 00 AA 00 8C 20 22 53 49 47 4E 4F 53 ".K.... "SIGNOS
000E70: 20 50 41 52 54 49 43 55 4C 41 52 45 53 20 22 2C PARTICULARES ",
000E80: 22 4D 45 44 49 43 41 43 49 4F 4E 20 20 20 20 20 "MEDICACION
000E90: 20 20 20 20 20 22 2C 22 54 52 41 54 41 4D 49 45 ","TRATAMIE
000EA0: 4E 54 4F 20 20 20 20 20 20 20 20 20 22 00 3A 00 NTO ".:.
000EB0: B4 00 8C 20 22 20 20 45 83 D7 6C 20 6D 65 6E 7D ... " E..l men}
000EC0: 20 70 72 69 6E 63 69 70 61 6C 20 63 6F 6E 73 74 principal const
000ED0: 61 20 64 65 20 6F 63 68 6F 20 6F 70 63 69 6F 6E a de ocho opcion
000EE0: 65 73 3A 22 2C 77 61 69 74 00 C5 00 BE 00 8C 20 es:",wait......
000EF0: 24 31 20 43 52 45 41 52 2C 22 20 20 43 75 61 6E $1 CREAR," Cuan
000F00: 64 6F 20 20 6E 6F 20 20 68 61 79 20 20 6E 69 6E do no hay nin
000F10: 67 7D 6E 20 66 69 63 68 65 72 6F 20 65 6E 20 20 g}n fichero en
000F20: 6C 61 20 6D 65 6D 6F 72 69 61 20 64 65 6C 20 6F la memoria del o
000F30: 72 64 65 6E 61 64 6F 72 2C 20 65 73 74 61 20 20 rdenador, esta
000F40: 6F 70 63 69 2B 6E 20 6C 65 20 69 6E 74 72 6F 64 opci+n le introd
000F50: 75 63 65 20 64 69 72 65 63 74 61 6D 65 6E 74 65 uce directamente
000F60: 20 65 6E 20 65 6C 20 6D 6F 64 6F 20 65 73 63 72 en el modo escr
000F70: 69 74 75 72 61 2C 20 70 72 65 67 75 6E 74 61 6E itura, preguntan
000F80: 64 6F 20 70 72 69 6D 65 72 6F 20 75 6E 20 6E 6F do primero un no
000F90: 6D 62 72 65 20 70 61 72 61 20 65 6C 20 66 69 63 mbre para el fic
000FA0: 68 65 72 6F 20 61 20 63 72 65 61 72 2E 22 00 46 hero a crear.".F
000FB0: 00 C8 00 8C 20 22 20 20 41 20 3A C7 63 6F 6E 74 .... " A :.cont
000FC0: 69 6E 75 61 63 69 2B 6E 20 73 65 20 70 61 73 61 inuaci+n se pasa
000FD0: 20 61 20 72 65 6C 6C 65 6E 61 72 20 6C 6F 73 20 a rellenar los
000FE0: 63 61 6D 70 6F 73 20 64 65 20 63 61 64 61 20 66 campos de cada f
000FF0: 69 63 68 61 2E 22 00 BE 00 D2 00 8C 20 22 20 20 icha."...... "
001000: 50 61 72 61 20 61 63 61 62 61 72 20 6C 61 20 20 Para acabar la
001010: 69 6E 74 72 6F 64 75 63 63 69 2B 6E 20 64 65 20 introducci+n de
001020: 66 69 63 68 61 73 2C 20 64 65 62 65 20 75 73 74 fichas, debe ust
001030: 65 64 20 65 73 63 72 69 62 69 72 20 27 46 49 4E ed escribir 'FIN
001040: 27 20 65 6E 20 65 6C 20 63 61 6D 70 6F 20 31 2D ' en el campo 1-
001050: 4E 4F 4D 42 52 45 2E 20 45 6E 20 65 73 65 20 6D NOMBRE. En ese m
001060: 6F 6D 65 6E 74 6F 20 20 65 6C 20 70 72 6F 67 72 omento el progr
001070: 61 6D 61 20 6F 72 64 65 6E 61 72 7C 20 20 65 6C ama ordenar| el
001080: 20 66 69 63 68 65 72 6F 20 61 75 74 6F 6D 7C 74 fichero autom|t
001090: 69 63 61 6D 65 6E 74 65 20 70 61 72 61 20 6C 75 icamente para lu
0010A0: 65 67 6F 20 76 6F 6C 76 65 72 20 61 6C 20 6D 65 ego volver al me
0010B0: 6E 7D 2E 22 00 E5 00 DC 00 8C 20 24 F0 EC FF FF n}."...... $....
0010C0: FF FF 11 51 09 46 04 46 04 E1 04 61 09 01 10 08 ...Q.F.F...a....
0010D0: 10 00 07 01 00 2C 50 52 4F 47 52 41 4D 00 00 00 .....,PROGRAM...
0010E0: 00 00 00 00 00 00 02 00 01 00 08 70 09 00 0A 1D ...........p....
0010F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011D0: 00 00 00 00 00 00 89 C9 FF FF FF FF 11 50 09 46 .............P.F
0011E0: 04 46 04 EA 04 45 09 01 10 08 FC 09 15 08 00 16 .F...E..........
0011F0: 32 20 43 41 52 47 41 52 2C 22 20 20 20 53 69 72 2 CARGAR," Sir
001200: 76 65 20 70 61 72 61 20 20 69 6E 74 72 6F 64 75 ve para introdu
001210: 63 69 72 20 20 65 6E 20 6C 61 20 20 6D 65 6D 6F cir en la memo
001220: 72 69 61 20 20 64 65 6C 20 6F 72 64 65 6E 61 64 ria del ordenad
001230: 6F 72 20 75 6E 20 66 69 63 68 65 72 6F 20 70 72 or un fichero pr
001240: 65 76 69 61 6D 65 6E 74 65 20 73 61 6C 76 61 64 eviamente salvad
001250: 6F 20 61 20 63 69 6E 74 61 2E 20 20 53 69 20 20 o a cinta. Si
001260: 72 65 73 70 6F 6E 64 65 20 27 45 4E 54 45 52 27 responde 'ENTER'
001270: 20 61 20 6C 61 20 70 72 65 67 75 6E 74 61 20 27 a la pregunta '
001280: 4E 4F 4D 42 52 45 20 44 45 4C 20 46 49 43 48 45 NOMBRE DEL FICHE
001290: 52 4F 20 3F 27 2C 20 65 6C 20 6F 72 64 65 6E 61 RO ?', el ordena
0012A0: 64 6F 72 20 63 61 72 67 61 72 7C 20 65 6C 20 70 dor cargar| el p
0012B0: 72 69 6D 65 72 20 66 69 63 68 65 72 6F 20 71 75 rimer fichero qu
0012C0: 65 20 65 6E 63 75 65 6E 74 72 65 2E 22 00 79 00 e encuentre.".y.
0012D0: E6 00 8C 20 77 61 69 74 2C 24 33 20 53 41 4C 56 ... wait,$3 SALV
0012E0: 41 52 2C 22 20 20 55 6E 61 20 76 65 7A 20 63 72 AR," Una vez cr
0012F0: 6D 87 65 61 64 6F 20 79 20 72 65 6C 6C 65 6E 61 m.eado y rellena
001300: 64 6F 20 65 6C 20 66 69 63 68 65 72 6F 2C 20 64 do el fichero, d
001310: 65 62 65 20 20 75 73 74 65 64 20 20 67 72 61 62 ebe usted grab
001320: 61 72 6C 6F 20 65 6E 20 75 6E 61 20 63 69 6E 74 arlo en una cint
001330: 61 20 70 61 72 61 73 75 20 75 73 6F 20 70 6F 73 a parasu uso pos
001340: 74 65 72 69 6F 72 2E 22 00 BD 00 F0 00 8C 20 24 terior."...... $
001350: 34 20 41 3E 41 44 49 52 2C 22 20 20 50 65 72 6D 4 A>ADIR," Perm
001360: 69 74 65 20 6C 61 20 61 6D 70 6C 69 61 63 69 2B ite la ampliaci+
001370: 6E 20 64 65 20 75 6E 20 20 66 69 63 68 65 72 6F n de un fichero
001380: 20 63 6F 6E 20 6E 75 65 76 61 73 20 66 69 63 68 con nuevas fich
001390: 61 73 20 2C 20 79 61 20 20 73 65 61 20 70 6F 72 as , ya sea por
0013A0: 20 74 65 63 6C 61 64 6F 20 6F 62 69 65 6E 20 20 teclado obien
0013B0: 63 6F 6E 63 61 74 65 6E 61 6E 64 6F 2C 20 65 73 concatenando, es
0013C0: 20 64 65 63 69 72 20 75 6E 69 65 6E 64 6F 2C 20 decir uniendo,
0013D0: 6F 74 72 6F 20 20 66 69 63 68 65 72 6F 20 20 71 otro fichero q
0013E0: 75 65 20 20 75 73 74 65 64 20 20 68 75 62 69 65 ue usted hubie
0013F0: 72 61 B9 BC 20 67 72 61 62 61 64 6F 65 6E 20 20 ra.. grabadoen
001400: 63 69 6E 74 61 2E 22 00 A3 00 FA 00 8C 20 22 20 cinta.".£.... "
001410: 20 20 20 41 20 20 6C 61 20 20 70 72 65 67 75 6E A la pregun
001420: 74 61 20 27 51 55 49 45 52 45 20 41 3E 41 44 49 ta 'QUIERE A>ADI
001430: 52 20 46 49 43 48 41 53 20 50 4F 52 20 54 45 43 R FICHAS POR TEC
001440: 4C 41 44 4F 20 20 4F 20 20 43 4F 4E 43 41 54 45 LADO O CONCATE
001450: 4E 41 52 20 55 4E 20 46 49 43 48 45 52 4F 20 43 NAR UN FICHERO C
001460: 4F 4E 54 45 4E 49 44 4F 20 45 4E 20 43 49 4E 54 ONTENIDO EN CINT
001470: 41 20 3F 27 2C 20 72 65 73 70 6F 6E 64 61 20 27 A ?', responda '
001480: 30 27 20 70 61 72 61 20 6C 61 20 70 72 69 6D 65 0' para la prime
001490: 72 61 20 79 20 27 39 27 20 70 61 72 61 20 6C 61 ra y '9' para la
0014A0: 20 73 65 67 75 6E 64 61 2E 22 00 DF 00 04 01 8C segunda."......
0014B0: 20 57 41 49 54 2C 24 35 20 43 4C 41 53 49 46 49 WAIT,$5 CLASIFI
0014C0: 43 41 52 2C 22 45 73 74 61 20 6F 70 63 69 2B 6E CAR,"Esta opci+n
0014D0: 20 6F 72 64 65 6E 61 20 73 75 20 66 69 63 68 65 ordena su fiche
0014E0: 72 6F 20 73 69 6D 75 6C 74 61 6E 65 61 6D 65 6E ro simultaneamen
0014F0: 74 65 20 70 39 15 6F 72 20 6C 6F 73 20 63 61 6D te p9.or los cam
001500: 70 6F 73 20 4E 4F 4D 42 52 45 20 79 20 44 49 52 pos NOMBRE y DIR
001510: 45 43 43 49 4F 4E 2C 70 61 72 61 20 20 71 75 65 ECCION,para que
001520: 20 20 6C 75 65 67 6F 20 61 6C 20 20 69 6D 70 72 luego al impr
001530: 69 6D 69 72 20 20 6F 20 20 72 65 76 69 73 61 72 imir o revisar
001540: 20 20 73 65 20 20 68 61 67 61 20 20 65 6E 20 20 se haga en
001550: 65 6C 20 20 6F 72 64 65 6E 20 20 71 75 65 20 20 el orden que
001560: 75 73 74 65 64 20 20 63 6F 6E 73 69 64 65 72 65 usted considere
001570: 20 20 6D 61 73 20 20 7D 74 69 6C 20 28 76 65 61 mas }til (vea
001580: 20 52 45 56 49 53 41 52 29 2E 22 00 C7 00 0E 01 REVISAR).".....
001590: 8C 20 24 36 20 52 45 56 49 53 41 52 2D 42 55 53 . $6 REVISAR-BUS
0015A0: 43 41 52 2D 4D 4F 44 49 46 49 43 41 52 2C 22 20 CAR-MODIFICAR,"
0015B0: 20 20 20 43 6F 6E 20 65 73 74 65 20 20 70 72 6F Con este pro
0015C0: 63 65 64 69 6D 69 65 6E 74 6F 20 73 65 20 20 64 cedimiento se d
0015D0: 69 73 70 6F 6E 65 20 64 65 20 20 74 6F 64 6F 73 ispone de todos
0015E0: 20 6C 6F 73 20 63 6F 6D 61 6E 64 6F 73 20 20 6E los comandos n
0015F0: 65 63 65 73 61 72 29 09 69 6F 73 20 70 61 72 61 ecesar).ios para
001600: 20 61 63 74 75 61 6C 69 7A 61 72 20 75 6E 20 66 actualizar un f
001610: 69 63 68 65 72 6F 2E 45 73 74 6F 73 20 63 6F 6D ichero.Estos com
001620: 61 6E 64 6F 73 20 73 6F 6E 3A 22 2C 22 27 51 27 andos son:","'Q'
001630: 20 76 75 65 6C 76 65 20 61 6C 20 6D 65 6E 7D 2E vuelve al men}.
001640: 22 2C 22 27 4E 27 20 6E 75 65 76 61 20 66 69 63 ","'N' nueva fic
001650: 68 61 2E 22 00 D2 00 18 01 8C 20 22 20 20 50 61 ha."...... " Pa
001660: 72 61 20 76 69 73 75 61 6C 69 7A 61 72 20 20 65 ra visualizar e
001670: 6E 20 6C 61 20 20 70 61 6E 74 61 6C 6C 61 20 75 n la pantalla u
001680: 6E 61 20 66 69 63 68 61 20 20 63 6F 6E 63 72 65 na ficha concre
001690: 74 61 20 63 6F 6E 6F 63 69 65 6E 64 6F 20 73 75 ta conociendo su
0016A0: 20 6E 7D 6D 65 72 6F 20 63 6F 6E 20 72 65 73 70 n}mero con resp
0016B0: 65 63 74 6F 20 20 61 20 20 6C 61 20 20 6F 72 64 ecto a la ord
0016C0: 65 6E 61 63 69 2B 6E 20 20 65 6C 65 67 69 64 61 enaci+n elegida
0016D0: 2C 20 70 75 6C 73 65 20 27 4E 27 2C 20 72 65 73 , pulse 'N', res
0016E0: 70 6F 6E 64 61 20 20 65 6C 20 20 6E 7D 6D 65 72 ponda el n}mer
0016F0: 6F 20 20 64 65 20 66 69 76 5E 63 68 61 20 61 64 o de fiv^cha ad
001700: 65 63 75 61 64 6F 20 79 20 7B 73 74 61 20 6C 65 ecuado y {sta le
001710: 20 61 70 61 72 65 63 65 72 7C 20 65 6E 20 70 61 aparecer| en pa
001720: 6E 74 61 6C 6C 61 2E 22 00 5B 00 22 01 8C 20 22 ntalla.".[.".. "
001730: 27 50 27 20 70 72 2B 78 69 6D 61 20 66 69 63 68 'P' pr+xima fich
001740: 61 20 28 73 65 67 7D 6E 20 65 6C 20 6F 72 64 65 a (seg}n el orde
001750: 6E 20 64 65 20 6C 69 73 74 61 64 6F 20 65 73 63 n de listado esc
001760: 6F 67 69 64 6F 29 2E 22 2C 22 27 4F 27 20 66 69 ogido).","'O' fi
001770: 63 68 61 20 61 6E 74 65 72 69 6F 72 20 28 69 64 cha anterior (id
001780: 29 2E 22 00 35 00 2C 01 8C 20 77 61 69 74 2C 22 ).".5.,.. wait,"
001790: 27 4C 27 20 62 6F 72 72 61 20 6C 61 20 66 69 63 'L' borra la fic
0017A0: 68 61 20 71 75 65 20 68 61 79 20 65 6E 20 70 61 ha que hay en pa
0017B0: 6E 74 61 6C 6C 61 2E 22 00 39 00 36 01 8C 20 22 ntalla.".9.6.. "
0017C0: 27 43 27 20 63 61 6D 62 69 61 20 65 6C 20 63 61 'C' cambia el ca
0017D0: 6D 70 6F 20 71 75 65 20 64 65 74 65 72 6D 69 6E mpo que determin
0017E0: 61 20 6C 61 20 6F 72 64 65 6E 61 63 69 2B 6E 2E a la ordenaci+n.
0017F0: 22 00 C0 00 40 01 8C 20 22 20 DE 82 20 50 6F 72 "...@.. " .. Por
001800: 20 65 6A 65 6D 70 6C 6F 20 73 69 20 65 73 74 7C ejemplo si est|
001810: 20 75 73 74 65 64 20 72 65 76 69 73 61 6E 64 6F usted revisando
001820: 20 65 6C 20 66 69 63 68 65 72 6F 20 63 6F 6E 20 el fichero con
001830: 61 72 72 65 67 6C 6F 20 61 6C 20 6F 72 64 65 6E arreglo al orden
001840: 20 64 65 20 4E 4F 4D 42 52 45 53 79 20 71 75 69 de NOMBRESy qui
001850: 65 72 65 20 76 65 72 6C 6F 20 65 6E 20 6F 72 64 ere verlo en ord
001860: 65 6E 20 64 65 20 44 49 52 45 43 43 49 4F 4E 45 en de DIRECCIONE
001870: 53 2C 20 70 75 6C 73 65 20 27 43 27 20 79 20 72 S, pulse 'C' y r
001880: 65 73 70 6F 6E 64 61 20 65 6C 20 6F 72 64 65 6E esponda el orden
001890: 20 71 75 65 20 64 65 73 65 65 20 28 31 20 4E 4F que desee (1 NO
0018A0: 4D 42 52 45 2C 32 20 44 49 52 45 43 43 49 4F 4E MBRE,2 DIRECCION
0018B0: 29 2E 22 00 DF 00 4A 01 8C 20 22 27 42 27 20 62 )."...J.. "'B' b
0018C0: 75 73 63 61 72 2E 22 2C 22 20 20 45 73 74 65 20 uscar."," Este
0018D0: 63 6F 6D 61 6E 64 6F 20 65 73 20 64 65 20 67 72 comando es de gr
0018E0: 61 6E 20 75 74 69 6C 69 64 61 64 20 79 20 6C 65 an utilidad y le
0018F0: 20 70 72 65 73 65 6E 74 61 20 64 6F 21 46 73 20 presenta do!Fs
001900: 70 72 65 67 75 6E 74 61 73 2E 22 2C 22 20 20 50 preguntas."," P
001910: 72 69 6D 65 72 6F 3A 20 65 6E 20 71 75 65 20 63 rimero: en que c
001920: 61 6D 70 6F 73 20 71 75 69 65 72 65 20 62 75 73 ampos quiere bus
001930: 63 61 72 20 6C 61 20 69 6E 66 6F 72 6D 61 63 69 car la informaci
001940: 2B 6E 2E 20 50 61 72 61 20 65 6C 6C 6F 20 64 65 +n. Para ello de
001950: 62 65 20 72 65 73 70 6F 6E 64 65 72 20 65 6C 20 be responder el
001960: 6E 7D 6D 65 72 6F 20 6F 20 6E 7D 6D 65 72 6F 73 n}mero o n}meros
001970: 20 64 65 20 63 61 6D 70 6F 20 65 6E 20 6C 6F 73 de campo en los
001980: 20 71 75 65 20 71 75 69 65 72 65 20 62 75 73 63 que quiere busc
001990: 61 72 2E 22 00 A9 00 54 01 8C 20 22 20 20 50 6F ar."...T.. " Po
0019A0: 72 20 65 6A 65 6D 70 6C 6F 2C 20 73 69 20 72 65 r ejemplo, si re
0019B0: 73 70 6F 6E 64 65 20 20 27 33 32 31 27 20 20 71 sponde '321' q
0019C0: 75 69 65 72 65 20 20 64 65 63 69 72 20 65 6E 20 uiere decir en
0019D0: 63 61 6D 70 6F 73 20 31 2C 20 32 20 79 20 33 2E campos 1, 2 y 3.
0019E0: 20 50 61 72 61 20 6D 61 79 6F 72 20 63 6F 6D 6F Para mayor como
0019F0: 64 69 64 61 64 2C 20 72 65 73 70 6F 6E 64 05 3F didad, respond.?
001A00: FF FF FF FF 11 52 09 46 04 46 04 E3 04 66 09 01 .....R.F.F...f..
001A10: 10 08 0F 00 07 01 00 2C 50 52 4F 47 52 41 4D 00 .......,PROGRAM.
001A20: 00 00 00 00 00 00 00 00 03 00 01 00 08 70 11 00 .............p..
001A30: 0A 1D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B10: 00 00 00 00 00 00 00 00 D8 56 FF FF FF FF 11 51 .........V.....Q
001B20: 09 46 04 46 04 E8 04 46 09 01 10 08 FF 09 15 08 .F.F...F........
001B30: 00 16 65 72 20 27 35 27 20 71 75 69 65 72 65 20 ..er '5' quiere
001B40: 64 65 63 69 72 20 62 75 73 63 61 72 20 65 6E 20 decir buscar en
001B50: 54 4F 44 4F 53 20 6C 6F 73 20 63 61 6D 70 6F 73 TODOS los campos
001B60: 20 28 63 61 6D 70 6F 73 20 31 20 61 20 33 29 2E (campos 1 a 3).
001B70: 22 00 CF 00 5E 01 8C 20 22 20 20 20 44 65 73 70 "...^.. " Desp
001B80: 75 7B 73 20 68 61 79 20 71 75 65 20 65 73 70 65 u{s hay que espe
001B90: 63 69 66 69 63 61 72 20 6C 61 20 63 61 64 65 6E cificar la caden
001BA0: 61 20 61 20 62 75 73 63 61 72 20 2C 20 63 75 61 a a buscar , cua
001BB0: 6E 74 6F 20 6D 61 73 20 63 6F 72 74 61 20 73 65 nto mas corta se
001BC0: 61 20 65 73 74 61 20 2C 20 6D 61 73 20 72 7C 70 a esta , mas r|p
001BD0: 69 64 6F 20 73 65 20 65 6E 63 6F 6E 74 72 61 72 ido se encontrar
001BE0: 7C 20 28 73 69 20 65 78 69 73 74 65 29 2E 45 73 | (si existe).Es
001BF0: 20 64 65 63 69 72 20 71 75 65 20 70 61 72 61 20 decir que para
001C00: 62 75 73 63 61 72 20 27 4D 41 4E 55 45 4C 27 20 buscar 'MANUEL'
001C10: 73 65 20 70 75 65 64 65 20 72 65 73 70 6F 6E 64 se puede respond
001C20: 65 72 20 27 4D 41 4E 27 20 2C 20 6F 20 27 4D 41 er 'MAN' , o 'MA
001C30: 4E 55 E0 4D 27 20 65 74 63 2E 2E 2E 22 2C 77 61 NU.M' etc...",wa
001C40: 69 74 00 F1 00 68 01 8C 20 22 20 20 55 6E 61 20 it...h.. " Una
001C50: 76 65 7A 20 65 6E 63 6F 6E 74 72 61 64 61 20 6C vez encontrada l
001C60: 61 20 63 61 64 65 6E 61 2C 20 68 61 79 20 64 6F a cadena, hay do
001C70: 73 20 70 6F 73 69 62 69 6C 69 64 61 64 65 73 20 s posibilidades
001C80: 3A 22 2C 22 31 29 20 50 75 6C 73 61 72 20 27 51 :","1) Pulsar 'Q
001C90: 27 20 79 20 65 6E 74 72 61 72 20 65 6E 20 52 45 ' y entrar en RE
001CA0: 56 49 53 49 4F 4E 20 63 6F 6E 20 65 73 61 20 66 VISION con esa f
001CB0: 69 63 68 61 20 65 6E 20 70 61 6E 74 61 6C 6C 61 icha en pantalla
001CC0: 2C 20 70 61 72 61 20 6D 6F 64 69 66 69 63 61 63 , para modificac
001CD0: 69 2B 6E 20 6F 20 63 6F 6E 73 75 6C 74 61 2E 22 i+n o consulta."
001CE0: 2C 22 32 29 20 70 75 6C 73 61 72 20 6F 74 72 61 ,"2) pulsar otra
001CF0: 20 74 65 63 6C 61 20 63 6F 6E 20 6C 6F 20 71 75 tecla con lo qu
001D00: 65 20 6C 61 20 62 7D 73 71 75 65 64 61 20 63 6F e la b}squeda co
001D10: 6E 74 69 6E 7D 61 2E 20 20 20 20 20 20 20 20 20 ntin}a.
001D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001D30: 20 20 22 00 62 09 AD 00 72 01 8C 20 22 27 4D 27 ".b...r.. "'M'
001D40: 20 65 73 20 6D 6F 64 69 66 69 63 61 63 69 2B 6E es modificaci+n
001D50: 2E 22 2C 22 20 20 20 43 6F 6E 20 20 65 73 74 61 ."," Con esta
001D60: 20 20 70 6F 73 69 62 69 6C 69 64 61 64 20 70 75 posibilidad pu
001D70: 65 64 65 20 20 75 73 74 65 64 20 20 6D 6F 64 69 ede usted modi
001D80: 66 69 63 61 72 20 61 20 76 6F 6C 75 6E 74 61 64 ficar a voluntad
001D90: 20 63 75 61 6C 71 75 69 65 72 20 63 61 6D 70 6F cualquier campo
001DA0: 20 64 65 20 63 75 61 6C 71 75 69 65 72 20 66 69 de cualquier fi
001DB0: 63 68 61 2E 20 41 6C 20 70 75 6C 73 61 72 20 27 cha. Al pulsar '
001DC0: 4D 27 20 76 65 72 7C 20 6C 61 20 70 72 65 67 75 M' ver| la pregu
001DD0: 6E 74 61 20 27 51 55 45 20 43 41 4D 50 4F 20 3F nta 'QUE CAMPO ?
001DE0: 27 22 00 D8 00 7C 01 8C 20 22 20 20 52 65 73 70 '"...|.. " Resp
001DF0: 6F 6E 64 61 20 65 6C 20 6E 7D 6D 65 72 6F 20 64 onda el n}mero d
001E00: 65 73 65 61 64 6F 20 28 31 20 61 20 37 29 20 79 eseado (1 a 7) y
001E10: 20 73 65 20 69 6C 75 6D 69 6E 61 72 7C 20 65 6C se iluminar| el
001E20: 20 63 61 6D 70 6F 20 73 65 6C 65 63 63 69 6F 6E campo seleccion
001E30: 61 64 6F 2C 20 73 E3 38 61 6C 76 6F 73 69 20 65 ado, s.8alvosi e
001E40: 73 20 36 20 2B 20 37 2E 20 4C 61 20 20 6D 6F 64 s 6 + 7. La mod
001E50: 69 66 69 63 61 63 69 2B 6E 20 20 64 65 6C 20 20 ificaci+n del
001E60: 63 61 6D 70 6F 20 20 36 20 20 49 4D 50 4C 49 43 campo 6 IMPLIC
001E70: 41 20 20 6C 61 20 20 6D 6F 64 69 66 69 63 61 63 A la modificac
001E80: 69 2B 6E 20 64 65 6C 20 37 20 79 20 76 69 63 65 i+n del 7 y vice
001E90: 76 65 72 73 61 2E 20 41 68 6F 72 61 20 68 61 79 versa. Ahora hay
001EA0: 20 74 72 65 73 20 6D 61 6E 65 72 61 73 20 64 65 tres maneras de
001EB0: 20 6D 6F 64 69 66 69 63 61 72 3A 22 00 D1 00 86 modificar:"....
001EC0: 01 8C 20 22 20 20 45 73 63 72 69 62 69 65 6E 64 .. " Escribiend
001ED0: 6F 20 27 23 20 69 6E 66 6F 72 6D 61 63 69 2B 6E o '# informaci+n
001EE0: 27 20 2C 20 7B 73 74 61 20 73 65 20 69 6E 73 65 ' , {sta se inse
001EF0: 72 74 61 20 64 65 6C 61 6E 74 65 20 64 65 20 6C rta delante de l
001F00: 61 20 61 6E 74 69 67 75 61 2E 22 2C 22 45 73 63 a antigua.","Esc
001F10: 72 69 62 69 65 6E 64 6F 20 27 24 20 69 6E 66 6F ribiendo '$ info
001F20: 72 6D 61 63 69 2B 6E 27 20 2C 20 73 65 20 73 75 rmaci+n' , se su
001F30: 6D 61 20 64 65 74 72 7C C4 D3 73 20 64 65 20 6C ma detr|..s de l
001F40: 61 20 61 6E 74 69 67 75 61 2E 22 2C 22 45 73 63 a antigua.","Esc
001F50: 72 69 62 69 65 6E 64 6F 20 27 69 6E 66 6F 72 6D ribiendo 'inform
001F60: 61 63 69 2B 6E 27 20 73 65 20 70 69 65 72 64 65 aci+n' se pierde
001F70: 20 6C 61 20 61 6E 74 69 67 75 61 20 79 20 71 75 la antigua y qu
001F80: 65 64 61 20 7B 73 74 61 2E 22 2C 77 61 69 74 00 eda {sta.",wait.
001F90: 4E 00 90 01 8C 20 22 24 4E 4F 54 41 3A 22 2C 22 N.... "$NOTA:","
001FA0: 20 20 4C 61 20 69 6E 73 65 72 63 69 2B 6E 20 6F La inserci+n o
001FB0: 20 65 6C 20 62 6F 72 72 61 64 6F 20 64 65 20 66 el borrado de f
001FC0: 69 63 68 61 73 20 44 45 53 4F 52 44 45 4E 41 4E ichas DESORDENAN
001FD0: 20 65 6C 20 66 69 63 68 65 72 6F 2E 22 00 1C 00 el fichero."...
001FE0: 9A 01 8C 20 24 46 49 4E 20 44 45 20 4D 4F 44 4F ... $FIN DE MODO
001FF0: 20 52 45 56 49 53 49 4F 4E 00 C2 00 A4 01 8C 20 REVISION......
002000: 2C 2C 24 37 20 49 4D 50 52 45 53 4F 52 41 2C 22 ,,$7 IMPRESORA,"
002010: 20 20 45 73 74 61 20 20 6F 70 63 69 2B 6E 20 6C Esta opci+n l
002020: 69 73 74 61 20 70 6F 72 20 20 69 6D 70 72 65 73 ista por impres
002030: 6F 72 61 20 74 6F 64 61 73 20 23 F0 6C 61 73 20 ora todas #.las
002040: 20 66 69 63 68 61 73 2C 20 73 65 67 7D 6E 20 65 fichas, seg}n e
002050: 6C 20 6F 72 64 65 6E 20 71 75 65 20 75 73 74 65 l orden que uste
002060: 64 20 64 65 73 65 65 2E 20 41 20 6C 61 20 70 72 d desee. A la pr
002070: 65 67 75 6E 74 61 20 27 53 45 47 55 4E 20 4F 52 egunta 'SEGUN OR
002080: 44 45 4E 20 44 45 4C 20 43 41 4D 50 4F 20 3F 27 DEN DEL CAMPO ?'
002090: 2C 20 72 65 73 70 6F 6E 64 61 20 31 20 70 61 72 , responda 1 par
0020A0: 61 20 4E 4F 4D 42 52 45 20 79 20 32 20 70 61 72 a NOMBRE y 2 par
0020B0: 61 20 44 49 52 45 43 43 49 4F 4E 2E 22 00 0B 00 a DIRECCION."...
0020C0: AE 01 8C 20 77 61 69 74 00 C0 00 B8 01 8C 20 2C ... wait...... ,
0020D0: 2C 24 30 20 41 42 41 4E 44 4F 4E 41 52 2C 22 20 ,$0 ABANDONAR,"
0020E0: 20 50 72 6F 76 6F 63 61 20 75 6E 20 52 45 53 45 Provoca un RESE
0020F0: 54 20 64 65 6C 20 6F 72 64 65 6E 61 64 6F 72 20 T del ordenador
002100: 2C 20 65 71 75 69 76 61 6C 65 6E 74 65 20 61 20 , equivalente a
002110: 64 65 73 65 6E 63 68 75 66 61 72 6C 6F 2E 22 2C desenchufarlo.",
002120: 22 20 20 45 6C 20 70 72 6F 67 72 61 6D 61 20 6C " El programa l
002130: 65 20 70 65 64 69 72 7C 20 63 6F 6E CA 5B 66 69 e pedir| con.[fi
002140: 72 6D 61 63 69 2B 6E 2C 70 6F 72 20 73 69 20 68 rmaci+n,por si h
002150: 75 62 69 65 72 61 20 70 75 6C 73 61 64 6F 20 27 ubiera pulsado '
002160: 30 27 20 70 6F 72 20 65 72 72 6F 72 2E 22 2C 2C 0' por error.",,
002170: 24 52 20 50 20 41 20 20 53 79 73 74 65 6D 73 20 $R P A Systems
002180: 49 6E 63 2E 20 20 31 39 38 35 00 48 00 C2 01 8C Inc. 1985.H....
002190: 20 2C 2C 22 50 72 6F 67 72 61 6D 61 20 72 65 61 ,,"Programa rea
0021A0: 6C 69 7A 61 64 6F 20 70 6F 72 20 50 65 64 72 6F lizado por Pedro
0021B0: 20 79 20 4C 75 69 73 20 53 75 6A 61 20 2C 20 35 y Luis Suja , 5
0021C0: 2D 6A 75 6C 69 6F 2D 31 39 38 35 2E 22 2C 77 61 -julio-1985.",wa
0021D0: 69 74 00 79 00 CC 01 8C 20 22 20 52 20 50 20 41 it.y.... " R P A
0021E0: 20 53 79 73 74 65 6D 73 20 6C 65 20 64 65 73 65 Systems le dese
0021F0: 61 20 75 6E 20 66 65 6C 69 7A 20 75 73 6F 20 64 a un feliz uso d
002200: 65 20 65 73 74 65 20 70 72 6F 67 72 61 6D 61 2C e este programa,
002210: 20 65 73 70 65 72 61 6E 64 6F 20 71 75 65 20 6C esperando que l
002220: 65 20 20 73 65 61 20 20 64 65 67 72 61 6E 20 61 e sea degran a
002230: 79 75 64 61 2E 22 2C 2C 22 44 2E 4C 2E 3A AB B2 yuda.",,"D.L.:..
002240: 20 4D 2D 38 35 34 34 2D 31 39 38 35 22 00 C2 00 M-8544-1985"...
002250: D6 01 8C 20 22 20 20 50 61 72 61 20 63 75 61 6C ... " Para cual
002260: 71 75 69 65 72 20 70 72 65 67 75 6E 74 61 2C 20 quier pregunta,
002270: 72 65 6D 69 74 69 72 73 65 20 61 20 6C 6F 73 20 remitirse a los
002280: 74 65 6C 7B 66 6F 6E 6F 73 3A 22 2C 34 34 37 20 tel{fonos:",447
002290: 39 37 20 35 31 2C 34 34 37 20 39 38 20 30 39 2C 97 51,447 98 09,
0022A0: 22 20 64 65 20 4D 61 64 72 69 64 20 28 20 70 72 " de Madrid ( pr
0022B0: 65 66 69 6A 6F 20 39 31 20 29 20 6F 20 62 69 65 efijo 91 ) o bie
0022C0: 6E 20 65 73 63 72 69 62 69 65 6E 64 6F 20 61 20 n escribiendo a
0022D0: 3A 22 2C 22 42 41 42 45 54 41 20 53 2E 41 2E 20 :","BABETA S.A.
0022E0: 20 63 2F 20 47 41 4C 49 4C 45 4F 20 4E 6F 2E 20 c/ GALILEO No.
0022F0: 32 35 22 2C 22 4D 61 64 72 69 64 20 32 38 30 31 25","Madrid 2801
002300: 35 22 2C 77 61 69 74 2C 66 69 6E 2C 66 69 6E 00 5",wait,fin,fin.
002310: 0B 00 E0 01 CF 20 80 20 19 20 00 95 00 EA 01 C7 ..... . . ......
002320: 20 1E FE 01 01 9E 20 0D 00 00 E9 EF 0F 20 EC 20 ..... ...... .
002330: 15 01 C3 20 03 00 00 E2 01 9E 20 0D 00 00 CA EF ... ...... .....
002340: 69 F9 FF FF FF FF 11 50 09 46 04 46 04 E2 04 5A i......P.F.F...Z
002350: 09 01 10 08 10 00 07 01 00 2C 50 52 4F 47 52 41 .........,PROGRA
002360: 4D 00 00 00 00 00 00 00 00 00 04 FF 01 0A 05 70 M..............p
002370: 19 00 0A 1D 00 00 00 00 00 00 00 00 00 00 00 00 ................
002380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002450: 00 00 00 00 00 00 00 00 00 00 B9 30 FF FF FF FF ...........0....
002460: 11 51 09 46 04 46 04 E7 04 3E 09 01 10 08 FF FF .Q.F.F...>......
002470: 11 06 00 16 0F 20 EC 20 16 01 C3 20 03 00 00 E1 ..... . ... ....
002480: 01 0D 00 00 E1 28 0D 00 00 EA 29 EF FF 1D 28 03 .....(....)...(.
002490: 00 00 E1 29 01 B0 01 CF 20 FF 01 28 03 00 00 E2 ...).... ..(....
0024A0: 29 2C 0D 00 00 E1 28 0F 29 2C 0D 00 00 E1 28 10 ),....(.),....(.
0024B0: 29 2C 0D 00 00 E1 28 11 29 2C 0D 00 00 E1 28 12 ),....(.),....(.
0024C0: 29 2C 0D 00 00 E1 28 13 29 2C 0D 00 00 E1 28 14 ),....(.),....(.
0024D0: 29 2C 0D 00 00 E1 28 15 29 2C 0D 00 00 E1 28 16 ),....(.),....(.
0024E0: 29 01 B0 00 1B 00 F4 01 C5 20 73 6F 6E 20 20 6E )........ son n
0024F0: 6E 2C 4E 4E 2C 61 2C 65 2C 69 2C 6F 2C 75 00 52 n,NN,a,e,i,o,u.R
002500: 00 FE 01 8C 20 3C 2C 26 58 30 31 31 31 31 31 31 .... <,&X0111111
002510: 30 2C 26 58 30 2C 26 58 31 31 30 31 31 31 30 30 0,&X0,&X11011100
002520: 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 31 ,&X01100110,&X01
002530: 31 30 30 31 31 30 2C 26 58 30 31 31 30 30 31 31 100110,&X0110011
002540: 30 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 0,&X01100110,&X0
002550: 00 52 00 08 02 8C 20 3E 2C 26 58 30 31 31 31 31 .R.... >,&X01111
002560: 31 31 30 2C 26 58 30 2C 26 58 31 31 31 30 30 31 110,&X0,&X111001
002570: 31 30 2C 26 B9 FB 58 31 31 31 31 30 31 31 30 2C 10,&..X11110110,
002580: 26 58 31 31 30 31 31 31 31 30 2C 26 58 31 31 30 &X11011110,&X110
002590: 30 31 31 31 30 2C 26 58 31 31 30 30 30 31 31 30 01110,&X11000110
0025A0: 2C 26 58 30 00 5B 00 12 02 8C 20 22 7C 22 2C 26 ,&X0.[.... "|",&
0025B0: 58 30 30 30 30 30 30 31 30 2C 26 58 30 30 30 30 X00000010,&X0000
0025C0: 30 31 30 30 2C 26 58 30 31 31 31 31 30 30 30 2C 0100,&X01111000,
0025D0: 26 58 30 30 30 30 31 31 30 30 2C 26 58 30 31 31 &X00001100,&X011
0025E0: 31 31 31 30 30 2C 26 58 31 31 30 30 31 31 30 30 11100,&X11001100
0025F0: 2C 26 58 30 31 31 31 30 31 31 30 2C 26 58 30 00 ,&X01110110,&X0.
002600: 5B 00 1C 02 8C 20 22 7B 22 2C 26 58 30 30 30 30 [.... "{",&X0000
002610: 30 30 30 31 2C 26 58 30 30 30 30 30 30 31 30 2C 0001,&X00000010,
002620: 26 58 30 30 31 31 31 31 30 30 2C 26 58 30 31 31 &X00111100,&X011
002630: 30 30 31 31 30 2C 26 58 30 31 31 31 31 31 31 30 00110,&X01111110
002640: 2C 26 58 30 31 31 30 30 30 30 30 2C 26 58 30 30 ,&X01100000,&X00
002650: 31 31 31 31 30 30 2C 26 58 30 00 54 00 26 02 8C 111100,&X0.T.&..
002660: 20 22 2A 22 2C 26 58 30 30 30 30 31 30 30 30 2C "*",&X00001000,
002670: 26 58 30 30 30 31 40 DA 30 30 30 30 2C 26 58 30 &X0001@.0000,&X0
002680: 2C 26 58 30 30 31 31 31 30 30 30 2C 26 58 30 30 ,&X00111000,&X00
002690: 30 31 31 30 30 30 2C 26 58 30 30 30 31 31 30 30 011000,&X0001100
0026A0: 30 2C 26 58 30 30 31 31 31 31 30 30 2C 26 58 30 0,&X00111100,&X0
0026B0: 00 5B 00 30 02 8C 20 22 2B 22 2C 26 58 30 30 30 .[.0.. "+",&X000
0026C0: 30 30 30 30 31 2C 26 58 30 30 30 30 30 30 31 30 00001,&X00000010
0026D0: 2C 26 58 30 30 31 31 31 31 30 30 2C 26 58 30 31 ,&X00111100,&X01
0026E0: 31 30 30 31 31 30 2C 26 58 30 31 31 30 30 31 31 100110,&X0110011
0026F0: 30 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 0,&X01100110,&X0
002700: 30 31 31 31 31 30 30 2C 26 58 30 00 5B 00 3A 02 0111100,&X0.[.:.
002710: 8C 20 22 7D 22 2C 26 58 30 30 30 30 30 31 30 30 . "}",&X00000100
002720: 2C 26 58 30 30 30 30 31 30 30 30 2C 26 58 30 31 ,&X00001000,&X01
002730: 31 30 30 31 31 30 2C 26 58 30 31 31 30 30 31 31 100110,&X0110011
002740: 30 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 0,&X01100110,&X0
002750: 31 31 30 30 31 31 30 2C 26 58 30 30 31 31 31 31 1100110,&X001111
002760: 31 30 2C 26 58 30 00 06 00 44 02 C9 00 89 00 4E 10,&X0...D.....N
002770: 02 C7 20 1E 62 02 01 8A 2D 45 01 BF 01 BF 22 20 .. .b...-E...."
002780: 20 45 73 74 65 20 70 72 6F 67 72 61 6D 61 20 64 Este programa d
002790: 69 73 70 6F 6E 65 20 64 65 6C 20 61 6C 66 61 62 ispone del alfab
0027A0: 65 74 6F 20 43 61 73 74 65 6C 6C 61 6E 6F 20 63 eto Castellano c
0027B0: 6F 6D 70 6C 65 74 6F 2E 22 01 9E 20 0D 00 00 E9 ompleto.".. ....
0027C0: EF 0F 20 EC 20 15 01 A9 20 19 0A 2C 11 F4 10 F6 .. . ... ..,....
0027D0: 0D 00 00 E9 01 C3 20 03 00 00 FA 01 BF 20 03 00 ...... ...... ..
0027E0: 00 FA F4 22 20 20 6D 7C 73 20 53 48 49 46 54 20 ..." m|s SHIFT
0027F0: 65 73 20 20 22 01 B0 00 8B 00 58 02 C7 20 1E 6C es ".....X.. .l
002800: 02 01 9E 20 0D 00 00 E9 EF 0F 20 EC 20 15 01 A9 ... ...... . ...
002810: 20 19 1B 2C 11 F4 10 F6 0D 00 00 E9 01 C3 20 03 ..,.......... .
002820: 00 00 FA 01 BF 20 03 00 00 FA 01 B0 01 BF 01 BF ..... ..........
002830: 01 BF 22 4E 4F 54 41 3A 20 20 45 73 74 6F 73 20 .."NOTA: Estos
002840: 63 61 72 61 63 74 65 72 65 73 20 6E 6F 20 73 6F caracteres no so
002850: 6E 20 69 6D 70 72 69 6D 69 62 6C 65 73 20 61 75 n imprimibles au
002860: 6E 71 75 65 20 73 65 20 76 69 73 75 61 6C 69 63 nque se visualic
002870: 65 6E 20 65 6E 20 70 61 6E 74 64 68 61 6C 6C 61 en en pantdhalla
002880: 2E 22 01 C9 00 22 00 62 02 8C 20 22 40 22 2C 22 ."...".b.. "@","
002890: 5B 22 2C 22 3A 22 2C 22 3B 22 2C 22 5D 22 2C 22 [",":",";","]","
0028A0: 2C 22 2C 22 2E 22 00 22 00 6C 02 8C 20 22 7C 22 ,",".".".l.. "|"
0028B0: 2C 22 7B 22 2C 22 2A 22 2C 22 2B 22 2C 22 7D 22 ,"{","*","+","}"
0028C0: 2C 22 3C 22 2C 22 3E 22 00 B5 00 76 02 0D 00 00 ,"<",">"...v....
0028D0: EC EF FF 0E 28 03 00 00 70 61 F2 29 01 A1 20 0D ....(...pa.).. .
0028E0: 00 00 EC F2 0E 20 EB 20 9E 20 0D 00 00 70 61 F2 ..... . . ...pa.
0028F0: EF 0F 20 EC 20 15 01 D6 20 FF 74 28 03 00 00 70 .. . ... .t(...p
002900: 61 F2 2C 03 00 00 73 65 70 B1 28 0D 00 00 70 61 a.,...sep.(...pa
002910: F2 29 29 F2 0E 01 0D 00 00 68 61 F9 EF FF 74 28 .))......ha...t(
002920: 03 00 00 70 61 F2 2C 03 00 00 73 65 70 B1 28 0D ...pa.,...sep.(.
002930: 00 00 70 61 F2 29 29 01 03 00 00 70 61 F2 EF FF ..pa.))....pa...
002940: 75 28 03 00 00 70 61 F2 2C 0D 00 00 68 61 F9 F5 u(...pa.,...ha..
002950: 0F 29 F4 03 00 00 73 65 70 B2 28 0D 00 00 70 61 .)....sep.(...pa
002960: F2 29 F4 FF 79 28 03 00 00 70 61 F2 2C 0D 00 00 .)..y(...pa.,...
002970: EC F5 0D 00 00 68 61 F9 29 01 D5 01 1E 84 B0 00 .....ha.).......
002980: 06 00 80 02 C9 00 00 00 00 00 00 00 00 00 00 00 ................
002990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 E7 ................
002A80: FF FF FF FF 20 16 42 .... .B
RESULT OF SEARCH :
PRO=15 CHEA=0 COD=0 MUSI=0 COP=0 GRA=16 WRIT=0 198=3 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=15 CHEA=0 COD=0 MUSI=0 COP=0 GRA=16 WRIT=0 198=3 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
032022-01-17 094833 CSW2CDT-20191102 -y -f 22050 -5 SRFFk,PROGRAMAp,5TFFO( T&
, , , ,# 0,31,127,240,224,224,224,224&( 224,224,224,255,255,224,224,224&2 224,
224,224,224,224,224,240,240 0,255,255,0,0,0,0,0F 0,0,0,255,254,30,15,7P 3,1,0,0,
0,0,0,0Z 0,224,248,28,-14,7,7,7d 14,28,120,224,0,0,0,128"n 192,224,240,120,60,30
,63,63#x 0,31,127,240,224,224,224,224& 224,224,224,255,255,224,224,224& 224,224,
224,224,224,224,240,240 0,255,255,0,0,0,0,0 0,0,0,255,255,0,0,0 0,0,0,0,0,0,0,nC
0 0,192,240,28,14,7,7,7 14,28,120,224,0,0,0,0 0,0,0,0,0,0,0,0# 0,31,127,240,224,
224,224,224& 224,224,240,255,255,240,224,224& 224,224,224,224,224,224,240,240 0,
255,255,0,0,0,0,0 0,0,0,255,255,0,0,0 0,0,0,0n$,0,0,0,0 0,248,254,15,7,7,7,7 7,7
,15,255,255,15,7,7" 7,7,7,7,7,7,15,15/, l( )( ) cn 6 , , , , , , ,
cn, , , , , , , , D1 cn cn" " ( ( )( ) )" "l" "u(,()) "
Systems Inc"J ()" FICVHERO MEDICO " ()"CARGANDO"ll()"ESPERE UN MOMENTO POR FAV
OR" , , , , , "!programTUUFFf,PROGRAMp )zTFFH sep(),sep()sep()""sep()"a"
sep()""sep()"e"sep()"*"sep()"i"sep()"+"sep()"o"sep()""sep()"u"sep()""sep()"n"sep
()""s.ep()"N"1( INSTRUCCIONES 29 N"PULSE UNA TECLA PARA CONTINUAR." C""!F tru()
fals()P , "QUIERE LISTAR LAS INSTRUCCIONES POR IMPRESORA (s/n) "i"" i"s" i"n"
i(C) im(i"s")iZ () ()"fin" bo fals im pa vpapd ()"wait" () ( im) ,"PULS
E UNA TECLA PARA CONTINUAR" C""n u(,)"$" y(, ) i im ca i# ca,((P ))( ,())(
)()( ,"")()()# ca bo trupx (( bo))(()"fin") i imK ca i# ca,((P ))# ca ()
$INSTRUCCIONES,," El programa FICHERO MEDICO le proporciona una c+moda base de
datos para llevaral d*a su informaci+n. Consta de siete campos por fich)a, adm
itiendo un mximode 200 fichas por fichero. Estos campos son"c "NOMBRE
","DIRECCION/TFNO ","EDAD/FECHA NACIMIENTO","SEXO "K "
SIGNOS PARTICULARES ","MEDICACION ","TRATAMIENTO " " El men pr
incipal consta de ocho opciones",wait $1 CREAR," Cuando no hay ningn fichero
en la memoria del ordenador, esta opci+n le introduce directamente en el modo
escritura, preguntando primero un nombre para el fichero a crear."F " A contin
uaci+n se pasa a rellenar los campos de cada ficha." " Para acabar la introduc
ci+n de fichas, debe usted escribir 'FIN' en el campo 1-NOMBRE. En ese momento
el programa ordenar el fichero automticamente para luego volver al men." $QFFa,
PROGRAMp PFFE2 CARGAR," Sirve para introducir en la memoria del ordenador
un fichero previamente salvado a cinta. Si responde 'ENTER' a la pregunta 'NOM
BRE DEL FICHERO ', el ordenador cargar el primer fichero que encuentre."y wait,$
3 SALVAR," Una vez crmeado y rellenado el fichero, debe usted grabarlo en una
cinta parasu uso posterior." $4 AADIR," Permite la ampliaci+n de un fichero c
on nuevas fichas , ya sea por teclado obien concatenando, es decir uniendo, ot
ro fichero que usted hubiera grabadoen cinta."£ " A la pregunta 'QUIER
E AADIR FICHAS POR TECLADO O CONCATENAR UN FICHERO CONTENIDO EN CINTA ', respo
nda '0' para la primera y '9' para la segunda." WAIT,$5 CLASIFICAR,"Esta opci+n
ordena su fichero simultaneamente p9or los campos NOMBRE y DIRECCION,para que
luego al imprimir o revisar se haga en el orden que usted considere
mas til (vea REVISAR)." $6 REVISAR-BUSCAR-MODIFICAR," Con este procedimient
o se dispone de todos los comandos necesar)ios para actualizar un fichero.Est
os comandos son","'Q' vuelve al men.","'N' nueva ficha." " Para visualizar en
la pantalla una ficha concreta conociendo su nmero con respecto a la ordena
ci+n elegida, pulse 'N', responda el nmero de fivcha adecuado y sta le apare
cer en pantalla."" "'P' pr+xima ficha (segn el orden de listado escogido).","'O'
ficha anterior (id)."5, wait,"'L' borra la ficha que hay en pantalla."96 "'C' c
ambia el campo que determina la ordenaci+n." " Por ejemplo si est usted revisan
do el fichero con arreglo al orden de NOMBRESy quiere verlo en orden de DIRECCIO
NES, pulse 'C' y responda el orden que desee (1 NOMBRE,2 DIRECCION)."J "'B' busc
ar."," Este comando es de gran utilidad y le presenta do!Fs preguntas."," Prim
ero en que campos quiere buscar la informaci+n. Para ello debe responder el nmer
o o nmeros de campo en los que quiere buscar."T " Por ejemplo, si responde '32
1' quiere decir en campos 1, 2 y 3. Para mayor comodidad, respondRFFf,PROGRAMp
VQFFFer '5' quiere decir buscar en TODOS los campos (campos 1 a 3)." " Despus
hay que especificar la cadena a buscar , cuanto mas corta sea esta , mas rpido
se encontrar (si existe).Es decir que para buscar 'MANUEL' se puede responder 'M
AN' , o 'MANUM' etc...",waith " Una vez encontrada la cadena, hay dos posibilid
ades ","1) Pulsar 'Q' y entrar en REVISION con esa ficha en pantalla, para modif
icaci+n o consulta.","2) pulsar otra tecla con lo que la bsqueda contina.
"br "'M' es modificaci+n."," Con esta posibilidad puede
usted modificar a voluntad cualquier campo de cualquier ficha. Al pulsar 'M' v
er la pregunta 'QUE CAMPO '" " Responda el nmero deseado (1 a 7) y se iluminar
el campo seleccionado, s8alvosi es 6 + 7. La modificaci+n del campo 6 IMPLI
CA la modificaci+n del 7 y viceversa. Ahora hay tres maneras de modificar" "
Escribiendo '# informaci+n' , sta se inserta delante de la antigua.","Escribiend
o '$ informaci+n' , se suma detrs de la antigua.","Escribiendo 'informaci+n' se
pierde la antigua y queda sta.",waitN "$NOTA"," La inserci+n o el borrado de fi
chas DESORDENAN el fichero." $FIN DE MODO REVISION ,,$7 IMPRESORA," Esta opci+
n lista por impresora todas #las fichas, segn el orden que usted desee. A la p
regunta 'SEGUN ORDEN DEL CAMPO ', responda 1 para NOMBRE y 2 para DIRECCION." wa
it ,,$0 ABANDONAR," Provoca un RESET del ordenador , equivalente a desenchufarl
o."," El programa le pedir confirmaci+n,por si hubiera pulsado '0' por error.",
,$R P A Systems Inc. 1985H ,,"Programa realizado por Pedro y Luis Suja , 5-jul
io-1985.",waity " R P A Systems le desea un feliz uso de este programa, esperand
o que le sea degran ayuda.",,"D.L. M-8544-1985" " Para cualquier pregunta, re
mitirse a los telfonos",447 97 51,447 98 09," de Madrid ( prefijo 91 ) o bien es
cribiendo a ","BABETA S.A. c/ GALILEO No. 25","Madrid 28015",wait,fin,fin
iPFFZ,PROGRAM p 0QFF ( )() (), (), (), (), (), (), (), (), () son nn,NN
,a,e,i,o,uR ,&X01111110,&X0,&X11011100,&X01100110,&X01100110,&X01100110,&X011001
10,&X0R ,&X01111110,&X0,&X11100110,&X11110110,&X11011110,&X11001110,&X11000110,&
X0 "",&X00000010,&X00000100,&X01111000,&X00001100,&X01111100,&X11001100,&X011101
10,&X0 "",&X00000001,&X00000010,&X00111100,&X01100110,&X01111110,&X01100000,&X00
111100,&X0T& "*",&X00001000,&X00010000,&X0,&X00111000,&X00011000,&X00011000,&X00
111100,&X00 "+",&X00000001,&X00000010,&X00111100,&X01100110,&X01100110,&X0110011
0,&X00111100,&X0 "",&X00000100,&X00001000,&X01100110,&X01100110,&X01100110,&X011
00110,&X00111110,&X0DN b-E" Este programa dispone del alfabeto Castellano compl
eto." , " ms SHIFT es "X l , "NOTA Estos caracteres no son impri
mibles aunque se visualicen en pantdhalla.""b "","","","","",",",".""l "","","*"
,"+","","",""v (pa) pa t(pa,sep( pa)) hat(pa,sep( pa))pau(pa, ha)sep( pa)
y(pa, ha) BTous droits réservés. Reproduction sans autorisation interdite. © Kukulcan