-----------------------------------

gigaman

Mon Nov 22, 2004 9:18 am


stopping repeated use of the return key

-----------------------------------

This is a part of my battleship code. i need to make sure that if the user presses enter without inputing a value the cursor remains in the same place.


loop
        put "What is the x value?"
        get input
        loop
            exit when strintok (input)
            drawfillbox (0, 320, maxx, maxy, 0)
            locate (1, 1)
            put "Bad input(number between 1 and 10)"
            get input
        end loop
        gx := strint (input)
        exit when gx >= 1 and gx