Introduced common script file. Some tidying up. Use cas: asuska