[initial checkin
crc@retroforth.org**20060806193731] 
[changes suggested by ASau
crc@retroforth.org**20070422174504]