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