Initial commit
This commit is contained in:
43
dists/riscos/FindHelp,fd1
Normal file
43
dists/riscos/FindHelp,fd1
Normal file
@@ -0,0 +1,43 @@
|
||||
ON ERROR PROCerror
|
||||
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 FNsupported(ftype%)<>0 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
|
||||
|
||||
DEF FNsupported(ftype%)
|
||||
LOCAL r2%
|
||||
SYS "XOS_ReadVarVal","Alias$@RunType_"+STR$~(ftype%),-1,-1 TO ,,r2%
|
||||
=r2%
|
||||
|
||||
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", ""
|
||||
Reference in New Issue
Block a user