cmd_abo.pas

   1 program GeneradorDeArchivosDeComandos;\r
   2 {\r
   3    Programa para generar archivos de comandos\r
   4 }\r
   5 \r
   6 uses\r
   7    PROG_GRL, DOS;\r
   8 \r
   9 var\r
  10    fSal: T_ARCHIVO_COMANDOS_ABO;\r
  11    c: T_COMANDO_ABO;\r
  12    dir: dirstr;\r
  13    fname: namestr;\r
  14    ext: extstr;\r
  15 \r
  16 begin\r
  17    mensajeDeEntrada( 'Programa para crear archivos de comandos de ABO.' );\r
  18    if paramcount < 1 then begin\r
  19       fsplit( paramstr( 0 ), dir, fname, ext );\r
  20       writeln;\r
  21       writeln;\r
  22       writeln( 'ERROR: numero de parametros incorrectos.' );\r
  23       writeln;\r
  24       writeln( 'Modo de uso:' );\r
  25       writeln( '             ', fname, ' archivo_entrada' );\r
  26       writeln;\r
  27       exit; { -------------------------------------> SALE DEL PROGRAMA!!!!!!!!!! }\r
  28    end;\r
  29    if ( not existeArchivo( paramstr( 1 ) ) ) then\r
  30       writeln( 'Escribiendo en el "', paramstr( 1 ), '".' )\r
  31    else\r
  32       writeln( 'Sobrescribiendo en el archivo "', paramstr( 1 ), '".' );\r
  33    assign( fSal, paramstr( 1 ) );\r
  34    rewrite( fSal );\r
  35    while true do begin { Repite hasta que el comando sea nulo }\r
  36       writeln;\r
  37       writeln;\r
  38       writeln( 'INGRESO DE UN NUEVO REGISTRO DE ABO' );\r
  39       writeln( '======= == == ===== ======== == ===' );\r
  40       writeln;\r
  41       write( 'Comando (IO, BC, BO, MO, LI, <ENTER>: sale): ' );\r
  42       readln( c.comando );\r
  43       if ( c.comando = '' ) then\r
  44          exit; { ----------------------------------> SALE DEL PROGRAMA!!!!!!!!!! }\r
  45       write( 'DNI: ' );\r
  46       readln( c.dni );\r
  47       if ( c.dni = '' ) then\r
  48          c.dni := '*';\r
  49       write( 'Nombre: ' );\r
  50       readln( c.nombre );\r
  51       if ( c.nombre = '' ) then\r
  52          c.nombre := '*';\r
  53       write( fSal, c );\r
  54    end;\r
  55    close( fSal );\r
  56    writeln;\r
  57    writeln( 'Se escribio correctamente el archivo "', paramstr( 1 ), '".' );\r
  58    writeln( 'FIN DEL PROGRAMA' );\r
  59    writeln;\r
  60 end.\r
  61 \r