Picture and Input

[Heino]

How can I created a Picture with an Input-Funktion?

EXPORT kor()
BEGIN

Local x;
RECT_P();
//Linie und Pfeil in x-Richtung
LINE_P(40,59,79,59,RGB(0,255,0));
LINE_P(40,60,80,60,RGB(0,255,0));
LINE_P(40,61,79,61,RGB(0,255,0));
LINE_P(80,60,73,57,RGB(0,255,0));
LINE_P(80,60,73,63,RGB(0,255,0));
Textout_P("X",85,55,2);

//Linie und Pfeil in y-Ricjhtung
LINE_P(39,60,39,21,RGB(255,0,0));
LINE_P(40,60,40,20,RGB(255,0,0));
LINE_P(41,60,41,21,RGB(255,0,0));
LINE_P(40,20,37,26,RGB(255,0,0));
LINE_P(40,20,43,26,RGB(255,0,0));
Textout_P("Y",37,5,2);

//Linie und Pfeil in z-Richtung
LINE_P(39,60,20,79,RGB(0,0,255));
LINE_P(40,60,20,80,RGB(0,0,255));
LINE_P(41,60,21,80,RGB(0,0,255));
LINE_P(20,80,22,73,RGB(0,0,255));
LINE_P(20,80,27,77,RGB(0,0,255));
Textout_P("Z",10,85,2);
FREEZE;
END;
[/b]