rem maxport
out 32888,0:out 32889,0:out 32890,0
out 32891,128
out 32888,255:out 32889,255:out 32890,255
for a=0 to 10000:next a
out 32888,0:out 32889,0:out 32890,0