home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ESL32BIT.ZIP / esl32bit.eal next >
Text File  |  1992-08-12  |  1KB  |  58 lines
  1. enabled visible color blue primary textual region Main
  2.   size 380 250
  3.   at 100 100
  4.   system menu
  5.   color white foreground
  6.   title bar "Fred"
  7.   font "large"
  8.   minimize button
  9.   maximize button
  10.   red border
  11.  
  12. integer A is 20
  13.         B is 10
  14.  
  15. string Test is "this is all in lower case"
  16.  
  17. function Add(integer:X, integer:Y)
  18.   returns integer
  19.   library "eslsamp"
  20.  
  21. function Sub(integer:X, integer:Y)
  22.   returns integer
  23.   library "eslsamp"
  24.  
  25. function Mul(integer:X, integer:Y)
  26.   returns integer
  27.   library "eslsamp"
  28.  
  29. function Div(integer:X, integer:Y)
  30.   returns integer
  31.   library "eslsamp"
  32.  
  33. function HelloWorld()
  34.   returns string
  35.   library "eslsamp"
  36.  
  37. subroutine ToUpper(string: Buffer)
  38.   library "eslsamp"
  39.  
  40. response to start
  41.   add to Main
  42.     insert "Ready!\n"
  43.  
  44. response to Main
  45.   on button1 double click
  46.     add to Main
  47.       insert A "+" B "=" Add(A, B) "\n"
  48.       insert A "-" B "=" Sub(A, B) "\n"
  49.       insert A "*" B "=" Mul(A, B) "\n"
  50.       insert A "/" B "=" Div(A, B) "\n"
  51.       insert HelloWorld() "\n"
  52.    add to Main
  53.      insert "Before: " Test "\n"
  54.    call ToUpper(Test)
  55.    add to Main
  56.      insert "After: " Test "\n"
  57.  
  58.