home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 06 / stratego / stratsp1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-01  |  338 b   |  20 lines
  1. UNIT StratSp1;
  2. INTERFACE
  3. USES CRT, Graph, SpieleGraph;
  4.  
  5. VAR     Sprite1     : POINTER;
  6. CONST   Size        : INTEGER = 14;
  7. CONST   SpriteFeld1 : ARRAY [1..14] OF BYTE =
  8. (4,0,4,0,
  9. 170,128,
  10. 170,128,
  11. 166,128,
  12. 170,128,
  13. 170,128);
  14.  
  15. IMPLEMENTATION
  16. BEGIN
  17.    GetMem (Sprite1, Size);
  18.    MOVE (SpriteFeld1, Sprite1^, Size);
  19. END.
  20.