|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1

|0100

@on-reset ( -> )
	#f07f .System/r DEO2
	#f0d6 .System/g DEO2
	#f0b2 .System/b DEO2
	#0020 DUP2 .Screen/x DEO2
	.Screen/y DEO2
	;sample <draw-sixel>
	BRK

@<draw-sixel> ( data* -- )
	[ LIT2 02 -Screen/auto ] DEO
	.Screen/x DEI2 ,&anchor STR2
	&w ( -- )
		LDAk [ LIT "- ] EQU ?&line-feed
		LDAk [ LIT "? ] SUB ,&t STR
		#0600
	&l ( -- )
		[ LIT &t $1 ] OVR SFT #01 AND .Screen/pixel DEO
		INC GTHk ?&l
	POP2
	( | advance )
	.Screen/x DEI2k INC2 ROT DEO2
	.Screen/y DEI2k #0006 SUB2 ROT DEO2
	& INC2 LDAk ?&w
	POP2 JMP2r
	&line-feed ( data* -- next-data* )
		[ LIT2 &anchor $2 ] .Screen/x DEO2
		.Screen/y DEI2k #0006 ADD2 ROT DEO2
		!&

@sample [ "???owYn||~ywo??-?IRJaVNn^NVbJRI $1 ]