Ok


Thanks Jumper,can I word arrays just increase like this:

ML_Second var Word[24]
ML_Alarm var bit [24]
ML_End_Time var Word [24]

for S = 0 to 23
ML_Alarm[S] = 0
ML_Second[S] = 0
next S
ML_End_Time[0] = 10 ' Seconds
...
...
ML_End_Time[12] = 1000 ' Seconds
...
...
ML_End_Time[23] = 10000 ' Seconds
.......
.......
Tmr0_Int: 'Timer0 = 1 Seconds
TMR0IF = 0
for N = 0 to 23
If ML_Alarm[N]= 1 then ML_Second[N] = ML_Second[N] + 1 'Start the Counter for that ML
if ML_Second[N] = > ML_End_Time[N] then ML_Alarm[N]= 0: Gosub ......
Next N
Resume

Regards Pesti