Filename:S-TIMER
L*1000->Q
0->R
Do
R+1->R
LpWhile R<Q
0->R
Return