Also, die PINS schon, z.B von PortD einzeln die Pins abfragen:
Code:
DIM Pnr as byte
     for pnr = 0 to 7
            if Portd.Pnr = 1 then 
                   print "1";
            else
                   print "0";
             endif
             print
     next