VAR
VAL1 1
PROGRAM
SETA 15
OUTA #
DECA #
JPNZ -2
OUTA #
STOP #