Guru
Joined: 02/06/2014
Location: GermanyPosts: 1727
| Posted: 05:51pm 26 Nov 2024 |
I can confirm that! Errors from GP12 to GP19.
freepins
End
Sub FreePins
Local n,gp$,p,pu$
For n=0 To 29
p=666
gp$ = "GP"+Str$(n)
On error skip
p = MM.Info(pinno gp$)
pu$ = MM.Info(pin p)
Print gp$;
Print @(50,MM.Info(vPOS)) p, pu$
Next
End Sub
End
Sub FreePins
Local n,gp$,p,pu$
For n=0 To 29
p=666
gp$ = "GP"+Str$(n)
On error skip
p = MM.Info(pinno gp$)
pu$ = MM.Info(pin p)
Print gp$;
Print @(50,MM.Info(vPOS)) p, pu$
Next
End Sub
Michael