12 lines
143 B
Forth
12 lines
143 B
Forth
Variable test#
|
|
|
|
: plan ( n -- )
|
|
." 1.." . cr
|
|
;
|
|
|
|
: ok ( f -- )
|
|
0= if ." not " then
|
|
." ok "
|
|
test# dup @ 1+ dup . swap !
|
|
cr
|
|
;
|