home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / tipi / tipicalc.tpi < prev    next >
Text File  |  1993-11-07  |  376b  |  28 lines
  1. # TIPICALC.TPI
  2. # by Kent Peterson
  3.  
  4. cls
  5. cr
  6. "TIPICALC version 1.0" print$ cr
  7. cr
  8. "Enter an RPN expression to be evaluated"
  9. print$ cr
  10. "Use spaces to separate the operators."
  11. print$ cr
  12. "Press [ENTER] with no expression to end"
  13. print$ cr cr
  14.  
  15.  
  16. get$
  17. len 0 = if bye endif
  18. begin 
  19.  begin 
  20.   parse$
  21.    eval
  22.   len 0 =
  23.  until drop$
  24.  print cr
  25.  get$
  26.  len 0 =
  27. until
  28.