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

Annotation of /archive/bootedit/BootEdit/Basic/Redraw

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (hide 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 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

  ViewVC Help
Powered by ViewVC 1.1.26