T309
FILE INFORMATION
FILENAME(S): T309
FILE TYPE(S): DEL
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 21:29:11
APPEARS ON: 1 disk(s)
FILE HASH
d3263867f1fca96c94d015f17532a9dc4f8cc3d0f76df8e47e7d32ebf14f8ea1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SOUL CRYSTAL | T309 | DEL | DuncanTwain | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DF | .| 00000050: AA 50 4E 33 30 31 DF DF AA 46 54 31 2C 31 30 2C |.PN301...FT1,10,| 00000060: 37 30 2C 2C 2A 2C DF DF 37 30 30 35 20 50 52 49 |70,,*,..7005 PRI| 00000070: 4E 54 B4 34 2C 22 43 4F 44 2E 20 41 52 54 2E 22 |NT.4,"COD. ART."| 00000080: 3B DF 37 30 31 30 20 50 52 49 4E 54 B4 34 2C 43 |;.7010 PRINT.4,C| 00000090: 48 52 24 28 31 36 29 3B 22 31 35 22 3B 22 54 49 |HR$(16);"15";"TI| 000000A0: 50 4F 22 3B DF 37 30 32 30 20 50 52 49 4E 54 B4 |PO";.7020 PRINT.| 000000B0: 34 2C 43 48 52 24 28 31 36 29 3B 22 34 30 22 3B |4,CHR$(16);"40";| 000000C0: 22 47 41 53 54 4F 53 22 3B DF 37 30 33 30 20 50 |"GASTOS";.7030 P| 000000D0: 52 49 4E 54 B4 34 2C 43 48 52 24 28 31 36 29 3B |RINT.4,CHR$(16);| 000000E0: 22 36 30 22 3B 22 49 4E 47 52 45 53 4F 53 22 3B |"60";"INGRESOS";| 000000F0: DF 37 32 33 30 20 50 52 49 4E 54 B4 34 2C 22 53 |.7230 PRINT.4,"S| 00000100: 55 4D 41 53 3A 22 3B DF AA 4E 50 DF DF 37 32 37 |UMAS:";..NP..727| 00000110: 30 20 50 52 49 4E 54 B4 34 2C 22 49 56 41 20 43 |0 PRINT.4,"IVA C| 00000120: 4F 2E 20 20 36 2C 35 20 25 20 3D 20 22 3B 4D 31 |O. 6,5 % = ";M1| 00000130: 28 31 29 3B DF 37 32 38 30 20 50 52 49 4E 54 B4 |(1);.7280 PRINT.| 00000140: 34 2C 43 48 52 24 28 31 36 29 3B 22 34 30 22 3B |4,CHR$(16);"40";| 00000150: 22 49 56 41 20 43 4F 2E 20 20 37 20 25 20 3D 20 |"IVA CO. 7 % = | 00000160: 22 3B 4D 31 28 33 29 DF 37 32 39 30 20 50 52 49 |";M1(3).7290 PRI| 00000170: 4E 54 B4 34 2C 22 49 56 41 20 43 4F 2E 20 31 33 |NT.4,"IVA CO. 13| 00000180: 2C 30 20 25 20 3D 20 22 3B 4D 31 28 32 29 3B DF |,0 % = ";M1(2);.| 00000190: 37 33 30 30 20 50 52 49 4E 54 B4 34 2C 43 48 52 |7300 PRINT.4,CHR| 000001A0: 24 28 31 36 29 3B 22 34 30 22 3B 22 49 56 41 20 |$(16);"40";"IVA | 000001B0: 43 4F 2E 20 31 34 20 25 20 3D 20 22 3B 4D 31 28 |CO. 14 % = ";M1(| 000001C0: 34 29 DF 37 33 31 30 20 50 52 49 4E 54 B4 34 2C |4).7310 PRINT.4,| 000001D0: 22 49 56 41 20 56 45 2E 20 20 36 2C 35 20 25 20 |"IVA VE. 6,5 % | 000001E0: 3D 20 22 3B 4D 32 28 31 29 3B DF 37 33 32 30 20 |= ";M2(1);.7320 | 000001F0: 50 52 49 4E 54 B4 34 2C 43 48 52 24 28 31 36 29 |PRINT.4,CHR$(16)| 00000200: 3B 22 34 30 22 3B 22 49 56 41 20 56 45 2E 20 20 |;"40";"IVA VE. | 00000210: 37 20 25 20 3D 20 22 3B 4D 32 28 33 29 DF 37 33 |7 % = ";M2(3).73| 00000220: 33 30 20 50 52 49 4E 54 B4 34 2C 22 49 56 41 20 |30 PRINT.4,"IVA | 00000230: 56 45 2E 20 31 33 2C 30 20 25 20 3D 20 22 3B 4D |VE. 13,0 % = ";M| 00000240: 32 28 32 29 3B DF 37 33 34 30 20 50 52 49 4E 54 |2(2);.7340 PRINT| 00000250: B4 34 2C 43 48 52 24 28 31 36 29 3B 22 34 30 22 |.4,CHR$(16);"40"| 00000260: 3B 22 49 56 41 20 56 45 2E 20 31 34 20 25 20 3D |;"IVA VE. 14 % =| 00000270: 20 22 3B 4D 32 28 34 29 DF 37 33 36 30 20 50 52 | ";M2(4).7360 PR| 00000280: 49 4E 54 B4 34 2C 22 47 41 53 54 4F 53 20 3D 20 |INT.4,"GASTOS = | 00000290: 22 3B 53 31 2D 4D 31 28 31 29 2D 4D 31 28 32 29 |";S1-M1(1)-M1(2)| 000002A0: 2D 4D 31 28 33 29 2D 4D 31 28 34 29 DF 37 33 37 |-M1(3)-M1(4).737| 000002B0: 30 20 50 52 49 4E 54 B4 34 2C 22 49 4E 47 52 45 |0 PRINT.4,"INGRE| 000002C0: 53 4F 53 20 22 20 22 3B 53 32 2D 4D 32 28 31 29 |SOS " ";S2-M2(1)| 000002D0: 2D 4D 32 28 32 29 2D 4D 32 28 33 29 2D 4D 32 28 |-M2(2)-M2(3)-M2(| 000002E0: 34 29 DF 38 30 32 30 20 50 52 49 4E 54 20 22 2A |4).8020 PRINT "*| 000002F0: 20 50 52 4F 47 2E 20 41 44 4D 49 4E 49 53 54 52 | PROG. ADMINISTR| 00000300: 41 43 49 4F 4E 20 46 49 43 48 45 52 4F 53 20 31 |ACION FICHEROS 1| 00000310: 2E 30 20 20 2A 22 3B DF 38 30 35 30 20 50 52 49 |.0 *";.8050 PRI| 00000320: 4E 54 20 54 41 42 28 37 29 3B 22 45 4E 54 52 41 |NT TAB(7);"ENTRA| 00000330: 52 20 56 41 4C 45 53 20 44 45 20 43 41 4A 41 22 |R VALES DE CAJA"| 00000340: 3A 20 50 52 49 4E 54 20 50 52 49 4E 54 DF 38 30 |: PRINT PRINT.80| 00000350: 38 30 20 50 52 49 4E 54 20 22 45 53 54 41 20 43 |80 PRINT "ESTA C| 00000360: 4F 4E 45 43 54 41 44 41 20 4C 41 20 49 4D 50 52 |ONECTADA LA IMPR| 00000370: 45 53 4F 52 41 20 28 53 2F 4E 29 3F 20 22 3B DF |ESORA (S/N)? ";.| 00000380: 38 31 30 30 20 49 46 20 41 24 3C 3E 22 53 22 20 |8100 IF A$<>"S" | 00000390: 54 48 45 4E 20 38 30 39 30 DF 38 35 32 30 20 50 |THEN 8090.8520 P| 000003A0: 52 49 4E 54 20 22 2A 20 50 52 4F 47 2E 20 41 44 |RINT "* PROG. AD| 000003B0: 4D 49 4E 49 53 54 52 41 43 49 4F 4E 20 46 49 43 |MINISTRACION FIC| 000003C0: 48 45 52 4F 53 20 31 2E 30 20 20 2A 22 3B DF 38 |HEROS 1.0 *";.8| 000003D0: 35 35 30 20 50 52 49 4E 54 20 54 41 42 28 37 29 |550 PRINT TAB(7)| 000003E0: 3B 22 45 4E 54 52 41 52 20 56 41 4C 45 53 20 44 |;"ENTRAR VALES D| 000003F0: 45 20 43 41 4A 41 22 3A 20 50 52 49 4E 54 20 50 |E CAJA": PRINT P| 00000400: 52 49 4E 54 DF AA 4E 50 DF DF 31 32 30 32 30 20 |RINT..NP..12020 | 00000410: 50 52 49 4E 54 20 22 45 52 52 4F 52 3A 22 3B 58 |PRINT "ERROR:";X| 00000420: 2C 58 24 3B 59 24 3B 5A 24 DF DF DF 20 20 20 20 |,X$;Y$;Z$... | 00000430: 20 20 20 20 45 53 50 45 52 41 0D 4F 53 2C 20 51 | ESPERA.OS, Q| 00000440: 55 45 20 44 49 53 46 52 55 54 45 20 55 44 2E 20 |UE DISFRUTE UD. | 00000450: 44 45 4C 20 50 52 4F 47 52 41 0D 41 DF AA 4E 50 |DEL PROGRA.A..NP| 00000460: DF DF 38 2E 35 20 4F 54 52 4F 20 4D 45 54 4F 44 |..8.5 OTRO METOD| 00000470: 4F 20 3A 20 20 41 43 43 45 53 4F 20 44 49 52 45 |O : ACCESO DIRE| 00000480: 43 54 4F DF DF 20 20 45 53 54 45 20 54 49 50 4F |CTO.. ESTE TIPO| 00000490: 20 44 45 20 41 43 43 45 53 4F 20 41 20 44 41 54 | DE ACCESO A DAT| 000004A0: 4F 53 20 45 4E 20 44 49 53 4B 45 54 54 45 20 45 |OS EN DISKETTE E| 000004B0: 53 20 49 47 4E 4F 52 41 44 4F 20 46 52 45 43 55 |S IGNORADO FRECU| 000004C0: 45 4E 54 45 0D 45 4E 54 45 2E 20 41 55 4E 51 55 |ENTE.ENTE. AUNQU| 000004D0: 45 20 53 45 41 20 56 45 52 44 41 44 45 52 41 0D |E SEA VERDADERA.| 000004E0: 45 4E 54 45 20 43 4F 0D 50 4C 49 43 41 44 4F 20 |ENTE CO.PLICADO | 000004F0: 59 20 4C 41 42 4F 52 49 4F 53 4F 2C 20 54 49 45 |Y LABORIOSO, TIE| 00000500: 4E 45 20 54 41 0D 42 49 B0 45 4E 20 41 4C 47 55 |NE TA.BI.EN ALGU| 00000510: 4E 4F 53 20 41 53 50 45 43 54 4F 53 20 49 4E 54 |NOS ASPECTOS INT| 00000520: 45 52 45 53 41 4E 54 45 53 2E 20 B5 20 51 55 45 |ERESANTES. . QUE| 00000530: 20 50 4F 44 45 0D 4F 53 20 52 45 41 4C 49 41 52 | PODE.OS REALIAR| 00000540: 20 43 4F 4E 20 45 4C 20 41 43 43 45 53 4F 20 44 | CON EL ACCESO D| 00000550: 49 52 45 43 54 4F 20 3F DF DF 31 2E 29 20 45 4C |IRECTO ?..1.) EL| 00000560: 20 41 43 43 45 53 4F 20 41 20 46 49 43 48 45 52 | ACCESO A FICHER| 00000570: 4F 53 20 2D 20 46 49 43 48 45 52 4F 53 20 44 45 |OS - FICHEROS DE| 00000580: 20 41 43 43 45 53 4F 20 41 4C 20 41 41 52 DF DF | ACCESO AL AAR..| 00000590: 20 20 45 53 54 45 20 0D B0 45 54 4F 44 4F 20 54 | ESTE ..ETODO T| 000005A0: 49 45 4E 45 20 41 4C 47 4F 20 51 55 45 20 56 45 |IENE ALGO QUE VE| 000005B0: 52 20 43 4F 4E 20 4C 41 20 41 44 0D 49 4E 49 53 |R CON LA AD.INIS| 000005C0: 54 52 41 43 49 B0 4F 4E 20 44 45 20 46 49 43 48 |TRACI.ON DE FICH| 000005D0: 45 52 4F 53 20 53 45 43 55 45 4E 43 49 41 4C 45 |EROS SECUENCIALE| 000005E0: 53 2C 20 53 49 4E 20 54 45 4E 45 52 20 53 55 53 |S, SIN TENER SUS| 000005F0: 20 44 45 53 56 45 4E 54 41 4A 41 53 2C 20 59 20 | DESVENTAJAS, Y | 00000600: 41 4C 47 4F 20 43 4F 4E 20 4C 41 20 41 44 0D 49 |ALGO CON LA AD.I| 00000610: 4E 49 53 54 52 41 43 49 B0 4F 4E 20 44 45 20 46 |NISTRACI.ON DE F| 00000620: 49 43 48 45 52 4F 53 20 52 45 4C 41 54 49 56 4F |ICHEROS RELATIVO| 00000630: 53 2E DF DF 32 2E 29 20 45 4C 20 41 43 43 45 53 |S...2.) EL ACCES| 00000640: 4F 20 41 20 44 45 54 45 52 0D 49 4E 41 44 41 53 |O A DETER.INADAS| 00000650: 20 50 49 53 54 41 53 20 44 45 4C 20 44 49 53 4B | PISTAS DEL DISK| 00000660: 45 54 54 45 DF DF 20 20 43 4F 4E 20 45 53 54 45 |ETTE.. CON ESTE| 00000670: 20 41 43 43 45 53 4F 20 44 49 53 50 4F 4E 45 20 | ACCESO DISPONE | 00000680: 55 44 2E 20 44 45 20 50 4F 53 49 42 49 4C 49 44 |UD. DE POSIBILID| 00000690: 41 44 45 53 20 45 4E 20 4C 41 53 20 51 55 45 20 |ADES EN LAS QUE | 000006A0: 48 41 53 54 41 20 45 4C 20 0D 4F 0D 45 4E 54 4F |HASTA EL .O.ENTO| 000006B0: 20 4E 4F 20 48 41 20 50 45 4E 53 41 44 4F 2C 20 | NO HA PENSADO, | 000006C0: 59 20 43 55 59 4F 20 53 45 4E 54 49 44 4F 20 51 |Y CUYO SENTIDO Q| 000006D0: 55 49 B0 41 53 20 41 B0 55 4E 20 4E 4F 20 56 49 |UI.AS A.UN NO VI| 000006E0: 53 4C 55 0D 42 52 45 2E 20 4C 55 45 47 4F 20 45 |SLU.BRE. LUEGO E| 000006F0: 4E 54 52 41 52 45 0D 4F 53 20 45 4E 20 44 45 54 |NTRARE.OS EN DET| 00000700: 41 4C 4C 45 2E DF DF 20 20 20 20 20 20 20 20 20 |ALLE... | 00000710: 20 20 20 20 20 20 20 20 20 20 20 31 2E 20 46 49 | 1. FI| 00000720: 43 48 45 52 4F 53 20 44 45 20 41 43 43 45 53 4F |CHEROS DE ACCESO| 00000730: 20 41 4C 20 41 41 52 DF DF 20 20 41 20 44 49 46 | AL AAR.. A DIF| 00000740: 45 52 45 4E 43 49 41 20 44 45 20 4C 4F 53 20 46 |ERENCIA DE LOS F| 00000750: 49 43 48 45 52 4F 53 20 53 45 43 55 45 4E 43 49 |ICHEROS SECUENCI| 00000760: 41 4C 45 53 20 59 20 4C 4F 53 20 52 45 4C 41 54 |ALES Y LOS RELAT| 00000770: 49 56 4F 53 2C 20 43 41 44 41 20 42 4C 4F 51 55 |IVOS, CADA BLOQU| 00000780: 45 20 54 49 45 4E 45 20 41 51 55 B0 49 20 53 49 |E TIENE AQU.I SI| 00000790: 45 0D 50 52 45 20 55 4E 20 4C 4F 4E 47 49 54 55 |E.PRE UN LONGITU| 000007A0: 44 20 44 45 20 32 35 36 20 42 59 54 45 53 2C 20 |D DE 256 BYTES, | 000007B0: 50 4F 52 20 4C 4F 20 51 55 45 20 45 4E 20 55 4E |POR LO QUE EN UN| 000007C0: 20 44 49 53 4B 45 54 54 45 20 43 41 42 45 4E 20 | DISKETTE CABEN | 000007D0: 36 36 34 20 42 4C 4F 51 55 45 53 2E 20 45 53 20 |664 BLOQUES. ES | 000007E0: 50 4F 52 20 45 4A 45 0D 50 4C 4F 20 46 41 43 54 |POR EJE.PLO FACT| 000007F0: 49 42 4C 45 2C 20 47 52 41 42 41 52 20 45 4E 20 |IBLE, GRABAR EN | 00000800: 55 4E 20 42 4C 4F 51 55 45 20 55 4E 20 54 4F 54 |UN BLOQUE UN TOT| 00000810: 41 4C 20 44 45 20 34 20 52 45 47 49 53 54 52 4F |AL DE 4 REGISTRO| 00000820: 53 20 44 45 20 36 34 20 42 59 54 45 53 20 43 41 |S DE 64 BYTES CA| 00000830: 44 41 20 55 4E 4F 2E 20 4C 4F 20 B0 55 4E 49 43 |DA UNO. LO .UNIC| 00000840: 4F 20 51 55 45 20 54 49 45 4E 45 20 55 44 2E 20 |O QUE TIENE UD. | 00000850: 51 55 45 20 54 45 4E 45 52 20 45 4E 20 43 55 45 |QUE TENER EN CUE| 00000860: 4E 54 41 2C 20 45 53 20 41 43 43 45 44 45 52 20 |NTA, ES ACCEDER | 00000870: 44 45 4E 54 52 4F 20 44 45 20 55 4E 4F 20 44 45 |DENTRO DE UNO DE| 00000880: 20 45 53 54 4F 53 20 42 4C 4F 51 55 45 53 20 41 | ESTOS BLOQUES A| 00000890: 4C 20 52 45 47 49 53 54 52 4F 20 51 55 45 20 55 |L REGISTRO QUE U| 000008A0: 44 2E 20 52 45 41 4C 0D 45 4E 54 45 20 51 55 49 |D. REAL.ENTE QUI| 000008B0: 45 52 45 20 54 52 41 54 41 52 2E 20 44 45 42 45 |ERE TRATAR. DEBE| 000008C0: 52 B0 41 20 55 44 2E 20 41 42 52 49 52 20 50 52 |R.A UD. ABRIR PR| 000008D0: 49 0D 45 52 4F 20 55 4E 20 46 49 43 48 45 52 4F |I.ERO UN FICHERO| 000008E0: 20 53 45 43 55 45 4E 43 49 41 4C 2C 20 50 41 52 | SECUENCIAL, PAR| 000008F0: 41 20 41 4E 4F 54 41 52 20 41 4C 4C B0 49 20 4C |A ANOTAR ALL.I L| 00000900: 41 53 20 50 49 53 54 41 53 20 45 4E 20 4C 41 53 |AS PISTAS EN LAS| 00000910: 20 51 55 45 20 48 41 20 47 52 41 42 41 44 4F 20 | QUE HA GRABADO | 00000920: 52 45 47 49 53 54 52 4F 53 2E 20 45 4E 20 54 4F |REGISTROS. EN TO| 00000930: 54 41 4C 20 4E 45 43 45 53 49 54 41 52 B0 41 20 |TAL NECESITAR.A | 00000940: 55 44 2E 20 33 20 46 49 43 48 45 52 4F 53 3A DF |UD. 3 FICHEROS:.| 00000950: DF 31 2E 29 20 46 49 43 48 45 52 4F 20 53 45 43 |.1.) FICHERO SEC| 00000960: 55 45 4E 43 49 41 4C 20 50 41 52 41 20 4C 4F 53 |UENCIAL PARA LOS| 00000970: 20 41 50 55 4E 54 41 44 4F 52 45 53 DF 32 2E 29 | APUNTADORES.2.)| 00000980: 20 46 49 43 48 45 52 4F 20 44 45 20 43 4F 0D 41 | FICHERO DE CO.A| 00000990: 4E 44 4F 53 DF 33 2E 29 20 46 49 43 48 45 52 4F |NDOS.3.) FICHERO| 000009A0: 20 44 45 20 44 41 54 4F 53 20 50 41 52 41 20 4C | DE DATOS PARA L| 000009B0: 41 20 47 52 41 42 41 43 49 B0 4F 4E 20 44 49 52 |A GRABACI.ON DIR| 000009C0: 45 43 54 41 DF AA 4E 50 DF DF 31 30 20 4F 50 45 |ECTA..NP..10 OPE| 000009D0: 4E 20 34 2C 38 2C 34 2C 22 46 49 43 48 45 52 4F |N 4,8,4,"FICHERO| 000009E0: 20 43 42 4D 20 36 34 2C 53 2C 57 22 3A 20 52 45 | CBM 64,S,W": RE| 000009F0: 4D 20 46 49 43 48 45 52 4F 20 53 45 43 55 45 4E |M FICHERO SECUEN| 00000A00: 43 49 41 4C DF 32 30 20 4F 50 45 4E 20 31 35 2C |CIAL.20 OPEN 15,| 00000A10: 38 2C 31 35 3A 20 52 45 4D 20 43 41 4E 41 4C 20 |8,15: REM CANAL | 00000A20: 44 45 20 43 4F 4D 41 4E 44 4F 53 DF 33 30 20 4F |DE COMANDOS.30 O| 00000A30: 50 45 4E 20 35 2C 38 2C 35 2C 22 B4 22 3A 20 52 |PEN 5,8,5,".": R| 00000A40: 45 4D 20 46 49 43 48 45 52 4F 20 44 45 20 44 41 |EM FICHERO DE DA| 00000A50: 54 4F 53 DF 34 30 20 54 45 24 3D 22 44 41 54 41 |TOS.40 TE$="DATA| 00000A60: 20 42 45 43 4B 45 52 20 47 4D 42 48 22 DF 35 30 | BECKER GMBH".50| 00000A70: 20 50 52 49 4E 54 B4 35 2C 54 45 24 3B 22 2C 22 | PRINT.5,TE$;","| 00000A80: 3B 31 3A 20 52 45 4D 20 54 45 58 54 4F 2C 20 4E |;1: REM TEXTO, N| 00000A90: 4F 2E 52 45 47 49 53 54 52 4F DF 36 30 20 54 3D |O.REGISTRO.60 T=| 00000AA0: 31 3A 20 53 3D 31 3A 20 52 45 4D 20 50 49 53 54 |1: S=1: REM PIST| 00000AB0: 41 3D 31 2C 20 42 4C 4F 51 55 45 3D 31 DF 37 30 |A=1, BLOQUE=1.70| 00000AC0: 20 50 52 49 4E 54 B4 31 35 2C 22 42 2D 41 3A 22 | PRINT.15,"B-A:"| 00000AD0: 3B 30 2C 54 2C 53 3A 20 52 45 4D 20 44 49 53 50 |;0,T,S: REM DISP| 00000AE0: 4F 53 49 54 49 56 4F 2C 20 50 49 53 54 41 2C 20 |OSITIVO, PISTA, | 00000AF0: 42 4C 4F 51 55 45 DF 38 30 20 49 4E 50 55 54 B4 |BLOQUE.80 INPUT.| 00000B00: 31 35 2C 45 52 2C 4E 41 24 2C 54 52 2C 42 4C 3A |15,ER,NA$,TR,BL:| 00000B10: 20 52 45 4D 20 4C 45 45 52 20 45 52 52 4F 52 DF | REM LEER ERROR.| 00000B20: 39 30 20 49 46 20 45 52 3D 36 35 20 54 48 45 4E |90 IF ER=65 THEN| 00000B30: 20 54 3D 54 52 3A 20 53 3D 42 4C 3A 20 47 4F 54 | T=TR: S=BL: GOT| 00000B40: 4F 20 37 30 DF 31 30 30 20 50 52 49 4E 54 B4 31 |O 70.100 PRINT.1| 00000B50: 35 2C 22 42 2D 57 3A 22 3B 35 2C 30 2C 54 2C 53 |5,"B-W:";5,0,T,S| 00000B60: 3A 20 52 45 4D 20 47 52 41 42 41 52 20 52 45 47 |: REM GRABAR REG| 00000B70: 49 53 54 52 4F DF 31 31 30 20 50 52 49 4E 54 B4 |ISTRO.110 PRINT.| 00000B80: 34 2C 54 3B 22 2C 22 3B 53 DF 31 32 30 20 43 4C |4,T;",";S.120 CL| 00000B90: 4F 53 45 20 35 DF 31 33 30 20 43 4C 4F 53 45 20 |OSE 5.130 CLOSE | 00000BA0: 31 35 DF 31 34 30 20 43 4C 4F 53 45 20 34 DF 31 |15.140 CLOSE 4.1| 00000BB0: 35 30 20 45 4E 44 DF DF 20 20 B5 20 51 55 B0 45 |50 END.. . QU.E| 00000BC0: 20 48 41 43 45 20 45 53 54 45 20 50 52 4F 47 52 | HACE ESTE PROGR| 00000BD0: 41 0D 41 20 3F 20 20 50 52 49 0D 45 52 4F 20 53 |A.A ? PRI.ERO S| 00000BE0: 45 20 41 42 52 45 4E 20 4C 4F 53 20 54 52 45 53 |E ABREN LOS TRES| 00000BF0: 20 46 49 43 48 45 52 4F 53 20 4E 45 43 45 53 41 | FICHEROS NECESA| 00000C00: 52 49 4F 53 2C 20 59 20 41 20 43 4F 4E 54 49 4E |RIOS, Y A CONTIN| 00000C10: 55 41 43 49 B0 4F 4E 20 53 45 20 44 45 46 49 4E |UACI.ON SE DEFIN| 00000C20: 45 20 55 4E 20 54 45 58 54 4F 2C 20 51 55 45 20 |E UN TEXTO, QUE | 00000C30: 54 49 45 4E 45 20 51 55 45 20 53 45 52 20 47 52 |TIENE QUE SER GR| 00000C40: 41 42 41 44 4F 20 44 49 52 45 43 54 41 0D 45 4E |ABADO DIRECTA.EN| 00000C50: 54 45 2E 20 45 53 54 45 20 54 45 58 54 4F 20 53 |TE. ESTE TEXTO S| 00000C60: 45 20 47 52 41 42 41 20 50 4F 52 20 45 4C 20 0D |E GRABA POR EL .| 00000C70: 4F 0D 45 4E 54 4F 2C 20 45 4E 20 45 4C 20 46 49 |O.ENTO, EN EL FI| 00000C80: 43 48 45 52 4F 20 44 45 20 44 41 54 4F 53 2E 20 |CHERO DE DATOS. | 00000C90: 41 48 4F 52 41 20 45 0D 50 49 45 41 20 45 4C 20 |AHORA E.PIEA EL | 00000CA0: 53 49 53 54 45 0D 41 20 4F 50 45 52 41 54 49 56 |SISTE.A OPERATIV| 00000CB0: 4F 20 41 20 42 55 53 43 41 52 20 55 4E 20 42 4C |O A BUSCAR UN BL| 00000CC0: 4F 51 55 45 20 4C 49 42 52 45 20 45 4E 20 45 4C |OQUE LIBRE EN EL| 00000CD0: 20 44 49 53 4B 45 54 54 45 2E 20 4C 41 20 42 B0 | DISKETTE. LA B.| 00000CE0: 55 53 51 55 45 44 41 20 45 0D 50 49 45 41 20 50 |USQUEDA E.PIEA P| 00000CF0: 4F 52 20 4C 41 20 50 49 53 54 41 20 31 2C 20 42 |OR LA PISTA 1, B| 00000D00: 4C 4F 51 55 45 20 31 2C 20 45 53 20 44 45 43 49 |LOQUE 1, ES DECI| 00000D10: 52 20 45 4C 20 50 52 49 4E 43 49 50 49 4F 20 44 |R EL PRINCIPIO D| 00000D20: 45 4C 20 44 49 53 4B 45 54 54 45 2E 20 50 41 52 |EL DISKETTE. PAR| 00000D30: 41 20 45 4C 4C 4F 20 53 45 20 55 54 49 4C 49 41 |A ELLO SE UTILIA| 00000D40: 20 4C 41 20 4C B0 49 4E 45 41 20 37 30 2E 20 22 | LA L.INEA 70. "| 00000D50: 42 2D 41 3A 22 20 53 49 47 4E 49 46 49 43 41 20 |B-A:" SIGNIFICA | 00000D60: 42 4C 4F 43 4B 20 41 4C 4C 4F 43 41 54 45 2C 20 |BLOCK ALLOCATE, | 00000D70: 51 55 45 20 54 52 41 44 55 43 49 44 4F 20 45 51 |QUE TRADUCIDO EQ| 00000D80: 55 49 56 41 4C 45 20 41 20 42 B0 55 53 51 55 45 |UIVALE A B.USQUE| 00000D90: 44 41 20 44 45 20 42 4C 4F 51 55 45 2E 20 53 45 |DA DE BLOQUE. SE| 00000DA0: 20 42 55 53 43 41 2C 20 50 4F 52 20 4C 4F 20 54 | BUSCA, POR LO T| 00000DB0: 41 4E 54 4F 2C 20 55 4E 20 42 4C 4F 51 55 45 20 |ANTO, UN BLOQUE | 00000DC0: 45 4E 20 45 4C 20 44 49 53 4B 45 54 54 45 20 51 |EN EL DISKETTE Q| 00000DD0: 55 45 20 41 B0 55 4E 20 4E 4F 20 45 53 54 B0 45 |UE A.UN NO EST.E| 00000DE0: 20 47 52 41 42 41 44 4F 2C 20 4F 20 51 55 45 20 | GRABADO, O QUE | 00000DF0: 48 41 59 41 20 53 49 44 4F 20 4C 49 42 45 52 41 |HAYA SIDO LIBERA| 00000E00: 44 4F 20 4E 55 45 56 41 0D 45 4E 54 45 2E 20 50 |DO NUEVA.ENTE. P| 00000E10: 41 52 41 20 56 45 52 2C 20 53 49 20 45 4C 20 42 |ARA VER, SI EL B| 00000E20: 4C 4F 51 55 45 20 45 53 54 B0 41 20 4C 49 42 52 |LOQUE EST.A LIBR| 00000E30: 45 20 48 41 59 20 51 55 45 20 4C 45 45 52 20 45 |E HAY QUE LEER E| 00000E40: 4C 20 43 4F 0D 41 4E 44 4F 20 44 45 20 43 41 4E |L CO.ANDO DE CAN| 00000E50: 41 4C 2E 20 53 49 20 45 4C 20 43 B0 4F 44 49 47 |AL. SI EL C.ODIG| 00000E60: 4F 20 44 45 20 45 52 52 4F 52 20 45 53 20 36 35 |O DE ERROR ES 65| 00000E70: 2C 20 53 49 47 4E 49 46 49 43 41 2C 20 51 55 45 |, SIGNIFICA, QUE| 00000E80: 20 45 4C 20 42 4C 4F 51 55 45 20 4E 4F 20 45 53 | EL BLOQUE NO ES| 00000E90: 54 B0 41 20 4C 49 42 52 45 2C 20 59 20 45 4C 20 |T.A LIBRE, Y EL | 00000EA0: 4F 52 44 45 4E 41 44 4F 52 20 43 4F 4E 54 49 4E |ORDENADOR CONTIN| 00000EB0: B0 55 41 20 43 4F 4E 20 4C 41 20 42 B0 55 53 51 |.UA CON LA B.USQ| 00000EC0: 55 45 44 41 2E 20 55 4E 41 20 56 45 20 48 41 20 |UEDA. UNA VE HA | 00000ED0: 45 4E 43 4F 4E 54 52 41 44 4F 20 55 4E 20 42 4C |ENCONTRADO UN BL| 00000EE0: 4F 51 55 45 20 4C 49 42 52 45 2C 20 47 52 41 42 |OQUE LIBRE, GRAB| 00000EF0: 41 20 45 4C 20 54 45 58 54 4F 20 51 55 45 20 45 |A EL TEXTO QUE E| 00000F00: 53 54 B0 41 20 50 52 45 50 41 52 41 44 4F 20 45 |ST.A PREPARADO E| 00000F10: 4E 20 45 4C 20 46 49 43 48 45 52 4F 20 44 45 20 |N EL FICHERO DE | 00000F20: 44 41 54 4F 53 2C 20 43 4F 4E 20 4C 41 53 20 44 |DATOS, CON LAS D| 00000F30: 49 52 45 43 43 49 4F 4E 45 53 20 44 45 20 42 4C |IRECCIONES DE BL| 00000F40: 4F 51 55 45 20 45 4E 43 4F 4E 54 52 41 44 41 53 |OQUE ENCONTRADAS| 00000F50: 20 45 4E 20 45 4C 20 44 49 53 4B 45 54 54 45 2E | EN EL DISKETTE.| 00000F60: 20 41 20 43 4F 4E 54 49 4E 55 41 43 49 B0 4F 4E | A CONTINUACI.ON| 00000F70: 20 53 45 20 47 52 41 42 41 4E 20 4C 41 53 20 44 | SE GRABAN LAS D| 00000F80: 49 52 45 43 43 49 4F 4E 45 53 20 45 4E 20 45 4C |IRECCIONES EN EL| 00000F90: 20 46 49 43 48 45 52 4F 20 53 45 43 55 45 4E 43 | FICHERO SECUENC| 00000FA0: 49 41 4C 20 50 41 52 41 20 51 55 45 20 45 4C 20 |IAL PARA QUE EL | 00000FB0: 52 45 47 49 53 54 52 4F 20 50 55 45 44 41 20 53 |REGISTRO PUEDA S| 00000FC0: 45 52 20 45 4E 43 4F 4E 54 52 41 44 4F 20 44 45 |ER ENCONTRADO DE| 00000FD0: 20 4E 55 45 56 4F 2E 20 41 4C 20 0D 49 53 0D 4F | NUEVO. AL .IS.O| 00000FE0: 20 54 49 45 0D 50 4F 2C 20 45 4C 20 53 49 53 54 | TIE.PO, EL SIST| 00000FF0: 45 0D 41 20 4F 50 45 52 41 54 49 56 4F 20 42 4C |E.A OPERATIVO BL| 00001000: 4F 51 55 45 41 20 45 53 54 41 20 50 49 53 54 41 |OQUEA ESTA PISTA| 00001010: 20 50 41 52 41 20 51 55 45 20 4E 4F 20 53 45 41 | PARA QUE NO SEA| 00001020: 20 52 45 47 52 41 42 41 44 41 20 41 43 43 49 44 | REGRABADA ACCID| 00001030: 45 4E 54 41 4C 0D 45 4E 54 45 2E 20 53 45 20 43 |ENTAL.ENTE. SE C| 00001040: 49 45 52 52 41 4E 20 41 20 43 4F 4E 54 49 4E 55 |IERRAN A CONTINU| 00001050: 41 43 49 B0 4F 4E 20 4C 4F 53 20 46 49 43 48 45 |ACI.ON LOS FICHE| 00001060: 52 4F 53 2C 20 59 20 53 45 20 54 45 52 0D 49 4E |ROS, Y SE TER.IN| 00001070: 41 20 45 4C 20 50 52 4F 47 52 41 0D 41 2E DF AA |A EL PROGRA.A...| 00001080: 4E 50 DF DF 20 20 45 53 20 49 47 55 41 4C 0D 45 |NP.. ES IGUAL.E| 00001090: 4E 54 45 20 49 4E 54 45 52 45 53 41 4E 54 45 20 |NTE INTERESANTE | 000010A0: 4C 41 20 20 52 45 43 55 50 45 52 41 43 49 B0 4F |LA RECUPERACI.O| 000010B0: 4E 20 44 45 20 4C 4F 53 20 44 41 54 4F 53 3A DF |N DE LOS DATOS:.| 000010C0: DF 31 30 20 4F 50 45 4E 20 34 2C 38 2C 34 2C 22 |.10 OPEN 4,8,4,"| 000010D0: 46 49 43 48 45 52 4F 20 43 42 4D 20 36 34 22 DF |FICHERO CBM 64".| 000010E0: 32 30 20 4F 50 45 4E 20 31 35 2C 38 2C 31 35 DF |20 OPEN 15,8,15.| 000010F0: 33 30 20 4F 50 45 4E 20 35 2C 38 2C 35 2C 22 B4 |30 OPEN 5,8,5,".| 00001100: 22 DF 34 30 20 49 4E 50 55 54 B4 34 2C 54 2C 53 |".40 INPUT.4,T,S| 00001110: 3A 20 52 45 4D 20 4C 45 45 52 20 4C 41 53 20 44 |: REM LEER LAS D| 00001120: 49 52 45 43 43 49 4F 4E 45 53 DF 35 30 20 50 52 |IRECCIONES.50 PR| 00001130: 49 4E 54 B4 31 35 2C 22 42 2D 52 3A 22 3B 35 2C |INT.15,"B-R:";5,| 00001140: 30 2C 54 2C 53 DF 36 30 20 49 4E 50 55 54 B4 35 |0,T,S.60 INPUT.5| 00001150: 2C 54 45 24 2C 52 45 DF 37 30 20 50 52 49 4E 54 |,TE$,RE.70 PRINT| 00001160: B4 31 35 2C 22 42 2D 46 3A 22 3B 30 2C 54 2C 53 |.15,"B-F:";0,T,S| 00001170: DF 38 30 20 43 4C 4F 53 45 20 35 DF 39 30 20 43 |.80 CLOSE 5.90 C| 00001180: 4C 4F 53 45 20 34 DF 31 30 30 20 50 52 49 4E 54 |LOSE 4.100 PRINT| 00001190: B4 31 35 2C 22 53 3A 46 49 43 48 45 52 4F 20 43 |.15,"S:FICHERO C| 000011A0: 42 4D 20 36 34 22 DF 31 31 30 20 43 4C 4F 53 45 |BM 64".110 CLOSE| 000011B0: 20 31 35 DF DF 20 20 56 41 0D 4F 53 20 41 20 43 | 15.. VA.OS A C| 000011C0: 4F 0D 45 4E 54 41 52 20 54 41 0D 42 49 B0 45 4E |O.ENTAR TA.BI.EN| 000011D0: 20 45 53 54 45 20 50 52 4F 47 52 41 0D 41 3A 20 | ESTE PROGRA.A: | 000011E0: 44 45 53 50 55 B0 45 53 20 44 45 20 41 42 52 49 |DESPU.ES DE ABRI| 000011F0: 52 20 4C 4F 53 20 46 49 43 48 45 52 4F 53 2C 20 |R LOS FICHEROS, | 00001200: 53 45 20 4C 45 45 20 4C 41 20 44 49 52 45 43 43 |SE LEE LA DIRECC| 00001210: 49 B0 4F 4E 20 44 45 4C 20 42 4C 4F 51 55 45 20 |I.ON DEL BLOQUE | 00001220: 45 4E 20 45 4C 20 51 55 45 20 45 53 54 B0 41 4E |EN EL QUE EST.AN| 00001230: 20 47 52 41 42 41 44 4F 53 20 52 45 41 4C 0D 45 | GRABADOS REAL.E| 00001240: 4E 54 45 20 4C 4F 53 20 44 41 54 4F 53 2C 20 45 |NTE LOS DATOS, E| 00001250: 4E 20 4E 55 45 53 54 52 4F 20 43 41 53 4F 2C 20 |N NUESTRO CASO, | 00001260: 45 4C 20 54 45 58 54 4F 2E 20 44 45 53 50 55 B0 |EL TEXTO. DESPU.| 00001270: 45 53 20 44 45 20 45 53 54 4F 2C 20 53 45 20 4C |ES DE ESTO, SE L| 00001280: 49 42 45 52 41 20 44 45 20 4E 55 45 56 4F 20 45 |IBERA DE NUEVO E| 00001290: 53 54 45 20 42 4C 4F 51 55 45 20 0D 45 44 49 41 |STE BLOQUE .EDIA| 000012A0: 4E 54 45 20 45 4C 20 43 4F 0D 41 4E 44 4F 20 42 |NTE EL CO.ANDO B| 000012B0: 4C 4F 43 4B 2D 46 52 45 45 2E 20 45 53 54 4F 20 |LOCK-FREE. ESTO | 000012C0: 53 45 20 44 45 42 45 20 48 41 43 45 52 2C 20 4E |SE DEBE HACER, N| 000012D0: 41 54 55 52 41 4C 0D 45 4E 54 45 2C 20 53 B0 4F |ATURAL.ENTE, S.O| 000012E0: 4C 4F 20 43 55 41 4E 44 4F 20 53 45 20 50 55 45 |LO CUANDO SE PUE| 000012F0: 44 41 20 42 4F 52 52 41 52 20 45 4C 20 42 4C 4F |DA BORRAR EL BLO| 00001300: 51 55 45 2E 20 41 20 43 4F 4E 54 49 4E 55 41 43 |QUE. A CONTINUAC| 00001310: 49 B0 4F 4E 20 53 45 20 43 49 45 52 52 41 4E 20 |I.ON SE CIERRAN | 00001320: 44 45 20 4E 55 45 56 4F 20 45 4C 20 46 49 43 48 |DE NUEVO EL FICH| 00001330: 45 52 4F 20 53 45 43 55 45 4E 43 49 41 4C 2C 20 |ERO SECUENCIAL, | 00001340: 45 4C 20 44 45 20 44 41 54 4F 53 20 59 20 45 4C |EL DE DATOS Y EL| 00001350: 20 44 45 20 43 4F 0D 41 4E 44 4F 53 2E DF DF DF | DE CO.ANDOS....| 00001360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001370: 20 20 20 20 32 2E 20 45 4C 20 41 43 43 45 53 4F | 2. EL ACCESO| 00001380: 20 44 49 52 45 43 54 4F 20 45 4E 20 45 4C 20 44 | DIRECTO EN EL D| 00001390: 49 53 4B 45 54 54 45 DF DF 20 20 45 53 54 45 20 |ISKETTE.. ESTE | 000013A0: 54 49 50 4F 20 44 45 20 41 43 43 45 53 4F 20 50 |TIPO DE ACCESO P| 000013B0: 45 52 0D 49 54 45 20 43 4F 0D 4F 20 53 55 20 4E |ER.ITE CO.O SU N| 000013C0: 4F 0D 42 52 45 20 49 4E 44 49 43 41 2C 20 45 4C |O.BRE INDICA, EL| 000013D0: 20 41 43 43 45 53 4F 20 44 49 52 45 43 54 4F 20 | ACCESO DIRECTO | 000013E0: 41 20 43 55 41 4C 51 55 49 45 52 20 50 49 53 54 |A CUALQUIER PIST| 000013F0: 41 20 59 20 42 4C 4F 51 55 45 2C 20 45 53 20 44 |A Y BLOQUE, ES D| 00001400: 45 43 49 52 20 4C 41 20 4C 45 43 54 55 52 41 20 |ECIR LA LECTURA | 00001410: 44 45 20 49 4E 46 4F 52 0D 41 43 49 B0 4F 4E 20 |DE INFOR.ACI.ON | 00001420: 44 49 52 45 43 54 41 0D 45 4E 54 45 20 44 45 53 |DIRECTA.ENTE DES| 00001430: 44 45 20 45 4C 20 44 49 53 4B 45 54 54 45 2C 20 |DE EL DISKETTE, | 00001440: 53 49 4E 20 41 42 52 49 52 20 50 52 45 56 49 41 |SIN ABRIR PREVIA| 00001450: 0D 45 4E 54 45 20 46 49 43 48 45 52 4F 53 2E 20 |.ENTE FICHEROS. | 00001460: 41 53 B0 49 20 50 55 45 44 45 20 55 44 2E 20 4C |AS.I PUEDE UD. L| 00001470: 45 45 52 20 46 B0 41 43 49 4C 0D 45 4E 54 45 2C |EER F.ACIL.ENTE,| 00001480: 20 50 4F 52 20 45 4A 45 0D 50 4C 4F 2C 20 45 4C | POR EJE.PLO, EL| 00001490: 20 44 49 52 45 43 54 4F 52 49 4F 2C 20 53 49 4E | DIRECTORIO, SIN| 000014A0: 20 54 45 4E 45 52 20 51 55 45 20 55 54 49 4C 49 | TENER QUE UTILI| 000014B0: 41 52 20 45 4C 20 43 4F 0D 41 4E 44 4F 20 4C 4F |AR EL CO.ANDO LO| 000014C0: 41 44 22 24 22 2C 38 20 20 59 20 44 45 53 54 52 |AD"$",8 Y DESTR| 000014D0: 55 49 52 20 50 4F 52 20 45 4C 4C 4F 20 41 4C 47 |UIR POR ELLO ALG| 000014E0: B0 55 4E 20 50 52 4F 47 52 41 0D 41 20 51 55 45 |.UN PROGRA.A QUE| 000014F0: 20 45 53 54 B0 45 20 45 4E 20 0D 45 0D 4F 52 49 | EST.E EN .E.ORI| 00001500: 41 2E 20 53 45 20 50 55 45 44 45 20 54 41 0D 42 |A. SE PUEDE TA.B| 00001510: 49 B0 45 4E 20 0D 4F 44 49 46 49 43 41 52 20 55 |I.EN .ODIFICAR U| 00001520: 4E 20 50 52 4F 47 52 41 0D 41 20 45 4E 20 44 49 |N PROGRA.A EN DI| 00001530: 53 4B 45 54 54 45 2C 20 53 49 4E 20 54 45 4E 45 |SKETTE, SIN TENE| 00001540: 52 20 51 55 45 20 43 41 52 47 41 52 4C 4F 3B 20 |R QUE CARGARLO; | 00001550: 49 4E 43 4C 55 53 4F 20 53 45 20 50 55 45 44 45 |INCLUSO SE PUEDE| 00001560: 4E 20 52 45 50 41 52 41 52 2C 20 45 4E 20 44 45 |N REPARAR, EN DE| 00001570: 54 45 52 0D 49 4E 41 44 4F 53 20 43 41 53 4F 53 |TER.INADOS CASOS| 00001580: 2C 20 50 52 4F 47 52 41 0D 41 53 20 44 45 53 54 |, PROGRA.AS DEST| 00001590: 52 55 B0 49 44 4F 53 2E DF AA 4E 50 DF DF 20 20 |RU.IDOS...NP.. | 000015A0: 45 53 54 4F 53 20 41 43 43 45 53 4F 53 20 53 4F |ESTOS ACCESOS SO| 000015B0: 4E 20 53 49 4E 20 45 0D 42 41 52 47 4F 20 54 41 |N SIN E.BARGO TA| 000015C0: 4E 20 50 45 4C 49 47 52 4F 53 4F 53 2C 20 51 55 |N PELIGROSOS, QU| 000015D0: 45 20 51 55 45 52 45 0D 4F 53 20 41 44 56 45 52 |E QUERE.OS ADVER| 000015E0: 54 49 52 20 41 20 54 4F 44 4F 53 20 4C 4F 53 20 |TIR A TODOS LOS | 000015F0: 50 52 4F 47 52 41 0D 41 44 4F 52 45 53 2C 20 4E |PROGRA.ADORES, N| 00001600: 4F 20 55 54 49 4C 49 41 52 4C 4F 53 2C 20 53 49 |O UTILIARLOS, SI| 00001610: 4E 20 54 45 4E 45 52 20 43 4F 4E 4F 43 49 0D 49 |N TENER CONOCI.I| 00001620: 45 4E 54 4F 53 20 45 58 41 43 54 4F 53 20 53 4F |ENTOS EXACTOS SO| 00001630: 42 52 45 20 4C 41 20 45 53 54 52 55 43 54 55 52 |BRE LA ESTRUCTUR| 00001640: 41 20 44 45 4C 20 44 49 53 4B 45 54 54 45 2C 20 |A DEL DISKETTE, | 00001650: 44 45 4C 20 44 49 52 45 43 54 4F 52 49 4F 2C 20 |DEL DIRECTORIO, | 00001660: 42 41 4D 20 4F 20 44 45 4C 20 50 52 4F 50 49 4F |BAM O DEL PROPIO| 00001670: 20 50 52 4F 47 52 41 0D 41 2E 20 45 53 20 0D 55 | PROGRA.A. ES .U| 00001680: 59 20 46 B0 41 43 49 4C 20 44 45 53 54 52 55 49 |Y F.ACIL DESTRUI| 00001690: 52 20 43 4F 4E 20 45 4C 4C 4F 20 46 49 43 48 45 |R CON ELLO FICHE| 000016A0: 52 4F 53 20 59 20 44 49 53 4B 45 54 54 45 53 20 |ROS Y DISKETTES | 000016B0: 45 4E 54 45 52 4F 53 2E 20 4C B0 45 41 20 50 4F |ENTEROS. L.EA PO| 000016C0: 52 20 45 4C 4C 4F 20 43 4F 4E 20 44 45 54 45 4E |R ELLO CON DETEN| 000016D0: 49 0D 49 45 4E 54 4F 20 45 4C 20 0D 41 4E 55 41 |I.IENTO EL .ANUA| 000016E0: 4C 20 44 45 4C 20 46 4C 4F 50 50 59 20 31 35 34 |L DEL FLOPPY 154| 000016F0: 31 20 44 45 20 43 4F 0D 0D 4F 44 4F 52 45 2E 20 |1 DE CO..ODORE. | 00001700: 44 45 53 47 52 41 43 49 41 44 41 0D 45 4E 54 45 |DESGRACIADA.ENTE| 00001710: 20 4E 4F 20 50 4F 44 45 0D 4F 53 20 45 4E 54 52 | NO PODE.OS ENTR| 00001720: 45 54 45 4E 45 52 4E 4F 53 20 41 51 55 B0 49 20 |ETENERNOS AQU.I | 00001730: 50 41 52 41 20 45 58 50 4C 49 43 41 52 20 43 4F |PARA EXPLICAR CO| 00001740: 4E 20 44 45 54 41 4C 4C 45 20 4C 41 20 43 4F 0D |N DETALLE LA CO.| 00001750: 50 4F 53 49 43 49 B0 4F 4E 20 44 45 4C 20 44 49 |POSICI.ON DEL DI| 00001760: 52 45 43 54 4F 52 49 4F 2C 20 42 41 4D 20 45 54 |RECTORIO, BAM ET| 00001770: 43 2E 2C 20 59 41 20 51 55 45 20 44 45 53 42 4F |C., YA QUE DESBO| 00001780: 52 44 41 52 B0 49 41 20 4C 41 20 43 41 50 41 43 |RDAR.IA LA CAPAC| 00001790: 49 44 41 44 20 44 45 20 45 53 54 45 20 4C 49 42 |IDAD DE ESTE LIB| 000017A0: 52 4F 2E 20 53 49 20 55 44 2E 20 54 49 45 4E 45 |RO. SI UD. TIENE| 000017B0: 20 4E 4F 20 4F 42 53 54 41 4E 54 45 2C 20 49 4E | NO OBSTANTE, IN| 000017C0: 54 45 52 B0 45 53 20 45 4E 20 45 58 50 45 52 49 |TER.ES EN EXPERI| 000017D0: 0D 45 4E 54 41 52 20 43 4F 4E 20 45 53 54 41 53 |.ENTAR CON ESTAS| 000017E0: 20 50 4F 53 49 42 49 4C 49 44 41 44 45 53 2C 20 | POSIBILIDADES, | 000017F0: 4C 45 20 52 45 43 4F 0D 45 4E 44 41 0D 4F 53 20 |LE RECO.ENDA.OS | 00001800: 54 52 41 42 41 4A 41 52 20 43 4F 4E 20 55 4E 20 |TRABAJAR CON UN | 00001810: 44 49 53 4B 45 54 54 45 20 44 45 20 50 52 55 45 |DISKETTE DE PRUE| 00001820: 42 41 3B 20 41 4C 20 0D 45 4E 4F 53 20 41 53 B0 |BA; AL .ENOS AS.| 00001830: 49 20 4E 4F 20 53 45 20 43 4F 52 52 45 20 45 4C |I NO SE CORRE EL| 00001840: 20 52 49 45 53 47 4F 20 44 45 20 50 45 52 44 45 | RIESGO DE PERDE| 00001850: 52 20 44 41 54 4F 53 20 49 0D 50 4F 52 54 41 4E |R DATOS I.PORTAN| 00001860: 54 45 53 2E DF DF 20 20 50 41 52 41 20 43 4C 41 |TES... PARA CLA| 00001870: 52 49 46 49 43 41 52 20 4C 4F 53 20 43 4F 0D 41 |RIFICAR LOS CO.A| 00001880: 4E 44 4F 53 20 55 54 49 4C 49 41 44 4F 53 2C 20 |NDOS UTILIADOS, | 00001890: 4C 45 53 20 4F 46 52 45 43 45 0D 4F 53 20 41 20 |LES OFRECE.OS A | 000018A0: 43 4F 4E 54 49 4E 55 41 43 49 B0 4F 4E 20 55 4E |CONTINUACI.ON UN| 000018B0: 41 20 4C 49 53 54 41 20 44 45 20 43 4F 0D 41 4E |A LISTA DE CO.AN| 000018C0: 44 4F 53 2C 20 51 55 45 20 50 55 45 44 45 4E 20 |DOS, QUE PUEDEN | 000018D0: 41 43 43 45 44 45 52 20 44 49 52 45 43 54 41 0D |ACCEDER DIRECTA.| 000018E0: 45 4E 54 45 20 41 20 55 4E 20 42 4C 4F 51 55 45 |ENTE A UN BLOQUE| 000018F0: 3A DF DF 20 20 44 45 4E 4F 0D 49 4E 41 43 49 B0 |:.. DENO.INACI.| 00001900: 4F 4E 20 20 20 20 20 20 20 20 55 54 49 4C 49 41 |ON UTILIA| 00001910: 43 49 B0 4F 4E DF 20 20 2D 2D 2D 2D 2D 2D 2D 2D |CI.ON. --------| 00001920: 2D 2D 2D 2D 20 20 20 20 20 20 20 20 2D 2D 2D 2D |---- ----| 00001930: 2D 2D 2D 2D 2D 2D 2D DF 20 20 4C 45 45 52 2D 42 |-------. LEER-B| 00001940: 4C 4F 51 55 45 20 20 20 20 20 20 20 20 20 22 42 |LOQUE "B| 00001950: 2D 52 3A 22 3B 43 41 4E 41 4C 3B 44 49 53 50 4F |-R:";CANAL;DISPO| 00001960: 53 49 54 49 56 4F 3B 50 49 53 54 41 3B 42 4C 4F |SITIVO;PISTA;BLO| 00001970: 51 55 45 DF 20 20 47 52 41 42 41 52 2D 42 4C 4F |QUE. GRABAR-BLO| 00001980: 51 55 45 20 20 20 20 20 20 20 22 42 2D 57 3A 22 |QUE "B-W:"| 00001990: 3B 43 41 4E 41 4C 3B 44 49 53 50 4F 53 49 54 49 |;CANAL;DISPOSITI| 000019A0: 56 4F 3B 50 49 53 54 41 3B 42 4C 4F 51 55 45 DF |VO;PISTA;BLOQUE.| 000019B0: 20 20 4F 43 55 50 41 52 2D 42 4C 4F 51 55 45 20 | OCUPAR-BLOQUE | 000019C0: 20 20 20 20 20 20 22 42 2D 41 3A 22 3B 44 49 53 | "B-A:";DIS| 000019D0: 50 4F 53 49 54 49 56 4F 3B 50 49 53 54 41 3B 42 |POSITIVO;PISTA;B| 000019E0: 4C 4F 51 55 45 DF 20 20 4C 49 42 45 52 41 52 2D |LOQUE. LIBERAR-| 000019F0: 42 4C 4F 51 55 45 20 20 20 20 20 20 22 42 2D 46 |BLOQUE "B-F| 00001A00: 3A 22 3B 44 49 53 50 4F 53 49 54 49 56 4F 3B 50 |:";DISPOSITIVO;P| 00001A10: 49 53 54 41 3B 42 4C 4F 51 55 45 DF 20 20 41 50 |ISTA;BLOQUE. AP| 00001A20: 55 4E 54 41 44 4F 52 2D 42 55 46 46 45 52 20 20 |UNTADOR-BUFFER | 00001A30: 20 20 22 42 2D 50 3A 22 3B 43 41 4E 41 4C 3B 50 | "B-P:";CANAL;P| 00001A40: 4F 53 49 43 49 4F 4E DF DF 20 20 45 53 54 4F 53 |OSICION.. ESTOS| 00001A50: 20 53 4F 4E 20 4C 4F 53 20 43 4F 0D 41 4E 44 4F | SON LOS CO.ANDO| 00001A60: 53 20 0D B0 41 53 20 49 0D 50 4F 52 54 41 4E 54 |S ..AS I.PORTANT| 00001A70: 45 53 20 44 45 4C 20 41 43 43 45 53 4F 20 44 49 |ES DEL ACCESO DI| 00001A80: 52 45 43 54 4F 2E 20 54 4F 44 4F 53 20 54 49 45 |RECTO. TODOS TIE| 00001A90: 4E 45 4E 20 45 4E 20 43 4F 0D B0 55 4E 20 51 55 |NEN EN CO..UN QU| 00001AA0: 45 20 41 43 43 45 44 45 4E 20 44 49 52 45 43 54 |E ACCEDEN DIRECT| 00001AB0: 41 0D 45 4E 54 45 20 41 4C 20 43 4F 4E 54 52 4F |A.ENTE AL CONTRO| 00001AC0: 4C 41 44 4F 52 20 44 45 4C 20 46 4C 4F 50 50 59 |LADOR DEL FLOPPY| 00001AD0: 2E 20 41 53 B0 49 20 44 49 53 50 4F 4E 45 20 55 |. AS.I DISPONE U| 00001AE0: 44 2E 20 44 45 20 55 4E 41 53 20 50 4F 53 49 42 |D. DE UNAS POSIB| 00001AF0: 49 4C 49 44 41 44 45 53 2C 20 51 55 45 20 4E 4F |ILIDADES, QUE NO| 00001B00: 20 54 45 4E 44 52 B0 41 20 45 4E 20 4F 54 52 4F | TENDR.A EN OTRO| 00001B10: 53 20 54 49 50 4F 53 20 44 45 20 41 43 43 45 53 |S TIPOS DE ACCES| 00001B20: 4F 2E DF AA 4E 50 DF DF 38 2E 36 20 20 53 41 4C |O...NP..8.6 SAL| 00001B30: 56 41 52 20 55 4E 20 46 49 43 48 45 52 4F 2C 20 |VAR UN FICHERO, | 00001B40: 51 55 45 20 4E 4F 20 48 41 20 53 49 44 4F 20 43 |QUE NO HA SIDO C| 00001B50: 45 52 52 41 44 4F 20 43 4F 52 52 45 43 54 41 4D |ERRADO CORRECTAM| 00001B60: 45 4E 54 45 DF DF 20 20 4E 4F 20 53 55 43 45 44 |ENTE.. NO SUCED| 00001B70: 45 20 0D 55 59 20 41 20 0D 45 4E 55 44 4F 2C 20 |E .UY A .ENUDO, | 00001B80: 50 45 52 4F 20 43 55 41 4E 44 4F 20 53 55 43 45 |PERO CUANDO SUCE| 00001B90: 44 45 2C 20 45 4C 20 44 49 53 47 55 53 54 4F 20 |DE, EL DISGUSTO | 00001BA0: 59 20 45 4C 20 45 53 46 55 45 52 4F 20 4E 45 43 |Y EL ESFUERO NEC| 00001BB0: 45 53 41 52 49 4F 20 53 4F 4E 20 0D 41 59 4F 52 |ESARIO SON .AYOR| 00001BC0: 45 53 2E DF 20 20 B5 20 51 55 B0 45 20 45 53 20 |ES.. . QU.E ES | 00001BD0: 3F DF 20 20 4E 4F 53 20 52 45 46 45 52 49 0D 4F |?. NOS REFERI.O| 00001BE0: 53 20 41 4C 20 53 49 47 55 49 45 4E 54 45 20 50 |S AL SIGUIENTE P| 00001BF0: 52 4F 43 45 53 4F 3A DF 20 20 55 44 2E 20 41 43 |ROCESO:. UD. AC| 00001C00: 41 42 41 20 44 45 20 4F 52 44 45 4E 41 52 20 43 |ABA DE ORDENAR C| 00001C10: 4F 4E 20 0D 55 43 48 4F 20 45 53 46 55 45 52 4F |ON .UCHO ESFUERO| 00001C20: 20 53 55 20 43 4F 4C 45 43 43 49 B0 4F 4E 20 44 | SU COLECCI.ON D| 00001C30: 45 20 44 49 53 43 4F 53 2C 20 59 20 51 55 49 53 |E DISCOS, Y QUIS| 00001C40: 49 45 52 41 20 50 45 52 50 45 54 55 41 52 4C 4F |IERA PERPETUARLO| 00001C50: 53 20 45 4E 20 55 4E 20 44 49 53 4B 45 54 54 45 |S EN UN DISKETTE| 00001C60: 20 50 41 52 41 20 50 4F 44 45 52 20 45 4E 43 4F | PARA PODER ENCO| 00001C70: 4E 54 52 41 52 4C 4F 53 20 0D 41 53 20 46 B0 41 |NTRARLOS .AS F.A| 00001C80: 43 49 4C 0D 45 4E 54 45 2E DF 20 20 45 4C 20 50 |CIL.ENTE.. EL P| 00001C90: 52 4F 43 45 44 49 0D 49 45 4E 54 4F 20 0D 41 53 |ROCEDI.IENTO .AS| 00001CA0: 20 43 4F 0D B0 55 4E 20 43 4F 4E 53 49 53 54 45 | CO..UN CONSISTE| 00001CB0: 20 45 4E 20 47 52 41 42 41 52 20 4C 4F 53 20 4E | EN GRABAR LOS N| 00001CC0: 4F 0D 42 52 45 53 4D B7 4D B7 4D B7 4D B7 4D B7 |O.BRESM.M.M.M.M.| 00001CD0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001CE0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001CF0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D00: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D10: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D20: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D30: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D40: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D50: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D60: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D70: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D80: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001D90: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001DA0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.| 00001DB0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M. |
.
.PN301...FT1,10,70,,*,..7005 PRINT.4,"CO
D. ART.";.7010 PRINT.4,CHR$(16);"15";"TI
PO";.7020 PRINT.4,CHR$(16);"40";"GASTOS"
;.7030 PRINT.4,CHR$(16);"60";"INGRESOS";
.7230 PRINT.4,"SUMAS:";..NP..7270 PRINT.
4,"IVA CO. 6,5 % = ";M1(1);.7280 PRINT.
4,CHR$(16);"40";"IVA CO. 7 % = ";M1(3).
7290 PRINT.4,"IVA CO. 13,0 % = ";M1(2);.
7300 PRINT.4,CHR$(16);"40";"IVA CO. 14 %
= ";M1(4).7310 PRINT.4,"IVA VE. 6,5 %
= ";M2(1);.7320 PRINT.4,CHR$(16);"40";"I
VA VE. 7 % = ";M2(3).7330 PRINT.4,"IVA
VE. 13,0 % = ";M2(2);.7340 PRINT.4,CHR$(
16);"40";"IVA VE. 14 % = ";M2(4).7360 PR
INT.4,"GASTOS = ";S1-M1(1)-M1(2)-M1(3)-M
1(4).7370 PRINT.4,"INGRESOS " ";S2-M2(1)
-M2(2)-M2(3)-M2(4).8020 PRINT "* PROG. A
DMINISTRACION FICHEROS 1.0 *";.8050 PRI
NT TAB(7);"ENTRAR VALES DE CAJA": PRINT
PRINT.8080 PRINT "ESTA CONECTADA LA IMPR
ESORA (S/N)? ";.8100 IF A$<>"S" THEN 809
0.8520 PRINT "* PROG. ADMINISTRACION FIC
HEROS 1.0 *";.8550 PRINT TAB(7);"ENTRAR
VALES DE CAJA": PRINT PRINT..NP..12020
PRINT "ERROR:";X,X$;Y$;Z$... ESPE
RA.OS, QUE DISFRUTE UD. DEL PROGRA.A..NP
..8.5 OTRO METODO : ACCESO DIRECTO.. E
STE TIPO DE ACCESO A DATOS EN DISKETTE E
S IGNORADO FRECUENTE.ENTE. AUNQUE SEA VE
RDADERA.ENTE CO.PLICADO Y LABORIOSO, TIE
NE TA.BI.EN ALGUNOS ASPECTOS INTERESANTE
S. . QUE PODE.OS REALIAR CON EL ACCESO D
IRECTO ?..1.) EL ACCESO A FICHEROS - FIC
HEROS DE ACCESO AL AAR.. ESTE ..ETODO T
IENE ALGO QUE VER CON LA AD.INISTRACI.ON
DE FICHEROS SECUENCIALES, SIN TENER SUS
DESVENTAJAS, Y ALGO CON LA AD.INISTRACI
.ON DE FICHEROS RELATIVOS...2.) EL ACCES
O A DETER.INADAS PISTAS DEL DISKETTE..
CON ESTE ACCESO DISPONE UD. DE POSIBILID
ADES EN LAS QUE HASTA EL .O.ENTO NO HA P
ENSADO, Y CUYO SENTIDO QUI.AS A.UN NO VI
SLU.BRE. LUEGO ENTRARE.OS EN DETALLE...
1. FICHEROS DE ACCESO
AL AAR.. A DIFERENCIA DE LOS FICHEROS
SECUENCIALES Y LOS RELATIVOS, CADA BLOQU
E TIENE AQU.I SIE.PRE UN LONGITUD DE 256
BYTES, POR LO QUE EN UN DISKETTE CABEN
664 BLOQUES. ES POR EJE.PLO FACTIBLE, GR
ABAR EN UN BLOQUE UN TOTAL DE 4 REGISTRO
S DE 64 BYTES CADA UNO. LO .UNICO QUE TI
ENE UD. QUE TENER EN CUENTA, ES ACCEDER
DENTRO DE UNO DE ESTOS BLOQUES AL REGIST
RO QUE UD. REAL.ENTE QUIERE TRATAR. DEBE
R.A UD. ABRIR PRI.ERO UN FICHERO SECUENC
IAL, PARA ANOTAR ALL.I LAS PISTAS EN LAS
QUE HA GRABADO REGISTROS. EN TOTAL NECE
SITAR.A UD. 3 FICHEROS:..1.) FICHERO SEC
UENCIAL PARA LOS APUNTADORES.2.) FICHERO
DE CO.ANDOS.3.) FICHERO DE DATOS PARA L
A GRABACI.ON DIRECTA..NP..10 OPEN 4,8,4,
"FICHERO CBM 64,S,W": REM FICHERO SECUEN
CIAL.20 OPEN 15,8,15: REM CANAL DE COMAN
DOS.30 OPEN 5,8,5,".": REM FICHERO DE DA
TOS.40 TE$="DATA BECKER GMBH".50 PRINT.5
,TE$;",";1: REM TEXTO, NO.REGISTRO.60 T=
1: S=1: REM PISTA=1, BLOQUE=1.70 PRINT.1
5,"B-A:";0,T,S: REM DISPOSITIVO, PISTA,
BLOQUE.80 INPUT.15,ER,NA$,TR,BL: REM LEE
R ERROR.90 IF ER=65 THEN T=TR: S=BL: GOT
O 70.100 PRINT.15,"B-W:";5,0,T,S: REM GR
ABAR REGISTRO.110 PRINT.4,T;",";S.120 CL
OSE 5.130 CLOSE 15.140 CLOSE 4.150 END..
. QU.E HACE ESTE PROGRA.A ? PRI.ERO S
E ABREN LOS TRES FICHEROS NECESARIOS, Y
A CONTINUACI.ON SE DEFINE UN TEXTO, QUE
TIENE QUE SER GRABADO DIRECTA.ENTE. ESTE
TEXTO SE GRABA POR EL .O.ENTO, EN EL FI
CHERO DE DATOS. AHORA E.PIEA EL SISTE.A
OPERATIVO A BUSCAR UN BLOQUE LIBRE EN EL
DISKETTE. LA B.USQUEDA E.PIEA POR LA PI
STA 1, BLOQUE 1, ES DECIR EL PRINCIPIO D
EL DISKETTE. PARA ELLO SE UTILIA LA L.IN
EA 70. "B-A:" SIGNIFICA BLOCK ALLOCATE,
QUE TRADUCIDO EQUIVALE A B.USQUEDA DE BL
OQUE. SE BUSCA, POR LO TANTO, UN BLOQUE
EN EL DISKETTE QUE A.UN NO EST.E GRABADO
, O QUE HAYA SIDO LIBERADO NUEVA.ENTE. P
ARA VER, SI EL BLOQUE EST.A LIBRE HAY QU
E LEER EL CO.ANDO DE CANAL. SI EL C.ODIG
O DE ERROR ES 65, SIGNIFICA, QUE EL BLOQ
UE NO EST.A LIBRE, Y EL ORDENADOR CONTIN
.UA CON LA B.USQUEDA. UNA VE HA ENCONTRA
DO UN BLOQUE LIBRE, GRABA EL TEXTO QUE E
ST.A PREPARADO EN EL FICHERO DE DATOS, C
ON LAS DIRECCIONES DE BLOQUE ENCONTRADAS
EN EL DISKETTE. A CONTINUACI.ON SE GRAB
AN LAS DIRECCIONES EN EL FICHERO SECUENC
IAL PARA QUE EL REGISTRO PUEDA SER ENCON
TRADO DE NUEVO. AL .IS.O TIE.PO, EL SIST
E.A OPERATIVO BLOQUEA ESTA PISTA PARA QU
E NO SEA REGRABADA ACCIDENTAL.ENTE. SE C
IERRAN A CONTINUACI.ON LOS FICHEROS, Y S
E TER.INA EL PROGRA.A...NP.. ES IGUAL.E
NTE INTERESANTE LA RECUPERACI.ON DE LOS
DATOS:..10 OPEN 4,8,4,"FICHERO CBM 64".
20 OPEN 15,8,15.30 OPEN 5,8,5,".".40 INP
UT.4,T,S: REM LEER LAS DIRECCIONES.50 PR
INT.15,"B-R:";5,0,T,S.60 INPUT.5,TE$,RE.
70 PRINT.15,"B-F:";0,T,S.80 CLOSE 5.90 C
LOSE 4.100 PRINT.15,"S:FICHERO CBM 64".1
10 CLOSE 15.. VA.OS A CO.ENTAR TA.BI.EN
ESTE PROGRA.A: DESPU.ES DE ABRIR LOS FI
CHEROS, SE LEE LA DIRECCI.ON DEL BLOQUE
EN EL QUE EST.AN GRABADOS REAL.ENTE LOS
DATOS, EN NUESTRO CASO, EL TEXTO. DESPU.
ES DE ESTO, SE LIBERA DE NUEVO ESTE BLOQ
UE .EDIANTE EL CO.ANDO BLOCK-FREE. ESTO
SE DEBE HACER, NATURAL.ENTE, S.OLO CUAND
O SE PUEDA BORRAR EL BLOQUE. A CONTINUAC
I.ON SE CIERRAN DE NUEVO EL FICHERO SECU
ENCIAL, EL DE DATOS Y EL DE CO.ANDOS....
2. EL ACCESO DIRECTO
EN EL DISKETTE.. ESTE TIPO DE ACCESO P
ER.ITE CO.O SU NO.BRE INDICA, EL ACCESO
DIRECTO A CUALQUIER PISTA Y BLOQUE, ES D
ECIR LA LECTURA DE INFOR.ACI.ON DIRECTA.
ENTE DESDE EL DISKETTE, SIN ABRIR PREVIA
.ENTE FICHEROS. AS.I PUEDE UD. LEER F.AC
IL.ENTE, POR EJE.PLO, EL DIRECTORIO, SIN
TENER QUE UTILIAR EL CO.ANDO LOAD"$",8
Y DESTRUIR POR ELLO ALG.UN PROGRA.A QUE
EST.E EN .E.ORIA. SE PUEDE TA.BI.EN .OD
IFICAR UN PROGRA.A EN DISKETTE, SIN TENE
R QUE CARGARLO; INCLUSO SE PUEDEN REPARA
R, EN DETER.INADOS CASOS, PROGRA.AS DEST
RU.IDOS...NP.. ESTOS ACCESOS SON SIN E.
BARGO TAN PELIGROSOS, QUE QUERE.OS ADVER
TIR A TODOS LOS PROGRA.ADORES, NO UTILIA
RLOS, SIN TENER CONOCI.IENTOS EXACTOS SO
BRE LA ESTRUCTURA DEL DISKETTE, DEL DIRE
CTORIO, BAM O DEL PROPIO PROGRA.A. ES .U
Y F.ACIL DESTRUIR CON ELLO FICHEROS Y DI
SKETTES ENTEROS. L.EA POR ELLO CON DETEN
I.IENTO EL .ANUAL DEL FLOPPY 1541 DE CO.
.ODORE. DESGRACIADA.ENTE NO PODE.OS ENTR
ETENERNOS AQU.I PARA EXPLICAR CON DETALL
E LA CO.POSICI.ON DEL DIRECTORIO, BAM ET
C., YA QUE DESBORDAR.IA LA CAPACIDAD DE
ESTE LIBRO. SI UD. TIENE NO OBSTANTE, IN
TER.ES EN EXPERI.ENTAR CON ESTAS POSIBIL
IDADES, LE RECO.ENDA.OS TRABAJAR CON UN
DISKETTE DE PRUEBA; AL .ENOS AS.I NO SE
CORRE EL RIESGO DE PERDER DATOS I.PORTAN
TES... PARA CLARIFICAR LOS CO.ANDOS UTI
LIADOS, LES OFRECE.OS A CONTINUACI.ON UN
A LISTA DE CO.ANDOS, QUE PUEDEN ACCEDER
DIRECTA.ENTE A UN BLOQUE:.. DENO.INACI.
ON UTILIACI.ON. ------------
-----------. LEER-BLOQUE "B
-R:";CANAL;DISPOSITIVO;PISTA;BLOQUE. GR
ABAR-BLOQUE "B-W:";CANAL;DISPOSITI
VO;PISTA;BLOQUE. OCUPAR-BLOQUE "B
-A:";DISPOSITIVO;PISTA;BLOQUE. LIBERAR-
BLOQUE "B-F:";DISPOSITIVO;PISTA;BLO
QUE. APUNTADOR-BUFFER "B-P:";CANAL;P
OSICION.. ESTOS SON LOS CO.ANDOS ..AS I
.PORTANTES DEL ACCESO DIRECTO. TODOS TIE
NEN EN CO..UN QUE ACCEDEN DIRECTA.ENTE A
L CONTROLADOR DEL FLOPPY. AS.I DISPONE U
D. DE UNAS POSIBILIDADES, QUE NO TENDR.A
EN OTROS TIPOS DE ACCESO...NP..8.6 SAL
VAR UN FICHERO, QUE NO HA SIDO CERRADO C
ORRECTAMENTE.. NO SUCEDE .UY A .ENUDO,
PERO CUANDO SUCEDE, EL DISGUSTO Y EL ESF
UERO NECESARIO SON .AYORES.. . QU.E ES
?. NOS REFERI.OS AL SIGUIENTE PROCESO:.
UD. ACABA DE ORDENAR CON .UCHO ESFUERO
SU COLECCI.ON DE DISCOS, Y QUISIERA PER
PETUARLOS EN UN DISKETTE PARA PODER ENCO
NTRARLOS .AS F.ACIL.ENTE.. EL PROCEDI.I
ENTO .AS CO..UN CONSISTE EN GRABAR LOS N
O.BRESM.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.
> CLICK IMAGE PREVIEW FOR FULL MODAL