home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / JBCALC10.ZIP / JBDOIT.PRG < prev    next >
Encoding:
Text File  |  1988-01-17  |  519 b   |  24 lines
  1. * JBDOIT.PRG
  2. PARAMETERS JBP1,JBP2,JBP3,JBA,JBB,JBSYM
  3. DO JBREDO WITH JBP1,JBP2,JBP3
  4. IF .NOT. JBSYM$'^'
  5.      @ JABTOP+JBA,JABLEFT+JBB SAY UPPER(JBSYM)
  6. ENDIF
  7. IF JBSYM$'=+*-/^'
  8.      IF JBSYM$'=+*-/^'
  9.           @ JABTOP+3,JABLEFT+27 SAY JBSYM
  10.      ENDIF
  11.      DO JBFIGURE
  12.      STORE JBSYM TO JBOPER
  13.      STORE JBCURR TO JBCURRA
  14.      IF .NOT. JBSYM$'='
  15.           STORE "0" TO JBCURR
  16.      ENDIF
  17. ELSE
  18.      DO JBPROCS WITH UPPER(JBSYM)
  19. ENDIF
  20. STORE JBSYM TO JBP1
  21. STORE JBA TO JBP2
  22. STORE JBB TO JBP3
  23. RETURN
  24.