FOCAL (was: KIM/6502 code)