/****************************************************************/
/*                                                              */
/*  Demo of how to clear the screen in a novel way.             */
/*                                                              */
/*                   Copyright 1995 deltaComm Development, Inc. */
/*                                                              */
/****************************************************************/

main()
{
int width, height;
int i;

if (argcount< 0)                   // if the script wasn't told the screen dim.
 {
  width=gettermwidth();
  height=gettermheight();
 }
else
 {
  // get width & height from parameters -- not currently supported in SALT.
 }

flushbuf();                        // remove extraneous chars from comm buffers
cursor_onoff(0);                   // turn the cursor off

for (i=0; i < (height/2); i=i+1)
  {                                // Draw boxes to fill the screen w/ blanks
   box(i, i, width-i, height-i, 2, 1, random(7));
   delay_scr(1);                   // A short delay to help the effect
  }

for (i=(height / 2)-1; i>0; i=i-1)
  {                                // scroll the boxes off the screen
   scroll(0, 0, width, i+1, 1, 0);
   scroll(0, height-i, width, height, -1, 0);
   delay(1);
  }

clear_scr();                       // Clear screen completely
cursor_onoff(1);                   // Show cursor

}