rob@innovus.uucp (Rob Sciuk) (06/20/91)
ooops .. sorry about that ... the prior posting seems to contain a bug ...
it should read:
quan CDP
: C, ( c --- )
CDP NOT ( CDP not initialized or ... )
CDP HERE = OR ( CDP is at HERE or ...)
HERE CDP - CELLSIZE 1- > OR IF ( CDP is more than 1
CELL behind HERE )
HERE is CDP ( re-align CDP )
1 ALLOT ( push HERE up to the next CELL )
THEN
CDP ! ( store the character at CDP )
CDP 1+ is CDP ( increment CDP )
;
apologies ...
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rob Sciuk rob@innovus.com OR rob@innovus.on.ca
Innovus Inc. 204-200 James St S. Hamilton, Ont. Phone: (416) 529-8117
{not a flame ... merely a glimmer ...} Fax: (416) 572-9586