2020-04-25 21:54:07 -04:00
|
|
|
: VARIABLE CREATE 2 ALLOT ;
|
|
|
|
|
: CONSTANT CREATE , DOES> @ ;
|
|
|
|
|
: / /MOD SWAP DROP ;
|
|
|
|
|
: MOD /MOD DROP ;
|
|
|
|
|
|
2020-05-06 09:49:37 -04:00
|
|
|
( In addition to pushing H@ this compiles 2>R so that loop
|
2020-04-25 21:54:07 -04:00
|
|
|
variables are sent to PS at runtime )
|
2020-05-06 09:49:37 -04:00
|
|
|
: DO COMPILE 2>R H@ ; IMMEDIATE
|
2020-04-25 21:54:07 -04:00
|
|
|
|
|
|
|
|
|
