( devices )

|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]

( variables )

|0000

@scroll [ &x $2 &y $2 &wait $1 ]

|0100 ( -> )
	#90ff .System/r DEO2 #9000 .System/g DEO2 #900f .System/b DEO2
	#08e0 .Screen/width DEI2 #01 SFT2 SUB2 .scroll/x STZ2
	#09b0 .scroll/y STZ2
	;frame .Screen/vector DEO2
	#30 .scroll/wait STZ
	BRK

@frame ( -> )
	#ffff
	&loop
	DUP2 ,row JSR
	#0001 ADD2
	DUP2 .Screen/height DEI2 LTH2 ,&loop JCN
	POP2
	.scroll/wait LDZ ,&noscroll JCN
	.scroll/y LDZ2 #0001 ADD2 .scroll/y STZ2
	BRK

	&noscroll
	.scroll/wait LDZ #01 SUB .scroll/wait STZ
	BRK

@row ( y* -- )
	DUP2 .Screen/y DEO2
	.scroll/y LDZ2 ADD2

	.Screen/width DEI2
	&loop
	#0001 SUB2
	OVR2 OVR2 .scroll/x LDZ2 ADD2 EOR2 DUP2 #0013 DIV2 #0013 MUL2 SUB2
	DUP #00 EQU ,&draw JCN
	DUP #05 EQU ,&draw JCN
	POP2
	&rest
	DUP2 ORA ,&loop JCN
	POP2 POP2
	JMP2r

	#15 .Screen/pixel DEO
	JMP2r

	&draw
	OVR2 .Screen/x DEO2
	#05 ADD .Screen/pixel DEO
	.Screen/y DEI2
	DUP2 #0001 ADD2 .Screen/y DEO2
	#00 .Screen/pixel DEO
	.Screen/y DEO2
	POP
	,&rest JMP