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