home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / CALCPROC._ / NUMPRESS < prev    next >
Encoding:
Text File  |  1993-04-28  |  587 b   |  25 lines
  1. Arg window self
  2.  
  3. /* Get item value  Entry Field */
  4. value = VpGetItemValue(window,1001)
  5. if oper='=' then do
  6.    value='0'
  7.    oper=0
  8. end
  9. else if oper<>0 & tabul=0 then do
  10.    tabul=value
  11.    value='0'
  12. end
  13.  
  14. /* Get item value  self */
  15. value2 = VpGetItemValue(window,self)
  16. if value2='.' & POS('.',value)<>0 THEN
  17.    /* 1000 Hz for 25 millisec */
  18.    CALL VpBeep 2000,125
  19. else if value<>'0' | value2='.' | (value='0' & POS('.',value)<>0) then
  20.    value = VALUE(value)VALUE(value2)
  21. else
  22.    value=value2
  23. /* Set item value  Entry Field */
  24. CALL VpSetItemValue window,1001,value
  25.