1{test}
2
3//test
4
5const
6 x:string='asd            asdasd''asdasdas{{{{';
7{//begin}
8(*{ASASAS}*)
9 ID_NEW=10000;
10function ttt:longint;
11 function Level2(const x;const y:longint):longint;assembler;
12  asm
13   mov ax,1
14  end;
15 const
16  ID_OPEN=10001;
17var
18  xx:record
19  end;
20  x:byte;
21 begin
22  case x of
23  1:;
24  2:;
25  end;
26 end;
27const
28 ID_OPEN=3000;
29 ID_SAVE = ID_OPEN + 1;
30 ID_SAVEAS=$B +$001+ 3;
31 ID_CLOSE=abs(-1);
32 ID_Exit=pred(4);
33 TEST1=1.5;
34 test2='sdsadasd';
35begin
36end.
37