print"porttest"
out 32891,128:out 32888,0:out 32889,0
out 32890,0
1 a$=inkey$:if a$="" then 1
if a$="r" then out 32890,2:out 32890,3:for z=0 to 1000:next z:out 32890,2
g=g+1:print"Schritt ";g
out 32890,0
goto 1
out 32888,0:out 32889,0:out 32890,0