Anonymous user
Menu: Difference between revisions
→If there must be lists
Line 814:
: {NTH} ( n array_addr -- str) SWAP 0 DO {NEXT} LOOP ;
: {LEN} ( array_addr -- ) \ count strings in
0 >R \ Counter on Rstack
{NEXT} \ skip 1st empty string
| |||