there are some problems with the editor on the resolution 720 (HDMI) others are not tested.

BASE$(base,number)
converts a number in base 10 to the specified base.
Base must be in range 2 to 36

Draw.c
void DrawRectangle555(int x1, int y1, int x2, int y2, int c)
void DrawRectangle256(int x1, int y1, int x2, int y2, int c)
void DrawRectangle2(int x1, int y1, int x2, int y2, int c)
void MIPS16 DrawRectangleUser(int x1, int y1, int x2, int y2, int c)

SSD1963.c
void DrawRectangleSSD1963(int x1, int y1, int x2, int y2, int c)

SPI-LCD.c
void DrawRectangleSPI(int x1, int y1, int x2, int y2, int c) // doesn't clamp pixels
void DrawRectangleSPISCR(int x1, int y1, int x2, int y2, int c)
void DrawRectangleMEM(int x1, int y1, int x2, int y2, int c)
void DrawRectangleMEM332(int x1, int y1, int x2, int y2, int c) // uses clamp()

'prog to test USB touch

Option default integer

GUI Cursor on
GUI Cursor Link Mouse
GUI interrupt TouchDown,TouchUp

Do
 If Touch(down)=1 Then
   Print Touch(x),Touch(y)
 EndIf
Loop Until Inkey$<>""

End

Sub TouchDown
 Print "Touched"
End Sub

Sub TouchUp
 Print "Untouched"
End Sub

> option list
PicoMiteHDMI MMBasic USB RP2350A Edition V6.03.00RC14
OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION FLASH SIZE 4194304
OPTION COLOURCODE ON
OPTION MOUSE SENSITIVITY     1.0000
OPTION KEYBOARD US
OPTION RESOLUTION 1024x768 @ 375000KHz
OPTION DISPLAY 32, 64
OPTION GUI CONTROLS 96
OPTION DEFAULT FONT 3, 1
>

 Option default integer

 'system initialisation -------------------------------------------------------

 'init the stepper control pins
 initio

 ' variables for stepper
 Dim phases(7)=(&b0001,&b0011,&b0010,&b0110,&b0100,&b1100,&b1000,&b1001)
 Dim steps2go=0, quadra, quadra_old, delta

 'set the max speed of the stepper at 1ms per step (1kHz)
 SetTick 1,step_it


 'program PIO 1
 program_PIO 'program the code in PIO 1

 'start quadrature decoder
 start_sm0 'start decoder on GP0 and GP1
 zero_sm0  'zero quadrature



 'main program loop --------------------------------------------------------

 Do
   'read PIO FIFO for quadrature changes
   quadra = read_fifo(0)

   'debug
   print str$(quadra,12,0)   'get data from decoder

   'add delta fifo since last read to stes2go (pos or neg)
   delta=quadra_old-quadra:quadra_old=quadra
   Inc steps2go,delta*8                        '8 = software gain

   'add delta fifo to servo pos

   'send delta to UART

   Pause 100
 Loop While Inkey$=""

 PIO stop 1,0
 PIO clear 1

End



 ' subroutines ---------------------------------------------------------------

 'zero counter state machine 0
Sub zero_sm0

 PIO execute 1,0,&hA023 '= assembly "mov X, null" (zero X reg)

End Sub


 'this function returns the actual count of decoder n
Function read_fifo(n) As integer

 Local dat%(3)
 PIO read 1,n,4,dat%()                                   'read whole fifo
 read_fifo = dat%(3)                                    'last data in fifo
 If read_fifo>2147483647 Then Inc read_fifo,-4294967296 '2'th complement

End Function


 'this subroutine programs the quadrature decoder program for PIO1 into PIO program memory
Sub program_PIO

 'this is the PIO program in machine code
 dim p%(7)=(&h001A00170015001A,&h0015001A001A0017,&h0017001A001A0015, &h001A00150017001A,&h4042A0404042A0C3,&hA029001A005AA0A6,&h8000A0C1A0290059,0)

 'here the program is programmed in memory
 PIO program 1,p%()

 wrap=27           'end of the program
 wrp_tgt=16        'start of the program loop

End Sub


 'this subroutine starts state machine 0 quadrature decoder on gp12 and gp13
Sub start_sm0

 'uses GP0,GP1, assign pins in MMBasic
 SetPin gp0,pio1
 SetPin gp1,pio1

 'quadrature decoders generic settings
 PIO_f%=63e6                            'frequency = 63MHz
 PIO_s%=0                               'shift register (shift in left)
 PIO_e%=Pio(execctrl gp0,wrp_tgt,wrap)  'start and stop of the loop

 'assign pins in PIO
 pin_sm0%=Pio(pinctrl 0,0,0,gp0)

 'configure and start PIO
 PIO init machine 1,0,PIO_f%,pin_sm0%,PIO_e%,PIO_s%,wrp_tgt
 PIO start 1,0

End Sub

 'inits stepper output signals on GP2...5
Sub initio

 'init stepper pins to dout and low
 For i=2 To 5
   SetPin "GP"+Str$(i),dout :Pin("gP"+Str$(i))=0
 Next

End Sub


 'moves the stepper until step2go is zero
Sub step_it
 Static ps=0
 Local dn

 If steps2go<>0 Then
   Inc steps2go,Choice(steps2go<0,1,-1)
   dn=Choice(steps2go<0,7,1)
   Inc ps,dn:ps=ps Mod 8
   Port(GP2,4)=phases(ps)
 End If

End Sub