home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sauce 'n' Code 3
/
sauce-n-code-03.adf
/
Source_Code
/
Comp_Report.asc
< prev
next >
Wrap
Text File
|
1996-01-21
|
1KB
|
67 lines
' 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! :-)