Contents of /archive/bootedit/BootEdit/Basic/Redraw

REM > BootEditCode:Redraw

DEF FNRedraw_BootPane
LOCAL List%, Item%

List% = FNHeap_Find(0, "BootList")
IF !List% = 0 THEN =0

B%!400 = 8
B%!408 = 800
B%!428 = 60

 FOR Item% = 1 TO !List%
  B%!404 = -(Item% * List_High%)
  B%!412 = B%!404 + List_High%

   IF !(List% + 4 + 80 * (Item% - 1) + 00) AND 1 THEN
    B%!416 = &17200113
   ELSE
    B%!416 = &17000113
   ENDIF

  B%!420 = List% + 4 + 80 * (Item% - 1) + 20
  B%!424 = List% + 4 + 80 * (Item% - 1) + 04
  SYS"Wimp_PlotIcon",, B% + 400
 NEXT

=0
1	REM > BootEditCode:Redraw
2
3	DEF FNRedraw_BootPane
4	LOCAL List%, Item%
5
6	List% = FNHeap_Find(0, "BootList")
7	IF !List% = 0 THEN =0
8
9	B%!400 = 8
10	B%!408 = 800
11	B%!428 = 60
12
13	FOR Item% = 1 TO !List%
14	B%!404 = -(Item% * List_High%)
15	B%!412 = B%!404 + List_High%
16
17	IF !(List% + 4 + 80 * (Item% - 1) + 00) AND 1 THEN
18	B%!416 = &17200113
19	ELSE
20	B%!416 = &17000113
21	ENDIF
22
23	B%!420 = List% + 4 + 80 * (Item% - 1) + 20
24	B%!424 = List% + 4 + 80 * (Item% - 1) + 04
25	SYS"Wimp_PlotIcon",, B% + 400
26	NEXT
27
28	=0