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