'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Poke$ 
'
A$=String$(Chr$(0),30)
B$="Philippe"
A=Varptr(A$)
Wb Poke$ B$ To A
Print A$
Print 
Print B$
Print A
Print Dreg(0)