REM > BootEditCode:Init

DEF PROCInit

P% = B%
[OPT 2
EQUD 3: EQUD &502: EQUD 0
]
SYS"Wimp_AddMessages", B%

SYS"Wimp_OpenTemplate",, Task_Res2$ + "Templates"
PROCWind_Load("IBox", 1)
PROCWind_Load("Main", 1)
PROCWind_Load("Boot", 1)
PROCWind_Load("BootPane", 1)
PROCWind_Load("Add", 1)
PROCWind_Load("Remove", 1)
SYS"Wimp_CloseTemplate"
PROCWimp_IBoxVers
SYS"WimpExt_LinkWindows",,, FNObject_Hand(0, "Boot", 0), FNObject_Hand(0, "BootPane", 0)

File_Menu% = FNMess_Open(Task_Res2$ + "Menus", TRUE)
PROCMenu_Make(">WIBox<Info,Quit", "IBar")
PROCMenu_Make("All,None", "Boot")

Task_IBar% = FNWimp_IconBarSprite("!" + Task_Name$, 10, 1, -1, 68)

Boot_Loaded% = FALSE
Task_PollMask% = Task_PollMask% AND NOT(1)
Task_PollIdle% = 10
List_High% = 52

ENDPROC
