#COMPILE EXE "s68_chained_equate.exe"
' Sample: Chained equates (forward reference)
%BASE = 10
%DOUBLE_BASE = %BASE * 2
%TRIPLE_BASE = %DOUBLE_BASE + %BASE
FUNCTION PBMAIN() AS LONG
    PRINT "BASE ="; BASE
    PRINT "2x BASE ="; DOUBLE_BASE
    PRINT "3x BASE ="; TRIPLE_BASE
    FUNCTION = 0
END FUNCTION
