Pimoroni's Fan Shim

Now that the Rpi4 is a platform for RISC OS, may I enquire whether anybody has written a BASIC program to control Pimoroni’s Fan Shim? Pimoroni provide a Python program for this purpose, so I guess it is a question of deconstructing that.

Andrew Conroy has written an excellent one, in BASIC, I think.

I thought the Fan Shim was a good idea, and liked the LED which you could set to change colour based on the CPU temperature, I even contributed several enhancements to software in GitHub. However it uses tiny 30mm fans which do not last long before getting noisy and eventually failing. I went through 4 of them in about 18 months, first I had it configured to always have the fan running, then I tried it only turning on above a threshold, and I also tried it running at a reduced speed using PWM, but after a few months the fan start whining and running erratically.

I’m now using a larger 40mm for that Pi 4B which is silent when running off 3.3V, but I miss the LED to show me how hard it is working. My RISC OS Pi 4B uses a Pimoroni heat-sink case (big aluminium heat-sink on both sides on the board in anodised, red aluminium) which is sufficient for passive cooling (when it was using all 4 cores for Linux it was often cooler than the Fan Shim with a failing fan).