Declare String Filename
Set Filename = "~file.txt"
If FileExists(Filename) Then
Display "File already exists."
Else
Call CreateFile(Filename)
Call ReadFile(Filename)
Call AppendFile(Filename)
Call ReadFile(Filename)
Call DeleteFile(Filename)
End If
Declare Integer C
Declare Real F
Open Filename
Display "C F"
For C = 0 To 50
Set F = C * 9.0 / 5 + 32
Display C, " ", F
End For
Close Filename
Declare String Line
Open Filename
While Not EOF(Filename)
Input Line
Display Line
End While
Close Filename
Declare Integer C
Declare Real F
Open Filename
For C = 51 To 100
Set F = C * 9.0 / 5 + 32
Display C, " ", F
End For
Close Filename
Delete Filename