@@ -11,12 +11,10 @@

 |0100 ( -> )

-	( theme )

 	#f0af .System/r DEO2

 	#f0af .System/g DEO2

 	#f0af .System/b DEO2

-	( 800x520 | 64:41 )

 	#0130 .Screen/width DEO2

 	#0050 .Screen/height DEO2

@@ -47,7 +45,8 @@ BRK

 	#0006 .Disk/length DEO2

 	;&header .Disk/read DEO2

-	;&deo LDA2 #f037 NEQ2 ;&missing JCN2

+	;&deo LDA2 #f037 NEQ2

+		;&missing JCN2

 	;&start LDA2 #0100 SUB2 ;seek JSR2

 	#0004 .Disk/length DEO2

@@ -56,9 +55,11 @@ BRK

 		LDA2 ;&start LDA2 SUB2 .Disk/length DEO2

 	;data

 		DUP2 .Disk/read DEO2

+

 	( draw )

 	#0058 STH2k .Screen/x DEO2

 	#0018 .Screen/y DEO2

+

 	( body )

 	;draw-str JSR2

 	#20 ;draw-chr JSR2

@@ -68,6 +69,7 @@ BRK

 	STH2r .Screen/x DEO2

 	;draw-str JSR2 ;draw-lb JSR2

 	POP2

+

 	( icon )

 	;&icon LDA2 #0100 SUB2 ;seek JSR2

 	#0200 .Disk/length DEO2

@@ -145,14 +147,6 @@ JMP2r

 JMP2r

 	&b $1

-@print ( short* -- )

-

-	SWP ,&byte JSR

-	&byte ( byte -- ) DUP #04 SFT ,&char JSR

-	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO

-

-JMP2r

-

 @scap ( str* -- end* ) LDAk #00 NEQ JMP JMP2r &w INC2 LDAk ,&w JCN JMP2r

 @sput ( chr str* -- ) ,scap JSR STA JMP2r

 @skey ( key buf -- proc ) OVR #21 LTH ,&eval JCN #00 SWP ;sput JSR2 #00 JMP2r &eval POP2 #01 JMP2r