'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Pset  
'
Screen Open 0,320,256,64,$0
Curs Off : Flash Off : Cls 0
EE=Execall(-132)
'
Cls 0
Timer=0
For X=0 To 319
   For Y=0 To 255
      Wb Pset X,Y,X+Y
   Next Y
Next X
A=Timer
'
Cls 0
Timer=0
For X=0 To 319
   For Y=0 To 255
      Plot X,Y,X+Y
   Next Y
Next X
B=Timer
'
'Utiliser ce teste si vous possedez
'l'extention Turbo...
'Cls 0 
'Timer=0 
'For X=0 To 319
'For Y=0 To 255
'F Plot X,Y,X+Y
'Next Y
'Next X
'C=Timer 
'
EE=Execall(-138)
Print "Phil:";A
Print "Amos:";B
Print "Turbo:";C
'