Terminal control/Positional read: Difference between revisions
(→REXX: deleted entry.) |
m (→{{header|REXX}}: delerted previous entry, re-added language.) |
||
Line 10: | Line 10: | ||
20 REM So we subtract one from the coordinates |
20 REM So we subtract one from the coordinates |
||
30 LET c$ = SCREEN$(5,2)</lang> |
30 LET c$ = SCREEN$(5,2)</lang> |
||
=={{header|REXX}}== |
|||
The REXX doesn't have any cursor or screen management tools, but some REXX interpreters have |
|||
<br>added the functionality via different methods. |
|||
<br><br>Below is one example PC/REXX has implemented: |
|||
<lang rexx> |
|||
/*REXX program demonstrates reading a char at specific screen location.*/ |
|||
/*──────────────────────────────────────────────────────────────────────*/ |
|||
/*─────────────────────examples are for PC/REXX only.───────────────────*/ |
|||
/*──────────────────────────────────────────────────────────────────────*/ |
|||
row=20 /*point to row twenty. */ |
|||
col=55 /*point co column fifty-five. */ |
|||
howMany=3 /*read a trio of characters. */ |
|||
stuff=scrread(row,col,howMany) /*this'll do it. */ |
|||
other=scrRead(40,55,2) /*same thing, but for row forty. */ |
|||
</lang> |
Revision as of 20:09, 16 December 2010
Determine the character displayed on the screen at column 3, row 6 and store that character in a variable.
BASIC
ZX Spectrum Basic
<lang basic> 10 REM The top left corner is at position 0,0
20 REM So we subtract one from the coordinates 30 LET c$ = SCREEN$(5,2)</lang>
REXX
The REXX doesn't have any cursor or screen management tools, but some REXX interpreters have
added the functionality via different methods.
Below is one example PC/REXX has implemented:
<lang rexx>
/*REXX program demonstrates reading a char at specific screen location.*/
/*──────────────────────────────────────────────────────────────────────*/
/*─────────────────────examples are for PC/REXX only.───────────────────*/
/*──────────────────────────────────────────────────────────────────────*/
row=20 /*point to row twenty. */
col=55 /*point co column fifty-five. */
howMany=3 /*read a trio of characters. */
stuff=scrread(row,col,howMany) /*this'll do it. */
other=scrRead(40,55,2) /*same thing, but for row forty. */
</lang>