Hallo dirk doch es geht

define i byte[7]

#LOOP

for i = 50 to 250 step 5
beep i,0,0:next
for i = 50 to 250 step 5
beep i,0,0:next
for i = 50 to 250 step 5
beep i,0,0:next
beep 200,1,1

goto LOOP

das was du mir geschrieben hast ( define i byte[7] )