W-- title: New type of music -- author: DarkerBit -- desc: Originally came up by accident -- script: lua freq = 64 sr = 0xFF9C t = 0 function make() local out = (t*(((t>>9)&3)|(t>>8))) >> (t >> 16) >> 1 t = t + 1 return out end beat = 1152 note = 0 function TIC() if t % beat == 0 then local id = 0 local n = "A-1" note = note + 1 if note == 3 or note == 5 then id = 1 n = "A-5" elseif note == 7 then note = 0 end sfx(id, n, -1, 1, 10) end if btnp(2) then freq = freq / 2 end if btnp(3) then freq = freq * 2 end freq = math.floor(freq) if freq < 16 then freq = 16 end if freq > 512 then freq = 512 end cls(0) local w = print(math.floor(t/65536)) w = w + print("/",w,0) w = w + print(math.floor(t/8192) % 8, w,0) print(" (/8)",w,0) spr(1, 0, 8) w = print(freq, 9, 9) spr(2, 9+w, 8) poke(sr, freq & 0xFF) poke(sr+1, ((freq & 0xF00) >> 8) | (8 << 4)) for i=2,17 do local a = make() & 0xF & make() & 0xF local b = make() & 0xF line(0, (i-2)*2+16, a*2, (i-2)*2+16,15) line(0, (i-2)*2+17, b*2, (i-2)*2+16,15) poke(sr+i, a | (b << 4)) end end  001112334568:;<=>????????????? 02TvͫgE#2Tv2Tv 0 D$404mNJNL04e$FHuqaY}},m,Ҫm^GIF89aw! NETSCAPE2.0!,  ˟ؾo^ ^=y򗔃J'\u}h^"2](,0(4h8<@)DiH&L6PF)TViXf\v`)dihlp)tix|矀*蠄j衈&袌6裐F*餔Vj饘f*Z@;