RosettaCodeData/Task/Write-entire-file/QBasic/write-entire-file.basic

5 lines
109 B
Plaintext

f = FREEFILE
OPEN "output.txt" FOR OUTPUT AS #f
PRINT #f, "This string is to be written to the file"
CLOSE #