Code:
$regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000

Config Pina = Input
Config Portb = Output

Do

Portb = Pina
Waitms 100
Portb=0
Waitms 100

Loop

End
So sieht's besser aus

@E-Fan: Der Code wird nicht größer, wenn man jeden Pin einzeln einstellt. Bascom "rechnet" alles zusammen.
(Nur so am Rande, damit die Frage nicht offen stehen bleibt)