7 lines
80 B
Text
7 lines
80 B
Text
|
CLS
|
||
|
Dim i As Integer
|
||
|
INPUT "een getal"; i
|
||
|
if i>9999 THEN
|
||
|
PRINT "veel"
|
||
|
ENDIF
|