10 lines
325 B
Text
10 lines
325 B
Text
CHARACTER name='myfile.txt', string*1000
|
|
|
|
OPEN(FIle=name, OLD, LENgth=bytes, IOStat=errorcode, ERror=9)
|
|
|
|
DO line = 1, bytes ! loop terminates with end-of-file error at the latest
|
|
READ(FIle=name, IOStat=errorcode, ERror=9) string
|
|
WRITE(StatusBar) string
|
|
ENDDO
|
|
|
|
9 WRITE(Messagebox, Name) line, errorcode
|