Anonymous user
Remove lines from a file: Difference between revisions
m
→{{header|BASIC}}
Line 200:
iOk = 4 ' The file is not a text file
END IF
PRINT▼
PRINT ErrorMessage$(iOk)▼
ELSE
iOk = 5 ' Null file name not allowed
PRINT "You need to type a file name, please."▼
END IF
PRINT "Do you want to try again? (Y/N)"
LOOP UNTIL YorN$ = "N"
Line 323 ⟶ 322:
CASE 3: sError = "File doesn't exist. Process aborted."
CASE 4: sError = "The file doesn't seem to be a text file. Process aborted."
END SELECT
| |||