@@ 643,7 643,6 @@ JMP2r
INC2 GTH2k ?&l
&end
POP2 POP2
- #0000 add-marker
!draw-navbar
@@ 651,13 650,16 @@ JMP2r
get-eof ;text
&l2
+ LDA2k [ LIT2 0a "@ ] NEQ2 ?&no-flabel
+ INC2k LDA2 [ LIT2 "@| ] NEQ2 ?&no-flabel
+ INC2 DUP2 add-marker INC2
+ &no-flabel
;search OVR2 sseg #00 EQU ?&no-find
- DUP2 add-marker
+ DUP2 find-prev-spacer INC2 add-marker
&no-find
( reached bottom ) .nav/len LDZ #18 GTH ?&end
INC2 GTH2k ?&l2
POP2 POP2
- #0000 add-marker
!draw-navbar
@@ 1336,8 1338,8 @@ JMP2r
LDAk #00 EQU ?&skip
;marker-icns draw-icn
- LDA2k [ LIT2 "@| ] NEQ2 ?&no-head
- INC2 INC2
+ LDA2k [ LIT2 "@| ] NEQ2 ?&no-head
+ INC2 INC2
&no-head
&w
.Screen/x DEI2 #0070 GTH2 ?&truncate