#include "vbcompat.bi"
'+------------------------------------------------------------------------------------------+
'|   Header: Evaluating parameters                                                          |
'|           DisplayCheck:|Il1 are  Alt-0124, Big i, small L, One ������ߎę֚�񱸩��      |
Const Author="Separator.bas v017f �2007 by ytwinky, MD"'                                    |
'|           (Shortcuts: none)                                                              |
'|                                                                                          |
'|Purpose: get the separator character                                                      |
'+------------------------------------------------------------------------------------------+
Type Char As String ' borrowed from pascal :D
Declare Function GetSeparator() As String
Print !"Separator is \34" &GetSeparator() &!"\34"
Print "Eniki..";
GetKey
End

Function GetSeparator() As String
  Dim s As String=Format(1, "#.#")
  Return s[1]
End Function