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