' PiIO.bas performs digital I/O with linux4MMB
'
dim integer i,j,k,p(16)=(0,26,19,13,6,5,0,11,9,10,17,22,27,12,16,20,21)
dim integer pState(16)
dim integer q(4)=(0,14,15,18,23), dout=1, din=0

for i=1 to 16
 setpin p(i),dout
next
for i=1 to 4
 setpin p(i),din
next

i=1
do
 pState(i)=1-pState(i) ' toggle state
 cmd$="sudo echo '"+str$(pState(i))+"' > /sys/class/gpio/gpio"+str$(p(i))+"/value"
'  print cmd$
 system(cmd$)
 inc i: if i > 16 then i=1
 pause 500
loop

sub setpin(pinno as integer, pinmode as integer)
 local string dirname$, cmd$
 dirname$="/sys/class/gpio/gpio"+str$(pinno)
 if not MM.INFO(EXISTS DIR dirname$) then
   cmd$="sudo echo '"+str$(pinno)+"' > /sys/class/gpio/export 2>/dev/null"
'    print cmd$
   system cmd$
 endif
 if pinmode then
   cmd$="sudo echo 'out' > "+dirname$
 else
   cmd$="sudo echo 'in' > "+dirname$
 endif
end sub

> edit
run
> redit
ererun                                                                        
> redit
erun