Content-description: Text from file 'RAND303.CAL'

; For the SynTecno TeeBee 303, a '303 randomizer'.
;
; By H kan 'Zap' Andersson | zap@lysator.liu.se | http://zap.base.org
;
; This function emulates the trick of removing the batteries from a TB303
; and leaving it off for half an hour, generating a random sequence.
;
; HOW TO USE: 
;   Place the cursor on the beginning of the bar, on the track
;   where you want it. MAKE SURE THAT BAR IS EMPTY. Run this CAL.
;   You will now have one bar of neat, reandom 303 sequences. Just twiddle
;   them knobs!

(do
	(include "need20.cal")	; Require version 2.0 or higher of CAL
 
    (int count 0)
  
    (while (< count 16)
		   (do
		      (insert (+ Now (* 30 count)) 1 CONTROL 0 (random 0 1))
  		      (insert (+ Now (* 30 count)) 1 NOTE (random 48 84) (random 80 105) 10)	
  			   (++ count)				
		   )	
	)
)