Terminal control/Positional read: Difference between revisions
Added XPL0
m (promoted to task) |
(Added XPL0) |
||
Line 121:
other = scrRead(40, 6, 1) /*same thing, but for row forty. */
/*stick a fork in it, we're done.*/</lang>
=={{header|XPL0}}==
<lang XPL0>include c:\cxpl\stdlib;
int C;
[Cursor(3, 6); \move cursor to column 3, row 6 (top left = 0,0)
\Call BIOS interrupt routine to read character (& attribute) at cursor position
C:= CallInt($10, $0800, 0) & $00FF; \mask off attribute, leaving the character
]</lang>
{{omit from|ACL2}}
| |||