17 lines
278 B
Text
17 lines
278 B
Text
Dim As Long f
|
|
Dim As String message
|
|
|
|
f = Freefile
|
|
Open "temp.txt" For Output As #f
|
|
If Err > 0 Then Print "Failed to open temp"; f : End
|
|
Print #f, "Hello world!"
|
|
Close #f
|
|
|
|
Open "temp.txt" For Input As #f
|
|
Line Input #f, message
|
|
Close #f
|
|
Print message
|
|
|
|
Shell "del temp.txt"
|
|
|
|
Sleep
|