' Verbose syntax
dim myNumber  as long     ' define a 32bit integer variable
dim myDecimal as single ' define single precision variable
dim myText    as string ' define a string variable

' Brief syntax + initialization
long   myNumber  = 123
single myDecimal = 1.23
string myText    = "Ciao"

' Brief syntax + initialization + bit oriented naming
int32   myNumber = 123  ' 32bit integer
float32 myDecimal= 1.23 ' 32bit float

' Scope definition + intialization
dim    myVal   as long = 5   ' variable scope deduced from location
global counter as long = 1   ' global scope forced
local  temp    as long = 456 ' local scope forced

Uses "Console" '---Load Console module
Printl "Hello world"
WaitKey

'---Load a file content up to 1GB of data
Uses "File" '---Load File module
String sBuffer = File_Load("FullFileName")

Function RealLen(Byval s As String) As Long
  Function = Len(Trim$(s))
End Function

uses "iNet"
uses "TcpUdp"
uses "Console"

string sHost    = "www.thinbasic.com"
string sIP      = IP_ToString(HOSTNAME_TOIP(sHost))
string sData    = "abcdefghijklmnopqrstuvwxyz"
string sPingBuffer

printl "Pinging", sHost, "[" + sIP + "]", "with", len(sData), "bytes od data:"
while %TRUE
  sPingBuffer = INET_Ping(sHost, 1000, sData)

  '---All OK
  if val(parse$(sPingBuffer, $tab, 2)) = 0 Then
    printl time$, sPingBuffer in %CCOLOR_FLIGHTGREEN
  Else
    '---KO
    printl time$, sPingBuffer in %CCOLOR_FLIGHTRED
  end If
  sleep 1000
Wend