Un sencillo programa para mover un pequeño texto con los cursores:
//Declaramos las variables que vamos a usar
GLOBAL x,y
// Posición inicial
LET x = 100
LET y = 100
//Un bucle infinito, en realidad basta pulsar ESC para salir
WHILE TRUE
// <-
IF KEY(203) = 1 THEN LET x = x-1
// ->
IF KEY(205) = 1 THEN LET x = x+1
// ^
IF KEY(200) = 1 THEN LET y = y-1
// v
IF KEY(208) = 1 THEN LET y = y+1
PRINT "tecla = "+ INKEY$(),x,y
SHOWSCREEN
WEND
Lo mismo pero moviendo con el ratón:
//Declaramos las variables que vamos a usar
GLOBAL mx,my,b1,b2
// Posición inicial
LET mx = 100
LET my = 100
//Un bucle infinito, en realidad basta pulsar ESC para salir
WHILE TRUE
MOUSESTATE mx, my, b1, b2
PRINT "botón1="+ b1 + "botón2=" + b2,mx,my
SHOWSCREEN
WEND
De propina tocamos el joystick:
/Control del joystick
//Declaramos las variables que vamos a usar
GLOBAL jx,jy,j1,j2,x,y
// Posición inicial
LET x = 100
LET y = 100
//Un bucle infinito, en realidad basta pulsar ESC para salir
WHILE TRUE
JOYSTATE jx, jy, j1, j2
//jx,jy devuelven -1,0 o 1 (cruceta)
//j1,j2 devuelven 128 al ser pulsados
LET x=x+jx
LET y=y+jy
PRINT "botón1="+ j1 + "botón2=" + j2,x,y
SHOWSCREEN
WEND
