; Pojedyncza bitmapa

script xNext
begin
  key ESC, xExit
  run x001p
end

script xExit, exit

; ***********************************************************
@script  x001p
begin
  load      sDoor001p
;  load      w1PMIX
  setqueue  sDoor001p,qDoor001p
 end

@script  xUnload001p
begin
  unload    sDoor001p
;  unload    w1PMIX
end

local sh

sprite  sDoor001p
begin
  queue qDoor001p
  begin
  priority    TRUE
  animate     fir held on 48
  hide
  animate     tyt held on 48
  exec apart_mn.bin ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  exit
end



  cel    fir            , firma,         0,    0
  cel    tyt            , tytul,         0,    0

end

bitmap firma, c:\ace\firma.dib
bitmap tytul, c:\ace\tytul.dib

;@script Audio_PlayDlg ;SG-8/10/96-INS
;parm v1     ;SG-8/10/96-INS
;parm v2     ;SG-8/10/96-INS
;begin     ;SG-8/10/96-INS
; playwave v1   ;SG-8/10/96-INS
;end




