Jump to content

Terminal control/Positional read: Difference between revisions

m
→‎{{header|REXX}}: added/changed comments and whitespace.
(added Perl programming solution)
m (→‎{{header|REXX}}: added/changed comments and whitespace.)
Line 408:
{{works with|PC/REXX}}
{{works with|Personal REXX}}
<lang rexx>/*REXX program demonstrates reading a charcharacter from (at) at specific screen location. */
row = 6 row = 6 /*point to row six. /*point to a particular row on screen*/
col = 3 /*point to column" three. " " " column " " */
howMany = 1 /*read one character. /*read this many characters from screen*/
 
stuff = scrRead(row, col, howMany) /*this'll do it. */
 
other = scrRead(40, 63, 1) /*same thing, but for row forty. */
/*stick a fork in it, we're all done. */</lang><br><br>
 
=={{header|TXR}}==
Cookies help us deliver our services. By using our services, you agree to our use of cookies.