CLS
Dim i As Integer
INPUT "een getal"; i
if i>9999 THEN
    PRINT "veel"
ENDIF