(* ************************************************************ *)
(* Demo2.pas For Turbo Pascal                                   *)
(*                                                              *)
(* Rcar was created by saving the image as TP Constant          *)
(* from Raster Master.                                          *)
(* ************************************************************ *)

Program Demo2;
 Uses Crt,Graph;
Const
(* Turbo Pascal, Width= 28 Height= 16 Colors= 16 *)

Rcar : Array[1..262] of Byte = (
          $1B,$00,$0F,$00,$00,$00,$00,$00,$00,$3C,$00,$00,
          $00,$00,$00,$00,$FF,$C3,$FF,$FF,$00,$3F,$00,$00,
          $00,$7F,$00,$00,$00,$00,$00,$00,$FF,$80,$FF,$FF,
          $00,$40,$00,$00,$60,$C1,$80,$00,$00,$01,$80,$00,
          $9F,$01,$FF,$FF,$00,$80,$00,$00,$71,$80,$C0,$00,
          $00,$00,$C0,$00,$8E,$00,$FF,$FF,$01,$00,$00,$00,
          $1B,$80,$60,$00,$00,$00,$60,$00,$E4,$00,$7F,$FF,
          $01,$80,$00,$00,$1F,$C0,$30,$00,$00,$00,$30,$00,
          $E0,$00,$3F,$FF,$1C,$00,$00,$00,$3F,$FF,$FF,$00,
          $00,$00,$00,$00,$C0,$00,$00,$FF,$3F,$8F,$EF,$00,
          $7F,$FF,$FF,$C0,$00,$10,$00,$00,$80,$10,$00,$3F,
          $71,$DF,$F0,$80,$FF,$FF,$FF,$E0,$00,$00,$00,$40,
          $00,$00,$00,$5F,$60,$DF,$F0,$00,$F1,$FF,$F8,$F0,
          $80,$00,$00,$60,$80,$00,$00,$6F,$40,$5F,$E0,$00,
          $E0,$FF,$F0,$70,$80,$00,$00,$20,$80,$00,$00,$2F,
          $04,$1F,$C2,$00,$C4,$7F,$E2,$30,$04,$00,$02,$00,
          $04,$00,$02,$0F,$0E,$00,$07,$00,$CA,$7F,$E5,$30,
          $0A,$00,$05,$00,$0A,$00,$05,$0F,$04,$00,$02,$00,
          $04,$00,$02,$00,$04,$00,$02,$00,$C4,$7F,$E2,$3F,
          $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
          $E0,$FF,$F0,$7F,$00,$00,$00,$00,$00,$00,$00,$00,
          $00,$00,$00,$00,$F1,$FF,$F8,$FF,$00,$00);

Var
 Gd, Gm : Integer;
 Img    : Pointer;
Begin
 Gd:=VGA;
 Gm:=VGALo;
 InitGraph(Gd,Gm,'');

 SetFillStyle(SolidFill,Blue);
 Bar(0,0,GetMaxX,GetMaxY);

 Img:=@Rcar;
 PutImage(0,0,Img^,NormalPut);
 Repeat Until KeyPressed;
 CloseGraph;
end.