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 0D 20 09 53 11 52 09 ZXTape!... .S.R.
000010: 46 04 46 04 E2 04 6B 09 00 10 08 11 00 07 01 00 F.F...k.........
000020: 2C 50 52 4F 47 52 41 4D 41 00 00 00 00 00 00 00 ,PROGRAMA.......
000030: 00 01 FF 01 98 05 70 01 FF 98 05 00 00 00 00 00 ......p.........
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 2C 35 FF FF FF FF 11 54 09 46 04 46 04 E5 04 .,5.....T.F.F...
000130: 4F 09 00 10 08 0B 28 11 06 00 16 0C 00 0A 00 B3 O.....(.........
000140: 20 9F 20 1E 54 01 00 26 00 14 00 AD 20 0F 01 82 . .T..&.... ...
000150: 20 0F 01 A2 20 0E 2C 0F 01 A2 20 0F 2C 19 18 01 ... .,... .,...
000160: A2 20 10 2C 19 12 01 A2 20 11 2C 14 00 23 00 1E . .,.... .,..#..
000170: 00 8C 20 30 2C 33 31 2C 31 32 37 2C 32 34 30 2C .. 0,31,127,240,
000180: 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 32 34 00 224,224,224,224.
000190: 26 00 28 00 8C 20 32 32 34 2C 32 32 34 2C 32 32 &.(.. 224,224,22
0001A0: 34 2C 32 35 35 2C 32 35 35 2C 32 32 34 2C 32 32 4,255,255,224,22
0001B0: 34 2C 32 32 34 00 26 00 32 00 8C 20 32 32 34 2C 4,224.&.2.. 224,
0001C0: 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 32 34 2C 224,224,224,224,
0001D0: 32 32 34 2C 32 34 30 2C 32 34 30 00 1A 00 3C 00 224,240,240...<.
0001E0: 8C 20 30 2C 32 35 35 2C 32 35 35 2C 30 2C 30 2C . 0,255,255,0,0,
0001F0: 30 2C 30 2C 30 00 1C 00 46 00 8C 20 30 2C 30 2C 0,0,0...F.. 0,0,
000200: 30 2C 32 35 35 2C 32 35 34 2C 33 30 2C 31 35 2C 0,255,254,30,15,
000210: 37 00 16 00 50 00 8C 20 33 2C 31 2C 30 2C 30 2C 7...P.. 3,1,0,0,
000220: 30 2C 30 2C 30 2C 30 00 1C 00 5A 00 8C 20 30 2C 0,0,0,0...Z.. 0,
000230: 32 32 34 2C 32 34 38 2C 32 38 2C F4 2D 31 34 2C 224,248,28,.-14,
000240: 37 2C 37 2C 37 00 1E 00 64 00 8C 20 31 34 2C 32 7,7,7...d.. 14,2
000250: 38 2C 31 32 30 2C 32 32 34 2C 30 2C 30 2C 30 2C 8,120,224,0,0,0,
000260: 31 32 38 00 22 00 6E 00 8C 20 31 39 32 2C 32 32 128.".n.. 192,22
000270: 34 2C 32 34 30 2C 31 32 30 2C 36 30 2C 33 30 2C 4,240,120,60,30,
000280: 36 33 2C 36 33 00 23 00 78 00 8C 20 30 2C 33 31 63,63.#.x.. 0,31
000290: 2C 31 32 37 2C 32 34 30 2C 32 32 34 2C 32 32 34 ,127,240,224,224
0002A0: 2C 32 32 34 2C 32 32 34 00 26 00 82 00 8C 20 32 ,224,224.&.... 2
0002B0: 32 34 2C 32 32 34 2C 32 32 34 2C 32 35 35 2C 32 24,224,224,255,2
0002C0: 35 35 2C 32 32 34 2C 32 32 34 2C 32 32 34 00 26 55,224,224,224.&
0002D0: 00 8C 00 8C 20 32 32 34 2C 32 32 34 2C 32 32 34 .... 224,224,224
0002E0: 2C 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 34 30 ,224,224,224,240
0002F0: 2C 32 34 30 00 1A 00 96 00 8C 20 30 2C 32 35 35 ,240...... 0,255
000300: 2C 32 35 35 2C 30 2C 30 2C 30 2C 30 2C 30 00 1A ,255,0,0,0,0,0..
000310: 00 A0 00 8C 20 30 2C 30 2C 30 2C 32 35 35 2C 32 .... 0,0,0,255,2
000320: 35 35 2C 30 2C 30 2C 30 00 16 00 AA 00 8C 20 30 55,0,0,0...... 0
000330: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 6E 43 30 ,0,0,0,0,0,0,nC0
000340: 00 1C 00 B4 00 8C 20 30 2C 31 39 32 2C 32 34 30 ...... 0,192,240
000350: 2C 32 38 2C 31 34 2C 37 2C 37 2C 37 00 1C 00 BE ,28,14,7,7,7....
000360: 00 8C 20 31 34 2C 32 38 2C 31 32 30 2C 32 32 34 .. 14,28,120,224
000370: 2C 30 2C 30 2C 30 2C 30 00 16 00 C8 00 8C 20 30 ,0,0,0,0...... 0
000380: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 23 ,0,0,0,0,0,0,0.#
000390: 00 D2 00 8C 20 30 2C 33 31 2C 31 32 37 2C 32 34 .... 0,31,127,24
0003A0: 30 2C 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 32 0,224,224,224,22
0003B0: 34 00 26 00 DC 00 8C 20 32 32 34 2C 32 32 34 2C 4.&.... 224,224,
0003C0: 32 34 30 2C 32 35 35 2C 32 35 35 2C 32 34 30 2C 240,255,255,240,
0003D0: 32 32 34 2C 32 32 34 00 26 00 E6 00 8C 20 32 32 224,224.&.... 22
0003E0: 34 2C 32 32 34 2C 32 32 34 2C 32 32 34 2C 32 32 4,224,224,224,22
0003F0: 34 2C 32 32 34 2C 32 34 30 2C 32 34 30 00 1A 00 4,224,240,240...
000400: F0 00 8C 20 30 2C 32 35 35 2C 32 35 35 2C 30 2C ... 0,255,255,0,
000410: 30 2C 30 2C 30 2C 30 00 1A 00 FA 00 8C 20 30 2C 0,0,0,0...... 0,
000420: 30 2C 30 2C 32 35 35 2C 32 35 35 2C 30 2C 30 2C 0,0,255,255,0,0,
000430: 30 00 16 00 04 01 8C 20 30 2C 30 2C 30 2C 30 6E 0...... 0,0,0,0n
000440: 24 2C 30 2C 30 2C 30 2C 30 00 1B 00 0E 01 8C 20 $,0,0,0,0......
000450: 30 2C 32 34 38 2C 32 35 34 2C 31 35 2C 37 2C 37 0,248,254,15,7,7
000460: 2C 37 2C 37 00 1C 00 18 01 8C 20 37 2C 37 2C 31 ,7,7...... 7,7,1
000470: 35 2C 32 35 35 2C 32 35 35 2C 31 35 2C 37 2C 37 5,255,255,15,7,7
000480: 00 18 00 22 01 8C 20 37 2C 37 2C 37 2C 37 2C 37 ...".. 7,7,7,7,7
000490: 2C 37 2C 31 35 2C 31 35 00 2F 00 2C 01 C7 20 1E ,7,15,15./.,.. .
0004A0: 1E 00 01 03 00 00 6C E6 EF FF 03 28 19 0A 29 F4 ......l....(..).
0004B0: FF 03 28 19 0D 29 01 0D 00 00 63 6E F4 EF 19 20 ..(..)....cn...
0004C0: 01 CF 20 80 20 19 20 00 8F 00 36 01 9E 20 0D 00 .. . . ...6.. ..
0004D0: 00 E9 EF 0F 20 EC 20 17 01 9E 20 0D 00 00 EA EF .... . ... .....
0004E0: 0F 20 EC 20 11 01 C3 20 0D 00 00 E1 2C 0D 00 00 . . ... ....,...
0004F0: E2 2C 0D 00 00 E3 2C 0D 00 00 E4 2C 0D 00 00 E5 .,....,....,....
000500: 2C 0D 00 00 E6 2C 0D 00 00 E7 2C 0D 00 00 E8 01 ,....,....,.....
000510: CF 20 0D 00 00 63 6E F4 F4 0F 2C 0D 00 00 E1 2C . ...cn...,....,
000520: 0D 00 00 E2 2C 0D 00 00 E3 2C 0D 00 00 E4 2C 0D ....,....,....,.
000530: 00 00 E5 2C 0D 00 00 E6 2C 0D 00 00 E7 2C 0D 00 ...,....,....,..
000540: 00 44 31 E8 01 0D 00 00 63 6E F4 EF 0D 00 00 63 .D1.....cn.....c
000550: 6E F4 F4 0F 01 B0 01 B0 00 CD 00 40 01 03 00 00 n..........@....
000560: E1 EF 22 20 20 20 20 20 20 22 01 BF 01 BF 01 BF .." "......
000570: 01 9E 20 0D 00 00 E9 EF 0F 20 EC 20 11 01 9E 20 .. ...... . ...
000580: 0D 00 00 EA EF 0F 20 EC 20 11 01 9E 20 0D 00 00 ...... . ... ...
000590: EB EF 0F 20 EC 20 11 01 03 00 00 E1 EF 03 00 00 ... . ..........
0005A0: E1 F4 FF 03 28 19 20 F4 17 F6 28 0D 00 00 EA F5 ....(. ...(.....
0005B0: 0F 29 F4 11 F6 28 0D 00 00 EB F5 0F 29 F4 0D 00 .)...(......)...
0005C0: 00 E9 29 01 B0 01 03 00 00 E1 EF 03 00 00 E1 F4 ..).............
0005D0: 22 20 20 20 22 01 B0 01 03 00 00 E1 EF 03 00 00 " "...........
0005E0: E1 F4 03 00 00 6C E6 F4 22 20 20 20 20 20 20 22 .....l.." "
0005F0: 01 B0 01 03 00 00 E1 EF FF 75 28 03 00 00 E1 2C .........u(....,
000600: FF 0E 28 03 00 00 E1 29 F5 17 29 01 BB 20 10 01 ..(....)..).. ..
000610: BF 20 03 00 00 E1 3B 22 20 53 79 73 74 65 6D 73 . ....;" Systems
000620: 20 49 6E 63 22 00 AD 00 4A 01 BF 01 BF 01 BF 01 Inc"...J.......
000630: BF 01 BF 01 BF 20 EA 28 17 29 3B 22 3D 3D 3D 20 ..... .(.);"===
000640: 46 49 43 7C 56 48 45 52 4F 20 4D 45 44 49 43 4F FIC|VHERO MEDICO
000650: 20 3D 3D 3D 22 01 BF 01 BF 01 BB 20 11 01 BF 20 ==="...... ...
000660: EA 28 19 10 29 3B 22 43 41 52 47 41 4E 44 4F 22 .(..);"CARGANDO"
000670: 3B 03 00 00 6C E6 3B 03 00 00 6C E6 3B EA 28 15 ;...l.;...l.;.(.
000680: 29 3B 22 45 53 50 45 52 45 20 55 4E 20 4D 4F 4D );"ESPERE UN MOM
000690: 45 4E 54 4F 20 50 4F 52 20 46 41 56 4F 52 22 01 ENTO POR FAVOR".
0006A0: BC 20 0E 2C 0E 01 94 20 1A 7E 02 2C 0E 01 94 20 . .,... .~.,...
0006B0: 1A 7E 02 2C 1A 8E 01 01 94 20 0E 2C 1A 8E 01 01 .~.,..... .,....
0006C0: 94 20 0E 2C 0E 01 BB 20 0F 01 CA 22 21 70 72 6F . .,... ..."!pro
0006D0: 67 72 61 6D 00 06 00 54 01 C9 00 00 00 00 00 00 gram...T........
0006E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 55 12 FF FF FF FF 11 55 09 46 04 .....U......U.F.
000750: 46 04 E3 04 66 09 01 10 08 11 00 07 01 00 2C 50 F...f.........,P
000760: 52 4F 47 52 41 4D 00 00 00 00 00 00 00 00 00 01 ROGRAM..........
000770: 00 01 00 08 70 01 FF 0A 1D 00 00 00 00 00 00 00 ....p...........
000780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 29 ...............)
000860: 7A FF FF FF FF 11 54 09 46 04 46 04 E9 04 48 09 z.....T.F.F...H.
000870: 01 10 08 00 0A 15 08 00 16 1D 00 0A 00 AD 20 10 .............. .
000880: 01 CF 20 80 20 19 FF 01 9F 20 1E E0 01 01 B3 20 .. . .... .....
000890: 9F 20 1E 80 02 00 EE 00 14 00 93 20 03 00 00 73 . ......... ...s
0008A0: 65 70 B1 28 15 29 2C 03 00 00 73 65 70 B2 28 15 ep.(.),...sep.(.
0008B0: 29 01 03 00 00 73 65 70 B1 28 0F 29 EF 22 7C 22 )....sep.(.)."|"
0008C0: 01 03 00 00 73 65 70 B2 28 0F 29 EF 22 61 22 01 ....sep.(.)."a".
0008D0: 03 00 00 73 65 70 B1 28 10 29 EF 22 7B 22 01 03 ...sep.(.)."{"..
0008E0: 00 00 73 65 70 B2 28 10 29 EF 22 65 22 01 03 00 ..sep.(.)."e"...
0008F0: 00 73 65 70 B1 28 11 29 EF 22 2A 22 01 03 00 00 .sep.(.)."*"....
000900: 73 65 70 B2 28 11 29 EF 22 69 22 01 03 00 00 73 sep.(.)."i"....s
000910: 65 70 B1 28 12 29 EF 22 2B 22 01 03 00 00 73 65 ep.(.)."+"....se
000920: 70 B2 28 12 29 EF 22 6F 22 01 03 00 00 73 65 70 p.(.)."o"....sep
000930: B1 28 13 29 EF 22 7D 22 01 03 00 00 73 65 70 B2 .(.)."}"....sep.
000940: 28 13 29 EF 22 75 22 01 03 00 00 73 65 70 B1 28 (.)."u"....sep.(
000950: 14 29 EF 22 3C 22 01 03 00 00 73 65 70 B2 28 14 .)."<"....sep.(.
000960: 29 EF 22 6E 22 01 03 00 00 73 65 70 B1 28 15 29 )."n"....sep.(.)
000970: EF 22 3E 22 01 03 00 00 73 2E F5 65 70 B2 28 15 .">"....s..ep.(.
000980: 29 EF 22 4E 22 00 06 00 1E 00 C5 00 31 00 28 00 )."N".......1.(.
000990: C5 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 . =============
0009A0: 49 4E 53 54 52 55 43 43 49 4F 4E 45 53 20 3D 3D INSTRUCCIONES ==
0009B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 06 00 32 ============...2
0009C0: 00 C5 00 39 00 3C 00 9F 20 1E 4E 02 01 BF 01 BF ...9.<.. .N.....
0009D0: 22 50 55 4C 53 45 20 55 4E 41 20 54 45 43 4C 41 "PULSE UNA TECLA
0009E0: 20 50 41 52 41 20 43 4F 4E 54 49 4E 55 41 52 2E PARA CONTINUAR.
0009F0: 22 01 D6 20 FF 43 EF 22 22 01 D5 00 21 00 46 00 ".. .C.""...!.F.
000A00: 0D 00 00 74 72 75 E5 EF 28 0F EF 0F 29 01 0D 00 ...tru..(...)...
000A10: 00 66 61 6C 73 E5 EF 28 0F F2 0F 29 00 8C 00 50 .fals..(...)...P
000A20: 00 8A 01 A9 20 12 2C 19 0A 01 BF 22 51 55 49 45 .... .,...."QUIE
000A30: 52 45 20 4C 49 53 54 41 52 20 4C 41 53 20 49 4E RE LISTAR LAS IN
000A40: 53 54 52 55 43 43 49 4F 4E 45 53 20 50 4F 52 20 STRUCCIONES POR
000A50: 49 4D 50 52 45 53 4F 52 41 20 20 28 73 2F 6E 29 IMPRESORA (s/n)
000A60: 20 3F 22 01 03 00 00 69 EE EF 22 22 01 D6 20 03 ?"....i.."".. .
000A70: 00 00 69 EE F2 22 73 22 20 FA 20 BC E9 03 00 00 ..i.."s" . .....
000A80: 69 EE F2 22 6E 22 01 03 00 00 69 EE EF FF 11 28 i.."n"....i....(
000A90: FF 43 29 01 D5 01 0D 00 00 69 6D F0 EF 28 03 00 .C)......im..(..
000AA0: 00 69 EE EF 22 73 22 29 01 8A 00 69 00 5A 00 C7 .i.."s")...i.Z..
000AB0: 20 1E 96 00 01 C3 20 03 00 00 FA 01 0D 00 00 EC ..... .........
000AC0: EF FF 0E 28 03 00 00 FA 29 01 D6 20 FF 11 28 03 ...(....).. ..(.
000AD0: 00 00 FA 29 F2 22 66 69 6E 22 01 0D 00 00 62 6F ...)."fin"....bo
000AE0: EC EF 0D 00 00 66 61 6C 73 E5 01 A1 20 0D 00 00 .....fals... ...
000AF0: 69 6D F0 20 EB 20 03 00 00 70 61 F2 EF 03 00 00 im. . ...pa.....
000B00: FA 01 9F 20 1E 76 02 01 03 00 00 FA EF 03 00 00 ... .v..........
000B10: 70 61 F2 00 70 00 64 00 A1 20 FF 11 28 03 00 00 pa..p.d.. ..(...
000B20: FA 29 EF 22 77 61 69 74 22 20 EB 20 C3 20 03 00 .)."wait" . . ..
000B30: 00 FA 01 0D 00 00 EC EF FF 0E 28 03 00 00 FA 29 ..........(....)
000B40: 01 A1 20 FE 28 0D 00 00 69 6D F0 29 20 EB 20 A9 .. .(...im.) . .
000B50: 20 12 2C 19 19 01 BF 22 50 55 4C 53 45 20 55 4E .,...."PULSE UN
000B60: 41 20 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E A TECLA PARA CON
000B70: 54 49 4E 55 41 52 22 01 D6 20 FF 43 EF 7D F9 22 TINUAR".. .C.}."
000B80: 22 01 D5 01 8A 00 C6 00 6E 00 A1 20 FF 75 28 03 ".......n.. .u(.
000B90: 00 00 FA 2C 0F 29 EF 22 24 22 20 EB 20 0D 00 00 ...,.)."$" . ...
000BA0: EC EF 0D 00 00 EC F5 0F 01 03 00 00 FA EF FF 79 ...............y
000BB0: 28 03 00 00 FA 2C 0D 00 00 EC 29 01 9E 20 0D 00 (....,....).. ..
000BC0: 00 69 E9 EF 0D 00 00 69 6D F0 20 EC 20 0E 01 0D .i.....im. . ...
000BD0: 00 00 63 61 EE EF F5 0D 00 00 69 E9 F6 16 01 BF ..ca......i.....
000BE0: 23 0D 00 00 63 61 EE 2C EA 28 28 19 50 F5 0D 00 #...ca.,.((.P...
000BF0: 00 EC 29 F7 10 29 3B 03 00 00 FA 3B FF 7B 28 0D ..)..);....;.{(.
000C00: 00 00 EC 2C FF 03 28 16 29 29 3B FF 03 28 19 16 ...,..(.));..(..
000C10: 29 3B FF 03 28 0F 29 3B FF 7B 28 0D 00 00 EC 2C );..(.);.{(....,
000C20: 22 5F 22 29 3B FF 03 28 19 16 29 3B FF 03 28 0E "_");..(..);..(.
000C30: 29 01 BF 23 0D 00 00 63 61 EE 01 B0 01 0D 00 00 )..#...ca.......
000C40: 62 6F EC EF 0D 00 00 74 72 75 E5 00 70 00 78 00 bo.....tru..p.x.
000C50: A1 20 28 FE 28 0D 00 00 62 6F EC 29 29 FA 28 FF . (.(...bo.)).(.
000C60: 11 28 03 00 00 FA 29 F2 22 66 69 6E 22 29 20 EB .(....)."fin") .
000C70: 20 9E 20 0D 00 00 69 E9 EF 0D 00 00 69 6D F0 4B . ...i.....im.K
000C80: 94 20 EC 20 0E 01 0D 00 00 63 61 EE EF F5 0D 00 . . .....ca.....
000C90: 00 69 E9 F6 16 01 BF 23 0D 00 00 63 61 EE 2C EA .i.....#...ca.,.
000CA0: 28 28 19 50 F5 0D 00 00 EC 29 F7 10 29 3B 03 00 ((.P.....)..);..
000CB0: 00 FA 01 BF 23 0D 00 00 63 61 EE 01 B0 00 1B 00 ....#...ca......
000CC0: 82 00 C3 20 03 00 00 FA 01 0D 00 00 EC EF FF 0E ... ............
000CD0: 28 03 00 00 FA 29 01 D5 00 0A 00 8C 00 A0 20 1E (....)........ .
000CE0: 3C 00 00 E6 00 96 00 8C 20 24 49 4E 53 54 52 55 <....... $INSTRU
000CF0: 43 43 49 4F 4E 45 53 2C 2C 22 20 20 45 6C 20 70 CCIONES,," El p
000D00: 72 6F 67 72 61 6D 61 20 46 49 43 48 45 52 4F 20 rograma FICHERO
000D10: 4D 45 44 49 43 4F 20 6C 65 20 70 72 6F 70 6F 72 MEDICO le propor
000D20: 63 69 6F 6E 61 20 75 6E 61 20 63 2B 6D 6F 64 61 ciona una c+moda
000D30: 20 62 61 73 65 20 64 65 20 64 61 74 6F 73 20 70 base de datos p
000D40: 61 72 61 20 6C 6C 65 76 61 72 61 6C 20 64 2A 61 ara llevaral d*a
000D50: 20 73 75 20 69 6E 66 6F 72 6D 61 63 69 2B 6E 2E su informaci+n.
000D60: 20 43 6F 6E 73 74 61 20 64 65 20 73 69 65 74 65 Consta de siete
000D70: 20 63 61 6D 70 6F 73 20 20 70 6F 72 20 66 69 63 campos por fic
000D80: 68 B8 29 61 2C 20 61 64 6D 69 74 69 65 6E 64 6F h.)a, admitiendo
000D90: 20 20 75 6E 20 20 6D 7C 78 69 6D 6F 64 65 20 20 un m|ximode
000DA0: 32 30 30 20 66 69 63 68 61 73 20 70 6F 72 20 66 200 fichas por f
000DB0: 69 63 68 65 72 6F 2E 20 45 73 74 6F 73 20 63 61 ichero. Estos ca
000DC0: 6D 70 6F 73 20 73 6F 6E 3A 22 00 63 00 A0 00 8C mpos son:".c....
000DD0: 20 22 4E 4F 4D 42 52 45 20 20 20 20 20 20 20 20 "NOMBRE
000DE0: 20 20 20 20 20 20 22 2C 22 44 49 52 45 43 43 49 ","DIRECCI
000DF0: 4F 4E 2F 54 46 4E 4F 20 20 20 20 20 20 22 2C 22 ON/TFNO ","
000E00: 45 44 41 44 2F 46 45 43 48 41 20 4E 41 43 49 4D EDAD/FECHA NACIM
000E10: 49 45 4E 54 4F 22 2C 22 53 45 58 4F 20 20 20 20 IENTO","SEXO
000E20: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 4B 00 ".K.
000E30: AA 00 8C 20 22 53 49 47 4E 4F 53 20 50 41 52 54 ... "SIGNOS PART
000E40: 49 43 55 4C 41 52 45 53 20 22 2C 22 4D 45 44 49 ICULARES ","MEDI
000E50: 43 41 43 49 4F 4E 20 20 20 20 20 20 20 20 20 20 CACION
000E60: 22 2C 22 54 52 41 54 41 4D 49 45 4E 54 4F 20 20 ","TRATAMIENTO
000E70: 20 20 20 20 20 20 20 22 00 3A 00 B4 00 8C 20 22 ".:.... "
000E80: 20 20 45 83 D7 6C 20 6D 65 6E 7D 20 70 72 69 6E E..l men} prin
000E90: 63 69 70 61 6C 20 63 6F 6E 73 74 61 20 64 65 20 cipal consta de
000EA0: 6F 63 68 6F 20 6F 70 63 69 6F 6E 65 73 3A 22 2C ocho opciones:",
000EB0: 77 61 69 74 00 C5 00 BE 00 8C 20 24 31 20 43 52 wait...... $1 CR
000EC0: 45 41 52 2C 22 20 20 43 75 61 6E 64 6F 20 20 6E EAR," Cuando n
000ED0: 6F 20 20 68 61 79 20 20 6E 69 6E 67 7D 6E 20 66 o hay ning}n f
000EE0: 69 63 68 65 72 6F 20 65 6E 20 20 6C 61 20 6D 65 ichero en la me
000EF0: 6D 6F 72 69 61 20 64 65 6C 20 6F 72 64 65 6E 61 moria del ordena
000F00: 64 6F 72 2C 20 65 73 74 61 20 20 6F 70 63 69 2B dor, esta opci+
000F10: 6E 20 6C 65 20 69 6E 74 72 6F 64 75 63 65 20 64 n le introduce d
000F20: 69 72 65 63 74 61 6D 65 6E 74 65 20 65 6E 20 65 irectamente en e
000F30: 6C 20 6D 6F 64 6F 20 65 73 63 72 69 74 75 72 61 l modo escritura
000F40: 2C 20 70 72 65 67 75 6E 74 61 6E 64 6F 20 70 72 , preguntando pr
000F50: 69 6D 65 72 6F 20 75 6E 20 6E 6F 6D 62 72 65 20 imero un nombre
000F60: 70 61 72 61 20 65 6C 20 66 69 63 68 65 72 6F 20 para el fichero
000F70: 61 20 63 72 65 61 72 2E 22 00 46 00 C8 00 8C 20 a crear.".F....
000F80: 22 20 20 41 20 3A C7 63 6F 6E 74 69 6E 75 61 63 " A :.continuac
000F90: 69 2B 6E 20 73 65 20 70 61 73 61 20 61 20 72 65 i+n se pasa a re
000FA0: 6C 6C 65 6E 61 72 20 6C 6F 73 20 63 61 6D 70 6F llenar los campo
000FB0: 73 20 64 65 20 63 61 64 61 20 66 69 63 68 61 2E s de cada ficha.
000FC0: 22 00 BE 00 D2 00 8C 20 22 20 20 50 61 72 61 20 "...... " Para
000FD0: 61 63 61 62 61 72 20 6C 61 20 20 69 6E 74 72 6F acabar la intro
000FE0: 64 75 63 63 69 2B 6E 20 64 65 20 66 69 63 68 61 ducci+n de ficha
000FF0: 73 2C 20 64 65 62 65 20 75 73 74 65 64 20 65 73 s, debe usted es
001000: 63 72 69 62 69 72 20 27 46 49 4E 27 20 65 6E 20 cribir 'FIN' en
001010: 65 6C 20 63 61 6D 70 6F 20 31 2D 4E 4F 4D 42 52 el campo 1-NOMBR
001020: 45 2E 20 45 6E 20 65 73 65 20 6D 6F 6D 65 6E 74 E. En ese moment
001030: 6F 20 20 65 6C 20 70 72 6F 67 72 61 6D 61 20 6F o el programa o
001040: 72 64 65 6E 61 72 7C 20 20 65 6C 20 66 69 63 68 rdenar| el fich
001050: 65 72 6F 20 61 75 74 6F 6D 7C 74 69 63 61 6D 65 ero autom|ticame
001060: 6E 74 65 20 70 61 72 61 20 6C 75 65 67 6F 20 76 nte para luego v
001070: 6F 6C 76 65 72 20 61 6C 20 6D 65 6E 7D 2E 22 00 olver al men}.".
001080: E5 00 DC 00 8C 20 24 F0 EC FF FF FF FF 11 51 09 ..... $.......Q.
001090: 46 04 46 04 E1 04 61 09 01 10 08 10 00 07 01 00 F.F...a.........
0010A0: 2C 50 52 4F 47 52 41 4D 00 00 00 00 00 00 00 00 ,PROGRAM........
0010B0: 00 02 00 01 00 08 70 09 00 0A 1D 00 00 00 00 00 ......p.........
0010C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 89 C9 FF FF FF FF 11 50 09 46 04 46 04 EA 04 ........P.F.F...
0011B0: 45 09 01 10 08 FC 09 15 08 00 16 32 20 43 41 52 E..........2 CAR
0011C0: 47 41 52 2C 22 20 20 20 53 69 72 76 65 20 70 61 GAR," Sirve pa
0011D0: 72 61 20 20 69 6E 74 72 6F 64 75 63 69 72 20 20 ra introducir
0011E0: 65 6E 20 6C 61 20 20 6D 65 6D 6F 72 69 61 20 20 en la memoria
0011F0: 64 65 6C 20 6F 72 64 65 6E 61 64 6F 72 20 75 6E del ordenador un
001200: 20 66 69 63 68 65 72 6F 20 70 72 65 76 69 61 6D fichero previam
001210: 65 6E 74 65 20 73 61 6C 76 61 64 6F 20 61 20 63 ente salvado a c
001220: 69 6E 74 61 2E 20 20 53 69 20 20 72 65 73 70 6F inta. Si respo
001230: 6E 64 65 20 27 45 4E 54 45 52 27 20 61 20 6C 61 nde 'ENTER' a la
001240: 20 70 72 65 67 75 6E 74 61 20 27 4E 4F 4D 42 52 pregunta 'NOMBR
001250: 45 20 44 45 4C 20 46 49 43 48 45 52 4F 20 3F 27 E DEL FICHERO ?'
001260: 2C 20 65 6C 20 6F 72 64 65 6E 61 64 6F 72 20 63 , el ordenador c
001270: 61 72 67 61 72 7C 20 65 6C 20 70 72 69 6D 65 72 argar| el primer
001280: 20 66 69 63 68 65 72 6F 20 71 75 65 20 65 6E 63 fichero que enc
001290: 75 65 6E 74 72 65 2E 22 00 79 00 E6 00 8C 20 77 uentre.".y.... w
0012A0: 61 69 74 2C 24 33 20 53 41 4C 56 41 52 2C 22 20 ait,$3 SALVAR,"
0012B0: 20 55 6E 61 20 76 65 7A 20 63 72 6D 87 65 61 64 Una vez crm.ead
0012C0: 6F 20 79 20 72 65 6C 6C 65 6E 61 64 6F 20 65 6C o y rellenado el
0012D0: 20 66 69 63 68 65 72 6F 2C 20 64 65 62 65 20 20 fichero, debe
0012E0: 75 73 74 65 64 20 20 67 72 61 62 61 72 6C 6F 20 usted grabarlo
0012F0: 65 6E 20 75 6E 61 20 63 69 6E 74 61 20 70 61 72 en una cinta par
001300: 61 73 75 20 75 73 6F 20 70 6F 73 74 65 72 69 6F asu uso posterio
001310: 72 2E 22 00 BD 00 F0 00 8C 20 24 34 20 41 3E 41 r."...... $4 A>A
001320: 44 49 52 2C 22 20 20 50 65 72 6D 69 74 65 20 6C DIR," Permite l
001330: 61 20 61 6D 70 6C 69 61 63 69 2B 6E 20 64 65 20 a ampliaci+n de
001340: 75 6E 20 20 66 69 63 68 65 72 6F 20 63 6F 6E 20 un fichero con
001350: 6E 75 65 76 61 73 20 66 69 63 68 61 73 20 2C 20 nuevas fichas ,
001360: 79 61 20 20 73 65 61 20 70 6F 72 20 74 65 63 6C ya sea por tecl
001370: 61 64 6F 20 6F 62 69 65 6E 20 20 63 6F 6E 63 61 ado obien conca
001380: 74 65 6E 61 6E 64 6F 2C 20 65 73 20 64 65 63 69 tenando, es deci
001390: 72 20 75 6E 69 65 6E 64 6F 2C 20 6F 74 72 6F 20 r uniendo, otro
0013A0: 20 66 69 63 68 65 72 6F 20 20 71 75 65 20 20 75 fichero que u
0013B0: 73 74 65 64 20 20 68 75 62 69 65 72 61 B9 BC 20 sted hubiera..
0013C0: 67 72 61 62 61 64 6F 65 6E 20 20 63 69 6E 74 61 grabadoen cinta
0013D0: 2E 22 00 A3 00 FA 00 8C 20 22 20 20 20 20 41 20 .".£.... " A
0013E0: 20 6C 61 20 20 70 72 65 67 75 6E 74 61 20 27 51 la pregunta 'Q
0013F0: 55 49 45 52 45 20 41 3E 41 44 49 52 20 46 49 43 UIERE A>ADIR FIC
001400: 48 41 53 20 50 4F 52 20 54 45 43 4C 41 44 4F 20 HAS POR TECLADO
001410: 20 4F 20 20 43 4F 4E 43 41 54 45 4E 41 52 20 55 O CONCATENAR U
001420: 4E 20 46 49 43 48 45 52 4F 20 43 4F 4E 54 45 4E N FICHERO CONTEN
001430: 49 44 4F 20 45 4E 20 43 49 4E 54 41 20 3F 27 2C IDO EN CINTA ?',
001440: 20 72 65 73 70 6F 6E 64 61 20 27 30 27 20 70 61 responda '0' pa
001450: 72 61 20 6C 61 20 70 72 69 6D 65 72 61 20 79 20 ra la primera y
001460: 27 39 27 20 70 61 72 61 20 6C 61 20 73 65 67 75 '9' para la segu
001470: 6E 64 61 2E 22 00 DF 00 04 01 8C 20 57 41 49 54 nda."...... WAIT
001480: 2C 24 35 20 43 4C 41 53 49 46 49 43 41 52 2C 22 ,$5 CLASIFICAR,"
001490: 45 73 74 61 20 6F 70 63 69 2B 6E 20 6F 72 64 65 Esta opci+n orde
0014A0: 6E 61 20 73 75 20 66 69 63 68 65 72 6F 20 73 69 na su fichero si
0014B0: 6D 75 6C 74 61 6E 65 61 6D 65 6E 74 65 20 70 39 multaneamente p9
0014C0: 15 6F 72 20 6C 6F 73 20 63 61 6D 70 6F 73 20 4E .or los campos N
0014D0: 4F 4D 42 52 45 20 79 20 44 49 52 45 43 43 49 4F OMBRE y DIRECCIO
0014E0: 4E 2C 70 61 72 61 20 20 71 75 65 20 20 6C 75 65 N,para que lue
0014F0: 67 6F 20 61 6C 20 20 69 6D 70 72 69 6D 69 72 20 go al imprimir
001500: 20 6F 20 20 72 65 76 69 73 61 72 20 20 73 65 20 o revisar se
001510: 20 68 61 67 61 20 20 65 6E 20 20 65 6C 20 20 6F haga en el o
001520: 72 64 65 6E 20 20 71 75 65 20 20 75 73 74 65 64 rden que usted
001530: 20 20 63 6F 6E 73 69 64 65 72 65 20 20 6D 61 73 considere mas
001540: 20 20 7D 74 69 6C 20 28 76 65 61 20 52 45 56 49 }til (vea REVI
001550: 53 41 52 29 2E 22 00 C7 00 0E 01 8C 20 24 36 20 SAR)."...... $6
001560: 52 45 56 49 53 41 52 2D 42 55 53 43 41 52 2D 4D REVISAR-BUSCAR-M
001570: 4F 44 49 46 49 43 41 52 2C 22 20 20 20 20 43 6F ODIFICAR," Co
001580: 6E 20 65 73 74 65 20 20 70 72 6F 63 65 64 69 6D n este procedim
001590: 69 65 6E 74 6F 20 73 65 20 20 64 69 73 70 6F 6E iento se dispon
0015A0: 65 20 64 65 20 20 74 6F 64 6F 73 20 6C 6F 73 20 e de todos los
0015B0: 63 6F 6D 61 6E 64 6F 73 20 20 6E 65 63 65 73 61 comandos necesa
0015C0: 72 29 09 69 6F 73 20 70 61 72 61 20 61 63 74 75 r).ios para actu
0015D0: 61 6C 69 7A 61 72 20 75 6E 20 66 69 63 68 65 72 alizar un ficher
0015E0: 6F 2E 45 73 74 6F 73 20 63 6F 6D 61 6E 64 6F 73 o.Estos comandos
0015F0: 20 73 6F 6E 3A 22 2C 22 27 51 27 20 76 75 65 6C son:","'Q' vuel
001600: 76 65 20 61 6C 20 6D 65 6E 7D 2E 22 2C 22 27 4E ve al men}.","'N
001610: 27 20 6E 75 65 76 61 20 66 69 63 68 61 2E 22 00 ' nueva ficha.".
001620: D2 00 18 01 8C 20 22 20 20 50 61 72 61 20 76 69 ..... " Para vi
001630: 73 75 61 6C 69 7A 61 72 20 20 65 6E 20 6C 61 20 sualizar en la
001640: 20 70 61 6E 74 61 6C 6C 61 20 75 6E 61 20 66 69 pantalla una fi
001650: 63 68 61 20 20 63 6F 6E 63 72 65 74 61 20 63 6F cha concreta co
001660: 6E 6F 63 69 65 6E 64 6F 20 73 75 20 6E 7D 6D 65 nociendo su n}me
001670: 72 6F 20 63 6F 6E 20 72 65 73 70 65 63 74 6F 20 ro con respecto
001680: 20 61 20 20 6C 61 20 20 6F 72 64 65 6E 61 63 69 a la ordenaci
001690: 2B 6E 20 20 65 6C 65 67 69 64 61 2C 20 70 75 6C +n elegida, pul
0016A0: 73 65 20 27 4E 27 2C 20 72 65 73 70 6F 6E 64 61 se 'N', responda
0016B0: 20 20 65 6C 20 20 6E 7D 6D 65 72 6F 20 20 64 65 el n}mero de
0016C0: 20 66 69 76 5E 63 68 61 20 61 64 65 63 75 61 64 fiv^cha adecuad
0016D0: 6F 20 79 20 7B 73 74 61 20 6C 65 20 61 70 61 72 o y {sta le apar
0016E0: 65 63 65 72 7C 20 65 6E 20 70 61 6E 74 61 6C 6C ecer| en pantall
0016F0: 61 2E 22 00 5B 00 22 01 8C 20 22 27 50 27 20 70 a.".[.".. "'P' p
001700: 72 2B 78 69 6D 61 20 66 69 63 68 61 20 28 73 65 r+xima ficha (se
001710: 67 7D 6E 20 65 6C 20 6F 72 64 65 6E 20 64 65 20 g}n el orden de
001720: 6C 69 73 74 61 64 6F 20 65 73 63 6F 67 69 64 6F listado escogido
001730: 29 2E 22 2C 22 27 4F 27 20 66 69 63 68 61 20 61 ).","'O' ficha a
001740: 6E 74 65 72 69 6F 72 20 28 69 64 29 2E 22 00 35 nterior (id).".5
001750: 00 2C 01 8C 20 77 61 69 74 2C 22 27 4C 27 20 62 .,.. wait,"'L' b
001760: 6F 72 72 61 20 6C 61 20 66 69 63 68 61 20 71 75 orra la ficha qu
001770: 65 20 68 61 79 20 65 6E 20 70 61 6E 74 61 6C 6C e hay en pantall
001780: 61 2E 22 00 39 00 36 01 8C 20 22 27 43 27 20 63 a.".9.6.. "'C' c
001790: 61 6D 62 69 61 20 65 6C 20 63 61 6D 70 6F 20 71 ambia el campo q
0017A0: 75 65 20 64 65 74 65 72 6D 69 6E 61 20 6C 61 20 ue determina la
0017B0: 6F 72 64 65 6E 61 63 69 2B 6E 2E 22 00 C0 00 40 ordenaci+n."...@
0017C0: 01 8C 20 22 20 DE 82 20 50 6F 72 20 65 6A 65 6D .. " .. Por ejem
0017D0: 70 6C 6F 20 73 69 20 65 73 74 7C 20 75 73 74 65 plo si est| uste
0017E0: 64 20 72 65 76 69 73 61 6E 64 6F 20 65 6C 20 66 d revisando el f
0017F0: 69 63 68 65 72 6F 20 63 6F 6E 20 61 72 72 65 67 ichero con arreg
001800: 6C 6F 20 61 6C 20 6F 72 64 65 6E 20 64 65 20 4E lo al orden de N
001810: 4F 4D 42 52 45 53 79 20 71 75 69 65 72 65 20 76 OMBRESy quiere v
001820: 65 72 6C 6F 20 65 6E 20 6F 72 64 65 6E 20 64 65 erlo en orden de
001830: 20 44 49 52 45 43 43 49 4F 4E 45 53 2C 20 70 75 DIRECCIONES, pu
001840: 6C 73 65 20 27 43 27 20 79 20 72 65 73 70 6F 6E lse 'C' y respon
001850: 64 61 20 65 6C 20 6F 72 64 65 6E 20 71 75 65 20 da el orden que
001860: 64 65 73 65 65 20 28 31 20 4E 4F 4D 42 52 45 2C desee (1 NOMBRE,
001870: 32 20 44 49 52 45 43 43 49 4F 4E 29 2E 22 00 DF 2 DIRECCION)."..
001880: 00 4A 01 8C 20 22 27 42 27 20 62 75 73 63 61 72 .J.. "'B' buscar
001890: 2E 22 2C 22 20 20 45 73 74 65 20 63 6F 6D 61 6E ."," Este coman
0018A0: 64 6F 20 65 73 20 64 65 20 67 72 61 6E 20 75 74 do es de gran ut
0018B0: 69 6C 69 64 61 64 20 79 20 6C 65 20 70 72 65 73 ilidad y le pres
0018C0: 65 6E 74 61 20 64 6F 21 46 73 20 70 72 65 67 75 enta do!Fs pregu
0018D0: 6E 74 61 73 2E 22 2C 22 20 20 50 72 69 6D 65 72 ntas."," Primer
0018E0: 6F 3A 20 65 6E 20 71 75 65 20 63 61 6D 70 6F 73 o: en que campos
0018F0: 20 71 75 69 65 72 65 20 62 75 73 63 61 72 20 6C quiere buscar l
001900: 61 20 69 6E 66 6F 72 6D 61 63 69 2B 6E 2E 20 50 a informaci+n. P
001910: 61 72 61 20 65 6C 6C 6F 20 64 65 62 65 20 72 65 ara ello debe re
001920: 73 70 6F 6E 64 65 72 20 65 6C 20 6E 7D 6D 65 72 sponder el n}mer
001930: 6F 20 6F 20 6E 7D 6D 65 72 6F 73 20 64 65 20 63 o o n}meros de c
001940: 61 6D 70 6F 20 65 6E 20 6C 6F 73 20 71 75 65 20 ampo en los que
001950: 71 75 69 65 72 65 20 62 75 73 63 61 72 2E 22 00 quiere buscar.".
001960: A9 00 54 01 8C 20 22 20 20 50 6F 72 20 65 6A 65 ..T.. " Por eje
001970: 6D 70 6C 6F 2C 20 73 69 20 72 65 73 70 6F 6E 64 mplo, si respond
001980: 65 20 20 27 33 32 31 27 20 20 71 75 69 65 72 65 e '321' quiere
001990: 20 20 64 65 63 69 72 20 65 6E 20 63 61 6D 70 6F decir en campo
0019A0: 73 20 31 2C 20 32 20 79 20 33 2E 20 50 61 72 61 s 1, 2 y 3. Para
0019B0: 20 6D 61 79 6F 72 20 63 6F 6D 6F 64 69 64 61 64 mayor comodidad
0019C0: 2C 20 72 65 73 70 6F 6E 64 05 3F FF FF FF FF 11 , respond.?.....
0019D0: 52 09 46 04 46 04 E3 04 66 09 01 10 08 0F 00 07 R.F.F...f.......
0019E0: 01 00 2C 50 52 4F 47 52 41 4D 00 00 00 00 00 00 ..,PROGRAM......
0019F0: 00 00 00 03 00 01 00 08 70 11 00 0A 1D 00 00 00 ........p.......
001A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A30: 00 00 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 D8 56 FF FF FF FF 11 51 09 46 04 46 04 ....V.....Q.F.F.
001AF0: E8 04 46 09 01 10 08 FF 09 15 08 00 16 65 72 20 ..F..........er
001B00: 27 35 27 20 71 75 69 65 72 65 20 64 65 63 69 72 '5' quiere decir
001B10: 20 62 75 73 63 61 72 20 65 6E 20 54 4F 44 4F 53 buscar en TODOS
001B20: 20 6C 6F 73 20 63 61 6D 70 6F 73 20 28 63 61 6D los campos (cam
001B30: 70 6F 73 20 31 20 61 20 33 29 2E 22 00 CF 00 5E pos 1 a 3)."...^
001B40: 01 8C 20 22 20 20 20 44 65 73 70 75 7B 73 20 68 .. " Despu{s h
001B50: 61 79 20 71 75 65 20 65 73 70 65 63 69 66 69 63 ay que especific
001B60: 61 72 20 6C 61 20 63 61 64 65 6E 61 20 61 20 62 ar la cadena a b
001B70: 75 73 63 61 72 20 2C 20 63 75 61 6E 74 6F 20 6D uscar , cuanto m
001B80: 61 73 20 63 6F 72 74 61 20 73 65 61 20 65 73 74 as corta sea est
001B90: 61 20 2C 20 6D 61 73 20 72 7C 70 69 64 6F 20 73 a , mas r|pido s
001BA0: 65 20 65 6E 63 6F 6E 74 72 61 72 7C 20 28 73 69 e encontrar| (si
001BB0: 20 65 78 69 73 74 65 29 2E 45 73 20 64 65 63 69 existe).Es deci
001BC0: 72 20 71 75 65 20 70 61 72 61 20 62 75 73 63 61 r que para busca
001BD0: 72 20 27 4D 41 4E 55 45 4C 27 20 73 65 20 70 75 r 'MANUEL' se pu
001BE0: 65 64 65 20 72 65 73 70 6F 6E 64 65 72 20 27 4D ede responder 'M
001BF0: 41 4E 27 20 2C 20 6F 20 27 4D 41 4E 55 E0 4D 27 AN' , o 'MANU.M'
001C00: 20 65 74 63 2E 2E 2E 22 2C 77 61 69 74 00 F1 00 etc...",wait...
001C10: 68 01 8C 20 22 20 20 55 6E 61 20 76 65 7A 20 65 h.. " Una vez e
001C20: 6E 63 6F 6E 74 72 61 64 61 20 6C 61 20 63 61 64 ncontrada la cad
001C30: 65 6E 61 2C 20 68 61 79 20 64 6F 73 20 70 6F 73 ena, hay dos pos
001C40: 69 62 69 6C 69 64 61 64 65 73 20 3A 22 2C 22 31 ibilidades :","1
001C50: 29 20 50 75 6C 73 61 72 20 27 51 27 20 79 20 65 ) Pulsar 'Q' y e
001C60: 6E 74 72 61 72 20 65 6E 20 52 45 56 49 53 49 4F ntrar en REVISIO
001C70: 4E 20 63 6F 6E 20 65 73 61 20 66 69 63 68 61 20 N con esa ficha
001C80: 65 6E 20 70 61 6E 74 61 6C 6C 61 2C 20 70 61 72 en pantalla, par
001C90: 61 20 6D 6F 64 69 66 69 63 61 63 69 2B 6E 20 6F a modificaci+n o
001CA0: 20 63 6F 6E 73 75 6C 74 61 2E 22 2C 22 32 29 20 consulta.","2)
001CB0: 70 75 6C 73 61 72 20 6F 74 72 61 20 74 65 63 6C pulsar otra tecl
001CC0: 61 20 63 6F 6E 20 6C 6F 20 71 75 65 20 6C 61 20 a con lo que la
001CD0: 62 7D 73 71 75 65 64 61 20 63 6F 6E 74 69 6E 7D b}squeda contin}
001CE0: 61 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a.
001CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 62 ".b
001D00: 09 AD 00 72 01 8C 20 22 27 4D 27 20 65 73 20 6D ...r.. "'M' es m
001D10: 6F 64 69 66 69 63 61 63 69 2B 6E 2E 22 2C 22 20 odificaci+n.","
001D20: 20 20 43 6F 6E 20 20 65 73 74 61 20 20 70 6F 73 Con esta pos
001D30: 69 62 69 6C 69 64 61 64 20 70 75 65 64 65 20 20 ibilidad puede
001D40: 75 73 74 65 64 20 20 6D 6F 64 69 66 69 63 61 72 usted modificar
001D50: 20 61 20 76 6F 6C 75 6E 74 61 64 20 63 75 61 6C a voluntad cual
001D60: 71 75 69 65 72 20 63 61 6D 70 6F 20 64 65 20 63 quier campo de c
001D70: 75 61 6C 71 75 69 65 72 20 66 69 63 68 61 2E 20 ualquier ficha.
001D80: 41 6C 20 70 75 6C 73 61 72 20 27 4D 27 20 76 65 Al pulsar 'M' ve
001D90: 72 7C 20 6C 61 20 70 72 65 67 75 6E 74 61 20 27 r| la pregunta '
001DA0: 51 55 45 20 43 41 4D 50 4F 20 3F 27 22 00 D8 00 QUE CAMPO ?'"...
001DB0: 7C 01 8C 20 22 20 20 52 65 73 70 6F 6E 64 61 20 |.. " Responda
001DC0: 65 6C 20 6E 7D 6D 65 72 6F 20 64 65 73 65 61 64 el n}mero desead
001DD0: 6F 20 28 31 20 61 20 37 29 20 79 20 73 65 20 69 o (1 a 7) y se i
001DE0: 6C 75 6D 69 6E 61 72 7C 20 65 6C 20 63 61 6D 70 luminar| el camp
001DF0: 6F 20 73 65 6C 65 63 63 69 6F 6E 61 64 6F 2C 20 o seleccionado,
001E00: 73 E3 38 61 6C 76 6F 73 69 20 65 73 20 36 20 2B s.8alvosi es 6 +
001E10: 20 37 2E 20 4C 61 20 20 6D 6F 64 69 66 69 63 61 7. La modifica
001E20: 63 69 2B 6E 20 20 64 65 6C 20 20 63 61 6D 70 6F ci+n del campo
001E30: 20 20 36 20 20 49 4D 50 4C 49 43 41 20 20 6C 61 6 IMPLICA la
001E40: 20 20 6D 6F 64 69 66 69 63 61 63 69 2B 6E 20 64 modificaci+n d
001E50: 65 6C 20 37 20 79 20 76 69 63 65 76 65 72 73 61 el 7 y viceversa
001E60: 2E 20 41 68 6F 72 61 20 68 61 79 20 74 72 65 73 . Ahora hay tres
001E70: 20 6D 61 6E 65 72 61 73 20 64 65 20 6D 6F 64 69 maneras de modi
001E80: 66 69 63 61 72 3A 22 00 D1 00 86 01 8C 20 22 20 ficar:"...... "
001E90: 20 45 73 63 72 69 62 69 65 6E 64 6F 20 27 23 20 Escribiendo '#
001EA0: 69 6E 66 6F 72 6D 61 63 69 2B 6E 27 20 2C 20 7B informaci+n' , {
001EB0: 73 74 61 20 73 65 20 69 6E 73 65 72 74 61 20 64 sta se inserta d
001EC0: 65 6C 61 6E 74 65 20 64 65 20 6C 61 20 61 6E 74 elante de la ant
001ED0: 69 67 75 61 2E 22 2C 22 45 73 63 72 69 62 69 65 igua.","Escribie
001EE0: 6E 64 6F 20 27 24 20 69 6E 66 6F 72 6D 61 63 69 ndo '$ informaci
001EF0: 2B 6E 27 20 2C 20 73 65 20 73 75 6D 61 20 64 65 +n' , se suma de
001F00: 74 72 7C C4 D3 73 20 64 65 20 6C 61 20 61 6E 74 tr|..s de la ant
001F10: 69 67 75 61 2E 22 2C 22 45 73 63 72 69 62 69 65 igua.","Escribie
001F20: 6E 64 6F 20 27 69 6E 66 6F 72 6D 61 63 69 2B 6E ndo 'informaci+n
001F30: 27 20 73 65 20 70 69 65 72 64 65 20 6C 61 20 61 ' se pierde la a
001F40: 6E 74 69 67 75 61 20 79 20 71 75 65 64 61 20 7B ntigua y queda {
001F50: 73 74 61 2E 22 2C 77 61 69 74 00 4E 00 90 01 8C sta.",wait.N....
001F60: 20 22 24 4E 4F 54 41 3A 22 2C 22 20 20 4C 61 20 "$NOTA:"," La
001F70: 69 6E 73 65 72 63 69 2B 6E 20 6F 20 65 6C 20 62 inserci+n o el b
001F80: 6F 72 72 61 64 6F 20 64 65 20 66 69 63 68 61 73 orrado de fichas
001F90: 20 44 45 53 4F 52 44 45 4E 41 4E 20 65 6C 20 66 DESORDENAN el f
001FA0: 69 63 68 65 72 6F 2E 22 00 1C 00 9A 01 8C 20 24 ichero."...... $
001FB0: 46 49 4E 20 44 45 20 4D 4F 44 4F 20 52 45 56 49 FIN DE MODO REVI
001FC0: 53 49 4F 4E 00 C2 00 A4 01 8C 20 2C 2C 24 37 20 SION...... ,,$7
001FD0: 49 4D 50 52 45 53 4F 52 41 2C 22 20 20 45 73 74 IMPRESORA," Est
001FE0: 61 20 20 6F 70 63 69 2B 6E 20 6C 69 73 74 61 20 a opci+n lista
001FF0: 70 6F 72 20 20 69 6D 70 72 65 73 6F 72 61 20 74 por impresora t
002000: 6F 64 61 73 20 23 F0 6C 61 73 20 20 66 69 63 68 odas #.las fich
002010: 61 73 2C 20 73 65 67 7D 6E 20 65 6C 20 6F 72 64 as, seg}n el ord
002020: 65 6E 20 71 75 65 20 75 73 74 65 64 20 64 65 73 en que usted des
002030: 65 65 2E 20 41 20 6C 61 20 70 72 65 67 75 6E 74 ee. A la pregunt
002040: 61 20 27 53 45 47 55 4E 20 4F 52 44 45 4E 20 44 a 'SEGUN ORDEN D
002050: 45 4C 20 43 41 4D 50 4F 20 3F 27 2C 20 72 65 73 EL CAMPO ?', res
002060: 70 6F 6E 64 61 20 31 20 70 61 72 61 20 4E 4F 4D ponda 1 para NOM
002070: 42 52 45 20 79 20 32 20 70 61 72 61 20 44 49 52 BRE y 2 para DIR
002080: 45 43 43 49 4F 4E 2E 22 00 0B 00 AE 01 8C 20 77 ECCION."...... w
002090: 61 69 74 00 C0 00 B8 01 8C 20 2C 2C 24 30 20 41 ait...... ,,$0 A
0020A0: 42 41 4E 44 4F 4E 41 52 2C 22 20 20 50 72 6F 76 BANDONAR," Prov
0020B0: 6F 63 61 20 75 6E 20 52 45 53 45 54 20 64 65 6C oca un RESET del
0020C0: 20 6F 72 64 65 6E 61 64 6F 72 20 2C 20 65 71 75 ordenador , equ
0020D0: 69 76 61 6C 65 6E 74 65 20 61 20 64 65 73 65 6E ivalente a desen
0020E0: 63 68 75 66 61 72 6C 6F 2E 22 2C 22 20 20 45 6C chufarlo."," El
0020F0: 20 70 72 6F 67 72 61 6D 61 20 6C 65 20 70 65 64 programa le ped
002100: 69 72 7C 20 63 6F 6E CA 5B 66 69 72 6D 61 63 69 ir| con.[firmaci
002110: 2B 6E 2C 70 6F 72 20 73 69 20 68 75 62 69 65 72 +n,por si hubier
002120: 61 20 70 75 6C 73 61 64 6F 20 27 30 27 20 70 6F a pulsado '0' po
002130: 72 20 65 72 72 6F 72 2E 22 2C 2C 24 52 20 50 20 r error.",,$R P
002140: 41 20 20 53 79 73 74 65 6D 73 20 49 6E 63 2E 20 A Systems Inc.
002150: 20 31 39 38 35 00 48 00 C2 01 8C 20 2C 2C 22 50 1985.H.... ,,"P
002160: 72 6F 67 72 61 6D 61 20 72 65 61 6C 69 7A 61 64 rograma realizad
002170: 6F 20 70 6F 72 20 50 65 64 72 6F 20 79 20 4C 75 o por Pedro y Lu
002180: 69 73 20 53 75 6A 61 20 2C 20 35 2D 6A 75 6C 69 is Suja , 5-juli
002190: 6F 2D 31 39 38 35 2E 22 2C 77 61 69 74 00 79 00 o-1985.",wait.y.
0021A0: CC 01 8C 20 22 20 52 20 50 20 41 20 53 79 73 74 ... " R P A Syst
0021B0: 65 6D 73 20 6C 65 20 64 65 73 65 61 20 75 6E 20 ems le desea un
0021C0: 66 65 6C 69 7A 20 75 73 6F 20 64 65 20 65 73 74 feliz uso de est
0021D0: 65 20 70 72 6F 67 72 61 6D 61 2C 20 65 73 70 65 e programa, espe
0021E0: 72 61 6E 64 6F 20 71 75 65 20 6C 65 20 20 73 65 rando que le se
0021F0: 61 20 20 64 65 67 72 61 6E 20 61 79 75 64 61 2E a degran ayuda.
002200: 22 2C 2C 22 44 2E 4C 2E 3A AB B2 20 4D 2D 38 35 ",,"D.L.:.. M-85
002210: 34 34 2D 31 39 38 35 22 00 C2 00 D6 01 8C 20 22 44-1985"...... "
002220: 20 20 50 61 72 61 20 63 75 61 6C 71 75 69 65 72 Para cualquier
002230: 20 70 72 65 67 75 6E 74 61 2C 20 72 65 6D 69 74 pregunta, remit
002240: 69 72 73 65 20 61 20 6C 6F 73 20 74 65 6C 7B 66 irse a los tel{f
002250: 6F 6E 6F 73 3A 22 2C 34 34 37 20 39 37 20 35 31 onos:",447 97 51
002260: 2C 34 34 37 20 39 38 20 30 39 2C 22 20 64 65 20 ,447 98 09," de
002270: 4D 61 64 72 69 64 20 28 20 70 72 65 66 69 6A 6F Madrid ( prefijo
002280: 20 39 31 20 29 20 6F 20 62 69 65 6E 20 65 73 63 91 ) o bien esc
002290: 72 69 62 69 65 6E 64 6F 20 61 20 3A 22 2C 22 42 ribiendo a :","B
0022A0: 41 42 45 54 41 20 53 2E 41 2E 20 20 63 2F 20 47 ABETA S.A. c/ G
0022B0: 41 4C 49 4C 45 4F 20 4E 6F 2E 20 32 35 22 2C 22 ALILEO No. 25","
0022C0: 4D 61 64 72 69 64 20 32 38 30 31 35 22 2C 77 61 Madrid 28015",wa
0022D0: 69 74 2C 66 69 6E 2C 66 69 6E 00 0B 00 E0 01 CF it,fin,fin......
0022E0: 20 80 20 19 20 00 95 00 EA 01 C7 20 1E FE 01 01 . . ...... ....
0022F0: 9E 20 0D 00 00 E9 EF 0F 20 EC 20 15 01 C3 20 03 . ...... . ... .
002300: 00 00 E2 01 9E 20 0D 00 00 CA EF 69 F9 FF FF FF ..... .....i....
002310: FF 11 50 09 46 04 46 04 E2 04 5A 09 01 10 08 10 ..P.F.F...Z.....
002320: 00 07 01 00 2C 50 52 4F 47 52 41 4D 00 00 00 00 ....,PROGRAM....
002330: 00 00 00 00 00 04 FF 01 0A 05 70 19 00 0A 1D 00 ..........p.....
002340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002370: 00 00 00 00 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 B9 30 FF FF FF FF 11 51 09 46 04 ......0.....Q.F.
002430: 46 04 E7 04 3E 09 01 10 08 FF FF 11 06 00 16 0F F...>...........
002440: 20 EC 20 16 01 C3 20 03 00 00 E1 01 0D 00 00 E1 . ... .........
002450: 28 0D 00 00 EA 29 EF FF 1D 28 03 00 00 E1 29 01 (....)...(....).
002460: B0 01 CF 20 FF 01 28 03 00 00 E2 29 2C 0D 00 00 ... ..(....),...
002470: E1 28 0F 29 2C 0D 00 00 E1 28 10 29 2C 0D 00 00 .(.),....(.),...
002480: E1 28 11 29 2C 0D 00 00 E1 28 12 29 2C 0D 00 00 .(.),....(.),...
002490: E1 28 13 29 2C 0D 00 00 E1 28 14 29 2C 0D 00 00 .(.),....(.),...
0024A0: E1 28 15 29 2C 0D 00 00 E1 28 16 29 01 B0 00 1B .(.),....(.)....
0024B0: 00 F4 01 C5 20 73 6F 6E 20 20 6E 6E 2C 4E 4E 2C .... son nn,NN,
0024C0: 61 2C 65 2C 69 2C 6F 2C 75 00 52 00 FE 01 8C 20 a,e,i,o,u.R....
0024D0: 3C 2C 26 58 30 31 31 31 31 31 31 30 2C 26 58 30 <,&X01111110,&X0
0024E0: 2C 26 58 31 31 30 31 31 31 30 30 2C 26 58 30 31 ,&X11011100,&X01
0024F0: 31 30 30 31 31 30 2C 26 58 30 31 31 30 30 31 31 100110,&X0110011
002500: 30 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 0,&X01100110,&X0
002510: 31 31 30 30 31 31 30 2C 26 58 30 00 52 00 08 02 1100110,&X0.R...
002520: 8C 20 3E 2C 26 58 30 31 31 31 31 31 31 30 2C 26 . >,&X01111110,&
002530: 58 30 2C 26 58 31 31 31 30 30 31 31 30 2C 26 B9 X0,&X11100110,&.
002540: FB 58 31 31 31 31 30 31 31 30 2C 26 58 31 31 30 .X11110110,&X110
002550: 31 31 31 31 30 2C 26 58 31 31 30 30 31 31 31 30 11110,&X11001110
002560: 2C 26 58 31 31 30 30 30 31 31 30 2C 26 58 30 00 ,&X11000110,&X0.
002570: 5B 00 12 02 8C 20 22 7C 22 2C 26 58 30 30 30 30 [.... "|",&X0000
002580: 30 30 31 30 2C 26 58 30 30 30 30 30 31 30 30 2C 0010,&X00000100,
002590: 26 58 30 31 31 31 31 30 30 30 2C 26 58 30 30 30 &X01111000,&X000
0025A0: 30 31 31 30 30 2C 26 58 30 31 31 31 31 31 30 30 01100,&X01111100
0025B0: 2C 26 58 31 31 30 30 31 31 30 30 2C 26 58 30 31 ,&X11001100,&X01
0025C0: 31 31 30 31 31 30 2C 26 58 30 00 5B 00 1C 02 8C 110110,&X0.[....
0025D0: 20 22 7B 22 2C 26 58 30 30 30 30 30 30 30 31 2C "{",&X00000001,
0025E0: 26 58 30 30 30 30 30 30 31 30 2C 26 58 30 30 31 &X00000010,&X001
0025F0: 31 31 31 30 30 2C 26 58 30 31 31 30 30 31 31 30 11100,&X01100110
002600: 2C 26 58 30 31 31 31 31 31 31 30 2C 26 58 30 31 ,&X01111110,&X01
002610: 31 30 30 30 30 30 2C 26 58 30 30 31 31 31 31 30 100000,&X0011110
002620: 30 2C 26 58 30 00 54 00 26 02 8C 20 22 2A 22 2C 0,&X0.T.&.. "*",
002630: 26 58 30 30 30 30 31 30 30 30 2C 26 58 30 30 30 &X00001000,&X000
002640: 31 40 DA 30 30 30 30 2C 26 58 30 2C 26 58 30 30 1@.0000,&X0,&X00
002650: 31 31 31 30 30 30 2C 26 58 30 30 30 31 31 30 30 111000,&X0001100
002660: 30 2C 26 58 30 30 30 31 31 30 30 30 2C 26 58 30 0,&X00011000,&X0
002670: 30 31 31 31 31 30 30 2C 26 58 30 00 5B 00 30 02 0111100,&X0.[.0.
002680: 8C 20 22 2B 22 2C 26 58 30 30 30 30 30 30 30 31 . "+",&X00000001
002690: 2C 26 58 30 30 30 30 30 30 31 30 2C 26 58 30 30 ,&X00000010,&X00
0026A0: 31 31 31 31 30 30 2C 26 58 30 31 31 30 30 31 31 111100,&X0110011
0026B0: 30 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 0,&X01100110,&X0
0026C0: 31 31 30 30 31 31 30 2C 26 58 30 30 31 31 31 31 1100110,&X001111
0026D0: 30 30 2C 26 58 30 00 5B 00 3A 02 8C 20 22 7D 22 00,&X0.[.:.. "}"
0026E0: 2C 26 58 30 30 30 30 30 31 30 30 2C 26 58 30 30 ,&X00000100,&X00
0026F0: 30 30 31 30 30 30 2C 26 58 30 31 31 30 30 31 31 001000,&X0110011
002700: 30 2C 26 58 30 31 31 30 30 31 31 30 2C 26 58 30 0,&X01100110,&X0
002710: 31 31 30 30 31 31 30 2C 26 58 30 31 31 30 30 31 1100110,&X011001
002720: 31 30 2C 26 58 30 30 31 31 31 31 31 30 2C 26 58 10,&X00111110,&X
002730: 30 00 06 00 44 02 C9 00 89 00 4E 02 C7 20 1E 62 0...D.....N.. .b
002740: 02 01 8A 2D 45 01 BF 01 BF 22 20 20 45 73 74 65 ...-E...." Este
002750: 20 70 72 6F 67 72 61 6D 61 20 64 69 73 70 6F 6E programa dispon
002760: 65 20 64 65 6C 20 61 6C 66 61 62 65 74 6F 20 43 e del alfabeto C
002770: 61 73 74 65 6C 6C 61 6E 6F 20 63 6F 6D 70 6C 65 astellano comple
002780: 74 6F 2E 22 01 9E 20 0D 00 00 E9 EF 0F 20 EC 20 to.".. ...... .
002790: 15 01 A9 20 19 0A 2C 11 F4 10 F6 0D 00 00 E9 01 ... ..,.........
0027A0: C3 20 03 00 00 FA 01 BF 20 03 00 00 FA F4 22 20 . ...... ....."
0027B0: 20 6D 7C 73 20 53 48 49 46 54 20 65 73 20 20 22 m|s SHIFT es "
0027C0: 01 B0 00 8B 00 58 02 C7 20 1E 6C 02 01 9E 20 0D .....X.. .l... .
0027D0: 00 00 E9 EF 0F 20 EC 20 15 01 A9 20 19 1B 2C 11 ..... . ... ..,.
0027E0: F4 10 F6 0D 00 00 E9 01 C3 20 03 00 00 FA 01 BF ......... ......
0027F0: 20 03 00 00 FA 01 B0 01 BF 01 BF 01 BF 22 4E 4F ............"NO
002800: 54 41 3A 20 20 45 73 74 6F 73 20 63 61 72 61 63 TA: Estos carac
002810: 74 65 72 65 73 20 6E 6F 20 73 6F 6E 20 69 6D 70 teres no son imp
002820: 72 69 6D 69 62 6C 65 73 20 61 75 6E 71 75 65 20 rimibles aunque
002830: 73 65 20 76 69 73 75 61 6C 69 63 65 6E 20 65 6E se visualicen en
002840: 20 70 61 6E 74 64 68 61 6C 6C 61 2E 22 01 C9 00 pantdhalla."...
002850: 22 00 62 02 8C 20 22 40 22 2C 22 5B 22 2C 22 3A ".b.. "@","[",":
002860: 22 2C 22 3B 22 2C 22 5D 22 2C 22 2C 22 2C 22 2E ",";","]",",",".
002870: 22 00 22 00 6C 02 8C 20 22 7C 22 2C 22 7B 22 2C ".".l.. "|","{",
002880: 22 2A 22 2C 22 2B 22 2C 22 7D 22 2C 22 3C 22 2C "*","+","}","<",
002890: 22 3E 22 00 B5 00 76 02 0D 00 00 EC EF FF 0E 28 ">"...v........(
0028A0: 03 00 00 70 61 F2 29 01 A1 20 0D 00 00 EC F2 0E ...pa.).. ......
0028B0: 20 EB 20 9E 20 0D 00 00 70 61 F2 EF 0F 20 EC 20 . . ...pa... .
0028C0: 15 01 D6 20 FF 74 28 03 00 00 70 61 F2 2C 03 00 ... .t(...pa.,..
0028D0: 00 73 65 70 B1 28 0D 00 00 70 61 F2 29 29 F2 0E .sep.(...pa.))..
0028E0: 01 0D 00 00 68 61 F9 EF FF 74 28 03 00 00 70 61 ....ha...t(...pa
0028F0: F2 2C 03 00 00 73 65 70 B1 28 0D 00 00 70 61 F2 .,...sep.(...pa.
002900: 29 29 01 03 00 00 70 61 F2 EF FF 75 28 03 00 00 ))....pa...u(...
002910: 70 61 F2 2C 0D 00 00 68 61 F9 F5 0F 29 F4 03 00 pa.,...ha...)...
002920: 00 73 65 70 B2 28 0D 00 00 70 61 F2 29 F4 FF 79 .sep.(...pa.)..y
002930: 28 03 00 00 70 61 F2 2C 0D 00 00 EC F5 0D 00 00 (...pa.,........
002940: 68 61 F9 29 01 D5 01 1E 84 B0 00 06 00 80 02 C9 ha.)............
002950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002980: 00 00 00 00 00 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 13 E7 FF FF FF FF ...............
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
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,nC0 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 FAVOR" , , , , , "!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 TECL
A PARA CONTINUAR." C""!F tru() fals()P , "QUIERE LISTAR LAS INSTRUCCIONES POR IM
PRESORA (s/n) "i"" i"s" i"n"i(C) im(i"s")iZ () ()"fin" bo fals im pa vpapd
()"wait" () ( im) ,"PULSE UNA TECLA PARA CONTINUAR" C""n u(,)"$" y(, )
i im ca i# ca,((P ))( ,())()()( ,"")()()# ca bo trupx (( bo))(()"fin") i i
mK 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, admitiendo un mximode 200 fichas por fichero. Esto
s campos son"c "NOMBRE ","DIRECCION/TFNO ","EDAD/FECHA NACIMIE
NTO","SEXO "K "SIGNOS PARTICULARES ","MEDICACION ","TRAT
AMIENTO " " El men principal consta de ocho opciones",wait $1 CREAR,"
Cuando no hay ningn fichero en la memoria del ordenador, esta opci+n le int
roduce directamente en el modo escritura, preguntando primero un nombre para el
fichero a crear."F " A continuaci+n se pasa a rellenar los campos de cada ficha
." " Para acabar la introducci+n de fichas, debe usted escribir 'FIN' en el ca
mpo 1-NOMBRE. En ese momento el programa ordenar el fichero automticamente par
a luego volver al men." $QFFa,PROGRAMp PFFE2 CARGAR," Sirve para introducir
en la memoria del ordenador un fichero previamente salvado a cinta. Si respo
nde 'ENTER' a la pregunta 'NOMBRE DEL FICHERO ', el ordenador cargar el primer f
ichero 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 con nuevas fichas , ya sea por teclado obien conc
atenando, es decir uniendo, otro fichero que usted hubiera grabadoen cinta.
"£ " A la pregunta 'QUIERE AADIR FICHAS POR TECLADO O CONCATENAR UN FICHE
RO CONTENIDO EN CINTA ', responda '0' para la primera y '9' para la segunda." WA
IT,$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-MODIFIC
AR," Con este procedimiento se dispone de todos los comandos necesar)ios
para actualizar un fichero.Estos comandos son","'Q' vuelve al men.","'N' nueva f
icha." " Para visualizar en la pantalla una ficha concreta conociendo su nme
ro con respecto a la ordenaci+n elegida, pulse 'N', responda el nmero de
fivcha adecuado y sta le aparecer en pantalla."" "'P' pr+xima ficha (segn el ord
en de listado escogido).","'O' ficha anterior (id)."5, wait,"'L' borra la ficha
que hay en pantalla."96 "'C' cambia el campo que determina la ordenaci+n." " Po
r ejemplo si est usted revisando el fichero con arreglo al orden de NOMBRESy qui
ere verlo en orden de DIRECCIONES, pulse 'C' y responda el orden que desee (1 NO
MBRE,2 DIRECCION)."J "'B' buscar."," Este comando es de gran utilidad y le pres
enta do!Fs preguntas."," Primero en que campos quiere buscar la informaci+n. Pa
ra ello debe responder el nmero o nmeros de campo en los que quiere buscar."T "
Por ejemplo, si responde '321' quiere decir en campos 1, 2 y 3. Para mayor c
omodidad, respondRFFf,PROGRAMp VQFFFer '5' quiere decir buscar en TODOS los camp
os (campos 1 a 3)." " Despus hay que especificar la cadena a buscar , cuanto m
as corta sea esta , mas rpido se encontrar (si existe).Es decir que para buscar
'MANUEL' se puede responder 'MAN' , o 'MANUM' etc...",waith " Una vez encontrad
a la cadena, hay dos posibilidades ","1) Pulsar 'Q' y entrar en REVISION con esa
ficha en pantalla, para modificaci+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 cu
alquier ficha. Al pulsar 'M' ver la pregunta 'QUE CAMPO '" " Responda el nmero
deseado (1 a 7) y se iluminar el campo seleccionado, s8alvosi es 6 + 7. La modi
ficaci+n del campo 6 IMPLICA la modificaci+n del 7 y viceversa. Ahora hay
tres maneras de modificar" " Escribiendo '# informaci+n' , sta se inserta delan
te de la antigua.","Escribiendo '$ informaci+n' , se suma detrs de la antigua.",
"Escribiendo 'informaci+n' se pierde la antigua y queda sta.",waitN "$NOTA"," L
a inserci+n o el borrado de fichas 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 pregunta 'SEGUN ORDEN DEL CAMPO ', responda 1 para
NOMBRE y 2 para DIRECCION." wait ,,$0 ABANDONAR," Provoca un RESET del ordenado
r , equivalente a desenchufarlo."," El programa le pedir confirmaci+n,por si hu
biera pulsado '0' por error.",,$R P A Systems Inc. 1985H ,,"Programa realizado
por Pedro y Luis Suja , 5-julio-1985.",waity " R P A Systems le desea un feliz
uso de este programa, esperando que le sea degran ayuda.",,"D.L. M-8544-1985"
" Para cualquier pregunta, remitirse a los telfonos",447 97 51,447 98 09," de M
adrid ( prefijo 91 ) o bien escribiendo a ","BABETA S.A. c/ GALILEO No. 25","Ma
drid 28015",wait,fin,fin iPFFZ,PROGRAM p 0QFF ( )() (), (), (), (),
(), (), (), (), () son nn,NN,a,e,i,o,uR ,&X01111110,&X0,&X11011100,&X01100110,
&X01100110,&X01100110,&X01100110,&X0R ,&X01111110,&X0,&X11100110,&X11110110,&X11
011110,&X11001110,&X11000110,&X0 "",&X00000010,&X00000100,&X01111000,&X00001100,
&X01111100,&X11001100,&X01110110,&X0 "",&X00000001,&X00000010,&X00111100,&X01100
110,&X01111110,&X01100000,&X00111100,&X0T& "*",&X00001000,&X00010000,&X0,&X00111
000,&X00011000,&X00011000,&X00111100,&X00 "+",&X00000001,&X00000010,&X00111100,&
X01100110,&X01100110,&X01100110,&X00111100,&X0 "",&X00000100,&X00001000,&X011001
10,&X01100110,&X01100110,&X01100110,&X00111110,&X0DN b-E" Este programa dispone
del alfabeto Castellano completo." , " ms SHIFT es "X l , "NOTA
Estos caracteres no son imprimibles aunque se visualicen en pantdhalla.""b "","
","","","",",",".""l "","","*","+","","",""v (pa) pa t(pa,sep( pa)) hat(p
a,sep( pa))pau(pa, ha)sep( pa)y(pa, ha)Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan