home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 377 / BACKLITE.SIS / macEvaluate.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  1998-10-28  |  597 b   |  24 lines
  1.  
  2.  
  3. rem // Backlite+Plus Macro - macEvaluate V1.1 - J.Kneen 31/1/98
  4.  
  5. PROC MacEvaluate:
  6.     LOCAL strEval$(255)
  7.      
  8.      ONERR MacEvaluateErrortrap
  9.      
  10.      BLSwitchtoCurrent:
  11.      BLKeyCommand:("SHIFT+CTRL+LEFT")
  12.      
  13.      strEval$=BLCopy$:
  14.          
  15.       BLPasteText:( strEval$+"="+Gen$ ( Eval (strEval$),200))
  16.       RETURN
  17.  MacEvaluateErrortrap::
  18.      ONERR OFF
  19.      BLPasteText:(  strEval$+"=!ERR")
  20. ENDP
  21.  
  22.  
  23.  
  24.