| 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
‚My name is Ozymandias, king of kings
Look on my works, ye Mighty, and despair!‘
Nothing beside remains. Round the decay
Of that colossal wreck, boundless and bare
The lone and ... |
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.
