5 lines
135 B
Text
5 lines
135 B
Text
procedure main()
|
|
write("Creating: ",fName := !open("mktemp","rp"))
|
|
write(f := open(fName,"w"),"Hello, world")
|
|
close(f)
|
|
end
|