2 files changed, 33 insertions(+), 19 deletions(-)

M src/apps.tal
M src/potato.tal

@@ 334,8 334,8 @@ JMP2r
 
 @info-manifest
 
-	01 "Option $1
-		42 00 =close-win "Cancel $1
+	01 "Info $1
+		42 00 =close-win "Close $1
 	$1
 
 @app-info


@@ 349,8 349,17 @@ JMP2r
 
 	#0008 ADD2 LDA2 ;get-meta JSR2
 
+	;get-meta/pict .Screen/addr DEO2
+	#76 .Screen/auto DEO
+	#0c .Screen/sprite
+		DEOk DEOk DEOk DEOk
+		DEOk DEOk DEOk DEO
+
+	.Screen/y DEI2k #0034 SUB2 ROT DEO2
+	.Screen/x DEI2k #0050 ADD2 ROT DEO2
+
 	.Screen/x DEI2 STH2
-	;get-meta/buffer #0002 ADD2 
+	;get-meta/buffer
 	;draw-str JSR2 ;draw-lb JSR2
 	STH2kr .Screen/x DEO2
 	;draw-str JSR2 ;draw-lb JSR2


@@ 358,13 367,9 @@ JMP2r
 	;draw-str JSR2 ;draw-lb JSR2
 	STH2kr .Screen/x DEO2
 	;draw-str JSR2 ;draw-lb JSR2
-	POP2 POP2r
+	POP2
 
-	( POP2
-	[ LIT2 &target $2 ] 
-	;draw-lb JSR2
-	.Screen/x DEI2k #0030 ADD2 ROT DEO2
-	[ LIT2 &action $2 ] #08 ;draw-button JSR2 )
+	STH2r .Screen/x DEO2
 
 JMP2r
 

@@ 311,7 311,7 @@ JMP2r
 
 @open-hexa ( file* -- )
 
-	#0005 ADD2 ;app-info #2010 #0010 #0008 ;add-win JSR2
+	#0005 ADD2 ;app-info #200a #0010 #0008 ;add-win JSR2
 
 JMP2r
 


@@ 408,25 408,35 @@ JMP2r
 @get-meta ( path* -- )
 
 	( setup )
-	DUP2 ;pstr JSR2 #0a18 DEO
-	.Disk/name DEO2
+	DUP2 .Disk/name DEO2
 	( read start )
 	#0003 .Disk/length DEO2
 	;&header .Disk/read DEO2
-	,&start LDR2 ;print JSR2 #0a18 DEO
 	( seek )
-	,&start LDR2 #0103 SUB2 ;seek JSR2
+	#0000 .Disk/name DEO2
+	DUP2 .Disk/name DEO2
+	,&start LDR2 #0100 SUB2 ;seek JSR2
 	( read end )
-	#0002 .Disk/length DEO2
+	#0004 .Disk/length DEO2
 	;&end .Disk/read DEO2
-	,&end LDR2 ;print JSR2 #0a18 DEO
 
 	,&end LDR2 ,&start LDR2 SUB2 .Disk/length DEO2
 	;&buffer .Disk/read DEO2
 
+	#0000 .Disk/name DEO2
+	DUP2 .Disk/name DEO2
+	,&icon LDR2 #0100 SUB2 ;seek JSR2
+
+	#0200 .Disk/length DEO2
+	;&pict .Disk/read DEO2
+
+	POP2
+
 JMP2r
-	&header $1 &start $2 &end $2
-	&buffer $100
+	&header $1 &start $2 &end $2 &icon $2
+	&buffer $40
+	&pict $200
+
 
 @seek ( length* -- )
 


@@ 434,7 444,6 @@ JMP2r
 	#0000
 	&l
 		;&b .Disk/read DEO2
-		( ;&b LDA ;print/byte JSR2 #2018 DEO )
 		INC2 GTH2k ,&l JCN
 	POP2 POP2