home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / tools / kingfisher / locktest.kfrx < prev    next >
Text File  |  1995-01-19  |  1KB  |  50 lines
  1. /* ARexx example for RexxFisher:
  2.  *
  3.  * Run this program while KingFisher and RexxFisher are running.
  4.  * I'm making no effort to assure that these two are available.
  5.  *
  6.  * Written by:  Udo Schuermann
  7.  * $VER: LockDemo 1.0 (19.1.95)
  8.  *
  9.  * Demonstrates how to lock/unlock KingFisher.  This is useful
  10.  * if you temporarily ADDRESS a different program and do not
  11.  * wish to run the risk of another program using the vacated
  12.  * port and messing us up when we return.
  13.  *
  14.  * The important thing to remember is to ALWAYS CALL RF_UNLOCK!!!
  15.  *
  16.  * NOTE: This script requires RexxFisher 1.10 for two reasons:
  17.  *       1. RF_LOCK/RF_UNLOCK commands
  18.  *       2. The RF_ prefixes are omitted here; this is optional
  19.  *          beginning with RexxFisher 1.10.
  20.  */
  21. options results
  22. address rexxfisher1
  23.  
  24. VERSION
  25. say "Hi, you are now connected to ..." result
  26.  
  27. HELP
  28. say ""
  29. say "Here is some HELP for you, information on RexxFisher in other words:"
  30. say ""
  31. say result
  32.  
  33. say "We now lock RexxFisher..."
  34. LOCK
  35. key = result
  36.  
  37. say "Let's get a version inquiry..."
  38. VERSION
  39. say result
  40.  
  41. say "Let's unlock RexxFisher again, using our key" key
  42. UNLOCK key
  43. say result
  44.  
  45. say "And NOW get a version inquiry..."
  46. VERSION
  47. say result
  48.  
  49. say "Done.  Bye-bye!"
  50.