CLS
AT 0,2 SAY CHR(1)+"T"+SUBSTR(TIME(),1,5)+CHR(1)+"T"
AT 0,22 SAY CHR(1)+"BzBASE FRONT END SYSTEM - EXIT SYSTEM"+CHR(1)+"B"
AT 0,70 SAY CHR(1)+"T"+DATE()+CHR(1)+"T"
AT 1,0 SAY CHR(1)+"3Np-"
AT 3,13 SAY "Please confirm you want to exit the system (Y/N) >>>"
LET confirm$=" "
DO WHILE confirm$=" "
AT 3,67 GET confirm$
IF WHERE(confirm$,"YNyn")=0
LET confirm$=" "
ENDIF
ENDDO
IF UPPER(confirm$)="Y"
AT 5,22 SAY " "
QUIT
ENDIF
RELEASE confirm$
RETURN