loop

%main program here

%program has ended

var playagain:string (1)
put "Enter y to restart game or enter any other key to quit."
getch (playagain)

if playagain = "y" then
end if

else
exit loop

end if

end loop

var winOne : int := Window.Open ("Graphics,Offscreenonly,NoButtonBar")
Draw.FillOval (maxx div 2, maxy div 2, maxy div 2, maxy div 2, red)
View.Update
delay (1000)
var f : int
open : f, "Reset.txt", put
put : f, "There is a line here"
close : f
Window.Close (winOne)

var window : int := Window.Open ("Graphics,Offscreenonly,NoButtonBar")
var playCircle : boolean := true
for i : 0 .. 3
    loop
        if playCircle then
            if Sys.Exec ("Circle.exe") then
                Window.Hide (window)
                put "running program"
                playCircle := false
            end if
        else
            if File.Exists ("Reset.txt") then
                Window.Show (window)
                put "program Finished."
                File.Delete ("Reset.txt")
                if Error.Last = eNoError then
                    put skip, "Reset.txt deleted"
                else
                    put "could not delete Reset.txt"
                end if
                playCircle := true
                exit
            end if
        end if
    end loop
end for
Window.Close (window)