RosettaCodeData/Task/Detect-division-by-zero/M2000-Interpreter/detect-division-by-zero-1.m2000

Print function("{Read x : =x**2}", 2)=4