https://alandroidnet.com/related/pascal script examples