!Free	=	$60	; Three bytes

levelinit###:
	LDA.b #%00010111	; Main screen designation
	STA $212C
	LDA.b #%00000000	; Sub screen designation
	STA $212D

	REP #$20
	LDA $0701		;\ Back up the BG color.
	STA !Free		;/
	SEP #$20
	LDA $40			;\ Back up CGADSUB
	STA !Free+2		;/
	RTS