23 lines
519 B
QBasic
23 lines
519 B
QBasic
' Test $INCLUDE metacommand
|
|
PRINT "==== $INCLUDE Test ===="
|
|
|
|
' Include a library file
|
|
'$INCLUDE: 'test_include_lib.bas'
|
|
|
|
PRINT "Library version: "; LIB_VERSION
|
|
|
|
' Call functions from included file
|
|
LibGreet "World"
|
|
PRINT "3 + 4 = "; LibAdd(3, 4)
|
|
|
|
' Include a file that itself has no further includes
|
|
'$INCLUDE: 'test_include_nested.bas'
|
|
NestedGreet
|
|
|
|
' Test nested include chain: this includes B which includes C
|
|
'$INCLUDE: 'test_inc_b.bas'
|
|
FromB
|
|
FromC
|
|
PRINT "Depth C constant: "; DEPTH_C
|
|
|
|
PRINT "Include test complete!"
|