3
{ Program to demonstrate the GetLockScreenCount function. }
5
Uses video,keyboard,vidutil;
14
TextOut(1,1,'Press key till new text appears.');
17
For I:=0 to Random(10)+1 do
20
While GetLockScreenCount<>0 do
26
TextOut(1,1,'UnLockScreenUpdate had to be called '+S+' times');
29
TextOut(1,2,'Press any key to end.');