import GUI
%hex on bottom left
drawline (10,70,10,150,red)%line on the left
drawline (10,70,50,40,red)%diagonal on bottom left
drawline (90,70,90,150,red)%line on right
drawline (50,40,90,70,red)%diagonal on bottom right
drawline (10,150,50,180,red)%diagonal on top left
drawline (50,180,90,150,red)%diagonal on top right
%hex on top left
drawline (10,210,10,290,red)%line on the left
drawline (10,210,50,180,red)%diagonal on bottom left
drawline (90,210,90,290,red)%line on the right
drawline (50,180,90,210,red)%diagonal on the bottom right
drawline (10,290,50,320,red)%diagonal on top left
drawline (50,320,90,290,red)%diagonal on top right
%hex on bottom mid
drawline (50,40,90,10,red)%diagonal on left bottom
drawline (90,10,220,10,red)%line on the bottom middle
drawline (90,70,220,70,red)%top line
drawline (220,10,260,40,red)%left bot diagonal
drawline (220,70,260,40,red)%left top diagonal
%Hex on bottom right
drawline (220,70,220,150,red)%line on the left
drawline (300,70,300,150,red)%line on the right
drawline (260,40,300,70,red)%diagonal bottom right
drawline (220,150,260,180,red)%diagonal top left
drawline (260,180,300,150,red)%diagonal top right
%Hex on top right
drawline (260,180,220,210,red)%diagonal on bottom left
drawline (260,180,300,210,red)%diagonal on bottom right
drawline (220,210,220,290,red)%line on the left
drawline (300,210,300,290,red)%line on the right
drawline (220,290,260,320,red)%diagonal on top left
drawline (260,320,300,290,red)%diagonal on top right
%Hex in middle
drawline (90,210,220,210,red)%top line
drawline (90,150,220,150,red)%bottom line
%Hex on top
drawline (50,320,90,350,red)%diagonal top left
drawline (260,320,220,350,red)%diagonal on top right
drawline (90,350,220,350,red)%top line
drawline (90,290,220,290,red)%bottom line
proc NUM1
drawfill (277,235, red, red)
drawfill (260,109, red, red)
end NUM1
proc NUM2
drawfill (277,235, red, red)
drawfill (154,327, red, red)
drawfill (178,183, red, red)
drawfill (42,79, red, red)
drawfill (176,35, red, red)
end NUM2
proc NUM3
drawfill (277,235, red, red)
drawfill (154,327, red, red)
drawfill (178,183, red, red)
drawfill (260,109, red, red)
drawfill (176,35, red, red)
end NUM3
proc NUM4
drawfill (277,235, red, red)
drawfill (47,256, red, red)
drawfill (178,183, red, red)
drawfill (260,109, red, red)
end NUM4
proc NUM5
drawfill (47,256, red, red)
drawfill (154,327, red, red)
drawfill (178,183, red, red)
drawfill (260,109, red, red)
drawfill (176,35, red, red)
end NUM5
proc NUM6
drawfill (47,256, red, red)
drawfill (154,327, red, red)
drawfill (178,183, red, red)
drawfill (260,109, red, red)
drawfill (176,35, red, red)
drawfill (42,79, red, red)
end NUM6
proc NUM7
drawfill (277,235, red, red)
drawfill (260,109, red, red)
drawfill (154,327, red, red)
end NUM7
proc NUM8
drawfill (47,256, red, red)
drawfill (154,327, red, red)
drawfill (178,183, red, red)
drawfill (260,109, red, red)
drawfill (176,35, red, red)
drawfill (42,79, red, red)
drawfill (277,235, red, red)
end NUM8
proc NUM9
drawfill (47,256, red, red)
drawfill (154,327, red, red)
drawfill (178,183, red, red)
drawfill (176,35, red, red)
drawfill (42,79, red, red)
drawfill (277,235, red, red)
end NUM9
proc NUM0
drawfill (47,256, red, red)
drawfill (154,327, red, red)
drawfill (260,109, red, red)
drawfill (176,35, red, red)
drawfill (42,79, red, red)
drawfill (277,235, red, red)
end NUM0
var num1 : int := GUI.CreateButtonFull (400, 50, 0, "1",
NUM1, 0, '^D', true)
var num2 : int := GUI.CreateButtonFull (350, 50, 0, "2",
NUM2, 0, '^D', true)
var num3 : int := GUI.CreateButtonFull (350, 100, 0, "3",
NUM3, 0, '^D', true)
var num4 : int := GUI.CreateButtonFull (350, 150, 0, "4",
NUM4, 0, '^D', true)
var num5 : int := GUI.CreateButtonFull (350, 200, 0, "5",
NUM5, 0, '^D', true)
var num6 : int := GUI.CreateButtonFull (350, 250, 0, "6",
NUM6, 0, '^D', true)
var num7 : int := GUI.CreateButtonFull (350, 300, 0, "7",
NUM7, 0, '^D', true)
var num8 : int := GUI.CreateButtonFull (350, 350, 0, "8",
NUM8, 0, '^D', true)
var num9 : int := GUI.CreateButtonFull (400, 350, 0, "9",
NUM9, 0, '^D', true)
var num0 : int := GUI.CreateButtonFull (450, 350, 0, "0",
NUM0, 0, '^D', true)
var quitBtn : int := GUI.CreateButton (400, 10, 0, "Quit", GUI.Quit)
loop
exit when GUI.ProcessEvent
end loop