Example Comment/Source until the Following Line

Assume you have a VB source file and you select the Comment and source until the following line check box:

'@@Encrypt
'Summary:
'    Encryption function
'Description:
'    This function "encrypts" string using
'    very simple ascii code shifting. It
'    supplied as a demo only, do not use it
'    to secure vital information.
'Parameters:
'    Plain - the string that will be "encrypted".
'Returns:
'    The "encrypted" string.
'Source Code:
Public Function Encrypt(ByVal Plain As String)
'End source
    Dim Letter As String
    For I = 1 To Len(Plain)
        Letter = Mid$(Plain, I, 1)
        Mid$(Plain, I, 1) = Chr(Asc(Letter) + 1)
    Next I
    Encrypt = Plain
End Function

After processing the file, Doc-O-Matic uses the following:

@@Encrypt
Summary:
    Encryption function
Description:
    This function "encrypts" string using
    very simple ascii code shifting. It
    supplied as a demo only, do not use it
    to secure vital information.
Parameters:
    Plain - the string that will be "encrypted".
Returns:
    The "encrypted" string.
Source Code:
Public Function Encrypt(ByVal Plain As String)

This is the content of the comments and the first source line, which is the header of the function Encrypt. The last comment line Source Code: makes sure that the source of the function is presented in a special way, that set off from the text and formatted using a mono-spaced font.

Note: The @@Encrypt token instructs Doc-O-Matic that a new topic with ID Encrypt starts at this position in the file.