FUNCTION BLA(string$) TYPE int =>SEGMENTATION FAULT (SOLVED)