home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rox.zip / sessions.cmd < prev    next >
OS/2 REXX Batch file  |  1993-08-22  |  1KB  |  49 lines
  1. /*------------------------------------------------------------------
  2.  * sessions.cmd :
  3.  *------------------------------------------------------------------
  4.  * 08-21-93 originally by Patrick J. Mueller
  5.  *------------------------------------------------------------------*/
  6.  
  7. say "testing the Sessions classes"
  8.  
  9. if RxFuncQuery("RoxLoadFuncs") then
  10.    do
  11.    rc = RxFuncAdd("RoxLoadFuncs","Rox","RoxLoadFuncs")
  12.    rc = RoxLoadFuncs()
  13.    end
  14.  
  15. rc = time("r")
  16.  
  17. rc = RoxLoad("sessions.rox")
  18.  
  19. Frenchie  = RoxCreate("animal",       "Frenchie", 1,"Grrrrrr")
  20. Rover     = RoxCreate("dog",          "Rover",    1,"Woof")
  21. Fifi      = RoxCreate("littleDog",    "Fifi",     2,"bow wow")
  22. Rex       = RoxCreate("bigDog",       "Rex",      4,"BOW WOW")
  23. HonestBob = RoxCreate("usedCarDealer","HonestBob",1,"Buy this deal of a car!")
  24.  
  25. g = .setMinimumSalary(Rex,30)
  26. g = .setMinimumSalary(Fifi,20)
  27.  
  28. g = .says(Frenchie)
  29. say
  30.  
  31. g = .says(Rover)
  32. say
  33.  
  34. g = .says(Fifi)
  35. g = .scratch(Fifi)
  36. g = .trick(Fifi)
  37. g = .bargain(Fifi)
  38. say
  39.  
  40. g = .says(Rex)
  41. g = .scratch(Rex)
  42. g = .trick(Rex)
  43. g = .bargain(Rex)
  44. say
  45.  
  46. g = .says(HonestBob)
  47. g = .makeSale(HonestBob)
  48.  
  49.