FSXS.PRG
Upload User: hbmaozhan
Upload Date: 2013-01-31
Package Size: 1007k
Code Size: 1k
Development Platform:

VFP

  1.  pdk = jje
  2.  IF pdk<0
  3.       SET COLOR TO R+/N
  4.       @ 7+bs, 42 SAY jje
  5.       SET COLOR TO W/N
  6.       @ 7+bs, 58 SAY '              '
  7.  ELSE
  8.       IF pdk>0
  9.            @ 7+bs, 42 SAY jje
  10.            @ 7+bs, 58 SAY '              '
  11.       ELSE
  12.            pdk = dje
  13.            @ 7+bs, 42 SAY '              '
  14.            IF pdk<0
  15.                 SET COLOR TO R+/N
  16.                 @ 7+bs, 58 SAY dje
  17.                 SET COLOR TO W/N
  18.            ELSE
  19.                 @ 7+bs, 58 SAY dje
  20.            ENDI
  21.       ENDI
  22.  ENDI
  23.  SET COLOR TO W/N
  24.  RETU
  25. *