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

7 lines
273 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
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
]