RosettaCodeData/Task/Mutual-recursion/Yabasic/mutual-recursion.basic

// User defined functions
sub F(n)
    if n = 0 return 1
    return n - M(F(n-1))
end sub


sub M(n)
   if n = 0 return 0
   return n - F(M(n-1))
end sub


for i = 0 to 20
    print F(i) using "###";
next
print
for i = 0 to 20
    print M(i) using "###";
next
print