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