Posted: 09:51pm 17 Jun 2025
Copy link to clipboard |
twofingers Guru

|
|
|
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 |