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

DFwidth = 352;
DFheight = 270;

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

file1 = "1_basicscreengrid.e";
file1a = "puzzles/puzzle_0.txt";
file2 = "2_possibilitiesnew.e";


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

FileLoadedOkay = 0;
onlineinclude(location//file1); ## basic sudoku
%eden

if (FileLoadedOkay == 1) {
##        writeln("File 1 Loaded OK");
} else {
        writeln("File 1 Failed to Load");
}


FileLoadedOkay = 0;
onlineinclude(location//file1a);


%eden

if (FileLoadedOkay == 1) {
##        writeln("Puzzle Loaded OK");
} else {
        writeln("Puzzle Failed to Load");
}


FileLoadedOkay = 0;
onlineinclude(location//file2); ## possiblities
%eden

if (FileLoadedOkay == 1) {
##        writeln("File 2 Loaded OK");
} else {
        writeln("File 2 Failed to Load");
}


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

*/

writeln("Finished Loading");

