*************
* Deck "InfoReq"
* Time 16:18:37
* Date 09/06/92
*************

*************
* Card(s) in deck.
*  Card "Info"
*************
* 1 Card(s), 1 were printed.
*************

*************
* Natural order of Cards
*  Card "Info"
*************

*************
* Global Routine(s) in deck.
*  Routine "InfoDF0"
*  Routine "InfoDF1"
*  Routine "InfoDF2"
*  Routine "InfoDH0"
*  Routine "InfoRAM"
*************
* 5 Global routines(s), 5 were printed.
*************

*************
* Card "Info"
	AfterAttachment ; used to be AfterStartup
		SetDrawMode JAM1 
		SetPen 2
		DrawRectangle 20+1,20+1,600,150
		SetPen 1
		DrawRectangle 20,20,600,150
		PrintText "BLOCKS  TOTAL      :",30,50
		PrintText "BLOCKS  BELEGT     :",30,60
		PrintText "BLOCKS  FREI       :",30,70
		PrintText "BYTES   PRO BLOCK  :",30,90
		PrintText "BYTES   TOTAL      :",30,110
		PrintText "BYTES   BELEGT     :",30,120
		PrintText "BYTES   FREI       :",30,130
		PrintText "PROZENT BELEGT     :",30,150
		SetSystemRequesterTo NOWHERE 
		If Exists ("df0:")
			Do "InfoDF0"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Keine Diskette im Laufwerk df0:"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		SetSystemRequesterTo NOWHERE 
		If Exists ("df1:")
			Do "InfoDF1"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Keine Diskette im Laufwerk df1:"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		SetSystemRequesterTo NOWHERE 
		If Exists ("df2:")
			Do "InfoDF2"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Keine Diskette im Laufwerk df2:"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		SetSystemRequesterTo NOWHERE 
		If Exists ("ram:")
			Do "InfoRAM"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Kann RAM-Disk: nicht finden"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		If Exists ("dh0:")
			Do "InfoDH0"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Kann DH0: nicht finden"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
	EndScript
	Window "UserWindow"
		Definition
			Origin 0,38
			Size 640,180
			Title "INFO V1.0"
			NumberOfColors 4
			WindowColors 0,1,0 ; Detail, Block, Background
			WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
			WindowFlags ACTIVATE TOFRONT 
		EndScript
		OnCloseButton
			Quit
		EndScript
	EndObject
	TextButton "Device"
		Definition
			Origin 30,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " Devices: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "0"
		Definition
			Origin 228,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " DF0: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "1"
		Definition
			Origin 308,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " DF1: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "2"
		Definition
			Origin 388,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " DF2: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "r"
		Definition
			Origin 468,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " RAM: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "h"
		Definition
			Origin 548,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " dh0: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	Disk "UserDiskObject_1"
		OnRemoved ; when any disk is removed
			SetSystemRequesterTo NOWHERE 
			If Not Exists ("df0:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 220,50,60,110
			EndIf
			If Not Exists ("df1:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 300,50,60,110
			EndIf
			If Not Exists ("df2:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 380,50,60,110
			EndIf
			If Not Exists ("ram:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 460,50,60,110
			EndIf
			If Not Exists ("dh0:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 540,50,60,110
			EndIf
		EndScript
		OnInserted ; when any disk is inserted
			SetPen 2
			DrawRectangle 20+1,20+1,600,150
			SetPen 1
			DrawRectangle 20,20,600,150
			PrintText "BLOCKS  TOTAL      :",30,50
			PrintText "BLOCKS  BELEGT     :",30,60
			PrintText "BLOCKS  FREI       :",30,70
			PrintText "BYTES   PRO BLOCK  :",30,90
			PrintText "BYTES   TOTAL      :",30,110
			PrintText "BYTES   BELEGT     :",30,120
			PrintText "BYTES   FREI       :",30,130
			PrintText "PROZENT BELEGT     :",30,150
			SetSystemRequesterTo NOWHERE 
			If Exists ("df0:")
				Do "InfoDF0"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Keine Diskette im Laufwerk df0:"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			SetSystemRequesterTo NOWHERE 
			If Exists ("df1:")
				Do "InfoDF1"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Keine Diskette im Laufwerk df1:"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			SetSystemRequesterTo NOWHERE 
			If Exists ("df2:")
				Do "InfoDF2"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Keine Diskette im Laufwerk df2:"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			SetSystemRequesterTo NOWHERE 
			If Exists ("ram:")
				Do "InfoRAM"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Kann RAM-Disk: nicht finden"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			If Exists ("dh0:")
				Do "InfoDH0"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Kann DH0: nicht finden"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
		EndScript
	EndObject
* End of Card "Info"
*************

*************
* Global routine "InfoDF0"
	GetDiskInfo "df0:",NumberOfBlockVar0,NumberUsedVar0,BytesPerBlockVar0
	Let UsedBytes0 =NumberUsedVar0 * BytesPerBlockVar0
	Let Block0 =NumberOfBlockVar0 - NumberUsedVar0
	Let Total0 =NumberOfBlockVar0 * BytesPerBlockVar0
	Let Free0 =(NumberOfBlockVar0 - NumberUsedVar0) * BytesPerBlockVar0
	Let Proz0 = 100 * NumberUsedVar0 / NumberOfBlockVar0
	Let Proz0 = FormatValue(Proz0,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(NumberOfBlockVar0,8),215,50
	PrintText RightJustify(NumberUsedVar0,8),215,60
	PrintText RightJustify(Block0,8),215,70
	PrintText RightJustify(BytesPerBlockVar0,8),215,90
	PrintText RightJustify(Total0,8),215,110
	PrintText RightJustify(UsedBytes0,8),215,120
	PrintText RightJustify(Free0,8),215,130
	PrintText RightJustify(Proz0,8),215,150
* End of routine "InfoDF0"
*************

*************
* Global routine "InfoDF1"
	GetDiskInfo "df1:",NumberOfBlockVar1,NumberUsedVar1,BytesPerBlockVar1
	Let UsedBytes1 =NumberUsedVar1 * BytesPerBlockVar1
	Let Block1 =NumberOfBlockVar1 - NumberUsedVar1
	Let Total1 =NumberOfBlockVar1 * BytesPerBlockVar1
	Let Free1 =(NumberOfBlockVar1 - NumberUsedVar1) * BytesPerBlockVar1
	Let Proz1 = 100 * NumberUsedVar1 / NumberOfBlockVar1
	Let Proz1 = FormatValue(Proz1,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(NumberOfBlockVar1,8),295,50
	PrintText RightJustify(NumberUsedVar1,8),295,60
	PrintText RightJustify(Block1,8),295,70
	PrintText RightJustify(BytesPerBlockVar1,8),295,90
	PrintText RightJustify(Total1,8),295,110
	PrintText RightJustify(UsedBytes1,8),295,120
	PrintText RightJustify(Free1,8),295,130
	PrintText RightJustify(Proz1,8),295,150
* End of routine "InfoDF1"
*************

*************
* Global routine "InfoDF2"
	GetDiskInfo "df2:",NumberOfBlockVar2,NumberUsedVar2,BytesPerBlockVar2
	Let UsedBytes2 =NumberUsedVar2 * BytesPerBlockVar2
	Let Block2 =NumberOfBlockVar2 - NumberUsedVar2
	Let Total2 =NumberOfBlockVar2 * BytesPerBlockVar2
	Let Free2 =(NumberOfBlockVar2 - NumberUsedVar2) * BytesPerBlockVar2
	Let Proz2 = 100 * NumberUsedVar2 / NumberOfBlockVar2
	Let Proz2 = FormatValue(Proz2,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(NumberOfBlockVar2,8),375,50
	PrintText RightJustify(NumberUsedVar2,8),375,60
	PrintText RightJustify(Block2,8),375,70
	PrintText RightJustify(BytesPerBlockVar2,8),375,90
	PrintText RightJustify(Total2,8),375,110
	PrintText RightJustify(UsedBytes2,8),375,120
	PrintText RightJustify(Free2,8),375,130
	PrintText RightJustify(Proz2,8),375,150
* End of routine "InfoDF2"
*************

*************
* Global routine "InfoDH0"
	GetDiskInfo "dh0:",NumberOfBlockVarH0,NumberUsedVarH0,BytesPerBlockVarH0
	Let UsedBytesH0 =NumberUsedVarH0 * BytesPerBlockVarH0
	Let BlockH0 =NumberOfBlockVarH0 - NumberUsedVarH0
	Let TotalH0 =NumberOfBlockVarH0 * BytesPerBlockVarH0
	Let FreeH0 =(NumberOfBlockVarH0 - NumberUsedVarH0) * BytesPerBlockVarH0
	Let ProzH0 = 100 * NumberUsedVarH0 / NumberOfBlockVarH0
	Let ProzH0 = FormatValue(ProzH0,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(NumberOfBlockVarH0,8),535,50
	PrintText RightJustify(NumberUsedVarH0,8),535,60
	PrintText RightJustify(BlockH0,8),535,70
	PrintText RightJustify(BytesPerBlockVarH0,8),535,90
	PrintText RightJustify(TotalH0,8),535,110
	PrintText RightJustify(UsedBytesH0,8),535,120
	PrintText RightJustify(FreeH0,8),535,130
	PrintText RightJustify(ProzH0,8),535,150
* End of routine "InfoDH0"
*************

*************
* Global routine "InfoRAM"
	GetDiskInfo "ram:",NumberOfBlockVarR,NumberUsedVarR,BytesPerBlockVarR
	Let UsedBytesR =NumberUsedVarR * BytesPerBlockVarR
	Let BlockR =NumberOfBlockVarR - NumberUsedVarR
	Let TotalR =NumberOfBlockVarR * BytesPerBlockVarR
	Let FreeR =(NumberOfBlockVarR - NumberUsedVarR) * BytesPerBlockVarR
	Let ProzR = 100 * NumberUsedVarR / NumberOfBlockVarR
	Let ProzR = FormatValue(ProzR,"###0.00%")
	SetDrawMode JAM1 
	SetPen 2
	PrintText RightJustify(NumberOfBlockVarR,8),455,50
	PrintText RightJustify(NumberUsedVarR,8),455,60
	PrintText RightJustify(BlockR,8),455,70
	PrintText RightJustify(BytesPerBlockVarR,8),455,90
	PrintText RightJustify(TotalR,8),455,110
	PrintText RightJustify(UsedBytesR,8),455,120
	PrintText RightJustify(FreeR,8),455,130
	PrintText RightJustify(ProzR,8),455,150
* End of routine "InfoRAM"
*************