MACRO MODULE getkd(STRING name*132:="DISPLACEMENT" >"Ange nyckel !");

INT i,status;
FLOAT k(100);

BEGINMODULE
status:=getdat_gm(name,k);

lst_ini("");
for i:=1 to status do
  lst_lin(str(k(i)));
endfor;
lst_exi();

ENDMODULE