diff --git a/src/assets.tal b/src/assets.tal index 4acf8e7..c20fe5d 100644 --- a/src/assets.tal +++ b/src/assets.tal @@ -30,6 +30,8 @@ @linebreak-icn [ 0000 0000 0000 1028 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 ] +@dotdot-icn [ + 0000 0000 0000 0000 0000 0048 0000 0000 ] @checkered-icn [ aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ] @blinker-icn [ diff --git a/src/left.tal b/src/left.tal index 4958dab..4f06701 100644 --- a/src/left.tal +++ b/src/left.tal @@ -1224,6 +1224,13 @@ POP2 STH2r ADD2 .Screen/x DEO2 JMP2r +@ ( length* addr* -- ) + .Screen/addr DEO2 + .Screen/x DEI2 + ( ) ;/color LDA .Screen/sprite DEO + ADD2 .Screen/x DEO2 + JMP2r + @ ( -- ) ( | clear ) #0090 .Screen/x DEO2 @@ -1299,10 +1306,7 @@ ( | rewind ) find-prev-spacer LDA2k [ LIT2 "@| ] NEQ2 ?{ INC2 INC2 } &>w ( -- ) - .Screen/x DEI2 #007c LTH2 ?{ - ;/color LDA ;/color STA - [ LIT2 ".. ] - + .Screen/x DEI2 #007c LTH2 ?{ #0006 ;dotdot-icn !&end } next-glyph LDAk #20 GTH ?&>w