1ON ERROR PROCerror
2file$=""
3readme$=""
4
5SYS "Territory_Number" TO current_territory%
6REPEAT
7   READ territory%, prefix$, readme$
8   WHILE readme$<>""
9      IF territory%=current_territory% OR territory%=-1 THEN
10         SYS "OS_File",20,"<ScummVM$Dir>.docs."+prefix$+readme$ TO type%,,,,,,ftype%
11         IF type%<>0 AND FNsupported(ftype%)<>0 THEN
12            file$="<ScummVM$Dir>.docs."+prefix$+readme$
13         ENDIF
14      ENDIF
15      READ readme$
16   ENDWHILE
17UNTIL territory%=-1 OR file$<>""
18
19IF file$<>"" THEN
20   OSCLI "Filer_Run "+file$
21ENDIF
22END
23
24DEF PROCerror
25   ON ERROR OFF
26   ERROR ERR, REPORT$+" at line "+STR$(ERL)
27ENDPROC
28
29DEF FNsupported(ftype%)
30   LOCAL r2%
31   SYS "XOS_ReadVarVal","Alias$@RunType_"+STR$~(ftype%),-1,-1 TO ,,r2%
32=r2%
33
34REM Reference: https://www.riscosopen.org/wiki/documentation/show/Territory%20Numbers
35DATA 4,   "it.",    "GuidaRapida",                                         ""
36DATA 5,   "es.",    "InicioRapido",                                        ""
37DATA 6,   "fr.",    "DemarrageRapide",                                     ""
38DATA 7,   "de.",    "Schnellstart",                 "LIESMICH",            ""
39DATA 11,  "se.",    "Snabbstart",                   "LasMig",              ""
40DATA 14,  "da.",    "HurtigStart",                                         ""
41DATA 15,  "no-nb.", "HurtigStart",                                         ""
42DATA 134, "cz.",                                    "PrectiMe",            ""
43DATA -1,  "",       "QuickStart",      "README/md", "README",   "ScummVM", ""
44