Group: comp.lang.forth · Group Profile · Search for Order2 in comp.lang.forth
Author: J Thomas
Date: Apr 18, 2007 07:40
... out of range, try BLK or SCR \ or R : -ORDER R GET-ORDER [ COMPILE, ] might work on one line \ or if you have a system with no colon-sys, just do [ COMPILE, ] : -ORDER2 ( wid -- ) R GET-ORDER [ BASE @ COMPILE, ] SET-ORDER ; BASE ! \ 184 bytes with GForth. ------- Simplify the stack stuff with a variable? ------- ALIGN BASE @ HERE 0 , BASE ! :NONAME ( ...
| 
