28 lines
337 B
Rexx
28 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
|