You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
194 B
Forth
16 lines
194 B
Forth
2 years ago
|
( : variable create 0 , ; )
|
||
|
|
( : create here const ; )
|
||
|
|
|
||
|
|
: . 0 sys ;
|
||
|
|
|
||
|
|
: over 1 pick ;
|
||
|
|
: -rot rot rot ;
|
||
|
|
: nip swap drop ;
|
||
|
|
: tuck swap over ;
|
||
|
|
|
||
|
|
: 1+ 1 + ;
|
||
|
|
: 1- 1 - ;
|
||
|
|
|
||
|
|
: 0= 0 = ;
|
||
|
|
: >= < 0= ;
|