RosettaCodeData/Task/Named-parameters/M2000-Interpreter/named-parameters.m2000
2023-07-01 13:44:08 -04:00

14 lines
286 B
Text

module namedparam (x as decimal=10, y as integer=50) {
Print type$(x), x
Print type$(y), y
}
namedparam 10, 20
namedparam ?, ?
Push 1, 2 : namedparam
Stack New {
\\ it is empty
namedparam
namedparam %y=500
namedparam %x=20
}
namedparam %x=1, %y=1