home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / RM08.ZIP / DEMO2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-27  |  2.1 KB  |  53 lines
  1. (* ************************************************************ *)
  2. (* Demo2.pas For Turbo Pascal                                   *)
  3. (*                                                              *)
  4. (* Rcar was created by saving the image as TP Constant          *)
  5. (* from Raster Master.                                          *)
  6. (* ************************************************************ *)
  7.  
  8. Program Demo2;
  9.  Uses Crt,Graph;
  10. Const
  11. (* Turbo Pascal, Width= 28 Height= 16 Colors= 16 *)
  12.  
  13. Rcar : Array[1..262] of Byte = (
  14.           $1B,$00,$0F,$00,$00,$00,$00,$00,$00,$3C,$00,$00,
  15.           $00,$00,$00,$00,$FF,$C3,$FF,$FF,$00,$3F,$00,$00,
  16.           $00,$7F,$00,$00,$00,$00,$00,$00,$FF,$80,$FF,$FF,
  17.           $00,$40,$00,$00,$60,$C1,$80,$00,$00,$01,$80,$00,
  18.           $9F,$01,$FF,$FF,$00,$80,$00,$00,$71,$80,$C0,$00,
  19.           $00,$00,$C0,$00,$8E,$00,$FF,$FF,$01,$00,$00,$00,
  20.           $1B,$80,$60,$00,$00,$00,$60,$00,$E4,$00,$7F,$FF,
  21.           $01,$80,$00,$00,$1F,$C0,$30,$00,$00,$00,$30,$00,
  22.           $E0,$00,$3F,$FF,$1C,$00,$00,$00,$3F,$FF,$FF,$00,
  23.           $00,$00,$00,$00,$C0,$00,$00,$FF,$3F,$8F,$EF,$00,
  24.           $7F,$FF,$FF,$C0,$00,$10,$00,$00,$80,$10,$00,$3F,
  25.           $71,$DF,$F0,$80,$FF,$FF,$FF,$E0,$00,$00,$00,$40,
  26.           $00,$00,$00,$5F,$60,$DF,$F0,$00,$F1,$FF,$F8,$F0,
  27.           $80,$00,$00,$60,$80,$00,$00,$6F,$40,$5F,$E0,$00,
  28.           $E0,$FF,$F0,$70,$80,$00,$00,$20,$80,$00,$00,$2F,
  29.           $04,$1F,$C2,$00,$C4,$7F,$E2,$30,$04,$00,$02,$00,
  30.           $04,$00,$02,$0F,$0E,$00,$07,$00,$CA,$7F,$E5,$30,
  31.           $0A,$00,$05,$00,$0A,$00,$05,$0F,$04,$00,$02,$00,
  32.           $04,$00,$02,$00,$04,$00,$02,$00,$C4,$7F,$E2,$3F,
  33.           $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
  34.           $E0,$FF,$F0,$7F,$00,$00,$00,$00,$00,$00,$00,$00,
  35.           $00,$00,$00,$00,$F1,$FF,$F8,$FF,$00,$00);
  36.  
  37. Var
  38.  Gd, Gm : Integer;
  39.  Img    : Pointer;
  40. Begin
  41.  Gd:=VGA;
  42.  Gm:=VGALo;
  43.  InitGraph(Gd,Gm,'');
  44.  
  45.  SetFillStyle(SolidFill,Blue);
  46.  Bar(0,0,GetMaxX,GetMaxY);
  47.  
  48.  Img:=@Rcar;
  49.  PutImage(0,0,Img^,NormalPut);
  50.  Repeat Until KeyPressed;
  51.  CloseGraph;
  52. end.
  53.