هادی83 Nov 10, 2011 I var byte c var byte d var byte main: for i=10 to 98 step2 c= i dig 1 d= i dig 0 for d=1 to 9 step1 portd=d for c=0 to 8 step2 portd=c next c goto main
I var byte c var byte d var byte main: for i=10 to 98 step2 c= i dig 1 d= i dig 0 for d=1 to 9 step1 portd=d for c=0 to 8 step2 portd=c next c goto main