ÀÜþÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝíÿÌÝÝÍÌÝÝÝÌÞÝÝÌîÝÝÀüîîÀüÿÿÀüÿÌÌÌÌÌÌÌÌÝÝÝÝÝÝÝÝÝÝÝÝîîîîÿÿÿÿÿÿÿÿÌÌÌ ÌÌÌÌÝÝÝÍÝÝÝÝÝÝÝíîîîþÿÿÿÿÿÿÿDDD@333433343334333433343334333DDDD3333333333333333333333333333DDD333333#333#333#333#333#333#4333433343334333433343334333433333333333333333333333333333333333333#333#333#333#333#333#333#333#433343334333433343334333@333"""3333333333333333333333333333""""333#333#333#333#333#333#333"""?DDDDD@DDDD 1222222223ABBBBBBBBC"""""""""""""""""""#QRRRRRRRRS >?sound=0x0FF9C rnd=math.random cursor=0x3FFB function TIC() poke(cursor,0x1) map() mx,my=mouse() freq=(3000*math.log(1+mx/240))//1 vol=(0xf*(1-my/136))//1 waveform="ffffffff00000000" --waveform="03689acffca98630" poke4(2*sound, freq&0x00f) poke4(2*sound+1, (freq&0x0f0)>>4) poke4(2*sound+2, (freq&0xf00)>>8) poke4(2*sound+3, vol) for i=0,7 do byte=tonumber(waveform:sub(1+2*i,2+2*i),16) trace(byte) poke(sound+2+i, byte) end print(string.format("freq: %d",freq),180,4,12) print(string.format("vol: %d ",vol),190,14,12) print("Theremin-80",10,121,15) end