/usr/share/doc/bwbasic/examples/callfunc.bas is in bwbasic 2.20pl2-11.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | rem ----------------------------------------------------
rem CallFunc.BAS
rem ----------------------------------------------------
Print "CallFunc.BAS -- Test BASIC User-defined Function Statements"
Print "The next printed line should be from the Function."
Print
testvar = 17
x = TestFnc( 5, "Hello", testvar )
Print
Print "This is back at the main program. "
Print "The value of variable <testvar> is now "; testvar
Print "The returned value from the function is "; x
Print "Did it work?"
End
rem ----------------------------------------------------
rem Subroutine TestFnc
rem ----------------------------------------------------
Function TestFnc( xarg, yarg$, tvar )
Print "This is written from the Function."
Print "The value of variable <xarg> is"; xarg
Print "The value of variable <yarg$> is "; yarg$
Print "The value of variable <tvar> is "; tvar
tvar = 99
Print "The value of variable <tvar> is reset to "; tvar
TestFnc = xarg + tvar
Print "The Function should return "; TestFnc
End Function
|