FUZE BASIC

From Rosetta Code