const
  b2l=1000;
  b2h=2000;
  rc=1234512345.6789067890678906789067890678906789067890;
  sc='Hello %i wor'#0'ld!';
  sc2='dlrow olleh';
  sc3='asdfgh';
  sc4='Hello world!';
  sc5='qwertzuiop';
  l1={$ifdef Standard}1{$else}6{$endif};

var
  dialect:string(100)='Unspecified dialect';
  noblank:Boolean=False;
  capexp :Boolean=False;
  clipstr:Boolean=False;
  fint   :Integer=0;
  freal  :Integer=0;
  fbool  :Integer=0;
  flint  :Integer=0;
  flreal :Integer=0;

  i8 :byteint  =123;
  i16:shortint =12345;
  i32:integer  =1234567890;
  im :medint   =1234567899;
  i64:longint  =-7890123456789012345;
  c8 :bytecard =234;
  c16:shortcard=23455;
  c32:cardinal =2345678901;
  cm :medcard  =2345678902;
  c64:longcard =12345678901234567890;
  sr:shortreal=rc;
  r:real=rc;
  lr:longreal=rc;
  si:single=rc;
  d:double=rc;
  ex:extended=rc;
  c:char='a';
  c0:char=#0;
  s:string(40)=sc;
  s2:string(12)=sc4;
  s3:array[l1..l1+9] of char=sc5;
  {$x+}cs:cstring=sc2;cs2:pchar=sc3;
  buf:string(1000)='';
  buf2:array[b2l..b2h] of char='';
  bc,bz:integer;

  foo:text;
  run:Integer=0;
