'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Td Open 
'  -Wb Td Close
'  -Wb Block Write 
'  -Wb Block Read
'  -Wb Td Motor Off
'
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
Wb Block Write A,$15000 To 0
Wb Block Read A,0 To Start(10)
'
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
'
'Eteint le moteur
Wb Td Motor Off A
'Fermeture du TrackDisk
Wb Td Close A