e0dcfa0c55
* Remove multiple newlines at the end of file * Remove the white space from the end of line
6 lines
133 B
QBasic
6 lines
133 B
QBasic
10 open "i",1,"/mnt/romfs/test37.dat"
|
|
20 while not eof(1)
|
|
30 line input #1,a$
|
|
40 if a$="abc" then print a$; else print "def"
|
|
50 wend
|