3 lines
108 B
Text
3 lines
108 B
Text
procedure main()
|
|
write(&progname) # obtain and write out the program name from the keyword &progname
|
|
end
|