8 lines
72 B
Text
8 lines
72 B
Text
|
Filename:S-TIMER
|
||
|
|
L*1000->Q
|
||
|
|
0->R
|
||
|
|
Do
|
||
|
|
R+1->R
|
||
|
|
LpWhile R<Q
|
||
|
|
0->R
|
||
|
|
Return
|