2020-09-19 19:44:15 -04:00
|
|
|
: XDO LIT" 2>R" XFIND , H@ ;
|
|
|
|
: XLOOP LIT" (loop)" XFIND , H@ - C, ;
|
|
|
|
: XIF LIT" (?br)" XFIND , H@ 1 ALLOT ;
|
|
|
|
: XELSE LIT" (br)" XFIND , 1 ALLOT [COMPILE] THEN H@ 1- ;
|
2020-09-19 18:51:29 -04:00
|
|
|
: XAGAIN LIT" (br)" XFIND , H@ - C, ;
|
|
|
|
: XUNTIL LIT" (?br)" XFIND , H@ - C, ;
|
2020-09-19 14:28:10 -04:00
|
|
|
: XLIT"
|
2020-09-19 18:51:29 -04:00
|
|
|
LIT" (s)" XFIND , H@ 0 C, ,"
|
2020-09-19 14:28:10 -04:00
|
|
|
DUP H@ -^ 1- SWAP C!
|
|
|
|
;
|