rem lauflicht out 32888,0:out 32889,0:out 32890,0 out 32891,128 for a=0 to 7 out 32888,2^a for w=0 to 100:next w next a:out 32888,0 for b=0 to 3 out 32889,2^b for w=0 to 100:next w next b:out 32889,0 for c=0 to 5 if c=2 then next c out 32890,2^c for w=0 to 100:next w next c:out 32890,0