setscreen ("graphics:800;600,offscreenonly,nobuttonbar")
View.Set ("offscreenonly")
Draw.FillBox (0, 0, 1500, 1500, white)
var leedle : array char of boolean
var x, y : int := 550

x := 100
y := 100

Draw.FillBox (0,0,6000,6000,55)
Draw.FillBox (30,30,770,570,54)
Draw.Box (30,30,770,570,black)
%Background
var leedle :int := Pic.FileNew ("turings.jpg")
%Sets picture for front page
var intfont: int
intfont := Font.New("Copperplate Gothic Bold:54")
Font.Draw ("Turing", 265, 470, intfont, 42)
Font.Draw ("Etch-a-Sketch", 120, 400, intfont, black)
Draw.FillBox (270,130,537,353,55)
Pic.Draw (leedle, 280, 140, picCopy)
%Actually draws picture for front page
var intfont2: int
intfont2 := Font.New("Impact:18")
Font.Draw ("Use the arrow keys to move and draw. Ball CAN move diagonally", 92, 100, intfont2, black)
Font.Draw ("Use the 'C' key to clear the screen. Press any of the arrow keys to begin!", 58, 70, intfont2, black)
Font.Draw ("Use 'R' to repeat the instructions any time. Warning: Will Clear Screen!", 62, 40, intfont2, black)
%beginning instructions

delay (1500)
cls
loop
    const val : int := parallelget
    if ((val div 16) mod 2 = 0) then
        y := y + 3
        Draw.FillOval (x, y, 7, 7, 54)
        delay (5)
        View.Update
        Draw.FillOval (x, y, 7, 7, black)
    end if

    if ((val div 32) mod 2 = 0) then
        y := y - 3
        Draw.FillOval (x, y, 7, 7, 34)
        delay (5)
        View.Update
        Draw.FillOval (x, y, 7, 7, black)
    end if

    if ((val div 64) mod 2 = 0) then
        x := x + 3
        Draw.FillOval (x, y, 7, 7, 48)
        delay (5)
        View.Update
        Draw.FillOval (x, y, 7, 7, black)
    end if


    if ((val div 8) mod 2 = 0) then
        x := x - 3
        Draw.FillOval (x, y, 7, 7, 40)
        delay (5)
        View.Update
        Draw.FillOval (x, y, 7, 7, black)
    end if
    if (x >= maxx - 7) then
        x := x - 3
        %Sets maximum parameters for x value
    end if
    if (x = 7) then
        x := x + 3
        %Sets minimum parameters for x value
    end if
    if (y >= maxy - 7) then
        y := y - 3
        %Sets maximum parameters for y value
    end if
    if (y = 7) then
        y := y + 3
        %Sets minimum parameters for y value
    end if

    if leedle ('c') then
            cls
            View.Update
            Draw.FillOval (x, y, 7, 7, black)
    end if   
end loop