9 lines
181 B
Turing
9 lines
181 B
Turing
$$ MODE TUSCRIPT
|
|
file="a.txt"
|
|
ERROR/STOP OPEN (file,READ,-std-)
|
|
ACCESS source: READ/RECORDS/UTF8 $file s,text
|
|
LOOP
|
|
READ/NEXT/EXIT source
|
|
PRINT text
|
|
ENDLOOP
|
|
ENDACCESS source
|