program depacker;
uses crt, fastgraph;

var qr: string = '!!!!!!!qcfhEibxAgqpBDukseCAfukkgAAfulEoAkfxAzeeBDqcvkvib!!myEp!tdAnknbtffspwnukzzzEtvDsuExzD*ubfphuopyw*nwcw*CCttevzDijwyzedw!wDmovpnxqtvzEtsfDvrCpCkkDcc!svfsBwDDspdrEBEEszA!prldDd*t!Emj!oBqdovrkhxAEuqojukemt*DulksppzulvbzplxAifzqpqcrldBD!!!!!!!';
    i0, i1, x, y  : byte;
    binLine       : string;

begin
  InitGraph(5);
  SetColor(1);

  x := 0;
  y := 0;
  for i0 := 1 to 245 do begin
    case qr[i0] of
      '!' : binLine := '11111';
      '*' : binLine := '00000';
      'b' : binLine := '00001';
      'c' : binLine := '00010';
      'd' : binLine := '00011';
      'e' : binLine := '00100';
      'f' : binLine := '00101';
      'g' : binLine := '00110';
      'h' : binLine := '00111';
      'i' : binLine := '01000';
      'j' : binLine := '01001';
      'k' : binLine := '01010';
      'l' : binLine := '01011';
      'm' : binLine := '01100';
      'n' : binLine := '01101';
      'o' : binLine := '01110';
      'p' : binLine := '01111';
      'q' : binLine := '10000';
      'r' : binLine := '10001';
      's' : binLine := '10010';
      't' : binLine := '10011';
      'u' : binLine := '10100';
      'v' : binLine := '10101';
      'w' : binLine := '10110';
      'x' : binLine := '10111';
      'y' : binLine := '11000';
      'z' : binLine := '11001';
      'A' : binLine := '11010';
      'B' : binLine := '11011';
      'C' : binLine := '11100';
      'D' : binLine := '11101';
      'E' : binLine := '11110';
    end;
		for i1 := 1 to 5 do begin
      write(binLine[i1]);
			if (binLine[i1] = '1') then PutPixel(x,y);
      x := x + 1;
      if (x = 35) then begin
        x := 0;
        y := y +1;
      end;
		end;
	end;
  ReadKey;
end.