QL Programación Avanzada
Anterior Siguiente

Apéndice T - Utilidad para copias de seguridad de microdrives

Este pequeño programa en BASIC permite hacer copias de seguridad de cartuchos de microdrive. A diferencia de la mayoría de los programas de copia, no requiere que se especifiquen los nombres de todos los ficheros del cartucho en las sentencias de datos.

El catálogo de entradas de mdv2_ se copia dentro del fichero llamado mdv1_dir. Después se leen la entradas desde el nuevo fichero de una en una y se copian los ficheros correspondientes. Para mantener informado al operador del estado actual de la copia, el programa imprimirá el nombre de cada nuevo fichero que comience la transferencia.

100 REMark Utilidad de copia de microdrives
110 OPEN_NEW #3,mdv1_dir
120 DIR #3,mdv2_
130 OPEN_IN #3,mdv1_dir
140 INPUT #3,a$;a$
150 REPeat copia
160   IF EOF(#3) THEN EXIT copia
170   INPUT #3,a$
180   PRINT "Copiando mdv1_";a$
190   COPY 'mdv2_'&a$ TO 'mdv1_'&a$
200 END REPeat copia
210 CLOSE #3
220 DELETE mdv1_dir


Anterior Tabla de contenidos Siguiente
Bloque de definición de ventana   Circuito para impresora paralela