releases/0.18a/Unit1_main.pas

UNIT Unit1_main;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus,
  Unit2_functions, Unit3_data, Unit5_preview, Unit7_txmpreplace, Unit8_binedit,
  Grids, MPHexEditor, ToolWin, ImgList, Tabs;

TYPE
  TForm1 = Class(TForm)
    fopen: TOpenDialog;
    menu: TMainMenu;
    menu_main: TMenuItem;
    menu_exit: TMenuItem;
    menu_preview: TMenuItem;
    menu_tools: TMenuItem;
    menu_txmpreplace: TMenuItem;
    menu_extract: TMenuItem;
    menu_extractfile: TMenuItem;
    menu_extractlist: TMenuItem;
    menu_extractall: TMenuItem;
    menu_loaddat: TMenuItem;
    menu_sep1: TMenuItem;
    menu_binedit: TMenuItem;
    statbar: TStatusBar;
    menu_windows: TMenuItem;
    menu_windows_cascade: TMenuItem;
    menu_windows_closeall: TMenuItem;
    menu_sep2: TMenuItem;
    menu_windows_tile: TMenuItem;
    menu_sep3: TMenuItem;
    menu_windows_next: TMenuItem;
    menu_windows_previous: TMenuItem;
    procedure menu_windows_previousClick(Sender: TObject);
    procedure menu_windows_nextClick(Sender: TObject);
    procedure menu_windows_tileClick(Sender: TObject);
    PROCEDURE open_child(window_context:String);
    PROCEDURE menu_windows_closeallClick(Sender: TObject);
    PROCEDURE menu_windows_cascadeClick(Sender: TObject);
    PROCEDURE menu_window_entryClick(Sender: TObject);
    PROCEDURE menu_bineditClick(Sender: TObject);
    PROCEDURE menu_loaddatClick(Sender: TObject);
    PROCEDURE menu_txmpreplaceClick(Sender: TObject);
    PROCEDURE menu_exitClick(Sender: TObject);
    PROCEDURE menu_previewClick(Sender: TObject);
    PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
    PROCEDURE FormResize(Sender: TObject);
    PROCEDURE FormCreate(Sender: TObject);
  PRIVATE
  PUBLIC
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION
{$R *.dfm}

PROCEDURE LoadDat;
  VAR i:LongWord;
  BEGIN
    Form1.fopen.InitialDir:=AppSettings.DatPath;
    IF Form1.fopen.Execute THEN BEGIN
      Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(Form1.fopen.FileName)+')';
      AppSettings.DatPath:=ExtractFilepath(Form1.fopen.FileName);
      IF LoadDatInfos(Form1.fopen.FileName) THEN BEGIN
        Form1.statbar.Panels.Items[0].Text:='Current .dat: '+dat_FileName;
        Form1.statbar.Panels.Items[1].Text:='Files: '+IntToStr(dat_header.Files);
        Form1.statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(dat_header.Extensions);
        Form1.menu_tools.Enabled:=True;
        Form1.menu_extract.Enabled:=True;

        IF Form1.MDIChildCount>0 THEN
          FOR i:=0 TO Form1.MDIChildCount-1 DO BEGIN
            IF Pos('binedit',Form1.MDIChildren[i].Name)>0 THEN
              TForm8(Form1.MDIChildren[i]).Recreatelist;
            IF Pos('preview',Form1.MDIChildren[i].Name)>0 THEN
              TForm5(Form1.MDIChildren[i]).Recreatelist;
            IF Pos('txmpreplace',Form1.MDIChildren[i].Name)>0 THEN
              TForm7(Form1.MDIChildren[i]).Recreatelist;
          END;
      END ELSE BEGIN
        ShowMessage('Error while loading the file:'+CrLf+Form1.fopen.FileName+CrLf+'Perhaps not an Oni-.dat-file?');
      END;
    END;
  END;

