home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / RXCALC.ZIP / MEMMINUS.CAL < prev    next >
Text File  |  1991-05-15  |  812b  |  16 lines
  1. /* Rexx Calculator Memory Subtraction Key                            */
  2. parse arg memory, value                /* get the count of memories  */
  3. numeric digits CalcPrecision()         /* set current precision      */
  4. numeric form value CalcForm()          /* set current form           */
  5.  
  6. if \datatype(memory, 'Whole')          /* must be whole number       */
  7.   then return 'Error'                  /* return error indicator     */
  8.  
  9. if memory < 1 | memory >50             /* valid for counter          */
  10.   then return 'Error'                  /* return error indicator     */
  11.  
  12. memory = trunc(memory)                 /* get as an integer          */
  13.  
  14. 'GET' memory 'REGISTER'                /* get current value          */
  15. 'SET' memory register - value          /* store new value            */
  16.