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

 x1 = 0 
 x2 = 3 
 y1 = 0 
 y2 = 24 
 @ 0, 0 CLEAR TO 3, 26 
 SET COLOR TO W/B 
 DO box-1 
 pd = 0 
 fh = 1 
 js = 0 
 SET COLOR TO 
 @ 2, 6 SAY '¼Æ Ëã Æ÷' 
 SET COLOR TO W/B 
 @ 2, 17 SAY '©ï' 
 DO WHILE .T. 
      pd = 0 
      SET COLOR TO 
      @ 0, 29 SAY '½á¹û' 
      @ 0, 34 SAY js PICTURE '9999999999.99999' 
      SET COLOR TO N/W 
      @ 1, 4 SAY '          0.00000' 
      SET COLOR TO W/B 
      k = INKEY(0) 
      DO CASE 
           CASE k=6 
                js = 0 
           CASE k=47 
                fh = 4 
                @ 2, 17 SAY '¡Â' 
           CASE k=43 
                fh = 1 
                @ 2, 17 SAY '©ï' 
           CASE k=45 
                fh = 2 
                @ 2, 17 SAY '©¥' 
           CASE k=42 
                fh = 3 
                @ 2, 17 SAY '¢ú' 
           CASE k=27 
                EXIT 
           CASE k=46 .OR. k>47 .AND. k<58 
                @ 1, 4 SAY '' GET pd PICTURE '9999999999.99999' 
                KEYB CHR(k) 
                READ 
                DO CASE 
                     CASE fh=1 
                          js = js+pd 
                     CASE fh=2 
                          js = js-pd 
                     CASE fh=3 
                          js = js*pd 
                     CASE fh=4 
                          IF pd<>0 
                               js = js/pd 
                          ENDI 
                ENDC 
           CASE k=-7 
                DO qp 
                EXIT 
           OTHE 
                ?? CHR(7) 
      ENDC 
 ENDD 
 DO qp 
 js = ROUND(js+0, 2) 
 SET COLOR TO W/N 
 RETU 
*