21 lines
541 B
Text
21 lines
541 B
Text
/*
|
|
Take notes on the command line. Rosettacode.org
|
|
*/
|
|
#include <basico.h>
|
|
|
|
algoritmo
|
|
|
|
cuando ' no existe el archivo ("NOTES.txt") ' {
|
|
sys = `touch NOTES.txt`; luego limpiar 'sys'
|
|
}
|
|
|
|
si ' total argumentos es (1) '
|
|
cargar cadena desde ("NOTES.txt"); luego imprime
|
|
sino
|
|
msg=""; obtener todos los parámetros, guardar en 'msg'
|
|
#( msg = strtran("@","\n\t",msg) )
|
|
fijar separador 'NULO'
|
|
fecha y hora, "\n\t", msg, "\n\n", unir esto;
|
|
añadir al final de ("NOTES.txt")
|
|
fin si
|
|
terminar
|