[Trazzy]

А вот и сам исходный код проги:
(даю "как есть".. кому нужно - разберется, все просто!)

program SuspendSimak;
uses m2, font32;

var gk, gw, gh, index: integer;

procedure initi;
begin
  gw:=getwidth;
  gh:=getheight;
  Font32.Init(1);
  Font(0); LoadFont('font/artikz');
end;

procedure susp;
begin
  SetColor(0, 0, 0);
  FillRect(0, 0, gw, gh);
  drawString('[Created by ArtikZ]', 2, 2);
	drawString('1: Телеф.срав.', 2, 14);
	drawString('2: Спис. вызовов', 2, 24);
	drawString('3: Интерн/игр', 2, 34);
	drawString('4: Камера', 2, 44);
	drawString('5: Сообщения', 2, 54);
	drawString('6: Органайзер', 2, 64);
	drawString('7: Еще', 2, 74);
	drawString('8: Мои файлы', 2, 84);
	drawString('9: Настройки', 2, 94);
	drawString('*: Мое меню', 2, 104);
	drawString('#: Выход', 2, 114);
	repaint;
  repeat
   gk:=getKeyClicked;
   if gk=KE_KEY1 then
      index:=platform_request('native:CNCT_PREFRDBOOK'); //Телеф.срав.
   if gk=KE_KEY2 then
      index:=platform_request('native:RECD_RECORDMENU'); //Спис. вызовов
   if gk=KE_KEY3 then
      index:=platform_request('native:ELSE_SUFFUNUMNU'); //Интерн/игр
   if gk=KE_KEY4 then
      index:=platform_request('native:ELSE_INTRCAMERA'); //Камера
   if gk=KE_KEY5 then
      index:=platform_request('native:MESG_MESSGEMENU'); //Сообщения
   if gk=KE_KEY6 then
      index:=platform_request('native:ORGZ_ORGANIZMNU'); //Органайзер
   if gk=KE_KEY7 then
      index:=platform_request('native:ELSE_EXTRASMENU'); //Еще
   if gk=KE_KEY8 then
      index:=platform_request('native:FLSH_MYOWNSTUFF'); //Мои файлы
   if gk=KE_KEY9 then
      index:=platform_request('native:STUP_SETPUPMENU'); //Настройки
   if gk=KE_KEY0 then
      index:=platform_request('native:FLSH_FLEXPLORER'); //Card-explorer
   if gk=KE_STAR then
      index:=platform_request('native:ELSE_STR_MYMENU'); //Мое меню
   if gk=KE_POUND then halt; //Выход
  until gk <> GA_NONE;
  susp;
end;

begin
  initi;
  susp;
end.