
Clear(x);
PrettyPrinter("PrettyForm");

Proteus'FontType(FlHelveticaBold);

Proteus'FontSize(26);
Proteus'AddLink("True","An example exercise",False,False);


Proteus'FontSize(18);
Proteus'AddLink("True",
"Given x^2 - 4 = 0, what is x?",False,True);
Proteus'FontSize(15);
Proteus'AddCommand("x:=x");
Proteus'FontSize(18);
Proteus'AddLink("True",
"Check answer: press enter on this field.",False,True);

Proteus'FontSize(15);
Proteus'AddCommand("x^2-4;");
Proteus'FontSize(18);
Proteus'AddLink("True",
"The above answer should be zero.
 
If you found the right answer, please press submit. This will
bring you back to the index if you had the anwer right.
",False,False);

Proteus'FontSize(15);
Proteus'FontColor(FlColorGreen);
Proteus'AddLink("if(x^2-4 = 0)Notepad(FindFile(\"index\")) else Verify(x^2-4,0);",
"Submit",False,True);


