Create j1.f

Complete source code for the j1 eForth model in pure FORTH