推測なので間違っていたら申し訳ありません。 ４行目をIF - ENDIFの形式にして複数行にすると IF A<3 THEN の行でエラーになっています。 Aに値を代入する前に評価しているためにエラーになっています。AはOUT引数なので、呼び出し元のPとは別物で、戻るときにAの値をPに代入する動作をプチコンはしているはずです。