{Single_instance}

CLASS {Single_instance} , UNTESTED:

IMPORT : {Form} , {Screen} , {System_functions} , {String_functions} , {AL4_form} .

BASE CLASS {Screen} .

STR Unique|_string_characterizing_your_application , INIT

OVERRIDE Run ( {Form} Form_main )

------------------------------------------ 'do not use backslash in Unique'

END