diff --git a/build.sh b/build.sh
index 40dc661..aa2dcda 100755
--- a/build.sh
+++ b/build.sh
@@ -42,7 +42,7 @@ then
 fi
 
 echo "Assembling.."
-./bin/uxnasm projects/demos/piano.usm bin/boot.rom
+./bin/uxnasm projects/examples/devices/screen.usm bin/boot.rom
 
 echo "Running.."
 if [ "${2}" = '--cli' ]; 
diff --git a/projects/pictures/pc98.chr b/projects/pictures/pc98.chr
new file mode 100644
index 0000000..8279d67
Binary files /dev/null and b/projects/pictures/pc98.chr differ
diff --git a/projects/software/noodle.usm b/projects/software/noodle.usm
deleted file mode 100644
index af4cd3b..0000000
--- a/projects/software/noodle.usm
+++ /dev/null
@@ -1,1009 +0,0 @@
-(
-	app/noodle : illustration program
-	
-	right-click - erase
-	alt-click - drag canvas
-	arrows - move zoom
-	space - toogle zoom
-	backspace - blank canvas
-	1-8 - select brush size
-
-	TODO
-		- Pixel cleanup brush
-		- Don't zoom move beyond image width
-)
-
-%RTN   { JMP2r }
-%ABS2 { DUP2 #000f SFT2 EQU #04 JCN #ffff MUL2 }
-%LTS2  { #8000 ADD2 SWP2 #8000 ADD2 GTH2 }
-%GTS2  { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }
-%CLN2r { DUP2 STH2 }
-%STEP8 { #0033 SFT2 }
-%MOD8 { #0007 AND2  }
-%SFL { #40 SFT SFT }
-%++ { #0001 ADD2 } %-- { #0001 SUB2 }
-%2/ { #0001 SFT2 }
-%8/ { #0003 SFT2 } %8* { #0030 SFT2 }
-%8+ { #0008 ADD2 }
-%FILESIZE { .canvas/w LDZ2 .canvas/h LDZ2 MUL2 #0008 MUL2 }
-
-( devices )
-
-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
-|10 @Console [ &vector $2 &pad $6 &char $1 &byte $1 &short $2 &string $2 ]
-|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]
-|80 @Controller [ &vector $2 &button $1 &key $1 ]
-|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &chord $1 ]
-|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
-
-( variables )
-
-|0000
-
-@cursor [ &x $2 &y $2 &x0 $2 &y0 $2 &dx $2 &dy $2 ]
-@brush [ &tool $1 &size $1 &patt $1 &drag $1 &last $1 &oper $2 ]
-@zoom [ &active $1 &x $2 &y $2 ]
-@toolpane [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-@pattpane [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-@sizepane [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-@viewpane [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-@canvas [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 &w $2 &h $2 ]
-@rect [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-@line [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 &sx $2 &sy $2 &dx $2 &dy $2 &e1 $2 &e2 $2 ]
-@origin [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-@color [ &byte $1 ]
-@pt0 [ &x $2 &y $2 ]
-@pt1 [ &x $2 &y $2 ]
-@pt2 [ &x $2 &y $2 ] ( paint-rect )
-@px [ &x $1 &y $1 ]
-@document [ &state $1 &edit $1 &presentation $1 ]
-@path [ &length $1 &name $20 ]
-@timer [ &byte $1 ]
-@theme [ &r0 $2 &g0 $2 &b0 $2 &r1 $2 &g1 $2 &b1 $2 ]
-
-( program )
-
-|0100
-	
-	( theme )
-	#e0fa .theme/r0 STZ2 #30fa .theme/g0 STZ2 #30fa .theme/b0 STZ2 ( normal mode )
-	#00fe .theme/r1 STZ2 #00f3 .theme/g1 STZ2 #00f3 .theme/b1 STZ2 ( presentation mode )
-	( vectors ) ;on-screen .Screen/vector DEO2
-	( vectors ) ;on-button .Controller/vector DEO2
-	( vectors ) ;on-mouse .Mouse/vector DEO2
-
-	.theme/r0 LDZ2 .System/r DEO2 .theme/g0 LDZ2 .System/g DEO2 .theme/b0 LDZ2 .System/b DEO2
-
-	( default canvas )
-	#002a .canvas/w STZ2 #0018 .canvas/h STZ2
-
-	( default brush )
-	#04 .brush/size STZ #00 .brush/patt STZ #00 .brush/tool STZ
-
-	( load file )
-	;untitled_txt ;path/name ;strcpy JSR2
-
-	( setup panes )
-	#0010 .toolpane/x1 STZ2 #0010 .toolpane/y1 STZ2 .toolpane/x1 LDZ2 #0028 ADD2 .toolpane/x2 STZ2 .toolpane/y1 LDZ2 #0008 ADD2 .toolpane/y2 STZ2
-	#0040 .sizepane/x1 STZ2 #0010 .sizepane/y1 STZ2 .sizepane/x1 LDZ2 #0040 ADD2 .sizepane/x2 STZ2 .sizepane/y1 LDZ2 #0008 ADD2 .sizepane/y2 STZ2
-	.Screen/width DEI2 #0078 SUB2 .viewpane/x1 STZ2 #0010 .viewpane/y1 STZ2 .viewpane/x1 LDZ2 #0020 ADD2 .viewpane/x2 STZ2 .viewpane/y1 LDZ2 #0008 ADD2 .viewpane/y2 STZ2
-	.Screen/width DEI2 #0050 SUB2 .pattpane/x1 STZ2 #0010 .pattpane/y1 STZ2 .pattpane/x1 LDZ2 #0040 ADD2 .pattpane/x2 STZ2 .pattpane/y1 LDZ2 #0008 ADD2 .pattpane/y2 STZ2
-
-	( ready. )
-	;center JSR2
-	;clear JSR2
-
-	( load default file )
-	;path/name ;load-file JSR2
-
-BRK
-
-@on-screen ( -> )
-	
-	.document/edit LDZ #01 NEQ ,&no-edit JCN
-		#0008 .Screen/x DEO2
-		.Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
-		;path/name #01 .timer LDZ #04 DIV #03 AND #03 MUL ADD ;draw-label JSR2
-		&clear
-			#20 .Screen/color DEO
-			.Screen/x DEI2 8+ DUP2 .Screen/x DEO2
-			.Screen/width DEI2 LTH2 ,&clear JCN
-		( blink ) .timer LDZ #01 ADD .timer STZ
-	&no-edit
-
-BRK
-
-@on-mouse ( -> )
-	
-	;draw-cursor JSR2
-
-	( release drag )
-	.Mouse/state DEI #00 EQU .brush/drag LDZ #01 EQU #0101 NEQ2 ,&no-release JCN
-		.origin/x1 LDZ2 #0002 SUB2 .origin/y1 LDZ2 #0002 SUB2 .origin/x2 LDZ2 #0002 ADD2 .origin/y2 LDZ2 #0002 ADD2 #00 ;fill-rect JSR2
-		.canvas/x1 LDZ2 -- .canvas/y1 LDZ2 -- .canvas/x2 LDZ2 .canvas/y2 LDZ2 #10 ;line-rect JSR2
-		;draw-background JSR2
-		;fit-canvas JSR2
-		;draw-foreground JSR2
-		#00 .brush/drag STZ
-	&no-release
-
-	( operations on release line/rect )
-	.Mouse/state DEI .brush/last LDZ EQU ;&no-touch-change JCN2
-	.Mouse/x DEI2 CLN2r .canvas/x1 LDZ2 GTS2 STH2r .canvas/x2 LDZ2 LTS2 #0101 NEQ2 ;&no-touch-change JCN2
-	.Mouse/y DEI2 CLN2r .canvas/y1 LDZ2 GTS2 STH2r .canvas/y2 LDZ2 LTS2 #0101 NEQ2 ;&no-touch-change JCN2
-		.Mouse/state DEI #00 EQU ,&no-touch-ondown JCN
-			( on down )
-			.Mouse/x DEI2 .cursor/dx STZ2
-			.Mouse/y DEI2 .cursor/dy STZ2
-		&no-touch-ondown
-		.Mouse/state DEI ,&no-touch-onup JCN
-			( on up )
-			.brush/tool LDZ #02 NEQ ,&no-touch-line JCN
-				.cursor/dx LDZ2 .canvas/x1 LDZ2 SUB2 .cursor/dy LDZ2 .canvas/y1 LDZ2 SUB2 .Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 ;paint-line JSR2
-				;&touch-end JMP2
-			&no-touch-line
-			.brush/tool LDZ #03 NEQ ,&no-touch-rect JCN
-				.cursor/dx LDZ2 .canvas/x1 LDZ2 SUB2 .cursor/dy LDZ2 .canvas/y1 LDZ2 SUB2 .Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 ;paint-rect JSR2
-				;&touch-end JMP2
-			&no-touch-rect
-		&no-touch-onup
-	&no-touch-change
-
-	.Mouse/state DEI #00 EQU ;&no-touch JCN2
-
-		( drag )
-		.Controller/button DEI #02 NEQ ;&no-drag JCN2
-			.brush/drag LDZ ,&no-drag-start JCN
-				.canvas/x1 LDZ2 .origin/x1 STZ2
-				.canvas/y1 LDZ2 .origin/y1 STZ2
-				.canvas/x2 LDZ2 .origin/x2 STZ2
-				.canvas/y2 LDZ2 .origin/y2 STZ2
-			&no-drag-start
-			.canvas/x1 LDZ2 -- .canvas/y1 LDZ2 -- .canvas/x2 LDZ2 .canvas/y2 LDZ2 #10 ;line-rect JSR2
-			.canvas/x1 LDZ2 .Mouse/x DEI2 .cursor/x0 LDZ2 SUB2 ADD2 .canvas/x1 STZ2
-			.canvas/y1 LDZ2 .Mouse/y DEI2 .cursor/y0 LDZ2 SUB2 ADD2 .canvas/y1 STZ2
-			.canvas/w LDZ2 8* .canvas/x1 LDZ2 ADD2 .canvas/x2 STZ2
-			.canvas/h LDZ2 8* .canvas/y1 LDZ2 ADD2 .canvas/y2 STZ2
-			.canvas/x1 LDZ2 -- .canvas/y1 LDZ2 -- .canvas/x2 LDZ2 .canvas/y2 LDZ2 #13 ;line-rect JSR2
-			#01 .brush/drag STZ
-			;&touch-end JMP2
-		&no-drag
-
-		( in sizepane )
-		.Mouse/x DEI2 CLN2r .sizepane/x1 LDZ2 GTH2 STH2r .sizepane/x2 LDZ2 LTH2 #0101 NEQ2 ,&no-touch-sizepane JCN
-		.Mouse/y DEI2 CLN2r .sizepane/y1 LDZ2 GTH2 STH2r .sizepane/y2 LDZ2 LTH2 #0101 NEQ2 ,&no-touch-sizepane JCN
-			( release ) #00 .Mouse/state DEO
-			#01 .brush/tool STZ
-			.Mouse/x DEI2 .sizepane/x1 LDZ2 SUB2 8/ SWP POP .brush/size STZ
-			( draw ) ;draw-sizepane JSR2
-			( draw ) ;draw-toolpane JSR2
-			;&touch-end JMP2
-		&no-touch-sizepane
-
-		( in pattpane )
-		.Mouse/x DEI2 CLN2r .pattpane/x1 LDZ2 GTH2 STH2r .pattpane/x2 LDZ2 LTH2 #0101 NEQ2 ,&no-touch-pattpane JCN
-		.Mouse/y DEI2 CLN2r .pattpane/y1 LDZ2 GTH2 STH2r .pattpane/y2 LDZ2 LTH2 #0101 NEQ2 ,&no-touch-pattpane JCN
-			( release ) #00 .Mouse/state DEO
-			.Mouse/x DEI2 .pattpane/x1 LDZ2 SUB2 8/ SWP POP .brush/patt STZ
-			( draw ) ;draw-pattpane JSR2
-			;&touch-end JMP2
-		&no-touch-pattpane
-
-		( in toolpane )
-		.Mouse/x DEI2 CLN2r .toolpane/x1 LDZ2 GTH2 STH2r .toolpane/x2 LDZ2 LTH2 #0101 NEQ2 ,&no-touch-toolpane JCN
-		.Mouse/y DEI2 CLN2r .toolpane/y1 LDZ2 GTH2 STH2r .toolpane/y2 LDZ2 LTH2 #0101 NEQ2 ,&no-touch-toolpane JCN
-			( release ) #00 .Mouse/state DEO
-			.Mouse/x DEI2 .toolpane/x1 LDZ2 SUB2 8/ SWP POP .brush/tool STZ
-			( draw ) ;draw-toolpane JSR2
-			;&touch-end JMP2
-		&no-touch-toolpane
-
-		( in viewpane )
-		.Mouse/x DEI2 CLN2r .viewpane/x1 LDZ2 GTH2 STH2r .viewpane/x2 LDZ2 LTH2 #0101 NEQ2 ;&no-touch-viewpane JCN2
-		.Mouse/y DEI2 CLN2r .viewpane/y1 LDZ2 GTH2 STH2r .viewpane/y2 LDZ2 LTH2 #0101 NEQ2 ;&no-touch-viewpane JCN2
-			( release ) #00 .Mouse/state DEO
-			( clear ) .canvas/x1 LDZ2 #0002 SUB2 .canvas/y1 LDZ2 #0002 SUB2 .canvas/x2 LDZ2 #0002 ADD2 .canvas/y2 LDZ2 #0002 ADD2 #00 ;fill-rect JSR2
-			;draw-background JSR2
-			.Mouse/x DEI2 .viewpane/x1 LDZ2 SUB2 8/ SWP POP
-			DUP ,&no-incwidth JCN
-				.canvas/w LDZ2 ++ .canvas/w STZ2
-			&no-incwidth
-			DUP #01 NEQ ,&no-decwidth JCN
-				.canvas/w LDZ2 -- .canvas/w STZ2
-			&no-decwidth
-			DUP #02 NEQ ,&no-incheight JCN
-				.canvas/h LDZ2 ++ .canvas/h STZ2
-			&no-incheight
-			DUP #03 NEQ ,&no-decheight JCN
-				.canvas/h LDZ2 -- .canvas/h STZ2
-			&no-decheight
-			POP
-			;fit-canvas JSR2
-			;redraw JSR2
-			;&touch-end JMP2
-		&no-touch-viewpane
-
-		( in canvas )
-		.Mouse/x DEI2 CLN2r .canvas/x1 LDZ2 GTS2 STH2r .canvas/x2 LDZ2 LTS2 #0101 NEQ2 ;&no-touch-canvas JCN2
-		.Mouse/y DEI2 CLN2r .canvas/y1 LDZ2 GTS2 STH2r .canvas/y2 LDZ2 LTS2 #0101 NEQ2 ;&no-touch-canvas JCN2
-
-			( set cursor operation )
-			;add-pixel .Mouse/state DEI #01 EQU ;&no-oper JCN2 POP2 ;remove-pixel &no-oper .brush/oper STZ2
-
-			.brush/tool LDZ ,&no-touch-pen JCN
-				.cursor/x0 LDZ2 .canvas/x1 LDZ2 SUB2 .cursor/y0 LDZ2 .canvas/y1 LDZ2 SUB2 .Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 ;paint-line JSR2
-				;&touch-end JMP2
-			&no-touch-pen
-
-			.brush/tool LDZ #01 NEQ ,&no-touch-brush JCN
-				.Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 ;paint-brush JSR2
-				;&touch-end JMP2
-			&no-touch-brush
-
-			.brush/tool LDZ #04 NEQ ,&no-touch-zoom JCN
-				.zoom/active LDZ #00 EQU .zoom/active STZ
-				( release ) #00 .Mouse/state DEO
-				.Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .canvas/w LDZ2 2/ SUB2 .zoom/x STZ2
-				.Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 .canvas/h LDZ2 2/ SUB2 .zoom/y STZ2
-				;redraw JSR2
-				;&touch-end JMP2
-			&no-touch-zoom
-
-		&no-touch-canvas
-
-		( background interface )
-		.Mouse/y DEI2 STEP8 .Screen/height DEI2 #0010 SUB2 NEQ2 ,&no-touch-background JCN
-			.Mouse/x DEI2 .Screen/width DEI2 #0028 SUB2 SUB2 8/ SWP POP
-			DUP ,&no-eye-button JCN
-				;present JSR2
-				( release ) #00 .Mouse/state DEO
-			&no-eye-button
-			DUP #01 NEQ ,&no-rename-button JCN
-				;rename JSR2
-				#01 .document/edit STZ
-				( release ) #00 .Mouse/state DEO
-			&no-rename-button
-			DUP #02 NEQ ,&no-load-button JCN
-				;path/name ;load-file JSR2
-				;draw-canvas JSR2
-				( release ) #00 .Mouse/state DEO
-			&no-load-button
-			DUP #03 NEQ ,&no-save-button JCN
-				;path/name ;save-file JSR2
-				( release ) #00 .Mouse/state DEO
-			&no-save-button
-			POP
-		&no-touch-background
-
-		( jump label )
-		&touch-end
-
-	&no-touch
-
-	.Mouse/x DEI2 .cursor/x0 STZ2
-	.Mouse/y DEI2 .cursor/y0 STZ2
-	.Mouse/state DEI .brush/last STZ
-
-BRK
-
-@on-button ( -> )
-
-	( if in renaming mode )
-	.document/edit LDZ #01 NEQ ;&no-edit JCN2
-	.Controller/key DEI #00 EQU ;&no-edit JCN2
-		( enter )
-		.Controller/key DEI #0d NEQ ,&no-edit-enter JCN
-			#00 .document/edit STZ
-			;redraw JSR2
-			BRK
-			&no-edit-enter
-		( backspace )
-		.Controller/key DEI #08 NEQ ,&no-edit-backspace JCN
-			.path/length LDZ #00 EQU ,&edit-end JCN
-			.path/length LDZ #01 SUB .path/length STZ
-			#00 ;path/name #00 .path/length LDZ ADD2 STA
-			BRK
-			&no-edit-backspace
-		( default )
-		.path/length LDZ #1f EQU ,&edit-end JCN
-			.Controller/key DEI ;path/name #00 .path/length LDZ ADD2 STA
-			.path/length LDZ #01 ADD .path/length STZ
-		&edit-end
-		#00 ;path/name #00 .path/length LDZ ADD2 STA
-		BRK
-	&no-edit
-	
-	( control zoom )
-	.zoom/active LDZ #00 EQU ,&skip-zoom JCN
-		.Controller/button DEI #f0 AND
-			DUP #04 SFT #01 AND #01 NEQ ,&no-up JCN
-				( move ) .zoom/y LDZ2 -- .zoom/y STZ2 &no-up
-			DUP #05 SFT #01 AND #01 NEQ ,&no-down JCN
-				( move ) .zoom/y LDZ2 ++ .zoom/y STZ2 &no-down
-			DUP #06 SFT #01 AND #01 NEQ ,&no-left JCN
-				( move ) .zoom/x LDZ2 -- .zoom/x STZ2 &no-left
-			DUP #07 SFT #01 AND #01 NEQ ,&no-right JCN
-				( move ) .zoom/x LDZ2 ++ .zoom/x STZ2 &no-right
-		#00 EQU #04 JCN ;draw-canvas JSR2
-	&skip-zoom
-
-	.Controller/key DEI
-	DUP #20 NEQ ,&no-space JCN
-		( toggle zoom ) .zoom/active LDZ #00 EQU .zoom/active STZ ;redraw JSR2 &no-space
-	DUP #08 NEQ ,&no-backspace JCN
-		( erase ) ;clear JSR2 &no-backspace
-	DUP #71 NEQ ,&no-qkey JCN
-		( tool0 ) #00 .brush/tool STZ ;draw-toolpane JSR2 &no-qkey
-	DUP #77 NEQ ,&no-wkey JCN
-		( tool0 ) #01 .brush/tool STZ ;draw-toolpane JSR2 &no-wkey
-	DUP #65 NEQ ,&no-ekey JCN
-		( tool0 ) #02 .brush/tool STZ ;draw-toolpane JSR2 &no-ekey
-	DUP #72 NEQ ,&no-rkey JCN
-		( tool0 ) #03 .brush/tool STZ ;draw-toolpane JSR2 &no-rkey
-	DUP #74 NEQ ,&no-tkey JCN
-		( tool0 ) #04 .brush/tool STZ ;draw-toolpane JSR2 &no-tkey
-	DUP
-		DUP #30 GTH SWP #39 LTH #0101 NEQ2 ,&no-numkey JCN
-		( size ) .Controller/key DEI #31 SUB .brush/size STZ ;draw-sizepane JSR2 &no-numkey
-	POP
-
-BRK
-
-@center ( -- )
-	
-	( clear old )
-	.canvas/x1 LDZ2 #0002 SUB2 .canvas/y1 LDZ2 #0002 SUB2 .canvas/x2 LDZ2 #0002 ADD2 .canvas/y2 LDZ2 #0002 ADD2 #00 ;fill-rect JSR2
-
-	;draw-background JSR2
-
-	.Screen/width DEI2 #0002 DIV2 .canvas/w LDZ2 8* 2/ SUB2 .canvas/x1 STZ2
-	.Screen/height DEI2 #0002 DIV2 .canvas/h LDZ2 8* 2/ SUB2 .canvas/y1 STZ2
-
-	;fit-canvas JSR2
-	;draw-foreground JSR2
-
-RTN
-
-@rename
-	
-	;untitled_txt ;path/name ;strcpy JSR2
-	#00 .path/length STZ
-
-RTN
-
-@clear ( -- )
-	
-	;data FILESIZE ;data ADD2
-	&loop
-		( write ) OVR2 #00 ROT ROT STA
-		( incr ) SWP2 #0001 ADD2 SWP2
-		OVR2 OVR2 LTH2 ,&loop JCN
-	POP2 POP2
-	;redraw JSR2
-
-RTN
-
-@present
-
-	.document/presentation LDZ #00 EQU .document/presentation STZ
-
-	.document/presentation LDZ
-	DUP ,&skip0 JCN
-		.theme/r0 LDZ2 .System/r DEO2 .theme/g0 LDZ2 .System/g DEO2 .theme/b0 LDZ2 .System/b DEO2
-	&skip0
-	DUP #01 NEQ ,&skip1 JCN
-		.theme/r1 LDZ2 .System/r DEO2 .theme/g1 LDZ2 .System/g DEO2 .theme/b1 LDZ2 .System/b DEO2
-	&skip1
-	POP
-
-	.toolpane/x1 LDZ2 #0002 SUB2 .toolpane/y1 LDZ2 #0002 SUB2 .toolpane/x2 LDZ2 ++ .toolpane/y2 LDZ2 ++ #00 ;fill-rect JSR2
-	.pattpane/x1 LDZ2 #0002 SUB2 .pattpane/y1 LDZ2 #0002 SUB2 .pattpane/x2 LDZ2 ++ .pattpane/y2 LDZ2 ++ #00 ;fill-rect JSR2
-	.sizepane/x1 LDZ2 #0002 SUB2 .sizepane/y1 LDZ2 #0002 SUB2 .sizepane/x2 LDZ2 ++ .sizepane/y2 LDZ2 ++ #00 ;fill-rect JSR2
-	.viewpane/x1 LDZ2 #0002 SUB2 .viewpane/y1 LDZ2 #0002 SUB2 .viewpane/x2 LDZ2 ++ .viewpane/y2 LDZ2 ++ #00 ;fill-rect JSR2
-
-	( clear panes )
-	;redraw JSR2
-
-RTN
-
-@fit-canvas
-	
-	.canvas/w LDZ2 8* .canvas/x1 LDZ2 ADD2 .canvas/x2 STZ2
-	.canvas/h LDZ2 8* .canvas/y1 LDZ2 ADD2 .canvas/y2 STZ2
-	.canvas/x1 LDZ2 -- .canvas/y1 LDZ2 -- .canvas/x2 LDZ2 .canvas/y2 LDZ2 #01 ;line-rect JSR2
-	;draw-canvas JSR2
-
-RTN
-
-@paint-line ( x1 y1 x2 y2 -- )
-	
-	( load ) .line/y1 STZ2 .line/x1 STZ2 .line/y2 STZ2 .line/x2 STZ2
-
-	( trim if zoomed )
-	.zoom/active LDZ #01 NEQ ,&no-zoom JCN
-		.line/x1 LDZ2 8/ .zoom/x LDZ2 ADD2 .line/x1 STZ2
-		.line/y1 LDZ2 8/ .zoom/y LDZ2 ADD2 .line/y1 STZ2
-		.line/x2 LDZ2 8/ .zoom/x LDZ2 ADD2 .line/x2 STZ2
-		.line/y2 LDZ2 8/ .zoom/y LDZ2 ADD2 .line/y2 STZ2
-	&no-zoom
-
-	.line/x1 LDZ2 .line/x2 LDZ2 SUB2 ABS2 .line/dx STZ2
-	.line/y1 LDZ2 .line/y2 LDZ2 SUB2 ABS2 #0000 SWP2 SUB2 .line/dy STZ2
-	#ffff #00 .line/x2 LDZ2 .line/x1 LDZ2 LTS2 #0002 MUL2 ADD2 .line/sx STZ2
-	#ffff #00 .line/y2 LDZ2 .line/y1 LDZ2 LTS2 #0002 MUL2 ADD2 .line/sy STZ2
-	.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
-	&loop
-		( paint ) .line/x2 LDZ2 .line/y2 LDZ2 .brush/oper LDZ2 JSR2
-		.line/x2 LDZ2 .line/x1 LDZ2 EQU2 .line/y2 LDZ2 .line/y1 LDZ2 EQU2 #0101 EQU2 ,&end JCN
-		.line/e1 LDZ2 #0002 MUL2 .line/e2 STZ2
-		.line/e2 LDZ2 .line/dy LDZ2 LTS2 ,&skipy JCN
-			.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
-			.line/x2 LDZ2 .line/sx LDZ2 ADD2 .line/x2 STZ2
-		&skipy
-		.line/e2 LDZ2 .line/dx LDZ2 GTS2 ,&skipx JCN
-			.line/e1 LDZ2 .line/dx LDZ2 ADD2 .line/e1 STZ2
-			.line/y2 LDZ2 .line/sy LDZ2 ADD2 .line/y2 STZ2
-		&skipx
-		;&loop JMP2
-	&end
-
-	;draw-canvas JSR2
-	;draw-foreground JSR2
-
-RTN
-
-@paint-rect ( x1 y1 x2 y2 -- )
-
-	( load ) .rect/y2 STZ2 .rect/x2 STZ2 .rect/y1 STZ2 .rect/x1 STZ2
-
-	( trim if zoomed )
-	.zoom/active LDZ #01 NEQ ,&no-zoom JCN
-		.rect/x1 LDZ2 8/ .zoom/x LDZ2 ADD2 .rect/x1 STZ2
-		.rect/y1 LDZ2 8/ .zoom/y LDZ2 ADD2 .rect/y1 STZ2
-		.rect/x2 LDZ2 8/ .zoom/x LDZ2 ADD2 #0001 ADD2 .rect/x2 STZ2
-		.rect/y2 LDZ2 8/ .zoom/y LDZ2 ADD2 #0001 ADD2 .rect/y2 STZ2
-	&no-zoom
-
-	.rect/x1 LDZ2 .pt2/x STZ2
-	.rect/y1 LDZ2 .pt2/y STZ2
-
-	&ver
-		.rect/x1 LDZ2 .pt2/x STZ2
-		&hor
-			.pt2/x LDZ2 SWP POP .px/x STZ .pt2/y LDZ2 SWP POP .px/y STZ
-			;patternize JSR2 #00 EQU ,&no-pixel JCN
-				( draw ) .pt2/x LDZ2 .pt2/y LDZ2 .brush/oper LDZ2 JSR2 &no-pixel
-			( incr ) .pt2/x LDZ2 ++ .pt2/x STZ2
-			.pt2/x LDZ2 .rect/x2 LDZ2 LTS2 ,&hor JCN
-		.pt2/y LDZ2 ++ .pt2/y STZ2
-		.pt2/y LDZ2 .rect/y2 LDZ2 LTS2 ,&ver JCN
-
-	;draw-canvas JSR2
-	;draw-foreground JSR2
-	
-RTN
-
-@paint-brush ( x y -- )
-
-	#0003 SUB2 .pt0/y STZ2 #0003 SUB2 .pt0/x STZ2 ( cursor offset )
-
-	( trim if zoomed )
-	.zoom/active LDZ #01 NEQ ,&no-zoom JCN
-		.pt0/x LDZ2 8/ .zoom/x LDZ2 ADD2 #0003 SUB2 .pt0/x STZ2
-		.pt0/y LDZ2 8/ .zoom/y LDZ2 ADD2 #0003 SUB2 .pt0/y STZ2
-	&no-zoom
-
-	#00 .px/x STZ #00 .px/y STZ
-	&ver
-		#00 .px/x STZ
-		&hor
-			( addr ) ;size_icns #00 .brush/size LDZ 8* ADD2
-			( byte ) #00 .px/y LDZ ADD2 LDA #07 .px/x LDZ SUB SFT #01 AND
-			#00 EQU ,&no-pixel JCN
-			;patternize JSR2 #00 EQU ,&no-pixel JCN
-				.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 .brush/oper LDZ2 JSR2 &no-pixel
-			( incr ) .px/x LDZ #01 ADD .px/x STZ
-			.px/x LDZ #08 LTH ,&hor JCN
-		( incr ) .px/y LDZ #01 ADD .px/y STZ
-		.px/y LDZ #08 LTH ,&ver JCN
-
-	;draw-canvas JSR2
-	;draw-foreground JSR2
-
-RTN
-
-@patternize ( -- )
-
-	.brush/patt LDZ ,&noplain JCN
-		#01 RTN &noplain
-
-	.brush/patt LDZ #01 NEQ ,&notone1 JCN
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 ADD2 #0001 AND2 #0000 EQU2
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 SUB2 #0001 AND2 #0000 EQU2
-		#0101 EQU2
-		RTN &notone1
-
-	.brush/patt LDZ #02 NEQ ,&notone2 JCN
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 ADD2 #0003 AND2 #0000 EQU2
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 SUB2 #0003 AND2 #0000 EQU2
-		#0101 EQU2
-		RTN &notone2
-
-	.brush/patt LDZ #03 NEQ ,&notone3 JCN
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 ADD2 #0005 AND2 #0000 EQU2
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 SUB2 #0005 AND2 #0000 EQU2
-		#0101 EQU2
-		RTN &notone3
-
-	.brush/patt LDZ #04 NEQ ,&notone4 JCN
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 ADD2 #0003 AND2 #0000 EQU2 RTN &notone4
-
-	.brush/patt LDZ #05 NEQ ,&notone5 JCN
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 .pt0/y LDZ2 #00 .px/y LDZ ADD2 SUB2 #0003 AND2 #0000 EQU2 RTN &notone5
-
-	.brush/patt LDZ #06 NEQ ,&notone6 JCN
-		.pt0/x LDZ2 #00 .px/x LDZ ADD2 #0001 AND2 SWP POP RTN &notone6
-
-	.brush/patt LDZ #07 NEQ ,&notone7 JCN
-		.pt0/y LDZ2 #00 .px/y LDZ ADD2 #0001 AND2 SWP POP RTN &notone7
-
-	#00
-
-RTN
-
-@get-pixel ( x y -- b )
-
-	SWP POP #07 AND .px/y STZ
-	SWP POP #07 AND .px/x STZ
-	( get tile ) .pt1/x LDZ2 8/ .pt1/y LDZ2 8/ .canvas/w LDZ2 MUL2 ADD2 8*
-	( add addr ) ;data ADD2
-	#00 .px/y LDZ ADD2 LDA #07 .px/x LDZ SUB SFT #01 AND
-
-RTN
-
-@add-pixel ( x y -- )
-
-	.pt1/y STZ2 .pt1/x STZ2
-	( get tile addr ) ;data .pt1/x LDZ2 8/ .pt1/y LDZ2 8/ .canvas/w LDZ2 MUL2 ADD2 8* .pt1/y LDZ2 MOD8 ADD2 ADD2
-	( load ) DUP2 LDA
-	( mask ) #01 #07 .pt1/x LDZ2 MOD8 SWP POP SUB SFL ORA
-	( save ) ROT ROT STA
-
-RTN
-
-@remove-pixel ( x y -- )
-
-	.pt1/y STZ2 .pt1/x STZ2
-	( get tile addr ) ;data .pt1/x LDZ2 8/ .pt1/y LDZ2 8/ .canvas/w LDZ2 MUL2 ADD2 8* .pt1/y LDZ2 MOD8 ADD2 ADD2
-	( load ) DUP2 LDA
-	( mask ) #01 #07 .pt1/x LDZ2 MOD8 SWP POP SUB SFL #ff EOR AND
-	( save ) ROT ROT STA
-
-RTN
-
-( file )
-
-@load-file ( path -- )
-
-	.File/name DEO2 FILESIZE .File/length DEO2 ;data .File/load DEO2
-	.File/name DEI2 ;path/name ;strcpy JSR2
-	;draw-canvas JSR2
-
-RTN
-
-@save-file ( path -- )
-
-	.File/name DEO2 FILESIZE .File/length DEO2 ;data .File/save DEO2
-
-RTN
-
-( Drawing )
-
-@redraw ( -- )
-	
-	;draw-background JSR2
-	;draw-canvas JSR2
-	;draw-foreground JSR2
-		
-RTN
-
-@draw-canvas ( -- )
-	
-	.zoom/active LDZ #01 EQU ;draw-canvas-zoom JCN2
-
-	.canvas/y1 LDZ2 .Screen/y DEO2
-	;data .Screen/addr DEO2
-	&ver
-		.canvas/x1 LDZ2 .Screen/x DEO2
-		&hor
-			( draw ) #29 .Screen/color DEO
-			( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-			( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
-		.Screen/x DEI2 .canvas/x2 LDZ2 NEQ2 ,&hor JCN
-		( incr ) .Screen/y DEI2 8+ .Screen/y DEO2
-	.Screen/y DEI2 .canvas/y2 LDZ2 NEQ2 ,&ver JCN
-
-RTN
-
-@draw-canvas-zoom ( -- )
-	
-	.zoom/y LDZ2 .pt1/y STZ2
-	.canvas/y1 LDZ2 .Screen/y DEO2
-	;data .Screen/addr DEO2
-	&ver
-		.canvas/x1 LDZ2 .Screen/x DEO2
-		.zoom/x LDZ2 .pt1/x STZ2
-		&hor
-			( incr ) ;bigpixel_icn #0008 #00 .pt1/x LDZ2 .pt1/y LDZ2 ;get-pixel JSR2 MUL2 ADD2 .Screen/addr DEO2
-			( draw ) #29 .Screen/color DEO
-			( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-			( incr ) .pt1/x LDZ2 ++ .pt1/x STZ2
-		.Screen/x DEI2 .canvas/x2 LDZ2 NEQ2 ,&hor JCN
-		( incr ) .Screen/y DEI2 8+ .Screen/y DEO2
-		( incr ) .pt1/y LDZ2 ++ .pt1/y STZ2
-	.Screen/y DEI2 .canvas/y2 LDZ2 NEQ2 ,&ver JCN
-
-RTN
-
-@draw-cursor ( -- )
-
-	;blank_icn .Screen/addr DEO2
-	( clear brush size )
-	.cursor/x LDZ2 #0003 SUB2 .Screen/x DEO2 .cursor/y LDZ2 #0003 SUB2 .Screen/y DEO2 #30 .Screen/color DEO
-	( clear last cursor )
-	.cursor/x LDZ2 .Screen/x DEO2 .cursor/y LDZ2 .Screen/y DEO2 #30 .Screen/color DEO
-	( record cursor positions )
-	.Mouse/x DEI2 .cursor/x STZ2 .Mouse/y DEI2 .cursor/y STZ2
-	( draw size cursor )
-	.brush/tool LDZ #01 NEQ ;&outside-canvas JCN2
-	( do not draw size when holding alt )
-	.Controller/button DEI #02 EQU ;&outside-canvas JCN2
-	.Mouse/x DEI2 CLN2r .canvas/x1 LDZ2 GTH2 STH2r .canvas/x2 LDZ2 LTH2 #0101 NEQ2 ;&outside-canvas JCN2
-	.Mouse/y DEI2 CLN2r .canvas/y1 LDZ2 GTH2 STH2r .canvas/y2 LDZ2 LTH2 #0101 NEQ2 ;&outside-canvas JCN2	
-	( do not draw size in toolpane )
-	.Mouse/x DEI2 CLN2r .toolpane/x1 LDZ2 GTH2 STH2r .toolpane/x2 LDZ2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .toolpane/y1 LDZ2 GTH2 STH2r .toolpane/y2 LDZ2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JCN2
-	.Mouse/x DEI2 CLN2r .sizepane/x1 LDZ2 GTH2 STH2r .sizepane/x2 LDZ2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .sizepane/y1 LDZ2 GTH2 STH2r .sizepane/y2 LDZ2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JCN2
-	.Mouse/x DEI2 CLN2r .pattpane/x1 LDZ2 GTH2 STH2r .pattpane/x2 LDZ2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .pattpane/y1 LDZ2 GTH2 STH2r .pattpane/y2 LDZ2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JCN2
-		.cursor/x LDZ2 #0003 SUB2 .Screen/x DEO2 .cursor/y LDZ2 #0003 SUB2 .Screen/y DEO2
-		;brush_icns #00 .brush/size LDZ 8* ADD2 .Screen/addr DEO2
-		#31 .Mouse/state DEI #02 MUL ADD .Screen/color DEO
-		.Mouse/state DEI #00 EQU ,&outside-canvas JCN RTN
-	&outside-canvas
-	( draw new cursor )
-	.cursor/x LDZ2 .Screen/x DEO2 .cursor/y LDZ2 .Screen/y DEO2
-	;pointers_icn #00 .Controller/button DEI #02 EQU 8* ADD2 .Screen/addr DEO2
-	#3f .Mouse/state DEI #01 EQU #0a MUL SUB .Screen/color DEO
-
-RTN
-
-@draw-toolpane ( -- )
-
-	.document/presentation LDZ #00 EQU ,&skip JCN RTN &skip
-
-	( frame ) 	
-	.toolpane/x1 LDZ2 -- .toolpane/y1 LDZ2 -- .toolpane/x2 LDZ2 .toolpane/y2 LDZ2 #00 ;line-rect JSR2
-	.toolpane/x1 LDZ2 #0002 SUB2 .toolpane/y1 LDZ2 #0002 SUB2 .toolpane/x2 LDZ2 .toolpane/y2 LDZ2 #01 ;line-rect JSR2
-
-	.toolpane/x1 LDZ2 .Screen/x DEO2 .toolpane/y1 LDZ2 .Screen/y DEO2 ;tool_icns .Screen/addr DEO2
-
-	&loop
-		( draw ) #21 .Screen/x DEI2 .toolpane/x1 LDZ2 SUB2 8/ SWP POP .brush/tool LDZ EQU #02 MUL ADD .Screen/color DEO
-		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
-		.Screen/x DEI2 .toolpane/x2 LDZ2 LTH2 ,&loop JCN
-
-	.zoom/active LDZ #01 NEQ ,&no-zoom JCN
-		.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
-		;tool_icns #0028 ADD2 .Screen/addr DEO2
-		#21 #04 .brush/tool LDZ EQU #02 MUL ADD .Screen/color DEO
-		&no-zoom
-
-RTN
-
-@draw-pattpane ( -- )
-
-	.document/presentation LDZ #00 EQU ,&skip JCN RTN &skip
-
-	( frame ) 	
-	.pattpane/x1 LDZ2 -- .pattpane/y1 LDZ2 -- .pattpane/x2 LDZ2 .pattpane/y2 LDZ2 #00 ;line-rect JSR2
-	.pattpane/x1 LDZ2 #0002 SUB2 .pattpane/y1 LDZ2 #0002 SUB2 .pattpane/x2 LDZ2 .pattpane/y2 LDZ2 #01 ;line-rect JSR2
-
-	.pattpane/x1 LDZ2 .Screen/x DEO2 .pattpane/y1 LDZ2 .Screen/y DEO2 ;patt_icns .Screen/addr DEO2
-
-	&loop
-		( draw ) #21 .Screen/x DEI2 .pattpane/x1 LDZ2 SUB2 8/ SWP POP .brush/patt LDZ EQU #02 MUL ADD .Screen/color DEO
-		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
-		.Screen/x DEI2 .pattpane/x2 LDZ2 LTH2 ,&loop JCN
-
-RTN
-
-@draw-sizepane ( -- )
-
-	.document/presentation LDZ #00 EQU ,&skip JCN RTN &skip
-
-	( frame )
-	.sizepane/x1 LDZ2 -- .sizepane/y1 LDZ2 -- .sizepane/x2 LDZ2 .sizepane/y2 LDZ2 #00 ;line-rect JSR2
-	.sizepane/x1 LDZ2 #0002 SUB2 .sizepane/y1 LDZ2 #0002 SUB2 .sizepane/x2 LDZ2 .sizepane/y2 LDZ2 #01 ;line-rect JSR2
-
-	.sizepane/x1 LDZ2 .Screen/x DEO2 .sizepane/y1 LDZ2 .Screen/y DEO2 ;size_icns .Screen/addr DEO2
-
-	&loop
-		( draw ) #21 .Screen/x DEI2 .sizepane/x1 LDZ2 SUB2 8/ SWP POP .brush/size LDZ EQU #02 MUL ADD .Screen/color DEO
-		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
-		.Screen/x DEI2 .sizepane/x2 LDZ2 LTH2 ,&loop JCN
-
-RTN
-
-@draw-viewpane ( -- )
-	
-	.document/presentation LDZ #00 EQU ,&skip JCN RTN &skip
-
-	( frame )
-	.viewpane/x1 LDZ2 -- .viewpane/y1 LDZ2 -- .viewpane/x2 LDZ2 .viewpane/y2 LDZ2 #00 ;line-rect JSR2
-	.viewpane/x1 LDZ2 #0002 SUB2 .viewpane/y1 LDZ2 #0002 SUB2 .viewpane/x2 LDZ2 .viewpane/y2 LDZ2 #01 ;line-rect JSR2
-
-	.viewpane/x1 LDZ2 .Screen/x DEO2 .viewpane/y1 LDZ2 .Screen/y DEO2 ;view_icns .Screen/addr DEO2
-
-	&loop
-		( draw ) #21 .Screen/color DEO
-		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
-		.Screen/x DEI2 .viewpane/x2 LDZ2 LTH2 ,&loop JCN
-
-RTN
-
-@draw-foreground
-	
-	;draw-toolpane JSR2
-	;draw-pattpane JSR2
-	;draw-sizepane JSR2
-	;draw-viewpane JSR2
-
-RTN
-
-@draw-background
-	
-	( draw hor line )
-	#0000 .Screen/width DEI2 .Screen/height DEI2 #0002 DIV2 .document/presentation LDZ #00 EQU ;line-horizontal-dotted JSR2
-	( draw ver line )
-	.Screen/width DEI2 #0002 DIV2 #0000 .Screen/height DEI2 .document/presentation LDZ #00 EQU ;line-vertical-dotted JSR2
-
-	.document/presentation LDZ #01 EQU ;&skip-size JCN2
-		( draw size )
-		#0010 .Screen/y DEO2
-		( draw width )
-		.Screen/width DEI2 #00a0 SUB2 .Screen/x DEO2 ;font_hex .canvas/w LDZ2 #f0 AND #04 SFT #08 MUL ADD2 .Screen/addr DEO2
-		( draw ) #21 .Screen/color DEO
-		.Screen/x DEI2 8+ .Screen/x DEO2 ;font_hex .canvas/w LDZ2 #0f AND #08 MUL ADD2 .Screen/addr DEO2
-		( draw ) #21 .Screen/color DEO
-		( draw height )
-		.Screen/x DEI2 8+ .Screen/x DEO2 ;font_hex .canvas/h LDZ2 #f0 AND #04 SFT #08 MUL ADD2 .Screen/addr DEO2
-		( draw ) #21 .Screen/color DEO
-		.Screen/x DEI2 8+ .Screen/x DEO2 ;font_hex .canvas/h LDZ2 #0f AND #08 MUL ADD2 .Screen/addr DEO2
-		( draw ) #21 .Screen/color DEO
-	&skip-size
-
-	( draw save/load/guides icons )
-	.Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
-	.Screen/width DEI2 #0028 SUB2 .Screen/x DEO2
-	;eye_icn #00 .document/presentation LDZ #08 MUL ADD2 .Screen/addr DEO2
-	#23 .Screen/color DEO
-	.Screen/x DEI2 8+ .Screen/x DEO2
-	;filestate_icn .Screen/addr DEO2
-	#23 .Screen/color DEO
-	.Screen/x DEI2 8+ .Screen/x DEO2
-	;load_icn .Screen/addr DEO2
-	#23 .Screen/color DEO
-	.Screen/x DEI2 8+ .Screen/x DEO2
-	;save_icn .Screen/addr DEO2
-	#23 .Screen/color DEO
-	
-	#0008 .Screen/x DEO2
-	;path/name #01 ;draw-label JSR2
-
-RTN
-
-( Generics )
-
-@line-rect ( x1 y1 x2 y2 color -- )
-
-	( load ) .color STZ DUP2 STH2 .rect/y2 STZ2 .rect/x2 STZ2 DUP2 STH2 .rect/y1 STZ2 .rect/x1 STZ2
-	STH2r STH2r
-	&ver
-		( save ) OVR2 .Screen/y DEO2
-		( draw ) .rect/x1 LDZ2 .Screen/x DEO2 .color LDZ DUP .Screen/color DEO
-		( draw ) .rect/x2 LDZ2 .Screen/x DEO2 .Screen/color DEO
-		( incr ) SWP2 ++ SWP2
-		OVR2 OVR2 LTS2 ,&ver JCN
-	POP2 POP2
-	.rect/x1 LDZ2 .rect/x2 LDZ2
-	&hor
-		( save ) OVR2 .Screen/x DEO2
-		( draw ) .rect/y1 LDZ2 .Screen/y DEO2 .color LDZ DUP .Screen/color DEO
-		( draw ) .rect/y2 LDZ2 .Screen/y DEO2 .Screen/color DEO
-		( incr ) SWP2 ++ SWP2
-		OVR2 OVR2 ++ LTS2 ,&hor JCN
-	POP2 POP2
-
-RTN
-
-@fill-rect ( x1 y1 x2 y2 color -- )
-	
-	.color STZ
-	( x1 x2 y1 y2 ) ROT2 SWP2
-	&ver
-		( save ) OVR2 .Screen/y DEO2
-		STH2 STH2 OVR2 OVR2
-		&hor
-			( save ) OVR2 .Screen/x DEO2
-			( draw ) .color LDZ .Screen/color DEO
-			( incr ) SWP2 ++ SWP2
-			OVR2 OVR2 LTS2 ,&hor JCN
-		POP2 POP2 STH2r STH2r
-		( incr ) SWP2 ++ SWP2
-		OVR2 OVR2 LTS2 ,&ver JCN
-	POP2 POP2 POP2 POP2
-
-RTN
-
-@draw-label ( addr color -- )
-	
-	.color STZ
-	&loop
-		DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2
-		( draw ) .color LDZ #20 ADD .Screen/color DEO
-		( incr ) #0001 ADD2
-		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
-		( loop ) DUP2 LDA ,&loop JCN
-	POP2
-
-RTN
-
-@line-horizontal-dotted ( x0 x1 y color -- )
-	
-	.color STZ .Screen/y DEO2 OVR2 .Screen/x DEO2
-	&draw-hor
-		( draw ) .color LDZ .Screen/color DEO
-		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/x DEO2 SWP2
-		OVR2 OVR2 LTH2 ,&draw-hor JCN
-	POP2 POP2
-
-RTN
-
-@line-vertical-dotted ( x y0 y1 color -- )
-	
-	.color STZ STH2 SWP2 .Screen/x DEO2 STH2r OVR2 .Screen/y DEO2
-	&draw-ver
-		( draw ) .color LDZ .Screen/color DEO
-		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/y DEO2 SWP2
-		OVR2 OVR2 LTH2 ,&draw-ver JCN
-	POP2 POP2
-
-RTN
-
-@strcpy ( src* dst* -- )
-
-	&loop
-		( copy src->dst ) OVR2 OVR2 SWP2 LDA ROT ROT STA
-		( incr dst ) ++
-		( incr src ) SWP2 ++ SWP2
-		OVR2 LDA ,&loop JCN
-	#00 ROT ROT STA POP2
-	
-RTN
-
-@size_icns
-	[ 0000 0010 0000 0000 ]
-	[ 0000 1038 1000 0000 ]
-	[ 0000 3838 3800 0000 ]
-	[ 0010 387c 3810 0000 ]
-	[ 0038 7c7c 7c38 0000 ]
-	[ 1038 7cfe 7c38 1000 ]
-	[ 387c fefe fe7c 3800 ]
-	[ 7cfe fefe fefe 7c00 ]
-
-@patt_icns
-	[ fefe fefe fefe fe00 ]
-	[ fed6 aad6 aad6 fe00 ]
-	[ fe92 82d6 8292 fe00 ]
-	[ fe82 92aa 9282 fe00 ]
-	[ fea6 ca92 a6ca fe00 ]
-	[ feca a692 caa6 fe00 ]
-	[ feaa aaaa aaaa fe00 ]	
-	[ fe82 fe82 fe82 fe00 ]
-
-@tool_icns
-	[ c0e0 5028 140a 0400 ]
-	[ e0d0 a844 2212 0c00 ]
-	[ c0b8 4848 7804 0200 ]
-	[ 44ba 4444 44ba 4400 ]
-	[ 3048 8484 4834 0200 ] ( zoom )
-	[ 3245 8284 4834 0200 ] ( zoom out )
-
-@view_icns
-	[ ee92 8a84 8a92 ee00 ]
-	[ f68a 92a2 928a f600 ]
-	[ fe82 8244 aa92 ee00 ]
-	[ fe82 92aa 4482 fe00 ]
-
-@brush_icns
-	[ 0000 0010 0000 0000 ]
-	[ 0000 1028 1000 0000 ]
-	[ 0000 3828 3800 0000 ]
-	[ 0010 2844 2810 0000 ]
-	[ 0038 4444 4438 0000 ]
-	[ 1028 4482 4428 1000 ]
-	[ 3844 8282 8244 3800 ]
-	[ 7c82 8282 8282 7c00 ]
-	[ 7cfe fefe fefe 7c00 ]
-
-@bigpixel_icn
-	[ 5580 0080 0080 0080 ]
-	[ 55ff 7fff 7fff 7fff ]
-
-@pointers_icn
-	[ 80c0 e0f0 f8e0 1000 ]
-	[ 2020 20b8 7c7c 3838 ]
-
-@eye_icn
-	[ 0038 4492 2810 0000 ] ( open )
-	[ 0000 0082 4438 0000 ] ( closed )
-
-@filestate_icn  [ 1054 28c6 2854 1000 ]
-@load_icn       [ feaa d6aa d4aa f400 ]
-@save_icn       [ fe82 8282 848a f400 ]
-
-@blank_icn      [ 0000 0000 0000 0000 ]
-@untitled_txt   [ "untitled.bit 00 ]
-
-@font_hex ( 0-F TODO: should pull from @font instead.. )
-[
-	003c 464a 5262 3c00 0018 0808 0808 1c00
-	003c 4202 3c40 7e00 003c 421c 0242 3c00
-	000c 1424 447e 0400 007e 407c 0242 3c00
-	003c 407c 4242 3c00 007e 0204 0810 1000
-	003c 423c 4242 3c00 003c 4242 3e02 3c00
-	003c 4242 7e42 4200 007c 427c 4242 7c00
-	003c 4240 4042 3c00 007c 4242 4242 7c00
-	007e 4078 4040 7e00 007e 4078 4040 4000
-]
-
-@font ( spectrum-zx font )
-[
-	0000 0000 0000 0000 0000 2400 7e3c 0000 0000 2400 3c42 0000 0000 6c7c 7c38 1000
-	0010 387c 7c38 1000 0038 387c 6c10 3800 0010 387c 7c10 3800 0000 0018 1800 0000
-	007e 4242 4242 7e00 0000 1824 2418 0000 0018 2442 4224 1800 001e 063a 4a48 3000
-	0038 446c 107c 1000 000c 0808 0838 3800 003e 2222 2266 6600 0000 0822 0022 0800
-	0000 1018 1c18 1000 0000 0818 3818 0800 0008 1c00 001c 0800 0028 2828 2800 2800
-	003e 4a4a 3a0a 0a00 000c 3046 620c 3000 0000 0000 0000 ffff 0010 3800 3810 0038
-	0008 1c2a 0808 0800 0008 0808 2a1c 0800 0000 0804 7e04 0800 0000 1020 7e20 1000
-	0000 4040 7e00 0000 0000 0024 6624 0000 0000 1038 7c00 0000 0000 007c 3810 0000
-	0000 0000 0000 0000 0008 0808 0800 0800 0014 1400 0000 0000 0024 7e24 247e 2400
-	0008 1e28 1c0a 3c08 0042 0408 1020 4200 0030 4832 4c44 3a00 0008 1000 0000 0000
-	0004 0808 0808 0400 0010 0808 0808 1000 0000 1408 3e08 1400 0000 0808 3e08 0800
-	0000 0000 0008 0810 0000 0000 3c00 0000 0000 0000 0000 0800 0000 0204 0810 2000
-	003c 464a 5262 3c00 0018 2808 0808 3e00 003c 4202 3c40 7e00 003c 421c 0242 3c00
-	0008 1828 487e 0800 007e 407c 0242 3c00 003c 407c 4242 3c00 007e 0204 0810 1000
-	003c 423c 4242 3c00 003c 4242 3e02 3c00 0000 0008 0000 0800 0000 0800 0008 0810
-	0000 0810 2010 0800 0000 003e 003e 0000 0000 1008 0408 1000 003c 4202 0c00 0800
-	003c 425a 5442 3c00 0018 2442 7e42 4200 007c 427c 4242 7c00 003c 4240 4042 3c00
-	0078 4442 4244 7800 007e 407c 4040 7e00 003e 4040 7c40 4000 003c 4240 4e42 3c00
-	0042 427e 4242 4200 003e 0808 0808 3e00 0002 0202 4242 3c00 0044 4870 4844 4200
-	0040 4040 4040 7e00 0042 665a 4242 4200 0042 6252 4a46 4200 003c 4242 4242 3c00
-	007c 4242 7c40 4000 003c 4242 524a 3c00 007c 4242 7c44 4200 003c 403c 0242 3c00
-	00fe 1010 1010 1000 0042 4242 4242 3c00 0042 4242 4224 1800 0042 4242 5a66 4200
-	0042 2418 1824 4200 0082 4428 1010 1000 007e 0408 1020 7e00 000c 0808 0808 0c00
-	0040 2010 0804 0200 0018 0808 0808 1800 0008 1422 0000 0000 0000 0000 0000 7e00
-	0008 0400 0000 0000 0000 1c02 1e22 1e00 0020 203c 2222 3c00 0000 1e20 2020 1e00
-	0002 021e 2222 1e00 0000 1c22 3c20 1e00 000c 101c 1010 1000 0000 1c22 221e 021c
-	0020 202c 3222 2200 0008 0018 0808 0400 0008 0008 0808 4830 0020 2428 3028 2400
-	0010 1010 1010 0c00 0000 6854 5454 5400 0000 5864 4444 4400 0000 3844 4444 3800
-	0000 7844 4478 4040 0000 3c44 443c 0406 0000 2c30 2020 2000 0000 3840 3804 7800
-	0010 103c 1010 0c00 0000 4444 4444 3800 0000 4444 2828 1000 0000 4454 5454 2800
-	0000 4428 1028 4400 0000 4444 443c 0438 0000 7c08 1020 7c00 000c 0810 1008 0c00
-	0008 0808 0808 0800 0030 1008 0810 3000 0000 0032 4c00 0000 3c42 99a1 a199 423c
-]
-
-|2100 @data