10 lines
89 B
Text
10 lines
89 B
Text
|
Filename:S-GK
|
||
|
|
0->L
|
||
|
|
Do
|
||
|
|
Getkey->A
|
||
|
|
If A!=0
|
||
|
|
Then A->Z
|
||
|
|
Break
|
||
|
|
IfEnd
|
||
|
|
LpWhile L=0
|
||
|
|
Return
|