Sub MAIN
    nFonts = CountFonts()          ' Get number of fonts
    Dim FntName$(nFonts)           ' Reserve space for font names
    For count = 1 To nFonts        ' Load fonts into array
        FntName$(count) = Font$(count)
    Next
    LastSwitch = nFonts - 1        ' Calc repetitions of loop as
    While LastSwitch > 0           '  number of fonts -1 
    Limit = LastSwitch             ' Set limit for loop as
        LastSwitch = 0             ' orig value of LastSwitch
                                   ' Then sort
        For count = 1 To Limit    
            If FntName$(count) > FntName$(count + 1) Then
                LastSwitch = count
                Temp$ = FntName$(count)
                FntName$(count) = FntName$(count + 1)
                FntName$(count + 1) = Temp$
            End If
        Next
    Wend
    For count = 1 To nFonts        ' Now print font information
        Font "Arial", 6            ' First set to Arial 6pt
        Insert Str$(count)         ' Print a number for the font 
        Insert ".  "               ' Follow with period
        Insert FntName$(count)     ' Print font name in Arial
                             ' NOTE use FormatCharacter for 
                             ' ver 2.  FormatFont for 6.0
        FormatFont .Font = FntName$(count)
        FormatFont .Points = 12    ' Now set to 12pt
        Insert FntName$(count)     ' Print font name 
        Insert " AaBcCdDdEeFf"     ' Print the sample text 
        InsertPara                 ' End the line
    Next                           ' Continue to next font until
                                   ' until done
End Sub