RosettaCodeData/Task/Write-entire-file/Action-/write-entire-file.action

6 lines
83 B
Plaintext

proc MAIN()
open (1,"D:FILE.TXT",8,0)
printde(1,"My string")
close(1)
return