Hi.
This is in image is a solution using the MCU pic12f675.
Here's the listing:
#chip pic12f675,4
Dim TestVar(7)
dim k as integer
TestVar = 0,1,2,3,1,2,0 ' 00b,01b,10b,11b,01b,10b,00b
for k=1 to 7
GPIO=TestVar(k)
wait 1 s
next k
And here the buinary file:
:020000040000FA
:020000000528D1
:1000080009004F208316850158308400073080008E
:10001800840A8001840A01308000840A023080004A
:10002800840A03308000840A01308000840A023088
:100038008000840A8001AB01AC01AB0A0319AC0A49
:1000480058302B0784000008831285000130A40073
:1000580047202B08A5002C08A6000730A900AA01F4
:100068005C202018212863003728A30A8E30A100BD
:100078000130A000A00B3E28A10B3C28A20B3A2877
:10008800A30B3A280800E830A2000330A300392067
:10009800A40B47280800FF238316900083129F13A0
:1000A8001F1083169F0107308312990085010800ED
:1000B800A001A61F7628AA1B6328A0090800250905
:1000C800A7002609A800A70A0319A80A2909A50054
:1000D8002A09A600A50A0319A60A2708A9002808BC
:1000E800AA007828AA1B080026082A02031C080070
:1000F8002A082602031C8428290825020318080058
:04010800A009080042
:02400E00D43F9D
:00000001FF
Regards
Giovanni Di Maria