7 lines
195 B
Text
7 lines
195 B
Text
include c:\cxpl\codes;
|
|
int W, H;
|
|
[W:= Peek($40, $4A); \IBM-PC BIOS data
|
|
H:= Peek($40, $84) + 1;
|
|
Text(0, "Terminal width and height = ");
|
|
IntOut(0, W); ChOut(0, ^x); IntOut(0, H);
|
|
]
|