Anonymous user
Terminal control/Restricted width positional input/With wrapping: Difference between revisions
Terminal control/Restricted width positional input/With wrapping (view source)
Revision as of 17:27, 16 July 2021
, 2 years ago→{{header|REXX}}: added comments.
(→{{header|REXX}}: added the computer programming language REXX.) |
m (→{{header|REXX}}: added comments.) |
||
Line 364:
=={{header|REXX}}==
<lang rexx>/*REXX pgm reads text from the terminal screen from a certain row, column, and length.*/
parse arg row col len . /*obtain optional arguments from the CL*/
if row=='' | row=="," then row=
if col=='' | col=="," then col=
if len=='' | len=="," then len=
parse upper version v . /*obtain the version of REXX being used*/
if v\=='REXX/PERSONAL' then do; say /*Not correct version? Tell err msg.
say '***error***:'
say 'This REXX program requires Personal REXX version.'
say
exit 13
end
$= scrread(row, col, len)
| |||