Original Turbo Pascal source for Archetype 1.02