Какой это язык программирования?

Подскажите пожалуйста что за язык программирования?

FUNCTION Test(REAL aInput, OUTPUT REAL aOutput) {
PRINT $aInput
$aInput = 5
PRINT $aOutput
$aOutput = 0
PRINT $aOutput
}
FUNCTION Main() {
REAL Par1 = 2
REAL Par2 = 1
CALL Test(Par1, Par2)
PRINT $Par1
PRINT $Par2
}