' simple sample program how to start the drum computer ' from a CASIO-CZ230S by using your ST ' written by Frank Lemmen in Gfa-Basic ' before starting this program switch the clock of ' the synth to external sync. start=250 ! MIDI Codes for the drum computer LET stop=252 play=248 spd=140 ' DO ! Scan for keyboard keys a$=INKEY$ ! And perform functions IF a$="S" OR a$="s" @strt ENDIF IF a$="Q" OR a$="q" @stp ENDIF IF a$="+" @fast ENDIF IF a$="-" @slow ENDIF OUT 3,play FOR x=0 TO spd NEXT x LOOP ' PROCEDURE strt OUT 3,start RETURN ' PROCEDURE stp OUT 3,stop RETURN ' PROCEDURE fast spd=spd-1 RETURN ' PROCEDURE slow spd=spd+1 RETURN