' SPR subroutine fixture
VAR.$$AAA=0
GSB.:add5|10
JMP.:done
:add5
VAR.$$AAA=$$000+5
RET.
:done
END.