QL Programación Avanzada | ||
---|---|---|
Anterior | Siguiente |
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 |