home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / Barfly / ARexx-Debug / Windows2.BDEBUG < prev    next >
Text File  |  1994-03-18  |  999b  |  49 lines
  1. /************************************************************************
  2.  *
  3.  * Requester_Arexx.BDEBUG    copyright (c) 1993, Ralph Schmidt
  4.  *
  5.  * This is an example how to control the arexx port of BDEBUG....
  6.  * If you have further suggestions mail it, because it's my first
  7.  * try with AREXX and so I'm no real expert.
  8.  *
  9.  * Version 1.00:  27.3.1993
  10.  *
  11.  ************************************************************************/
  12.  
  13.  
  14.  
  15. /* This command allows BDEBUG to pass status variables */
  16.  
  17. Options FailAt 30
  18.  
  19. options results
  20.  
  21. /* Activate BDEBUG Arexx port */
  22. address 'rexx_BDEBUG'
  23.  
  24.  
  25. options results
  26.  
  27.     SAY 'Windows.......'
  28.     ACTIVATE_ROOTWINDOW
  29.     OPEN_DISSWINDOW'@PC'
  30.     OPEN_MEMWINDOW'$10000'
  31.     FIRST_DISSWINDOW
  32.     GOTO_ADDRESS'$4000'
  33.     GOTO_ADDRESS'$8000'
  34.     GOTO_ADDRESS'$c000'
  35.     GOTO_ADDRESS'$d000'
  36.     GOTO_ADDRESS'$e000'
  37.     GOTO_ADDRESS'$f000'
  38.     GOTO_ADDRESS'$10000'
  39.     GOTO_ADDRESS'$11000'
  40.     GOTO_ADDRESS'$12000'
  41.     GOTO_ADDRESS'$13000'
  42.     GOTO_ADDRESS'$14000'
  43.     CLEAR_ADDRESS
  44.     FIRST_MEMWINDOW
  45.     LINK_REGISTER'a5'
  46. exit
  47.  
  48.  
  49.