home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / JBCALC10.ZIP / JBREDO.PRG < prev    next >
Encoding:
Text File  |  1988-01-16  |  266 b   |  12 lines
  1. * JBREDO.PRG
  2. PARAMETERS JBSYM99,JB99X,JB99Y
  3. IF .NOT. (JB99X = 999 .OR. JB99Y = 999)
  4.      SET COLOR TO N/W
  5.      @ JABTOP+JB99X,JABLEFT+JB99Y SAY JBSYM99
  6.      SET COLOR TO W/N
  7. ENDIF
  8. IF JBSYM99$'^' .OR. JBOPER$'^'
  9.      STORE 999 TO JB99X,JB99Y
  10. ENDIF
  11. RETURN
  12.