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