/[james]/archive/bootedit/BootEdit/Basic/Redraw
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (show annotations) (download)
Thu Mar 13 12:54:50 2003 UTC (21 years, 7 months ago) by james
File size: 504 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26