Testing the touch screen

[Digitaldreams]

Just a little noddy I wrote to view output from the mouse() command. Interesting to see how it handles two fingers, stretch (type 3) and has obvious issues with 'rotate' detection (type 4).

Other calculators I've used in the past have a function to fill a string with your chosen character. Can't seem to find it on the prime, hence the huge string on line 4...Anyone know of such a command ?

Regards

Code:


EXPORT Touchscreen()
 
BEGIN
LOCAL TOUCH,ST;
"                                                                                                    "▶ST;

RECT_P();      //CLEAR SCREEN
TEXTOUT_P("TOUCH(1)=",0,0,0,#00FF00,300,0);
TEXTOUT_P("TOUCH(2)=",0,32,0,#00FF00,300,0);
TEXTOUT_P("Touch/Drag With One Or Two Fingers",0,90,0,#0000FF,300,0);
TEXTOUT_P("ESC to exit",0,106,0,#0000FF,300,0);

repeat       //CLEAR TOUCH BUFFER
 TOUCH:=mouse();
until size(TOUCH(1))=0;
 
WHILE ISKEYDOWN(4)<>1 do    //ESC KEY ?
 TOUCH:=mouse();
 WAIT(0.1);
 TEXTOUT_P(ST,0,18,2,#00FF00,300,0);
 TEXTOUT_P(TOUCH(1),0,18,2,#00FF00,300,0);
 TEXTOUT_P(ST,0,50,2,#00FF00,300,0);
 TEXTOUT_P(TOUCH(2),0,50,2,#00FF00,300,0);

// Example of obtaining decimal coordinates
//   if size(TOUCH(1)) then
//     if  TOUCH(1,5)==0 then
//        X:=B→R(TOUCH(1,1));
//        Y:=B→R(TOUCH(1,2));
//     END;
//   END;

 END;
END;