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 |
<lang rexx>/*REXX program demonstrates reading a character from (at) at specific screen location. */ |
||
row = 6 /*point to a particular row on screen*/ |
|||
col = 3 /* |
col = 3 /* " " " " column " " */ |
||
howMany = 1 |
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, |
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}}== |