ON ERROR PROCerror
file$=""

SYS "Territory_Number" TO current_territory%
REPEAT
   READ territory%, prefix$, quickstart$, readme$
   IF territory%=current_territory% OR territory%=-1 THEN
      IF quickstart$<>"" THEN
         SYS "OS_File",20,"<ScummVM$Dir>.docs."+prefix$+quickstart$ TO qtype%
         IF qtype%<>0 THEN
            file$="<ScummVM$Dir>.docs."+prefix$+quickstart$
         ENDIF
      ENDIF
      IF readme$<>"" THEN
         SYS "OS_File",20,"<ScummVM$Dir>.docs."+prefix$+readme$ TO rtype%
         IF rtype%<>0 THEN
            file$="<ScummVM$Dir>.docs."+prefix$+readme$
         ENDIF
      ENDIF
   ENDIF
UNTIL territory%=-1 OR file$<>""

IF file$<>"" THEN
   OSCLI "Filer_Run "+file$
ENDIF
END

DEF PROCerror
   ON ERROR OFF
   ERROR ERR, REPORT$+" at line "+STR$(ERL)
ENDPROC

REM Reference: https://www.riscosopen.org/wiki/documentation/show/Territory%20Numbers
DATA 4,   "it.",    "GuidaRapida",     ""
DATA 5,   "es.",    "InicioRapido",    ""
DATA 6,   "fr.",    "DemarrageRapide", ""
DATA 7,   "de.",    "Schnellstart",    "LIESMICH"
DATA 11,  "se.",    "Snabbstart",      "LasMig"
DATA 14,  "da.",    "HurtigStart",     ""
DATA 15,  "no-nb.", "HurtigStart",     ""
DATA 134, "cz.",    "",                "PrectiMe"
DATA -1,  "",       "QuickStart",      "README"