[<-TzX->]

Пример даже не скомпилился. Переделал так:

Program JSR256test;
Uses jsr256;
Var x, y, z: real;
Begin
    init('acceleration', 'user', 3);
    repeat    // бесконечный цикл
    setColor(255,255,255);
    FillRect(0, 0, getWidth, getHeight); 
    setColor(0,0,0);
        x := get_value(0); // запрашиваем данные у акселерометра
        y := get_value(1);
        z := get_value(2);
DrawText('x '+x,0,0);
DrawText('y'+y,0,50);
DrawText('z'+z,0,100);
delay(100);
        Repaint; // Перерисовка экрана
    until false;
End.

Все равно не пошло