' Computer Report
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
' cODED bY ßudda/NFA 
' StARtEd :  9/8/1995
' FiNiSHed:

Load "Comp_Report.abk"

' ** Use Screen 7 To Display Info ** 
Unpack 5 To 7
Screen Display 7,,100,,103
Gr Writing 0

' ** Get Info ** 
' -----cpu type
CPU$="680"+Str$(Cpu Info)-" "
If CPU$="6800" Then CPU$="68000"
' -----chipset 
CHIPSET=Gfxcall(-888)
If CHIPSET=$F Then CHIP$="AGA"
If CHIPSET=$3 Then CHIP$="ECS"
If CHIPSET=$0 Then CHIP$="OCS"
' -----co-processor
COP$="68"+Str$(Math Info)-" "
If COP$="680" Then COP$="NonE!"
' -----memory
CM$=(Str$(Chip Free/1024)-" ")
FM$=(Str$(Fast Free/1024)-" ")
' -----status from above info
If CM$>="1024"
   MESSAGE$="Enhanced sound available"
Else 
   MESSAGE$="No memory expansion detected"
End If 

' ** Display Info ** 
Ink 3 : Text 140,12,"SYSTEM CONF¡GURAT¡ON"
Ink 13 : Text 137,10,"SYSTEM CONF¡GURAT¡ON"
Ink 11 : Draw 138,14 To 300,14
Restore STATS
Y=10
For I=1 To 8
   Read F$
   Ink 15 : Text 12,Y+3,F$
   Ink 13 : Text 10,Y,F$
   Add Y,12
Next I

STATS:
Data " "," "
Data "         CPU: "+CPU$
Data "CO-PROCESSOR: "+COP$
Data "     CH¡PSET: "+CHIP$
Data "      MEMORY: "+CM$+"kb chip "+FM$+"kb fast"
Data " "
Data "      STATUS: "+MESSAGE$

' This code can be adapted to give alot more info about the
' machine it is running on.  Also extensions are NOT required to 
' get most of the info.  I'm just lazy!   :-)