8 lines
123 B
Text
8 lines
123 B
Text
# Program to overwrite an existing file
|
|
|
|
open(11,FILE="file.txt")
|
|
101 format(A)
|
|
write(11,101) "Hello World"
|
|
close(11)
|
|
|
|
end
|