| !Run for !XmasLight
|
|
| Set up the application directory and load sprites.
%Set XmasLight$Dir <Obey$Dir>
%IconSprites <XmasLight$Dir>.!Sprites
|
|
| This variable controls whether the lights are
| steady or blinking...
|    0 = Steady
|    1 = Blink alternate
|    2 = Blink all on & all off
%Set Xmas$Light$Blink  1
|
|
| This variable controls the timing of the PollIdle
| loop. Typically it is 25 centiseconds to give a
| quarter-second cycle.
%Set Xmas$Light$Speed  25
|
|
| This variable controls whether or not fuse bulbs
| are present. Because the BS/ISO requirements state
| that you are supposed to have fuse bulbs; I will
| not be held responsible for any effects of not
| using fuses...
%Set Xmas$Light$Fuse   1
|
|
| Burnt out bulbs not supported yet...
%Set Xmas$Light$Burnt  0
|
|
| Run the application. This needs 64K application
| space to decompress the code. It should fit into
| 32K, but you'll just get an Address Exception.
| Hmmm...
%WimpSlot -min 64K -max 64K
%Run <XmasLight$Dir>.!RunImage