0keyoff:clear999:definta-z:b=999:readz$:deffnnn(i)=int(rnd(-time)*i):dimu(b):p=1