home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / dc054c.zip / calc.cmd next >
OS/2 REXX Batch file  |  1998-05-11  |  588b  |  30 lines
  1. /* calc.cmd  ¡áp«ñ¡δ⌐ ¬á½∞¬π½∩Γ«p (ß) 1998 */
  2. SAY 'Éπß߬¿⌐ ¡áp«ñ¡δ⌐ ¬á½∞¬π½∩Γ«p v0.0'
  3. XX = "X="; X0 = "X=X"
  4.     SAY 'éóÑñ¿ΓÑ óδpáªÑ¡¿Ñ ¿½¿ Q ñ½∩ ºáóÑαΦÑ¡¿∩'
  5.  DO FOREVER
  6.     PULL v
  7.     IF v = 'Q'  THEN  LEAVE 
  8.     S=LEFT(v,1)
  9.     IF(DATATYPE(S,'A'))
  10.       THEN
  11.       DO
  12.         IF(POS('=',v) = 0)
  13.            THEN
  14.            DO  
  15.                INTERPRET XX  v 
  16.                SAY 'X=' X 
  17.            END
  18.            ELSE   
  19.                   INTERPRET  v
  20.       END
  21.       ELSE
  22.         DO  
  23.          INTERPRET X0  v
  24.          SAY 'X=' X 
  25.         END
  26.  END
  27. EXIT
  28.    
  29.  
  30.