parse arg template1, template2, template3
/* Parsing several strings in a subroutine */
num="3"
musketeers="Porthos Athos Aramis D'Artagnan"
CALL Sub num,musketeers /* Passes num and musketeers to sub */
SAY total; say fourth /* Displays: "4" and " D'Artagnan" */
EXIT
Sub:
parse arg subtotal, . . . fourth
total=subtotal+1
RETURN