www.pudn.com > jq_caiwu.ARJ > FSXS-1.PRG

 pd = jje 
 IF pd<0 
      SET COLOR TO R+/B 
      @ ROW(), 42 SAY jje PICTURE '99999999999.99' 
      @ ROW(), 58 SAY '              ' 
 ELSE 
      IF pd>0 
           SET COLOR TO G+/B 
           @ ROW(), 42 SAY jje PICTURE '99999999999.99' 
           @ ROW(), 58 SAY '              ' 
      ELSE 
           pd = dje 
           IF pd<0 
                SET COLOR TO R+/B 
                @ ROW(), 42 SAY '              ' 
                @ ROW(), 58 SAY dje 
           ELSE 
                SET COLOR TO G+/B 
                @ ROW(), 42 SAY '             ' 
                @ ROW(), 58 SAY dje 
           ENDI 
      ENDI 
 ENDI 
 SET COLOR TO W/N 
 RETU 
*