FailAt 21

Echo "*nDigita System Report v2"
Echo ""
Echo "This utility will create a file containing"
Echo "information that will help Digita Technical"
Echo "Support track down any problems you may be"
Echo "having.*n"
Echo "Run this program and send a printout, with"
Echo "covering letter, to Digita Technical Support.*n*n"

Ask "Do you wish to Snoop your system (Y/N)? "
IF WARN
	Ask "*n*nWould you like to generate the*nSnoop report to your Printer (Y/N)? "
	IF WARN
	  SetEnv ReportOutput "RAM:DigitaReport"
	  Echo "*n*nGenerating Report. Please wait..."
	ELSE
	  SetEnv ReportOutput *
	ENDIF

	Echo "*nDigita System Report v2" >$ReportOutput
	Echo "" >>$ReportOutput

	Echo "*n############ OS Version:" >>$ReportOutput
	Version >>$ReportOutput

	Echo "*n*n############ Memory:" >>$ReportOutput
	Avail >>$ReportOutput

	Echo "*n*n############ CPU:" >>$ReportOutput
	CPU >>$ReportOutput

	Echo "*n*n############ Libraries on disk:" >>$ReportOutput
	List LIBS: NODATES >>$ReportOutput

	Echo "*n*n############ Library versions:" >>$ReportOutput
	List LIBS:#?.library LFORMAT "Version %s" FILES TO "Ram:SnoopTemp"
	Sort >NIL: Ram:SnoopTemp Ram:SnoopTemp
	Execute Ram:SnoopTemp >>$ReportOutput
	Delete >NIL: Ram:SnoopTemp

	Echo "*n*n############ Assigns:" >>$ReportOutput
	Assign >>$ReportOutput

	Echo "*n*n############ Volumes:" >>$ReportOutput
	Info >>$ReportOutput

	Echo "*n*n############ WwFonts ENV" >>$ReportOutput
	GetEnv Wordworth/WwFonts >ENV:WwFontsDir
	Echo "WwFontsDir points to: "$WwFontsDir >>$ReportOutput

	CD >ENV:SnoopCD   ;get current dir
	Echo "*n*n############ Wordworth 7 drawer contents" >>$ReportOutput
	CD $WwFontsDir    ;go to WwFonts drawer
	CD /              ;go back one to Wordworth drawer
	List PAT="~(#?.info)" NODATES ALL >>$ReportOutput
	CD $SnoopCD       ;restore current dir

	Echo "*n*n############ FONTS Contents:" >>$ReportOutput
	Dir FONTS:~(#?.info) >>$ReportOutput

	Echo "*n*n############ ENV Contents:" >>$ReportOutput
	Dir ENV:~(#?.info) ALL >>$ReportOutput

	Echo "*n*n############ ENVARC Contents:" >>$ReportOutput
	Dir ENVARC:~(#?.info) ALL >>$ReportOutput

	Echo "*n*n############ SYS Contents:" >>$ReportOutput
	Dir SYS:~(#?.info) >>$ReportOutput

	Echo "*n*n############ Startup-sequence:" >>$ReportOutput
	Type S:Startup-Sequence >>$ReportOutput

	Echo "*n*n############ User-startup:" >>$ReportOutput
	Type S:User-Startup >>$ReportOutput

	Echo "*n*n############ WB Startup:" >>$ReportOutput
	Dir SYS:WBStartup >>$ReportOutput

	Echo "*n*n*nEnd of Digita System Report*n*n" >>$ReportOutput
	IF $ReportOutput EQ *
	  Ask "Please press RETURN to finish."
	ELSE
	  Echo "*n*nPrinting Report. Please wait..."
	  Type RAM:DigitaReport >PRT:
	  Delete >NIL: Ram:DigitaReport
	  Delete >NIL: ENV:WwFontsDir
	  Delete >NIL: ENV:ReportOutput
	ENDIF
ELSE
  Echo "*n*nUser Aborted!"
  Ask "*nPress Return to exit"
ENDIF
