1234567891011121314151617181920212223242526272829 |
- 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;
- begin
- path := ParamStr(0);
- RequireDerivedFormResource := True;
- Application.Initialize;
- MCSLSU.LSUSetDebug(false);
- MCSLSU.LSUInit(path, NOR_Mode, GetLNGCode);
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TForm2, Form2);
- Application.CreateForm(TfrmSelectCom, frmSelectCom);
- Application.CreateForm(TfMicrobit, fMicrobit);
- Application.Run;
- end.
|