1234567891011121314151617181920212223242526272829303132333435 |
- # simple bytebeat, run and redirect to aplay
- ~32
- shift: # X, N
- $0
- @'
- $<0 $<0 2 /
- $>0 $>0 --
- .
- $<0 $<0
- .
- ~i
- bytebeat1: # this one is from Anarch
- $i $i 4 / 32 % shift
- $i $i 32 / 32 % shift +x12 &
- | 2 *
- $i 2048 / |
- ->
- $i ++ $:i
- .
- 0 $:i
- 50000 @'
- bytebeat1 # you can possibly try different bytebeat functions
- --
- .
- ~0
|