3
{ Program to demonstrate the GetVideoMode function. }
5
Uses video,keyboard,vidutil;
16
TextOut(1,1,'Current mode has color')
18
TextOut(1,1,'Current mode does not have color');
20
TextOut(1,2,'Number of rows : '+S);
22
TextOut(1,3,'Number of columns : '+S);
23
Textout(1,4,'Press any key to exit.');