10 lines
244 B
Text
10 lines
244 B
Text
|
DLG(NameEdit=a, NameEdit=b, Button='OK')
|
||
|
|
|
||
|
|
IF (a < b) THEN
|
||
|
|
WRITE(Messagebox) a, ' is less than ', b
|
||
|
|
ELSEIF(a == b) THEN
|
||
|
|
WRITE(Messagebox) a, ' is equal to ', b
|
||
|
|
ELSEIF(a > b) THEN
|
||
|
|
WRITE(Messagebox) a, ' is greater than ', b
|
||
|
|
ENDIF
|