// Border.cmm - Draw a border of asterisks on the screen

if defined(_WINDOWS_)
   ScreenSize(30,30);

DrawAsteriskBorder();
ScreenCursor(1,1);
getch();

DrawAsteriskBorder()
{
   size = ScreenSize();
   ScreenClear();
   // draw top border
   ScreenCursor(0,0);
   for ( col = 0; col < size.col; col++ )
      putchar('*');
   // draw bottom border
   ScreenCursor(0,size.row-2);
   for ( col = 0; col < size.col; col++ )
      putchar('*');
   // draw left and right borders
   for ( row = 0; row < size.row - 1; row++ ) {
      ScreenCursor(0,row);
      putchar('*');
      ScreenCursor(size.col-1,row);
      putchar('*');
   }
}