@@ 190,13 190,13 @@ JMP2r
LDA2k SWP2
#0004 ADD2 STH2k ;draw-str JSR2
( fill )
- #08 STH2r ;slen JSR2 NIP SUB #00
+ #10 STH2r ;slen JSR2 NIP SUB #00
&loop
#20 ;draw-chr JSR2
INC GTHk ,&loop JCN
POP2
- SWP2 SWP ;draw-mod JSR2
- ;draw-key JSR2
+ .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2
+ SWP2 ;draw-key JSR2 ;draw-mod JSR2
JMP2r
@@ 208,6 208,7 @@ JMP2r
&loop
STHkr OVR SFT #01 AND #00 EQU ,&no-button JCN
#00 OVR #30 SFT2 ;buttons-icns ADD2 ;draw-chr/raw JSR2
+ .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2
&no-button
INC GTHk ,&loop JCN
POP2
@@ 235,11 236,12 @@ JMP2r
DUP #20 NEQ ,&no-spc JCN ;&spc ,&inv JMP &no-spc
DUP #1b NEQ ,&no-esc JCN ;&esc ,&inv JMP &no-esc
DUP ;draw-chr JSR2
+ .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2
&skip-key
POP
JMP2r
- &inv ROT POP ;draw-str JSR2 POP2 JMP2r
+ &inv .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2 ROT POP ;draw-str JSR2 POP2 JMP2r
&del "del $1
&tab "tab $1
&spc "spc $1