VAR
VAL1 1
PROGRAM
SETA 10
SUBR 10
JMPZ 2
JPNZ -2
OUTA #
STOP #
NULL #
NULL #
NULL #
DECA #
RETS #
STOP #