Click above to get retro games delivered to your door ever month!

 FUNCTION PROGOFF()

  Short:
  ------
  PROGOFF() Removes a progress bar box created by PROGON()

  Returns:
  --------
  Nil

  Syntax:
  -------
  PROGOFF()

  Description:
  ------------
  Removes the progress box placed on the screen by
  PROGON()

  Examples:
  ---------

   //---------- this just shows progress from 1 - 1000
   initsup()
   ProgOn("Test")
   for i = 1 to 1000
     ProgDisp(i,1000,{||alltrim(str(i))+" of 1000"} )
   next
   ProgOff()

   //---------- this shows indexing progress
   use Customer
   ProgOn("Index")
   dbcreateindex("Eraseme","(LNAME)",  ;
    {||ProgDisp( recno(),recc() ),LNAME},.f.)
   ProgOff()

  Source:
  -------
  S_PROG.PRG