#! /usr/bin/sdlbrt

fout$="1.kftm"

open fout$ for output as #1

writebyte(1,0x6B)
writebyte(1,0x66)
writebyte(1,0x74)
writebyte(1,0x6D)
writebyte(1,0x01)
writebyte(1,0x00)

for i=0 to 63:writebyte(1,0x00):next
for i=0 to 63:writebyte(1,0x00):next
for i=0 to 63:writebyte(1,0x00):next

writebyte(1,0x9C)
writebyte(1,0x03)

for j=0 to 923
  for i=0 to 9:writebyte(1,0x00):next
  for k=0 to 7
    for i=0 to 5:writebyte(1,0x00):next
    rq=int(rnd(25599)/100):writebyte(1,rq):writebyte(1,0x3F)
    for i=0 to 5:writebyte(1,0x00):next
    rq=int(rnd(25599)/100):writebyte(1,rq):writebyte(1,0x40)
    next
  next

close #1

shell ("rm /tmp/_.kftm")
shell ("cp "+fout$+" /tmp/_.kftm")

'0x**3F (volume)
'0x**40 (frequency)
'0x0000 (empty)
'0xF0BF (cut)