PROCEDURE TForm1.FormCreate(Sender: TObject);
  BEGIN
    Form1.Caption:='Oni Un/Packer '+version;
    Form1.FormResize(Form1);

    IF FileExists(ExtractFilepath(Application.EXEname)+'\oniunpacker.ini') THEN BEGIN
      AssignFile(AppSettingsFile,ExtractFilepath(Application.EXEname)+'\oniunpacker.ini');
      Reset(AppSettingsFile);
      Read(AppSettingsFile,AppSettings);
      CloseFile(AppSettingsFile);
    END ELSE BEGIN
      AppSettings.DatPath:='D:\Spiele\Oni\GameDataFolder';
      AppSettings.ExtractPath:='C:\Dokumente und Einstellungen\Administrator\Desktop';
    END;
  END;

PROCEDURE TForm1.FormResize(Sender: TObject);
  CONST
    MinWidth:Integer=750;
    MinHeight:Integer=500;
  BEGIN
    IF Form1.Width<MinWidth THEN Form1.Width:=MinWidth;
    IF Form1.Height<MinHeight THEN Form1.Height:=MinHeight;
    Form1.statbar.Panels.Items[0].Width:=Form1.Width-200;
  END;

PROCEDURE TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  BEGIN
    AssignFile(AppSettingsFile,ExtractFilepath(Application.EXEname)+'\oniunpacker.ini');
    IF FileExists(ExtractFilepath(Application.EXEname)+'\oniunpacker.ini') THEN
      Reset(AppSettingsFile)
    ELSE
      Rewrite(AppSettingsFile);
    Write(AppSettingsFile,AppSettings);
    CloseFile(AppSettingsFile);
    Action:=caFree;
  END;


