%eden
writeln("Loading...please wait");
writeln("Generic version of loader");


location = "http://www.dcs.warwick.ac.uk/~wmb/sudokuExperience/workshops/code/";
localdirectory = "http://www.dcs.warwick.ac.uk/~wmb/sudokuExperience/workshops/workshop2B/";

file1 = "1_basicscreengrid.e";
file3 = "ex2file.e";
file2 = "buttonmenu.s";

installeddi();
proc garbage_collect {}; ## remove redundant (?) EDDI garbage collector

FileLoadedOkay = 0;
onlineinclude(location//file1); ## basic (sudoku) grid
%eden
if (FileLoadedOkay == 1) {
        writeln("File 1 Loaded OK");
} else {
        writeln("File 1 Failed to Load");
}

FileLoadedOkay = 0;
onlineinclude(localdirectory//file2); ## buttons
%eden
if (FileLoadedOkay == 1) {
        writeln("File 2 Loaded OK");
} else {
        writeln("File 2 Failed to Load");
}

FileLoadedOkay = 0;
onlineinclude(localdirectory//file3); ## exercise file
%eden
if (FileLoadedOkay == 1) {
        writeln("File 3 Loaded OK");
} else {
        writeln("File 3 Failed to Load");
}

/*
FileLoadedOkay = 0;
onlineinclude(localdirectory//file2); ## buttons
%eden
if (FileLoadedOkay == 1) {
        writeln("File 2 Loaded OK");
} else {
        writeln("File 2 Failed to Load");
}
*/
