diff --git a/etc/block8.chr b/etc/block8.chr deleted file mode 100644 index 9b7a05a..0000000 Binary files a/etc/block8.chr and /dev/null differ diff --git a/etc/block8.icn b/etc/block8.icn new file mode 100644 index 0000000..87a8023 Binary files /dev/null and b/etc/block8.icn differ diff --git a/src/font.tal b/src/font.tal index f597434..2cdc420 100644 --- a/src/font.tal +++ b/src/font.tal @@ -1,97 +1,49 @@ -@font -0000 0000 0000 0000 -1010 1010 1000 1000 -2828 0000 0000 0000 -44fe 4444 44fe 4400 -107e 807c 02fc 1000 -0044 0810 2044 0000 -7884 8864 9a84 7a00 -1020 0000 0000 0000 -2040 4040 4040 2000 -0804 0404 0404 0800 -0044 2810 2844 0000 -0010 107c 1010 0000 -0000 0000 0010 2000 -0000 007c 0000 0000 -0000 0000 0000 1000 -0204 0810 2040 8000 -7c82 8282 8282 7c00 -3010 1010 1010 3800 -7c82 027c 8080 fe00 -7c82 021c 0282 7c00 -2242 82fe 0202 0200 -fe80 807c 0282 7c00 -7c82 80fc 8282 7c00 -fe82 0408 0810 1000 -7c82 827c 8282 7c00 -7c82 827e 0202 0200 -0000 1000 1000 0000 -0000 1000 1010 2000 -0008 1020 1008 0000 -0000 7c00 7c00 0000 -0010 0804 0810 0000 -7c82 820c 1000 1000 -7c82 92aa aa92 6400 -7c82 82fe 8282 8200 -fc82 82fc 8282 fc00 -7c82 8080 8082 7c00 -fc82 8282 8282 fc00 -fe80 80f0 8080 fe00 -fe80 80f0 8080 8000 -7c82 808e 8282 7c00 -8282 82fe 8282 8200 -3810 1010 1010 3800 -0602 0202 0282 7c00 -8284 88f0 8884 8200 -8080 8080 8080 fe00 -ec92 9292 9292 9200 -c2a2 a292 8a8a 8600 -7c82 8282 8282 7c00 -fc82 82fc 8080 8000 -7c82 8282 8a84 7a00 -fc82 82fc 8282 8200 -7c82 807c 0282 7c00 -fe10 1010 1010 1000 -8282 8282 8286 7a00 -8282 8282 4428 1000 -9292 9292 9292 ec00 -8244 2810 2844 8200 -8282 4428 1010 1000 -fe02 0c10 6080 fe00 -6040 4040 4040 6000 -8040 2010 0804 0200 -0c04 0404 0404 0c00 -1028 0000 0000 0000 -0000 0000 0000 fe00 -1008 0000 0000 0000 -0000 7c02 7e82 7e00 -0000 fc82 fc82 fc00 -0000 7c82 8082 7c00 -0000 027e 8282 7e00 -0000 7c82 fc80 7e00 -0000 7c82 e080 8000 -0000 7c82 7e02 fc00 -0000 80fc 8282 8200 -0000 1000 1010 1000 -0000 0200 0282 7c00 -0000 8284 f884 8200 -0000 8080 8080 7e00 -0000 6c92 9292 9200 -0000 bcc2 8282 8200 -0000 7c82 8282 7c00 -0000 fc82 fc80 8000 -0000 7c82 7e02 0200 -0000 bcc2 8080 8000 -0000 7e80 7c02 fc00 -0000 fe10 1010 1000 -0000 8282 8282 7c00 -0000 8282 4428 1000 -0000 9292 9292 6c00 -0000 8244 3844 8200 -0000 8282 7e02 7c00 -0000 fe02 7c80 fe00 -2040 4080 4040 2000 -1010 1010 1010 1000 -0804 0402 0404 0800 -0000 0032 4c00 0000 -0000 0000 0000 0000 +@font ( block8 ) +0000 0000 0000 0000 1010 1010 1000 1000 +2828 0000 0000 0000 44fe 4444 44fe 4400 +107e 807c 02fc 1000 0044 0810 2044 0000 +7884 8864 9a84 7a00 1020 0000 0000 0000 +2040 4040 4040 2000 0804 0404 0404 0800 +0044 2810 2844 0000 0010 107c 1010 0000 +0000 0000 0010 2000 0000 007c 0000 0000 +0000 0000 0000 1000 0204 0810 2040 8000 +7c82 8282 8282 7c00 3010 1010 1010 3800 +7c82 027c 8080 fe00 7c82 021c 0282 7c00 +2242 82fe 0202 0200 fe80 807c 0282 7c00 +7c82 80fc 8282 7c00 fe82 0408 0810 1000 +7c82 827c 8282 7c00 7c82 827e 0202 0200 +0000 1000 1000 0000 0000 1000 1010 2000 +0008 1020 1008 0000 0000 7c00 7c00 0000 +0010 0804 0810 0000 7c82 820c 1000 1000 +7c82 92aa aa92 6400 7c82 82fe 8282 8200 +fc82 82fc 8282 fc00 7c82 8080 8082 7c00 +fc82 8282 8282 fc00 fe80 80f0 8080 fe00 +fe80 80f0 8080 8000 7c82 808e 8282 7c00 +8282 82fe 8282 8200 3810 1010 1010 3800 +0602 0202 0282 7c00 8284 88f0 8884 8200 +8080 8080 8080 fe00 ec92 9292 9292 9200 +c2a2 a292 8a8a 8600 7c82 8282 8282 7c00 +fc82 82fc 8080 8000 7c82 8282 8a84 7a00 +fc82 82fc 8282 8200 7c82 807c 0282 7c00 +fe10 1010 1010 1000 8282 8282 8286 7a00 +8282 4444 2828 1000 9292 9292 9292 6c00 +8244 2810 2844 8200 8282 4428 1010 1000 +fe02 0c10 6080 fe00 6040 4040 4040 6000 +8040 2010 0804 0200 0c04 0404 0404 0c00 +1028 0000 0000 0000 0000 0000 0000 fe00 +1008 0000 0000 0000 0000 7c02 7e82 7e00 +0000 fc82 fc82 fc00 0000 7c82 8082 7c00 +0000 027e 8282 7e00 0000 7c82 fc80 7e00 +0000 7c82 e080 8000 0000 7c82 7e02 fc00 +0000 80fc 8282 8200 0000 1000 1010 1000 +0000 0200 0282 7c00 0000 8284 f884 8200 +0000 8080 8080 7e00 0000 6c92 9292 9200 +0000 bcc2 8282 8200 0000 7c82 8282 7c00 +0000 fc82 fc80 8000 0000 7c82 7e02 0200 +0000 bcc2 8080 8000 0000 7e80 7c02 fc00 +0000 fe10 1010 1000 0000 8282 8282 7c00 +0000 8282 4428 1000 0000 9292 9292 6c00 +0000 8244 3844 8200 0000 8282 7e02 7c00 +0000 fe02 7c80 fe00 2040 4080 4040 2000 +1010 1010 1010 1000 0804 0402 0404 0800 +0000 0032 4c00 0000 aa55 aa55 aa55 aa55 diff --git a/src/manifest.tal b/src/manifest.tal index f6c376e..14c6704 100644 --- a/src/manifest.tal +++ b/src/manifest.tal @@ -1,7 +1,7 @@ @manifest &name "Nasu $1 - &date "2022-06-28 $1 + &date "2022-07-03 $1 &menu 07 "File $1 01 'n :file-new "New $1 @@ -355,7 +355,7 @@ JMP2r &inv .Screen/x DEI2 #0010 SUB2 .Screen/x DEO2 ROT POP ;draw-str JSR2 POP2 JMP2r &del "del $1 &tab "tab $1 &ent "ent $1 &spc "spc $1 &esc "esc $1 -@draw-str ( str* -- str* ) +@draw-str ( str* -- nextstr* ) &while LDAk ,draw-chr JSR