` Error mode constants
#constant EM_SAVE = 1
#constant EM_MESSAGE_BOX = 2
#constant EM_EXCEPTION = 3


` MESSAGE BOX MODE
` Enabled by default
Print "Message box mode"
result$ = mn DNS("ERROR") ` Cause error (mnStart needs to be used before mnDNS)




` SAVE MODE
Print
Print "Save mode"
mn Toggle Error Mode EM_MESSAGE_BOX ` Disable error message boxes
mn Toggle Error Mode EM_SAVE ` Enable save mode

result$ = mn DNS("ERROR") ` Cause error

` mnGetErrorFlag or the return value can be used
` to determine if an error has occurred. mnGetErrorFlag
` overcomes the problem that some commands return different
` values upon error
if mn Get Error Flag() = 1
    Print "An error occurred whilst " + mn Get Error Operation()
endif




` MULTIPLE MODES
` In this case: save and message box
` Note: save mode is already on
Print
Print "Save and message box mode (at the same time)"
mn Toggle Error Mode EM_MESSAGE_BOX ` Enable message box mode

result$ = mn DNS("ERROR") ` Cause error

if mn Get Error Flag() = 1
   Print "An error occurred whilst " + mn Get Error Operation()
endif

Print
Print
Print "Press any key to exit..."
wait key
end