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