27 lines
337 B
Rexx
27 lines
337 B
Rexx
-- 23 Aug 2025
|
|
include Setting
|
|
|
|
say 'INPUT LOOP'
|
|
say version
|
|
say
|
|
call Streaming
|
|
call Pulling
|
|
exit
|
|
|
|
Streaming:
|
|
say 'Using LineIn and LineOut...'
|
|
do until input = ''
|
|
input=LineIn()
|
|
call LineOut ,input
|
|
end
|
|
return 0
|
|
|
|
Pulling:
|
|
say 'Using pull and say...'
|
|
do until input = ''
|
|
parse pull input
|
|
say input
|
|
end
|
|
return 0
|
|
|
|
include Abend
|