\r
\ Structure of string table\r
: $ARRAY ( )\r
- CREATE ( #strings #chars_max -- ) \r
+ CREATE ( #strings #chars_max -- )\r
dup ,\r
2+ * even-up allot\r
DOES> ( index -- $addr )\r
: TEXT= ( addr1 addr2 count -- flag )\r
>r -1 -rot\r
r> 0\r
- DO dup c@ tolower\r
+ ?DO dup c@ tolower\r
2 pick c@ tolower -\r
IF rot drop 0 -rot LEAVE\r
THEN\r
: ($ROM) ( index address -- $string )\r
( -- index address )\r
swap 0\r
- DO dup c@ 1+ + aligned\r
+ ?DO dup c@ 1+ + aligned\r
LOOP\r
;\r
\r