c:setpatch quiet
;
; these lines test to see if an escape floppy exists and executes it
;
c:assign >NIL: PGesc: exists
if not warn 
	c:assign t: ram:
	c:execute PGesc:startup
endif
;
; PUT THE CALLS TO RUN THE CDXL ANIMS HERE !
;
c:cdgsxl cdintro.xl DOSXL xlspeed 150 blit multipal nopointer patchopenwb
;
;
; finally these lines set the stack size & run the game
;
;
stack 16384
pirates
endif