Untitled

% Pooyan Game...
View.Set ("graphics:224,256;offscreenonly;title:Pooyan;position:center,center;nocursor")
var charY : int := 100

proc refreshScreen (charY : int)
    drawfillbox (185, charY, 195, charY + 20, blue)
    for y : 50 .. 240 by 15
        drawline (180, y, 200, y, 114)
    end for
end refreshScreen

proc moveChar (y : int)
    var ch : string (1)
    getch (ch)
    if ord (ch) = 200 then
        charY += 10
    elsif ord (ch) = 208 then
        charY -= 10
    end if
    drawfillbox (185, charY, 195, charY + 20, green)

    View.Update
    refreshScreen (charY)
end moveChar

proc drawScreen
    drawfill (0, 0, blue, blue)
    drawfillbox (0, 0, maxx, 30, 114)
    drawfillbox (0, 30, maxx, 35, green)
    drawline (200, 35, 200, 240, 114)
    drawline (180, 35, 180, 240, 114)
    for y : 50 .. 240 by 15
        drawline (180, y, 200, y, 114)
    end for
end drawScreen

drawScreen
loop
    moveChar (charY)
end loop