c:setpatch quiet
c:assign ENV: ram:

c:filteroff
c:cdgsxl cdintro.xl xlspeed 150 blit multipal nopointer patchopenwb
c:filteron
run >nil: backdrop
wait 5
c:cdgsxl intro.xl xlspeed 150 fireabort ham multipal blit nopointer patchopenwb

stack 16384
"Gunship 2000"
avail >nil: flush
status >ram:break.tmp com=backdrop
break <ram:break.tmp >nil: ?
lab loop
c:cdgsxl cdintro.xl xlspeed 150 blit multipal nopointer patchopenwb
c:cdgsxl piratesgold.intro.xl xlspeed 150 fireabort ham multipal blit back frame.lbm x 61 y 25 boxit patchopenwb nopointer
;pirates 2	; replace 5 with the cd music track number
skip back loop
