Contents of /territories/!Territory/Utils/TerrLoad/TerrLoad

REM > TerrLoad

REM inform font manager
SYS"OS_ServiceCall",, &64   :REM TerritoryManagerLoaded

REM change the alphabet
SYS"Territory_Alphabet", -1 TO n%
SYS"OS_Byte", 71, n%

REM redraw screen
SYS"Wimp_ReadSysInfo", 0 TO Tasks%
IF Tasks% > 0 THEN SYS"Wimp_CommandWindow", -1
1	REM > TerrLoad
2
3	REM inform font manager
4	SYS"OS_ServiceCall",, &64 :REM TerritoryManagerLoaded
5
6	REM change the alphabet
7	SYS"Territory_Alphabet", -1 TO n%
8	SYS"OS_Byte", 71, n%
9
10	REM redraw screen
11	SYS"Wimp_ReadSysInfo", 0 TO Tasks%
12	IF Tasks% > 0 THEN SYS"Wimp_CommandWindow", -1