'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Amos Rastport  
'  -Wb Print Mode    
'  -Wb Print Ink     
'  -Wb Print Locate    
'  -Wb Print     
'  -Wb X Print   
'  -Wb Y Print   
'  -Wb X Locate    
'  -Wb Y Locate    
'  -Wb Print Ymove 2   
'  -Wb Print Xmove 2 
'
Screen Open 0,640,256,16,$8000
Curs Off : Flash Off : Cls 0
A=Amos Rastport
'
Ink 1
For X=0 To 639 Step 8
   Draw X,0 To X,255
Next X
For Y=0 To 255 Step 8
   Draw 0,Y To 639,Y
Next Y
'
Wb Print Mode 0
Wb Print Ink 2,0
Wb Print Locate 0,0
Wb Print "X:"+Str$(Wb X Print)+"  Y:"+Str$(Wb Y Print)+"  LX:"+Str$(Wb X Locate)+"  LY:"+Str$(Wb Y Locate) To A
Wb Print Locate 5,2
Wb Print "X:"+Str$(Wb X Print)+"  Y:"+Str$(Wb Y Print)+"  LX:"+Str$(Wb X Locate)+"  LY:"+Str$(Wb Y Locate) To A
'
For T=1 To 5
   Wb Print Ymove 2
   Wb Print Xmove 2
   Wb Print "X:"+Str$(Wb X Print)+"  Y:"+Str$(Wb Y Print)+"  LX:"+Str$(Wb X Locate)+"  LY:"+Str$(Wb Y Locate) To A
Next T
'
Wait Key