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
|
ON ERROR PROCerror
SYS "XOS_ReadVarVal","StrongHelp$Dir",-1,-1 TO ,,stronghelp%
file$=""
readme$=""
SYS "Territory_Number" TO current_territory%
REPEAT
READ territory%, prefix$, readme$
WHILE readme$<>""
IF territory%=current_territory% OR territory%=-1 THEN
SYS "OS_File",20,"<ScummVM$Dir>.docs."+prefix$+readme$ TO type%,,,,,,ftype%
IF type%<>0 AND NOT (stronghelp%=0 AND ftype%=&3D6) THEN
file$="<ScummVM$Dir>.docs."+prefix$+readme$
ENDIF
ENDIF
READ readme$
ENDWHILE
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/md", "README", "ScummVM", ""
|
