;
; ------------------------------------------------------------
;
;   PureBasic - Файл пример String.
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

c$ = "Test"
a$ = Left(c$,1)
a$ = Mid(c$,3, 1)

a = Val("-121212")

MessageRequester("PureBasic", "Добро пожаловать: " + Mid(Str(a),2,3) + " " + a$, 0)