Create floor2code.lisp

hoo haa.