home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / PROG / BWSB120B.ZIP / TTP / EXPLOSIO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-12-17  |  351 b   |  25 lines
  1. Unit Explosions;
  2.  
  3. Interface
  4.  
  5. Var
  6.   Exp1, Exp2, Exp3 : Pointer;
  7.  
  8. Implementation
  9.  
  10. {$F+}
  11. {$L Exp1.obj}
  12. Procedure Explosion1; External;
  13.  
  14. {$L Exp2.obj}
  15. Procedure Explosion2; External;
  16.  
  17. {$L Exp3.obj}
  18. Procedure Explosion3; External;
  19. {$F-}
  20.  
  21. Begin
  22.   Exp1 := Addr(Explosion1);
  23.   Exp2 := Addr(Explosion2);
  24.   Exp3 := Addr(Explosion3);
  25. End.