;
; ------------------------------------------------------------
;
;   PureBasic - String example file
;
;    (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
;

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

a.l = Val("-121212")

MessageRequester("PureBasic", "Welcome: "+Mid(Str(a),2,3)+" "+a$, 0)