Thanks,

I was able to write the code.
Here it is:


A VAR PORTB.3
B VAR PORTB.4

TON VAR WORD
TOFF VAR WORD
I VAR WORD
KEY_IN VAR WORD
TON=50 'DEFAULT
TOFF=50 'DEFAULT

LOW A
LOW B


MAIN:
FOR i =0 TO 3000
HIGH A
PAUSEUS TON
LOW A
PAUSEUS TOFF
HIGH B
PAUSEUS TON
LOW B
PAUSEUS TOFF
NEXT I
DEBUG " ENTER TON " ,13,10,7 ' TON ENTER > PROMPT DISPLAYED

DEBUGIN [DEC KEY_IN]
TON= KEY_IN
DEBUG "TON=" ,DEC TON,13,10 ' DISPLAY TON ON TERMINAL
DEBUG ">> GOING ON <<",13,10 ' DISPAY RUNNING ON TERMINAL

GOTO MAIN

Any additional suggestion is appreciated.
Ambrogio
IW2FVO
North Italy