CC / TEST TAPE CREATOR

--
-- CC TEST TAPE CREATOR
--
-- made for CC Tweaked / Computercraft and Computronics
--
--

tape = peripheral.wrap("bottom")
tape.seek(-tape.getSize())

--PITCH IS EXPONENTIAL
-- 3 = 1000hz
-- 6 = 500hz
-- 12 = 250hz
-- 24 = 125hz
--in HZ !
pitch=300

pitch=((3*1000)/pitch)
for i=1,333*(5/pitch) do
    for t=1,pitch do
        tape.write(155)
    end
    for t=1,pitch do
        tape.write(100)
    end
    if ((i%500)==0) then
        sleep(0.1)
    end
    write("*")
end