;================================
	; Show some instructions
	; return when a key is pressed
	;================================

instructions:
	;===================
	; init screen
	jsr	TEXT
	jsr	HOME
	bit	KEYRESET

	;===================
	; init vars

	lda	#0
	sta	DRAW_PAGE

	lda	#<inst_text
	sta	OUTL
	lda	#>inst_text
	sta	OUTH

	jsr	move_and_print
	jsr	move_and_print
	jsr	move_and_print
	jsr	move_and_print
	jsr	move_and_print
	jsr	move_and_print
	jsr	move_and_print

	jsr	wait_until_keypressed		; tail call?

	rts

;	    0         1         2         3
;	    0123456789012345678901234567890123456789
inst_text:

.byte  6, 0,	 "*** RASTERBARS IN SPACE ***",0

.byte  7, 3,	  "BY: VINCE 'DEATER' WEAVER",0

.byte  6, 5,     "WWW.DEATER.NET/WEAVE/VMWPROD",0

.byte  0, 7,"=======================================",0

.byte  1,9,   "ARROWS: LEFT/RIGHT  -- A/Z: UP/DOWN",0
.byte  1,10,  "SPACE: FIRE         -- ,/.: ????",0
.byte  1,11,  "ESC: QUITS",0

.asciiz      "M: TOGGLE SOUND, CURRENTLY ON"