video g
waitkey 60
set space off
set escape off
set abort off
START:
when esc link end start
cload frame,98,1
cload staff,99,1
pload snow.pal,98
pload fire.pal,99
;
pload bkg1,1
palette 1
cload banner,1,1
cload title1,3,1
setpage 1,0
pfade 0,1		;Fade background in on page 0
setpage 1,1
pfade 9,1,80,40	;Fade background in on visible page.
setpage 1,0
up 1			;Putup first banner clip
cfree 1
timer
pfree 1
dload banner,1
waitkey 70
putdff 1,5,0,16,0,250	;Make banner expand.
dfree 1
window 64,272,568,324
float 0,-55,0,0,4,3,99	;Float up blank music staff.
endfloat
window
up 99			;Music staff on both pages.
setpage 1,0
putup 0,0,98		;Putup Frame on unseen page.
setpage 1,1
edge on 15
cfade 22,56,59,98,0,50	;Fade in Frame.
setpage 1,0
putup 0,0,3		;Title 1 on page 0.
setpage 1,1
cfade 4,72,276,3,50	;Fade in Title 1.
edge off
cfree 2,3
;
;  Begin Snow Sequence
;
cload SNOW1,1,1
cload SNOW2,2,1
cload SNOW3,3,1
cload TITLE2,5,1
window 64,69,576,237
edge on 15
cfade 12,64,69,1,40	;Fade in snow scene over empty frame.
setpage 1,0
window
edge off
mark 15			;Putup the Snow clippings.
	putup 0,0,1,12
	revpage
	putup 0,0,2,12
	revpage
	putup 0,0,3,12
	revpage
loop
title 5			Put Title 1 up.
;
; Fireplace Sequence
;
cfree 1,2,3,4,5
cload FIREPLC,1,1	;Load fireplace scene.
frameclr 1,99
when esc link end start2
cfree 1
revpage
cload FLAME1,1,1
cload FLAME2,2,1
cload FLAME3,3,1
cload FLAME4,4,1
cload CANDLE1,5,1
cload CANDLE2,6,1
cload CANDLE3,7,1
cload CANDLE4,8,1
cload WSNOW1,9,1
cload WSNOW2,10,1
cload WSNOW3,11,1
cload WSNOW4,12,1
cload TITLE3,13,1
mark 10
	putup 0,0,4
	putup 0,0,5,11
	revpage
	putup 0,0,2
	putup 0,0,6,11
	revpage
	putup 0,0,1
	putup 0,0,7,11
	revpage
	putup 0,0,3
	putup 0,0,8,11
	revpage
loop
putup 0,0,1

title 13			;Put Title 2 up.
cfree 13
mark 9
	putup 0,0,4
	putup 0,0,5,11
	revpage
	putup 0,0,2
	putup 0,0,6,11
	revpage
	putup 0,0,1
	putup 0,0,7,11
	revpage
	putup 0,0,3
	putup 0,0,8,11
	revpage
loop
putup 0,0,4
cload TITLE4,13,1
title 13			;Put title 3 up.
cfree 5,6,7,8,13		;Free candle and title clippings.
cload SNOW1,20,1
cload TITLE5,50,1

mark 13
	putup 0,0,4
	putup 0,0,9,11
	revpage
	putup 0,0,2
	putup 0,0,10,11
	revpage
	putup 0,0,1
	putup 0,0,11,11
	revpage
	putup 0,0,3
	putup 0,0,12,11
	revpage
loop
title 50
frameclr 20,98
when esc link end start
cfree 1,-,19,50
cload SNOW2,21,1
cload SNOW3,22,1
mark 20			;Putup the Snow clippings.
	putup 0,0,20,12
	revpage
	putup 0,0,21,12
	revpage
	putup 0,0,22,12
	revpage
loop
set abort on
link MENU START
waitkey
exit

UP:
	putup 0,0,@1
	revpage
	putup 0,0,@1
	return

TITLE:				;USAGE:  TITLE title_clp
	edge on 15
	local dpg @drawpage
	local vpg @viewpage
	setpage @vpg,@vpg
	cfade 3,72,276,99,50	;Clear Title.
	setpage @vpg,@dpg
	putup 0,0,99		;Clear Title from unseen page.
	putup 0,0,@1		;Put Title on unseen page.		
	setpage @vpg,@vpg
	cfade 4,72,276,@1,50	;Fade in Title.
	setpage @vpg,@dpg
	edge off
	return

FRAMECLR:			;USAGE:  FRAMECLR scene_clp, palette_pic
	local dpg @drawpage
	local vpg @viewpage
	setpage @vpg,@vpg
	window 64,69,576,237
	cfade 11,56,59,98,40	;Clear Frame.
	palette @2		;Change palette.
	cfade 12,64,69,@1,40	;Fade in Scene.
	setpage @vpg,@dpg
	putup 0,0,@1		;Put scene up on unseen page.
	window
	return