Kernighans large earthquake problem: Difference between revisions
Kernighans large earthquake problem en BASIC256
(Kernighans large earthquake problem en FreeBASIC) |
(Kernighans large earthquake problem en BASIC256) |
||
Line 509:
5/18/1980 MountStHelens 7.6
1/25/4567 EdgeCase3 6.1</pre>
=={{header|BASIC256}}==
<lang BASIC256>
f = freefile
filename$ = "data.txt"
open f, filename$
dim tok$(1)
while not eof(f)
tok$[] = readline(f)
if (right(tok$[], 4)) > 6 then print tok$[]
end while
close f
end
</lang>
=={{header|C}}==
| |||