PROCEDURE gfa_midiky__(sourceadr__%,length__%,value__%,char__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_SLIB.3_0 ** ' ** ********* *** * *** Name : MIDIKY ** ' ** ******** *** * *** Version : 1.0 27.12.1989 16:59 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Ausgabe eines Samples nach Bettigung einer Taste auf *** ' ** einem Midi-Keyboard in verschiedenen Geschwindigkeiten. ** ' ** Parameter : 1.Adresse der Sampledaten ** ' ** 2.Lnge des Samples in Bytes ** ' ** 3.Midi-Kanal-Nummer, ber den Mididaten empfangen werden ** ' ** 4.Tastencode der Taste, die zum Abbruch des Moduls dienen ** ' ** soll (0-255) ** ' ** ** ' ** Lib_rv__% : Unbenutzt ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL b__% WHILE INKEY$<>CHR$(char__%) IF INP(3)=143+value__% b__%=INP(3) b__%=60-(b__%-36) IF b__%<0 b__%=0 ENDIF GOSUB gfa_smplay__(sourceadr__%,sourceadr__%+length__%-1,0,b__%,1) ENDIF WEND RETURN