<XMP>
Sub Chr20_FF()
   Dim i

   Selection.TypeText ("***** CHARS: ")

   '----- LOOP
   For i = 32 To 255
      Selection.TypeText (Chr(i))
   Next
End Sub
</XMP>