Terminal control/Positional read: Difference between revisions

Content added Content deleted
(added Perl programming solution)
m (→‎{{header|REXX}}: added/changed comments and whitespace.)
Line 408: Line 408:
{{works with|PC/REXX}}
{{works with|PC/REXX}}
{{works with|Personal REXX}}
{{works with|Personal REXX}}
<lang rexx>/*REXX program demonstrates reading a char at specific screen location.*/
<lang rexx>/*REXX program demonstrates reading a character from (at) at specific screen location. */
row = 6 /*point to row six. */
row = 6 /*point to a particular row on screen*/
col = 3 /*point to column three. */
col = 3 /* " " " " column " " */
howMany = 1 /*read one character. */
howMany = 1 /*read this many characters from screen*/


stuff = scrRead(row, col, howMany) /*this'll do it. */
stuff = scrRead(row, col, howMany) /*this'll do it. */


other = scrRead(40, 6, 1) /*same thing, but for row forty. */
other = scrRead(40, 3, 1) /*same thing, but for row forty. */
/*stick a fork in it, we're done.*/</lang>
/*stick a fork in it, we're all done. */</lang><br><br>


=={{header|TXR}}==
=={{header|TXR}}==