  DISCONNECT
  SET ERROR MESSAGE 2077 OFF
  DELETE BackFiles.rx?
  SET ERROR MESSAGE 2077 ON
  CREATE SCHEMA AUTHOR BackFiles PUBLIC
  CREATE TABLE BackFileList (BackFile TEXT (100))
  OUTPUT BackFile.txt
  DIR *.bak
  OUTPUT SCREEN
  LOAD BackFileList FROM BackFile.txt AS FORMATTED USING BackFile 43 62
  DELETE FROM BackFileList WHERE BackFile NOT LIKE "Q%"
  SELECT (COUNT(*)+1) INTO vLines FROM BackFileList
  CHOOSE vBackFile FROM #VALUES FOR BackFile FROM BackFileList +
    ORDER BY BackFile DESC +
    TITLE "Select the file to restore" +
    CAPTION "             CHOOSE BACKUP FILE" +
    LINES .vLines +
    FORMATTED +
    OPTION WINDOW_CAPTION SMALLINT +
    |TITLE_BACK_COLOR WHITE +
    |TITLE_FONT_NAME Tahoma +
    |TITLE_FONT_SIZE 11 +
    |TITLE_FONT_COLOR BLACK +
    |TITLE_BOLD ON +
    |TITLE_ITALIC OFF +
    |TITLE_UNDERLINE OFF +
    |TITLE_STRIKEOUT OFF +
    |LIST_BACK_COLOR WHITE +
    |LIST_FONT_NAME Tahoma +
    |LIST_FONT_SIZE 11 +
    |LIST_FONT_COLOR BLACK +
    |LIST_BOLD OFF +
    |LIST_ITALIC OFF +
    |LIST_UNDERLINE OFF +
    |LIST_STRIKEOUT OFF +
    |WINDOW_BACK_COLOR WHITE +
    |THEMENAME Royale
  RETURN
