2 files changed, 22 insertions(+), 0 deletions(-)

M src/manifest.tal
M src/potato.tal

@@ 1,5 1,8 @@
 ( manifest )
 
+(
+@|vectors )
+
 @trap-menu ( -> )
 
 	;on-mouse-menu .Mouse/vector DEO2


@@ 21,6 24,7 @@ BRK
 	( when touch cat )
 	.Mouse/state DEI #00 EQU ,&no-touch-cat JCN
 	.Mouse/y DEI2 #000c GTH2 ,&no-touch-cat JCN
+	.Mouse/x DEI2 .Screen/width DEI2 #0098 SUB2 GTH2 ;on-touch-clock JCN2
 		.Mouse/x DEI2 ;get-xcat JSR2 ;menu-select JSR2
 		( release ) #00 .Mouse/state DEO
 		BRK


@@ 49,6 53,15 @@ BRK
 
 BRK
 
+@on-touch-clock ( -> )
+
+	#1234 ;phex JSR2 #0a18 DEO
+
+BRK
+
+(
+@|controls )
+
 @menu-close ( -- )
 
 	;untrap JSR2

@@ 558,6 558,15 @@ JMP2r
 
 JMP2r
 
+@phex ( short* -- )
+
+	SWP ,&b JSR
+	&b ( byte -- ) DUP #04 SFT ,&c JSR
+	&c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
+
+JMP2r
+
+
 @is-alphanum ( char -- bool )
 
 	( num ) DUP #2f GTH OVR #3a LTH AND ,&pass JCN