var spd := 400
var sdp := 400
var x:= maxx div 2
var y:= maxy div 2
var mx:= x div 5500
var my:= y div 5500
View.Set ("offscreenonly")

var chars : array char of boolean

process sounds
    sound (spd, sdp)
    put (spd),(sdp)
    View.Update
    cls     
end sounds
loop
    Input.KeyDown (chars)
    if chars (KEY_DOWN_ARROW) then
        if spd > 0 then
            spd := spd - 5
            sdp := sdp - 5
            fork sounds
        end if       
    end if
    if chars (KEY_UP_ARROW) then
        if spd < 5500 then
            spd := spd + 5
            sdp := sdp + 5
            fork sounds
        end if   
    end if
    put (spd),(sdp)
    View.Update
    cls
end loop