15 print "LINE 15"
10 print "LINE 10"
20 print "LINE 20"
15 print "LINE 15 too"
end

' VRtest.bas
' An MMBasic to test and demonstrate passing
' arguments to a subroutine by reference
' or value
'
print " Test 1."
a=4
b=4
testsub((a),b) ' Passes a by value, b by reference
print a,b
print

print " Test 2."
a=4
b=4
testsub((a),(b)) ' Passes a and b by value
print a,b
print

print " Test 3."
a=4
b=4
testsub(a),(b) ' Passes a by reference, b NOT passed
print a,b
print

print " Test 4."
a=4
b=4
testsub(a),b ' Passes a by reference, b NOT passed
print a,b
print

print " Test 5."
a=4
b=4
testsub a,(b) ' Passes a by reference, b by value
print a,b
print

print " Test 6."
a=4
b=4
testsub a,b ' Passes a and b by reference
print a,b
print

print " Test 7."
a=4
b=4
testsub(a,b) ' Passes a and b by reference
print a,b
print

print " Test 8."
a=4
b=4
testsub(a+b,b) ' Passes a+b by value and b by reference
print a,b
print

print " Test 9."
a=4
b=4
testsub a+b,b ' Passes a+b by value and b by reference
print a,b
print

sub testsub(arg1,arg2)
arg1=arg1+1
arg2=arg2+1
print arg1, arg2
end sub