home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Comp_Report.asc < prev    next >
Encoding:
Text File  |  1996-01-22  |  1.3 KB  |  67 lines
  1. ' Computer Report
  2. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  3. ' cODED bY ßudda/NFA 
  4. ' StARtEd :  9/8/1995
  5. ' FiNiSHed:
  6.  
  7. Load "Comp_Report.abk"
  8.  
  9. ' ** Use Screen 7 To Display Info ** 
  10. Unpack 5 To 7
  11. Screen Display 7,,100,,103
  12. Gr Writing 0
  13.  
  14. ' ** Get Info ** 
  15. ' -----cpu type
  16. CPU$="680"+Str$(Cpu Info)-" "
  17. If CPU$="6800" Then CPU$="68000"
  18. ' -----chipset 
  19. CHIPSET=Gfxcall(-888)
  20. If CHIPSET=$F Then CHIP$="AGA"
  21. If CHIPSET=$3 Then CHIP$="ECS"
  22. If CHIPSET=$0 Then CHIP$="OCS"
  23. ' -----co-processor
  24. COP$="68"+Str$(Math Info)-" "
  25. If COP$="680" Then COP$="NonE!"
  26. ' -----memory
  27. CM$=(Str$(Chip Free/1024)-" ")
  28. FM$=(Str$(Fast Free/1024)-" ")
  29. ' -----status from above info
  30. If CM$>="1024"
  31.    MESSAGE$="Enhanced sound available"
  32. Else 
  33.    MESSAGE$="No memory expansion detected"
  34. End If 
  35.  
  36. ' ** Display Info ** 
  37. Ink 3 : Text 140,12,"SYSTEM CONF¡GURAT¡ON"
  38. Ink 13 : Text 137,10,"SYSTEM CONF¡GURAT¡ON"
  39. Ink 11 : Draw 138,14 To 300,14
  40. Restore STATS
  41. Y=10
  42. For I=1 To 8
  43.    Read F$
  44.    Ink 15 : Text 12,Y+3,F$
  45.    Ink 13 : Text 10,Y,F$
  46.    Add Y,12
  47. Next I
  48.  
  49. STATS:
  50. Data " "," "
  51. Data "         CPU: "+CPU$
  52. Data "CO-PROCESSOR: "+COP$
  53. Data "     CH¡PSET: "+CHIP$
  54. Data "      MEMORY: "+CM$+"kb chip "+FM$+"kb fast"
  55. Data " "
  56. Data "      STATUS: "+MESSAGE$
  57.  
  58. ' This code can be adapted to give alot more info about the
  59. ' machine it is running on.  Also extensions are NOT required to 
  60. ' get most of the info.  I'm just lazy!   :-)
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.