'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
'Teste de vitesse de la fonction Copy/Copy Mem 
'
A$="Philippe..."
A=Varptr(A$)
B$="Philippe..."
B=Varptr(B$)
'
E=Execall(-132)
'
Timer=0
'
For T=0 To 50000
   'Amos
   Copy A,A+Len(A$) To B
Next T
'
Print "Amos: ";Timer
'
Timer=0
'
For T=0 To 50000
   'IExt
   Copy Mem A,Len(A$) To B
Next T
'
Print "IExt: ";Timer
'
E=Execall(-138)