#########################################
#
# Test Program...
# To execute type:
#   'Read("test.txt");'
#
#
#########################################

# Read("c:/gap4r4/DifSets.txt");
Read("DifSets.txt");
Print("\n\n");
Print("Beginning demo program.\n\n");
Sleep(3);
Print("To see a demo, use the command 'Test( \"x_y\" );'\n");
Print("Where 'x_y' is the section you wish to see a demo for.\n\n");
Print("Example:  Test( \"2_1\" );\n\n");

#########################################

Test := function( chapter )
local curDir, testString, extension, open_string;
#   curDir      := "c:/gap4r4/";
   curDir      := "";

   testString  := "test_";
   extension   := ".txt";

   open_string := Concatenation( curDir, testString );
   open_string := Concatenation( open_string, chapter );
   open_string := Concatenation( open_string, extension );

   Read(open_string);
end;

#########################################

Clear := function()
local i;
   for i in [1 .. 60] do
      Print("\n");
   od;
end;

#########################################

Reload := function()
#   Read("c:/gap4r4/DifSets.txt");
    Read("DifSets.txt");
end;