12 lines
389 B
Text
12 lines
389 B
Text
#! /usr/local/bin/snobol4 -b
|
|
a = 2 ;* skip '-b' parameter
|
|
notefile = "notes.txt"
|
|
while args = args host(2,a = a + 1) " " :s(while)
|
|
ident(args) :f(append)
|
|
noparms input(.notes,io_findunit(),,notefile) :s(display)f(end)
|
|
display output = notes :s(display)
|
|
endfile(notes) :(end)
|
|
append output(.notes,io_findunit(),"A",notefile) :f(end)
|
|
notes = date()
|
|
notes = char(9) args
|
|
end
|