[Piligrim]

MODULE Hello;
IMPORT 
	lcdui, midlet;
TYPE
	Main* = POINTER TO RECORD(midlet.MIDlet+lcdui.CommandListener)
	END;
VAR
	D: lcdui.Display;
	C1: lcdui.Command;
	F : lcdui.Form;	
	item : INTEGER;
PROCEDURE (self:Main) startApp*();
BEGIN
	D := lcdui.Display.getDisplay(self);
	C1 := lcdui.Command.Init("Exit", 7, 0);
	F := lcdui.Form.InitForm("title");
	item := F.append("Проверка");
	F.addCommand(C1);
	D.setCurrent(F);
	F.setCommandListener(self);
END startApp;
PROCEDURE (self:Main) pauseApp*();
END pauseApp;
PROCEDURE (self:Main) destroyApp*(c: BOOLEAN);
END destroyApp;
PROCEDURE (self:Main) commandAction*(c:lcdui.Command; d:lcdui.Displayable), NEW;
BEGIN
	IF c = C1 THEN
		self.destroyApp(TRUE);
	END;
END commandAction;
END Hello.

результат во вложении. Стоит ли продолжать?