He aquí un ejemplo de un programa sencillo en PureBasic: