4 lines
90 B
Text
4 lines
90 B
Text
procedure main()
|
|
write(map(&date,"/","-"))
|
|
write(&dateline ? tab(find(&date[1:5])+4))
|
|
end
|