RosettaCodeData/Task/Terminal-control-Positional.../XPL0/terminal-control-positional...

7 lines
273 B
Plaintext

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
]