Code:
LED VAR PortB.0
Dat VAR BYTE

Mainloop:
    DEBUGIN 1000, Mainloop, [WAIT("ABC"),Dat]
    Dat=Dat-48 
    HIGH LED            
    PAUSE Dat * 1000
    LOW LED
    GOTO Mainloop      
    END