aboutsummaryrefslogtreecommitdiff
path: root/docs/j1demo/firmware/doc.fs
blob: 8b3c07d9707a9b878a0f05d4a42d62822cd096f8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
( Documentation conventions                  JCB 14:37 10/26/10)

meta

: getword ( -- a u )
    begin
        bl word count dup 0=
    while
        2drop refill true <> abort" Failed to find word"
    repeat
;

: ================================================================
    begin
        getword
        nip 64 =
    until
;

target