old pascal generator