;-----------------------------------------
INTRO
	ld	a,1
	ld	(S_MODE+1),a

	call	CLS
	call	SWAP_SCREEN

	ld	a,%10000111
	ld	hl,BC_TTL
	call	PRINT_ABZAC

	ld	a,%10000010
	ld	hl,BC_TXT
	call	PRINT_ABZAC

	ld	a,%10000111
	ld	hl,CAP_TTL
	call	PRINT_ABZAC

	ld	a,%11000001
	ld	hl,CAP_TXT
	call	PRINT_ABZAC

	ld	a,%10000111
	ld	hl,JRN_TTL
	call	PRINT_ABZAC

	ld	a,%10000110
	ld	hl,JRN_TXT
	call	PRINT_ABZAC

	ld	a,%10000111
	ld	hl,CAP_TTL
	call	PRINT_ABZAC

	ld	a,%10000001
	ld	hl,CAP_TXT2
	call	PRINT_ABZAC

	xor	a
	ld	(S_MODE+1),a
	;call	WAIT_PRESS_KEY
	
	ret



;------------------------------------
PRINT_ABZAC
	ld	(intro_c+1),a
ia_nl	ld	a,(hl)
	and	a
	jr	z,sp_l23

	push	hl

	ld	de,#0117
intro_c	ld	a,0
	call	PRINT

	call	IS_ANY_KEY
	jr	nz,nopause


	ld	bc,#FFFF
i_pz	ld	a,b
	or	c
	dec	bc
	jr	nz,i_pz

nopause
	xor	a
	ld	(de),a
	call	sp_l23

	pop	hl
ia_ns	ld	a,(hl)
	inc	hl
	and	a
	jr	nz,ia_ns
	jr	ia_nl

sp_l23	xor	a
	ld	(S_MODE+1),a
	call	SCREEN_UP
	ld	hl,SPACE_LINE
	ld	de,#0017
	ld	a,%10000000
	call	PRINT
	ld	a,1
	ld	(S_MODE+1),a
	ret