Advertisement
jsbsan

terminalmulti

Dec 19th, 2013
2,383
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.31 KB | None | 0 0
  1. ' Gambas class file
  2.  
  3. Inherits Expresion
  4.  
  5. Public Sub interpreter(s As Float[]) As Variant[] 'indica si hay error...
  6.  
  7.   Dim tmp As Float
  8.  
  9.   tmp = s.Pop()
  10.  
  11.   Try s.Push(s.Pop() * tmp)
  12.   If Error Then
  13.     Return [False, "(operador multiplicar) " & Error.Text]
  14.    
  15.   Endif
  16.   Return [True, ""]
  17.  
  18. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement