Programming Fundamentals/Files/Pseudocode

files.txt

Main

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

CreateFile

Declare Integer C <- 0
Declare Real F <- 0

Open Filename
Display "C   F"
For C = 0 To 50
    Set F = C * 9.0 / 5 + 32
    Display C, "   ", F
End For

Close Filename

ReadFile

Declare String Line

Open Filename
While Not EOF(Filename)
    Input Line
    Display Line
End While

Close Filename

AppendFile

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

DeleteFile

Delete Filename

See Also

• Pseudocode

Programming Fundamentals/Files

BASIC →