13 lines
No EOL
125 B
Text
13 lines
No EOL
125 B
Text
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 |