Annotation of /archive/bootedit/BootEdit/Basic/Open

REM > BootEditCode:Open

DEF FNOpen_BootPane
LOCAL High%, ScrX%, ScrY%

SYS"WimpExt_MiscOp", 1 TO ,, High%
PROCWimp_ScreenSize(ScrX%, ScrY%)

IF B%!04 < 148 THEN B%!04 = 148
B%!12 = B%!04 + BootPane_Wide%
BootPane_High% = B%!16 - B%!08
 IF B%!16 > ScrY% - (High% + 216) THEN
  B%!16 = ScrY% - (High% + 216) - 2
  B%!08 = B%!16 - BootPane_High%
REM  IF B%!08 < 0 THEN B%!08 = 0
 ENDIF
 IF (B%!16 - B%!08) > ScrY% - (High% + 216) THEN
  B%!16 = ScrY% - (High% + 216) - 2
  B%!08 = 0
 ENDIF

SYS"Wimp_OpenWindow",, B%

B%!400 = FNObject_Hand(0, "Boot", 0)
SYS"Wimp_GetWindowState",, B% + 400
B%!404 = B%!04 - 148
B%!412 = B%!404 + 956
B%!416 = B%!16 + 216
B%!408 = B%!416 - 216 - (B%!16 - B%!08)
B%!428 = B%!00
SYS"Wimp_OpenWindow",, B% + 400

SYS"WimpExt_UnLinkWindows",,, B%!400, B%!00
SYS"WimpExt_LinkWindows",,, B%!400, B%!00

=1
1	james	25	REM > BootEditCode:Open
2
3			DEF FNOpen_BootPane
4			LOCAL High%, ScrX%, ScrY%
5
6			SYS"WimpExt_MiscOp", 1 TO ,, High%
7			PROCWimp_ScreenSize(ScrX%, ScrY%)
8
9			IF B%!04 < 148 THEN B%!04 = 148
10			B%!12 = B%!04 + BootPane_Wide%
11			BootPane_High% = B%!16 - B%!08
12			IF B%!16 > ScrY% - (High% + 216) THEN
13			B%!16 = ScrY% - (High% + 216) - 2
14			B%!08 = B%!16 - BootPane_High%
15			REM IF B%!08 < 0 THEN B%!08 = 0
16			ENDIF
17			IF (B%!16 - B%!08) > ScrY% - (High% + 216) THEN
18			B%!16 = ScrY% - (High% + 216) - 2
19			B%!08 = 0
20			ENDIF
21
22			SYS"Wimp_OpenWindow",, B%
23
24			B%!400 = FNObject_Hand(0, "Boot", 0)
25			SYS"Wimp_GetWindowState",, B% + 400
26			B%!404 = B%!04 - 148
27			B%!412 = B%!404 + 956
28			B%!416 = B%!16 + 216
29			B%!408 = B%!416 - 216 - (B%!16 - B%!08)
30			B%!428 = B%!00
31			SYS"Wimp_OpenWindow",, B% + 400
32
33			SYS"WimpExt_UnLinkWindows",,, B%!400, B%!00
34			SYS"WimpExt_LinkWindows",,, B%!400, B%!00
35
36			=1