|
- : LIT< WORD 34 , DUP C@ 1+ MOVE, ; IMMEDIATE
- : BEGIN H@ ; IMMEDIATE
- : AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
- : UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE
- : [ INTERPRET ; IMMEDIATE
- : ] R> DROP ;
- : LITA 36 , , ;
- : COMPILE ' LITA ['] , , ; IMMEDIATE
- : [COMPILE] ' , ; IMMEDIATE
|