12 lines
282 B
Text
12 lines
282 B
Text
|
If OpenConsole() And ReadFile(0,"data.txt")
|
||
|
|
PrintN("Those earthquakes with a magnitude > 6.0 are:")
|
||
|
|
While Not Eof(0)
|
||
|
|
buf$=Trim(ReadString(0))
|
||
|
|
If ValF((StringField(buf$,CountString(buf$," ")+1," ")))>6.0
|
||
|
|
PrintN(buf$)
|
||
|
|
EndIf
|
||
|
|
Wend
|
||
|
|
CloseFile(0)
|
||
|
|
Input()
|
||
|
|
EndIf
|