forth: if else then conditions added
forth #define  REG0 added
swap, rot, drop added