gurba-0.40/
gurba-0.40/bin/
gurba-0.40/lib/
gurba-0.40/lib/cmds/guild/fighter/
gurba-0.40/lib/cmds/monster/
gurba-0.40/lib/cmds/race/catfolk/
gurba-0.40/lib/cmds/race/dwarf/
gurba-0.40/lib/cmds/verb/
gurba-0.40/lib/daemons/data/
gurba-0.40/lib/data/boards/
gurba-0.40/lib/data/messages/
gurba-0.40/lib/data/players/
gurba-0.40/lib/design/
gurba-0.40/lib/domains/gurba/
gurba-0.40/lib/domains/gurba/guilds/fighter/
gurba-0.40/lib/domains/gurba/monsters/
gurba-0.40/lib/domains/gurba/objects/armor/
gurba-0.40/lib/domains/gurba/objects/clothing/
gurba-0.40/lib/domains/gurba/objects/weapons/
gurba-0.40/lib/domains/gurba/vendors/
gurba-0.40/lib/kernel/cmds/admin/
gurba-0.40/lib/kernel/daemons/
gurba-0.40/lib/kernel/include/
gurba-0.40/lib/kernel/lib/
gurba-0.40/lib/kernel/net/
gurba-0.40/lib/kernel/sys/
gurba-0.40/lib/logs/
gurba-0.40/lib/pub/
gurba-0.40/lib/std/modules/languages/
gurba-0.40/lib/std/races/
gurba-0.40/lib/std/races/monsters/
gurba-0.40/lib/wiz/fudge/
gurba-0.40/lib/wiz/spud/
gurba-0.40/src/host/beos/
gurba-0.40/src/host/pc/res/
gurba-0.40/src/kfun/
gurba-0.40/src/lpc/
gurba-0.40/src/parser/
gurba-0.40/tmp/
void main( string arg ) {
   string file;
   string *tmp;
   string *lines;
   int i;
   int where;
   int num_lines, start;

   if( arg == "" ) {
      arg = this_environment()->file_name();
   }

   file = normalize_path( arg, this_player()->query_env( "cwd" ) );

   if( file_exists( file ) < 1 ) {
      write( arg + ": File not found." );
      return;
   }

   tmp = explode( read_file( file ), "\n" );
   lines = ({ });
   for( i = 0; i < sizeof( tmp ); i++ ) {
      if( strlen( tmp[i] ) > 79 ) {
         /* Big line. Break it up. */
         where = 0;
         while( where < strlen( tmp[i] ) ) {
            if( where + 79 < strlen( tmp[i] ) ) {
               lines += ({ tmp[i][where..where+78] });
               where += 79;
            } else {
               lines += ({ tmp[i][where..] });
               where = strlen(tmp[i]);
            }
         }
      } else {
         lines += ({ tmp[i] }) ;
      }
   }
  
   num_lines = sizeof( lines );
   start = num_lines - 20;
   if( start < 0 ) {
      start = 0;
   }
   for( i = start; i < num_lines; i++ ) {
      write(lines[i]);
   }
}