13 lines
375 B
Text
13 lines
375 B
Text
PROCEDURE Main()
|
|
LOCAL GetList := {}
|
|
LOCAL bValid := { |n| iif(n>-1001, iif(n<1001, .T.,.F.),.F.) }
|
|
LOCAL a := 0 , b := 0
|
|
|
|
SetColor( "G+/N" )
|
|
CLS
|
|
@ 10, 01 SAY "Enter two integers (range -1000...+1000):" GET a VALID Eval(bValid,a)
|
|
@ Row(), Col() + 1 GET b VALID Eval(bValid,b)
|
|
READ
|
|
@ 12, 01 SAY "Sum of given numbers is " + hb_ntos(a+b)
|
|
|
|
RETURN
|