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

 pdk = jje 
 IF pdk<0 
      SET COLOR TO R+/N 
      @ 7+bs, 42 SAY jje 
      SET COLOR TO W/N 
      @ 7+bs, 58 SAY '              ' 
 ELSE 
      IF pdk>0 
           @ 7+bs, 42 SAY jje 
           @ 7+bs, 58 SAY '              ' 
      ELSE 
           pdk = dje 
           @ 7+bs, 42 SAY '              ' 
           IF pdk<0 
                SET COLOR TO R+/N 
                @ 7+bs, 58 SAY dje 
                SET COLOR TO W/N 
           ELSE 
                @ 7+bs, 58 SAY dje 
           ENDI 
      ENDI 
 ENDI 
 SET COLOR TO W/N 
 RETU 
*