aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Take-notes-on-the-command-line/REXX/take-notes-on-the-command-line.rexx
View file

@ -1,15 +1,15 @@
/*REXX program implements the "NOTES" command (append text to a file).*/
timestamp=right(date(),11,0) time() date('W') /*create date/time stamp.*/
nFID = 'NOTES.TXT' /*the fileID of the "notes" file.*/
/*REXX program implements the "NOTES" command (append text to a file from the C.L.).*/
timestamp=right(date(),11,0) time() date('W') /*create a (current) date & time stamp.*/
nFID = 'NOTES.TXT' /*the fileID of the "notes" file. */
if 'f0'x==0 then tab='05'x /*this is an EBCDIC system. */
else tab='09'x /* " " " ASCII " */
if 'f2'x==2 then tab="05"x /*this is an EBCDIC system. */
else tab="09"x /* " " " ASCII " */
if arg()==0 then do while lines(nFID) /*No args? Then show the file. */
say linein(Nfid) /*show a line of file ──► screen.*/
if arg()==0 then do while lines(nFID) /*No arguments? Then display the file.*/
say linein(Nfid) /*display a line of file ──► screen. */
end /*while*/
else do
call lineout nFID,timestamp /*append the timestamp. */
call lineout nFID,tab||arg(1) /*append the "note" text*/
call lineout nFID,timestamp /*append the timestamp to "notes" file.*/
call lineout nFID,tab||arg(1) /* " " text " " " */
end
/*stick a fork in it, we're done.*/
/*stick a fork in it, we're all done. */