#COMPILE EXE "s39_sub_routine.exe"
' Sample: SUB routine (no return value)
SUB PrintHeader(BYVAL title AS STRING)
    PRINT STRING$(LEN(title)+4, "=")
    PRINT "  "; title
    PRINT STRING$(LEN(title)+4, "=")
END SUB
FUNCTION PBMAIN() AS LONG
    CALL PrintHeader("Report")
    PRINT "Data line 1"
    PRINT "Data line 2"
    FUNCTION = 0
END FUNCTION
