Annotation 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	james	25	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