diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index 51caf25..fa5523c 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -465,13 +465,13 @@ @ ( -- ) [ LIT2 26 -Screen/auto ] DEO #0000 .Screen/x DEO2 - .Screen/height DEI2 #0020 SUB2 .Screen/y DEO2 + .Screen/height DEI2 #0020 SUB2 DUP2 .Screen/y DEO2 ;page-icn .Screen/addr DEO2 [ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO ( | across ) [ LIT2 01 -Screen/auto ] DEO #0018 .Screen/x DEO2 - .Screen/height DEI2 #0008 SUB2 .Screen/y DEO2 + DUP2 #0018 ADD2 .Screen/y DEO2 ;page-icn/bottom .Screen/addr DEO2 #e7 &>l ( -- ) @@ -481,9 +481,9 @@ ( | page number ) [ LIT2 15 -Screen/auto ] DEO .Screen/width DEI2 #01 SFT2 #0003 SUB2 .Screen/x DEO2 - .Screen/height DEI2 #0020 SUB2 .Screen/y DEO2 + .Screen/y DEO2 #0011 .page LDZ ADD #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 - [ LIT2 01 -Screen/sprite ] DEOk DEO + [ LIT2 01 -Screen/sprite ] DEO JMP2r @ ( -- )