'**************************************
'                                     *
'     IntuiExtend.Lib 1.4/@1995-96    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
Screen Open 0,640,256,2,$8000
Curs Off : Flash Off : Cls 0
Colour 1,$BBB

Locate 15,3 : Print ".oO System information de l'extention IntuiExtend Oo."
Draw 129,33 To 534,33
'
CPU=68000+Sys Cpu
Locate 29,5 : Print "CPU Type:";CPU;"..."
'
CPU=81000+Sys Math
If CPU=81000
Locate 29,6 : Print "Math CPU: Non..."
Else 
Locate 20,6 : Print "Math CPU:";CPU;"..."
End If 
'
If Sys Kickstart(40)=0 : KICK=40 : Goto SUITE0 : End If 
If Sys Kickstart(39)=0 : KICK=39 : Goto SUITE0 : End If 
If Sys Kickstart(37)=0 : KICK=37 : Goto SUITE0 : End If 
If Sys Kickstart(36)=0 : KICK=36 : Goto SUITE0 : End If 
KICK=0
SUITE0:
If KICK=0
Locate 20,7 : Print "Kickstart version: Old version..."
Else 
Locate 20,7 : Print "Kickstart version:";KICK;"..."
End If 
'
CHIP=Sys Chip
If CHIP=0 : CHIP$="Denise Wb1.2" : Goto SUITE1 : End If 
If CHIP=8 : CHIP$="AA Lisa Wb 3.0" : Goto SUITE1 : End If 
If CHIP=12 : CHIP$="Denise ECS Wb 2.0" : Goto SUITE1 : End If 
If CHIP=15 : CHIP$="Denise Wb1.3" : Goto SUITE1 : End If 
SUITE1:
Locate 25,8 : Print "ChipSet Type: ";CHIP$;"..."
'
AGNUS=Sys Agnus
If AGNUS=0 : AGNUS$="Agnus PAL" : Goto SUITE2 : End If 
If AGNUS=16 : AGNUS$="Agnus NTSC" : Goto SUITE2 : End If 
If AGNUS=32 : AGNUS$="FatAgnus PAL" : Goto SUITE2 : End If 
If AGNUS=48 : AGNUS$="FatAgnus NTSC" : Goto SUITE2 : End If 
If AGNUS=53 : AGNUS$="AA Alice PAL" : Goto SUITE2 : End If 
SUITE2:
Locate 27,9 : Print "Agnus Type: ";AGNUS$;"..."
'

Locate 47,28 : Print "Appuyez sur une touche..."