home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / LightWave.lha / Lightwave / Toaster / Arexx_Examples / lwm / Calculate.lwm < prev    next >
Encoding:
Text File  |  1995-04-26  |  950 b   |  42 lines
  1. /* CMD: Calculate
  2.  * Handy Calculator thing! */
  3. /* By Arnie Cachelin, Copyright © 1992, 1993 NewTek Inc. */
  4. /* Thu Feb  4 14:36:06 1993 */
  5.  
  6. libadd = addlib("LWModelerARexx.port",0)
  7. Continue=1
  8. signal on error
  9. signal on syntax
  10.  
  11. MATHLIB="rexxmathlib.library"
  12. IF POS(MATHLIB , SHOW('L')) = 0 THEN
  13.   IF ~ADDLIB(MATHLIB , 0 , -30 , 0) THEN DO
  14.     call notify(1,"!Can't find "MATHLIB)
  15.     exit
  16.     END
  17.  
  18. call req_begin "Calculate"
  19. TxId = req_addcontrol("",'T',"Enter An Expression To Evaluate")
  20. EqId = req_addcontrol("",'S',40)
  21. call req_setval EqId,'12.2*sin(45)/6', '1+1'
  22. do while Continue
  23.   x = req_post()
  24.   if (x) then do
  25.      RHS= req_getval(EqId)
  26.      end
  27.   else do
  28.      call req_end()
  29.      exit
  30.      end
  31.   interpret 'Val='RHS
  32.   continue = notify(2, '!Calculated',RHS'='Val*1,'@Calculate Another?')
  33.   end
  34. call req_end()
  35. exit
  36.  
  37. syntax:
  38. error:
  39.     t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
  40.   if libadd then call remlib("LWModelerARexx.port")
  41.     exit
  42.