I am most likely missing something, but what about this
Code:
ForwardM:
LCDOUT $FE,1
LCDOUT $FE,$80,"OPENING BLIND"
LCDOUT $FE,$C0,"DAYLIGHT"
FOR i = 1 TO 500 ' ?? will equal 10 revolutions ??
portb = %1100
pause speed
portb = %0110
pause speed
portb = %0011
pause speed
portb = %1001
pause speed
NEXT i
GOTO Main