The code you showed has some problems for sure.

The variables Duty and Scale are set to 1 at start. Then you do this
Code:
POWERUPRED:
for Aloop = 1 to DUTY
FOR Bloop = 1 to REDSCALE
HIGH RED
pause Aloop
LOW RED
pause (duty-Aloop)
NEXT Bloop
NEXT Aloop
HIGH RED
return
Rewriting with your declared values it looks like this
Code:
POWERUPRED:
for Aloop = 1 to 1
FOR Bloop = 1 to 1
HIGH RED
pause Aloop
LOW RED
pause (1-Aloop)
NEXT Bloop
NEXT Aloop
HIGH RED
return
Perhaps you see the problem now.

Regards