| Posted: 09:51pm 17 Jun 2025 |
 Copy link to clipboard |
 Print this post |
|
Maybe this helps?
'************************************************
' FREEPINS() 2024 by Volhout
'************************************************
Sub FREEPINS()
Local integer n,p
Local string gp$,pu$
For n=0 To 29
gp$ = "GP"+Str$(n)
On error skip
p = MM.Info(pinno gp$)
If Not MM.Errno Then
pu$ = MM.Info(pin p)
Else
p=-1
pu$=MM.ErrMsg$
EndIf
Print gp$;@(50,MM.Info(vPOS)) p, pu$
Next
End Sub
Regards
Michael
causality ≠ correlation ≠ coincidence |
Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.
