#include "s_public.ch" //обязательно указывать во всех листингах

PROCEDURE Main
LOCAL nTop:=8,nLeft:=8
STATIC nChoice
LOCAL aMenu:={;
   ' 1. Первый шаг                   ',;
   ' 2. Выход                        ';
             }

LOCAL aComment:={;
   'Первые шаги для начинающих (с подробными комментариями)',;
   'Выход из программы';
             }

LOCAL aBlock:=  {;
   {|| Alert("Тестовый запуск"),.F. },;
   {|| .T. };
               }

LOCAL cPaths:=LoadPath()+";"+LoadPath()+"proba" //путь к файлам .dbf по умолчанию
//LoadPath - путь к БД выбранного предприятия
                
altd()

IF !IsBestIni('БЭСТ: ПРИМЕРЫ ПОЛЬЗОВАТЕЛЬСКИХ ПРИЛОЖЕНИЙ',cPaths) //инициализация системного окружения БЭСТ
   RETURN 
ENDIF

MainMnu( "Меню - заготовка",nTop,nLeft,aMenu,aComment,nChoice,,,aBlock)
RETURN
