SPS_Emulator/SPS_Emu.lpr

program SPS_Emu;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, sdposeriallaz, uGUI, uSPS, uTextUi, uSelectCom, MCSLSU, MCSAbout,
  uiMicrobit;

{$R *.res}

var path : string;
    code : integer;
begin
  path := ParamStr(0);
  RequireDerivedFormResource := True;
  Application.Scaled:=True;
  Application.Initialize;
  MCSLSU.LSUSetDebug(false);
  code := MCSLSU.LSUInit(path, NOR_Mode, GetLNGCode);
  if code = R_LNG_Not_Supp then
    code := MCSLSU.LSUInit(path, NOR_Mode, 44);

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TfrmSelectCom, frmSelectCom);
  Application.CreateForm(TfMicrobit, fMicrobit);
  Application.Run;
end.