RosettaCodeData/Task/Input-loop/Ring/input-loop.ring

10 lines
154 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
fp = fopen("C:\Ring\ReadMe.txt","r")
r = fgetc(fp)
while isstring(r)
r = fgetc(fp)
if r = char(10) see nl
else see r ok
end
fclose(fp)