1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
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"
|
