CLS
DO
i = i + 1
POKE i, 0
IF i MOD 65536 = 0 THEN PRINT i
ii = i + 100
IF ii > 32767 THEN ii = ii - 32767
SOUND ii, 1
 LOOP