{##### Main-Menu-Handlers #####}
PROCEDURE TForm1.menu_loaddatClick(Sender: TObject);
  BEGIN
    LoadDat;
  END;
PROCEDURE TForm1.menu_exitClick(Sender: TObject);
  BEGIN
    Form1.Close;
  END;

{##### Tools-Menu-Handlers #####}
PROCEDURE TForm1.menu_previewClick(Sender: TObject);
  BEGIN
    open_child('preview');
  END;
PROCEDURE TForm1.menu_txmpreplaceClick(Sender: TObject);
  BEGIN
    open_child('txmpreplace');
  END;
PROCEDURE TForm1.menu_bineditClick(Sender: TObject);
  BEGIN
    open_child('binedit');
  END;

{##### Window-Menu-Handlers #####}
PROCEDURE TForm1.menu_windows_cascadeClick(Sender: TObject);
  BEGIN
    Form1.Cascade;
  END;
PROCEDURE TForm1.menu_windows_closeallClick(Sender: TObject);
  VAR
    i:Byte;
  BEGIN
    IF MDIChildCount>0 THEN BEGIN
      FOR i:=0 TO MDIChildCount-1 DO BEGIN
        MDIChildren[i].Close;
      END;
    END;
  END;
PROCEDURE TForm1.menu_window_entryClick(Sender: TObject);
  VAR
    i:Byte;
    window_name:String;
  BEGIN
    window_name:=MidStr(TComponent(Sender).Name,Pos('window_',TComponent(Sender).Name)+7,Length(TComponent(Sender).Name)-Pos('window_',TComponent(Sender).Name)+7+1);
    FOR i:=0 TO MDIChildCount-1 DO BEGIN
      IF MDIChildren[i].Name=window_name THEN BEGIN
        MDIChildren[i].BringToFront;
      END;
    END;
  END;


PROCEDURE TForm1.open_child(window_context:String);
  VAR
    binEdit:TForm8;
    preview:TForm5;
    txmpreplacer:TForm7;
    menu_button:TMenuItem;
    used:Array[1..9] OF Boolean;
    i,j:Byte;
    caption:String;
    name:String;
  BEGIN
    FOR i:=1 TO 9 DO used[i]:=False;
    IF MDIChildCount>0 THEN
      FOR i:=0 TO MDIChildCount-1 DO
        IF Pos(window_context,Form1.MDIChildren[i].Name)=1 THEN
          used[StrToInt(RightStr(Form1.MDIChildren[i].Caption,1))]:=True;
    FOR i:=1 TO 10 DO
      IF i=10 THEN
        Break
      ELSE
        IF NOT used[i] THEN Break;
    IF i<10 THEN BEGIN
      name:=window_context+IntToStr(i);
      IF window_context='binedit' THEN BEGIN
        caption:='Binary .dat-Editor '+IntToStr(i);
        binEdit:=TForm8.Create(Application);
        binEdit.Name:=name;
        binEdit.Caption:=caption;
        binEdit.Recreatelist;
      END;
      IF window_context='preview' THEN BEGIN
        caption:='Preview-Window '+IntToStr(i);
        preview:=TForm5.Create(Application);
        preview.Name:=name;
        preview.Caption:=caption;
        preview.Recreatelist;
      END;
      IF window_context='txmpreplace' THEN BEGIN
        caption:='TXMP Replacer '+IntToStr(i);
        txmpreplacer:=TForm7.Create(Application);
        txmpreplacer.Name:=name;
        txmpreplacer.Caption:=caption;
        txmpreplacer.Recreatelist;
      END;

      menu_button:=TMenuItem.Create(menu_windows);
      menu_button.Caption:=caption;
      menu_button.Name:='menu_window_'+name;
      menu_button.OnClick:=Form1.menu_window_entryClick;
      FOR j:=0 TO menu_windows.Count DO BEGIN
        IF j<menu_windows.Count THEN BEGIN
          IF Pos(window_context,menu_windows.Items[j].Name)>0 THEN BEGIN
            IF StrToInt(RightStr(menu_windows.Items[j].Name,1))>i THEN BEGIN
              menu_windows.Insert(j,menu_button);
              Break;
            END;
          END;
        END ELSE BEGIN
          menu_windows.Add(menu_button);
        END;
      END;
      IF MDIChildCount=9 THEN menu_tools.Enabled:=False;
    END;
  END;


PROCEDURE TForm1.menu_windows_tileClick(Sender: TObject);
  BEGIN
    Form1.TileMode:=tbHorizontal;
    Form1.Tile;
  END;

PROCEDURE TForm1.menu_windows_nextClick(Sender: TObject);
  VAR i:Byte;
    first_window:Byte;
    current_focus:String;
  BEGIN
    IF MDIChildCount>1 THEN BEGIN
      FOR i:=0 TO menu_windows.Count-1 DO BEGIN
        IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
          first_window:=i;
          Break;
        END;
      END;
      current_focus:=ActiveMDIChild.Name;
      FOR i:=first_window TO menu_windows.Count-1 DO
        IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
          Break;
      IF i=menu_windows.Count-1 THEN
        menu_windows.Items[first_window].Click
      ELSE
        menu_windows.Items[i+1].Click;
    END;
  END;

PROCEDURE TForm1.menu_windows_previousClick(Sender: TObject);
  VAR i:Byte;
    first_window:Byte;
    current_focus:String;
  BEGIN
    IF MDIChildCount>1 THEN BEGIN
      FOR i:=0 TO menu_windows.Count-1 DO BEGIN
        IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
          first_window:=i;
          Break;
        END;
      END;
      current_focus:=ActiveMDIChild.Name;
      FOR i:=first_window TO menu_windows.Count-1 DO
        IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
          Break;
      IF i=first_window THEN
        menu_windows.Items[menu_windows.Count-1].Click
      ELSE
        menu_windows.Items[i-1].Click;
    END;
  END;

END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	9699 byte(s)
Log Message:
#	Content
1	UNIT Unit1_main;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus,
6	Unit2_functions, Unit3_data, Unit5_preview, Unit7_txmpreplace, Unit8_binedit,
7	Grids, MPHexEditor, ToolWin, ImgList, Tabs;
8
9	TYPE
10	TForm1 = Class(TForm)
11	fopen: TOpenDialog;
12	menu: TMainMenu;
13	menu_main: TMenuItem;
14	menu_exit: TMenuItem;
15	menu_preview: TMenuItem;
16	menu_tools: TMenuItem;
17	menu_txmpreplace: TMenuItem;
18	menu_extract: TMenuItem;
19	menu_extractfile: TMenuItem;
20	menu_extractlist: TMenuItem;
21	menu_extractall: TMenuItem;
22	menu_loaddat: TMenuItem;
23	menu_sep1: TMenuItem;
24	menu_binedit: TMenuItem;
25	statbar: TStatusBar;
26	menu_windows: TMenuItem;
27	menu_windows_cascade: TMenuItem;
28	menu_windows_closeall: TMenuItem;
29	menu_sep2: TMenuItem;
30	menu_windows_tile: TMenuItem;
31	menu_sep3: TMenuItem;
32	menu_windows_next: TMenuItem;
33	menu_windows_previous: TMenuItem;
34	procedure menu_windows_previousClick(Sender: TObject);
35	procedure menu_windows_nextClick(Sender: TObject);
36	procedure menu_windows_tileClick(Sender: TObject);
37	PROCEDURE open_child(window_context:String);
38	PROCEDURE menu_windows_closeallClick(Sender: TObject);
39	PROCEDURE menu_windows_cascadeClick(Sender: TObject);
40	PROCEDURE menu_window_entryClick(Sender: TObject);
41	PROCEDURE menu_bineditClick(Sender: TObject);
42	PROCEDURE menu_loaddatClick(Sender: TObject);
43	PROCEDURE menu_txmpreplaceClick(Sender: TObject);
44	PROCEDURE menu_exitClick(Sender: TObject);
45	PROCEDURE menu_previewClick(Sender: TObject);
46	PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
47	PROCEDURE FormResize(Sender: TObject);
48	PROCEDURE FormCreate(Sender: TObject);
49	PRIVATE
50	PUBLIC
51	END;
52
53	VAR
54	Form1: TForm1;
55
56	IMPLEMENTATION
57	{$R *.dfm}
58
59	PROCEDURE LoadDat;
60	VAR i:LongWord;
61	BEGIN
62	Form1.fopen.InitialDir:=AppSettings.DatPath;
63	IF Form1.fopen.Execute THEN BEGIN
64	Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(Form1.fopen.FileName)+')';
65	AppSettings.DatPath:=ExtractFilepath(Form1.fopen.FileName);
66	IF LoadDatInfos(Form1.fopen.FileName) THEN BEGIN
67	Form1.statbar.Panels.Items[0].Text:='Current .dat: '+dat_FileName;
68	Form1.statbar.Panels.Items[1].Text:='Files: '+IntToStr(dat_header.Files);
69	Form1.statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(dat_header.Extensions);
70	Form1.menu_tools.Enabled:=True;
71	Form1.menu_extract.Enabled:=True;
72
73	IF Form1.MDIChildCount>0 THEN
74	FOR i:=0 TO Form1.MDIChildCount-1 DO BEGIN
75	IF Pos('binedit',Form1.MDIChildren[i].Name)>0 THEN
76	TForm8(Form1.MDIChildren[i]).Recreatelist;
77	IF Pos('preview',Form1.MDIChildren[i].Name)>0 THEN
78	TForm5(Form1.MDIChildren[i]).Recreatelist;
79	IF Pos('txmpreplace',Form1.MDIChildren[i].Name)>0 THEN
80	TForm7(Form1.MDIChildren[i]).Recreatelist;
81	END;
82	END ELSE BEGIN
83	ShowMessage('Error while loading the file:'+CrLf+Form1.fopen.FileName+CrLf+'Perhaps not an Oni-.dat-file?');
84	END;
85	END;
86	END;
87
88	PROCEDURE TForm1.FormCreate(Sender: TObject);
89	BEGIN
90	Form1.Caption:='Oni Un/Packer '+version;
91	Form1.FormResize(Form1);
92
93	IF FileExists(ExtractFilepath(Application.EXEname)+'\oniunpacker.ini') THEN BEGIN
94	AssignFile(AppSettingsFile,ExtractFilepath(Application.EXEname)+'\oniunpacker.ini');
95	Reset(AppSettingsFile);
96	Read(AppSettingsFile,AppSettings);
97	CloseFile(AppSettingsFile);
98	END ELSE BEGIN
99	AppSettings.DatPath:='D:\Spiele\Oni\GameDataFolder';
100	AppSettings.ExtractPath:='C:\Dokumente und Einstellungen\Administrator\Desktop';
101	END;
102	END;
103
104	PROCEDURE TForm1.FormResize(Sender: TObject);
105	CONST
106	MinWidth:Integer=750;
107	MinHeight:Integer=500;
108	BEGIN
109	IF Form1.Width<MinWidth THEN Form1.Width:=MinWidth;
110	IF Form1.Height<MinHeight THEN Form1.Height:=MinHeight;
111	Form1.statbar.Panels.Items[0].Width:=Form1.Width-200;
112	END;
113
114	PROCEDURE TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
115	BEGIN
116	AssignFile(AppSettingsFile,ExtractFilepath(Application.EXEname)+'\oniunpacker.ini');
117	IF FileExists(ExtractFilepath(Application.EXEname)+'\oniunpacker.ini') THEN
118	Reset(AppSettingsFile)
119	ELSE
120	Rewrite(AppSettingsFile);
121	Write(AppSettingsFile,AppSettings);
122	CloseFile(AppSettingsFile);
123	Action:=caFree;
124	END;
125
126
127	{##### Main-Menu-Handlers #####}
128	PROCEDURE TForm1.menu_loaddatClick(Sender: TObject);
129	BEGIN
130	LoadDat;
131	END;
132	PROCEDURE TForm1.menu_exitClick(Sender: TObject);
133	BEGIN
134	Form1.Close;
135	END;
136
137	{##### Tools-Menu-Handlers #####}
138	PROCEDURE TForm1.menu_previewClick(Sender: TObject);
139	BEGIN
140	open_child('preview');
141	END;
142	PROCEDURE TForm1.menu_txmpreplaceClick(Sender: TObject);
143	BEGIN
144	open_child('txmpreplace');
145	END;
146	PROCEDURE TForm1.menu_bineditClick(Sender: TObject);
147	BEGIN
148	open_child('binedit');
149	END;
150
151	{##### Window-Menu-Handlers #####}
152	PROCEDURE TForm1.menu_windows_cascadeClick(Sender: TObject);
153	BEGIN
154	Form1.Cascade;
155	END;
156	PROCEDURE TForm1.menu_windows_closeallClick(Sender: TObject);
157	VAR
158	i:Byte;
159	BEGIN
160	IF MDIChildCount>0 THEN BEGIN
161	FOR i:=0 TO MDIChildCount-1 DO BEGIN
162	MDIChildren[i].Close;
163	END;
164	END;
165	END;
166	PROCEDURE TForm1.menu_window_entryClick(Sender: TObject);
167	VAR
168	i:Byte;
169	window_name:String;
170	BEGIN
171	window_name:=MidStr(TComponent(Sender).Name,Pos('window_',TComponent(Sender).Name)+7,Length(TComponent(Sender).Name)-Pos('window_',TComponent(Sender).Name)+7+1);
172	FOR i:=0 TO MDIChildCount-1 DO BEGIN
173	IF MDIChildren[i].Name=window_name THEN BEGIN
174	MDIChildren[i].BringToFront;
175	END;
176	END;
177	END;
178
179
180
181	PROCEDURE TForm1.open_child(window_context:String);
182	VAR
183	binEdit:TForm8;
184	preview:TForm5;
185	txmpreplacer:TForm7;
186	menu_button:TMenuItem;
187	used:Array[1..9] OF Boolean;
188	i,j:Byte;
189	caption:String;
190	name:String;
191	BEGIN
192	FOR i:=1 TO 9 DO used[i]:=False;
193	IF MDIChildCount>0 THEN
194	FOR i:=0 TO MDIChildCount-1 DO
195	IF Pos(window_context,Form1.MDIChildren[i].Name)=1 THEN
196	used[StrToInt(RightStr(Form1.MDIChildren[i].Caption,1))]:=True;
197	FOR i:=1 TO 10 DO
198	IF i=10 THEN
199	Break
200	ELSE
201	IF NOT used[i] THEN Break;
202	IF i<10 THEN BEGIN
203	name:=window_context+IntToStr(i);
204	IF window_context='binedit' THEN BEGIN
205	caption:='Binary .dat-Editor '+IntToStr(i);
206	binEdit:=TForm8.Create(Application);
207	binEdit.Name:=name;
208	binEdit.Caption:=caption;
209	binEdit.Recreatelist;
210	END;
211	IF window_context='preview' THEN BEGIN
212	caption:='Preview-Window '+IntToStr(i);
213	preview:=TForm5.Create(Application);
214	preview.Name:=name;
215	preview.Caption:=caption;
216	preview.Recreatelist;
217	END;
218	IF window_context='txmpreplace' THEN BEGIN
219	caption:='TXMP Replacer '+IntToStr(i);
220	txmpreplacer:=TForm7.Create(Application);
221	txmpreplacer.Name:=name;
222	txmpreplacer.Caption:=caption;
223	txmpreplacer.Recreatelist;
224	END;
225
226	menu_button:=TMenuItem.Create(menu_windows);
227	menu_button.Caption:=caption;
228	menu_button.Name:='menu_window_'+name;
229	menu_button.OnClick:=Form1.menu_window_entryClick;
230	FOR j:=0 TO menu_windows.Count DO BEGIN
231	IF j<menu_windows.Count THEN BEGIN
232	IF Pos(window_context,menu_windows.Items[j].Name)>0 THEN BEGIN
233	IF StrToInt(RightStr(menu_windows.Items[j].Name,1))>i THEN BEGIN
234	menu_windows.Insert(j,menu_button);
235	Break;
236	END;
237	END;
238	END ELSE BEGIN
239	menu_windows.Add(menu_button);
240	END;
241	END;
242	IF MDIChildCount=9 THEN menu_tools.Enabled:=False;
243	END;
244	END;
245
246
247	PROCEDURE TForm1.menu_windows_tileClick(Sender: TObject);
248	BEGIN
249	Form1.TileMode:=tbHorizontal;
250	Form1.Tile;
251	END;
252
253	PROCEDURE TForm1.menu_windows_nextClick(Sender: TObject);
254	VAR i:Byte;
255	first_window:Byte;
256	current_focus:String;
257	BEGIN
258	IF MDIChildCount>1 THEN BEGIN
259	FOR i:=0 TO menu_windows.Count-1 DO BEGIN
260	IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
261	first_window:=i;
262	Break;
263	END;
264	END;
265	current_focus:=ActiveMDIChild.Name;
266	FOR i:=first_window TO menu_windows.Count-1 DO
267	IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
268	Break;
269	IF i=menu_windows.Count-1 THEN
270	menu_windows.Items[first_window].Click
271	ELSE
272	menu_windows.Items[i+1].Click;
273	END;
274	END;
275
276	PROCEDURE TForm1.menu_windows_previousClick(Sender: TObject);
277	VAR i:Byte;
278	first_window:Byte;
279	current_focus:String;
280	BEGIN
281	IF MDIChildCount>1 THEN BEGIN
282	FOR i:=0 TO menu_windows.Count-1 DO BEGIN
283	IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
284	first_window:=i;
285	Break;
286	END;
287	END;
288	current_focus:=ActiveMDIChild.Name;
289	FOR i:=first_window TO menu_windows.Count-1 DO
290	IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
291	Break;
292	IF i=first_window THEN
293	menu_windows.Items[menu_windows.Count-1].Click
294	ELSE
295	menu_windows.Items[i-1].Click;
296	END;
297	END;
298
299	END.