' *** PITCHBND.LST *** 2nd GFA-Manual, page 12-2 > PROCEDURE midi_pitch_bend(channel,bend) ' *** bend 0-255 LOCAL byte1|,byte2| IF BTST(bend,0) byte1|=64 ELSE byte1|=0 ENDIF byte2|=SHR|(BYTE(bend),1) OUT 3,&HE0+PRED(channel),byte1|,byte2| RETURN ' ********* '