10 do line input prompt 'Calc>': calc$ if _exit then exit do when exception in if pos(calc$, '=') > 0 then execute calc$ else execute 'print ' + calc$ end if use if extype <> -4017 then message error: "" print extext$ end if end when loop