Anonymous user
Terminal control/Restricted width positional input/No wrapping: Difference between revisions
Terminal control/Restricted width positional input/No wrapping (view source)
Revision as of 17:31, 16 July 2021
, 2 years ago→{{header|REXX}}: added the computer programming language REXX.
(→{{header|REXX}}: added the computer programming language REXX.) |
|||
Line 305:
print "\e[H\e[J{@screen.join: "\n"}\e[$row;{$column}H$str\e[$row;{$column + $pointer}H";
}</lang>
=={{header|REXX}}==
(Only works with: REXX/Personal)
<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= 3 /*Not specified? Then use the default.*/
if col=='' | col=="," then col= 5 /* " " " " " " */
if len=='' | len=="," then len= 8 /* " " " " " " */
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)
say 'data read from terminal row ' row " col " col ' length ' len " is:"
say $
exit 0 /*stick a fork in it, we're all done. */</lang>
<br><br>
| |||