Filename:S-GKTIME
L*1000->Q
0->R
0->Z
Do
Getkey->A
If A!=0 And Z=0
Then A->Z
IfEnd
R+1->R
LpWhile R<Q
0->R
Return