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