diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal index 88efc1f..1e6f499 100644 --- a/gui/notepad/notepad.tal +++ b/gui/notepad/notepad.tal @@ -34,6 +34,20 @@ BRK @on-control ( -> ) + .Controller/button DEI + DUP #40 NEQ ?&no-l + .selection/from LDZ2 #0001 SUB2 select-from + &no-l + DUP #80 NEQ ?&no-r + .selection/from LDZ2 INC2 select-from + &no-r + DUP #44 NEQ ?&no-sl + .selection/to LDZ2 #0001 SUB2 select-to + &no-sl + DUP #84 NEQ ?&no-sr + .selection/to LDZ2 INC2 select-to + &no-sr + POP .Controller/key DEI ;mem sput #00 ;on-frame/f STA redraw @@ -544,7 +558,7 @@ JMP2r |8000 @mem "Keep 20 "up 20 "to 20 "eight 20 "pages 20 "of 20 "notes 20 "in 20 "the 20 "Note 20 "Pad. 20 - "Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "to 20 "the 20 "next 20 "following 20 "page. 20 + "Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "following 20 "page. 20 "Click 20 "in 20 "the 20 "lower 20 "left 20 "corner 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "previous 20 "page. |a000 "The 20 "other 20 "page.