home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / JBCALC10.ZIP / JBFIGURE.PRG < prev    next >
Encoding:
Text File  |  1988-01-17  |  1011 b   |  32 lines
  1. *JBFIGURE.PRG
  2. DO CASE
  3.      CASE JBOPER = "*"
  4.           STORE VAL(JBCURRA)*VAL(JBCURR) TO JBCURR
  5.           DO JBRIP0 WITH JBCURR
  6.      CASE JBOPER = "+"
  7.           STORE VAL(JBCURRA)+VAL(JBCURR) TO JBCURR
  8.           DO JBRIP0 WITH JBCURR
  9.      CASE JBOPER = "-"
  10.           STORE VAL(JBCURRA)-VAL(JBCURR) TO JBCURR
  11.           DO JBRIP0 WITH JBCURR
  12.      CASE JBOPER = "^"
  13.           STORE VAL(JBCURRA) TO JBPROD
  14.           FOR JBI = 2 TO INT(VAL(JBCURR))
  15.                STORE VAL(JBCURRA)*JBPROD TO JBPROD
  16.           NEXT JBI
  17.           STORE JBPROD TO JBCURR
  18.           DO JBRIP0 WITH JBCURR
  19.      CASE JBOPER = "/"
  20.           IF VAL(JBCURR)=0
  21.                SET COLOR TO N*/W
  22.                @ JABTOP+3,JABLEFT+2 SAY "E"
  23.                SET COLOR TO W/N
  24.                STORE "0" TO JBCURR,JBCURRA
  25.           ELSE
  26.                STORE VAL(JBCURRA)/VAL(JBCURR) TO JBCURR
  27.                DO JBRIP0 WITH JBCURR
  28.           ENDIF
  29. ENDCASE
  30. @ JABTOP+3,JABLEFT+5  SAY SPACE(20-LEN(JBCURR))+JBCURR+" "
  31. RETURN
  32.