home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 06 / inverso / invspr2.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-09-01  |  577 b   |  31 lines
  1. UNIT invspr2;
  2. INTERFACE
  3. USES CRT, Graph, SpieleGraph;
  4.  
  5. VAR     Sprite2     : POINTER;
  6. CONST   Size        : INTEGER = 68;
  7. CONST   SpriteFeld2 : ARRAY [1..68] OF BYTE =
  8. (15,0,15,0,
  9. 170,170,170,170,
  10. 170,170,170,170,
  11. 170,170,170,170,
  12. 170,170,170,170,
  13. 170,170,170,170,
  14. 170,170,170,170,
  15. 170,170,170,170,
  16. 170,170,170,170,
  17. 170,170,170,170,
  18. 170,170,170,170,
  19. 170,170,170,170,
  20. 170,170,170,170,
  21. 170,170,170,170,
  22. 170,170,170,170,
  23. 170,170,170,170,
  24. 170,170,170,170);
  25.  
  26. IMPLEMENTATION
  27. BEGIN
  28.    GetMem (Sprite2, Size);
  29.    MOVE (SpriteFeld2, Sprite2^, Size);
  30. END.
  31.