/* IPop demo and documentation script */

/****** IPop/VERSION **************************************
   NAME
      VERSION

   SYNOPSIS
      result = VERSION

   FUNCTION
      returns the version string

   INPUTS
      none

   RESULT
      result - returns the version string of IPop

**************************************************************************

*/

/****** IPop/AUTHOR **************************************
   NAME
      AUTHOR

   SYNOPSIS
      result = AUTHOR

   FUNCTION
      returns the author information

   INPUTS
      none

   RESULT
      result - returns the author string of IPopCx

**************************************************************************

*/

/****** IPop/QUIT **************************************

   NAME
      QUIT

   SYNOPSIS
      void = QUIT

   FUNCTION
      quits the application

   INPUTS
      none

   RESULT
      none

**************************************************************************

*/

/****** IPop/CHECK **************************************

   NAME
      CHECK TIME/N

   SYNOPSIS
      void = QUIT

   FUNCTION
      Sets the check time, or forces a pop check.

   INPUTS
      TIME = sets time in minutes between pop intervals
      none = force pop check

   RESULT
      none

**************************************************************************

*/

/****** IPop/WAITING **************************************

   NAME
      WAITING

   SYNOPSIS
      RC = WAITING

   FUNCTION
      Returns the number of waiting messages.

   INPUTS
      none

   RESULT
      result = number of waiting messages

**************************************************************************

*/

/****** IPop/QUIET **************************************

   NAME
      QUIET

   SYNOPSIS
      result = QUIET

   FUNCTION
      Toggles the pop window

   INPUTS
      none

   RESULT
      result - 0 enabled, 1 disabled

**************************************************************************

*/

options results

ADDRESS IPOP.1

say 'Setting check time to 0 minute.'
ADDRESS IPOP.1 'CHECK TIME=1'
say 'Press any key to continue...'
pull anykey

say 'Checking POP...'
CHECK

WAITING
say 'Waiting: 'RC

Call mywait()
VERSION
say 'Version: 'RESULT

Call mywait()
AUTHOR
say ' Author: 'RESULT

Call mywait()
say 'Quitting..'
QUIT

exit

mywait: procedure
   address command 'c:wait 2'
   return