10 lines
225 B
QBasic
10 lines
225 B
QBasic
' Library file for $INCLUDE testing
|
|
CONST LIB_VERSION = 1
|
|
|
|
SUB LibGreet(name AS STRING)
|
|
PRINT "Hello from library, "; name; "!"
|
|
END SUB
|
|
|
|
FUNCTION LibAdd(a AS DOUBLE, b AS DOUBLE) AS DOUBLE
|
|
LibAdd = a + b
|
|
END FUNCTION
|