freepascal.compiler/utils/fprcp/demo.pp

{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.