home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / seedump.zip / SAMPLES / DEMO.BAG < prev    next >
Text File  |  1995-08-14  |  2KB  |  55 lines
  1. /* demo rexx script for seedump properties */
  2. address CMD "erase demo.log"
  3.  
  4. /* setting config variables:
  5. *    SOURCE, SYMBOLS, EXES, DLLS, MACROS, WORK, LOG
  6. */
  7. r = RxMessageBox( "a priori solutions GmbH & wolf neumann", "welcome to the world of SeeDump", ,INFORMATION )
  8.  
  9.  
  10. /*
  11. r = RxMessageBox( "", "tracing rexx", ,INFORMATION )
  12. trace ?i
  13. do i=1 to 3
  14.   say "simple "i
  15. end
  16. say "trace off"
  17. trace ?o
  18. */
  19.  
  20. set log "demo.log"  /* sets log file to "demo.log", all listboxes are duplicated
  21.                      * into this file */
  22.  
  23. /* get config variables:
  24. *    right now only register is supported.
  25. *    planned are SOURCE, SYMBOLS, EXES, DLLS, MACROS, WORK, LOG
  26. */
  27. r = RxMessageBox( "Display in History Window","Get Register", ,INFORMATION )
  28. get register
  29. say "reg esp="reg.esp
  30. say "reg ebp="reg.ebp
  31.  
  32. /* elements of stack trace window can be put into stem variable */
  33. r = RxMessageBox( "Display in History Window","Get the Stack Trace", ,INFORMATION )
  34. stacktrace
  35. do i=1 to stacktrace.0
  36.   say stacktrace.i
  37. end
  38. r = RxMessageBox(  stacktrace.1, "Display 1st entry in this MessageBox",,INFORMATION )
  39. r = RxMessageBox(  stacktrace.2, "Display 2nd entry in this MessageBox",,INFORMATION )
  40.  
  41. /* show a prompt box and get the result */
  42. say 'please enter a string'
  43. parse pull a
  44. say a
  45. r = RxMessageBox( a, "you entered", ,INFORMATION )
  46.  
  47. r = RxMessageBox( "", "doing arithmetic", ,INFORMATION )
  48. r = calc('4 * 50')
  49. say "4*50 is "r
  50.  
  51. i = "1234"
  52. say "big endian "i "is little endian" intel( i, 0, 4 )
  53.  
  54. say "thank you for your patience"
  55. /*bye*/