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

10 lines
154 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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)