Terminal control/Positional read: Difference between revisions
Content added Content deleted
m (promoted to task) |
(Added XPL0) |
||
Line 121: | Line 121: | ||
other = scrRead(40, 6, 1) /*same thing, but for row forty. */ |
other = scrRead(40, 6, 1) /*same thing, but for row forty. */ |
||
/*stick a fork in it, we're done.*/</lang> |
/*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}} |
{{omit from|ACL2}} |