a=10
b=20
swap a,b
Print a,b
c$="0123456789"
d$=""
strrev c$,d$
Print d$
End

CSub swap
00000000
E9D1B430 E9D02300 E9C04500 E9C12300 BC304500 BF004770
End CSub
'
CSub strrev
00000000
700B7803 4403B133 2901F813 2F01F801 D1F94283 BF004770
End CSub

#define MMFLOAT double
void swap(long long int *a,long long int *b){
   long long int c;
   c=*a;
   *a=*b;
   *b=c;
}
void strrev(unsigned char in[], unsigned char out[]) {

  unsigned int i;

  unsigned int len;

  //MMBasic stores the length of the string in the
  //first,0th,byte
  len=in[0];

  //Set the length of the output string
  out[0]=len;

  //Do the reverse copy
  for(i=1;i<(len+1);i++){
      out[i]=in[len-i+1];
  }

  //and return the length of the string
}