diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index c26580a..16e25ae 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -520,14 +520,14 @@ @ ( -- ) #0070 .Screen/x DEO2 - #0054 .Screen/y DEO2 + #0050 .Screen/y DEO2 [ LIT2 36 -Screen/auto ] DEO ;button-icn .Screen/addr DEO2 [ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO ( | icon ) [ LIT2 16 -Screen/auto ] DEO #0078 .Screen/x DEO2 - #005c .Screen/y DEO2 + #0058 .Screen/y DEO2 ;pause-icn [ LIT2 00 -paused ] LDZ #50 SFT2 ADD2 .Screen/addr DEO2 [ LIT2 01 -Screen/sprite ] DEOk DEO JMP2r @@ -535,7 +535,7 @@ @ ( -- ) [ LIT2 16 -Screen/auto ] DEO #0058 .Screen/x DEO2 - #005c .Screen/y DEO2 + #0058 .Screen/y DEO2 ;prev-icn .Screen/addr DEO2 [ LIT2 01 -Screen/sprite ] DEOk DEO JMP2r @@ -543,7 +543,7 @@ @ ( -- ) [ LIT2 16 -Screen/auto ] DEO #0098 .Screen/x DEO2 - #005c .Screen/y DEO2 + #0058 .Screen/y DEO2 ;next-icn .Screen/addr DEO2 [ LIT2 01 -Screen/sprite ] DEOk DEO JMP2r @@ -586,6 +586,9 @@ ( | catch redraws ) DUP2 [ LIT2 &last $2 ] NEQ2 ?{ POP2 JMP2r } DUP2 ,&last STR2 + ( | clear ) + #0070 .Screen/y DEO2 + ( | from ) [ LIT2 15 -Screen/auto ] DEO #0008 .Screen/x DEO2