var beats:int
var times:int
    times:=0
   
var any:string (1)

var screen:int:=Window.Open ("fullscreen")

loop

setscreen ("cursor")

colorback (black)
color (brightgreen)
cls

put "How many times would you like to have the heart beat before it flatlines?"
get beats

setscreen ("nocursor")

loop
colorback (brightgreen)
cls
sound (440,100)
colorback (black)
cls
delay (1000)
times:=times+1
if times=beats then
exit
end if
end loop
colorback (red)
color (black)
cls
sound (350,1000)
put "You're dead"
put ""
put "Press any key to try again..."
getch (any)
cls
times:=0
end loop