#define TERMINOA 0
#define TERMINOB 0
#define RESULTADO 0
 
u8 tipooperacion;
u8 numerodigitos;
 
if(PA_SpriteTouched(nºspritedenumero))    //Si se presiona el sprite para un número
{
      numerodigitos++;
      TERMINOA*10;
      /*Si hubiese un número grabado anteriormente, se "desplaza"
      a la izquierda para escribir el siguiente número. Si es el primero
      que se escribe, se desplaza 0, por lo que no ocurre nada*/
      TERMINOA+1;
      /*Se escribe el número correspondiente al sprite que se tocó.
      Como ejemplo yo uso el 1, pero puede ser el 2, 3, 4, 5, 6, 7, 8, 9,
      o 0*/
      PA_OutputText(1,(5-numerodigitos),0,"%d",TERMINOA);
      /*Se escribe el número en pantalla. Con numerodigitos, al escribir
      nueva cifra las otras se desplazan. Como una calculadora corriente*/
}
 
if(PA_SpriteTouched(nºspriteoperacion))     //Se presiona el sprite de +, -, *...
{
      tipooperacion=1;    //Asigna un valor a la variable. Usa un valor por tipo de operación
}
 
if(PA_SpriteTouched(nºspritedenumero))    //No hará falta que explique esto de nuevo
{
      TERMINOB*10;
      TERMINOB+1;
      PA_ClearTextBg(1);  //Se borra TERMINOA de pantalla
      PA_OutputText(1,(5-numerodigitos),0,"%d",TERMINOB);
      /*Se escribe el número en pantalla. Con numerodigitos, al escribir
      nueva cifra las otras se desplazan. Como una calculadora corriente*/
}
 
if(PA_SpriteTouched(nºspritesignoigual))    //Si se pulsa igual, se efectúa la operación
{
      if(tipooperacion==1)     //Varios if de éstos, uno por valor y operación, irán aquí
      {
             TERMINOA+TERMINOB=RESULTADO;
      }
      PA_OutputText(1,numerodigitos,0,"%d",RESULTADO);  //Resultado en pantalla...
}
 
if(PA_SpriteTouched(nºspriteoperacion))    //Si lo que se pulsa es un signo de operacion...
{
      if(tipooperacion==1)     //Varios if de éstos, uno por valor y operación, irán aquí
      {
             TERMINOA+TERMINOB=RESULTADO;
      }
      PA_OutputText(1,numerodigitos,0,"%d",RESULTADO);  //Resultado en pantalla...
      TERMINOA=RESULTADO;
 
      /*Se muestra el resultado de la operación anterior en pantalla. Como
      se sigue operando, el valor de RESULTADO se pasa a TERMINOA*/
 
      tipooperacion=1;   //tipooperacion adquiere el valor de la operación a realizar
}