Written on MIDletPascal 3.5