10 lines
233 B
Text
10 lines
233 B
Text
start_up = proc ()
|
|
pi: stream := stream$primary_input()
|
|
po: stream := stream$primary_output()
|
|
|
|
while true do
|
|
stream$putc(po, stream$getc(pi))
|
|
end except when end_of_file:
|
|
return
|
|
end
|
|
end start_up
|