function getInteger (low, high : int) : int
    const ENTER : char := chr (10)   
    var ch : string (1) := 'x'       
    var number : int := 0
    var digits : int := 0
    var Negative : boolean := false

    put "Please enter an Integer between ", low, " and ", high, " : " ..
    loop
        loop
            if hasch then
                getch (ch)
                if ch >= '0' and ch <= '9' then
                    number := number * 10 + strint (ch)
                    digits := digits + 1
                    put ch ..
                elsif ch = '-' and digits = 0 then
                    Negative := true
                    digits := digits + 1
                    put ch ..
                elsif ch not= ENTER then
                    digits := 0
                    number := 0
                    cls
                    put "** This is not a integer **"
                    put "Please enter an Integer: " ..
                end if
            end if
            exit when number >= low and number <= high
            digits := 0
            number := 0
            Negative := false
            cls
            put "** This number is not between ", low, " and ", high, " **"
            put "Please re-enter: " ..
        end loop
        exit when ch = chr (10) or digits >= 9 and number >= low and number <= high
    end loop
    if Negative then
        result number * -1
    else
        result number
    end if
end getInteger

% Test Main
var num : int

var win : int
win := Window.Open ("screen:10;70,cursor,echo")

num := getInteger (20, 200)

put ""
put "You entered ", num, " as your number"

var number: int
get number