Blitchar
	Tst.l	ScrollCnt
	Bne	ScrollOn
	Moveq	#0,D0
	Move.l	ScrollPtr,A0
	Move.b	(a0)+,D0
	Cmp.b	#-1,D0
	Bne.s	Scrollend
	Move.l	#Scroll,A0
	Move.b	(a0)+,d0
Scrollend
	Move.l	A0,ScrollPtr
	Sub.b	#32,D0
	Lea	CharTab,A0
	Add.b	d0,d0
	Move.w	(a0,d0),d0
	Add.l	#Font,D0
	Blitwait
	Move.l	d0,Bltapth(a5)
	Move.l	#$70000+(52*80),Bltdpth(A5)
	Move.l	#-1,Bltafwm(a5)
	Move.w	#36,BltaMOD(A5)			
	Move.w	#46,BltdMOD(A5)
	Move.l	#$09f00000,Bltcon0(a5)
	Move.w	#80*64+3,Bltsize(a5)
	Move.l	#48,ScrollCnt
ScrollOn		
	Sub.l	#1,ScrollCnt
	Move.l	#-1,Bltafwm(a5)
	Move.w	#0,BltaMOD(A5)			
	Move.w	#0,BltdMOD(A5)
	Move.l	#$f9f00000,Bltcon0(a5)
	Move.l	#$70002,Bltapth(A5)
	Move.l	#$70000,Bltdpth(A5)
	Move.w	#170*64+26,Bltsize(a5)
	
	Move.w	#6,Bltamod(a5)
	Move.w	#6,Bltdmod(a5)
	Move.l	#$09f00000,Bltcon0(a5)
	Move.l	#$7003a,Bltapth(A5)
	Move.l	#$70006,Bltdpth(A5)
	Move.w	#170*64+23,Bltsize(a5)
	Rts
	
*****************************************************************************

ScrollPtr
	Dc.l	Scroll
Scroll
	Dc.b	"MELT DOWN ",255
 Even
ScrollCnt
	Dc.l	0
	
*****************************************************************************

Chartab
	Dc.w	06+(3402*5),06+(3402*0),12+(3402*0),18+(3402*0) ;....	
	Dc.w	24+(3402*0),30+(3402*0),36+(3402*0)		;...
	Dc.w	00+(3402*1),18+(3402*5),24+(3402*5),18+(3402*1)	;`()*
	Dc.w	24+(3402*1),30+(3402*1),06+(3402*5)		;+,-
	Dc.w	12+(3402*5),30+(3402*5),30+(3402*3),36+(3402*3)	;./01
	Dc.w	00+(3402*4),06+(3402*4),12+(3402*4)		;234
	Dc.w	18+(3402*4),24+(3402*4),30+(3402*4),36+(3402*4)	;5678
	Dc.w	00+(3402*5),36+(3402*5),36+(3402*3)		;9:;
	Dc.w	00+(3402*4),06+(3402*4),12+(3402*4),18+(3402*4)	;<=>?
	Dc.w	24+(3402*4),00+(3402*0),06+(3402*0)		;@AB
	Dc.w	12+(3402*0),18+(3402*0),24+(3402*0),30+(3402*0)	;CDEF
	Dc.w	36+(3402*0),00+(3402*1),06+(3402*1)		;GHI
	Dc.w	12+(3402*1),18+(3402*1),24+(3402*1),30+(3402*1)	;JKLM
	Dc.w	36+(3402*1),00+(3402*2),06+(3402*2)		;NOP
	Dc.w	12+(3402*2),18+(3402*2),24+(3402*2),30+(3402*2)	;QRST
	Dc.w	36+(3402*2),00+(3402*3),06+(3402*3)		;UVW
	Dc.w	12+(3402*3),18+(3402*3),24+(3402*3),00+(3402*0)	;XYZ[
	Dc.w	00+(3402*0),00+(3402*0),00+(3402*0)		;\]
font:
	incbin gfx/bigfont.bm