'Testing.bas

abcds
abcdr
abcdc

x=MYS("a1,b,c,d4,e5,cats,z33,a1,b,j,k")
print x

x=MYR
print x

x=MYC
print x

end

sub abcds
print "abcds"
end sub

sub abcdr
print "abcdr"
end sub

sub abcdc
print "abcdc"
end sub

function mys(a$)
print "mys ",a$
mys=1
end function

function myr
print "myr "
myr=3
end function

function myc
print "myc "
myc=7
end function

> run
abcds
abcdr
abcdc
mys a1,b,c,d4,e5,cats,z33,a1,b,j,k
1
[10] x=MYR
Error: A sub/fun has the same name: MYR
>

x=MYR()
Print x

x = myc()
Print x


'


'

Function Myr()
Print "myr "
myr=3
End Function

Function myc()
Print "myc "
myc=7
End Function