1730 PRINT : PRINT : INPUT "Creacion de Archivo de Resultados ? (N) = ",A$