Guru
Joined: 02/06/2014
Location: GermanyPosts: 1733
| Posted: 06:36pm 26 Nov 2024 |
Thanks Harm for the Freepins() idea!
https://www.thebackshed.com/forum/ViewTopic.php?FID=16&TID=17466&LastEntry=Y#230142#230129
I included the sub in the File Manager.
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
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
and replaced this:
Sub GetMenuList(ML$(),LS%())
ML$(0)=".."
ML$(1)="> MEMORY"
ML$(2)="> FLASH LIST"
ML$(3)="> OPTION LIST"
ML$(4)="> LIST COMMANDS"
ML$(5)="> LIST FUNCTIONS"
ML$(6)="> FREEPINS"
ML$(7)=""
LS%(0)=6:LS%(1)=0:LS%(2)=0
End Sub
ML$(0)=".."
ML$(1)="> MEMORY"
ML$(2)="> FLASH LIST"
ML$(3)="> OPTION LIST"
ML$(4)="> LIST COMMANDS"
ML$(5)="> LIST FUNCTIONS"
ML$(6)="> FREEPINS"
ML$(7)=""
LS%(0)=6:LS%(1)=0:LS%(2)=0
End Sub
Regards
Michael
EDIT:
Seems to be obsolete already!?
Edited 2024-11-27 05:29 by twofingers