force decimal BASE with CODE and FORTH>ASM words
deplace INIT variables from INFOB to FRAMSTART