mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 12:31:38 +01:00
37 lines
466 B
ObjectPascal
37 lines
466 B
ObjectPascal
{test}
|
|
|
|
//test
|
|
|
|
const
|
|
x:string='asd asdasd''asdasdas{{{{';
|
|
{//begin}
|
|
(*{ASASAS}*)
|
|
ID_NEW=10000;
|
|
function ttt:longint;
|
|
function Level2(const x;const y:longint):longint;assembler;
|
|
asm
|
|
mov ax,1
|
|
end;
|
|
const
|
|
ID_OPEN=10001;
|
|
var
|
|
xx:record
|
|
end;
|
|
x:byte;
|
|
begin
|
|
case x of
|
|
1:;
|
|
2:;
|
|
end;
|
|
end;
|
|
const
|
|
ID_OPEN=3000;
|
|
ID_SAVE = ID_OPEN + 1;
|
|
ID_SAVEAS=$B +$001+ 3;
|
|
ID_CLOSE=abs(-1);
|
|
ID_Exit=pred(4);
|
|
TEST1=1.5;
|
|
test2='sdsadasd';
|
|
begin
|
|
end.
|