mach ich doch damit

porta = &B00000001 'led reihe 1 ein, alle anderen aus

porta = &B00010000 'led reihe5 ein, alle anderen aus

mit der 2. anweisung schalte ich doch die anderen 7 pins auf gezielt "0", zumindest äuft das so bei mir...