'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' command
'  -Wb Td Open 
'  -Wb Block Read
'  -Wb Td Motor Off
'  -Wb Td Close
'
Screen Open 0,640,256,16,$8000
Curs Off : Flash Off : Cls 2
Ink 0,2
'
'Ouverture du TrackDisk
A=Wb Td Open(0,0)
'
Reserve As Work 10,512
'
BL=-1
While Mouse Key=0
   Add BL,1,0 To 880
   Text 10,200,"Block:"+Str$(BL)
   Wb Block Read A,BL To Start(10)
   Text 10,210,"Error:"+Str$(Wb Td Error)+" "
   I=0
   For T=0 To 20
      I$=Peek$(Start(10)+I,24)+" "
      VI=Varptr(I$)
      Text 4,10+(T*9),I$+":"+(Hex$(Leek(VI),8)+" "+Hex$(Leek(VI+4),8)+" "+Hex$(Leek(VI+8),8)+" "+Hex$(Leek(VI+12),8)+" "+Hex$(Leek(VI+16),8)+" "+Hex$(Leek(VI+20),8))-"$"
      Add I,24
   Next T
Wend 
'
'Eteint le moteur
Wb Td Motor Off A
'Fermeture du TrackDisk
Wb Td Close A