RosettaCodeData/Task/Terminal-control-Positional-read/XPL0/terminal-control-positional-read.xpl0
2023-07-01 13:44:08 -04:00

6 lines
273 B
Text

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
]