6 lines
144 B
Text
6 lines
144 B
Text
type hour(integer x)
|
|
return x >= 0 and x <= 23
|
|
end type
|
|
hour h1, h2
|
|
h1 = 10 -- ok
|
|
h2 = 25 -- error! program aborts with a message
|